24 lines
855 B
Mathematica
24 lines
855 B
Mathematica
FBUCEVT ;ALBISC/TET - UNAUTHORIZED CLAIMS EVENTS ;4/28/93 11:14
|
|
;;3.5;FEE BASIS;;JAN 30, 1995
|
|
;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
;
|
|
;INPUT: FBUCACT = unauthorized claim action
|
|
; ENT=enter, EDT=edit,DEL=delete
|
|
EN ;
|
|
PRIOR(DA,X) ;set FBAP prior to enter/edit/delete
|
|
;INPUT: DA = unauthorized claim IEN
|
|
; X = action on claim
|
|
;OUTPUT: FBUCP = unauthorized claim 0 node
|
|
; FBUCPA = unauthorized claim 'A' node
|
|
I X="ENT" S (FBUCP,FBUCPA)=""
|
|
I X'="ENT" S FBUCP=$G(^FB583(DA,0)),FBUCPA=$G(^("A"))
|
|
Q
|
|
AFTER(DA,X) ;set FBAA after enter/edit/delete
|
|
;INPUT: DA = unauthorized claim IEN
|
|
; X = action on claim
|
|
;OUTPUT: FBUCA = unauthorized claim 0 node
|
|
; FBUCAA = unauthorized claim 'A' node
|
|
I X="DEL" S (FBUCA,FBUCAA)=""
|
|
I X'="DEL" S FBUCA=$G(^FB583(DA,0)),FBUCAA=$G(^("A"))
|
|
Q
|