Released EAS*1*214 SEQ #182 Extracted from mail message **KIDS**:EAS*1.0*214^ **INSTALL NAME** EAS*1.0*214 "BLD",11844,0) EAS*1.0*214^ENROLLMENT APPLICATION SYSTEM^0^3220406^y "BLD",11844,4,0) ^9.64PA^^ "BLD",11844,6) 7 "BLD",11844,6.3) 7 "BLD",11844,"INIT") EAS214P "BLD",11844,"KRN",0) ^9.67PA^1.5^25 "BLD",11844,"KRN",.4,0) .4 "BLD",11844,"KRN",.401,0) .401 "BLD",11844,"KRN",.402,0) .402 "BLD",11844,"KRN",.403,0) .403 "BLD",11844,"KRN",.5,0) .5 "BLD",11844,"KRN",.84,0) .84 "BLD",11844,"KRN",1.5,0) 1.5 "BLD",11844,"KRN",1.6,0) 1.6 "BLD",11844,"KRN",1.61,0) 1.61 "BLD",11844,"KRN",1.62,0) 1.62 "BLD",11844,"KRN",3.6,0) 3.6 "BLD",11844,"KRN",3.8,0) 3.8 "BLD",11844,"KRN",9.2,0) 9.2 "BLD",11844,"KRN",9.8,0) 9.8 "BLD",11844,"KRN",9.8,"NM",0) ^9.68A^2^2 "BLD",11844,"KRN",9.8,"NM",1,0) EAS214P^^0^B74026582 "BLD",11844,"KRN",9.8,"NM",2,0) EAS214U^^0^B966016 "BLD",11844,"KRN",9.8,"NM","B","EAS214P",1) "BLD",11844,"KRN",9.8,"NM","B","EAS214U",2) "BLD",11844,"KRN",19,0) 19 "BLD",11844,"KRN",19.1,0) 19.1 "BLD",11844,"KRN",101,0) 101 "BLD",11844,"KRN",409.61,0) 409.61 "BLD",11844,"KRN",771,0) 771 "BLD",11844,"KRN",779.2,0) 779.2 "BLD",11844,"KRN",870,0) 870 "BLD",11844,"KRN",870,"NM",0) ^9.68A^1^1 "BLD",11844,"KRN",870,"NM",1,0) EASLLZ09^^0 "BLD",11844,"KRN",870,"NM","B","EASLLZ09",1) "BLD",11844,"KRN",8989.51,0) 8989.51 "BLD",11844,"KRN",8989.52,0) 8989.52 "BLD",11844,"KRN",8993,0) 8993 "BLD",11844,"KRN",8994,0) 8994 "BLD",11844,"KRN","B",.4,.4) "BLD",11844,"KRN","B",.401,.401) "BLD",11844,"KRN","B",.402,.402) "BLD",11844,"KRN","B",.403,.403) "BLD",11844,"KRN","B",.5,.5) "BLD",11844,"KRN","B",.84,.84) "BLD",11844,"KRN","B",1.5,1.5) "BLD",11844,"KRN","B",1.6,1.6) "BLD",11844,"KRN","B",1.61,1.61) "BLD",11844,"KRN","B",1.62,1.62) "BLD",11844,"KRN","B",3.6,3.6) "BLD",11844,"KRN","B",3.8,3.8) "BLD",11844,"KRN","B",9.2,9.2) "BLD",11844,"KRN","B",9.8,9.8) "BLD",11844,"KRN","B",19,19) "BLD",11844,"KRN","B",19.1,19.1) "BLD",11844,"KRN","B",101,101) "BLD",11844,"KRN","B",409.61,409.61) "BLD",11844,"KRN","B",771,771) "BLD",11844,"KRN","B",779.2,779.2) "BLD",11844,"KRN","B",870,870) "BLD",11844,"KRN","B",8989.51,8989.51) "BLD",11844,"KRN","B",8989.52,8989.52) "BLD",11844,"KRN","B",8993,8993) "BLD",11844,"KRN","B",8994,8994) "BLD",11844,"REST") EAS214U "INIT") EAS214P "KRN",870,290,-1) 0^1 "KRN",870,290,0) EASLLZ09^^TCP^^^^^^^^^^^^^^^^^^10 "KRN",870,290,200) ^3^^90^270^^^^^R "KRN",870,290,400) ^^C^N^^^^^ "MBREQ") 0 "ORD",13,870) 870;13;1;;HLLL^XPDTA1;;HLLLE^XPDIA1;;;HLLLDEL^XPDIA1(%) "ORD",13,870,0) HL LOGICAL LINK "PKG",538,-1) 1^1 "PKG",538,0) ENROLLMENT APPLICATION SYSTEM^EAS^ENROLLMENT "PKG",538,22,0) ^9.49I^1^1 "PKG",538,22,1,0) 1.0^3010315^3010322^11856 "PKG",538,22,1,"PAH",1,0) 214^3220406^11967 "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "REST") EAS214U "RTN") 2 "RTN","EAS214P") 0^1^B74026582^n/a "RTN","EAS214P",1,0) EAS214P ;ATL/JPN, - eGate - Post install to add logical links into the system ; 21 Dec 2021 12:58 PM "RTN","EAS214P",2,0) ;;1.0;Enrollments Application System;**214**;2-14-2022;Build 7 "RTN","EAS214P",3,0) ;;Per VA Directive 6402, this routine should not be modified. "RTN","EAS214P",4,0) ; "RTN","EAS214P",5,0) ; "RTN","EAS214P",6,0) EN ;Entry point "RTN","EAS214P",7,0) N EASADDR,EASLLIEN,EASTEST,EASPORT,EASSLLN,EASLLO,EASSTAT,J,X "RTN","EAS214P",8,0) ; "RTN","EAS214P",9,0) S EASTEST=$S($$PROD^XUPROD:0,1:1) ;value of 1 indicates test system "RTN","EAS214P",10,0) ; "RTN","EAS214P",11,0) ;Station number "RTN","EAS214P",12,0) S EASSTAT=$P($$SITE^VASITE,"^",3) "RTN","EAS214P",13,0) ; "RTN","EAS214P",14,0) ;Only set the TCP/IP port number if installing in production environment. "RTN","EAS214P",15,0) ;Port will be null if installing in test environment. "RTN","EAS214P",16,0) S EASPORT="" S:'EASTEST EASPORT=7300 "RTN","EAS214P",17,0) ; "RTN","EAS214P",18,0) ;Loop through tag DATA to find station number, get TCP/IP address corresponding to VDIF regional server "RTN","EAS214P",19,0) F J=1:1 S X=$T(DATA+J) Q:'$P(X,";",3) I EASSTAT=$P(X,";",3) S EASADDR=$P(X,";",4) Q "RTN","EAS214P",20,0) ; "RTN","EAS214P",21,0) ;If station number was not in the list, display error message and quit "RTN","EAS214P",22,0) I $G(EASADDR)="" D BMES^XPDUTL("Unable to find TCP/IP Address for station number ("_EASSTAT_"). Contact support.") "RTN","EAS214P",23,0) ; "RTN","EAS214P",24,0) ;Do not set TCP/IP address if installing in test environment. Set to null after checking for Station number not found. "RTN","EAS214P",25,0) S:EASTEST EASADDR="" "RTN","EAS214P",26,0) ; "RTN","EAS214P",27,0) ;New logical link name is EASLLZ09, used for VistA event Z09 communication with VDIF regional server. "RTN","EAS214P",28,0) S EASSLLN="EASLLZ09" "RTN","EAS214P",29,0) ; "RTN","EAS214P",30,0) ;Create or update logical link, function returns new logical link ien or error "RTN","EAS214P",31,0) S EASLLIEN=$$SETLL16(EASSLLN,$G(EASADDR),$G(EASPORT)) "RTN","EAS214P",32,0) ; "RTN","EAS214P",33,0) ;Add the new logical link to existing protocol "RTN","EAS214P",34,0) D PROTOCOL(EASLLIEN,EASSTAT) "RTN","EAS214P",35,0) ; "RTN","EAS214P",36,0) Q "RTN","EAS214P",37,0) ; "RTN","EAS214P",38,0) SETLL16(EASSLLN,EASADDR,EASPORT) ; "RTN","EAS214P",39,0) ;Input EASSLLN = Logical Link Name (ex. "LL HEC 500") (required) "RTN","EAS214P",40,0) ; EASADDR = TCP/IP Address (optional, defaults null) "RTN","EAS214P",41,0) ; EASPORT = TCP/IP Port # (optional, defaults to null) "RTN","EAS214P",42,0) ; "RTN","EAS214P",43,0) ;Purpose: Create or update a Logical Link for TCP/IP transmissions, HL7 event Z09 "RTN","EAS214P",44,0) ; "RTN","EAS214P",45,0) N EASDATA,EASERR,EASIEN,EASRTN,EASOLD "RTN","EAS214P",46,0) S EASADDR=$G(EASADDR),EASPORT=$G(EASPORT) "RTN","EAS214P",47,0) ; "RTN","EAS214P",48,0) ;Set up array of data to file "RTN","EAS214P",49,0) S EASDATA(870,"?+1,",.01)=EASSLLN ;LOGICAL LINK NAME "RTN","EAS214P",50,0) S EASDATA(870,"?+1,",2)=$O(^HLCS(869.1,"B","TCP",0)) ;LLP TYPE, TCP "RTN","EAS214P",51,0) S EASDATA(870,"?+1,",3)="NC" ;QUEUE TYPE, NC=NON-PERSISTENT CLIENT "RTN","EAS214P",52,0) S EASDATA(870,"?+1,",4.5)=1 ;AUTOSTART ENABLED "RTN","EAS214P",53,0) S EASDATA(870,"?+1,",21)=10 ;QUEUE SIZE "RTN","EAS214P",54,0) S EASDATA(870,"?+1,",200.02)=3 ;RE-TRANSMISSION ATTEMPTS "RTN","EAS214P",55,0) S EASDATA(870,"?+1,",200.021)="R" ;EXCEED RE-TRANSMISSION, R=RESTART "RTN","EAS214P",56,0) S EASDATA(870,"?+1,",200.04)=90 ;READ TIMEOUT "RTN","EAS214P",57,0) S EASDATA(870,"?+1,",200.05)=270 ;ACK TIMEOUT "RTN","EAS214P",58,0) S EASDATA(870,"?+1,",400.01)=EASADDR ;TCP/IP ADDRESS "RTN","EAS214P",59,0) S EASDATA(870,"?+1,",400.02)=EASPORT ;TCP/IP PORT "RTN","EAS214P",60,0) S EASDATA(870,"?+1,",400.03)="C" ;TCP/IP SERVICE TYPE, C=CLIENT(SENDER) "RTN","EAS214P",61,0) S EASDATA(870,"?+1,",400.04)="N" ;PERSISTENT, N=NO "RTN","EAS214P",62,0) S EASDATA(870,"?+1,",400.06)="" ;STARTUP NODE "RTN","EAS214P",63,0) S EASDATA(870,"?+1,",14)=1 ;SHUTDOWN "RTN","EAS214P",64,0) ; "RTN","EAS214P",65,0) ;File new entry "RTN","EAS214P",66,0) D UPDATE^DIE("","EASDATA","EASIEN","EASERR") "RTN","EAS214P",67,0) ; "RTN","EAS214P",68,0) ;Return new logical link ien if successful,otherwise return -1. "RTN","EAS214P",69,0) ; "RTN","EAS214P",70,0) S EASRTN=+$G(EASIEN(1)) "RTN","EAS214P",71,0) S:$D(EASERR)!(+EASRTN=0) EASRTN=-1 "RTN","EAS214P",72,0) ; "RTN","EAS214P",73,0) I +EASRTN<0 D BMES^XPDUTL("Unable to create "_EASSLLN_", contact support.") Q EASRTN "RTN","EAS214P",74,0) I EASTEST D BMES^XPDUTL("Test Environment, TCP/IP address and port omitted from logical link "_EASSLLN_".") Q EASRTN "RTN","EAS214P",75,0) D BMES^XPDUTL("Logical link "_EASSLLN_" successfully updated.") "RTN","EAS214P",76,0) Q EASRTN "RTN","EAS214P",77,0) ; "RTN","EAS214P",78,0) PROTOCOL(EASLLIEN,EASSTAT) ; "RTN","EAS214P",79,0) ;Input EASLLIEN = Logical Link IEN "RTN","EAS214P",80,0) ; EASSTAT = Station number "RTN","EAS214P",81,0) ; "RTN","EAS214P",82,0) ;Purpose: Use the new logical link in an existing protocol "RTN","EAS214P",83,0) ; "RTN","EAS214P",84,0) N DA,DIE,DR,LLOLD,PIEN,PNAME "RTN","EAS214P",85,0) ; "RTN","EAS214P",86,0) ;For each protocol, update the logical link "RTN","EAS214P",87,0) S PNAME="EAS EDB ORU-Z09 CLIENT" "RTN","EAS214P",88,0) ;Get IEN for protocol "RTN","EAS214P",89,0) S PIEN=$$FIND1^DIC(101,,"B",PNAME) "RTN","EAS214P",90,0) I +PIEN'>0 D BMES^XPDUTL("Unable to update logical link in protocol "_PNAME_", contact support") Q "RTN","EAS214P",91,0) ; "RTN","EAS214P",92,0) ;Get the original logical link "RTN","EAS214P",93,0) S LLOLD=$$LNAME(PNAME) "RTN","EAS214P",94,0) ;and save it to ^XTMP for possible uninstall. "RTN","EAS214P",95,0) D SETL(LLOLD) "RTN","EAS214P",96,0) ; "RTN","EAS214P",97,0) ;Update the logical link "RTN","EAS214P",98,0) S DR=770.7_"////"_EASLLIEN,DIE=101,DA=PIEN D ^DIE "RTN","EAS214P",99,0) D:LLOLD'="EASLLZ09" "RTN","EAS214P",100,0) . D BMES^XPDUTL("Logical link changed in "_PNAME) "RTN","EAS214P",101,0) . D MES^XPDUTL("Old: "_LLOLD) "RTN","EAS214P",102,0) . D MES^XPDUTL("New: EASLLZ09") "RTN","EAS214P",103,0) Q "RTN","EAS214P",104,0) ; "RTN","EAS214P",105,0) LNAME(EASP) ;link name "RTN","EAS214P",106,0) N EASIENS,EASERR "RTN","EAS214P",107,0) S EASP=$$FIND1^DIC(101,,"AB",EASP) "RTN","EAS214P",108,0) S EASIENS=EASP_"," "RTN","EAS214P",109,0) Q $$GET1^DIQ(101,EASIENS,770.7,,,"EASERR") "RTN","EAS214P",110,0) ; "RTN","EAS214P",111,0) SETL(EASVAL,EASTTL) ;set link (uninstall data) "RTN","EAS214P",112,0) S EASTTL=+$G(EASTTL,30) ;default to 30 days "RTN","EAS214P",113,0) S ^XTMP("EAS214U",0)=DT_U_$$FMADD^XLFDT(DT,EASTTL)_U_"uninstall data for EAS*1*214" "RTN","EAS214P",114,0) S ^XTMP("EAS214U",1)=$G(EASVAL) "RTN","EAS214P",115,0) Q "RTN","EAS214P",116,0) ; "RTN","EAS214P",117,0) DATA ; format ;;site#;TCP/IP address (TCP/IP address will be used in new Logical Link, variable EASADDR) "RTN","EAS214P",118,0) ;;358;hc-vdif-r01-01.domain.ext "RTN","EAS214P",119,0) ;;459;hc-vdif-r01-01.domain.ext "RTN","EAS214P",120,0) ;;463;hc-vdif-r01-01.domain.ext "RTN","EAS214P",121,0) ;;504;hc-vdif-r01-01.domain.ext "RTN","EAS214P",122,0) ;;519;hc-vdif-r01-01.domain.ext "RTN","EAS214P",123,0) ;;531;hc-vdif-r01-01.domain.ext "RTN","EAS214P",124,0) ;;570;hc-vdif-r01-01.domain.ext "RTN","EAS214P",125,0) ;;612;hc-vdif-r01-01.domain.ext "RTN","EAS214P",126,0) ;;640;hc-vdif-r01-01.domain.ext "RTN","EAS214P",127,0) ;;648;hc-vdif-r01-01.domain.ext "RTN","EAS214P",128,0) ;;653;hc-vdif-r01-01.domain.ext "RTN","EAS214P",129,0) ;;654;hc-vdif-r01-01.domain.ext "RTN","EAS214P",130,0) ;;663;hc-vdif-r01-01.domain.ext "RTN","EAS214P",131,0) ;;668;hc-vdif-r01-01.domain.ext "RTN","EAS214P",132,0) ;;687;hc-vdif-r01-01.domain.ext "RTN","EAS214P",133,0) ;;691;hc-vdif-r01-01.domain.ext "RTN","EAS214P",134,0) ;;692;hc-vdif-r01-01.domain.ext "RTN","EAS214P",135,0) ;;437;hc-vdif-r02-01.domain.ext "RTN","EAS214P",136,0) ;;438;hc-vdif-r02-01.domain.ext "RTN","EAS214P",137,0) ;;502;hc-vdif-r02-01.domain.ext "RTN","EAS214P",138,0) ;;520;hc-vdif-r02-01.domain.ext "RTN","EAS214P",139,0) ;;537;hc-vdif-r02-01.domain.ext "RTN","EAS214P",140,0) ;;549;hc-vdif-r02-01.domain.ext "RTN","EAS214P",141,0) ;;556;hc-vdif-r02-01.domain.ext "RTN","EAS214P",142,0) ;;564;hc-vdif-r02-01.domain.ext "RTN","EAS214P",143,0) ;;568;hc-vdif-r02-01.domain.ext "RTN","EAS214P",144,0) ;;578;hc-vdif-r02-01.domain.ext "RTN","EAS214P",145,0) ;;580;hc-vdif-r02-01.domain.ext "RTN","EAS214P",146,0) ;;585;hc-vdif-r02-01.domain.ext "RTN","EAS214P",147,0) ;;586;hc-vdif-r02-01.domain.ext "RTN","EAS214P",148,0) ;;589;hc-vdif-r02-01.domain.ext "RTN","EAS214P",149,0) ;;598;hc-vdif-r02-01.domain.ext "RTN","EAS214P",150,0) ;;607;hc-vdif-r02-01.domain.ext "RTN","EAS214P",151,0) ;;618;hc-vdif-r02-01.domain.ext "RTN","EAS214P",152,0) ;;623;hc-vdif-r02-01.domain.ext "RTN","EAS214P",153,0) ;;626;hc-vdif-r03-01.domain.ext "RTN","EAS214P",154,0) ;;629;hc-vdif-r02-01.domain.ext "RTN","EAS214P",155,0) ;;635;hc-vdif-r02-01.domain.ext "RTN","EAS214P",156,0) ;;636;hc-vdif-r02-01.domain.ext "RTN","EAS214P",157,0) ;;656;hc-vdif-r02-01.domain.ext "RTN","EAS214P",158,0) ;;657;hc-vdif-r02-01.domain.ext "RTN","EAS214P",159,0) ;;667;hc-vdif-r02-01.domain.ext "RTN","EAS214P",160,0) ;;671;hc-vdif-r02-01.domain.ext "RTN","EAS214P",161,0) ;;674;hc-vdif-r02-01.domain.ext "RTN","EAS214P",162,0) ;;676;hc-vdif-r02-01.domain.ext "RTN","EAS214P",163,0) ;;695;hc-vdif-r02-01.domain.ext "RTN","EAS214P",164,0) ;;740;hc-vdif-r02-01.domain.ext "RTN","EAS214P",165,0) ;;506;hc-vdif-r03-01.domain.ext "RTN","EAS214P",166,0) ;;508;hc-vdif-r03-01.domain.ext "RTN","EAS214P",167,0) ;;509;hc-vdif-r03-01.domain.ext "RTN","EAS214P",168,0) ;;515;hc-vdif-r03-01.domain.ext "RTN","EAS214P",169,0) ;;516;hc-vdif-r03-01.domain.ext "RTN","EAS214P",170,0) ;;517;hc-vdif-r03-01.domain.ext "RTN","EAS214P",171,0) ;;521;hc-vdif-r03-01.domain.ext "RTN","EAS214P",172,0) ;;534;hc-vdif-r03-01.domain.ext "RTN","EAS214P",173,0) ;;538;hc-vdif-r03-01.domain.ext "RTN","EAS214P",174,0) ;;539;hc-vdif-r03-01.domain.ext "RTN","EAS214P",175,0) ;;541;hc-vdif-r03-01.domain.ext "RTN","EAS214P",176,0) ;;544;hc-vdif-r03-01.domain.ext "RTN","EAS214P",177,0) ;;546;hc-vdif-r03-01.domain.ext "RTN","EAS214P",178,0) ;;548;hc-vdif-r03-01.domain.ext "RTN","EAS214P",179,0) ;;550;hc-vdif-r03-01.domain.ext "RTN","EAS214P",180,0) ;;552;hc-vdif-r03-01.domain.ext "RTN","EAS214P",181,0) ;;553;hc-vdif-r03-01.domain.ext "RTN","EAS214P",182,0) ;;557;hc-vdif-r03-01.domain.ext "RTN","EAS214P",183,0) ;;558;hc-vdif-r03-01.domain.ext "RTN","EAS214P",184,0) ;;565;hc-vdif-r03-01.domain.ext "RTN","EAS214P",185,0) ;;573;hc-vdif-r03-01.domain.ext "RTN","EAS214P",186,0) ;;581;hc-vdif-r03-01.domain.ext "RTN","EAS214P",187,0) ;;583;hc-vdif-r03-01.domain.ext "RTN","EAS214P",188,0) ;;590;hc-vdif-r03-01.domain.ext "RTN","EAS214P",189,0) ;;596;hc-vdif-r03-01.domain.ext "RTN","EAS214P",190,0) ;;603;hc-vdif-r03-01.domain.ext "RTN","EAS214P",191,0) ;;610;hc-vdif-r03-01.domain.ext "RTN","EAS214P",192,0) ;;614;hc-vdif-r03-01.domain.ext "RTN","EAS214P",193,0) ;;619;hc-vdif-r03-01.domain.ext "RTN","EAS214P",194,0) ;;621;hc-vdif-r03-01.domain.ext "RTN","EAS214P",195,0) ;;637;hc-vdif-r03-01.domain.ext "RTN","EAS214P",196,0) ;;652;hc-vdif-r03-01.domain.ext "RTN","EAS214P",197,0) ;;655;hc-vdif-r03-01.domain.ext "RTN","EAS214P",198,0) ;;658;hc-vdif-r03-01.domain.ext "RTN","EAS214P",199,0) ;;659;hc-vdif-r03-01.domain.ext "RTN","EAS214P",200,0) ;;672;hc-vdif-r03-01.domain.ext "RTN","EAS214P",201,0) ;;673;hc-vdif-r03-01.domain.ext "RTN","EAS214P",202,0) ;;675;hc-vdif-r03-01.domain.ext "RTN","EAS214P",203,0) ;;679;hc-vdif-r03-01.domain.ext "RTN","EAS214P",204,0) ;;757;hc-vdif-r03-01.domain.ext "RTN","EAS214P",205,0) ;;460;hc-vdif-r04-01.domain.ext "RTN","EAS214P",206,0) ;;503;hc-vdif-r04-01.domain.ext "RTN","EAS214P",207,0) ;;512;hc-vdif-r04-01.domain.ext "RTN","EAS214P",208,0) ;;529;hc-vdif-r04-01.domain.ext "RTN","EAS214P",209,0) ;;540;hc-vdif-r04-01.domain.ext "RTN","EAS214P",210,0) ;;542;hc-vdif-r04-01.domain.ext "RTN","EAS214P",211,0) ;;562;hc-vdif-r04-01.domain.ext "RTN","EAS214P",212,0) ;;595;hc-vdif-r04-01.domain.ext "RTN","EAS214P",213,0) ;;613;hc-vdif-r04-01.domain.ext "RTN","EAS214P",214,0) ;;642;hc-vdif-r04-01.domain.ext "RTN","EAS214P",215,0) ;;646;hc-vdif-r04-01.domain.ext "RTN","EAS214P",216,0) ;;688;hc-vdif-r04-01.domain.ext "RTN","EAS214P",217,0) ;;693;hc-vdif-r04-01.domain.ext "RTN","EAS214P",218,0) ;;436;hc-vdif-r01-02.domain.ext "RTN","EAS214P",219,0) ;;442;hc-vdif-r01-02.domain.ext "RTN","EAS214P",220,0) ;;501;hc-vdif-r01-02.domain.ext "RTN","EAS214P",221,0) ;;554;hc-vdif-r01-02.domain.ext "RTN","EAS214P",222,0) ;;575;hc-vdif-r01-02.domain.ext "RTN","EAS214P",223,0) ;;593;hc-vdif-r01-02.domain.ext "RTN","EAS214P",224,0) ;;600;hc-vdif-r01-02.domain.ext "RTN","EAS214P",225,0) ;;605;hc-vdif-r01-02.domain.ext "RTN","EAS214P",226,0) ;;644;hc-vdif-r01-02.domain.ext "RTN","EAS214P",227,0) ;;649;hc-vdif-r01-02.domain.ext "RTN","EAS214P",228,0) ;;660;hc-vdif-r01-02.domain.ext "RTN","EAS214P",229,0) ;;662;hc-vdif-r01-02.domain.ext "RTN","EAS214P",230,0) ;;664;hc-vdif-r01-02.domain.ext "RTN","EAS214P",231,0) ;;666;hc-vdif-r01-02.domain.ext "RTN","EAS214P",232,0) ;;678;hc-vdif-r01-02.domain.ext "RTN","EAS214P",233,0) ;;741;hc-vdif-r01-02.domain.ext "RTN","EAS214P",234,0) ;;756;hc-vdif-r01-02.domain.ext "RTN","EAS214P",235,0) ;;402;hc-vdif-r04-02.domain.ext "RTN","EAS214P",236,0) ;;405;hc-vdif-r04-02.domain.ext "RTN","EAS214P",237,0) ;;518;hc-vdif-r04-02.domain.ext "RTN","EAS214P",238,0) ;;523;hc-vdif-r04-02.domain.ext "RTN","EAS214P",239,0) ;;526;hc-vdif-r04-02.domain.ext "RTN","EAS214P",240,0) ;;528;hc-vdif-r04-02.domain.ext "RTN","EAS214P",241,0) ;;561;hc-vdif-r04-02.domain.ext "RTN","EAS214P",242,0) ;;608;hc-vdif-r04-02.domain.ext "RTN","EAS214P",243,0) ;;620;hc-vdif-r04-02.domain.ext "RTN","EAS214P",244,0) ;;630;hc-vdif-r04-02.domain.ext "RTN","EAS214P",245,0) ;;631;hc-vdif-r04-02.domain.ext "RTN","EAS214P",246,0) ;;632;hc-vdif-r04-02.domain.ext "RTN","EAS214P",247,0) ;;650;hc-vdif-r04-02.domain.ext "RTN","EAS214P",248,0) ;;689;hc-vdif-r04-02.domain.ext "RTN","EAS214P",249,0) ;; "RTN","EAS214P",250,0) ;;site#;TCP/IP address "RTN","EAS214P",251,0) Q "RTN","EAS214P",252,0) ; "RTN","EAS214U") 0^2^B966016^n/a "RTN","EAS214U",1,0) EAS214U ;SGU/GJW, - eGate - Uninstall to restore logical link in subscriber protocol ; "RTN","EAS214U",2,0) ;;1.0;Enrollments Application System;**214**;2-15-2022;Build 7 "RTN","EAS214U",3,0) ;;Per VA Directive 6402, this routine should not be modified. "RTN","EAS214U",4,0) ; "RTN","EAS214U",5,0) EN ; "RTN","EAS214U",6,0) N EASPNAME,EASIEN,EASIENS,EASDATA,EASERR "RTN","EAS214U",7,0) S EASPNAME="EAS EDB ORU-Z09 CLIENT" "RTN","EAS214U",8,0) S EASIEN=$$FIND1^DIC(101,,"B",EASPNAME) "RTN","EAS214U",9,0) S EASIENS=EASIEN_"," "RTN","EAS214U",10,0) S EASDATA(101,EASIENS,770.7)=$$GETL() "RTN","EAS214U",11,0) D FILE^DIE("EK","EASDATA","EASERR") "RTN","EAS214U",12,0) Q "RTN","EAS214U",13,0) ; "RTN","EAS214U",14,0) GETL() ; "RTN","EAS214U",15,0) Q $G(^XTMP("EAS214U",1)) "RTN","EAS214U",16,0) ; "VER") 8.0^22.2 "BLD",11844,6) ^182 **END** **END**