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 ---[H[J[2J[HSD53P798 676 printed Dec 13, 2024@02:46:42 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
