ECX3P143.m

ECX3P143 ;ALB/DAN - Patch 143 Post-install ;12/5/12  13:06

 ;;3.0;DSS EXTRACTS;**143**;Dec 22, 1997;Build 4

 ;

POST ;Clean up BCMA EXTRACT file

 N FIEN

 D BMES^XPDUTL("Removing existing entries from BCMA EXTRACT file (#727.833)")

 K ^ECX(727.833) ;remove all existing entries

 S ^ECX(727.833,0)="BCMA EXTRACT^727.833^^" ;reset zero node

 ;Search for extracts in the DSS EXTRACT LOG and set purge date

 S FIEN=0 F  S FIEN=$O(^ECX(727,"D","BAR CODE MEDICATION ADM",FIEN)) Q:'+FIEN  S ^ECX(727,FIEN,"PURG")=$$DT^XLFDT

 D BMES^XPDUTL("All existing entries have been removed from the BCMA EXTRACT file (#727.833)")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECX3P143   625     printed  Apr 09, 2024@20:58:17                                                                                                                                                                                                     Page 2

ECX3P143  ;ALB/DAN - Patch 143 Post-install ;12/5/12  13:06

 +1       ;;3.0;DSS EXTRACTS;**143**;Dec 22, 1997;Build 4

 +2       ;

POST      ;Clean up BCMA EXTRACT file

 +1        NEW FIEN

 +2        DO BMES^XPDUTL("Removing existing entries from BCMA EXTRACT file (#727.833)")

 +3       ;remove all existing entries

           KILL ^ECX(727.833)

 +4       ;reset zero node

           SET ^ECX(727.833,0)="BCMA EXTRACT^727.833^^"

 +5       ;Search for extracts in the DSS EXTRACT LOG and set purge date

 +6        SET FIEN=0

           FOR 

               SET FIEN=$ORDER(^ECX(727,"D","BAR CODE MEDICATION ADM",FIEN))

               if '+FIEN

                   QUIT 

               SET ^ECX(727,FIEN,"PURG")=$$DT^XLFDT

 +7        DO BMES^XPDUTL("All existing entries have been removed from the BCMA EXTRACT file (#727.833)")

 +8        QUIT