EAS214U.m

EAS214U  ;SGU/GJW, - eGate - Uninstall to restore logical link in subscriber protocol ;

 ;;1.0;Enrollments Application System;**214**;2-15-2022;Build 7

 ;;Per VA Directive 6402, this routine should not be modified.

 ;

EN ;

 N EASPNAME,EASIEN,EASIENS,EASDATA,EASERR

 S EASPNAME="EAS EDB ORU-Z09 CLIENT"

 S EASIEN=$$FIND1^DIC(101,,"B",EASPNAME)

 S EASIENS=EASIEN_","

 S EASDATA(101,EASIENS,770.7)=$$GETL()

 D FILE^DIE("EK","EASDATA","EASERR")

 Q

 ;

GETL() ;

 Q $G(^XTMP("EAS214U",1))

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EAS214U   501     printed  Dec 13, 2024@01:53:36                                                                                                                                                                                                      Page 2

EAS214U   ;SGU/GJW, - eGate - Uninstall to restore logical link in subscriber protocol ;

 +1       ;;1.0;Enrollments Application System;**214**;2-15-2022;Build 7

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

EN        ;

 +1        NEW EASPNAME,EASIEN,EASIENS,EASDATA,EASERR

 +2        SET EASPNAME="EAS EDB ORU-Z09 CLIENT"

 +3        SET EASIEN=$$FIND1^DIC(101,,"B",EASPNAME)

 +4        SET EASIENS=EASIEN_","

 +5        SET EASDATA(101,EASIENS,770.7)=$$GETL()

 +6        DO FILE^DIE("EK","EASDATA","EASERR")

 +7        QUIT 

 +8       ;

GETL()    ;

 +1        QUIT $GET(^XTMP("EAS214U",1))

 +2       ;