DG53218P ;ALB/JDS - Patch 218 postinit ; Nov 16 1998
;;5.3;Registration;**218**;Aug 13, 1993
;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53218P 481 printed Nov 22, 2024@17:46:44 Page 2
DG53218P ;ALB/JDS - Patch 218 postinit ; Nov 16 1998
+1 ;;5.3;Registration;**218**;Aug 13, 1993
+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
