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

Package: Consult Request Tracking

Routine: GMRCASV


Information

GMRCASV ;SLC/KCM,DLT - Build ^TMP("GMRCS" of Svc(s)/Specialties ; 9/8/09 11:47am

Source Information

Source file <GMRCASV.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Consult Request Tracking 3 EXAC^GMRCADC  (PAGE,QUEUE)^GMRCASV1  $$VALID^GMRCAU  
Kernel 2 (,HOME)^%ZIS  ^%ZISC  
VA FileMan 1 MIX^DIC1  

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

Package Total Caller Graph
Consult Request Tracking 18 GMRC LIST HIERARCHY  GMRCACT FORWARD  GMRCAFRD  GMRCASV1  GMRCAU  GMRCIR  GMRCMCP  GMRCPC  
GMRCPS  GMRCR  GMRCSLM  GMRCSLM1  GMRCST  GMRCSTL7  GMRCSTLA  GMRCSTLM  
GMRCSTS  GMRCSTU  
Order Entry Results Reporting 3 ORCDGMRC  ORCHANGE  ORQQCN2  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ASRV ;Ask for service/specialty group {output} GMRCDG,GMRCBUF,GMRCACT,^TMP("GMRCS",$J,^TMP("GMRCSLIST",$J
SERV0 ;Assume that the lookup must begin with ALL SERVICES, or value of GMRCSVNM
ASKPRMPT ;Write the prompt and do the Read to get the user text entered in X
SERV1 ;Create selected SERVICE ^TMP array of service information
LKUP ;Ask the user for the service; use the value of x for lookup; branch to list on ??
; Patch 18 added Identifier to 123.5 in place of DIC("W")
; Remove commented line in next patch.
LISTOPT ;called from option to list hierarchy
PRTLST ;queued entry point or just print it
LISTALL ;display LIST of Services in their hierarchy beginning with ALL SERVICES
LISTSRV ;display LIST of sub-services beginning with a selected service
EN ;Setup Specialty groups entry: GMRCDG,GMRCSEL exit: GMRCGRP if GMRCSEL="BILD"
EN1 ;GMRCSTK is used to manage the level of stacks under beginning service
POP ;Go back one level in service stack hierarchy and initialize exclude
PROC ;GMRCMEM is the member ien in the 10th node being processed
DISP ;Display individual entries alphabetically for each service as processed
BILD ;The following logic will build an array for review for GUI
EXCLUDE ;This logic excludes services the user cannot send a consult to.
CHECKDAD ;Check the service usage statuses for a selected services parents
READ ;;Hold screen
EXIT ;Kill off variables and quit

External References

Name Field # of Occurrence
^%ZIS LISTOPT+2
HOME^%ZIS LISTOPT+3, LISTOPT+5
^%ZISC LISTOPT+3, LISTOPT+5
MIX^DIC1 LKUP+8
EXAC^GMRCADC LKUP+15, LKUP+16, LKUP+18, LKUP+20, LKUP+21
PAGE^GMRCASV1 PRTLST+6, READ+7
QUEUE^GMRCASV1 LISTOPT+3
$$VALID^GMRCAU EXCLUDE+11, CHECKDAD+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$S($D(GMRCASV):GMRCASV,1:"Select Service/Specialty: ")_$S($L($G(GMRCSVNM)):GMRCSVNM,1:"ALL SERVICES")_"// "
  • Line Location: ASKPRMPT+1
Function Call: WRITE
  • Prompt: !!,"Services not currently part of the Consults Hierarchy:"
  • Line Location: PRTLST+9
Function Call: WRITE
  • Prompt: " ("
  • Line Location: PRTLST+16
Function Call: WRITE
  • Prompt: $S(USE=1:"Grouper Only",USE=9:"Disabled",1:"Tracking Only")_")"
  • Line Location: PRTLST+17
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTALL+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LISTSRV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTSRV+3
Function Call: WRITE
  • Prompt: !,?((GMRCSTK*2)),$S(GMRCUSG=9:"<",1:"")_$P(W,"^")_$S(GMRCUSG=9:">",1:"")_" "_$S(GMRCUSG=1:"(Grouper Only)",GMRCUSG=2:"(Tracking Only)",GMRCUSG=9:"<Disabled>",1:"")_" "_$S($G(^GMR(123.5,GMRCDG,"IFC")):"(Inter-facility)",1:"")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: READ+2
Function Call: WRITE
  • Prompt: !?5,"Press RETURN to continue, ^ to exit: "
  • Line Location: READ+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: READ+6
Routine Call
  • %ZIS
  • Line Location:
    • LISTOPT+2
Routine Call
  • %ZIS
  • Line Location:
    • LISTOPT+3
    • LISTOPT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123.5 - [#123.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] EXCLUDE+6, EXCLUDE+10
^GMR(123.5 - [#123.5] SERV1+7, PRTLST+11, PRTLST+12, PRTLST+14, PRTLST+15, LISTALL+1, LISTSRV+1, EN1+2, EN1+5, PROC+5
, PROC+6, PROC+8, DISP+3, DISP+5, BILD+7, BILD+10, EXCLUDE+7, EXCLUDE+8, EXCLUDE+10, CHECKDAD+6
, CHECKDAD+7
^TMP("GMRCS" SERV1+5!, BILD+8*
^TMP("GMRCSLIST" SERV1+5!, BILD+11*

Label References

Name Line Occurrences
@( SERV0+5, EN+3, EN1+2, PROC+10
ASKPRMPT SERV0+5
CHECKDAD LKUP+17
EN SERV1+6, LISTALL+2, LISTSRV+2
EXCLUDE LKUP+12, PROC+9
EXIT PRTLST+18, PROC+10, DISP+2
LISTALL LKUP+9, PRTLST+7
LISTSRV SERV0+5
PRTLST LISTOPT+4
READ PRTLST+8, PRTLST+13, DISP+2, READ+2
SERV0 ASRV+3
SERV1 ASRV+3

Naked Globals

Name Field # of Occurrence
^(0 PRTLST+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS LISTOPT+1*
CHILD BILD+6~, BILD+10*, BILD+11
>> D LKUP+7*
DIC LKUP+7*, LKUP+8!
DIC("S" LKUP+6*
DIC(0 LKUP+7*
DIROUT SERV0+5*, PRTLST+4~, EN+3, PROC+10, DISP+2, READ+4*, READ+5, EXIT+1!
DIRUT EXIT+1!
DTIME ASKPRMPT+2, READ+3
DTOUT PRTLST+4~, READ+7, EXIT+1!
DUOUT PRTLST+4~, EN+3, EN1+6!, PROC+10, DISP+2, READ+4*, READ+5, READ+7, EXIT+1!
DUZ EXCLUDE+11, CHECKDAD+10
>> GMRC1 LISTSRV+1*
>> GMRCASV SERV0+4, ASKPRMPT+1, ASKPRMPT+4
GMRCBUF SERV1+3*, SERV1+4, SERV1+7, SERV1+8, SERV1+10!
GMRCDAD LKUP+17~, CHECKDAD+4*, CHECKDAD+6*, CHECKDAD+7, CHECKDAD+9, CHECKDAD+10, CHECKDAD+14*, CHECKDAD+16
GMRCDAD( CHECKDAD+6, CHECKDAD+7*, CHECKDAD+9*, CHECKDAD+10*, CHECKDAD+16
GMRCDAD("" CHECKDAD+14
GMRCDG ASRV+3, SERV0+3*, SERV0+5, SERV1+3, SERV1+8*, LKUP+11*, LKUP+22*, LKUP+23*, PRTLST+3~, PRTLST+18!
, LISTALL+1*, LISTALL+3*, LISTSRV+1*, LISTSRV+3*, EN1+1, PROC+6*, PROC+8, PROC+12, DISP+3, DISP+5
, BILD+7, BILD+8, BILD+10, BILD+11, EXCLUDE+7, EXCLUDE+8, EXCLUDE+10, EXCLUDE+11, CHECKDAD+6
GMRCDGT SERV1+2~, SERV1+6*, BILD+9*, BILD+11
GMRCEXCL LKUP+10~, LKUP+12*, LKUP+13*, LKUP+15, LKUP+16, LKUP+18, LKUP+20, LKUP+21, LKUP+22, EN+1~
, EN1+3, POP+1*, PROC+9*, PROC+10, EXCLUDE+4*, EXCLUDE+7*, EXCLUDE+8*, EXCLUDE+9, EXCLUDE+10*, EXCLUDE+11*
, CHECKDAD+6*, CHECKDAD+12*, CHECKDAD+14*, CHECKDAD+16*
>> GMRCGRP("NAM" SERV1+7*, SERV1+9*
>> GMRCGRP("ROOT" SERV1+8*
GMRCMEM EN1+1*, EN1+2, EN1+3*, EN1+4*, EN1+5*, EN1+6!, POP+1*, PROC+3, PROC+5, PROC+6
, PROC+12*
GMRCMSG LKUP+15*!, LKUP+16*!, LKUP+18*!, LKUP+20*!, LKUP+21*!
GMRCMSG(1 LKUP+18*, LKUP+20*
GMRCNAM EN1+1*, EN1+2*, EN1+4, EN1+5, EN1+6!, POP+1*, PROC+4, PROC+12*
>> GMRCO EXCLUDE+5, EXCLUDE+6, EXCLUDE+10
GMRCOUT PRTLST+3~, PRTLST+7, PRTLST+8, PRTLST+11, PRTLST+13, EN+3, DISP+1, READ+5*
GMRCPG PRTLST+3~, PRTLST+5*, PRTLST+6, READ+7
GMRCPRT PRTLST+3~, PRTLST+5*, LISTALL+2, READ+5, READ+7
GMRCQUT ASRV+1!, SERV0+5*
GMRCSEL ASRV+2~, SERV1+6*, LISTALL+2*, LISTSRV+2*, EN+3, EN1+6!, PROC+10
GMRCSEQ SERV1+10!
GMRCSRV EXCLUDE+10~*
GMRCSTK EN+1~, EN+2*, EN1+1*, EN1+2, EN1+5, EN1+6!, POP+1*, PROC+3, PROC+4, PROC+5
, PROC+6, PROC+7, PROC+12*, DISP+2*, DISP+5
GMRCSTK( EN1+1*, EN1+2, EN1+5, POP+1, PROC+3*, PROC+4*, PROC+5, PROC+6, PROC+7, PROC+12*
GMRCSTK(0 EN1+1*
GMRCSVNM SERV0+5, ASKPRMPT+1, LKUP+13*, LKUP+14!, LISTSRV+1
GMRCTO SERV0+4*, LKUP+6, LKUP+10, PRTLST+3~, PROC+9, EXCLUDE+5
GMRCUSG EN+1~, DISP+4*, DISP+5
IO PRTLST+2
IO("Q" LISTOPT+3
IOF LISTALL+2, LISTSRV+2, READ+6
IOSL PRTLST+8, PRTLST+13, DISP+2, READ+2
IOST READ+1
PARENT EN+1~, EN+2*, PROC+7*, BILD+11
>> POP LISTOPT+2
SERV PRTLST+10~*, PRTLST+11*, PRTLST+12, PRTLST+14, PRTLST+15
U PRTLST+14, PRTLST+15, BILD+11, EXCLUDE+6, EXCLUDE+8, CHECKDAD+6, CHECKDAD+7, CHECKDAD+10
USE PRTLST+15~*, PRTLST+17
W ASRV+4!, LKUP+10~, LKUP+11*, PROC+8*, DISP+3*, DISP+4, DISP+5, BILD+7*, BILD+8, BILD+11
, EXCLUDE+3, EXCLUDE+4
X ASRV+4!, SERV0+5, ASKPRMPT+2*, ASKPRMPT+3*, ASKPRMPT+4*, READ+3~*, READ+4
Y ASRV+4!, LKUP+11, LKUP+22*, LKUP+23
Y(0 LKUP+9, LKUP+11, LKUP+13
>> ZTQUEUED PRTLST+1
>> ZTREQ PRTLST+1*
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