PSS177P ;DAL/RJS-Set FDA MED GUIDE SERVER URL ;03/05/2013
;;1.0;PHARMACY DATA MANAGEMENT;**177**;09/30/97;Build 1
;POST-INSTALL TO POINT FDA MED GUIDE SERVER URL TO https://vaww.cmopnational.domain.ext/CR/FDAMedGuides/
;
Q
POST ; POST INSTALL ENTRY POINT
N DIE,DA,DR
S DIE="^PS(59.7,",DA=1,DR="100///https://vaww.cmopnational.domain.ext/CR/FDAMedGuides/"
D ^DIE
D BMES^XPDUTL("FDA MED GUIDE SERVER URL UPDATE COMPLETE.")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS177P 447 printed Dec 13, 2024@02:29:17 Page 2
PSS177P ;DAL/RJS-Set FDA MED GUIDE SERVER URL ;03/05/2013
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**177**;09/30/97;Build 1
+2 ;POST-INSTALL TO POINT FDA MED GUIDE SERVER URL TO https://vaww.cmopnational.domain.ext/CR/FDAMedGuides/
+3 ;
+4 QUIT
POST ; POST INSTALL ENTRY POINT
+1 NEW DIE,DA,DR
+2 SET DIE="^PS(59.7,"
SET DA=1
SET DR="100///https://vaww.cmopnational.domain.ext/CR/FDAMedGuides/"
+3 DO ^DIE
+4 DO BMES^XPDUTL("FDA MED GUIDE SERVER URL UPDATE COMPLETE.")
+5 ;
+6 QUIT
