PSS257P.m

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 ---PSS257P   439     printed  Apr 09, 2024@21:34:34                                                                                                                                                                                                      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