Routine: PRCSD122

Information

PRCSD122 ;WISC/SAW-CONTROL POINT ACT. 2237 TERM. DISP. CON'T ;4/21/93 08:46

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"JUSTIFICATION OF NEED OR TURN-IN" Line Location: V+3
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",DIWL,K,0) Line Location: V+6
Function Call: WRITE	Prompt: !,L Line Location: SIG+2
Function Call: WRITE	Prompt: $P($G(^VA(200,XNAME,0)),"^") Line Location: SIG+3
Function Call: WRITE	Prompt: !,"Signature of Initiator",?37,"Signature of Approving Official Date" Line Location: SIG+4
Function Call: WRITE	Prompt: ! Line Location: SIG+5
Function Call: WRITE	Prompt: !,?37 Line Location: SIG+6
Function Call: WRITE	Prompt: "/ES/",$$DECODE^PRCSC1(DA) Line Location: SIG+6
Function Call: WRITE	Prompt: $E($P(^(20),U,2),1,28) Line Location: SIG+7
Function Call: WRITE	Prompt: " (",$P(^(.13),U,2),")" Line Location: SIG+8
Function Call: WRITE	Prompt: ?37 Line Location: SIG+9
Function Call: WRITE	Prompt: $E($P(^(20),U,2),1,30) Line Location: SIG+9
Function Call: WRITE	Prompt: ?37 Line Location: SIG+10
Function Call: WRITE	Prompt: S Condition for execution: $P(^(7),U,4)'="" $P(^(7),U,4) W ?69 I $P(^(7),U,5)'="" Line Location: SIG+10
Function Call: WRITE	Prompt: Y Line Location: SIG+10
Function Call: WRITE	Prompt: !,$E(L,1,36) Line Location: SIG1+0
Function Call: WRITE	Prompt: " ",$E(L,38,68) Line Location: SIG1+1
Function Call: WRITE	Prompt: "------------" Line Location: SIG1+2
Function Call: WRITE	Prompt: !,"Appropriation and Accounting Symbols" Line Location: SIG1+3
Function Call: WRITE	Prompt: !,P,!,L Line Location: SIG1+8