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 |