Routine: GMRCMED

Package	Total	Call Graph
Consult Request Tracking	5	EXAC^GMRCADC EN^GMRCHL7 RESULTS^GMRCMED (AUDIT,AUDIT0,MSG,STATUS)^GMRCP ADDRSLT^GMRCTIUA
Registration	3	(EN,SHOW)^VALM ($$SETSTR,FULL)^VALM1 (CNTRL,WRITE)^VALM10
Kernel	2	$$NOW^XLFDT $$CJ^XLFSTR
VA Fileman	2	$$GET1^DIQ ^DIR
Medicine	1	EN^MCARPS2
Order Entry Results Reporting	1	START^ORWRP

Package	Total	Caller Graph
Consult Request Tracking	4	GMRCAR GMRCDIS GMRCGUIU GMRCMED
Order Entry Results Reporting	1	ORQQCN3

Entry Points

Name	Comments	DBIA/ICR reference
SELECT(CNT)	;grab an item from list
AR(ITEM)	;associate specific result and complete consult
SCRNDRFT(GMRCMCDA,GMRCMCFL)	;screen out draft or marked for del med results ; Input: ; GMRCDA - ien from a MEDICINE file ; GMRCMCFL - file # from MEDICINE (e.g. 691, 691.5, 699 etc.) ; Output: Boolean 1=screen it out 0=include it
MEDCOMP(GMRCDA,GMRCRSLT,GMRCAD,GMRCORNP,GMRCALRT)	;add medicine result ; update status and send alerts ; Input: ; GMRCDA - ien from file 123 ; GMRCRSLT - medicine result in var ptr form (e.g. "19;MCAR(691.5,") ; GMRCAD - FM date/time of action (optional) ; GMRCORNP - DUZ of person taking action ; GMRCALRT - array of users to receive alert (optional)
REFRESH(GMRCIEN)	;update list of available results
DISPRES(ITEM)	;
PHDR	;set protocols into actions
RESETIT(NUM)	;return prev. selected number to normal video
SET(NUM)	; set selected med result into GMRCMEDR
RESULTS(ROOT,GMRCDFN)	;get list of results from Medicine ; ROOT = "MCAR(691","MCAR(691.5" etc. (global root w/o comma) ; return list formatted in ^TMP("GMRCMC",$J

External References

Name	Field # of Occurrence
$$GET1^DIQ	REFRESH+5, SCRNDRFT+8, SCRNDRFT+10
^DIR	SELECT+3, AR+16
EXAC^GMRCADC	SET+5, DISPRES+2, AR+2, AR+12
EN^GMRCHL7	MEDCOMP+20
RESULTS^GMRCMED	REFRESH+6
AUDIT^GMRCP	MEDCOMP+14
AUDIT0^GMRCP	MEDCOMP+15
MSG^GMRCP	MEDCOMP+18
STATUS^GMRCP	MEDCOMP+13
ADDRSLT^GMRCTIUA	MEDCOMP+16
EN^MCARPS2	RESULTS+5
START^ORWRP	DISPRES+14
EN^VALM	DISPRES+23
SHOW^VALM	PHDR+3
$$SETSTR^VALM1	RESULTS+14, RESULTS+15, RESULTS+16, RESULTS+17
FULL^VALM1	AR+8
CNTRL^VALM10	SET+8, RESETIT+1
WRITE^VALM10	SET+9, RESETIT+2
$$NOW^XLFDT	AR+17
$$CJ^XLFSTR	PHDR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),NUM_" is not a valid selection. " Line Location: SET+2
Function Call: WRITE	Prompt: !,"Choose a number between 1 and "_VALMCNT Line Location: SET+3
Routine Call	VALM Line Location: DISPRES+23
Routine Call	VALM Line Location: PHDR+3
Routine Call	DIR Line Location: SELECT+3 AR+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^MCAR(697.2 - [#697.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	RESULTS+12, AR+11, MEDCOMP+17, MEDCOMP+19, REFRESH+4, REFRESH+6
^GMR(123.3 - [#123.3]	REFRESH+5
^ORD(101 - [#101]	PHDR+4, PHDR+5, PHDR+6, PHDR+7, PHDR+8, PHDR+9, PHDR+10
^TMP("GMRCMC"	RESULTS+4!
^TMP("GMRCR"	SET+4, RESULTS+18, RESULTS+22, DISPRES+1, DISPRES+9, DISPRES+11, DISPRES+12!, DISPRES+16, DISPRES+18, DISPRES+22 , DISPRES+24, DISPRES+25!, DISPRES+26, AR+1, AR+9, AR+10, REFRESH+3!, REFRESH+7, REFRESH+8*, REFRESH+9
^TMP("OR"	RESULTS+6, RESULTS+9, RESULTS+11, RESULTS+24!
^TMP("ORDATA"	DISPRES+15, DISPRES+17, DISPRES+18, DISPRES+19!

Label References

Name	Line Occurrences
$$SCRNDRFT	RESULTS+13
$$SELECT	DISPRES+5, AR+5
MEDCOMP	AR+17
RESETIT	SET+6, REFRESH+2
SET	DISPRES+6, AR+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	RESULTS+3~, RESULTS+8, RESULTS+14, RESULTS+18, RESULTS+22, RESULTS+23, SELECT~, SELECT+2
DATA	RESULTS+10~, RESULTS+11, RESULTS+14, RESULTS+15, RESULTS+16, RESULTS+17*, RESULTS+18
>> DFN	DISPRES+13, DISPRES+20*
DIR	SELECT+1~, AR+3~
DIR("A"	SELECT+2, AR+14, AR+15*
DIR("B"	AR+13*
DIR(0	SELECT+2, AR+13
DIRUT	SELECT+1~, SELECT+3
DTOUT	SELECT+1~
DUOUT	SELECT+1~
DUZ	AR+17
GMRCA	MEDCOMP+10~, MEDCOMP+11*
GMRCAD	MEDCOMP~, MEDCOMP+14, MEDCOMP+15
GMRCALRT	MEDCOMP~, MEDCOMP+18
GMRCDA	MEDCOMP~, MEDCOMP+9, MEDCOMP+11, MEDCOMP+16, MEDCOMP+18, MEDCOMP+19, MEDCOMP+20
GMRCDFN	RESULTS~, RESULTS+5, DISPRES+3~, DISPRES+8~, DISPRES+13, DISPRES+20, MEDCOMP+17, MEDCOMP+18, MEDCOMP+20
GMRCDR	MEDCOMP+10~, MEDCOMP+12*
GMRCIEN	REFRESH~, REFRESH+4, REFRESH+6
GMRCMCDA	SCRNDRFT~, SCRNDRFT+7, SCRNDRFT+8, SCRNDRFT+10
GMRCMCFL	SCRNDRFT~, SCRNDRFT+7, SCRNDRFT+8, SCRNDRFT+10
GMRCMCST	SCRNDRFT+6~, SCRNDRFT+8, SCRNDRFT+9, SCRNDRFT+12
GMRCMEDR	SET+6, SET+7*, DISPRES+4, DISPRES+7, AR+4, AR+7, REFRESH+2, REFRESH+3!
GMRCMFD	SCRNDRFT+6~, SCRNDRFT+10*, SCRNDRFT+11
GMRCO	AR+17, MEDCOMP+10~, MEDCOMP+11*, MEDCOMP+17
GMRCORNP	MEDCOMP~, MEDCOMP+20
GMRCPROC	REFRESH+1~, REFRESH+4*, REFRESH+5
GMRCRES	DISPRES+8~, DISPRES+9*, DISPRES+10
GMRCRSLT	MEDCOMP~, MEDCOMP+9, MEDCOMP+16
GMRCSEL	RESETIT+3!
GMRCSTS	MEDCOMP+10~, MEDCOMP+11*
GMRCTYP	MEDCOMP+10~, MEDCOMP+19*, MEDCOMP+20
GMRCVTIT	DISPRES+8~, DISPRES+21*
I	DISPRES+8~, DISPRES+17*, DISPRES+18
>> IOINORM	RESETIT+1
>> IORVOFF	SET+8
>> IORVON	SET+8
ITEM	DISPRES~, DISPRES+4, DISPRES+5, DISPRES+6, DISPRES+7, DISPRES+9, AR~, AR+4, AR+5, AR+6 , AR+7, AR+9, AR+10
MCDATA	RESULTS+10~, RESULTS+11*, RESULTS+12, RESULTS+13, RESULTS+15, RESULTS+16, RESULTS+17, RESULTS+21
MCPROC	REFRESH+1~
MCROOT	REFRESH+1~, REFRESH+5*, REFRESH+6
MSG	MEDCOMP+10~, MEDCOMP+17*, MEDCOMP+18
NUM	SET~, SET+1, SET+2, SET+4, SET+7, SET+8, SET+9, RESETIT~, RESETIT+1, RESETIT+2
ONEDATA	RESULTS+10~, RESULTS+21*, RESULTS+22
>> ORVP	DISPRES+20
REC	RESULTS+3~, RESULTS+8, RESULTS+9, RESULTS+11, RESULTS+14
RESTXT	AR+3~, AR+9*, AR+14
RESULT	AR+3~, AR+10*, AR+11, AR+17
ROOT	RESULTS~, RESULTS+5, RESULTS+12, RESULTS+13, RESULTS+21
S5	RESULTS+3~, RESULTS+5*
U	RESULTS+12, RESULTS+13, RESULTS+15, RESULTS+16, RESULTS+17, RESULTS+21, MEDCOMP+17, MEDCOMP+19, REFRESH+5, REFRESH+6
>> VALMBCK	SET+10, RESETIT+3, DISPRES+26, REFRESH+10
>> VALMCNT	SET+1, SET+3, PHDR+4, DISPRES+5, DISPRES+22, DISPRES+26, AR+5, REFRESH+9*
>> VALMSG	PHDR+1*
X	SELECT+1~, AR+3~
>> XQORM("#"	PHDR+4*
>> XQORM("KEY"	PHDR+5, PHDR+6, PHDR+7, PHDR+8, PHDR+9, PHDR+10
>> XQORM("M"	PHDR+2*
Y	SELECT+1~, SELECT+4, AR+3~, AR+16

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCMED

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: