RG4POST ;HIRMFO/GJC-POST-INIT DRIVER ;11/10/99
Source file <RG4POST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1 | ; Add RG ADT ENCOUNTER DRIVER (extended action protocol) as
; an Item under DGPM MOVEMENT EVENTS & SDAM APPOINTMENT EVENTS |
|
| EN2 | ; Task off the process (RGADT2) that seeds (adds data to a null
; field) the DATE LAST TREATED (#.03) field in the TREATING FACILITY ; LIST (#391.91) file. Admission and discharge dates are checked on ; the registration side (IN5^VADPT), and a status of 'check out' is ; what our software is looking for in the OUTPATIENT ENCOUNTER ; (#409.68) file. |
|
| EN4 | ; Add RG CIRN ADT to the HL7 APPLICATION PARAMETER (#.02)
; field for all the entries in the ADT/HL7 EVENT REASON ; (#391.72) file. |
|
| ERRMSG(X) | ; display an error message about missing protocols
; input: the name of the protocol missing |
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC |
| ^HL(771 - [#771] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT("AICN" | EN2+7 |
| ^ORD(101 - [#101] | EN1+15, EN1+16, EN1+22, EN1+23 |
| ^RGSITE(991.8 - [#991.8] | EN2+8 |
| ^VAT(391.72 - [#391.72] | EN4+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | EN4+4~, EN4+5*, EN4+6 |
| RG771 | EN4+3~*, EN4+4, EN4+6 |
| RGCHK | RG4POST+3~, RG4POST+4*, RG4POST+9*, RG4POST+16* |
| RGDUZ | EN2+13, EN2+18! |
| RGFDA | EN1+2!, EN1+27!, EN4+4~, EN4+7! |
| RGFDA( | EN1+14*, EN1+21*, EN4+6* |
| RGMSG | EN1+2!, EN1+17!, EN1+18, EN1+24!, EN1+25, EN1+27!, EN2+9!, EN2+17, EN2+18!, ERRMSG+2! , ERRMSG+4 |
| RGMSG(1 | EN1+17*, EN1+24*, EN2+15*, ERRMSG+2* |
| RGMSG(2 | EN1+17*, EN1+24*, EN2+15*, ERRMSG+2* |
| RGMSG(3 | EN1+18*, EN1+25*, EN2+16*, ERRMSG+3* |
| RGMSG(4 | EN2+17* |
| X | ERRMSG~, ERRMSG+2, ERRMSG+3 |
| X0 | EN1+2~, EN1+4*, EN1+5, EN1+15, EN1+16, EN1+22, EN1+23 |
| X1 | EN1+2~, EN1+7*, EN1+8, EN1+14, EN1+15, EN1+16 |
| X2 | EN1+2~, EN1+10*, EN1+11, EN1+21, EN1+22, EN1+23 |
| >> XPDNM | EN2+12 |
| Y0 | EN1+2~, EN1+4*, EN1+5, EN1+14, EN1+17, EN1+21, EN1+24 |
| Y1 | EN1+2~, EN1+7*, EN1+8, EN1+18 |
| Y2 | EN1+2~, EN1+10*, EN1+11, EN1+25 |
| ZTDESC | EN2+9~, EN2+10* |
| ZTDTH | EN2+9~, EN2+11* |
| ZTIO | EN2+9~, EN2+10* |
| ZTRTN | EN2+9~, EN2+10* |
| ZTSAVE | EN2+9~ |
| ZTSAVE("RGDUZ" | EN2+13* |
| ZTSAVE("XPD*" | EN2+12* |
| >> ZTSK | EN2+17 |
