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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMRCA1

Package: Consult Request Tracking

Routine: GMRCA1


Information

GMRCA1 ;SLC/DLT,DCM - Actions taken from Review Screens ; 7/11/03 14:05

Source Information

Source file <GMRCA1.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Consult Request Tracking 10 SELECT^GMRCA2  (COMMENT,PROCALRT)^GMRCACMT  (DC,EXAC)^GMRCADC  RT^GMRCART  GETPROV^GMRCAU  ($$VALPROV,EN)^GMRCEDIT  EN^GMRCHL7  (AUDIT,STATUS)^GMRCP  
EN^GMRCP5  $$GETDT^GMRCUTL1  
Kernel 1 $$NOW^XLFDT  
Order Entry Results Reporting 1 ($$LOCK1,UNLK1)^ORX2  
Registration 1 FULL^VALM1  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Consult Request Tracking 6 GMRCADC  GMRCAFRD  GMRCASF  GMRCDIS  GMRCEDIT  GMRCTIUE  
Order Entry Results Reporting 1 ORCONSLT  

Entry Points

Name Comments DBIA/ICR reference
DC(GMRCO,GMRCA) ;Discontinue/Cancel(Deny) logic
END ;kill off variables and exit
COMMENT(GMRCO) ;Add a comment without changing the status
LOCK(GMRCIFN) ;;lock a consult record using OE/RR order number
RC(GMRCO,GMRCSCH) ;Service tracking request received or scheduled
; GMRCSCH=1 - schedule action
RT(GMRCO) ;Results Display logic
UNLOCK(GMRCIFN) ;unlock a consult record using OE/RR order number
EDTSUB(GMRCO) ;Patch 18 Edit/Resubmit a canceled consult
PS(GMRCO) ;Print Service Copy (CPRS entry point)

External References

Name Field # of Occurrence
^DIR RC+9
SELECT^GMRCA2 COMMENT+3, EDTSUB+4, RC+3, RT+2, PS+2
COMMENT^GMRCACMT COMMENT+7
PROCALRT^GMRCACMT RC+56
DC^GMRCADC DC+10
EXAC^GMRCADC DC+6, EDTSUB+12, RC+21, RC+28, RC+32, RC+42, LOCK+5
RT^GMRCART RT+4
GETPROV^GMRCAU RC+38
$$VALPROV^GMRCEDIT EDTSUB+8
EN^GMRCEDIT EDTSUB+17
EN^GMRCHL7 RC+53
AUDIT^GMRCP RC+52
STATUS^GMRCP RC+51
EN^GMRCP5 PS+5
$$GETDT^GMRCUTL1 RC+39
$$LOCK1^ORX2 LOCK+3
UNLK1^ORX2 UNLOCK+3
FULL^VALM1 RC+35
$$NOW^XLFDT RC+40

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The requesting facility may not take this action on an "
  • Line Location: RC+7
Function Call: WRITE
  • Prompt: "inter-facility consult."
  • Line Location: RC+8
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: RC+42
Routine Call
  • DIR
  • Line Location:
    • RC+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] EDTSUB+10, EDTSUB+15, RC+5, RC+16, PS+4, LOCK+2, UNLOCK+2
^TMP("GMRC" END+6

Label References

Name Line Occurrences
$$LOCK COMMENT+5, EDTSUB+13, RC+12
END DC+7, DC+11, COMMENT+3, COMMENT+4, COMMENT+5, COMMENT+8, EDTSUB+4, EDTSUB+5, EDTSUB+12, EDTSUB+13
, EDTSUB+18, RC+3, RC+4, RC+10, RC+12, RC+18, RC+28, RC+32, RC+38, RC+43
, RC+57, RT+2, RT+3, RT+5, PS+2, PS+3, PS+6
UNLOCK END+1

Naked Globals

Name Field # of Occurrence
^("MENU" END+6
^(0 RC+18, RC+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN RC+17*, RC+53
DIR RC+6~
DIR(0 RC+9*
DIROUT END+4, END+5!
DTOUT END+4, END+5!
DUOUT END+5!
GETPROV RC+36~, RC+37*, RC+38!
>> GMRC("NMBR" END+2
>> GMRC(0 RC+16*, RC+17, RC+18, RC+19, RC+25, RC+30, RC+48*, RC+49, PS+4*, END+3!
GMRCA DC~, DC+4, DC+10, COMMENT+1~, EDTSUB+1~, RC+47*, RC+50*, END+3!
GMRCACTM END+3!
GMRCAD RC+14~, RC+39*, RC+40*, RC+41, RC+53
GMRCADUZ END+3!
GMRCAGN RC+2!, END+3!
GMRCBM END+3!
GMRCDA RC+14~
GMRCDFN EDTSUB+1~, EDTSUB+15*, EDTSUB+17, END+3!
GMRCEND END+3!
GMRCENTR END+3!
GMRCFL END+3!
GMRCIEN END+3!
GMRCIFN RC+14~, LOCK~, LOCK+2, UNLOCK~, UNLOCK+2
GMRCLCK COMMENT+1~, COMMENT+6*, EDTSUB+1~, EDTSUB+14*, RC+14~, RC+15*, END+1
GMRCLOCK LOCK+1~, LOCK+3*, LOCK+5
GMRCMSG DC+5*, DC+6, EDTSUB+1~, EDTSUB+9*, EDTSUB+11*, EDTSUB+12, RC+19*, RC+21, RC+22!, RC+26*
, RC+27*, RC+28, RC+31*, RC+32, END+3!
GMRCMSG(1 RC+20*
GMRCO DC~, DC+10, COMMENT~, COMMENT+3, COMMENT+4, COMMENT+5, COMMENT+7, EDTSUB~, EDTSUB+4, EDTSUB+5
, EDTSUB+8, EDTSUB+10, EDTSUB+13, EDTSUB+15, EDTSUB+17, RC~, RC+3, RC+4, RC+5, RC+12
, RC+16, RC+53, RC+56, RT~, RT+2, RT+3, RT+4, PS~, PS+2, PS+3
, PS+4, PS+5, END+1, END+2!, END+3!
GMRCOM RC+52*, RC+53, RC+54, END+3!
GMRCORD LOCK+1~, LOCK+2*, LOCK+3, UNLOCK+1~, UNLOCK+2*, UNLOCK+3
GMRCORFN END+3!
GMRCORN END+3!
>> GMRCORNP RC+53
GMRCORTX END+3!
GMRCQIT DC+9!, COMMENT+2!, EDTSUB+2!, RC+2!, RC+38*, RT+1!, PS+1!, END+4*
GMRCQUT DC+8*, DC+9!, COMMENT+2!, COMMENT+3, COMMENT+4*, COMMENT+5*, EDTSUB+2!, EDTSUB+4, EDTSUB+5*, EDTSUB+12*
, EDTSUB+13*, EDTSUB+16, RC+2!, RC+3, RC+4*, RC+11*, RC+12*, RC+18*, RC+29*, RC+33*
, RC+38*, RC+44*, RT+1!, RT+2, RT+3*, PS+1!, PS+2, PS+3*
GMRCRTFL END+3!
GMRCSA END+3!
GMRCSCH RC~, RC+25, RC+30, RC+37, RC+39, RC+40, RC+46, RC+50, RC+54
GMRCSEL RC+2!, PS+1!, END+2!, END+3!
GMRCSR END+3!
GMRCSTS RC+48*, RC+49*, RC+50*, END+3!
GMRCTM END+3!
GMRCTRLC END+3!
>> GMRCTYPE RC+53
>> GMRCVSIT RC+53
>> GMRCWARD RC+53
>> IOBM RC+35
>> IOSTBM RC+35
>> IOTM RC+35
OREND END+3!
ORIFN END+3!
SF END+3!
STS END+3!
TXT RC+55~*, RC+56
U RC+5, RC+54, LOCK+2, LOCK+5, UNLOCK+2
>> XQORM("HIJACK" END+6*
>> XQORM("M" EDTSUB+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All