VAFHLRO1 ;BP/JRP - UTILITIES FOR BUILDING HL7 ROLE SEGMENT;11/18/1997
Source file <VAFHLRO1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERROR(SEQ,OUTARR,ERROR) | ;Add error node to output array
|
|
| S8 | ;;8^80^CE^O^^^01205^Role Action Reason
|
|
| GETATT(SEQ) | ;Get element attributes
|
|
| S3 | ;;3^80^CE^R^^^01197^Role
|
|
| FIXLEN1 | ;Recursive portion of FIXLEN
|
|
| S1 | ;;1^60^EI^R^^^01206^Role Instance ID
|
|
| S7 | ;;7^80^CE^O^^^01201^Role Duration
|
|
| S6 | ;;6^26^TS^O^^^01200^Role End Date/Time
|
|
| S5 | ;;5^26^TS^O^^^01199^Role Begin Date/Time
|
|
| S4 | ;;4^80^XCN^R^^^01198^Role Person
|
|
| FIXLEN(INARR,OUTARR,MAXLEN,WORKSUB) | ;Fixed length copy/collapse
|
|
| S2 | ;;2^2^ID^R^^0287^00816^Action Code
|
|
| ATTRIB | ;;SEQ^LEN^DT^OPT^RP/#^TBL#^ITEM#^ELEMENT NAME
|
|
| SEQREQ(SEQ) | ;Required element ?
|
| Name | Field # of Occurrence |
|---|---|
| $$OREF^DILF | FIXLEN+25 |
| Name | Line Occurrences |
|---|---|
| $$GETATT | SEQREQ+9, ERROR+15 |
| FIXLEN1 | FIXLEN+32, FIXLEN1+37 |
| >> | 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 |