Routine: GMRCTIUE

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
Consult Request Tracking	9	($$LOCK,UNLOCK)^GMRCA1 SELECT^GMRCA2 COMP^GMRCAAC $$READ^GMRCACMT EXAC^GMRCADC ARMED^GMRCAR ($$VALID,TEAM,VALIDU)^GMRCAU $$CPACTM^GMRCCP ($$SELR,GETLIST,SHOWTIU)^GMRCTIUL
Text Integration Utility	3	EXSTNOTE^TIUBR1 MAIN^TIUEDIT ADDEND1^TIURA1
VA Fileman	3	$$FIND1^DIC $$GET1^DIQ ^DIR
Kernel	1	$$CJ^XLFSTR
Registration	1	FULL^VALM1

Package	Total	Caller Graph
Consult Request Tracking	1	GMRCTIU

Package

Total

Caller Graph

Consult Request Tracking

GMRCTIU

Entry Points

Name	Comments	DBIA/ICR reference
EDITNOTE(GMRCTUFN)	;use TIU LM for an existing note
ADDEND(GMRCO)	; Make an addendum action for a selected consult
CLASS(CPSTAT)	; Get TIU doc def for CONSULTS OR clinical procedures
CHKSTS	;Check the order status before allowing entry of a note
MED(GMRCO)	;allow med results if appropriate
GETLIST(GMRCDFN,GMRCO,GMRCLIST)	;
EDEX	;
ADDEND1(TIUDA)	;Add an addendum
PAUSE	; Pause for user
GETTUFN(GMRCSELR)	;Get the result entry from the selected entry
SAUSER()	; admin user?
NEW	;Enter a new result through TIU if implemented or old Completion logic
ENTER(GMRCO)	; Enter a note in TIU for the consult result
SINGLE(GMRCVF)	;Get the single result entry from the list for the file type
CPGUI	;it's GUI way or no way

External References

Name	Field # of Occurrence
$$FIND1^DIC	CLASS+3, CLASS+5
$$GET1^DIQ	CLASS+6
^DIR	ENTER+10, ENTER+35, ENTER+48, ENTER+66, ENTER+71, ENTER+85, MED+9
$$LOCK^GMRCA1	ENTER+11, ADDEND+20
UNLOCK^GMRCA1	EDEX+1
SELECT^GMRCA2	ENTER+4, ADDEND+4
COMP^GMRCAAC	ENTER+27, ENTER+38, NEW+5
$$READ^GMRCACMT	ADDEND+36
EXAC^GMRCADC	ADDEND+9, CPGUI+3
ARMED^GMRCAR	MED+12
$$VALID^GMRCAU	ENTER+22, ADDEND+8
TEAM^GMRCAU	SAUSER+6
VALIDU^GMRCAU	SAUSER+4, SAUSER+6
$$CPACTM^GMRCCP	ENTER+18, NEW+1
$$SELR^GMRCTIUL	ENTER+79, ADDEND+43
GETLIST^GMRCTIUL	GETLIST+4
SHOWTIU^GMRCTIUL	ENTER+64, ENTER+76, ADDEND+27, ADDEND+40
EXSTNOTE^TIUBR1	EDITNOTE+2
MAIN^TIUEDIT	NEW+8
ADDEND1^TIURA1	ADDEND1+2
FULL^VALM1	ENTER+14, ENTER+54, MED+5, ADDEND1+2
$$CJ^XLFSTR	ENTER+26, ENTER+37

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The requesting facility may not complete an inter-facility " Line Location: ENTER+8
Function Call: WRITE	Prompt: "consult." Line Location: ENTER+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("- Proceeding with Administrative Complete -",80) Line Location: ENTER+26
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("- Proceeding with Administrative Complete -",80) Line Location: ENTER+37
Function Call: WRITE	Prompt: ! Line Location: ENTER+46
Function Call: WRITE	Prompt: ! Line Location: ENTER+49
Function Call: WRITE	Prompt: ! Line Location: ENTER+71
Function Call: WRITE	Prompt: !,"This order has been " Line Location: CHKSTS+3
Function Call: WRITE	Prompt: $S(STATUS=1:"DISCONTINUED",1:"CANCELLED") Line Location: CHKSTS+4
Function Call: WRITE	Prompt: ". A note cannot be entered." Line Location: CHKSTS+5
Function Call: WRITE	Prompt: !,"A note #"_+GMRCTUFN_" is linked to the consult," Line Location: EDITNOTE+5
Function Call: WRITE	Prompt: !," but the note is no longer in TIU!" Line Location: EDITNOTE+6
Function Call: WRITE	Prompt: !!,$C(7),"Consult Resulting through TIU is not yet implemented." Line Location: NEW+3
Function Call: WRITE	Prompt: !,"Proceeding with Administrative Complete." Line Location: NEW+4
Function Call: WRITE	Prompt: !,"This consult does not yet have an associated note." Line Location: ADDEND+16
Function Call: WRITE	Prompt: !," Use the Complete action to enter a new note." Line Location: ADDEND+17
Function Call: WRITE	Prompt: !,"You may not addend to the incomplete associated note." Line Location: ADDEND+34
Function Call: WRITE	Prompt: !,"You are not the author of the existing note." Line Location: ADDEND+35
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAUSE+2
Function Call: WRITE	Prompt: !,"Press <RETURN> to continue: " Line Location: PAUSE+2
Function Call: WRITE	Prompt: " (timeout)" Line Location: PAUSE+2
Routine Call	DIC Line Location: CLASS+3 CLASS+5
Routine Call	DIR Line Location: ENTER+10 ENTER+35 ENTER+48 ENTER+66 ENTER+71 ENTER+85 MED+9

FileNo	Call Tags
^TIU(8925.1 - [#8925.1]	FIND1^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	ENTER+6, ENTER+22, ENTER+24, ENTER+25, ENTER+32, ENTER+33, ENTER+53, MED+3, MED+4, SAUSER+2 , SAUSER+3, CHKSTS+1, ADDEND+8, ADDEND+14
^GMR(123.3 - [#123.3]	MED+4
^GMR(123.5 - [#123.5]	SAUSER+3
^TIU(8925 - [#8925]	EDITNOTE+1
^TMP("GMRC50"	SINGLE+3, ADDEND+30, ADDEND+31
^TMP("GMRC50R"	GETTUFN+2

Label References

Name	Line Occurrences
$$CLASS	NEW+1
$$GETLIST	ENTER+55, ADDEND+15
$$GETTUFN	ENTER+88, ADDEND+45
$$MED	ENTER+24, ENTER+32, ENTER+42
$$SINGLE	ENTER+67, ADDEND+25
ADDEND1	ADDEND+32, ADDEND+47
CHKSTS	ENTER+13
CPGUI	ENTER+56, ENTER+62
EDEX	ENTER+6, ENTER+11, ENTER+13, ENTER+25, ENTER+28, ENTER+30, ENTER+44, ENTER+55, ENTER+72, ENTER+80 , ENTER+81, ENTER+92, ADDEND+18, ADDEND+20, ADDEND+24, ADDEND+44, ADDEND+47, ADDEND+49
EDITNOTE	ENTER+68, ENTER+90, ADDEND+33
NEW	ENTER+57, ENTER+71, ENTER+87, ADDEND+36
PAUSE	CHKSTS+6, EDITNOTE+7, ADDEND+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AUTHOR	ADDEND+28~
CPSTAT	CLASS~, CLASS+2
DIR	ENTER+7~, ENTER+45~, ENTER+63~, ENTER+83~, MED+6~, MED+10!
DIR("A"	ENTER+34, ENTER+47, ENTER+65, ENTER+70, ENTER+84, MED+8
DIR("B"	ENTER+47, ENTER+65, ENTER+70, ENTER+85, MED+7*
DIR(0	ENTER+10, ENTER+34, ENTER+47, ENTER+65, ENTER+69, ENTER+84, MED+7*
DIROUT	ENTER+45~, ENTER+63~, MED+6~
DIRUT	ENTER+31~, ENTER+35, ENTER+45~, ENTER+63~
DTIME	PAUSE+2
DTOUT	ENTER+45~, ENTER+63~, ENTER+86!, MED+6~
DUOUT	ENTER+45~, ENTER+63~, ENTER+86!, MED+6~
DUZ	SAUSER+3, SAUSER+6, ADDEND+33
ERR	CLASS+1~
GMRCACT	ADDEND+1~
GMRCADUS	SAUSER+1~, SAUSER+5*, SAUSER+6, SAUSER+7
GMRCADUZ	ADDEND+1~
GMRCAU	ENTER+21~, ENTER+22*, ENTER+23, ENTER+30
GMRCCP	ENTER+17~, ENTER+18*, ENTER+24, ENTER+32, ENTER+42, ENTER+56, ENTER+62
GMRCDFN	ENTER+53, ENTER+55, EDITNOTE+2, NEW+8, GETLIST~, ADDEND+1~, ADDEND+14, ADDEND+15, EDEX+2!
GMRCDTYP	CLASS+1~, CLASS+6*, CLASS+7
GMRCLCK	ENTER+2~, ENTER+12, ADDEND+2~, ADDEND+21, EDEX+1
GMRCLIST	GETLIST~
GMRCMC	ENTER+3~, ENTER+24, ENTER+25, ENTER+32, ENTER+33, ENTER+42*, ENTER+44
GMRCMED	MED+2~, MED+11, MED+13
GMRCO	ENTER~, ENTER+4, ENTER+5, ENTER+6, ENTER+11, ENTER+18, ENTER+22, ENTER+24, ENTER+25, ENTER+27 , ENTER+32, ENTER+33, ENTER+38, ENTER+42, ENTER+53, ENTER+55, MED~, MED+3, MED+4, SAUSER+2 , SAUSER+3, CHKSTS+1, NEW+1, NEW+5, GETLIST~, GETLIST+4, ADDEND~, ADDEND+4, ADDEND+5, ADDEND+8 , ADDEND+14, ADDEND+15, ADDEND+20, EDEX+1, EDEX+2!
GMRCQIT	ENTER+30, ENTER+35, ENTER+38, ENTER+44, ENTER+48*, MED+2~, EDEX+2!
GMRCQUT	ENTER+2!, ENTER+5, ENTER+13, ENTER+80, CHKSTS+6*, ADDEND+3!, ADDEND+5, ADDEND+44, EDEX+2!
GMRCSEL	EDEX+2!
GMRCSELR	ENTER+79, ENTER+81, ENTER+88, GETTUFN~, GETTUFN+2, ADDEND+43, ADDEND+44, ADDEND+45
GMRCSS	SAUSER+1~, SAUSER+2*
GMRCTIDA	NEW+7~, NEW+8
GMRCTIUC	ENTER+55, ENTER+79, GETLIST+4, ADDEND+1~, ADDEND+15, ADDEND+43
GMRCTIUC(	ENTER+61, GETLIST+6, ADDEND+24
GMRCTUFN	ENTER+67, ENTER+68, ENTER+88, ENTER+90, EDITNOTE~, EDITNOTE+1, EDITNOTE+2, EDITNOTE+5, ADDEND+25, ADDEND+26 , ADDEND+29, ADDEND+32, ADDEND+33, ADDEND+45, ADDEND+47, EDEX+2!
GMRCTX	ADDEND+1~
GMRCVF	ENTER+60, ENTER+61, ENTER+67, SINGLE~, SINGLE+4, GETLIST+2~, GETLIST+5, GETLIST+6, ADDEND+23*, ADDEND+24 , ADDEND+25, ADDEND+29
GMRCVP	SINGLE+1~, SINGLE+2, SINGLE+3, SINGLE+4, SINGLE+5, ADDEND+28~, ADDEND+29*, ADDEND+30, ADDEND+31
GMRCY	CLASS+1~, CLASS+3, CLASS+4, CLASS+5, CLASS+6, CLASS+7*, CLASS+8
MSG	CPGUI+1~, CPGUI+2*, CPGUI+3
RSLT	SINGLE+1~, SINGLE+2, SINGLE+3, SINGLE+4, GETTUFN+1~, GETTUFN+2*, GETTUFN+3
RSLTIEN	ADDEND+2~, ADDEND+30*, ADDEND+31
RSLTINFO	ADDEND+1~, ADDEND+28~, ADDEND+31*, ADDEND+32, ADDEND+33
STATUS	CHKSTS+1~*, CHKSTS+2, CHKSTS+4
TIUCLASS	ENTER+2~, NEW+1*, NEW+2, NEW+8
TIUDA	ENTER+2~, ADDEND+1~, ADDEND1~
U	ENTER+6, ENTER+22, ENTER+24, ENTER+25, ENTER+32, ENTER+33, MED+3, MED+4, ADDEND+8
>> VALM	ENTER+14, ENTER+54
X	ENTER+45~, ENTER+63~, ENTER+83~, ENTER+86!, MED+6~, PAUSE+2~*
Y	ENTER+36, ENTER+45~, ENTER+48, ENTER+63~, ENTER+66, ENTER+71, ENTER+83~, ENTER+86!, MED+6~, MED+9

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCTIUE

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items