KIDS Distribution saved on May 24, 2022@08:18:11 VistA Imaging 3.0 - Patch 318 **KIDS**:MAG*3.0*318^ **INSTALL NAME** MAG*3.0*318 "BLD",9723,0) MAG*3.0*318^IMAGING^0^3220524^y "BLD",9723,1,0) ^^3^3^3211116^^^ "BLD",9723,1,1,0) This patch updates 2005.83 - IMAGE INDEX FOR TYPES "BLD",9723,1,2,0) Entry DD214 ENLISTED RECORD & RPT OF SEP is being changed to "BLD",9723,1,3,0) DD214 ARMED FORCES RECORD OF SVC AND SEP "BLD",9723,4,0) ^9.64PA^^0 "BLD",9723,6.3) 24 "BLD",9723,"ABPKG") n^n^G.IMAGING DEVELOPMENT "BLD",9723,"INI") "BLD",9723,"INID") ^y^ "BLD",9723,"INIT") POS^MAGIP318 "BLD",9723,"KRN",0) ^9.67PA^1.61^23 "BLD",9723,"KRN",.4,0) .4 "BLD",9723,"KRN",.401,0) .401 "BLD",9723,"KRN",.402,0) .402 "BLD",9723,"KRN",.403,0) .403 "BLD",9723,"KRN",.5,0) .5 "BLD",9723,"KRN",.84,0) .84 "BLD",9723,"KRN",1.6,0) 1.6 "BLD",9723,"KRN",1.61,0) 1.61 "BLD",9723,"KRN",1.62,0) 1.62 "BLD",9723,"KRN",3.6,0) 3.6 "BLD",9723,"KRN",3.8,0) 3.8 "BLD",9723,"KRN",3.8,"NM",0) ^9.68A^^ "BLD",9723,"KRN",9.2,0) 9.2 "BLD",9723,"KRN",9.8,0) 9.8 "BLD",9723,"KRN",9.8,"NM",0) ^9.68A^^ "BLD",9723,"KRN",19,0) 19 "BLD",9723,"KRN",19.1,0) 19.1 "BLD",9723,"KRN",101,0) 101 "BLD",9723,"KRN",409.61,0) 409.61 "BLD",9723,"KRN",771,0) 771 "BLD",9723,"KRN",779.2,0) 779.2 "BLD",9723,"KRN",870,0) 870 "BLD",9723,"KRN",8989.51,0) 8989.51 "BLD",9723,"KRN",8989.52,0) 8989.52 "BLD",9723,"KRN",8994,0) 8994 "BLD",9723,"KRN","B",.4,.4) "BLD",9723,"KRN","B",.401,.401) "BLD",9723,"KRN","B",.402,.402) "BLD",9723,"KRN","B",.403,.403) "BLD",9723,"KRN","B",.5,.5) "BLD",9723,"KRN","B",.84,.84) "BLD",9723,"KRN","B",1.6,1.6) "BLD",9723,"KRN","B",1.61,1.61) "BLD",9723,"KRN","B",1.62,1.62) "BLD",9723,"KRN","B",3.6,3.6) "BLD",9723,"KRN","B",3.8,3.8) "BLD",9723,"KRN","B",9.2,9.2) "BLD",9723,"KRN","B",9.8,9.8) "BLD",9723,"KRN","B",19,19) "BLD",9723,"KRN","B",19.1,19.1) "BLD",9723,"KRN","B",101,101) "BLD",9723,"KRN","B",409.61,409.61) "BLD",9723,"KRN","B",771,771) "BLD",9723,"KRN","B",779.2,779.2) "BLD",9723,"KRN","B",870,870) "BLD",9723,"KRN","B",8989.51,8989.51) "BLD",9723,"KRN","B",8989.52,8989.52) "BLD",9723,"KRN","B",8994,8994) "BLD",9723,"QDEF") ^^^^NO^^^^NO^^NO "BLD",9723,"QUES",0) ^9.62^^ "BLD",9723,"REQB",0) ^9.611^^ "INIT") POS^MAGIP318 "MBREQ") 0 "PKG",454,-1) 1^1 "PKG",454,0) IMAGING^MAG^Imaging-V1 to release "PKG",454,22,0) ^9.49I^1^1 "PKG",454,22,1,0) 3.0^3020319^3020517^126 "PKG",454,22,1,"PAH",1,0) 318^3220524^126 "PKG",454,22,1,"PAH",1,1,0) ^^3^3^3220524 "PKG",454,22,1,"PAH",1,1,1,0) This patch updates 2005.83 - IMAGE INDEX FOR TYPES "PKG",454,22,1,"PAH",1,1,2,0) Entry DD214 ENLISTED RECORD & RPT OF SEP is being changed to "PKG",454,22,1,"PAH",1,1,3,0) DD214 ARMED FORCES RECORD OF SVC AND SEP "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","MAGIP318") 0^^B5302773 "RTN","MAGIP318",1,0) MAGIP318 ;WOIFO/JSJ - Install code for MAG*3.0*318 ; May 20, 2022@11:32:50 "RTN","MAGIP318",2,0) ;;3.0;IMAGING;**318**;Mar 19, 2002;Build 24 "RTN","MAGIP318",3,0) ;; Per VHA Directive 2004-038, this routine should not be modified. "RTN","MAGIP318",4,0) ;; +---------------------------------------------------------------+ "RTN","MAGIP318",5,0) ;; | Property of the US Government. | "RTN","MAGIP318",6,0) ;; | No permission to copy or redistribute this software is given. | "RTN","MAGIP318",7,0) ;; | Use of unreleased versions of this software requires the user | "RTN","MAGIP318",8,0) ;; | to execute a written test agreement with the VistA Imaging | "RTN","MAGIP318",9,0) ;; | Development Office of the Department of Veterans Affairs, | "RTN","MAGIP318",10,0) ;; | telephone (301) 734-0100. | "RTN","MAGIP318",11,0) ;; | The Food and Drug Administration classifies this software as | "RTN","MAGIP318",12,0) ;; | a medical device. As such, it may not be changed in any way. | "RTN","MAGIP318",13,0) ;; | Modifications to this software may result in an adulterated | "RTN","MAGIP318",14,0) ;; | medical device under 21CFR820, the use of which is considered | "RTN","MAGIP318",15,0) ;; | to be a violation of US Federal Statutes. | "RTN","MAGIP318",16,0) ;; +---------------------------------------------------------------+ "RTN","MAGIP318",17,0) ;; "RTN","MAGIP318",18,0) ; There are no environment checks here but the MAGIP318 has to be "RTN","MAGIP318",19,0) ; referenced by the "Environment Check Routine" field of the KIDS "RTN","MAGIP318",20,0) ; build so that entry points of the routine are available to the "RTN","MAGIP318",21,0) ; KIDS during all installation phases. "RTN","MAGIP318",22,0) Q "RTN","MAGIP318",23,0) ; "RTN","MAGIP318",24,0) ;+++++ INSTALLATION ERROR HANDLING "RTN","MAGIP318",25,0) ERROR ; "RTN","MAGIP318",26,0) S:$D(XPDNM) XPDABORT=1 "RTN","MAGIP318",27,0) ;--- Display the messages and store them to the INSTALL file "RTN","MAGIP318",28,0) D DUMP^MAGUERR1(),ABTMSG^MAGKIDS() "RTN","MAGIP318",29,0) Q "RTN","MAGIP318",30,0) ; "RTN","MAGIP318",31,0) ;***** POST-INSTALL CODE "RTN","MAGIP318",32,0) POS ; "RTN","MAGIP318",33,0) N CALLBACK "RTN","MAGIP318",34,0) D CLEAR^MAGUERR(1) "RTN","MAGIP318",35,0) ; "RTN","MAGIP318",36,0) ;Update entry in 2005.83 "RTN","MAGIP318",37,0) N OLDNAME,NEWNAME,IEN "RTN","MAGIP318",38,0) S OLDNAME="DD214 ENLISTED RECORD & RPT OF SEP" "RTN","MAGIP318",39,0) S NEWNAME="DD214 ARMED FORCES RECORD OF SVC AND SEP" "RTN","MAGIP318",40,0) S IEN=$$FIND1^DIC(2005.83,"","BX",OLDNAME,"","") "RTN","MAGIP318",41,0) I IEN D "RTN","MAGIP318",42,0) . S $P(^MAG(2005.83,IEN,0),"^")=NEWNAME "RTN","MAGIP318",43,0) . S ^MAG(2005.83,"B",NEWNAME,IEN)="" "RTN","MAGIP318",44,0) . K ^MAG(2005.83,"B",OLDNAME,IEN) "RTN","MAGIP318",45,0) . Q "RTN","MAGIP318",46,0) ;End update "RTN","MAGIP318",47,0) ; "RTN","MAGIP318",48,0) ;--- Send the notification e-mail "RTN","MAGIP318",49,0) D BMES^XPDUTL("Post Install Mail Message: "_$$FMTE^XLFDT($$NOW^XLFDT)) "RTN","MAGIP318",50,0) D INS^MAGQBUT4(XPDNM,DUZ,$$NOW^XLFDT,XPDA) "RTN","MAGIP318",51,0) Q "RTN","MAGIP318",52,0) ; "RTN","MAGIP318",53,0) ;***** PRE-INSTALL CODE "RTN","MAGIP318",54,0) PRE ; "RTN","MAGIP318",55,0) Q "VER") 8.0^22.2 **END** **END**