SD53P798.m

SD53P798 ;TMP/GSN - TMP POST INSTALL FOR PATCH SD*5.3*798;July 30, 2018

 ;;5.3;Scheduling;**798**;May 29, 2018;Build 12

 ;

 ;Post install routine for SD*5.3*798 sets Facility Name field in HL7 App Param file #771 for 2 entries to null.

 ;

POST ;Post install routines for SD*5.3*780

 N FDA,AP,APN

 D BMES^XPDUTL("")

 D BMES^XPDUTL("*** Updating Facility Name to null in file #771 for the following entires: ***")

 F AP="SD TMP APPT SEND","SD TMP APPT RECEIVE" D

 . S APN=$$FIND1^DIC(771,"","",AP,"B") I APN<1 Q

 . K FDA S FDA(1,771,APN_",",3)=""

 . D FILE^DIE("","FDA(1)","ERROR")

 . D BMES^XPDUTL("***   Update for "_AP_" completed ***")

 D BMES^XPDUTL("")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD53P798   676     printed  Apr 09, 2024@21:57:10                                                                                                                                                                                                     Page 2

SD53P798  ;TMP/GSN - TMP POST INSTALL FOR PATCH SD*5.3*798;July 30, 2018

 +1       ;;5.3;Scheduling;**798**;May 29, 2018;Build 12

 +2       ;

 +3       ;Post install routine for SD*5.3*798 sets Facility Name field in HL7 App Param file #771 for 2 entries to null.

 +4       ;

POST      ;Post install routines for SD*5.3*780

 +1        NEW FDA,AP,APN

 +2        DO BMES^XPDUTL("")

 +3        DO BMES^XPDUTL("*** Updating Facility Name to null in file #771 for the following entires: ***")

 +4        FOR AP="SD TMP APPT SEND","SD TMP APPT RECEIVE"

               Begin DoDot:1

 +5                SET APN=$$FIND1^DIC(771,"","",AP,"B")

                   IF APN<1

                       QUIT 

 +6                KILL FDA

                   SET FDA(1,771,APN_",",3)=""

 +7                DO FILE^DIE("","FDA(1)","ERROR")

 +8                DO BMES^XPDUTL("***   Update for "_AP_" completed ***")

               End DoDot:1

 +9        DO BMES^XPDUTL("")

 +10       QUIT