NURARWL7.m

NURARWL7 ;HIRMFO/MD,FT-DAILY TOTAL ROUTINE FOR AMIS WORKLOAD STATISTICS REPORT ;9/20/96

 ;;4.0;NURSING SERVICE;;Apr 25, 1997

DAYTL ; DAY SUMMARY FOR AMIS WORKLOAD REPORTS

 I $G(NWARD),$G(NURSUMSW) D

 .  I $Y>(IOSL-4) D HEADER^NURARWL8 Q:NUROUT

 .  D DATE^NURARWL8

 .  Q

 F Y=1,2,3 D

 . S $P(NDVAR,U,Y)=$J($P(NDFTEE,U,Y),1,1)-$J($P(NDREQ,U,Y),1,1) I $J($P(NDFTEE,U,Y),1,1),$J($P(NDREQ,U,Y),1,1),NURSZAP'>6,NDPCC S $P(NDPROD,U,Y)=($J($P(NDREQ,U,Y),1,1)/$J($P(NDFTEE,U,Y),1,1))*100

 . S $P(NCVAR,U,Y)=$J($P(NCFT,U,Y),1,1)-$J($P(NCRQ,U,Y),1,1) I $J($P(NCFT,U,Y),1,1),$J($P(NCRQ,U,Y),1,1),NURSZAP'>6,NCPCC S $P(NCPROD,U,Y)=($J($P(NCRQ,U,Y),1,1)/$J($P(NCFT,U,Y),1,1))*100

 . Q

 W !,?18,$$REPEAT^XLFSTR("-",114) S NDATED(2)=$E(NDATE,4,5)_"/"_$E(NDATE,6,7)_"/"_$E(NDATE,2,3)

 D 

 . W !,NDATED(2)," SUMMARY",?22,$J($P(NDREQ,U),4,1),?28,$J($P(NDFTEE,U),4,1),?34,$J($P(NDVAR,U),5,1) W:NURSZAP'>6 ?41,$J($P(NDPROD,U),3,0) W ?48,$J($P(NDREQ,U,2),4,1),?54,$J($P(NDFTEE,U,2),4,1)

 .  W ?60,$J($P(NDVAR,U,2),5,1) W:NURSZAP'>6 ?67,$J($P(NDPROD,U,2),3,0) W ?74,$J($P(NDREQ,U,3),4,1),?80,$J($P(NDFTEE,U,3),4,1),?86,$J($P(NDVAR,U,3),5,1) W:NURSZAP'>6 ?93,$J($P(NDPROD,U,3),3,0)

 .  W ?97,$J($P(NDPC,U),4,1),?103,$J($P(NDPC,U,2),4,1),?109,$J($P(NDPC,U,3),4,1),?115,$J($P(NDPC,U,4),4,1),?122,$J($P(NDPC,U,5),3,1),?126,$J(NDPCC,5,1)

 . Q

 F Z="DOM","REC","HEM" I +DMNHRS(Z)!(+$P(DMNHRS(Z),U,2))!(+$P(DMNHRS(Z),U,3))!(+DCOUNT(Z)) D

 .  W !,NDATED(2)," ",Z," COUNT",?28,$J(+DMNHRS(Z),4,1),?54,$J($P(DMNHRS(Z),U,2),4,1),?80,$J($P(DMNHRS(Z),U,3),4,1)

 .  W ?97,$J(+DCOUNT(Z),4,1),?103,$J($P(DCOUNT(Z),U,2),4,1),?109,$J($P(DCOUNT(Z),U,3),4,1),?115,$J($P(DCOUNT(Z),U,4),4,1),?122,$J($P(DCOUNT(Z),U,5),3,1),?126,$J(+DCOUNT(Z),5,1)

 .  S DCOUNT(Z)=0

 .  Q

 F X=1:1:3 S $P(NDREQ,U,X)=0,$P(NDFTEE,U,X)=0,$P(NDVAR,U,X)=0,$P(NDPROD,U,X)=0,$P(NCFT,U,X)=0,$P(NCVAR,U,X)=0,$P(NCPROD,U,X)=0 F Z="DOM","REC","HEM" S $P(DMNHRS(Z),U,X)=0

 F X=1:1:5 S $P(NDPC,U,X)=0

 S NDPCC=0,NBR=1

 Q

PRINT ;

 ; DETAIL LINE PRINT FOR AMIS WORKLOAD REPORT

 ;

 Q:$G(NURSUMSW)

 I ($Y>(IOSL-9)) S:'NURMDSW NBRK=0 D HEADER^NURARWL8 Q:NUROUT

 W ! I NBR W !,$E(NPLOC,1,10)

 W ?11,$S(NSHFT=1:"NIGHT",NSHFT=2:"DAY",NSHFT=3:"EVE"),?17,$J(NSEC,3) S:NBR NBR=0

 I 'COUNTSW W ?23,$S(SECT="ATC":" N/A",1:$J($P(NREQ(NSHFT),U),3,1))

 W ?29,$J($P(NDFTEE(NSHFT),U),3,1)

 I 'COUNTSW W ?35,$J($P(NVAR(NSHFT),U),4,1) W:NURSZAP'>6 ?41,$J($P(NPROD(NSHFT),U),3,0) W ?49,$S($P(NURS213,U)="ATC":" N/A",1:$J($P(NREQ(NSHFT),U,2),3,1))

 W ?55,$J($P(NDFTEE(NSHFT),U,2),3,1)

 I 'COUNTSW W ?61,$J($P(NVAR(NSHFT),U,2),4,1) W:NURSZAP'>6 ?67,$J($P(NPROD(NSHFT),U,2),3,0) W ?75,$S($P(NURS213,U)="ATC":" N/A",1:$J($P(NREQ(NSHFT),U,3),3,1))

 W ?81,$J($P(NDFTEE(NSHFT),U,3),3,1)

 I 'COUNTSW W ?87,$J($P(NVAR(NSHFT),U,3),4,1) W:NURSZAP'>6 ?93,$J($P(NPROD(NSHFT),U,3),3,0)

 W ?98,$J($P(NPC(NSHFT),U),3),?104,$J($P(NPC(NSHFT),U,2),3),?110,$J($P(NPC(NSHFT),U,3),3),?116,$J($P(NPC(NSHFT),U,4),3),?122,$J($P(NPC(NSHFT),U,5),3),?126,$J(NPCC(NSHFT),4)

 Q

EN1 ; ENTRY POINT TO OPTION NURAPR-RES-CURWKL-QUEUE

 S NHOS=1,NURSZAP=6,(NUROUT,NPCT,NURQUIT,NURMDSW,NURPLSW,NSW1,NURQUEUE)=0 D EN9^NURSAGSP S:NURMDSW NURFAC=1 S:NURPLSW NPROG=1

 I '$P($G(^DIC(213.9,1,0)),U,7) D  S DIE="^DIC(213.9,",DA=1,DR="8" D ^DIE K DIE,DR I "^"[X S NUROUT=1 Q

 .  W !,$C(7),?5,"The professional percentage default site parameter, for wards without an",!,?5,"entry in the professional percentage field, in the NURS LOCATION File",!,?5,"entry must be entered: ",!

 .  Q

 I '$D(^NURSF(211.4,"ABS")) W !!,$C(7),"To generate this report AMIS Bedsections must be associated with MAS locations",!,"Contact the NURSING ADP Coordinator." S NUROUT=1 Q

 S NURY(1)=$P(^DIC(213.9,1,0),"^",4,6) D NOW^%DTC S NURY(0)=$E($P(%,".",2)_"0001",1,4)

 S NURY(2)=$S(NURY(0)>+$P(NURY(1),U,2)!(NURY(0)'>+$P(NURY(1),U,3)):"N",NURY(0)>+$P(NURY(1),U,3)&((NURY(0)'>+$P(NURY(1),U))):"D",1:"E")

 I NURY(2)="" S NUROUT=1 Q

 S NURY=$S(NURY(2)="N":"D",NURY(2)="D":"E",1:"N") ;use next shift

 S NURSHFT=NURY

 S NRPTDAT("PWLS")="" ;flag to indicate projected output

 Q

EN2 ;

 S (NURQUIT,NURMDSW,NSW1,NURQUEUE)=0,REQWRD="" D EN9^NURSAGSP S:NURMDSW NURFAC=1

 Q

NURARWL7  ;HIRMFO/MD,FT-DAILY TOTAL ROUTINE FOR AMIS WORKLOAD STATISTICS REPORT ;9/20/96

 +1       ;;4.0;NURSING SERVICE;;Apr 25, 1997

DAYTL     ; DAY SUMMARY FOR AMIS WORKLOAD REPORTS

 +1        IF $GET(NWARD)

               IF $GET(NURSUMSW)

                   Begin DoDot:1

 +2                    IF $Y>(IOSL-4)

                           DO HEADER^NURARWL8

                           IF NUROUT

                               QUIT 

 +3                    DO DATE^NURARWL8

 +4                    QUIT 

                   End DoDot:1

 +5        FOR Y=1,2,3

               Begin DoDot:1

 +6                SET $PIECE(NDVAR,U,Y)=$JUSTIFY($PIECE(NDFTEE,U,Y),1,1)-$JUSTIFY($PIECE(NDREQ,U,Y),1,1)

                   IF $JUSTIFY($PIECE(NDFTEE,U,Y),1,1)

                       IF $JUSTIFY($PIECE(NDREQ,U,Y),1,1)

                           IF NURSZAP'>6

                               IF NDPCC

                                   SET $PIECE(NDPROD,U,Y)=($JUSTIFY($PIECE(NDREQ,U,Y),1,1)/$JUSTIFY($PIECE(NDFTEE,U,Y),1,1))*100

 +7                SET $PIECE(NCVAR,U,Y)=$JUSTIFY($PIECE(NCFT,U,Y),1,1)-$JUSTIFY($PIECE(NCRQ,U,Y),1,1)

                   IF $JUSTIFY($PIECE(NCFT,U,Y),1,1)

                       IF $JUSTIFY($PIECE(NCRQ,U,Y),1,1)

                           IF NURSZAP'>6

                               IF NCPCC

                                   SET $PIECE(NCPROD,U,Y)=($JUSTIFY($PIECE(NCRQ,U,Y),1,1)/$JUSTIFY($PIECE(NCFT,U,Y),1,1))*100

 +8                QUIT 

               End DoDot:1

 +9        WRITE !,?18,$$REPEAT^XLFSTR("-",114)

           SET NDATED(2)=$EXTRACT(NDATE,4,5)_"/"_$EXTRACT(NDATE,6,7)_"/"_$EXTRACT(NDATE,2,3)

 +10       Begin DoDot:1

 +11           WRITE !,NDATED(2)," SUMMARY",?22,$JUSTIFY($PIECE(NDREQ,U),4,1),?28,$JUSTIFY($PIECE(NDFTEE,U),4,1),?34,$JUSTIFY($PIECE(NDVAR,U),5,1)

               IF NURSZAP'>6

                   WRITE ?41,$JUSTIFY($PIECE(NDPROD,U),3,0)

               WRITE ?48,$JUSTIFY($PIECE(NDREQ,U,2),4,1),?54,$JUSTIFY($PIECE(NDFTEE,U,2),4,1)

 +12           WRITE ?60,$JUSTIFY($PIECE(NDVAR,U,2),5,1)

               IF NURSZAP'>6

                   WRITE ?67,$JUSTIFY($PIECE(NDPROD,U,2),3,0)

               WRITE ?74,$JUSTIFY($PIECE(NDREQ,U,3),4,1),?80,$JUSTIFY($PIECE(NDFTEE,U,3),4,1),?86,$JUSTIFY($PIECE(NDVAR,U,3),5,1)

               IF NURSZAP'>6

                   WRITE ?93,$JUSTIFY($PIECE(NDPROD,U,3),3,0)

 +13           WRITE ?97,$JUSTIFY($PIECE(NDPC,U),4,1),?103,$JUSTIFY($PIECE(NDPC,U,2),4,1),?109,$JUSTIFY($PIECE(NDPC,U,3),4,1),?115,$JUSTIFY($PIECE(NDPC,U,4),4,1),?122,$JUSTIFY($PIECE(NDPC,U,5),3,1),?126,$JUSTIFY(NDPCC,5,1)

 +14           QUIT 

           End DoDot:1

 +15       FOR Z="DOM","REC","HEM"

               IF +DMNHRS(Z)!(+$PIECE(DMNHRS(Z),U,2))!(+$PIECE(DMNHRS(Z),U,3))!(+DCOUNT(Z))

                   Begin DoDot:1

 +16                   WRITE !,NDATED(2)," ",Z," COUNT",?28,$JUSTIFY(+DMNHRS(Z),4,1),?54,$JUSTIFY($PIECE(DMNHRS(Z),U,2),4,1),?80,$JUSTIFY($PIECE(DMNHRS(Z),U,3),4,1)

 +17                   WRITE ?97,$JUSTIFY(+DCOUNT(Z),4,1),?103,$JUSTIFY($PIECE(DCOUNT(Z),U,2),4,1),?109,$JUSTIFY($PIECE(DCOUNT(Z),U,3),4,1),?115,$JUSTIFY($PIECE(DCOUNT(Z),U,4),4,1),?122,$JUSTIFY($PIECE(DCOUNT(Z),U,5),3,1),?126,$JUSTIFY(+DCOUNT(Z),5,1)

 +18                   SET DCOUNT(Z)=0

 +19                   QUIT 

                   End DoDot:1

 +20       FOR X=1:1:3

               SET $PIECE(NDREQ,U,X)=0

               SET $PIECE(NDFTEE,U,X)=0

               SET $PIECE(NDVAR,U,X)=0

               SET $PIECE(NDPROD,U,X)=0

               SET $PIECE(NCFT,U,X)=0

               SET $PIECE(NCVAR,U,X)=0

               SET $PIECE(NCPROD,U,X)=0

               FOR Z="DOM","REC","HEM"

                   SET $PIECE(DMNHRS(Z),U,X)=0

 +21       FOR X=1:1:5

               SET $PIECE(NDPC,U,X)=0

 +22       SET NDPCC=0

           SET NBR=1

 +23       QUIT 

PRINT     ;

 +1       ; DETAIL LINE PRINT FOR AMIS WORKLOAD REPORT

 +2       ;

 +3        IF $GET(NURSUMSW)

               QUIT 

 +4        IF ($Y>(IOSL-9))

               IF 'NURMDSW

                   SET NBRK=0

               DO HEADER^NURARWL8

               IF NUROUT

                   QUIT 

 +5        WRITE !

           IF NBR

               WRITE !,$EXTRACT(NPLOC,1,10)

 +6        WRITE ?11,$SELECT(NSHFT=1:"NIGHT",NSHFT=2:"DAY",NSHFT=3:"EVE"),?17,$JUSTIFY(NSEC,3)

           IF NBR

               SET NBR=0

 +7        IF 'COUNTSW

               WRITE ?23,$SELECT(SECT="ATC":" N/A",1:$JUSTIFY($PIECE(NREQ(NSHFT),U),3,1))

 +8        WRITE ?29,$JUSTIFY($PIECE(NDFTEE(NSHFT),U),3,1)

 +9        IF 'COUNTSW

               WRITE ?35,$JUSTIFY($PIECE(NVAR(NSHFT),U),4,1)

               IF NURSZAP'>6

                   WRITE ?41,$JUSTIFY($PIECE(NPROD(NSHFT),U),3,0)

               WRITE ?49,$SELECT($PIECE(NURS213,U)="ATC":" N/A",1:$JUSTIFY($PIECE(NREQ(NSHFT),U,2),3,1))

 +10       WRITE ?55,$JUSTIFY($PIECE(NDFTEE(NSHFT),U,2),3,1)

 +11       IF 'COUNTSW

               WRITE ?61,$JUSTIFY($PIECE(NVAR(NSHFT),U,2),4,1)

               IF NURSZAP'>6

                   WRITE ?67,$JUSTIFY($PIECE(NPROD(NSHFT),U,2),3,0)

               WRITE ?75,$SELECT($PIECE(NURS213,U)="ATC":" N/A",1:$JUSTIFY($PIECE(NREQ(NSHFT),U,3),3,1))

 +12       WRITE ?81,$JUSTIFY($PIECE(NDFTEE(NSHFT),U,3),3,1)

 +13       IF 'COUNTSW

               WRITE ?87,$JUSTIFY($PIECE(NVAR(NSHFT),U,3),4,1)

               IF NURSZAP'>6

                   WRITE ?93,$JUSTIFY($PIECE(NPROD(NSHFT),U,3),3,0)

 +14       WRITE ?98,$JUSTIFY($PIECE(NPC(NSHFT),U),3),?104,$JUSTIFY($PIECE(NPC(NSHFT),U,2),3),?110,$JUSTIFY($PIECE(NPC(NSHFT),U,3),3),?116,$JUSTIFY($PIECE(NPC(NSHFT),U,4),3),?122,$JUSTIFY($PIECE(NPC(NSHFT),U,5),3),?126,$JUSTIFY(NPCC(NSHFT),4)

 +15       QUIT 

EN1       ; ENTRY POINT TO OPTION NURAPR-RES-CURWKL-QUEUE

 +1        SET NHOS=1

           SET NURSZAP=6

           SET (NUROUT,NPCT,NURQUIT,NURMDSW,NURPLSW,NSW1,NURQUEUE)=0

           DO EN9^NURSAGSP

           IF NURMDSW

               SET NURFAC=1

           IF NURPLSW

               SET NPROG=1

 +2        IF '$PIECE($GET(^DIC(213.9,1,0)),U,7)

               Begin DoDot:1

 +3                WRITE !,$CHAR(7),?5,"The professional percentage default site parameter, for wards without an",!,?5,"entry in the professional percentage field, in the NURS LOCATION File",!,?5,"entry must be entered: ",!

 +4                QUIT 

               End DoDot:1

               SET DIE="^DIC(213.9,"

               SET DA=1

               SET DR="8"

               DO ^DIE

               KILL DIE,DR

               IF "^"[X

                   SET NUROUT=1

                   QUIT 

 +5        IF '$DATA(^NURSF(211.4,"ABS"))

               WRITE !!,$CHAR(7),"To generate this report AMIS Bedsections must be associated with MAS locations",!,"Contact the NURSING ADP Coordinator."

               SET NUROUT=1

               QUIT 

 +6        SET NURY(1)=$PIECE(^DIC(213.9,1,0),"^",4,6)

           DO NOW^%DTC

           SET NURY(0)=$EXTRACT($PIECE(%,".",2)_"0001",1,4)

 +7        SET NURY(2)=$SELECT(NURY(0)>+$PIECE(NURY(1),U,2)!(NURY(0)'>+$PIECE(NURY(1),U,3)):"N",NURY(0)>+$PIECE(NURY(1),U,3)&((NURY(0)'>+$PIECE(NURY(1),U))):"D",1:"E")

 +8        IF NURY(2)=""

               SET NUROUT=1

               QUIT 

 +9       ;use next shift

           SET NURY=$SELECT(NURY(2)="N":"D",NURY(2)="D":"E",1:"N")

 +10       SET NURSHFT=NURY

 +11      ;flag to indicate projected output

           SET NRPTDAT("PWLS")=""

 +12       QUIT 

EN2       ;

 +1        SET (NURQUIT,NURMDSW,NSW1,NURQUEUE)=0

           SET REQWRD=""

           DO EN9^NURSAGSP

           IF NURMDSW

               SET NURFAC=1

 +2        QUIT