Routine: PRCHDP3

Information

PRCHDP3 ;WISC/RSD/RHD-DISPLAY PARTIALS RECEIVING OF P.O. ;OCT 9, 2001

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
IFCAP	2	$$DECODE^PRCHES1 DIWP^PRCUTL
Kernel	1	^%ZIS
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: 5

Package	Total	Caller Graph
IFCAP	5	PRCHDEP3 PRCHDP2 PRCHEC PRCHEF PRCHREC

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;38;Oct 20, 2000
ST	;S IOP="HOME",%ZIS="" D ^%ZIS W:$Y>0 @IOF W !,$S($D(PRCHNRQ):"REQUISITION: ",1:"PURCHASE ORDER: "),$P(PRCHD0,U,1),?37,"STATUS: " I $D(^PRC(442,PRCHPO,7)),+^(7)>0 W $S($D(^PRCD(442.3,+^(7),0)):$P(^(0),U,1),1:"")
ADJESIG	;Check for any Adjustment on PO. If any show the adjuster. PRC5.138
SKIPIT	;
Q
ITEM
AMT
ASK
HDR
DT

External References

Name	Field # of Occurrence
%XY^%RCR	ITEM+2
^%ZIS	ST+1
$$DECODE^PRCHES1	ST+16
DIWP^PRCUTL	ITEM+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y>0 Line Location: ST+0
Function Call: WRITE	Prompt: !,$S($D(PRCHNRQ):"REQUISITION: ",1:"PURCHASE ORDER: "),$P(PRCHD0,U,1),?37,"STATUS: " Line Location: ST+0
Function Call: WRITE	Prompt: $S($D(^PRCD(442.3,+^(7),0)):$P(^(0),U,1),1:"") Line Location: ST+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y>0 Line Location: ST+1
Function Call: WRITE	Prompt: !,$S($D(PRCHNRQ):"REQUISITION: ",1:"PURCHASE ORDER: "),$P(PRCHD0,U,1),?37,"STATUS: " Line Location: ST+1
Function Call: WRITE	Prompt: $P($G(^PRCD(442.3,+^(7),0)),U,1) Line Location: ST+1
Function Call: WRITE	Prompt: ! Line Location: ST+4
Function Call: WRITE	Prompt: "-" Line Location: ST+4
Function Call: WRITE	Prompt: !!?5,"Receiving Report Processed By: /ES/"_$$DECODE^PRCHES1(PRCHPO,PRCHDPT),! Line Location: ST+16
Function Call: WRITE	Prompt: !?5,"Adjustment Voucher Processed By: ",ADJNAME,! Line Location: ADJESIG+12
Function Call: WRITE	Prompt: !?2,$J(+$P(PRCHDI0,U,1),3),?7,$G(^(1,1,0)) Line Location: ITEM+3
Function Call: WRITE	Prompt: ?40,$J($P(PRCHDI0,U,2),5),?47,$P($G(^PRCD(420.5,+$P(PRCHDI0,U,3),0)),U,1) Line Location: ITEM+5
Function Call: WRITE	Prompt: ?52,$S($L(X)>3:$J($P(PRCHDI0,U,9),5,4),$L(X)>2:$J($P(PRCHDI0,U,9),6,3),$P(PRCHDI0,U,9)="N/C":" N/C",1:$J($P(PRCHDI0,U,9),7,2)) Line Location: ITEM+6
Function Call: WRITE	Prompt: !?8,^(K,0) Line Location: ITEM+7
Function Call: WRITE	Prompt: !?8,"IMF #: ",$P(PRCHDI0,U,5)_" " Line Location: ITEM+8
Function Call: WRITE	Prompt: "CONTRACT: ",$P(PRCHDI2,U,2) Condition for execution: $P(PRCHDI2,U,2)]"" Line Location: ITEM+8
Function Call: WRITE	Prompt: ! Line Location: ITEM+9
Function Call: WRITE	Prompt: ?61,$J($P(Y,U,2),5),?68,$J($P(Y,U,3),8,2) Line Location: AMT+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: @IOF,!! Line Location: ASK+0
Function Call: WRITE	Prompt: !?55,"UNIT",?63,"QTY",?71,"TOTAL",!,"ITEM",?15,"DESCRIPTION",?42,"QTY",?46,"UNIT",?55,"COST",?63,"REC",?71,"COST",! Line Location: HDR+0
Function Call: WRITE	Prompt: "-" Line Location: HDR+0
Function Call: WRITE	Prompt: Y\100#100,"/",Y#100\1,"/",Y\10000+1700 Line Location: DT+0
Routine Call	%ZIS Line Location: ST+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(442 - [#442]	V+2, ST+1, ST+3, ST+6, ST+7, ST+8, ST+10, ST+11, ST+12, ST+13 , ST+15, ADJESIG+1, ADJESIG+3, ADJESIG+5, ADJESIG+8, ITEM, ITEM+1, AMT
^PRCD(420.5 - [#420.5]	ITEM+5
^PRCD(442.3 - [#442.3]	ST+1
^PRCD(442.5 - [#442.5]	ST+3
^TMP($J	Q!, ITEM+2!, ITEM+3, ITEM+7
^UTILITY($J	Q!, ITEM!
^VA(200 - [#200]	ADJESIG+11

Label References

Name	Line Occurrences
AMT	ST+12, ITEM+6
ASK	ST+8, ITEM+7
DT	ST+3
HDR	ST+5, ASK
ITEM	ST+8
Q	ST+9, ST+14
SKIPIT	ADJESIG+1, ADJESIG+4, ADJESIG+7, ADJESIG+9

Naked Globals

Name	Field # of Occurrence
^(	ITEM+1, ITEM+7
^(0	ST+3, ST+13, ST+15, AMT
^(1	ITEM+3
^(2	ITEM
^(7	ST+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	ITEM+2*
>> %Y	ITEM+2*
>> %ZIS	ST+1*
ADJDATA	ADJESIG+5*, ADJESIG+6, ADJESIG+7, ADJESIG+13!
ADJDUZ	ADJESIG+10*, ADJESIG+11, ADJESIG+13!
ADJESIG	ADJESIG+10*, ADJESIG+13!
ADJNAME	ADJESIG+11*, ADJESIG+12, ADJESIG+13!
ADJNUM	ADJESIG+6*, ADJESIG+8, ADJESIG+13!
ADJUSTER	ADJESIG+2, ADJESIG+8, ADJESIG+9, ADJESIG+10, ADJESIG+13!
CHKADJ	ADJESIG+2, ADJESIG+3, ADJESIG+4, ADJESIG+5, ADJESIG+13!
>> DA	ITEM+1
DIWF	Q!, ITEM*
DIWL	Q!, ITEM*
DIWR	Q!, ITEM*
DTIME	SKIPIT+1, ASK
>> I	ST+4, HDR
IOF	ST+1, ASK
IOP	ST+1*, Q!
IOSL	ST+8, ITEM+7, ASK
IOST	SKIPIT+1
ISADJ	ADJESIG+2, ADJESIG+7, ADJESIG+13!
>> K	ITEM+7*
PRCHD0	V+2*, ST+1, ST+3, Q!
PRCHDA	ST+5, ST+14, Q!, AMT
PRCHDCNT	Q!, ITEM+3*, ITEM+7
PRCHDI	ST+5, ST+6, ST+7, ST+8, ST+10*, ST+11, ST+12, Q!, ITEM, ITEM+1 , AMT
PRCHDI0	Q!, ITEM*, ITEM+3, ITEM+5, ITEM+6, ITEM+8
PRCHDI2	Q!, ITEM*, ITEM+8
PRCHDIW	Q!, ITEM, ITEM+1
PRCHDN	ST+7, ST+8, ST+11, Q!, AMT
PRCHDPT	ST+3, ST+7, ST+11, ST+13, ST+15, ST+16, ADJESIG+3, Q!
PRCHDQ	ST+5, ST+6, ST+8, ST+9, ST+10, ST+13, Q!, ITEM+7, AMT+1, ASK
PRCHDRD	ST+6, ST+10, Q!
PRCHDTA	ST+5, ST+13, ST+14, ST+15, Q!, AMT
PRCHDTP	ST+3, ST+9, ST+10, ST+13, ST+14, Q!
PRCHJ	Q!, ITEM+1*
>> PRCHNRQ	ST+1
>> PRCHPO	V+2, ST+1, ST+3, ST+6, ST+7, ST+8, ST+10, ST+11, ST+12, ST+13 , ST+15, ST+16, ADJESIG+1, ADJESIG+3, ADJESIG+5, ADJESIG+8, ITEM, ITEM+1, AMT
U	ST+1, ST+3, ST+13, ST+15, ADJESIG+3, ADJESIG+6, ADJESIG+7, ADJESIG+10, ADJESIG+11, ITEM+3 , ITEM+5, ITEM+6, ITEM+8, AMT, AMT+1
>> X	ST+15, SKIPIT+1, ITEM+1, ITEM+6, ASK*
>> Y	ST+3, AMT, AMT+1, DT

Customize PDF page

Package: IFCAP