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

FBHLZFE.m

Go to the documentation of this file. 
  1. FBHLZFE ;WCIOFO/SAB-CREATE HL7 ZFE SEGMENTS ;7/21/1998
  1.  ;;3.5;FEE BASIS;**14,78**;JAN 30, 1995
  1.  ;
  1.  ; This routine generates ZFE HL7 segments that contain FEE BASIS
  1.  ; authorization data for a veteran. 
  1.  ;
  1. EN(DFN,FBSTR,FBCUT) ; Returns array of ZFE segments containing FEE BASIS
  1.  ;                 authorizatiion data for a veteran.
  1.  ;  Input:
  1.  ;    DFN   - internal entry number of the PATIENT (#2) file and
  1.  ;            FEE BASIS PATIENT (#161) file
  1.  ;    FBSTR - (optional) comma delimited sting of requested fields
  1.  ;            DEFAULT: "1,2,3,4,5" (returns all fields)
  1.  ;    FBCUT - (optional) cutoff date (fileman format)
  1.  ;            Default: "2961001" (Oct 1, 1996)
  1.  ;            authorizations with a TO DATE prior to the cutoff will
  1.  ;            not be considered.
  1.  ;    Also needs HL7 variables defined (HLFS, HLECH and HLQ)
  1.  ;  Output:
  1.  ;    If an exception did not occur
  1.  ;    FBZFE(I) - an array of string(s) forming the ZFE segments for the
  1.  ;               patient's FEE authorizations that meet the criteria.
  1.  ;               I will be numeric values greater than 0.
  1.  ;            OR undefined if no authorizations meet criteria.
  1.  ;
  1.  ;               Note: Only the latest authorization for each group is
  1.  ;               returned (where group is FEE PROGRAM + TREATMENT TYPE).
  1.  ;
  1.  ;    If an exception did occur
  1.  ;    FBZFE(0) = -1 ^ exception number ^ exception text
  1.  ;
  1.  N FBA,FBDA1,FBGRP,FBI,FBICN,FBY0
  1.  K FBZFE ; initialize array
  1.  I $G(FBSTR)="" S FBSTR="1,2,3,4,5"
  1.  S FBSTR=","_FBSTR_","
  1.  I $G(FBCUT)="" S FBCUT=2961001
  1.  ;
  1.  ; check for required input
  1.  I $G(FBZFE(0))'<0 D
  1.  . I $G(DFN)="" S FBZFE(0)="-1^103^Patient DFN not specified." Q
  1.  . I '$D(HLFS)!'$D(HLECH)!'$D(HLQ) S FBZFE(0)="-1^201^HL7 variables not defined." Q
  1.  ;
  1.  ; get patient ICN
  1.  I $G(FBZFE(0))'<0 D
  1.  . I $$IFLOCAL^MPIF001(DFN) S FBZFE(0)="-1^104^ICN could not be determined for the specified patient." Q  ; must not be local ICN
  1.  . S FBICN=$$GETICN^MPIF001(DFN) I FBICN<0 S FBZFE(0)="-1^104^ICN could not be determined for the specified patient." Q
  1.  ;
  1.  ; check if cutoff date is a valid value
  1.  I $G(FBZFE(0))'<0 D
  1.  . I FBCUT'?7N S FBZFE(0)="-1^101^Valid date not specified." Q
  1.  . I $$FMTHL7^XLFDT(FBCUT)<0 S FBZFE(0)="-1^101^Valid date not specified." Q
  1.  ;
  1.  I $G(FBZFE(0))'<0 D
  1.  . ; find authorizations that meet criteria (if any)
  1.  . ; loop thru authorizations
  1.  . S FBDA1=0 F  S FBDA1=$O(^FBAAA(DFN,1,FBDA1)) Q:'FBDA1  D
  1.  . . Q:$P($G(^FBAAA(DFN,1,FBDA1,"ADEL")),U)="Y"  ; ignore Austin Deleted
  1.  . . S FBY0=$G(^FBAAA(DFN,1,FBDA1,0))
  1.  . . Q:$P(FBY0,U,3)=""  ; FEE Program required
  1.  . . Q:$P(FBY0,U,2)<FBCUT  ; before cutoff date
  1.  . . S FBGRP=$P(FBY0,U,3)_U_$P(FBY0,U,13) ; group (Program + Treat. Type)
  1.  . . Q:$P(FBY0,U,2)'>$P($G(FBA(FBGRP)),U,2)  ; already have later for grp
  1.  . . ; save as latest found (so far) for a group
  1.  . . S FBA(FBGRP)=FBDA1_U_$P(FBY0,U,2)
  1.  . ;
  1.  . ; build FBZFE array for selected authorizations
  1.  . S FBI=0 ; init number of array elements
  1.  . S FBGRP="" F  S FBGRP=$O(FBA(FBGRP)) Q:FBGRP=""  D
  1.  . . S FBDA1=$P(FBA(FBGRP),U)
  1.  . . D AUTH
  1.  ;
  1. QUIT ;
  1.  Q
  1.  ;
  1. AUTH ; Add node (HL7 ZFE seg.) to FBZFE array for a specified authorization
  1.  ;   Input:
  1.  ;     DFN    - veteran ien (file #2 and #161)
  1.  ;     FBDA1  - authorization ien (authorization multiple of #161)
  1.  ;     FBI    - previous set ID number used for array or 0 when none
  1.  ;     FBSTR  - comma delimited string of requested fields
  1.  ;   Output:
  1.  ;     FBI        - set ID (modified)
  1.  ;     FBZFE(FBI) - output array element for one set ID
  1.  ;                  ZFE ^ set ID ^ treat. type ^ FEE program ^ From ^ To
  1.  ;
  1.  N FBY0,X
  1.  ;
  1.  S FBY0=$G(^FBAAA(DFN,1,FBDA1,0))
  1.  Q:FBY0=""  ; nothing to process
  1.  ;
  1.  S FBI=FBI+1
  1.  ;
  1.  S FBZFE(FBI)="ZFE"
  1.  S $P(FBZFE(FBI),HLFS,6)=""
  1.  I FBSTR[",1," S $P(FBZFE(FBI),HLFS,2)=FBI ; sequential number
  1.  I FBSTR[",2," S X=$$EXTERNAL^DILFD(161.01,.095,"",$P(FBY0,U,13)),$P(FBZFE(FBI),HLFS,3)=$S(X]"":X,1:HLQ)_$E(HLECH)_$E(HLECH)_"VA0033" ; Treatment Type
  1.  I FBSTR[",3," S X=$S($P(FBY0,U,3):$P($G(^FBAA(161.8,$P(FBY0,U,3),0)),U),1:""),$P(FBZFE(FBI),HLFS,4)=$S(X]"":X,1:HLQ)_$E(HLECH)_$E(HLECH)_"VA0034" ; FEE Program
  1.  I FBSTR[",4," S $P(FBZFE(FBI),HLFS,5)=$S($P(FBY0,U)]"":$$HLDATE^HLFNC($P(FBY0,U)),1:HLQ) ; From Date
  1.  I FBSTR[",5," S $P(FBZFE(FBI),HLFS,6)=$S($P(FBY0,U,2)]"":$$HLDATE^HLFNC($P(FBY0,U,2)),1:HLQ) ; To Date
  1.  Q