DG53205P.m

DG53205P ;ALB/JDS - Patch 205 postinit ; Nov 16 1998

 ;;5.3;Registration;**205,1015**;Aug 13, 1993;Build 21

 ;go through inconsistency file and redo ones with Income

 ;Inconsistency

 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

 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

DG53205P  ;ALB/JDS - Patch 205 postinit ; Nov 16 1998

 +1       ;;5.3;Registration;**205,1015**;Aug 13, 1993;Build 21

 +2       ;go through inconsistency file and redo ones with Income

 +3       ;Inconsistency

 +4        NEW DG205CNT,DFN,XPDIDTOT,DGPER

           DO MES^XPDUTL("Reviewing Income Data Inconsistency Errors")

           SET XPDIDTOT=$PIECE($GET(^DGIN(38.5,0)),U,4)

           SET DG205CNT=0

           SET DGPER=XPDIDTOT\100+1

 +5        FOR DFN=0:0

               SET DFN=$ORDER(^DGIN(38.5,DFN))

               IF 'DFN

                   QUIT 

               SET DG205CNT=DG205CNT+1

               IF '(DG205CNT#DGPER)

                   DO UPDATE^XPDID(DG205CNT)

               IF $DATA(^DGIN(38.5,DFN,"I",55))

                   DO ^DGRPC