Routine: PRCPDAP2

Information

PRCPDAP2 ;WISC/RFJ-drug accountability/prime vendor (check items) ;15 Mar 94

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
IFCAP	3	(H,LINEITEM)^PRCPDAP3 ($$SCRPAUSE,P)^PRCPUREP DISPLAY^PRCPUX2
Kernel	2	^%ZIS ^%ZTLOAD
VA FileMan	2	DD^%DT NOW^%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	PRCPDAPV

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	; print items on invoice ; prcpferr=1 for errors, do not create repetitive item lists
DQ	; queue starts here
DATE(DATE)
WHO(WHODATA)

External References

Name	Field # of Occurrence
DD^%DT	DQ+2
NOW^%DTC	DQ+2
^%ZIS	PRINT+4
^%ZTLOAD	PRINT+4
H^PRCPDAP3	DQ+4, DQ+14, DQ+18, DQ+22, DQ+25
LINEITEM^PRCPDAP3	DQ+26
$$SCRPAUSE^PRCPUREP	DQ+2
P^PRCPUREP	DQ+14, DQ+18, DQ+22, DQ+25
DISPLAY^PRCPUX2	PRINT+3, DQ+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRINT+7
Function Call: WRITE	Prompt: !!,"INVOICE : ",$P(INVDATA,"^",2),?40,"DATE: ",$$DATE($P(INVDATA,"^")) Line Location: DQ+7
Function Call: WRITE	Prompt: !,"PURCHASE ORDER: ",$P(INVDATA,"^",4),?40,"DATE: ",$$DATE($P(INVDATA,"^",3)) Line Location: DQ+8
Function Call: WRITE	Prompt: !?5,"PRIME VENDOR: ",$P($G(^PRC(440,PRCPVEND,0)),"^") Line Location: DQ+9
Function Call: WRITE	Prompt: !?5,"TERMS DISCOUNT PERCENT: ",$P(INVDATA,"^",6),?40,"DUE DATE: ",$$DATE($P(INVDATA,"^",7)),?60,"DAYS DUE: ",$P(INVDATA,"^",8) Line Location: DQ+10
Function Call: WRITE	Prompt: !?5,"TERMS DISCOUNT AMOUNT : ",$J($P(INVDATA,"^",11),0,2),?40,"DUE DATE: ",$$DATE($P(INVDATA,"^",9)),?60,"NET DAYS: ",$P(INVDATA,"^",10),! Line Location: DQ+11
Function Call: WRITE	Prompt: !?5,"DELIVERY DATE REQUESTED: ",$$DATE($P(INVDATA,"^",12)) Line Location: DQ+12
Function Call: WRITE	Prompt: !?5,"DELIVERED ON DATE : ",$$DATE($P(INVDATA,"^",13)) Line Location: DQ+13
Function Call: WRITE	Prompt: !!?5,"BUYER INFORMATION: " Line Location: DQ+15
Function Call: WRITE	Prompt: "(SAME AS SHIPPING INFORMATION)" Line Location: DQ+16
Function Call: WRITE	Prompt: !!?5,"SHIPPING INFORMATION: " Line Location: DQ+19
Function Call: WRITE	Prompt: "(SAME AS BUYER INFORMATION)" Line Location: DQ+20
Function Call: WRITE	Prompt: !!?5,"DISTRIBUTER INFORMATION: " Line Location: DQ+23
Function Call: WRITE	Prompt: !?8,"NAME: ",$P(WHODATA,"^"),?62,"ID: ",$P(WHODATA,"^",2) Line Location: WHO+1
Function Call: WRITE	Prompt: !?8,"ADDR: ",$P(WHODATA,"^",3) Line Location: WHO+2
Function Call: WRITE	Prompt: !?8,"CITY: ",$P(WHODATA,"^",4),?40,"STATE: ",$P(WHODATA,"^",5),?62,"ZIPCODE: ",$P(WHODATA,"^",6) Line Location: WHO+3
Routine Call	%ZIS Line Location: PRINT+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(440 - [#440]	DQ+9
^TMP($J	DQ+3, DQ+5, DQ+6, DQ+16, DQ+20, DQ+24

Label References

Name	Line Occurrences
$$DATE	DQ+7, DQ+8, DQ+10, DQ+11, DQ+12, DQ+13
WHO	DQ+17, DQ+21, DQ+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DQ+1~, DQ+2, DATE+1, DATE+2, DATE+3
%H	DQ+1~
%I	DQ+1~
>> %ZIS	PRINT+4*
DA	DQ+1~
DATA	DQ+1~
DATE	DATE~, DATE+1
INVDATA	DQ+1~, DQ+6*, DQ+7, DQ+8, DQ+10, DQ+11, DQ+12, DQ+13
IO	DQ+2
IO("Q"	PRINT+4!
IOSL	DQ+14, DQ+18, DQ+22, DQ+25
ITEMDA	DQ+1~
LINEITEM	DQ+1~
NOW	DQ+1~, DQ+2*
PAGE	DQ+1~, DQ+2*
>> POP	PRINT+4
PRCPFLAG	DQ+1~, DQ+3, DQ+14, DQ+18, DQ+22, DQ+25
>> PRCPVEND	DQ+9
QTY	DQ+1~
SCREEN	DQ+1~, DQ+2*, DQ+14, DQ+18, DQ+22, DQ+25
STCTRL	DQ+1~, DQ+3*, DQ+5, DQ+6, DQ+16, DQ+20, DQ+24
TOTAL	DQ+1~
TOTCOST	DQ+1~
UNITCOST	DQ+1~
VENDA	DQ+1~
VENDATA	DQ+1~
WHODATA	DQ+1~, DQ+16, DQ+17, DQ+20, DQ+21, DQ+24*, WHO~, WHO+1, WHO+2, WHO+3
X	PRINT+2~, PRINT+3!, DQ+1~, DQ+5!
X(1	PRINT+3, DQ+5
Y	DQ+1~, DQ+2*
>> ZTDESC	PRINT+5*
>> ZTRTN	PRINT+5*
>> ZTSAVE("PRC*"	PRINT+6*
>> ZTSAVE("ZTREQ"	PRINT+6*
>> ZTSAVE("^TMP($J,"	PRINT+6*
ZTSK	PRINT+4!

Customize PDF page

Package: IFCAP