- 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 Feb 18, 2025@23:55:38 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