Routine: PRSEPMD6

Information

PRSEPMD6 ;HISC/GLB-INCOMPLETE MANDATORY INSERVICE CLASS DATA PART 2 OF 2 ;2/17/94

Name	Comments	DBIA/ICR reference
HDR	; PRINT REPORT HEARDER
SUBHDR	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO DEFICIENCIES FOUND FOR THIS TIME PERIOD." Line Location: PRSEPMD6+2
Function Call: WRITE	Prompt: !,"SERVICE: ",PSPC Condition for execution: $G(PSPC)]"" Line Location: PRSEPMD6+2
Function Call: WRITE	Prompt: !,"CLASS: ",PRSECLS Condition for execution: $G(PRSECLS)]"" Line Location: PRSEPMD6+2
Function Call: WRITE	Prompt: ! Line Location: PRSEPMD6+7
Function Call: WRITE	Prompt: ! Line Location: PRSEPMD6+11
Function Call: WRITE	Prompt: ! Line Location: PRSEPMD6+13
Function Call: WRITE	Prompt: $S(NSCT=" BLANK":" ",1:$S(PRSE132:$E(NSCT,1,32),1:$E(NSCT,1,25))),! Line Location: PRSEPMD6+14
Function Call: WRITE	Prompt: ?10,$S(NAM=" BLANK":" ",1:$S(PRSE132:NAM,1:$E(NAM,1,25))) Line Location: PRSEPMD6+15
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST)="C"!(COUNT>1) Line Location: HDR+3
Function Call: WRITE	Prompt: !,"SERVICE MANDATORY TRAINING DEFICIENCY REPORT FOR "_$S(TYP="C":"CY ",TYP="F":"FY ",1:" ") Line Location: HDR+3
Function Call: WRITE	Prompt: $S(TYP="C"!(TYP="F"):$G(PYR),1:$G(YRST(1))_" - "_$G(YREND(1))) Line Location: HDR+4
Function Call: WRITE	Prompt: !,SE1 Line Location: HDR+12
Function Call: WRITE	Prompt: !,"Service: "_$S(PRSESER=" BLANK":" ",1:PRSESER) Line Location: SUBHDR+2
Function Call: WRITE	Prompt: ?50,"% Compliance: ",$J(COMPLIAN,3,0) Line Location: SUBHDR+7
Function Call: WRITE	Prompt: ?$X+3,PRSECLS Line Location: SUBHDR+7
Function Call: WRITE	Prompt: !! Line Location: SUBHDR+8