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 ---[H[J[2J[HEAS1190P 766 printed Nov 22, 2024@17:03:26 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
