MDPOST91.m

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 ---MDPOST91   744     printed  Apr 23, 2025@17:58:15                                                                                                                                                                                                     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