Routine: PRCSD122

Information

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

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
IFCAP	3	$$DECODE^PRCSC1 NEWP^PRCSD121 DIWP^PRCUTL
VA FileMan	1	DD^%DT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
IFCAP	1	PRCSD12

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;107;Oct 20, 2000;Build 13
SIG	;PRINT SIGNATURE BLOCKS
SIG1

External References

Name	Field # of Occurrence
DD^%DT	SIG+10
$$DECODE^PRCSC1	SIG+6
NEWP^PRCSD121	V+2, V+6, SIG+1, SIG1+2
DIWP^PRCUTL	V+5

Interaction Calls

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(410	SIG+7, SIG+9
^PRCS(410 - [#410]	V+4, V+5, SIG+3, SIG+5, SIG+6, SIG+7, SIG+10, SIG1+4, SIG1+6, SIG1+7
^UTILITY($J	V+5!, V+6
^VA(200 - [#200]	SIG+3, SIG+7, SIG+8, SIG+9

Label References

Name	Line Occurrences
SIG	V+4
SIG1	SIG+5

Naked Globals

Name	Field # of Occurrence
^(	V+5, SIG+8
^(20	SIG+7, SIG+9
^(3	SIG1+4
^(4	SIG1+6
^(7	SIG+6, SIG+7, SIG+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	V+4, V+5, SIG+3, SIG+5, SIG+6, SIG+7, SIG+10, SIG1+4, SIG1+6, SIG1+7
>> DIWF	V+5*
>> DIWL	V+5*, V+6
>> DIWR	V+5*
>> FPROJ	SIG1+7*
>> I	V+5*
IOSL	V+2, V+6, SIG+1, SIG1+2
>> K	V+6*
>> L	SIG+2, SIG1, SIG1+1, SIG1+8
>> P	SIG+6, SIG+7, SIG1+4, SIG1+5, SIG1+6, SIG1+7, SIG1+8
P1	SIG+6!*, SIG+9
P2	SIG+7*, SIG+8, SIG+9!
>> PRCS("SUB"	SIG1+5
PRSHLB	SIG+7~*, SIG+8
PRSHLC	SIG+9~*
U	V+2, V+6, SIG+1, SIG+6, SIG+7, SIG+8, SIG+9, SIG+10, SIG1+2, SIG1+4 , SIG1+6
>> X	V+5, SIG1+4
>> X1	V+5*
>> XNAME	SIG+3*
>> Y	SIG+10*
>> Z	V+6*
>> Z1	V+2, V+6, SIG+1, SIG1+2

Customize PDF page

Package: IFCAP