- NURCYRP0 ;HIRMFO/YH-PATIENT INTAKE/OUTPUT REPORTS ;2/25/91
- ;;4.0;NURSING SERVICE;;Apr 25, 1997
- EN1 ;PATIENT I/O SUMMARY REPORT BY DATE AND SHIFT
- S X="GMRYRP0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN1^GMRYRP0 D QUIT Q
- EN2 ;PATIENT I/O SUMMARY REPORT FOR THE PREVIOUS DAY
- S X="GMRYRP0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN2^GMRYRP0 D QUIT Q
- EN3 ;PATIENT VITAL SIGNS & I/O SHEET - SF511
- S X="GMRYRP0" X ^%ZOSF("TEST") Q:'$T S X="GMRVVS0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1,GMROUT=0,NURQUIT=0 D ^NURCVUT0 G:NURQUIT!(NUREDB["S"&'$D(NRMBD)) Q D DATE^GMRVVS0 G:GMROUT Q
- DEV W !!,"This report must be queued to a line printer",!,"or a slave printer with 132 columns.",!!
- S %ZIS="Q" S %ZIS("B")="" D ^%ZIS K:POP IO("Q") G:POP Q I '(IOST?1"P".E&$D(IO("Q"))),'$D(IO("S")) D ^%ZISC G DEV
- I IOM'>130 D ^%ZISC K IO("Q"),IO("C") G DEV
- I $D(IO("Q")) K IO("Q"),IO("C") S ZTDESC="EXPANDED SF 511",ZTRTN="START^NURCYRP0",ZTIO=ION_";"_IOM_";"_IOSL D LOOP1,^%ZTLOAD,HOME^%ZIS D Q2^GMRVVS0 Q
- START K ^TMP($J,"NURCEN") S GFLAG=0,GMRNUR=1,NURRM="" D ^NURCAS2 I '$D(^TMP($J,"NURCEN")) W !,"NO DATA FOR THIS REPORT",! G Q
- F S NURRM=$O(^TMP($J,"NURCEN",NURRM)) Q:NURRM=""!NURQUIT S NBED="" F S NBED=$O(^TMP($J,"NURCEN",NURRM,NBED)) Q:NBED=""!NURQUIT S NURNAM="" F S NURNAM=$O(^TMP($J,"NURCEN",NURRM,NBED,NURNAM)) Q:NURNAM=""!NURQUIT D
- .S DFN=+$P($G(^TMP($J,"NURCEN",NURRM,NBED,NURNAM)),"^") D:DFN>0 EN1^GMRVVS0 S:GMROUT NURQUIT=1
- Q K ND1,NDA,NORM,NURP,NURRMST,NURSX,NURSY,NWLOC,NURQUIT,GMROUT,^TMP($J),NPWARD,NROOM,NUREDB,NURNAM,NURRM,POP,NBED,NAME,NURWARD D Q2^GMRVVS0 Q
- LOOP1 F G="GMROUT","NUREDB","NPWARD","NURWARD","NURQUIT","NRMBD(","GMRFIN","GMRSTRT","DFN" S ZTSAVE(G)=""
- K G Q
- EN4 ;PATIENT I/O SUMMARY FOR TODAY
- S X="GMRYRP0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN4^GMRYRP0 D QUIT Q
- EN5 ;I/O SUMMARY FOR 48 HRS
- S X="GMRYRP0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN5^GMRYRP0 D QUIT Q
- EN6 ;24 HOURS ITEMIZED SHIFT REPORT
- S X="GMRYSE0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN1^GMRYSE0 D QUIT Q
- EN7 ;INTRAVENOUS INFUSION FLOW SHEET
- S X="GMRYFLW0" X ^%ZOSF("TEST") Q:'$T S GMRNUR=1 D EN1^GMRYFLW0 K GMRNUR Q
- ;
- QUIT K I,GMRNUR,DFN Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURCYRP0 2162 printed Feb 18, 2025@23:47:30 Page 2
- NURCYRP0 ;HIRMFO/YH-PATIENT INTAKE/OUTPUT REPORTS ;2/25/91
- +1 ;;4.0;NURSING SERVICE;;Apr 25, 1997
- EN1 ;PATIENT I/O SUMMARY REPORT BY DATE AND SHIFT
- +1 SET X="GMRYRP0"
- XECUTE ^%ZOSF("TEST")
- if '$TEST
- QUIT
- SET GMRNUR=1
- DO EN1^GMRYRP0
- DO QUIT
- QUIT
- EN2 ;PATIENT I/O SUMMARY REPORT FOR THE PREVIOUS DAY
- +1 SET X="GMRYRP0"
- XECUTE ^%ZOSF("TEST")
- if '$TEST
- QUIT
- SET GMRNUR=1
- DO EN2^GMRYRP0
- DO QUIT
- QUIT
- EN3 ;PATIENT VITAL SIGNS & I/O SHEET - SF511
- +1 SET X="GMRYRP0"
- XECUTE ^%ZOSF("TEST")
- if '$TEST
- QUIT
- SET X="GMRVVS0"
- XECUTE ^%ZOSF("TEST")
- if '$TEST
- QUIT
- SET GMRNUR=1
- SET GMROUT=0
- SET NURQUIT=0
- DO ^NURCVUT0
- if NURQUIT!(NUREDB["S"&'$DATA(NRMBD))
- GOTO Q
- DO DATE^GMRVVS0
- if GMROUT
- GOTO Q
- DEV WRITE !!,"This report must be queued to a line printer",!,"or a slave printer with 132 columns.",!!
- +1 SET %ZIS="Q"
- SET %ZIS("B")=""
- DO ^%ZIS
- if POP
- KILL IO("Q")
- if POP
- GOTO Q
- IF '(IOST?1"P".E&$DATA(IO("Q")))
- IF '$DATA(IO("S"))
- DO ^%ZISC
- GOTO DEV
- +2 IF IOM'>130
- DO ^%ZISC
- KILL IO("Q"),IO("C")
- GOTO DEV
- +3 IF $DATA(IO("Q"))
- KILL IO("Q"),IO("C")
- SET ZTDESC="EXPANDED SF 511"
- SET ZTRTN="START^NURCYRP0"
- SET ZTIO=ION_";"_IOM_";"_IOSL
- DO LOOP1
- DO ^%ZTLOAD
- DO HOME^%ZIS
- DO Q2^GMRVVS0
- QUIT
- START KILL ^TMP($JOB,"NURCEN")
- SET GFLAG=0
- SET GMRNUR=1
- SET NURRM=""
- DO ^NURCAS2
- IF '$DATA(^TMP($JOB,"NURCEN"))
- WRITE !,"NO DATA FOR THIS REPORT",!
- GOTO Q
- +1 FOR
- SET NURRM=$ORDER(^TMP($JOB,"NURCEN",NURRM))
- if NURRM=""!NURQUIT
- QUIT
- SET NBED=""
- FOR
- SET NBED=$ORDER(^TMP($JOB,"NURCEN",NURRM,NBED))
- if NBED=""!NURQUIT
- QUIT
- SET NURNAM=""
- FOR
- SET NURNAM=$ORDER(^TMP($JOB,"NURCEN",NURRM,NBED,NURNAM))
- if NURNAM=""!NURQUIT
- QUIT
- Begin DoDot:1
- +2 SET DFN=+$PIECE($GET(^TMP($JOB,"NURCEN",NURRM,NBED,NURNAM)),"^")
- if DFN>0
- DO EN1^GMRVVS0
- if GMROUT
- SET NURQUIT=1
- End DoDot:1
- Q KILL ND1,NDA,NORM,NURP,NURRMST,NURSX,NURSY,NWLOC,NURQUIT,GMROUT,^TMP($JOB),NPWARD,NROOM,NUREDB,NURNAM,NURRM,POP,NBED,NAME,NURWARD
- DO Q2^GMRVVS0
- QUIT
- LOOP1 FOR G="GMROUT","NUREDB","NPWARD","NURWARD","NURQUIT","NRMBD(","GMRFIN","GMRSTRT","DFN"
- SET ZTSAVE(G)=""
- +1 KILL G
- QUIT
- EN4 ;PATIENT I/O SUMMARY FOR TODAY
- +1 SET X="GMRYRP0"
- XECUTE ^%ZOSF("TEST")
- if '$TEST
- QUIT
- SET GMRNUR=1
- DO EN4^GMRYRP0
- DO QUIT
- QUIT
- EN5 ;I/O SUMMARY FOR 48 HRS
- +1 SET X="GMRYRP0"
- XECUTE ^%ZOSF("TEST")
- if '$TEST
- QUIT
- SET GMRNUR=1
- DO EN5^GMRYRP0
- DO QUIT
- QUIT
- EN6 ;24 HOURS ITEMIZED SHIFT REPORT
- +1 SET X="GMRYSE0"
- XECUTE ^%ZOSF("TEST")
- if '$TEST
- QUIT
- SET GMRNUR=1
- DO EN1^GMRYSE0
- DO QUIT
- QUIT
- EN7 ;INTRAVENOUS INFUSION FLOW SHEET
- +1 SET X="GMRYFLW0"
- XECUTE ^%ZOSF("TEST")
- if '$TEST
- QUIT
- SET GMRNUR=1
- DO EN1^GMRYFLW0
- KILL GMRNUR
- QUIT
- +2 ;
- QUIT KILL I,GMRNUR,DFN
- QUIT
