Routine: PRCHDPO

Information

PRCHDPO ;WOIFO/CR - DELINQUENT DELIVERY LISTING PA OPTION ; 2/20/01 12:55 PM

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	DD^%DT NOW^%DTC ^DIR

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	PRCHOUT DEL

Entry Points

Name	Comments	DBIA/ICR reference
A1	;
TYPE
DATE
FRMDT	; Make the current date for the header easier to read.
FRMDT1	; Compress the delivery date display.
STAT	; Gather all the statistics
PRINT	; Let's print the outstanding orders and dollar amounts.
HOLD
HEADER	;
CLEAN

External References

Name	Field # of Occurrence
DD^%DT	FRMDT+1, STAT+12
NOW^%DTC	FRMDT+1
^%ZIS	DATE+7
^%ZISC	DATE+8, DATE+10
^%ZTLOAD	DATE+8
^DIR	TYPE+8, DATE, DATE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: TYPE+0
Function Call: WRITE	Prompt: !!,"SELECTED: ",$E(SELECT,1,($L(SELECT)-1))," / ",SELECTW,! Line Location: TYPE+12
Function Call: WRITE	Prompt: " ",Y(0) Line Location: DATE+1
Function Call: WRITE	Prompt: " ",Y(0) Line Location: DATE+4
Function Call: WRITE	Prompt: !,$C(7),"Less than 'FROM' value.",! Line Location: DATE+5
Function Call: WRITE	Prompt: !!!!,?10,"* NO RECORDS TO PRINT *" Line Location: PRINT+5
Function Call: READ	Variable: XXZ Timeout: DTIME Line Location: PRINT+21
Function Call: WRITE	Prompt: !,?60,"----------" Line Location: PRINT+26
Function Call: WRITE	Prompt: !,"TOTAL",?55,$J(GTOT,15,2) Line Location: PRINT+27
Function Call: READ	Variable: XXZ Timeout: DTIME Line Location: HOLD+0
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"DELINQUENT PURCHASE ORDERS",?42,DATE,?68,"PAGE ",P,! Line Location: HEADER+2
Function Call: WRITE	Prompt: "** FOR SUPPLY EMPLOYEE: ",SELECTW,! Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"PO NUMBER",?15,"SUPPLY STATUS",?63,"COST",! Line Location: HEADER+4
Function Call: WRITE	Prompt: ?3,"DELIVERY",?17,"PHONE",?60,"OUTSTANDING",! Line Location: HEADER+5
Function Call: WRITE	Prompt: ?3,"DATE",?17,"NUMBER",?45,"(QTY*UNIT COST FOR ITEMS NOT REC'D)",! Line Location: HEADER+6
Function Call: WRITE	Prompt: "--------" Line Location: HEADER+7
Function Call: WRITE	Prompt: !!,?15,"PA/PPM/AUTHORIZED BUYER: ",$P(Q,">"),! Line Location: HEADER+8
Routine Call	DIR Line Location: TYPE+8 DATE DATE+3
Routine Call	%ZIS Line Location: DATE+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(440 - [#440]	STAT+15, STAT+16
^PRC(442 - [#442]	STAT+2, STAT+3, STAT+4, STAT+8, STAT+20
^PRCD(442.3 - [#442.3]	STAT+22
^TMP($J	STAT+28*, PRINT+5, PRINT+6, PRINT+8, PRINT+10, PRINT+12, CLEAN!
^VA(200 - [#200]	STAT+18, STAT+19

Label References

Name	Line Occurrences
CLEAN	A1+1, PRINT+28
DATE	DATE+5
FRMDT	PRINT+3
FRMDT1	STAT+12
HEADER	PRINT+5, PRINT+7, HOLD
HOLD	PRINT+15
STAT	DATE+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FRMDT+1
>> %ZIS	DATE+7*
>> %ZIS("B"	DATE+7*
AMT1	STAT+1, PRINT+4, PRINT+11, PRINT+16, CLEAN!
COSOUT	STAT+26, STAT+27, STAT+28, CLEAN!
DATE	FRMDT+4*, HEADER+2, CLEAN!
DELDT	STAT+4, STAT+10, STAT+11, STAT+12, STAT+28, CLEAN!
DIR	TYPE+13!, DATE!, DATE+3!
DIR("?"	TYPE+1, TYPE+2, TYPE+3*
DIR("A"	TYPE+5, TYPE+6, TYPE+7, TYPE+8, DATE, DATE+3
DIR("B"	TYPE+8*
DIR(0	TYPE+4, DATE, DATE+3*
DIRUT	TYPE+9, TYPE+13!
DR	TYPE+13!
DTIME	PRINT+21, HOLD
DTOUT	TYPE+9, TYPE+13!
EDATE	DATE+4*, DATE+5!, STAT+11, CLEAN!
ENTOT	CLEAN+2!
EX	PRINT+4, PRINT+6, PRINT+8, PRINT+10, PRINT+15, PRINT+21, HOLD*, CLEAN+2!
FDATE	DATE+1*, DATE+5!, STAT+10, CLEAN!
GTOT	STAT+1, PRINT+19, PRINT+27, CLEAN+2!
I	TYPE+11, STAT+2, STAT+3, HEADER+7*, CLEAN+2!
IO	PRINT+2, HOLD
IO("Q"	DATE+8
IO(0	HOLD
IOF	HEADER+1
IOSL	PRINT+15
IOST	PRINT+21, HOLD
LIQAMT	STAT+25*, STAT+26, STAT+27, CLEAN+2!
MOP	STAT+5*, STAT+7, CLEAN+2!
P	STAT+1, PRINT+4, PRINT+5, HEADER+2, HEADER+9, CLEAN+2!
PHONE	STAT+16*, STAT+28, CLEAN+2!
PONUM	STAT+5*, STAT+28, CLEAN+2!
>> POP	DATE+7
PRCHPA	STAT+17*, STAT+18, STAT+19, CLEAN!
PRCSTAT	STAT+22*, STAT+28, CLEAN!
Q	PRINT+5, PRINT+6, PRINT+8, PRINT+10, PRINT+12, HEADER+8, CLEAN!
Q1	PRINT+5, PRINT+8, PRINT+9, PRINT+10, PRINT+12, CLEAN!
Q2	PRINT+10*, PRINT+12, PRINT+22, HOLD, CLEAN!
SELECT	TYPE!, TYPE+10*, TYPE+11, TYPE+12, STAT+19, CLEAN+3!
SELECTW	TYPE, TYPE+10, TYPE+11*, TYPE+12, HEADER+3, CLEAN+3!
STR3	PRINT+12*, PRINT+13, PRINT+14, PRINT+16, CLEAN+2!
SUBUSER	STAT+1, PRINT+7, CLEAN+2!
SUBUSER(	PRINT+19, PRINT+24
SUPORD	STAT+23*, STAT+24, CLEAN+2!
SUPT	STAT+21*, STAT+22, CLEAN+1!
TOT	PRINT+4, PRINT+16, PRINT+20*, CLEAN+1!
TOTAMT	STAT+25*, STAT+26, STAT+27, CLEAN+1!
USER	STAT+18*, STAT+28, PRINT+16, PRINT+18, PRINT+19, PRINT+24, CLEAN+2!
VENDOR	STAT+15*, STAT+28, CLEAN+1!
VENPTR	STAT+13*, STAT+14, STAT+15, STAT+16, PRINT+16, PRINT+18, PRINT+19, CLEAN+1!
VENTOT	STAT+1, PRINT+7, CLEAN+1!
VENTOT(	PRINT+16*, PRINT+18, PRINT+19
X	TYPE+11*, TYPE+13!, CLEAN+1!
X1	FRMDT+2, FRMDT1+1, STAT+12, CLEAN+1!
X2	FRMDT+2*, FRMDT+4, CLEAN+1!
X3	FRMDT+3*, FRMDT+4, CLEAN+1!
XXZ	PRINT+21, HOLD, CLEAN+1!
Y	TYPE!, TYPE+10, TYPE+13!, DATE, DATE+1, DATE+3, DATE+4, FRMDT+1, FRMDT+2, FRMDT+3 , FRMDT1+1, STAT+12, CLEAN+1!
Y(0	DATE+1, DATE+4
ZP	STAT+3*, STAT+4, STAT+8, STAT+20, CLEAN+1!
ZP0	STAT+4*, STAT+5, STAT+25, CLEAN+1!
ZP1	STAT+8*, STAT+9, STAT+13, STAT+17, CLEAN+1!
ZP7	STAT+20*, STAT+21, STAT+23, CLEAN+1!
>> ZTRTN	DATE+8*
>> ZTSAVE("*"	DATE+8*

Customize PDF page

Package: IFCAP