NURSEPD1.m

NURSEPD1 ;HIRMFO/GLB-INCOMPLETE NURSING MANDATORY INSERVICE CLASS DATA PART 2 OF 2 ;4/19/89  09:37

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

HDR ; PRINT REPORT HEARDER

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

 S COUNT=COUNT+1,(HOLD,HOLD2,NURSW1)=1,NSW2=0 W:'($E(IOST)="P"&(COUNT=1)) @IOF W !,"INDIVIDUAL EMPLOYEE DEFICIENCY REPORT FOR "_$S(TYP="C":"CY ",TYP="F":"FY ",1:" ")

 W $S(TYP="C"!(TYP="F"):$G(NYR),1:$G(YRST(1))_" - "_$G(YREND(1)))

 W ?$S(NURS132:101,1:62),$$FMTE^XLFDT(DT,2),?$S(NURS132:121,1:71),"PAGE: ",COUNT

 W !!,?$S(NURS132:56,1:35),"ANNIVERSARY",!,"EMPLOYEE NAME",?$S(NURS132:46,1:25),"UNIT",?$S(NURS132:56,1:35),"DATE",?$S(NURS132:79,1:47),"CLASS"

 W !,$$REPEAT^XLFSTR("-",$S(NURS132:132,1:80))

 Q

NURSEPD1  ;HIRMFO/GLB-INCOMPLETE NURSING MANDATORY INSERVICE CLASS DATA PART 2 OF 2 ;4/19/89  09:37

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

HDR       ; PRINT REPORT HEARDER

 +1        IF NURSW1

               IF $EXTRACT(IOST)="C"

                   DO ENDPG^NURSUT1

                   IF NUROUT

                       QUIT 

 +2        SET COUNT=COUNT+1

           SET (HOLD,HOLD2,NURSW1)=1

           SET NSW2=0

           IF '($EXTRACT(IOST)="P"&(COUNT=1))

               WRITE @IOF

           WRITE !,"INDIVIDUAL EMPLOYEE DEFICIENCY REPORT FOR "_$SELECT(TYP="C":"CY ",TYP="F":"FY ",1:" ")

 +3        WRITE $SELECT(TYP="C"!(TYP="F"):$GET(NYR),1:$GET(YRST(1))_" - "_$GET(YREND(1)))

 +4        WRITE ?$SELECT(NURS132:101,1:62),$$FMTE^XLFDT(DT,2),?$SELECT(NURS132:121,1:71),"PAGE: ",COUNT

 +5        WRITE !!,?$SELECT(NURS132:56,1:35),"ANNIVERSARY",!,"EMPLOYEE NAME",?$SELECT(NURS132:46,1:25),"UNIT",?$SELECT(NURS132:56,1:35),"DATE",?$SELECT(NURS132:79,1:47),"CLASS"

 +6        WRITE !,$$REPEAT^XLFSTR("-",$SELECT(NURS132:132,1:80))

 +7        QUIT