DGDEPINA ;ALB/CAW Inactivate veteran when date of death entered; 11/14/94
 ;;5.3;Registration;**45**;Aug 13, 1993
 ;
SET N DGACT,DA,DGPR,DGPR0,DGPR1,DIK
 S DA=$O(^DGPR(408.12,"B",DFN,"")) I 'DA G SETQ
 S DGACT=X
 L +^DGPR(408.12,DA)
 S DGPR=^DGPR(408.12,+DA,"E",0),DGPR0=$P(DGPR,U,3)+1,DGPR1=$P(DGPR,U,4)+1
 S ^DGPR(408.12,+DA,"E",0)="^408.1275D^"_DGPR0_U_DGPR1
 S ^DGPR(408.12,+DA,"E",DGPR0,0)=DGACT_"^"_0
 S DIK="^DGPR(408.12,"
 D IX1^DIK
 L -^DGPR(408.12,+DA)
SETQ Q
 ;
KILL ;
 N DA,DGPR,DGPR0,DGPR1,DIK
 S DA=$O(^DGPR(408.12,"B",DFN,"")) I 'DA G KILLQ
 S DGACT=X
 S DA(1)=DA,DA=$O(^DGPR(408.12,DA,"E","AID",-DGACT,""))
 I 'DA G KILLQ
 S DIK="^DGPR(408.12,"_DA(1)_",""E"","
 D ^DIK
KILLQ Q