KIDS Distribution saved on Oct 24, 2022@16:14:37 VistA Imaging 3.0 - Patch 315 **KIDS**:MAG*3.0*315^ **INSTALL NAME** MAG*3.0*315 "BLD",9734,0) MAG*3.0*315^IMAGING^0^3221024^y "BLD",9734,1,0) ^^8^8^3220603^ "BLD",9734,1,1,0) VistA Imaging V3.0 - Patch 315 "BLD",9734,1,2,0) Routines: "BLD",9734,1,3,0) "BLD",9734,1,4,0) MAGIP315 "BLD",9734,1,5,0) MAGGTU4D "BLD",9734,1,6,0) "BLD",9734,1,7,0) Please note that routine MAGIP315 is deleted after the KIDS build is "BLD",9734,1,8,0) installed. "BLD",9734,4,0) ^9.64PA^^ "BLD",9734,6) 3 "BLD",9734,6.3) 13 "BLD",9734,"ABNS",0) ^9.66A^^ "BLD",9734,"ABPKG") n^n^G.IMAGING DEVELOPMENT TEAM@AADOMAIN.EXT "BLD",9734,"INID") ^y "BLD",9734,"INIT") POS^MAGIP315 "BLD",9734,"KRN",0) ^9.67PA^1.61^23 "BLD",9734,"KRN",.4,0) .4 "BLD",9734,"KRN",.401,0) .401 "BLD",9734,"KRN",.402,0) .402 "BLD",9734,"KRN",.403,0) .403 "BLD",9734,"KRN",.5,0) .5 "BLD",9734,"KRN",.84,0) .84 "BLD",9734,"KRN",1.6,0) 1.6 "BLD",9734,"KRN",1.61,0) 1.61 "BLD",9734,"KRN",1.62,0) 1.62 "BLD",9734,"KRN",3.6,0) 3.6 "BLD",9734,"KRN",3.8,0) 3.8 "BLD",9734,"KRN",9.2,0) 9.2 "BLD",9734,"KRN",9.8,0) 9.8 "BLD",9734,"KRN",9.8,"NM",0) ^9.68A^2^2 "BLD",9734,"KRN",9.8,"NM",1,0) MAGIP315^^0^B4088719 "BLD",9734,"KRN",9.8,"NM",2,0) MAGGTU4D^^0^B5094003 "BLD",9734,"KRN",9.8,"NM","B","MAGGTU4D",2) "BLD",9734,"KRN",9.8,"NM","B","MAGIP315",1) "BLD",9734,"KRN",19,0) 19 "BLD",9734,"KRN",19.1,0) 19.1 "BLD",9734,"KRN",101,0) 101 "BLD",9734,"KRN",409.61,0) 409.61 "BLD",9734,"KRN",771,0) 771 "BLD",9734,"KRN",779.2,0) 779.2 "BLD",9734,"KRN",870,0) 870 "BLD",9734,"KRN",8989.51,0) 8989.51 "BLD",9734,"KRN",8989.52,0) 8989.52 "BLD",9734,"KRN",8994,0) 8994 "BLD",9734,"KRN","B",.4,.4) "BLD",9734,"KRN","B",.401,.401) "BLD",9734,"KRN","B",.402,.402) "BLD",9734,"KRN","B",.403,.403) "BLD",9734,"KRN","B",.5,.5) "BLD",9734,"KRN","B",.84,.84) "BLD",9734,"KRN","B",1.6,1.6) "BLD",9734,"KRN","B",1.61,1.61) "BLD",9734,"KRN","B",1.62,1.62) "BLD",9734,"KRN","B",3.6,3.6) "BLD",9734,"KRN","B",3.8,3.8) "BLD",9734,"KRN","B",9.2,9.2) "BLD",9734,"KRN","B",9.8,9.8) "BLD",9734,"KRN","B",19,19) "BLD",9734,"KRN","B",19.1,19.1) "BLD",9734,"KRN","B",101,101) "BLD",9734,"KRN","B",409.61,409.61) "BLD",9734,"KRN","B",771,771) "BLD",9734,"KRN","B",779.2,779.2) "BLD",9734,"KRN","B",870,870) "BLD",9734,"KRN","B",8989.51,8989.51) "BLD",9734,"KRN","B",8989.52,8989.52) "BLD",9734,"KRN","B",8994,8994) "BLD",9734,"QUES",0) ^9.62^^ "BLD",9734,"REQB",0) ^9.611^1^1 "BLD",9734,"REQB",1,0) MAG*3.0*290^2 "BLD",9734,"REQB","B","MAG*3.0*290",1) "INIT") POS^MAGIP315 "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) 315^3221024^126 "PKG",454,22,1,"PAH",1,1,0) ^^8^8^3221024 "PKG",454,22,1,"PAH",1,1,1,0) VistA Imaging V3.0 - Patch 315 "PKG",454,22,1,"PAH",1,1,2,0) Routines: "PKG",454,22,1,"PAH",1,1,3,0) "PKG",454,22,1,"PAH",1,1,4,0) MAGIP315 "PKG",454,22,1,"PAH",1,1,5,0) MAGGTU4D "PKG",454,22,1,"PAH",1,1,6,0) "PKG",454,22,1,"PAH",1,1,7,0) Please note that routine MAGIP315 is deleted after the KIDS build is "PKG",454,22,1,"PAH",1,1,8,0) installed. "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") 2 "RTN","MAGGTU4D") 0^2^B5094003 "RTN","MAGGTU4D",1,0) MAGGTU4D ;WOIFO/SG/NST/JSL/GEK/DAC/JSJ - VERSION CONTROL (CLINICAL DISPLAY); Aug 23, 2022@11:45:50 "RTN","MAGGTU4D",2,0) ;;3.0;IMAGING;**93,94,106,117,122,131,149,138,156,161,167,181,191,188,216,234,225,256,258,316,290,315**;Mar 19, 2002;Build 13 "RTN","MAGGTU4D",3,0) ;; Per VHA Directive 2004-038, this routine should not be modified. "RTN","MAGGTU4D",4,0) ;; +---------------------------------------------------------------+ "RTN","MAGGTU4D",5,0) ;; | Property of the US Government. | "RTN","MAGGTU4D",6,0) ;; | No permission to copy or redistribute this software is given. | "RTN","MAGGTU4D",7,0) ;; | Use of unreleased versions of this software requires the user | "RTN","MAGGTU4D",8,0) ;; | to execute a written test agreement with the VistA Imaging | "RTN","MAGGTU4D",9,0) ;; | Development Office of the Department of Veterans Affairs, | "RTN","MAGGTU4D",10,0) ;; | telephone (301) 734-0100. | "RTN","MAGGTU4D",11,0) ;; | The Food and Drug Administration classifies this software as | "RTN","MAGGTU4D",12,0) ;; | a medical device. As such, it may not be changed in any way. | "RTN","MAGGTU4D",13,0) ;; | Modifications to this software may result in an adulterated | "RTN","MAGGTU4D",14,0) ;; | medical device under 21CFR820, the use of which is considered | "RTN","MAGGTU4D",15,0) ;; | to be a violation of US Federal Statutes. | "RTN","MAGGTU4D",16,0) ;; +---------------------------------------------------------------+ "RTN","MAGGTU4D",17,0) ;; "RTN","MAGGTU4D",18,0) ; This routine contains the version control code and data specific "RTN","MAGGTU4D",19,0) ; to the Clinical Display application. DO NOT ADD ANYTHING ELSE! "RTN","MAGGTU4D",20,0) Q "RTN","MAGGTU4D",21,0) ; "RTN","MAGGTU4D",22,0) CLVERCT ;***** VERSION CONTROL TABLE FOR THE CLINICAL DISPLAY CLIENTS "RTN","MAGGTU4D",23,0) ;;================================================================== "RTN","MAGGTU4D",24,0) ;;| Version |Build|Seq #| Comment | "RTN","MAGGTU4D",25,0) ;;|---------+-----+------------------------------------------------| "RTN","MAGGTU4D",26,0) ;;| 3.0.315 | 3 | 202| Oct 2022 | "RTN","MAGGTU4D",27,0) ;;| 3.0.290 | 2 | 201| Jun 2022 | "RTN","MAGGTU4D",28,0) ;;| 3.0.316 | 1 | 200| Oct 2021 | | "RTN","MAGGTU4D",29,0) ;;================================================================== "RTN","MAGGTU4D",30,0) ; "RTN","MAGGTU4D",31,0) ; Each row of the version control table contains the version and "RTN","MAGGTU4D",32,0) ; build number of a supported client. Released patches must also "RTN","MAGGTU4D",33,0) ; indicate the sequential numbers. "RTN","MAGGTU4D",34,0) ; "RTN","MAGGTU4D",35,0) ; Sort order of the rows does not matter. However, the reversed "RTN","MAGGTU4D",36,0) ; order of patch sequential numbers is recommended. "RTN","MAGGTU4D",37,0) ; NOTE: "RTN","MAGGTU4D",38,0) ; Patch 315 removed support for patch 258 "RTN","MAGGTU4D",39,0) ; Patch 290 removed support for patch 256 "RTN","MAGGTU4D",40,0) ; Patch 316 removed support for patch 290 (will be released after patch 316) "RTN","MAGGTU4D",41,0) ; Patch 258 removed support for patch 234 "RTN","MAGGTU4D",42,0) ; Patch 256 removed support for patch 216 "RTN","MAGGTU4D",43,0) ; Patch 225 removed patches prior to patch 216 "RTN","MAGGTU4D",44,0) ; - Patch 191 "RTN","MAGGTU4D",45,0) ; - Patch 181 "RTN","MAGGTU4D",46,0) ; - Patch 167 "RTN","MAGGTU4D",47,0) ; - Patch 161 "RTN","MAGGTU4D",48,0) ; Patch 234 Did not remove support for any Clients "RTN","MAGGTU4D",49,0) ; "RTN","MAGGTU4D",50,0) ; Patch 216 removed support for 149 and 130 "RTN","MAGGTU4D",51,0) ; - Patch 3.0.149 "RTN","MAGGTU4D",52,0) ; - Patch 3.0.130 "RTN","MAGGTU4D",53,0) ; "RTN","MAGGTU4D",54,0) ; Patch 188 Did not remove support for any Clients "RTN","MAGGTU4D",55,0) ; "RTN","MAGGTU4D",56,0) ; Patch 191 Emergency Patch did not remove support for any clients "RTN","MAGGTU4D",57,0) ; "RTN","MAGGTU4D",58,0) ; Patch 181 removed support for "RTN","MAGGTU4D",59,0) ; - Patch 131 "RTN","MAGGTU4D",60,0) ; Patch 167 removed support for "RTN","MAGGTU4D",61,0) ; - Patch 122 "RTN","MAGGTU4D",62,0) ; Patch 149 removed support for "RTN","MAGGTU4D",63,0) ; - Patch 117 "RTN","MAGGTU4D",64,0) ; - Patch 106 "RTN","MAGGTU4D",65,0) ; - Patch 94 "RTN","MAGGTU4D",66,0) Q "RTN","MAGGTU4D",67,0) ; "RTN","MAGGTU4D",68,0) ;***** ADDS A CLIENT-SPECIFIC WARNING (IF NECESSARY) "RTN","MAGGTU4D",69,0) ; "RTN","MAGGTU4D",70,0) ; .MAGBUF Reference to a local array that the warning text "RTN","MAGGTU4D",71,0) ; is returned to. It is appended to the RPC result "RTN","MAGGTU4D",72,0) ; array by the caller (WARNING^MAGGTU41). "RTN","MAGGTU4D",73,0) ; "RTN","MAGGTU4D",74,0) ; Text must be stored at nodes with positive numbers "RTN","MAGGTU4D",75,0) ; or at the 0-node descendent from those nodes. "RTN","MAGGTU4D",76,0) ; "RTN","MAGGTU4D",77,0) ; CLVER Client application version (Major.Minor.Patch.Build) "RTN","MAGGTU4D",78,0) ; "RTN","MAGGTU4D",79,0) ; CVRC Version check code returned by the $$CHKVER1^MAGGTU41 "RTN","MAGGTU4D",80,0) ; "RTN","MAGGTU4D",81,0) ; Notes "RTN","MAGGTU4D",82,0) ; ===== "RTN","MAGGTU4D",83,0) ; "RTN","MAGGTU4D",84,0) ; If the RPC result array already contains an error message that "RTN","MAGGTU4D",85,0) ; will terminate the client, application, this procedure is not "RTN","MAGGTU4D",86,0) ; called. "RTN","MAGGTU4D",87,0) ; "RTN","MAGGTU4D",88,0) WARNING(MAGBUF,CLVER,CVRC) ; "RTN","MAGGTU4D",89,0) Q "RTN","MAGIP315") 0^1^B4088719 "RTN","MAGIP315",1,0) MAGIP315 ;WOIFO/JSJ - Install code for MAG*3.0*315 ; Jun 03, 2022@09:03:49 "RTN","MAGIP315",2,0) ;;3.0;IMAGING;**315**;Mar 19, 2002;Build 13 "RTN","MAGIP315",3,0) ;; Per VHA Directive 2004-038, this routine should not be modified. "RTN","MAGIP315",4,0) ;; +---------------------------------------------------------------+ "RTN","MAGIP315",5,0) ;; | Property of the US Government. | "RTN","MAGIP315",6,0) ;; | No permission to copy or redistribute this software is given. | "RTN","MAGIP315",7,0) ;; | Use of unreleased versions of this software requires the user | "RTN","MAGIP315",8,0) ;; | to execute a written test agreement with the VistA Imaging | "RTN","MAGIP315",9,0) ;; | Development Office of the Department of Veterans Affairs. | "RTN","MAGIP315",10,0) ;; | | "RTN","MAGIP315",11,0) ;; | The Food and Drug Administration classifies this software as | "RTN","MAGIP315",12,0) ;; | a medical device. As such, it may not be changed in any way. | "RTN","MAGIP315",13,0) ;; | Modifications to this software may result in an adulterated | "RTN","MAGIP315",14,0) ;; | medical device under 21CFR820, the use of which is considered | "RTN","MAGIP315",15,0) ;; | to be a violation of US Federal Statutes. | "RTN","MAGIP315",16,0) ;; +---------------------------------------------------------------+ "RTN","MAGIP315",17,0) ;; "RTN","MAGIP315",18,0) ; There are no environment checks here but the MAGIP315 has to be "RTN","MAGIP315",19,0) ; referenced by the "Environment Check Routine" field of the KIDS "RTN","MAGIP315",20,0) ; build so that entry points of the routine are available to the "RTN","MAGIP315",21,0) ; KIDS during all installation phases. "RTN","MAGIP315",22,0) Q "RTN","MAGIP315",23,0) ; "RTN","MAGIP315",24,0) ;+++++ INSTALLATION ERROR HANDLING "RTN","MAGIP315",25,0) ERROR ; "RTN","MAGIP315",26,0) S:$D(XPDNM) XPDABORT=1 "RTN","MAGIP315",27,0) ;--- Display the messages and store them to the INSTALL file "RTN","MAGIP315",28,0) D DUMP^MAGUERR1(),ABTMSG^MAGKIDS() "RTN","MAGIP315",29,0) Q "RTN","MAGIP315",30,0) ; "RTN","MAGIP315",31,0) ;***** POST-INSTALL CODE "RTN","MAGIP315",32,0) POS ; "RTN","MAGIP315",33,0) N CALLBACK "RTN","MAGIP315",34,0) D CLEAR^MAGUERR(1) "RTN","MAGIP315",35,0) ; "RTN","MAGIP315",36,0) ;--- Send the notification e-mail "RTN","MAGIP315",37,0) D BMES^XPDUTL("Post Install Mail Message: "_$$FMTE^XLFDT($$NOW^XLFDT)) "RTN","MAGIP315",38,0) D INS^MAGQBUT4(XPDNM,DUZ,$$NOW^XLFDT,XPDA) "RTN","MAGIP315",39,0) Q "RTN","MAGIP315",40,0) ; "RTN","MAGIP315",41,0) ;***** PRE-INSTALL CODE "RTN","MAGIP315",42,0) PRE ; "RTN","MAGIP315",43,0) Q "VER") 8.0^22.2 **END** **END**