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

FBUTL6.m

Go to the documentation of this file.
  1. FBUTL6 ;WIOFO/SAB-FEE BASIS UTILITY ;8/10/2004
  1. ;;3.5;FEE BASIS;**82**;JAN 30, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ; IA #4436 allows calls to $$CREATE^DGPTFEE and $$DELETE^DGPTFEE
  1. Q
  1. ;
  1. PTFC(DFN,FBDT) ; Create Non-VA PTF Record
  1. ; Input
  1. ; DFN - IEN of entry in PATIENT (#2) file
  1. ; FBDT - Admission Date/Time, FileMan internal format, time optional
  1. N FBX
  1. I $G(DFN),$G(FBDT) D WAIT^DICD S FBX=$$CREATE^DGPTFEE(DFN,FBDT,1)
  1. W $C(7),!?5,$S($G(FBX)>0:"Non-VA PTF Record Created.",1:"Unable to create Non-VA PTF Record."),!
  1. Q
  1. ;
  1. PTFD(DFN,FBDT) ; Delete Non-VA PTF Record
  1. ; Input
  1. ; DFN - IEN of entry in PATIENT (#2) file
  1. ; FBDT - Admission Date/Time, FileMan internal format, time optional
  1. N FBX
  1. I $G(DFN),$G(FBDT) S FBX=$$DELETE^DGPTFEE(DFN,FBDT)
  1. W $C(7),!?5,$S($G(FBX)=1:"Non-VA PTF Record Deleted.",1:"Unable to delete Non-VA PTF Record."),!
  1. Q
  1. ;
  1. ;FBUTL6