NURA5B.m

NURA5B ;HIRMFO/PC,RM,JH,MD,FT-INDIVIDUAL SALARY REPORTS ;5/7/96  10:57

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

 Q:'$D(^DIC(213.9,1,"OFF"))  Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1

 W !

 S (NUROUT,NURQUEUE)=0

 D EN1^NURSAUTL G QUIT:NUROUT

 S DIC("S")="I +$$EN6^NURSUT3($G(Y))"

 D EN3^NURSAGP1 G QUIT:NUROUT

 W ! S ZTRTN="START^NURA5B" D EN7^NURSUT0 G:POP!($D(ZTSK)) QUIT

START ;

 K ^TMP($J)

 U IO S (NURPAGE,NURSW1,NUROUT)=0 D HEADER,PRINT

QUIT K ^TMP($J) D CLOSE^NURSUT1,^NURAKILL

 Q

 ; DETAIL LINE PRINT ROUTINE

PRINT I $D(^NURSF(210,N1,0)) D WRITE Q

 E  W !?5," NO RECORD FOUND FOR THIS EMPLOYEE " Q

WRITE I ($Y>(IOSL-6)) D HEADER Q:NUROUT

 S NURSW1=1

 W:N2'="" !,$E($P(^VA(200,N2,0),"^",1),1,20)

 I $D(^NURSF(210,N1,7)) S NDATA=^(7) I $D(^NURSF(211.1,+NDATA,0)) S NDATA(1)=^(0) W:$P(NDATA(1),"^")'="" ?40,$P(NDATA(1),"^")

 S DA=N1,NURSAL=+$$EN12^NURSUT0(DA) W:+$G(NURSAL) ?61,$J(NURSAL,6,2)

 Q

HEADER I 'NURQUEUE,$E(IOST)="C",NURSW1 D ENDPG^NURSUT1 Q:NUROUT

 S NURPAGE=NURPAGE+1 W:$E(IOST)="C"!(NURPAGE>1) @IOF

 W !!,"NURSING SERVICE STAFF SALARIES" S X="T" D ^%DT D:+Y D^DIQ W ?44,Y,?59,"PAGE: ",NURPAGE

 W !!,?40,"GRADE/STEP",?61,"GRADE/STEP" W !,"NAME",?40,"CODE",?61,"SALARY" W !,$$REPEAT^XLFSTR("-",80)

 W ! Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---NURA5B   1237     printed  Apr 09, 2024@21:25:05                                                                                                                                                                                                      Page 2

NURA5B    ;HIRMFO/PC,RM,JH,MD,FT-INDIVIDUAL SALARY REPORTS ;5/7/96  10:57

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

 +2        if '$DATA(^DIC(213.9,1,"OFF"))

               QUIT 

           if $PIECE(^DIC(213.9,1,"OFF"),"^",1)=1

               QUIT 

 +3        WRITE !

 +4        SET (NUROUT,NURQUEUE)=0

 +5        DO EN1^NURSAUTL

           if NUROUT

               GOTO QUIT

 +6        SET DIC("S")="I +$$EN6^NURSUT3($G(Y))"

 +7        DO EN3^NURSAGP1

           if NUROUT

               GOTO QUIT

 +8        WRITE !

           SET ZTRTN="START^NURA5B"

           DO EN7^NURSUT0

           if POP!($DATA(ZTSK))

               GOTO QUIT

START     ;

 +1        KILL ^TMP($JOB)

 +2        USE IO

           SET (NURPAGE,NURSW1,NUROUT)=0

           DO HEADER

           DO PRINT

QUIT       KILL ^TMP($JOB)

           DO CLOSE^NURSUT1

           DO ^NURAKILL

 +1        QUIT 

 +2       ; DETAIL LINE PRINT ROUTINE

PRINT      IF $DATA(^NURSF(210,N1,0))

               DO WRITE

               QUIT 

 +1       IF '$TEST

               WRITE !?5," NO RECORD FOUND FOR THIS EMPLOYEE "

               QUIT 

WRITE      IF ($Y>(IOSL-6))

               DO HEADER

               if NUROUT

                   QUIT 

 +1        SET NURSW1=1

 +2        if N2'=""

               WRITE !,$EXTRACT($PIECE(^VA(200,N2,0),"^",1),1,20)

 +3        IF $DATA(^NURSF(210,N1,7))

               SET NDATA=^(7)

               IF $DATA(^NURSF(211.1,+NDATA,0))

                   SET NDATA(1)=^(0)

                   if $PIECE(NDATA(1),"^")'=""

                       WRITE ?40,$PIECE(NDATA(1),"^")

 +4        SET DA=N1

           SET NURSAL=+$$EN12^NURSUT0(DA)

           if +$GET(NURSAL)

               WRITE ?61,$JUSTIFY(NURSAL,6,2)

 +5        QUIT 

HEADER     IF 'NURQUEUE

               IF $EXTRACT(IOST)="C"

                   IF NURSW1

                       DO ENDPG^NURSUT1

                       if NUROUT

                           QUIT 

 +1        SET NURPAGE=NURPAGE+1

           if $EXTRACT(IOST)="C"!(NURPAGE>1)

               WRITE @IOF

 +2        WRITE !!,"NURSING SERVICE STAFF SALARIES"

           SET X="T"

           DO ^%DT

           if +Y

               DO D^DIQ

           WRITE ?44,Y,?59,"PAGE: ",NURPAGE

 +3        WRITE !!,?40,"GRADE/STEP",?61,"GRADE/STEP"

           WRITE !,"NAME",?40,"CODE",?61,"SALARY"

           WRITE !,$$REPEAT^XLFSTR("-",80)

 +4        WRITE !

           QUIT