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* |