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  | All
Print Page as PDF
Routine: PRCHEA

Package: IFCAP

Routine: PRCHEA


Information

PRCHEA ;WOIFO/ID/RSD,SF-ISC/TKW-EDIT ROUTINES FOR SUPPLY SYSTEM ;3/5/98 11:05 AM

Source Information

Source file <PRCHEA.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
IFCAP 7 ^PRCFSITE  ^PRCFYN  ^PRCHAM  ^PRCHNPO  (EN,EN3)^PRCHPAT  (ENS,UPD)^PRCHSTAT  DEL^PRCV442A  
VA FileMan 4 NOW^%DTC  (,IX)^DIC  WAIT^DICD  ^DIE  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
IFCAP 7 PRCFA BOC EDIT  PRCHEB  PRCHPC PO CANCEL  PRCHPC PO GRAB  PRCHPCAR  PRCHPM RQ EDIT  PRCHPM RQ NEW  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**81**;Oct 20, 2000
EN3 ;ADD A REQUISITION
EN30
EN4 ;EDIT A REQUISITION
EN40
EN5 ;EDIT BOC IN ITEM FILE
EN6 ;AMENDMENTS
EN60
EN7 ;CANCEL UNOBLIGATED PO
EN70
EN8 ;GRAB A PO NUMBER
EN80
EN81
EN82
Q
LCK1
LCK
ST

External References

Name Field # of Occurrence
NOW^%DTC EN82+3
^DIC EN5+1, EN82+2
IX^DIC EN80+1
WAIT^DICD EN80+2
^DIE EN5+2
^PRCFSITE ST
^PRCFYN EN70+5
^PRCHAM EN60+5
^PRCHNPO EN30+3, EN40+5
EN^PRCHPAT EN30
EN3^PRCHPAT EN40+3, EN60+2, EN70+3
ENS^PRCHSTAT EN30+1
UPD^PRCHSTAT EN70+6, EN82+3
DEL^PRCV442A EN70+8
$$GET^XPAR EN70+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: EN40+4
Function Call: WRITE
  • Prompt: !?3,^(I,0)
  • Line Location: EN5+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN5+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN5+2
Function Call: WRITE
  • Prompt: $C(7),!,"Amendments not allowed until after order has been Obligated!!"
  • Line Location: EN60+3
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: EN60+4
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: EN70+3
Function Call: WRITE
  • Prompt: $C(7),!!,"WARNING--2237 HAS NOT BEEN REMOVED FROM THIS ORDER!!"
  • Line Location: EN70+4
Function Call: WRITE
  • Prompt: ?40," <NOTHING CANCELLED>",$C(7)
  • Line Location: EN70+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN80+0
Function Call: WRITE
  • Prompt: !!,"How many Purchase Order numbers do you want: "
  • Line Location: EN80+0
Function Call: WRITE
  • Prompt: " ??",$C(7),!,"Enter a number between 1 and 5."
  • Line Location: EN80+0
Function Call: WRITE
  • Prompt: !?37,PRCHX(I)
  • Line Location: EN80+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to continue"
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN80+4
Function Call: WRITE
  • Prompt: !?3,"UPPER BOUND HAS BEEN EXCEEDED FOR COMMON NUMBERING SERIES ",$P(PRCHY,U,2),$C(7)
  • Line Location: EN82+0
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER USER IS EDITING THIS ENTRY!"
  • Line Location: LCK+0
Routine Call
  • DIC
  • Line Location:
    • EN5+1
    • EN82+2
Routine Call
  • DIC
  • Line Location:
    • EN80+1
Routine Call
  • DIE
  • Line Location:
    • EN5+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(441 - [#441] Classic Fileman Calls
^PRC(442 - [#442] Classic Fileman Calls
^PRC(442.6 - [#442.6] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] EN5+1
^PRC(442 - [#442] EN30+2*, EN70+4, EN70+6*, EN82+1, EN82+3*
^PRC(442.6 - [#442.6] EN82+2*
^PRCD(442.3 - [#442.3] EN70+6

Label References

Name Line Occurrences
EN30 EN30+1, EN30+4
EN40 EN40+4, EN40+5, EN40+6
EN5 EN5+3
EN60 EN60+4, EN60+6
EN70 EN70+3, EN70+4, EN70+5, EN70+9
EN80 EN80, EN80+2
EN81 EN80+2
EN82 EN82+1, EN82+2
LCK EN80+2
LCK1 EN30+1, EN40+5, EN70+5
Q EN5+1, EN5+2
ST EN3+6, EN4+6, EN6+1, EN7+1, EN8+1

Naked Globals

Name Field # of Occurrence
^( EN5+1
^(9 EN70+6!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN70+5*
>> %A EN70+5*
>> %B EN70+5*
>> D EN80+1*
DA EN30+1*, EN40+5, EN5+1*, EN70+5, EN70+6*, EN80+2*, EN80+4!, EN82+3*, Q!, LCK!
DIC EN5+1*, EN5+2, EN80+1*!, EN80+2!, EN80+4!, EN82+2*, Q!, LCK1*, LCK
DIC("S" EN80+1*
DIC(0 EN5+1*, EN80+1*, EN82+2*
DIE EN5+2*, Q!
>> DLAYGO EN82+2*
DR EN5+1*, Q!
DTIME EN80, EN80+4
DUZ EN82+3
>> I EN5+1*, EN80+3*
>> L EN81*, EN82+1
>> PRC("SITE" EN60, EN70, EN80
>> PRCF("X" ST*
>> PRCHFLG EN6+1*, EN60+2*
>> PRCHI EN80+2*, EN82*, EN82+2*, EN82+3
>> PRCHIMP EN70+2
PRCHNRQ EN30*!, EN40*, EN40+3!, EN60+1, EN70+1, EN70+2
PRCHP EN3+5~, EN4+5~, EN6+1~, EN60!, EN7+1~
PRCHP("A" EN30*, EN40*, EN60+1*, EN70+2*
PRCHP("S" EN30*, EN40+1*, EN40+2*, EN60*, EN60+1*, EN70*, EN70+1*, EN70+2*
PRCHP("T" EN30*
>> PRCHPC EN40+2
>> PRCHPO EN30, EN30+1, EN30+2, EN40+3, EN60+2, EN70+3, EN70+4, EN70+6, EN70+8
PRCHREAV Q!
PRCHX EN80!, EN80+1*, EN80+2, EN80+4!, EN82, EN82+2, Q!
PRCHX( EN80+3, EN82+3*
PRCHY EN80+2*, EN80+4!, EN81, EN82, EN82+1, EN82+2, Q!
PRCHY(0 EN80+2*, EN81, EN82
PRCHZZZ9 EN3+5~, EN30*, EN4+5~, EN40*
U EN70+4, EN70+6, EN81, EN82, EN82+1, EN82+2, EN82+3
>> X EN30+1*, EN40+4, EN60+4, EN70+3, EN70+6*, EN80*, EN80+1, EN80+4*, EN81*, EN82+1*
, EN82+3*
>> Y EN5+1, EN70+6*, EN80+1, EN80+2, EN82+2, EN82+3*
>> Y(0 EN80+2
Z EN30+2*, EN80+4!, EN81*, EN82, EN82+1*, EN82+2
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  | All