VAFHUTL9 ;ALB/RJS - UTILTIES FOR ADT/R HL7 INTERFACE - 6/15/95
Source file <VAFHUTL9.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 |
---|---|---|
Registration | 1 | VAFHQRY |
Name | Comments | DBIA/ICR reference |
---|---|---|
SEG(SEGMENT,PIECE,CODE) | ;Return segment from VADC array and kill node
|
|
SEG1(SEGMENT,PIECE,CODE) | ;Return segment from VADC array
|
|
INITIZE(HLDA) | ;Initialize VADC array with incoming message
|
|
INIT1 | ;
|
|
SSNDFN(SSN) | ;Input ssn output DFN
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT("SSN" | SSNDFN+2, SSNDFN+4 |
^HL(772 - [#772] | INITIZE+2, INITIZE+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CODE | SEG~, SEG+5, SEG1~ |
>> DFN | SSNDFN+2*, SSNDFN+3, SSNDFN+4*, SSNDFN+5 |
HLDA | INITIZE~, INITIZE+2, INITIZE+3 |
>> HLFS | SEG+5, SEG1+5 |
>> HLNEXT | INIT1+1 |
>> HLNODE | INIT1+1 |
>> HLQUIT | INIT1+1 |
>> I | INIT1+1* |
PIECE | SEG~, SEG+5, SEG1~ |
SEGMENT | SEG~, SEG+5, SEG1~, SEG1+5 |
SSN | SSNDFN~, SSNDFN+1, SSNDFN+2, SSNDFN+4 |
>> VAC | SEG+5 |
VADATA | SEG+1~, SEG+4*, SEG+5, SEG+6, SEG1+1~, SEG1+4*, SEG1+5, SEG1+6 |
>> VADC | INIT1+2* |
>> VADC( | SEG+3, SEG+4, SEG+5!, SEG1+3, SEG1+4, INITIZE+3* |
VADONE | SEG+1~!, SEG+3, SEG+5*, SEG+6, SEG1+1~!, SEG1+3, SEG1+5*, SEG1+6 |
VANODE | SEG+1~, SEG+2*, SEG+3*, SEG+4, SEG+5, SEG1+1~, SEG1+2*, SEG1+3*, SEG1+4, INITIZE+1~* , INITIZE+2*, INITIZE+3 |
>> X | INIT1+2 |
>> X( | INIT1+1* |