Routine: PSOMGR31

Information

PSOMGR31 ;BHAM ISC/JMB - DAILY MANAGEMENT COST REPORT CONTD ; 3/19/93

Name	Comments	DBIA/ICR reference
TOT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?13 Line Location: TOT+1
Function Call: WRITE	Prompt: $J("=======",13) Line Location: TOT+1
Function Call: WRITE	Prompt: !,"GR TOTAL",?13 Line Location: TOT+2
Function Call: WRITE	Prompt: $J($FN($S($P(T2,"^",4)=0!($P(T3,"^",2)=0):0,1:$P(T3,"^",2)/$P(T2,"^",4)),"",2),13) Line Location: TOT+2
Function Call: WRITE	Prompt: $J($FN($S($P(S2(DIV),"^",4)=0!($P(T3,"^",2)=0):0,1:($P(S2(DIV),"^",4)*$P(T3,"^",2))/$P(S2(DIV),"^",4)),"",2),13) Line Location: TOT+5
Function Call: WRITE	Prompt: $J($FN($P(T3,"^",7),"",2),13),$J($FN($P(T3,"^",8),"",2),13),$J($FN($P(T3,"^",9),"",2),13) Line Location: TOT+8
Function Call: WRITE	Prompt: $J($FN($S($P(T3,"^",9)=0!($P(T2,"^",13)=0):0,1:$P(T3,"^",9)/$P(T2,"^",13)),"",2),13) Line Location: TOT+9
Function Call: WRITE	Prompt: $J($FN($S($P(T3,"^",9)=0!($P(S2(DIV),"^",13)=0):0,1:$P(T3,"^",9)/$P(S2(DIV),"^",13)),"",2),13) Line Location: TOT+10
Function Call: WRITE	Prompt: !!!?17,"FINISHED PRINTING ON: " Line Location: TOT+11
Function Call: WRITE	Prompt: Y Line Location: TOT+11
Function Call: WRITE	Prompt: @IOF Line Location: TOT+12