HMPROS8 ;SLC/AGP,ASMR/RRB - Get CPRS User Default Roster List ; 6/11/14 8:38pm
Source file <HMPROS8.m>
| Package | Total | Call Graph |
|---|---|---|
| Enterprise Health Management Platform | 3 | ($$PID,API)^HMPDJFS ENCODE^HMPJSON ($$JSONDT,$$SETUID)^HMPUTILS |
| Order Entry Results Reporting | 3 | ($$FDEFSRC,DEFLIST,DEFSORT)^ORQPTQ11 CLINPTS2^ORQPTQ2 BYWARD^ORWPT |
| Kernel | 2 | $$DOW^XLFDT $$UP^XLFSTR |
| Registration | 1 | (INP,KVA)^VADPT |
| Toolkit | 1 | $$GET^XPAR |
| 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 |
|---|---|---|
| BLDSORT(NODE,SRC,SORT,SEQ) | ; emulate TStringList Sort found in CPRS
; append separator to ensure string sort (rather than numeric) ; append SEQ to avoid dropping node where SORTKEY is duplicated ; SORT: A:Alphabetic;R:Room/Bed;P:Appointment Date;T:Terminal Digit;S:Source |
|
| CHKPAT(PATIENTS,SERVER) | ;
|
|
| GETDLIST(RESULT,SERVER) | ;
|
|
| GETDLSTX | ;
|
|
| SETAPPT(SOURCE,APPT,DFN,CNT) | ;
|
|
| STINP(DFN,CNT,ROOM) | ;
|
|
| STPTSRC(SOURCE,CNT) | ;
|
|
| LSTSRC(ADUZ) | ; Return type of list source
; T:TeamList, W:Ward List, P:Provider List, S:Specialty List, C:Clinic List, M:Combination |
|
| GETCLIST(RESULT,SERVER,ID,START,END) | ;
|
|
| GTSOURCE(TYPE,INT) | ;
|
|
| STGSRCE(SPEC,INT) | ;
|
|
| GETWLIST(RESULT,SERVER,ID) | ;
|
|
| SRTSRC(SORT,SRCTYPE,SRCNAME) | ; Set sort type, source type, source name
|
| Name | Field # of Occurrence |
|---|---|
| $$PID^HMPDJFS | GETDLIST+23, GETCLIST+15, GETWLIST+13 |
| API^HMPDJFS | CHKPAT+8 |
| ENCODE^HMPJSON | GETDLSTX+1, GETCLIST+21, GETWLIST+18 |
| $$JSONDT^HMPUTILS | SETAPPT+2 |
| $$SETUID^HMPUTILS | SETAPPT+5, STINP+4, STINP+8, GTSOURCE+6, STGSRCE+7 |
| $$FDEFSRC^ORQPTQ11 | GETDLIST+16 |
| DEFLIST^ORQPTQ11 | GETDLIST+9 |
| DEFSORT^ORQPTQ11 | GETDLIST+8, GETCLIST+3, GETWLIST+3 |
| CLINPTS2^ORQPTQ2 | GETCLIST+4 |
| BYWARD^ORWPT | GETWLIST+4 |
| INP^VADPT | STINP+3 |
| KVA^VADPT | STINP+3, STINP+5, STINP+11 |
| $$DOW^XLFDT | LSTSRC+11 |
| $$UP^XLFSTR | LSTSRC+11 |
| $$GET^XPAR | LSTSRC+5, LSTSRC+7, LSTSRC+8, LSTSRC+9, LSTSRC+10, LSTSRC+11 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(42 - [#42] | STINP+6, GTSOURCE+5, STGSRCE+6, GETWLIST+17 |
| ^DPT - [#2] | GETDLIST+21 |
| ^HMP(800000 - [#800000] | CHKPAT+5 |
| ^SC - [#44] | STINP+7, GETCLIST+20, GTSOURCE+8, STGSRCE+9 |
| ^TMP("HMPRESULT" | GETDLIST+11! |
| ^TMP("HMPSORT" | BLDSORT+15*, GETDLIST+11!, GETDLIST+17, GETDLSTX+3! |
| ^TMP("HMPTEMP" | GETDLIST+11!, GETDLIST+28*, GETDLIST+29*, GETDLIST+30*, GETDLSTX+1, GETDLSTX+4!, SETAPPT+2*, SETAPPT+5*, STINP+2*, STINP+4* , STINP+8*, STINP+9*, STINP+10*, STPTSRC+3*, STPTSRC+5*, STPTSRC+6*, STPTSRC+7*, GETCLIST+2!, GETCLIST+16*, GETCLIST+17* , GETCLIST+21, GETWLIST+2!, GETWLIST+14*, GETWLIST+18, SRTSRC+1*, SRTSRC+2*, SRTSRC+3* |
| ^TMP("OR" | GETDLIST+5!, GETDLIST+12, GETDLIST+13, GETDLIST+15! |
| ^VA(200 - [#200] | LSTSRC+4 |
| Name | Line Occurrences |
|---|---|
| $$GTSOURCE | GETDLIST+26, GETCLIST+5 |
| $$LSTSRC | GETDLIST+6 |
| $$STGSRCE | GETDLIST+10 |
| BLDSORT | GETDLIST+14 |
| CHKPAT | GETDLSTX+2 |
| SETAPPT | GETDLIST+31, GETCLIST+18 |
| SRTSRC | GETDLIST+16, GETCLIST+20, GETWLIST+17 |
| STINP | GETDLIST+33, GETWLIST+15 |
| STPTSRC | GETDLIST+35 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADUZ | LSTSRC~, LSTSRC+3*, LSTSRC+4, LSTSRC+5 |
| >> API | LSTSRC+11* |
| APPT | GETDLIST+1~, GETDLIST+25*, GETDLIST+31, SETAPPT~, SETAPPT+2, SETAPPT+4, GETCLIST+1~, GETCLIST+14*, GETCLIST+18 |
| ARGS | CHKPAT+1~, CHKPAT+8 |
| ARGS("command" | CHKPAT+2* |
| ARGS("localId" | CHKPAT+7* |
| ARGS("server" | CHKPAT+3* |
| ARRAY | GETDLIST+1~ |
| CNT | GETDLIST+1~, GETDLIST+12*, GETDLIST+13, GETDLIST+14, GETDLIST+17*, GETDLIST+20*, GETDLIST+28, GETDLIST+29, GETDLIST+30, GETDLIST+31 , GETDLIST+33, GETDLIST+35, SETAPPT~, SETAPPT+2, SETAPPT+5, STINP~, STINP+2, STINP+4, STINP+8, STINP+9 , STINP+10, STPTSRC~, STPTSRC+3, STPTSRC+5, STPTSRC+6, STPTSRC+7, GETCLIST+1~, GETCLIST+7*, GETCLIST+8, GETCLIST+10 , GETCLIST+11, GETCLIST+12*, GETCLIST+13*, GETCLIST+16, GETCLIST+17, GETCLIST+18, GETWLIST+1~, GETWLIST+5*, GETWLIST+6, GETWLIST+8 , GETWLIST+9, GETWLIST+10*, GETWLIST+11*, GETWLIST+14, GETWLIST+15 |
| DFN | GETDLIST+1~, GETDLIST+21*, GETDLIST+22, GETDLIST+23, GETDLIST+31, GETDLIST+33, SETAPPT~, SETAPPT+5, STINP~, STINP+4 , GETCLIST+1~, GETCLIST+14*, GETCLIST+15, GETCLIST+18, GETWLIST+1~, GETWLIST+12*, GETWLIST+13, GETWLIST+15 |
| DT | LSTSRC+11 |
| DUZ | GETDLIST+6, GETDLIST+16, LSTSRC+3 |
| END | GETCLIST~, GETCLIST+4 |
| ERROR | GETDLIST+1~, GETCLIST+1~, GETWLIST+1~ |
| FROM | LSTSRC+2~, LSTSRC+5*, LSTSRC+6, LSTSRC+7, LSTSRC+8, LSTSRC+9, LSTSRC+10, LSTSRC+11, LSTSRC+12 |
| GBL | GETDLIST+1~, GETDLIST+17*, GETDLIST+18*, GETDLIST+19 |
| GSOURCE | GETDLIST+1~, GETDLIST+10*, GETDLIST+26 |
| HMPARRAY | GETCLIST+1~, GETCLIST+4, GETWLIST+1~, GETWLIST+4 |
| HMPARRAY( | GETCLIST+7, GETCLIST+8, GETWLIST+5, GETWLIST+6 |
| HMPOUT | GETDLIST+2~, GETDLIST+9 |
| HMPSORT | GETDLIST+2~, GETDLIST+8, GETDLIST+14, GETDLIST+16, GETCLIST+1~, GETCLIST+3, GETCLIST+10, GETCLIST+20, GETWLIST+1~, GETWLIST+3 , GETWLIST+8, GETWLIST+17 |
| HMPSRC | GETDLIST+2~, GETDLIST+6*, GETDLIST+7*, GETDLIST+10, GETDLIST+14, GETDLIST+16, GETDLIST+25 |
| ID | GETCLIST~, GETCLIST+4, GETCLIST+5, GETCLIST+20, GETWLIST~, GETWLIST+4, GETWLIST+17 |
| IEN | LSTSRC+2~, LSTSRC+7*, LSTSRC+8*, LSTSRC+9*, LSTSRC+10*, LSTSRC+11* |
| INT | GTSOURCE~, GTSOURCE+5*, GTSOURCE+6, GTSOURCE+8, STGSRCE~, STGSRCE+6*, STGSRCE+7, STGSRCE+9 |
| ISOUT | GETDLIST+1~, GETDLIST+27* |
| ITR | GETCLIST+1~, GETCLIST+12*, GETCLIST+13, GETWLIST+1~, GETWLIST+10*, GETWLIST+11 |
| LISTIEN | GETDLIST+1~, GETDLIST+7*, GETDLIST+10 |
| LOC | SETAPPT+1~, SETAPPT+3*, SETAPPT+4, STINP+1~, STINP+6*, STINP+7, STINP+8 |
| LROOT | GETDLIST+1~, GETDLIST+17*, GETDLIST+18 |
| NAME | GETDLIST+1~ |
| NODE | BLDSORT~, BLDSORT+4, BLDSORT+6*, BLDSORT+7, BLDSORT+8, BLDSORT+10, BLDSORT+11, BLDSORT+12, BLDSORT+13, BLDSORT+15 , GETDLIST+1~, GETDLIST+13*, GETDLIST+14, GETDLIST+19*, GETDLIST+21, GETDLIST+24, GETDLIST+25, GETDLIST+28, STINP+1~, STINP+7* , STINP+9, STINP+10, GETCLIST+1~, GETCLIST+8*, GETCLIST+9, GETCLIST+10, GETCLIST+11, GETCLIST+13*, GETCLIST+14, GETCLIST+17 , GETWLIST+1~, GETWLIST+6*, GETWLIST+7, GETWLIST+8, GETWLIST+9, GETWLIST+11*, GETWLIST+12 |
| >> ORSRV | LSTSRC+11 |
| OUT | CHKPAT+1~, CHKPAT+8 |
| PAT | CHKPAT+1~, CHKPAT+4*, CHKPAT+5, CHKPAT+7 |
| PATIENTS | CHKPAT~, GETDLIST+1~, GETDLSTX+2, GETCLIST+1~, GETWLIST+1~ |
| PATIENTS( | CHKPAT+4, GETDLIST+22*, GETCLIST+15*, GETWLIST+13* |
| PATTYPE | GETDLIST+2~, GETDLIST+24*, GETDLIST+27, GETDLIST+30, GETDLIST+33 |
| PATUID | GETDLIST+2~ |
| PID | GETDLIST+2~, GETDLIST+23*, GETDLIST+29, GETCLIST+1~, GETCLIST+15*, GETCLIST+16, GETWLIST+1~, GETWLIST+13*, GETWLIST+14 |
| REC | GTSOURCE+1~, GTSOURCE+5*, STGSRCE+1~, STGSRCE+6* |
| RESULT | GETDLIST~, GETCLIST~, GTSOURCE+1~, GTSOURCE+7*, GTSOURCE+8*, GTSOURCE+9, STGSRCE+1~, STGSRCE+3*, STGSRCE+4, STGSRCE+5 , STGSRCE+8*, STGSRCE+9*, STGSRCE+10, GETWLIST~ |
| ROOM | GETDLIST+2~, GETDLIST+21*, GETDLIST+33, STINP~, STINP+2, GETWLIST+1~, GETWLIST+12*, GETWLIST+15 |
| ROOT | GETDLIST+2~, GETDLIST+17*, GETDLIST+18 |
| S | BLDSORT+5~, BLDSORT+6*, BLDSORT+7, BLDSORT+8, BLDSORT+10, BLDSORT+11, BLDSORT+12, BLDSORT+13, BLDSORT+14, GETCLIST+1~ , GETCLIST+6*, GETCLIST+10, GETCLIST+11 |
| SEQ | BLDSORT~, BLDSORT+7, BLDSORT+8, BLDSORT+10, BLDSORT+11, BLDSORT+12, BLDSORT+13, BLDSORT+14 |
| SERVER | CHKPAT~, CHKPAT+3, CHKPAT+5, GETDLIST~, GETDLSTX+2, GETCLIST~, GETWLIST~ |
| SORT | BLDSORT~, BLDSORT+8, BLDSORT+10, BLDSORT+11, BLDSORT+12, BLDSORT+13, BLDSORT+15, SRTSRC~, SRTSRC+3 |
| SORTKEY | BLDSORT+5~, BLDSORT+7*, BLDSORT+8*, BLDSORT+10*, BLDSORT+11*, BLDSORT+12*, BLDSORT+13*, BLDSORT+14*, BLDSORT+15 |
| SOURCE | GETDLIST+2~, GETDLIST+26*, GETDLIST+31, GETDLIST+35, SETAPPT~, SETAPPT+3, STPTSRC~, STPTSRC+2, STPTSRC+6, STPTSRC+7 , GETCLIST+1~, GETCLIST+5*, GETCLIST+18 |
| SOURCETYPE | GETDLIST+2~ |
| SPEC | GTSOURCE+1~, GTSOURCE+2*, GTSOURCE+3, GTSOURCE+4, GTSOURCE+6, STGSRCE~, STGSRCE+4, STGSRCE+5, STGSRCE+7 |
| SPECTYPE | GTSOURCE+1~, GTSOURCE+3*, GTSOURCE+4, GTSOURCE+5, GTSOURCE+7, STGSRCE+1~, STGSRCE+5*, STGSRCE+6, STGSRCE+8 |
| SRC | BLDSORT~, BLDSORT+8, BLDSORT+9, BLDSORT+13, BLDSORT+15 |
| SRCNAME | SRTSRC~, SRTSRC+2 |
| SRCTYPE | SRTSRC~, SRTSRC+1 |
| SRV | LSTSRC+2~, LSTSRC+4*, LSTSRC+5, LSTSRC+7, LSTSRC+8, LSTSRC+9, LSTSRC+10 |
| START | GETCLIST~, GETCLIST+4 |
| STATUS | CHKPAT+1~, CHKPAT+5*, CHKPAT+6 |
| TEMP | GETCLIST+1~, GETWLIST+1~ |
| TEMP( | GETCLIST+10*, GETCLIST+11*, GETCLIST+12, GETCLIST+13, GETWLIST+8*, GETWLIST+9*, GETWLIST+10, GETWLIST+11 |
| TYPE | GETDLIST+2~, GETDLIST+25*, GETDLIST+26, GTSOURCE~, GTSOURCE+2 |
| TYPEI | GETDLIST+2~, GETDLIST+25*, GETDLIST+26 |
| U | BLDSORT+4, BLDSORT+7, BLDSORT+8, BLDSORT+10, BLDSORT+11, BLDSORT+12, BLDSORT+13, BLDSORT+15, GETDLIST+7, GETDLIST+16 , GETDLIST+21, GETDLIST+24, GETDLIST+25, GETDLIST+28, SETAPPT+3, STINP+7, STINP+9, STINP+10, STPTSRC+2, STPTSRC+6 , STPTSRC+7, LSTSRC+4, LSTSRC+7, LSTSRC+8, LSTSRC+9, LSTSRC+10, LSTSRC+11, GETCLIST+9, GETCLIST+10, GETCLIST+11 , GETCLIST+14, GETCLIST+17, GETCLIST+20, GTSOURCE+4, GTSOURCE+7, GTSOURCE+8, STGSRCE+8, STGSRCE+9, GETWLIST+7, GETWLIST+8 , GETWLIST+9, GETWLIST+12, GETWLIST+17 |
| UID | SETAPPT+1~, SETAPPT+3*, STINP+1~, STPTSRC+1~, STPTSRC+2*, STPTSRC+3, STPTSRC+4, STPTSRC+5, GTSOURCE+1~, GTSOURCE+6* , GTSOURCE+7, GTSOURCE+8, STGSRCE+1~, STGSRCE+7*, STGSRCE+8, STGSRCE+9 |
| VAIN | STINP+1~, STPTSRC+1~ |
| VAIN(1 | STINP+3, STINP+4 |
| VAIN(4 | STINP+5 |
| WARD | GETWLIST+1~ |
| WIEN | STINP+1~, STINP+5*, STINP+6 |
| X | SETAPPT+1~, SETAPPT+4*, SETAPPT+5 |
| XOBDATA | GETDLIST+3~ |
| XOBDATA(0 | GETDLIST+3* |
| XWBOS | GETDLIST+4~ |
| XWBOS(0 | GETDLIST+4* |