Routine: PRCHE

Package	Total	Call Graph
IFCAP	13	^PRCFACS2 ^PRCFSITE ^PRCFYN ^PRCHAM4 ^PRCHDP1 EN80^PRCHEF ^PRCHNPO EN3^PRCHPAT $$ERR^PRCHQQ ENPO^PRCHUTL (CHECK,DISP)^PRCOSS1 BLDSEG^PRCPHLFM ONECHK^PRCVIT
VA FileMan	6	EN^DDIOL ^DIC MIX^DIC1 YN^DICN ^DIE ^DIR
MailMan	1	^XMD
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
IFCAP	33	PRCH ADJUSTMENT TO DEL ORDER PRCH ADJUSTMENT VOUCHER PRCH ADUST VOUCH TO P/C ORDER PRCH COMNUM EDIT PRCH EDIT DELIVERY ORDER PRCH EDIT DETAILED ORDER PRCH EDIT PHARMACY ORDER PRCH EDIT SIMPLIFIED ORDER PRCH EMPLOYEE EDIT PRCH ENTER DELIVERY ORDER PRCH ENTER DETAILED ORDER PRCH ENTER PHARMACY ORDER PRCH ENTER SIMPLIFIED ORDER PRCH PC DIRECT DELIVERY1 PRCH PC DIRECT DELIVERY2 PRCH SITE EDIT PRCH7B PRCH7D PRCHE2 PRCHEB PRCHEF PRCHFPDE PRCHPC ADMINCERT EDIT PRCHPC DEL EDIT PRCHPC ITEM EDIT PRCHPC PO ADD PRCHPC PO EDIT PRCHPCAR PRCHPM LOG DEPT.NO.EDIT PRCHPM PO DEL REC PRCHREC PRCHREC2 PRCHRP3

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;1,28,39,81,63,144,163,198;Oct 20, 2000;Build 6
EN1	;ITEM FILE EDIT
EN2	;EDIT SITE PARAMETERS
EN2A
EN2DSP	;Display entries from file #411 if they are Ok in file #4. Otherwise,
EN3	;EDIT VENDOR FILE
EN5	;ENTER A NEW P.O.
EN50
EN6	;EDIT AN INCOMPLETE P.O.
EN60
EN8	;DELETE A RECEIVING REPORT
EN9	;EDIT COMMON NUMBERING SERIES
EN10	;EDIT SUPPLY EMPLOYEE INFORMATION
EN10Q
EN11	;EDIT ADMINISTRATIVE CERTIFICATIONS
EN12	;EDIT DELIVERY DATE
EN120
EN13	; Delete 2237 option has been de-activated. ; See documentation for PRC5128.
EN14	;CREATE ADJUSTMENT VOUCHER
EN140
EN15	;ENTER LOG DEPARTMENTS TO FCP FILE (420)
EN150
DIE
QQ
Q
LCK1
LCK
ST
PO
PORQ
PCAUTH(PRCUSER,PRCORDIEN)	; Determine if authorized to adjust PCard Tx ; parameter 1 = DUZ of current user ; parameter 2 = IEN of order in file #442 ; returns 1 if this is not a Purchase Card transaction ; returns 2 if this is a PCard order and the user is Holder, Surrogate, Approving Official, or Alternate Approving Official ; returns 0 if this is a PCard order but the user is not one of the above ; for values 0 and 2, returns the purchase card IEN (#440.5) in the second up-arrow piece
WRNGMSG	;Send message to PCard holder when non-authorized user attempts to modify Tx

External References

Name	Field # of Occurrence
EN^DDIOL	EN1+13, EN2+8, EN2DSP+10
^DIC	EN1+5, EN1+19, EN10+1, DIE
MIX^DIC1	EN150+1
YN^DICN	EN2+9
^DIE	EN1+14, EN1+19, EN10+4, EN120+5, EN150+2, DIE+1
^DIR	QQ
^PRCFACS2	EN120+7
^PRCFSITE	EN1+2, ST
^PRCFYN	EN120+4
^PRCHAM4	EN140+11
^PRCHDP1	EN120+4
EN80^PRCHEF	EN8+1
^PRCHNPO	EN50, EN60+1
EN3^PRCHPAT	PO+7, PORQ+3
$$ERR^PRCHQQ	QQ
ENPO^PRCHUTL	EN50
CHECK^PRCOSS1	EN1+18
DISP^PRCOSS1	EN1+3
BLDSEG^PRCPHLFM	EN1+25
ONECHK^PRCVIT	EN1+23
^XMD	WRNGMSG+14
$$GET^XPAR	EN1+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN1+3
Function Call: WRITE	Prompt: $C(7),!!,"Warning--BOC is missing from this item--you should",!,"re-edit the item!!",! Line Location: EN1+24
Function Call: READ	Formatting: ! Prompt: "STATION NUMBER: " Variable: X Timeout: DTIME Line Location: EN2+1
Function Call: WRITE	Prompt: !,"Please enter a 3 digit number or '^' to exit. If attempting to enter substation information, please use 'Substation Enter/Edit'." Line Location: EN2+3
Function Call: WRITE	Prompt: " ?? (That is not a valid Station Number)" Line Location: EN2+6
Function Call: WRITE	Prompt: !,$C(7),?5,"ENTRY "_PRCDA_" IS NOT SET UP PROPERLY IN FILE #4. PLEASE CALL IRM" Line Location: EN2DSP+8
Function Call: WRITE	Prompt: ! Line Location: EN9+1
Function Call: WRITE	Prompt: !!,$C(7),"NOTE: Since you have left the USING SECTION field empty, these",!,"numbers can only be used by P&C.",! Line Location: EN9+1
Function Call: WRITE	Prompt: $C(7),!,"ANOTHER USER IS EDITING THIS ENTRY!" Line Location: EN10+3
Function Call: WRITE	Prompt: !?5,"To edit the Signature Block Printed Name or title, Use TBOX",! Line Location: EN10+6
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: EN120+1
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: EN120+2
Function Call: WRITE	Prompt: $C(7),!,"Adjustment Vouchers not allowed until after order has been Obligated!!" Line Location: EN140+2
Function Call: WRITE	Prompt: !?3,"Order has no Receiving Reports !",$C(7) Line Location: EN140+3
Function Call: WRITE	Prompt: $C(7),!,"You are not authorized to make adjustments on P-Card:" Line Location: EN140+8
Function Call: WRITE	Prompt: !,?6,$P(^PRC(440.5,PCARDIEN,0),U,11),", belonging to ",PCARDNM Line Location: EN140+9
Function Call: WRITE	Prompt: !,">>> You have just assigned a LOG DEPARTMENT that should only be used for Subsistence FCPs. If that is NOT true, please reassign it or you will be asked for a Food Group on every item purchased." Line Location: EN150+4
Function Call: WRITE	Prompt: !!,$$ERR^PRCHQQ(ROUTINE,PRCSIG) Line Location: QQ+0
Function Call: WRITE	Prompt: !,"Notify Application Coordinator!",$C(7) Condition for execution: PRCSIG=0!(PRCSIG=-3) Line Location: QQ+0
Function Call: WRITE	Prompt: !,$C(7),"ANOTHER USER IS EDITING THIS ENTRY!" Line Location: LCK+0
Routine Call	DIC Line Location: EN1+5 EN1+19 EN10+1 DIE
Routine Call	DIE Line Location: EN1+14 EN1+19 EN10+4 EN120+5 EN150+2 DIE+1
Routine Call	DIR Line Location: QQ

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^PRC(411 - [#411]	Classic Fileman Calls
^PRC(440 - [#440]	Classic Fileman Calls
^PRC(441 - [#441]	Classic Fileman Calls
^PRC(442 - [#442]	Classic Fileman Calls
^PRC(442.6 - [#442.6]	Classic Fileman Calls
^PRC(442.7 - [#442.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	EN2+6, EN2+7, EN2DSP+7, EN2DSP+9
^PRC(411 - [#411]	EN2+4, EN2DSP+3, EN2DSP+4, EN2DSP+5
^PRC(420 - [#420]	EN150+3
^PRC(440.5 - [#440.5]	EN140+5, EN140+7, EN140+9, PCAUTH+11, WRNGMSG+2
^PRC(441 - [#441]	EN1+8, EN1+19, EN1+24
^PRC(442 - [#442]	EN120+5, EN120+7, EN140+3, PCAUTH+9
^PRC(442.6 - [#442.6]	EN9+1
^PRCP(445 - [#445]	EN1+25
^TMP("PRCHE"	WRNGMSG+3!, WRNGMSG+4, WRNGMSG+5, WRNGMSG+6, WRNGMSG+7, WRNGMSG+8, WRNGMSG+9, WRNGMSG+15!
^VA(200 - [#200]	EN10+3, EN10+5, EN140+7, WRNGMSG+6
^XUSEC("PRCHITEM MASTER"	EN1+8
^XUSEC("PRCHITEM SUPER"	EN1+8

Label References

Name	Line Occurrences
$$PCAUTH	EN140+4
DIE	EN2A, EN3+1, EN9+1, EN11+1
EN1	EN1+26
EN10	EN10+3, EN10+7
EN10Q	EN10+2
EN11	EN11+1
EN120	EN120+2, EN120+3, EN120+8
EN140	EN140+2, EN140+3, EN140+4, EN140+11
EN150	EN150+5
EN2	EN2+2, EN2+3, EN2+6, EN2+9, EN2A+1
EN2A	EN2+4
EN2DSP	EN2+2
EN3	EN3+1
EN50	EN50
EN60	EN60+1
EN9	EN9+2
LCK	EN1+14, DIE+1
LCK1	EN50, EN60+1, EN120+3
PO	EN60
PORQ	EN120, EN140
Q	EN1+17, EN1+19, EN120, EN120+8, EN150+1, DIE+2
ST	EN5+1, EN6+2, EN8+1, EN12+1, EN14+1, EN15+1
WRNGMSG	EN140+10

Naked Globals

Name	Field # of Occurrence
^(	EN9+1
^(0	EN120+5*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN2+9, EN120+4, Q!
>> %A	EN120+4*
>> %B	EN120+4*
CHECK	Q!
>> D	EN150+1*
D0	EN120+4*, Q!
DA	EN1+7, EN1+8, EN1+14, EN1+16, EN1+19, EN50, EN60+1, EN10+1!, EN10+3, EN10+5 , EN10Q!, EN120+3, EN120+4, EN120+5, EN150+2, EN150+3, DIE+1, Q!, LCK!
DA(1	EN1+19, EN150+2, EN150+3
DIC	EN1+4, EN1+7, EN1+19, EN2A, EN3+1, EN9+1, EN10+1!, EN10+4, EN10Q!, EN11+1* , EN150, EN150+2, DIE+1, Q!, LCK1, LCK
DIC("A"	EN150+1*
DIC("S"	EN1+4*
DIC(0	EN1+4, EN1+19, EN2A, EN3+1, EN9+1, EN10+1, EN11+1, EN150
DIE	EN1+7, EN1+19, EN10+4!, EN10Q!, EN120+5, EN150+2, DIE+1, Q!
DIK	Q!
>> DILOCKTM	LCK
>> DIR("A"	QQ*
>> DIR(0	QQ*
DLAYGO	EN1+4, EN2A, EN3+1, EN9+1, EN11+1*, Q!
DR	EN1+8, EN1+9, EN1+19, EN2A, EN3+1, EN9+1, EN10+4!, EN10Q!, EN11+1, EN120+5 , EN150+2*, Q!
DTIME	EN2+1
DTOUT	EN10+7, EN10Q!
DUOUT	EN10Q!
DUZ	EN1+8, EN140+4
E	Q!
FLG1	EN60~, EN8+1~, PO+1
I	Q!
J	EN2DSP+2~, EN2DSP+3, EN2DSP+6, EN2DSP+9, EN2DSP+10, Q!
L	Q!
PCARD	PCAUTH+7~, PCAUTH+9*, PCAUTH+10, PCAUTH+11, PCAUTH+12
PCARDID	EN140+1~, EN140+5*, WRNGMSG+6
>> PCARDIEN	EN140+5*, EN140+7, EN140+9, WRNGMSG+2
PCARDNM	EN140+1~, EN140+7*, EN140+9
PCAUTH	PCAUTH+7~, PCAUTH+8, PCAUTH+11, PCAUTH+12
PCXRF	PCAUTH+7~, PCAUTH+11*
>> PRC("PARAM"	EN1+2, EN1+24
>> PRC("PER"	WRNGMSG+8
>> PRC("SITE"	EN5+1, EN6+2, EN8+1, EN12+1, EN14+1, EN15+1, EN150, EN150+2
PRCA	EN2DSP+2~, EN2DSP+5*, EN2DSP+6, EN2DSP+10
PRCA(	EN2DSP+6, EN2DSP+9, EN2DSP+10*
PRCA(1	EN2DSP+10*
PRCARDIEN	EN140+1~
PRCARR	EN1+10~, EN1+13
PRCARR(1	EN1+10*
PRCARR(2	EN1+11*
PRCARR(3	EN1+12*
PRCDA	EN2DSP+2~, EN2DSP+3*, EN2DSP+4, EN2DSP+7, EN2DSP+8
>> PRCF("X"	EN1+2, ST
>> PRCH("AM"	EN5+2!
>> PRCHAUTH	PORQ+1, PORQ+2
PRCHDA	EN1+5, EN1+7, EN1+17!, EN1+19, EN1+24, EN1+25, EN1+26!, DIE, DIE+1*, DIE+2!
>> PRCHDELV	PO+4
PRCHDT	EN120+5*, EN120+7, EN120+8!
>> PRCHDTT	EN120+7*
PRCHEX	Q!
>> PRCHNRQ	PORQ
PRCHOLDER	WRNGMSG+1~, WRNGMSG+2*, WRNGMSG+6, WRNGMSG+13
PRCHP	EN12+1~
PRCHP("A"	PO, PORQ
PRCHP("S"	PO+1, PO+2, PO+3, PO+4, PO+5, PO+6, PORQ+1, PORQ+2
>> PRCHPC	PO+2, PO+3, PO+5
>> PRCHPHAM	PO+6
PRCHPO	EN1+5*, EN1+17!, EN3+1!, EN50, EN60, EN120, EN120+5, EN120+7, EN140, EN140+3 , EN140+4
PRCHPUSH	Q!
PRCIEN	EN2DSP+2~, EN2DSP+4*, EN2DSP+5
PRCINSN	EN2DSP+2~, EN2DSP+7*, EN2DSP+9
PRCOK	EN140+1~, EN140+4*, EN140+5
PRCORDIEN	PCAUTH~, PCAUTH+9
>> PRCSIG	QQ
PRCUSER	PCAUTH~, PCAUTH+11
PRCVDA	EN1+1~, EN1+16, EN1+19, EN1+23
PRCX	EN2+5~, EN2+6, EN2+7, EN2+8
ROUTINE	QQ*, Q!
U	EN1+8, EN1+24, EN2+7, EN2DSP+5, EN2DSP+9, EN9+1, EN120+2, EN120+5, EN120+7, EN140+5 , EN140+7, EN140+9, EN150+3, PCAUTH+9, PCAUTH+12, WRNGMSG+2, WRNGMSG+6, WRNGMSG+7, WRNGMSG+8
X	EN2+1~, EN2+2, EN2+3, EN2+4, EN2+6, EN2+8, EN10+1!, EN10Q!, EN120+2, EN120+5 , EN140+2
XMDUZ	WRNGMSG+1~, WRNGMSG+10*
XMSUB	WRNGMSG+1~, WRNGMSG+11*
XMTEXT	WRNGMSG+1~, WRNGMSG+12*
XMY	WRNGMSG+1~
XMY(	WRNGMSG+13*
Y	EN1+6, EN1+7, EN1+17, EN1+18, EN1+19, EN3+1, EN9+1, EN10+1!, EN10+2, EN10+3 , EN10Q!, EN11+1, EN150+1, EN150+2, DIE+1, DIE+2
Y(0	WRNGMSG+7

Marked Items

Name	Field # of Occurrence
$T(	QQ

Customize PDF page

Package: IFCAP

Routine: PRCHE

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 33

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items