VAFHLZTE ;SHRPE/YMG - Create HL7 ZTE segment ;06/17/19
Source file <VAFHLZTE.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,VAFSTR,VAFCHK,VAFZTE) | ; build HL7 ZTE segments.
; These segments contain VA-specific data for OTH (Other Than Honorable) ; patients. ZTE segments will be returned in the array VAFZTE. |
|
| GETDATA(DGTYPE,DGOTHSTR) | ; Get information needed to build ZTE segment
; Input: ; DGTYPE = request type: "P" = Pending, "D" = Denied, "A" = Approved ; DGOTHSTR = "^" - delimited string containing data from file 33 to use |
|
| MAKESEG | ; Create segment using obtained data
; Input: Existence of the following variables is assumed ; VAFSETID = Number denoting Xth repetition of the ZTE segment ; VAFMAXL = Maximum length of each node (defaults to 245) ; VAFHLZTE(SeqNum) = Value ; HL7 encoding characters (HLFS, HLECH) |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGOTH(33 - [#33] | EN+23, EN+30, EN+35, EN+36 |
| Name | Line Occurrences |
|---|---|
| GETDATA | EN+28, EN+32, EN+38 |
| MAKESEG | EN+28, EN+32, EN+38 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | EN~, EN+20, EN+21, EN+23, EN+27 |
| DGOTHSTR | EN+16~, EN+27*, EN+28, EN+31*, EN+32, EN+37*, EN+38, GETDATA~, GETDATA+19, GETDATA+21 , GETDATA+25, GETDATA+27, GETDATA+29, GETDATA+31, GETDATA+33, GETDATA+35, GETDATA+37, GETDATA+39, GETDATA+41 |
| DGTYPE | GETDATA~, GETDATA+19, GETDATA+21, GETDATA+23, GETDATA+25, GETDATA+27, GETDATA+29, GETDATA+31, GETDATA+33, GETDATA+35 , GETDATA+37, GETDATA+39, GETDATA+41 |
| >> HLFS | MAKESEG+28 |
| IEN33 | EN+16~, EN+23*, EN+30, EN+31, EN+35, EN+36, EN+37 |
| IEN3301 | EN+16~, EN+35*, EN+36, EN+37 |
| IEN3303 | EN+16~, EN+30*, EN+31 |
| IEN3311 | EN+16~, EN+36*, EN+37 |
| LASTSEQ | MAKESEG+12~, MAKESEG+18*, MAKESEG+19 |
| SEQ | MAKESEG+12~, MAKESEG+19*, MAKESEG+21, MAKESEG+24, MAKESEG+27, MAKESEG+28 |
| SPILL | MAKESEG+12~, MAKESEG+17*, MAKESEG+23*, MAKESEG+25 |
| SPILLON | MAKESEG+12~, MAKESEG+17*, MAKESEG+24*, MAKESEG+27 |
| SPOT | MAKESEG+12~, MAKESEG+27*, MAKESEG+28 |
| U | EN+28, EN+32, EN+38, GETDATA+19, GETDATA+21, GETDATA+25, GETDATA+27, GETDATA+29, GETDATA+31, GETDATA+33 , GETDATA+35, GETDATA+37, GETDATA+39, GETDATA+41 |
| VAFCHK | EN~, EN+19*, EN+20 |
| VAFHLZTE | EN+16~, GETDATA+15! |
| VAFHLZTE( | MAKESEG+21, MAKESEG+28 |
| VAFHLZTE("" | MAKESEG+18 |
| VAFHLZTE(1 | GETDATA+17* |
| VAFHLZTE(10 | GETDATA+35* |
| VAFHLZTE(11 | GETDATA+37* |
| VAFHLZTE(12 | GETDATA+39* |
| VAFHLZTE(13 | GETDATA+41* |
| VAFHLZTE(2 | GETDATA+19* |
| VAFHLZTE(3 | GETDATA+21* |
| VAFHLZTE(4 | GETDATA+23* |
| VAFHLZTE(5 | GETDATA+25* |
| VAFHLZTE(6 | GETDATA+27* |
| VAFHLZTE(7 | GETDATA+29* |
| VAFHLZTE(8 | GETDATA+31* |
| VAFHLZTE(9 | GETDATA+33* |
| VAFMAXL | EN+16~, EN+18*, MAKESEG+15*, MAKESEG+21 |
| VAFSETID | EN+16~, EN+25*, EN+28*, EN+32*, EN+38*, GETDATA+17, MAKESEG+13, MAKESEG+14, MAKESEG+16, MAKESEG+25 |
| VAFSTR | EN~, EN+21, EN+22*, GETDATA+17, GETDATA+19, GETDATA+21, GETDATA+23, GETDATA+25, GETDATA+27, GETDATA+29 , GETDATA+31, GETDATA+33, GETDATA+35, GETDATA+37, GETDATA+39, GETDATA+41 |
| VAFY | MAKESEG+12~, MAKESEG+16*, MAKESEG+21, MAKESEG+25*, MAKESEG+28* |
| VAFZTE | EN~, EN+17! |
| VAFZTE( | MAKESEG+13!, MAKESEG+14*, MAKESEG+16, MAKESEG+25 |
