MDCA03 ;HINES OIFO/DP/BJ/TJ - HL7 Build Discharge/End Visit (A03) Message;21-JUN-2007
;;1.0;CLINICAL PROCEDURES;**16,12**;Apr 01, 2004;Build 318
; Per VHA Directive 2004-038, this routine should not be modified.
;
VALID ;;VDEF HL7 MESSAGE BUILDER
Q
;
EN(KEY,VFLAG,OUT,MSHP) ;
;
; Inputs:
; KEY - IEN of file to create message from
; VFLAG - "V" for VistA HL7 destination
; OUT - target array, passed by reference
; MSHP - Piece 4 contains message subtype
;
; Output: Two part string with parts separated by "^"
; Part 1: "LM" - output in local array passed in "OUT" parameter
; "GM" - output in ^TMP("HLS",$J)
; Part 2: No longer used ;
;
;
Q $$BLDMSG^MDCADT(KEY,VFLAG,.OUT,MSHP,"A03")
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDCA03 802 printed Sep 23, 2025@19:18:13 Page 2
MDCA03 ;HINES OIFO/DP/BJ/TJ - HL7 Build Discharge/End Visit (A03) Message;21-JUN-2007
+1 ;;1.0;CLINICAL PROCEDURES;**16,12**;Apr 01, 2004;Build 318
+2 ; Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
VALID ;;VDEF HL7 MESSAGE BUILDER
+1 QUIT
+2 ;
EN(KEY,VFLAG,OUT,MSHP) ;
+1 ;
+2 ; Inputs:
+3 ; KEY - IEN of file to create message from
+4 ; VFLAG - "V" for VistA HL7 destination
+5 ; OUT - target array, passed by reference
+6 ; MSHP - Piece 4 contains message subtype
+7 ;
+8 ; Output: Two part string with parts separated by "^"
+9 ; Part 1: "LM" - output in local array passed in "OUT" parameter
+10 ; "GM" - output in ^TMP("HLS",$J)
+11 ; Part 2: No longer used ;
+12 ;
+13 ;
+14 QUIT $$BLDMSG^MDCADT(KEY,VFLAG,.OUT,MSHP,"A03")
+15 ;
