Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VAFHLEVN

VAFHLEVN.m

Go to the documentation of this file.
  1. VAFHLEVN ;ALB/CM/ESD HL7 EVN SEGMENT BUILDING ;05/01/95
  1. ;;5.3;Registration;**94,220,190**;Aug 13, 1993
  1. ;
  1. ;This routine will build an HL7 EVN segment
  1. ;
  1. EVN(TYPE,FLAG,VAEVDT) ;
  1. ;
  1. ;Input:
  1. ;TYPE - the HL7 Event Type
  1. ;FLAG - HL7 Event Reason Code
  1. ; The codes will be 04 for update to "old" event
  1. ; or 05 for "new"/"current" event
  1. ;VAEVDT - Event Date/Time [Optional]
  1. ;
  1. N ET,EVN
  1. D NOW^%DTC S ET=$$HLDATE^HLFNC(%,"TS") K %,X,%H,%I
  1. S EVN="EVN"_HLFS_TYPE_HLFS_ET_HLFS_HLFS_FLAG
  1. S VAEVDT=$G(VAEVDT) I +VAEVDT'>0 S VAEVDT=$G(VAFHDT)
  1. I +VAEVDT>0 S EVN=EVN_HLFS_HLFS_$$HLDATE^HLFNC(VAEVDT,"TS")
  1. Q EVN
  1. ;
  1. ;
  1. EN(VAFEVTYP,VAFEVDT,VAFSTR,VAFHLQ,VAFHLFS) ;
  1. ; Entry point for Ambulatory Care Database Project
  1. ;
  1. ; Entry point to return the HL7 EVN (Event Type) segment
  1. ;
  1. ; Input: VAFEVTYP - Event Type Code
  1. ; VAFEVDT - Event Date/Time
  1. ; Date/Time Event Occurred (same as Encounter Date/Time)
  1. ;
  1. ; VAFSTR - String of fields requested separated by commas.
  1. ;
  1. ; VAFHLQ - Optional HL7 null variable. If not there, use
  1. ; default HL7 variable.
  1. ;
  1. ; VAFHLFS - Optional HL7 field separator. If not there, use
  1. ; default HL7 variable.
  1. ;
  1. ; Output: String containing desired components of the EVN segment.
  1. ;
  1. ;
  1. N VAFY,X
  1. ;I ($G(VAFEVTYP)="")!($G(VAFSTR)="") G ENQ
  1. S:$G(VAFSTR)="" VAFSTR="1,2"
  1. S VAFHLQ=$S($D(VAFHLQ):VAFHLQ,1:$G(HLQ)),VAFHLFS=$S($D(VAFHLFS):VAFHLFS,1:$G(HLFS)) ; If VAFHLQ or VAFHLFS aren't passed in, use default HL7 variables
  1. S $P(VAFY,VAFHLFS,2)="",VAFSTR=","_VAFSTR_","
  1. I VAFSTR[",1," S $P(VAFY,VAFHLFS,1)=$G(VAFEVTYP) ; Event Type Code
  1. I VAFSTR[",2," S X=$$HLDATE^HLFNC($G(VAFEVDT)),$P(VAFY,VAFHLFS,2)=$S(X]"":X,1:VAFHLQ) ; Event Date/Time
  1. ;
  1. ENQ ; Return segment
  1. Q "EVN"_VAFHLFS_$G(VAFY)