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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBUCEVT 878 printed Nov 22, 2024@17:10:23 Page 2
FBUCEVT ;ALBISC/TET - UNAUTHORIZED CLAIMS EVENTS ;4/28/93 11:14
+1 ;;3.5;FEE BASIS;;JAN 30, 1995
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ;INPUT: FBUCACT = unauthorized claim action
+5 ; ENT=enter, EDT=edit,DEL=delete
EN ;
PRIOR(DA,X) ;set FBAP prior to enter/edit/delete
+1 ;INPUT: DA = unauthorized claim IEN
+2 ; X = action on claim
+3 ;OUTPUT: FBUCP = unauthorized claim 0 node
+4 ; FBUCPA = unauthorized claim 'A' node
+5 IF X="ENT"
SET (FBUCP,FBUCPA)=""
+6 IF X'="ENT"
SET FBUCP=$GET(^FB583(DA,0))
SET FBUCPA=$GET(^("A"))
+7 QUIT
AFTER(DA,X) ;set FBAA after enter/edit/delete
+1 ;INPUT: DA = unauthorized claim IEN
+2 ; X = action on claim
+3 ;OUTPUT: FBUCA = unauthorized claim 0 node
+4 ; FBUCAA = unauthorized claim 'A' node
+5 IF X="DEL"
SET (FBUCA,FBUCAA)=""
+6 IF X'="DEL"
SET FBUCA=$GET(^FB583(DA,0))
SET FBUCAA=$GET(^("A"))
+7 QUIT
