source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53205P.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: 475 bytes
Line 
1DG53205P ;ALB/JDS - Patch 205 postinit ; Nov 16 1998
2 ;;5.3;Registration;**205**;Aug 13, 1993
3 ;go through inconsistency file and redo ones with Income
4 ;Inconsistency
5 N DG205CNT,DFN,XPDIDTOT,DGPER D MES^XPDUTL("Reviewing Income Data Inconsistency Errors") S XPDIDTOT=$P($G(^DGIN(38.5,0)),U,4),DG205CNT=0,DGPER=XPDIDTOT\100+1
6 F DFN=0:0 S DFN=$O(^DGIN(38.5,DFN)) Q:'DFN S DG205CNT=DG205CNT+1 D:'(DG205CNT#DGPER) UPDATE^XPDID(DG205CNT) I $D(^DGIN(38.5,DFN,"I",55)) D ^DGRPC
Note: See TracBrowser for help on using the repository browser.