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

DG53591C.m

Go to the documentation of this file.
  1. DG53591C ;ALB/GN - DG*5.3*591 CLEANUP FOR PURGED DEPENDENT INCOME RESTORE; 3/17/04 12:26pm ; 8/2/04 3:50pm
  1. ;;5.3;Registration;**591,1015**;Aug 13, 1993;Build 21
  1. Q
  1. TEST ;
  1. S TESTING=1
  1. EN N DAT,DAT1,DAT2,DAT3,DA,DATA,GL,IEN
  1. S TESTING=+$G(TESTING)
  1. Q:'$D(^XTMP("DG53591A","DET R12"))
  1. M ^XTMP("DG53591A-SAVE","DET R12")=^XTMP("DG53591A","DET R12")
  1. S GL=$NA(^XTMP("DG53591A-SAVE","DET R12"))
  1. F S GL=$Q(@GL) Q:GL="" Q:$QS(GL,2)'="DET R12" D
  1. . K DA,DATA,EIN
  1. . S DAT=$P(@GL,":",3)
  1. . S DAT1=$P(DAT,"="),DAT2=$P(DAT,"=",2)
  1. . S DAT3=$P(DAT2," <")
  1. . S DA(1)=$P(DAT1,","),IEN=$P(DAT1,",",2)
  1. . Q:('DA(1))!('IEN)
  1. . S DATA(.01)=$P(DAT3,"^")
  1. . S DATA(.02)=$P(DAT3,"^",2)
  1. . S DATA(.03)=$P(DAT3,"^",3)
  1. . S DATA(.04)=$P(DAT3,"^",4)
  1. . I 'TESTING,$$ADD^DGENDBS(408.1275,.DA,.DATA,,IEN)
  1. Q