NURCYRP0.m

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

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