Routine: GMRCGUIB

Information

GMRCGUIB ;SLC/DCM,JFR,MA/AFS,PB - GUI actions for consults ; Jan 17, 2024@13:17

Package	Total	Call Graph
Consult Request Tracking	9	($$ORTX,$$VALID)^GMRCAU ($$FEE,COMMENT)^GMRCCCRA EXIT^GMRCGUIA EN^GMRCHL7 $$FEE^GMRCHL7H $$CHKTXT^GMRCHL7U TRIGR^GMRCIEVT (AUDIT,MSG,STATUS)^GMRCP AG123S1^GMRCXR
VA FileMan	2	^DIE $$GET1^DIQ
Enterprise Health Management Platform	1	POST^HMPEVNT
Kernel	1	$$NOW^XLFDT
Medicine	1	MEDLKUP^MCARUTL3

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 27

Package	Total	Caller Graph
Consult Request Tracking	5	GMRCAD31 GMRCCC GMRCDST GMRCGUIA GMRCGUIS
Virtual Patient Record	5	VPRDJ01 VPRDJ03 VPRDJ08A VPRDMC VPRSDAC
Enterprise Health Management Platform	4	HMPDJ01 HMPDJ03 HMPDJ08A HMPDMC
Prosthetics	4	RMPR29CA RMPR29CB RMPR9CA RMPREOS
Order Entry Results Reporting	2	ORQQCN1 ORQQCN2
Scheduling	2	SDCCRSEN2 SDQQCN2
Text Integration Utility	2	TIUCCRHL7P2 TIUCCRHL7P3
Clinical Procedures	1	MDHL7XXX
Imaging	1	MAGGNTI3
Radiology Nuclear Medicine	1	RAORDR

Entry Points

Name	Comments	DBIA/ICR reference
SETDA()	;set DA of where audit actions are to be filed
REASON(GMRCFN,GMRCRQ,GMRCDT)	;Load the reason for the request into ^GMR(123,GMRCO,20
SETCOM(COMMENT,WHO)	;Set comment array into tracking actions
CMT(GMRCO,GMRCOM,GMRCADUZ,GMRCWHN,GMRCWHO)	;add comment to consult ; GMRCO = IEN from file 123 ; GMRCOM = array of comments in format GMRCOM(1)="xxxx", GMRCOM(2)="xxx" ; GMRCADUZ = array of alert recipients as GMRCADUZ(DUZ)="" (optional) ; GMRCWHO = IEN from file 200 who's responsible activity (optional) ; GMRCWHN = date time of activity in FM format ; GMRCFORC = copy of GMRCADUZ; these users will recieve alert 63 even if alert is turned OFF; optional argument to MSG^GMRCP
SFILE(GMRCO,GMRCA,GMRCSF,GMRCORNP,GMRCDUZ,GMRCOM,GMRCALF,GMRCATO,GMRCAD)	;Process various file update functions from the GUI for a consult ; ADMIN COMPLETE or SIGNIFICANT FINDINGS
SCH(GMRCO,GMRCORNP,GMRCAD,GMRCADUZ,GMRCMT)	;schedule a consult API ; Input variables:
DOCLIST(GMRCAR,GMRCDA,GMRCMED)

External References

Name	Field # of Occurrence
^DIE	SETCOM+6, SFILE+52
$$GET1^DIQ	CMT+15, CMT+17
$$ORTX^GMRCAU	CMT+27, SFILE+38, SFILE+46, SCH+32
$$VALID^GMRCAU	CMT+29, SFILE+48, SCH+35
$$FEE^GMRCCCRA	CMT+17
COMMENT^GMRCCCRA	CMT+17
EXIT^GMRCGUIA	SCH+22, SCH+24, SCH+39
EN^GMRCHL7	SFILE+64, SCH+29
$$FEE^GMRCHL7H	CMT+15
$$CHKTXT^GMRCHL7U	REASON+4, SETCOM+2
TRIGR^GMRCIEVT	SETCOM+13
AUDIT^GMRCP	SFILE+53, SCH+25
MSG^GMRCP	CMT+36, SFILE+61, SCH+38
STATUS^GMRCP	CMT+21, SCH+24
AG123S1^GMRCXR	SETCOM+10
POST^HMPEVNT	CMT+24
MEDLKUP^MCARUTL3	DOCLIST+20
$$NOW^XLFDT	SETCOM+3, SFILE+24, SCH+17

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	SETDA+1, SETDA+2, SETDA+3, REASON+3, REASON+4, REASON+5, SETCOM+4, SETCOM+7, SETCOM+8, SETCOM+9 , SETCOM+10, SETCOM+13, CMT+22, CMT+25, CMT+28, CMT+29, SFILE+21, SFILE+24, SFILE+39, SFILE+47 , SFILE+48, SFILE+50, SFILE+59, SFILE+63, SFILE+64, SCH+20, SCH+34, SCH+35, SCH+37, DOCLIST+12 , DOCLIST+13, DOCLIST+15

Label References

Name	Line Occurrences
$$SETDA	CMT+10, SFILE+56, SCH+27
SETCOM	CMT+12, SFILE+57, SCH+28

Naked Globals

Name	Field # of Occurrence
^(0	SETDA+2, SETCOM+9*, SFILE+24, SFILE+39, SFILE+47, SCH+34
^(40	SETCOM+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	DOCLIST+19~, DOCLIST+20, DOCLIST+21, DOCLIST+22
CNT	DOCLIST+14~, DOCLIST+17, DOCLIST+21, DOCLIST+23, DOCLIST+24
COMMENT	SETCOM~
COMMENT(	SETCOM+2*, SETCOM+8
DA	SETDA+2, SETDA+3, SETDA+4, SETCOM+7, SETCOM+8, SETCOM+9, SETCOM+13, CMT+8~, CMT+10, SFILE+52* , SFILE+55~, SFILE+56, SFILE+65!, SCH+27
DA(1	SETCOM+5*
DFN	SCH+16~, SCH+20*, SCH+29, SCH+38
DIE	SETCOM+1~, SETCOM+5, SFILE+52!, SFILE+65!
DR	SETCOM+1~, SETCOM+5, SFILE+22, SFILE+37, SFILE+45, SFILE+52!, SFILE+65!
DUZ	CMT+29, CMT+30, CMT+32, SFILE+25, SFILE+39, SFILE+47, SFILE+48, SFILE+50, SCH+19, SCH+34 , SCH+35, SCH+37
GMRCA	CMT+8~, CMT+11, SFILE~, SFILE+28, SFILE+34, SFILE+45, SFILE+61, SFILE+63, SCH+23
GMRCAD	SETCOM+7, CMT+8~, CMT+11, SFILE~, SFILE+26, SFILE+64, SFILE+65!, SCH~, SCH+18*, SCH+29
GMRCADUZ	CMT~, CMT+9, CMT+36, SFILE+23~*, SFILE+61, SFILE+65!, SCH~, SCH+38
GMRCADUZ(	CMT+33, CMT+35, SFILE+39, SFILE+43, SFILE+47, SCH+34
GMRCALF	SFILE~, SFILE+41
GMRCAR	DOCLIST~
GMRCAR(0	DOCLIST+13*
GMRCAR(50	DOCLIST+17, DOCLIST+21!, DOCLIST+23
GMRCATO	SFILE~, SFILE+43
GMRCDA	DOCLIST~, DOCLIST+12, DOCLIST+13, DOCLIST+15
GMRCDFN	CMT+8~, CMT+22, CMT+24, CMT+36, SFILE+24, SFILE+61, SFILE+65!
GMRCDR	CMT+19~, CMT+20*
GMRCDT	REASON~, REASON+3, SFILE+65!
GMRCDUZ	SFILE~, SFILE+25, SFILE+57, SFILE+65!, SCH+19, SCH+28
GMRCERMS	SFILE+20~, SFILE+21, SFILE+22, SFILE+28, SFILE+66, SCH+16~, SCH+17, SCH+20, SCH+21*, SCH+24 , SCH+40
GMRCERR	SFILE+20~, SFILE+21, SFILE+22, SFILE+28, SFILE+29, SFILE+32, SFILE+33, SFILE+66, SCH+16~, SCH+17* , SCH+20, SCH+21*, SCH+24, SCH+40
GMRCFN	REASON~, REASON+3, REASON+4, REASON+5
GMRCFORC	CMT+8~, CMT+9*, CMT+36
GMRCMED	DOCLIST~, DOCLIST+16
GMRCMT	SCH~, SCH+28
GMRCMT(0	SCH+25, SCH+26
GMRCND	SETCOM+8*, SETCOM+9, SETCOM+15!
GMRCND1	SETCOM+8*, SETCOM+15!
GMRCNOW	SETCOM+1~, SETCOM+3, SETCOM+9, SFILE+24, SFILE+26, SFILE+65!, SCH+16~, SCH+17*, SCH+18
GMRCO	SETDA+1, SETDA+2, SETDA+3, SETCOM+4, SETCOM+5, SETCOM+7, SETCOM+8, SETCOM+9, SETCOM+10, SETCOM+13 , CMT~, CMT+15, CMT+17, CMT+22, CMT+24, CMT+25, CMT+27, CMT+28, CMT+29, CMT+36 , SFILE~, SFILE+21, SFILE+24, SFILE+38, SFILE+39, SFILE+46, SFILE+47, SFILE+48, SFILE+50, SFILE+52 , SFILE+59, SFILE+61, SFILE+63, SFILE+64, SCH~, SCH+20, SCH+29, SCH+32, SCH+34, SCH+35 , SCH+37, SCH+38
GMRCOM	CMT~, CMT+12, SFILE~, SFILE+30, SFILE+54, SFILE+57, SFILE+64
GMRCOM(	SFILE+32, SFILE+33
GMRCOM(0	SFILE+53, SFILE+54
GMRCOM1	SFILE+31~, SFILE+32, SFILE+33
GMRCORNP	CMT+11*, SFILE~, SFILE+64, SFILE+65!, SCH~, SCH+29
GMRCORTX	CMT+8~, CMT+23, CMT+26, CMT+27, CMT+36, SFILE+22, SFILE+38, SFILE+46, SFILE+61, SFILE+65!
>> GMRCPA	SETCOM+4*
>> GMRCQUT	SCH+24
>> GMRCRB	SFILE+64
GMRCRP	CMT+8~, CMT+28*, CMT+30, CMT+32, CMT+33, CMT+35
GMRCRQ	REASON~
GMRCRQ(	REASON+4*
GMRCRSLT	SFILE+65!
GMRCSF	SFILE~, SFILE+35*, SFILE+38, SFILE+46
GMRCSTS	CMT+19~, CMT+20, SFILE+24, SFILE+36, SFILE+65!, SCH+16~, SCH+23
GMRCTM	CMT+8~, CMT+31, CMT+34, CMT+35, CMT+36, SFILE+20~, SFILE+22, SFILE+49, SFILE+50, SFILE+61 , SCH+31~, SCH+33, SCH+36, SCH+37, SCH+38
>> GMRCTYPE	SFILE+64
GMRCUPD	CMT+8~, CMT+29, CMT+32, CMT+34, SFILE+48, SFILE+49, SFILE+50, SCH+31~, SCH+35*, SCH+36 , SCH+37
>> GMRCVSIT	SFILE+64
GMRCWHN	CMT~, CMT+11
GMRCWHO	CMT~, CMT+11, CMT+12
I	SFILE+42~, SFILE+43*
L	REASON+4, REASON+6!, SETCOM+1~, SETCOM+2
LN	REASON+4, REASON+5, REASON+6!
RES	DOCLIST+14~, DOCLIST+15, DOCLIST+16, DOCLIST+17, DOCLIST+18, DOCLIST+20
STR	DOCLIST+19~, DOCLIST+22*, DOCLIST+23
TXT	SCH+31~, SCH+32*, SCH+38
U	CMT+25, CMT+28, CMT+29, SFILE+39, SFILE+47, SFILE+48, SFILE+50, SFILE+63, SCH+34, SCH+35 , SCH+37, DOCLIST+13, DOCLIST+22, DOCLIST+23
WHO	SETCOM~
>> X	SFILE+43*

Customize PDF page

Package: Consult Request Tracking