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* |