FBHLZFE ;WCIOFO/SAB-CREATE HL7 ZFE SEGMENTS ;7/21/1998
Source file <FBHLZFE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,FBSTR,FBCUT) | ; Returns array of ZFE segments containing FEE BASIS
; authorizatiion data for a veteran. ; Input: ; DFN - internal entry number of the PATIENT (#2) file and ; FEE BASIS PATIENT (#161) file ; FBSTR - (optional) comma delimited sting of requested fields ; DEFAULT: "1,2,3,4,5" (returns all fields) ; FBCUT - (optional) cutoff date (fileman format) ; Default: "2961001" (Oct 1, 1996) ; authorizations with a TO DATE prior to the cutoff will ; not be considered. ; Also needs HL7 variables defined (HLFS, HLECH and HLQ) ; Output: ; If an exception did not occur ; FBZFE(I) - an array of string(s) forming the ZFE segments for the ; patient's FEE authorizations that meet the criteria. ; I will be numeric values greater than 0. ; OR undefined if no authorizations meet criteria. |
|
| QUIT | ;
|
|
| AUTH | ; Add node (HL7 ZFE seg.) to FBZFE array for a specified authorization
; Input: ; DFN - veteran ien (file #2 and #161) ; FBDA1 - authorization ien (authorization multiple of #161) ; FBI - previous set ID number used for array or 0 when none ; FBSTR - comma delimited string of requested fields ; Output: ; FBI - set ID (modified) ; FBZFE(FBI) - output array element for one set ID ; ZFE ^ set ID ^ treat. type ^ FEE program ^ From ^ To |
