HLUCM009 ;CIOFO-O/LJA - HL7/Capacity Mgt API-II ;2/25/03-08:50 [ 12/23/2003 3:57 PM ]
Source file <HLUCM009.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SITESMSH(TXT) | ; Return location pieces, slightly modified...
|
|
SETUP() | ; Perform checks, which can return error conditions, and
; set up variables for $$LOOP. This extrinsic function returns ; "" if no errors, or the # errors found. (Note that error ; details placed in ERRINFO(ERROR-REASON)="") |
|
MSGID(MSGID) | ; Search forward for MSA's to this MSGID...
|
|
ERRMOVE(IEN772) | ; Move all associated data out of ^TMP's totaling arrays
|
|
FINDWAY | ; How were NMSP and PROT passed? By reference? (If so, return 1)
; Passed by reference? |
|
HOLDTOT(IEN) | ; Accumulate...
|
|
MSGTYPE(IEN772) | ; MSG or MSA's type...
|
|
KILLS(WHEN) | ; Kills of ^TMP data WHEN (START or END or ALL)
|
|
EOR | ;HLUCM009 - HL7/Capacity Mgt API-II ;2/25/03-08:50
|
|
MAILTYPE(MIEN) | ; Is MSH in Mailman message local or remote...
|
|
LOAD772S(IEN772,HLNMSP) | ; Load list of related 772s... [HL*1.6*91]
|
|
IEN870(IEN772) | ; Given 772 find 870...
|
|
NMSPXRF | ; Xref of namespaces that can be inferred. (If start with DG change to DG)
|
|
SETDEF | ; Set various defaults...
|
|
ACCUMLAT(CATEGORY,TYPE,SORT,SUB1,SUB2,SUB3,SUB4) | ; Generic accumulator
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^HL(772 - [#772] | IEN870+2, MSGTYPE+2, LOAD772S+10, LOAD772S+12, MSGID+3 |
^HLMA - [#773] | IEN870+12, MSGID+4 |
^HLMA("B" | IEN870+11 |
^HLMA("C" | MSGID+4 |
^ORD(101 - [#101] | IEN870+8 |
^TMP( | KILLS+8!, KILLS+14!, KILLS+22!, ACCUMLAT+3, ACCUMLAT+5*, ACCUMLAT+7, ACCUMLAT+9*, ACCUMLAT+12, ACCUMLAT+14*, ACCUMLAT+17 , ACCUMLAT+19*, ACCUMLAT+22, ACCUMLAT+24*, ACCUMLAT+27, ACCUMLAT+29*, SETUP+10! |
^TMP($J | KILLS+8!, KILLS+14!, KILLS+20!, KILLS+22!, MAILTYPE+3!, MAILTYPE+6, MAILTYPE+7, MAILTYPE+8, MAILTYPE+10!, NMSPXRF+1!* , ERRMOVE+4, ERRMOVE+5, ERRMOVE+10, ERRMOVE+12*, ERRMOVE+13!, ERRMOVE+16*, ERRMOVE+17!, ERRMOVE+20*, ERRMOVE+21! |
Name | Line Occurrences |
---|---|
FINDWAY | SETUP+7 |
SETDEF | SETUP+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACKTO | LOAD772S+6~ |
BIEN | MSGID+1~ |
CATEGORY | ACCUMLAT~, ACCUMLAT+3, ACCUMLAT+5, ACCUMLAT+7, ACCUMLAT+9, ACCUMLAT+12, ACCUMLAT+14, ACCUMLAT+17, ACCUMLAT+19, ACCUMLAT+22 , ACCUMLAT+24, ACCUMLAT+27, ACCUMLAT+29 |
CHILD | LOAD772S+6~ |
>> COND | SETDEF+4*, SETDEF+5* |
CT | MSGID+1~ |
D | MSGID+1~ |
DATA | IEN870+1~, IEN870+2*, IEN870+5, IEN870+8, KILLS+1~, KILLS+7*, KILLS+8, KILLS+12*, KILLS+13, KILLS+14 , KILLS+21*, KILLS+22, LOAD772S+6~, LOAD772S+12* |
DEL | MSGTYPE+1~, MSGTYPE+3*, MSGTYPE+4 |
DIV | SITESMSH+1~, SITESMSH+2* |
FAC | LOAD772S+6~ |
HL772 | LOAD772S+6~ |
HLAPI | KILLS+18! |
HLI | LOAD772S+6~ |
HLJ | LOAD772S+6~ |
HLK | LOAD772S+6~ |
HLN | LOAD772S+6~ |
HLNMSP | LOAD772S~, LOAD772S+9!, LOAD772S+15 |
HLPCKG | LOAD772S+6~ |
HLZZI | LOAD772S+6~ |
HOLD | MSGID+1~ |
HOLD( | MSGID+3*, MSGID+4* |
HOLDNMSP | LOAD772S+6~ |
HOLDNMSP( | HOLDTOT+1, HOLDTOT+2* |
I | NMSPXRF+1~*, LOAD772S+6~ |
I772 | LOAD772S+7~, MSGID+1~ |
I773 | IEN870+1~, IEN870+10*, IEN870+11*, IEN870+12, LOAD772S+7~, MSGID+1~ |
I870 | IEN870+1~, IEN870+11, IEN870+12*, IEN870+13 |
IEN | IEN870+1~, IEN870+5*, IEN870+8*, MAILTYPE+1~, HOLDTOT~, HOLDTOT+1, HOLDTOT+2 |
>> IEN101 | SETDEF+2*, FINDWAY+3 |
>> IEN101("" | FINDWAY+3 |
IEN772 | IEN870~, IEN870+2, IEN870+11, MSGTYPE~, MSGTYPE+2, LOAD772S~, LOAD772S+10, LOAD772S+12, LOAD772S+15, ERRMOVE~ , ERRMOVE+5, ERRMOVE+6 |
IEN772C | ERRMOVE+1~, ERRMOVE+9*, ERRMOVE+10*, ERRMOVE+12, ERRMOVE+13 |
IEN772P | ERRMOVE+1~, ERRMOVE+5*, ERRMOVE+6*, ERRMOVE+10, ERRMOVE+16, ERRMOVE+17, ERRMOVE+20, ERRMOVE+21 |
IN | MSGTYPE+1~, MSGTYPE+2*, MSGTYPE+3, MSGTYPE+4*, MSGTYPE+5 |
MIEN | MAILTYPE~, MAILTYPE+4 |
MSA | MSGID+1~ |
MSGID | LOAD772S+7~, MSGID~, MSGID+3, MSGID+4 |
>> NMSPTYPE | FINDWAY+2* |
NOERR | SETUP+4~, SETUP+5*, SETUP+11 |
NUM | LOAD772S+7~, LOAD772S+15*, LOAD772S+17 |
P4 | SITESMSH+1~, SITESMSH+2*, SITESMSH+3*, SITESMSH+5 |
P6 | SITESMSH+1~, SITESMSH+2*, SITESMSH+4*, SITESMSH+5 |
PARENT | LOAD772S+7~ |
PCKG | LOAD772S+7~ |
PIEN | LOAD772S+7~ |
>> PNMSP | SETDEF+1*, FINDWAY+2 |
>> PNMSP("" | FINDWAY+2 |
PROT | LOAD772S+7~ |
>> PROTYPE | FINDWAY+3* |
RECNO | MAILTYPE+1~, MAILTYPE+5*, MAILTYPE+6*, MAILTYPE+7, MAILTYPE+8 |
SORT | ACCUMLAT~, ACCUMLAT+3, ACCUMLAT+5, ACCUMLAT+7, ACCUMLAT+9, ACCUMLAT+12, ACCUMLAT+14, ACCUMLAT+17, ACCUMLAT+19, ACCUMLAT+22 , ACCUMLAT+24 |
>> SUB | ERRMOVE+11*, ERRMOVE+12, ERRMOVE+13 |
SUB1 | ACCUMLAT~, ACCUMLAT+3, ACCUMLAT+5, ACCUMLAT+7, ACCUMLAT+9, ACCUMLAT+12, ACCUMLAT+14, ACCUMLAT+17, ACCUMLAT+19 |
SUB2 | ACCUMLAT~, ACCUMLAT+3, ACCUMLAT+5, ACCUMLAT+7, ACCUMLAT+9, ACCUMLAT+12, ACCUMLAT+14 |
SUB3 | ACCUMLAT~, ACCUMLAT+3, ACCUMLAT+5, ACCUMLAT+7, ACCUMLAT+9 |
SUB4 | ACCUMLAT~, ACCUMLAT+2, ACCUMLAT+3, ACCUMLAT+5 |
T | NMSPXRF+1~* |
TO | MAILTYPE+1~, MAILTYPE+7*, MAILTYPE+9 |
TOID | MAILTYPE+1~, MAILTYPE+8*, MAILTYPE+9 |
>> TOTALS | KILLS+7, KILLS+12, ACCUMLAT+3, ACCUMLAT+5, ACCUMLAT+7, ACCUMLAT+9, ACCUMLAT+12, ACCUMLAT+14, ACCUMLAT+17, ACCUMLAT+19 , ACCUMLAT+22, ACCUMLAT+24, ACCUMLAT+27, ACCUMLAT+29, SETUP+10, SETDEF+3* |
>> TOTCURR | ACCUMLAT+3*, ACCUMLAT+5, ACCUMLAT+7*, ACCUMLAT+9, ACCUMLAT+12*, ACCUMLAT+14, ACCUMLAT+17*, ACCUMLAT+19, ACCUMLAT+22*, ACCUMLAT+24 , ACCUMLAT+27*, ACCUMLAT+29 |
TOTNUM | LOAD772S+7~, HOLDTOT+1, HOLDTOT+2* |
TXT | SITESMSH~, SITESMSH+2 |
TYPE | MAILTYPE+1~, MAILTYPE+2*, MAILTYPE+6, MAILTYPE+9*, MAILTYPE+11, ACCUMLAT~, ACCUMLAT+3, ACCUMLAT+5, ACCUMLAT+7, ACCUMLAT+9 , ACCUMLAT+12, ACCUMLAT+14, ACCUMLAT+17, ACCUMLAT+19, ACCUMLAT+22, ACCUMLAT+24, ACCUMLAT+27, ACCUMLAT+29 |
U | IEN870+5, IEN870+8, IEN870+12, SITESMSH+5, NMSPXRF+1 |
VAL | LOAD772S+7~ |
WHEN | KILLS~, KILLS+4*, KILLS+11, KILLS+17 |
X | LOAD772S+7~, MSGID+1~, MSGID+3*, MSGID+4* |
Name | Field # of Occurrence |
---|---|
$T(NMSPXRF+I | NMSPXRF+1 |