Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMRCMED

Package: Consult Request Tracking

Routine: GMRCMED


Information

GMRCMED ;SLC/JFR - MEDICINE INTERFACE ROUTINES; 2/20/01 13:32

Source Information

Source file <GMRCMED.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Consult Request Tracking 5 EXAC^GMRCADC  EN^GMRCHL7  RESULTS^GMRCMED  (AUDIT,AUDIT0,MSG,STATUS)^GMRCP  ADDRSLT^GMRCTIUA  
List Manager 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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Consult Request Tracking 8 GMRCACT ASSOCIATE RESULTS  GMRCACT DISPLAY MED RESULT  GMRCACT SELECT MED RESULT  GMRCACTM MED RESULTING  GMRCAR  GMRCDIS  GMRCGUIU  GMRCMED  
Clinical Procedures 1 MDHL7XXX  
Kernel 1 ^ORD(101  
Order Entry Results Reporting 1 ORQQCN3  

Entry Points

Name Comments DBIA/ICR reference
SET(NUM) ; set selected med result into GMRCMEDR
RESETIT(NUM) ;return prev. selected number to normal video
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
PHDR ;set protocols into actions
SELECT(CNT) ;grab an item from list
DISPRES(ITEM) ;
AR(ITEM) ;associate specific result and complete consult
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
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

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
  • DIR
  • Line Location:
    • SELECT+3
    • AR+16
Routine Call
  • VALM
  • Line Location:
    • DISPRES+23
Routine Call
  • VALM
  • Line Location:
    • PHDR+3

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All