source: FOIAVistA/trunk/r/PAID-PRS/PRSEPMD1.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 745 bytes
Line 
1PRSEPMD1 ;HISC/GLB-INCOMPLETE NURSING MANDATORY INSERVICE CLASS DATA PART 2 OF 2 ;2/17/94 11:19
2 ;;4.0;PAID;**20**;Sep 21, 1995
3HDR ; PRINT REPORT HEARDER
4 I NSW1,$E(IOST)="C" D ENDPG^PRSEUTL S PRSEOUT=+POUT Q:PRSEOUT
5 S COUNT=COUNT+1,(HOLD,NSW1)=1,NSW2=0
6 W:$E(IOST)="C"!(COUNT>1) @IOF W !,"INDIVIDUAL MANDATORY TRAINING DEFICIENCY REPORT FOR "_$S(TYP="C":"CY ",TYP="F":"FY ",1:" ")
7 W $S(TYP="C"!(TYP="F"):$G(PYR),1:$G(YRST(1))_" - "_$G(YREND(1)))
8 S Y=DT D:+Y D^DIQ
9 I PRSE132 D
10 . W ?101,Y,?121,"PAGE: ",COUNT
11 . W !!,"NAME",?33,"SERVICE",?56,"DEFICIENT AS OF",?79,"CLASS"
12 . Q
13 E D
14 . W !?57,Y,?71,"PAGE: ",COUNT
15 . W !!,"NAME",?20,"SERVICE",?37,"DEFICIENT",?55,"CLASS",!?37,"AS OF"
16 . Q
17 S $P(SE1,"-",$S(PRSE132:133,1:81))="" W !,SE1
18 Q
Note: See TracBrowser for help on using the repository browser.