VAFHLRO1 ;BP/JRP - UTILITIES FOR BUILDING HL7 ROLE SEGMENT;11/18/1997
Source file <VAFHLRO1.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 1 | $$OREF^DILF |
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 | VAFHLRO2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
FIXLEN(INARR,OUTARR,MAXLEN,WORKSUB) | ;Fixed length copy/collapse
|
|
FIXLEN1 | ;Recursive portion of FIXLEN
|
|
GETATT(SEQ) | ;Get element attributes
|
|
SEQREQ(SEQ) | ;Required element ?
|
|
ERROR(SEQ,OUTARR,ERROR) | ;Add error node to output array
|
|
ATTRIB | ;;SEQ^LEN^DT^OPT^RP/#^TBL#^ITEM#^ELEMENT NAME
|
|
S1 | ;;1^60^EI^R^^^01206^Role Instance ID
|
|
S2 | ;;2^2^ID^R^^0287^00816^Action Code
|
|
S3 | ;;3^80^CE^R^^^01197^Role
|
|
S4 | ;;4^80^XCN^R^^^01198^Role Person
|
|
S5 | ;;5^26^TS^O^^^01199^Role Begin Date/Time
|
|
S6 | ;;6^26^TS^O^^^01200^Role End Date/Time
|
|
S7 | ;;7^80^CE^O^^^01201^Role Duration
|
|
S8 | ;;8^80^CE^O^^^01205^Role Action Reason
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ATTRIB | ERROR+13~, ERROR+15*, ERROR+18, ERROR+20, ERROR+31*, ERROR+33 |
ELEMENT | ERROR+13~, ERROR+20*, ERROR+21*, ERROR+24 |
ERROR | ERROR~, ERROR+26 |
INARR | FIXLEN~, FIXLEN+25, FIXLEN+28*, FIXLEN+30 |
LEN | FIXLEN+23~, FIXLEN1+23*, FIXLEN1+25, FIXLEN1+26, FIXLEN1+28 |
LENOVR | FIXLEN+23~, FIXLEN1+28*, FIXLEN1+30, FIXLEN1+36 |
LENRES | FIXLEN+23~, FIXLEN1+21*, FIXLEN1+23 |
LENVAL | FIXLEN+23~, FIXLEN1+20*, FIXLEN1+23, FIXLEN1+30, FIXLEN1+36 |
MAXLEN | FIXLEN~, FIXLEN+16*, FIXLEN+17*, FIXLEN1+25, FIXLEN1+26, FIXLEN1+28 |
OUTARR | FIXLEN~, FIXLEN+34, FIXLEN1+30, ERROR~, ERROR+28*, ERROR+29*, ERROR+31, ERROR+33 |
REQUIRED | ERROR+13~, ERROR+17*, ERROR+18*, ERROR+23, ERROR+28, ERROR+29 |
RESULT | FIXLEN+21~, FIXLEN+27*, FIXLEN+34, FIXLEN1+21, FIXLEN1+25*, FIXLEN1+26*, FIXLEN1+30, FIXLEN1+35* |
ROOT | FIXLEN+21~, FIXLEN+25*, FIXLEN+28 |
SEQ | GETATT~, GETATT+8*, SEQREQ~, SEQREQ+9, ERROR~, ERROR+15, ERROR+21, ERROR+31, ERROR+33 |
TEXT | ERROR+13~, ERROR+23*, ERROR+24*, ERROR+26*, ERROR+33 |
TMP | SEQREQ+7~, SEQREQ+9*, SEQREQ+11 |
VALUE | FIXLEN+21~, FIXLEN+30*, FIXLEN1+18, FIXLEN1+20, FIXLEN1+25, FIXLEN1+26, FIXLEN1+30, FIXLEN1+36* |
WORKSUB | FIXLEN~, FIXLEN+18*, FIXLEN+19*, FIXLEN+34, FIXLEN1+30, FIXLEN1+32* |
Name | Field # of Occurrence |
---|---|
$T(@SEQ | GETATT+9 |