RGHLLOG ;CAIRO/DKM-LOG MESSAGE PROCESSING INFO ;09/04/98
Source file <RGHLLOG.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START(RGMSG,RGDC,RGPARAM) | ;
|
|
| CREATE() | ||
| STOP(RGQUIT) | ;
|
|
| ERR(RGERR,RGSEV) | ;
|
|
| EXC(RGEXC,RGERR,RGDFN,MSGID,STATNUM) | ;
|
|
| INVEXC(RGMID) | ; determine if this exception needs to be sent to MPI/PD
; personnel via FORUM. Return 1 to avoid messaging to FORUM, else 0. ; IA#:3244 is applied in this functionality |
|
| APP(X) | ; check if the sending/receiving application is relevant to the
; MPI/PD team. Returns 1 if a non-relevant namespace, else 0 |
|
| IEN773(RGMID) | ; find the ien of the record in the HL7 MESSAGE ADMINISTRATION
; (#773) file based on the Message ID. Input: Message ID ; Output: null, no record in 773, else 773 record ien. IA#: 3244 |
|
| SHORT(RGEXC,RGTXT) | ;
; Retrieve short text description of exception |
| FileNo | Call Tags |
|---|---|
| ^XMB(3.8 - [#3.8] | Classic Fileman Calls |
| ^HLMA - [#773] | GET1^DIQ, GETS^DIQ |
| ^RGHL7(991.1 - [#991.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(991.1 | EXC+40 |
| ^HLMA("C" | IEN773+4 |
| ^RGHL7(991.1 - [#991.1] | CREATE+1, CREATE+2, CREATE+6, STOP+6, STOP+8, EXC+36, EXC+37, EXC+50 |
| ^RGHL7(991.11 - [#991.11] | EXC+29, EXC+30, EXC+31, EXC+32*, EXC+34, EXC+47, SHORT+2 |
| ^RGSITE("COR" - [#990.8] | START+12, EXC+61 |
| Name | Line Occurrences |
|---|---|
| $$APP | INVEXC+11, INVEXC+12, INVEXC+26, INVEXC+27 |
| $$CREATE | START+12, EXC+35 |
| $$IEN773 | CREATE+4, INVEXC+4 |
| $$INVEXC | EXC+24 |
| $$SHORT | EXC+62, EXC+64 |
| EXC | ERR+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | CREATE+5*!, STOP+7*!, EXC+43!, EXC+48*, EXC+49! |
| DA(1 | EXC+40*, EXC+48* |
| DD | CREATE+5! |
| DIC | CREATE+5*!, STOP+9!, EXC+39*, EXC+42, EXC+43!, EXC+45*!, EXC+60*! |
| DIC("DR" | CREATE+5* |
| DIC("P" | EXC+40* |
| DIC(0 | CREATE+5*, EXC+40*, EXC+45*, EXC+60* |
| DIE | STOP+7*!, STOP+9!, EXC+42*, EXC+49! |
| DLAYGO | CREATE+5*!, EXC+40*, EXC+43! |
| DO | CREATE+5! |
| DR | STOP+7*!, EXC+43!, EXC+48*, EXC+49! |
| >> HL("MID" | CREATE+4, EXC+24 |
| MSGID | EXC~, EXC+54 |
| RG | INVEXC+19~, INVEXC+22*, INVEXC+23, INVEXC+24, INVEXC+25 |
| RG(0 | INVEXC+25*, INVEXC+26, INVEXC+27 |
| RG1 | INVEXC+19~, INVEXC+23*, INVEXC+24, INVEXC+25 |
| RGDC | START~, START+11 |
| RGDFN | EXC~, EXC+48, EXC+54 |
| RGERR | ERR~, ERR+1, EXC~, EXC+27*, EXC+28*, EXC+38*, EXC+48, EXC+54, EXC+62*, EXC+63 , EXC+64 |
| RGEXC | EXC~, EXC+11, EXC+14, EXC+27*, EXC+28*, EXC+29*, EXC+30, EXC+31, EXC+32, EXC+34 , EXC+47, EXC+48, EXC+54, EXC+59, EXC+62, EXC+64, SHORT~, SHORT+2 |
| RGFLG | INVEXC+3~*, INVEXC+4, INVEXC+10, INVEXC+11*, INVEXC+12*, INVEXC+26*, INVEXC+27*, INVEXC+31 |
| RGFS | INVEXC+19~, INVEXC+25*, INVEXC+26, INVEXC+27 |
| RGI | EXC+25~, EXC+37*, EXC+40, EXC+48, EXC+51*, EXC+54, EXC+56, EXC+63 |
| RGIEN | INVEXC+3~, INVEXC+4*, INVEXC+5, INVEXC+6, INVEXC+20, INVEXC+22* |
| RGIEN("REC" | INVEXC+6*, INVEXC+10, INVEXC+12 |
| RGIEN("SND" | INVEXC+5*, INVEXC+10, INVEXC+11 |
| RGLOG | START+10!, START+12*, CREATE, CREATE+2*, CREATE+5, CREATE+7, STOP+5, STOP+6, STOP+7, STOP+8 , STOP+9!, EXC+35*, EXC+36, EXC+37, EXC+39, EXC+40, EXC+48, EXC+50 |
| RGLOG(1 | START+11*, CREATE+3*, CREATE+5 |
| RGLOG(3 | START+11*, CREATE+4*, CREATE+5 |
| RGLOG(4 | START+11*, CREATE+5 |
| RGLOG(5 | START+11*, CREATE+5 |
| >> RGMG | EXC+46*, EXC+47 |
| RGMID | INVEXC~, INVEXC+4, IEN773~, IEN773+3, IEN773+4 |
| RGMSG | START~, START+11 |
| RGMSH | INVEXC+19~, INVEXC+21 |
| RGPARAM | START~, START+11 |
| RGQUIT | STOP~, STOP+9!, ERR+2*, EXC+33* |
| RGSEV | ERR~, ERR+2 |
| RGTXT | SHORT~, SHORT+2 |
| RGZ | EXC+25~, EXC+31*, EXC+32, EXC+33, EXC+51*, EXC+56, EXC+60*, EXC+61, EXC+62*, EXC+63 , EXC+64 |
| >> STAT | EXC+44*, EXC+47*, EXC+48 |
| STATNUM | EXC~, EXC+54 |
| U | START+9*, START+12, EXC+26*, EXC+27, EXC+32, EXC+33, EXC+47, EXC+51, EXC+60, EXC+61 |
| X | CREATE+5*!, STOP+9!, EXC+40*, EXC+45*, EXC+60*, APP~, APP+2 |
| Y | STOP+9!, EXC+46, EXC+60! |