Routine: ECTP1S1

Information

ECTP1S1 ;B'ham ISC/PTD-PAID Data for One Service - CONTINUED ;01/29/91 08:00

Source file <ECTP1S1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?15,"==> NO DATA IN THE FILE FOR SELECTED SERVICE <==",!! Line Location: EN1+1
Function Call: WRITE	Prompt: !?14 Line Location: WRTOT+0
Function Call: WRITE	Prompt: "-" Line Location: WRTOT+0
Function Call: WRITE	Prompt: !?4,"TOTAL",?12,$J(SAL,6,2),?20,$J(SSL,6,2),?28,$J(SLWOP,6,2),?37,$J(SAA,6,2),?46,$J(SCE,6,2),?55,$J(SCU,6,2),?64,$J(SUNS,6,2),?73,$J(SOT,6,2),!! Line Location: WRTOT+1
Function Call: WRITE	Prompt: @IOF Line Location: WRTOT+3
Function Call: WRITE	Prompt: @IOF,!?16,"PAID DATA FOR "_SRVNM,!?16,"FROM PAY PERIOD: "_BPP_" - '"_$E(BYR,2,3)_" TO PAY PERIOD: "_EPP_" - '"_$E(EYR,2,3) Line Location: HDR+1
Function Call: WRITE	Prompt: !!?45,Y,?70,"PAGE ",PGCT Line Location: HDR+2
Function Call: WRITE	Prompt: !!?49,"CT",?58,"CT",?65,"UNSCH",?75,"OVER",!,"PAY PERIOD",?15,"AL",?23,"SL",?30,"LWOP",?40,"AA",?47,"EARNED",?57,"USED",?66,"REG",?75,"TIME",!,LN Line Location: HDR+2
Function Call: WRITE	Prompt: !?1,$E(YP,4,5)_" - '"_$E(YP,2,3),?12,$J($P(LOC,"^"),6,2),?20,$J($P(LOC,"^",2),6,2),?28,$J($P(LOC,"^",3),6,2),?37,$J($P(LOC,"^",4),6,2),?46,$J($P(LOC,"^",5),6,2) Line Location: WRTLN+0
Function Call: WRITE	Prompt: ?55,$J($P(LOC,"^",6),6,2),?64,$J($P(LOC,"^",7),6,2),?73,$J($P(LOC,"^",8),6,2) Line Location: WRTLN+1