Routine: GMRCASV

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

Package	Total	Caller Graph
Consult Request Tracking	17	GMRC LIST HIERARCHY GMRCAFRD GMRCASV1 GMRCAU GMRCIR GMRCMCP GMRCPC GMRCPS GMRCR GMRCSLM GMRCSLM1 GMRCST GMRCSTL7 GMRCSTLA GMRCSTLM GMRCSTS GMRCSTU
Order Entry Results Reporting	3	ORCDGMRC ORCHANGE ORQQCN2

Entry Points

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

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+3 LISTOPT+5
Routine Call	%ZIS Line Location: LISTOPT+2

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*

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCASV

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 20

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: