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 ---[H[J[2J[HECX3P143 625 printed Dec 13, 2024@01:50:12 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
