diff --git a/Packages/Kernel/Globals/14.4+TASKS.zwr b/Packages/Kernel/Globals/14.4+TASKS.zwr index b3ec16df346..a99b1a3e6eb 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 -22-MAY-2019 16:06:39 ZWR -^%ZTSK(-1)=4902 +22-MAY-2019 17:25:20 ZWR +^%ZTSK(-1)=4906 ^%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^^" @@ -46433,6 +46433,47 @@ OSEHRA ZGO Export: TASKS ^%ZTSK(4902,.3,"DUZ(",0)="@" ^%ZTSK(4902,.3,"XQSCH")=8 ^%ZTSK(4902,.3,"XQY")=9891 +^%ZTSK(4903,0)="HOUR^XUTMHR^.5^^65155,62433^65155,62433^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^" +^%ZTSK(4903,.02)="^VISTA^^" +^%ZTSK(4903,.03)="Taskman Hourly Job" +^%ZTSK(4903,.04)=5629454433 +^%ZTSK(4903,.1)="B^65155,62493^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4903,.2)="" +^%ZTSK(4903,.21)="" +^%ZTSK(4903,.25)="" +^%ZTSK(4904,0)="ZTSK^XQ1^.5^VISTA^65155,62493^65155,62493^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(4904,.02)="^VISTA^^" +^%ZTSK(4904,.03)="No Description (%ZTLOAD)" +^%ZTSK(4904,.04)=5629454493 +^%ZTSK(4904,.1)="B^65155,62495^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4904,.2)="" +^%ZTSK(4904,.21)="" +^%ZTSK(4904,.25)="" +^%ZTSK(4904,.3,"DUZ(",0)="@" +^%ZTSK(4904,.3,"XQSCH")=10 +^%ZTSK(4904,.3,"XQY")=8853 +^%ZTSK(4905,0)="ZTSK^XQ1^.5^VISTA^65155,62493^65155,62493^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(4905,.02)="^VISTA^^" +^%ZTSK(4905,.03)="No Description (%ZTLOAD)" +^%ZTSK(4905,.04)=5629454493 +^%ZTSK(4905,.1)="B^65155,62497^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4905,.2)="" +^%ZTSK(4905,.21)="" +^%ZTSK(4905,.25)="" +^%ZTSK(4905,.3,"DUZ(",0)="@" +^%ZTSK(4905,.3,"XQSCH")=11 +^%ZTSK(4905,.3,"XQY")=8412 +^%ZTSK(4906,0)="ZTSK^XQ1^.5^VISTA^65155,62493^65155,62493^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^" +^%ZTSK(4906,.02)="^VISTA^^" +^%ZTSK(4906,.03)="No Description (%ZTLOAD)" +^%ZTSK(4906,.04)=5629454493 +^%ZTSK(4906,.1)="B^65155,62499^Task's volume set not listed in index.^^^^^^" +^%ZTSK(4906,.2)="" +^%ZTSK(4906,.21)="" +^%ZTSK(4906,.25)="" +^%ZTSK(4906,.3,"DUZ(",0)="@" +^%ZTSK(4906,.3,"XQSCH")=8 +^%ZTSK(4906,.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/9.4+PACKAGE.zwr b/Packages/Kernel/Globals/9.4+PACKAGE.zwr index 22419636cc1..6b3777c414e 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 -22-MAY-2019 16:06:42 ZWR +22-MAY-2019 17:25:23 ZWR ^DIC(9.4,-1,"INI")="^2960819.165753" ^DIC(9.4,0)="PACKAGE^9.4I^232^144" ^DIC(9.4,0,"DD")="#" @@ -197979,7 +197979,7 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,164,22,1,0)="1.0^3051119^2971028^1" ^DIC(9.4,164,22,1,1,0)="^^1^1^3051119" ^DIC(9.4,164,22,1,1,1,0)="MANAGEMENT OF PHARMACY DATA FILES." -^DIC(9.4,164,22,1,"PAH",0)="^9.4901^200^200" +^DIC(9.4,164,22,1,"PAH",0)="^9.4901^201^201" ^DIC(9.4,164,22,1,"PAH",1,0)="2 SEQ #1^2971105^1" ^DIC(9.4,164,22,1,"PAH",1,1,0)="^^2^2^2971105" ^DIC(9.4,164,22,1,"PAH",1,1,1,0)="Pharmacy Data Management PATCH PSS*1*2. This fixes a no-compiled routine" @@ -203283,6 +203283,43 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,164,22,1,"PAH",200,1,6,0)=" " ^DIC(9.4,164,22,1,"PAH",200,1,7,0)="2) Dosing check fails when an OLD SCHEDULE NAME(S) is used with a PRN" ^DIC(9.4,164,22,1,"PAH",200,1,8,0)="designation." +^DIC(9.4,164,22,1,"PAH",201,0)="232^3190522.172142^17" +^DIC(9.4,164,22,1,"PAH",201,1,0)="^^35^35^3190522" +^DIC(9.4,164,22,1,"PAH",201,1,1,0)="This patch will resolve the following issue." +^DIC(9.4,164,22,1,"PAH",201,1,2,0)=" " +^DIC(9.4,164,22,1,"PAH",201,1,3,0)="INC2574335 - Our drug file entry will not let me add the labs associated with" +^DIC(9.4,164,22,1,"PAH",201,1,4,0)=" the drug Clozapine that needs labs attached so that drug checks" +^DIC(9.4,164,22,1,"PAH",201,1,5,0)=" can be performed" +^DIC(9.4,164,22,1,"PAH",201,1,6,0)=" " +^DIC(9.4,164,22,1,"PAH",201,1,7,0)=" " +^DIC(9.4,164,22,1,"PAH",201,1,8,0)="Defect Tracking System Ticket(s) & Overview:" +^DIC(9.4,164,22,1,"PAH",201,1,9,0)="--------------------------------------------" +^DIC(9.4,164,22,1,"PAH",201,1,10,0)="INC2574335 - Our drug file entry will not let me add the labs associated with" +^DIC(9.4,164,22,1,"PAH",201,1,11,0)=" the drug Clozapine that needs labs attached so that drug checks" +^DIC(9.4,164,22,1,"PAH",201,1,12,0)=" can be performed" +^DIC(9.4,164,22,1,"PAH",201,1,13,0)=" " +^DIC(9.4,164,22,1,"PAH",201,1,14,0)="Problem: " +^DIC(9.4,164,22,1,"PAH",201,1,15,0)="--------" +^DIC(9.4,164,22,1,"PAH",201,1,16,0)="Noth Texas VAMC reported a problem when trying to use the Drug Enter/Edit " +^DIC(9.4,164,22,1,"PAH",201,1,17,0)="[PSS DRUG ENTER/EDIT] option to mark a dispense drug a 'Clozapine' drug." +^DIC(9.4,164,22,1,"PAH",201,1,18,0)="After entering the lab test (WBC) and Specimen Type (BLOOD) they would get" +^DIC(9.4,164,22,1,"PAH",201,1,19,0)="a double question mark (??) after answering 'YES' at the 'Is this Correct?'" +^DIC(9.4,164,22,1,"PAH",201,1,20,0)="prompt. " +^DIC(9.4,164,22,1,"PAH",201,1,21,0)=" " +^DIC(9.4,164,22,1,"PAH",201,1,22,0)="Resolution:" +^DIC(9.4,164,22,1,"PAH",201,1,23,0)="-----------" +^DIC(9.4,164,22,1,"PAH",201,1,24,0)="The problem was a result of an internal call to Fileman to save the lab test" +^DIC(9.4,164,22,1,"PAH",201,1,25,0)="data. Fileman was getting lost because it found more than one match to the" +^DIC(9.4,164,22,1,"PAH",201,1,26,0)="IEN for 'BLOOD' in the TOPOGRAPHY FIELD file (#61) because it did not " +^DIC(9.4,164,22,1,"PAH",201,1,27,0)="restrict the lookup to IEN only and other entries in that file had the " +^DIC(9.4,164,22,1,"PAH",201,1,28,0)="ABBREVIATION field (#6) set with a value that matched the IEN for 'BLOOD'." +^DIC(9.4,164,22,1,"PAH",201,1,29,0)=" " +^DIC(9.4,164,22,1,"PAH",201,1,30,0)="Technical Resolution:" +^DIC(9.4,164,22,1,"PAH",201,1,31,0)="---------------------" +^DIC(9.4,164,22,1,"PAH",201,1,32,0)="Changed the routine PSSCLOZ at CLOZAD2+2 to use 4 slashes (////) instead of" +^DIC(9.4,164,22,1,"PAH",201,1,33,0)="3 slashes (///) when saving SPECIMEN TYPE FIELD (#2), as shown below:" +^DIC(9.4,164,22,1,"PAH",201,1,34,0)=" " +^DIC(9.4,164,22,1,"PAH",201,1,35,0)=" S DIC(""DR"")=""2////""_PSSPTYN_"";3///""_PSSTUFF" ^DIC(9.4,164,22,1,"PAH","B",1,18)="" ^DIC(9.4,164,22,1,"PAH","B",13,11)="" ^DIC(9.4,164,22,1,"PAH","B",17,13)="" @@ -203337,6 +203374,7 @@ OSEHRA ZGO Export: PACKAGE ^DIC(9.4,164,22,1,"PAH","B",227,193)="" ^DIC(9.4,164,22,1,"PAH","B",229,194)="" ^DIC(9.4,164,22,1,"PAH","B",231,200)="" +^DIC(9.4,164,22,1,"PAH","B",232,201)="" ^DIC(9.4,164,22,1,"PAH","B","10 SEQ #11",9)="" ^DIC(9.4,164,22,1,"PAH","B","101 SEQ #90",89)="" ^DIC(9.4,164,22,1,"PAH","B","102 SEQ #91",90)="" diff --git a/Packages/Kernel/Globals/9.6+BUILD.zwr b/Packages/Kernel/Globals/9.6+BUILD.zwr index 8f92c1fec92..9f711022347 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 -22-MAY-2019 16:09:13 ZWR -^XPD(9.6,0)="BUILD^9.6I^11249^10889" +22-MAY-2019 17:27:49 ZWR +^XPD(9.6,0)="BUILD^9.6I^11250^10890" ^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" @@ -1216243,6 +1216243,96 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,11249,"REQB",0)="^9.611^1^1" ^XPD(9.6,11249,"REQB",1,0)="PSS*1.0*224^2" ^XPD(9.6,11249,"REQB","B","PSS*1.0*224",1)="" +^XPD(9.6,11250,0)="PSS*1.0*232^164^0^3181016^y" +^XPD(9.6,11250,1,0)="^^35^35^3181016^" +^XPD(9.6,11250,1,1,0)="This patch will resolve the following issue." +^XPD(9.6,11250,1,2,0)=" " +^XPD(9.6,11250,1,3,0)="INC2574335 - Our drug file entry will not let me add the labs associated with" +^XPD(9.6,11250,1,4,0)=" the drug Clozapine that needs labs attached so that drug checks" +^XPD(9.6,11250,1,5,0)=" can be performed" +^XPD(9.6,11250,1,6,0)=" " +^XPD(9.6,11250,1,7,0)=" " +^XPD(9.6,11250,1,8,0)="Defect Tracking System Ticket(s) & Overview:" +^XPD(9.6,11250,1,9,0)="--------------------------------------------" +^XPD(9.6,11250,1,10,0)="INC2574335 - Our drug file entry will not let me add the labs associated with" +^XPD(9.6,11250,1,11,0)=" the drug Clozapine that needs labs attached so that drug checks" +^XPD(9.6,11250,1,12,0)=" can be performed" +^XPD(9.6,11250,1,13,0)=" " +^XPD(9.6,11250,1,14,0)="Problem: " +^XPD(9.6,11250,1,15,0)="--------" +^XPD(9.6,11250,1,16,0)="Noth Texas VAMC reported a problem when trying to use the Drug Enter/Edit " +^XPD(9.6,11250,1,17,0)="[PSS DRUG ENTER/EDIT] option to mark a dispense drug a 'Clozapine' drug." +^XPD(9.6,11250,1,18,0)="After entering the lab test (WBC) and Specimen Type (BLOOD) they would get" +^XPD(9.6,11250,1,19,0)="a double question mark (??) after answering 'YES' at the 'Is this Correct?'" +^XPD(9.6,11250,1,20,0)="prompt. " +^XPD(9.6,11250,1,21,0)=" " +^XPD(9.6,11250,1,22,0)="Resolution:" +^XPD(9.6,11250,1,23,0)="-----------" +^XPD(9.6,11250,1,24,0)="The problem was a result of an internal call to Fileman to save the lab test" +^XPD(9.6,11250,1,25,0)="data. Fileman was getting lost because it found more than one match to the" +^XPD(9.6,11250,1,26,0)="IEN for 'BLOOD' in the TOPOGRAPHY FIELD file (#61) because it did not " +^XPD(9.6,11250,1,27,0)="restrict the lookup to IEN only and other entries in that file had the " +^XPD(9.6,11250,1,28,0)="ABBREVIATION field (#6) set with a value that matched the IEN for 'BLOOD'." +^XPD(9.6,11250,1,29,0)=" " +^XPD(9.6,11250,1,30,0)="Technical Resolution:" +^XPD(9.6,11250,1,31,0)="---------------------" +^XPD(9.6,11250,1,32,0)="Changed the routine PSSCLOZ at CLOZAD2+2 to use 4 slashes (////) instead of" +^XPD(9.6,11250,1,33,0)="3 slashes (///) when saving SPECIMEN TYPE FIELD (#2), as shown below:" +^XPD(9.6,11250,1,34,0)=" " +^XPD(9.6,11250,1,35,0)=" S DIC(""DR"")=""2////""_PSSPTYN_"";3///""_PSSTUFF" +^XPD(9.6,11250,4,0)="^9.64PA^^" +^XPD(9.6,11250,6)="^203" +^XPD(9.6,11250,6.3)=1 +^XPD(9.6,11250,"ABPKG")="n" +^XPD(9.6,11250,"KRN",0)="^9.67PA^779.2^20" +^XPD(9.6,11250,"KRN",.4,0)=.4 +^XPD(9.6,11250,"KRN",.401,0)=.401 +^XPD(9.6,11250,"KRN",.402,0)=.402 +^XPD(9.6,11250,"KRN",.403,0)=.403 +^XPD(9.6,11250,"KRN",.5,0)=.5 +^XPD(9.6,11250,"KRN",.84,0)=.84 +^XPD(9.6,11250,"KRN",3.6,0)=3.6 +^XPD(9.6,11250,"KRN",3.8,0)=3.8 +^XPD(9.6,11250,"KRN",9.2,0)=9.2 +^XPD(9.6,11250,"KRN",9.8,0)=9.8 +^XPD(9.6,11250,"KRN",9.8,"NM",0)="^9.68A^1^1" +^XPD(9.6,11250,"KRN",9.8,"NM",1,0)="PSSCLOZ^^0^B38095130" +^XPD(9.6,11250,"KRN",9.8,"NM","B","PSSCLOZ",1)="" +^XPD(9.6,11250,"KRN",19,0)=19 +^XPD(9.6,11250,"KRN",19.1,0)=19.1 +^XPD(9.6,11250,"KRN",101,0)=101 +^XPD(9.6,11250,"KRN",409.61,0)=409.61 +^XPD(9.6,11250,"KRN",771,0)=771 +^XPD(9.6,11250,"KRN",779.2,0)=779.2 +^XPD(9.6,11250,"KRN",870,0)=870 +^XPD(9.6,11250,"KRN",8989.51,0)=8989.51 +^XPD(9.6,11250,"KRN",8989.52,0)=8989.52 +^XPD(9.6,11250,"KRN",8994,0)=8994 +^XPD(9.6,11250,"KRN","B",.4,.4)="" +^XPD(9.6,11250,"KRN","B",.401,.401)="" +^XPD(9.6,11250,"KRN","B",.402,.402)="" +^XPD(9.6,11250,"KRN","B",.403,.403)="" +^XPD(9.6,11250,"KRN","B",.5,.5)="" +^XPD(9.6,11250,"KRN","B",.84,.84)="" +^XPD(9.6,11250,"KRN","B",3.6,3.6)="" +^XPD(9.6,11250,"KRN","B",3.8,3.8)="" +^XPD(9.6,11250,"KRN","B",9.2,9.2)="" +^XPD(9.6,11250,"KRN","B",9.8,9.8)="" +^XPD(9.6,11250,"KRN","B",19,19)="" +^XPD(9.6,11250,"KRN","B",19.1,19.1)="" +^XPD(9.6,11250,"KRN","B",101,101)="" +^XPD(9.6,11250,"KRN","B",409.61,409.61)="" +^XPD(9.6,11250,"KRN","B",771,771)="" +^XPD(9.6,11250,"KRN","B",779.2,779.2)="" +^XPD(9.6,11250,"KRN","B",870,870)="" +^XPD(9.6,11250,"KRN","B",8989.51,8989.51)="" +^XPD(9.6,11250,"KRN","B",8989.52,8989.52)="" +^XPD(9.6,11250,"KRN","B",8994,8994)="" +^XPD(9.6,11250,"QDEF")="^^^^NO^^^^NO^^NO" +^XPD(9.6,11250,"QUES",0)="^9.62^^" +^XPD(9.6,11250,"REQB",0)="^9.611^1^1" +^XPD(9.6,11250,"REQB",1,0)="PSS*1.0*90^2" +^XPD(9.6,11250,"REQB","B","PSS*1.0*90",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)="" @@ -1224011,6 +1224101,7 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,"B","PSS*1.0*229",11005)="" ^XPD(9.6,"B","PSS*1.0*23",2215)="" ^XPD(9.6,"B","PSS*1.0*231",11249)="" +^XPD(9.6,"B","PSS*1.0*232",11250)="" ^XPD(9.6,"B","PSS*1.0*24",2316)="" ^XPD(9.6,"B","PSS*1.0*25",2378)="" ^XPD(9.6,"B","PSS*1.0*26",2448)="" @@ -1236646,6 +1236737,7 @@ OSEHRA ZGO Export: BUILD ^XPD(9.6,"C",164,11116)="" ^XPD(9.6,"C",164,11162)="" ^XPD(9.6,"C",164,11249)="" +^XPD(9.6,"C",164,11250)="" ^XPD(9.6,"C",165,1232)="" ^XPD(9.6,"C",165,1291)="" ^XPD(9.6,"C",165,1321)="" diff --git a/Packages/Kernel/Globals/9.7+INSTALL.zwr b/Packages/Kernel/Globals/9.7+INSTALL.zwr index b01ba054c14..53a1a3db04e 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 -22-MAY-2019 16:09:32 ZWR -^XPD(9.7,0)="INSTALL^9.7I^10968^10826" +22-MAY-2019 17:28:10 ZWR +^XPD(9.7,0)="INSTALL^9.7I^10969^10827" ^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" @@ -843333,6 +843333,50 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,10968,"RTN",2,0)="PSSSCHMS" ^XPD(9.7,10968,"RTN","B","PSSDSUTL",1)="" ^XPD(9.7,10968,"RTN","B","PSSSCHMS",2)="" +^XPD(9.7,10969,0)="PSS*1.0*232^164^3190522.172137^10969^1^^0^0PSS*1.0*232^3^0^17" +^XPD(9.7,10969,1)="3190522.172142^3190522.172142^3190522.172142^3181016" +^XPD(9.7,10969,2)="Extracted from mail message ;Created on " +^XPD(9.7,10969,6)="^203" +^XPD(9.7,10969,"INI",0)="^9.713^1^1" +^XPD(9.7,10969,"INI",1,0)="XPD PREINSTALL COMPLETED^3190522.172142" +^XPD(9.7,10969,"INI","B","XPD PREINSTALL COMPLETED",1)="" +^XPD(9.7,10969,"INIT",0)="^9.716^1^1" +^XPD(9.7,10969,"INIT",1,0)="XPD POSTINSTALL COMPLETED^3190522.172142" +^XPD(9.7,10969,"INIT","B","XPD POSTINSTALL COMPLETED",1)="" +^XPD(9.7,10969,"MES",0)="^^19^19^3190522" +^XPD(9.7,10969,"MES",1,0)=" " +^XPD(9.7,10969,"MES",2,0)=" Install Started for PSS*1.0*232 : " +^XPD(9.7,10969,"MES",3,0)=" May 22, 2019@17:21:42" +^XPD(9.7,10969,"MES",4,0)=" " +^XPD(9.7,10969,"MES",5,0)="Build Distribution Date: Oct 16, 2018" +^XPD(9.7,10969,"MES",6,0)=" " +^XPD(9.7,10969,"MES",7,0)=" Installing Routines:" +^XPD(9.7,10969,"MES",8,0)=" May 22, 2019@17:21:42" +^XPD(9.7,10969,"MES",9,0)=" " +^XPD(9.7,10969,"MES",10,0)=" Updating Routine file..." +^XPD(9.7,10969,"MES",11,0)=" " +^XPD(9.7,10969,"MES",12,0)=" Updating KIDS files..." +^XPD(9.7,10969,"MES",13,0)=" " +^XPD(9.7,10969,"MES",14,0)=" PSS*1.0*232 Installed. " +^XPD(9.7,10969,"MES",15,0)=" May 22, 2019@17:21:42" +^XPD(9.7,10969,"MES",16,0)=" " +^XPD(9.7,10969,"MES",17,0)=" Not a production UCI" +^XPD(9.7,10969,"MES",18,0)=" " +^XPD(9.7,10969,"MES",19,0)=" NO Install Message sent " +^XPD(9.7,10969,"QUES",0)="^9.701^2^2" +^XPD(9.7,10969,"QUES",1,0)="XPI1" +^XPD(9.7,10969,"QUES",1,1)=0 +^XPD(9.7,10969,"QUES",1,"A")="Want KIDS to INHIBIT LOGONs during the install" +^XPD(9.7,10969,"QUES",1,"B")="NO" +^XPD(9.7,10969,"QUES",2,0)="XPZ1" +^XPD(9.7,10969,"QUES",2,1)=0 +^XPD(9.7,10969,"QUES",2,"A")="Want to DISABLE Scheduled Options, Menu Options, and Protocols" +^XPD(9.7,10969,"QUES",2,"B")="NO" +^XPD(9.7,10969,"QUES","B","XPI1",1)="" +^XPD(9.7,10969,"QUES","B","XPZ1",2)="" +^XPD(9.7,10969,"RTN",0)="^9.704A^1^1" +^XPD(9.7,10969,"RTN",1,0)="PSSCLOZ" +^XPD(9.7,10969,"RTN","B","PSSCLOZ",1)="" ^XPD(9.7,"ASP",1,1,1)="" ^XPD(9.7,"ASP",1,2,2)="" ^XPD(9.7,"ASP",3,1,3)="" @@ -854159,6 +854203,7 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,"ASP",10966,1,10966)="" ^XPD(9.7,"ASP",10967,1,10967)="" ^XPD(9.7,"ASP",10968,1,10968)="" +^XPD(9.7,"ASP",10969,1,10969)="" ^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)="" @@ -861868,6 +861913,7 @@ OSEHRA ZGO Export: INSTALL ^XPD(9.7,"B","PSS*1.0*229",10715)="" ^XPD(9.7,"B","PSS*1.0*23",1926)="" ^XPD(9.7,"B","PSS*1.0*231",10968)="" +^XPD(9.7,"B","PSS*1.0*232",10969)="" ^XPD(9.7,"B","PSS*1.0*24",2027)="" ^XPD(9.7,"B","PSS*1.0*25",2090)="" ^XPD(9.7,"B","PSS*1.0*26",2154)="" diff --git a/Packages/Pharmacy Data Management/Routines/PSSCLOZ.m b/Packages/Pharmacy Data Management/Routines/PSSCLOZ.m index 1d130a1c913..1a1174c212b 100644 --- a/Packages/Pharmacy Data Management/Routines/PSSCLOZ.m +++ b/Packages/Pharmacy Data Management/Routines/PSSCLOZ.m @@ -1,5 +1,5 @@ PSSCLOZ ;BIR/TTH-CLOZAPINE DRUG ENTER/EDIT CLOZAPINE ; 01/25/99 - ;;1.0;PHARMACY DATA MANAGEMENT;**19,90**;9/30/97 + ;;1.0;PHARMACY DATA MANAGEMENT;**19,90,232**;9/30/97;Build 1 ; ;Reference to ^LAB(60 supported by DBIA #10054 ;Reference to ^LAB(61 supported by DBIA #10055 @@ -52,7 +52,7 @@ S DIR("?")="Enter the letter that correspond with the function." D DISPLY2 Q:$D(DIRUT) I Y=0 D END Q:$G(DIRUT) W !! K PSSCLO G CLOZBEG CLOZAD2 K DIC,DD,DO S X=PSSLTN,DA(1)=DISPDRG,DIC="^PSDRUG("_DA(1)_",""CLOZ2""," S DIC(0)="L",DIC("P")="50.02P" - S DIC("DR")="2///"_PSSPTYN_";3///"_PSSTUFF + S DIC("DR")="2////"_PSSPTYN_";3///"_PSSTUFF D FILE^DICN K DD,DO I Y=-1 S (DUOUT,DIRUT)=1 K DIC,DA,X,Y Q D END Q:$G(DIRUT) W !! K PSSCLO G CLOZBEG Q