diff --git a/Packages/Imaging/Routines/MAGBVAL.m b/Packages/Imaging/Routines/MAGBVAL.m new file mode 100644 index 00000000000..da7fce79be8 --- /dev/null +++ b/Packages/Imaging/Routines/MAGBVAL.m @@ -0,0 +1,137 @@ +MAGBVAL ;WOIFO/GEK - BP Validate Site Params data array ; [ 12/27/2000 10:49 ] + ;;3.0;IMAGING;**214**;Mar 19, 2002;Build 34;Jun 27, 2018 + ;; Per VHA Directive 2004-038, this routine should not be modified. + ;; +---------------------------------------------------------------+ + ;; | Property of the US Government. | + ;; | No permission to copy or redistribute this software is given. | + ;; | Use of unreleased versions of this software requires the user | + ;; | to execute a written test agreement with the VistA Imaging | + ;; | Development Office of the Department of Veterans Affairs, | + ;; | telephone (301) 734-0100. | + ;; | The Food and Drug Administration classifies this software as | + ;; | a medical device. As such, it may not be changed in any way. | + ;; | Modifications to this software may result in an adulterated | + ;; | medical device under 21CFR820, the use of which is considered | + ;; | to be a violation of US Federal Statutes. | + ;; +---------------------------------------------------------------+ + ;; + Q +VAL(MAGRY,MAGARRAY,ALL) ;RPC [MAGQBP VAL] + ;Call to Validate some of the IMAGING SITE PARAMETERS values + ; before the BP IMAGING SITE PARAMETERS Window is opened. + ; + ; Parameters : + ; MAGARRAY - array of 'Field numbers' and Optionally '^' Value + ; if the input array, MAGARRAY, has no value for a field, + ; then we validate the current value of the field. + ; example: MAGARRAY(1)="100^" Field# = 100 Value= "" + ; so we would then get value from DataBase. + ; ALL - "1" = Validate ALL fields, returning an array + ; of error messages. + ; "0" = Stop validating if an error occurs, return + ; the error message in (0) node. + ; ALL will default to 1, if it is null. + ; + ; Return Variable + ; MAGRY() - Array + ; Successful MAGRY(0) = 1^Image Data is Valid. + ; UNsuccessful MAGRY(0) = 0^Error desc + ; IF ALL then MAGRY(1..N) =0^Error desc of all errors + N MAGGFLD,MAGGDAT,MAGRES,MAGPLC,MAGIENS + N Y,AITEM,CT,MAGERR,DAT1,X + N MAGVAL,MAGVALLB + N $ETRAP,$ESTACK S $ETRAP="D ERR^"_$T(+0) + S ALL=$G(ALL,1) + S MAGPLC=$$DUZ2PLC^MAGBAPIP() + S MAGIENS=MAGPLC_"," + S MAGRY(0)="0^Validating the Data Array..." + S MAGERR="",CT=0 + ; Do we have any data ? + I ($D(MAGARRAY)<10) S MAGRY(0)="0^No input data, Operation CANCELED" Q + ; Loop through Input Array + S AITEM="" F S AITEM=$O(MAGARRAY(AITEM)) Q:AITEM="" D I $L(MAGERR) Q:'ALL S CT=CT+1,MAGRY(CT)=MAGERR,MAGERR="" + . S MAGERR="" + . S MAGGFLD=$P(MAGARRAY(AITEM),U,1),MAGGDAT=$P(MAGARRAY(AITEM),U,2,99) + . ; IF MAGGDAT = "" then get current Value. + . I MAGGDAT="" S MAGGDAT=$$GET1^DIQ(2006.1,MAGIENS,MAGGFLD,"I","MAGVAL") + . ; HERE we Validate the Data. + . I MAGGDAT="" Q ;This means no data was input, and the Field has no current Value. + . ; + . S DAT1=MAGGDAT + . I '$$VALID(2006.1,MAGGFLD,.MAGGDAT,.MAGRES) S MAGERR="0^"_MAGRES Q + . I DAT1'=MAGGDAT S MAGARRAY(AITEM)=MAGGFLD_"^"_MAGGDAT + . Q + ; + ; if there was an Error in data we'll quit now. + ; If ALL is true, then MAGRY(1...N) will exist if there were errors. + I $O(MAGRY(0)) S MAGRY(0)="0^Errors were found in data." Q + ; If ALL is false, then MAGERR will exist if there was an error. + I $L(MAGERR) S MAGRY(0)=MAGERR Q + ; + ; If all data is valid we get here. + S MAGRY(0)="1^Data is Valid." + Q +VALID(MAGF,MAGL,MAGD,MAGRES) ; call to validate value for field in a FM file. + ; Function is boolean. Returns: + ; 0 - Invalid + ; 1 - Valid + ; "" - Error + ; Call this function before you set the FDA Array. + ; MAGD - sent by reference because it could be Internal or External + ; and if it is external and valid, it is changed to Internal. + ; + ; MAGF : File Number + ; MAGL : Field Number + ; MAGD : (sent by reference) data value of field + ; MAGRES: (sent by reference) Result message + ; + N MAGR,MAGMSG,MAGSP,MAGRESA,MAGPT + N MAGLABEL,MAGWIN + S MAGWIN=$$BROKER^XWBLIB ; If not MAGWIN, we can write to screen. + ;if a BAD field number, Quit + I '$$VFIELD^DILFD(MAGF,MAGL) D Q 0 + . S MAGRES="The field number: "_MAGL_", in File: "_MAGF_", is invalid." + ; + D FIELD^DID(MAGF,MAGL,"","SPECIFIER;LABEL","MAGSP") + S MAGLABEL=MAGSP("LABEL") + ; If it is a pointer field then: + ; If an integer - We assume it is an IEN of Pointed to file. Validate that and Quit. + ; If not integer - We assume it is external value, proceed to let CHK do validate + I (MAGSP("SPECIFIER")["P"),(+MAGD=MAGD) D Q MAGPT + . I $$EXTERNAL^DILFD(MAGF,MAGL,"",MAGD)'="" S MAGPT=1,MAGRES="Valid pointer" Q + . S MAGPT=0,MAGRES="The value '"_MAGD_"' for field: "_MAGLABEL_" is an invalid Pointer. " + . I 'MAGWIN W !,MAGF,!,MAGL + . ; we are only deleting the Default User Pref if it is bad. + . I (MAGL=100)&(MAGF=2006.1) D DEL(MAGF,MAGL,.MAGRES) + . Q + ; here, so check external value. + D CHK^DIE(MAGF,MAGL,"E",MAGD,.MAGR,"MAGMSG") + ; If success, Quit. We changed External to Internal. Internal is in MAGR + I MAGR'="^" S MAGD=MAGR Q 1 + ; If not success Get the error text and Quit 0 + D MSG^DIALOG("A",.MAGRESA,245,5,"MAGMSG") + S MAGRES=MAGRESA(1) + Q 0 +DEL(MAGF,MAGL,MAGRES) ; + I 'MAGWIN W !,"IN DEL File: ",MAGF," Field: ",MAGL + N MAGGMSG,MAGIENS + S X=$$DUZ2PLC^MAGBAPIP() + S MAGIENS=X_"," + ; For Default User Preference #100 + ; in Imaging site Parameters #2006.1 + ; we will delete the current value if it is invalid. + K MAGGFDA,MAGGMSG + S MAGGFDA(MAGF,MAGIENS,MAGL)="@" + D FILE^DIE("S","MAGGFDA","MAGGMSG") + I $D(MAGGMSG)=0 S MAGRES=MAGRES_" the value was Deleted." + ;I $D(MAGGMSG)=10 S MAGRES=$G(MAGGMSG("DIERR",1,"TEXT",1)) + I $D(MAGGMSG)=10 S MAGRES=MAGRES_" the attempt to Delete, Failed." + Q +ERR ; + N ERR + S ERR=$$EC^%ZOSV + S MAGRES="0^Error during data validation: "_ERR + D LOGERR^MAGGTERR(ERR) + D @^%ZOSF("ERRTN") + D CLEAN^DILF + Q diff --git a/Packages/Imaging/Routines/MAGQBUT4.m b/Packages/Imaging/Routines/MAGQBUT4.m index f7986dba61b..bf10720982c 100644 --- a/Packages/Imaging/Routines/MAGQBUT4.m +++ b/Packages/Imaging/Routines/MAGQBUT4.m @@ -1,5 +1,5 @@ -MAGQBUT4 ;WOIFO/RMP - BP Utilities ; - ;;3.0;IMAGING;**7,8,48,20,81,39,121,135,196,198**;Mar 19, 2002;Build 31;Apr 25, 2018 +MAGQBUT4 ;WOIFO/RMP/GEK - BP Utilities ; + ;;3.0;IMAGING;**7,8,48,20,81,39,121,135,196,198,214**;Mar 19, 2002;Build 34;Jun 27, 2018 ;; Per VHA Directive 2004-038, this routine should not be modified. ;; +---------------------------------------------------------------+ ;; | Property of the US Government. | @@ -17,6 +17,17 @@ ;; ; Q +VOKR(RESULT,VER) ; RPC for VOK [MAGQ VOK] + ;Patch 214 enables Clients 135, 196, 198, 214 + N CLPATCH,SVRPATCH + ; get client Patch number + S CLPATCH=$$TRIM($P(VER,"P",2)) + ; These are allowable Clients. + S SVRPATCH=",135,196,198,214," ; P 214 , continue to support 135, 196, 198 + ; if client patch is allowed, the Result = 1^... + I SVRPATCH[CLPATCH S RESULT="1^3.0P214" + E S RESULT="0^3.0P214" + Q CONV(ARR,ICT) ;Convert any single node array to FM Style multiple ; The node subscripts of ARR are ignored, and not retained ; i.e. ARR(34)=8 @@ -112,18 +123,6 @@ S PV(0)="Version^Install Date" . Q Q ; -VOKR(RESULT,VER) ; RPC for VOK [MAGQ VOK] - ;P196 - N CLPATCH,SVRPATCH - ; gek p196 allow 135 and 196 Client. - ; get client Patch number - S CLPATCH=$$TRIM($P(VER,"P",2)) - ; These are allowable Clients. - S SVRPATCH=",135,196,198," ; P198, continue to support 135, 196. - ; if client patch is allowed Result = 1^... - I SVRPATCH[CLPATCH S RESULT="1^3.0P196" - E S RESULT="0^3.0P196" - Q OLD ; S VER="3.0P"_($$TRIM($P(VER,"P",2))) S X="ERR^MAGQBTM",@^%ZOSF("TRAP") diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr index f628ba07d69..f9e92304058 100644 --- a/Packages/Kernel/Globals/14.4+TASKS.zwr +++ b/Packages/Kernel/Globals/14.4+TASKS.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: TASKS -20-MAY-2019 01:07:04 ZWR -^%ZTSK(-1)=4676 +20-MAY-2019 02:09:46 ZWR +^%ZTSK(-1)=4680 ^%ZTSK(0)="TASKS^14.4^4344" ^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^" ^%ZTSK(1001,.02)="^PLA^^" @@ -43952,6 +43952,47 @@ OSEHRA ZGO Export: TASKS ^%ZTSK(4676,.3,"DUZ(",0)="@" ^%ZTSK(4676,.3,"XQSCH")=8 ^%ZTSK(4676,.3,"XQY")=9891 +^%ZTSK(4677,0)="HOUR^XUTMHR^.5^^65153,7496^65153,7496^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^" +^%ZTSK(4677,.02)="^VISTA^^" +^%ZTSK(4677,.03)="Taskman Hourly Job" +^%ZTSK(4677,.04)=5629226696 +^%ZTSK(4677,.1)="B^65153,7556^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4677,.2)="" +^%ZTSK(4677,.21)="" +^%ZTSK(4677,.25)="" +^%ZTSK(4678,0)="ZTSK^XQ1^.5^VISTA^65153,7556^65153,7556^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(4678,.02)="^VISTA^^" +^%ZTSK(4678,.03)="No Description (%ZTLOAD)" +^%ZTSK(4678,.04)=5629226756 +^%ZTSK(4678,.1)="B^65153,7558^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4678,.2)="" +^%ZTSK(4678,.21)="" +^%ZTSK(4678,.25)="" +^%ZTSK(4678,.3,"DUZ(",0)="@" +^%ZTSK(4678,.3,"XQSCH")=10 +^%ZTSK(4678,.3,"XQY")=8853 +^%ZTSK(4679,0)="ZTSK^XQ1^.5^VISTA^65153,7556^65153,7556^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(4679,.02)="^VISTA^^" +^%ZTSK(4679,.03)="No Description (%ZTLOAD)" +^%ZTSK(4679,.04)=5629226756 +^%ZTSK(4679,.1)="B^65153,7560^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4679,.2)="" +^%ZTSK(4679,.21)="" +^%ZTSK(4679,.25)="" +^%ZTSK(4679,.3,"DUZ(",0)="@" +^%ZTSK(4679,.3,"XQSCH")=11 +^%ZTSK(4679,.3,"XQY")=8412 +^%ZTSK(4680,0)="ZTSK^XQ1^.5^VISTA^65153,7556^65153,7556^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(4680,.02)="^VISTA^^" +^%ZTSK(4680,.03)="No Description (%ZTLOAD)" +^%ZTSK(4680,.04)=5629226756 +^%ZTSK(4680,.1)="B^65153,7562^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4680,.2)="" +^%ZTSK(4680,.21)="" +^%ZTSK(4680,.25)="" +^%ZTSK(4680,.3,"DUZ(",0)="@" +^%ZTSK(4680,.3,"XQSCH")=8 +^%ZTSK(4680,.3,"XQY")=9891 ^%ZTSK(1082462,.1)="E^64013,39495^Interrupted While Running" ^%ZTSK(1082463,.1)="E^64013,39495^Interrupted While Running" ^%ZTSK(1082464,.1)="E^64013,39495^Interrupted While Running" diff --git a/Packages/Kernel/Globals/19+OPTION.zwr b/Packages/Kernel/Globals/19+OPTION.zwr index f545db7d744..29d7e4bfb1a 100644 --- a/Packages/Kernel/Globals/19+OPTION.zwr +++ b/Packages/Kernel/Globals/19+OPTION.zwr @@ -1,5 +1,5 @@ OSEHRA ZGO Export: OPTION -20-MAY-2019 01:07:13 ZWR +20-MAY-2019 02:10:00 ZWR ^DIC(19,0)="OPTION^19I^11919^10379" ^DIC(19,0,"DD")="#" ^DIC(19,0,"DEL")="#" @@ -94895,7 +94895,7 @@ OSEHRA ZGO Export: OPTION ^DIC(19,9220,"MAGJ RADSTATUSUPDATE",9,0)=625 ^DIC(19,9220,"MAGJ RADSTATUSUPDATE",10,0)=626 ^DIC(19,9220,"MAGJ RADSTATUSUPDATE",11,0)=626 -^DIC(19,9220,"RPC",0)="^19.05P^329^318" +^DIC(19,9220,"RPC",0)="^19.05P^330^319" ^DIC(19,9220,"RPC",1,0)=946 ^DIC(19,9220,"RPC",2,0)=939 ^DIC(19,9220,"RPC",4,0)=938 @@ -95154,6 +95154,7 @@ OSEHRA ZGO Export: OPTION ^DIC(19,9220,"RPC",327,0)=3817 ^DIC(19,9220,"RPC",328,0)=3822 ^DIC(19,9220,"RPC",329,0)=3823 +^DIC(19,9220,"RPC",330,0)=3824 ^DIC(19,9220,"RPC","B",9,206)="" ^DIC(19,9220,"RPC","B",83,138)="" ^DIC(19,9220,"RPC","B",84,137)="" @@ -95412,6 +95413,7 @@ OSEHRA ZGO Export: OPTION ^DIC(19,9220,"RPC","B",3817,327)="" ^DIC(19,9220,"RPC","B",3822,328)="" ^DIC(19,9220,"RPC","B",3823,329)="" +^DIC(19,9220,"RPC","B",3824,330)="" ^DIC(19,9220,"U")="ALL MAG* RPC'S " ^DIC(19,9221,0)="MAGREPSTART^Imaging Utilization Report Initialization^^R^1^^^^^^^" ^DIC(19,9221,25)="STTASK^MAGQE4" diff --git a/Packages/Kernel/Globals/9.4+PACKAGE.zwr b/Packages/Kernel/Globals/9.4+PACKAGE.zwr index 1fa084f236f..5fb541635de 100644 --- a/Packages/Kernel/Globals/9.4+PACKAGE.zwr +++ b/Packages/Kernel/Globals/9.4+PACKAGE.zwr @@ -1,5 +1,5 @@ OSEHRA ZGO Export: PACKAGE -20-MAY-2019 01:07:06 ZWR +20-MAY-2019 02:09:51 ZWR ^DIC(9.4,-1,"INI")="^2960819.165753" ^DIC(9.4,0)="PACKAGE^9.4I^232^144" ^DIC(9.4,0,"DD")="#" @@ -204555,7 +204555,7 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,175,22,2,1,3,0)=" " ^DIC(9.4,175,22,2,1,4,0)="Information on VistA Imaging is available on web page" ^DIC(9.4,175,22,2,1,5,0)="http://vawww.domain.ext/imaging/" -^DIC(9.4,175,22,2,"PAH",0)="^9.4901^144^144" +^DIC(9.4,175,22,2,"PAH",0)="^9.4901^145^145" ^DIC(9.4,175,22,2,"PAH",1,0)="1^3020408^1" ^DIC(9.4,175,22,2,"PAH",2,0)="7^3020814^1" ^DIC(9.4,175,22,2,"PAH",2,1,0)="^^40^40^3020814" @@ -207252,6 +207252,21 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,175,22,2,"PAH",144,1,13,0)="MAGGTU4M value = 22884338" ^DIC(9.4,175,22,2,"PAH",144,1,14,0)="MAGIP188 value = 4692901" ^DIC(9.4,175,22,2,"PAH",144,1,15,0)="done" +^DIC(9.4,175,22,2,"PAH",145,0)="214^3190520.020605^17" +^DIC(9.4,175,22,2,"PAH",145,1,0)="^^13^13^3190520" +^DIC(9.4,175,22,2,"PAH",145,1,1,0)="VistA Imaging Patch 214 - BackGround Processor (BP)" +^DIC(9.4,175,22,2,"PAH",145,1,2,0)="This patch fixes the following issues:" +^DIC(9.4,175,22,2,"PAH",145,1,3,0)="The BP gets stuck in a loop displaying the error message 'Can't" +^DIC(9.4,175,22,2,"PAH",145,1,4,0)="find file'. the BP must be killed using TaskManager." +^DIC(9.4,175,22,2,"PAH",145,1,5,0)="The BP Site Parameter Window will not open. the error message" +^DIC(9.4,175,22,2,"PAH",145,1,6,0)="is shown 'Value not Initialized'." +^DIC(9.4,175,22,2,"PAH",145,1,7,0)="The BP user is prompted to enter their PIV/PIN. this should" +^DIC(9.4,175,22,2,"PAH",145,1,8,0)="not happen" +^DIC(9.4,175,22,2,"PAH",145,1,9,0)="The BP uses Kernel utilities to generate encrypted passwords. " +^DIC(9.4,175,22,2,"PAH",145,1,10,0)="This patch will assure there are no 'spaces' in the generated" +^DIC(9.4,175,22,2,"PAH",145,1,11,0)="password." +^DIC(9.4,175,22,2,"PAH",145,1,12,0)="When Patch 214 KIDs is installed, BP Client versions" +^DIC(9.4,175,22,2,"PAH",145,1,13,0)="135, 196, 198 and 214 will all be supported." ^DIC(9.4,175,22,2,"PAH","B",1,1)="" ^DIC(9.4,175,22,2,"PAH","B",3,14)="" ^DIC(9.4,175,22,2,"PAH","B",5,22)="" @@ -207394,6 +207409,7 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,175,22,2,"PAH","B",208,139)="" ^DIC(9.4,175,22,2,"PAH","B",210,134)="" ^DIC(9.4,175,22,2,"PAH","B",211,135)="" +^DIC(9.4,175,22,2,"PAH","B",214,145)="" ^DIC(9.4,175,22,2,"PAH","B",220,138)="" ^DIC(9.4,175,22,2,"PAH","B","54 SEQ #60 - 07/03/2009 16:41P",51)="" ^DIC(9.4,175,22,"B",2.5,1)="" diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr index 338ca66a7b2..85a254ba1ca 100644 --- a/Packages/Kernel/Globals/9.6+BUILD.zwr +++ b/Packages/Kernel/Globals/9.6+BUILD.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: BUILD -20-MAY-2019 01:09:25 ZWR -^XPD(9.6,0)="BUILD^9.6I^11195^10835" +20-MAY-2019 02:12:05 ZWR +^XPD(9.6,0)="BUILD^9.6I^11196^10836" ^XPD(9.6,1,0)="KERNEL - VIRGIN INSTALL 8.0^3^0^2950703^n" ^XPD(9.6,1,1,0)="^^3^3^2950703^" ^XPD(9.6,1,1,1,0)="Install files needed to support Kernel 8.0. This package is" @@ -1211152,6 +1211152,87 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,11195,"REQB",2,0)="MAG*3.0*185^2" ^XPD(9.6,11195,"REQB","B","MAG*3.0*185",2)="" ^XPD(9.6,11195,"REQB","B","MAG*3.0*191",1)="" +^XPD(9.6,11196,0)="MAG*3.0*214^175^0^3180702^y" +^XPD(9.6,11196,1,0)="^^13^13^3180627^^^^" +^XPD(9.6,11196,1,1,0)="VistA Imaging Patch 214 - BackGround Processor (BP)" +^XPD(9.6,11196,1,2,0)="This patch fixes the following issues:" +^XPD(9.6,11196,1,3,0)="The BP gets stuck in a loop displaying the error message 'Can't" +^XPD(9.6,11196,1,4,0)="find file'. the BP must be killed using TaskManager." +^XPD(9.6,11196,1,5,0)="The BP Site Parameter Window will not open. the error message" +^XPD(9.6,11196,1,6,0)="is shown 'Value not Initialized'." +^XPD(9.6,11196,1,7,0)="The BP user is prompted to enter their PIV/PIN. this should" +^XPD(9.6,11196,1,8,0)="not happen" +^XPD(9.6,11196,1,9,0)="The BP uses Kernel utilities to generate encrypted passwords. " +^XPD(9.6,11196,1,10,0)="This patch will assure there are no 'spaces' in the generated" +^XPD(9.6,11196,1,11,0)="password." +^XPD(9.6,11196,1,12,0)="When Patch 214 KIDs is installed, BP Client versions" +^XPD(9.6,11196,1,13,0)="135, 196, 198 and 214 will all be supported." +^XPD(9.6,11196,4,0)="^9.64PA^^0" +^XPD(9.6,11196,6.3)=34 +^XPD(9.6,11196,"ABNS",0)="^9.66A^^" +^XPD(9.6,11196,"ABPKG")="n^n^G.IMAGING DEVELOPMENT TEAM@DOMAIN.EXT" +^XPD(9.6,11196,"INI")="PRE^MAGIP214" +^XPD(9.6,11196,"INID")="n^y^n" +^XPD(9.6,11196,"INIT")="POS^MAGIP214" +^XPD(9.6,11196,"KRN",0)="^9.67PA^779.2^20" +^XPD(9.6,11196,"KRN",.4,0)=.4 +^XPD(9.6,11196,"KRN",.4,"NM",0)="^9.68A^^" +^XPD(9.6,11196,"KRN",.401,0)=.401 +^XPD(9.6,11196,"KRN",.402,0)=.402 +^XPD(9.6,11196,"KRN",.403,0)=.403 +^XPD(9.6,11196,"KRN",.5,0)=.5 +^XPD(9.6,11196,"KRN",.84,0)=.84 +^XPD(9.6,11196,"KRN",3.6,0)=3.6 +^XPD(9.6,11196,"KRN",3.8,0)=3.8 +^XPD(9.6,11196,"KRN",9.2,0)=9.2 +^XPD(9.6,11196,"KRN",9.8,0)=9.8 +^XPD(9.6,11196,"KRN",9.8,"NM",0)="^9.68A^3^3" +^XPD(9.6,11196,"KRN",9.8,"NM",1,0)="MAGIP214^^0^B4472734" +^XPD(9.6,11196,"KRN",9.8,"NM",2,0)="MAGQBUT4^^0^B97778946" +^XPD(9.6,11196,"KRN",9.8,"NM",3,0)="MAGBVAL^^0^B21406475" +^XPD(9.6,11196,"KRN",9.8,"NM","B","MAGBVAL",3)="" +^XPD(9.6,11196,"KRN",9.8,"NM","B","MAGIP214",1)="" +^XPD(9.6,11196,"KRN",9.8,"NM","B","MAGQBUT4",2)="" +^XPD(9.6,11196,"KRN",19,0)=19 +^XPD(9.6,11196,"KRN",19,"NM",0)="^9.68A^^" +^XPD(9.6,11196,"KRN",19.1,0)=19.1 +^XPD(9.6,11196,"KRN",19.1,"NM",0)="^9.68A^^" +^XPD(9.6,11196,"KRN",101,0)=101 +^XPD(9.6,11196,"KRN",409.61,0)=409.61 +^XPD(9.6,11196,"KRN",771,0)=771 +^XPD(9.6,11196,"KRN",779.2,0)=779.2 +^XPD(9.6,11196,"KRN",870,0)=870 +^XPD(9.6,11196,"KRN",8989.51,0)=8989.51 +^XPD(9.6,11196,"KRN",8989.52,0)=8989.52 +^XPD(9.6,11196,"KRN",8994,0)=8994 +^XPD(9.6,11196,"KRN",8994,"NM",0)="^9.68A^1^1" +^XPD(9.6,11196,"KRN",8994,"NM",1,0)="MAGQBP VAL^^0" +^XPD(9.6,11196,"KRN",8994,"NM","B","MAGQBP VAL",1)="" +^XPD(9.6,11196,"KRN","B",.4,.4)="" +^XPD(9.6,11196,"KRN","B",.401,.401)="" +^XPD(9.6,11196,"KRN","B",.402,.402)="" +^XPD(9.6,11196,"KRN","B",.403,.403)="" +^XPD(9.6,11196,"KRN","B",.5,.5)="" +^XPD(9.6,11196,"KRN","B",.84,.84)="" +^XPD(9.6,11196,"KRN","B",3.6,3.6)="" +^XPD(9.6,11196,"KRN","B",3.8,3.8)="" +^XPD(9.6,11196,"KRN","B",9.2,9.2)="" +^XPD(9.6,11196,"KRN","B",9.8,9.8)="" +^XPD(9.6,11196,"KRN","B",19,19)="" +^XPD(9.6,11196,"KRN","B",19.1,19.1)="" +^XPD(9.6,11196,"KRN","B",101,101)="" +^XPD(9.6,11196,"KRN","B",409.61,409.61)="" +^XPD(9.6,11196,"KRN","B",771,771)="" +^XPD(9.6,11196,"KRN","B",779.2,779.2)="" +^XPD(9.6,11196,"KRN","B",870,870)="" +^XPD(9.6,11196,"KRN","B",8989.51,8989.51)="" +^XPD(9.6,11196,"KRN","B",8989.52,8989.52)="" +^XPD(9.6,11196,"KRN","B",8994,8994)="" +^XPD(9.6,11196,"QDEF")="^^^^NO^^^^NO^^NO" +^XPD(9.6,11196,"QUES",0)="^9.62^^" +^XPD(9.6,11196,"REQB",0)="^9.611^1^1" +^XPD(9.6,11196,"REQB",1,0)="MAG*3.0*198^2" +^XPD(9.6,11196,"REQB","B","MAG*3.0*198",1)="" ^XPD(9.6,"B","A4A7*1.01*10",1312)="" ^XPD(9.6,"B","A4A7*1.01*11",1900)="" ^XPD(9.6,"B","A4A7*1.01*9",339)="" @@ -1215414,6 +1215495,7 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,"B","MAG*3.0*21",5218)="" ^XPD(9.6,"B","MAG*3.0*210",10908)="" ^XPD(9.6,"B","MAG*3.0*211",10993)="" +^XPD(9.6,"B","MAG*3.0*214",11196)="" ^XPD(9.6,"B","MAG*3.0*22",5138)="" ^XPD(9.6,"B","MAG*3.0*220",11044)="" ^XPD(9.6,"B","MAG*3.0*24",5139)="" @@ -1231919,6 +1232001,7 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,"C",175,11148)="" ^XPD(9.6,"C",175,11153)="" ^XPD(9.6,"C",175,11195)="" +^XPD(9.6,"C",175,11196)="" ^XPD(9.6,"C",176,2321)="" ^XPD(9.6,"C",176,2829)="" ^XPD(9.6,"C",176,2830)="" diff --git a/Packages/Kernel/Globals/9.7+INSTALL.zwr b/Packages/Kernel/Globals/9.7+INSTALL.zwr index 68b4324bcd2..da211dc5070 100644 --- a/Packages/Kernel/Globals/9.7+INSTALL.zwr +++ b/Packages/Kernel/Globals/9.7+INSTALL.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: INSTALL -20-MAY-2019 01:09:47 ZWR -^XPD(9.7,0)="INSTALL^9.7I^10914^10772" +20-MAY-2019 02:12:28 ZWR +^XPD(9.7,0)="INSTALL^9.7I^10915^10773" ^XPD(9.7,1,0)="KERNEL - VIRGIN INSTALL 8.0^^2960531.10393^1^1^^^^3^0^.5" ^XPD(9.7,1,1)="2960604.094043^2960604.094043^2960604.094047" ^XPD(9.7,1,2)="Kernel 8.0 from ISC-SF by RSD ;Created on Jul 10, 1995@09:28:18" @@ -839421,6 +839421,75 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,10914,"RTN","B","MAGGTU4D",2)="" ^XPD(9.7,10914,"RTN","B","MAGGTU4M",3)="" ^XPD(9.7,10914,"RTN","B","MAGIP188",4)="" +^XPD(9.7,10915,0)="MAG*3.0*214^175^3190520.020559^10915^1^^0^0MAG*3.0*214^3^0^17" +^XPD(9.7,10915,1)="3190520.020605^3190520.020605^3190520.020605^3180702" +^XPD(9.7,10915,2)="VistA Imaging V 3 - Patch 214 - BP issues. ;Created on Jul 02, 2018@10:01:42" +^XPD(9.7,10915,6)="" +^XPD(9.7,10915,"INI",0)="^9.713^2^2" +^XPD(9.7,10915,"INI",1,0)="XPD PREINSTALL COMPLETED^3190520.020605" +^XPD(9.7,10915,"INI",2,0)="XPD PREINSTALL STARTED^3190520.020605" +^XPD(9.7,10915,"INI",2,1)="PRE^MAGIP214" +^XPD(9.7,10915,"INI","B","XPD PREINSTALL COMPLETED",1)="" +^XPD(9.7,10915,"INI","B","XPD PREINSTALL STARTED",2)="" +^XPD(9.7,10915,"INIT",0)="^9.716^2^2" +^XPD(9.7,10915,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3190520.020605" +^XPD(9.7,10915,"INIT",2,0)="XPD POSTINSTALL STARTED^3190520.020605" +^XPD(9.7,10915,"INIT",2,1)="POS^MAGIP214" +^XPD(9.7,10915,"INIT","B","XPD POSTINSTALL COMPLETED",1)="" +^XPD(9.7,10915,"INIT","B","XPD POSTINSTALL STARTED",2)="" +^XPD(9.7,10915,"KRN",0)="^9.715P^8994^1" +^XPD(9.7,10915,"KRN",8994,0)="8994^3190520.020605^16" +^XPD(9.7,10915,"KRN","AC",16,8994)="" +^XPD(9.7,10915,"KRN","B",8994,8994)="" +^XPD(9.7,10915,"MES",0)="^^30^30^3190520" +^XPD(9.7,10915,"MES",1,0)=" " +^XPD(9.7,10915,"MES",2,0)=" Install Started for MAG*3.0*214 : " +^XPD(9.7,10915,"MES",3,0)=" May 20, 2019@02:06:05" +^XPD(9.7,10915,"MES",4,0)=" " +^XPD(9.7,10915,"MES",5,0)="Build Distribution Date: Jul 02, 2018" +^XPD(9.7,10915,"MES",6,0)=" " +^XPD(9.7,10915,"MES",7,0)=" Installing Routines:" +^XPD(9.7,10915,"MES",8,0)=" May 20, 2019@02:06:05" +^XPD(9.7,10915,"MES",9,0)=" " +^XPD(9.7,10915,"MES",10,0)=" Running Pre-Install Routine: PRE^MAGIP214" +^XPD(9.7,10915,"MES",11,0)=" " +^XPD(9.7,10915,"MES",12,0)=" Installing PACKAGE COMPONENTS: " +^XPD(9.7,10915,"MES",13,0)=" " +^XPD(9.7,10915,"MES",14,0)=" Installing REMOTE PROCEDURE" +^XPD(9.7,10915,"MES",15,0)=" May 20, 2019@02:06:05" +^XPD(9.7,10915,"MES",16,0)=" " +^XPD(9.7,10915,"MES",17,0)=" Running Post-Install Routine: POS^MAGIP214" +^XPD(9.7,10915,"MES",18,0)=" " +^XPD(9.7,10915,"MES",19,0)="Post Install Mail Message: May 20, 2019@02:06:05" +^XPD(9.7,10915,"MES",20,0)=" " +^XPD(9.7,10915,"MES",21,0)=" Updating Routine file..." +^XPD(9.7,10915,"MES",22,0)=" " +^XPD(9.7,10915,"MES",23,0)=" Updating KIDS files..." +^XPD(9.7,10915,"MES",24,0)=" " +^XPD(9.7,10915,"MES",25,0)=" MAG*3.0*214 Installed. " +^XPD(9.7,10915,"MES",26,0)=" May 20, 2019@02:06:05" +^XPD(9.7,10915,"MES",27,0)=" " +^XPD(9.7,10915,"MES",28,0)=" Not a production UCI" +^XPD(9.7,10915,"MES",29,0)=" " +^XPD(9.7,10915,"MES",30,0)=" NO Install Message sent " +^XPD(9.7,10915,"QUES",0)="^9.701^2^2" +^XPD(9.7,10915,"QUES",1,0)="XPI1" +^XPD(9.7,10915,"QUES",1,1)=0 +^XPD(9.7,10915,"QUES",1,"A")="Want KIDS to INHIBIT LOGONs during the install" +^XPD(9.7,10915,"QUES",1,"B")="NO" +^XPD(9.7,10915,"QUES",2,0)="XPZ1" +^XPD(9.7,10915,"QUES",2,1)=0 +^XPD(9.7,10915,"QUES",2,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols" +^XPD(9.7,10915,"QUES",2,"B")="NO" +^XPD(9.7,10915,"QUES","B","XPI1",1)="" +^XPD(9.7,10915,"QUES","B","XPZ1",2)="" +^XPD(9.7,10915,"RTN",0)="^9.704A^3^3" +^XPD(9.7,10915,"RTN",1,0)="MAGBVAL" +^XPD(9.7,10915,"RTN",2,0)="MAGIP214" +^XPD(9.7,10915,"RTN",3,0)="MAGQBUT4" +^XPD(9.7,10915,"RTN","B","MAGBVAL",1)="" +^XPD(9.7,10915,"RTN","B","MAGIP214",2)="" +^XPD(9.7,10915,"RTN","B","MAGQBUT4",3)="" ^XPD(9.7,"ASP",1,1,1)="" ^XPD(9.7,"ASP",1,2,2)="" ^XPD(9.7,"ASP",3,1,3)="" @@ -850193,6 +850262,7 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,"ASP",10912,1,10912)="" ^XPD(9.7,"ASP",10913,1,10913)="" ^XPD(9.7,"ASP",10914,1,10914)="" +^XPD(9.7,"ASP",10915,1,10915)="" ^XPD(9.7,"B","A4A7*1.01*10",1037)="" ^XPD(9.7,"B","A4A7*1.01*11",1611)="" ^XPD(9.7,"B","A4A7*1.01*11",1631)="" @@ -854366,6 +854436,7 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,"B","MAG*3.0*21",4932)="" ^XPD(9.7,"B","MAG*3.0*210",10617)="" ^XPD(9.7,"B","MAG*3.0*211",10703)="" +^XPD(9.7,"B","MAG*3.0*214",10915)="" ^XPD(9.7,"B","MAG*3.0*22",4854)="" ^XPD(9.7,"B","MAG*3.0*220",10763)="" ^XPD(9.7,"B","MAG*3.0*24",4855)="" diff --git a/Packages/Kernel/Globals/9.8+ROUTINE.zwr b/Packages/Kernel/Globals/9.8+ROUTINE.zwr index 0e5c62abdca..20713e853f3 100644 --- a/Packages/Kernel/Globals/9.8+ROUTINE.zwr +++ b/Packages/Kernel/Globals/9.8+ROUTINE.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: ROUTINE -20-MAY-2019 01:07:10 ZWR -^DIC(9.8,0)="ROUTINE^9.8^35974^29044" +20-MAY-2019 02:09:58 ZWR +^DIC(9.8,0)="ROUTINE^9.8^35976^29046" ^DIC(9.8,0,"DD")="#" ^DIC(9.8,0,"DEL")="#" ^DIC(9.8,0,"GL")="^DIC(9.8," @@ -84148,7 +84148,7 @@ OSEHRA ZGO Export: ROUTINE ^DIC(9.8,22308,8,1,0)="COMPARE IMAGING 3.0^3963432/7027516" ^DIC(9.8,22308,8,"B","COMPARE IMAGING 3.0",1)="" ^DIC(9.8,22309,0)="MAGQBUT4^R" -^DIC(9.8,22309,4.1)=3181202.045613 +^DIC(9.8,22309,4.1)=3190520.020605 ^DIC(9.8,22309,8,0)="^9.818^1^1" ^DIC(9.8,22309,8,1,0)="COMPARE IMAGING 3.0^4347014/10763650" ^DIC(9.8,22309,8,"B","COMPARE IMAGING 3.0",1)="" @@ -114618,6 +114618,10 @@ OSEHRA ZGO Export: ROUTINE ^DIC(9.8,35973,4.1)=3190520.01032 ^DIC(9.8,35974,0)="MAGIP188^R" ^DIC(9.8,35974,4.1)=3190520.01032 +^DIC(9.8,35975,0)="MAGBVAL^R" +^DIC(9.8,35975,4.1)=3190520.020605 +^DIC(9.8,35976,0)="MAGIP214^R" +^DIC(9.8,35976,4.1)=3190520.020605 ^DIC(9.8,"%",0)="^1.005^1^1" ^DIC(9.8,"%",1,0)="XU" ^DIC(9.8,"%","B","XU",1)="" @@ -127527,6 +127531,7 @@ OSEHRA ZGO Export: ROUTINE ^DIC(9.8,"B","MAGBRTK",27783)="" ^DIC(9.8,"B","MAGBRTLD",21806)="" ^DIC(9.8,"B","MAGBRTUT",23034)="" +^DIC(9.8,"B","MAGBVAL",35975)="" ^DIC(9.8,"B","MAGCRPT",21480)="" ^DIC(9.8,"B","MAGDAIRF",30492)="" ^DIC(9.8,"B","MAGDAIRG",30493)="" @@ -127780,6 +127785,7 @@ OSEHRA ZGO Export: ROUTINE ^DIC(9.8,"B","MAGIP208",35757)="" ^DIC(9.8,"B","MAGIP210",35563)="" ^DIC(9.8,"B","MAGIP211",35667)="" +^DIC(9.8,"B","MAGIP214",35976)="" ^DIC(9.8,"B","MAGIP220",35734)="" ^DIC(9.8,"B","MAGIPS93",30176)="" ^DIC(9.8,"B","MAGJEX1",21808)="" diff --git a/Packages/MailMan/Globals/3.9+MESSAGE.zwr b/Packages/MailMan/Globals/3.9+MESSAGE.zwr index 8f2632c2ad2..6e52b765e27 100644 --- a/Packages/MailMan/Globals/3.9+MESSAGE.zwr +++ b/Packages/MailMan/Globals/3.9+MESSAGE.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: MESSAGE -20-MAY-2019 01:09:23 ZWR -^XMB(3.9,0)="MESSAGE^3.9s^284^284" +20-MAY-2019 02:12:04 ZWR +^XMB(3.9,0)="MESSAGE^3.9s^285^285" ^XMB(3.9,1,0)="PATCH OR*3*389 POSTINIT COMPLETED^PATCH OR*3*389 POSTINIT^3160526.130443" ^XMB(3.9,1,.6)=3160526 ^XMB(3.9,1,1,0)="^3.91A^2^2" @@ -46955,6 +46955,29 @@ OSEHRA ZGO Export: MESSAGE ^XMB(3.9,284,6,0)="^3.911A^1^1" ^XMB(3.9,284,6,1,0)="USER,SEVENTEEN" ^XMB(3.9,284,6,"B","USER,SEVENTEEN",1)="" +^XMB(3.9,285,0)="MAG*3.0*214 INSTALLATION^17^3190520.020605" +^XMB(3.9,285,.6)=3190520 +^XMB(3.9,285,1,0)="^3.91A^1^1" +^XMB(3.9,285,1,1,0)=17 +^XMB(3.9,285,1,"C",17,1)="" +^XMB(3.9,285,2,0)="^^14^14^3190520" +^XMB(3.9,285,2,1,0)="PACKAGE INSTALL" +^XMB(3.9,285,2,2,0)="SITE: FOIA.DOMAIN.EXT" +^XMB(3.9,285,2,3,0)=" Production Account: 0" +^XMB(3.9,285,2,4,0)="PACKAGE: MAG*3.0*214" +^XMB(3.9,285,2,5,0)="Version: 3.0" +^XMB(3.9,285,2,6,0)="Start time: May 20, 2019@02:06:05" +^XMB(3.9,285,2,7,0)="Completion time: May 20, 2019@02:06:05" +^XMB(3.9,285,2,8,0)="Run time: " +^XMB(3.9,285,2,9,0)="Environment: VISTA^VISTA^surkesh^VISTA:CACHE" +^XMB(3.9,285,2,10,0)="FILE COMMENT: VistA Imaging V 3 - Patch 214 - BP issues. ;Created on Jul 02, 2018@10:01:42" +^XMB(3.9,285,2,11,0)="DATE: 3190520.020605" +^XMB(3.9,285,2,12,0)="Installed by: USER,SEVENTEEN" +^XMB(3.9,285,2,13,0)="Install Name: MAG*3.0*214" +^XMB(3.9,285,2,14,0)="Distribution Date: Jul 02, 2018" +^XMB(3.9,285,6,0)="^3.911A^1^1" +^XMB(3.9,285,6,1,0)="USER,SEVENTEEN" +^XMB(3.9,285,6,"B","USER,SEVENTEEN",1)="" ^XMB(3.9,"B","050 PCE CODE MAPPING DATA FOR ",70)="" ^XMB(3.9,"B","DATA UPDATE FOR NDF",3)="" ^XMB(3.9,"B","DATA UPDATE FOR NDF",7)="" @@ -47130,6 +47153,7 @@ OSEHRA ZGO Export: MESSAGE ^XMB(3.9,"B","MAG*3.0*208 INSTALLATION",207)="" ^XMB(3.9,"B","MAG*3.0*210 INSTALLATION",188)="" ^XMB(3.9,"B","MAG*3.0*211 INSTALLATION",196)="" +^XMB(3.9,"B","MAG*3.0*214 INSTALLATION",285)="" ^XMB(3.9,"B","MAG*3.0*220 INSTALLATION",205)="" ^XMB(3.9,"B","MAIL GROUP API",61)="" ^XMB(3.9,"B","OR*3.0*401 Post install routin",110)="" @@ -47523,3 +47547,4 @@ OSEHRA ZGO Export: MESSAGE ^XMB(3.9,"C",3190518,282)="" ^XMB(3.9,"C",3190520,283)="" ^XMB(3.9,"C",3190520,284)="" +^XMB(3.9,"C",3190520,285)="" diff --git a/Packages/MailMan/Globals/XMBPOST.zwr b/Packages/MailMan/Globals/XMBPOST.zwr index b82e472b6d0..3a6bb1bfba6 100644 --- a/Packages/MailMan/Globals/XMBPOST.zwr +++ b/Packages/MailMan/Globals/XMBPOST.zwr @@ -1,5 +1,5 @@ OSEHRA ZGO Export: ^XMBPOST -20-MAY-2019 01:09:24 ZWR +20-MAY-2019 02:12:05 ZWR ^XMBPOST("BOX",5535176683,"M",1)="2^1" ^XMBPOST("BOX",5535176771,"M",2)="1^1" ^XMBPOST("BOX",5535176905,"M",3)="1^1" @@ -253,6 +253,7 @@ OSEHRA ZGO Export: ^XMBPOST ^XMBPOST("BOX",5629081683,"M",282)="1^1" ^XMBPOST("BOX",5629219286,"M",283)="1^1" ^XMBPOST("BOX",5629223000,"M",284)="1^1" +^XMBPOST("BOX",5629226765,"M",285)="1^1" ^XMBPOST("FWD","106^17^8260^5574136506",1)=17 ^XMBPOST("FWD","166^17^8072^5599418225",1)=17 ^XMBPOST("FWD","167^17^8072^5599418225",1)=17 diff --git a/Packages/RPC Broker/Globals/8994+REMOTE PROCEDURE.zwr b/Packages/RPC Broker/Globals/8994+REMOTE PROCEDURE.zwr index 1769404e2db..62fb596e9e6 100644 --- a/Packages/RPC Broker/Globals/8994+REMOTE PROCEDURE.zwr +++ b/Packages/RPC Broker/Globals/8994+REMOTE PROCEDURE.zwr @@ -1,6 +1,6 @@ OSEHRA ZGO Export: REMOTE PROCEDURE -20-MAY-2019 01:09:32 ZWR -^XWB(8994,0)="REMOTE PROCEDURE^8994^3823^3651" +20-MAY-2019 02:12:12 ZWR +^XWB(8994,0)="REMOTE PROCEDURE^8994^3824^3652" ^XWB(8994,1,0)="XWB EGCHO STRING^ECHO1^XWBZ1^1^R" ^XWB(8994,1,1,0)="^^2^2^2970825^^" ^XWB(8994,1,1,1,0)="This RPC receives a string which will be sent right back to the client." @@ -74629,6 +74629,30 @@ OSEHRA ZGO Export: REMOTE PROCEDURE ^XWB(8994,3823,3,2,0)="Description ^ Physical Reference ^ Operational Status." ^XWB(8994,3823,3,3,0)=" example :" ^XWB(8994,3823,3,4,0)=" MUSE-9 ^ \\Server\Vol000\ ^ OnLine" +^XWB(8994,3824,0)="MAGQBP VAL^VAL^MAGBVAL^2^R" +^XWB(8994,3824,1,0)="^8994.01^4^4^3180620^^" +^XWB(8994,3824,1,1,0)="This call will validate existing data in the " +^XWB(8994,3824,1,2,0)="IMAGING SITE PARAMETERS File." +^XWB(8994,3824,1,3,0)="If existing data is invalid, the BP cannot run the " +^XWB(8994,3824,1,4,0)="Imaging Site Parameters edit window." +^XWB(8994,3824,2,0)="^8994.02A^2^2" +^XWB(8994,3824,2,1,0)="MAGARRAY^2^^1^1" +^XWB(8994,3824,2,1,1,0)="^^1^1^3180620^" +^XWB(8994,3824,2,1,1,1,0)="Array of Field Numbers to Validate" +^XWB(8994,3824,2,2,0)="ALL^1^30^0^2" +^XWB(8994,3824,2,2,1,0)="^^3^3^3180620^" +^XWB(8994,3824,2,2,1,1,0)="if ALL=1 then all fields will be validated." +^XWB(8994,3824,2,2,1,2,0)="if ALL=0 then the validation will stop when first invalid" +^XWB(8994,3824,2,2,1,3,0)="entry is found." +^XWB(8994,3824,2,"B","ALL",2)="" +^XWB(8994,3824,2,"B","MAGARRAY",1)="" +^XWB(8994,3824,2,"PARAMSEQ",1,1)="" +^XWB(8994,3824,2,"PARAMSEQ",2,2)="" +^XWB(8994,3824,3,0)="^8994.03^4^4^3180620^^" +^XWB(8994,3824,3,1,0)="Array(0)=1^Success if all field data was valid" +^XWB(8994,3824,3,2,0)="Array(0)=""0^Error message"" if any data is invalid" +^XWB(8994,3824,3,3,0)="if ALL=1 then Array(1..n) will contain Error messages for" +^XWB(8994,3824,3,4,0)="all fields that have invalid data." ^XWB(8994,"B","ACKQAUD1",1578)="" ^XWB(8994,"B","ACKQAUD2",1579)="" ^XWB(8994,"B","ACKQAUD4",2095)="" @@ -75893,6 +75917,7 @@ OSEHRA ZGO Export: REMOTE PROCEDURE ^XWB(8994,"B","MAGQBP FREF",2909)="" ^XWB(8994,"B","MAGQBP PARM",993)="" ^XWB(8994,"B","MAGQBP UPDATE",992)="" +^XWB(8994,"B","MAGQBP VAL",3824)="" ^XWB(8994,"B","MAGTP GET ACTIVE",3301)="" ^XWB(8994,"B","MAGTP GET CASES",3302)="" ^XWB(8994,"B","MAGTP GET CPRS REPORT",3303)=""