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

VAFHLIN1.m

Go to the documentation of this file.
  1. VAFHLIN1 ;ALB/KCL/SCK/PHH,TDM - CREATE HL7 INSURANCE (IN1) SEGMENT ; 1/21/09 4:05pm
  1. ;;5.3;Registration;**122,190,670,740,754**;Aug 13, 1993;Build 46
  1. ;
  1. ;
  1. ; This generic function was designed to return the HL7 IN1 (Insurance)
  1. ; segment. This segment contains VA-specific patient insurance
  1. ; information. (All active insurance data for a patient including
  1. ; those insurance carriers that do not reimburse the VA i.e Medicare)
  1. ;
  1. ; SCK - modified for Insurance Encapsulation API
  1. ; 1. The Insurance API does not currently support the Pre-Certification flag
  1. ; in the IN1 segment, Field 28. No value will be returned for field 28.
  1. ; 2. The Insurance API does not support Line 2 or Line 3 of the address.
  1. ; The API returns a single address line.
  1. ;
  1. EN(DFN,VAFSTR,VAFHLQ,VAFHLFS,VAFARRY,VAFHLECH) ; --
  1. ; Entry point to return HL7 IN1 segments.
  1. ;
  1. ; Input:
  1. ; DFN - internal entry number of the PATIENT (#2) file.
  1. ; VAFSTR - (optional) string of fields requested seperated
  1. ; by commas. If not passed, return all data fields.
  1. ; VAFHLQ - (optional) HL7 null variable.
  1. ; VAFHLFS - (optional) HL7 field separator.
  1. ; VAFARRY - (optional) user-supplied array name which will hold
  1. ; HL7 IN1 segments. Otherwise, ^TMP("VAFIN1",$J) will
  1. ; be used.
  1. ; VAFHLECH - (optional) HL7 encoding characters.
  1. ;
  1. ; Output:
  1. ; Array of HL7 IN1 segments
  1. ;
  1. N VAFGRP,VAFI,VAFIDX,VAFINS,VAFNODE,VAFPHN,VAFY,VAF36,X,VAFX,VAFTMP
  1. S VAFARRY=$G(VAFARRY),VAFIDX=0
  1. ;
  1. ; if VAFARRY not defined, use ^TMP("VAFIN1",$J)
  1. S:(VAFARRY="") VAFARRY="^TMP(""VAFIN1"",$J)"
  1. ;
  1. ; if VAFHLQ or VAFHLFS not passed, use default HL7 variables
  1. S VAFHLQ=$S($D(VAFHLQ):VAFHLQ,1:$G(HLQ)),VAFHLFS=$S($D(VAFHLFS):VAFHLFS,1:$G(HLFS))
  1. S VAFHLECH=$S($D(VAFHLECH):VAFHLECH,1:$G(HLECH))
  1. ;
  1. ; if DFN not passed, exit
  1. I '$G(DFN) S @VAFARRY@(1,0)="IN1"_VAFHLFS_1 G ENQ
  1. ;
  1. ; find all insurance data for a patient (IB SUPPORTED CALL)
  1. ; This uses the Encapsulated Insurance API to retrieve data into an array
  1. ; See IB*2*267 Release Notes v1.0 for flags and array ID's
  1. S VAFX=$$INSUR^IBBAPI(DFN,,"R",.VAFTMP,"*")
  1. ;
  1. ; if no active insurance on file for patient, build IN1
  1. I VAFX'=1 D
  1. .; Build a null array if no insurance data returned
  1. . F VAFI=1:1:24 S VAFINS(1,VAFI)=""
  1. .; Merge array to remove first two nodes to simplify handling
  1. E M VAFINS=VAFTMP("IBBAPI","INSUR")
  1. ;
  1. ALL ; get all active insurance for patient
  1. F VAFI=0:0 S VAFI=$O(VAFINS(VAFI)) Q:'VAFI D
  1. .D BUILD
  1. ;
  1. ENQ Q
  1. ;
  1. ;
  1. BUILD ; Build array of HL7 (IN1) segments
  1. S $P(VAFY,VAFHLFS,36)="",VAFIDX=VAFIDX+1
  1. ;
  1. ; if VAFSTR not passed, return all data fields
  1. I $G(VAFSTR)']"" S VAFSTR="4,5,7,8,9,12,13,15,16,17,28,36"
  1. S VAFSTR=","_VAFSTR_","
  1. ;
  1. ; sequential number (required field)
  1. S $P(VAFY,VAFHLFS,1)=VAFIDX
  1. ;
  1. ; build HL7 (IN1) segment fields
  1. I VAFSTR[",3," S $P(VAFY,VAFHLFS,3)=+$P(VAFINS(VAFI,1),U) ;Insurance company IEN (P-190)
  1. I VAFSTR[",4," S $P(VAFY,VAFHLFS,4)=$S($P(VAFINS(VAFI,1),U,2)]"":$P(VAFINS(VAFI,1),U,2),1:VAFHLQ) ; Insurance Carrier Name
  1. I VAFSTR[",5," S X=$$ADDR1(VAFI) S $P(VAFY,VAFHLFS,5)=$S(+X>0:X,1:VAFHLQ)
  1. I VAFSTR[",7," S X=$$HLPHONE^HLFNC(VAFINS(VAFI,6)) S $P(VAFY,VAFHLFS,7)=$S(X]"":X,1:VAFHLQ) ; Insurance Co. Phone Number
  1. I VAFSTR[",8," S $P(VAFY,VAFHLFS,8)=$S(VAFINS(VAFI,18)]"":VAFINS(VAFI,18),1:VAFHLQ) ; Group Number
  1. I VAFSTR[",9," S $P(VAFY,VAFHLFS,9)=$S($P(VAFINS(VAFI,8),U,2)]"":$P(VAFINS(VAFI,8),U,2),1:VAFHLQ) ; Group Name ** The Insurance Encapsulation API doesnot return a "Group" Name, this field will display the Policy Name returned by the API
  1. I VAFSTR[",12," S X=$$HLDATE^HLFNC(VAFINS(VAFI,10)) S $P(VAFY,VAFHLFS,12)=$S(X]"":X,1:VAFHLQ) ; Policy Effective Date
  1. I VAFSTR[",13," S X=$$HLDATE^HLFNC(VAFINS(VAFI,11)) S $P(VAFY,VAFHLFS,13)=$S(X]"":X,1:VAFHLQ) ; Policy Expiration Date
  1. I VAFSTR[",15," S $P(VAFY,VAFHLFS,15)=$S(+$P($G(VAFINS(VAFI,21)),"^")>0:+$P(VAFINS(VAFI,21),"^"),1:VAFHLQ) ; Plan Type (ptr. to Type of Plan (#355.1) file)
  1. I VAFSTR[",16," S $P(VAFY,VAFHLFS,16)=$S(VAFINS(VAFI,13)]"":VAFINS(VAFI,13),1:VAFHLQ) ; Name of Insured
  1. I VAFSTR[",17," S X=$$WHOSE($P(VAFINS(VAFI,12),U)) S $P(VAFY,VAFHLFS,17)=$S(X]"":X,1:VAFHLQ) ; Whose Insurance
  1. ;I VAFSTR[",28," S $P(VAFY,VAFHLFS,28)=VAFHLQ ; $S($P(VAFGRP,"^",6)]"":$P(VAFGRP,"^",6),1:VAFHLQ) ; Is Pre-Certification Required?
  1. I VAFSTR[",36," S $P(VAFY,VAFHLFS,36)=$S(VAFINS(VAFI,14)]"":VAFINS(VAFI,14),1:VAFHLQ) ; Subscriber ID
  1. ;
  1. ; set all active insurance policies into array
  1. S @VAFARRY@(VAFIDX,0)="IN1"_VAFHLFS_$G(VAFY)
  1. Q
  1. ;
  1. WHOSE(VAFWHO) ; Format Subscriber relationship for HL7 conversion
  1. ;
  1. ; Input: Subscriber relationship from Insurance API, ID=12
  1. ; P - Patient
  1. ; S - Spouse
  1. ; O - Other
  1. ;
  1. ; Output:
  1. ; v - Veteran
  1. ; s - Spouse
  1. ; o - Other
  1. ;
  1. S:VAFWHO["P" VAFWHO="V"
  1. Q $$LOW^XLFSTR(VAFWHO)
  1. ;
  1. ADDR1(VAFI) ; Format insurance company address from Insurance API for HL7 conversion.
  1. ;
  1. ; Input:
  1. ; Index number for Insurance API array
  1. ;
  1. ; Output:
  1. ; String in the form of the HL7 address field
  1. ;
  1. N VAFAD,VAFGL,RETVAL
  1. S VAFAD=VAFINS(VAFI,2)_"^"_VAFINS(VAFI,23) ;Ins Addr Line 1 & 2
  1. S VAFGL=VAFINS(VAFI,3)_"^"_$P(VAFINS(VAFI,4),U)_"^"_VAFINS(VAFI,5)
  1. ;
  1. ; convert DHCP address to HL7 format using HL7 utility
  1. S RETVAL=$$HLADDR^HLFNC(VAFAD,VAFGL)
  1. S $P(RETVAL,$E(VAFHLECH),8)=VAFINS(VAFI,24) ;Ins Addr Line 3
  1. Q RETVAL
  1. ;
  1. ADDR(VAFPTR) ; Format insurance company address for HL7 conversion
  1. ; Retained for backword compatibility
  1. ;
  1. ; Input:
  1. ; VAFPTR - pointer to Insurance Co. (#36) file
  1. ;
  1. ; Output:
  1. ; String in the form of the HL7 address field
  1. ;
  1. N VAFAD,VAFADDR,VAFGL,VAFST
  1. S VAFAD=""
  1. ;
  1. ; get (.11) node of Insurance Co. (#36) file
  1. S VAFADDR=$G(^DIC(36,+VAFPTR,.11))
  1. ;
  1. ; 1st & 2nd street address lines
  1. F VAFST=1,2 S VAFAD=VAFAD_"^"_$P(VAFADDR,"^",VAFST)
  1. S VAFAD=$P(VAFAD,"^",2,99)
  1. S VAFGL=$P(VAFADDR,"^",4) ; city
  1. S VAFGL=VAFGL_"^"_$P(VAFADDR,"^",5) ; state
  1. S VAFGL=VAFGL_"^"_$P(VAFADDR,"^",6) ; zip
  1. ;
  1. ; convert DHCP address to HL7 format using HL7 utility
  1. Q $$HLADDR^HLFNC(VAFAD,VAFGL)