Print Page as PDF
DBIA4141-D ICR (4495)

DBIA4141-D    ICR (4495)

Name Value
NUMBER 4495
IA # 4495
DATE CREATED 2004/08/04
CUSTODIAL PACKAGE REGISTRATION
CUSTODIAL ISC Dallas
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE VAFHLZMH
NAME DBIA4141-D
GENERAL DESCRIPTION 
Supported call for building of HL7 ZMH segment (VA
Specific Military History Segment).
STATUS Active
KEYWORDS
  • ZMH
  • VAFHLZMH
DURATION Till Otherwise Agreed
ID VAFHLZMH
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
ENTER(DFN,VAFARRAY,VAFTYPE,VAFSTR,VAFHLS,VAFHLC,VAFHLQ) 

This call is designed to build HL7 ZMH segment. This segment
contains VA- specific Military History types VAFTYPE and for each
of them different indentifiers can be generated. "ZMH" segments
(up to 13) are returned in VAFARRAY array, default is
^TMP("VAFHLZMH",$J)
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Input 
DFN - pointer to PATIENT file  (#2) - is the only
required parameter. Defaults
are used if no values are passed for the other parameters
VAFTYPE Input 

; VAFTYPE = Military History type desired (separated by commas) where
;            1=Last Service branch (SL)
;            2=Next to last Service branch (SNL)
;            3=Next to next to last Service branch (SNNL)
;            4=Prisoner of War Status indicated? (POW)
;            5=Combat Service indicated? (COMB)
;            6=Vietnam Service indicated? (VIET)
;            7=Lebanon Service indicated? (LEBA)
;            8=Grenada Service indicated? (GREN)
;            9=Panama Service indicated? (PANA)
;           10=Persian Gulf Service indicated? (GULF)
;           11=Somalia Service indicated? (SOMA)
;           12=Yugoslavia Service indicated? (YUGO)
;           13=Purple Heart Receipient? (PH)
;          A range of numbers separated by colons can be sent
;                  (e.g. 1:4,8,10:12)
;          Default is all 12 (1,2,3...)
VAFSTR Input 

; VAFSTR = Fields (sequence numbers) desired (separated by comma)
where
;          3=qualifier #1 (Service branch if VAFTYPE is 1,2 or 3
;                         or Yes/No response if VAFTYPE is 4 thru 13)
;            qualifier #2 (Service number if VAFTYPE is 1,2 or 3
;                         or Location if VAFTYPE is 4 or 5)
;                         or
;            qualifier #3 (Service discharge type if VAFTYPE is 1,2
;                          or 3)
;          4=From/To Date range for each VAFTYPE
;          Default is 3,4
VAFHLS Input 

; VAFHLS = HL7 field separator (1 character)
;          Default is ^ (carrot)
VAFHLC Input 

; VAFHLC = HL7 encoding characters (4 characters must be supplied)
;          Default is ~|\& (tilde bar backslash ampersand)
VAFHLQ Input 

; VAFHLQ = HL7 null designation
;          Default is "" (quote quote)
VAFARRAY Output 
rray name to hold the "ZMH" segments (up to 13).
Default is ^TMP("VAFHLZMH",$J)
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC SUBSCRIBING DETAILS
SCHEDULING Albany 
We would like to build ZMH segment for the following
Types:
SL
COMB
GULF

The following sequences would be transmitted: SL: Service Separation Date
[Last] (.327)

COMB: Combat Service Indicated (.5291)
Combat Service Location (.5292) GULF:  Persian Gulf Service (.32201)