Routine: PSS248P

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/

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.")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS248P   461     printed  Apr 09, 2024@21:35:43                                                                                                                                                                                                      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

PSS248P.m