EAS1190P.m

EAS1190P ;ALB/KUM - Patch Post-Install functions EAS*1*190 ; 4/17/20 3:03pm

 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**190**;17-APR-20;Build 45

 ;Per VHA Directive 2004-038, this routine should not be modified. 

 ;

 Q

 ;

 ;Supported ICRs

 ; #5567 - XPDPROT call

 ; #10141 - XPDUTL - Public APIs for KIDS

 ; #2056 - $$GET1^DIQ(}

 ; #2051 - $$FIND1^DIQ(}

 ; 

EN  ;Disable protocol

 ;

 ; EASPRT - Protocol to disable

 ; EASTXT - Disabled protocol message text

 ;

 N EASOUT

 Q:$$PATCH^XPDUTL("EAS*1.0*190")

 N EASPRT,EASTXT

 S EASTXT="Link to Patient File has been disabled."

 ;

 S EASPRT="EAS EZ LINK TO FILE 2"

 D OUT^XPDPROT(EASPRT,EASTXT) ;Disable protocol

 D MES^XPDUTL("EAS EZ LINK TO FILE 2 - protocol was disabled.")

 D MES^XPDUTL(" ")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EAS1190P   766     printed  Apr 09, 2024@20:58:11                                                                                                                                                                                                     Page 2

EAS1190P  ;ALB/KUM - Patch Post-Install functions EAS*1*190 ; 4/17/20 3:03pm

 +1       ;;1.0;ENROLLMENT APPLICATION SYSTEM;**190**;17-APR-20;Build 45

 +2       ;Per VHA Directive 2004-038, this routine should not be modified. 

 +3       ;

 +4        QUIT 

 +5       ;

 +6       ;Supported ICRs

 +7       ; #5567 - XPDPROT call

 +8       ; #10141 - XPDUTL - Public APIs for KIDS

 +9       ; #2056 - $$GET1^DIQ(}

 +10      ; #2051 - $$FIND1^DIQ(}

 +11      ; 

EN        ;Disable protocol

 +1       ;

 +2       ; EASPRT - Protocol to disable

 +3       ; EASTXT - Disabled protocol message text

 +4       ;

 +5        NEW EASOUT

 +6        if $$PATCH^XPDUTL("EAS*1.0*190")

               QUIT 

 +7        NEW EASPRT,EASTXT

 +8        SET EASTXT="Link to Patient File has been disabled."

 +9       ;

 +10       SET EASPRT="EAS EZ LINK TO FILE 2"

 +11      ;Disable protocol

           DO OUT^XPDPROT(EASPRT,EASTXT)

 +12       DO MES^XPDUTL("EAS EZ LINK TO FILE 2 - protocol was disabled.")

 +13       DO MES^XPDUTL(" ")

 +14       QUIT