GMRYSE3 ;HIRMFO/YH-ITEMIZED PATIENT I/O REPORT BY SHIFT PART 4 ; 9/20/13 2:21pm
;;4.0;Intake/Output;**9**;Apr 25, 1997;Build 6
WIVINF ;
S GDA=0 F S GDA=$O(^TMP($J,"GMRY",GDATE,GSFT,GIO,GHR,GIVDT,GIVTYP,GSUB,GDA)) Q:GDA'>0!GMROUT S GDATA=$G(^TMP($J,"GMRY",GDATE,GSFT,GIO,GHR,GIVDT,GIVTYP,GSUB,GDA)),GAMT=+$P(GDATA,"^") D
.I GIVTYP="Z" D WCARE Q
.I GAMT>3000 D START Q
.I GDA=2 S (GTYP,GIN)=$P(GDATA,"^",2),GIN=$S(GIN="B":2,GIN="A"!(GIN="P")!(GIN="L"):1,GIN="H"!(GIN="I"):3,1:0) Q:GIN=0 D ADD^GMRYSE2,WIV Q
.I GDA=3 D
..S GPORT=$G(^GMR(126,DFN,"IV",GSUB,3))
..D:($Y+10)>IOSL HEADER2^GMRYSE1 Q:GMROUT D WHR Q:GMROUT W ?14
..S GTXT(1)=$P(GDATA,"^",5)_" "_$P(GDATA,"^",4)_$S(GPORT'="":" ("_GPORT_")",1:"")_" infusion rate adjusted: "_$S(+$P(GDATA,"^")>0:$P(GDATA,"^"),1:"UNKNOWN")_" mls/hr"_$S($P(GDATA,"^",6)'="":" - "_$P(GDATA,"^",6),1:"")
..I $L(GTXT(1))>0 D WLINE
..S GNURSE=+$P(GDATA,"^",2) D WNURS
Q
START ;
D:($Y+10)>IOSL HEADER2^GMRYSE1 Q:GMROUT S GCATH=$P(GDATA,"^",6),GTYP=$P(GDATA,"^",4),GSITE=$P(GDATA,"^",2),GSOL=$P(GDATA,"^",3),GVOL=$P(GDATA,"^",5),GNURSE=+$P(GDATA,"^",7) W " " D WHR
S GPORT=$P($G(^GMR(126,DFN,"IV",GSUB,3)),"^") D WTYPE
S GTXT(1)=GTXT(1)_$S(GTYP'="L":" "_GVOL_" mls ",1:"")_$S($P(GDATA,"^",11)["FLUSH":"flushed",GCATH'="":"started",1:"added")_" Site: "_GSITE S:GCATH'="" GTXT(1)=GTXT(1)_" IV cath: "_GCATH
S GTXT(1)=GTXT(1)_$S(GPORT'="":" ("_GPORT_")",1:"")_$S(+$P(GDATA,"^",12)>0:" Rate: "_+$P(GDATA,"^",12)_" ml/hr",1:"")
I $L(GTXT(1))>0 D WLINE
D WNURS Q:$P(GDATA,"^",9)="" S GSAVE=GHR,GHR=$P(GDATA,"^",9),GNURSE=+$P(GDATA,"^",10),GREASON=$S($P(GDATA,"^",11)'="":$P(GDATA,"^",11),1:"")
I GTYP="L" S GREASON=$S($P(GDATA,"^",11)="INFUSED"!($P(GDATA,"^",11)="FLUSHED"):"",1:GREASON)
I GSOL'="*" D
. D:($Y+10)>IOSL HEADER2^GMRYSE1 W ?20,"Discontinued on "_$E(GHR,4,5)_"/"_$E(GHR,6,7)_"/"_$E(GHR,2,3)_" @ " D WDC W:GREASON'=""&(IOM'>80) !,?20,"Reason: "_GREASON W:GREASON'=""&(IOM>80) " Reason: "_GREASON D WNURS S GHR=GSAVE K GSAVE
Q
WIV ;PRINT IV INTAKE
S GNURSE=+$P(GDATA,"^",4),GSITE=$P(GDATA,"^",3),GSOL=$P(GDATA,"^",5)
I GTYP'="L" D
.D:($Y+10)>IOSL HEADER2^GMRYSE1 Q:GMROUT D WHR Q:GMROUT D WTYPE S GTXT(1)=GTXT(1)_" Intake Vol: "_$S($P(GDATA,"^",6)["*":"unknown",1:GAMT_" mls")_" Remaining amount: "_$P(GDATA,"^",6)_" mls "
.I $L(GTXT(1))>0 D WLINE
.D WNURS
Q
WTYPE ;PRINT IV TYPE
S GTXT(1)=GSOL_" "_$S(GTYP="A":"admix",GTYP="B":"blood",GTYP="P":"piggy",GTYP="H":"hyper",GTYP="I":"intra",1:"")
Q
WHR ;
I GHOLD=$E(GHR,1,12) Q
S GHR(1)=$E($P(GHR,".",2),1,4),GLEN=$L(GHR(1)),GTIME=$S(GLEN=1:GHR(1)_"000",GLEN=2:GHR(1)_"00",GLEN=3:GHR(1)_"0",1:GHR(1))
W ?4,$E(GTIME,1,2),":",$E(GTIME,3,4)_" "
S GHOLD=$E(GHR,1,12) Q
WNURS G:$S(GNURSE=0:1,'$D(^VA(200,GNURSE,0)):1,$P(^VA(200,GNURSE,0),"^")="":1,1:0) Q S GCOL=$S(IOM>80:120,1:70) W ?GCOL,$E($P($P(^VA(200,GNURSE,0),"^"),",",2)),$E($P(^(0),"^"))
N GPOS
S GPOS=$$GPOS^GMRYSE1(GNURSE)
W "/"_$S(GPOS="R":"RN",GPOS="L":"LPN",GPOS="N":"NA",GPOS="C":"CL",1:"OTH")
Q W ! Q
WCARE ;
Q:$P(GDATA,"^",2)=""&($P(GDATA,"^",3)="")&($P(GDATA,"^",4)="") D WHR S GTXT(1)=$P(GDATA,"^",8)_": " S GSAVE=$L(GTXT(1)),GMRY=$P(GDATA,"^",2),GTXT(1)=GTXT(1)_$S(GMRY'="":GMRY,1:"")
S GMRY=$S($P(GDATA,"^",4)="Y":$P(GDATA,"^",4),1:""),GTXT(1)=GTXT(1)_$S(GMRY'=""&($L(GTXT(1))>GSAVE):", ",1:"")_$S(GMRY="Y":"dressing changed",1:"")
S GMRY=$P(GDATA,"^",6),GTXT(1)=GTXT(1)_$S($L(GTXT(1))>GSAVE&(GMRY'=""):", ",1:"")_$S(GMRY="Y":"site discontinued",1:"")
I $L(GTXT(1))>0 D WLINE
I $P(GDATA,"^",3)["Y" D
. S GSITE=$P(GDATA,"^",8),GIEN=+$P(GDATA,"^",7),GPORT=$S($D(^GMR(126,DFN,"IV",GIEN,3)):^(3),1:""),GSITE(GSITE)="" D FINDCA^GMRYCATH(.GSITE)
. S GTXT(1)=" "_GSITE(GSITE)_$S(GPORT'="":" - "_GPORT,1:"")_" tubing changed" D WLINE
Q2 K GMR100,GMR101,GMR102,GTXT,GMRLEN
S GNURSE=+$P(GDATA,"^",5) D WNURS
Q
WDC ;
S GHR(1)=$E($P(GHR,".",2),1,4),GLEN=$L(GHR(1)),GTIME=$S(GLEN=1:GHR(1)_"000",GLEN=2:GHR(1)_"00",GLEN=3:GHR(1)_"0",1:GHR(1)) W $E(GTIME,1,2)_":"_$E(GTIME,3,4) Q
WLINE ;PRINT DESCRIPTION
N X S DIWR=$S(IOM>80:100,1:50),DIWF="",DIWL=0,X=GTXT(1) K ^UTILITY($J) D ^DIWP
S GMRI=0 F S GMRI=$O(^UTILITY($J,"W",0,GMRI)) Q:GMRI'>0 D:($Y+10)>IOSL HEADER2^GMRYSE1 Q:GMROUT W !,?14,^UTILITY($J,"W",0,GMRI,0)
K ^UTILITY($J),GMRI Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRYSE3 4309 printed Oct 16, 2024@17:56:27 Page 2
GMRYSE3 ;HIRMFO/YH-ITEMIZED PATIENT I/O REPORT BY SHIFT PART 4 ; 9/20/13 2:21pm
+1 ;;4.0;Intake/Output;**9**;Apr 25, 1997;Build 6
WIVINF ;
+1 SET GDA=0
FOR
SET GDA=$ORDER(^TMP($JOB,"GMRY",GDATE,GSFT,GIO,GHR,GIVDT,GIVTYP,GSUB,GDA))
if GDA'>0!GMROUT
QUIT
SET GDATA=$GET(^TMP($JOB,"GMRY",GDATE,GSFT,GIO,GHR,GIVDT,GIVTYP,GSUB,GDA))
SET GAMT=+$PIECE(GDATA,"^")
Begin DoDot:1
+2 IF GIVTYP="Z"
DO WCARE
QUIT
+3 IF GAMT>3000
DO START
QUIT
+4 IF GDA=2
SET (GTYP,GIN)=$PIECE(GDATA,"^",2)
SET GIN=$SELECT(GIN="B":2,GIN="A"!(GIN="P")!(GIN="L"):1,GIN="H"!(GIN="I"):3,1:0)
if GIN=0
QUIT
DO ADD^GMRYSE2
DO WIV
QUIT
+5 IF GDA=3
Begin DoDot:2
+6 SET GPORT=$GET(^GMR(126,DFN,"IV",GSUB,3))
+7 if ($Y+10)>IOSL
DO HEADER2^GMRYSE1
if GMROUT
QUIT
DO WHR
if GMROUT
QUIT
WRITE ?14
+8 SET GTXT(1)=$PIECE(GDATA,"^",5)_" "_$PIECE(GDATA,"^",4)_$SELECT(GPORT'="":" ("_GPORT_")",1:"")_" infusion rate adjusted: "_$SELECT(+$PIECE(GDATA,"^")>0:$PIECE(GDATA,"^"),1:"UNKNOWN")_" mls/hr"_$SELECT($PIECE(GDATA,"^",6)'="":" -
"_...
... $PIECE(GDATA,"^",6),1:"")
+9 IF $LENGTH(GTXT(1))>0
DO WLINE
+10 SET GNURSE=+$PIECE(GDATA,"^",2)
DO WNURS
End DoDot:2
End DoDot:1
+11 QUIT
START ;
+1 if ($Y+10)>IOSL
DO HEADER2^GMRYSE1
if GMROUT
QUIT
SET GCATH=$PIECE(GDATA,"^",6)
SET GTYP=$PIECE(GDATA,"^",4)
SET GSITE=$PIECE(GDATA,"^",2)
SET GSOL=$PIECE(GDATA,"^",3)
SET GVOL=$PIECE(GDATA,"^",5)
SET GNURSE=+$PIECE(GDATA,"^",7)
WRITE " "
DO WHR
+2 SET GPORT=$PIECE($GET(^GMR(126,DFN,"IV",GSUB,3)),"^")
DO WTYPE
+3 SET GTXT(1)=GTXT(1)_$SELECT(GTYP'="L":" "_GVOL_" mls ",1:"")_$SELECT($PIECE(GDATA,"^",11)["FLUSH":"flushed",GCATH'="":"started",1:"added")_" Site: "_GSITE
if GCATH'=""
SET GTXT(1)=GTXT(1)_" IV cath: "_GCATH
+4 SET GTXT(1)=GTXT(1)_$SELECT(GPORT'="":" ("_GPORT_")",1:"")_$SELECT(+$PIECE(GDATA,"^",12)>0:" Rate: "_+$PIECE(GDATA,"^",12)_" ml/hr",1:"")
+5 IF $LENGTH(GTXT(1))>0
DO WLINE
+6 DO WNURS
if $PIECE(GDATA,"^",9)=""
QUIT
SET GSAVE=GHR
SET GHR=$PIECE(GDATA,"^",9)
SET GNURSE=+$PIECE(GDATA,"^",10)
SET GREASON=$SELECT($PIECE(GDATA,"^",11)'="":$PIECE(GDATA,"^",11),1:"")
+7 IF GTYP="L"
SET GREASON=$SELECT($PIECE(GDATA,"^",11)="INFUSED"!($PIECE(GDATA,"^",11)="FLUSHED"):"",1:GREASON)
+8 IF GSOL'="*"
Begin DoDot:1
+9 if ($Y+10)>IOSL
DO HEADER2^GMRYSE1
WRITE ?20,"Discontinued on "_$EXTRACT(GHR,4,5)_"/"_$EXTRACT(GHR,6,7)_"/"_$EXTRACT(GHR,2,3)_" @ "
DO WDC
if GREASON'=""&(IOM'>80)
WRITE !,?20,"Reason: "_GREASON
if GREASON'=""&(IOM>80)
WRITE " Reason: "_GREASON
DO WNURS
SET GHR=GSAVE
KILL GSAVE
End DoDot:1
+10 QUIT
WIV ;PRINT IV INTAKE
+1 SET GNURSE=+$PIECE(GDATA,"^",4)
SET GSITE=$PIECE(GDATA,"^",3)
SET GSOL=$PIECE(GDATA,"^",5)
+2 IF GTYP'="L"
Begin DoDot:1
+3 if ($Y+10)>IOSL
DO HEADER2^GMRYSE1
if GMROUT
QUIT
DO WHR
if GMROUT
QUIT
DO WTYPE
SET GTXT(1)=GTXT(1)_" Intake Vol: "_$SELECT($PIECE(GDATA,"^",6)["*":"unknown",1:GAMT_" mls")_" Remaining amount: "_$PIECE(GDATA,"^",6)_" mls "
+4 IF $LENGTH(GTXT(1))>0
DO WLINE
+5 DO WNURS
End DoDot:1
+6 QUIT
WTYPE ;PRINT IV TYPE
+1 SET GTXT(1)=GSOL_" "_$SELECT(GTYP="A":"admix",GTYP="B":"blood",GTYP="P":"piggy",GTYP="H":"hyper",GTYP="I":"intra",1:"")
+2 QUIT
WHR ;
+1 IF GHOLD=$EXTRACT(GHR,1,12)
QUIT
+2 SET GHR(1)=$EXTRACT($PIECE(GHR,".",2),1,4)
SET GLEN=$LENGTH(GHR(1))
SET GTIME=$SELECT(GLEN=1:GHR(1)_"000",GLEN=2:GHR(1)_"00",GLEN=3:GHR(1)_"0",1:GHR(1))
+3 WRITE ?4,$EXTRACT(GTIME,1,2),":",$EXTRACT(GTIME,3,4)_" "
+4 SET GHOLD=$EXTRACT(GHR,1,12)
QUIT
WNURS if $SELECT(GNURSE=0
GOTO Q
SET GCOL=$SELECT(IOM>80:120,1:70)
WRITE ?GCOL,$EXTRACT($PIECE($PIECE(^VA(200,GNURSE,0),"^"),",",2)),$EXTRACT($PIECE(^(0),"^"))
+1 NEW GPOS
+2 SET GPOS=$$GPOS^GMRYSE1(GNURSE)
+3 WRITE "/"_$SELECT(GPOS="R":"RN",GPOS="L":"LPN",GPOS="N":"NA",GPOS="C":"CL",1:"OTH")
Q WRITE !
QUIT
WCARE ;
+1 if $PIECE(GDATA,"^",2)=""&($PIECE(GDATA,"^",3)="")&($PIECE(GDATA,"^",4)="")
QUIT
DO WHR
SET GTXT(1)=$PIECE(GDATA,"^",8)_": "
SET GSAVE=$LENGTH(GTXT(1))
SET GMRY=$PIECE(GDATA,"^",2)
SET GTXT(1)=GTXT(1)_$SELECT(GMRY'="":GMRY,1:"")
+2 SET GMRY=$SELECT($PIECE(GDATA,"^",4)="Y":$PIECE(GDATA,"^",4),1:"")
SET GTXT(1)=GTXT(1)_$SELECT(GMRY'=""&($LENGTH(GTXT(1))>GSAVE):", ",1:"")_$SELECT(GMRY="Y":"dressing changed",1:"")
+3 SET GMRY=$PIECE(GDATA,"^",6)
SET GTXT(1)=GTXT(1)_$SELECT($LENGTH(GTXT(1))>GSAVE&(GMRY'=""):", ",1:"")_$SELECT(GMRY="Y":"site discontinued",1:"")
+4 IF $LENGTH(GTXT(1))>0
DO WLINE
+5 IF $PIECE(GDATA,"^",3)["Y"
Begin DoDot:1
+6 SET GSITE=$PIECE(GDATA,"^",8)
SET GIEN=+$PIECE(GDATA,"^",7)
SET GPORT=$SELECT($DATA(^GMR(126,DFN,"IV",GIEN,3)):^(3),1:"")
SET GSITE(GSITE)=""
DO FINDCA^GMRYCATH(.GSITE)
+7 SET GTXT(1)=" "_GSITE(GSITE)_$SELECT(GPORT'="":" - "_GPORT,1:"")_" tubing changed"
DO WLINE
End DoDot:1
Q2 KILL GMR100,GMR101,GMR102,GTXT,GMRLEN
+1 SET GNURSE=+$PIECE(GDATA,"^",5)
DO WNURS
+2 QUIT
WDC ;
+1 SET GHR(1)=$EXTRACT($PIECE(GHR,".",2),1,4)
SET GLEN=$LENGTH(GHR(1))
SET GTIME=$SELECT(GLEN=1:GHR(1)_"000",GLEN=2:GHR(1)_"00",GLEN=3:GHR(1)_"0",1:GHR(1))
WRITE $EXTRACT(GTIME,1,2)_":"_$EXTRACT(GTIME,3,4)
QUIT
WLINE ;PRINT DESCRIPTION
+1 NEW X
SET DIWR=$SELECT(IOM>80:100,1:50)
SET DIWF=""
SET DIWL=0
SET X=GTXT(1)
KILL ^UTILITY($JOB)
DO ^DIWP
+2 SET GMRI=0
FOR
SET GMRI=$ORDER(^UTILITY($JOB,"W",0,GMRI))
if GMRI'>0
QUIT
if ($Y+10)>IOSL
DO HEADER2^GMRYSE1
if GMROUT
QUIT
WRITE !,?14,^UTILITY($JOB,"W",0,GMRI,0)
+3 KILL ^UTILITY($JOB),GMRI
QUIT
