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 |