Released NUR*4*45 SEQ #46 Extracted from mail message **KIDS**:NUR*4.0*45^ **INSTALL NAME** NUR*4.0*45 "BLD",10234,0) NUR*4.0*45^NURSING SERVICE^0^3180103^y "BLD",10234,1,0) ^^6^6^3170525^ "BLD",10234,1,1,0) 20170309 Enhancements to Nursing Patient Assignment Worksheet "BLD",10234,1,2,0) Only display last 4 of SSN "BLD",10234,1,3,0) Display diagnosis as "ON FILE" "BLD",10234,1,4,0) "BLD",10234,1,5,0) 20170316 Enhancements to Nursing End of Shift Report "BLD",10234,1,6,0) Various enhances to EOS report "BLD",10234,4,0) ^9.64PA^213.9^1 "BLD",10234,4,213.9,0) 213.9 "BLD",10234,4,213.9,222) y^n^f^^^^n^^ "BLD",10234,4,213.9,224) "BLD",10234,4,"B",213.9,213.9) "BLD",10234,6.3) 12 "BLD",10234,"ABPKG") n "BLD",10234,"KRN",0) ^9.67PA^779.2^20 "BLD",10234,"KRN",.4,0) .4 "BLD",10234,"KRN",.401,0) .401 "BLD",10234,"KRN",.402,0) .402 "BLD",10234,"KRN",.403,0) .403 "BLD",10234,"KRN",.5,0) .5 "BLD",10234,"KRN",.84,0) .84 "BLD",10234,"KRN",3.6,0) 3.6 "BLD",10234,"KRN",3.8,0) 3.8 "BLD",10234,"KRN",9.2,0) 9.2 "BLD",10234,"KRN",9.8,0) 9.8 "BLD",10234,"KRN",9.8,"NM",0) ^9.68A^5^5 "BLD",10234,"KRN",9.8,"NM",1,0) NURCAS0^^0^B17500465 "BLD",10234,"KRN",9.8,"NM",2,0) NURCES01^^0^B9542610 "BLD",10234,"KRN",9.8,"NM",3,0) NURCES2^^0^B26458316 "BLD",10234,"KRN",9.8,"NM",4,0) NURCES5^^0^B9700151 "BLD",10234,"KRN",9.8,"NM",5,0) NURSAPFU^^0^B778777 "BLD",10234,"KRN",9.8,"NM","B","NURCAS0",1) "BLD",10234,"KRN",9.8,"NM","B","NURCES01",2) "BLD",10234,"KRN",9.8,"NM","B","NURCES2",3) "BLD",10234,"KRN",9.8,"NM","B","NURCES5",4) "BLD",10234,"KRN",9.8,"NM","B","NURSAPFU",5) "BLD",10234,"KRN",19,0) 19 "BLD",10234,"KRN",19.1,0) 19.1 "BLD",10234,"KRN",101,0) 101 "BLD",10234,"KRN",409.61,0) 409.61 "BLD",10234,"KRN",771,0) 771 "BLD",10234,"KRN",779.2,0) 779.2 "BLD",10234,"KRN",870,0) 870 "BLD",10234,"KRN",8989.51,0) 8989.51 "BLD",10234,"KRN",8989.51,"NM",0) ^9.68A^^0 "BLD",10234,"KRN",8989.52,0) 8989.52 "BLD",10234,"KRN",8994,0) 8994 "BLD",10234,"KRN","B",.4,.4) "BLD",10234,"KRN","B",.401,.401) "BLD",10234,"KRN","B",.402,.402) "BLD",10234,"KRN","B",.403,.403) "BLD",10234,"KRN","B",.5,.5) "BLD",10234,"KRN","B",.84,.84) "BLD",10234,"KRN","B",3.6,3.6) "BLD",10234,"KRN","B",3.8,3.8) "BLD",10234,"KRN","B",9.2,9.2) "BLD",10234,"KRN","B",9.8,9.8) "BLD",10234,"KRN","B",19,19) "BLD",10234,"KRN","B",19.1,19.1) "BLD",10234,"KRN","B",101,101) "BLD",10234,"KRN","B",409.61,409.61) "BLD",10234,"KRN","B",771,771) "BLD",10234,"KRN","B",779.2,779.2) "BLD",10234,"KRN","B",870,870) "BLD",10234,"KRN","B",8989.51,8989.51) "BLD",10234,"KRN","B",8989.52,8989.52) "BLD",10234,"KRN","B",8994,8994) "BLD",10234,"QDEF") ^^^^NO^^^^NO^^NO "BLD",10234,"QUES",0) ^9.62^^ "BLD",10234,"REQB",0) ^9.611^1^1 "BLD",10234,"REQB",1,0) NUR*4.0*24^1 "BLD",10234,"REQB","B","NUR*4.0*24",1) "FIA",213.9) NURS PARAMETERS "FIA",213.9,0) ^DIC(213.9, "FIA",213.9,0,0) 213.9 "FIA",213.9,0,1) y^n^f^^^^n^^ "FIA",213.9,0,10) "FIA",213.9,0,11) "FIA",213.9,0,"RLRO") "FIA",213.9,0,"VR") 4.0^NUR "FIA",213.9,213.9) 0 "FIA",213.9,213.9003) 0 "MBREQ") 0 "PKG",28,-1) 1^1 "PKG",28,0) NURSING SERVICE^NUR^Nursing Service General Module "PKG",28,20,0) ^9.402P^^ "PKG",28,22,0) ^9.49I^1^1 "PKG",28,22,1,0) 4.0^2970509^2980325^1 "PKG",28,22,1,"PAH",1,0) 45^3180103 "PKG",28,22,1,"PAH",1,1,0) ^^6^6^3180103 "PKG",28,22,1,"PAH",1,1,1,0) 20170309 Enhancements to Nursing Patient Assignment Worksheet "PKG",28,22,1,"PAH",1,1,2,0) Only display last 4 of SSN "PKG",28,22,1,"PAH",1,1,3,0) Display diagnosis as "ON FILE" "PKG",28,22,1,"PAH",1,1,4,0) "PKG",28,22,1,"PAH",1,1,5,0) 20170316 Enhancements to Nursing End of Shift Report "PKG",28,22,1,"PAH",1,1,6,0) Various enhances to EOS report "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 5 "RTN","NURCAS0") 0^1^B17500465^B17342342 "RTN","NURCAS0",1,0) NURCAS0 ;HIRMFO/RM,MD,RTK,FT-PATIENT CENSUS/ASSIGNMENT WORKSHEET WARD ;5/16/17 "RTN","NURCAS0",2,0) ;;4.0;NURSING SERVICE;**45**;May 9, 2017;Build 12 "RTN","NURCAS0",3,0) ;MODIFIED BY MD;01/19/87 "RTN","NURCAS0",4,0) Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1 "RTN","NURCAS0",5,0) S (NURBRSW,NURQUIT)=0 W !,"Do you want to:",!?5,"1. Print Brief Assignment Worksheet(s)",!?5,"2. Print Complete Assignment Worksheet(s)",!,"Select 1 or 2: " R NURSCH:DTIME I "^"[NURSCH!('$T) S NURQUIT=1 G QUIT "RTN","NURCAS0",6,0) I NURSCH'=+NURSCH!(NURSCH<1)!(NURSCH>2) W !,$C(7),"ANSWER WITH NUMBER 1 OR 2",! G NURCAS0 "RTN","NURCAS0",7,0) S:NURSCH=1 NURBRSW=1 "RTN","NURCAS0",8,0) W ! K NACT D WARDPAT^NURCUT0 G:NURQUIT QUIT "RTN","NURCAS0",9,0) D EN6^NURSUT0 G:NURQUIT QUIT "RTN","NURCAS0",10,0) W ! S ZTDESC="Nursing Patient Census/Assignment Worksheet",ZTRTN="START^NURCAS0" D EN7^NURSUT0 G:POP!($D(ZTSK)) QUIT "RTN","NURCAS0",11,0) START ; "RTN","NURCAS0",12,0) D NOW^%DTC S NURDT=% K %,%H I $E(IOST)="P",NCOPY>1 F NURI=1:1 Q:NURI'(IOSL-14)) D HEADER Q:NURQUIT "RTN","NURCAS0",32,0) D HEADER1 I 'NURBRSW D ^NURCAS1 Q:NURQUIT W !! "RTN","NURCAS0",33,0) I ($Y>(IOSL-8)) D HEADER Q:NURQUIT D HEADER1 "RTN","NURCAS0",34,0) W !,?2,"ADL",?7,"SAFETY",?15,"BATH",?22,"DIET",?30,"BP",?37,"TPR",?44,"WT",?50,"TREATMENTS",?63,"I/O",?71,"OTHER",!,NURX,! "RTN","NURCAS0",35,0) F X=1:1:4 D HEADER2 "RTN","NURCAS0",36,0) W NURX,! "RTN","NURCAS0",37,0) Q "RTN","NURCAS0",38,0) HEADER ; PRINTING OF HEADING ROUTINE "RTN","NURCAS0",39,0) I $E(IOST)="C",NURSW1 D ENDPG^NURSUT1 S NURQUIT=$G(NUROUT) Q:NURQUIT "RTN","NURCAS0",40,0) S NURPAGE=NURPAGE+1,$P(NURX,"-",81)="",NURSW1=1,Y=DT D:+Y D^DIQ W @IOF,!,Y,?25,"PATIENT CARE ASSIGNMENT/WORKSHEET",?70,"PAGE: ",NURPAGE "RTN","NURCAS0",41,0) W !,"UNIT: ",NPWARD,!,"TOUR: ",$E(NURX,1,10),!,"STAFF:" F X=1:1:5 W ?$X+2,$E(NURX,1,12) "RTN","NURCAS0",42,0) W !,NURX "RTN","NURCAS0",43,0) Q "RTN","NURCAS0",44,0) HEADER1 ; "RTN","NURCAS0",45,0) S VAINDT=NURDT D INP^VADPT W !,"RM/BED: ",$S($D(VAIN(5)):VAIN(5),1:""),?26,"BEDSECTION: ",NSEC,?45,"ADM: ",$P(NDATA,"^",3) "RTN","NURCAS0",46,0) K NURSAL,NURSALGR D ALLERGY^NURCUT1(DFN,.NURSAL) "RTN","NURCAS0",47,0) S (NURSJ,X)=1,NURSALGR(1)="REACTIONS: " F NURSI=0:0 S NURSI=$O(NURSAL(NURSI)) Q:NURSI'>0 D "RTN","NURCAS0",48,0) . I $L(NURSALGR(X))+$L(NURSAL(NURSI))+2>IOM S NURSJ=1,NURSALGR(X)=NURSALGR(X)_",",X=X+1,NURSALGR(X)=" " "RTN","NURCAS0",49,0) . S NURSALGR(X)=NURSALGR(X)_$S(NURSJ>1:", ",1:"")_$P(NURSAL(NURSI),U),NURSJ=NURSJ+1 "RTN","NURCAS0",50,0) . Q "RTN","NURCAS0",51,0) W !,"NAME: ",$S(N1'=" BLANK":$E(N1,1,19),1:""),?26,"SSN: ",$E($TR(SSN,"-"),6,9),?45,"PHYSICIAN: ",$E($P(VAIN(2),"^",2),1,25) "RTN","NURCAS0",52,0) W !,"CATEGORY: ",$S($D(NURCAT):NURCAT,1:"") W ?26,"FACTORS: (" W:$D(NURFACT) NURFACT W ")" I $D(NCOM),NCOM'="" W !,"COMMENTS: ",?22,NCOM "RTN","NURCAS0",53,0) W !,"ADMITTING DIAGNOSIS: ",?22,"ON FILE" "RTN","NURCAS0",54,0) F I=0:0 S I=$O(NURSALGR(I)) Q:I'>0 W !,NURSALGR(I) "RTN","NURCAS0",55,0) Q "RTN","NURCAS0",56,0) HEADER2 W ?6,"|",?13,"|",?20,"|",?27,"|",?34,"|",?41,"|",?48,"|",?60,"|",?67,"|",?79,"|",! "RTN","NURCAS0",57,0) Q "RTN","NURCES01") 0^2^B9542610^B7255375 "RTN","NURCES01",1,0) NURCES01 ;HIRMFO/YH-END OF SHIFT REPORT PART 1/2 ;5/17/17 "RTN","NURCES01",2,0) ;;4.0;NURSING SERVICE;**45**;Apr 25, 1997;Build 12 "RTN","NURCES01",3,0) PRINT1 ; "RTN","NURCES01",4,0) D ^NURSAPCH "RTN","NURCES01",5,0) S GMROUT=0 I GPACK D SETARRY^NURCES2 "RTN","NURCES01",6,0) I GFH D DIET^NURCES4 "RTN","NURCES01",7,0) D EN6^NURSCUTL S NURSCLAS("CL")=1 D EN2^NURSCUTL "RTN","NURCES01",8,0) I NURSCLAS S NDATA(1)=$S($D(^NURSA(214.6,NURSCLAS,0)):^(0),1:"") S NURFACT=$S($P(NDATA(1),"^",4)'="":$P(NDATA(1),"^",4),1:""),NURCAT=$S(+$P(NDATA(1),"^",3):$P(NDATA(1),"^",3),1:""),NCOM=$S($P(NDATA(1),"^",7)'="":$P(NDATA(1),"^",7),1:"") "RTN","NURCES01",9,0) I $D(^NURSF(214,DFN,0)) S NDATA(2)=^(0),NSEC=$S('$D(NDATA(2)):"",'$P(NDATA(2),"^",4):"",'$D(^NURSF(213.3,$P(NDATA(2),"^",4),0)):"",1:$P(^NURSF(213.3,$P(NDATA(2),"^",4),1),"^")) "RTN","NURCES01",10,0) D PTDATA^NURCES2,PTPROB^NURCES1 Q:NURQUIT "RTN","NURCES01",11,0) I GPACK,$D(NURIV),NURIV>0 S N=0 F S N=$O(NURIV(N)) Q:N'>0 D "RTN","NURCES01",12,0) . D FITLINE^NURCES5(NURIV(N),62,.NPR) "RTN","NURCES01",13,0) I GPACK,$D(NURTUBE),NURTUBE>0 S NPR=NPR+1,NPR(NPR)="Last tube changed:",GSITE="" F S GSITE=$O(NURTUBE(GSITE)) Q:GSITE="" S Y=NURTUBE(GSITE) X ^DD("DD") S NPR=NPR+1,NPR(NPR)=" "_GSITE_" on "_$P(Y,":",1,2) "RTN","NURCES01",14,0) D ASSN "RTN","NURCES01",15,0) K NURIV,NURTUBE,GLEFT,GSITE,GSAVEH S NN(1)=2 S:NPR>2&(NOPT=1) NN(1)=NPR S:NADM>NN(1) NN(1)=NADM S:NPT>NN(1) NN(1)=NPT S:NVM>NN(1) NN(1)=NVM F NN=1:1:NN(1) D:$Y>(IOSL-8) HEADER^NURCES2 Q:NURQUIT D PRINT2^NURCES2 Q:NURQUIT "RTN","NURCES01",16,0) I NOPT=2 D PART2 "RTN","NURCES01",17,0) Q:NURQUIT W $S(NOPT=1:NURX,NOPT=2:$E(NURX,1,79),1:NURX),! "RTN","NURCES01",18,0) Q "RTN","NURCES01",19,0) PART2 ; "RTN","NURCES01",20,0) W !,?10,"Patient Problems:",! "RTN","NURCES01",21,0) I NPR>0 F NN=1:1:NPR W ?12,NPR(NN),! D:$Y>(IOSL-8) HEADER^NURCES2 Q:NURQUIT "RTN","NURCES01",22,0) I NPR=0 W ?49,"|",?64,"|",! D:$Y>(IOSL-8) HEADER^NURCES2 "RTN","NURCES01",23,0) Q "RTN","NURCES01",24,0) ASSN ;Assessment, Safety and Special Needs "RTN","NURCES01",25,0) I '$G(NPR) D FITLINE^NURCES5(" ",62,.NPR) "RTN","NURCES01",26,0) D FITLINE^NURCES5(" ",62,.NPR) "RTN","NURCES01",27,0) D FITLINE^NURCES5("Assessment: [ ]FALL [ ]I&O [ ]SL [ ]PICC",62,.NPR) "RTN","NURCES01",28,0) D FITLINE^NURCES5(" [ ]MID [ ]ASPR",62,.NPR) "RTN","NURCES01",29,0) D FITLINE^NURCES5(" ",62,.NPR) "RTN","NURCES01",30,0) D FITLINE^NURCES5("SAFETY: (isolation, elopement risk, restraints,",62,.NPR) "RTN","NURCES01",31,0) D FITLINE^NURCES5(" critical lab values,fall/risk score ______)",62,.NPR) "RTN","NURCES01",32,0) D FITLINE^NURCES5(" ",62,.NPR) "RTN","NURCES01",33,0) D FITLINE^NURCES5("SPECIAL NEEDS: (equipment, oxygen, etc.)",62,.NPR) "RTN","NURCES01",34,0) D FITLINE^NURCES5(" ",62,.NPR) "RTN","NURCES01",35,0) Q "RTN","NURCES2") 0^3^B26458316^B25560885 "RTN","NURCES2",1,0) NURCES2 ;HIRMFO/YH-END OF SHIFT REPORT PART 3 - ITEMIZED I/O DATA ;5/16/17 "RTN","NURCES2",2,0) ;;4.0;NURSING SERVICE;**2,24,45**;Apr 25, 1997;Build 12 "RTN","NURCES2",3,0) SETARRY ;SET DATA IN ^TMP($J,"GMRY", FOR EACH PATIENT "RTN","NURCES2",4,0) S (GDCIV,GQ,GQT,GMROUT)=0,GRPT=10 I '$D(^GMR(126,"B",DFN)) Q "RTN","NURCES2",5,0) S GSAVEH=0,DA(1)=$O(^GMR(126,"B",DFN,0)) K ^TMP($J,"GMRY") "RTN","NURCES2",6,0) F II="IN","OUT" D SAVE^GMRYRP2 "RTN","NURCES2",7,0) D SAVEIV^GMRYRP2,IVM "RTN","NURCES2",8,0) D REPORT1^GMRYRP3 S NURTLTI=$S('$D(GTOTLI):"",1:GTOTLI),NURTLTO=$S('$D(GTOTLO):"",1:GTOTLO) D SETIV K GRPT,GSAVE Q "RTN","NURCES2",9,0) SETIV ;SET IV TEXT "RTN","NURCES2",10,0) D IV^NURCES3,IVTUBE "RTN","NURCES2",11,0) Q "RTN","NURCES2",12,0) IVM ;SET IV MAINTENANCE IN ^TMP($J,"GMRY" "RTN","NURCES2",13,0) Q:'$D(^GMR(126,DFN,"IVM","B")) "RTN","NURCES2",14,0) S GSITE="" F S GSITE=$O(^GMR(126,DA(1),"IVM","B",GSITE)) Q:GSITE="" S DA=$O(^(GSITE,0)) Q:DA'>0 D SCARE "RTN","NURCES2",15,0) Q "RTN","NURCES2",16,0) SCARE ; "RTN","NURCES2",17,0) Q:'$D(^GMR(126,DA(1),"IVM",DA,1,"B")) "RTN","NURCES2",18,0) S GSTRT=0 F S GSTRT=$O(^GMR(126,DA(1),"IVM",DA,1,"B",GSTRT)) Q:GSTRT'>0 S GMRINDT=GSTRT,GDAY=0 D NEXT^GMRYRP1 I '(GMRINDTGMRFIN)) D SETSIFT^GMRYRP2 D "RTN","NURCES2",19,0) . S GDA=0 F S GDA=$O(^GMR(126,DA(1),"IVM",DA,1,"B",GSTRT,GDA)) Q:GDA'>0 D SETUT "RTN","NURCES2",20,0) Q "RTN","NURCES2",21,0) SETUT ; "RTN","NURCES2",22,0) S GSITE(GSITE)="" D FINDCA^GMRYCATH(.GSITE) "RTN","NURCES2",23,0) S GPORT=+$P($G(^GMR(126,DA(1),"IVM",DA,1,GDA,0)),"^",7),GPORT=$S($D(^GMR(126,DFN,"IV",GPORT,3)):$P(^(3),"^"),1:"") "RTN","NURCES2",24,0) S ^TMP($J,"GMRY",$P(GMRINDT,"."),GSHIFT,"IV",GMRINDT,GSTRT,"Z",GDA,1)=$P(^GMR(126,DA(1),"IVM",DA,1,GDA,0),"^",1,5)_"^"_$P(^(0),"^",6)_"^"_GSITE_"^"_GSITE(GSITE)_"^"_GPORT Q "RTN","NURCES2",25,0) IVTUBE ;OBTAIN LAST TUBING CHANGED "RTN","NURCES2",26,0) D SELSITE^GMRYMNT Q:'$D(GMRXY) K NURTUBE S N=0 F S N=$O(GMRXY(N)) Q:N'>0 D TUBING "RTN","NURCES2",27,0) K GDA,GYES,GCT,GDATA,GDT,GIVDT,GMRXY,GSITE,GST Q "RTN","NURCES2",28,0) TUBING S GSITE="",NURTUBE=0 F S GSITE=$O(GMRXY(N,GSITE)) Q:GSITE="" I GCT(GSITE)>0 S GYES=0,GDA=$S('$D(^GMR(126,DFN,"IVM","B",GSITE)):"",1:$O(^GMR(126,DFN,"IVM","B",GSITE,0))) D:GDA>0 CHANGED "RTN","NURCES2",29,0) Q "RTN","NURCES2",30,0) CHANGED ; "RTN","NURCES2",31,0) S GDA(1)=0 F S GDA(1)=$O(^GMR(126,DFN,"IVM",GDA,1,"C",GDA(1))) Q:GDA(1)'>0!GYES S GDA(2)=0 F S GDA(2)=$O(^GMR(126,DFN,"IVM",GDA,1,"C",GDA(1),GDA(2))) Q:GDA(2)'>0!GYES D CHANGED1 "RTN","NURCES2",32,0) Q "RTN","NURCES2",33,0) CHANGED1 ; "RTN","NURCES2",34,0) I $D(^GMR(126,DFN,"IVM",GDA,1,GDA(2),0)),$P(^(0),"^",3)["Y" S NURTUBE(GSITE)=$P(^(0),"^"),GYES=1,NURTUBE=NURTUBE+1 "RTN","NURCES2",35,0) Q "RTN","NURCES2",36,0) HEADER ; PRINTING OF HEADING ROUTINE "RTN","NURCES2",37,0) I $E(IOST)="C",NURSW1 W !,$C(7),"Enter to continue " R X:DTIME I '$T!(X="^") S NURQUIT=1 Q "RTN","NURCES2",38,0) S Y=(GMRFIN+.0001)_"00" "RTN","NURCES2",39,0) S NURPAGE=NURPAGE+1,NURSW1=1 W:NURPAGE>1 @IOF "RTN","NURCES2",40,0) W !,NURDT,?20,"END-OF-SHIFT REPORT",?40,"UNIT: ",NPWARD W ?$S(NOPT=1:90,NOPT=2:55,1:55),"TOUR: "_+$E($P(GMRSTRT,".",2),1,2)_":"_$E($P(GMRSTRT,".",2)_"00",3,4)_"-"_+$E($P(Y,".",2),1,2)_":",$E($P(Y,".",2),3,4) "RTN","NURCES2",41,0) W ?$S(NOPT=1:118,NOPT=2:72,1:72),"PAGE:",NURPAGE "RTN","NURCES2",42,0) W !,"SITUATION",?25,"|BACKGROUND | |ASSESSMENT " W:NOPT=1 ?68,"|RECOMMENDATION" "RTN","NURCES2",43,0) W !,"ROOM-BED/NAME/SSN/",?25,"|ADMITTING DX/ |PT |LATEST VITALS" W:NOPT=1 ?68,"|PATIENT PROBLEMS" "RTN","NURCES2",44,0) W !,"SPECIALTY/DIET/ALLERGIES",?25,"|DATE/MDs",?42,"|CAT|" W:NOPT=1 ?68,"|",!,NURX,! W:NOPT=2 !,$E(NURX,1,79),! "RTN","NURCES2",45,0) Q "RTN","NURCES2",46,0) PTDATA ; "RTN","NURCES2",47,0) S NPT(1)=$S($P(VAIN(5),"^")'="":$P(VAIN(5),"^"),1:"") "RTN","NURCES2",48,0) S NPT(2)=$S(N1'=" BLANK":$E(N1,1,17),1:"") "RTN","NURCES2",49,0) S NPT(3)=$E($TR(NSSN,"-",""),6,9),NPT=3 "RTN","NURCES2",50,0) D FITLINE^NURCES5("Specialty: "_$P($G(VAIN(3)),"^",2),25,.NPT) "RTN","NURCES2",51,0) I GFH D FITLINE^NURCES5(NDIET,25,.NPT) "RTN","NURCES2",52,0) D ALLERGY^NURCES4 "RTN","NURCES2",53,0) S NCL(1)=$S($D(NURCAT):NURCAT,1:"") S NADM=0 D INP^VADPT D FITLINE^NURCES5(VAIN(9),16,.NADM) "RTN","NURCES2",54,0) S Y=$P(VAIN(7),"^") S:Y'="" NADM=NADM+1,NADM(NADM)=$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3) S Y=$P(Y,".",2) S:Y'="" NADM(NADM)=NADM(NADM)_"@"_$E(Y_"00",1,2) S Y=$E(Y,3,4) S:Y'="" NADM(NADM)=NADM(NADM)_":"_$E(Y_"0",1,2) "RTN","NURCES2",55,0) S NADM=NADM+1,NADM(NADM)=$P(VADM(4),"^")_" yrs. "_$S($P(VADM(5),"^",2)'="":$P(VADM(5),"^",2),1:" ") "RTN","NURCES2",56,0) I $P($G(VAIN(11)),"^",2)'="" D K G "RTN","NURCES2",57,0) . S G=0,NADM=NADM+1,NADM(NADM)=$P(VAIN(11),"^",2),G=$O(^VA(200,"B",NADM(NADM),0)),NADM=NADM+1,NADM(NADM)=" (A)" "RTN","NURCES2",58,0) . I $$GET1^DIQ(213.9,1,10.6)="YES",G>0,$D(^VA(200,G,.13)) S G(1)=$P($G(^(.13)),"^",7),G(2)=$P($G(^(.13)),"^",8) D "RTN","NURCES2",59,0) . . I G(1)'="" S NADM=NADM+1,NADM(NADM)=G(1) D "RTN","NURCES2",60,0) . . . I $L(G(1))>11 S NADM=NADM+1,NADM(NADM)=" (V)" "RTN","NURCES2",61,0) . . . E S NADM(NADM)=NADM(NADM)_" (V)" "RTN","NURCES2",62,0) . . I G(2)'="" S NADM=NADM+1,NADM(NADM)=G(2) D "RTN","NURCES2",63,0) . . . I $L(G(2))>11 S NADM=NADM+1,NADM(NADM)=" (D)" "RTN","NURCES2",64,0) . . . E S NADM(NADM)=NADM(NADM)_" (D)" "RTN","NURCES2",65,0) I $P($G(VAIN(2)),"^",2)'="" D K G "RTN","NURCES2",66,0) . S G=0,NADM=NADM+1,NADM(NADM)=$P(VAIN(2),"^",2),G=$O(^VA(200,"B",NADM(NADM),0)),NADM=NADM+1,NADM(NADM)=" (P)" "RTN","NURCES2",67,0) . I G>0,$D(^VA(200,G,.13)) S G(1)=$P($G(^(.13)),"^",7),G(2)=$P($G(^(.13)),"^",8) D "RTN","NURCES2",68,0) . . I G(1)'="" S NADM=NADM+1,NADM(NADM)=G(1) D "RTN","NURCES2",69,0) . . . I $L(G(1))>11 S NADM=NADM+1,NADM(NADM)=" (V)" "RTN","NURCES2",70,0) . . . E S NADM(NADM)=NADM(NADM)_" (V)" "RTN","NURCES2",71,0) . . I G(2)'="" S NADM=NADM+1,NADM(NADM)=G(2) D "RTN","NURCES2",72,0) . . . I $L(G(2))>11 S NADM=NADM+1,NADM(NADM)=" (D)" "RTN","NURCES2",73,0) . . . E S NADM(NADM)=NADM(NADM)_" (D)" "RTN","NURCES2",74,0) S NVM(1)="" D VM^NURCES1 I GPACK,$D(NURTLTI) S:NURTLTI>0 NADM=NADM+1,NADM(NADM)="Intake: "_NURTLTI "RTN","NURCES2",75,0) I GPACK,$D(NURTLTO) S:NURTLTO>0 NADM=NADM+1,NADM(NADM)="Output: "_NURTLTO "RTN","NURCES2",76,0) K NURTLTI,NURTLTO Q "RTN","NURCES2",77,0) PRINT2 I $D(NPT(NN)),(NPT(NN)'="") W $E(NPT(NN),1,25) "RTN","NURCES2",78,0) W ?25,"|" I $D(NADM(NN)),(NADM(NN)'="") W $E(NADM(NN),1,16) "RTN","NURCES2",79,0) W ?42,"|" I $D(NCL(NN)),(NCL(NN)'="") W NCL(NN) "RTN","NURCES2",80,0) W ?46,"|" I $D(NVM(NN)),(NVM(NN)'="") W NVM(NN) "RTN","NURCES2",81,0) I NOPT=1 W ?68,"|" I $D(NPR(NN)),(NPR(NN)'="") W NPR(NN) "RTN","NURCES2",82,0) W ! Q "RTN","NURCES5") 0^4^B9700151^B9681203 "RTN","NURCES5",1,0) NURCES5 ;HIRMFO/YH-END OF SHIFT -VITAL/MEASUREMENT DATA ;5/19/17 "RTN","NURCES5",2,0) ;;4.0;NURSING SERVICE;**24,45**;Apr 25, 1997;Build 12 "RTN","NURCES5",3,0) VITAL ; "RTN","NURCES5",4,0) N NUR,NURVIT,NURIEF,NURDT,NDTFLG,NURDT,NURTYP,NURQUAL,NURDATA,NURWT,NURHT,NURBMI "RTN","NURCES5",5,0) S GMRVSTR="T;P;R;BP;WT;HT;PN;PO2;",GMRVSTR(0)="^^1^1" D EN1^GMRVUT0 "RTN","NURCES5",6,0) I $D(^UTILITY($J,"GMRVD")) S %X="^UTILITY($J,""GMRVD"",",%Y="NURVIT(" D %XY^%RCR K ^UTILITY($J,"GMRVD") "RTN","NURCES5",7,0) S GMRVSTR="T;P;R;BP;PN;",GMRVSTR(0)=NURNOW(1)_"^"_NURNOW D EN1^GMRVUT0 "RTN","NURCES5",8,0) F NUR="T","P","R","BP" S NURDT=0 F S NURDT=$O(^UTILITY($J,"GMRVD",NUR,NURDT)) Q:NURDT'>0 S NURDA=0 F S NURDA=$O(^UTILITY($J,"GMRVD",NUR,NURDT,NURDA)) Q:NURDA'>0 D "RTN","NURCES5",9,0) . I $P(^UTILITY($J,"GMRVD",NUR,NURDT,NURDA),"^",12)="*",'$D(NURVIT(NURDT,NUR,NURDA)) S NURVIT(NURDT,NUR,NURDA)=^UTILITY($J,"GMRVD",NUR,NURDT,NURDA) "RTN","NURCES5",10,0) K NVM S NVM=0 S NURDT=0,NDTFLG=0 F S NURDT=$O(NURVIT(NURDT)) Q:NURDT'>0 D "RTN","NURCES5",11,0) . I NURDT'=NDTFLG S NDTFLG=NURDT,NVM=NVM+1,NVM(NVM)=$$FMTE^XLFDT(9999999-NURDT,"2P"),NDTFLG=NURDT "RTN","NURCES5",12,0) . S NURTYP="" F S NURTYP=$O(NURVIT(NURDT,NURTYP)) Q:NURTYP="" D "RTN","NURCES5",13,0) . . S NURIEF=0 F S NURIEF=$O(NURVIT(NURDT,NURTYP,NURIEF)) Q:NURIEF'>0 D "RTN","NURCES5",14,0) . . . S NURDATA=NURVIT(NURDT,NURTYP,NURIEF) "RTN","NURCES5",15,0) . . . S NURQUAL=$P(NURDATA,"^",10)_$S($P(NURDATA,"^",10)'="":" ",1:"")_$P(NURDATA,"^",11) "RTN","NURCES5",16,0) . . . S:NURQUAL'="" NURQUAL="-"_NURQUAL "RTN","NURCES5",17,0) . . . S NURDATA(1)=$P(NURDATA,"^",8)_$P(NURDATA,"^",12)_$S(NURTYP="WT":" lb",NURTYP="HT":" in",1:"")_NURQUAL "RTN","NURCES5",18,0) . . . I '$D(NURTYP(NURDT,NURTYP)) S NVM=NVM+1,NVM(NVM)=$E(" "_NURTYP_":"_NURDATA(1),1,21),NURTYP(NURDT,NURTYP)="" "RTN","NURCES5",19,0) . . .E S NVM=NVM+1,NVM(NVM)=" "_$E(NURDATA(1),1,20) "RTN","NURCES5",20,0) . . . I NURTYP="WT" S NURWT=$S($P(NURDATA,"^",13)>0:+$P(NURDATA,"^",13),1:0) "RTN","NURCES5",21,0) . . . I NURTYP="HT" S NURHT=$S($P(NURDATA,"^",13)>0:$P(NURDATA,"^",13)/100,1:0) "RTN","NURCES5",22,0) . . . Q "RTN","NURCES5",23,0) . . Q "RTN","NURCES5",24,0) . Q "RTN","NURCES5",25,0) I $G(NURWT)>0,$G(NURHT)>0 S NURBMI=$J(NURWT/(NURHT*NURHT),0,0),NURBMI=NURBMI_$S(NURBMI>27:"*",1:""),NVM=NVM+1,NVM(NVM)="BMI: "_NURBMI "RTN","NURCES5",26,0) Q "RTN","NURCES5",27,0) SORT(NORDER) ;SORT BY ROOM-BED/ALPHABETICAL/BED "RTN","NURCES5",28,0) SORT1 W !,?5,"1. by room-bed",!,?5,"2. by alphabetical",!,?5,"3. by bed",!!,?5,"Enter a number: 1// " R NORDER:DTIME I '$T!(NORDER["^") S NURQUIT=1 Q NORDER "RTN","NURCES5",29,0) I NORDER="" S NORDER="SORT1" Q NORDER "RTN","NURCES5",30,0) I NORDER=1!(NORDER=2)!(NORDER=3) S NORDER="SORT"_NORDER Q NORDER "RTN","NURCES5",31,0) G SORT1 "RTN","NURCES5",32,0) FITLINE(NLINE,NLEN,NGLOB) ; "RTN","NURCES5",33,0) N X,NL S X=NLINE,DIWR=NLEN,DIWF="",DIWL=0 K ^UTILITY($J) D ^DIWP "RTN","NURCES5",34,0) S NL=0 F S NL=$O(^UTILITY($J,"W",0,NL)) Q:NL'>0 S NGLOB=NGLOB+1,NGLOB(NGLOB)=$S(NL>1:" ",1:"")_^UTILITY($J,"W",0,NL,0) "RTN","NURCES5",35,0) K ^UTILITY($J) "RTN","NURCES5",36,0) Q "RTN","NURSAPFU") 0^5^B778777^B749798 "RTN","NURSAPFU",1,0) NURSAPFU ;HIRMFO/RM/MD,FT-SITE PARAMETER FILE UPDATE ;4/18/96 15:14 "RTN","NURSAPFU",2,0) ;;4.0;NURSING SERVICE;**45**;Apr 25, 1997;Build 12 "RTN","NURSAPFU",3,0) ; THIS ROUTINE CALLED BY OPTION NURSFL-SITE "RTN","NURSAPFU",4,0) Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1 "RTN","NURSAPFU",5,0) I '$D(^DIC(213.9,1)) D ADDNEW "RTN","NURSAPFU",6,0) S DA=1,DR="2;8;7.1;7.2;7.3;11;12;10.6;S:'(DUZ(0)[""@"") Y=""@1"";3;4;@1",DIE="^DIC(213.9," D ^DIE K DIE "RTN","NURSAPFU",7,0) D ^NURSKILL "RTN","NURSAPFU",8,0) Q "RTN","NURSAPFU",9,0) ADDNEW ; ADD NEW PARAMETERS FOR THIS SITE "RTN","NURSAPFU",10,0) S $P(^DIC(213.9,1,0),"^",1)="ONE",^DIC(213.9,1,"OFF")=0,DIK="^DIC(213.9," D IXALL^DIK "RTN","NURSAPFU",11,0) Q "VER") 8.0^22.2 "^DD",213.9,213.9,0) FIELD^^10.6^39 "^DD",213.9,213.9,0,"DDA") N "^DD",213.9,213.9,0,"DT") 3171117 "^DD",213.9,213.9,0,"IX","B",213.9,.01) "^DD",213.9,213.9,0,"NM","NURS PARAMETERS") "^DD",213.9,213.9,0,"VRPK") NURSING SERVICE "^DD",213.9,213.9,.01,0) NAME^RFIX^^0;1^K:'$D(DA)#2 X I $D(X)#2 K:DA'=1 X I $D(X)#2 K:$L(X)>3!($L(X)<3)!'(X="ONE") X "^DD",213.9,213.9,.01,1,0) ^.1 "^DD",213.9,213.9,.01,1,1,0) 213.9^B "^DD",213.9,213.9,.01,1,1,1) S ^DIC(213.9,"B",$E(X,1,30),DA)="" "^DD",213.9,213.9,.01,1,1,2) K ^DIC(213.9,"B",$E(X,1,30),DA) "^DD",213.9,213.9,.01,1,1,"%D",0) ^^2^2^2950328^^^ "^DD",213.9,213.9,.01,1,1,"%D",1,0) This is the main index on the 'Name' field of the NURS Parameters "^DD",213.9,213.9,.01,1,1,"%D",2,0) file. "^DD",213.9,213.9,.01,3) ANSWER MUST BE 3 CHARACTERS IN LENGTH "^DD",213.9,213.9,.01,21,0) ^^2^2^2891023^^^^ "^DD",213.9,213.9,.01,21,1,0) This field contains the word ONE, and can only contain this word. Also, there can "^DD",213.9,213.9,.01,21,2,0) only be one entry in this file. "^DD",213.9,213.9,.01,"DEL",1,0) I 1 "^DD",213.9,213.9,.01,"DT") 2870821 "^DD",213.9,213.9,2,0) CNO PRINTER^P3.5'^%ZIS(1,^0;2^Q "^DD",213.9,213.9,2,3) "^DD",213.9,213.9,2,21,0) ^^2^2^2980309^^^^ "^DD",213.9,213.9,2,21,1,0) This field denotes the device which is assigned to print all of the nursing "^DD",213.9,213.9,2,21,2,0) exception reports. This printer should be on at all times. "^DD",213.9,213.9,2,"DT") 2980309 "^DD",213.9,213.9,3,0) NURSING OFFLINE/ONLINE^RS^1:OFF-LINE;0:ON-LINE;^OFF;1^Q "^DD",213.9,213.9,3,21,0) ^^2^2^2950328^^^ "^DD",213.9,213.9,3,21,1,0) This switch will allow the site manager to bring the Nursing application "^DD",213.9,213.9,3,21,2,0) off-line without bringing the entire system down. "^DD",213.9,213.9,3,"DT") 2870821 "^DD",213.9,213.9,4,0) NURSING NEW PERSON FILE ACCESS^S^1:ACCESS TO NEW PERSON FILE;0:NO ACCESS TO NEW PERSON FILE;^0;3^Q "^DD",213.9,213.9,4,21,0) ^^2^2^2950328^^^^ "^DD",213.9,213.9,4,21,1,0) This field allows the Site Manager to turn on/off access to the NEW PERSON "^DD",213.9,213.9,4,21,2,0) file from the Nursing Package. "^DD",213.9,213.9,4,"DT") 2920312 "^DD",213.9,213.9,5,0) NURS INITIALIZATION SWITCH^NJ7,3^^INIT;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"."4N.N) X "^DD",213.9,213.9,5,3) Type a Number between 0 and 100, 3 Decimal Digits "^DD",213.9,213.9,5,8.5) ^ "^DD",213.9,213.9,5,9) ^ "^DD",213.9,213.9,5,21,0) ^^1^1^2920124^^^^ "^DD",213.9,213.9,5,21,1,0) This switch is used by the NURSINIT's ONLY. NO EDITING ALLOWED!!! "^DD",213.9,213.9,5,"DT") 2901002 "^DD",213.9,213.9,5.1,0) NURA INITIALIZATION SWITCH^NJ7,3^^INIT;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."4N.N) X "^DD",213.9,213.9,5.1,3) Type a Number between 0 and 100, 3 Decimal Digits "^DD",213.9,213.9,5.1,8.5) ^ "^DD",213.9,213.9,5.1,9) ^ "^DD",213.9,213.9,5.1,21,0) ^^1^1^2901002^ "^DD",213.9,213.9,5.1,21,1,0) This switch is used by the NURAINIT's ONLY. NO EDITING ALLOWED!!! "^DD",213.9,213.9,5.1,"DT") 2901002 "^DD",213.9,213.9,5.2,0) NURQ INITIALIZATION SWITCH^NJ7,3^^INIT;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"."4N.N) X "^DD",213.9,213.9,5.2,3) Type a Number between 0 and 100, 3 Decimal Digits "^DD",213.9,213.9,5.2,8.5) ^ "^DD",213.9,213.9,5.2,9) ^ "^DD",213.9,213.9,5.2,21,0) ^^1^1^2930325^^ "^DD",213.9,213.9,5.2,21,1,0) This switch is used by the NURQINIT's ONLY. NO EDITING ALLOWED!!! "^DD",213.9,213.9,5.2,"DT") 2930325 "^DD",213.9,213.9,5.3,0) NURC INITIALIZATION SWITCH^NJ7,3^^INIT;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"."4N.N) X "^DD",213.9,213.9,5.3,3) Type a Number between 0 and 100, 3 Decimal Digits "^DD",213.9,213.9,5.3,8.5) ^ "^DD",213.9,213.9,5.3,9) ^ "^DD",213.9,213.9,5.3,21,0) ^^1^1^2901002^ "^DD",213.9,213.9,5.3,21,1,0) This switch is used by the NURCINIT's ONLY. NO EDITING ALLOWED!!! "^DD",213.9,213.9,5.3,"DT") 2901002 "^DD",213.9,213.9,6.1,0) DATE AMIS JOB LAST RUN^DI^^DATE;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",213.9,213.9,6.1,21,0) ^^3^3^2950927^^^^ "^DD",213.9,213.9,6.1,21,1,0) This field will contain the last date that the Nursing Acuity/ "^DD",213.9,213.9,6.1,21,2,0) Separation-Activation Run has run. This is the Nursing Acuity/ "^DD",213.9,213.9,6.1,21,3,0) Separation-Activation Run that calculates patient category totals. "^DD",213.9,213.9,6.1,"DT") 2880504 "^DD",213.9,213.9,6.4,0) AMIS JOB COMPLETION^SI^0:NOT COMPLETED;1:COMPLETED;^DATE;2^Q "^DD",213.9,213.9,6.4,21,0) ^^2^2^2950927^^^^ "^DD",213.9,213.9,6.4,21,1,0) Flag denoting whether or not the Nursing Acuity/Separation-Activation Run "^DD",213.9,213.9,6.4,21,2,0) ran to completion. "^DD",213.9,213.9,6.4,"DT") 2890117 "^DD",213.9,213.9,6.5,0) AMIS WARD LAST PROCESSED^NJ6,0^^DATE;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",213.9,213.9,6.5,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",213.9,213.9,6.5,21,0) ^^4^4^2950927^^^^ "^DD",213.9,213.9,6.5,21,1,0) The ward that was last being processed by the Nursing Acuity/ "^DD",213.9,213.9,6.5,21,2,0) Separation-Activation Run. This number is the variable NWARD in "^DD",213.9,213.9,6.5,21,3,0) the routine NURAAU0, and corresponds to an internal entry number in the "^DD",213.9,213.9,6.5,21,4,0) NURS Location file. "^DD",213.9,213.9,6.5,"DT") 2890117 "^DD",213.9,213.9,6.6,0) AMIS PATIENT LAST PROCESSED^NJ7,0^^DATE;4^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X "^DD",213.9,213.9,6.6,3) Type a Number between 1 and 9999999, 0 Decimal Digits "^DD",213.9,213.9,6.6,21,0) ^^4^4^2950927^^^^ "^DD",213.9,213.9,6.6,21,1,0) The patient that was last being processed by the Nursing Acuity/ "^DD",213.9,213.9,6.6,21,2,0) Separation-Activation Run. This number is the variable DFN "^DD",213.9,213.9,6.6,21,3,0) in the routine NURAAU0, and it corresponds to the internal entry "^DD",213.9,213.9,6.6,21,4,0) number in the Patient file. "^DD",213.9,213.9,6.6,"DT") 2890117 "^DD",213.9,213.9,6.8,0) EVENING ACUITY COMPLETION^S^0:NOT COMPLETED;1:COMPLETED;^DATE;6^Q "^DD",213.9,213.9,6.8,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",213.9,213.9,6.8,21,0) ^^1^1^2950927^^^^ "^DD",213.9,213.9,6.8,21,1,0) Flag denoting whether or not the midnight batch job ran to completion. "^DD",213.9,213.9,6.8,21,2,0) being processed by the midnight acuity batch job. "^DD",213.9,213.9,6.8,"DT") 2950914 "^DD",213.9,213.9,6.9,0) EVENING WARD LAST PROCESSED^NJ6,0^^DATE;7^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",213.9,213.9,6.9,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",213.9,213.9,6.9,21,0) ^^4^4^2951025^^^^ "^DD",213.9,213.9,6.9,21,1,0) The ward that was last being processed for midnights by the Nursing Acuity/ "^DD",213.9,213.9,6.9,21,2,0) Separation-Activation Run. This number is the variable NWARD in the "^DD",213.9,213.9,6.9,21,3,0) routine NURAMU0, and corresponds to an internal entry number in the NURS "^DD",213.9,213.9,6.9,21,4,0) Location file. "^DD",213.9,213.9,6.9,"DT") 2950822 "^DD",213.9,213.9,6.91,0) EVENING PT LAST PROCESSED^NJ7,0^^DATE;8^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X "^DD",213.9,213.9,6.91,3) Type a Number between 1 and 9999999, 0 Decimal Digits "^DD",213.9,213.9,6.91,21,0) ^^4^4^2950927^^^^ "^DD",213.9,213.9,6.91,21,1,0) The patient that was last being processed for midnights by the Nursing "^DD",213.9,213.9,6.91,21,2,0) Acuity/Separation-Activation Run. This number is the variable DFN in "^DD",213.9,213.9,6.91,21,3,0) the routine NURAMU0, and it corresponds to the internal entry number in "^DD",213.9,213.9,6.91,21,4,0) the Patient file. "^DD",213.9,213.9,6.91,"DT") 2950822 "^DD",213.9,213.9,6.92,0) SEP/ACT JOB COMPLETION^S^0:NOT COMPLETED;1:COMPLETED;^DATE;9^Q "^DD",213.9,213.9,6.92,21,0) ^^2^2^2950927^^^^ "^DD",213.9,213.9,6.92,21,1,0) This field indicates whether or not the Nursing Acuity/Separation- "^DD",213.9,213.9,6.92,21,2,0) Activation Run has been completed. "^DD",213.9,213.9,6.92,"DT") 2920307 "^DD",213.9,213.9,6.93,0) NIGHT ACUITY COMPLETION^S^0:NOT COMPLETED;1:COMPLETED;^DATE;10^Q "^DD",213.9,213.9,6.93,21,0) ^^2^2^2950927^^ "^DD",213.9,213.9,6.93,21,1,0) Flag denoting whether or not the the Nursing Acuity/Separation-Activation "^DD",213.9,213.9,6.93,21,2,0) Run ran to completion. "^DD",213.9,213.9,6.93,"DT") 2950314 "^DD",213.9,213.9,6.94,0) NIGHT WARD LAST PROCESSED^NJ6,0^^DATE;11^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",213.9,213.9,6.94,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",213.9,213.9,6.94,21,0) ^^3^3^2950927^^^^ "^DD",213.9,213.9,6.94,21,1,0) The ward that was last being processed by the Nursing Acuity/Separation- "^DD",213.9,213.9,6.94,21,2,0) Activation Run. This number is the variable NWARD in the routine NURAMB1, "^DD",213.9,213.9,6.94,21,3,0) and corresponds to an internal entry number in the NURS Location File. "^DD",213.9,213.9,6.94,"DT") 2950314 "^DD",213.9,213.9,6.95,0) NIGHT PATIENT LAST PROCESSED^NJ6,0^^DATE;12^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",213.9,213.9,6.95,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",213.9,213.9,6.95,21,0) ^^3^3^2950927^^ "^DD",213.9,213.9,6.95,21,1,0) The patient that was last being processed by the Nursing Acuity/Separation- "^DD",213.9,213.9,6.95,21,2,0) Activation Run. This number is the variable DFN in the routine NURAMB1, and "^DD",213.9,213.9,6.95,21,3,0) it corresponds to the internal entry number in the patient file. "^DD",213.9,213.9,6.95,"DT") 2950314 "^DD",213.9,213.9,7.1,0) DAY SHIFT ACUITY TIME^RFX^^0;4^K:X'?4N!'(+X>0&(+X<2401)) X "^DD",213.9,213.9,7.1,3) ANSWER MUST BE 4 NUMBERS REPRESENTING MILITARY TIME, (i.e., 0800 OR 1500). "^DD",213.9,213.9,7.1,4) "^DD",213.9,213.9,7.1,21,0) 2^^2^2^2950927^^^^ "^DD",213.9,213.9,7.1,21,1,0) The time that the acuity totals will be calculated for "^DD",213.9,213.9,7.1,21,2,0) the day shift for the current workload statistics report. "^DD",213.9,213.9,7.1,"DT") 2900703 "^DD",213.9,213.9,7.2,0) EVENING SHIFT ACUITY TIME^RFX^^0;5^K:X'?4N!'(+X>0&(+X<2401)) X "^DD",213.9,213.9,7.2,3) ANSWER MUST BE 4 NUMBERS REPRESENTING MILITARY TIME, (i.e., 0800 OR 1500). "^DD",213.9,213.9,7.2,21,0) ^^2^2^2950927^^^^ "^DD",213.9,213.9,7.2,21,1,0) The time that the acuity totals will be calculated for the evening shift "^DD",213.9,213.9,7.2,21,2,0) for the current workload statistics report. "^DD",213.9,213.9,7.2,"DT") 2900703 "^DD",213.9,213.9,7.3,0) NIGHT SHIFT ACUITY TIME^RFX^^0;6^K:X'?4N!'(+X>0&(+X<2401)) X "^DD",213.9,213.9,7.3,3) ANSWER MUST BE 4 NUMBERS REPRESENTING MILITARY TIME, (i.e., 0800 OR 1500). "^DD",213.9,213.9,7.3,21,0) ^^2^2^2950927^^^^ "^DD",213.9,213.9,7.3,21,1,0) The time that the acuity totals will be calculated for the "^DD",213.9,213.9,7.3,21,2,0) night shift for the AMIS and current workload statistics report. "^DD",213.9,213.9,7.3,"DT") 2900703 "^DD",213.9,213.9,8,0) PROFESSIONAL PERCENTAGE^RNJ3,0^^0;7^K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X "^DD",213.9,213.9,8,3) Type a Number between 1 and 100, 0 Decimal Digits "^DD",213.9,213.9,8,21,0) ^^4^4^2951002^^^^ "^DD",213.9,213.9,8,21,1,0) This field defaults the percentage of professional personnel assigned "^DD",213.9,213.9,8,21,2,0) to a unit if the professional percentage field is not defined in the NURS "^DD",213.9,213.9,8,21,3,0) Location file. This data is used in the calculation of unit workload "^DD",213.9,213.9,8,21,4,0) statistics. "^DD",213.9,213.9,8,"DT") 2931119 "^DD",213.9,213.9,8.1,0) *MANHOURS BATCH JOB STATUS^213.9003DA^^MAN;0 "^DD",213.9,213.9,8.1,21,0) ^^2^2^2951130^^^^ "^DD",213.9,213.9,8.1,21,1,0) This field contains the status of the Nursing Acuity/Separation-Activation "^DD",213.9,213.9,8.1,21,2,0) Run for a specific date. "^DD",213.9,213.9,8.1,"DT") 2950914 "^DD",213.9,213.9,9,0) *NURS VERSION^NJ6,2^^VERSION;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X "^DD",213.9,213.9,9,3) Type a Number between 0 and 100, 2 Decimal Digits "^DD",213.9,213.9,9,8.5) ^ "^DD",213.9,213.9,9,9) ^ "^DD",213.9,213.9,9,21,0) ^^2^2^2950927^^^^ "^DD",213.9,213.9,9,21,1,0) This field indicates the version of the Nursing Service General Module "^DD",213.9,213.9,9,21,2,0) (NURS) software. "^DD",213.9,213.9,9,"DT") 2950926 "^DD",213.9,213.9,9.1,0) *NURA VERSION^NJ6,2^^VERSION;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X "^DD",213.9,213.9,9.1,3) Type a Number between 0 and 100, 2 Decimal Digits "^DD",213.9,213.9,9.1,8.5) ^ "^DD",213.9,213.9,9.1,9) ^ "^DD",213.9,213.9,9.1,21,0) ^^2^2^2950927^^^^ "^DD",213.9,213.9,9.1,21,1,0) The field indicates the version of the Nursing Administration (NURA) "^DD",213.9,213.9,9.1,21,2,0) Package. "^DD",213.9,213.9,9.1,"DT") 2950926 "^DD",213.9,213.9,9.2,0) *NURE VERSION^NJ6,2^^VERSION;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X "^DD",213.9,213.9,9.2,3) Type a Number between 0 and 100, 2 Decimal Digits "^DD",213.9,213.9,9.2,8.5) ^ "^DD",213.9,213.9,9.2,9) ^ "^DD",213.9,213.9,9.2,21,0) ^^1^1^2950927^^ "^DD",213.9,213.9,9.2,21,1,0) This field indicates the version of the Nursing Education (NURE) Package. "^DD",213.9,213.9,9.2,"DT") 2950926 "^DD",213.9,213.9,9.3,0) *NURC VERSION^NJ6,2^^VERSION;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X "^DD",213.9,213.9,9.3,3) Type a Number between 0 and 100, 2 Decimal Digits "^DD",213.9,213.9,9.3,8.5) ^ "^DD",213.9,213.9,9.3,9) ^ "^DD",213.9,213.9,9.3,21,0) ^^1^1^2950927^^ "^DD",213.9,213.9,9.3,21,1,0) This field indicates the version of the Nursing Clinical (NURC) Package. "^DD",213.9,213.9,9.3,"DT") 2950926 "^DD",213.9,213.9,10,0) PATIENT PLAN OF CARE HEADER^F^^CPH;1^K:$L(X)>50!($L(X)<1) X "^DD",213.9,213.9,10,3) Answer must be 1-50 characters in length. "^DD",213.9,213.9,10,21,0) ^^2^2^2960124^^^^ "^DD",213.9,213.9,10,21,1,0) The data in this field will allow the site to change the title of the "^DD",213.9,213.9,10,21,2,0) report generated by the Patient Plan of Care, Print (NURCPP-CARE) option. "^DD",213.9,213.9,10,21,3,0) (NURCPP-CARE) option. For example, the title, Nursing Care Plan, can be "^DD",213.9,213.9,10,21,4,0) renamed to Patient Care Plan. "^DD",213.9,213.9,10,"DT") 2960124 "^DD",213.9,213.9,10.1,0) PATIENT PROBLEM HEADER^F^^CPH;2^K:$L(X)>28!($L(X)<1) X "^DD",213.9,213.9,10.1,3) Answer must be 1-28 characters in length. "^DD",213.9,213.9,10.1,21,0) ^^4^4^2950927^^^^ "^DD",213.9,213.9,10.1,21,1,0) The data in this field allows the site to change the header, Patient "^DD",213.9,213.9,10.1,21,2,0) Problem, for the report generated by the Patient Plan of Care, Print "^DD",213.9,213.9,10.1,21,3,0) (NURCPP-CARE) option. If this field has no data, the Patient Problem "^DD",213.9,213.9,10.1,21,4,0) heading will still print. "^DD",213.9,213.9,10.1,"DT") 2930506 "^DD",213.9,213.9,10.2,0) GOALS/EXPECTED OUTCOMES HEADER^F^^CPH;3^K:$L(X)>28!($L(X)<1) X "^DD",213.9,213.9,10.2,3) Answer must be 1-28 characters in length. "^DD",213.9,213.9,10.2,21,0) ^^4^4^2950927^^^ "^DD",213.9,213.9,10.2,21,1,0) The data in this field allows the site to change the Goals/Expected "^DD",213.9,213.9,10.2,21,2,0) Outcomes heading on the report generated by the Patient Plan of Care, Print "^DD",213.9,213.9,10.2,21,3,0) (NURCPP-CARE) option. If this field has no data then the heading Goals/ "^DD",213.9,213.9,10.2,21,4,0) Expected Outcomes will be used. "^DD",213.9,213.9,10.2,21,5,0) will be used. "^DD",213.9,213.9,10.2,"DT") 2930506 "^DD",213.9,213.9,10.3,0) INTERVENTIONS/ORDERS HEADER^F^^CPH;4^K:$L(X)>28!($L(X)<1) X "^DD",213.9,213.9,10.3,3) Answer must be 1-28 characters in length. "^DD",213.9,213.9,10.3,21,0) ^^4^4^2950927^^^ "^DD",213.9,213.9,10.3,21,1,0) The data in this field allows the site to change the Nursing Interventions/ "^DD",213.9,213.9,10.3,21,2,0) Orders heading of the report generated by the Patient Plan of Care, Print "^DD",213.9,213.9,10.3,21,3,0) (NURCPP-CARE) option. If this field has no data, then the Nursing "^DD",213.9,213.9,10.3,21,4,0) Interventions/Orders heading will be used. "^DD",213.9,213.9,10.3,21,5,0) Interventions/Orders heading will be used. "^DD",213.9,213.9,10.3,"DT") 2930506 "^DD",213.9,213.9,10.4,0) DEFAULT EVALUATION DATE^FX^^CPD;1^D EN1^NURSUT4 "^DD",213.9,213.9,10.4,3) Answer with the default evaluation date. Use T for TODAY or N for NOW followed optionally by a number of days. E.g., T, T+5, N. "^DD",213.9,213.9,10.4,21,0) ^^3^3^2950927^^^ "^DD",213.9,213.9,10.4,21,1,0) The data in this field represents the default evaluation date displayed in "^DD",213.9,213.9,10.4,21,2,0) the Patient Plan of Care, Edit (NURCPE-CARE) option when an evaluation date "^DD",213.9,213.9,10.4,21,3,0) for a problem is edited. "^DD",213.9,213.9,10.4,21,4,0) edited. "^DD",213.9,213.9,10.4,"DT") 2930517 "^DD",213.9,213.9,10.5,0) DEFAULT TARGET DATE^FX^^CPD;2^D EN1^NURSUT4 "^DD",213.9,213.9,10.5,3) Answer with the default target date. Use T for TODAY or N for NOW followed optionally by a number of days. E.g., T, T+5, N. "^DD",213.9,213.9,10.5,21,0) ^^2^2^2950927^^^^ "^DD",213.9,213.9,10.5,21,1,0) The data in this field represents the default target date displayed in the "^DD",213.9,213.9,10.5,21,2,0) Patient Plan of Care, Edit (NURCPE-CARE) option. "^DD",213.9,213.9,10.5,21,3,0) (NURCPE-CARE) option when an target date for a goal is edited. "^DD",213.9,213.9,10.5,"DT") 2930517 "^DD",213.9,213.9,10.6,0) PRINT ATT NUMS ON EOS RPT^RS^Y:YES;N:NO;^0;10^Q "^DD",213.9,213.9,10.6,3) Yes to print Attending doctors number, No to not print on EOS Report. "^DD",213.9,213.9,10.6,21,0) ^^2^2^3171117^ "^DD",213.9,213.9,10.6,21,1,0) This flag will control whether or not the attending physician numbers "^DD",213.9,213.9,10.6,21,2,0) will print on the Nursing End of Shift Report. "^DD",213.9,213.9,10.6,23,0) ^^2^2^3171117^ "^DD",213.9,213.9,10.6,23,1,0) YES/NO flag to control whether or not attending physician numnbers print "^DD",213.9,213.9,10.6,23,2,0) on Nursing EOS report. "^DD",213.9,213.9,10.6,"DT") 3171117 "^DD",213.9,213.9,11,0) PRODUCT LINE^S^Y:YES;N:NO;^0;8^Q "^DD",213.9,213.9,11,.1) "^DD",213.9,213.9,11,21,0) ^^5^5^2960618^ "^DD",213.9,213.9,11,21,1,0) This field indicates whether or not FTEE data in the NURS Position "^DD",213.9,213.9,11,21,2,0) Control file (#211.8) is associated with multiple services/product lines. "^DD",213.9,213.9,11,21,3,0) 'YES' indicates that an FTEE can be associated with one of multiple "^DD",213.9,213.9,11,21,4,0) services or product lines. 'NO' indicates that all FTEE is associated with "^DD",213.9,213.9,11,21,5,0) Nursing Service. "^DD",213.9,213.9,11,"DT") 2960422 "^DD",213.9,213.9,12,0) MULTI-DIVISIONAL^S^Y:YES;N:NO;^0;9^Q "^DD",213.9,213.9,12,21,0) ^^4^4^2960618^^^^ "^DD",213.9,213.9,12,21,1,0) This field indicates whether or not the facilty is multi-divisional. "^DD",213.9,213.9,12,21,2,0) YES indicates that each nursing location may be associated with a "^DD",213.9,213.9,12,21,3,0) separate and different division/institution. NO indicates that all "^DD",213.9,213.9,12,21,4,0) locations are associated with a single institution. "^DD",213.9,213.9,12,"DT") 2960416 "^DD",213.9,213.9,55,0) *AUTOMATED MAR BATCH ZTSK^NJ7,0^^MAR;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X "^DD",213.9,213.9,55,3) Type a Number between 1 and 9999999, 0 Decimal Digits "^DD",213.9,213.9,55,21,0) ^^2^2^2950927^^^^ "^DD",213.9,213.9,55,21,1,0) This field contains the ZTSK number of the Automated MAR Pharmacy Extract "^DD",213.9,213.9,55,21,2,0) Batch Job. "^DD",213.9,213.9,55,"DT") 2950822 "^DD",213.9,213.9,56,0) ACUITY TASK NUMBER^F^^DATE;13^K:$L(X)>15!($L(X)<1) X "^DD",213.9,213.9,56,3) Answer must be 1-15 characters in length. "^DD",213.9,213.9,56,21,0) ^^4^4^2970212^^ "^DD",213.9,213.9,56,21,1,0) This field will contain a number if the patient acuity job is currently "^DD",213.9,213.9,56,21,2,0) being calculated. If the NURAAM-ACU (tasked) option is running the number "^DD",213.9,213.9,56,21,3,0) will be the task number. If the NURAAM-ACUMAN (manual) option is running "^DD",213.9,213.9,56,21,4,0) the number will be '1'. "^DD",213.9,213.9,56,"DT") 2970206 "^DD",213.9,213.9003,0) *MANHOURS BATCH JOB STATUS SUB-FIELD^^3^4 "^DD",213.9,213.9003,0,"IX","B",213.9003,.01) "^DD",213.9,213.9003,0,"NM","*MANHOURS BATCH JOB STATUS") "^DD",213.9,213.9003,0,"UP") 213.9 "^DD",213.9,213.9003,.01,0) *DATE^D^^0;1^S %DT="ET" D ^%DT S X=Y K:Y<1 X "^DD",213.9,213.9003,.01,1,0) ^.1 "^DD",213.9,213.9003,.01,1,1,0) 213.9003^B "^DD",213.9,213.9003,.01,1,1,1) S ^DIC(213.9,DA(1),"MAN","B",$E(X,1,30),DA)="" "^DD",213.9,213.9003,.01,1,1,2) K ^DIC(213.9,DA(1),"MAN","B",$E(X,1,30),DA) "^DD",213.9,213.9003,.01,1,1,"%D",0) ^^2^2^2951130^ "^DD",213.9,213.9003,.01,1,1,"%D",1,0) This is the main index on the date field of the Manhours Batch Job Status "^DD",213.9,213.9003,.01,1,1,"%D",2,0) sub-field. "^DD",213.9,213.9003,.01,21,0) ^^1^1^2950927^^^ "^DD",213.9,213.9003,.01,21,1,0) Indicates the date of this run. "^DD",213.9,213.9003,.01,"DT") 2890223 "^DD",213.9,213.9003,1,0) *NIGHT SHIFT^S^0:NOT COMPLETED;1:COMPLETED;^0;2^Q "^DD",213.9,213.9003,1,21,0) ^^2^2^2950927^^ "^DD",213.9,213.9003,1,21,1,0) Flag to indicate if the Nursing Acuity/Separation-Activation Run ran to "^DD",213.9,213.9003,1,21,2,0) completion for the Night Shift. "^DD",213.9,213.9003,1,"DT") 2890223 "^DD",213.9,213.9003,2,0) *DAY SHIFT^S^1:COMPLETED;0:NOT COMPLETED;^0;3^Q "^DD",213.9,213.9003,2,21,0) ^^2^2^2950927^^ "^DD",213.9,213.9003,2,21,1,0) Flag to indicate if the Nursing Acuity/Separation-Activation Run ran to "^DD",213.9,213.9003,2,21,2,0) completion for the Day Shift. "^DD",213.9,213.9003,2,"DT") 2890223 "^DD",213.9,213.9003,3,0) *EVENING SHIFT^S^0:NOT COMPLETED;1:COMPLETED;^0;4^Q "^DD",213.9,213.9003,3,21,0) ^^2^2^2950927^^ "^DD",213.9,213.9003,3,21,1,0) Flag to indicate if the Nursing Acuity/Separation-Activation Run for the "^DD",213.9,213.9003,3,21,2,0) Evening Shift ran to completion. "^DD",213.9,213.9003,3,"DT") 2890223 "^DIC",213.9,213.9,0) NURS PARAMETERS^213.9 "^DIC",213.9,213.9,0,"GL") ^DIC(213.9, "^DIC",213.9,213.9,"%D",0) ^^1^1^2970207^^^^ "^DIC",213.9,213.9,"%D",1,0) This file contains various Nursing specific site parameters. "^DIC",213.9,"B","NURS PARAMETERS",213.9) "BLD",10234,6) ^46 **END** **END**