source: WorldVistAEHR/trunk/r/NURSING_SERVICE-NUR/NURSEPD1.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 723 bytes
Line 
1NURSEPD1 ;HIRMFO/GLB-INCOMPLETE NURSING MANDATORY INSERVICE CLASS DATA PART 2 OF 2 ;4/19/89 09:37
2 ;;4.0;NURSING SERVICE;**3**;Apr 25, 1997
3HDR ; PRINT REPORT HEARDER
4 I NURSW1,$E(IOST)="C" D ENDPG^NURSUT1 Q:NUROUT
5 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:" ")
6 W $S(TYP="C"!(TYP="F"):$G(NYR),1:$G(YRST(1))_" - "_$G(YREND(1)))
7 W ?$S(NURS132:101,1:62),$$FMTE^XLFDT(DT,2),?$S(NURS132:121,1:71),"PAGE: ",COUNT
8 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"
9 W !,$$REPEAT^XLFSTR("-",$S(NURS132:132,1:80))
10 Q
Note: See TracBrowser for help on using the repository browser.