HMPYCSO ;SLC/MJK,ASMR/RRB - Convert system objects utility ;8/2/11 15:29
Source file <HMPYCSO.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 |
|---|---|---|
| CONV(HMPDATA,HMPCNTS) | ; -- execute conversion over a system object type
; input: HMPDATA("type") := object type ; - [ OPD - operational (file #800000.11) | PT - HMP (file #800000.1) / default ] |
|
| CONVOBJ(HMPFILE,IEN,HMPCB) | ; -- convert object
|
|
| ERROR(MSG) | ; -- write out error message and inc error tally
|
|
| TALLY(CNTYP) | ; -- inc counter
|
|
| UPDATE(HMPFILE,DA,JSON) | ; -- update DATA wp field on patient object
; input: DA - internal entry number in 800000.1 ; JSON - closed array reference for M representation of object ; return: 1 - update successful | 0 - update not successful (unable to obtain lock) |
|
| TASKCONV | ; -- convert patient task objects
; - converts 'pid' property to SYSID;DFN (ex. F484;237) ; - removes 'patientId' property if it exists |
|
| TASKCB(OBJREF,IEN) | ; -- callback that converts a 'task' object's if necessary
; - converts 'pid' property to SYSID;DFN (ex. F484;237) ; - removes 'patientId' property if it exists |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HMP( | CONV+42, CONV+43, CONV+47, CONVOBJ+7, CONVOBJ+12, UPDATE+4, UPDATE+11!, UPDATE+12*, UPDATE+13*, UPDATE+15 |
| ^HMP(800000.1 - [#800000.1] | TASKCB+11 |
| ^TMP($J | CONVOBJ+2, CONVOBJ+3 |
| Name | Line Occurrences |
|---|---|
| $$UPDATE | CONVOBJ+25 |
| CONVOBJ | CONV+43, CONV+47 |
| ERROR | CONVOBJ+10, CONVOBJ+15, CONVOBJ+22, CONVOBJ+26 |
| TALLY | CONVOBJ+5, CONVOBJ+18, CONVOBJ+28, ERROR+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | CONVOBJ+12 |
| ^(1 | UPDATE+11* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | UPDATE+7~, UPDATE+8*, UPDATE+12*, UPDATE+13 |
| CNTYP | TALLY~, TALLY+1 |
| DA | UPDATE~, UPDATE+4, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+15 |
| DFN | CONV+40~, CONV+42*, CONV+43, TASKCB+9~, TASKCB+11*, TASKCB+12, TASKCB+13 |
| >> DILOCKTM | UPDATE+4 |
| ERROR | CONVOBJ+1~, CONVOBJ+15, CONVOBJ+22 |
| HMP0 | CONVOBJ+1~, CONVOBJ+7*, CONVOBJ+8, CONVOBJ+9 |
| HMPAMS | TASKCONV+4~, TASKCONV+8 |
| HMPAMS("callback" | TASKCONV+7* |
| HMPAMS("collection" | TASKCONV+6* |
| HMPAMS("type" | TASKCONV+5* |
| HMPB4 | TASKCONV+14! |
| HMPCB | CONV+23~, CONV+26*, CONV+29, CONV+43, CONV+47, CONVOBJ~, CONVOBJ+18 |
| HMPCNTS | CONV~, CONV+49 |
| HMPCOLL | CONV+23~, CONV+25*, CONV+29, CONV+43, CONV+47, CONVOBJ+1~, CONVOBJ+8*, CONVOBJ+10, CONVOBJ+15, CONVOBJ+22 , CONVOBJ+24, CONVOBJ+26 |
| HMPDATA | CONV~ |
| HMPDATA("callback" | CONV+26 |
| HMPDATA("collection" | CONV+25 |
| HMPDATA("type" | CONV+24 |
| HMPFILE | CONV+23~, CONV+41*, CONV+42, CONV+43, CONV+46*, CONV+47, CONVOBJ~, CONVOBJ+7, CONVOBJ+12, CONVOBJ+25 , UPDATE~, UPDATE+4, UPDATE+10, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+15 |
| HMPOK | TASKCB+9~, TASKCB+10*, TASKCB+15*, TASKCB+16*, TASKCB+17 |
| HMPSTATS | TASKCONV+4~ |
| HMPSTATS("converted" | TASKCONV+12 |
| HMPSTATS("errored" | TASKCONV+13 |
| HMPSTATS("passed" | TASKCONV+11 |
| HMPSTATS("reviewed" | TASKCONV+10 |
| HMPSUB | UPDATE+7~, UPDATE+10*, UPDATE+11 |
| HMPTEMP | CONVOBJ+1~, CONVOBJ+3*, CONVOBJ+4, CONVOBJ+14, CONVOBJ+21, CONVOBJ+30 |
| HMPTYPE | CONV+23~, CONV+24*, CONV+31, CONV+34, CONV+39 |
| HMPY | CONVOBJ+1~, CONVOBJ+2*, CONVOBJ+4, CONVOBJ+12, CONVOBJ+14, CONVOBJ+20, CONVOBJ+21, CONVOBJ+25, CONVOBJ+30 |
| HMPZCNTS | CONV+23~, CONV+49 |
| HMPZCNTS( | CONV+37*, TALLY+1* |
| I | CONVOBJ+1~, CONVOBJ+12*, UPDATE+7~, UPDATE+12* |
| IEN | CONV+40~, CONV+43*, CONV+45~, CONV+47*, CONVOBJ~, CONVOBJ+7, CONVOBJ+10, CONVOBJ+12, CONVOBJ+15, CONVOBJ+22 , CONVOBJ+25, CONVOBJ+26, TASKCB~, TASKCB+11 |
| JSON | UPDATE~, UPDATE+12 |
| MSG | ERROR~, ERROR+2 |
| OBJREF | TASKCB~, TASKCB+15, TASKCB+16 |
| PID | TASKCB+9~, TASKCB+13*, TASKCB+15 |
| U | CONVOBJ+8, CONVOBJ+9, UPDATE+13 |
| UID | CONVOBJ+1~, CONVOBJ+9*, CONVOBJ+10, CONVOBJ+24 |
| X | CONV+23~, CONV+37*, CONVOBJ+12* |
