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

DGPTFEE.m

Go to the documentation of this file.
  1. DGPTFEE ;ALB/MRY - PTF VistA/FPPS (create/delete) DRIVER ; 2/11/04 1:12pm
  1. ;;5.3;Registration;**605**;Aug 13, 1993
  1. ;
  1. Q
  1. ;
  1. CREATE(DFN,DGDTTM,DGFLAG) ; create Fee PTF
  1. ;Input
  1. ; DFN := Patient ien
  1. ; DGDTTM := Date.Time
  1. ; DGFLAG := Fee patient flag (value is 1)
  1. ;
  1. ;Output
  1. ; Y := returns newly created PTF ien (successful)
  1. ; or, -1 (unsuccessful, patient ien not defined)
  1. ;
  1. N Y
  1. I DGFLAG'=1 Q 0
  1. S Y=DGDTTM_"^"_DGFLAG
  1. D CREATE^DGPTFCR
  1. Q Y
  1. ;
  1. DELETE(DFN,DGDTTM) ; Delete Fee PTF entry
  1. ;Input
  1. ; DFN := Patient ien
  1. ; DGDTTM := Date.Time
  1. ;
  1. ;Output
  1. ; 1 := delete successful, -1 := unsuccessful
  1. ;
  1. N DA,DIK
  1. S DA=$O(^DGPT("AFEE",DFN,DGDTTM,0))
  1. I $S('$G(DA):1,$D(^DGP(45.84,DA)):1,$D(^DGP(45.83,"C",DA)):1,1:0) G ERR
  1. S DIK="^DGPT(" D ^DIK
  1. Q 1
  1. ERR Q -1