DG53182P ;ALB/SEK/DHH - Post-Install Driver for DG*5.3*182; 07/08/99
;;5.3;Registration;**182**;08/13/93
;
;
EN ;this entry point is used as a driver for post-installation updates.
D POP
D MTSRCE
D HL7713
D LINK
D NOTIFY
Q
;
;
NOTIFY ; Description: This function will generate a notification message
; that the facility has installed the patch in a production account.
;
N DIFROM,DGNOW,DGSITE,DGTEXT,SERVLINE,XMTEXT,XMSUB,XMDUZ,XMY,Y,%
;
; if not in production account, do not send notification message (exit)
;
;Quit if not VA production primary domain
I $G(^XMB("NETNAME"))'[".DOMAIN.EXT" Q
X ^%ZOSF("UCI") S %=^%ZOSF("PROD")
S:%'["," Y=$P(Y,",")
I Y'=% Q
;
D BMES^XPDUTL(">>> Sending a 'completed installation' notification to the HEC...")
;
S DGSITE=$$SITE^VASITE ; get facility name/station #
S DGNOW=$$NOW^XLFDT ; current date/time
;
S XMSUB="Patch DG*5.3*182 Installed "_"("_$P(DGSITE,"^",3)_")" ; subj
S XMDUZ="REGISTRATION PACKAGE" ; sender
S XMY(DUZ)="",XMY(.5)="" ; local recipients
S XMY("G.IRM SOFTWARE SECTION@IVM.DOMAIN.EXT")="" ; remote recipient
S XMY("S.AYC PATCH SERVER@IVM.DOMAIN.EXT")="" ; remote server option
;
; notification msg text
S XMTEXT="DGTEXT("
S SERVLINE="PATCHID:DG*5.3*182|"_$P(DGSITE,"^",3)_"|"_DGNOW
S DGTEXT(1)=SERVLINE
S DGTEXT(2)=""
S DGTEXT(3)=""
S DGTEXT(4)=""
S DGTEXT(5)=" Facility Name: "_$P(DGSITE,"^",2)
S DGTEXT(6)=" Station Number: "_$P(DGSITE,"^",3)
S DGTEXT(7)=""
S DGTEXT(8)=" Installed DG*5.3*182 patch on: "_$$FMTE^XLFDT(DGNOW)
;
D ^XMD
;
D BMES^XPDUTL(" Notification message sent.")
Q
;
;
LINK ;
;link protocol IVM FINANCIAL QUERY FOR ADMISSION to the
;DGPM MOVEMENT EVENTS menu
;
N DGPROT,IVMPROT,DATA,FOUND,IEN,ERROR
S DGPROT=$O(^ORD(101,"B","DGPM MOVEMENT EVENTS",0))
S IVMPROT=$O(^ORD(101,"B","IVM FINANCIAL QUERY FOR ADMISSION",0))
I ('IVMPROT)!('DGPROT) D MES^XPDUTL("UNABLE TO LINK 'IVM FINANCIAL QUERY FOR ADMISSION' PROTOTOCOL TO 'DGPM MOVEMENT EVENTS' PROTOCOL") Q
S (DA,FOUND)=0
F S DA=$O(^ORD(101,DGPROT,10,DA)) Q:'DA I +$G(^ORD(101,DGPROT,10,DA,0))=IVMPROT S FOUND=1 Q
I 'FOUND D
.S DATA(.01)=IVMPROT
.D MES^XPDUTL("LINKING 'IVM FINANCIAL QUERY FOR ADMISSION' PROTOTOCOL TO 'DGPM MOVEMENT EVENTS' PROTOCOL")
.S DA(1)=DGPROT
.I '$$ADD^DGENDBS(101.01,.DA,.DATA,.ERROR) D BMES^XPDUTL(.ERROR)
Q
;
POP ;populate new mail group, DGMT MT/CT UPLOAD ALERT, the same as in the
;local DGEN ELIGIBILITY ALERT mail group.
N DGMT,DGEL,DGENDA,DATA,MEM,TXT,SEG
I '$D(^XMB(3.8,"B","DGMT MT/CT UPLOAD ALERTS")) D ERRMSG G QUIT
I '$D(^XMB(3.8,"B","DGEN ELIGIBILITY ALERT")) D ERRMSG G QUIT
S DGMT=$O(^XMB(3.8,"B","DGMT MT/CT UPLOAD ALERTS",0))
S DGEL=$O(^XMB(3.8,"B","DGEN ELIGIBILITY ALERT",0))
Q:$O(^XMB(3.8,DGMT,1,0))
Q:$O(^XMB(3.8,DGMT,5,0))
Q:$O(^XMB(3.8,DGMT,7,0))
D STRTMSG
S DGENDA=DGMT
S DATA(5)=$P($G(^XMB(3.8,DGEL,3)),U)
S DATA(5.1)=$P($G(^XMB(3.8,DGEL,0)),U,7)
S Y=$$UPD^DGENDBS(3.8,DGENDA,.DATA)
;
;--Add multiple entries
;
S TXT=1 F S SEG=$P($T(SEGMT+TXT),";;",2) Q:SEG="" D
.S TXT=TXT+1
.N FILE,NODE,DATA,Y
.S FILE=$P(SEG,U),NODE=$P(SEG,U,2)
.S DGENDA(1)=DGMT
.S MEM=0 F S MEM=$O(^XMB(3.8,DGEL,NODE,MEM)) Q:'MEM D
.. Q:'$D(^XMB(3.8,DGEL,1,MEM,0))
.. N DATA
.. S DATA(.01)=$P(^XMB(3.8,DGEL,NODE,MEM,0),U)
.. S Y=$$ADD^DGENDBS(FILE,.DGENDA,.DATA)
.. I Y="" S NOGO(NODE)=""
D
.I $D(NOGO) D ERRMSG Q
.D OKAY
QUIT ;
Q
;
;
SEGMT ; equals ;;file or subfile #^ node
;;3.81^1^mail group members
;;3.802^4^authorized sender
;;3.811^5^member groups
;;3.812^6^members - remote
;;3.813^7^distribution list
;;3.814^8^fax recipient
;;3.815^9^fax group
;;
Q
ERRMSG ; Display an error message via kids
S ERRMSG(1)="Error in populating DGMT MT/CT UPLOAD ALERTS mail group"
S ERRMSG(2)="from DGEN ELIGIBILITY ALERT. Please enter manually."
D BMES^XPDUTL(" ")
D MES^XPDUTL(.ERRMSG)
Q
OKAY ; Display a message for mailgroup transfer
S MSG(1)="DGEN ELIGIBILITY ALERT mail group contents were successfully transferred "
S MSG(2)="to DGMT MT/CT UPLOAD ALERTS mail group."
D BMES^XPDUTL(" ")
D MES^XPDUTL(.MSG)
Q
STRTMSG ;Starting of mailgroup copy message
S MSG(1)="Starting to transfer entries from DGEN ELIGIBILITY ALERT mail group"
S MSG(2)="to DGMT MT/CT UPLOAD ALERTS mail group."
D BMES^XPDUTL(" ")
D MES^XPDUTL(.MSG)
Q
;
;
MTSRCE ; Add entries to the SOURCE OF INCOME TEST (#408.34) file
D BMES^XPDUTL(">>> Adding new entries to SOURCE OF INCOME TEST (#408.34) file")
;
; - if entries already there, display msg and quit
I $O(^DG(408.34,"B","DCD",0)),$O(^DG(408.34,"B","OTHER FACILITY",0)) D Q
.D MES^XPDUTL(" *** Entries already on file - current values not overwritten ***")
;
; - add new entries to (#408.34) file
F IVMX="DCD","OTHER FACILITY" D
.Q:$O(^DG(408.34,"B",IVMX,0))
.S DIC="^DG(408.34,",DIC(0)="",DLAYGO=408.34,X=IVMX
.K DD,DO D FILE^DICN
.S (DA,IVMCSPTR)=+Y
.;
.; - set TEST IS EDITABLE? (#.02) field to 0
.S DIE=DIC,DR=".02////0" D ^DIE
.;
.; - set description node
.D DESC
;
D MES^XPDUTL(" Entries have been added")
;
MTSRCEQ K %,DA,DIC,DIE,DLAYGO,DR,IVMCSPTR,IVMX,X,Y
Q
;
;
DESC ; - set description node (called from MTSRCE)
I IVMX="DCD" D
.S ^DG(408.34,IVMCSPTR,"DESC",0)="^^4^4^"_DT_"^^"
.S ^DG(408.34,IVMCSPTR,"DESC",1,0)="Income tests from DCD are those that were conducted by the Data"
.S ^DG(408.34,IVMCSPTR,"DESC",2,0)="Collection Division of the IVM Center. These tests are electronically"
.S ^DG(408.34,IVMCSPTR,"DESC",3,0)="transmitted to the site and automatically uploaded upon receipt."
.S ^DG(408.34,IVMCSPTR,"DESC",4,0)="They are not editable by the site."
;
; - set description node OTHER FACILITY entry
I IVMX="OTHER FACILITY" D
.S ^DG(408.34,IVMCSPTR,"DESC",0)="^^7^7^"_DT_"^^"
.S ^DG(408.34,IVMCSPTR,"DESC",1,0)="Income tests which are conducted at other facilities may be routed"
.S ^DG(408.34,IVMCSPTR,"DESC",2,0)="to your site through the IVM Center. These tests are not editable"
.S ^DG(408.34,IVMCSPTR,"DESC",3,0)="at the site."
.S ^DG(408.34,IVMCSPTR,"DESC",4,0)=""
.S ^DG(408.34,IVMCSPTR,"DESC",5,0)="If the test source is Other Facility, then the actual site which"
.S ^DG(408.34,IVMCSPTR,"DESC",6,0)="conducted the test will be stored in the SITE CONDUCTING TEST (#.27)"
.S ^DG(408.34,IVMCSPTR,"DESC",7,0)="field of the ANNUAL MEANS TEST (#408.31) file."
Q
;
;
HL7713 ; Add HL7 segments HL7 SEGMENT NAME file (#771.3)
D BMES^XPDUTL(">>> Adding 'Z' segments to HL7 SEGMENT NAME (#771.3) file")
S IVMCFLG=0
F IVMCI=1:1 S IVMCTXT=$P($T(SEG+IVMCI),";;",2) Q:IVMCTXT="QUIT" D
.S X=$P(IVMCTXT,"^",1) I $O(^HL(771.3,"B",X,0)) Q
.S (DIK,DIC)="^HL(771.3,",DIC(0)="L",DLAYGO=771.3
.K DD,DO,DINUM D FILE^DICN S DA=+Y
.L +^HL(771.3,DA) S ^HL(771.3,DA,0)=IVMCTXT D IX1^DIK L -^HL(771.3,DA)
.S IVMCFLG=1
.S IVMLINE=" "_$P(IVMCTXT,"^",1)_" ("_$P(IVMCTXT,"^",2)_") segment added."
.D MES^XPDUTL(IVMLINE)
;
I 'IVMCFLG D MES^XPDUTL(" *** HL7 'Z' segments already exist - none added ***")
;
HL7713Q K DA,DIC,DIK,DLAYGO,IVMCFLG,IVMCI,IVMCTXT
Q
;
;
SEG ; list of segments for HL7 SEGMENT file
;;ZBT^VA Beneficiary Travel^1
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53182P 7373 printed Dec 13, 2024@02:36:30 Page 2
DG53182P ;ALB/SEK/DHH - Post-Install Driver for DG*5.3*182; 07/08/99
+1 ;;5.3;Registration;**182**;08/13/93
+2 ;
+3 ;
EN ;this entry point is used as a driver for post-installation updates.
+1 DO POP
+2 DO MTSRCE
+3 DO HL7713
+4 DO LINK
+5 DO NOTIFY
+6 QUIT
+7 ;
+8 ;
NOTIFY ; Description: This function will generate a notification message
+1 ; that the facility has installed the patch in a production account.
+2 ;
+3 NEW DIFROM,DGNOW,DGSITE,DGTEXT,SERVLINE,XMTEXT,XMSUB,XMDUZ,XMY,Y,%
+4 ;
+5 ; if not in production account, do not send notification message (exit)
+6 ;
+7 ;Quit if not VA production primary domain
+8 IF $GET(^XMB("NETNAME"))'[".DOMAIN.EXT"
QUIT
+9 XECUTE ^%ZOSF("UCI")
SET %=^%ZOSF("PROD")
+10 if %'[","
SET Y=$PIECE(Y,",")
+11 IF Y'=%
QUIT
+12 ;
+13 DO BMES^XPDUTL(">>> Sending a 'completed installation' notification to the HEC...")
+14 ;
+15 ; get facility name/station #
SET DGSITE=$$SITE^VASITE
+16 ; current date/time
SET DGNOW=$$NOW^XLFDT
+17 ;
+18 ; subj
SET XMSUB="Patch DG*5.3*182 Installed "_"("_$PIECE(DGSITE,"^",3)_")"
+19 ; sender
SET XMDUZ="REGISTRATION PACKAGE"
+20 ; local recipients
SET XMY(DUZ)=""
SET XMY(.5)=""
+21 ; remote recipient
SET XMY("G.IRM SOFTWARE SECTION@IVM.DOMAIN.EXT")=""
+22 ; remote server option
SET XMY("S.AYC PATCH SERVER@IVM.DOMAIN.EXT")=""
+23 ;
+24 ; notification msg text
+25 SET XMTEXT="DGTEXT("
+26 SET SERVLINE="PATCHID:DG*5.3*182|"_$PIECE(DGSITE,"^",3)_"|"_DGNOW
+27 SET DGTEXT(1)=SERVLINE
+28 SET DGTEXT(2)=""
+29 SET DGTEXT(3)=""
+30 SET DGTEXT(4)=""
+31 SET DGTEXT(5)=" Facility Name: "_$PIECE(DGSITE,"^",2)
+32 SET DGTEXT(6)=" Station Number: "_$PIECE(DGSITE,"^",3)
+33 SET DGTEXT(7)=""
+34 SET DGTEXT(8)=" Installed DG*5.3*182 patch on: "_$$FMTE^XLFDT(DGNOW)
+35 ;
+36 DO ^XMD
+37 ;
+38 DO BMES^XPDUTL(" Notification message sent.")
+39 QUIT
+40 ;
+41 ;
LINK ;
+1 ;link protocol IVM FINANCIAL QUERY FOR ADMISSION to the
+2 ;DGPM MOVEMENT EVENTS menu
+3 ;
+4 NEW DGPROT,IVMPROT,DATA,FOUND,IEN,ERROR
+5 SET DGPROT=$ORDER(^ORD(101,"B","DGPM MOVEMENT EVENTS",0))
+6 SET IVMPROT=$ORDER(^ORD(101,"B","IVM FINANCIAL QUERY FOR ADMISSION",0))
+7 IF ('IVMPROT)!('DGPROT)
DO MES^XPDUTL("UNABLE TO LINK 'IVM FINANCIAL QUERY FOR ADMISSION' PROTOTOCOL TO 'DGPM MOVEMENT EVENTS' PROTOCOL")
QUIT
+8 SET (DA,FOUND)=0
+9 FOR
SET DA=$ORDER(^ORD(101,DGPROT,10,DA))
if 'DA
QUIT
IF +$GET(^ORD(101,DGPROT,10,DA,0))=IVMPROT
SET FOUND=1
QUIT
+10 IF 'FOUND
Begin DoDot:1
+11 SET DATA(.01)=IVMPROT
+12 DO MES^XPDUTL("LINKING 'IVM FINANCIAL QUERY FOR ADMISSION' PROTOTOCOL TO 'DGPM MOVEMENT EVENTS' PROTOCOL")
+13 SET DA(1)=DGPROT
+14 IF '$$ADD^DGENDBS(101.01,.DA,.DATA,.ERROR)
DO BMES^XPDUTL(.ERROR)
End DoDot:1
+15 QUIT
+16 ;
POP ;populate new mail group, DGMT MT/CT UPLOAD ALERT, the same as in the
+1 ;local DGEN ELIGIBILITY ALERT mail group.
+2 NEW DGMT,DGEL,DGENDA,DATA,MEM,TXT,SEG
+3 IF '$DATA(^XMB(3.8,"B","DGMT MT/CT UPLOAD ALERTS"))
DO ERRMSG
GOTO QUIT
+4 IF '$DATA(^XMB(3.8,"B","DGEN ELIGIBILITY ALERT"))
DO ERRMSG
GOTO QUIT
+5 SET DGMT=$ORDER(^XMB(3.8,"B","DGMT MT/CT UPLOAD ALERTS",0))
+6 SET DGEL=$ORDER(^XMB(3.8,"B","DGEN ELIGIBILITY ALERT",0))
+7 if $ORDER(^XMB(3.8,DGMT,1,0))
QUIT
+8 if $ORDER(^XMB(3.8,DGMT,5,0))
QUIT
+9 if $ORDER(^XMB(3.8,DGMT,7,0))
QUIT
+10 DO STRTMSG
+11 SET DGENDA=DGMT
+12 SET DATA(5)=$PIECE($GET(^XMB(3.8,DGEL,3)),U)
+13 SET DATA(5.1)=$PIECE($GET(^XMB(3.8,DGEL,0)),U,7)
+14 SET Y=$$UPD^DGENDBS(3.8,DGENDA,.DATA)
+15 ;
+16 ;--Add multiple entries
+17 ;
+18 SET TXT=1
FOR
SET SEG=$PIECE($TEXT(SEGMT+TXT),";;",2)
if SEG=""
QUIT
Begin DoDot:1
+19 SET TXT=TXT+1
+20 NEW FILE,NODE,DATA,Y
+21 SET FILE=$PIECE(SEG,U)
SET NODE=$PIECE(SEG,U,2)
+22 SET DGENDA(1)=DGMT
+23 SET MEM=0
FOR
SET MEM=$ORDER(^XMB(3.8,DGEL,NODE,MEM))
if 'MEM
QUIT
Begin DoDot:2
+24 if '$DATA(^XMB(3.8,DGEL,1,MEM,0))
QUIT
+25 NEW DATA
+26 SET DATA(.01)=$PIECE(^XMB(3.8,DGEL,NODE,MEM,0),U)
+27 SET Y=$$ADD^DGENDBS(FILE,.DGENDA,.DATA)
+28 IF Y=""
SET NOGO(NODE)=""
End DoDot:2
End DoDot:1
+29 Begin DoDot:1
+30 IF $DATA(NOGO)
DO ERRMSG
QUIT
+31 DO OKAY
End DoDot:1
QUIT ;
+1 QUIT
+2 ;
+3 ;
SEGMT ; equals ;;file or subfile #^ node
+1 ;;3.81^1^mail group members
+2 ;;3.802^4^authorized sender
+3 ;;3.811^5^member groups
+4 ;;3.812^6^members - remote
+5 ;;3.813^7^distribution list
+6 ;;3.814^8^fax recipient
+7 ;;3.815^9^fax group
+8 ;;
+9 QUIT
ERRMSG ; Display an error message via kids
+1 SET ERRMSG(1)="Error in populating DGMT MT/CT UPLOAD ALERTS mail group"
+2 SET ERRMSG(2)="from DGEN ELIGIBILITY ALERT. Please enter manually."
+3 DO BMES^XPDUTL(" ")
+4 DO MES^XPDUTL(.ERRMSG)
+5 QUIT
OKAY ; Display a message for mailgroup transfer
+1 SET MSG(1)="DGEN ELIGIBILITY ALERT mail group contents were successfully transferred "
+2 SET MSG(2)="to DGMT MT/CT UPLOAD ALERTS mail group."
+3 DO BMES^XPDUTL(" ")
+4 DO MES^XPDUTL(.MSG)
+5 QUIT
STRTMSG ;Starting of mailgroup copy message
+1 SET MSG(1)="Starting to transfer entries from DGEN ELIGIBILITY ALERT mail group"
+2 SET MSG(2)="to DGMT MT/CT UPLOAD ALERTS mail group."
+3 DO BMES^XPDUTL(" ")
+4 DO MES^XPDUTL(.MSG)
+5 QUIT
+6 ;
+7 ;
MTSRCE ; Add entries to the SOURCE OF INCOME TEST (#408.34) file
+1 DO BMES^XPDUTL(">>> Adding new entries to SOURCE OF INCOME TEST (#408.34) file")
+2 ;
+3 ; - if entries already there, display msg and quit
+4 IF $ORDER(^DG(408.34,"B","DCD",0))
IF $ORDER(^DG(408.34,"B","OTHER FACILITY",0))
Begin DoDot:1
+5 DO MES^XPDUTL(" *** Entries already on file - current values not overwritten ***")
End DoDot:1
QUIT
+6 ;
+7 ; - add new entries to (#408.34) file
+8 FOR IVMX="DCD","OTHER FACILITY"
Begin DoDot:1
+9 if $ORDER(^DG(408.34,"B",IVMX,0))
QUIT
+10 SET DIC="^DG(408.34,"
SET DIC(0)=""
SET DLAYGO=408.34
SET X=IVMX
+11 KILL DD,DO
DO FILE^DICN
+12 SET (DA,IVMCSPTR)=+Y
+13 ;
+14 ; - set TEST IS EDITABLE? (#.02) field to 0
+15 SET DIE=DIC
SET DR=".02////0"
DO ^DIE
+16 ;
+17 ; - set description node
+18 DO DESC
End DoDot:1
+19 ;
+20 DO MES^XPDUTL(" Entries have been added")
+21 ;
MTSRCEQ KILL %,DA,DIC,DIE,DLAYGO,DR,IVMCSPTR,IVMX,X,Y
+1 QUIT
+2 ;
+3 ;
DESC ; - set description node (called from MTSRCE)
+1 IF IVMX="DCD"
Begin DoDot:1
+2 SET ^DG(408.34,IVMCSPTR,"DESC",0)="^^4^4^"_DT_"^^"
+3 SET ^DG(408.34,IVMCSPTR,"DESC",1,0)="Income tests from DCD are those that were conducted by the Data"
+4 SET ^DG(408.34,IVMCSPTR,"DESC",2,0)="Collection Division of the IVM Center. These tests are electronically"
+5 SET ^DG(408.34,IVMCSPTR,"DESC",3,0)="transmitted to the site and automatically uploaded upon receipt."
+6 SET ^DG(408.34,IVMCSPTR,"DESC",4,0)="They are not editable by the site."
End DoDot:1
+7 ;
+8 ; - set description node OTHER FACILITY entry
+9 IF IVMX="OTHER FACILITY"
Begin DoDot:1
+10 SET ^DG(408.34,IVMCSPTR,"DESC",0)="^^7^7^"_DT_"^^"
+11 SET ^DG(408.34,IVMCSPTR,"DESC",1,0)="Income tests which are conducted at other facilities may be routed"
+12 SET ^DG(408.34,IVMCSPTR,"DESC",2,0)="to your site through the IVM Center. These tests are not editable"
+13 SET ^DG(408.34,IVMCSPTR,"DESC",3,0)="at the site."
+14 SET ^DG(408.34,IVMCSPTR,"DESC",4,0)=""
+15 SET ^DG(408.34,IVMCSPTR,"DESC",5,0)="If the test source is Other Facility, then the actual site which"
+16 SET ^DG(408.34,IVMCSPTR,"DESC",6,0)="conducted the test will be stored in the SITE CONDUCTING TEST (#.27)"
+17 SET ^DG(408.34,IVMCSPTR,"DESC",7,0)="field of the ANNUAL MEANS TEST (#408.31) file."
End DoDot:1
+18 QUIT
+19 ;
+20 ;
HL7713 ; Add HL7 segments HL7 SEGMENT NAME file (#771.3)
+1 DO BMES^XPDUTL(">>> Adding 'Z' segments to HL7 SEGMENT NAME (#771.3) file")
+2 SET IVMCFLG=0
+3 FOR IVMCI=1:1
SET IVMCTXT=$PIECE($TEXT(SEG+IVMCI),";;",2)
if IVMCTXT="QUIT"
QUIT
Begin DoDot:1
+4 SET X=$PIECE(IVMCTXT,"^",1)
IF $ORDER(^HL(771.3,"B",X,0))
QUIT
+5 SET (DIK,DIC)="^HL(771.3,"
SET DIC(0)="L"
SET DLAYGO=771.3
+6 KILL DD,DO,DINUM
DO FILE^DICN
SET DA=+Y
+7 LOCK +^HL(771.3,DA)
SET ^HL(771.3,DA,0)=IVMCTXT
DO IX1^DIK
LOCK -^HL(771.3,DA)
+8 SET IVMCFLG=1
+9 SET IVMLINE=" "_$PIECE(IVMCTXT,"^",1)_" ("_$PIECE(IVMCTXT,"^",2)_") segment added."
+10 DO MES^XPDUTL(IVMLINE)
End DoDot:1
+11 ;
+12 IF 'IVMCFLG
DO MES^XPDUTL(" *** HL7 'Z' segments already exist - none added ***")
+13 ;
HL7713Q KILL DA,DIC,DIK,DLAYGO,IVMCFLG,IVMCI,IVMCTXT
+1 QUIT
+2 ;
+3 ;
SEG ; list of segments for HL7 SEGMENT file
+1 ;;ZBT^VA Beneficiary Travel^1
+2 ;;QUIT
