Routine: PRCSP122

Information

PRCSP122 ;WISC/SAW-CONTROL POINT ACTIVITY 2237 PRINTOUT CON'T ;4/21/93 08:53

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
IFCAP	3	$$DECODE^PRCSC1 NEWP^PRCSP121 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	PRCSP12

Entry Points

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

External References

Name	Field # of Occurrence
DD^%DT	SIG+10
$$DECODE^PRCSC1	SIG+6
NEWP^PRCSP121	V+4, DEL+3, DEL+10, SIG+1, SIG1+2
DIWP^PRCUTL	V+3, DEL+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: V+3
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",DIWL,K,0) Line Location: V+4
Function Call: WRITE	Prompt: !,"DELIVER TO: ",$P(^(9),U) Line Location: DEL+0
Function Call: WRITE	Prompt: !,L,!,"FOB",?24,"\|TERMS",?48,"\|DELIVERY DATE",?63,"\|QUOTE DATE",?77,"\|BY(Initials)",!,?24,"\|",?48,"\|",?63,"\|",?77,"\|" Line Location: DEL+1
Function Call: WRITE	Prompt: !,$E(L,1,24),"\|",$E(L,1,23),"\|",$E(L,1,14),"\|",$E(L,1,13),"\|",$E(L,1,12) Line Location: DEL+2
Function Call: WRITE	Prompt: !,"JUSTIFICATION OF NEED OR TURN-IN (If recurring need, indicate 30-day estimate. If turn-in,",!,"do not use this form if circumstances require use of VA Form 90-1217, Report of Survey)" Line Location: DEL+4
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",DIWL,K,0) Line Location: DEL+10
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",?39,"\|Signature of Approving Official \|Date" Line Location: SIG+4
Function Call: WRITE	Prompt: !,?39,"\|",?72,"\|",!,?39,"\|",?72,"\|" Line Location: SIG+5
Function Call: WRITE	Prompt: "/ES/",$$DECODE^PRCSC1(DA) Line Location: SIG+6
Function Call: WRITE	Prompt: $E($P(^(20),U,2),1,31) Line Location: SIG+7
Function Call: WRITE	Prompt: " (",$P(^(.13),U,2),")" Line Location: SIG+8
Function Call: WRITE	Prompt: ?39,"\|" Line Location: SIG+9
Function Call: WRITE	Prompt: $E($P(^(20),U,2),1,33) Line Location: SIG+9
Function Call: WRITE	Prompt: ?72,"\|",! Line Location: SIG+10
Function Call: WRITE	Prompt: $P(^(7),U,4) Condition for execution: $P(^PRCS(410,DA,7),U,2)'="" $P(^(7),U,2) W ?39,"\|" W:$P(^(7),U,4)'="" Line Location: SIG+10
Function Call: WRITE	Prompt: ?72,"\|" Line Location: SIG+10
Function Call: WRITE	Prompt: ?72,"\|" Line Location: SIG+10
Function Call: WRITE	Prompt: !,$E(L,1,39) Line Location: SIG1+0
Function Call: WRITE	Prompt: "\|",$E(L,1,32) Line Location: SIG1+1
Function Call: WRITE	Prompt: "\|",$E(L,1,17) Line Location: SIG1+2

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
DEL	V+2
SIG	DEL+5, DEL+8
SIG1	SIG+5

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BFLAG	DEL+6, DEL+7, DEL+8
>> DA	V+2, V+3, DEL, DEL+5, DEL+7, DEL+9, SIG+3, SIG+5, SIG+6, SIG+7 , SIG+10
>> DIWF	V+3, DEL+9
>> DIWL	V+3, V+4, DEL+9, DEL+10
>> DIWR	V+3, DEL+9
>> I	DEL+7, DEL+9
>> J	V+3*
>> K	V+4, DEL+10
>> L	DEL+1, DEL+2, SIG+2, SIG1, SIG1+1, SIG1+2
>> MYTEMP	DEL+6, DEL+7
>> P	SIG+6, SIG+7
>> P(1	V+3*
P1	SIG+6!*, SIG+9
P2	SIG+7*, SIG+8, SIG+9!
>> PRNTALL	SIG1+2
PRSHLE	SIG+7~*
U	DEL, SIG+6, SIG+7, SIG+8, SIG+9, SIG+10
>> X	V+3, DEL+9
>> X1	DEL+9*
>> XNAME	SIG+3*
>> Y	SIG+10*
>> Z	V+4, DEL+10

Customize PDF page

Package: IFCAP