PSS257P ;WAR/PHI - Set FDA MED GUIDE SERVER URL ; 1/19/22 9:40am
;;1.0;PHARMACY DATA MANAGEMENT;**257**;09/30/97;Build 1
;POST-INSTALL TO POINT FDA MED GUIDE SERVER URL TO file://v12.domain.ext/v12/PBM/Workgroup/VistA_MedGuides/
;
Q
;
POST ;
N DIE,DA,DR
S DIE="^PS(59.7,",DA=1,DR="100///file://v12.domain.ext/v12/PBM/Workgroup/VistA_MedGuides/"
D ^DIE
D BMES^XPDUTL("FDA MED GUIDE SERVER URL UPDATE COMPLETE.")
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS257P 439 printed Dec 13, 2024@02:29:36 Page 2
PSS257P ;WAR/PHI - Set FDA MED GUIDE SERVER URL ; 1/19/22 9:40am
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**257**;09/30/97;Build 1
+2 ;POST-INSTALL TO POINT FDA MED GUIDE SERVER URL TO file://v12.domain.ext/v12/PBM/Workgroup/VistA_MedGuides/
+3 ;
+4 QUIT
+5 ;
POST ;
+1 NEW DIE,DA,DR
+2 SET DIE="^PS(59.7,"
SET DA=1
SET DR="100///file://v12.domain.ext/v12/PBM/Workgroup/VistA_MedGuides/"
+3 DO ^DIE
+4 DO BMES^XPDUTL("FDA MED GUIDE SERVER URL UPDATE COMPLETE.")
+5 ;
+6 QUIT
