AGSSDEL.m

AGSSDEL ; IHS/ASDS/EFG - Process SSA SSN deletes to NPIRS ;  

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

 Q:'$D(^AGSSTEMP(AGSSITE,"DEL"))

 S (AGSHRN,AGSENT)=""  ;added AGSENT (entry number)

 F  S AGSHRN=$O(^AGSSTEMP(AGSSITE,"DEL",AGSHRN)) Q:'+AGSHRN  D

 .F  S AGSENT=$O(^AGSSTEMP(AGSSITE,"DEL",AGSHRN,AGSENT)) Q:AGSENT=""  D

 ..S AGSUB=^AGSSTEMP(AGSSITE,"DEL",AGSHRN,AGSENT) S ^AGPATCH("DEL",AGSUB)=""

 K AGSHRN,AGSUB,AGSENT

 Q

AGSSDEL   ; IHS/ASDS/EFG - Process SSA SSN deletes to NPIRS ;  

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

 +3        IF '$DATA(^AGSSTEMP(AGSSITE,"DEL"))

               QUIT 

 +4       ;added AGSENT (entry number)

           SET (AGSHRN,AGSENT)=""

 +5        FOR 

               SET AGSHRN=$ORDER(^AGSSTEMP(AGSSITE,"DEL",AGSHRN))

               IF '+AGSHRN

                   QUIT 

               Begin DoDot:1

 +6                FOR 

                       SET AGSENT=$ORDER(^AGSSTEMP(AGSSITE,"DEL",AGSHRN,AGSENT))

                       IF AGSENT=""

                           QUIT 

                       Begin DoDot:2

 +7                        SET AGSUB=^AGSSTEMP(AGSSITE,"DEL",AGSHRN,AGSENT)

                           SET ^AGPATCH("DEL",AGSUB)=""

                       End DoDot:2

               End DoDot:1

 +8        KILL AGSHRN,AGSUB,AGSENT

 +9        QUIT