Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
798 bytes
|
Rev | Line | |
---|
[613] | 1 | DGPTFEE ;ALB/MRY - PTF VistA/FPPS (create/delete) DRIVER ; 2/11/04 1:12pm
|
---|
| 2 | ;;5.3;Registration;**605**;Aug 13, 1993
|
---|
| 3 | ;
|
---|
| 4 | Q
|
---|
| 5 | ;
|
---|
| 6 | CREATE(DFN,DGDTTM,DGFLAG) ; create Fee PTF
|
---|
| 7 | ;Input
|
---|
| 8 | ; DFN := Patient ien
|
---|
| 9 | ; DGDTTM := Date.Time
|
---|
| 10 | ; DGFLAG := Fee patient flag (value is 1)
|
---|
| 11 | ;
|
---|
| 12 | ;Output
|
---|
| 13 | ; Y := returns newly created PTF ien (successful)
|
---|
| 14 | ; or, -1 (unsuccessful, patient ien not defined)
|
---|
| 15 | ;
|
---|
| 16 | N Y
|
---|
| 17 | I DGFLAG'=1 Q 0
|
---|
| 18 | S Y=DGDTTM_"^"_DGFLAG
|
---|
| 19 | D CREATE^DGPTFCR
|
---|
| 20 | Q Y
|
---|
| 21 | ;
|
---|
| 22 | DELETE(DFN,DGDTTM) ; Delete Fee PTF entry
|
---|
| 23 | ;Input
|
---|
| 24 | ; DFN := Patient ien
|
---|
| 25 | ; DGDTTM := Date.Time
|
---|
| 26 | ;
|
---|
| 27 | ;Output
|
---|
| 28 | ; 1 := delete successful, -1 := unsuccessful
|
---|
| 29 | ;
|
---|
| 30 | N DA,DIK
|
---|
| 31 | S DA=$O(^DGPT("AFEE",DFN,DGDTTM,0))
|
---|
| 32 | I $S('$G(DA):1,$D(^DGP(45.84,DA)):1,$D(^DGP(45.83,"C",DA)):1,1:0) G ERR
|
---|
| 33 | S DIK="^DGPT(" D ^DIK
|
---|
| 34 | Q 1
|
---|
| 35 | ERR Q -1
|
---|
Note:
See
TracBrowser
for help on using the repository browser.