- 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 Jan 18, 2025@02:43:28 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 ;