Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SD53P821

SD53P821.m

Go to the documentation of this file.
  1. SD53P821 ;TMP/SA - SD*5.3*821 Post Init Routine ; September 15, 2022
  1. ;;5.3;Scheduling;**821**;May 29, 2018;Build 9
  1. ;
  1. ; load new Stop codes to the SD TELE HEALTH STOP CODE FILE #40.6.
  1. ; *** post install can be rerun with no harm ***
  1. ;
  1. EN ; entry point
  1. N ERRCNT,FDA,SDIEN,ERR,STP
  1. S ERRCNT=0
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL("Updating of SD TELE HEALTH STOP CODE FILE...")
  1. D MES^XPDUTL("") H 1
  1. F STP=497,498 D
  1. . I $O(^SD(40.6,"B",STP,"")) D MES^XPDUTL(STP_" already on file") Q
  1. . I '$$CHKSTOP^SDTMPEDT(STP) D MES^XPDUTL(STP_" ** Not added, invalid stop code") Q
  1. . S FDA(40.6,"+1,",.01)=STP D UPDATE^DIE("","FDA","SDIEN","ERR")
  1. . D:'$D(ERR) MES^XPDUTL(STP_" added stop code")
  1. . I $D(ERR) D MES^XPDUTL(STP_" failed an attempt to add to the file.") S ERRCNT=ERRCNT+1
  1. . K FDA,SDIEN,ERR
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL("Stop Code Update completed. "_ERRCNT_" error(s) found.")
  1. D MES^XPDUTL("")
  1. Q