Routine: GMRCITR

Information

GMRCITR ;SLC/JAK - IFC transactions ; 09/27/02 15:50

Source Information

Source file <GMRCITR.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Consult Request Tracking	4	EXIT^GMRCINC ^GMRCSPD LISTDATE^GMRCSTU1 REGDTM^GMRCU
VA Fileman	4	^DIC $$GET1^DIQ EN^DIQ1 ^DIR
Health Level Seven	1	$$MSGSTAT^HLUTIL
Registration	1	(CHGCAP,EN)^VALM

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Consult Request Tracking	2	GMRC IFC TRANS GMRCINC

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for GMRC IF TRANSACTION
HDR	; -- header code
LM	; set caption line
BLD(GMRCDA)	; get list of IF transactions for one or all consults ; Input: ; GMRCDA = ien of consult from file 123
SELECT	; select a consult for detailed display of information
CKSEL(X)	; check selection
ASK	; write prompt, do read
CON	; ask for consult number or all
LKUP	; use value of x for lookup
DATA(GMRCS)	; get data for IF transaction(s) ; Input: ; GMRCS = sort/view by selection ; Output: ; ^TMP("GMRCINC",$J array
VIEW	; ask for sort/view

External References

Name	Field # of Occurrence
^DIC	LKUP+3
$$GET1^DIQ	DATA+25
EN^DIQ1	SELECT+17
^DIR	VIEW+11, SELECT+6
EXIT^GMRCINC	EN+3, EN+6, EN+8
^GMRCSPD	EN+5
LISTDATE^GMRCSTU1	EN+7
REGDTM^GMRCU	DATA+19
$$MSGSTAT^HLUTIL	DATA+24
CHGCAP^VALM	LM+1, SELECT+30, SELECT+31
EN^VALM	EN+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select Consult/Request Number: ALL// " Line Location: ASK+1
Function Call: WRITE	Prompt: "...invalid entry" Line Location: LKUP+3
Routine Call	VALM Line Location: EN+19
Routine Call	VALM Line Location: LM+1 SELECT+30 SELECT+31
Routine Call	DIC Line Location: LKUP+3
Routine Call	DIR Line Location: VIEW+11 SELECT+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(123 - [#123]	Classic Fileman Calls
^GMR(123.6 - [#123.6]	Classic Fileman Calls
^HL(771.6 - [#771.6]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	DATA+17
^GMR(123.1 - [#123.1]	DATA+22
^GMR(123.6 - [#123.6]	EN+10, BLD+6, BLD+7, BLD+9, DATA+16, SELECT+12, SELECT+13, SELECT+14
^TMP("GMRCINC"	EN+16, DATA+8!, DATA+45, SELECT+7!, SELECT+32
^TMP("GMRCS"	DATA+8!, DATA+32, DATA+33, DATA+35*, DATA+40, DATA+43, DATA+45

Label References

Name	Line Occurrences
ASK	CON+2
BLD	EN+11, EN+14, SELECT+9
CON	EN+3
DATA	EN+18
LKUP	CON+2
VIEW	EN+8

Naked Globals

Name	Field # of Occurrence
^(	DATA+33, DATA+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	BLD+4~, BLD+5, BLD+6, BLD+7, BLD+11, DATA+5~, DATA+12, DATA+13, DATA+14, DATA+17 , SELECT+10~, SELECT+11, SELECT+12, SELECT+13
ACTTXT	DATA+15~, DATA+22, DATA+23, DATA+31, DATA+33
DA	SELECT+15~, SELECT+16*
DIC	LKUP+1~, LKUP+2, SELECT+15~, SELECT+16
DIC(0	LKUP+2*
DIQ	SELECT+15~, SELECT+16*
DIR	VIEW+1~, SELECT+1~
DIR("?"	VIEW+10, SELECT+5
DIR("A"	VIEW+8, SELECT+4
DIR("B"	VIEW+9*
DIR(0	VIEW+7, SELECT+3
DIROUT	VIEW+1~, SELECT+1~
DIRUT	VIEW+1~, VIEW+11, SELECT+1~, SELECT+6
DR	SELECT+15~, SELECT+16*
DTIME	ASK+2
DTOUT	VIEW+1~, SELECT+1~
DUOUT	VIEW+1~, SELECT+1~
EDT	DATA+15~, DATA+20*, DATA+31, DATA+33
ENT	BLD+4~, BLD+7, BLD+9, BLD+11, SELECT+10~, SELECT+13, SELECT+14, SELECT+16, SELECT+20, SELECT+21 , SELECT+22, SELECT+23, SELECT+24, SELECT+25, SELECT+26
GMRC1	DATA+38~, DATA+39, DATA+40, DATA+43, DATA+45
GMRC2	DATA+41~, DATA+42, DATA+43, DATA+45
GMRCA	SELECT+15~
GMRCA(	SELECT+20, SELECT+21, SELECT+22, SELECT+23, SELECT+24, SELECT+25, SELECT+26
GMRCACT	DATA+15~, DATA+21*, DATA+22, DATA+23
GMRCDA	BLD~, BLD+6, BLD+7, BLD+11, DATA+9, DATA+11, DATA+13, DATA+14, DATA+17, DATA+29 , DATA+31, DATA+32, CKSEL+1~, CKSEL+2, CKSEL+3, CKSEL+4
GMRCDA(0	DATA+17*, DATA+21
GMRCDAS	EN+1~, DATA+7!
GMRCDAS(	DATA+29*, CKSEL+3
GMRCDDS	SELECT+1~, CKSEL+2, CKSEL+3, CKSEL+4
GMRCDT1	EN+2~, EN+7, BLD+8
GMRCDT2	EN+2~, EN+7, BLD+8, BLD+10*
GMRCDTE	BLD+4~, BLD+8, BLD+9*
GMRCEDT1	EN+2~, EN+7, HDR+2
GMRCEDT2	EN+2~, EN+7, HDR+2
GMRCLOG	EN+1~, DATA+14*, DATA+16, DATA+32, DATA+33, DATA+35, SELECT+2!
GMRCLOG(	BLD+11*, DATA+11, DATA+13, DATA+14
GMRCLOG(0	EN+15, DATA+6
GMRCLOG0	DATA+15~, DATA+16*, DATA+19, DATA+24
GMRCND	SELECT+10~, SELECT+19*, SELECT+20, SELECT+21, SELECT+22, SELECT+23, SELECT+24, SELECT+25, SELECT+26, SELECT+27
>> GMRCNUM	EN+10, EN+11, EN+13, EN+14
GMRCQUT	EN+1~, EN+3, EN+6, EN+8, CON+2, VIEW+2!, VIEW+11
GMRCS	EN+1~, EN+18, VIEW+12*, DATA~, DATA+31
>> GMRCSEL	EN+9, EN+13, EN+16, CON+1, CON+2, ASK+5, LKUP+4, HDR+1, SELECT+8, SELECT+9 , SELECT+12, SELECT+13, SELECT+29
GMRCSV	DATA+5~, DATA+31*, DATA+32, DATA+33, DATA+35
IERR	DATA+15~, DATA+26, DATA+27, DATA+35
LINE	DATA+9, DATA+18, DATA+38~, DATA+39, DATA+44, DATA+45, SELECT+10~, SELECT+11, SELECT+18, SELECT+20* , SELECT+21, SELECT+22, SELECT+23, SELECT+24, SELECT+25, SELECT+26
STA	DATA+15~, DATA+24, DATA+25, DATA+31
TAB	DATA+5~, DATA+10*, DATA+33, DATA+35
>> VALMBG	SELECT+33*
>> VALMCNT	SELECT+32*
>> VALMHDR(1	HDR+1, SELECT+28
>> VALMHDR(2	HDR+2, SELECT+29
X	EN+1~, CON+2, ASK+2, ASK+3, ASK+4, ASK+5, VIEW+1~, DATA+19, DATA+20, SELECT+1~ , CKSEL~, CKSEL+4
Y	EN+1~, LKUP+4, VIEW+1~, VIEW+12, SELECT+1~, SELECT+8
Y(0	LKUP+3

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCITR

Call Graph Total: 10

Caller Graph Total: 2