KIDS Distribution saved on Jul 19, 2013@12:22:45 VistA Imaging V3.0 Patch 140 - Scanning Enhancements - 07/19/2013 12:22PM **KIDS**:MAG*3.0*140^ **INSTALL NAME** MAG*3.0*140 "BLD",3463,0) MAG*3.0*140^IMAGING^0^3130719^y "BLD",3463,1,0) ^^9^9^3130719 "BLD",3463,1,1,0) VistA Imaging V3.0 Patch 140 - Scanning Enhancements "BLD",3463,1,2,0) "BLD",3463,1,3,0) "BLD",3463,1,4,0) Routines: "BLD",3463,1,5,0) MAGIP140 new value = 13676169 "BLD",3463,1,6,0) MAGGTU4C new value = 5540791 "BLD",3463,1,7,0) "BLD",3463,1,8,0) Please note that routine MAGIP140 is deleted after the KIDS Build is "BLD",3463,1,9,0) installed. "BLD",3463,4,0) ^9.64PA^^0 "BLD",3463,6.3) V3.0p140Build5274_T21 "BLD",3463,"ABNS",0) ^9.66A^^ "BLD",3463,"ABPKG") n^n^G.IMAGING DEVELOPMENT TEAM@DOMAIN.EXT "BLD",3463,"INI") PRE^MAGIP140 "BLD",3463,"INID") n^y^n "BLD",3463,"INIT") POS^MAGIP140 "BLD",3463,"KRN",0) ^9.67PA^8994^19 "BLD",3463,"KRN",.4,0) .4 "BLD",3463,"KRN",.401,0) .401 "BLD",3463,"KRN",.402,0) .402 "BLD",3463,"KRN",.403,0) .403 "BLD",3463,"KRN",.5,0) .5 "BLD",3463,"KRN",.84,0) .84 "BLD",3463,"KRN",3.6,0) 3.6 "BLD",3463,"KRN",3.8,0) 3.8 "BLD",3463,"KRN",9.2,0) 9.2 "BLD",3463,"KRN",9.8,0) 9.8 "BLD",3463,"KRN",9.8,"NM",0) ^9.68A^2^2 "BLD",3463,"KRN",9.8,"NM",1,0) MAGIP140^^0^B13676169 "BLD",3463,"KRN",9.8,"NM",2,0) MAGGTU4C^^0^B5540791 "BLD",3463,"KRN",9.8,"NM","B","MAGIP140",1) "BLD",3463,"KRN",9.8,"NM","B","MAGGTU4C",2) "BLD",3463,"KRN",19,0) 19 "BLD",3463,"KRN",19.1,0) 19.1 "BLD",3463,"KRN",101,0) 101 "BLD",3463,"KRN",409.61,0) 409.61 "BLD",3463,"KRN",771,0) 771 "BLD",3463,"KRN",870,0) 870 "BLD",3463,"KRN",8989.51,0) 8989.51 "BLD",3463,"KRN",8989.52,0) 8989.52 "BLD",3463,"KRN",8994,0) 8994 "BLD",3463,"KRN","B",.4,.4) "BLD",3463,"KRN","B",.401,.401) "BLD",3463,"KRN","B",.402,.402) "BLD",3463,"KRN","B",.403,.403) "BLD",3463,"KRN","B",.5,.5) "BLD",3463,"KRN","B",.84,.84) "BLD",3463,"KRN","B",3.6,3.6) "BLD",3463,"KRN","B",3.8,3.8) "BLD",3463,"KRN","B",9.2,9.2) "BLD",3463,"KRN","B",9.8,9.8) "BLD",3463,"KRN","B",19,19) "BLD",3463,"KRN","B",19.1,19.1) "BLD",3463,"KRN","B",101,101) "BLD",3463,"KRN","B",409.61,409.61) "BLD",3463,"KRN","B",771,771) "BLD",3463,"KRN","B",870,870) "BLD",3463,"KRN","B",8989.51,8989.51) "BLD",3463,"KRN","B",8989.52,8989.52) "BLD",3463,"KRN","B",8994,8994) "BLD",3463,"REQB",0) ^9.611^1^1 "BLD",3463,"REQB",1,0) MAG*3.0*129^2 "BLD",3463,"REQB","B","MAG*3.0*129",1) "INI") PRE^MAGIP140 "INIT") POS^MAGIP140 "MBREQ") 0 "PKG",454,-1) 1^1 "PKG",454,0) IMAGING^MAG^Imaging Release History "PKG",454,22,0) ^9.49I^1^1 "PKG",454,22,1,0) 3.0^3020328^3020328^.5 "PKG",454,22,1,"PAH",1,0) 140^3130719^.5 "PKG",454,22,1,"PAH",1,1,0) ^9.49011^8^8^3130719 "PKG",454,22,1,"PAH",1,1,1,0) Routines for Patch 140 "PKG",454,22,1,"PAH",1,1,2,0) "PKG",454,22,1,"PAH",1,1,3,0) Routines: "PKG",454,22,1,"PAH",1,1,4,0) MAGIP140 value = 13676169 "PKG",454,22,1,"PAH",1,1,5,0) MAGGTU4C value = 5540791 "PKG",454,22,1,"PAH",1,1,6,0) "PKG",454,22,1,"PAH",1,1,7,0) Please note that routine MAGIP140 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","MAGIP140") 0^1^B13676169 "RTN","MAGIP140",1,0) MAGIP140 ;WOIFO/GEK,JSL - INSTALL CODE FOR MAG*3.0*140 Capture ; 25 Jun 2012 1:15 PM "RTN","MAGIP140",2,0) ;;3.0;IMAGING;**140**;Mar 19, 2002;Build 5274;Jul 19, 2013 "RTN","MAGIP140",3,0) ;; Per VHA Directive 2004-038, this routine should not be modified. "RTN","MAGIP140",4,0) ;; +---------------------------------------------------------------+ "RTN","MAGIP140",5,0) ;; | Property of the US Government. | "RTN","MAGIP140",6,0) ;; | No permission to copy or redistribute this software is given. | "RTN","MAGIP140",7,0) ;; | Use of unreleased versions of this software requires the user | "RTN","MAGIP140",8,0) ;; | to execute a written test agreement with the VistA Imaging | "RTN","MAGIP140",9,0) ;; | Development Office of the Department of Veterans Affairs, | "RTN","MAGIP140",10,0) ;; | telephone (301) 734-0100. | "RTN","MAGIP140",11,0) ;; | The Food and Drug Administration classifies this software as | "RTN","MAGIP140",12,0) ;; | a medical device. As such, it may not be changed in any way. | "RTN","MAGIP140",13,0) ;; | Modifications to this software may result in an adulterated | "RTN","MAGIP140",14,0) ;; | medical device under 21CFR820, the use of which is considered | "RTN","MAGIP140",15,0) ;; | to be a violation of US Federal Statutes. | "RTN","MAGIP140",16,0) ;; +---------------------------------------------------------------+ "RTN","MAGIP140",17,0) ;; "RTN","MAGIP140",18,0) ; There are no environment checks here but the MAGIP140 has to be "RTN","MAGIP140",19,0) ; referenced by the "Environment Check Routine" field of the KIDS "RTN","MAGIP140",20,0) ; build so that entry points of the routine are available to the "RTN","MAGIP140",21,0) ; KIDS during all installation phases. "RTN","MAGIP140",22,0) ; "RTN","MAGIP140",23,0) Q "RTN","MAGIP140",24,0) ; "RTN","MAGIP140",25,0) ;+++++ INSTALLATION ERROR HANDLING "RTN","MAGIP140",26,0) ERROR ; "RTN","MAGIP140",27,0) S:$D(XPDNM) XPDABORT=1 "RTN","MAGIP140",28,0) ;--- Display the messages and store them to the INSTALL file "RTN","MAGIP140",29,0) D DUMP^MAGUERR1(),ABTMSG^MAGKIDS() "RTN","MAGIP140",30,0) Q "RTN","MAGIP140",31,0) ; "RTN","MAGIP140",32,0) ;***** POST-INSTALL CODE "RTN","MAGIP140",33,0) POS ; "RTN","MAGIP140",34,0) N CALLBACK "RTN","MAGIP140",35,0) D CLEAR^MAGUERR(1) "RTN","MAGIP140",36,0) ; "RTN","MAGIP140",37,0) ;--- Link new remote procedures to the Broker context option "RTN","MAGIP140",38,0) ;S CALLBACK="$$ADDRPCS^"_$NA(MAGKIDS1("RPCLST^"_$T(+0),"MAG WINDOWS")) "RTN","MAGIP140",39,0) ;I $$CP^MAGKIDS("MAG ATTACH RPCS",CALLBACK)<0 D ERROR Q "RTN","MAGIP140",40,0) ; "RTN","MAGIP140",41,0) ; "RTN","MAGIP140",42,0) ;--- Misc Updates "RTN","MAGIP140",43,0) I $$CP^MAGKIDS("MAG 140 MISC UPDATES ","$$UPDATE^"_$T(+0))<0 D ERROR Q "RTN","MAGIP140",44,0) ; "RTN","MAGIP140",45,0) ;--- Send the notification e-mail "RTN","MAGIP140",46,0) D BMES^XPDUTL("Post Install Mail Message: "_$$FMTE^XLFDT($$NOW^XLFDT)) "RTN","MAGIP140",47,0) D INS^MAGQBUT4(XPDNM,DUZ,$$NOW^XLFDT,XPDA) "RTN","MAGIP140",48,0) ; "RTN","MAGIP140",49,0) Q "RTN","MAGIP140",50,0) ; "RTN","MAGIP140",51,0) ;***** PRE-INSTALL CODE "RTN","MAGIP140",52,0) PRE ; "RTN","MAGIP140",53,0) ; "RTN","MAGIP140",54,0) Q "RTN","MAGIP140",55,0) ; "RTN","MAGIP140",56,0) UPDATE() ; "RTN","MAGIP140",57,0) N RESULT "RTN","MAGIP140",58,0) S RESULT=$$ADDXML() "RTN","MAGIP140",59,0) Q RESULT "RTN","MAGIP140",60,0) ; "RTN","MAGIP140",61,0) ADDXML() ; Adding XML Object/File type of image "RTN","MAGIP140",62,0) N MAGFDA,MAGERR,MSG,DA,DIE,DR "RTN","MAGIP140",63,0) S DA=$O(^MAG(2005.02,"B","XML",0)) "RTN","MAGIP140",64,0) D:'DA ;create "XML" OBJECT TYPE #2005.2 IEN 107 "RTN","MAGIP140",65,0) . S DR=".01////XML;5///XML",DIE="^MAG(2005.02,",DA=107 D ^DIE "RTN","MAGIP140",66,0) . Q "RTN","MAGIP140",67,0) I (DA'=107)!($P(^MAG(2005.02,107,0),U)'="XML") D Q -1 "RTN","MAGIP140",68,0) . S MSG(1)="OBJECT TYPE file (#2005.02) has a local entry. Please remove "_DA "RTN","MAGIP140",69,0) . D BMES^MAGKIDS("** Error in adding XML object ",.MSG) "RTN","MAGIP140",70,0) . Q "RTN","MAGIP140",71,0) I $O(^MAG(2005.021,"B","XML",0)) Q 0 ;already exist "RTN","MAGIP140",72,0) I $O(^MAG(2005.021,"A"),-1)'=26 D Q -2 ;not overwrite local entry "RTN","MAGIP140",73,0) . S MSG(1)="IMAGE FILE TYPES file (#2005.021) has a local entry. Please remove it!" "RTN","MAGIP140",74,0) . D BMES^MAGKIDS("*** Error in adding XML type ",.MSG) "RTN","MAGIP140",75,0) . Q "RTN","MAGIP140",76,0) S ^DD(2005.021,.01,"LAYGO",1,0)="" "RTN","MAGIP140",77,0) S MAGFDA(2005.021,"+1,",.01)="XML" ; NAME "RTN","MAGIP140",78,0) S MAGFDA(2005.021,"+1,",1)="Web Document XML" ; DESCRIPTION "RTN","MAGIP140",79,0) S MAGFDA(2005.021,"+1,",2)=1 ; VIEWER (0:No, 1:Yes) "RTN","MAGIP140",80,0) S MAGFDA(2005.021,"+1,",3)="maghtml.bmp" ; BITMAP FOR ABSTRACT "RTN","MAGIP140",81,0) S MAGFDA(2005.021,"+1,",4)=0 ; ABSTRACT CREATED (0:No, 1:Yes) "RTN","MAGIP140",82,0) S MAGFDA(2005.021,"+1,",5)=DA ; DEFAULT OBJECT TYPE #2005.02 "RTN","MAGIP140",83,0) S MAGFDA(2005.021,"+1,",6)=1 ; FORMAT IS SUPPORTED "RTN","MAGIP140",84,0) D UPDATE^DIE("","MAGFDA","","MAGERR") "RTN","MAGIP140",85,0) S ^DD(2005.021,.01,"LAYGO",1,0)="I 0" "RTN","MAGIP140",86,0) I $D(MAGERR("DIERR","E")) D Q -3 "RTN","MAGIP140",87,0) . D MSG^DIALOG("A",.MSG,245,5,"MAGERR") "RTN","MAGIP140",88,0) . D BMES^MAGKIDS("*** Error in adding XML type in ",.MSG) "RTN","MAGIP140",89,0) . Q "RTN","MAGIP140",90,0) Q 0 "RTN","MAGGTU4C") 0^2^B5540791 "RTN","MAGGTU4C",1,0) MAGGTU4C ;WOIFO/SG/NST/JSL - VERSION CONTROL (CLINICAL CAPTURE) ; 08 Mar 2011 2:52 PM "RTN","MAGGTU4C",2,0) ;;3.0;IMAGING;**93,94,106,117,122,129,140**;Mar 19, 2002;Build 5274;Jul 19, 2013 "RTN","MAGGTU4C",3,0) ;; Per VHA Directive 2004-038, this routine should not be modified. "RTN","MAGGTU4C",4,0) ;; +---------------------------------------------------------------+ "RTN","MAGGTU4C",5,0) ;; | Property of the US Government. | "RTN","MAGGTU4C",6,0) ;; | No permission to copy or redistribute this software is given. | "RTN","MAGGTU4C",7,0) ;; | Use of unreleased versions of this software requires the user | "RTN","MAGGTU4C",8,0) ;; | to execute a written test agreement with the VistA Imaging | "RTN","MAGGTU4C",9,0) ;; | Development Office of the Department of Veterans Affairs, | "RTN","MAGGTU4C",10,0) ;; | telephone (301) 734-0100. | "RTN","MAGGTU4C",11,0) ;; | The Food and Drug Administration classifies this software as | "RTN","MAGGTU4C",12,0) ;; | a medical device. As such, it may not be changed in any way. | "RTN","MAGGTU4C",13,0) ;; | Modifications to this software may result in an adulterated | "RTN","MAGGTU4C",14,0) ;; | medical device under 21CFR820, the use of which is considered | "RTN","MAGGTU4C",15,0) ;; | to be a violation of US Federal Statutes. | "RTN","MAGGTU4C",16,0) ;; +---------------------------------------------------------------+ "RTN","MAGGTU4C",17,0) ;; "RTN","MAGGTU4C",18,0) ; This routine contains the version control code and data specific "RTN","MAGGTU4C",19,0) ; to the Clinical Capture application. DO NOT ADD ANYTHING ELSE! "RTN","MAGGTU4C",20,0) Q "RTN","MAGGTU4C",21,0) ; "RTN","MAGGTU4C",22,0) ; Build 3 changed to match client. "RTN","MAGGTU4C",23,0) CLVERCT ;***** VERSION CONTROL TABLE FOR THE CLINICAL CAPTURE CLIENTS "RTN","MAGGTU4C",24,0) ;;================================================================== "RTN","MAGGTU4C",25,0) ;;| Version |Build|Seq #| Comment | "RTN","MAGGTU4C",26,0) ;;|---------+-----+------------------------------------------------| "RTN","MAGGTU4C",27,0) ;;| 3.0.140 | 21 | 70 | Sep 2013 | "RTN","MAGGTU4C",28,0) ;;| 3.0.129 | 18 | 60 | Apr 2013 | "RTN","MAGGTU4C",29,0) ;;| 3.0.122 | 15 | 55 | Nov 2012 | "RTN","MAGGTU4C",30,0) ;;| 3.0.117 | 8 | 45 | Jul 2011 | "RTN","MAGGTU4C",31,0) ;;| 3.0.106 | 13 | 40 | Feb 2011 | "RTN","MAGGTU4C",32,0) ;;| 3.0.94 | 12 | 35 | May 2010 | "RTN","MAGGTU4C",33,0) ;;================================================================== "RTN","MAGGTU4C",34,0) ; "RTN","MAGGTU4C",35,0) ; Each row of the version control table contains the version and "RTN","MAGGTU4C",36,0) ; build number of a supported client. Released patches must also "RTN","MAGGTU4C",37,0) ; indicate the sequential numbers. "RTN","MAGGTU4C",38,0) ; "RTN","MAGGTU4C",39,0) ; Sort order of the rows does not matter. However, the reversed "RTN","MAGGTU4C",40,0) ; order of patch sequential numbers is recommended. "RTN","MAGGTU4C",41,0) ; "RTN","MAGGTU4C",42,0) Q "RTN","MAGGTU4C",43,0) ; "RTN","MAGGTU4C",44,0) ;***** ADDS A CLIENT-SPECIFIC WARNING (IF NECESSARY) "RTN","MAGGTU4C",45,0) ; "RTN","MAGGTU4C",46,0) ; .MAGBUF Reference to a local array that the warning text "RTN","MAGGTU4C",47,0) ; is returned to. It is appended to the RPC result "RTN","MAGGTU4C",48,0) ; array by the caller (WARNING^MAGGTU41). "RTN","MAGGTU4C",49,0) ; "RTN","MAGGTU4C",50,0) ; CLVER Client application version (Major.Minor.Patch.Build) "RTN","MAGGTU4C",51,0) ; "RTN","MAGGTU4C",52,0) ; CVRC Version check code returned by the $$CHKVER1^MAGGTU41 "RTN","MAGGTU4C",53,0) ; "RTN","MAGGTU4C",54,0) ; Notes "RTN","MAGGTU4C",55,0) ; ===== "RTN","MAGGTU4C",56,0) ; "RTN","MAGGTU4C",57,0) ; If the RPC result array already contains an error message that "RTN","MAGGTU4C",58,0) ; will terminate the client, application, this procedure is not "RTN","MAGGTU4C",59,0) ; called. "RTN","MAGGTU4C",60,0) ; "RTN","MAGGTU4C",61,0) WARNING(MAGBUF,CLVER,CVRC) ; "RTN","MAGGTU4C",62,0) Q "VER") 8.0^22.0 **END** **END**