Routine: PRCHDSP2

Information

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

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
IFCAP	4	(,HDR)^PRCHDSP1 EN2^PRCHDSP3 START^PRCHPAM2 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: 1

Package	Total	Caller Graph
IFCAP	1	PRCHDSP3

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+10
^PRCHDSP1	CONT+22
HDR^PRCHDSP1	CONT+1
EN2^PRCHDSP3	CONT
START^PRCHPAM2	V+8
DIWP^PRCUTL	V+9

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+5
Function Call: WRITE	Prompt: !?3,"A&MM SERVICE",?31,"\|",!?3,"VA MEDICAL CENTER",?31,"\|",! Line Location: CONT+6
Function Call: WRITE	Prompt: ?3,$P(Y,U,I),?31,"\|",!?3 Condition for execution: $P(Y,U,I)]"" Line Location: CONT+6
Function Call: WRITE	Prompt: !?31,"\|" Line Location: CONT+7
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+8
Function Call: WRITE	Prompt: !?31,"\|" Line Location: CONT+8
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+9
Function Call: WRITE	Prompt: ?2,"(No.,street,county,St. and ZIP)",?34,"\| \|",!,?2,$P(X,U),?34,"\| \|",$E(PRCHUL,1,40),! Line Location: CONT+10
Function Call: WRITE	Prompt: ?34,"\| \| 9B.DATED (See Item 11)",! Line Location: CONT+11
Function Call: WRITE	Prompt: ?34,"\|___\|",$E(PRCHUL,1,40),! Line Location: CONT+11
Function Call: WRITE	Prompt: ?34,"\| X \|",?43,$P(PRCHP0,U),! Line Location: CONT+12
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+13
Function Call: WRITE	Prompt: !,$E(PRCHUL,1,20),"\|",$E(PRCHUL,1,13),"\|___\|",$E(PRCHUL,1,40),! Line Location: CONT+14
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+8, AL1+1
^PRC(411 - [#411]	CONT+5
^PRC(440 - [#440]	CONT+9
^PRC(443.6 - [#443.6]	V+5, V+6, V+8, V+9
^PRCS(410 - [#410]	CONT+2
^TMP($J	V+8!
^UTILITY($J	V+8!, V+11, V+12

Label References

Name	Line Occurrences
AL	CONT+10, CONT+11, CONT+12
AL1	AL
CONT	V+8
DT	CONT+2, CONT+13

Naked Globals

Name	Field # of Occurrence
^(	V+5, V+9
^(0	CONT+2
^(1	V+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IFCAP