HLUOPTF1 ;ALB/CJM-HL7 -Set Logic for the AI x-ref on file 773 ;02/04/2004
Source file <HLUOPTF1.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Health Level Seven | 2 | HLDIE773 ^HLMA |
Name | Comments | DBIA/ICR reference |
---|---|---|
PXREF(IEN,STATUS) | ;sets the AI x-ref on file 773 and the FAST PURGE DT/TM fields in file 772 and 773
|
|
SET(IEN773,WHEN,IEN772) | ;sets FAST PURGE DT/TM for and the AI x~ref for both file 772 & 773
|
|
WAIT() | ;
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^HL(772 - [#772] | SET+18, SET+20, SET+23* |
^HLCS(869.3 - [#869.3] | WAIT+3, WAIT+5 |
^HLMA - [#773] | PXREF+13, PXREF+16, PXREF+29, SET+8, SET+12* |
^HLMA("AF" | PXREF+29 |
^HLMA("AI" | SET+9!, SET+15*, SET+21!, SET+26* |
Name | Line Occurrences |
---|---|
$$WAIT | PXREF+22 |
SET | PXREF+25, PXREF+29 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CHILD | PXREF+10~, PXREF+28*, PXREF+29* |
IEN | PXREF~, PXREF+5, PXREF+13, PXREF+16, PXREF+17, PXREF+25, PXREF+29, WAIT+2~, WAIT+3*, WAIT+4 , WAIT+5 |
IEN772 | SET~, SET+18, SET+20, SET+21, SET+23, SET+26 |
IEN773 | SET~, SET+8, SET+9, SET+12, SET+15 |
NODE | PXREF+10~, PXREF+16*, PXREF+17, PXREF+25 |
OLDWHEN | SET+6~, SET+8*, SET+9, SET+20*, SET+21 |
STATUS | PXREF~, PXREF+8 |
WHEN | PXREF+10~, PXREF+21*, PXREF+22*, PXREF+25, PXREF+29, SET~, SET+12, SET+15, SET+23, SET+26 |