- GMRVVS2 ;HIRMFO/YH-PATIENT VITAL SIGNS-I/O SF 511 GRAPH - 2 ;7/15/97
- ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
- IO ;PRINT INTAKE/OUTPUT SECTION OF VITAL SIGNS-I/O SHEET
- K ^TMP($J,"XI"),^TMP($J,"XO")
- F NN=1:1:GN(1)+1 S GMRI="XI"_NN K GMRLINE(GMRI)
- F NN=1:1:GN(2)+1 S GMRI="XO"_NN K GMRLINE(GMRI)
- S GMRNM=0 F GMRDT=0:0 S GMRDT=$O(^TMP($J,"GMRDT",GMRDT)) Q:GMRDT'>0 S GMRNM=GMRNM+1 Q:GMRNM>10 S GDT=+$E(GMRDT,1,7) D
- . F NN=1:1:GN(1)+1 S GMRI="XI"_NN I $D(^TMP($J,"GMR",GMRI,GDT)) D
- . . S GMRYDT=$O(^TMP($J,"GMR",GMRI,GDT,0)) I GMRYDT>0 S ^TMP($J,"XI",NN,GDT,GMRYDT)="",GMRLINE(GMRI)=GMRX1
- . F NN=1:1:GN(2)+1 S GMRI="XO"_NN I $D(^TMP($J,"GMR",GMRI,GDT)) D
- . . S GMRYDT=$O(^TMP($J,"GMR",GMRI,GDT,0)) I GMRYDT>0 S ^TMP($J,"XO",NN,GDT,GMRYDT)="",GMRLINE(GMRI)=GMRX1
- S GMRNM=0 F GMRDT=0:0 S GMRDT=$O(^TMP($J,"GMRDT",GMRDT)) Q:GMRDT'>0 S GMRNM=GMRNM+1 Q:GMRNM>10 S GDT=+$E(GMRDT,1,7) D SETDATA
- I IOSL<($Y+6) D FOOTER,HEADER,DATES W !,?15,"|",?16,GMRX
- W !,"Intake(24 Hr)(cc)",?20,"|",GMRX F NN=1:1:GN(1)+1 S GMRI="XI"_NN I $D(GMRLINE(GMRI)) D
- .I IOSL<($Y+6) S GMRI(1)=GMRI D FOOTER,HEADER,DATES S GMRI=GMRI(1) W !,?20,"|",?21,GMRX
- .W !,?3,$S(NN=1:"IV",NN=2:"BLOOD",NN=3:"P NUTRI",NN=(GN(1)+1):"TOTAL",NN>3&(NN<(GN(1)+1)):$E($P(^GMRD(126.56,+$O(^GMRD(126.56,"C",NN-3,0)),0),"^"),1,6),1:" "),?10,"|",GMRLINE(GMRI)
- I IOSL<($Y+6) S GMRI(1)=GMRI D FOOTER,HEADER,DATES S GMRI=GMRI(1) W !,?10,"|",?11,GMRX
- W !,"Output(24 Hr)(cc)",?20,"|",GMRX
- F NN=1:1:GN(2)+1 S GI="XO"_NN I $D(GMRLINE(GI)) D
- .I IOSL<($Y+6) S GMRI(1)=GMRI D FOOTER,HEADER,DATES W !,?20,"|",?21,GMRX S GMRI=GMRI(1)
- .W !,?3,$S(NN<(GN(2)+1):$E($P(^GMRD(126.58,+$O(^GMRD(126.58,"C",NN,0)),0),"^"),1,6),NN=(GN(2)+1):"TOTAL",1:" "),?10,"|",GMRLINE(GI)
- Q
- SETDATA ; FILL GMRLINE WITH I/O DATA AND WRITE GMRLINE
- F GMRI="XI","XO" S GMRY=0 F S GMRY=$O(^TMP($J,GMRI,GMRY)) Q:GMRY'>0 D
- . I $D(^TMP($J,GMRI,GMRY,GDT)) S GDATA=$O(^TMP($J,GMRI,GMRY,GDT,0)) S:GDATA>0 $P(GMRLINE(GMRI_GMRY),"|",GMRNM)=$J(GDATA,8) K ^TMP($J,"GMR",GMRI_GMRY,GDT),^TMP($J,GMRI,GMRY,GDT,GDATA)
- Q
- W ! W:GMRNAM'="" ?$X-3,$E(GMRNAM,1,35) W:SSN'="" " "_SSN W:GMRBTH'="" " "_GMRBTH W:GMRAGE'="" " "_GMRAGE_" YRS" W:GMRSEX'="" " "_GMRSEX
- W ?95,"MEDICAL RECORD" W !,"Unit: "_$S(GMRWARD(1)'="":GMRWARD(1),1:" ")," "_"Room: "_$S($P(VAIN(5),"^")'="":$P($P(VAIN(5),"^"),"-",1,2),1:" "),?95,"VITAL FLOW SHEET"
- D INP^VADPT S GMRVHLOC=$P($G(^DIC(42,+$G(VAIN(4)),44)),"^")
- W !,"Division: "_$S(GMRVHLOC>0:$$GET1^DIQ(4,+$$GET1^DIQ(44,+GMRVHLOC,3,"I"),.01,"I"),1:""),?55,"Page "_GMRPGC,?95,"VAF 10-7987 VICE SF 511",!
- W GSTRFIN Q
- DATES ;PRINT DATE/TIME COLUMNS FOR VITAL SIGNS-I/O SHEET
- W ?18,$$REPEAT^XLFSTR("_",109),!,?6,"Date/Time",?17,"|" S GMRLINE=GMRX1,GMRJ=0 F GMRI=1:1:10 S GMRJ=$O(^TMP($J,"GMRDT",GMRJ)) Q:GMRJ'>0 S GMRDT=$E(GMRJ,4,5)_"/"_$E(GMRJ,6,7)_"/"_$E(GMRJ,2,3),$P(GMRLINE,"|",GMRI)=GMRDT_" "
- W ?18,GMRLINE,! S GMRLINE=GMRX1,GMRJ=0 F GMRI=1:1:10 S GMRJ=$O(^TMP($J,"GMRDT",GMRJ)) Q:GMRJ'>0 S:+$P(GMRJ,".",2)>0 GMRDT=$E($P(GMRJ,".",2)_"0000000",1,4),$P(GMRLINE,"|",GMRI)=$E($E(GMRDT,1,2)_":"_$E(GMRDT,3,4)_" ",1,10)
- W ?17,"|",?18,GMRLINE
- Q
- W:'($E(IOST)'="C"&'GFLAG) @IOF S GFLAG=1,GMRPGC=GMRPGC+1
- W !,?116,"PAGE ",GMRPGC,!
- Q
- BP ;
- S GMR("B")=$O(^TMP($J,"GMR","B",GMRDT,"")) Q:GMR("B")=""
- I GMR("B")'>0,GMR("B")'="" S $P(GMRLINE("B"),"|",GMRNM)=$E(GMR("B")_" ",1,10),$P(GMRLINE("B1"),"|",GMRNM)=" ",$P(GMRLINE("B2"),"|",GMRNM)=" " Q
- S (GMRSITE,GMRSITE(1),GMRINF,GMRVJ)="" S:GMR("B")'="" GMRSITE(1)=$P(^TMP($J,"GMR","B",GMRDT,GMR("B")),"^"),GMRVJ=$P(^(GMR("B")),"^",2),GMRINF=$P(^(GMR("B")),"^",4)
- I GMRSITE(1)'="" S GI="B" D SYNOARY^GMRVLGQU
- S $P(GMRLINE("B"),"|",GMRNM)=$E($P(GMR("B"),"/",1,2)_" ",1,10)
- S $P(GMRLINE("B1"),"|",GMRNM)=$E($P(GMR("B"),"/",3)_" "_$S($L(GMRSITE," ")>3:$P(GMRSITE," "),1:"")_" ",1,10)
- S $P(GMRLINE("B2"),"|",GMRNM)=$E($S($L(GMRSITE," ")>3:$P(GMRSITE," ",2,4),1:GMRSITE)_" ",1,10)
- Q
- GMRVVS2 ;HIRMFO/YH-PATIENT VITAL SIGNS-I/O SF 511 GRAPH - 2 ;7/15/97
- +1 ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997
- IO ;PRINT INTAKE/OUTPUT SECTION OF VITAL SIGNS-I/O SHEET
- +1 KILL ^TMP($JOB,"XI"),^TMP($JOB,"XO")
- +2 FOR NN=1:1:GN(1)+1
- SET GMRI="XI"_NN
- KILL GMRLINE(GMRI)
- +3 FOR NN=1:1:GN(2)+1
- SET GMRI="XO"_NN
- KILL GMRLINE(GMRI)
- +4 SET GMRNM=0
- FOR GMRDT=0:0
- SET GMRDT=$ORDER(^TMP($JOB,"GMRDT",GMRDT))
- IF GMRDT'>0
- QUIT
- SET GMRNM=GMRNM+1
- IF GMRNM>10
- QUIT
- SET GDT=+$EXTRACT(GMRDT,1,7)
- Begin DoDot:1
- +5 FOR NN=1:1:GN(1)+1
- SET GMRI="XI"_NN
- IF $DATA(^TMP($JOB,"GMR",GMRI,GDT))
- Begin DoDot:2
- +6 SET GMRYDT=$ORDER(^TMP($JOB,"GMR",GMRI,GDT,0))
- IF GMRYDT>0
- SET ^TMP($JOB,"XI",NN,GDT,GMRYDT)=""
- SET GMRLINE(GMRI)=GMRX1
- End DoDot:2
- +7 FOR NN=1:1:GN(2)+1
- SET GMRI="XO"_NN
- IF $DATA(^TMP($JOB,"GMR",GMRI,GDT))
- Begin DoDot:2
- +8 SET GMRYDT=$ORDER(^TMP($JOB,"GMR",GMRI,GDT,0))
- IF GMRYDT>0
- SET ^TMP($JOB,"XO",NN,GDT,GMRYDT)=""
- SET GMRLINE(GMRI)=GMRX1
- End DoDot:2
- End DoDot:1
- +9 SET GMRNM=0
- FOR GMRDT=0:0
- SET GMRDT=$ORDER(^TMP($JOB,"GMRDT",GMRDT))
- IF GMRDT'>0
- QUIT
- SET GMRNM=GMRNM+1
- IF GMRNM>10
- QUIT
- SET GDT=+$EXTRACT(GMRDT,1,7)
- DO SETDATA
- +10 IF IOSL<($Y+6)
- DO FOOTER
- DO HEADER
- DO DATES
- WRITE !,?15,"|",?16,GMRX
- +11 WRITE !,"Intake(24 Hr)(cc)",?20,"|",GMRX
- FOR NN=1:1:GN(1)+1
- SET GMRI="XI"_NN
- IF $DATA(GMRLINE(GMRI))
- Begin DoDot:1
- +12 IF IOSL<($Y+6)
- SET GMRI(1)=GMRI
- DO FOOTER
- DO HEADER
- DO DATES
- SET GMRI=GMRI(1)
- WRITE !,?20,"|",?21,GMRX
- +13 WRITE !,?3,$SELECT(NN=1:"IV",NN=2:"BLOOD",NN=3:"P NUTRI",NN=(GN(1)+1):"TOTAL",NN>3&(NN<(GN(1)+1)):$EXTRACT($PIECE(^GMRD(126.56,+$ORDER(^GMRD(126.56,"C",NN-3,0)),0),"^"),1,6),1:" "),?10,"|",GMRLINE(GMRI)
- End DoDot:1
- +14 IF IOSL<($Y+6)
- SET GMRI(1)=GMRI
- DO FOOTER
- DO HEADER
- DO DATES
- SET GMRI=GMRI(1)
- WRITE !,?10,"|",?11,GMRX
- +15 WRITE !,"Output(24 Hr)(cc)",?20,"|",GMRX
- +16 FOR NN=1:1:GN(2)+1
- SET GI="XO"_NN
- IF $DATA(GMRLINE(GI))
- Begin DoDot:1
- +17 IF IOSL<($Y+6)
- SET GMRI(1)=GMRI
- DO FOOTER
- DO HEADER
- DO DATES
- WRITE !,?20,"|",?21,GMRX
- SET GMRI=GMRI(1)
- +18 WRITE !,?3,$SELECT(NN<(GN(2)+1):$EXTRACT($PIECE(^GMRD(126.58,+$ORDER(^GMRD(126.58,"C",NN,0)),0),"^"),1,6),NN=(GN(2)+1):"TOTAL",1:" "),?10,"|",GMRLINE(GI)
- End DoDot:1
- +19 QUIT
- SETDATA ; FILL GMRLINE WITH I/O DATA AND WRITE GMRLINE
- +1 FOR GMRI="XI","XO"
- SET GMRY=0
- FOR
- SET GMRY=$ORDER(^TMP($JOB,GMRI,GMRY))
- IF GMRY'>0
- QUIT
- Begin DoDot:1
- +2 IF $DATA(^TMP($JOB,GMRI,GMRY,GDT))
- SET GDATA=$ORDER(^TMP($JOB,GMRI,GMRY,GDT,0))
- IF GDATA>0
- SET $PIECE(GMRLINE(GMRI_GMRY),"|",GMRNM)=$JUSTIFY(GDATA,8)
- KILL ^TMP($JOB,"GMR",GMRI_GMRY,GDT),^TMP($JOB,GMRI,GMRY,GDT,GDATA)
- End DoDot:1
- +3 QUIT
- +1 WRITE !
- IF GMRNAM'=""
- WRITE ?$X-3,$EXTRACT(GMRNAM,1,35)
- IF SSN'=""
- WRITE " "_SSN
- IF GMRBTH'=""
- WRITE " "_GMRBTH
- IF GMRAGE'=""
- WRITE " "_GMRAGE_" YRS"
- IF GMRSEX'=""
- WRITE " "_GMRSEX
- +2 WRITE ?95,"MEDICAL RECORD"
- WRITE !,"Unit: "_$SELECT(GMRWARD(1)'="":GMRWARD(1),1:" ")," "_"Room: "_$SELECT($PIECE(VAIN(5),"^")'="":$PIECE($PIECE(VAIN(5),"^"),"-",1,2),1:" "),?95,"VITAL FLOW SHEET"
- +3 DO INP^VADPT
- SET GMRVHLOC=$PIECE($GET(^DIC(42,+$GET(VAIN(4)),44)),"^")
- +4 WRITE !,"Division: "_$SELECT(GMRVHLOC>0:$$GET1^DIQ(4,+$$GET1^DIQ(44,+GMRVHLOC,3,"I"),.01,"I"),1:""),?55,"Page "_GMRPGC,?95,"VAF 10-7987 VICE SF 511",!
- +5 WRITE GSTRFIN
- QUIT
- DATES ;PRINT DATE/TIME COLUMNS FOR VITAL SIGNS-I/O SHEET
- +1 WRITE ?18,$$REPEAT^XLFSTR("_",109),!,?6,"Date/Time",?17,"|"
- SET GMRLINE=GMRX1
- SET GMRJ=0
- FOR GMRI=1:1:10
- SET GMRJ=$ORDER(^TMP($JOB,"GMRDT",GMRJ))
- IF GMRJ'>0
- QUIT
- SET GMRDT=$EXTRACT(GMRJ,4,5)_"/"_$EXTRACT(GMRJ,6,7)_"/"_$EXTRACT(GMRJ,2,3)
- SET $PIECE(GMRLINE,"|",GMRI)=GMRDT_" "
- +2 WRITE ?18,GMRLINE,!
- SET GMRLINE=GMRX1
- SET GMRJ=0
- FOR GMRI=1:1:10
- SET GMRJ=$ORDER(^TMP($JOB,"GMRDT",GMRJ))
- IF GMRJ'>0
- QUIT
- IF +$PIECE(GMRJ,".",2)>0
- SET GMRDT=$EXTRACT($PIECE(GMRJ,".",2)_"0000000",1,4)
- SET $PIECE(GMRLINE,"|",GMRI)=$EXTRACT($EXTRACT(GMRDT,1,2)_":"_$EXTRACT(GMRDT,3,4)_" ",1,10)
- +3 WRITE ?17,"|",?18,GMRLINE
- +4 QUIT
- +1 IF '($EXTRACT(IOST)'="C"&'GFLAG)
- WRITE @IOF
- SET GFLAG=1
- SET GMRPGC=GMRPGC+1
- +2 WRITE !,?116,"PAGE ",GMRPGC,!
- +3 QUIT
- BP ;
- +1 SET GMR("B")=$ORDER(^TMP($JOB,"GMR","B",GMRDT,""))
- IF GMR("B")=""
- QUIT
- +2 IF GMR("B")'>0
- IF GMR("B")'=""
- SET $PIECE(GMRLINE("B"),"|",GMRNM)=$EXTRACT(GMR("B")_" ",1,10)
- SET $PIECE(GMRLINE("B1"),"|",GMRNM)=" "
- SET $PIECE(GMRLINE("B2"),"|",GMRNM)=" "
- QUIT
- +3 SET (GMRSITE,GMRSITE(1),GMRINF,GMRVJ)=""
- IF GMR("B")'=""
- SET GMRSITE(1)=$PIECE(^TMP($JOB,"GMR","B",GMRDT,GMR("B")),"^")
- SET GMRVJ=$PIECE(^(GMR("B")),"^",2)
- SET GMRINF=$PIECE(^(GMR("B")),"^",4)
- +4 IF GMRSITE(1)'=""
- SET GI="B"
- DO SYNOARY^GMRVLGQU
- +5 SET $PIECE(GMRLINE("B"),"|",GMRNM)=$EXTRACT($PIECE(GMR("B"),"/",1,2)_" ",1,10)
- +6 SET $PIECE(GMRLINE("B1"),"|",GMRNM)=$EXTRACT($PIECE(GMR("B"),"/",3)_" "_$SELECT($LENGTH(GMRSITE," ")>3:$PIECE(GMRSITE," "),1:"")_" ",1,10)
- +7 SET $PIECE(GMRLINE("B2"),"|",GMRNM)=$EXTRACT($SELECT($LENGTH(GMRSITE," ")>3:$PIECE(GMRSITE," ",2,4),1:GMRSITE)_" ",1,10)
- +8 QUIT
