source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBUCEVT.m@ 1801

Last change on this file since 1801 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 855 bytes
RevLine 
[613]1FBUCEVT ;ALBISC/TET - UNAUTHORIZED CLAIMS EVENTS ;4/28/93 11:14
2 ;;3.5;FEE BASIS;;JAN 30, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ;INPUT: FBUCACT = unauthorized claim action
6 ; ENT=enter, EDT=edit,DEL=delete
7EN ;
8PRIOR(DA,X) ;set FBAP prior to enter/edit/delete
9 ;INPUT: DA = unauthorized claim IEN
10 ; X = action on claim
11 ;OUTPUT: FBUCP = unauthorized claim 0 node
12 ; FBUCPA = unauthorized claim 'A' node
13 I X="ENT" S (FBUCP,FBUCPA)=""
14 I X'="ENT" S FBUCP=$G(^FB583(DA,0)),FBUCPA=$G(^("A"))
15 Q
16AFTER(DA,X) ;set FBAA after enter/edit/delete
17 ;INPUT: DA = unauthorized claim IEN
18 ; X = action on claim
19 ;OUTPUT: FBUCA = unauthorized claim 0 node
20 ; FBUCAA = unauthorized claim 'A' node
21 I X="DEL" S (FBUCA,FBUCAA)=""
22 I X'="DEL" S FBUCA=$G(^FB583(DA,0)),FBUCAA=$G(^("A"))
23 Q
Note: See TracBrowser for help on using the repository browser.