FBHLZFE ;WCIOFO/SAB-CREATE HL7 ZFE SEGMENTS ;7/21/1998
Source file <FBHLZFE.m>
Package | Total | Call Graph |
---|---|---|
Health Level Seven | 1 | $$HLDATE^HLFNC |
Kernel | 1 | $$FMTHL7^XLFDT |
Master Patient Index VistA | 1 | ($$GETICN,$$IFLOCAL)^MPIF001 |
VA FileMan | 1 | $$EXTERNAL^DILFD |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Income Verification Match | 1 | IVMPTRN9 |
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^FBAA(161.8 - [#161.8] | AUTH+22 |
^FBAAA - [#161] | EN+49, EN+50, EN+51, AUTH+13 |
Name | Line Occurrences |
---|---|
AUTH | EN+63 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | EN~, EN+33, EN+38, EN+39, EN+49, EN+50, EN+51, AUTH+13 |
FBA | EN+25~ |
FBA( | EN+55, EN+57*, EN+61, EN+62 |
FBCUT | EN~, EN+29*, EN+43, EN+44, EN+53 |
FBDA1 | EN+25~, EN+49*, EN+50, EN+51, EN+57, EN+62*, AUTH+13 |
FBGRP | EN+25~, EN+54*, EN+55, EN+57, EN+61*, EN+62 |
FBI | EN+25~, EN+60*, AUTH+16*, AUTH+18, AUTH+19, AUTH+20, AUTH+21, AUTH+22, AUTH+23, AUTH+24 |
FBICN | EN+25~, EN+39* |
FBSTR | EN~, EN+27*, EN+28*, AUTH+20, AUTH+21, AUTH+22, AUTH+23, AUTH+24 |
FBY0 | EN+25~, EN+51*, EN+52, EN+53, EN+54, EN+55, EN+57, AUTH+11~, AUTH+13*, AUTH+14 , AUTH+21, AUTH+22, AUTH+23, AUTH+24 |
FBZFE | EN+26! |
FBZFE( | AUTH+18*, AUTH+19*, AUTH+20*, AUTH+21*, AUTH+22*, AUTH+23*, AUTH+24* |
FBZFE(0 | EN+32, EN+33*, EN+34*, EN+37, EN+38*, EN+39*, EN+42, EN+43*, EN+44*, EN+46 |
>> HLECH | EN+34, AUTH+21, AUTH+22 |
>> HLFS | EN+34, AUTH+19, AUTH+20, AUTH+21, AUTH+22, AUTH+23, AUTH+24 |
>> HLQ | EN+34, AUTH+21, AUTH+22, AUTH+23, AUTH+24 |
U | EN+50, EN+52, EN+53, EN+54, EN+55, EN+57, EN+62, AUTH+21, AUTH+22, AUTH+23 , AUTH+24 |
X | AUTH+11~, AUTH+21*, AUTH+22* |