Routine: PRCHFPT0

Information

PRCHFPT0 ;WISC/RSD/RHD/BGJ-CONTINUATION--PRINT FREE FORM 2138 ;4/21/99 18:05

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
IFCAP	2	FTYP^PRCHFPNT ^PRCHFPT1
VA FileMan	1	YX^%DTC

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	PRCHFPNT

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;7;Oct 20, 2000
STP	;PRINT HEADER ON FIRST PAGE

External References

Name	Field # of Occurrence
YX^%DTC	STP+4
FTYP^PRCHFPNT	STP+5
^PRCHFPT1	STP+33

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y>0 Line Location: STP+1
Function Call: WRITE	Prompt: !,?5,$S(Y="EM":"EMERGENCY",Y="SP":"SPECIAL",1:"") Line Location: STP+1
Function Call: WRITE	Prompt: ?20,"REPRINT " Condition for execution: $D(PRCHREPR) Line Location: STP+1
Function Call: WRITE	Prompt: ?28,$S("D"=PRCHTYPE:"DELIVERY ORDER",PRCHTYPE]"":"PURCHASE CARD ORDER",PRCHDES="US":" USING SERVICE COPY",$D(PRCHNRQ):"REQUISITION FOR SUPPLIES OR SERVICES",1:"PURCHASE ORDER FOR SUPPLIES OR SERVICES"),?70 Line Location: STP+3
Function Call: WRITE	Prompt: "("_Y_")" Line Location: STP+4
Function Call: WRITE	Prompt: "Dept. of Veterans Affairs "_$P(PRCHFTYP," ",2,99),?61 Line Location: STP+5
Function Call: WRITE	Prompt: $P(Y,U,1) Line Location: STP+6
Function Call: WRITE	Prompt: "(",$P(Y,U,8),")" Condition for execution: $P(Y,U,8)]"" Line Location: STP+6
Function Call: WRITE	Prompt: !,$P(PRCHHSP,U,1)," ",$P(PRCHHSP,U,2) Line Location: STP+6
Function Call: WRITE	Prompt: !,$P(PRCHHSP,U,3),", ",$P($G(^DIC(5,+$P(PRCHHSP,U,4),0)),U,2)," ",$P(PRCHHSP,U,5),?61,"DEL. TO: ",$P(PRCH1,U,11),!,PRCHULN Line Location: STP+7
Function Call: WRITE	Prompt: ! Line Location: STP+29
Function Call: WRITE	Prompt: ?9,V(I) Condition for execution: $D(V(I)) Line Location: STP+29
Function Call: WRITE	Prompt: ?53,"\|" Line Location: STP+29
Function Call: WRITE	Prompt: ?62,S(I) Condition for execution: $D(S(I)) Line Location: STP+29
Function Call: WRITE	Prompt: ! Line Location: STP+30
Function Call: WRITE	Prompt: ?5,V(10) Condition for execution: $D(V(10)) Line Location: STP+30
Function Call: WRITE	Prompt: ?53,"\|" Line Location: STP+30
Function Call: WRITE	Prompt: ?62,S(10) Condition for execution: $D(S(10)) Line Location: STP+30
Function Call: WRITE	Prompt: @IOBS Line Location: STP+31
Function Call: WRITE	Prompt: $E(PRCHULN,1,53),"\|",$E(PRCHULN,1,42) Line Location: STP+32

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(49 - [#49]	STP+6
^DIC(5 - [#5]	STP+7, STP+16, STP+27
^PRC(440 - [#440]	STP+8, STP+17, STP+18, STP+20, STP+22
^PRC(442 - [#442]	STP+2, STP+9, STP+22, STP+23
^PRC(443.4 - [#443.4]	STP+24

Naked Globals

Name	Field # of Occurrence
^(2	STP+17
^(3	STP+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	STP+4*
>> D0	STP+2, STP+9, STP+22, STP+23
>> I	STP+29, STP+31
>> IOBS	STP+31
IOF	STP+1
>> PRC("SITE"	STP+5*
>> PRCH0	STP+5, STP+10
>> PRCH1	STP+1, STP+6, STP+7, STP+8, STP+17, STP+18, STP+20, STP+21, STP+22
>> PRCHDES	STP+3
PRCHEDI	STP+22*, STP+25!
PRCHEDIT	STP+22, STP+23, STP+24, STP+25!
>> PRCHFTYP	STP+5, STP+11
>> PRCHHSP	STP+6, STP+7
>> PRCHNRQ	STP+3
>> PRCHREPR	STP+1
>> PRCHS	STP+10, STP+11, STP+28
>> PRCHSHP	STP+10, STP+26, STP+27, STP+28
>> PRCHST	STP+4, STP+20
>> PRCHTYPE	STP+2*, STP+3
>> PRCHULN	STP+5, STP+7, STP+32
>> PRCHV	STP+8*, STP+9, STP+14, STP+15, STP+16, STP+18
PRCVFAX	STP+18*!
R	STP+9~*
>> S	STP+11, STP+26, STP+27, STP+28
>> S(	STP+11, STP+26, STP+27, STP+28, STP+29
>> S(10	STP+30
T	STP+9~*, STP+10
U	STP+1, STP+2, STP+4, STP+6, STP+7, STP+8, STP+9, STP+10, STP+14, STP+15 , STP+16, STP+17, STP+18, STP+20, STP+21, STP+22, STP+23, STP+24, STP+26, STP+27 , STP+28
>> V	STP+12, STP+14, STP+15, STP+16, STP+17, STP+18, STP+19, STP+20
>> V(	STP+15, STP+16, STP+17, STP+18, STP+19, STP+20, STP+29
>> V(1	STP+14*
>> V(10	STP+21, STP+22, STP+30
>> Y	STP+1, STP+4, STP+6

Customize PDF page

Package: IFCAP