GMRCSTLM ;SLC/DCM,dee,MA - List Manager Format Routine - Get Active Consults by service - pending,active,scheduled,incomplete,etc. ;11/21/02 05:29
Source file <GMRCSTLM.m>
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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;Ask for new service and date range
|
|
ENOR(RETURN,GMRCSVC,GMRCDT1,GMRCDT2,GMRCSTAT,GMRCCTRL,GMRCARRN) | ;Entry point for GUI interface.
|
|
ENORLM(GMRCARRN) | ;Entry point for List Manager interface.
; Input -- GMRCARRN List Template Array Name ; "CP": pending; "IFC": inter-facility ; Output - None |
|
ENORSTR | ;Common part
|
|
CAPTION | ;Set the List Mangager Caption Line
; Does GMRCCTRL contain 10 i.e. display line numbers ; or 20 i.e. display consult number |
|
SVC | ;Loop on Service
|
|
GROUPER | ||
STAT | ||
PRINTST | ||
EXIT |
Name | Field # of Occurrence |
---|---|
WAIT^DICD | ENORLM+4 |
$$GET1^DIQ | ENORSTR+30 |
^DIR | EN+8 |
SERV1^GMRCASV | EN+11, ENOR+33 |
$$CWIDTH^GMRCIR | CAPTION+24 |
$$CWIDTH^GMRCPC | CAPTION+24 |
^GMRCSPD | EN+15 |
LISTTOT^GMRCSTL1 | GROUPER+3, PRINTST+2, PRINTST+11, PRINTST+19 |
ONESTAT^GMRCSTL2 | STAT+1 |
LISTDATE^GMRCSTU1 | EN+17, ENOR+37 |
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+30, GROUPER+3, GROUPER+12, PRINTST+2, PRINTST+8, PRINTST+11, PRINTST+19, PRINTST+27, PRINTST+28 |
^TMP("GMRCR" | ENOR+27!, 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* |
>> | 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+27, 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+26~, 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+26~, ENOR+32* |
GMRCDLA | ENORSTR+4~ |
GMRCDT | ENORSTR+2~ |
GMRCDT1 | EN+17, ENOR~, ENOR+35*, ENOR+36, ENOR+37, ENORSTR+40* |
GMRCDT2 | EN+17, ENOR~, ENOR+36*, ENOR+37, ENORSTR+40*, ENORSTR+41* |
GMRCEDT1 | EN+17, ENOR+26~, ENOR+37, ENORSTR+26 |
GMRCEDT2 | EN+17, ENOR+26~, ENOR+37, ENORSTR+26 |
GMRCGRP | ENOR+26~ |
GMRCHEAD | ENOR+26~, 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 |
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+29*, ENOR+30, ENOR+32, 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~ |
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+28* |
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*, ENOR+26~, PRINTST+31* |
VALMCNT | ENOR+26~, PRINTST+30* |
Y | EN+5~, EN+9, EN+10 |