Routine: GMRCDIS

Information

GMRCDIS ;SLC/JFR - LM ROUTINE TO DISASSOCIATE MED RESULTS; 11/5/01 11:20

Source Information

Source file <GMRCDIS.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Consult Request Tracking	8	($$LOCK,UNLOCK)^GMRCA1 SELECT^GMRCA2 EXAC^GMRCADC $$ORTX^GMRCAU EN^GMRCHL7 ($$SELECT,RESETIT,SET)^GMRCMED (AUDIT,MSG,STATUS)^GMRCP HDR^GMRCSLDT
VA Fileman	3	^DIE ^DIK ^DIR
Registration	2	(EN,SHOW)^VALM ($$SETSTR,FULL)^VALM1
Authorization Subscription	1	$$ISA^USRLM
Kernel	1	$$CJ^XLFSTR
Medicine	1	$$SINGLE^MCAPI

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Consult Request Tracking	2	GMRCACTM GMRCIACT
Order Entry Results Reporting	2	ORCONSLT ORQQCN3

Entry Points

Name	Comments	DBIA/ICR reference
EN	;invoke list template
HDR	;format list template header
REMOVE(GMRCO,RSLT,GMRCAD,GMRCORNP)	;disassociate result ; remove rslt, log actv, update sts, send alerts ; Input: ; GMRCO - ien from file 123 ; RSLT - medicine result in var ptr form (e.g. "19;MCAR(691.5,") ; GMRCAD - FM date/time of action (optional) ; GMRCORNP - DUZ of person performing action (optional)
REMUSR(GMRCIEN,USER)	; check to see if user is authorized to remove results
PHDR
GETRES(GMRCO)	; get associated MEDICINE results and format
STSCHG(GMRCIEN)	;completed before or go back
INIT	; set up array into ^TMP("GMRCR",$J,"DT"... ; should already have it
EXIT	;
REFRESH(GMRCIEN)	;re-build list of associated results
EN1(GMRCRSLT)	; select result and verify remove action
DIS(GMRCO)	;select consult and start disassoc process

External References

Name	Field # of Occurrence
^DIE	REMOVE+15
^DIK	REMOVE+12
^DIR	EN1+14
$$LOCK^GMRCA1	DIS+4
UNLOCK^GMRCA1	DIS+12
SELECT^GMRCA2	DIS+2
EXAC^GMRCADC	DIS+9, EN1+2, REMOVE+10
$$ORTX^GMRCAU	REMOVE+35
EN^GMRCHL7	REMOVE+28
$$SELECT^GMRCMED	EN1+5
RESETIT^GMRCMED	REFRESH+1
SET^GMRCMED	EN1+6
AUDIT^GMRCP	REMOVE+19
MSG^GMRCP	REMOVE+36
STATUS^GMRCP	REMOVE+25
HDR^GMRCSLDT	HDR+3
$$SINGLE^MCAPI	GETRES+5
$$ISA^USRLM	REMUSR+10
EN^VALM	EN+1
SHOW^VALM	PHDR+3
$$SETSTR^VALM1	HDR+5, GETRES+7, GETRES+8, GETRES+9, GETRES+10
FULL^VALM1	EN1+8
$$CJ^XLFSTR	PHDR+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(123 - [#123]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	GETRES+3, GETRES+4, GETRES+5, GETRES+12, REMOVE+9, REMOVE+13, REMOVE+22, REMOVE+27, REMOVE+31, REMOVE+32 , REMOVE+34, STSCHG+1, STSCHG+2, STSCHG+4, STSCHG+5, REMUSR+2, REMUSR+3, REMUSR+5, REMUSR+7
^GMR(123.5 - [#123.5]	REMUSR+4
^ORD(101 - [#101]	PHDR+4, PHDR+5, PHDR+6, PHDR+7, PHDR+8, PHDR+9, PHDR+10
^TMP("GMRCR"	INIT+2, GETRES+11, GETRES+12, EXIT+1!, EN1+1, EN1+9, EN1+10, REFRESH+2!, REFRESH+4, REFRESH+5* , REFRESH+6

Label References

Name	Line Occurrences
$$REMUSR	DIS+5
$$STSCHG	REMOVE+23
EN	DIS+11
GETRES	DIS+10, REFRESH+3
REMOVE	EN1+15

Naked Globals

Name	Field # of Occurrence
^(2	STSCHG+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	STSCHG+3~*
ACT(0	STSCHG+5*, STSCHG+6
ACT(2	STSCHG+5*, STSCHG+6
CHG	STSCHG+3~, STSCHG+7, STSCHG+9
CNT	GETRES+1~, GETRES+2, GETRES+7, GETRES+11, GETRES+12, GETRES+13
DA	REMOVE+8~, REMOVE+12, REMOVE+14~, REMOVE+15
DA(1	REMOVE+12*
DATA	GETRES+1~, GETRES+6, GETRES+7, GETRES+8, GETRES+9, GETRES+10*, GETRES+11
DIE	REMOVE+14~, REMOVE+15*
DIK	REMOVE+8~, REMOVE+12*
DIR	EN1+3~
DIR("A"	EN1+12, EN1+13
DIR("B"	EN1+11*
DIR(0	EN1+11*
DIROUT	EN1+3~
DR	REMOVE+14~, REMOVE+15*
DTOUT	EN1+3~
DUOUT	EN1+3~
DUZ	DIS+5, REMOVE+30, REMUSR+9
GMRCA	REMOVE+17~, REMOVE+18*
GMRCAD	REMOVE~
GMRCADUZ	REMOVE+33~, REMOVE+36
GMRCADUZ(	REMOVE+34*
GMRCCLS	REMUSR+1~, REMUSR+4*, REMUSR+10
GMRCDFN	REMOVE+21~, REMOVE+22*, REMOVE+28, REMOVE+36
GMRCIEN	STSCHG~, STSCHG+1, STSCHG+2, STSCHG+4, STSCHG+5, REFRESH~, REFRESH+3, REMUSR~, REMUSR+2, REMUSR+3 , REMUSR+5, REMUSR+7
GMRCMCR	GETRES+1~, GETRES+5*, GETRES+8, GETRES+9, GETRES+10
GMRCMEDR	EN1+4, EN1+7, REFRESH+1, REFRESH+2!
GMRCMSG	DIS+1~, DIS+5*, DIS+7, DIS+9
GMRCO	HDR+4, GETRES~, GETRES+3, GETRES+4, GETRES+5, GETRES+12, DIS~, DIS+2, DIS+3, DIS+4 , DIS+5, DIS+10, DIS+12, EN1+15, REMOVE~, REMOVE+9, REMOVE+12, REMOVE+13, REMOVE+15, REMOVE+22 , REMOVE+23, REMOVE+27, REMOVE+28, REMOVE+31, REMOVE+32, REMOVE+34, REMOVE+35, REMOVE+36
GMRCORNP	REMOVE~, REMOVE+28, REMOVE+30*, REMOVE+31
GMRCORTX	REMOVE+33~, REMOVE+35*, REMOVE+36
GMRCQIT	DIS+1~, REMOVE+8~
GMRCQUT	DIS+1~, DIS+2, REMOVE+8~
GMRCRES	REMOVE+8~, REMOVE+9*, REMOVE+12
GMRCRSLT	EN1~, REMOVE+17~, REMOVE+18*
GMRCSS	DIS+1~, REMUSR+1~, REMUSR+3*, REMUSR+4
GMRCSTS	REMOVE+24~, REMOVE+25*
GMRCTYP	REMOVE+21~, REMOVE+27*, REMOVE+28
GMRCVTIT	HDR+1~, HDR+2*
I	STSCHG+3~, STSCHG+4, STSCHG+5
>> ITEM	EN1+4, EN1+5, EN1+6, EN1+7, EN1+9, EN1+10
MSG	DIS+6~, DIS+8*, DIS+9
RES	GETRES+1~, GETRES+2, GETRES+3, GETRES+4, GETRES+5, GETRES+12, REMUSR+1~, REMUSR+6, REMUSR+7, REMUSR+8
RESTXT	EN1+3~, EN1+9*, EN1+12
RESULT	EN1+3~, EN1+10*, EN1+15
RSLT	REMOVE~, REMOVE+9, REMOVE+13, REMOVE+18
U	GETRES+8, GETRES+9, GETRES+10, DIS+7, DIS+9, REMOVE+13, REMOVE+22, REMOVE+27, REMOVE+31, REMOVE+32 , REMOVE+34, STSCHG+6, REMUSR+2, REMUSR+3, REMUSR+4
USER	REMUSR~, REMUSR+9*, REMUSR+10
>> VALMBCK	REFRESH+7*
>> VALMBG	INIT+2*
>> VALMCNT	PHDR+4, INIT+2, EN1+5, REFRESH+6
>> VALMHDR(2	HDR+4, HDR+5
>> VALMSG	PHDR+1*
X	EN1+3~
>> XQORM("#"	PHDR+4*
>> XQORM("KEY"	PHDR+5, PHDR+6, PHDR+7, PHDR+8, PHDR+9, PHDR+10
>> XQORM("M"	PHDR+2*
Y	EN1+3~, EN1+14

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCDIS

Call Graph Total: 16

Caller Graph Total: 4