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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURSEPD1 733 printed Oct 16, 2024@18:22:51 Page 2
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
