Routine: PRCHDSP

Information

PRCHDSP ;TKW/BOISE,ID/RSD,WISC/AKS-DISPLAY AMENDMENT ;2/12/98 2:45 PM

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
IFCAP	3	(,EN2,HDR)^PRCHDSP1 START^PRCHDSP4 DIWP^PRCUTL
VA FileMan	1	%XY^%RCR

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: 2

Package	Total	Caller Graph
IFCAP	2	PRCFACA PRCHDSP1

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
CONT
DT
AL
AL1	;W ?8,$P(X,U,6),", ",$S($D(^DIC(5,+$P(X,U,7),0)):$P(^(0),U,2),1:"")," ",$P(X,U,8) Q

External References

Name	Field # of Occurrence
%XY^%RCR	V+8
^PRCHDSP1	CONT+23
EN2^PRCHDSP1	CONT
HDR^PRCHDSP1	CONT+1
START^PRCHDSP4	V+6
DIWP^PRCUTL	V+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "2.AMENDMENT/MODIFICATION NO. ",?29,"\|3.EFFECTIVE DATE",?46,"\|4.REQUISITION/PURCHASE REQ.NO." Line Location: CONT+1
Function Call: WRITE	Prompt: !?7,$P(PRCH0,U,1),?29,"\| " Line Location: CONT+2
Function Call: WRITE	Prompt: ?46,"\| ",$S(Y:Y_"/",1:" "),$P($P(PRCHP0,U,1),"-",2) Line Location: CONT+3
Function Call: WRITE	Prompt: !,$E(PRCHUL,1,29),"\|",$E(PRCHUL,1,16),"\|",$E(PRCHUL,1,30) Line Location: CONT+4
Function Call: WRITE	Prompt: !,"6.ISSUED BY ",?31,"\| 7.ADMINISTERED BY (If other than item 6)" Line Location: CONT+6
Function Call: WRITE	Prompt: !?3,"A&MM SERVICE",?31,"\|",!?3,"VA MEDICAL CENTER",?31,"\|",! Line Location: CONT+7
Function Call: WRITE	Prompt: ?3,$P(Y,U,I),?31,"\|",!?3 Condition for execution: $P(Y,U,I)]"" Line Location: CONT+7
Function Call: WRITE	Prompt: !?31,"\|" Line Location: CONT+8
Function Call: WRITE	Prompt: $P(Y,U,3),", ",$P($G(^DIC(5,+$P(Y,U,4),0)),U,2)," ",$P(Y,U,5),?31,"\|" Line Location: CONT+9
Function Call: WRITE	Prompt: !?31,"\|" Line Location: CONT+9
Function Call: WRITE	Prompt: !,$E(PRCHUL,1,31),"\|",$E(PRCHUL,1,47),!,"8.NAME & ADDRESS OF CONTRACTOR ",?34,"\| \| 9A.AMENDMENT OF SOLICITATION NO.",! Line Location: CONT+10
Function Call: WRITE	Prompt: ?2,"(No.,street,county,St. and ZIP)",?34,"\| \|",!,?2,$P(X,U),?34,"\| \|",$E(PRCHUL,1,40),! Line Location: CONT+11
Function Call: WRITE	Prompt: ?34,"\| \| 9B.DATED (See Item 11)",! Line Location: CONT+12
Function Call: WRITE	Prompt: ?34,"\|___\|",$E(PRCHUL,1,40),! Line Location: CONT+12
Function Call: WRITE	Prompt: ?34,"\| X \|",?43,$P(PRCHP0,U),! Line Location: CONT+13
Function Call: WRITE	Prompt: ?34,"\| \|",$E(PRCHUL,1,40),!,$E(PRCHUL,1,34),?34,"\| \| 10B.DATED (See Item 13)",!,"CODE",?20,"\|FACILITY CODE",?34,"\| \|",?45 Line Location: CONT+14
Function Call: WRITE	Prompt: !,$E(PRCHUL,1,20),"\|",$E(PRCHUL,1,13),"\|___\|",$E(PRCHUL,1,40),! Line Location: CONT+15
Function Call: WRITE	Prompt: Y\100#100,"/",Y#100\1,"/",Y\10000+1700 Line Location: DT+0
Function Call: WRITE	Prompt: ?2,$P(X,U,J) Line Location: AL+0
Function Call: WRITE	Prompt: ?2,$P(X,U,6),", ",$P($G(^DIC(5,+$P(X,U,7),0)),U,2)," ",$P(X,U,8) Line Location: AL1+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	CONT+9, AL1+1
^PRC(411 - [#411]	CONT+6
^PRC(440 - [#440]	CONT+10
^PRC(442 - [#442]	V+4, V+7, CONT+5
^PRCS(410 - [#410]	CONT+2
^TMP($J	V+6!
^UTILITY($J	V+6!, V+9, V+10

Label References

Name	Line Occurrences
AL	CONT+11, CONT+12, CONT+13
AL1	AL
CONT	V+6
DT	CONT+2, CONT+14

Naked Globals

Name	Field # of Occurrence
^(	V+4, V+7
^(0	CONT+2
^(1	V+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%X	V+2~, V+8*
%Y	V+2~, V+8*
>> D0	V+3*, V+4, V+6, V+7, CONT+5
>> D1	V+3*, V+4, V+6, V+7
>> DA	V+7
DIWF	V+2~, V+6*
DIWL	V+2~, V+6*, V+9, V+10
DIWR	V+2~, V+6*
I	V+2~, V+9, CONT+7, CONT+9, AL
J	V+2~, CONT+11, CONT+12, CONT+13, AL
P	V+2~, V+6, V+7
>> PRC("SITE"	V+4*
>> PRC(442	V+6
PRCH0	V+2~, V+4*, CONT+2
PRCH1	V+2~, V+4*
>> PRCHAM	V+3
PRCHAV	V+2~, V+4*, V+6, CONT
PRCHDY	V+2~
PRCHJJ	V+7*, V+8!
PRCHP0	V+2~, V+4*, CONT+2, CONT+3, CONT+13
PRCHP1	V+2~, V+4*, CONT+10, CONT+14
PRCHPG	V+2~, V+5*
PRCHPGT	V+2~, V+5, V+9, V+10*
>> PRCHPO	V+3
PRCHREPR	V+2~
PRCHTPG	V+2~
PRCHTYP	V+2~
PRCHUL	V+2~, V+4*, CONT+4, CONT+10, CONT+11, CONT+12, CONT+14, CONT+15
PRCHX	V+2~
>> SITE	CONT+5*, CONT+6
U	V+4*, V+6, CONT+2, CONT+3, CONT+5, CONT+7, CONT+9, CONT+11, CONT+13, CONT+14 , AL, AL1+1
X	V+2~, V+7, V+9, CONT+10*, CONT+11, AL, AL1+1
Y	V+2~, CONT+2, CONT+3, CONT+6, CONT+7, CONT+9, CONT+14*, DT
Z	V+2~

Customize PDF page

Package: IFCAP