Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PRCHE

Package: IFCAP

Routine: PRCHE


Information

PRCHE ;WOIFO/LKG/DST-EDIT ROUTINES FOR SUPPLY SYSTEM ;1/25/17 13:03

Source Information

Source file <PRCHE.m>

Call Graph

Call Graph

Call Graph Total: 21

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  

Caller Graph

Caller Graph Total: 33

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 PRC*5*128.
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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All