©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
GMRCSTLM ;SLC/DCM,dee,MA - List Manager Format Routine - Get Active Consults by service - pending,active,scheduled,incomplete,etc. ;25-Jul-2012 09:30;DU
Source file <GMRCSTLM.m>
| Package | Total | Call Graph |
|---|---|---|
| Consult Request Tracking | 8 | SERV1^GMRCASV $$CWIDTH^GMRCIR $$CWIDTH^GMRCPC $$TESTPT^GMRCPC1 ^GMRCSPD LISTTOT^GMRCSTL1 ONESTAT^GMRCSTL2 LISTDATE^GMRCSTU1 |
| VA Fileman | 3 | WAIT^DICD $$GET1^DIQ ^DIR |
| Registration | 1 | CHGCAP^VALM |
| Package | Total | Caller Graph |
|---|---|---|
| Consult Request Tracking | 2 | GMRCIR GMRCPC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENORSTR | ;Common part
|
|
| STAT | ||
| EN | ;Ask for new service and date range
|
|
| GROUPER | ||
| ENOR(RETURN,GMRCSVC,GMRCDT1,GMRCDT2,GMRCSTAT,GMRCCTRL,GMRCARRN,GMRTST) | ;Entry point for GUI interface.
|
|
| SVC | ;Loop on Service
|
|
| CAPTION | ;Set the List Mangager Caption Line
; Does GMRCCTRL contain 10 i.e. display line numbers ; or 20 i.e. display consult number |
|
| EXIT | ||
| ENORLM(GMRCARRN) | ;Entry point for List Manager interface.
; Input -- GMRCARRN List Template Array Name ; "CP": pending; "IFC": inter-facility ; Output - None |
|
| PRINTST |
| Name | Field # of Occurrence |
|---|---|
| WAIT^DICD | ENORLM+4 |
| $$GET1^DIQ | ENORSTR+30 |
| ^DIR | EN+8 |
| SERV1^GMRCASV | EN+11, ENOR+34 |
| $$CWIDTH^GMRCIR | CAPTION+24 |
| $$CWIDTH^GMRCPC | CAPTION+24 |
| $$TESTPT^GMRCPC1 | EN+19 |
| ^GMRCSPD | EN+15 |
| LISTTOT^GMRCSTL1 | GROUPER+3, PRINTST+2, PRINTST+11, PRINTST+19 |
| ONESTAT^GMRCSTL2 | STAT+1 |
| LISTDATE^GMRCSTU1 | EN+17, ENOR+38 |
| CHGCAP^VALM | CAPTION+7, CAPTION+9, CAPTION+13, CAPTION+15, CAPTION+18, CAPTION+20, CAPTION+22 |
| RPC Name | Call Tags |
|---|---|
| GMRCSTLM SERVICE AND STATUS | ENOR |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123.5 - [#123.5] | ENOR+31, GROUPER+3, GROUPER+12, PRINTST+2, PRINTST+8, PRINTST+11, PRINTST+19, PRINTST+27, PRINTST+28 |
| ^TMP("GMRCR" | ENOR+28!, ENORSTR+9!, ENORSTR+22*, ENORSTR+24*, ENORSTR+27*, ENORSTR+30*, ENORSTR+32*, ENORSTR+35*, ENORSTR+37*, GROUPER+9* , GROUPER+13*, PRINTST+5*, PRINTST+9*, PRINTST+23*, PRINTST+24*, PRINTST+25*, PRINTST+28*, PRINTST+30 |
| ^TMP("GMRCRINDEX" | ENORSTR+9! |
| ^TMP("GMRCSLIST" | EN+12, CAPTION+26, SVC+1, SVC+2, SVC+3, SVC+4, GROUPER+6 |
| ^TMP("GMRCT" | ENORSTR+9!, PRINTST+14*, PRINTST+26 |
| ^TMP("GMRCTOT" | ENORSTR+9!, SVC+5*, SVC+6*, SVC+7*, SVC+8*, STAT+5*, STAT+8*, STAT+11, STAT+12, STAT+13* , STAT+15*, PRINTST+2, PRINTST+3, PRINTST+12 |
| ^TMP("GMRCTOTX" | ENORSTR+10!, STAT+4, STAT+6*, STAT+7, STAT+9* |
| Name | Line Occurrences |
|---|---|
| ENORSTR | ENOR+39 |
| EXIT | EN+16, EN+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | ENORSTR+5~, ENORSTR+12*, PRINTST+13*, PRINTST+21 |
| CTRLTEMP | ENORSTR+3~, ENORSTR+20*, ENORSTR+22, ENORSTR+24, ENORSTR+27, ENORSTR+30, ENORSTR+32, ENORSTR+35, GROUPER+9, GROUPER+13 , PRINTST+5, PRINTST+9, PRINTST+23, PRINTST+24, PRINTST+25, PRINTST+28 |
| DIR | EN+2~ |
| DIR("??" | EN+6* |
| DIR("A" | EN+7* |
| DIR(0 | EN+6* |
| DIROUT | EN+2~ |
| DTOUT | EN+2~ |
| DUOUT | EN+2~ |
| GMRCARRN | ENOR~, ENOR+28, ENORLM~, ENORSTR+6*, ENORSTR+9, ENORSTR+21, ENORSTR+22, ENORSTR+24, ENORSTR+27, ENORSTR+28 , ENORSTR+30, ENORSTR+32, ENORSTR+35, ENORSTR+37, ENORSTR+42, ENORSTR+43, CAPTION+21, CAPTION+24, SVC+9, GROUPER+3 , GROUPER+9, GROUPER+13, STAT+1, STAT+11, STAT+19, PRINTST+2, PRINTST+5, PRINTST+9, PRINTST+11, PRINTST+19 , PRINTST+23, PRINTST+24, PRINTST+25, PRINTST+28, PRINTST+30 |
| GMRCCNSLT | ENORSTR+10! |
| GMRCCT | ENOR+27~, ENORSTR+13*, ENORSTR+18*, ENORSTR+22, ENORSTR+24, ENORSTR+25*, ENORSTR+27, ENORSTR+29*, ENORSTR+30, ENORSTR+31* , ENORSTR+32, ENORSTR+34*, ENORSTR+35, ENORSTR+36*, ENORSTR+37, GROUPER+3, GROUPER+8*, GROUPER+9, GROUPER+10*, GROUPER+13 , PRINTST+2, PRINTST+4*, PRINTST+5, PRINTST+6*, PRINTST+9, PRINTST+11, PRINTST+19, PRINTST+22*, PRINTST+23*, PRINTST+24* , PRINTST+25*, PRINTST+28* |
| GMRCCTRL | ENOR~, ENORSTR+19*, ENORSTR+20, ENORSTR+33, CAPTION+4, CAPTION+5, CAPTION+7, CAPTION+13, CAPTION+18, CAPTION+24 , GROUPER+3, PRINTST+2, PRINTST+11, PRINTST+19 |
| GMRCD | ENORSTR+2~ |
| GMRCDA | ENORSTR+1~ |
| GMRCDG | EN+10*, ENOR+27~, ENOR+33* |
| GMRCDLA | ENORSTR+4~ |
| GMRCDT | ENORSTR+2~ |
| GMRCDT1 | EN+17, ENOR~, ENOR+36*, ENOR+37, ENOR+38, ENORSTR+40* |
| GMRCDT2 | EN+17, ENOR~, ENOR+37*, ENOR+38, ENORSTR+40*, ENORSTR+41* |
| GMRCEDT1 | EN+17, ENOR+27~, ENOR+38, ENORSTR+26 |
| GMRCEDT2 | EN+17, ENOR+27~, ENOR+38, ENORSTR+26 |
| GMRCGRP | ENOR+27~ |
| GMRCHEAD | ENOR+27~, CAPTION+26*, PRINTST+1 |
| GMRCIDD | ENORSTR+5~ |
| GMRCIRF | ENORSTR+5~ |
| GMRCIRFN | ENORSTR+5~, STAT+11*, STAT+12, STAT+13, STAT+14, STAT+15, STAT+16, STAT+17, STAT+18 |
| >> GMRCIS | ENORSTR+22, ENORSTR+37, CAPTION+22 |
| GMRCLINE | ENORSTR+3~, ENORSTR+15* |
| GMRCLOC | ENORSTR+4~ |
| GMRCPT | ENORSTR+3~ |
| GMRCPTN | ENORSTR+4~ |
| GMRCPTSN | ENORSTR+4~ |
| GMRCQUT | EN+1!, EN+16, EN+20 |
| GMRCRDT | ENORSTR+5~ |
| >> GMRCREMP | ENORSTR+28, ENORSTR+32 |
| >> GMRCRF | ENORSTR+28, ENORSTR+30 |
| GMRCST | ENORSTR+5~ |
| GMRCST(1 | SVC+10*, STAT+16, STAT+17, STAT+18, STAT+20, STAT+21 |
| GMRCST(2 | SVC+11*, STAT+14*, STAT+17*, STAT+18*, STAT+20*, STAT+21* |
| GMRCSTAT | ENOR~, ENORSTR+42*, ENORSTR+43*, STAT+1 |
| GMRCSVC | ENOR~, ENOR+30*, ENOR+31, ENOR+33, ENORSTR+39*, SVC+2*, SVC+5, SVC+6, SVC+7, SVC+8 , SVC+10, SVC+11, GROUPER+16, STAT+4, STAT+5, STAT+6, STAT+7, STAT+8, STAT+9, STAT+11 , STAT+15, STAT+16, STAT+17, STAT+18, STAT+20, STAT+21, PRINTST+2, PRINTST+3, PRINTST+11, PRINTST+12 , PRINTST+14 |
| GMRCSVCG | ENORSTR+2~, SVC+4*, GROUPER+1, GROUPER+12, PRINTST+2, PRINTST+8, PRINTST+11 |
| GMRCSVCP | ENORSTR+4~, SVC+3*, GROUPER+11, PRINTST+2, PRINTST+7, PRINTST+11 |
| >> GMRCSVNM | EN+10*, PRINTST+1*, PRINTST+3, PRINTST+12 |
| GMRCXDT | ENORSTR+4~ |
| GMRTST | EN+19*, ENOR~, STAT+1 |
| GROUPER | ENORSTR+1~, ENORSTR+16*, GROUPER+1, GROUPER+3, GROUPER+5*, GROUPER+15*, GROUPER+16, STAT+2, PRINTST+18*, PRINTST+19 |
| GROUPER( | GROUPER+1, GROUPER+3, GROUPER+16*, STAT+4, STAT+5, STAT+6, STAT+7, STAT+8, STAT+9, STAT+12 , STAT+13, STAT+14, STAT+15, STAT+17, STAT+18, STAT+20, STAT+21, PRINTST+19 |
| GROUPER(0 | ENORSTR+17* |
| GRP | ENORSTR+5~, STAT+2*, STAT+4, STAT+5, STAT+6, STAT+7, STAT+8, STAT+9, STAT+12, STAT+13 , STAT+14, STAT+15, STAT+17, STAT+18, STAT+20, STAT+21 |
| IDX | ENORSTR+5~, PRINTST+26*, PRINTST+27, PRINTST+28 |
| INDEX | ENORSTR+1~, CAPTION+27*, SVC+1*, SVC+2, SVC+3, SVC+4, GROUPER+6 |
| >> IOBM | PRINTST+31 |
| >> IOTM | PRINTST+31 |
| LINETEMP | ENORSTR+3~ |
| LOOP | ENORSTR+1~, STAT+1* |
| NUMCLIN | ENORSTR+1~, ENORSTR+14*, PRINTST+10* |
| RETURN | ENOR~, ENOR+29* |
| STATUS | ENORSTR+1~, STAT+1* |
| STS | ENORSTR+2~ |
| TEMP | ENORSTR+2~, ENORSTR+26*, ENORSTR+27, GROUPER+11*, GROUPER+12*, GROUPER+13, PRINTST+7*, PRINTST+8*, PRINTST+9 |
| U | EN+10, PRINTST+27, PRINTST+28 |
| >> VALM("RM" | CAPTION+24* |
| >> VALMAR | CAPTION+3 |
| VALMBCK | EN+9*, EN+12*, EN+16*, EN+20*, ENOR+27~, PRINTST+31* |
| VALMCNT | ENOR+27~, PRINTST+30* |
| Y | EN+5~, EN+9, EN+10 |