SD53P832.m

SD53P832 ;TMP/SA - SD*5.3*832 Post Init Routine ;March 22, 2023

 ;;5.3;Scheduling;**832**;Aug 13, 1993;Build 6

 ;

 ; load new Stop codes to the SD TELE HEALTH STOP CODE FILE #40.6.

 ; *** post install can be rerun with no harm ***

 ;

 Q

EN ; entry point

 N ERRCNT,FDA,SDIEN,ERR,STP

 S ERRCNT=0

 D MES^XPDUTL("")

 D MES^XPDUTL("Updating of SD TELE HEALTH STOP CODE FILE...")

 D MES^XPDUTL("") H 1

 S STP=605 D

 . I $O(^SD(40.6,"B",STP,"")) D MES^XPDUTL(STP_"    already on file") Q

 . I '$$CHKSTOP^SDTMPEDT(STP) D MES^XPDUTL(STP_"    ** Not added, invalid stop code") Q

 . S FDA(40.6,"+1,",.01)=STP D UPDATE^DIE("","FDA","SDIEN","ERR")

 . D:'$D(ERR) MES^XPDUTL(STP_"    added stop code")

 . I $D(ERR) D MES^XPDUTL(STP_" failed an attempt to add to the file.") S ERRCNT=ERRCNT+1

 . K FDA,SDIEN,ERR

 D MES^XPDUTL("")

 D MES^XPDUTL("Stop Code Update completed. "_ERRCNT_" error(s) found.")

 D MES^XPDUTL("")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD53P832   931     printed  Apr 09, 2024@21:57:50                                                                                                                                                                                                     Page 2

SD53P832  ;TMP/SA - SD*5.3*832 Post Init Routine ;March 22, 2023

 +1       ;;5.3;Scheduling;**832**;Aug 13, 1993;Build 6

 +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 

EN        ; entry point

 +1        NEW ERRCNT,FDA,SDIEN,ERR,STP

 +2        SET ERRCNT=0

 +3        DO MES^XPDUTL("")

 +4        DO MES^XPDUTL("Updating of SD TELE HEALTH STOP CODE FILE...")

 +5        DO MES^XPDUTL("")

           HANG 1

 +6        SET STP=605

           Begin DoDot:1

 +7            IF $ORDER(^SD(40.6,"B",STP,""))

                   DO MES^XPDUTL(STP_"    already on file")

                   QUIT 

 +8            IF '$$CHKSTOP^SDTMPEDT(STP)

                   DO MES^XPDUTL(STP_"    ** Not added, invalid stop code")

                   QUIT 

 +9            SET FDA(40.6,"+1,",.01)=STP

               DO UPDATE^DIE("","FDA","SDIEN","ERR")

 +10           if '$DATA(ERR)

                   DO MES^XPDUTL(STP_"    added stop code")

 +11           IF $DATA(ERR)

                   DO MES^XPDUTL(STP_" failed an attempt to add to the file.")

                   SET ERRCNT=ERRCNT+1

 +12           KILL FDA,SDIEN,ERR

           End DoDot:1

 +13       DO MES^XPDUTL("")

 +14       DO MES^XPDUTL("Stop Code Update completed. "_ERRCNT_" error(s) found.")

 +15       DO MES^XPDUTL("")

 +16       QUIT