GMRCART ;SLC/DCM,DLT,JFR - Result display logic ;12/17/01 22:39
Source file <GMRCART.m>
Package | Total | Call Graph |
---|---|---|
Consult Request Tracking | 5 | EXAC^GMRCADC ($$RESOLUA,$$RESOLUS)^GMRCAU $$CNVTD^GMRCIEVT $$CENTER^GMRCP5D PRINT^GMRCTIUP |
Kernel | 4 | (RMDEV,SAVDEV,USE)^%ZISUTL $$FMTE^XLFDT ($$CJ,$$REPEAT)^XLFSTR ($$STA,F4)^XUAF4 |
List Manager | 3 | EN^VALM FULL^VALM1 KILL^VALM10 |
Master Patient Index VistA | 1 | $$GETICN^MPIF001 |
RPC Broker | 1 | DIRECT^XWB2HL7 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Consult Request Tracking | 4 | GMRCA1 GMRCGUIA GMRCSLM2 GMRCTIUP |
Name | Comments | DBIA/ICR reference |
---|---|---|
RT(GMRCO) | ;Result Display logic - called from GMRCA1
|
|
GETRSLT(TMPGLOB,GMRCDET) | ;load the results into global defined in TMPGLOB
|
|
GETMCAR | ;load the medicine results into TMPGLOB
|
|
GETCP | ; Load up any Clin. Proc. results
|
|
GETRES | ;load the TIU notes into TMPGLOB
|
|
GETCOM | ;Get the comments for resolution actions
|
|
SAVEHDR | ;Save the action header info to print later if there are comments
|
|
GETHDR | ;Print the comment header if the action had a comment
|
|
GETREMOT(GMRCDA,GMRCAR,GMRCNT) | ;retrieve remote results and load up in display
; Input: ; GMRCDA = consult ien from file 123 ; GMRCAR = array to return results in (e.g. $NA(^TMP("GMRCAR",$J)) ) ; GMRCNT = number within GMRCAR to start placing results (pass by ref) |
|
END | ;kill off variables and exit
|
Name | Field # of Occurrence |
---|---|
RMDEV^%ZISUTL | GETREMOT+40 |
SAVDEV^%ZISUTL | GETREMOT+37 |
USE^%ZISUTL | GETREMOT+39 |
EXAC^GMRCADC | RT+5 |
$$RESOLUA^GMRCAU | GETCOM+11 |
$$RESOLUS^GMRCAU | RT+5, GETCOM+2 |
$$CNVTD^GMRCIEVT | GETREMOT+25 |
$$CENTER^GMRCP5D | GETHDR+2 |
PRINT^GMRCTIUP | GETRSLT+13 |
$$GETICN^MPIF001 | GETREMOT+33 |
EN^VALM | RT+17 |
FULL^VALM1 | RT+8 |
KILL^VALM10 | RT+19 |
$$FMTE^XLFDT | SAVEHDR+4, GETREMOT+45 |
$$CJ^XLFSTR | GETREMOT+42, GETREMOT+43, GETREMOT+45 |
$$REPEAT^XLFSTR | GETREMOT+14, GETREMOT+15 |
$$STA^XUAF4 | GETREMOT+21 |
F4^XUAF4 | GETREMOT+22 |
DIRECT^XWB2HL7 | GETREMOT+38 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^GMR(123 - [#123] | RT+3, RT+4, GETRSLT+11, GETCOM+1, GETCOM+6, GETCOM+10, GETCOM+19, GETCOM+21, SAVEHDR+3, SAVEHDR+4 , GETREMOT+11, GETREMOT+18, GETREMOT+20, GETREMOT+32 |
^GMR(123.1 - [#123.1] | GETHDR+2 |
^TMP("GMRC" | END+3 |
^TMP("GMRCR" | RT+9!, GETRSLT+8!, GETMCAR+1, GETMCAR+3, GETMCAR+6, GETMCAR+8!, GETCP+1, GETCP+3, GETCP+6, GETCP+7 , GETCP+9!, GETRES+1, GETRES+4, GETRES+5, GETRES+7, GETRES+9, GETRES+10, GETRES+11, GETRES+12, GETRES+15 , GETRES+18! |
^VA(200 - [#200] | GETHDR+3, GETHDR+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | GETREMOT+30~, GETREMOT+32*, GETREMOT+33 |
DIROUT | END+1, END+2! |
DTOUT | END+1, END+2! |
DUOUT | END+2! |
FTR | GETREMOT+12~, GETREMOT+15*, GETREMOT+64 |
GMRCAHDR | GETCOM+14~, GETCOM+20, SAVEHDR+1*, GETHDR+5! |
GMRCAIEN | GETCOM+9~, GETCOM+10*, GETCOM+11, GETHDR+2 |
GMRCAR | GETREMOT~, GETREMOT+13, GETREMOT+16, GETREMOT+17, GETREMOT+42, GETREMOT+43, GETREMOT+45, GETREMOT+46, GETREMOT+51, GETREMOT+53 , GETREMOT+57, GETREMOT+59, GETREMOT+63, GETREMOT+64, GETREMOT+65 |
GMRCCT | RT+1~, RT+9*, GETRSLT+5~, GETRSLT+9*, GETRSLT+11*, GETRSLT+13, GETRSLT+14, GETRSLT+19, GETRSLT+20*, GETRSLT+21 , GETRSLT+22*, GETRSLT+25*, GETMCAR+4*, GETMCAR+5*, GETMCAR+6*, GETCP+4*, GETCP+5*, GETCP+7*, GETRES+6*, GETRES+7 , GETRES+8*, GETRES+9*, GETRES+10*, GETRES+11*, GETRES+13*, GETRES+14*, GETRES+15*, GETCOM+21*, GETHDR+1*, GETHDR+2* , GETHDR+3*, GETHDR+4* |
GMRCCTS | GETRSLT+5~, GETRSLT+14*, GETRSLT+19 |
GMRCDA | GETREMOT~, GETREMOT+11, GETREMOT+18, GETREMOT+20, GETREMOT+25, GETREMOT+32 |
GMRCDATA | GETREMOT+12~, GETREMOT+38, GETREMOT+41, GETREMOT+48, GETREMOT+54, GETREMOT+55, GETREMOT+56, GETREMOT+59, GETREMOT+60, GETREMOT+61! |
GMRCDATA( | GETREMOT+49, GETREMOT+50, GETREMOT+53 |
GMRCDET | GETRSLT~, GETRSLT+10*, GETRSLT+13, GETRSLT+24 |
GMRCDVL | RT+13*, RT+21!, GETRSLT+7*, GETRSLT+20, GETRES+7, GETRES+9 |
GMRCENBY | GETCOM+14~, SAVEHDR+3*, GETHDR+3 |
GMRCENDT | GETCOM+14~, SAVEHDR+4*, GETHDR+3 |
GMRCIO | GETREMOT+12~ |
GMRCLCT | RT+21! |
GMRCMSG | RT+1~, RT+5* |
GMRCNT | GETREMOT~, GETREMOT+13*, GETREMOT+16*, GETREMOT+17*, GETREMOT+42*, GETREMOT+43, GETREMOT+44*, GETREMOT+45*, GETREMOT+46*, GETREMOT+51 , GETREMOT+52*, GETREMOT+53*, GETREMOT+57, GETREMOT+58*, GETREMOT+59*, GETREMOT+63*, GETREMOT+64*, GETREMOT+65 |
GMRCO | RT~, RT+3, RT+4, GETRSLT+11, GETRSLT+13, GETCOM+1, GETCOM+6, GETCOM+10, GETCOM+19, GETCOM+21 , SAVEHDR+3, SAVEHDR+4 |
GMRCPRNM | RT+21! |
GMRCPROV | GETCOM+14~, SAVEHDR+3*, GETHDR+4 |
>> GMRCQIT | END+1* |
GMRCQT | GETREMOT+47~*, GETREMOT+49, GETREMOT+50*, GETREMOT+55, GETREMOT+56* |
>> GMRCQUT | RT+5* |
GMRCREM | GETREMOT+12~, GETREMOT+18*, GETREMOT+20 |
GMRCREM0 | GETREMOT+19~, GETREMOT+20*, GETREMOT+21, GETREMOT+27, GETREMOT+45 |
GMRCRES | GETREMOT+19~, GETREMOT+27*, GETREMOT+28*, GETREMOT+34*, GETREMOT+36, GETREMOT+38, GETREMOT+42 |
GMRCRPC | GETREMOT+19~, GETREMOT+28*, GETREMOT+36*, GETREMOT+38 |
GMRCRPT | RT+21! |
GMRCSITE | GETREMOT+19~, GETREMOT+22 |
GMRCSITE("NAME" | GETREMOT+43 |
GMRCSR | RT+1~, RT+3*, RT+5 |
GMRCSTA | GETREMOT+19~, GETREMOT+21*, GETREMOT+22, GETREMOT+25*, GETREMOT+31, GETREMOT+38 |
GMRCSTS | RT+1~, RT+4*, RT+5, GETCOM+1*, GETCOM+2 |
GMRCTMP | RT+1~, RT+12*, RT+15 |
GMRCTO | RT+21! |
GMRCTUFN | RT+1~, RT+3*, RT+5, RT+21! |
GMRCVAL | RT+11*, RT+18, RT+21! |
GMRCX | RT+21! |
HDR | GETREMOT+12~, GETREMOT+14*, GETREMOT+16 |
I | GETREMOT+49~*, GETREMOT+50, GETREMOT+53, GETREMOT+55~*, GETREMOT+56, GETREMOT+59 |
ICN | GETREMOT+30~, GETREMOT+33*, GETREMOT+34 |
>> IOBM | RT+8 |
>> IOSTBM | RT+8 |
>> IOTM | RT+8 |
>> LNCT | RT+18 |
MCFILE | RT+21! |
MCPROC | RT+21! |
ND | GETMCAR+2~, GETMCAR+3*, GETMCAR+6, GETCP+2~, GETCP+3*, GETCP+6, GETCP+7, GETRES+3~, GETRES+4*, GETRES+5 , GETRES+7, GETRES+9, GETRES+10, GETRES+11, GETRES+12, GETRES+15, GETCOM+5~, GETCOM+6* |
ND1 | GETMCAR+2~, GETMCAR+6*, GETCP+2~, GETCP+6*, GETCP+7, GETRES+3~, GETRES+11*, GETRES+12*, GETRES+15, GETCOM+5~ , GETCOM+6*, GETCOM+10, GETCOM+19, GETCOM+21, SAVEHDR+3, SAVEHDR+4 |
ND2 | GETRES+15*, GETCOM+5~, GETCOM+18*, GETCOM+19*, GETCOM+21 |
ORAGE | RT+20! |
ORDG | RT+20! |
ORDOB | RT+20! |
OREND | RT+20! |
ORFT | RT+20! |
ORHI | RT+20! |
ORIFN | RT+20! |
ORIO | RT+20! |
ORL | RT+20! |
ORNP | RT+20! |
ORPD | RT+20! |
ORPNM | RT+20! |
ORPV | RT+20! |
ORSEQ | RT+20! |
ORSEX | RT+20! |
ORWARD | RT+20! |
SF | GETRSLT+5~, GETRSLT+11*, GETRSLT+20 |
TAB | GETRSLT+5~, GETRSLT+6*, GETMCAR+5, GETCP+5, GETRES+14 |
TMPGLOB | GETRSLT~, GETRSLT+8, GETRSLT+11, GETRSLT+20, GETRSLT+21, GETRSLT+25*, GETMCAR+4, GETMCAR+5, GETMCAR+6, GETCP+4 , GETCP+5, GETCP+7, GETRES+6, GETRES+7, GETRES+9, GETRES+10, GETRES+11, GETRES+13, GETRES+14, GETRES+15 , GETCOM+21, GETHDR+1, GETHDR+2, GETHDR+3, GETHDR+4 |
U | GETREMOT+21, GETREMOT+27, GETREMOT+50, GETREMOT+56 |
>> VALMAR | RT+11, RT+18* |
>> VALMCNT | RT+18* |
>> XQORM("A" | RT+10* |
>> XQORM("HIJACK" | END+3* |