Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FBUCEVT

FBUCEVT.m

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