Routine: PRCH442

Package	Total	Call Graph
IFCAP	8	$$NODE^PRC0B $$ACC^PRC0C ^PRCH410 (RENUM,SETUP)^PRCH442A ($$ACCT,$$NSN)^PRCPUX1 $$BBFY^PRCSUT DMERXMB^PRCVLIC EN^PRCVRCA
VA FileMan	5	NOW^%DTC ^DIC YN^DICN ^DIK ^DIR
Kernel	1	$$FMADD^XLFDT

Package	Total	Caller Graph
IFCAP	3	PRCH CREATE DEL ORDER PRCH CREATE PURCHASE CARD PRCH410

Entry Points

Name	Comments	DBIA/ICR reference
START	; entry point for delivery orders
S1
S2	; entry point for purchase card orders
PROCESS	; ; get item data from repetitive item list
SLIST
PROCESS1	;
ITEM	;
FY
DYNAMSG	; PRC5.181 - Build message to user of items not in audit file
ITMCK	;PRC5.1165 Checks to notify user of items with missing contract number that ; will be excluded from Delivery Order

External References

Name	Field # of Occurrence
NOW^%DTC	FY
^DIC	S2+3, S2+5
YN^DICN	SLIST+1, ITMCK+11
^DIK	SLIST+7
^DIR	ITMCK+10
$$NODE^PRC0B	S2+7
$$ACC^PRC0C	S2+34
^PRCH410	PROCESS+8
RENUM^PRCH442A	PROCESS+14
SETUP^PRCH442A	PROCESS1+10
$$ACCT^PRCPUX1	ITEM+7
$$NSN^PRCPUX1	ITEM+7
$$BBFY^PRCSUT	S2+34
DMERXMB^PRCVLIC	DYNAMSG+13
EN^PRCVRCA	SLIST+5
$$FMADD^XLFDT	FY

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are no items on this repetitive item list." Line Location: S2+11
Function Call: WRITE	Prompt: !,"This repetitive item list has the following vendors:",! Line Location: S2+24
Function Call: WRITE	Prompt: !,$P(HM,";"),?40,"NUMBER: ",$P(HM,";",2) Line Location: S2+28
Function Call: WRITE	Prompt: ! Line Location: S2+30
Function Call: WRITE	Prompt: !!!,"Total number of requests generated: ",REQCT,!,"Total cost of all requests: $",$J(COSTTOT,0,2) Line Location: PROCESS+4
Function Call: WRITE	Prompt: !,"Generating ",COMMENT," orders...." Line Location: PROCESS+6
Function Call: WRITE	Prompt: !,"Request ",$P(^PRCS(410,CCDA,0),"^")," created.",! Line Location: PROCESS+9
Function Call: WRITE	Prompt: !,"Do you wish to re-use this list" Line Location: SLIST+1
Function Call: WRITE	Prompt: !,"End of processing." Line Location: SLIST+12
Function Call: WRITE	Prompt: !,"Request ",$P($G(^PRC(442,PDA,0)),"^")," has been created." Line Location: PROCESS1+13
Function Call: WRITE	Prompt: !,"The vendor for this request is: ",$P(VENDOR1,";")," " Line Location: PROCESS1+14
Function Call: WRITE	Prompt: "(",$P(VENDOR1,";",2),")" Line Location: PROCESS1+15
Function Call: WRITE	Prompt: !,"Total cost of request: $",$J(NCOST,0,2),!,"Total items on ",COMMENT," request: ",CNNT Line Location: PROCESS1+16
Function Call: WRITE	Prompt: !!,"Excluded item(s) with no vendor contract#: " Line Location: ITMCK+7
Function Call: WRITE	Prompt: !!,?5,+ITEMR,?13,$E($P($G(^PRC(441,+ITEMR,0)),"^",2),1,30),?47,"QTY= ",$P(ITEMR,"^",2),?60,"COST: ",$J($FN($P(ITEMR,"^",4),",",2),9) Line Location: ITMCK+8
Function Call: WRITE	Prompt: ! Line Location: ITMCK+10
Function Call: WRITE	Prompt: !!,"Do you wish to continue with this order excluding the above item(s)" Line Location: ITMCK+11
Routine Call	DIC Line Location: S2+3 S2+5
Routine Call	DIR Line Location: ITMCK+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRCS(410.3 - [#410.3]	Classic Fileman Calls
^PRC(411 - [#411]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(411 - [#411]	S2+5
^PRC(420 - [#420]	S2+33
^PRC(440 - [#440]	S2+8, ITEM+11
^PRC(441 - [#441]	ITEM+4, ITEM+5, ITEM+6, ITEM+9, ITEM+15, ITEM+16, ITMCK+8
^PRC(442 - [#442]	PROCESS1+13
^PRCD(420.2 - [#420.2]	ITEM+8
^PRCS(410 - [#410]	PROCESS+9
^PRCS(410.3 - [#410.3]	S2+10, S2+11, S2+18, S2+20, S2+21, S2+31, PROCESS+12, SLIST+1, SLIST+5, PROCESS1+3 , ITEM+1, ITEM+21, ITEM+26*, ITMCK+6
^PRCV(414.02 - [#414.02]	S2+18
^TMP($J	S2+14!, S2+22, S2+27, PROCESS+3, PROCESS+12, SLIST+10, SLIST+13!, PROCESS1+3, PROCESS1+8, ITEM+22* , DYNAMSG+2, DYNAMSG+3, DYNAMSG+8, DYNAMSG+9, DYNAMSG+12*, ITMCK+4

Label References

Name	Line Occurrences
DYNAMSG	SLIST+10
FY	S2+32
ITEM	PROCESS1+8
ITMCK	PROCESS1+7
PROCESS1	PROCESS+3
SLIST	SLIST+1

Naked Globals

Name	Field # of Occurrence
^(0	S2+33

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SLIST+1, PROCESS1+7!, ITMCK+11
AA	S2+1~
AA(	ITEM+13*
APP	S2+1~, S2+34*
BB	S2+1~
BB(	ITEM+16*
>> BOC	ITEM+6, ITEM+7, ITEM+8*, ITEM+13
CC	S2+1~
CC(	ITEM+17, ITEM+21, ITEM+22
CCDA	S2+2~, PROCESS+8!, PROCESS+9
>> CCEN	S2+31*
CNNT	S2+1~, PROCESS1+2, PROCESS1+9, PROCESS1+16, ITEM+12, ITEM+13, ITEM+16, ITEM+17, ITEM+21, ITEM+22 , ITEM+27
CNNT1	S2+2~, ITEM+15*, ITEM+16
CNT	ITMCK+2~, ITMCK+3, ITMCK+5, ITMCK+10
COMMENT	S2+2~, S2+8*, PROCESS+6, PROCESS1+16
CONT	S2+1~, ITEM+10, ITEM+11, ITEM+17
CONV	S2+1~, ITEM+10*, ITEM+13
COSTTOT	S2+1~, PROCESS+2, PROCESS+4, PROCESS1+12
CP	S2+1~, S2+31*, S2+33
CTR	S2+2~
CTT	S2+1~, S2+2~, S2+11*
>> DA	S2+4, PROCESS+7, SLIST+7*
DIC	S2+3, S2+4!, S2+5, S2+6!
DIC("A"	S2+5*
DIC("B"	S2+5*
DIC("S"	S2+3!, S2+5
DIC(0	S2+3, S2+5
DIK	SLIST+7*!
DIR	ITMCK+10!
DIR("A"	ITMCK+10*
DIR(0	ITMCK+10*
ECNT	ITMCK+2~, ITMCK+3, ITMCK+7, ITMCK+9, ITMCK+10
EE	S2+1~
EE(	PROCESS+7
>> EST	ITEM+3*
FCP	S2+1~, S2+33*
FF	S2+1~, S2+21*, S2+22
FSC	S2+1~, ITEM+6*, ITEM+17
>> FY	FY, FY+1
GG	S2+2~
GG(	ITEM+27*
HM	S2+2~, S2+26, S2+27, S2+28
I	DYNAMSG+1~, DYNAMSG+10*
IB	S2+1~, S2+2~, S2+15, S2+20, S2+21, S2+22, PROCESS+2, PROCESS1+3, PROCESS1+8, ITEM+1 , ITEM+21, ITEM+26, ITEM+27, ITMCK+2~, ITMCK+3, ITMCK+4*, ITMCK+6
II	S2+2~
IJ	S2+2~
ITEM	S2+1~, ITEM+3*, ITEM+4, ITEM+5, ITEM+6, ITEM+7, ITEM+9, ITEM+13, ITEM+15, ITEM+16 , ITEM+22
ITEMR	ITMCK+2~, ITMCK+6*, ITMCK+8
ITMCKER	PROCESS1+7~, ITMCK+10, ITMCK+12*
J	S2+1~, ITEM+16*
MAX	S2+1~, ITEM+10*, ITEM+13
NCOST	S2+1~, PROCESS1+2, PROCESS1+12, PROCESS1+16, ITEM+17
NDC	S2+1~, ITEM+10*, ITEM+13
>> NSN	ITEM+6*, ITEM+13
ORDTOT	S2+1~
OUTRL	S2+2~, S2+10*, PROCESS1+6, PROCESS1+8
PDA	S2+1~, PROCESS1+10!, PROCESS1+11, PROCESS1+13
PMULT	S2+1~, ITEM+10*, ITEM+13
PP	S2+2~, PROCESS+7*
>> PRC("BBFY"	S2+34*
>> PRC("CP"	S2+33*, S2+34
>> PRC("FY"	S2+34, FY, FY+1
>> PRC("PARAM"	S2+7*
>> PRC("QTR"	FY*, FY+1
>> PRC("SITE"	S2+5, S2+31*, S2+33, S2+34
>> PRC("SST"	S2+5*
PRCDATA	DYNAMSG+1~, DYNAMSG+9, DYNAMSG+10, DYNAMSG+12
PRCHPC	SLIST+13!
PRCKILL	S2+2~, SLIST, SLIST+1, SLIST+7
PRCNT	DYNAMSG+1~, DYNAMSG+7, DYNAMSG+11, DYNAMSG+12
PRCRIL	DYNAMSG+1~, DYNAMSG+3*, DYNAMSG+4, DYNAMSG+13
PRCS	S2+2~, SLIST+13!
>> PRCSIP	S2+10*
PRCVDATE	PROCESS1+1~, PROCESS1+2, ITEM+23, ITEM+24*
PRCVDYN	S2+2~, S2+15, S2+18, PROCESS+12, SLIST, SLIST+4, SLIST+7, SLIST+10, ITEM+20
PRCVI	DYNAMSG+1~, DYNAMSG+7, DYNAMSG+8, DYNAMSG+9, DYNAMSG+12
PRCVIEN	DYNAMSG+1~, DYNAMSG+2*, DYNAMSG+3, DYNAMSG+8, DYNAMSG+9
>> QTR	FY*
QTY	S2+1~, ITEM+3*, ITEM+13, ITEM+17
REQCT	S2+1~, PROCESS+2, PROCESS+4, PROCESS+5, PROCESS1+12
RLFLAG	S1~*, S2+8, SLIST+13!, PROCESS1+7, ITEM+2
RPUSE	S2+1~, PROCESS+7*
>> SDATE	FY*
SERV	S2+2~, S2+33*
SKU	S2+1~, ITEM+9*, ITEM+13
SPEC	S2+1~, S2+33*, PROCESS1+5, ITEM+7
SS	S2+1~, ITEM+1*, ITEM+2, ITEM+3, ITEM+23, ITEM+24, ITEM+26
TDATE	S2+2~, FY*
>> TOTAL	ITEM+17*
U	S2+10
UCOST	S2+1~, ITEM+10*, ITEM+13, ITEM+17
UOP	S2+1~, ITEM+10*, ITEM+13
VENDOR	S2+1~, PROCESS1+3*, PROCESS1+4, PROCESS1+5, ITEM+4, ITEM+5, ITEM+11
VENDOR1	S2+1~, PROCESS+2, PROCESS+3, PROCESS1+3, PROCESS1+8, PROCESS1+14, PROCESS1+15, ITMCK+4
VSTOCK	S2+1~, ITEM+10*, ITEM+13
WHSE	S2+2~, S2+8*, PROCESS1+5
>> X	FY
XDA	S2+2~, S2+4*, S2+10, S2+11, S2+18, S2+20, S2+21, S2+22, S2+27, S2+31 , PROCESS+3, PROCESS1+3, PROCESS1+8, ITEM+1, ITEM+21, ITEM+22, ITEM+26, ITMCK+4, ITMCK+6
XMB	DYNAMSG+1~
XMB(1	DYNAMSG+4*
XMB(2	DYNAMSG+5*
XMB(3	DYNAMSG+6*
>> Y	S2+3, S2+4, S2+5, S2+6
YDA	S2+2~, S2+4*, PROCESS+12, SLIST+1, SLIST+5, SLIST+7
ZS	S2+2~, S2+31, ITEM+6
ZS0	S2+2~, ITEM+5*, ITEM+10

Customize PDF page

Package: IFCAP

Routine: PRCH442

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: