Routine: GMRCINC

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Consult Request Tracking	4	DELALRT^GMRCIBKG (ACTLG,EN)^GMRCIERR TRIGR^GMRCIEVT (BLD,DATA,HDR,LM)^GMRCITR
Registration	3	EN^VALM FULL^VALM1 CNTRL^VALM10
VA Fileman	3	UPDATE^DIE $$GET1^DIQ ^DIR
Kernel	2	$$FMTE^XLFDT DISP^XQORM1

Package

Total

Call Graph

Consult Request Tracking

DELALRT^GMRCIBKG (ACTLG,EN)^GMRCIERR TRIGR^GMRCIEVT (BLD,DATA,HDR,LM)^GMRCITR

Registration

EN^VALM FULL^VALM1 CNTRL^VALM10

VA Fileman

UPDATE^DIE $$GET1^DIQ ^DIR

Kernel

$$FMTE^XLFDT DISP^XQORM1

Package	Total	Caller Graph
Consult Request Tracking	2	GMRC IFC INC TRANS GMRCITR

Package

Total

Caller Graph

Consult Request Tracking

GMRC IFC INC TRANS GMRCITR

Entry Points

Name	Comments	DBIA/ICR reference
SELACT(GMRCDA)
EN	; -- main entry point for GMRCIF INCOMPLETE TRANSACTION
HDR	; -- header code
BLD(GMRCDA)	;get list of incomplete IF transactions for a consult # ; Input: ; GMRCDA = ien of consult from file 123
RETRAN	;resend a particular transaction
INIT	; -- init variables and list array
NEWCSLT	; pick new consult number to check for inc. trans.
EXIT	; -- exit code
MKCOMP	; mark a particular transaction complete
HELP	; -- help code

External References

Name	Field # of Occurrence
UPDATE^DIE	MKCOMP+17
$$GET1^DIQ	RETRAN+13, MKCOMP+8
^DIR	EN+5, EN+9, NEWCSLT+5, NEWCSLT+9, RETRAN+8, RETRAN+15, SELACT+2, SELACT+8, SELACT+11, MKCOMP+12
DELALRT^GMRCIBKG	RETRAN+17
ACTLG^GMRCIERR	BLD+20
EN^GMRCIERR	BLD+14
TRIGR^GMRCIEVT	RETRAN+18
BLD^GMRCITR	NEWCSLT+19
DATA^GMRCITR	NEWCSLT+23
HDR^GMRCITR	NEWCSLT+24
LM^GMRCITR	NEWCSLT+24
EN^VALM	EN+12
FULL^VALM1	NEWCSLT+2, RETRAN+2, MKCOMP+2
CNTRL^VALM10	INIT+6
$$FMTE^XLFDT	RETRAN+13, MKCOMP+8
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There is no such consult request number" Line Location: EN+8
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"There is no such consult request number" Line Location: NEWCSLT+8
Function Call: WRITE	Prompt: !!,"There is at least one earlier incomplete transaction for this" Line Location: RETRAN+5
Function Call: WRITE	Prompt: !,"consult, all incomplete transactions should be processed in " Line Location: RETRAN+6
Function Call: WRITE	Prompt: !,"order.",! Line Location: RETRAN+7
Function Call: WRITE	Prompt: ! Line Location: RETRAN+9
Function Call: WRITE	Prompt: !,"There is no such activity number for consult# "_GMRCNUM Line Location: SELACT+7
Function Call: WRITE	Prompt: !,"There is no incomplete IFC transaction for that activity" Line Location: SELACT+10
Function Call: WRITE	Prompt: ! Line Location: MKCOMP+4
Routine Call	VALM Line Location: EN+12
Routine Call	DIE Line Location: MKCOMP+17
Routine Call	DIR Line Location: EN+5 EN+9 NEWCSLT+5 NEWCSLT+9 RETRAN+8 RETRAN+15 SELACT+2 SELACT+8 SELACT+11 MKCOMP+12

FileNo	Call Tags
^GMR(123.1 - [#123.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	EN+7, NEWCSLT+7, RETRAN+13, SELACT+6, MKCOMP+8
^GMR(123.6 - [#123.6]	BLD+8, BLD+9, RETRAN+4, RETRAN+17, SELACT+9, MKCOMP+14
^TMP("GMRCIERR"	BLD+15, BLD+18!, BLD+21, BLD+22, BLD+23, BLD+24, BLD+27!
^TMP("GMRCINC"	BLD+12, BLD+15, BLD+19, BLD+22, BLD+24, INIT+3, INIT+4, INIT+5, EXIT+2!, NEWCSLT+10! , NEWCSLT+21*, NEWCSLT+25, MKCOMP+18!
^TMP("GMRCS"	EXIT+2!, NEWCSLT+10!, MKCOMP+18!

Name	Line Occurrences
$$SELACT	RETRAN+3, MKCOMP+3
BLD	EN+11, NEWCSLT+13, MKCOMP+19
HDR	NEWCSLT+15
INIT	NEWCSLT+14, MKCOMP+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	BLD+6~, BLD+7, BLD+8, BLD+9, BLD+10, BLD+16, BLD+17, BLD+20, BLD+22, INIT+1~ , INIT+4*, INIT+5
DIR	EN+1~, EN+9!, NEWCSLT+1~, NEWCSLT+9!, RETRAN+1~, SELACT+1~, SELACT+5!, MKCOMP+1~
DIR("?"	EN+3, NEWCSLT+4
DIR("A"	EN+2, NEWCSLT+3, RETRAN+11, RETRAN+12, RETRAN+13, RETRAN+14, SELACT+2, MKCOMP+6, MKCOMP+7, MKCOMP+8 , MKCOMP+9, MKCOMP+10, MKCOMP+11*
DIR("S"	EN+4*
DIR(0	EN+2, EN+9, NEWCSLT+3, NEWCSLT+9, RETRAN+8, RETRAN+10, SELACT+2, SELACT+8, SELACT+11, MKCOMP+5
DIROUT	EN+1~, NEWCSLT+1~, RETRAN+1~, SELACT+1~, MKCOMP+1~
DIRUT	EN+1~, EN+6, NEWCSLT+1~, NEWCSLT+6, RETRAN+1~, SELACT+1~, SELACT+3, MKCOMP+1~
DTOUT	NEWCSLT+1~, RETRAN+1~, SELACT+1~, MKCOMP+1~
DUOUT	NEWCSLT+1~, RETRAN+1~, SELACT+1~, MKCOMP+1~
ENT	BLD+6~, BLD+9*, BLD+10
FDA	MKCOMP+1~
FDA(1	MKCOMP+16*
GMRC40	SELACT+1~, SELACT+4*, SELACT+6, SELACT+9, SELACT+12
GMRCACT	RETRAN+1~, RETRAN+3, RETRAN+4, RETRAN+13, RETRAN+17, RETRAN+18, MKCOMP+1~, MKCOMP+3, MKCOMP+8, MKCOMP+14
GMRCDA	BLD~, BLD+8, BLD+9, BLD+12, BLD+14, BLD+20, SELACT~, SELACT+6, SELACT+9
GMRCERR	MKCOMP+1~
GMRCLOG	BLD+6~, BLD+13, BLD+14, NEWCSLT+18!, MKCOMP+1~, MKCOMP+14, MKCOMP+15, MKCOMP+16
GMRCLOG(	BLD+10*, BLD+13, BLD+17, BLD+20
GMRCLOG(0	BLD+11, BLD+13, BLD+14, NEWCSLT+20
GMRCNUM	EN+10, EN+11, HDR+1, EXIT+1!, NEWCSLT+11, NEWCSLT+13, NEWCSLT+17, NEWCSLT+19, NEWCSLT+21, RETRAN+3 , RETRAN+4, RETRAN+13, RETRAN+17, RETRAN+18, SELACT+7, MKCOMP+3, MKCOMP+8, MKCOMP+14, MKCOMP+19
>> GMRCS	NEWCSLT+23
GMRCSEL	EXIT+1!, NEWCSLT+12, NEWCSLT+17*
>> IORVOFF	INIT+6
>> IORVON	INIT+6
LIN	INIT+1~, INIT+5*, INIT+6
LINE	BLD+6~, BLD+19, BLD+20, BLD+23, BLD+24
U	RETRAN+13, MKCOMP+8
>> VALMBCK	INIT+7*
>> VALMBG	INIT+2, NEWCSLT+26, RETRAN+19, MKCOMP+21
>> VALMCNT	INIT+3, NEWCSLT+25
>> VALMHDR(1	HDR+1*
X	EN+1~, HELP+1*, NEWCSLT+1~, RETRAN+1~, SELACT+1~, MKCOMP+1~
Y	EN+1~, EN+7, EN+10, NEWCSLT+1~, NEWCSLT+7, NEWCSLT+11, RETRAN+1~, RETRAN+16, SELACT+1~, SELACT+4 , MKCOMP+1~, MKCOMP+13

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCINC

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: