- PRSEPMD1 ;HISC/GLB-INCOMPLETE NURSING MANDATORY INSERVICE CLASS DATA PART 2 OF 2 ;2/17/94 11:19
- ;;4.0;PAID;**20**;Sep 21, 1995
- HDR ; PRINT REPORT HEARDER
- I NSW1,$E(IOST)="C" D ENDPG^PRSEUTL S PRSEOUT=+POUT Q:PRSEOUT
- S COUNT=COUNT+1,(HOLD,NSW1)=1,NSW2=0
- W:$E(IOST)="C"!(COUNT>1) @IOF W !,"INDIVIDUAL MANDATORY TRAINING DEFICIENCY REPORT FOR "_$S(TYP="C":"CY ",TYP="F":"FY ",1:" ")
- W $S(TYP="C"!(TYP="F"):$G(PYR),1:$G(YRST(1))_" - "_$G(YREND(1)))
- S Y=DT D:+Y D^DIQ
- I PRSE132 D
- . W ?101,Y,?121,"PAGE: ",COUNT
- . W !!,"NAME",?33,"SERVICE",?56,"DEFICIENT AS OF",?79,"CLASS"
- . Q
- E D
- . W !?57,Y,?71,"PAGE: ",COUNT
- . W !!,"NAME",?20,"SERVICE",?37,"DEFICIENT",?55,"CLASS",!?37,"AS OF"
- . Q
- S $P(SE1,"-",$S(PRSE132:133,1:81))="" W !,SE1
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSEPMD1 763 printed Feb 18, 2025@23:53:15 Page 2
- PRSEPMD1 ;HISC/GLB-INCOMPLETE NURSING MANDATORY INSERVICE CLASS DATA PART 2 OF 2 ;2/17/94 11:19
- +1 ;;4.0;PAID;**20**;Sep 21, 1995
- HDR ; PRINT REPORT HEARDER
- +1 IF NSW1
- IF $EXTRACT(IOST)="C"
- DO ENDPG^PRSEUTL
- SET PRSEOUT=+POUT
- if PRSEOUT
- QUIT
- +2 SET COUNT=COUNT+1
- SET (HOLD,NSW1)=1
- SET NSW2=0
- +3 if $EXTRACT(IOST)="C"!(COUNT>1)
- WRITE @IOF
- WRITE !,"INDIVIDUAL MANDATORY TRAINING DEFICIENCY REPORT FOR "_$SELECT(TYP="C":"CY ",TYP="F":"FY ",1:" ")
- +4 WRITE $SELECT(TYP="C"!(TYP="F"):$GET(PYR),1:$GET(YRST(1))_" - "_$GET(YREND(1)))
- +5 SET Y=DT
- if +Y
- DO D^DIQ
- +6 IF PRSE132
- Begin DoDot:1
- +7 WRITE ?101,Y,?121,"PAGE: ",COUNT
- +8 WRITE !!,"NAME",?33,"SERVICE",?56,"DEFICIENT AS OF",?79,"CLASS"
- +9 QUIT
- End DoDot:1
- +10 IF '$TEST
- Begin DoDot:1
- +11 WRITE !?57,Y,?71,"PAGE: ",COUNT
- +12 WRITE !!,"NAME",?20,"SERVICE",?37,"DEFICIENT",?55,"CLASS",!?37,"AS OF"
- +13 QUIT
- End DoDot:1
- +14 SET $PIECE(SE1,"-",$SELECT(PRSE132:133,1:81))=""
- WRITE !,SE1
- +15 QUIT