FBUCEVT.m

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 ---FBUCEVT   878     printed  Apr 09, 2024@21:05:40                                                                                                                                                                                                      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