HMPLIST ;HOIFO/DP,ASMR/RRB - List Manager;02 Nov 2012
Source file <HMPLIST.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(TARGET,NAME,FORMAT,PARAMS) | ; OlD sKOoL entry point
|
|
| RPC(RESULT,NAME,FORMAT,PARAMS) | ; Accessed via HMP LIST Remote Procedure
|
|
| VALUE(NAME,ID) | ; Return the item from a list by ID
|
|
| EDIT | ; Edit a list definition
|
|
| DISPLAY | ; Display a list definition
|
|
| DEFAULT | ; Just return as is, a simple array
|
|
| UNKNOWN | ; You've got no idea, and neither do I
|
|
| JSON | ; Convert @TARGET@(1..n) to JSON
|
|
| XML | ; Convert @TARGET@(1..n) to XML
|
|
| XMLSAFE(X) | ; Transform X into XML safe data
; Strip off the spaces and make life easier |
|
| JSONSAFE(X) | ; Transform X into JSON safe data
; Strip the spaces |
|
| TRNSLT(X,X1,X2) | ; Translate every Y to Z in X
|
|
| LIST(NAME) | ; Return List by name
|
|
| ALL(RETURN) | ; Return All lists in RETURN()
|
|
| COLS(LIST) | ; Return the col names (ID^Name) + any custom col specs
|
|
| CODE(LIST) | ; Return Generation Code for a list
|
|
| SET(DD,FLD) | ; Build a list from a Set Of Codes DD and Field number combination
|
|
| REBUILD(NAME) | ;
|
|
| DQ | ; Called via Taskman to build any list that has expired
|
|
| ADD(X) | ; Adds an item to the list automatically
|
|
| WARDS | ; Get list of wards, clinics and non-stops
|
|
| CLINICS | ; Get Active Clinics
|
|
| LOC(TYPES) | ; Build list of locations by type
|
|
| INPT | ; Rebuild the inpatient list
|
|
| ERR | ; This is the application specific error trap for the DQ loop
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | DQ+5, LOC+2 |
| HOME^%ZIS | EDIT+2 |
| ^%ZTER | ERR+1 |
| UNWIND^%ZTER | ERR+2 |
| ^DDS | EDIT+4 |
| ^DIC | DISPLAY+2, REBUILD+5 |
| $$FIND1^DIC | LIST+1 |
| LIST^DIC | ALL+2, INPT+1 |
| $$GET1^DID | SET+2, SET+3 |
| FILE^DIE | REBUILD+24 |
| CLEAN^DILF | INPT+3 |
| EN1^DIP | DISPLAY+3 |
| $$GET1^DIQ | EN+8, EN+9, DQ+10 |
| $$ADD^HMPLIST | LOC+6 |
| $$FMADD^XLFDT | DQ+11, DQ+13, DQ+16 |
| $$FMTH^XLFDT | DQ+18 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | LIST^DIC |
| ^HMPD(800000.2 - [#800000.2] | FIND1^DIC, GET1^DIQ, LIST^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HMPD(800000.2 - [#800000.2] | VALUE+3, VALUE+4, LIST+2, COLS+3, CODE+1, REBUILD+8, REBUILD+11, DQ+4, DQ+6, DQ+7 , DQ+9, DQ+13, DQ+14, DQ+16 |
| ^SC - [#44] | LOC+3, LOC+4, LOC+6 |
| ^TMP("DILIST" | ALL+3, ALL+5!, INPT+2 |
| ^TMP($J | RPC+1, REBUILD+18 |
| Name | Field # of Occurrence |
|---|---|
| ^( | VALUE+3, COLS+3, LOC+3, INPT+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | DQ+5, LOC+2 |
| ALL | REBUILD+1~ |
| BY | DISPLAY+1~, DISPLAY+3* |
| CODE | REBUILD+1~, REBUILD+16*, REBUILD+21 |
| DA | EDIT+1~ |
| DD | SET~, SET+2, SET+3 |
| DDSFILE | EDIT+1~, EDIT+3* |
| DIC | DISPLAY+1~, DISPLAY+2*, REBUILD+4* |
| DIC("A" | DISPLAY+2*, REBUILD+4* |
| DIC("S" | REBUILD+4* |
| DIC(0 | DISPLAY+2*, REBUILD+4* |
| DR | EDIT+1~, EDIT+3* |
| FDA | REBUILD+1~, REBUILD+19*, REBUILD+22, REBUILD+23 |
| FLD | SET~, SET+2, SET+3 |
| FLDS | DISPLAY+1~, DISPLAY+3* |
| FORMAT | EN~, EN+12*, EN+13, RPC~, RPC+2, RPC+3 |
| FR | DISPLAY+1~, DISPLAY+3* |
| HMP | DISPLAY+1~ |
| HMPCOLD | XML+1~ |
| HMPCOLS | JSON+1~, JSON+2*, JSON+6, XML+2*, XML+5 |
| HMPDT | LOC+1~, LOC+4*, LOC+5 |
| HMPFDA | REBUILD+1~ |
| HMPFDA( | REBUILD+19 |
| >> HMPLAST | DQ+10*, DQ+11 |
| HMPLIST | EN+2~, EN+6*, EN+7, EN+8, EN+9, EN+10, VALUE+1~, VALUE+2*, VALUE+3, VALUE+4 , DQ+1~, DQ+6*, DQ+7, DQ+9, DQ+10, DQ+13, DQ+14 |
| HMPMIN | DQ+1~, DQ+9*, DQ+11, DQ+13 |
| HMPNEXT | DQ+2!, DQ+11*, DQ+12, DQ+16*, DQ+18 |
| HMPNOW | DQ+1~, DQ+5*, DQ+12, DQ+13, DQ+16, LOC+1~, LOC+2*, LOC+5 |
| HMPROOT | EN+2~ |
| HMPX | JSON+1~, JSON+2*, JSON+3, JSON+5*, JSON+6, XML+1~, XML+4*, XML+5, XML+8*, XML+9 , REBUILD+1~, REBUILD+8*, REBUILD+11* |
| HMPXECUTE | EN+2~, EN+9* |
| HMPY | JSON+1~, JSON+5*, JSON+6*, JSON+7*, JSON+8, JSON+9, XML+1~, XML+4*, XML+5*, XML+6* , XML+7 |
| ID | VALUE~, VALUE+3 |
| IOF | EDIT+2 |
| LIST | COLS~, COLS+3, CODE~, CODE+1, REBUILD+1~, REBUILD+13*, REBUILD+15, REBUILD+16, REBUILD+19 |
| NAME | EN~, EN+3, EN+6, EN+10, RPC~, RPC+2, RPC+3, VALUE~, VALUE+2, LIST~ , LIST+1, REBUILD~, REBUILD+3, REBUILD+7, REBUILD+8, REBUILD+10, REBUILD+13 |
| PARAMS | EN~, RPC~, RPC+2 |
| RESULT | RPC~, RPC+1*, RPC+2, RPC+3, COLS+1~, COLS+2*, COLS+4*, COLS+5 |
| RETURN | ALL~, ALL+1, ALL+3, ALL+4 |
| TARGET | EN~, EN+1, EN+4, EN+8, EN+10, JSON+2, JSON+3, JSON+4, JSON+5, JSON+8 , JSON+9, JSON+10, XML+2, XML+3, XML+4, XML+7, XML+8, XML+9, XML+10, SET+1 , SET+4, REBUILD+18*, REBUILD+20, REBUILD+23, ADD+1, ADD+2 |
| TO | DISPLAY+1~, DISPLAY+3* |
| TYPES | LOC~, LOC+3 |
| U | EN+7, EN+10, VALUE+3, JSON+2, JSON+3, JSON+6, XML+2, XML+5, XML+9, LIST+2 , COLS+4, REBUILD+8, REBUILD+11, REBUILD+15, DQ+6, DQ+7, DQ+9, DQ+13, DQ+14, LOC+3 , LOC+4, LOC+5, LOC+6 |
| X | EN+8*, VALUE+3*, VALUE+4, JSON+4*, JSON+5, JSON+8, JSON+9, XML+3*, XML+4, XML+7 , XMLSAFE~, XMLSAFE+2*, XMLSAFE+3*, XMLSAFE+4*, XMLSAFE+5*, XMLSAFE+6*, XMLSAFE+7*, XMLSAFE+8*, XMLSAFE+9*, XMLSAFE+10 , JSONSAFE~, JSONSAFE+2*, JSONSAFE+3*, JSONSAFE+4*, JSONSAFE+5, TRNSLT~, TRNSLT+2, TRNSLT+3, TRNSLT+4*, TRNSLT+5* , LIST+1*, LIST+2, ALL+3*, COLS+1~, COLS+3*, SET+3*, SET+4, ADD~, ADD+1, LOC+3* , LOC+4, LOC+6, INPT+2* |
| X1 | TRNSLT~, TRNSLT+2, TRNSLT+4 |
| X2 | TRNSLT~, TRNSLT+4 |
| Y | EN+6*, DISPLAY+2, DISPLAY+3, JSON+6*, XML+5*, TRNSLT+1~, TRNSLT+3*, TRNSLT+4*, TRNSLT+5*, TRNSLT+6 , COLS+1~, COLS+3*, COLS+4, SET+4*, REBUILD+5, LOC+6*, INPT+2* |
| Y(0 | REBUILD+5 |
| ZTREQ | DQ+17!, DQ+18* |
