Released DG*5.3*942 SEQ #832 Extracted from mail message **KIDS**:DG*5.3*942^ **INSTALL NAME** DG*5.3*942 "BLD",10378,0) DG*5.3*942^REGISTRATION^0^3171101^y "BLD",10378,1,0) ^^4^4^3171030^ "BLD",10378,1,1,0) Patch DG*5.3*942 (this patch) adds these two (2) new entries to the HL "BLD",10378,1,2,0) LOGICAL LINK (#870) File: 200TA and 200TB. This patch via "BLD",10378,1,3,0) post-install routine DG53P942 modifies the DNS DOMAIN for facility "BLD",10378,1,4,0) 200T7. "BLD",10378,4,0) ^9.64PA^^ "BLD",10378,6) 1^ "BLD",10378,6.3) 11 "BLD",10378,"ABPKG") n "BLD",10378,"INID") ^n "BLD",10378,"INIT") EN^DG53P942 "BLD",10378,"KRN",0) ^9.67PA^779.2^20 "BLD",10378,"KRN",.4,0) .4 "BLD",10378,"KRN",.401,0) .401 "BLD",10378,"KRN",.402,0) .402 "BLD",10378,"KRN",.403,0) .403 "BLD",10378,"KRN",.5,0) .5 "BLD",10378,"KRN",.84,0) .84 "BLD",10378,"KRN",3.6,0) 3.6 "BLD",10378,"KRN",3.8,0) 3.8 "BLD",10378,"KRN",9.2,0) 9.2 "BLD",10378,"KRN",9.8,0) 9.8 "BLD",10378,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",10378,"KRN",9.8,"NM",1,0) DG53P942^^0^B4340068 "BLD",10378,"KRN",9.8,"NM","B","DG53P942",1) "BLD",10378,"KRN",19,0) 19 "BLD",10378,"KRN",19.1,0) 19.1 "BLD",10378,"KRN",101,0) 101 "BLD",10378,"KRN",409.61,0) 409.61 "BLD",10378,"KRN",771,0) 771 "BLD",10378,"KRN",779.2,0) 779.2 "BLD",10378,"KRN",870,0) 870 "BLD",10378,"KRN",870,"NM",0) ^9.68A^2^2 "BLD",10378,"KRN",870,"NM",1,0) DGHT 200TA^^0 "BLD",10378,"KRN",870,"NM",2,0) DGHT 200TB^^0 "BLD",10378,"KRN",870,"NM","B","DGHT 200TA",1) "BLD",10378,"KRN",870,"NM","B","DGHT 200TB",2) "BLD",10378,"KRN",8989.51,0) 8989.51 "BLD",10378,"KRN",8989.51,"NM",0) ^9.68A^^ "BLD",10378,"KRN",8989.52,0) 8989.52 "BLD",10378,"KRN",8989.52,"NM",0) ^9.68A^^ "BLD",10378,"KRN",8994,0) 8994 "BLD",10378,"KRN",8994,"NM",0) ^9.68A^^ "BLD",10378,"KRN","B",.4,.4) "BLD",10378,"KRN","B",.401,.401) "BLD",10378,"KRN","B",.402,.402) "BLD",10378,"KRN","B",.403,.403) "BLD",10378,"KRN","B",.5,.5) "BLD",10378,"KRN","B",.84,.84) "BLD",10378,"KRN","B",3.6,3.6) "BLD",10378,"KRN","B",3.8,3.8) "BLD",10378,"KRN","B",9.2,9.2) "BLD",10378,"KRN","B",9.8,9.8) "BLD",10378,"KRN","B",19,19) "BLD",10378,"KRN","B",19.1,19.1) "BLD",10378,"KRN","B",101,101) "BLD",10378,"KRN","B",409.61,409.61) "BLD",10378,"KRN","B",771,771) "BLD",10378,"KRN","B",779.2,779.2) "BLD",10378,"KRN","B",870,870) "BLD",10378,"KRN","B",8989.51,8989.51) "BLD",10378,"KRN","B",8989.52,8989.52) "BLD",10378,"KRN","B",8994,8994) "BLD",10378,"QDEF") ^^^^NO^^^^NO^^NO "BLD",10378,"QUES",0) ^9.62^^ "BLD",10378,"REQB",0) ^9.611^^ "INIT") EN^DG53P942 "KRN",870,284,-1) 0^1 "KRN",870,284,0) DGHT 200TA^1VISION^TCP^^^^^VAWW.HL7.200TA.CC.DOMAIN.EXT^^^^^^^^^^^^^10 "KRN",870,284,200) ^^^^^^^^^R "KRN",870,284,400) ^5121^C^N^^^^^ "KRN",870,285,-1) 0^2 "KRN",870,285,0) DGHT 200TB^CARE INNOVATIONS^TCP^^^^^VAWW.HL7.200TB.CC.DOMAIN.EXT^^^^^^^^^^^^^10 "KRN",870,285,200) ^^^^^^^^^R "KRN",870,285,400) ^5121^C^N^^^^^ "MBREQ") 0 "ORD",13,870) 870;13;1;;HLLL^XPDTA1;;HLLLE^XPDIA1;;;HLLLDEL^XPDIA1(%) "ORD",13,870,0) HL LOGICAL LINK "PKG",5,-1) 1^1 "PKG",5,0) REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER "PKG",5,20,0) ^9.402P^^ "PKG",5,22,0) ^9.49I^1^1 "PKG",5,22,1,0) 5.3^2930813^2930930 "PKG",5,22,1,"PAH",1,0) 942^3171101^520736558 "PKG",5,22,1,"PAH",1,1,0) ^^4^4^3171101 "PKG",5,22,1,"PAH",1,1,1,0) Patch DG*5.3*942 (this patch) adds these two (2) new entries to the HL "PKG",5,22,1,"PAH",1,1,2,0) LOGICAL LINK (#870) File: 200TA and 200TB. This patch via "PKG",5,22,1,"PAH",1,1,3,0) post-install routine DG53P942 modifies the DNS DOMAIN for facility "PKG",5,22,1,"PAH",1,1,4,0) 200T7. "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 "RTN") 1 "RTN","DG53P942") 0^1^B4340068^n/a "RTN","DG53P942",1,0) DG53P942 ;ALB/LLS-Update DNS DOMAIN for HL Logical Link ;7/26/17 08:20 "RTN","DG53P942",2,0) ;;5.3;Registration;**942**;Aug 13, 1993;Build 11 "RTN","DG53P942",3,0) ; Uses ICRs: "RTN","DG53P942",4,0) ; #4440 KERNEL Supported DBIA4440 "RTN","DG53P942",5,0) Q "RTN","DG53P942",6,0) EN ;Post install entry point "RTN","DG53P942",7,0) D CHG "RTN","DG53P942",8,0) Q "RTN","DG53P942",9,0) ; "RTN","DG53P942",10,0) CHG ;Change DNS DOMAIN field of the HL LOGICAL LINK file (#870) for entry DG HT CC "RTN","DG53P942",11,0) N DIC,DR,DA,DGIEN,DIE "RTN","DG53P942",12,0) I '$$PROD^XUPROD(1) D BMES^XPDUTL("Install was done in a non-production environment."),BMES^XPDUTL("DNS DOMAIN, TCP/IP ADDRESS, and MAILMAN DOMAIN fields not updated.") Q "RTN","DG53P942",13,0) S DGIEN=$O(^HLCS(870,"B","DG HT CC","")) "RTN","DG53P942",14,0) I DGIEN']"" D BMES^XPDUTL("'DG HT CC' record not found in HL LOGICAL LINK file (#870). DNS DOMAIN not updated.") Q ; DG HT CC entry not found in file 870 "RTN","DG53P942",15,0) K ^UTILITY("DIQ1",$J) "RTN","DG53P942",16,0) S DIC=870,DR=".08",DA=DGIEN D EN^DIQ1 ; populate ^UTILITY("DIQ1",$J,870,DGIEN,.08) "RTN","DG53P942",17,0) S DIE="^HLCS(870,",DA=DGIEN,DR=".08///VAWW.HL7.200T7.CC.DOMAIN.EXT" D ^DIE "RTN","DG53P942",18,0) D BMES^XPDUTL("DNS DOMAIN changed from '"_^UTILITY("DIQ1",$J,870,DGIEN,.08)_"' to 'VAWW.HL7.200T7.CC.DOMAIN.EXT' for entry 'DG HT CC' of the HL LOGICAL LINK file (#870).") "RTN","DG53P942",19,0) K ^UTILITY("DIQ1",$J) "RTN","DG53P942",20,0) Q "VER") 8.0^22.2 "BLD",10378,6) ^832 **END** **END**