MDPOST91 ;HPS/CW - Post Installation Tasks ; 9/11/19 8:38am
;;1.0;CLINICAL PROCEDURES;**91**;Apr 01, 2004;Build 5
;;Per VA Directive 6402, this routine should not be modified..
;
; This routine uses the following IAs:
; IA# 10141 MES^XPDUTL Kernel
; IA# 2263 [Supported] XPAR Utilities
;
Q
EN ; Post installation tasks to bring Legacy CP up to snuff
;
D BMES^XPDUTL(" Setting CP web link")
D EN^XPAR("SYS","MD WEBLINK",1,$$URL())
;
K MDK,MDKLST
D BMES^XPDUTL(" MD*1.0*91 Post Init complete")
;
Q
;
URL() ; [Function] Return Clinical Procedures Homepage URL
Q "dvagov.sharepoint.com/sites/oitspmhspcsclinproc"
;Q "dvagov.sharepoint.com/sites/OITEPMOClinicalProcedures/SitePages/Home.aspx"
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST91 744 printed Sep 23, 2025@19:19:47 Page 2
MDPOST91 ;HPS/CW - Post Installation Tasks ; 9/11/19 8:38am
+1 ;;1.0;CLINICAL PROCEDURES;**91**;Apr 01, 2004;Build 5
+2 ;;Per VA Directive 6402, this routine should not be modified..
+3 ;
+4 ; This routine uses the following IAs:
+5 ; IA# 10141 MES^XPDUTL Kernel
+6 ; IA# 2263 [Supported] XPAR Utilities
+7 ;
+8 QUIT
EN ; Post installation tasks to bring Legacy CP up to snuff
+1 ;
+2 DO BMES^XPDUTL(" Setting CP web link")
+3 DO EN^XPAR("SYS","MD WEBLINK",1,$$URL())
+4 ;
+5 KILL MDK,MDKLST
+6 DO BMES^XPDUTL(" MD*1.0*91 Post Init complete")
+7 ;
+8 QUIT
+9 ;
URL() ; [Function] Return Clinical Procedures Homepage URL
+1 QUIT "dvagov.sharepoint.com/sites/oitspmhspcsclinproc"
+2 ;Q "dvagov.sharepoint.com/sites/OITEPMOClinicalProcedures/SitePages/Home.aspx"
+3 ;
+4 QUIT
