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 |