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

VAFHLPV1.m

Go to the documentation of this file.
  1. VAFHLPV1 ;ALB/CM/ESD HL7 PV1 SEGMENT BUILDING ;06/08/00
  1. ;;5.3;Registration;**94,106,151,298,617**;Aug 13, 1993
  1. ;
  1. ;This routine will build an HL7 PV1 segment for an inpatient or
  1. ;outpatient event depending on the entry point used.
  1. ;Use IN for inpatient
  1. ;Use OUT for outpatient
  1. ;
  1. IN(DFN,VAFHDT,VAFSTR,IEN,PIVOT,SETID,VAFDIAG) ;
  1. N RESULT
  1. S RESULT=$$EN^VAFHAPV1(DFN,VAFHDT,VAFSTR,IEN,PIVOT,SETID,.VAFDIAG)
  1. Q $G(RESULT)
  1. ;
  1. OUT(DFN,EVT,EVDTS,VPTR,STRP,NUMP) ;
  1. ;DFN - Patient File
  1. ;EVT - event number from pivot file
  1. ;EVDTS - event date/time in FileMan format
  1. ;VPTR - variable pointer
  1. ;STRP - string of fields (if null - required fields, if "A" - supported
  1. ;fields, or string of fields seperated by commas")
  1. ;NUMP - ID # (optional)
  1. ;
  1. N ERR
  1. I '$D(NUMP) S NUMP=1
  1. S ERR=$$OPV1^VAFHCPV($G(DFN),$G(EVT),$G(EVDTS),$G(VPTR),$G(STRP),NUMP)
  1. Q ERR
  1. KVAR ;
  1. K VAFHLPV1
  1. Q
  1. ;
  1. EN(VAFENC,VAFDENC,VAFSTR,VAFNUM,VAFHLQ,VAFHLFS) ;
  1. ; Entry point for Ambulatory Care Database Project
  1. ;
  1. ; Entry point to return the HL7 PV1 (Patient Visit) segment
  1. ;
  1. ; Input: VAFENC - Outpatient Encounter IEN (pointer to Outpatient
  1. ; Encounter file #409.68)
  1. ;
  1. ; VAFDENC - Deleted Outpatient Encounter IEN (pointer to
  1. ; Deleted Outpatient Encounter file #409.74)
  1. ;
  1. ; VAFSTR - String of fields requested separated by commas
  1. ;
  1. ; VAFNUM - Set ID (sequential number - default=1)
  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 PV1 segment
  1. ;
  1. ; NOTE: Data for the PV1 segment will be retrieved from either the
  1. ; Outpatient Encounter file (#409.68) or Deleted Outpatient
  1. ; Encounter (#409.74) based on the pointer parameter passed in.
  1. ;
  1. ;06/08/2000 ACS - AMBCARE PV1 CHANGES:
  1. ; 1. SET UP HL7 DEFAULT VARIABLES AT BEGINNING OF SUBROUTINE.
  1. ; 2. VALIDATE EXISTENCE OF AMBCARE ENCOUNTER.
  1. ; 3. ALWAYS RETURN PATIENT CLASS IN SEGMENT.
  1. ;
  1. ;
  1. N VAFAPTYP,VAFCLIN,VAFDAT,VAFDFN,VAFFLG,VAFNODE,VAFNODE1,VAFORIG,VAFPTCL,VAFY,X,VAINVENC,VAFPSTAT,VAFPIN
  1. ;
  1. ; - If VAFHLQ or VAFHLFS aren't passed in, use default HL7 variables.
  1. S VAFHLQ=$S($D(VAFHLQ):VAFHLQ,1:$G(HLQ)),VAFHLFS=$S($D(VAFHLFS):VAFHLFS,1:$G(HLFS))
  1. ;
  1. ;- Sequential Number
  1. S $P(VAFY,VAFHLFS,1)=$S($G(VAFNUM):VAFNUM,1:1)
  1. ;
  1. S VAFPTCL="O" ; Patient Class = Outpatient
  1. ;
  1. ;- Set patient class in segment
  1. S $P(VAFY,VAFHLFS,2)=VAFPTCL
  1. ;
  1. ;- If encounter or variable string missing, pass back incomplete segment
  1. I ($G(VAFENC)=""&($G(VAFDENC)=""))!($G(VAFSTR)="") G ENQ
  1. ;
  1. ; - If regular encounter doesn't exist, pass back incomplete segment
  1. I $G(VAFENC) D G:$G(VAINVENC) ENQ
  1. . I '$D(^SCE($G(VAFENC))) S VAINVENC=1
  1. ;
  1. ; - If deleted encounter doesn't exist, pass back incomplete segment
  1. I $G(VAFDENC) D G:$G(VAINVENC) ENQ
  1. . I '$D(^SD(409.74,$G(VAFDENC))) S VAINVENC=1
  1. ;
  1. S VAFENC=+$G(VAFENC),VAFDENC=+$G(VAFDENC)
  1. S $P(VAFY,VAFHLFS,50)="",VAFSTR=","_VAFSTR_","
  1. ;
  1. ; - Set flag to indicate whether Outpatient Encounter ("E") or Deleted
  1. ; Outpatient Encounter ("D").
  1. S VAFFLG=$S(VAFENC:"E",1:"D")
  1. ;
  1. I VAFFLG="E" S VAFNODE=$$SCE^DGSDU(VAFENC)
  1. ;
  1. ; - VAFNODE1 = old encounter zero node for deleted encounter
  1. I VAFFLG="D" D
  1. . S VAFNODE=$G(^SD(409.74,VAFDENC,0))
  1. . S VAFNODE1=$G(^SD(409.74,VAFDENC,1))
  1. ;
  1. ;- Reset patient class/status if Inpatient
  1. S VAFPSTAT=$$INPATENC^SCDXUTL($S(VAFFLG="E":VAFENC,1:VAFDENC),$S(VAFFLG="E":1,1:2))
  1. I VAFPSTAT S VAFPTCL="I" S $P(VAFY,VAFHLFS,2)=VAFPTCL
  1. ;
  1. ;- Purpose of Visit
  1. I VAFSTR[",4," D
  1. . S VAFDAT=$P(VAFNODE,"^"),VAFDFN=$P(VAFNODE,"^",2)
  1. . S VAFCLIN=$S(VAFFLG="E":$P(VAFNODE,"^",4),1:$P(VAFNODE1,"^",4))
  1. . S VAFAPTYP=$S(VAFFLG="E":$P(VAFNODE,"^",10),1:$P(VAFNODE1,"^",10))
  1. . S X=$$POV^SCDXUTL0(VAFDFN,VAFDAT,VAFCLIN,VAFAPTYP)
  1. . I X="" D
  1. .. S VAFORIG=$S(VAFFLG="E":$P(VAFNODE,"^",8),1:$P(VAFNODE1,"^",8))
  1. .. S X=$S(VAFORIG=2:"04"_$S($L(VAFAPTYP)=1:"0"_VAFAPTYP,1:VAFAPTYP),VAFORIG=3:"02"_$S($L(VAFAPTYP)=1:"0"_VAFAPTYP,1:VAFAPTYP),1:"")
  1. . S $P(VAFY,VAFHLFS,4)=$S(X]"":X,1:VAFHLQ)
  1. ;
  1. ;- Location of Visit
  1. I VAFSTR[",14," D
  1. . S VAFCLIN=$S(VAFFLG="E":$P(VAFNODE,"^",4),1:$P(VAFNODE1,"^",4))
  1. . S X=$P($G(^SC(+VAFCLIN,0)),"^",19),X=$S(X="Y":1,X="N":6,1:"")
  1. . I X="" S VAFORIG=$S(VAFFLG="E":$P(VAFNODE,"^",8),1:$P(VAFNODE1,"^",8)),X=$S(VAFORIG=2!(VAFORIG=3):1,1:"")
  1. . S $P(VAFY,VAFHLFS,14)=$S(X]"":X,1:VAFHLQ)
  1. ;
  1. ;- Outpatient Encounter IEN (not passed for deleted outpat encounter)
  1. I VAFSTR[",19," S $P(VAFY,VAFHLFS,19)=$S(VAFFLG="E":VAFENC,1:VAFHLQ)
  1. ;
  1. ;- Facility Number and Suffix
  1. I VAFSTR[",39," D
  1. . ; add division parameter to $$SITE^VASITE call ; abr
  1. . S X=$S(VAFFLG="E":$$SITE^VASITE($P(VAFNODE,"^"),$P(VAFNODE,"^",11)),1:$$SITE^VASITE($P(VAFNODE1,"^"),$P(VAFNODE1,"^",11)))
  1. . S X=$P(X,"^",3)
  1. . S $P(VAFY,VAFHLFS,39)=$S(X]"":X,1:VAFHLQ)
  1. ;
  1. ;- Encounter Date/Time for Outpatients & Admission Date for Inpatients
  1. I VAFSTR[",44," D
  1. . N DFN,VAIN
  1. . S VAFPIN=0
  1. . I VAFPSTAT S VAFPIN=$S(VAFFLG="E":$P(VAFNODE,"^",2),1:$P(VAFNODE1,"^",2)) I VAFPIN S DFN=VAFPIN D INP^VADPT S X=$P(VAIN(7),"^") I 'X S VAFPIN=0
  1. . I 'VAFPIN S X=$S(VAFFLG="E":$P(VAFNODE,"^"),1:$P(VAFNODE1,"^"))
  1. . S X=$$HLDATE^HLFNC(X)
  1. . S $P(VAFY,VAFHLFS,44)=$S(X]"":X,1:VAFHLQ)
  1. ;
  1. ;- Unique Identifier (PCE)
  1. I VAFSTR[",50," D
  1. . S X=$S(VAFFLG="E":$P(VAFNODE,"^",20),1:$P(VAFNODE1,"^",20))
  1. . S $P(VAFY,VAFHLFS,50)=$S(X]"":X,1:VAFHLQ)
  1. ;
  1. ENQ Q "PV1"_VAFHLFS_$G(VAFY)