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: PRCHEA1

Package: IFCAP

Routine: PRCHEA1


Information

PRCHEA1 ;SF-ISC/TKW/DST/AS-MORE EDIT ROUTINES FOR SUPPLY SYSTEM ;3/17/17 18:48

Source Information

Source file <PRCHEA1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
IFCAP 3 ^PRCFYN  ONECHK^PRCVIT  ONECHK^PRCVNDR  
VA FileMan 3 NOW^%DTC  ^DIC  ^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: 4

Package Total Caller Graph
IFCAP 4 PRCHPC ITEM INACTIVATE  PRCHPC ITEM REACTIVATE  PRCHPC VEN INACTIVATE  PRCHPC VEN REACTIVATE  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**81,198**;Oct 20, 2000;Build 6
EN0 ;REACTIVATE VENDOR
EN1 ;INACTIVATE VENDOR
EN2 ;INACTIVATE ITEM
EN3 ;REACTIVATE ITEM
Q

External References

Name Field # of Occurrence
NOW^%DTC EN1+4, EN2+4
^DIC EN0+6, EN1+10, EN1+25, EN2+10, EN2+23, EN3+6
^DIE EN0+24, EN1+40, EN2+35, EN3+22
^PRCFYN EN0+21, EN1+35, EN2+29, EN3+19
ONECHK^PRCVIT EN2+37, EN3+24
ONECHK^PRCVNDR EN0+26, EN1+42
$$GET^XPAR EN0+26, EN1+42, EN2+37, EN3+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER USER IS EDITING THIS ENTRY!"
  • Line Location: EN0+9
Function Call: WRITE
  • Prompt: !,"Sure you want to RE-activate Vendor "_PRCHY_", NO:"_IEN
  • Line Location: EN0+18
Function Call: WRITE
  • Prompt: $C(7),!,"Please choose another vendor that is not inactivated."
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER USER IS EDITING THIS ENTRY!"
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: !!,"Enter the Vendor you want to substitute for the inactivated vendor "
  • Line Location: EN1+20
Function Call: WRITE
  • Prompt: !!,"Sure you want to inactivate Vendor "_$P(^PRC(440,PRCHOLD,0),U)_", NO:"_IENO
  • Line Location: EN1+31
Function Call: WRITE
  • Prompt: $C(7),!," ITEM ALREADY INACTIVE"
  • Line Location: EN2+12
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER USER IS EDITING THIS ENTRY!"
  • Line Location: EN2+14
Function Call: WRITE
  • Prompt: !!,"Enter the item you want to substitute for the inactivated item "
  • Line Location: EN2+20
Function Call: WRITE
  • Prompt: !!,"Sure you want to inactivate Item ",PRCHOLD
  • Line Location: EN2+25
Function Call: WRITE
  • Prompt: !,$C(7),"ANOTHER USER IS EDITING THIS ENTRY!"
  • Line Location: EN3+9
Function Call: WRITE
  • Prompt: !,"Sure you want to RE-activate Item number ",DA
  • Line Location: EN3+16
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+1
Routine Call
  • DIC
  • Line Location:
    • EN0+6
    • EN1+10
    • EN1+25
    • EN2+10
    • EN2+23
    • EN3+6
Routine Call
  • DIE
  • Line Location:
    • EN0+24
    • EN1+40
    • EN2+35
    • EN3+22

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] EN0+9, EN0+31, EN1+12, EN1+15, EN1+31, EN1+32, EN1+47
^PRC(441 - [#441] EN2+14, EN2+42, EN3+9, EN3+29

Label References

Name Line Occurrences
EN0 EN0+33
EN1 EN1+12, EN1+49
EN2 EN2+12, EN2+44
EN3 EN3+31
Q EN0+7, EN0+10, EN0+32, EN1+11, EN1+16, EN1+48, EN2+11, EN2+15, EN2+43, EN3+7
, EN3+10, EN3+30

Naked Globals

Name Field # of Occurrence
^(10 EN1+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN0+20*, EN0+22, EN1+5, EN1+34*, EN1+36, EN2+5, EN2+28*, EN2+30, EN3+18*, EN3+20
>> %B EN0+19*, EN1+33*, EN2+27*, EN3+17*
DA EN0+8*, EN0+9!, EN0+10, EN0+16, EN0+26, EN0+31, EN1+13*, EN1+15!, EN1+16, EN1+38*
, EN1+42, EN1+47, EN2+13*, EN2+14!, EN2+15, EN2+19, EN2+32*, EN2+37, EN2+42, EN3+8*
, EN3+9!, EN3+10, EN3+16, EN3+24, EN3+29, Q!
DIC EN0+3*, EN0+4, EN1+7~, EN1+8*, EN2+7!, EN2+8*, EN3+3*, EN3+4, Q!
DIC("A" EN1+22*, EN2+21*
DIC("S" EN0+5*, EN1+9*, EN1+21*, EN2+9*, EN3+5*
DIC(0 EN0+5*, EN1+9*, EN2+9*, EN3+5*
DIE EN0+4*, EN1+37*, EN2+31*, EN3+4*, Q!
DR EN0+23*, EN1+39*, EN2+33*, EN2+34*, EN3+21*, Q!
DT EN1+3, EN1+5*, EN2+3, EN2+5*
>> IEN EN0+16*, EN0+17*, EN0+18
>> IENO EN1+29*, EN1+30*, EN1+31
>> IENS EN1+27*, EN1+28*, EN1+32
PRCHOLD EN1+13*, EN1+29, EN1+31, EN1+38, EN2+19*, EN2+25, EN2+32, Q!
PRCHREAV EN0+2*, EN1+2!, EN2+2!, EN3+2*, Q!
PRCHX EN1+23*, EN1+26*, EN1+27, EN1+32, Q!
PRCHY EN0+14*, EN0+15*, EN0+18, EN1+14*, EN1+24*, EN2+22*, EN3+14*, EN3+15*, Q!
PRCHZ EN2+24*, EN2+34, Q!
U EN0+14, EN1+12, EN1+14, EN1+24, EN1+31, EN1+32, EN2+22, EN3+14
>> Y EN0+7, EN0+8, EN1+11, EN1+12, EN1+13, EN1+26, EN2+11, EN2+13, EN2+24, EN2+26
, EN3+7, EN3+8
>> Y(0 EN0+14, EN1+14, EN1+24, EN2+12, EN2+22, EN3+14
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