NURCES2 ;HIRMFO/YH-END OF SHIFT REPORT PART 3 - ITEMIZED I/O DATA ;7/15/97 ;;4.0;NURSING SERVICE;**2,24**;Apr 25, 1997 SETARRY ;SET DATA IN ^TMP($J,"GMRY", FOR EACH PATIENT S (GDCIV,GQ,GQT,GMROUT)=0,GRPT=10 I '$D(^GMR(126,"B",DFN)) Q S GSAVEH=0,DA(1)=$O(^GMR(126,"B",DFN,0)) K ^TMP($J,"GMRY") F II="IN","OUT" D SAVE^GMRYRP2 D SAVEIV^GMRYRP2,IVM D REPORT1^GMRYRP3 S NURTLTI=$S('$D(GTOTLI):"",1:GTOTLI),NURTLTO=$S('$D(GTOTLO):"",1:GTOTLO) D SETIV K GRPT,GSAVE Q SETIV ;SET IV TEXT D IV^NURCES3,IVTUBE Q IVM ;SET IV MAINTENANCE IN ^TMP($J,"GMRY" Q:'$D(^GMR(126,DFN,"IVM","B")) 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 Q SCARE ; Q:'$D(^GMR(126,DA(1),"IVM",DA,1,"B")) 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 . S GDA=0 F S GDA=$O(^GMR(126,DA(1),"IVM",DA,1,"B",GSTRT,GDA)) Q:GDA'>0 D SETUT Q SETUT ; S GSITE(GSITE)="" D FINDCA^GMRYCATH(.GSITE) 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:"") 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 IVTUBE ;OBTAIN LAST TUBING CHANGED D SELSITE^GMRYMNT Q:'$D(GMRXY) K NURTUBE S N=0 F S N=$O(GMRXY(N)) Q:N'>0 D TUBING K GDA,GYES,GCT,GDATA,GDT,GIVDT,GMRXY,GSITE,GST Q 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 Q CHANGED ; 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 Q CHANGED1 ; 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 Q HEADER ; PRINTING OF HEADING ROUTINE I $E(IOST)="C",NURSW1 W !,$C(7),"Enter to continue " R X:DTIME I '$T!(X="^") S NURQUIT=1 Q S Y=(GMRFIN+.0001)_"00" S NURPAGE=NURPAGE+1,NURSW1=1 W:NURPAGE>1 @IOF 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) W ?$S(NOPT=1:118,NOPT=2:72,1:72),"PAGE:",NURPAGE W !,"ROOM-BED/NAME/SSN/",?25,"|ADMITTING DX/ |PT |LATEST VITALS" W:NOPT=1 ?68,"|PATIENT PROBLEMS" W !,"SPECIALTY/DIET/ALLERGIES",?25,"|DATE/MDs",?42,"|CAT|" W:NOPT=1 ?68,"|",!,NURX,! W:NOPT=2 !,$E(NURX,1,79),! Q PTDATA ; S NPT(1)=$S($P(VAIN(5),"^")'="":$P(VAIN(5),"^"),1:"") S NPT(2)=$S(N1'=" BLANK":$E(N1,1,17),1:""),NPT(3)=NSSN,NPT=3 D FITLINE^NURCES5("Specialty: "_$P($G(VAIN(3)),"^",2),25,.NPT) I GFH D FITLINE^NURCES5(NDIET,25,.NPT) D ALLERGY^NURCES4 S NCL(1)=$S($D(NURCAT):NURCAT,1:"") S NADM=0 D INP^VADPT D FITLINE^NURCES5(VAIN(9),16,.NADM) 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) S NADM=NADM+1,NADM(NADM)=$P(VADM(4),"^")_" yrs. "_$S($P(VADM(5),"^",2)'="":$P(VADM(5),"^",2),1:" ") I $P($G(VAIN(11)),"^",2)'="" D K G . 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)" . I G>0,$D(^VA(200,G,.13)) S G(1)=$P($G(^(.13)),"^",7),G(2)=$P($G(^(.13)),"^",8) D . . I G(1)'="" S NADM=NADM+1,NADM(NADM)=G(1) D . . . I $L(G(1))>11 S NADM=NADM+1,NADM(NADM)=" (V)" . . . E S NADM(NADM)=NADM(NADM)_" (V)" . . I G(2)'="" S NADM=NADM+1,NADM(NADM)=G(2) D . . . I $L(G(2))>11 S NADM=NADM+1,NADM(NADM)=" (D)" . . . E S NADM(NADM)=NADM(NADM)_" (D)" I $P($G(VAIN(2)),"^",2)'="" D K G . 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)" . I G>0,$D(^VA(200,G,.13)) S G(1)=$P($G(^(.13)),"^",7),G(2)=$P($G(^(.13)),"^",8) D . . I G(1)'="" S NADM=NADM+1,NADM(NADM)=G(1) D . . . I $L(G(1))>11 S NADM=NADM+1,NADM(NADM)=" (V)" . . . E S NADM(NADM)=NADM(NADM)_" (V)" . . I G(2)'="" S NADM=NADM+1,NADM(NADM)=G(2) D . . . I $L(G(2))>11 S NADM=NADM+1,NADM(NADM)=" (D)" . . . E S NADM(NADM)=NADM(NADM)_" (D)" S NVM(1)="" D VM^NURCES1 I GPACK,$D(NURTLTI) S:NURTLTI>0 NADM=NADM+1,NADM(NADM)="Intake: "_NURTLTI I GPACK,$D(NURTLTO) S:NURTLTO>0 NADM=NADM+1,NADM(NADM)="Output: "_NURTLTO K NURTLTI,NURTLTO Q PRINT2 I $D(NPT(NN)),(NPT(NN)'="") W $E(NPT(NN),1,25) W ?25,"|" I $D(NADM(NN)),(NADM(NN)'="") W $E(NADM(NN),1,16) W ?42,"|" I $D(NCL(NN)),(NCL(NN)'="") W NCL(NN) W ?46,"|" I $D(NVM(NN)),(NVM(NN)'="") W NVM(NN) I NOPT=1 W ?68,"|" I $D(NPR(NN)),(NPR(NN)'="") W NPR(NN) W ! Q