PSS177P.m

PSS177P ;DAL/RJS-Set FDA MED GUIDE SERVER URL ;03/05/2013

 ;;1.0;PHARMACY DATA MANAGEMENT;**177**;09/30/97;Build 1

 ;POST-INSTALL TO POINT FDA MED GUIDE SERVER URL TO https://vaww.cmopnational.domain.ext/CR/FDAMedGuides/

 ;

 Q

POST ; POST INSTALL ENTRY POINT

 N DIE,DA,DR

 S DIE="^PS(59.7,",DA=1,DR="100///https://vaww.cmopnational.domain.ext/CR/FDAMedGuides/"

 D ^DIE

 D BMES^XPDUTL("FDA MED GUIDE SERVER URL UPDATE COMPLETE.")

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSS177P   447     printed  Apr 09, 2024@21:36:24                                                                                                                                                                                                      Page 2

PSS177P   ;DAL/RJS-Set FDA MED GUIDE SERVER URL ;03/05/2013

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**177**;09/30/97;Build 1

 +2       ;POST-INSTALL TO POINT FDA MED GUIDE SERVER URL TO https://vaww.cmopnational.domain.ext/CR/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.cmopnational.domain.ext/CR/FDAMedGuides/"

 +3        DO ^DIE

 +4        DO BMES^XPDUTL("FDA MED GUIDE SERVER URL UPDATE COMPLETE.")

 +5       ;

 +6        QUIT