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

Package: Consult Request Tracking

Routine: GMRC101C


Information

GMRC101C ;SLC/DLT,DCM - Create Protocol entries for OE/RR ADD orders screens (Continued) ;5/21/98 13:53

Source Information

Source file <GMRC101C.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Consult Request Tracking 5 EN^GMRC101H  EXAC^GMRCADC  GMRCR^GMRCMU  EN3^GMRCPREF  $$PACKAGE^GMRCR  
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Kernel 1 MSG^XQOR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Consult Request Tracking 1 GMRC101  

Entry Points

Name Comments DBIA/ICR reference
EN ;Loop logic to process consult types/procedure request
ASK1 ;Ask for Relate Service
DEFAULT ;default variable setting depending on protocol type
SETUP ;Get the Itemtext and service name
ITEMTXT ;Ask for item text
ACCESS ;Check for Protocol Item with GMRC101 security restricting name change of the Protocols .01 field.
EN1 ;get a GMRCT or GMRCR prefixed protocol
ADD ;Enter a new protocol
BUILD ;Logic to update file 101
ASK ;Ask for Item Text and Related Service
END ;Clean-up logic

External References

Name Field # of Occurrence
^DIC EN1+1, ACCESS+3
^DIE BUILD+4, BUILD+9, BUILD+12
^DIR EN+1, ASK1+1, ITEMTXT+3, ITEMTXT+10, BUILD+8, BUILD+11
EN^GMRC101H BUILD+15
EXAC^GMRCADC DEFAULT+2
GMRCR^GMRCMU BUILD+19
EN3^GMRCPREF BUILD+2
$$PACKAGE^GMRCR DEFAULT+2
MSG^XQOR BUILD+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select a 'GMRCT ' prefixed protocol",!
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,"Select a 'GMRCR ' prefixed protocol",!
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !,$C(7),"You Cannot Delete This Entry, ONLY CHANGE IT!",!
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !,$C(7),$P(^(0),"^",1)_" Has Been Disabled.",!,"You Cannot Add A Procedure To A Disabled Service!",!
  • Line Location: ASK1+7
Function Call: WRITE
  • Prompt: !!," Each "_GMRCDESC_" will have a related consult service associated with it.",!," If no service is identified the service will be prompted for during the",!," add orders process.",!
  • Line Location: ASK1+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: ITEMTXT+2
Function Call: WRITE
  • Prompt: !!,"The ITEM TEXT should begin with an alphabetic character. Please re-enter."
  • Line Location: ITEMTXT+4
Function Call: WRITE
  • Prompt: !,"** "_Y_" is already being used by "
  • Line Location: ITEMTXT+7
Function Call: WRITE
  • Prompt: ?25," "_TXT
  • Line Location: ITEMTXT+8
Function Call: WRITE
  • Prompt: !,"This is a duplicate name. Please re-enter a unique item text."
  • Line Location: ITEMTXT+9
Function Call: WRITE
  • Prompt: !,"The Protocol name "_$P(^ORD(101,ORDA,0),"^",1),!," WILL NOT be changed to match ITEM TEXT due to Package Code dependencies!",!
  • Line Location: ITEMTXT+13
Function Call: WRITE
  • Prompt: !!,$C(7),GMRCPRO_" Was Not Added To The Protocol Or Orderable Item File!",!
  • Line Location: BUILD+3
Routine Call
  • DIE
  • Line Location:
    • BUILD+4
    • BUILD+9
    • BUILD+12
Routine Call
  • DIC
  • Line Location:
    • EN1+1
    • ACCESS+3
Routine Call
  • DIR
  • Line Location:
    • EN+1
    • ASK1+1
    • ITEMTXT+3
    • ITEMTXT+10
    • BUILD+8
    • BUILD+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123.5 - [#123.5] ASK1+7, SETUP+3
^ORD(101 - [#101] ITEMTXT+6, ITEMTXT+8, ITEMTXT+13, SETUP+2, SETUP+3, ACCESS+4, BUILD+5, BUILD+8, BUILD+11, BUILD+18

Label References

Name Line Occurrences
ACCESS ITEMTXT+13
ADD EN+4
ASK EN1+4, ADD+1
ASK1 ASK1+1, ASK1+7
BUILD EN1+6, ADD+3
DEFAULT EN1+4, ADD+1
EN EN1+6
EN1 EN+3, EN1+2, EN1+3
END EN+2, EN1+1, EN1+4, EN1+6, ADD+1, ADD+3, ASK1+4, BUILD+7
ITEMTXT ASK+1, ITEMTXT+4, ITEMTXT+6
SETUP EN1+4

Naked Globals

Name Field # of Occurrence
^(0 ASK1+7, BUILD+8, BUILD+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ASK1+1!, ITEMTXT+1!, BUILD+3*, BUILD+5, BUILD+8, BUILD+11, BUILD+15
DIC EN1+1*!, ACCESS+2~, ACCESS+3*, BUILD+20!
DIC("A" EN1+1*
DIC("S" EN1+1*
DIC(0 EN1+1*, ACCESS+3*
DIE BUILD+4*, BUILD+20!
DIR EN+1!, ASK1+1!, ITEMTXT+1!, ITEMTXT+3!, ITEMTXT+10!, BUILD+7!, BUILD+8!, BUILD+11!, BUILD+20!
DIR("A" EN+1*, ASK1+1*, ITEMTXT+2*, ITEMTXT+10*, BUILD+8*, BUILD+11*
DIR("B" EN+1*, ASK+2*, ASK1+2*, ITEMTXT+1*, ITEMTXT+10*
DIR(0 EN+1*, ASK1+1*, ITEMTXT+3*, ITEMTXT+10*, BUILD+8*, BUILD+11*
DIROUT EN+1, ASK1+4, ITEMTXT+3!, BUILD+7, END+3!
DR BUILD+4*, BUILD+9*, BUILD+12*, BUILD+20!
DTOUT EN+1, ASK1+4, ITEMTXT+3!, BUILD+7, END+3!
DUOUT EN+1, ASK1+4, ITEMTXT+3!, BUILD+7, END+3!
GMRC101 ITEMTXT+13, ITEMTXT+14, ACCESS+4*, END+1!
>> GMRCACT EN1+5*, ADD+2*, BUILD+15
>> GMRCDEF DEFAULT+3
>> GMRCDESC EN+1, ASK1+8, ITEMTXT+10
>> GMRCEND DEFAULT+2*, EN+1*, EN+2, EN+4, EN1+1*, EN1+4, ADD+1, ASK+1, ASK1+4*, ASK1+6
, ITEMTXT+3*, BUILD+7*
GMRCMSG DEFAULT+2*, BUILD+16, END+1!
>> GMRCPFX DEFAULT+1, EN1+1, EN1+2, EN1+3, ITEMTXT+10, ITEMTXT+13, ITEMTXT+14, BUILD+15
GMRCPRO BUILD+1*, BUILD+3, BUILD+17, BUILD+18, END+1!
GMRCPROI BUILD+18*, END+1!
GMRCSS ASK+2, ASK1+2, SETUP+3*, BUILD+1*, END+1!
GMRCSV BUILD+1*, END+1!
GMRCSYN BUILD+15, END+1!
GMRCSYN( BUILD+5*
GMRCTRLC EN+4*, EN1+5*, ADD+2*, BUILD+7, BUILD+9*, BUILD+15, END+1!
GMRCTXT ITEMTXT+5*, ITEMTXT+6*, ITEMTXT+8*, BUILD+1*, BUILD+15, END+1!
GMRCY ITEMTXT+7*, ITEMTXT+10, ITEMTXT+11, END+1!
I BUILD+5*, END+1!
ITEMTXT ADD+1!, ITEMTXT+1, ITEMTXT+5, SETUP+2*, END+1!
ND BUILD+5*, END+1!
ORDA EN1+4*, ADD+1!, ITEMTXT+1, ITEMTXT+2, ITEMTXT+5, ITEMTXT+10, ITEMTXT+13, SETUP+1, SETUP+2, SETUP+3
, ACCESS+1, ACCESS+4, BUILD+3, BUILD+20!, END+2!
ORDANM EN1+4*, ADD+1!, ITEMTXT+14*, BUILD+1*, BUILD+20!, END+2!
ORDEF DEFAULT+3*, BUILD+20!, END+2!
OREA DEFAULT+1*, BUILD+20!, END+2!
ORFL DEFAULT+3*, ASK1+5*, ASK1+8, BUILD+1, BUILD+20!, END+2!
ORPKG DEFAULT+2*, BUILD+20!, END+2!
ORTXT ITEMTXT+5*, ITEMTXT+14*, BUILD+1, BUILD+20!, END+2!
REJECT ITEMTXT+3!, ITEMTXT+6!, ITEMTXT+8*, ITEMTXT+9, ITEMTXT+10*
TXT ITEMTXT+8*, END+3!
X ASK1+1!, ACCESS+2~, ACCESS+3*
Y EN+3, EN1+1, EN1+4, ASK1+4, ASK1+5, ASK1+7, ITEMTXT+3, ITEMTXT+4, ITEMTXT+5, ITEMTXT+6
, ITEMTXT+7, ITEMTXT+8, ITEMTXT+10, ITEMTXT+11*, ITEMTXT+13, ITEMTXT+14, ACCESS+2~, ACCESS+3, ACCESS+4, BUILD+8
, BUILD+11, END+3!
Y(0 EN1+2, EN1+3, EN1+4
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