source: FOIAVistA/trunk/r/FEE_BASIS-FB/FBUTL6.m@ 1540

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

initial load of FOIAVistA 6/30/08 version

File size: 914 bytes
Line 
1FBUTL6 ;WIOFO/SAB-FEE BASIS UTILITY ;8/10/2004
2 ;;3.5;FEE BASIS;**82**;JAN 30, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ; IA #4436 allows calls to $$CREATE^DGPTFEE and $$DELETE^DGPTFEE
5 Q
6 ;
7PTFC(DFN,FBDT) ; Create Non-VA PTF Record
8 ; Input
9 ; DFN - IEN of entry in PATIENT (#2) file
10 ; FBDT - Admission Date/Time, FileMan internal format, time optional
11 N FBX
12 I $G(DFN),$G(FBDT) D WAIT^DICD S FBX=$$CREATE^DGPTFEE(DFN,FBDT,1)
13 W $C(7),!?5,$S($G(FBX)>0:"Non-VA PTF Record Created.",1:"Unable to create Non-VA PTF Record."),!
14 Q
15 ;
16PTFD(DFN,FBDT) ; Delete Non-VA PTF Record
17 ; Input
18 ; DFN - IEN of entry in PATIENT (#2) file
19 ; FBDT - Admission Date/Time, FileMan internal format, time optional
20 N FBX
21 I $G(DFN),$G(FBDT) S FBX=$$DELETE^DGPTFEE(DFN,FBDT)
22 W $C(7),!?5,$S($G(FBX)=1:"Non-VA PTF Record Deleted.",1:"Unable to delete Non-VA PTF Record."),!
23 Q
24 ;
25 ;FBUTL6
Note: See TracBrowser for help on using the repository browser.