LR382A ;HOIFO/JCH/LBC - Lab ADT Patch 382 Post Install routine ;April 06, 2011
Source file <LR382A.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Check answers to post install questions
|
|
| ENI | ; Patch 382 Post Install (Install)
|
|
| ADD(PROTNM,TOPROTNM) | ; Add each PROTNM protocol as subscriber to TOPROTNM server protocol.
|
|
| ADDITEM(PROTNM,TOPROTNM) | ; Add the PROTNM protocol as an ITEM to the TOPROTNM protocol
|
|
| GETADD | ; Prompt for TCP/IP Address
; Get TCP/IP Address for Logical Link, Port for Logical Link |
|
| SETCP(ADD,PORT) | ; Set TCP address and port into logical link
|
|
| SETFAC | ; Set Facility into HL7 Application Parameter
|
| FileNo | Call Tags |
|---|---|
| ^HL(771 - [#771] | Classic Fileman Calls |
| ^HLCS(870 - [#870] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HL(771 - [#771] | SETFAC+4 |
| ^HLCS(870 - [#870] | SETCP+2 |
| ^LRO(67.9 - [#67.9] | SETFAC+2 |
| ^ORD(101 - [#101] | ENI+4, ENI+14, ENI+15, ENI+16, ADD+4, ADD+6, ADD+7, ADDITEM+3, ADDITEM+5, ADDITEM+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | ADD+7, ADDITEM+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A8SUF | ENI+9~* |
| ADD | SETCP~, SETCP+1, SETCP+3 |
| APP | SETFAC+1~, SETFAC+3*, SETFAC+4 |
| >> APPNUM | SETFAC+4*, SETFAC+6 |
| DA | ENI+1~, ENI+18*!, ADD+12!, ADDITEM+11!, SETCP+3*, SETFAC+5~, SETFAC+6*, SETFAC+7! |
| DA(1 | ENI+18*, ADD+10*, ADDITEM+9* |
| DD | ENI+1~ |
| DIC | ENI+1~, ADD+10*, ADD+12!, ADDITEM+9*, ADDITEM+11! |
| DIC("DR" | ADD+11*, ADDITEM+10* |
| DIC("P" | ADD+10*, ADDITEM+9* |
| DIC(0 | ADD+10*, ADDITEM+9* |
| DIE | ENI+1~, GETADD+2~, SETCP+3*, SETFAC+5~, SETFAC+6*, SETFAC+7! |
| DIK | ENI+18*! |
| >> DINUM | ADD+10*, ADD+11, ADDITEM+9*, ADDITEM+10 |
| DIR | GETADD+2~ |
| DIR("A" | GETADD+3*, GETADD+7* |
| DIR(0 | GETADD+4*, GETADD+8* |
| DO | ENI+1~ |
| DR | ENI+1~, ADD+12!, ADDITEM+11!, SETCP+3*, SETFAC+5~, SETFAC+6*, SETFAC+7! |
| DUP | ADD+2~, ADD+3*, ADD+7*, ADD+9, ADDITEM+1~, ADDITEM+2*, ADDITEM+6*, ADDITEM+8 |
| >> EVENT | ENI+6*, ENI+7, ENI+8, ENI+9 |
| FAC | SETFAC+1~, SETFAC+2*, SETFAC+6 |
| LINK | GETADD+2~, SETCP+2*, SETCP+3 |
| ND10 | ADDITEM+4~, ADDITEM+5* |
| ND775 | ADD+5~, ADD+6* |
| >> NEXT | ENI+15*, ENI+16, ENI+18 |
| NXTITEM | ADDITEM+4~, ADDITEM+5*, ADDITEM+9 |
| NXTSUB | ADD+5~, ADD+6*, ADD+10 |
| >> OTHITEMS | ADDITEM+6* |
| >> OTHSUBS | ADD+7* |
| PORT | SETCP~, SETCP+1, SETCP+3 |
| PROT | ENI+16*, ADD+2~, ADD+4*, ADD+7, ADD+11, ADDITEM+1~, ADDITEM+3*, ADDITEM+6, ADDITEM+10 |
| PROTNM | ENI+4*, ENI+5, ENI+6, ENI+9, ENI+10, ENI+16*, ENI+17, ADD~, ADD+4, ADDITEM~ , ADDITEM+3 |
| STOP | ENI+1~, ENI+2*, ENI+4, ENI+7* |
| TCPAD | ENI+1~ |
| TCPADD | GETADD+2~, GETADD+6* |
| TCPORT | ENI+1~, GETADD+2~, GETADD+10* |
| TOPROT | ENI+14*, ENI+15, ENI+16, ENI+18, ADD+2~, ADD+4*, ADD+6, ADD+7, ADD+10, ADDITEM+1~ , ADDITEM+3*, ADDITEM+5, ADDITEM+6, ADDITEM+9 |
| TOPROTNM | ENI+6*, ENI+9*, ENI+10, ENI+13*, ENI+14, ADD~, ADD+4, ADDITEM~, ADDITEM+3 |
| U | ENI+16, ADD+5~*, ADD+6, ADDITEM+4~*, ADDITEM+5 |
| >> X | ADD+11*, ADDITEM+10* |
| >> Y | GETADD+6, GETADD+10 |
