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! |