SD53P923 ;BAH/SA - SD*5.3*923 Post-Init Routine ;Sep 22, 2025
;;5.3;Scheduling;**923**;AUG 13, 1993;Build 4
;
; load new Stop codes to the SD TELE HEALTH STOP CODE FILE #40.6.
; *** post install can be rerun with no harm ***
;
Q
POST ; entry point
N STP,DA,DIK
D MES^XPDUTL("")
D MES^XPDUTL("Updating of SD TELE HEALTH STOP CODE FILE...")
;
;Delete removed codes
S DIK="^SD(40.6," F STP=135,136,137,524 D
. S DA=$O(^SD(40.6,"B",STP,"")) I 'DA D MES^XPDUTL(STP_" already deleted") Q
. D ^DIK
. D MES^XPDUTL(STP_" deleted")
;
D MES^XPDUTL("")
D MES^XPDUTL("Stop Code Update completed.")
D MES^XPDUTL("") H 2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53P923 656 printed May 25, 2026@12:51:02 Page 2
SD53P923 ;BAH/SA - SD*5.3*923 Post-Init Routine ;Sep 22, 2025
+1 ;;5.3;Scheduling;**923**;AUG 13, 1993;Build 4
+2 ;
+3 ; load new Stop codes to the SD TELE HEALTH STOP CODE FILE #40.6.
+4 ; *** post install can be rerun with no harm ***
+5 ;
+6 QUIT
POST ; entry point
+1 NEW STP,DA,DIK
+2 DO MES^XPDUTL("")
+3 DO MES^XPDUTL("Updating of SD TELE HEALTH STOP CODE FILE...")
+4 ;
+5 ;Delete removed codes
+6 SET DIK="^SD(40.6,"
FOR STP=135,136,137,524
Begin DoDot:1
+7 SET DA=$ORDER(^SD(40.6,"B",STP,""))
IF 'DA
DO MES^XPDUTL(STP_" already deleted")
QUIT
+8 DO ^DIK
+9 DO MES^XPDUTL(STP_" deleted")
End DoDot:1
+10 ;
+11 DO MES^XPDUTL("")
+12 DO MES^XPDUTL("Stop Code Update completed.")
+13 DO MES^XPDUTL("")
HANG 2
+14 QUIT
