VAFHLZPD ;ALB/KCL/PHH,TDM,KUM - Create generic HL7 ZPD segment ; 8/15/08 11:42am
Source file <VAFHLZPD.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) | ; This generic extrinsic function was designed to return
; sequences 1 throught 21 of the HL7 ZPD segment. This segment ; contains VA-specific patient information that is not contained in ; the HL7 PID segment. This call does not accomodate a segment ; length greater than 245 and has been superceeded by EN1^VAFHLZPD. ; This line tag has been left for backwards compatability. |
|
| EN1(DFN,VAFSTR) | ; This generic extrinsic function was designed to return the
; HL7 ZPD segment. This segment contains VA-specific patient ; information that is not contained in the HL7 PID segment. This ; call superceeds EN^VAFHLZPD because it accomodates a segment ; length greater than 245. ; |
|
| GETDATA(DFN,VAFSTR,ARRAY) | ;Get info needed to build segment
|
|
| COMMANUM(FROM,TO) | ;Build comma seperated list of numbers
|
| Name | Field # of Occurrence |
|---|---|
| $$PCTEAM^DGSDUTL | GETDATA+94 |
| $$BADADR^DGUTL3 | GETDATA+69 |
| $$FIND1^DIC | GETDATA+166 |
| $$GET1^DIQ | GETDATA+162, GETDATA+163, GETDATA+167 |
| $$HLDATE^HLFNC | GETDATA+48, GETDATA+62, GETDATA+112, GETDATA+114, GETDATA+120, GETDATA+121, GETDATA+127, GETDATA+171 |
| $$RXST^IBARXEU | GETDATA+90 |
| $$INSTYP^IBCNS1 | GETDATA+88 |
| KVA^VADPT | GETDATA+173 |
| OPD^VADPT | GETDATA+32 |
| $$INS^VAFHLFNC | GETDATA+55 |
| $$YN^VAFHLFNC | GETDATA+46, GETDATA+55, GETDATA+60 |
| FileNo | Call Tags |
|---|---|
| ^DI(.85 - [#.85] | FIND1^DIC, GET1^DIQ |
| 2.07 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(408.32 - [#408.32] | GETDATA+40 |
| ^DIC(10 - [#10] | GETDATA+64 |
| ^DIC(13 - [#13] | GETDATA+66 |
| ^DIC(35 - [#35] | GETDATA+133 |
| ^DIC(4 - [#4] | GETDATA+113, GETDATA+115 |
| ^DIC(5 - [#5] | GETDATA+38 |
| ^DPT - [#2] | GETDATA+30, GETDATA+46, GETDATA+48, GETDATA+51, GETDATA+52, GETDATA+58, GETDATA+74, GETDATA+105, GETDATA+111, GETDATA+119 , GETDATA+123, GETDATA+125, GETDATA+127, GETDATA+129, GETDATA+131, GETDATA+133, GETDATA+135, GETDATA+159, GETDATA+160 |
| ^TMP($J | GETDATA+16 |
| Name | Line Occurrences |
|---|---|
| $$COMMANUM | GETDATA+25 |
| $$EN1 | EN+18 |
| GETDATA | EN1+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | GETDATA~, GETDATA+15*, GETDATA+16*, GETDATA+17, GETDATA+20, GETDATA+34, GETDATA+36, GETDATA+38, GETDATA+40, GETDATA+42 , GETDATA+44, GETDATA+46, GETDATA+48, GETDATA+53, GETDATA+55, GETDATA+60, GETDATA+62, GETDATA+64, GETDATA+66, GETDATA+69 , GETDATA+84, GETDATA+86, GETDATA+88, GETDATA+90, GETDATA+98, GETDATA+106, GETDATA+107, GETDATA+112, GETDATA+113, GETDATA+114 , GETDATA+115, GETDATA+120, GETDATA+121, GETDATA+123, GETDATA+125, GETDATA+127, GETDATA+129, GETDATA+131, GETDATA+133, GETDATA+135 , GETDATA+138, GETDATA+141, GETDATA+142, GETDATA+143, GETDATA+144, GETDATA+169, GETDATA+171 |
| DFN | EN~, EN+18, EN1~, EN1+26, GETDATA~, GETDATA+21*, GETDATA+30, GETDATA+46, GETDATA+48, GETDATA+51 , GETDATA+55, GETDATA+58, GETDATA+69, GETDATA+74, GETDATA+88, GETDATA+90, GETDATA+94, GETDATA+105, GETDATA+111, GETDATA+119 , GETDATA+123, GETDATA+125, GETDATA+127, GETDATA+129, GETDATA+131, GETDATA+133, GETDATA+135, GETDATA+159, GETDATA+160, GETDATA+162 , GETDATA+163 |
| DG85IEN | GETDATA+157~, GETDATA+158*, GETDATA+166*, GETDATA+167 |
| DGDA | GETDATA+157~, GETDATA+160*, GETDATA+161, GETDATA+162, GETDATA+163 |
| DGDATE | GETDATA+157~, GETDATA+159*, GETDATA+160 |
| DGLANGDT | GETDATA+157~, GETDATA+158*, GETDATA+163*, GETDATA+171 |
| DGLANGNM | GETDATA+157~, GETDATA+158*, GETDATA+162*, GETDATA+164*, GETDATA+165*, GETDATA+166, GETDATA+167*, GETDATA+169 |
| FROM | COMMANUM~, COMMANUM+7*, COMMANUM+8, COMMANUM+10, COMMANUM+11 |
| >> HLFS | EN+22, EN+26, EN+27, EN+29, EN+31, EN1+42 |
| >> HLQ | GETDATA+34, GETDATA+36, GETDATA+38, GETDATA+40, GETDATA+42, GETDATA+44, GETDATA+46, GETDATA+48, GETDATA+53, GETDATA+55 , GETDATA+60, GETDATA+62, GETDATA+64, GETDATA+66, GETDATA+77, GETDATA+80, GETDATA+81, GETDATA+88, GETDATA+90, GETDATA+96 , GETDATA+106, GETDATA+107, GETDATA+112, GETDATA+113, GETDATA+114, GETDATA+115, GETDATA+120, GETDATA+121, GETDATA+123, GETDATA+125 , GETDATA+127, GETDATA+129, GETDATA+131, GETDATA+133, GETDATA+135, GETDATA+138, GETDATA+141, GETDATA+142, GETDATA+143, GETDATA+144 , GETDATA+169, GETDATA+171 |
| LASTSEQ | EN1+22~, EN1+32*, EN1+33 |
| LOC | GETDATA+73~, GETDATA+79*, GETDATA+80*, GETDATA+81*, GETDATA+86 |
| MAXLEN | EN1+22~, EN1+24*, EN1+35 |
| OUTPUT | COMMANUM+9~, COMMANUM+10*, COMMANUM+11*, COMMANUM+12 |
| POW | GETDATA+73~, GETDATA+76*, GETDATA+77*, GETDATA+84 |
| REMARKS | EN+17~, EN+26*, EN+31 |
| SEQ | EN1+22~, EN1+33*, EN1+35, EN1+38, EN1+41, EN1+42 |
| SPILL | EN1+22~, EN1+29*, EN1+37*, EN1+39 |
| SPILLON | EN1+22~, EN1+30*, EN1+38*, EN1+41 |
| SPOT | EN1+22~, EN1+41*, EN1+42 |
| TO | COMMANUM~, COMMANUM+8*, COMMANUM+11 |
| U | GETDATA+106, GETDATA+107, GETDATA+112, GETDATA+113, GETDATA+114, GETDATA+115, GETDATA+120, GETDATA+121, GETDATA+123, GETDATA+125 , GETDATA+127, GETDATA+129, GETDATA+131, GETDATA+133, GETDATA+135 |
| VAF52 | GETDATA+73~, GETDATA+74*, GETDATA+76, GETDATA+79 |
| VAFHLZPD | EN1+22~, EN1+44 |
| VAFHLZPD( | EN1+35, EN1+42 |
| VAFHLZPD("" | EN1+32 |
| VAFNODE | GETDATA+28~, GETDATA+30*, GETDATA+34, GETDATA+40, GETDATA+64, GETDATA+66 |
| VAFSTR | EN~, EN+18, EN1~, EN1+26, GETDATA~, GETDATA+22*, GETDATA+25*, GETDATA+26*, GETDATA+34, GETDATA+36 , GETDATA+38, GETDATA+40, GETDATA+42, GETDATA+44, GETDATA+46, GETDATA+48, GETDATA+50, GETDATA+55, GETDATA+57, GETDATA+60 , GETDATA+62, GETDATA+64, GETDATA+66, GETDATA+69, GETDATA+71, GETDATA+84, GETDATA+86, GETDATA+88, GETDATA+90, GETDATA+92 , GETDATA+103, GETDATA+106, GETDATA+107, GETDATA+109, GETDATA+112, GETDATA+113, GETDATA+114, GETDATA+115, GETDATA+117, GETDATA+120 , GETDATA+121, GETDATA+123, GETDATA+125, GETDATA+127, GETDATA+129, GETDATA+131, GETDATA+133, GETDATA+135, GETDATA+138, GETDATA+141 , GETDATA+142, GETDATA+143, GETDATA+144, GETDATA+169, GETDATA+171 |
| VAFY | EN+17~, EN+18*, EN+22*, EN+26, EN+27*, EN+29*, EN+31*, EN+33, EN1+22~, EN1+28* , EN1+31, EN1+35, EN1+39*, EN1+42* |
| VAFZPD | EN+17~, EN1+23! |
| VAFZPD( | EN1+39 |
| VAFZPD(1 | EN+20, EN+24, EN+29 |
| VAPD | GETDATA+28~ |
| VAPD(1 | GETDATA+36 |
| VAPD(2 | GETDATA+38 |
| VAPD(3 | GETDATA+42 |
| VAPD(4 | GETDATA+44 |
| X | GETDATA+28~, GETDATA+34*, GETDATA+40*, GETDATA+48*, GETDATA+51*, GETDATA+52, GETDATA+55*, GETDATA+58*, GETDATA+60, GETDATA+62 , GETDATA+64*, GETDATA+66*, GETDATA+88*, GETDATA+90*, GETDATA+94*, GETDATA+95*, GETDATA+96*, GETDATA+98, GETDATA+105*, GETDATA+106 , GETDATA+107, GETDATA+111*, GETDATA+112, GETDATA+113, GETDATA+114, GETDATA+115, GETDATA+119*, GETDATA+120, GETDATA+121, GETDATA+123* , GETDATA+125*, GETDATA+127*, GETDATA+129*, GETDATA+131*, GETDATA+133*, GETDATA+135*, GETDATA+138*, GETDATA+169*, GETDATA+171*, COMMANUM+9~ , COMMANUM+11* |
| X1 | GETDATA+28~, GETDATA+38*, GETDATA+40*, GETDATA+46*, GETDATA+48*, GETDATA+52*, GETDATA+53, GETDATA+55*, GETDATA+60*, GETDATA+62* , GETDATA+64*, GETDATA+66*, GETDATA+106*, GETDATA+107*, GETDATA+112*, GETDATA+113*, GETDATA+114*, GETDATA+115*, GETDATA+120*, GETDATA+121* , GETDATA+127*, GETDATA+133* |