PSS248P ;WAR - Set FDA MED GUIDE SERVER URL ; 12/23/20 2:40pm
;;1.0;PHARMACY DATA MANAGEMENT;**248**;09/30/97;Build 2
;POST-INSTALL TO POINT FDA MED GUIDE SERVER URL TO https://vaww.vashare.domain.ext/sites/PBMNat/FDAMedGuides/
;
Q
POST ; POST INSTALL ENTRY POINT
N DIE,DA,DR
S DIE="^PS(59.7,",DA=1,DR="100///https://vaww.vashare.domain.ext/sites/PBMNat/FDAMedGuides/"
D ^DIE
D BMES^XPDUTL("FDA MED GUIDE SERVER URL UPDATE COMPLETE.")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS248P 461 printed Sep 15, 2024@21:53:44 Page 2
PSS248P ;WAR - Set FDA MED GUIDE SERVER URL ; 12/23/20 2:40pm
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**248**;09/30/97;Build 2
+2 ;POST-INSTALL TO POINT FDA MED GUIDE SERVER URL TO https://vaww.vashare.domain.ext/sites/PBMNat/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.vashare.domain.ext/sites/PBMNat/FDAMedGuides/"
+3 DO ^DIE
+4 DO BMES^XPDUTL("FDA MED GUIDE SERVER URL UPDATE COMPLETE.")
+5 ;
+6 QUIT