©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMRCTIUL ;SLC/DCM,DLT - Get list of existing results for consults ;5/01/98 10:09
Source file <GMRCTIUL.m>
| Package | Total | Call Graph |
|---|---|---|
| Consult Request Tracking | 1 | EXAC^GMRCADC |
| Kernel | 1 | $$FMTE^XLFDT |
| Text Integration Utility | 1 | $$RESOLVE^TIUSRVLO |
| VA Fileman | 1 | ^DIR |
| Package | Total | Caller Graph |
|---|---|---|
| Consult Request Tracking | 3 | GMRCTIU GMRCTIU1 GMRCTIUE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UPDCNT | ;Update count of existing results for the consult and build array
|
|
| GETLIST(GMRCO,GETWHAT,TYPE,GMRCNT) | ;Get the count and list of results
|
|
| LN1 | ;Used by filemanager print template to format line
|
|
| SELR(GMRCRCT) | ;Select a note from the list
|
|
| LN2 | ;Used by Fileman to write second line
|
|
| SHOWTIU | ;Display the current TIU results available
|
|
| TIUTMP(GETWHAT) | ;build ^TMP array for results based on TIU when type=1
|
|
| PROCTMP | ;build ^TMP array for procedure results when type note=1
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123 - [#123] | GETLIST+22, GETLIST+23, GETLIST+27, GETLIST+28, LN1+3 |
| ^TMP("GMRC50" | GETLIST+18!, TIUTMP+4*, TIUTMP+7 |
| ^TMP("GMRC50R" | GETLIST+18!, TIUTMP+13*, SHOWTIU+5, SHOWTIU+6, SHOWTIU+7, SELR+2 |
| ^VA(200 - [#200] | TIUTMP+10, LN2+2 |
| Name | Line Occurrences |
|---|---|
| TIUTMP | UPDCNT+5 |
| UPDCNT | GETLIST+24, GETLIST+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COUNT | GETLIST+17~, GETLIST+19*, GETLIST+27, GETLIST+31, UPDCNT+3*, TIUTMP+2*, TIUTMP+4, TIUTMP+7, TIUTMP+12, TIUTMP+13 , LN1+1* |
| >> D0 | LN1+3 |
| >> D1 | LN1+3 |
| DIR | SELR+4~ |
| DIR("A" | SELR+5* |
| DIR(0 | SELR+6* |
| DIROUT | SELR+4~ |
| DIRUT | SELR+4~ |
| DTOUT | SELR+4~ |
| DUOUT | SELR+4~ |
| GETWHAT | GETLIST~, UPDCNT+5, TIUTMP~, TIUTMP+5 |
| GMRCAUTH | TIUTMP+6~, TIUTMP+10*, TIUTMP+12, LN2+1~, LN2+2*, LN2+4 |
| GMRCDOCT | TIUTMP+6~, TIUTMP+8*, TIUTMP+12, LN1+5~, LN1+7*, LN1+9 |
| GMRCEDT | TIUTMP+6~, TIUTMP+9*, TIUTMP+12, LN1+5~, LN1+8*, LN1+9 |
| GMRCMSG | SELR+2*! |
| GMRCNT | GETLIST~, GETLIST+18! |
| GMRCNT( | UPDCNT+2*, UPDCNT+4*, TIUTMP+3*, LN1+2* |
| GMRCNT(0 | GETLIST+19*, GETLIST+31* |
| GMRCO | GETLIST~, GETLIST+22, GETLIST+23, GETLIST+27, GETLIST+28 |
| GMRCQUT | GETLIST+22!, GETLIST+23* |
| GMRCRCT | SHOWTIU+1~, SHOWTIU+4*, SHOWTIU+5*, SHOWTIU+6, SHOWTIU+7, SELR~ |
| GMRCRCT("TIU(8925," | SELR+2, SELR+6 |
| GMRCRDAT | TIUTMP+6~, TIUTMP+7*, TIUTMP+8, TIUTMP+9, TIUTMP+10, TIUTMP+11, TIUTMP+12, LN1+6*, LN1+7, LN1+8 , LN1+9, LN2+2, LN2+3, LN2+4 |
| GMRCRIEN | GETLIST+17~, GETLIST+19*, GETLIST+22*, GETLIST+23 |
| GMRCRVP | GETLIST+23*, GETLIST+28*, UPDCNT+1, TIUTMP+1, TIUTMP+4, TIUTMP+7, TIUTMP+12, TIUTMP+13, SHOWTIU+1~, SHOWTIU+6* , SHOWTIU+7, LN1+3*, LN1+4, LN1+6, LN1+9 |
| GMRCSTS | TIUTMP+6~, TIUTMP+11*, TIUTMP+12, LN2+1~, LN2+3*, LN2+4 |
| GMRCTX | TIUTMP+6~, TIUTMP+12*, TIUTMP+13, LN1+9*, LN1+10, LN2+4*, LN2+5 |
| >> GMRCVF | UPDCNT+1*, UPDCNT+2, UPDCNT+4, TIUTMP+3, LN1+2* |
| TAB | GETLIST+17~, GETLIST+20*, TIUTMP+12, LN1+2*, LN1+9, LN2+4 |
| TYPE | GETLIST~, UPDCNT+5, PROCTMP+1 |
| U | TIUTMP+9, TIUTMP+10, LN1+9, LN2+2 |
| Y | SELR+4~, SELR+8 |