- 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 Jan 18, 2025@03:01:26 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