[med-svn] [vista] 01/02: Merged with upstream Jan 30: 117cc3fca2732f8
Luis Ibanez
luisibanez-guest at moszumanska.debian.org
Thu Jan 30 21:00:15 UTC 2014
This is an automated email from the git hooks/post-receive script.
luisibanez-guest pushed a commit to branch master
in repository vista.
commit ffef35bf1ae2a08d0a8eb0d9ec09e3a5826cc0ce
Author: Luis Ibanez <luis.ibanez at kitware.com>
Date: Thu Jan 30 15:41:04 2014 -0500
Merged with upstream Jan 30: 117cc3fca2732f8
Merged with the upstream changes up to Jan 30th, at the point of
hash: 117cc3fca2732f8
Retained the changes needed to precompile M routines with GTM.
---
CMake/CommonFunctions.cmake | 25 +-
Documentation/AutomatedVistAConfiguration.rst | 2 +-
Documentation/Initialization.rst | 795 +
Documentation/Install/Vagrant.rst | 69 +-
Documentation/README.rst | 7 +-
Packages/.gitattributes | 26 +
.../PRCA_4.5_296/PRCA-4P5_SEQ-260_PAT-296.KIDS | 1390 +
.../PRCA_4.5_296/PRCA-4P5_SEQ-260_PAT-296.TXT | 243 +
.../Patches/OOPS_2.0_25/OOPS-2_SEQ-26_PAT-25.KIDS | 1638 +
.../Patches/OOPS_2.0_25/OOPS-2_SEQ-26_PAT-25.TXT | 176 +
.../Patches/DVBA_2.7_172/.gitignore | 1 +
.../Patches/DVBA_2.7_174/.gitignore | 1 +
.../Patches/DVBA_2.7_175/.gitignore | 1 +
.../Patches/PSB_3.0_54/PSB-3_SEQ-60_PAT-54.KIDS | 1136 +
.../Patches/PSB_3.0_54/PSB-3_SEQ-60_PAT-54.TXT | 235 +
.../Patches/PSB_3.0_59/PSB-3_SEQ-61_PAT-59.TXT | 290 +
.../Patches/PSB_3.0_59/PSB_3_59.KID | 2306 +
.../Patches/ICPT_6.0_65/ICPT-6_SEQ-63_PAT-65.TXT | 94 +
.../Patches/MD_1.0_23/.gitignore | 1 +
.../Patches/MD_1.0_31/.gitignore | 1 +
.../Patches/MD_1.0_33/.gitignore | 1 +
.../Patches/PXRM_2.0_28/.gitignore | 1 +
.../Patches/PXRM_2.0_30/.gitignore | 1 +
.../Patches/ICD_18.0_70/ICD-18_SEQ-63_PAT-70.KIDS | 1500 +
.../Patches/ICD_18.0_70/ICD-18_SEQ-63_PAT-70.TXT | 250 +
.../Patches/ICD_18.0_73/ICD-18_SEQ-62_PAT-73.TXT | 66 +
.../DSS Extracts/Patches/ECX_3.0_136/.gitignore | 1 +
.../Patches/ECX_3.0_144/ECX-3_SEQ-131_PAT-144.KIDS | 27240 ++++++++++
.../Patches/ECX_3.0_144/ECX-3_SEQ-131_PAT-144.TXT | 532 +
Packages/Dietetics/Patches/FH_5.5_26/.gitignore | 1 +
.../Patches/FH_5.5_30/FH-5P5_SEQ-35_PAT-30.KIDS | 530 +
.../Patches/FH_5.5_30/FH-5P5_SEQ-35_PAT-30.TXT | 148 +
Packages/Fee Basis/Patches/FB_3.5_118/.gitignore | 1 +
Packages/Fee Basis/Patches/FB_3.5_120/.gitignore | 1 +
Packages/Fee Basis/Patches/FB_3.5_145/.gitignore | 1 +
Packages/Imaging/Patches/MAG_3.0_118/.gitignore | 1 +
.../Patches/MAG_3.0_133/MAG-3_SEQ-94_PAT-133.TXT | 460 +
.../Imaging/Patches/MAG_3.0_133/MAG3_0P133.KIDs | 3588 ++
.../Patches/MAG_3.0_135/MAG-3_SEQ-95_PAT-135.TXT | 525 +
.../Imaging/Patches/MAG_3.0_135/MAG3_0P135.KIDs | 7010 +++
.../Patches/PSJ_5.0_301/PSJ-5_SEQ-251_PAT-301.KIDS | 594 +
.../Patches/PSJ_5.0_301/PSJ-5_SEQ-251_PAT-301.TXT | 136 +
.../Patches/IB_2.0_432/.gitignore | 1 +
.../Patches/IB_2.0_445/.gitignore | 1 +
.../Patches/IB_2.0_462/.gitignore | 1 +
.../Patches/IB_2.0_468/.gitignore | 1 +
.../Patches/IB_2.0_484/.gitignore | 1 +
.../Patches/IB_2.0_491/.gitignore | 2 +
.../Patches/IB_2.0_508/.gitignore | 1 +
.../Patches/IB_2.0_508/IB-2_SEQ-460_PAT-508.KIDS | 730 +
.../Patches/IB_2.0_508/IB-2_SEQ-460_PAT-508.TXT | 665 +
.../Patches/IB_2.0_508/IBRC1310A.TXT | 1 +
.../Patches/IB_2.0_508/IBRC1310B.TXT | 1 +
.../Patches/IB_2.0_508/IBRC1310C.TXT.sha1 | 1 +
.../Patches/IB_2.0_508/IBRC1310D.TXT | 1 +
.../Patches/IB_2.0_508/IBRC1310E.TXT | 1 +
.../Patches/IB_2.0_508/IBRC1310F.TXT | 1 +
Packages/Lab Service/Patches/LR_5.2_334/.gitignore | 1 +
.../Lexicon Utility/Patches/LEX_2.0_51/.gitignore | 1 +
.../Lexicon Utility/Patches/LEX_2.0_73/.gitignore | 1 +
.../Lexicon Utility/Patches/LEX_2.0_74/.gitignore | 1 +
.../Lexicon Utility/Patches/LEX_2.0_76/.gitignore | 1 +
.../Lexicon Utility/Patches/LEX_2.0_78/.gitignore | 1 +
.../Lexicon Utility/Patches/LEX_2.0_79/.gitignore | 1 +
.../Lexicon Utility/Patches/LEX_2.0_82/.gitignore | 1 +
.../Lexicon Utility/Patches/LEX_2.0_84/.gitignore | 1 +
.../Lexicon Utility/Patches/LEX_2.0_89/.gitignore | 1 +
.../Lexicon Utility/Patches/LEX_2.0_90/.gitignore | 1 +
.../Lexicon Utility/Patches/LEX_2.0_93/.gitignore | 1 +
.../Patches/LEX_2.0_93/LEX-2_SEQ-82_PAT-93.KIDS | 1470 +
.../Patches/LEX_2.0_93/LEX-2_SEQ-82_PAT-93.TXT | 248 +
.../Patches/LEX_2.0_93/LEX_2_93.GBLs.sha1 | 1 +
.../Mental Health/Patches/YS_5.01_103/.gitignore | 1 +
.../Patches/YS_5.01_105/YS-5P01_SEQ-91_PAT-105.TXT | 645 +
.../Mental Health/Patches/YS_5.01_96/.gitignore | 1 +
Packages/MultiBuilds/.gitignore | 9 +
.../Patches/PSN_4.0_268/.gitignore | 1 +
.../Patches/PSN_4.0_271/.gitignore | 1 +
.../Patches/PSN_4.0_272/.gitignore | 1 +
.../Patches/PSN_4.0_274/.gitignore | 1 +
.../Patches/PSN_4.0_277/.gitignore | 1 +
.../Patches/PSN_4.0_278/.gitignore | 1 +
.../Patches/PSN_4.0_280/.gitignore | 1 +
.../Patches/PSN_4.0_283/.gitignore | 1 +
.../Patches/PSN_4.0_286/.gitignore | 1 +
.../Patches/PSN_4.0_287/.gitignore | 1 +
.../Patches/PSN_4.0_289/.gitignore | 1 +
.../Patches/PSN_4.0_292/.gitignore | 1 +
.../Patches/PSN_4.0_293/.gitignore | 1 +
.../Patches/PSN_4.0_300/.gitignore | 1 +
.../Patches/PSN_4.0_303/.gitignore | 1 +
.../Patches/PSN_4.0_306/.gitignore | 1 +
.../Patches/PSN_4.0_312/.gitignore | 1 +
.../Patches/PSN_4.0_339/.gitignore | 1 +
.../Patches/PSN_4.0_344/.gitignore | 1 +
.../Patches/PSN_4.0_347/.gitignore | 1 +
.../Patches/PSN_4.0_350/.gitignore | 1 +
.../Patches/PSN_4.0_353/.gitignore | 1 +
.../Patches/PSN_4.0_356/.gitignore | 1 +
.../Patches/PSN_4.0_359/.gitignore | 1 +
.../Patches/PSN_4.0_362/.gitignore | 1 +
.../Patches/PSN_4.0_370/.gitignore | 1 +
.../Patches/PSN_4.0_373/.gitignore | 1 +
.../Patches/PSN_4.0_375/NDF4P375.KIDs | 356 +
.../Patches/PSN_4.0_375/PSN-4_SEQ-361_PAT-375.TXT | 139 +
.../Patches/PSN_4.0_376/NDF4P376.KID | 52450 +++++++++++++++++++
.../Patches/PSN_4.0_376/PSN-4_SEQ-362_PAT-376.TXT | 139 +
.../Patches/PSN_4.0_377/NDF4P377.KIDs | 284 +
.../Patches/PSN_4.0_377/PSN-4_SEQ-363_PAT-377.TXT | 128 +
.../Patches/PSN_4.0_378/NDF4P378.KIDs | 356 +
.../Patches/PSN_4.0_378/PSN-4_SEQ-364_PAT-378.TXT | 138 +
.../Patches/PSN_4.0_379/.gitignore | 1 +
.../Patches/PSN_4.0_379/NDF4P379.KID.json | 14 +
.../Patches/PSN_4.0_379/NDF4P379.KID.sha1 | 1 +
.../Patches/PSN_4.0_379/PSN-4_SEQ-365_PAT-379.TXT | 139 +
.../Patches/PSN_4.0_380/NDF4P380.KIDs | 284 +
.../Patches/PSN_4.0_380/PSN-4_SEQ-366_PAT-380.TXT | 128 +
.../Patches/OHRS_1.4_10/OHRS-1P4_SEQ-10_PAT-10.TXT | 133 +
Packages/Oncology/Patches/ONC_2.11_53/.gitignore | 1 +
.../Patches/OR_3.0_380/OR-3_SEQ-324_PAT-380.KIDS | 540 +
.../Patches/OR_3.0_380/OR-3_SEQ-324_PAT-380.TXT | 243 +
.../Patches/PRS_4.0_137/PRS-4_SEQ-127_PAT-137.KIDS | 1014 +
.../Patches/PRS_4.0_137/PRS-4_SEQ-127_PAT-137.TXT | 160 +
.../Patches/XWB_1.1_50/XWB-1P1_SEQ-47_PAT-50.TXT | 516 +
Packages/RPC Broker/Testing/MUnit/.gitignore | 1 +
.../Patches/RA_5.0_110/RA-5_SEQ-104_PAT-110.KIDS | 532 +
.../Patches/RA_5.0_110/RA-5_SEQ-104_PAT-110.TXT | 119 +
.../Patches/DG_5.3_847/DG-5P3_SEQ-769_PAT-847.KIDS | 522 +
.../Patches/DG_5.3_847/DG-5P3_SEQ-769_PAT-847.TXT | 256 +
.../Registration/Testing/RAS/REGMain01_suite.py | 4 +-
.../Patches/SD_5.3_592/SD-5P3_SEQ-500_PAT-592.KIDS | 584 +
.../Patches/SD_5.3_592/SD-5P3_SEQ-500_PAT-592.TXT | 193 +
Packages/Scheduling/Testing/RAS/SCMain01_suite.py | 2 +-
.../Listing_of_Released_VistA_Patches_2013.csv | 63 +-
Packages/VA FileMan/Testing/.gitattributes | 1 +
.../Patches/VBEC_1.0_63/VBEC-1_SEQ-62_PAT-63.TXT | 266 +
.../Patches/VBEC_1.0_64/VBEC-1_SEQ-63_PAT-64.TXT | 207 +
.../Patches/VPR_1.0_2/VPR-1_SEQ-2_PAT-2.KIDS | 10556 ++++
.../Patches/VPR_1.0_2/VPR-1_SEQ-2_PAT-2.TXT | 266 +
.../Patches/WEBV_1.0_29/WEBV-1_SEQ-24_PAT-29.TXT | 176 +
Python/Pexpect/.gitattributes | 1 +
Python/vista/OSEHRAHelper.py | 8 -
Python/vista/OSEHRASetup.py | 1180 +
Python/vista/ParseCSVforPackagePrefixes.py | 33 +
Scripts/.gitattributes | 2 +
Scripts/GitSetup/.gitattributes | 9 +
Scripts/GitSetup/LICENSE | 202 +
Scripts/GitSetup/NOTICE | 5 +
Scripts/GitSetup/README | 80 +
Scripts/GitSetup/SetupGitAliases.sh | 22 +
Scripts/GitSetup/config | 7 +
Scripts/GitSetup/config.sample | 22 +
Scripts/GitSetup/git-gerrit-push | 73 +
Scripts/GitSetup/setup-gerrit | 147 +
Scripts/GitSetup/setup-hooks | 63 +
Scripts/GitSetup/setup-ssh | 111 +
Scripts/GitSetup/setup-stage | 82 +
Scripts/GitSetup/setup-user | 39 +
Scripts/GitSetup/tips | 55 +
Scripts/Install/.gitattributes | 3 +
Scripts/Install/.gitignore | 6 +
Scripts/Install/GTM/createVistaInstance.sh | 12 +
Scripts/IntersysCacheUtils.py | 72 +-
Scripts/KIDSAssociatedFilesMapping.py | 2 +
Scripts/PackRO.py | 1 +
Scripts/Testing/PyUnit/.gitignore | 1 +
Scripts/Testing/PyUnit/Packages/.gitattributes | 4 +
Scripts/Testing/PyUnit/TestVistATestClient.py | 44 +
Scripts/VistATestClient.py | 77 +-
Testing/CMakeLists.txt | 37 +-
Testing/Functional/CMakeLists.txt | 11 +-
Testing/OTJ/OTJTestDriver.cmake.in | 14 +-
Testing/OTJ/VA FileMan 22.2/.gitignore | 1 +
Testing/Python/MenuTraversalSmokeTest.py.in | 5 +
Testing/Python/MenuTraversalTest.py.in | 5 +
Testing/Setup/ImportRG.cmake.in | 2 +-
Testing/Setup/PostImportSetupScript.py.in | 1073 +-
Testing/UnitTest.cmake.in | 15 +-
Testing/UserTest/CMakeLists.txt | 28 +
Testing/VerifyFields.py.in | 111 +
Testing/XINDEXScript.cmake.in | 2 +-
Utilities/Dox/Web/footer.html | 2 +-
182 files changed, 128340 insertions(+), 1089 deletions(-)
diff --git a/CMake/CommonFunctions.cmake b/CMake/CommonFunctions.cmake
index ada71c7..5e0c72e 100644
--- a/CMake/CommonFunctions.cmake
+++ b/CMake/CommonFunctions.cmake
@@ -114,4 +114,27 @@ function(FindPackages SOURCE_DIR)
endforeach()
set(PACKAGES ${packages_tmp} PARENT_SCOPE)
-endfunction()
\ No newline at end of file
+endfunction()
+
+function(SetVendorArgsConfig VendorArg VendorName Namespace Instance UserName Password)
+ set(vendor_args "")
+ if(VendorName STREQUAL "Cache")
+ list(APPEND vendor_args -S 1 -CN ${Namespace} -CI ${Instance})
+ string(STRIP "${UserName}" cacheusr)
+ string(LENGTH "${cacheusr}" userLen)
+ if(userLen)
+ list(APPEND vendor_args -CU "${UserName}" -CP "${Password}")
+ endif()
+ elseif(VendorName STREQUAL "GTM")
+ list(APPEND vendor_args -S 2)
+ endif()
+ set(${VendorArg} "${vendor_args}" PARENT_SCOPE)
+endfunction()
+
+function(SetVendorArgs VendorArg)
+ set(vendor_args "")
+ SetVendorArgsConfig(vendor_args "${VENDOR_NAME}" "${VISTA_CACHE_NAMESPACE}"
+ "${VISTA_CACHE_INSTANCE}" "${VISTA_CACHE_USERNAME}"
+ "${VISTA_CACHE_PASSWORD}")
+ set(${VendorArg} "${vendor_args}" PARENT_SCOPE)
+endfunction()
diff --git a/Documentation/AutomatedVistAConfiguration.rst b/Documentation/AutomatedVistAConfiguration.rst
index 527ec9b..b231faa 100644
--- a/Documentation/AutomatedVistAConfiguration.rst
+++ b/Documentation/AutomatedVistAConfiguration.rst
@@ -12,7 +12,7 @@ step of a CTest dashboard submission. To execute the automated import and config
$ cd VistA/bin
- $ cmake -P ImportRG.cmake
+ $ cmake -P Testing/Setup/ImportRG.cmake
Note that during the execution of the ImportRG script, in addition to the Routine and Global imports, three additional setup scripts are executed automatically:
diff --git a/Documentation/Initialization.rst b/Documentation/Initialization.rst
new file mode 100644
index 0000000..568e1e1
--- /dev/null
+++ b/Documentation/Initialization.rst
@@ -0,0 +1,795 @@
+VistA Initialization
+====================
+.. role:: usertype
+ :class: usertype
+
+The OSEHRA testing harness has a Python file that will perform a large
+amount of VistA work to initalize the instance as a hospital. It
+starts Taskman, the RPC Listener, and adds doctors, nurses and a patient.
+
+The file is called ``PostImportSetupScript.py.in`` and can be found in the
+``Testing/Setup`` directory of the VistA source tree.
+
+The file is created when running a ``Configure`` step via CMake in an OSEHRA
+testing harness setup that has the TEST_VISTA_FRESH_ option selected. The file
+can be executed with the following command from the VistA Binary directory:
+
+.. parsed-literal::
+
+ user\@machine VistA-build/$ :usertype:`python Testing/Setup/PostImportSetupScript.py`
+
+It is highly recommended that you use this script to set up a test instance.
+In the event that it cannot be run, this page will go over the setup steps
+which will allow you to connect CPRS to the VistA instance and start the Task
+Manager.
+
+
+Edit NULL Device
+----------------
+
+CPRS is one of many users of the VistA NULL device, but the ``$I`` value, which
+contains the name or path to the device, is correct only for a VMS platform.
+It is necessary to change it to match the local platform before it is able
+to be accessed correctly. The Sign-On capability also needs to be removed from
+the device.
+
+.. parsed-literal::
+
+ VISTA> :usertype:`S DUZ=1 D Q^DI`
+
+
+ VA FileMan 22.0
+
+
+ Select OPTION: :usertype:`1` ENTER OR EDIT FILE ENTRIES
+
+
+
+ INPUT TO WHAT FILE: DEVICE// :usertype:`DEVICE` (52 entries)
+ EDIT WHICH FIELD: ALL// :usertype:`$I`
+ THEN EDIT FIELD: :usertype:`SIGN-ON/SYSTEM DEVICE`
+ THEN EDIT FIELD:
+
+
+ Select DEVICE NAME: :usertype:`NULL`
+ 1 NULL NT SYSTEM NLA0:
+ 2 NULL GTM-UNIX-NULL Bit Bucket (GT.M-Unix) /dev/null
+ 3 NULL-DSM Bit Bucket _NLA0:
+ CHOOSE 1-3: :usertype:`1` NULL NT SYSTEM NLA0:
+
+On Windows
+**********
+
+On Windows machines, the ``$I`` value should be set to ``//./nul``
+
+.. parsed-literal::
+
+ $I: NLA0:// :usertype:`//./nul`
+ SIGN-ON/SYSTEM DEVICE: YES// :usertype:`NO` NO
+
+
+ Select DEVICE NAME: :usertype:`<enter>`
+
+ Select OPTION: :usertype:`<enter>`
+
+ VISTA>
+
+
+On Linux
+********
+
+On Linux machines, the ``$I`` value should be set to ``/dev/null``
+
+.. parsed-literal::
+
+ $I: NLA0:// :usertype:`/dev/null` This $I in use by other Devices.
+ SIGN-ON/SYSTEM DEVICE: NO// :usertype:`N` NO
+
+
+ Select DEVICE NAME: :usertype:`<enter>`
+
+ Select OPTION: :usertype:`<enter>`
+
+ VISTA>
+
+
+Set up a Domain
+---------------
+
+Next, a domain should be set up for the VistA instance. A domain name is
+typically used to uniquely identify an instance on a network. While this
+is not necessary to do for test instances, it is recommended that a new domain
+be added. The OSEHRA script adds a domain called ``DEMO.OSEHRA.ORG``, and this
+example will do the same.
+
+First we add the entry to the ``DOMAIN`` file through FileMan
+
+.. parsed-literal::
+
+ VISTA> :usertype:`S DUZ=1 D Q^DI`
+
+
+ VA FileMan 22.0
+
+
+ Select OPTION: :usertype:`1` ENTER OR EDIT FILE ENTRIES
+
+
+
+ INPUT TO WHAT FILE: // :usertype:`DOMAIN`
+ (70 entries)
+ EDIT WHICH FIELD: ALL// :usertype:`ALL`
+
+
+ Select DOMAIN NAME: :usertype:`DEMO.OSEHRA.ORG`
+ Are you adding 'DEMO.OSEHRA.ORG' as a new DOMAIN (the 71ST)? No// :usertype:`Y` (Yes)
+ FLAGS: :usertype:`^`
+
+ Select DOMAIN NAME: :usertype:`<enter>`
+
+ Select OPTION: :usertype:`<enter>`
+ VISTA>
+
+The next step is to find the IEN of the newly created domain. This can be done
+by inquiring about the entry using FileMan and printing the Record Number:
+
+.. parsed-literal::
+
+ VISTA> :usertype:`S DUZ=1 D Q^DI`
+
+
+ VA FileMan 22.0
+
+
+ Select OPTION: :usertype:`5` INQUIRE TO FILE ENTRIES
+
+
+
+ OUTPUT FROM WHAT FILE: DOMAIN// :usertype:`DOMAIN` (71 entries)
+ Select DOMAIN NAME: :usertype:`DEMO.OSEHRA.ORG`
+ ANOTHER ONE:
+ STANDARD CAPTIONED OUTPUT? Yes// :usertype:`Y` (Yes)
+ Include COMPUTED fields: (N/Y/R/B): NO// :usertype:`Record Number (IEN)`
+
+ NUMBER: 76 NAME: DEMO.OSEHRA.ORG
+
+ Select DOMAIN NAME: :usertype:`^`
+
+
+
+
+ Select OPTION: :usertype:`^`
+ VISTA>
+
+
+Then we propogate that entry to the ``Kernel System Parameters`` and
+``RPC Broker Site Parameters`` files. The value that is being set should
+be the same as the ``NUMBER`` value from the above result.
+
+.. parsed-literal::
+
+ VISTA> :usertype:`S $P(^XWB(8994.1,1,0),"^")=76`
+ VISTA> :usertype:`S $P(^XTV(8989.3,1,0),"^")=76`
+
+Once that is done, those two files need to be re-indexed through FileMan.
+
+.. parsed-literal::
+
+ VISTA> :usertype:`D Q^DI`
+
+
+ VA FileMan 22.0
+
+
+ Select OPTION: :usertype:`UTILITY FUNCTIONS`
+ Select UTILITY OPTION: :usertype:`RE-INDEX FILE`
+
+ MODIFY WHAT FILE: RPC BROKER SITE PARAMETERS// :usertype:`8994.1` RPC BROKER SITE PARAMETERS
+ (1 entry)
+
+ THERE ARE 5 INDICES WITHIN THIS FILE
+ DO YOU WISH TO RE-CROSS-REFERENCE ONE PARTICULAR INDEX? No// :usertype:`No` (No)
+ OK, ARE YOU SURE YOU WANT TO KILL OFF THE EXISTING 5 INDICES? No// :usertype:`Y` (Yes)
+ DO YOU THEN WANT TO 'RE-CROSS-REFERENCE'? Yes// :usertype:`Y` (Yes)
+ ...SORRY, LET ME THINK ABOUT THAT A MOMENT...
+ FILE WILL NOW BE 'RE-CROSS-REFERENCED'......
+
+
+ Select UTILITY OPTION: :usertype:`RE-INDEX FILE`
+
+ MODIFY WHAT FILE: RPC BROKER SITE PARAMETERS// :usertype:`8989.3` KERNEL SYSTEM PARAMETERS
+ (1 entry)
+ THERE ARE 14 INDICES WITHIN THIS FILE
+ DO YOU WISH TO RE-CROSS-REFERENCE ONE PARTICULAR INDEX? No// :usertype:`N` (No)
+ OK, ARE YOU SURE YOU WANT TO KILL OFF THE EXISTING 14 INDICES? No// :usertype:`Y` (Yes)
+ DO YOU THEN WANT TO 'RE-CROSS-REFERENCE'? Yes// :usertype:`Y` (Yes)
+ ...HMMM, THIS MAY TAKE A FEW MOMENTS...
+ FILE WILL NOW BE 'RE-CROSS-REFERENCED'.................
+
+
+ Select UTILITY OPTION: :usertype:`<enter>`
+
+ Select OPTION: :usertype:`<enter>`
+
+ VISTA>
+
+Set Box-Volume pair
+-------------------
+
+The first step is to find the box volume pair for the local machine.
+
+.. parsed-literal::
+
+ VISTA> :usertype:`D GETENV^%ZOSV W Y`
+
+which will print out a message with four parts separated by ``^`` that could
+look something like:
+
+.. parsed-literal::
+
+ VISTA^VISTA^palaven^VISTA:CACHE
+
+The Box-Volume pair is the final piece of that string and contains two bits of
+information. The first piece is the Volume Set, which is used to determine
+where the VistA system will be able to find the routines.
+
+The second bit of info is the BOX, which references the system that the
+instance is on. In a Cach� system, it would be the name of the Cach�
+instance while on GT.M, it should reference the hostname of the machine.
+
+The Volume Set result needs to be altered in the ``VOLUME SET`` file,
+and we will reuse some setup by writing over the name of the first entry that
+is already in the VistA system. The first entry, the entry with an IEN of 1,
+can be selected by entering ```1``.
+
+Then we rename the first Box-Volume pair in the ``TaskMan Site Parameters``
+file to match what was found above.
+
+For this demonstration instance, the Volume Set will be ``VISTA`` which is the
+Cach� namespace that holds the files. On GT.M instances, the default value of
+``PLA`` can be maintained.
+
+.. parsed-literal::
+
+ VISTA> :usertype:`S DUZ=1 D Q^DI`
+
+
+ VA FileMan 22.0
+
+ Select OPTION: :usertype:`1` ENTER OR EDIT FILE ENTRIES
+
+ INPUT TO WHAT FILE: DEVICE// :usertype:`14.5` VOLUME SET (1 entry)
+ EDIT WHICH FIELD: ALL// :usertype:`VOLUME SET`
+ THEN EDIT FIELD: :usertype:`TASKMAN FILES UCI`
+ THEN EDIT FIELD: :usertype:`<enter>`
+
+
+ Select VOLUME SET: :usertype:`\`1` PLA
+ VOLUME SET: PLA// :usertype:`VISTA`
+ TASKMAN FILES UCI: PLA// :usertype:`VISTA`
+
+
+ Select VOLUME SET: :usertype:`<enter>`
+
+
+ INPUT TO WHAT FILE: TASKMAN SITE PARAMETERS// :usertype:`14.7` TASKMAN SITE PARAMETERS
+ (1 entry)
+ EDIT WHICH FIELD: ALL// :usertype:`<enter>`
+
+
+ Select TASKMAN SITE PARAMETERS BOX-VOLUME PAIR: :usertype:`\`1` PLA:PLAISCSVR
+ BOX-VOLUME PAIR: PLA:PLAISCSVR// :usertype:`VISTA:CACHE`
+ RESERVED: :usertype:`^`
+
+
+ Select TASKMAN SITE PARAMETERS BOX-VOLUME PAIR: :usertype:`<enter>`
+ Select OPTION: :usertype:`<enter>`
+
+
+Next, Edit the ``Kernel System Parameters`` file to add the new Volume Set to
+the ``DEMO.OSEHRA.ORG`` domain and set some constraints about signing on.
+
+.. parsed-literal::
+
+ Select OPTION: :usertype:`1` ENTER OR EDIT FILE ENTRIES
+
+
+
+ INPUT TO WHAT FILE: RPC BROKER SITE PARAMETERS// :usertype:`KERNEL SYSTEM PARAMETERS`
+ (1 entry)
+ EDIT WHICH FIELD: ALL// :usertype:`VOLUME SET` (multiple)
+ EDIT WHICH VOLUME SET SUB-FIELD: ALL// :usertype:`<enter>`
+ THEN EDIT FIELD: :usertype:`<enter>`
+
+
+ Select KERNEL SYSTEM PARAMETERS DOMAIN NAME: :usertype:`DEMO.OSEHRA.ORG`
+ ...OK? Yes// :usertype:`Y` (Yes)
+
+ Select VOLUME SET: PLA// :usertype:`VISTA`
+ Are you adding 'VISTA' as a new VOLUME SET (the 2ND for this KERNEL SYSTEM PARAMETERS)? No// :usertype:`Y`
+ (Yes)
+ MAX SIGNON ALLOWED: :usertype:`500`
+ LOG SYSTEM RT?: :usertype:`N` NO
+ Select VOLUME SET: :usertype:`<enter>`
+
+
+ Select KERNEL SYSTEM PARAMETERS DOMAIN NAME: :usertype:`<enter>`
+
+ Select OPTION: :usertype:`<enter>`
+
+Setup RPC Broker
+----------------
+
+The next step is to edit entries in the ``RPC Broker Site Parameters`` file
+and the ``Kernel System Parameters`` file. The RPC Broker steps will set up
+information that references both the the Port that the listener will listen
+on and the Box Volume pair of the instance.
+
+.. parsed-literal::
+
+ VISTA> :usertype:`S DUZ=1 D Q^DI`
+
+
+ VA FileMan 22.0
+
+
+ Select OPTION: :usertype:`1` ENTER OR EDIT FILE ENTRIES
+
+ INPUT TO WHAT FILE: VOLUME SET// :usertype:`8994.1` RPC BROKER SITE PARAMETERS
+ (1 entry)
+ EDIT WHICH FIELD: ALL// :usertype:`LISTENER` (multiple)
+ EDIT WHICH LISTENER SUB-FIELD: ALL// :usertype:`<enter>`
+ THEN EDIT FIELD: :usertype:`<enter>`
+
+
+ Select RPC BROKER SITE PARAMETERS DOMAIN NAME: :usertype:`DEMO.OSEHRA.ORG`
+ ...OK? Yes// :usertype:`Y` (Yes)
+
+ Select BOX-VOLUME PAIR: // :usertype:`VISTA:CACHE`
+ BOX-VOLUME PAIR: VISTA:CACHE//
+ Select PORT: :usertype:`9210`
+ Are you adding '9210' as a new PORT (the 1ST for this LISTENER)? No// :usertype:`Y` (Yes)
+ TYPE OF LISTENER: :usertype:`1` New Style
+
+The final questions of this section asks if the listener should be started
+and then if it should be controlled by the Listener starter.
+
+The answer to these questions is dependent on the MUMPS platform that is in
+use:
+
+
+
+On Cach�
+********
+
+Cach� systems can use the Listener Starter to control the RPC Broker Listener.
+
+.. parsed-literal::
+
+ STATUS: STOPPED// :usertype:`1` START
+ Task: RPC Broker Listener START on VISTA-VISTA:CACHE, port 9210
+ has been queued as task 1023
+ CONTROLLED BY LISTENER STARTER: :usertype:`1` YES
+
+ Select RPC BROKER SITE PARAMETERS DOMAIN NAME: :usertype:`<enter>`
+
+On GT.M
+*******
+
+Since GT.M systems do not use the Listener as Cach� systems, we will answer
+"No" or "0" to both of those questions. More information on setting up the
+listener for GT.M will follow.
+
+.. parsed-literal::
+
+ STATUS: STOPPED// :usertype:`<enter>`
+ CONTROLLED BY LISTENER STARTER: :usertype:`0` No
+
+ Select RPC BROKER SITE PARAMETERS DOMAIN NAME: :usertype:`<enter>`
+
+
+Start RPC Broker
+----------------
+
+On Cach�
+********
+
+The OSEHRA setup scrpt will also start the RPC Broker Listener which
+CPRS uses to communicate with the VistA instance. These steps only happen on
+platforms with a Cach� instance. They create a task for the
+XWB Listener Starter that will be run when the Task Manager is started.
+
+.. parsed-literal::
+
+ VISTA> :usertype:`S DUZ=1 D ^XUP`
+
+ Setting up programmer environment
+ This is a TEST account.
+
+ Terminal Type set to: C-VT220
+
+ Select OPTION NAME: :usertype:`Systems Manager Menu` EVE Systems Manager Menu
+
+
+ Core Applications ...
+ Device Management ...
+ Menu Management ...
+ Programmer Options ...
+ Operations Management ...
+ Spool Management ...
+ Information Security Officer Menu ...
+ Taskman Management ...
+ User Management ...
+ Application Utilities ...
+ Capacity Planning ...
+ HL7 Main Menu ...
+
+
+ You have PENDING ALERTS
+ Enter "VA to jump to VIEW ALERTS option
+
+ Select Systems Manager Menu <TEST ACCOUNT> Option: :usertype:`Taskman Management`
+
+
+ Schedule/Unschedule Options
+ One-time Option Queue
+ Taskman Management Utilities ...
+ List Tasks
+ Dequeue Tasks
+ Requeue Tasks
+ Delete Tasks
+ Print Options that are Scheduled to run
+ Cleanup Task List
+ Print Options Recommended for Queueing
+
+
+ You have PENDING ALERTS
+ Enter "VA to jump to VIEW ALERTS option
+
+ Select Taskman Management <TEST ACCOUNT> Option: :usertype:`Schedule/Unschedule Options`
+
+ Select OPTION to schedule or reschedule: :usertype:`XWB LISTENER STARTER` Start All RP
+ C Broker Listeners
+ ...OK? Yes// :usertype:`Y` (Yes)
+ (R)
+
+After answering that question another ScreenMan form will open with six
+options. To have the XWB Listener Starter be run on the start up of Taskman,
+enter ``STARTUP`` as the value for ``SPECIAL QEUEING``:
+
+.. parsed-literal::
+ Edit Option Schedule
+ Option Name: XWB LISTENER STARTER
+ Menu Text: Start All RPC Broker Listeners TASK ID:
+ __________________________________________________________________________
+
+ QUEUED TO RUN AT WHAT TIME:
+
+ DEVICE FOR QUEUED JOB OUTPUT:
+
+ QUEUED TO RUN ON VOLUME SET:
+
+ RESCHEDULING FREQUENCY:
+
+ TASK PARAMETERS:
+
+ ----> SPECIAL QUEUEING:
+
+ _______________________________________________________________________________
+ Exit Save Next Page Refresh
+
+ Enter a command or '^' followed by a caption to jump to a specific field.
+
+The final result should look like this:
+
+.. parsed-literal::
+
+ Edit Option Schedule
+ Option Name: XWB LISTENER STARTER
+ Menu Text: Start All RPC Broker Listeners TASK ID:
+ __________________________________________________________________________
+
+ QUEUED TO RUN AT WHAT TIME:
+
+ DEVICE FOR QUEUED JOB OUTPUT:
+
+ QUEUED TO RUN ON VOLUME SET:
+
+ RESCHEDULING FREQUENCY:
+
+ TASK PARAMETERS:
+
+ SPECIAL QUEUEING: STARTUP
+
+ _______________________________________________________________________________
+ Exit Save Next Page Refresh
+
+ Enter a command or '^' followed by a caption to jump to a specific field.
+
+
+ COMMAND: Press <PF1>H for help Insert
+
+To save the information put the ScreenMan form, navigate to the ``COMMAND`` entry
+point and enter ``S`` or ``Save``. The same input location is used to exit, with
+an ``E`` or ``Exit`` to leave the form.
+
+.. parsed-literal::
+ Select OPTION to schedule or reschedule: :usertype:`<enter>`
+
+
+ Schedule/Unschedule Options
+ One-time Option Queue
+ Taskman Management Utilities ...
+ List Tasks
+ Dequeue Tasks
+ Requeue Tasks
+ Delete Tasks
+ Print Options that are Scheduled to run
+ Cleanup Task List
+ Print Options Recommended for Queueing
+
+
+ You have PENDING ALERTS
+ Enter "VA to jump to VIEW ALERTS option
+
+ Select Taskman Management <TEST ACCOUNT> Option: :usertype:`<enter>`
+
+ Select Systems Manager Menu <TEST ACCOUNT> Option: :usertype:`<enter>`
+
+
+On GT.M
+*******
+
+The process is a bit more complicated, but OSEHRA has a
+`wiki page`_ which describes the process of the set up.
+
+
+Start TaskMan
+------------------------
+
+The Task Manager is an integral part of a running VistA instance. It lets
+actions and users schedule tasks to be performed at certain times or after
+certain trigger events. The XWB Listener Starter example is one example
+of scheduling a task.
+
+The OSEHRA script uses the ``TaskMan Management Utilities`` menu to control
+TaskMan:
+
+.. parsed-literal::
+
+ VISTA> :usertype:`S DUZ=1 D ^XUP`
+
+ Setting up programmer environment
+ This is a TEST account.
+
+ Terminal Type set to: C-VT220
+
+ Select OPTION NAME: :usertype:`TASKMAN MANAGEMENT UTILITIES` XUTM UTIL Taskman Manageme
+ nt Utilities
+
+
+ MTM Monitor Taskman
+ Check Taskman's Environment
+ Edit Taskman Parameters ...
+ Restart Task Manager
+ Place Taskman in a WAIT State
+ Remove Taskman from WAIT State
+ Stop Task Manager
+ Taskman Error Log ...
+ Clean Task File
+ Problem Device Clear
+ Problem Device report.
+ SYNC flag file control
+
+
+ You've got PRIORITY mail!
+
+
+ Select Taskman Management Utilities <TEST ACCOUNT> Option: :usertype:`Restart Task Manager`
+ ARE YOU SURE YOU WANT TO RESTART TASKMAN? NO// :usertype:`Y` (YES)
+ Restarting...TaskMan restarted!
+
+
+ MTM Monitor Taskman
+ Check Taskman's Environment
+ Edit Taskman Parameters ...
+ Restart Task Manager
+ Place Taskman in a WAIT State
+ Remove Taskman from WAIT State
+ Stop Task Manager
+ Taskman Error Log ...
+ Clean Task File<F5>
+ Problem Device Clear
+ Problem Device report.
+ SYNC flag file control
+
+
+ You've got PRIORITY mail!
+
+ Select Taskman Management Utilities <TEST ACCOUNT> Option: :usertype:`^`
+
+
+Add User
+--------
+
+The next step is to create a user that can sign on to the CPRS GUI.
+The things to make sure that this new user has are
+
+ * A Secondary menu option of "OR CPRS GUI CHART"
+ * CPRS Tab Access
+ * An ACCESS CODE
+ * A VERIFY CODE
+ * Service/Section (required for any user)
+
+The menu option ensures that the user has the proper permissions to access
+CPRS after signing in with their ACCESS and VERIFY codes. The Tab access
+can limit the amount of things a user can access once they have signed in.
+
+The adding of the user is done through the User Management menu in the
+menu system, which will ask for information in a series of prompts then will
+open a Screenman form to complete the task.
+
+The following steps will add a generic ``CPRS,USER`` person who will be able to
+sign into CPRS.
+
+.. parsed-literal::
+ VISTA> :usertype:`S DUZ=1 D ^XUP`
+
+ Setting up programmer environment
+ This is a TEST account.
+
+ Terminal Type set to: C-VT220
+
+ Select OPTION NAME: :usertype:`Systems Manager Menu`
+
+
+ Core Applications ...
+ Device Management ...
+ Menu Management ...
+ Programmer Options ...
+ Operations Management ...
+ Spool Management ...
+ Information Security Officer Menu ...
+ Taskman Management ...
+ User Management ...
+ Application Utilities ...
+ Capacity Planning ...
+ HL7 Main Menu ...
+
+
+ You have PENDING ALERTS
+ Enter "VA to jump to VIEW ALERTS option
+
+ Select Systems Manager Menu <TEST ACCOUNT> Option: :usertype:`User Management`
+
+
+ Add a New User to the System
+ Grant Access by Profile
+ Edit an Existing User
+ Deactivate a User
+ Reactivate a User
+ List users
+ User Inquiry
+ Switch Identities
+ File Access Security ...
+ \**> Out of order: ACCESS DISABLED
+ Clear Electronic signature code
+ Electronic Signature Block Edit
+ List Inactive Person Class Users
+ Manage User File ...
+ OAA Trainee Registration Menu ...
+ Person Class Edit
+ Reprint Access agreement letter
+
+
+ You have PENDING ALERTS
+ Enter "VA to jump to VIEW ALERTS option
+
+ Select User Management <TEST ACCOUNT> Option: :usertype:`Add a New User to the System`
+ Enter NEW PERSON's name (Family,Given Middle Suffix): :usertype:`CPRS,USER`
+ Are you adding 'CPRS,USER' as a new NEW PERSON (the 56TH)? No// :usertype:`Y` (Yes)
+ Checking SOUNDEX for matches.
+ No matches found.
+ Now for the Identifiers.
+ INITIAL: :usertype:`UC`
+ SSN: :usertype:`000000002`
+ SEX: :usertype:`M` MALE
+ NPI:
+
+Once in the ScreenMan form, you will need to set the necessary
+information mentioned above. Four pieces of information are able to be set
+on the first page of the ScreenMan form. The arrows are for emphasis to
+highlight where information needs to be entered and will not show up in the
+terminal window.
+
+To add an access or verify codes, you need to first answer ``Y`` to the
+``Want to edit ...`` questions, it will then prompt you to change the codes.
+
+.. parsed-literal::
+ Edit an Existing User
+ NAME: CPRS,USER Page 1 of 5
+ _______________________________________________________________________________
+ NAME... CPRS,USER INITIAL: UC
+ TITLE: NICK NAME:
+ SSN: 000000002 DOB:
+ DEGREE: MAIL CODE:
+ DISUSER: TERMINATION DATE:
+ Termination Reason:
+
+ PRIMARY MENU OPTION:
+ Select SECONDARY MENU OPTIONS: <---
+ Want to edit ACCESS CODE (Y/N): <--- FILE MANAGER ACCESS CODE:
+ Want to edit VERIFY CODE (Y/N): <---
+
+ Select DIVISION:
+ ---> SERVICE/SECTION:
+ _______________________________________________________________________________
+ Exit Save Next Page Refresh
+
+ Enter a command or '^' followed by a caption to jump to a specific field.
+
+
+ COMMAND: Press <PF1>H for help Insert
+
+To change to other pages, press the down arrow key or <TAB> until the cursor
+reaches the COMMAND box. Then type ``N`` or ``Next Page`` and press <ENTER> to
+display the next page.
+
+There is nothing that needs to be set on the second or third pages, but the
+CPRS Tab Access is set on the fourth page. Navigate the cursor to the location
+under the ``Name`` header and enter ``COR``, which stands ``for Core Tab Access``,
+and enter an effective date of yesterday, ``T-1`` is the notation to use.
+
+.. parsed-literal::
+ Edit an Existing User
+ NAME: CPRS,USER Page 4 of 5
+ _______________________________________________________________________________
+ RESTRICT PATIENT SELECTION: OE/RR LIST:
+
+ CPRS TAB ACCESS:
+ Name Description Effective Date Expiration Date
+ ->
+
+
+
+
+
+
+
+
+ _______________________________________________________________________________
+
+
+
+
+
+ COMMAND: Press <PF1>H for help
+
+Once that is done, save and exit the ScreenMan form via the COMMAND box and
+then answer the final questions regarding access letters, security keys
+and mail groups:
+
+.. parsed-literal::
+ Exit Save Next Page Refresh
+
+ Enter a command or '^' followed by a caption to jump to a specific field.
+
+
+ COMMAND: :usertype:`E` Press <PF1>H for help Insert
+
+ Print User Account Access Letter? :usertype:`NO`
+ Do you wish to allocate security keys? NO// :usertype:`NO`
+ Do you wish to add this user to mail groups? NO// :usertype:`NO`
+
+ *<snip>*
+ Select User Management <TEST ACCOUNT> Option: :usertype:`^<enter>`
+ VISTA>
+
+At this point, CPRS can successfully connect to the local VistA instance and
+the ``CPRS,USER`` will be able to sign on and interact with the GUI. For
+instructions on how to set up the CPRS connection command or to download
+the executable, see `GUI page`_.
+
+.. _TEST_VISTA_FRESH: SetupTestingEnvironment.rst
+.. _`wiki page`: http://wiki.osehra.org/pages/viewpage.action?pageId=3047628#Developmentenvironmentinstall%28OSEHRAVM%29-Configurexinetd
+.. _`GUI page`: http://www.osehra.org/document/guis-used-automatic-functional-testing
diff --git a/Documentation/Install/Vagrant.rst b/Documentation/Install/Vagrant.rst
index 5f7ce62..3706117 100644
--- a/Documentation/Install/Vagrant.rst
+++ b/Documentation/Install/Vagrant.rst
@@ -126,11 +126,9 @@ The VM sets up the RPC broker which is used for CPRS, Vitals, and other GUIs
and VistAlink. Regular ssh is also available. The VM will open the following
ports on VirtualBox.
-Note: If you are using a cloud provider (AWS, Rackspace) you will have to open
-the cloud firewall as appropriate.
-
-Note: YOU WILL NEED TO ENSURE SSH IS OPEN BY DEFAULT. Vagrant depends upon
-this.
+Note: If you are using a cloud provider (AWS/EC2, Rackspace) you will have to
+open the cloud firewall for the following ports before you begin the
+provisioning process.
* 9430 - RPC Broker
@@ -140,10 +138,10 @@ this.
The Access/Verify codes are the same used in OSEHRA automated testing.
-Note: CPRS uses the RPC Broker and the correct commandline arguments are:
-S=127.0.0.1 P=9430. If you used a cloud provider (Rackspace, AWS) the easist
-way to find out what the S= nees to be is to lookup your DNS address in the
-management portal of your cloud provider.
+Note: CPRS uses the RPC Broker and the correct commandline arguments for
+VirtualBox are: S=127.0.0.1 P=9430. If you used a cloud provider
+(Rackspace, AWS) the easist way to find out what the S= needs to be is to lookup
+your DNS address in the management portal of your cloud provider.
You can also access the VM using another SSH program (ex: PuTTY) by using the
address as described in the note above and using the correct port 22 for cloud
@@ -152,16 +150,63 @@ installs and 2222 for local VirtualBox installs.
Accessing Roll-and-Scroll
-------------------------
-Currently there isn't an easy way to directly log in to VistA's Roll-and-Scroll
-environment. The current process is as follows:
+There are two user accounts that are created automatically during the
+installation process that make accessing VistA easier:
+
+Tied user account
+
+ * User Name: ${instance}tied
+
+ * Password: tied
+
+Programmer user account
+
+ * UserName: ${instance}prog
+
+ * Password: prog
+
+The ${instance}tied is designed for regular VistA users to access
+roll-and-scroll applications. This user is tied to the ^ZU routine.
+
+To login as a tied user using the default osehra instance:
+
+.. parsed-literal::
+
+ ~$ :usertype:`ssh -p 2222 osehratied at localhost`
+
+Then type the password above at the password prompt
+
+The ${instance}prog is designed for programmer users to access the M prompt.
+This is the equivalent of typing mumps -dir at the command line.
+
+To login as a programmer user using the default osehra instance:
+
+.. parsed-literal::
+
+ ~$ :usertype:`ssh -p 2222 osehraprog at localhost`
+
+Then type the password above at the password prompt
+
+Note: Everytime a new vagrant VM is created a new SSH machine key is generated,
+which has a new fingerprint. Some SSH clients will complain about this and will
+prevent you from logging on. There are typically instructions in the error
+message to resolve this connection problem.
+
+To login as a regular linux user (with sudo privileges):
.. parsed-literal::
~$ :usertype:`cd Development/VistA/Scripts/Install/Ubuntu`
~/Development/VistA/Scripts/Install/Ubuntu$ :usertype:`vagrant ssh`
+
+You can now use the system like any other linux box. If you need to access the
+VistA environment you can perform the following command:
+
+.. parsed-literal::
+
vagrant\@vagrant-ubuntu-precise-32:~$ :usertype:`mumps -dir`
-This will drop you to a programmer prompt. To get to the normal VistA login
+Which will give you a programmer prompt. To get to the normal VistA login
screen type the following:
.. parsed-literal::
diff --git a/Documentation/README.rst b/Documentation/README.rst
index 620d4e9..b20fe0b 100644
--- a/Documentation/README.rst
+++ b/Documentation/README.rst
@@ -32,7 +32,8 @@ GT.M:
* InstallGTM_
* ImportGTM_
-The last sections are common to both types of systems:
+The last sections are common to both types of systems and utilize the OSEHRA
+Testing Harness:
* SetupTestingEnvironment_
* RunningandUploadingTests_
@@ -41,6 +42,9 @@ The last sections are common to both types of systems:
The import and simple configuration of the M components of VistA has been
automated. See AutomatedVistAConfiguration_ for more details.
+For Initialization and Setup without using the OSEHRA Utilities, see:
+
+ * Initialization_
Troubleshooting:
````````````````
@@ -64,3 +68,4 @@ To report a problem or see potential solutions visit the `Troubleshooting Page`_
.. _ReviewingResults: ReviewingResults.rst
.. _AutomatedVistAConfiguration: AutomatedVistAConfiguration.rst
.. _PrepareMComponents: PrepareMComponents.rst
+.. _Initialization: Initialization.rst
diff --git a/Packages/.gitattributes b/Packages/.gitattributes
new file mode 100644
index 0000000..ae79b53
--- /dev/null
+++ b/Packages/.gitattributes
@@ -0,0 +1,26 @@
+# Delphi project files.
+*.bdsproj eol=crlf -whitespace
+*.dpk eol=crlf -whitespace
+*.dpk.in -whitespace
+*.dpr eol=crlf -whitespace
+*.dpr.in -whitespace
+*.dproj eol=crlf -whitespace
+*.dproj.in -whitespace
+
+# Delphi source files.
+*.dfm text -whitespace
+*.inc text -whitespace
+*.pas text -whitespace
+*.rc text -whitespace
+
+# Delphi binary files.
+*.dcr -text
+*.res -text
+*.tlb -text
+
+# Other text files.
+*.txt text
+
+# Other binary files.
+*.BMP -text
+*.bmp -text
diff --git a/Packages/Accounts Receivable/Patches/PRCA_4.5_296/PRCA-4P5_SEQ-260_PAT-296.KIDS b/Packages/Accounts Receivable/Patches/PRCA_4.5_296/PRCA-4P5_SEQ-260_PAT-296.KIDS
new file mode 100644
index 0000000..67f9346
--- /dev/null
+++ b/Packages/Accounts Receivable/Patches/PRCA_4.5_296/PRCA-4P5_SEQ-260_PAT-296.KIDS
@@ -0,0 +1,1390 @@
+Released PRCA*4.5*296 SEQ #260
+Extracted from mail message
+**KIDS**:PRCA*4.5*296^
+
+**INSTALL NAME**
+PRCA*4.5*296
+"BLD",9385,0)
+PRCA*4.5*296^ACCOUNTS RECEIVABLE^0^3130613^y
+"BLD",9385,1,0)
+^^14^14^3130613^
+"BLD",9385,1,1,0)
+This patch addresses two issues.
+"BLD",9385,1,2,0)
+
+"BLD",9385,1,3,0)
+The first issue implements two changes to the Automatic Payment Process
+"BLD",9385,1,4,0)
+Server [RCDP AUTOMATIC PAYMENTS] option that processes deposit files
+"BLD",9385,1,5,0)
+containing records of veterans' cash and check payments of their copayment
+"BLD",9385,1,6,0)
+bills to the national Lockbox. Vista Accounts Receivable (AR) will begin
+"BLD",9385,1,7,0)
+to receive new types of deposit files that represent withholdings of VA
+"BLD",9385,1,8,0)
+Compensation and Pension (C&P) benefits or amounts owed to the veteran by
+"BLD",9385,1,9,0)
+the US Treasury, which must be applied to veteran's delinquent accounts
+"BLD",9385,1,10,0)
+in the same manner as cash/check payments.
+"BLD",9385,1,11,0)
+
+"BLD",9385,1,12,0)
+The second issue is about the account lookup keys which will be included
+"BLD",9385,1,13,0)
+in the new Treasury and Compensation & Pension (C&P) withholding deposit
+"BLD",9385,1,14,0)
+files to identify the correct veteran in VistA.
+"BLD",9385,4,0)
+^9.64PA^^0
+"BLD",9385,6)
+^241
+"BLD",9385,6.3)
+24
+"BLD",9385,"INIT")
+POST^PRCAP296
+"BLD",9385,"KRN",0)
+^9.67PA^779.2^20
+"BLD",9385,"KRN",.4,0)
+.4
+"BLD",9385,"KRN",.401,0)
+.401
+"BLD",9385,"KRN",.402,0)
+.402
+"BLD",9385,"KRN",.403,0)
+.403
+"BLD",9385,"KRN",.5,0)
+.5
+"BLD",9385,"KRN",.84,0)
+.84
+"BLD",9385,"KRN",3.6,0)
+3.6
+"BLD",9385,"KRN",3.8,0)
+3.8
+"BLD",9385,"KRN",9.2,0)
+9.2
+"BLD",9385,"KRN",9.8,0)
+9.8
+"BLD",9385,"KRN",9.8,"NM",0)
+^9.68A^3^3
+"BLD",9385,"KRN",9.8,"NM",1,0)
+PRCABJV^^0^B30084731
+"BLD",9385,"KRN",9.8,"NM",2,0)
+RCDPURE1^^0^B57024051
+"BLD",9385,"KRN",9.8,"NM",3,0)
+RCDPXPAP^^0^B49106296
+"BLD",9385,"KRN",9.8,"NM","B","PRCABJV",1)
+
+"BLD",9385,"KRN",9.8,"NM","B","RCDPURE1",2)
+
+"BLD",9385,"KRN",9.8,"NM","B","RCDPXPAP",3)
+
+"BLD",9385,"KRN",19,0)
+19
+"BLD",9385,"KRN",19.1,0)
+19.1
+"BLD",9385,"KRN",101,0)
+101
+"BLD",9385,"KRN",409.61,0)
+409.61
+"BLD",9385,"KRN",771,0)
+771
+"BLD",9385,"KRN",779.2,0)
+779.2
+"BLD",9385,"KRN",870,0)
+870
+"BLD",9385,"KRN",8989.51,0)
+8989.51
+"BLD",9385,"KRN",8989.52,0)
+8989.52
+"BLD",9385,"KRN",8994,0)
+8994
+"BLD",9385,"KRN","B",.4,.4)
+
+"BLD",9385,"KRN","B",.401,.401)
+
+"BLD",9385,"KRN","B",.402,.402)
+
+"BLD",9385,"KRN","B",.403,.403)
+
+"BLD",9385,"KRN","B",.5,.5)
+
+"BLD",9385,"KRN","B",.84,.84)
+
+"BLD",9385,"KRN","B",3.6,3.6)
+
+"BLD",9385,"KRN","B",3.8,3.8)
+
+"BLD",9385,"KRN","B",9.2,9.2)
+
+"BLD",9385,"KRN","B",9.8,9.8)
+
+"BLD",9385,"KRN","B",19,19)
+
+"BLD",9385,"KRN","B",19.1,19.1)
+
+"BLD",9385,"KRN","B",101,101)
+
+"BLD",9385,"KRN","B",409.61,409.61)
+
+"BLD",9385,"KRN","B",771,771)
+
+"BLD",9385,"KRN","B",779.2,779.2)
+
+"BLD",9385,"KRN","B",870,870)
+
+"BLD",9385,"KRN","B",8989.51,8989.51)
+
+"BLD",9385,"KRN","B",8989.52,8989.52)
+
+"BLD",9385,"KRN","B",8994,8994)
+
+"BLD",9385,"QUES",0)
+^9.62^^
+"BLD",9385,"REQB",0)
+^9.611^3^3
+"BLD",9385,"REQB",1,0)
+PRCA*4.5*220^2
+"BLD",9385,"REQB",2,0)
+PRCA*4.5*206^2
+"BLD",9385,"REQB",3,0)
+PRCA*4.5*217^2
+"BLD",9385,"REQB","B","PRCA*4.5*206",2)
+
+"BLD",9385,"REQB","B","PRCA*4.5*217",3)
+
+"BLD",9385,"REQB","B","PRCA*4.5*220",1)
+
+"INIT")
+POST^PRCAP296
+"MBREQ")
+0
+"PKG",142,-1)
+1^1
+"PKG",142,0)
+ACCOUNTS RECEIVABLE^PRCA^BILL COLLECTIONS
+"PKG",142,20,0)
+^9.402P^1^1
+"PKG",142,20,1,0)
+2^^PRCAMRG
+"PKG",142,20,1,1)
+
+"PKG",142,20,"B",2,1)
+
+"PKG",142,22,0)
+^9.49I^1^1
+"PKG",142,22,1,0)
+4.5^^2950320
+"PKG",142,22,1,"PAH",1,0)
+296^3130613
+"PKG",142,22,1,"PAH",1,1,0)
+^^14^14^3130613
+"PKG",142,22,1,"PAH",1,1,1,0)
+This patch addresses two issues.
+"PKG",142,22,1,"PAH",1,1,2,0)
+
+"PKG",142,22,1,"PAH",1,1,3,0)
+The first issue implements two changes to the Automatic Payment Process
+"PKG",142,22,1,"PAH",1,1,4,0)
+Server [RCDP AUTOMATIC PAYMENTS] option that processes deposit files
+"PKG",142,22,1,"PAH",1,1,5,0)
+containing records of veterans' cash and check payments of their copayment
+"PKG",142,22,1,"PAH",1,1,6,0)
+bills to the national Lockbox. Vista Accounts Receivable (AR) will begin
+"PKG",142,22,1,"PAH",1,1,7,0)
+to receive new types of deposit files that represent withholdings of VA
+"PKG",142,22,1,"PAH",1,1,8,0)
+Compensation and Pension (C&P) benefits or amounts owed to the veteran by
+"PKG",142,22,1,"PAH",1,1,9,0)
+the US Treasury, which must be applied to veteran's delinquent accounts
+"PKG",142,22,1,"PAH",1,1,10,0)
+in the same manner as cash/check payments.
+"PKG",142,22,1,"PAH",1,1,11,0)
+
+"PKG",142,22,1,"PAH",1,1,12,0)
+The second issue is about the account lookup keys which will be included
+"PKG",142,22,1,"PAH",1,1,13,0)
+in the new Treasury and Compensation & Pension (C&P) withholding deposit
+"PKG",142,22,1,"PAH",1,1,14,0)
+files to identify the correct veteran in VistA.
+"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")
+4
+"RTN","PRCABJV")
+0^1^B30084731^B29300227
+"RTN","PRCABJV",1,0)
+PRCABJV ;WASH-ISC at ALTOONA,PA/TJK-FILE VERIFICATION FOR BACKGROUND JOB ;4/6/95 10:13 AM
+"RTN","PRCABJV",2,0)
+V ;;4.5;Accounts Receivable;**1,48,63,114,141,170,176,173,192,220,296**;Mar 20, 1995;Build 24
+"RTN","PRCABJV",3,0)
+ ;;patch 192 changes all occurrences of CHAMPUS to TRICARE
+"RTN","PRCABJV",4,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","PRCABJV",5,0)
+EN1(FILE,X1,X2,ERROR) ;
+"RTN","PRCABJV",6,0)
+ ;FILE IS THE FILE NUMBER
+"RTN","PRCABJV",7,0)
+ ;X1 AND X2 ARE 3 PART VARIABLES SEPARATED BY SEMI-COLONS WITH
+"RTN","PRCABJV",8,0)
+ ;THE FORMAT (X-REF INDEX;NODE;PIECE)
+"RTN","PRCABJV",9,0)
+ ;AN ERROR ARRAY IS SET IF VALIDATION FAILS
+"RTN","PRCABJV",10,0)
+ NEW LT,CNT,I,I1,I2,I3,REC,IND,ND,PC,DATA,J,LN,FILENT
+"RTN","PRCABJV",11,0)
+ S LT=$S(FILE[430.3:"TRANST",FILE[430.2:"CAT",1:"EVENT"),CNT=0
+"RTN","PRCABJV",12,0)
+ F I=1,2 S J=@("X"_I),IND(I)=$P(J,";"),ND(I)=$P(J,";",2),PC(I)=$P(J,";",3)
+"RTN","PRCABJV",13,0)
+ F I1=1:1 D Q:(DATA(0)="EOF")!(ERROR)
+"RTN","PRCABJV",14,0)
+ .S LN=$T(@LT+I1) F I=3:1:6 S DATA(I-3)=$P(LN,";",I)
+"RTN","PRCABJV",15,0)
+ .Q:DATA(0)="EOF"
+"RTN","PRCABJV",16,0)
+ .G RC:FILE<430
+"RTN","PRCABJV",17,0)
+ .I '$D(^PRCA(FILE,"B",DATA(0))) S ERROR=1 Q
+"RTN","PRCABJV",18,0)
+ .S REC=$O(^PRCA(FILE,"B",DATA(0),0)) I 'REC S ERROR=1 Q
+"RTN","PRCABJV",19,0)
+ .I DATA(3)'=REC S ERROR=1 Q
+"RTN","PRCABJV",20,0)
+ .I $P(^PRCA(FILE,REC,0),U)'=DATA(0) S ERROR=1 Q
+"RTN","PRCABJV",21,0)
+ .G CNT:X1=""
+"RTN","PRCABJV",22,0)
+ .F I2=1,2 D Q:ERROR I I2=1,X2="" Q
+"RTN","PRCABJV",23,0)
+ ..I '$D(^PRCA(FILE,IND(I2),DATA(I2))) S ERROR=1 G Q2
+"RTN","PRCABJV",24,0)
+ ..; do not check if category number is a zero
+"RTN","PRCABJV",25,0)
+ ..I I2=1,DATA(1)'=0,$O(^PRCA(FILE,IND(I2),DATA(I2),0))'=REC S ERROR=1 G Q2
+"RTN","PRCABJV",26,0)
+ ..I $P(^PRCA(FILE,REC,ND(I2)),U,PC(I2))'=DATA(I2) S ERROR=1
+"RTN","PRCABJV",27,0)
+Q2 ..Q
+"RTN","PRCABJV",28,0)
+CNT .Q:ERROR
+"RTN","PRCABJV",29,0)
+ .S CNT=CNT+1
+"RTN","PRCABJV",30,0)
+Q1 .Q
+"RTN","PRCABJV",31,0)
+RC .I '$D(^RC(FILE,"B",DATA(0))) S ERROR=1 Q
+"RTN","PRCABJV",32,0)
+ .S REC=$O(^RC(FILE,"B",DATA(0),0)) I 'REC S ERROR=1 Q
+"RTN","PRCABJV",33,0)
+ .I DATA(3)'=REC S ERROR=1 Q
+"RTN","PRCABJV",34,0)
+ .I $P(^RC(FILE,REC,0),U)'=DATA(0) S ERROR=1 Q
+"RTN","PRCABJV",35,0)
+ .G CNT:X1=""
+"RTN","PRCABJV",36,0)
+ .F I3=1,2 D Q:ERROR I I3=1,X2="" Q
+"RTN","PRCABJV",37,0)
+ ..I '$D(^RC(FILE,IND(I3),DATA(I3))) S ERROR=1 G Q3
+"RTN","PRCABJV",38,0)
+ ..I $O(^RC(FILE,IND(I3),DATA(I3),0))'=REC S ERROR=1 G Q3
+"RTN","PRCABJV",39,0)
+ ..I $P(^RC(FILE,REC,ND(I3)),U,PC(I3))'=DATA(I3) S ERROR=1
+"RTN","PRCABJV",40,0)
+Q3 ..Q
+"RTN","PRCABJV",41,0)
+ .G CNT
+"RTN","PRCABJV",42,0)
+ I FILE>429.99,$P(^PRCA(FILE,0),U,4)'=CNT S ERROR=1 G EXIT
+"RTN","PRCABJV",43,0)
+ G EXIT:FILE>429.99
+"RTN","PRCABJV",44,0)
+ I $P(^RC(FILE,0),U,4)'=CNT S ERROR=1
+"RTN","PRCABJV",45,0)
+EXIT Q:'ERROR
+"RTN","PRCABJV",46,0)
+ S FILENT=$S(FILE>429.99:$P(^PRCA(FILE,0),U,4),1:$P(^RC(FILE,0),U,4))
+"RTN","PRCABJV",47,0)
+ S ERROR(1)="An error has been detected in the "_$P(^DIC(FILE,0),U)_" File."
+"RTN","PRCABJV",48,0)
+ I DATA(0)="EOF" S ERROR(2)="There are too many entries in your file."
+"RTN","PRCABJV",49,0)
+ I DATA(0)'="EOF" S ERROR(2)="The "_DATA(0)_" Entry in your file is missing or corrupted."
+"RTN","PRCABJV",50,0)
+ Q
+"RTN","PRCABJV",51,0)
+TRANST ;
+"RTN","PRCABJV",52,0)
+ ;;ACTIVE;102;A;16
+"RTN","PRCABJV",53,0)
+ ;;ADD (AMEND);302;AD;37
+"RTN","PRCABJV",54,0)
+ ;;ADMIN.COST CHARGE;12;AC;12
+"RTN","PRCABJV",55,0)
+ ;;AMEND;303;AM;38
+"RTN","PRCABJV",56,0)
+ ;;AMENDED BILL;110;AB;33
+"RTN","PRCABJV",57,0)
+ ;;ARCHIVED;115;XX;49
+"RTN","PRCABJV",58,0)
+ ;;BILL INCOMPLETE;201;BI;27
+"RTN","PRCABJV",59,0)
+ ;;CANCELLATION;111;CN;39
+"RTN","PRCABJV",60,0)
+ ;;CANCELLED BILL;210;CB;26
+"RTN","PRCABJV",61,0)
+ ;;CASH COLLECTION BY RC/DOJ;7;CJ;7
+"RTN","PRCABJV",62,0)
+ ;;CHARGE SUSPENDED;19;CS;47
+"RTN","PRCABJV",63,0)
+ ;;COLLECTED/CLOSED;108;CC;22
+"RTN","PRCABJV",64,0)
+ ;;COMMENT;17;CM;45
+"RTN","PRCABJV",65,0)
+ ;;DEBIT VOUCHER (SF 5515);30;DV;30
+"RTN","PRCABJV",66,0)
+ ;;DECREASE ADJUSTMENT;21;DA;35
+"RTN","PRCABJV",67,0)
+ ;;DELETE (AMEND);301;DL;36
+"RTN","PRCABJV",68,0)
+ ;;EXEMPT INT/ADM. COST;14;E;14
+"RTN","PRCABJV",69,0)
+ ;;IN-ACTIVE;103;IA;17
+"RTN","PRCABJV",70,0)
+ ;;INCOMPLETE;101;IN;15
+"RTN","PRCABJV",71,0)
+ ;;INCREASE ADJUSTMENT;1;AJ;1
+"RTN","PRCABJV",72,0)
+ ;;INTEREST/ADM. CHARGE;13;IC;13
+"RTN","PRCABJV",73,0)
+ ;;MARSHAL/COURT COST;15;ML;24
+"RTN","PRCABJV",74,0)
+ ;;NEW BILL;104;N;18
+"RTN","PRCABJV",75,0)
+ ;;OLD BILL;106;OB;28
+"RTN","PRCABJV",76,0)
+ ;;OPEN;112;OP;42
+"RTN","PRCABJV",77,0)
+ ;;PAYMENT (IN FULL);20;PF;34
+"RTN","PRCABJV",78,0)
+ ;;PAYMENT (IN PART);2;PP;2
+"RTN","PRCABJV",79,0)
+ ;;PENDING APPROVAL;205;PA;20
+"RTN","PRCABJV",80,0)
+ ;;PENDING ARCHIVE;114;X;48
+"RTN","PRCABJV",81,0)
+ ;;PENDING CALM CODE;107;PC;21
+"RTN","PRCABJV",82,0)
+ ;;RE-ESTABLISH;250;RW;43
+"RTN","PRCABJV",83,0)
+ ;;REESTABLISH TO RC/DOJ;5;RR;5
+"RTN","PRCABJV",84,0)
+ ;;REFER TO RC;3;RC;3
+"RTN","PRCABJV",85,0)
+ ;;REFER TO DOJ;4;RJ;4
+"RTN","PRCABJV",86,0)
+ ;;REFUND REVIEW;113;PR;44
+"RTN","PRCABJV",87,0)
+ ;;REFUNDED;120;RF;41
+"RTN","PRCABJV",88,0)
+ ;;REPAYMENT PLAN;16;RP;25
+"RTN","PRCABJV",89,0)
+ ;;RETURNED BY RC/DOJ;6;RD;6
+"RTN","PRCABJV",90,0)
+ ;;RETURNED FOR AMENDMENT;230;RA;32
+"RTN","PRCABJV",91,0)
+ ;;RETURNED FROM AR (NEW);220;RT;31
+"RTN","PRCABJV",92,0)
+ ;;SUSPENDED;240;SP;40
+"RTN","PRCABJV",93,0)
+ ;;SUSPENSE;105;S;19
+"RTN","PRCABJV",94,0)
+ ;;TERM.BY COMPROMISE;9;TC;9
+"RTN","PRCABJV",95,0)
+ ;;TERM.BY RC/DOJ;29;TJ;29
+"RTN","PRCABJV",96,0)
+ ;;TERM.BY FIS.OFFICER;8;TO;8
+"RTN","PRCABJV",97,0)
+ ;;UNSUSPENDED;18;US;46
+"RTN","PRCABJV",98,0)
+ ;;WAIVED IN FULL;10;WF;10
+"RTN","PRCABJV",99,0)
+ ;;WAIVED IN PART;11;WP;11
+"RTN","PRCABJV",100,0)
+ ;;WRITE-OFF;109;WO;23
+"RTN","PRCABJV",101,0)
+ ;;EOF
+"RTN","PRCABJV",102,0)
+CAT ;patch 192 - ISC-0502-N2803 change Champus to Tricare
+"RTN","PRCABJV",103,0)
+ ;;ADULT DAY HEALTH CARE;40;AD;33
+"RTN","PRCABJV",104,0)
+ ;;C (MEANS TEST);24;C;18
+"RTN","PRCABJV",105,0)
+ ;;TRICARE;37;T1;30
+"RTN","PRCABJV",106,0)
+ ;;TRICARE PATIENT;38;T2;31
+"RTN","PRCABJV",107,0)
+ ;;TRICARE THIRD PARTY;39;T3;32
+"RTN","PRCABJV",108,0)
+ ;;CHAMPVA;36;CV;29
+"RTN","PRCABJV",109,0)
+ ;;CHAMPVA SUBSISTENCE;34;CS;27
+"RTN","PRCABJV",110,0)
+ ;;CHAMPVA THIRD PARTY;35;CT;28
+"RTN","PRCABJV",111,0)
+ ;;COMP & PEN PROCEEDS;8;CM;43
+"RTN","PRCABJV",112,0)
+ ;;CRIME OF PER.VIO.;27;CP;8
+"RTN","PRCABJV",113,0)
+ ;;CURRENT EMP.;14;CE;16
+"RTN","PRCABJV",114,0)
+ ;;CWT PROCEEDS;7;CW;42
+"RTN","PRCABJV",115,0)
+ ;;DOMICILIARY;41;DO;34
+"RTN","PRCABJV",116,0)
+ ;;EMERGENCY/HUMANITARIAN;25;H;2
+"RTN","PRCABJV",117,0)
+ ;;ENHANCED USE LEASE PROCEEDS;10;EP;44
+"RTN","PRCABJV",118,0)
+ ;;EX-EMPLOYEE;13;E;15
+"RTN","PRCABJV",119,0)
+ ;;FEDERAL AGENCIES-REFUND;15;F2;13
+"RTN","PRCABJV",120,0)
+ ;;FEDERAL AGENCIES-REIMB.;16;F1;14
+"RTN","PRCABJV",121,0)
+ ;;GERIATRIC EVAL-INSTITUTIONAL;44;GE;37
+"RTN","PRCABJV",122,0)
+ ;;GERIATRIC EVAL-NON-INSTITUTION;45;GN;38
+"RTN","PRCABJV",123,0)
+ ;;HOSPITAL CARE (NSC);1;HC;5
+"RTN","PRCABJV",124,0)
+ ;;HOSPITAL CARE PER DIEM;32;HP;25
+"RTN","PRCABJV",125,0)
+ ;;INELIGIBLE HOSP.;20;I;1
+"RTN","PRCABJV",126,0)
+ ;;INTERAGENCY;19;IA;20
+"RTN","PRCABJV",127,0)
+ ;;MEDICARE;28;MC;21
+"RTN","PRCABJV",128,0)
+ ;;MILITARY;17;M;12
+"RTN","PRCABJV",129,0)
+ ;;NO-FAULT AUTO ACC.;26;NA;7
+"RTN","PRCABJV",130,0)
+ ;;NURSING HOME CARE PER DIEM;31;NP;24
+"RTN","PRCABJV",131,0)
+ ;;NURSING HOME CARE(NSC);3;NC;3
+"RTN","PRCABJV",132,0)
+ ;;NURSING HOME CARE-LTC;46;NL;39
+"RTN","PRCABJV",133,0)
+ ;;NURSING HOME PROCEEDS;5;NH;40
+"RTN","PRCABJV",134,0)
+ ;;OUTPATIENT CARE(NSC);2;OC;4
+"RTN","PRCABJV",135,0)
+ ;;PARKING FEES;6;PF;41
+"RTN","PRCABJV",136,0)
+ ;;PREPAYMENT;33;PP;26
+"RTN","PRCABJV",137,0)
+ ;;REIMBURS.HEALTH INS.;21;RI;9
+"RTN","PRCABJV",138,0)
+ ;;RESPITE CARE-INSTITUTIONAL;42;RC;35
+"RTN","PRCABJV",139,0)
+ ;;RESPITE CARE-NON-INSTITUTIONAL;43;RN;36
+"RTN","PRCABJV",140,0)
+ ;;RX CO-PAYMENT/NSC VET;30;PN;23
+"RTN","PRCABJV",141,0)
+ ;;RX CO-PAYMENT/SC VET;29;PS;22
+"RTN","PRCABJV",142,0)
+ ;;SHARING AGREEMENTS;18;SA;19
+"RTN","PRCABJV",143,0)
+ ;;TORT FEASOR;22;TF;10
+"RTN","PRCABJV",144,0)
+ ;;VENDOR;11;V;17
+"RTN","PRCABJV",145,0)
+ ;;WORKMAN'S COMP.;23;WC;6
+"RTN","PRCABJV",146,0)
+ ;;EOF
+"RTN","PRCABJV",147,0)
+EVENT ;
+"RTN","PRCABJV",148,0)
+ ;;CASH PAYMENT;6;;6
+"RTN","PRCABJV",149,0)
+ ;;CHECK/MO PAYMENT;4;;4
+"RTN","PRCABJV",150,0)
+ ;;COMMENT;1;;1
+"RTN","PRCABJV",151,0)
+ ;;CREDIT CARD PAYMENT;7;;7
+"RTN","PRCABJV",152,0)
+ ;;DEPT OF JUSTICE PAYMENT;5;;5
+"RTN","PRCABJV",153,0)
+ ;;REGIONAL COUNSEL PAYMENT;3;;3
+"RTN","PRCABJV",154,0)
+ ;;FOLLOW-UP LETTER;10;;10
+"RTN","PRCABJV",155,0)
+ ;;IRS PAYMENT;11;;11
+"RTN","PRCABJV",156,0)
+ ;;PATIENT STATEMENT;2;;2
+"RTN","PRCABJV",157,0)
+ ;;TDA PAYMENT;8;;8
+"RTN","PRCABJV",158,0)
+ ;;UB PRINTED;9;;9
+"RTN","PRCABJV",159,0)
+ ;;LOCKBOX;12;;12
+"RTN","PRCABJV",160,0)
+ ;;TOP PAYMENT;13;;13
+"RTN","PRCABJV",161,0)
+ ;;EDI LOCKBOX;14;;14
+"RTN","PRCABJV",162,0)
+ ;;ADMINISTRATIVE OFFSET;15;;15
+"RTN","PRCABJV",163,0)
+ ;;PRIVATE COLLECTION AGENCY;16;;16
+"RTN","PRCABJV",164,0)
+ ;;EOF
+"RTN","PRCAP296")
+0^^B2847358^n/a
+"RTN","PRCAP296",1,0)
+PRCAP296 ;ALB/CXW - post init for patch 296 ; 19-MAR-2013
+"RTN","PRCAP296",2,0)
+ ;;4.5;Accounts Receivable;**296**;Mar 20, 1995;Build 24
+"RTN","PRCAP296",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","PRCAP296",4,0)
+ Q
+"RTN","PRCAP296",5,0)
+ ;
+"RTN","PRCAP296",6,0)
+POST ; AR event type of payment update
+"RTN","PRCAP296",7,0)
+ N DA,DIC,DLAYGO,DO,RCI,RCX,RCCT,X,Y S U="^",RCCT=0
+"RTN","PRCAP296",8,0)
+ D MES^XPDUTL("Patch Post-Install starts...")
+"RTN","PRCAP296",9,0)
+ D MES^XPDUTL("Add a new AR event type of payment ...")
+"RTN","PRCAP296",10,0)
+ F RCI=1:1 S RCX=$P($T(AET+RCI),";;",2) Q:RCX="" D
+"RTN","PRCAP296",11,0)
+ . S X=$P(RCX,U,1)
+"RTN","PRCAP296",12,0)
+ . ;quit if it exists
+"RTN","PRCAP296",13,0)
+ . I $D(^RC(341.1,"B",X)) Q
+"RTN","PRCAP296",14,0)
+ . S DIC="^RC(341.1,",DIC(0)="L",DLAYGO=341.1
+"RTN","PRCAP296",15,0)
+ . S DIC("DR")=".02///"_$P(RCX,U,2)_";.06///"_$P(RCX,U,3)
+"RTN","PRCAP296",16,0)
+ . D FILE^DICN
+"RTN","PRCAP296",17,0)
+ . I Y=-1 D MES^XPDUTL("ERROR when adding a new AR event type. Log a Remedy ticket!") Q
+"RTN","PRCAP296",18,0)
+ . D MES^XPDUTL("AR event type of payment: "_$P(RCX,U,1)_" added successfully")
+"RTN","PRCAP296",19,0)
+ . S RCCT=RCCT+1
+"RTN","PRCAP296",20,0)
+ D MES^XPDUTL("Total "_RCCT_" code"_$S(RCCT'=1:"s",1:"")_" added to the AR Event Type file (#341.1)")
+"RTN","PRCAP296",21,0)
+ ;
+"RTN","PRCAP296",22,0)
+ D MES^XPDUTL("Patch Post-Install is complete.")
+"RTN","PRCAP296",23,0)
+ Q
+"RTN","PRCAP296",24,0)
+AET ; name^event number^category
+"RTN","PRCAP296",25,0)
+ ;;ADMINISTRATIVE OFFSET^15^PAYMENT
+"RTN","PRCAP296",26,0)
+ ;;PRIVATE COLLECTION AGENCY^16^PAYMENT
+"RTN","PRCAP296",27,0)
+ ;
+"RTN","RCDPURE1")
+0^2^B57024051^B55071399
+"RTN","RCDPURE1",1,0)
+RCDPURE1 ;WISC/RFJ-process a receipt ;1 Jun 99
+"RTN","RCDPURE1",2,0)
+ ;;4.5;Accounts Receivable;**114,148,153,169,204,173,214,217,296**;Mar 20, 1995;Build 24
+"RTN","RCDPURE1",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","RCDPURE1",4,0)
+ Q
+"RTN","RCDPURE1",5,0)
+ ;
+"RTN","RCDPURE1",6,0)
+ ;
+"RTN","RCDPURE1",7,0)
+PROCESS(RCRECTDA,RCSCREEN) ; process a receipt, update ar, generate cr/tr documents to fms
+"RTN","RCDPURE1",8,0)
+ ; the receipt and deposit must be locked before calling this label
+"RTN","RCDPURE1",9,0)
+ ; if $g(rcscreen) = 1 show messages during processing
+"RTN","RCDPURE1",10,0)
+ ; if $g(rcscreen) = 2 store messages during processing
+"RTN","RCDPURE1",11,0)
+ ;
+"RTN","RCDPURE1",12,0)
+ N RCPAYDA,RCDPFPAY,RCERROR,RCMSG,RCEFT,RCERA
+"RTN","RCDPURE1",13,0)
+ K ^TMP($J,"RCDPEMSG")
+"RTN","RCDPURE1",14,0)
+ ;
+"RTN","RCDPURE1",15,0)
+ ; first mark the receipt as processed/closed to prevent changing the
+"RTN","RCDPURE1",16,0)
+ ; data if the receipt does not fully process. this will lock the
+"RTN","RCDPURE1",17,0)
+ ; cancel payment, edit payment, etc. options. once a receipt is
+"RTN","RCDPURE1",18,0)
+ ; processed, even partially, it should not be changed.
+"RTN","RCDPURE1",19,0)
+ D MARKPROC^RCDPUREC(RCRECTDA,"")
+"RTN","RCDPURE1",20,0)
+ ;
+"RTN","RCDPURE1",21,0)
+ ; Special processing needed for EFT-related receipts
+"RTN","RCDPURE1",22,0)
+ ; RCEFT = 1 if EFT deposit, = 2 if receipt detail transfer, 0 if no EFT
+"RTN","RCDPURE1",23,0)
+ S RCEFT=+$$EDILB^RCDPEU(RCRECTDA)
+"RTN","RCDPURE1",24,0)
+ S RCERA=$P($G(^RCY(344,RCRECTDA,0)),U,18)
+"RTN","RCDPURE1",25,0)
+ ;
+"RTN","RCDPURE1",26,0)
+ ; === no payments ===
+"RTN","RCDPURE1",27,0)
+ ; if there are no payments for the receipt, quit
+"RTN","RCDPURE1",28,0)
+ I '$O(^RCY(344,RCRECTDA,1,0)) D Q
+"RTN","RCDPURE1",29,0)
+ . I $G(RCSCREEN) S RCMSG="Receipt does not have any payments and has been marked as processed/closed." D MSG(RCMSG,RCSCREEN,"!!")
+"RTN","RCDPURE1",30,0)
+ . I RCERA D UPDERA(RCERA)
+"RTN","RCDPURE1",31,0)
+ ;
+"RTN","RCDPURE1",32,0)
+ ; check to see if the payments have dollar amounts
+"RTN","RCDPURE1",33,0)
+ S RCPAYDA=0 F S RCPAYDA=$O(^RCY(344,RCRECTDA,1,RCPAYDA)) Q:'RCPAYDA I $P($G(^(RCPAYDA,0)),"^",4) S RCDPFPAY=1 Q
+"RTN","RCDPURE1",34,0)
+ I '$G(RCDPFPAY) D Q
+"RTN","RCDPURE1",35,0)
+ . I $G(RCSCREEN) S RCMSG="Receipt does not have any payments and has been marked as processed/closed." D MSG(RCMSG,RCSCREEN,"!!")
+"RTN","RCDPURE1",36,0)
+ . I RCERA D UPDERA(RCERA)
+"RTN","RCDPURE1",37,0)
+ ;
+"RTN","RCDPURE1",38,0)
+ ; === update AR accounts ===
+"RTN","RCDPURE1",39,0)
+ I $G(RCSCREEN) S RCMSG="Updating AR accounts..." D MSG(RCMSG,RCSCREEN,"!!")
+"RTN","RCDPURE1",40,0)
+ ;
+"RTN","RCDPURE1",41,0)
+ ; loop payments and apply to account in AR
+"RTN","RCDPURE1",42,0)
+ S RCPAYDA=0 F S RCPAYDA=$O(^RCY(344,RCRECTDA,1,RCPAYDA)) Q:'RCPAYDA D I RCERROR Q
+"RTN","RCDPURE1",43,0)
+ . S RCERROR=$$PROCESS^RCBEPAY(RCRECTDA,RCPAYDA)
+"RTN","RCDPURE1",44,0)
+ ;
+"RTN","RCDPURE1",45,0)
+ ; an error occurred during processing a payment
+"RTN","RCDPURE1",46,0)
+ I $G(RCERROR) D Q
+"RTN","RCDPURE1",47,0)
+ . I '$G(RCSCREEN) Q
+"RTN","RCDPURE1",48,0)
+ . S RCMSG="+-----------------------------------------------------------------------------+" D MSG(RCMSG,RCSCREEN,"!!")
+"RTN","RCDPURE1",49,0)
+ . S RCMSG="| An ERROR has occurred when processing payment "_RCPAYDA_" on receipt "_$P(^RCY(344,RCRECTDA,0),"^")_".",RCMSG=$E(RCMSG_$J("",77),1,77)_"|" D MSG(RCMSG,RCSCREEN,"!")
+"RTN","RCDPURE1",50,0)
+ . S RCMSG="| The error message returned during processing is:",RCMSG=$E(RCMSG_$J("",77),1,77)_"|" D MSG(RCMSG,RCSCREEN,"!")
+"RTN","RCDPURE1",51,0)
+ . S RCMSG="|"_$J("",77)_"|" D MSG(RCMSG,RCSCREEN,"!")
+"RTN","RCDPURE1",52,0)
+ . S RCMSG=$E("| "_$P(RCERROR,"^",2)_$J("",77),1,77)_"|" D MSG(RCMSG,RCSCREEN,"!")
+"RTN","RCDPURE1",53,0)
+ . S RCMSG="|"_$J("",77)_"|" D MSG(RCMSG,RCSCREEN,"!")
+"RTN","RCDPURE1",54,0)
+ . S RCMSG=$E("| You will need to correct the error before you can completely process the"_$J("",77),1,77)_"|" D MSG(RCMSG,RCSCREEN,"!")
+"RTN","RCDPURE1",55,0)
+ . S RCMSG=$E("| receipt. Once the receipt is completely processed, the FMS "_$S(RCEFT'=2:"Cash Receipt",1:"'TR'")_$J("",77),1,77)_"|" D MSG(RCMSG,RCSCREEN,"!")
+"RTN","RCDPURE1",56,0)
+ . S RCMSG=$E("| document will be generated."_$J("",77),1,77)_"|" D MSG(RCMSG,RCSCREEN,"!")
+"RTN","RCDPURE1",57,0)
+ . S RCMSG="+-----------------------------------------------------------------------------+" D MSG(RCMSG,RCSCREEN,"!")
+"RTN","RCDPURE1",58,0)
+ ;
+"RTN","RCDPURE1",59,0)
+ ; all payments processed correctly
+"RTN","RCDPURE1",60,0)
+ I RCERA D UPDERA(RCERA)
+"RTN","RCDPURE1",61,0)
+ I $G(RCSCREEN) D MSG(" Done.",RCSCREEN)
+"RTN","RCDPURE1",62,0)
+ ;
+"RTN","RCDPURE1",63,0)
+ ; *296 - no cr document for event type 'a' or 'p' or 't'
+"RTN","RCDPURE1",64,0)
+ N RCDPETY S RCDPETY=$P($G(^RCY(344,RCRECTDA,0)),"^",4)
+"RTN","RCDPURE1",65,0)
+ I (RCDPETY=15)!(RCDPETY=16)!(RCDPETY=13) D 215 Q
+"RTN","RCDPURE1",66,0)
+ ;
+"RTN","RCDPURE1",67,0)
+ ; if no deposit ticket and not related to EFT or is a HAC payment, do not send to fms
+"RTN","RCDPURE1",68,0)
+ I '$P(^RCY(344,RCRECTDA,0),"^",6),$S('RCEFT:1,1:$$HACEFT^RCDPEU(+$P(^RCY(344,RCRECTDA,0),U,17))) D Q
+"RTN","RCDPURE1",69,0)
+ . D 215
+"RTN","RCDPURE1",70,0)
+ . I $G(RCSCREEN) S RCMSG="Receipt does not have a deposit ticket and will NOT be sent to FMS." D MSG(RCMSG,RCSCREEN,"!!")
+"RTN","RCDPURE1",71,0)
+ ;
+"RTN","RCDPURE1",72,0)
+ ; === send fms cash receipt document ===
+"RTN","RCDPURE1",73,0)
+ N GECSDATA,FMSDOCNO,RESULT,REFMS
+"RTN","RCDPURE1",74,0)
+ ; lookup fms document number to see if the receipt has been
+"RTN","RCDPURE1",75,0)
+ ; sent to fms (field 200 in file 344)
+"RTN","RCDPURE1",76,0)
+ S FMSDOCNO=$P($G(^RCY(344,RCRECTDA,2)),"^")
+"RTN","RCDPURE1",77,0)
+ ; if there is an entry, find the code sheet in gcs to rebuild
+"RTN","RCDPURE1",78,0)
+ ; gecsdata will be the ien for file 2100.1
+"RTN","RCDPURE1",79,0)
+ I FMSDOCNO'="" S REFMS=1 N DIQ2 D DATA^GECSSGET(FMSDOCNO,0)
+"RTN","RCDPURE1",80,0)
+ ;
+"RTN","RCDPURE1",81,0)
+ I $G(RCSCREEN)&$G(GECSDATA) S RCMSG="Re-Transmitting CR document to FMS... " D MSG(RCMSG,RCSCREEN,"!!")
+"RTN","RCDPURE1",82,0)
+ I $G(RCSCREEN)&'$G(GECSDATA) S RCMSG="Transmitting CR document to FMS... " D MSG(RCMSG,RCSCREEN,"!!")
+"RTN","RCDPURE1",83,0)
+ ;
+"RTN","RCDPURE1",84,0)
+ ; build and send the tr/cr document to fms
+"RTN","RCDPURE1",85,0)
+ I RCEFT'=2 D ; Send CR doc
+"RTN","RCDPURE1",86,0)
+ . S RESULT=$$BUILDCR^RCXFMSCR(RCRECTDA,+$G(GECSDATA),RCEFT)
+"RTN","RCDPURE1",87,0)
+ E D ; Send TR doc
+"RTN","RCDPURE1",88,0)
+ . S RESULT=$$GETTR^RCXFMST1(RCRECTDA,+$G(GECSDATA))
+"RTN","RCDPURE1",89,0)
+ ; error in building code sheet
+"RTN","RCDPURE1",90,0)
+ I 'RESULT D:$G(RCSCREEN) MSG("ERROR - "_$P(RESULT,"^",2),RCSCREEN,"!!") Q
+"RTN","RCDPURE1",91,0)
+ ;
+"RTN","RCDPURE1",92,0)
+ ; no document to send
+"RTN","RCDPURE1",93,0)
+ I $P(RESULT,"^")=-1,$G(RCSCREEN) S RCMSG="NOTE - "_$P(RESULT,"^",2) S $P(RESULT,"^",2)="" D MSG(RCMSG,RCSCREEN,"!!")
+"RTN","RCDPURE1",94,0)
+ ; document built and sent
+"RTN","RCDPURE1",95,0)
+ I $P(RESULT,"^")=1,$G(RCSCREEN) D
+"RTN","RCDPURE1",96,0)
+ . N Z,DIE,DR,DA
+"RTN","RCDPURE1",97,0)
+ . D MSG("Done. FMS document number "_$P(RESULT,"^",2),RCSCREEN,"!!")
+"RTN","RCDPURE1",98,0)
+ . I +$O(^RCY(344.4,"ARCT",RCRECTDA,0)) S DIE="^RCY(344.4,",DR=".14////1",DA=+$O(^RCY(344.4,"ARCT",RCRECTDA,0)) D ^DIE
+"RTN","RCDPURE1",99,0)
+ . I $P($G(^RCY(344,RCRECTDA,0)),U,17) S Z=$P($G(^RCY(344.31,+$P(^RCY(344,RCRECTDA,0),U,17),0)),U,15) I Z'="" S DA=RCRECTDA,DIE="^RCY(344,",DR=".16////"_Z D ^DIE
+"RTN","RCDPURE1",100,0)
+ I $G(RCSCREEN) D
+"RTN","RCDPURE1",101,0)
+ . I '$G(REFMS)&(DT>$$LDATE^RCRJR(DT)) S Y=$E($$FPS^RCAMFN01(DT,1),1,5)_"01" D DD^%DT W !! S RCMSG=" * * * * Transmission will be held until "_Y_" * * * *" D MSG(RCMSG,RCSCREEN,"!!")
+"RTN","RCDPURE1",102,0)
+ ;
+"RTN","RCDPURE1",103,0)
+ ;
+"RTN","RCDPURE1",104,0)
+ ; store the fms document number (receipt already marked processed/
+"RTN","RCDPURE1",105,0)
+ ; closed at the top of the routine just before posting the dollars.
+"RTN","RCDPURE1",106,0)
+ D MARKPROC^RCDPUREC(RCRECTDA,$P(RESULT,"^",2))
+"RTN","RCDPURE1",107,0)
+ I RCEFT=2 D MSG("No 215 report generated for this receipt",RCSCREEN,"!!") G Q215
+"RTN","RCDPURE1",108,0)
+ ;
+"RTN","RCDPURE1",109,0)
+ ;
+"RTN","RCDPURE1",110,0)
+215 ; === print 215 report ===
+"RTN","RCDPURE1",111,0)
+ I $G(RCSCREEN) D MSG("Queuing 215 report...",RCSCREEN,"!!")
+"RTN","RCDPURE1",112,0)
+ N DEVICE
+"RTN","RCDPURE1",113,0)
+ S DEVICE=$$OPTCK^RCDPRPL2("215REPORT",3)
+"RTN","RCDPURE1",114,0)
+ I DEVICE="" D:$G(RCSCREEN) MSG(" Use Customize Option to set up the default printer.",RCSCREEN) Q
+"RTN","RCDPURE1",115,0)
+ ;
+"RTN","RCDPURE1",116,0)
+ S ZTIO=DEVICE,ZTDTH=$H,ZTRTN="DQ^RCDPR215",ZTSAVE("RECEIPDA")=RCRECTDA,ZTSAVE("RCTYPE")="A"
+"RTN","RCDPURE1",117,0)
+ D ^%ZTLOAD,^%ZISC
+"RTN","RCDPURE1",118,0)
+Q215 I $G(RCSCREEN) D MSG(" Done.",RCSCREEN)
+"RTN","RCDPURE1",119,0)
+ Q
+"RTN","RCDPURE1",120,0)
+ ;
+"RTN","RCDPURE1",121,0)
+UPDERA(RCERA) ; Update detail posted status for ERA entry RCERA
+"RTN","RCDPURE1",122,0)
+ ;
+"RTN","RCDPURE1",123,0)
+ N DA,DIE,DR
+"RTN","RCDPURE1",124,0)
+ S DA=+$G(RCERA),DR=".14////1",DIE="^RCY(344.4," D:DA ^DIE
+"RTN","RCDPURE1",125,0)
+ Q
+"RTN","RCDPURE1",126,0)
+ ;
+"RTN","RCDPURE1",127,0)
+MSG(RCMSG,RCSCREEN,PRELINE,POSTLINE) ; Write message or set into msg array
+"RTN","RCDPURE1",128,0)
+ ; RCMSG = text to write RCSCREEN = screen flag
+"RTN","RCDPURE1",129,0)
+ ; PRELINE = the line feeds to print before the text
+"RTN","RCDPURE1",130,0)
+ ; POSTLINE = the line feeds to print after the text
+"RTN","RCDPURE1",131,0)
+ Q:'RCSCREEN
+"RTN","RCDPURE1",132,0)
+ N RCPRE,RCPOST,Z
+"RTN","RCDPURE1",133,0)
+ S RCPRE=$L($G(PRELINE),"!")-1,RCPOST=$L($G(POSTLINE),"!")-1
+"RTN","RCDPURE1",134,0)
+ I RCSCREEN=1 D G MSGQ
+"RTN","RCDPURE1",135,0)
+ . F Z=1:1:RCPRE W !
+"RTN","RCDPURE1",136,0)
+ . W RCMSG
+"RTN","RCDPURE1",137,0)
+ . F Z=1:1:RCPOST W !
+"RTN","RCDPURE1",138,0)
+ F Z=1:1:RCPRE S ^TMP($J,"RCDPEMSG",+$O(^TMP("RCDPEMSG",""),-1)+1)=""
+"RTN","RCDPURE1",139,0)
+ S ^TMP($J,"RCDPEMSG",+$O(^TMP("RCDPEMSG",""),-1)+1)=RCMSG
+"RTN","RCDPURE1",140,0)
+ F Z=1:1:RCPOST S ^TMP($J,"RCDPEMSG",+$O(^TMP("RCDPEMSG",""),-1)+1)=""
+"RTN","RCDPURE1",141,0)
+MSGQ Q
+"RTN","RCDPURE1",142,0)
+ ;
+"RTN","RCDPURE1",143,0)
+EDIT4(DA,DR,RCDR1,RCDR2,RCDR3) ; Modify DR string for type of payment edit
+"RTN","RCDPURE1",144,0)
+ ; for EDI Lockbox
+"RTN","RCDPURE1",145,0)
+ ; Input: DA,DR Output: RCDR1,RCDR2,RCDR3
+"RTN","RCDPURE1",146,0)
+ ; If type unchanged, or neither old/new are EDI Lockbox, no chk needed
+"RTN","RCDPURE1",147,0)
+ ; If old type is EDI Lockbox and scratch pad exists, no change allowed
+"RTN","RCDPURE1",148,0)
+ ; If changed to EDI Lockbox and detail already exists, no chg allowed
+"RTN","RCDPURE1",149,0)
+ ; If changed to EDI Lockbox, ask for related EFT
+"RTN","RCDPURE1",150,0)
+ N Z,Z0,RCSTRT,RCLST,RCDR,RCOE,RCNE,RCNO,RCM,RCM1,RCM2,RCM3,RCO4,RCN4,RCP,DIPA
+"RTN","RCDPURE1",151,0)
+ S (RCDR1,RCDR2,RCDR3)=""
+"RTN","RCDPURE1",152,0)
+ ;
+"RTN","RCDPURE1",153,0)
+ S RCP=10 F Z=2:1 Q:DR'[("@"_RCP)&(DR'[("@"_(RCP+1)))&(DR'[("@"_(RCP+2)))&(DR'[("@"_(RCP+3)))&(DR'[("@"_(RCP+4))) S RCP=RCP*Z
+"RTN","RCDPURE1",154,0)
+ ;
+"RTN","RCDPURE1",155,0)
+ S Z=$L(DR,".04;"),RCSTRT=1,RCLST=Z
+"RTN","RCDPURE1",156,0)
+ I Z>2 D ; Find .04, not n.04
+"RTN","RCDPURE1",157,0)
+ . F S Z0=$P(DR,".04;",RCSTRT) Q:Z0=""!'$E(Z0,$L(Z0)) S RCSTRT=RCSTRT+1
+"RTN","RCDPURE1",158,0)
+ ;
+"RTN","RCDPURE1",159,0)
+ ; If unchanged/changed from/to other than EDI Lockbox, jump over edits
+"RTN","RCDPURE1",160,0)
+ S RCDR1="S RCP="_RCP_" D SETV^RCDPURE1;"_$P(DR,".04;",1,RCSTRT)
+"RTN","RCDPURE1",161,0)
+ S RCDR2="@"_RCP_";.04;S RCNO=0,RCN4=X D TYP^RCDPUREC(.Y);.17////^S X=RCNE;S Y=""@"_(RCP+2)_""""
+"RTN","RCDPURE1",162,0)
+ ; Reset field .04 and .17 if not a valid type change
+"RTN","RCDPURE1",163,0)
+ S RCDR2=RCDR2_";@"_(RCP+1)_";.04////^S X=RCO4;I RCOE="""" S Y=""@"_(RCP+3)_""";.17////^S X=RCOE;@"_(RCP+3)_";W !,*7,$S(RCO4=14:$S('RCNO:RCM1,1:RCM2),1:RCM) S Y=""@"_RCP_""";@"_(RCP+2)
+"RTN","RCDPURE1",164,0)
+ S RCDR3=$P(DR,".04;",RCSTRT+1,RCLST)
+"RTN","RCDPURE1",165,0)
+ Q
+"RTN","RCDPURE1",166,0)
+ ;
+"RTN","RCDPURE1",167,0)
+SETV ; Set up variables needed to edit change of receipt type
+"RTN","RCDPURE1",168,0)
+ S DIPA("RCPT")=$G(^RCY(344,DA,0)),RCO4=$P(DIPA("RCPT"),U,4),RCOE=$P(DIPA("RCPT"),U,17)
+"RTN","RCDPURE1",169,0)
+ S RCM="EDI Lockbox payment type is invalid for this receipt",RCM1="Payment type can't be changed once detail has been loaded from the ERA",RCM2="Must have an EFT for an EFT Lockbox payment type"
+"RTN","RCDPURE1",170,0)
+ S RCM3=">>If receipt is for an ERA and a paper check, select the ERA now"
+"RTN","RCDPURE1",171,0)
+ Q
+"RTN","RCDPURE1",172,0)
+ ;
+"RTN","RCDPURE1",173,0)
+WL(DA) ; Function returns 0 if the worklist did not create the receipt
+"RTN","RCDPURE1",174,0)
+ ; or the ien of the worklist entry if it did (344.4 and 344.49 are DINUMED)
+"RTN","RCDPURE1",175,0)
+ N Z
+"RTN","RCDPURE1",176,0)
+ S Z=+$O(^RCY(344.4,"AREC",DA,0))
+"RTN","RCDPURE1",177,0)
+ Q Z
+"RTN","RCDPURE1",178,0)
+ ;
+"RTN","RCDPURE1",179,0)
+HAC(RC) ; Returns 1 if the receipt in RC is related to a HAC EFT
+"RTN","RCDPURE1",180,0)
+ N Z,HAC
+"RTN","RCDPURE1",181,0)
+ S HAC=0
+"RTN","RCDPURE1",182,0)
+ ; ERA related to an EFT detail record
+"RTN","RCDPURE1",183,0)
+ S Z=+$G(^RCY(344.31,+$P($G(^RCY(344,RC,0)),U,17),0))
+"RTN","RCDPURE1",184,0)
+ ; Deposit # in EFT transmission starts with HAC
+"RTN","RCDPURE1",185,0)
+ I Z S Z=$P($G(^RCY(344.3,+Z,0)),U,6) I $E(Z,1,3)="HAC" S HAC=1
+"RTN","RCDPURE1",186,0)
+ Q HAC
+"RTN","RCDPURE1",187,0)
+ ;
+"RTN","RCDPXPAP")
+0^3^B49106296^B46255466
+"RTN","RCDPXPAP",1,0)
+RCDPXPAP ;WISC/RFJ-automatically process the deposits ;1 Jun 99
+"RTN","RCDPXPAP",2,0)
+ ;;4.5;Accounts Receivable;**114,150,206,296**;Mar 20, 1995;Build 24
+"RTN","RCDPXPAP",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","RCDPXPAP",4,0)
+ Q
+"RTN","RCDPXPAP",5,0)
+ ;
+"RTN","RCDPXPAP",6,0)
+ ;
+"RTN","RCDPXPAP",7,0)
+PROCESS(RCDPDATE,RCPAYDA) ; process the deposits
+"RTN","RCDPXPAP",8,0)
+ ; rcdpdate is the transmission date; rcpayda is ien for the payment
+"RTN","RCDPXPAP",9,0)
+ ; type found in ^rc(341.1,rcpayda)
+"RTN","RCDPXPAP",10,0)
+ N DR,PAYDESC,RCDEPDAT,RCDEPOSI,RCDEPTDA,RCDFN,RCDPDATA,RCLINE,RCRECTDA,RCTRANDA,STATUS
+"RTN","RCDPXPAP",11,0)
+ K ^TMP($J,"RCDPXPAP")
+"RTN","RCDPXPAP",12,0)
+ ;
+"RTN","RCDPXPAP",13,0)
+ ; file the data in the payment files 344 and 344.1
+"RTN","RCDPXPAP",14,0)
+ ; tmp global = acct number(1) ^ amount(2) ^ batch#(3) ^ sequence#(4) ^
+"RTN","RCDPXPAP",15,0)
+ ; pay type(5) ^ pay desc fields(6)
+"RTN","RCDPXPAP",16,0)
+ S RCDEPOSI="" F S RCDEPOSI=$O(^TMP($J,"RCDPXPAY","DEPOSIT",RCDEPOSI)) Q:RCDEPOSI="" D
+"RTN","RCDPXPAP",17,0)
+ . S RCDEPDAT=$G(^TMP($J,"RCDPXPAY","DEPDATE",RCDEPOSI))
+"RTN","RCDPXPAP",18,0)
+ . ; *296 - event type 'a' or 't' or 'p' based on the prefix deposit #
+"RTN","RCDPXPAP",19,0)
+ . N RCDETY S RCDETY=+$E(RCDEPOSI,1,3)
+"RTN","RCDPXPAP",20,0)
+ . S RCPAYDA=$S(RCDETY=168:15,RCDETY=169:13,RCDETY=170:16,1:$G(RCPAYDA))
+"RTN","RCDPXPAP",21,0)
+ . ;
+"RTN","RCDPXPAP",22,0)
+ . ; add the deposit if not already in file
+"RTN","RCDPXPAP",23,0)
+ . ; make sure deposit is 6 characters in length
+"RTN","RCDPXPAP",24,0)
+ . S X=$E("000000",1,6-$L(RCDEPOSI))_RCDEPOSI
+"RTN","RCDPXPAP",25,0)
+ . S RCDEPTDA=$$ADDDEPT^RCDPUDEP(X,RCDEPDAT)
+"RTN","RCDPXPAP",26,0)
+ . I 'RCDEPTDA D ERROR^RCDPXPAM(RCDPDATE,RCDPXMZ,"Unable to ADD deposit "_RCDEPOSI_" to the AR DEPOSIT file #344.1") Q
+"RTN","RCDPXPAP",27,0)
+ . ;
+"RTN","RCDPXPAP",28,0)
+ . ; lock deposit
+"RTN","RCDPXPAP",29,0)
+ . L +^RCY(344.1,RCDEPTDA)
+"RTN","RCDPXPAP",30,0)
+ . ; confirm deposit (close it to prevent modifications to it)
+"RTN","RCDPXPAP",31,0)
+ . D CONFIRM^RCDPUDEP(RCDEPTDA)
+"RTN","RCDPXPAP",32,0)
+ . ; store the deposit for unlocking below
+"RTN","RCDPXPAP",33,0)
+ . S ^TMP($J,"RCDPXPAP","DEPOSITLOCK",RCDEPTDA)=""
+"RTN","RCDPXPAP",34,0)
+ . ;
+"RTN","RCDPXPAP",35,0)
+ . ; create receipt for transmission date and deposit
+"RTN","RCDPXPAP",36,0)
+ . S RCRECTDA=$$ADDRECT^RCDPUREC(RCDPDATE,RCDEPTDA,RCPAYDA)
+"RTN","RCDPXPAP",37,0)
+ . I 'RCRECTDA D ERROR^RCDPXPAM(RCDPDATE,RCDPXMZ,"Unable to ADD receipt "_RCDPDATE_" to the AR BATCH PAYMENT file #344") Q
+"RTN","RCDPXPAP",38,0)
+ . ;
+"RTN","RCDPXPAP",39,0)
+ . ; lock receipt
+"RTN","RCDPXPAP",40,0)
+ . L +^RCY(344,RCRECTDA)
+"RTN","RCDPXPAP",41,0)
+ . ; check to see if receipt has been processed (fms document)
+"RTN","RCDPXPAP",42,0)
+ . D DIQ344^RCDPRPLM(RCRECTDA,"200;")
+"RTN","RCDPXPAP",43,0)
+ . ; code sheet already sent once, this is a retransmission, check it
+"RTN","RCDPXPAP",44,0)
+ . I RCDPDATA(344,RCRECTDA,200,"E")'="" D
+"RTN","RCDPXPAP",45,0)
+ . . S STATUS=$$STATUS^GECSSGET(RCDPDATA(344,RCRECTDA,200,"E"))
+"RTN","RCDPXPAP",46,0)
+ . . ; okay to continue if status is Error, Rejected, or not defined (-1)
+"RTN","RCDPXPAP",47,0)
+ . . I $E(STATUS)="E"!($E(STATUS)="R")!(STATUS=-1) Q
+"RTN","RCDPXPAP",48,0)
+ . . S ^TMP($J,"RCDPXPAP","DUPLICATE",RCRECTDA)="Receipt Not Changed^1"
+"RTN","RCDPXPAP",49,0)
+ . I $D(^TMP($J,"RCDPXPAP","DUPLICATE",RCRECTDA)) L -^RCY(344,RCRECTDA) Q
+"RTN","RCDPXPAP",50,0)
+ . ;
+"RTN","RCDPXPAP",51,0)
+ . ; mark receipt as processed (closed) to prevent editing
+"RTN","RCDPXPAP",52,0)
+ . D MARKPROC^RCDPUREC(RCRECTDA,"")
+"RTN","RCDPXPAP",53,0)
+ . ; store the receipt for automatic processing (and unlock) below
+"RTN","RCDPXPAP",54,0)
+ . ; the 0 is the count of unlinked accts displayed in mail message
+"RTN","RCDPXPAP",55,0)
+ . S ^TMP($J,"RCDPXPAP","PROCESS",RCRECTDA)=0
+"RTN","RCDPXPAP",56,0)
+ . ;
+"RTN","RCDPXPAP",57,0)
+ . ; build a list of the current stored payments by batch_sequence
+"RTN","RCDPXPAP",58,0)
+ . ; number to prevent adding duplicates
+"RTN","RCDPXPAP",59,0)
+ . K ^TMP($J,"RCDPXPAP",RCRECTDA)
+"RTN","RCDPXPAP",60,0)
+ . S RCLINE=0 F S RCLINE=$O(^RCY(344,RCRECTDA,1,RCLINE)) Q:'RCLINE D
+"RTN","RCDPXPAP",61,0)
+ . . S RCDPDATA=$G(^RCY(344,RCRECTDA,1,RCLINE,2))
+"RTN","RCDPXPAP",62,0)
+ . . I '$P(RCDPDATA,"^",2)!('$P(RCDPDATA,"^",3)) Q
+"RTN","RCDPXPAP",63,0)
+ . . S ^TMP($J,"RCDPXPAP",RCRECTDA,$P(RCDPDATA,"^",2),$P(RCDPDATA,"^",3))=RCLINE
+"RTN","RCDPXPAP",64,0)
+ . ;
+"RTN","RCDPXPAP",65,0)
+ . ; loop transactions and add them to the receipt
+"RTN","RCDPXPAP",66,0)
+ . S RCLINE=0 F S RCLINE=$O(^TMP($J,"RCDPXPAY","DEPOSIT",RCDEPOSI,RCLINE)) Q:'RCLINE D
+"RTN","RCDPXPAP",67,0)
+ . . ; data in the form:
+"RTN","RCDPXPAP",68,0)
+ . . ; acct lookup(1) ^ amount(2) ^ batch(3) ^ sequence(4) ^
+"RTN","RCDPXPAP",69,0)
+ . . ; payment type(5) ^ payment description(6)
+"RTN","RCDPXPAP",70,0)
+ . . S RCDPDATA=^TMP($J,"RCDPXPAY","DEPOSIT",RCDEPOSI,RCLINE)
+"RTN","RCDPXPAP",71,0)
+ . . ; if batch and sequence number already stored get current entry
+"RTN","RCDPXPAP",72,0)
+ . . ; and do not add a new one
+"RTN","RCDPXPAP",73,0)
+ . . S RCTRANDA=0
+"RTN","RCDPXPAP",74,0)
+ . . I $P(RCDPDATA,"^",3),$P(RCDPDATA,"^",4) S RCTRANDA=+$G(^TMP($J,"RCDPXPAP",RCRECTDA,+$P(RCDPDATA,"^",3),+$P(RCDPDATA,"^",4)))
+"RTN","RCDPXPAP",75,0)
+ . . I 'RCTRANDA S RCTRANDA=+$$ADDTRAN^RCDPURET(RCRECTDA)
+"RTN","RCDPXPAP",76,0)
+ . . I 'RCTRANDA D ERROR^RCDPXPAM(RCDPDATE,RCDPXMZ,"Unable to ADD a new transaction to the AR BATCH PAYMENT file #344") Q
+"RTN","RCDPXPAP",77,0)
+ . . ;
+"RTN","RCDPXPAP",78,0)
+ . . ; if the entry has already been processed, do not make any changes
+"RTN","RCDPXPAP",79,0)
+ . . I $P(^RCY(344,RCRECTDA,1,RCTRANDA,0),"^",5) S:'$D(^TMP($J,"RCDPXPAP","DUPLICATE",RCRECTDA)) ^(RCRECTDA)="Receipt Not Changed" Q
+"RTN","RCDPXPAP",80,0)
+ . . I $D(^TMP($J,"RCDPXPAP","DUPLICATE",RCRECTDA)) S ^(RCRECTDA)="Receipt Updated"
+"RTN","RCDPXPAP",81,0)
+ . . ;
+"RTN","RCDPXPAP",82,0)
+ . . ; lookup account
+"RTN","RCDPXPAP",83,0)
+ . . S RCDFN=$$FINDACCT($P(RCDPDATA,"^"))_";DPT("
+"RTN","RCDPXPAP",84,0)
+ . . ; acct not found, count as unlinked for mail message
+"RTN","RCDPXPAP",85,0)
+ . . I 'RCDFN S ^TMP($J,"RCDPXPAP","PROCESS",RCRECTDA)=^TMP($J,"RCDPXPAP","PROCESS",RCRECTDA)+1
+"RTN","RCDPXPAP",86,0)
+ . . ;
+"RTN","RCDPXPAP",87,0)
+ . . ; build dr string to store the data
+"RTN","RCDPXPAP",88,0)
+ . . S DR=".21////"_$P(RCDPDATA,"^")_";" ;account
+"RTN","RCDPXPAP",89,0)
+ . . I RCDFN S DR=DR_".03////^S X=RCDFN;.09////^S X=RCDFN;"
+"RTN","RCDPXPAP",90,0)
+ . . S DR=DR_".22////"_+$P(RCDPDATA,"^",3)_";" ;batch number
+"RTN","RCDPXPAP",91,0)
+ . . S DR=DR_".23////"_+$P(RCDPDATA,"^",4)_";" ;sequence number
+"RTN","RCDPXPAP",92,0)
+ . . S DR=DR_".24////"_$P(RCDPDATA,"^",5)_";" ;payment type
+"RTN","RCDPXPAP",93,0)
+ . . S DR=DR_".04////"_($P(RCDPDATA,"^",2)/100)_";" ;payment amount
+"RTN","RCDPXPAP",94,0)
+ . . S DR=DR_".06////"_RCDEPDAT_";" ;payment date = deposit date
+"RTN","RCDPXPAP",95,0)
+ . . ;
+"RTN","RCDPXPAP",96,0)
+ . . S PAYDESC=$P(RCDPDATA,"^",6)
+"RTN","RCDPXPAP",97,0)
+ . . ; payment type check
+"RTN","RCDPXPAP",98,0)
+ . . I $P(RCDPDATA,"^",5)=2 D
+"RTN","RCDPXPAP",99,0)
+ . . . ; check number : account number : bank routing number
+"RTN","RCDPXPAP",100,0)
+ . . . I $P(PAYDESC,":")'="" S DR=DR_".07////"_$P(PAYDESC,":")_";"
+"RTN","RCDPXPAP",101,0)
+ . . . I $P(PAYDESC,":",2)'="" S DR=DR_".13////"_$P(PAYDESC,":",2)_";"
+"RTN","RCDPXPAP",102,0)
+ . . . I $P(PAYDESC,":",3)'="" S DR=DR_".08////"_$P(PAYDESC,":",3)_";"
+"RTN","RCDPXPAP",103,0)
+ . . ; payment type credit, store credit card number
+"RTN","RCDPXPAP",104,0)
+ . . I $P(RCDPDATA,"^",5)=3,$P(PAYDESC,":")'="" S DR=DR_".11////"_$P(PAYDESC,":")_";"
+"RTN","RCDPXPAP",105,0)
+ . . ;
+"RTN","RCDPXPAP",106,0)
+ . . ; store the payment under the receipt
+"RTN","RCDPXPAP",107,0)
+ . . D FILETRAN(RCRECTDA,RCTRANDA,DR)
+"RTN","RCDPXPAP",108,0)
+ ;
+"RTN","RCDPXPAP",109,0)
+ ; automatically process the receipts added
+"RTN","RCDPXPAP",110,0)
+ ; ^tmp($j,"rcdpxpap","process",receiptda)=""
+"RTN","RCDPXPAP",111,0)
+ S RCRECTDA=0 F S RCRECTDA=$O(^TMP($J,"RCDPXPAP","PROCESS",RCRECTDA)) Q:'RCRECTDA D
+"RTN","RCDPXPAP",112,0)
+ . D PROCESS^RCDPURE1(RCRECTDA,0)
+"RTN","RCDPXPAP",113,0)
+ . ; clear the lock (set above)
+"RTN","RCDPXPAP",114,0)
+ . L -^RCY(344,RCRECTDA)
+"RTN","RCDPXPAP",115,0)
+ ;
+"RTN","RCDPXPAP",116,0)
+ ; clear all locked deposits
+"RTN","RCDPXPAP",117,0)
+ S RCDEPTDA=0 F S RCDEPTDA=$O(^TMP($J,"RCDPXPAP","DEPOSITLOCK",RCDEPTDA)) Q:'RCDEPTDA D
+"RTN","RCDPXPAP",118,0)
+ . ; confirm deposit (recalc totals)
+"RTN","RCDPXPAP",119,0)
+ . D CONFIRM^RCDPUDEP(RCDEPTDA)
+"RTN","RCDPXPAP",120,0)
+ . L -^RCY(344.1,RCDEPTDA)
+"RTN","RCDPXPAP",121,0)
+ ;
+"RTN","RCDPXPAP",122,0)
+ ; send a message to the users showing what was processed
+"RTN","RCDPXPAP",123,0)
+ D PROCMSG^RCDPXPAM
+"RTN","RCDPXPAP",124,0)
+ ;
+"RTN","RCDPXPAP",125,0)
+ ; need to delete the 344.2 entry
+"RTN","RCDPXPAP",126,0)
+ D DELETRAN^RCDPXPA1(RCDPDATE)
+"RTN","RCDPXPAP",127,0)
+ ;
+"RTN","RCDPXPAP",128,0)
+ K ^TMP($J,"RCDPXPAP")
+"RTN","RCDPXPAP",129,0)
+ Q
+"RTN","RCDPXPAP",130,0)
+ ;
+"RTN","RCDPXPAP",131,0)
+ ;
+"RTN","RCDPXPAP",132,0)
+FINDACCT(ACCT) ; lookup the patient and return the dfn
+"RTN","RCDPXPAP",133,0)
+ ; if more than one patient matches acct, return null
+"RTN","RCDPXPAP",134,0)
+ ; acct in the form 123456789ABCDE
+"RTN","RCDPXPAP",135,0)
+ ; *296 - punctuation added to not process the acct in 9n1.5ap
+"RTN","RCDPXPAP",136,0)
+ I ACCT'?9N1.5AP D Q DFN
+"RTN","RCDPXPAP",137,0)
+ . S DFN=+ACCT I $G(^DPT(DFN,0))'="" Q
+"RTN","RCDPXPAP",138,0)
+ . S DFN=$E(DFN,1,10)_"."_$E(DFN,11,99) I $G(^DPT(DFN,0))'="" Q
+"RTN","RCDPXPAP",139,0)
+ . S DFN=0
+"RTN","RCDPXPAP",140,0)
+ . ;
+"RTN","RCDPXPAP",141,0)
+ N COUNT,DFN,FOUND,NAME,SSN
+"RTN","RCDPXPAP",142,0)
+ S SSN=$E(ACCT,1,9),NAME=$E(ACCT,10,99)
+"RTN","RCDPXPAP",143,0)
+ I SSN="" Q 0
+"RTN","RCDPXPAP",144,0)
+ S NAME=$TR(NAME,"/","'")
+"RTN","RCDPXPAP",145,0)
+ S COUNT=0 ;used to count number of matches
+"RTN","RCDPXPAP",146,0)
+ S FOUND=0 ;used to store matching acct's DFN number
+"RTN","RCDPXPAP",147,0)
+ S DFN=0 F S DFN=$O(^DPT("SSN",SSN,DFN)) Q:'DFN I $E($TR($P($G(^DPT(DFN,0)),"^")," "),1,$L(NAME))=NAME S COUNT=COUNT+1,FOUND=DFN
+"RTN","RCDPXPAP",148,0)
+ ; multiple acct matches, return null
+"RTN","RCDPXPAP",149,0)
+ I COUNT>1 Q 0
+"RTN","RCDPXPAP",150,0)
+ ; acct found, return dfn of account which matches
+"RTN","RCDPXPAP",151,0)
+ I FOUND Q FOUND
+"RTN","RCDPXPAP",152,0)
+ ;
+"RTN","RCDPXPAP",153,0)
+ ; *296 - remove spaces, periods, apostrophes, dashes from the name for treasury/c&p deposits
+"RTN","RCDPXPAP",154,0)
+ ; lookup the first 3 chars in the last name for c&p
+"RTN","RCDPXPAP",155,0)
+ I $G(RCDETY)=168 S NAME=$E(NAME,3,5)
+"RTN","RCDPXPAP",156,0)
+ S NAME=$TR(NAME," .'-")
+"RTN","RCDPXPAP",157,0)
+ S DFN=0 F S DFN=$O(^DPT("SSN",SSN,DFN)) Q:'DFN I $E($TR($P($G(^DPT(DFN,0)),"^")," .'-"),1,$L(NAME))=NAME S COUNT=COUNT+1,FOUND=DFN
+"RTN","RCDPXPAP",158,0)
+ ; multiple acct matches, return null
+"RTN","RCDPXPAP",159,0)
+ I COUNT>1 Q 0
+"RTN","RCDPXPAP",160,0)
+ ; return dfn of account which matches, or 0 if not found
+"RTN","RCDPXPAP",161,0)
+ Q +FOUND
+"RTN","RCDPXPAP",162,0)
+ ;
+"RTN","RCDPXPAP",163,0)
+ ;
+"RTN","RCDPXPAP",164,0)
+FILETRAN(RECTDA,TRANDA,DR) ; file the payment transaction
+"RTN","RCDPXPAP",165,0)
+ N %,D,D0,D1,DA,DI,DIC,DICR,DIE,DIG,DIH,DIU,DIV,DIW,DQ,X,Y
+"RTN","RCDPXPAP",166,0)
+ S (DIC,DIE)="^RCY(344,"_RECTDA_",1,"
+"RTN","RCDPXPAP",167,0)
+ S DA=TRANDA,DA(1)=RECTDA
+"RTN","RCDPXPAP",168,0)
+ D ^DIE
+"RTN","RCDPXPAP",169,0)
+ Q
+"VER")
+8.0^22.0
+"BLD",9385,6)
+^260
+**END**
+**END**
diff --git a/Packages/Accounts Receivable/Patches/PRCA_4.5_296/PRCA-4P5_SEQ-260_PAT-296.TXT b/Packages/Accounts Receivable/Patches/PRCA_4.5_296/PRCA-4P5_SEQ-260_PAT-296.TXT
new file mode 100644
index 0000000..f54471b
--- /dev/null
+++ b/Packages/Accounts Receivable/Patches/PRCA_4.5_296/PRCA-4P5_SEQ-260_PAT-296.TXT
@@ -0,0 +1,243 @@
+$TXT Created by WANG,CHI at MNTVBB.FO-ALBANY.DOMAIN.EXT (KIDS) on Thursday, 06/13/13 at 17:29
+=============================================================================
+Run Date: NOV 18, 2013 Designation: PRCA*4.5*296
+Package : PRCA - ACCOUNTS RECEIVABLE Priority: Mandatory
+Version : 4.5 SEQ #260 Status: Released
+ Compliance Date: DEC 18, 2013
+=============================================================================
+
+Associated patches: (v)PRCA*4.5*206<<= must be installed BEFORE `PRCA*4.5*296'
+ (v)PRCA*4.5*217<<= must be installed BEFORE `PRCA*4.5*296'
+ (v)PRCA*4.5*220<<= must be installed BEFORE `PRCA*4.5*296'
+
+Subject: LOCKBOX CHANGE REQUEST
+
+Category:
+ - Routine
+
+Description:
+============
+
+ This patch addresses two issues.
+
+ The first issue contains two changes to the Automatic Payment Process Server
+ [RCDP AUTOMATIC PAYMENTS] option that processes deposit files containing
+ records of veterans' cash and check payments of their copayment bills to
+ the national Lockbox. VistA Accounts Receivable (AR) will begin to receive
+ new types of deposit files that represent withholdings of VA Compensation
+ and Pension (C&P) benefits or amounts owed to the veteran by the US
+ Treasury. They are then applied to veterans' delinquent accounts in the
+ same manner as cash/check payments.
+
+ The second issue is about the account lookup keys which will be included
+ in the new Treasury and Compensation & Pension (C&P) withholding deposit
+ files to identify the correct veteran in VistA.
+
+ Note *** This patch will allow VistA Accounts Receivable to accept
+ automated TOP (Treasury Offset Program) and C&P (Compensation and
+ Pension) files sent from the DMC. DMC files are generally sent between
+ the 20-25th of each month so installing this patch before then will
+ greatly reduce the amount of work required for your accounting staff.
+
+
+ ASSOCIATED REMEDY TICKETS:
+ ==========================
+ 1. INC000000817917 Accounts Receivable - Lockbox:
+ 2. INC000000850561 Treasury/Lockbox/C&P Deposit issue
+
+
+ ASSOCIATED NSR's:
+ =================
+ N/A
+
+
+ PARTICIPATING TEST SITES:
+ =========================
+ Dublin, GA
+ Heartland West HCS
+ Upstate NY HCS
+
+
+ REMEDY OVERVIEW:
+ ================
+ 1. INC000000817917 Accounts Receivable - Lockbox
+
+ Problem:
+ --------
+ The Chief Business Office (CBO) has requested two changes to the
+ Automatic Payment Process Server [RCDP AUTOMATIC PAYMENTS] option in
+ order to process new types of deposit files that will be transmitted to
+ VistA AR from Debt Management Center (DMC) systems.
+
+ 1. Utilize specific letters for the system-generated receipt number for
+ receipts that store the veterans' withholdings to designate the
+ deposit file type as detailed below:
+
+ Deposit File Type Deposit # Prefix 1st Letter Receipt #
+ ------------------------ ---------------- --------------------
+ DMC (C&P) Offset 168 A
+ Treasury Offset 169 T
+ Other (Cross-Servicing) 170 P
+
+ 2. Suppress the generation of the Cash Receipt document (usually sent to
+ the Financial Management System) for deposit files that represent:
+ (1) Treasury Offset amounts, (2) Compensation & Pension (C&P)
+ withholdings, or (3) Other Collections through the Cross-Servicing
+ program.
+
+ Resolution:
+ -----------
+ 1. Routine RCDPXPAP was modified to retrieve the event number from the
+ file (#341.1) based on the structures as listed below and pass it into
+ the function for the generation of the first letter of the receipt
+ number.
+
+ - When the deposit number begins with '168' (DMC (C&P)), the event
+ number is 15 for the 'ADMINISTRATIVE OFFSET' event type.
+ - When the deposit number begins with '169' (Treasury Offset), the event
+ number is 13 for the 'TOP PAYMENT' event type.
+ - When the deposit number begins with '170' (Other (Crossing-Servicing),
+ the event number is 16 for the 'PRIVATE COLLECTION AGENCY' event type.
+
+ In addition, post-init routine PRCAP296 was created to add two new event
+ types for'DMC (C&P)' offset and 'Other (Cross-Servicing)' offset to the
+ AR Event Type file (#341.1). Routine PRCABJV was also modified to add
+ these new event types in file verification for the [PRCA NIGHTLY PROCESS]
+ Accounts Receivable Nightly Process Background Job option.
+
+ Name Event Number Category
+ ---------------------------- ------------ --------
+ ADMINISTRATIVE OFFSET 15 PAYMENT
+ PRIVATE COLLECTION AGENCY 16 PAYMENT
+
+ 2. Routine RCDPURE1 was modified to suppress the generation of the Cash
+ Receipt (CR) document for those above event types of receipts.
+
+ 2. INC000000850561 Treasury/Lockbox/C&P Deposit issue
+
+ Problem:
+ --------
+ The CBO has requested proper utilization of account lookup keys for the
+ new Treasury and Compensation & Pension (C&P) withholding deposit files
+ to identify the correct veteran in VistA. The account lookup key is a
+ 14-character string that consists of the veteran's social security
+ number, followed by 5 alpha and punctuation characters that represent the
+ veteran's name. The 5 alpha and punctuation characters have the following
+ representations:
+
+ 1. Lockbox deposit file: Characters are the first five characters of the
+ the veteran's last name, including any punctuation characters that are
+ part of that name. This account lookup is currently in use in VistA.
+
+ 2. Treasury deposit file: Characters are the first five characters of the
+ veteran's last name, excluding any punctuation characters that are part
+ of that name.
+
+ 3. C&P deposit file: First position represents the first character of the
+ veteran's first name; second position represents the veteran's middle
+ initial (or a space character if there is no middle initial); last
+ three positions represents the first three characters of the veteran's
+ last name, excluding any punctuation characters that are part of that
+ name.
+
+ Resolution:
+ -----------
+ The account lookup function $$FINDACCT in routine RCDPXPAP was modified to
+ use the representations to check each of the three deposit files and
+ return the associated internal number of the veteran to update the account.
+
+ It also fixed a bug to identify the correct veteran when the account lookup
+ key for the current Lockbox deposit file contains any punctuation
+ characters that are part of the veteran's last name.
+
+ INSTALLATION INSTRUCTIONS
+ =========================
+ It is recommended this patch be installed outside of normal business
+ hours to avoid any complications resulting from users on the system.
+ Installation will take less than 2 minutes.
+
+ 1. LOAD TRANSPORT GLOBAL
+ ---------------------
+ Choose the PackMan message containing this patch and invoke the
+ INSTALL/CHECK MESSAGE PackMan option.
+
+ 2. START UP KIDS
+ -------------
+ Start up the Kernel Installation and Distribution System Menu
+
+ [XPD MAIN]:
+ Edits and Distribution ...
+ Utilities ...
+ Installation ...
+
+ Select Kernel Installation & Distribution System Option: INStallation
+ Load a Distribution
+ Print Transport Global
+ Compare Transport Global to Current System
+ Verify Checksums in Transport Global
+ Install Package(s)
+ Restart Install of Package(s)
+ Unload a Distribution
+ Backup a Transport Global
+
+ 3. Select Installation Option:
+ ---------------------------
+ NOTE: The following are OPTIONAL - (When prompted for the INSTALL
+ NAME, enter PRCA*4.5*296):
+
+ a. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DD's or templates.
+ b. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this patch
+ is installed. It compares all components of this patch
+ (routines, DD's, templates, etc.).
+ c. Verify Checksums in Transport Global - This option will allow
+
+ 4. Select Installation Option: Install Package(s)
+
+ **This is the step to start the installation of this KIDS patch:
+ a. Choose the Install Package(s) option to start the patch install.
+ b. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
+ NO//' answer NO
+ c. When prompted 'Want to DISABLE Scheduled Options, Menu Options,
+ and Protocols? NO//' answer NO
+
+ 5. CLEAN UP POST-INIT ROUTINE
+ --------------------------
+ Optional - Once this patch has been successfully installed you may
+ delete the post-init routine: PRCAP296.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+V ;;4.5;Accounts Receivable;**[Patch List]**;Mar 20, 1995;Build 24
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: PRCABJV
+ Before: B29300227 After: B30084731 **1,48,63,114,141,170,176,173,
+ 192,220,296**
+Routine Name: PRCAP296
+ Before: n/a After: B2847358 **296**
+Routine Name: RCDPURE1
+ Before: B55071399 After: B57024051 **114,148,153,169,204,173,214,
+ 217,296**
+Routine Name: RCDPXPAP
+ Before: B46255466 After: B49106296 **114,150,206,296**
+
+Routine list of preceding patches: 206, 217, 220
+
+=============================================================================
+User Information:
+Entered By : WANG,CHI Date Entered : MAR 12, 2013
+Completed By: LANG,MICKEY Date Completed: NOV 13, 2013
+Released By : MARSHALL,FALENCIA B. Date Released : NOV 18, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/Asists/Patches/OOPS_2.0_25/OOPS-2_SEQ-26_PAT-25.KIDS b/Packages/Asists/Patches/OOPS_2.0_25/OOPS-2_SEQ-26_PAT-25.KIDS
new file mode 100644
index 0000000..9dbd903
--- /dev/null
+++ b/Packages/Asists/Patches/OOPS_2.0_25/OOPS-2_SEQ-26_PAT-25.KIDS
@@ -0,0 +1,1638 @@
+Released OOPS*2*25 SEQ #26
+Extracted from mail message
+**KIDS**:OOPS*2.0*25^
+
+**INSTALL NAME**
+OOPS*2.0*25
+"BLD",9215,0)
+OOPS*2.0*25^ASISTS^0^3130213^y
+"BLD",9215,1,0)
+^^6^6^3130213^
+"BLD",9215,1,1,0)
+This patch addresses the following:
+"BLD",9215,1,2,0)
+
+"BLD",9215,1,3,0)
+-Issues displaying Stations on the "Edit Site Parameter" form
+"BLD",9215,1,4,0)
+-Incident Outcome display order problems
+"BLD",9215,1,5,0)
+-OSHA 300 "Away From Work" and "Job Transfer/Restriction" calculation
+"BLD",9215,1,6,0)
+ issues
+"BLD",9215,4,0)
+^9.64PA^^
+"BLD",9215,6.3)
+4
+"BLD",9215,"KRN",0)
+^9.67PA^779.2^20
+"BLD",9215,"KRN",.4,0)
+.4
+"BLD",9215,"KRN",.401,0)
+.401
+"BLD",9215,"KRN",.402,0)
+.402
+"BLD",9215,"KRN",.403,0)
+.403
+"BLD",9215,"KRN",.5,0)
+.5
+"BLD",9215,"KRN",.84,0)
+.84
+"BLD",9215,"KRN",3.6,0)
+3.6
+"BLD",9215,"KRN",3.8,0)
+3.8
+"BLD",9215,"KRN",9.2,0)
+9.2
+"BLD",9215,"KRN",9.8,0)
+9.8
+"BLD",9215,"KRN",9.8,"NM",0)
+^9.68A^3^3
+"BLD",9215,"KRN",9.8,"NM",1,0)
+OOPSGUI6^^0^B55527418
+"BLD",9215,"KRN",9.8,"NM",2,0)
+OOPSGUIR^^0^B71502420
+"BLD",9215,"KRN",9.8,"NM",3,0)
+OOPSGUIC^^0^B79794142
+"BLD",9215,"KRN",9.8,"NM","B","OOPSGUI6",1)
+
+"BLD",9215,"KRN",9.8,"NM","B","OOPSGUIC",3)
+
+"BLD",9215,"KRN",9.8,"NM","B","OOPSGUIR",2)
+
+"BLD",9215,"KRN",19,0)
+19
+"BLD",9215,"KRN",19.1,0)
+19.1
+"BLD",9215,"KRN",101,0)
+101
+"BLD",9215,"KRN",409.61,0)
+409.61
+"BLD",9215,"KRN",771,0)
+771
+"BLD",9215,"KRN",779.2,0)
+779.2
+"BLD",9215,"KRN",870,0)
+870
+"BLD",9215,"KRN",8989.51,0)
+8989.51
+"BLD",9215,"KRN",8989.52,0)
+8989.52
+"BLD",9215,"KRN",8994,0)
+8994
+"BLD",9215,"KRN","B",.4,.4)
+
+"BLD",9215,"KRN","B",.401,.401)
+
+"BLD",9215,"KRN","B",.402,.402)
+
+"BLD",9215,"KRN","B",.403,.403)
+
+"BLD",9215,"KRN","B",.5,.5)
+
+"BLD",9215,"KRN","B",.84,.84)
+
+"BLD",9215,"KRN","B",3.6,3.6)
+
+"BLD",9215,"KRN","B",3.8,3.8)
+
+"BLD",9215,"KRN","B",9.2,9.2)
+
+"BLD",9215,"KRN","B",9.8,9.8)
+
+"BLD",9215,"KRN","B",19,19)
+
+"BLD",9215,"KRN","B",19.1,19.1)
+
+"BLD",9215,"KRN","B",101,101)
+
+"BLD",9215,"KRN","B",409.61,409.61)
+
+"BLD",9215,"KRN","B",771,771)
+
+"BLD",9215,"KRN","B",779.2,779.2)
+
+"BLD",9215,"KRN","B",870,870)
+
+"BLD",9215,"KRN","B",8989.51,8989.51)
+
+"BLD",9215,"KRN","B",8989.52,8989.52)
+
+"BLD",9215,"KRN","B",8994,8994)
+
+"BLD",9215,"QUES",0)
+^9.62^^
+"BLD",9215,"REQB",0)
+^9.611^2^2
+"BLD",9215,"REQB",1,0)
+OOPS*2.0*24^1
+"BLD",9215,"REQB",2,0)
+OOPS*2.0*20^1
+"BLD",9215,"REQB","B","OOPS*2.0*20",2)
+
+"BLD",9215,"REQB","B","OOPS*2.0*24",1)
+
+"MBREQ")
+0
+"PKG",472,-1)
+1^1
+"PKG",472,0)
+ASISTS^OOPS^Automated Safety Incident Surveillance Tracking System
+"PKG",472,20,0)
+^9.402P^^
+"PKG",472,22,0)
+^9.49I^1^1
+"PKG",472,22,1,0)
+2.0^3020709^3030401^66481
+"PKG",472,22,1,"PAH",1,0)
+25^3130213
+"PKG",472,22,1,"PAH",1,1,0)
+^^6^6^3130213
+"PKG",472,22,1,"PAH",1,1,1,0)
+This patch addresses the following:
+"PKG",472,22,1,"PAH",1,1,2,0)
+
+"PKG",472,22,1,"PAH",1,1,3,0)
+-Issues displaying Stations on the "Edit Site Parameter" form
+"PKG",472,22,1,"PAH",1,1,4,0)
+-Incident Outcome display order problems
+"PKG",472,22,1,"PAH",1,1,5,0)
+-OSHA 300 "Away From Work" and "Job Transfer/Restriction" calculation
+"PKG",472,22,1,"PAH",1,1,6,0)
+ issues
+"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")
+3
+"RTN","OOPSGUI6")
+0^1^B55527418^B53278536
+"RTN","OOPSGUI6",1,0)
+OOPSGUI6 ;WIOFO/LLH-RPC routines for ASISTS Gui ;9/18/01
+"RTN","OOPSGUI6",2,0)
+ ;;2.0;ASISTS;**4,8,7,25**;Jun 03, 2002;Build 4
+"RTN","OOPSGUI6",3,0)
+ ;
+"RTN","OOPSGUI6",4,0)
+UNIGET(RESULTS) ; Returns entries in the Union table
+"RTN","OOPSGUI6",5,0)
+ N DATA,CNT,SUP,UIEN,UNI
+"RTN","OOPSGUI6",6,0)
+ S CNT=0,UNI=""
+"RTN","OOPSGUI6",7,0)
+ F S UNI=$O(^OOPS(2263.7,"B",UNI)) Q:UNI="" D
+"RTN","OOPSGUI6",8,0)
+ .S UIEN=0
+"RTN","OOPSGUI6",9,0)
+ .F S UIEN=$O(^OOPS(2263.7,"B",UNI,UIEN)) Q:UIEN="" D
+"RTN","OOPSGUI6",10,0)
+ ..S DATA=$G(^OOPS(2263.7,UIEN,0))
+"RTN","OOPSGUI6",11,0)
+ ..S SUP=$$GET1^DIQ(200,$P($G(DATA),U,3),.01)
+"RTN","OOPSGUI6",12,0)
+ ..S RESULTS(CNT)=DATA_U_SUP_U_UIEN,CNT=CNT+1
+"RTN","OOPSGUI6",13,0)
+ Q
+"RTN","OOPSGUI6",14,0)
+UNIKILL(RESULTS,INPUT) ;
+"RTN","OOPSGUI6",15,0)
+ ; Input - INPUT contains the IEN for Union to be deleted
+"RTN","OOPSGUI6",16,0)
+ ; Output - RESULTS will contain a message indicating the record
+"RTN","OOPSGUI6",17,0)
+ ; was successfully deleted.
+"RTN","OOPSGUI6",18,0)
+ N DA,DIK
+"RTN","OOPSGUI6",19,0)
+ S RESULTS="No Changes Filed"
+"RTN","OOPSGUI6",20,0)
+ S DIK="^OOPS(2263.7,",DA=INPUT
+"RTN","OOPSGUI6",21,0)
+ D ^DIK
+"RTN","OOPSGUI6",22,0)
+ S RESULTS="Record Successfully Deleted"
+"RTN","OOPSGUI6",23,0)
+ Q
+"RTN","OOPSGUI6",24,0)
+UNIADD ; Files a new record in ^OOPS(2263.7
+"RTN","OOPSGUI6",25,0)
+ N X,DIC,DLAYGO
+"RTN","OOPSGUI6",26,0)
+ K DO
+"RTN","OOPSGUI6",27,0)
+ S DLAYGO=2263.7,DIC="^OOPS(2263.7,",DIC(0)="L",X=NM
+"RTN","OOPSGUI6",28,0)
+ D FILE^DICN
+"RTN","OOPSGUI6",29,0)
+ I Y=-1 S RESULTS="Failed" Q
+"RTN","OOPSGUI6",30,0)
+ S DA=+Y,RESULTS=X_" union added"
+"RTN","OOPSGUI6",31,0)
+ Q
+"RTN","OOPSGUI6",32,0)
+UNIEDT(RESULTS,INPUT) ; Edits the input in ^OOPS(2263.7
+"RTN","OOPSGUI6",33,0)
+ ; Input - INPUT contains the IEN of Union to be edited or NULL if a
+"RTN","OOPSGUI6",34,0)
+ ; new union is being added. Also has the Union Name,
+"RTN","OOPSGUI6",35,0)
+ ; Acronym, and Representative in the format:
+"RTN","OOPSGUI6",36,0)
+ ; IEN^UNION NAME^UNION ACRONYM^UNION REP
+"RTN","OOPSGUI6",37,0)
+ ; Output - RESULTS contains a status message regarding the filing of
+"RTN","OOPSGUI6",38,0)
+ ; the data
+"RTN","OOPSGUI6",39,0)
+ N DA,DIE,DR,IEN,NM,ACR,REP
+"RTN","OOPSGUI6",40,0)
+ S RESULTS="No Changes Filed"
+"RTN","OOPSGUI6",41,0)
+ S DIE="^OOPS(2263.7,",IEN=$P($G(INPUT),U),NM=$P($G(INPUT),U,2)
+"RTN","OOPSGUI6",42,0)
+ I $G(NM)="" Q
+"RTN","OOPSGUI6",43,0)
+ I $G(IEN)="" D UNIADD S IEN=DA
+"RTN","OOPSGUI6",44,0)
+ I RESULTS="Failed" Q
+"RTN","OOPSGUI6",45,0)
+ S ACR=$P($G(INPUT),U,3),REP=$P($G(INPUT),U,4)
+"RTN","OOPSGUI6",46,0)
+ S DA=IEN,DR=".01///^S X=NM;1///^S X=ACR;2///^S X=REP"
+"RTN","OOPSGUI6",47,0)
+ D ^DIE
+"RTN","OOPSGUI6",48,0)
+ I $G(Y)="" D Q
+"RTN","OOPSGUI6",49,0)
+ .;if next line executed, then straight edit, not an add
+"RTN","OOPSGUI6",50,0)
+ .I RESULTS="No Changes Filed" S RESULTS="Union Update Successful."
+"RTN","OOPSGUI6",51,0)
+ S RESULTS="Union Update NOT Successful."
+"RTN","OOPSGUI6",52,0)
+ Q
+"RTN","OOPSGUI6",53,0)
+SITEPGET(RESULTS,FORM) ;
+"RTN","OOPSGUI6",54,0)
+ ; Input - FORM = contains either a blank for 'normal' site parameter
+"RTN","OOPSGUI6",55,0)
+ ; look ups or 'OSHA300' if for the OSHA 300A summary input
+"RTN","OOPSGUI6",56,0)
+ ; Output - RESULTS is an array whose 0 node contains the Site
+"RTN","OOPSGUI6",57,0)
+ ; parameter name, IEN, and District Office in the format:
+"RTN","OOPSGUI6",58,0)
+ ; SITE NAME^DISTRICT OFFICE^SITE IEN
+"RTN","OOPSGUI6",59,0)
+ ; Subsequent nodes starting from 1 contain Station information
+"RTN","OOPSGUI6",60,0)
+ ; in the following format:
+"RTN","OOPSGUI6",61,0)
+ ; STANM_U_PNM_U_PADD_U_PCTY_U_PST_U_PZIP_U_PTITLE_
+"RTN","OOPSGUI6",62,0)
+ ; U_CHGBKCODE_U_SUB_U_STA
+"RTN","OOPSGUI6",63,0)
+ N CNT,DOFF,IENS,SIEN,STA,SUB,SNAME,STR,STR2,CBCSUF,OOPSST
+"RTN","OOPSGUI6",64,0)
+ S SIEN=$P($G(^OOPS(2262,0)),U,3)
+"RTN","OOPSGUI6",65,0)
+ N CBC,STANM,STATION,PNM,PADD,PCTY,PST,PZIP,PTITLE
+"RTN","OOPSGUI6",66,0)
+ S (CBC,STATION,PNM,PADD,PCTY,PST,PZIP,PTITLE)=""
+"RTN","OOPSGUI6",67,0)
+ N NA,TTL,PHN,EXT,IND,NAICS,SIC
+"RTN","OOPSGUI6",68,0)
+ S (NA,TTL,PHN,EXT,IND,NAICS,SIC)=""
+"RTN","OOPSGUI6",69,0)
+ I '$G(SIEN) S RESULTS(0)="No Site Parameter File was Found" Q
+"RTN","OOPSGUI6",70,0)
+ L +^OOPS(2262,SIEN):2
+"RTN","OOPSGUI6",71,0)
+ E S RESULTS(0)="This option in use by another user, try again later." Q
+"RTN","OOPSGUI6",72,0)
+ S SNAME=$$GET1^DIQ(2262,SIEN,.01),DOFF=$$GET1^DIQ(2262,SIEN,2,"E")
+"RTN","OOPSGUI6",73,0)
+ S RESULTS(0)=SNAME_U_DOFF_U_SIEN
+"RTN","OOPSGUI6",74,0)
+ S CNT=1,SUB=""
+"RTN","OOPSGUI6",75,0)
+ F S SUB=$O(^OOPS(2262,SIEN,SUB)) Q:SUB="" S STA=0 D
+"RTN","OOPSGUI6",76,0)
+ .F S STA=$O(^OOPS(2262,SIEN,SUB,STA)) Q:STA'>0 D
+"RTN","OOPSGUI6",77,0)
+ ..S STR=$G(^OOPS(2262,SIEN,SUB,STA,0)),IENS=STA_","_SUB_","
+"RTN","OOPSGUI6",78,0)
+ ..S STR2=$G(^OOPS(2262,SIEN,SUB,STA,1))
+"RTN","OOPSGUI6",79,0)
+ ..S STATION=$$GET1^DIQ(2262.03,IENS,".01:99")
+"RTN","OOPSGUI6",80,0)
+ ..S STANM=$$GET1^DIQ(2262.03,IENS,.01)_" = "_STATION
+"RTN","OOPSGUI6",81,0)
+ ..;RRA OOPS*25 - 781436 after STA is sent back as null STA needs to be
+"RTN","OOPSGUI6",82,0)
+ ..;set back to original value for proper "$O"rdering.
+"RTN","OOPSGUI6",83,0)
+ ..; Patch 5 llh - if station inactive blank STA
+"RTN","OOPSGUI6",84,0)
+ ..I $$GET1^DIQ(4,$P(STR,U),101)'="" S OOPSST=STA,STA=""
+"RTN","OOPSGUI6",85,0)
+ ..I $G(FORM)="" D
+"RTN","OOPSGUI6",86,0)
+ ...S PNM=$P(STR,U,2),PADD=$P(STR,U,3),PCTY=$P(STR,U,4),PZIP=$P(STR,U,6)
+"RTN","OOPSGUI6",87,0)
+ ...I $P(STR,U,5)'="" S PST=$$GET1^DIQ(2262.03,IENS,4)
+"RTN","OOPSGUI6",88,0)
+ ...I $P(STR,U,7)'="" S PTITLE=$$GET1^DIQ(2262.03,IENS,6)
+"RTN","OOPSGUI6",89,0)
+ ...S CBC=$P(STR,U,8) I $G(CBC)'="" S CBC=$$GET1^DIQ(2263.6,CBC,.01)
+"RTN","OOPSGUI6",90,0)
+ ...;Patch 5 llh - added CBCSUF sets
+"RTN","OOPSGUI6",91,0)
+ ...S CBCSUF=$P(STR,U,9)
+"RTN","OOPSGUI6",92,0)
+ ...S RESULTS(CNT)=STANM_U_PNM_U_PADD_U_PCTY_U_PST_U_PZIP_U_PTITLE_U_CBC_U_SUB_U_STA_U_CBCSUF
+"RTN","OOPSGUI6",93,0)
+ ..I $G(FORM)="OSHA300" D
+"RTN","OOPSGUI6",94,0)
+ ...I $P(STR2,U,1)'="" S NA=$$GET1^DIQ(2262.03,IENS,7)
+"RTN","OOPSGUI6",95,0)
+ ...S TTL=$P(STR2,U,2),PHN=$P(STR2,U,3),EXT=$P(STR2,U,4)
+"RTN","OOPSGUI6",96,0)
+ ...S IND=$P(STR2,U,5),SIC=$$GET1^DIQ(2262.03,IENS,12)
+"RTN","OOPSGUI6",97,0)
+ ...S NAICS=$$GET1^DIQ(2262.03,IENS,13)
+"RTN","OOPSGUI6",98,0)
+ ...S RESULTS(CNT)=STANM_U_NA_U_TTL_U_PHN_U_EXT_U_IND_U_SIC_U_NAICS_U_SUB_U_STA_U_$P(STR,U,1)_U
+"RTN","OOPSGUI6",99,0)
+ ..I $G(FORM)="" S (STANM,PNM,PADD,PCTY,PST,PZIP,PTITLE,CBC,CBCSUF)=""
+"RTN","OOPSGUI6",100,0)
+ ..E S (NA,TTL,PHN,EXT,IND,NAICS,SIC)=""
+"RTN","OOPSGUI6",101,0)
+ ..I STA="" S STA=OOPSST
+"RTN","OOPSGUI6",102,0)
+ ..S CNT=CNT+1
+"RTN","OOPSGUI6",103,0)
+ L -^OOPS(2262,SIEN)
+"RTN","OOPSGUI6",104,0)
+ Q
+"RTN","OOPSGUI6",105,0)
+SITEPADD ; Creates a new Station Subfile in the Site Parameter
+"RTN","OOPSGUI6",106,0)
+ ; File (#2262
+"RTN","OOPSGUI6",107,0)
+ N X,DIC,DLAYGO
+"RTN","OOPSGUI6",108,0)
+ S DLAYGO=2262,DIC="^OOPS(2262,"_SIEN_","_SUBF_",",DIC(0)="L"
+"RTN","OOPSGUI6",109,0)
+ S DA(1)=SIEN,X=STANM
+"RTN","OOPSGUI6",110,0)
+ D FILE^DICN
+"RTN","OOPSGUI6",111,0)
+ I Y=-1 S RESULTS="Failed" Q
+"RTN","OOPSGUI6",112,0)
+ S DA=+Y,RESULTS="Successfully Added"
+"RTN","OOPSGUI6",113,0)
+ Q
+"RTN","OOPSGUI6",114,0)
+SITEPKIL(RESULTS,INPUT) ; Deletes the Station Subfile whose IEN was passed in
+"RTN","OOPSGUI6",115,0)
+ ; Input - INPUT contains the Site Parameter file IEN, the subfile IEN,
+"RTN","OOPSGUI6",116,0)
+ ; and the Station IEN in the format: SIEN^SUBF^STAIEN
+"RTN","OOPSGUI6",117,0)
+ ; Output - RESULTS contains a message with the filing status
+"RTN","OOPSGUI6",118,0)
+ N DA,DIK,SIEN,SUBF,STAIEN
+"RTN","OOPSGUI6",119,0)
+ S SIEN=$P($G(INPUT),U),SUBF=$P($G(INPUT),U,2),STAIEN=$P($G(INPUT),U,3)
+"RTN","OOPSGUI6",120,0)
+ I $G(SIEN)=""!($G(SUBF)="")!($G(STAIEN)="") D Q
+"RTN","OOPSGUI6",121,0)
+ .S RESULTS="Missing Record Identifiers, Cannot file."
+"RTN","OOPSGUI6",122,0)
+ S DIK="^OOPS(2262,"_SIEN_","_SUBF_","
+"RTN","OOPSGUI6",123,0)
+ S DA=STAIEN,DA(1)=SIEN
+"RTN","OOPSGUI6",124,0)
+ D ^DIK
+"RTN","OOPSGUI6",125,0)
+ I $G(Y)="" S RESULTS="Deletion did not occur." Q
+"RTN","OOPSGUI6",126,0)
+ S RESULTS="Record successfully deleted"
+"RTN","OOPSGUI6",127,0)
+ Q
+"RTN","OOPSGUI6",128,0)
+SITEPEDT(RESULTS,INPUT,DATA,FORM) ;
+"RTN","OOPSGUI6",129,0)
+ ; Edits the Station Subfile whose data and IEN have been passed in
+"RTN","OOPSGUI6",130,0)
+ ; Input - INPUT contains the IEN of the Site Parameter file, subfile
+"RTN","OOPSGUI6",131,0)
+ ; & Station IEN. If adding new station, the Station IEN
+"RTN","OOPSGUI6",132,0)
+ ; = "". INPUT format: SITE IEN^SUBFILE IEN^STATION IEN
+"RTN","OOPSGUI6",133,0)
+ ; DATA contains the data to be filed
+"RTN","OOPSGUI6",134,0)
+ ; FORM is either "" or "OSHA300" to signify data for filing
+"RTN","OOPSGUI6",135,0)
+ ; Output - RESULTS is a single value with a message regarding the
+"RTN","OOPSGUI6",136,0)
+ ; filing status
+"RTN","OOPSGUI6",137,0)
+ N CBC,DA,DIE,DR,PNM,PADD,PCTY,PST,PZIP,PTITLE,SIEN,SUBF,CBCSUF
+"RTN","OOPSGUI6",138,0)
+ N STANM,STAIEN,NA,TTL,PHN,EXT,IND,SIC,NAICS
+"RTN","OOPSGUI6",139,0)
+ S RESULTS="Filing"
+"RTN","OOPSGUI6",140,0)
+ S SIEN=$P($G(INPUT),U),SUBF=$P($G(INPUT),U,2),STAIEN=$P($G(INPUT),U,3)
+"RTN","OOPSGUI6",141,0)
+ I $G(SIEN)="" S RESULTS="Missing Record Identifiers, Cannot file." Q
+"RTN","OOPSGUI6",142,0)
+ I '$G(SUBF) S SUBF=$O(^OOPS(2262,SIEN,0)) I '$G(SUBF) S SUBF=1
+"RTN","OOPSGUI6",143,0)
+ S STANM=$P($G(DATA),U)
+"RTN","OOPSGUI6",144,0)
+ I $G(STANM)="" S RESULTS="Missing Station, Cannot continue." Q
+"RTN","OOPSGUI6",145,0)
+ I $G(STAIEN)="" D SITEPADD S STAIEN=DA
+"RTN","OOPSGUI6",146,0)
+ I $G(STAIEN)="" S RESULTS="Missing Station, cannot file." Q
+"RTN","OOPSGUI6",147,0)
+ S DIE="^OOPS(2262,"_SIEN_","_SUBF_","
+"RTN","OOPSGUI6",148,0)
+ S DA=STAIEN,DA(1)=SIEN,DR=""
+"RTN","OOPSGUI6",149,0)
+ I $G(FORM)="" D
+"RTN","OOPSGUI6",150,0)
+ .S PNM=$P($G(DATA),U,2),PADD=$P($G(DATA),U,3)
+"RTN","OOPSGUI6",151,0)
+ .S PCTY=$P($G(DATA),U,4),PST=$P($G(DATA),U,5),PZIP=$P($G(DATA),U,6)
+"RTN","OOPSGUI6",152,0)
+ .S PTITLE=$P($G(DATA),U,7),CBC=$P($G(DATA),U,8)
+"RTN","OOPSGUI6",153,0)
+ .; Patch 5 llh - Added CBCSUF sets
+"RTN","OOPSGUI6",154,0)
+ .S CBCSUF=$P($G(DATA),U,9)
+"RTN","OOPSGUI6",155,0)
+ .S DR=".7///^S X=CBC;.8///^S X=CBCSUF;1///^S X=PNM;2///^S X=PADD;3///^S X=PCTY;4///^S X=PST;5///^S X=PZIP;6///^S X=PTITLE"
+"RTN","OOPSGUI6",156,0)
+ I $G(FORM)="OSHA300" D
+"RTN","OOPSGUI6",157,0)
+ .S NA=$P($G(DATA),U,2),TTL=$P($G(DATA),U,3),PHN=$P($G(DATA),U,4)
+"RTN","OOPSGUI6",158,0)
+ .S EXT=$P($G(DATA),U,5),IND=$P($G(DATA),U,6),SIC=$P($G(DATA),U,7)
+"RTN","OOPSGUI6",159,0)
+ .S NAICS=$P($G(DATA),U,8)
+"RTN","OOPSGUI6",160,0)
+ .S DR="7///^S X=NA;8///^S X=TTL;9///^S X=PHN;10///^S X=EXT"
+"RTN","OOPSGUI6",161,0)
+ .S DR=DR_";11///^S X=IND;12///^S X=SIC;13///^S X=NAICS"
+"RTN","OOPSGUI6",162,0)
+ I $G(DR)'="" D ^DIE
+"RTN","OOPSGUI6",163,0)
+ I $G(Y)="" D Q
+"RTN","OOPSGUI6",164,0)
+ .; if line below executed, then no Add, only edit
+"RTN","OOPSGUI6",165,0)
+ .I RESULTS="Filing" S RESULTS="Update Successful"
+"RTN","OOPSGUI6",166,0)
+ S RESULTS="Update was not Successful"
+"RTN","OOPSGUI6",167,0)
+ Q
+"RTN","OOPSGUI6",168,0)
+PARMEDT(RESULTS,INPUT) ; Files changes to top level file (#2262)
+"RTN","OOPSGUI6",169,0)
+ ; Input: INPUT - This variable contains the IEN, Site Name, and
+"RTN","OOPSGUI6",170,0)
+ ; District Office Name to be filed in the format:
+"RTN","OOPSGUI6",171,0)
+ ; IEN^SITE NAME^DISTRICT OFFICE
+"RTN","OOPSGUI6",172,0)
+ ; Output: RESULTS - Results will contain a filing status message
+"RTN","OOPSGUI6",173,0)
+ N DA,DIE,DR,IEN,SITENM,DISOFF
+"RTN","OOPSGUI6",174,0)
+ S IEN=$P($G(INPUT),U),SITENM=$P($G(INPUT),U,2),DISOFF=$P($G(INPUT),U,3)
+"RTN","OOPSGUI6",175,0)
+ I '$G(IEN) S RESULTS="Cannot File Changes, no Record Number" Q
+"RTN","OOPSGUI6",176,0)
+ S DIE="^OOPS(2262,",DA=IEN
+"RTN","OOPSGUI6",177,0)
+ S DR=".01///^S X=SITENM;2///^S X=DISOFF"
+"RTN","OOPSGUI6",178,0)
+ D ^DIE
+"RTN","OOPSGUI6",179,0)
+ I $G(Y)="" S RESULTS="Update Site data Successful" Q
+"RTN","OOPSGUI6",180,0)
+ S RESULTS="Update Site data was NOT Successful"
+"RTN","OOPSGUI6",181,0)
+ Q
+"RTN","OOPSGUI6",182,0)
+CHGCASE(RESULTS,INPUT,FLD58) ; File Change Case Status
+"RTN","OOPSGUI6",183,0)
+ ; Input: INPUT - IEN^STAT where IEN = the ASISTS case IEN and
+"RTN","OOPSGUI6",184,0)
+ ; STAT = the new case status
+"RTN","OOPSGUI6",185,0)
+ ; DELETE - Reason for Deletion, field #58, file #2260
+"RTN","OOPSGUI6",186,0)
+ ; Output: RESULTS - Message back to client with new Case Status
+"RTN","OOPSGUI6",187,0)
+ ;
+"RTN","OOPSGUI6",188,0)
+ N CURRENT,DR,DIE,IEN,Y,STATUS
+"RTN","OOPSGUI6",189,0)
+ S IEN=$P(INPUT,U),(STATUS,Y)=$P(INPUT,U,2)
+"RTN","OOPSGUI6",190,0)
+ I '$G(IEN) S RESULTS="Missing Record Identifier, cannot file." Q
+"RTN","OOPSGUI6",191,0)
+ I $$GET1^DIQ(2260,IEN,66)'="",(Y=2) D Q
+"RTN","OOPSGUI6",192,0)
+ .S RESULTS="Case transmitted to DOL, cannot change status to Deleted."
+"RTN","OOPSGUI6",193,0)
+ S CURRENT=$$GET1^DIQ(2260,IEN,51,"I")
+"RTN","OOPSGUI6",194,0)
+CLOSE ; Close
+"RTN","OOPSGUI6",195,0)
+ S DR=""
+"RTN","OOPSGUI6",196,0)
+ S DR="51////"_Y
+"RTN","OOPSGUI6",197,0)
+ ;If current status goes from closed/deleted to Open, reset field 57
+"RTN","OOPSGUI6",198,0)
+ I (CURRENT=1!(CURRENT=2)),(Y=0) S DR=DR_";57////@"
+"RTN","OOPSGUI6",199,0)
+ I FLD58]"" S DR=DR_";58////"_FLD58
+"RTN","OOPSGUI6",200,0)
+ S DIE="^OOPS(2260,",DA=IEN
+"RTN","OOPSGUI6",201,0)
+ D ^DIE K DIE,DA
+"RTN","OOPSGUI6",202,0)
+ I $D(Y)'=0 Q
+"RTN","OOPSGUI6",203,0)
+ S RESULTS="Case Status has been changed to: "_$$GET1^DIQ(2260,IEN,51)
+"RTN","OOPSGUI6",204,0)
+ ;01/02/04 Patch 4 llh- if case = closed, send bulletin
+"RTN","OOPSGUI6",205,0)
+ I STATUS=1 D CLSCASE^OOPSMBUL(IEN)
+"RTN","OOPSGUI6",206,0)
+ Q
+"RTN","OOPSGUIC")
+0^3^B79794142^B66128626
+"RTN","OOPSGUIC",1,0)
+OOPSGUIC ;WIOFO/LLH-RPC routine for GET/SET CA7 ;04/22/04
+"RTN","OOPSGUIC",2,0)
+ ;;2.0;ASISTS;**8,7,23,24,25**;Jun 03, 2002;Build 4
+"RTN","OOPSGUIC",3,0)
+ ;
+"RTN","OOPSGUIC",4,0)
+CA7LIST(RESULTS,PERSON,CALL) ; builds CA-7 selection list from existing
+"RTN","OOPSGUIC",5,0)
+ ; cases - not an add
+"RTN","OOPSGUIC",6,0)
+ ;
+"RTN","OOPSGUIC",7,0)
+ ; Input: PERSON - person's SSN whether CALL="E" or "W"
+"RTN","OOPSGUIC",8,0)
+ ; CALL - contains the calling menu and file number in the
+"RTN","OOPSGUIC",9,0)
+ ; format FILENUM^CALL.
+"RTN","OOPSGUIC",10,0)
+ ; Output: RESULTS - returns an array containing
+"RTN","OOPSGUIC",11,0)
+ ; CA7 case #^IEN^DATE OF INCIDENT
+"RTN","OOPSGUIC",12,0)
+ K ^TMP("CA7LIST",DUZ)
+"RTN","OOPSGUIC",13,0)
+ N ARR,CA7,CAIEN,CALLER,ESSN,FILE
+"RTN","OOPSGUIC",14,0)
+ S FILE=$P($G(CALL),U),CALLER=$P($G(CALL),U,2)
+"RTN","OOPSGUIC",15,0)
+ I $G(PERSON)=""!($G(CALL)="")!($G(FILE)="") D Q
+"RTN","OOPSGUIC",16,0)
+ . S ^TMP("CA7LIST",DUZ,1)="Not enough info - can't process request"
+"RTN","OOPSGUIC",17,0)
+ S CAIEN=0,^TMP("CA7LIST",DUZ,1)="No CA-7's Selectable"
+"RTN","OOPSGUIC",18,0)
+ S ESSN=$$GET1^DIQ(200,DUZ,9)
+"RTN","OOPSGUIC",19,0)
+ I CALLER="E",ESSN'=PERSON D Q
+"RTN","OOPSGUIC",20,0)
+ .S ^TMP("CA7LIST",DUZ,1)="User SSN, file SSN do not match-form aborted"
+"RTN","OOPSGUIC",21,0)
+ F S CAIEN=$O(^OOPS(FILE,"SSN",PERSON,CAIEN)) Q:CAIEN="" D
+"RTN","OOPSGUIC",22,0)
+ .;if from emp menu & signed by both, don't give access
+"RTN","OOPSGUIC",23,0)
+ .I CALLER="E",$P($G(^OOPS(FILE,CAIEN,"CA7S7")),U,2)'="",($P($G(^OOPS(FILE,CAIEN,"CA7S15")),U,2)'="") Q
+"RTN","OOPSGUIC",24,0)
+ .I CALLER="W",(ESSN=PERSON) Q
+"RTN","OOPSGUIC",25,0)
+ .S CA7=$$GET1^DIQ(FILE,CAIEN,.01),ARR(CA7)=CAIEN
+"RTN","OOPSGUIC",26,0)
+ ; drop thru here and
+"RTN","OOPSGUIC",27,0)
+SORT ; reverse the order
+"RTN","OOPSGUIC",28,0)
+ N CN,CA7,CAIEN,DOI,NM,SSN
+"RTN","OOPSGUIC",29,0)
+ S ^TMP("CA7LIST",DUZ,0)="",CN=1,CA7=""
+"RTN","OOPSGUIC",30,0)
+ I '$D(ARR) S ^TMP("CA7LIST",DUZ,1)="No CA7's Selectable"
+"RTN","OOPSGUIC",31,0)
+ F S CA7=$O(ARR(CA7),-1) Q:CA7="" D
+"RTN","OOPSGUIC",32,0)
+ .S CAIEN=ARR(CA7)
+"RTN","OOPSGUIC",33,0)
+ .S ASISTS=$$GET1^DIQ(2260,$$GET1^DIQ(FILE,CAIEN,.7,"I"),52,"I")
+"RTN","OOPSGUIC",34,0)
+ .S ASISTS="CA-"_$G(ASISTS)
+"RTN","OOPSGUIC",35,0)
+ .S NM=$E($$GET1^DIQ(FILE,CAIEN,.9),1,27)
+"RTN","OOPSGUIC",36,0)
+ .S DOI=$$GET1^DIQ(FILE,CAIEN,7)
+"RTN","OOPSGUIC",37,0)
+ .S SSN=$$GET1^DIQ(FILE,CAIEN,.8)
+"RTN","OOPSGUIC",38,0)
+ .S ^TMP("CA7LIST",DUZ,CN)=CA7_U_DOI_U_NM_U_ASISTS_U_CAIEN_U_SSN_$C(10)
+"RTN","OOPSGUIC",39,0)
+ .S CN=CN+1
+"RTN","OOPSGUIC",40,0)
+ ; then quit
+"RTN","OOPSGUIC",41,0)
+ S RESULTS=$NA(^TMP("CA7LIST",DUZ))
+"RTN","OOPSGUIC",42,0)
+ Q
+"RTN","OOPSGUIC",43,0)
+LISTCA(RESULTS,INPUT) ; returns a list of valid CA (1 or 2) claims that
+"RTN","OOPSGUIC",44,0)
+ ; can be selected to create a new CA-7
+"RTN","OOPSGUIC",45,0)
+ ; Input: INPUT - 3 pieces to input parameter
+"RTN","OOPSGUIC",46,0)
+ ; SSN^FILE^CALLER - CALLER contains either E
+"RTN","OOPSGUIC",47,0)
+ ; or W (menu called from).
+"RTN","OOPSGUIC",48,0)
+ ; FILE now only contains 2260 (for CA-1 or 2)
+"RTN","OOPSGUIC",49,0)
+ ; Output: RESULTS - contains a array of ASISTS Claims with the
+"RTN","OOPSGUIC",50,0)
+ ; claim number, name, and date of injury. Other
+"RTN","OOPSGUIC",51,0)
+ ; default fields returned are, grade, step, pay amt,
+"RTN","OOPSGUIC",52,0)
+ ; pay period, FEGLI Code, and Health Ins.
+"RTN","OOPSGUIC",53,0)
+ ;
+"RTN","OOPSGUIC",54,0)
+ K ^TMP("LISTCA",DUZ)
+"RTN","OOPSGUIC",55,0)
+ N ARR,CAIEN,CALLER,CAIEN,CN,CNUM,DOI,FILE,INJ,NM,PAR,PDFLD,SSN
+"RTN","OOPSGUIC",56,0)
+ S PAR=$P($G(INPUT),U),FILE=$P($G(INPUT),U,2),CALLER=$P($G(INPUT),U,3)
+"RTN","OOPSGUIC",57,0)
+ I $G(PAR)=""!($G(FILE)="")!($G(CALLER)="") D Q
+"RTN","OOPSGUIC",58,0)
+ .S ^TMP("LISTCA",DUZ,0)="Missing parameters - cannot continue"
+"RTN","OOPSGUIC",59,0)
+ S CAIEN=0
+"RTN","OOPSGUIC",60,0)
+ F S CAIEN=$O(^OOPS(FILE,"SSN",PAR,CAIEN)) Q:CAIEN="" D
+"RTN","OOPSGUIC",61,0)
+ .I '$$INCLUDE() Q
+"RTN","OOPSGUIC",62,0)
+ .I CALLER="E",($$GET1^DIQ(200,DUZ,9)'=PAR) Q
+"RTN","OOPSGUIC",63,0)
+ .I CALLER="W",($$GET1^DIQ(200,DUZ,9)=PAR) Q
+"RTN","OOPSGUIC",64,0)
+ .S CNUM=$$GET1^DIQ(FILE,CAIEN,.01),ARR(CNUM)=CAIEN
+"RTN","OOPSGUIC",65,0)
+ ; No cases to send back
+"RTN","OOPSGUIC",66,0)
+ I '$D(ARR) D Q
+"RTN","OOPSGUIC",67,0)
+ .S ^TMP("LISTCA",DUZ,1)="No Cases Selectable"
+"RTN","OOPSGUIC",68,0)
+ .S RESULTS=$NA(^TMP("LISTCA",DUZ))
+"RTN","OOPSGUIC",69,0)
+ ; get reverse order
+"RTN","OOPSGUIC",70,0)
+ S CNUM="",CN=1
+"RTN","OOPSGUIC",71,0)
+ F S CNUM=$O(ARR(CNUM),-1) Q:CNUM="" D
+"RTN","OOPSGUIC",72,0)
+ .S CAIEN=ARR(CNUM)
+"RTN","OOPSGUIC",73,0)
+ .S NM=$$GET1^DIQ(FILE,CAIEN,1)
+"RTN","OOPSGUIC",74,0)
+ .S DOI=$$GET1^DIQ(FILE,CAIEN,4)
+"RTN","OOPSGUIC",75,0)
+ .S SSN=$TR($$GET1^DIQ(FILE,CAIEN,5),"-","")
+"RTN","OOPSGUIC",76,0)
+ .S GRD=$$GET1^DIQ(FILE,CAIEN,16)
+"RTN","OOPSGUIC",77,0)
+ .S STP=$$GET1^DIQ(FILE,CAIEN,17)
+"RTN","OOPSGUIC",78,0)
+ .S INJ=$$GET1^DIQ(FILE,CAIEN,52)
+"RTN","OOPSGUIC",79,0)
+ .S RET=$$GET1^DIQ(FILE,CAIEN,60)
+"RTN","OOPSGUIC",80,0)
+ .S PAY=$$GET1^DIQ(FILE,CAIEN,166)
+"RTN","OOPSGUIC",81,0)
+ .S PER=$$GET1^DIQ(FILE,CAIEN,167)
+"RTN","OOPSGUIC",82,0)
+ .; only need to do this 1 time, should never have but 1 different
+"RTN","OOPSGUIC",83,0)
+ .; person in this list, many claims but all for the same person
+"RTN","OOPSGUIC",84,0)
+ .I CN=1 S PDFLD=$$PDDEF()
+"RTN","OOPSGUIC",85,0)
+ .S STR=CNUM_U_DOI_U_NM_U_CAIEN_U_SSN_U_INJ_U_GRD_U_STP_U_PAY_U_PER
+"RTN","OOPSGUIC",86,0)
+ .S ^TMP("LISTCA",DUZ,CN)=STR_U_RET_U_PDFLD_U_DUZ_$C(10)
+"RTN","OOPSGUIC",87,0)
+ .S CN=CN+1
+"RTN","OOPSGUIC",88,0)
+ S RESULTS=$NA(^TMP("LISTCA",DUZ))
+"RTN","OOPSGUIC",89,0)
+ Q
+"RTN","OOPSGUIC",90,0)
+INCLUDE() ; checks to make sure ok to include claim in list
+"RTN","OOPSGUIC",91,0)
+ N CA7OK
+"RTN","OOPSGUIC",92,0)
+ S CA7OK=1
+"RTN","OOPSGUIC",93,0)
+ ; if claim not sent to DOL, can't pick
+"RTN","OOPSGUIC",94,0)
+ I $$GET1^DIQ(FILE,CAIEN,67)="" S CA7OK=0
+"RTN","OOPSGUIC",95,0)
+ ; if deleted, replaced by amendment - can't pick
+"RTN","OOPSGUIC",96,0)
+ I $$GET1^DIQ(FILE,CAIEN,51,"I")>1 S CA7OK=0
+"RTN","OOPSGUIC",97,0)
+ Q (CA7OK)
+"RTN","OOPSGUIC",98,0)
+PDDEF() ; get Fegli Code and Health insurance fields from paid
+"RTN","OOPSGUIC",99,0)
+ N CNT,FEG,FEG1,INS,INS1,PAID
+"RTN","OOPSGUIC",100,0)
+ S (FEG,FEG1,INS,INS1)=""
+"RTN","OOPSGUIC",101,0)
+ D FIND^DIC(450,,"@;226EI;231I","MPSC",SSN,10,"SSN")
+"RTN","OOPSGUIC",102,0)
+ I $G(DIERR) D CLEAN^DILF Q FEG_U_INS
+"RTN","OOPSGUIC",103,0)
+ I $P(^TMP("DILIST",$J,0),U)=0 Q FEG_U_INS
+"RTN","OOPSGUIC",104,0)
+ S PAID=$G(^TMP("DILIST",$J,1,0)),FEG=$P(PAID,U,3)
+"RTN","OOPSGUIC",105,0)
+ ; if A0 - ineligible, B0 - waived therefore No
+"RTN","OOPSGUIC",106,0)
+ I FEG="A0"!(FEG="B0") S FEG1="N;"
+"RTN","OOPSGUIC",107,0)
+ ; if C0 - only Basic
+"RTN","OOPSGUIC",108,0)
+ I FEG="C0" S FEG1="Y;"
+"RTN","OOPSGUIC",109,0)
+ ; has Fegli, but not basic, additional, get additional code
+"RTN","OOPSGUIC",110,0)
+ I $G(FEG1)="",($L($P(PAID,U,2),"Basic +")>1) S FEG1="Y;"_FEG
+"RTN","OOPSGUIC",111,0)
+ ; now deal with insurance
+"RTN","OOPSGUIC",112,0)
+ S INS=$P(PAID,U,4)
+"RTN","OOPSGUIC",113,0)
+ ; if INS = 000, 001, 002, 003 they don't have insurance
+"RTN","OOPSGUIC",114,0)
+ I (INS?.N)&(+INS<4) S INS1="N;"
+"RTN","OOPSGUIC",115,0)
+ ; otherwise they do, get the code
+"RTN","OOPSGUIC",116,0)
+ I $G(INS1)="" S INS1="Y;"_INS
+"RTN","OOPSGUIC",117,0)
+ Q INS1_U_FEG1
+"RTN","OOPSGUIC",118,0)
+MULTIPLE(RESULTS,INPUT,DATA) ; retrieve data from multiple
+"RTN","OOPSGUIC",119,0)
+ ; NOTE: When filing into subrecord, the entire subrecord is deleted
+"RTN","OOPSGUIC",120,0)
+ ; then rebuilt. Also, the field number for the subrecord
+"RTN","OOPSGUIC",121,0)
+ ; must be passed with the data.
+"RTN","OOPSGUIC",122,0)
+ ; WORD PROCESSING fields CANNOT file using this code
+"RTN","OOPSGUIC",123,0)
+ ; Input: INPUT - in the format FILE^FIELD^IEN
+"RTN","OOPSGUIC",124,0)
+ ; DATA - array of data in the format
+"RTN","OOPSGUIC",125,0)
+ ; DATA(SIEN)=data where data = P1^P2^P3 etc, where
+"RTN","OOPSGUIC",126,0)
+ ; P1 = subfield #;data
+"RTN","OOPSGUIC",127,0)
+ ; DATA="" must be true for a GET.
+"RTN","OOPSGUIC",128,0)
+ ; Output: RESULTS - data from all records in the multiple will
+"RTN","OOPSGUIC",129,0)
+ ; be returned. it will be saved in a pieced
+"RTN","OOPSGUIC",130,0)
+ ; string.
+"RTN","OOPSGUIC",131,0)
+ N ACTION,ARR,IEN,FIELD,FILE,ROOT,SAVEDIK,SPEC,SUB,OOPSCNT,OOPSSV,OOPSSV1
+"RTN","OOPSGUIC",132,0)
+ S FILE=$P($G(INPUT),U),FIELD=$P($G(INPUT),U,2),IEN=$P($G(INPUT),U,3)
+"RTN","OOPSGUIC",133,0)
+ S ACTION="" I $D(DATA)>1 S ACTION=1
+"RTN","OOPSGUIC",134,0)
+ S RESULTS(0)="Record Accessed, no data"
+"RTN","OOPSGUIC",135,0)
+ I $G(IEN)=""!($G(FILE)="")!($G(FIELD)="") D Q
+"RTN","OOPSGUIC",136,0)
+ . S RESULTS(0)="Invalid parameters cannot continue"
+"RTN","OOPSGUIC",137,0)
+ S ROOT=$$ROOT^DILFD(FILE,0,"GL")
+"RTN","OOPSGUIC",138,0)
+ S SPEC=+$$GET1^DID(FILE,FIELD,"","SPECIFIER")
+"RTN","OOPSGUIC",139,0)
+ S SUB=$$GET1^DID(FILE,FIELD,"","GLOBAL SUBSCRIPT LOCATION")
+"RTN","OOPSGUIC",140,0)
+ I '$$GET1^DID(FILE,FIELD,"","MULTIPLE-VALUED"),'$G(SPEC) D Q
+"RTN","OOPSGUIC",141,0)
+ . S RESULTS(1)="Field in not a multiple, cannot continue"
+"RTN","OOPSGUIC",142,0)
+ ; now go get data from subfile
+"RTN","OOPSGUIC",143,0)
+ S SAVEDIK=ROOT_IEN_","_$C(34)_$P(SUB,";")_$C(34)_","
+"RTN","OOPSGUIC",144,0)
+ ;RRA OOPS*2*23 - ticket 396917
+"RTN","OOPSGUIC",145,0)
+ ;GUI may pass in name as a string - so if there are duplicate names in #200
+"RTN","OOPSGUIC",146,0)
+ ;it doesn't know how to resolve the name to an ien
+"RTN","OOPSGUIC",147,0)
+ ;also adding a "/" (to create a "////") to the fields so they bypass fileman
+"RTN","OOPSGUIC",148,0)
+ ;validation in case the DUZ is 4 digits (could confuse as SSN)
+"RTN","OOPSGUIC",149,0)
+ I ACTION,FILE=2260,FIELD=95 D
+"RTN","OOPSGUIC",150,0)
+ . S OOPSCNT=0
+"RTN","OOPSGUIC",151,0)
+ . F S OOPSCNT=$O(DATA(OOPSCNT)) Q:OOPSCNT'>0 D
+"RTN","OOPSGUIC",152,0)
+ .. S OOPSSV=$P($P($G(DATA(OOPSCNT)),"^",8),";",2)
+"RTN","OOPSGUIC",153,0)
+ .. S OOPSSV1=$P($P($G(DATA(OOPSCNT)),"^",10),";",2)
+"RTN","OOPSGUIC",154,0)
+ .. I '+OOPSSV S OOPSSV=$P($G(^OOPS(2260,IEN,"OUTC",OOPSCNT,0)),"^",8)
+"RTN","OOPSGUIC",155,0)
+ .. I '+OOPSSV1 S OOPSSV1=$P($G(^OOPS(2260,IEN,"OUTC",OOPSCNT,0)),"^",10)
+"RTN","OOPSGUIC",156,0)
+ ..S $P(DATA(OOPSCNT),"^",8)="7;/"_OOPSSV
+"RTN","OOPSGUIC",157,0)
+ ..S $P(DATA(OOPSCNT),"^",10)="9;/"_OOPSSV1
+"RTN","OOPSGUIC",158,0)
+ ;END RRA OOPS*2*23
+"RTN","OOPSGUIC",159,0)
+ I 'ACTION D GETD
+"RTN","OOPSGUIC",160,0)
+ I ACTION D KILLD,SETD
+"RTN","OOPSGUIC",161,0)
+ Q
+"RTN","OOPSGUIC",162,0)
+GETD ; get the data
+"RTN","OOPSGUIC",163,0)
+ N CNT,DATA,FLDA,FLDS,IENS,SIEN,SFLD,SREC,TYPE
+"RTN","OOPSGUIC",164,0)
+ S CNT=0,IENS=IEN_","
+"RTN","OOPSGUIC",165,0)
+ S FLDA=FIELD_"*"
+"RTN","OOPSGUIC",166,0)
+ ; hate to hardwire, but need data back as entered, not canonical
+"RTN","OOPSGUIC",167,0)
+ I FILE=2262.03,FIELD=15 D FLD15 Q
+"RTN","OOPSGUIC",168,0)
+ ;if Incident Outcome multiple, need to sort in chron order OOPS*25
+"RTN","OOPSGUIC",169,0)
+ I FILE=2260,FIELD=95 D FLD95 Q
+"RTN","OOPSGUIC",170,0)
+ D GETS^DIQ(FILE,IENS,FLDA,,"ARR")
+"RTN","OOPSGUIC",171,0)
+ I $D(ARR) S SIEN="",RESULTS(0)="" D
+"RTN","OOPSGUIC",172,0)
+ .F S SIEN=$O(ARR(SPEC,SIEN)) Q:SIEN="" D
+"RTN","OOPSGUIC",173,0)
+ ..S SFLD="",SREC=$P(SIEN,",")
+"RTN","OOPSGUIC",174,0)
+ ..F S SFLD=$O(ARR(SPEC,SIEN,SFLD)) Q:SFLD="" D
+"RTN","OOPSGUIC",175,0)
+ ...S DATA=ARR(SPEC,SIEN,SFLD)_U
+"RTN","OOPSGUIC",176,0)
+ ...S:$D(RESULTS(CNT))=0 RESULTS(CNT)=""
+"RTN","OOPSGUIC",177,0)
+ ...S RESULTS(CNT)=RESULTS(CNT)_DATA
+"RTN","OOPSGUIC",178,0)
+ ..S CNT=CNT+1
+"RTN","OOPSGUIC",179,0)
+ Q
+"RTN","OOPSGUIC",180,0)
+KILLD ; first kill all records in subfile, then rebuild
+"RTN","OOPSGUIC",181,0)
+ N DA,DIK,NODE
+"RTN","OOPSGUIC",182,0)
+ S NODE=$P(SUB,";"),DA=0,DA(1)=IEN,DIK=SAVEDIK
+"RTN","OOPSGUIC",183,0)
+ F S DA=$O(@(ROOT_"DA(1),NODE,DA)")) Q:(+DA'>0) D ^DIK
+"RTN","OOPSGUIC",184,0)
+ Q
+"RTN","OOPSGUIC",185,0)
+SETD ; subrecord cleaned out, now rebuild
+"RTN","OOPSGUIC",186,0)
+ N BAD,CN,DR,DIE,DA,DLAYGO,I,NUM,STR,DIC,TYPE
+"RTN","OOPSGUIC",187,0)
+ K DR
+"RTN","OOPSGUIC",188,0)
+ S RESULTS(0)="Filing successful"
+"RTN","OOPSGUIC",189,0)
+ S CN=0,DLAYGO=FILE,DA(1)=IEN,DIC=SAVEDIK,DIC(0)="L"
+"RTN","OOPSGUIC",190,0)
+ F S CN=$O(DATA(CN)) Q:CN'>0 S X="",BAD=0 D
+"RTN","OOPSGUIC",191,0)
+ .S STR=DATA(CN),NUM=$L(DATA(CN),U),DIC("DR")=""
+"RTN","OOPSGUIC",192,0)
+ .F I=1:1:NUM S STR1=$P($G(STR),U,I) D:('BAD)
+"RTN","OOPSGUIC",193,0)
+ ..I $P(STR1,";")=.01,$P(STR1,";")="",$P(STR1,";",2)="" S BAD=1 Q
+"RTN","OOPSGUIC",194,0)
+ ..I $P(STR1,";")=.01 D
+"RTN","OOPSGUIC",195,0)
+ ...S TYPE=$$GET1^DID(SPEC,.01,"","TYPE")
+"RTN","OOPSGUIC",196,0)
+ ...I TYPE="DATE/TIME" S X=$$FMTE^XLFDT($P(STR1,";",2),2)
+"RTN","OOPSGUIC",197,0)
+ ...E S X=$P(STR1,";",2)
+"RTN","OOPSGUIC",198,0)
+ ..S DIC("DR")=DIC("DR")_$P(STR1,";")_"///"_$P(STR1,";",2)_";"
+"RTN","OOPSGUIC",199,0)
+ .D MFILE
+"RTN","OOPSGUIC",200,0)
+ Q
+"RTN","OOPSGUIC",201,0)
+MFILE ; file the multiple
+"RTN","OOPSGUIC",202,0)
+ N PCE,PCE1,TMP
+"RTN","OOPSGUIC",203,0)
+ I X="" S RESULTS(0)=".01 field missing - could not file" Q
+"RTN","OOPSGUIC",204,0)
+ I $G(BAD) S RESULTS(0)="Problems Filing subrecord" Q
+"RTN","OOPSGUIC",205,0)
+ I $L(DIC("DR"))>240 D
+"RTN","OOPSGUIC",206,0)
+ .S PCE=$L(DIC("DR"),";"),TMP=DIC("DR"),PCE1=$P(PCE/2,".")
+"RTN","OOPSGUIC",207,0)
+ .S DIC("DR")=$P(TMP,";",1,PCE1)
+"RTN","OOPSGUIC",208,0)
+ .K DD,DO D FILE^DICN I Y'>0 S BAD=1
+"RTN","OOPSGUIC",209,0)
+ .S DIC("DR")=$P(TMP,";",(PCE1+1),PCE)
+"RTN","OOPSGUIC",210,0)
+ K DD,DO D FILE^DICN I Y'>0 S BAD=1
+"RTN","OOPSGUIC",211,0)
+ I BAD S RESULTS(0)="Problems filing subrecord"
+"RTN","OOPSGUIC",212,0)
+ Q
+"RTN","OOPSGUIC",213,0)
+OSHA300(RESULTS,STA,DATA) ; Files data into subrecord 2262.315
+"RTN","OOPSGUIC",214,0)
+ ; Input - STA is the station number subrecord IEN
+"RTN","OOPSGUIC",215,0)
+ ; DATA is an number subscripted array containing the records
+"RTN","OOPSGUIC",216,0)
+ ; that contain the Emp Numbers and hours worked in the
+"RTN","OOPSGUIC",217,0)
+ ; OSHA MONTH/YEAR subrecord.
+"RTN","OOPSGUIC",218,0)
+ ; Output - RESULTS indicating the success of the filing.
+"RTN","OOPSGUIC",219,0)
+ ;
+"RTN","OOPSGUIC",220,0)
+ N CNT,IENS,FILE,OSHAFDA,LV1,LV2,PAR,REC,STR
+"RTN","OOPSGUIC",221,0)
+ S CNT=1,FILE=2262.315
+"RTN","OOPSGUIC",222,0)
+ S PAR="^OOPS(2262,0)",PAR=$Q(@PAR),PAR=$Q(@PAR)
+"RTN","OOPSGUIC",223,0)
+ S LV1=$P(PAR,",",2),LV2=$P(PAR,",",3)
+"RTN","OOPSGUIC",224,0)
+ S RESULTS=""
+"RTN","OOPSGUIC",225,0)
+ I $D(DATA)<10 S RESULTS="NO DATA TO FILE, CANNOT CONTINUE" Q
+"RTN","OOPSGUIC",226,0)
+ I '$G(STA) S RESULTS="NOT ENOUGH PARAMETERS, COULDN'T FILE" Q
+"RTN","OOPSGUIC",227,0)
+ I '$D(^OOPS(2262,LV1,LV2,STA)) D Q
+"RTN","OOPSGUIC",228,0)
+ .S RESULTS="NO STATION RECORD, COULDN'T FILE"
+"RTN","OOPSGUIC",229,0)
+ K ^OOPS(2262,LV1,LV2,STA,2)
+"RTN","OOPSGUIC",230,0)
+ S REC=0 F S REC=$O(DATA(REC)) Q:REC="" D
+"RTN","OOPSGUIC",231,0)
+ .S IENS="?+"_CNT_","_STA_","_LV1_","
+"RTN","OOPSGUIC",232,0)
+ .S STR=DATA(REC)
+"RTN","OOPSGUIC",233,0)
+ .S OSHAFDA(FILE,IENS,.01)=$P($P(STR,U,1),";",2)
+"RTN","OOPSGUIC",234,0)
+ .S OSHAFDA(FILE,IENS,1)=$P($P(STR,U,2),";",2)
+"RTN","OOPSGUIC",235,0)
+ .S OSHAFDA(FILE,IENS,2)=$P($P(STR,U,3),";",2)
+"RTN","OOPSGUIC",236,0)
+ .S CNT=CNT+1
+"RTN","OOPSGUIC",237,0)
+ D UPDATE^DIE("E","OSHAFDA","IENS","MSG")
+"RTN","OOPSGUIC",238,0)
+ I '$D(MSG) S RESULTS="Filing Successful"
+"RTN","OOPSGUIC",239,0)
+ K MSG,STR,Y,X,%DT
+"RTN","OOPSGUIC",240,0)
+ Q
+"RTN","OOPSGUIC",241,0)
+FLD15 ; retrieves OSHA 300A Summary data from file 2262
+"RTN","OOPSGUIC",242,0)
+ N CNT,DATE,LV1,LV2,PAR,REC
+"RTN","OOPSGUIC",243,0)
+ S CNT=0,PAR="^OOPS(2262,0)",PAR=$Q(@PAR),PAR=$Q(@PAR)
+"RTN","OOPSGUIC",244,0)
+ S LV1=$P(PAR,",",2),LV2=$P(PAR,",",3),IENS=$P(IEN,",",1),REC=0
+"RTN","OOPSGUIC",245,0)
+ F S REC=$O(^OOPS(2262,LV1,LV2,IENS,2,REC)) Q:REC'>0 D
+"RTN","OOPSGUIC",246,0)
+ .S STR=$G(^OOPS(2262,LV1,LV2,IENS,2,REC,0))
+"RTN","OOPSGUIC",247,0)
+ .S Y=$P(STR,U,1) D DD^%DT
+"RTN","OOPSGUIC",248,0)
+ .S RESULTS(CNT)=Y_U_$P(STR,U,2,3)
+"RTN","OOPSGUIC",249,0)
+ .S CNT=CNT+1
+"RTN","OOPSGUIC",250,0)
+ Q
+"RTN","OOPSGUIC",251,0)
+FLD95 ; sort Incident Outcomes so they display in chron order OOPS*25
+"RTN","OOPSGUIC",252,0)
+ N OOPSCNT,OOPSSREC,OOPSIEN,OOPSSUB,OOPSFLD,OOPSDATA,OOPSARR
+"RTN","OOPSGUIC",253,0)
+ S OOPSCNT=0
+"RTN","OOPSGUIC",254,0)
+ D GETS^DIQ(FILE,IENS,FLDA,,"ARR")
+"RTN","OOPSGUIC",255,0)
+ ;rebuild array so when it $O's it goes through in chron order
+"RTN","OOPSGUIC",256,0)
+ I $D(ARR) S OOPSSUB="",RESULTS(0)="" D
+"RTN","OOPSGUIC",257,0)
+ .F S OOPSSUB=$O(ARR(SPEC,OOPSSUB)) Q:OOPSSUB="" D
+"RTN","OOPSGUIC",258,0)
+ ..S OOPSSREC=$P(OOPSSUB,","),OOPSIEN=$P(OOPSSUB,",",2),OOPSFLD=""
+"RTN","OOPSGUIC",259,0)
+ ..F S OOPSFLD=$O(ARR(SPEC,OOPSSUB,OOPSFLD)) Q:OOPSFLD="" D
+"RTN","OOPSGUIC",260,0)
+ ...S OOPSARR(OOPSSREC,OOPSFLD)=ARR(SPEC,OOPSSUB,OOPSFLD)
+"RTN","OOPSGUIC",261,0)
+ ;now go through the new subscripted array and process
+"RTN","OOPSGUIC",262,0)
+ S OOPSSREC=""
+"RTN","OOPSGUIC",263,0)
+ F S OOPSSREC=$O(OOPSARR(OOPSSREC)) Q:OOPSSREC="" D
+"RTN","OOPSGUIC",264,0)
+ .S OOPSFLD=""
+"RTN","OOPSGUIC",265,0)
+ .F S OOPSFLD=$O(OOPSARR(OOPSSREC,OOPSFLD)) Q:OOPSFLD="" D
+"RTN","OOPSGUIC",266,0)
+ ..S OOPSDATA=OOPSARR(OOPSSREC,OOPSFLD)_U
+"RTN","OOPSGUIC",267,0)
+ ..S:$D(RESULTS(OOPSCNT))=0 RESULTS(OOPSCNT)=""
+"RTN","OOPSGUIC",268,0)
+ ..S RESULTS(OOPSCNT)=RESULTS(OOPSCNT)_OOPSDATA
+"RTN","OOPSGUIC",269,0)
+ .S OOPSCNT=OOPSCNT+1
+"RTN","OOPSGUIC",270,0)
+ Q
+"RTN","OOPSGUIR")
+0^2^B71502420^B70518771
+"RTN","OOPSGUIR",1,0)
+OOPSGUIR ;WIOFO/LLH-RPC routine for misc reports ; 6/11/09 10:32am
+"RTN","OOPSGUIR",2,0)
+ ;;2.0;ASISTS;**8,7,11,14,20,25**;Jun 03, 2002;Build 4
+"RTN","OOPSGUIR",3,0)
+ ;
+"RTN","OOPSGUIR",4,0)
+ENT(RESULTS,INPUT,CALL) ; get the data for the report
+"RTN","OOPSGUIR",5,0)
+ ; Input: INPUT - contains 3 values, the START AND END DATE,
+"RTN","OOPSGUIR",6,0)
+ ; STATION. The Date of Occ (fld #4) is used to
+"RTN","OOPSGUIR",7,0)
+ ; in/exclude claims from the report. If Station='ALL'
+"RTN","OOPSGUIR",8,0)
+ ; then all claims are included, if not 'All', then
+"RTN","OOPSGUIR",9,0)
+ ; only 1 station is included.
+"RTN","OOPSGUIR",10,0)
+ ; CALL - contains the report call which will invoke
+"RTN","OOPSGUIR",11,0)
+ ; the appropriate M call
+"RTN","OOPSGUIR",12,0)
+ ; Output: RESULTS - the results array passes data back to the client.
+"RTN","OOPSGUIR",13,0)
+ N CAX,FI,LP,MENU,SDATE,STDT,STA,STATION,ENDDT,EDATE,TAG,X,Y,%DT
+"RTN","OOPSGUIR",14,0)
+ S RESULTS(0)="Processing..."
+"RTN","OOPSGUIR",15,0)
+ S STDT=$P($G(INPUT),U),ENDDT=$P($G(INPUT),U,2)
+"RTN","OOPSGUIR",16,0)
+ S STA=$P($G(INPUT),U,3),TAG=CALL
+"RTN","OOPSGUIR",17,0)
+ I (STDT="")!(ENDDT="")!(STA="")!(TAG="") D Q
+"RTN","OOPSGUIR",18,0)
+ . S RESULTS(0)="Input parameters missing, cannot run report." Q
+"RTN","OOPSGUIR",19,0)
+ K ^TMP($J,TAG)
+"RTN","OOPSGUIR",20,0)
+ S (SDATE,EDATE,MENU)=""
+"RTN","OOPSGUIR",21,0)
+ S X=STDT D ^%DT S SDATE=Y
+"RTN","OOPSGUIR",22,0)
+ S X=ENDDT D ^%DT S EDATE=Y
+"RTN","OOPSGUIR",23,0)
+ ; SDATE made last time in day prior so start date correct
+"RTN","OOPSGUIR",24,0)
+ I TAG="LOG300U" S TAG="LOG300",MENU="U"
+"RTN","OOPSGUIR",25,0)
+ S SDATE=(SDATE-1)+.9999,EDATE=EDATE_".9999"
+"RTN","OOPSGUIR",26,0)
+ D @TAG
+"RTN","OOPSGUIR",27,0)
+ Q
+"RTN","OOPSGUIR",28,0)
+SERVICE ; Service/Detail Location report - patch 11
+"RTN","OOPSGUIR",29,0)
+DSPUTE ; Reason for Dispute report. Patch 11
+"RTN","OOPSGUIR",30,0)
+FLD174 ; Report compiles filing instruction result counts
+"RTN","OOPSGUIR",31,0)
+FLD332 ; Use this tag for Reason for Controvert report. Patch 11
+"RTN","OOPSGUIR",32,0)
+ N ARR,CODE,CN,LP,IEN,I,GOON,P2,TX
+"RTN","OOPSGUIR",33,0)
+ S LP="",IEN="",CN=0
+"RTN","OOPSGUIR",34,0)
+ I TAG="FLD174" D
+"RTN","OOPSGUIR",35,0)
+ .S CODE=$P($G(^DD(2260,174,0)),U,3)
+"RTN","OOPSGUIR",36,0)
+ .F I=1:1 S LP=$P(CODE,";",I) Q:$G(LP)="" I $P(LP,":",2)'="" S ARR(LP)=0
+"RTN","OOPSGUIR",37,0)
+ .S ARR(I_":No Data Entered")=0
+"RTN","OOPSGUIR",38,0)
+ I TAG="FLD332" D
+"RTN","OOPSGUIR",39,0)
+ .F I=1:1 Q:'$D(^OOPS(2262.4,I)) S ARR(I_":"_$P(^OOPS(2262.4,I,0),U))=0
+"RTN","OOPSGUIR",40,0)
+ .S ARR(98_":Blk 36 also has text entered")=0
+"RTN","OOPSGUIR",41,0)
+ .S ARR(99_":Controvert question checked Yes, but no Controvert Code entered")=0
+"RTN","OOPSGUIR",42,0)
+ F LP=SDATE:0 S LP=$O(^OOPS(2260,"AD",LP)) Q:(LP'>0)!(LP>EDATE) D
+"RTN","OOPSGUIR",43,0)
+ .F S IEN=$O(^OOPS(2260,"AD",LP,IEN)) Q:IEN'>0 D
+"RTN","OOPSGUIR",44,0)
+ ..I $$GET1^DIQ(2260,IEN,51,"I")>1 Q ;only allow open/closed cases
+"RTN","OOPSGUIR",45,0)
+ ..S CAX=$$GET1^DIQ(2260,IEN,52,"I")
+"RTN","OOPSGUIR",46,0)
+ ..I TAG'="SERVICE"&(CAX=2) Q ;only allow CA1's
+"RTN","OOPSGUIR",47,0)
+ ..S STATION=$P(^OOPS(2260,IEN,"2162A"),U,9)
+"RTN","OOPSGUIR",48,0)
+ ..I ($G(STA)'="A"),(STATION'=STA) Q ;get correct station
+"RTN","OOPSGUIR",49,0)
+ ..;patch 11 - sent to OOPSGUIF due to size this routine
+"RTN","OOPSGUIR",50,0)
+ ..I TAG="DSPUTE" D DSPUTE^OOPSGUIF
+"RTN","OOPSGUIR",51,0)
+ ..I TAG="SERVICE" D SERVICE^OOPSGUIU
+"RTN","OOPSGUIR",52,0)
+ ..; Filing instructions report
+"RTN","OOPSGUIR",53,0)
+ ..I TAG="FLD174" D
+"RTN","OOPSGUIR",54,0)
+ ...S FI=$$GET1^DIQ(2260,IEN,174,"I")_":"_$$GET1^DIQ(2260,IEN,174)
+"RTN","OOPSGUIR",55,0)
+ ...I $$GET1^DIQ(2260,IEN,174)="" S FI=I_":No Data Entered"
+"RTN","OOPSGUIR",56,0)
+ ...S ARR(FI)=ARR(FI)+1
+"RTN","OOPSGUIR",57,0)
+ ...;patch 11 - Reason for controvert report
+"RTN","OOPSGUIR",58,0)
+ ..I TAG="FLD332" D
+"RTN","OOPSGUIR",59,0)
+ ...;first Agency Controvert must = "Y" to be counted
+"RTN","OOPSGUIR",60,0)
+ ...S GOON=$$GET1^DIQ(2260,IEN,165.1,"I") I $G(GOON)'="Y" D Q
+"RTN","OOPSGUIR",61,0)
+ ....S:'$D(ARR("999:Case not controverted, no controvert code expected")) ARR("999:Case not controverted, no controvert code expected")=0
+"RTN","OOPSGUIR",62,0)
+ ....S ARR("999:Case not controverted, no controvert code expected")=ARR("999:Case not controverted, no controvert code expected")+1
+"RTN","OOPSGUIR",63,0)
+ ...S FI=$$GET1^DIQ(2260,IEN,332,"I")_":"_$$GET1^DIQ(2260,IEN,332)
+"RTN","OOPSGUIR",64,0)
+ ...I $$GET1^DIQ(2260,IEN,332)="" S FI=99_":Controvert question checked Yes, but no Controvert Code entered"
+"RTN","OOPSGUIR",65,0)
+ ...S ARR(FI)=ARR(FI)+1
+"RTN","OOPSGUIR",66,0)
+ ...I $G(^OOPS(2260,IEN,"CA1K",1,0))'="" D
+"RTN","OOPSGUIR",67,0)
+ ....;if case is diputed, don't count in Controvert rpt - quit
+"RTN","OOPSGUIR",68,0)
+ ....S GOON=$$GET1^DIQ(2260,IEN,165.2,"I") I $G(GOON)="Y" Q
+"RTN","OOPSGUIR",69,0)
+ ....S ARR(98_":Blk 36 also has text entered")=ARR(98_":Blk 36 also has text entered")+1
+"RTN","OOPSGUIR",70,0)
+ I TAG'="DSPUTE",(TAG'="SERVICE") D
+"RTN","OOPSGUIR",71,0)
+ .S CN=0,FI="",P2=""
+"RTN","OOPSGUIR",72,0)
+ .F S FI=$O(ARR(FI)) Q:FI="" D
+"RTN","OOPSGUIR",73,0)
+ ..S CN=$P(FI,":"),P2=$P(FI,":",2),CODE=0
+"RTN","OOPSGUIR",74,0)
+ ..I TAG="FLD332" S TX=$O(^OOPS(2262.4,"B",P2,"")) I $G(TX) S CODE=$P(^OOPS(2262.4,TX,0),U,2)
+"RTN","OOPSGUIR",75,0)
+ ..S ^TMP($J,TAG,CN)=P2_U_CODE_U_ARR(FI)
+"RTN","OOPSGUIR",76,0)
+ ..; rearrange 'bogus' Controvert Codes for report formating
+"RTN","OOPSGUIR",77,0)
+ ..I TAG="FLD332",(CN>97) S ^TMP($J,TAG,CN)=U_P2_U_ARR(FI)
+"RTN","OOPSGUIR",78,0)
+ I TAG="SERVICE" D CMPLSRV^OOPSGUIU
+"RTN","OOPSGUIR",79,0)
+ I TAG="DSPUTE" D DSPUTE^OOPSGUIU
+"RTN","OOPSGUIR",80,0)
+ S RESULTS=$NA(^TMP($J,TAG))
+"RTN","OOPSGUIR",81,0)
+ Q
+"RTN","OOPSGUIR",82,0)
+SUM300A ; Summary of Work-related injuries and illness report
+"RTN","OOPSGUIR",83,0)
+ N CN,EMP,FAC,HRS,STATE,STR
+"RTN","OOPSGUIR",84,0)
+ N COLG,COLH,COLI,COLJ,COLK,COLL,COLM
+"RTN","OOPSGUIR",85,0)
+ S (COLG,COLH,COLI,COLJ,COLK,COLL)=0
+"RTN","OOPSGUIR",86,0)
+ S (COLM(1),COLM(2),COLM(3),COLM(4),COLM(5),COLM(6))=0
+"RTN","OOPSGUIR",87,0)
+ S ^TMP($J,TAG,0)="No worksheet data for this station."
+"RTN","OOPSGUIR",88,0)
+ S FAC=$$GET1^DIQ(4,STA,.01,"E")
+"RTN","OOPSGUIR",89,0)
+ K ARR D STATINFO^OOPSGUI3(.ARR,STA) I $D(ARR) D
+"RTN","OOPSGUIR",90,0)
+ .S STATE=$P($G(ARR(0)),U,3)
+"RTN","OOPSGUIR",91,0)
+ .I $G(STATE)'="" D
+"RTN","OOPSGUIR",92,0)
+ ..S STATE=$O(^DIC(5,"B",STATE,""))
+"RTN","OOPSGUIR",93,0)
+ ..S $P(ARR(0),U,3)=$P(^DIC(5,STATE,0),U,2)
+"RTN","OOPSGUIR",94,0)
+ .S ^TMP($J,TAG,0)=FAC_U_ARR(0)
+"RTN","OOPSGUIR",95,0)
+ K ARR D SITEPGET^OOPSGUI6(.ARR,"OSHA300") I $D(ARR) D
+"RTN","OOPSGUIR",96,0)
+ .S CN=0 F S CN=$O(ARR(CN)) Q:CN="" D
+"RTN","OOPSGUIR",97,0)
+ ..I $P(ARR(CN),U,11)'=STA Q
+"RTN","OOPSGUIR",98,0)
+ ..S STR=$P($P(ARR(CN),U,1)," = ",2)
+"RTN","OOPSGUIR",99,0)
+ ..S STR=$P(ARR(CN),U,3)_U_$P(ARR(CN),U,4)_U_$P(ARR(CN),U,6)_U
+"RTN","OOPSGUIR",100,0)
+ ..S STR=STR_$P(ARR(CN),U,7)_U_$P(ARR(CN),U,8)
+"RTN","OOPSGUIR",101,0)
+ ..S ^TMP($J,TAG,0)=^TMP($J,TAG,0)_U_STR
+"RTN","OOPSGUIR",102,0)
+ K ARR,DATA S DATA=""
+"RTN","OOPSGUIR",103,0)
+ D EMPHRS,DETAIL
+"RTN","OOPSGUIR",104,0)
+ Q
+"RTN","OOPSGUIR",105,0)
+IRWSHT ; Incidence Rates Worksheet Report
+"RTN","OOPSGUIR",106,0)
+ N COLHI,EMP,HRS
+"RTN","OOPSGUIR",107,0)
+ S ^TMP($J,TAG,1)="No Worksheet Data for this Station"
+"RTN","OOPSGUIR",108,0)
+ S COLHI=0
+"RTN","OOPSGUIR",109,0)
+ K ARR,DATA S DATA=""
+"RTN","OOPSGUIR",110,0)
+ D EMPHRS,DETAIL
+"RTN","OOPSGUIR",111,0)
+ Q
+"RTN","OOPSGUIR",112,0)
+DETAIL ; now get employee information
+"RTN","OOPSGUIR",113,0)
+LOG300 ; entry point for the OSHA 300 LOG
+"RTN","OOPSGUIR",114,0)
+ N CN,CASES,COLF,DOI,FLD,IEN,INC,STATION,TYPE
+"RTN","OOPSGUIR",115,0)
+ S DOI=SDATE,CASES=0,CN=1
+"RTN","OOPSGUIR",116,0)
+ F S DOI=$O(^OOPS(2260,"AF",DOI)) Q:(DOI>EDATE)!(DOI="") S IEN=0 D
+"RTN","OOPSGUIR",117,0)
+ .F S IEN=$O(^OOPS(2260,"AF",DOI,"Y",IEN)) Q:IEN="" D
+"RTN","OOPSGUIR",118,0)
+ ..S STATION=$P(^OOPS(2260,IEN,"2162A"),U,9) I $G(STATION)'=STA Q
+"RTN","OOPSGUIR",119,0)
+ ..I $P(^OOPS(2260,IEN,0),U,6)>1 Q
+"RTN","OOPSGUIR",120,0)
+ ..S CASES=CASES+1
+"RTN","OOPSGUIR",121,0)
+ ..I TAG="IRWSHT" D
+"RTN","OOPSGUIR",122,0)
+ ...I $D(^OOPS(2260,IEN,"OUTC","AC","A","J"))!$D(^OOPS(2260,IEN,"OUTC","AC","A","A")) S COLHI=COLHI+1
+"RTN","OOPSGUIR",123,0)
+ ..I TAG="SUM300A" D FLD95
+"RTN","OOPSGUIR",124,0)
+ ..I TAG="LOG300" D FLD95 D
+"RTN","OOPSGUIR",125,0)
+ ...S ARR(1)=$$GET1^DIQ(2260,IEN,.01),ARR(2)=$$GET1^DIQ(2260,IEN,1)
+"RTN","OOPSGUIR",126,0)
+ ...I $$GET1^DIQ(2260,IEN,337,"I")="Y" S ARR(2)="Privacy Case"
+"RTN","OOPSGUIR",127,0)
+ ...S TYPE=$$GET1^DIQ(2260,IEN,3,"I")
+"RTN","OOPSGUIR",128,0)
+ ...I TYPE>10&(TYPE<15) S ARR(2)="Privacy Case"
+"RTN","OOPSGUIR",129,0)
+ ...I MENU="U" S ARR(2)=""
+"RTN","OOPSGUIR",130,0)
+ ...S INC=$$GET1^DIQ(2260,IEN,52,"I"),FLD=$S(INC=1:111,INC=2:208,1:"")
+"RTN","OOPSGUIR",131,0)
+ ...S ARR(3)=$$GET1^DIQ(2260,IEN,FLD)
+"RTN","OOPSGUIR",132,0)
+ ...S ARR(4)=$P($$FMTE^XLFDT(($$GET1^DIQ(2260,IEN,4,"I")),2),"@")
+"RTN","OOPSGUIR",133,0)
+ ...S ARR(5)=$$GET1^DIQ(2260,IEN,27,"E")
+"RTN","OOPSGUIR",134,0)
+ ...;v2_P20 changed field to populate ARR(6) - Coluum F OSHA 300 log
+"RTN","OOPSGUIR",135,0)
+ ...S COLF=$$GET1^DIQ(2260,IEN,384),ARR(6)=COLF
+"RTN","OOPSGUIR",136,0)
+ ...I (SDATE<3081231.9999&(EDATE>3081231.9999)) S ARR(6)=COLF
+"RTN","OOPSGUIR",137,0)
+ ...I EDATE<3090101&(COLF="") S ARR(6)=$$GET1^DIQ(2260,IEN,3)_";"_$$GET1^DIQ(2260,IEN,30)
+"RTN","OOPSGUIR",138,0)
+ ...S DATA=ARR(1)_U_ARR(2)_U_ARR(3)_U_ARR(4)_U_ARR(5)_U_ARR(6)_U_ARR(7)_U
+"RTN","OOPSGUIR",139,0)
+ ...S DATA=DATA_ARR(8)_U_ARR(9)_U_ARR(10)
+"RTN","OOPSGUIR",140,0)
+ ...S ^TMP($J,TAG,CN)=DATA,CN=CN+1
+"RTN","OOPSGUIR",141,0)
+ I TAG="IRWSHT" S ^TMP($J,TAG,1)=CASES_U_COLHI_U_HRS
+"RTN","OOPSGUIR",142,0)
+ I TAG="SUM300A" D
+"RTN","OOPSGUIR",143,0)
+ .S DATA=CASES_U_EMP_U_HRS_U_COLG_U_COLH_U_COLI_U_COLJ_U_COLK_U_COLL_U
+"RTN","OOPSGUIR",144,0)
+ .S DATA=DATA_COLM(1)_U_COLM(2)_U_COLM(3)_U_COLM(4)_U_COLM(5)_U_COLM(6)
+"RTN","OOPSGUIR",145,0)
+ .S ^TMP($J,TAG,1)=DATA
+"RTN","OOPSGUIR",146,0)
+ S RESULTS=$NA(^TMP($J,TAG))
+"RTN","OOPSGUIR",147,0)
+ K ARR,DATA
+"RTN","OOPSGUIR",148,0)
+ Q
+"RTN","OOPSGUIR",149,0)
+FLD95 ; use OUTC subrecord to retrieve data
+"RTN","OOPSGUIR",150,0)
+ N AVAIL,ED,SD,S0,INC,ILL,DAYA,DAYJ,DAYS,IEN95,OC,OUTC,S95,TDAY
+"RTN","OOPSGUIR",151,0)
+ S S0=$G(^OOPS(2260,IEN,0)),INC=$P(S0,U,7)
+"RTN","OOPSGUIR",152,0)
+ S ILL=$P($G(^OOPS(2260,IEN,"2162B")),U,15)
+"RTN","OOPSGUIR",153,0)
+ S TDAY=$$HTFM^XLFDT(+$H)
+"RTN","OOPSGUIR",154,0)
+ ; add days away & job transfer up only to 180 for log, 4 300A get all
+"RTN","OOPSGUIR",155,0)
+ S (DAYA,DAYJ,TAWAY)=0,IEN95=0
+"RTN","OOPSGUIR",156,0)
+ F S IEN95=$O(^OOPS(2260,IEN,"OUTC",IEN95)) Q:IEN95'>0 D
+"RTN","OOPSGUIR",157,0)
+ .S S95=$G(^OOPS(2260,IEN,"OUTC",IEN95,0))
+"RTN","OOPSGUIR",158,0)
+ .S SD=$P(S95,U,1),ED=$P(S95,U,2),OC=$P(S95,U,3),DAYS=0
+"RTN","OOPSGUIR",159,0)
+ .I $P(S95,U,11)="D" Q ; entry is deleted
+"RTN","OOPSGUIR",160,0)
+ .;patch 11 - added logic that if TAG=LOG300 include all incident days
+"RTN","OOPSGUIR",161,0)
+ .; up to 180, else 300A, only include date range incidents
+"RTN","OOPSGUIR",162,0)
+ .I (TAG="SUM300A"),(EDATE<SD) Q
+"RTN","OOPSGUIR",163,0)
+ .I $G(OC)'="" S OUTC(OC)=""
+"RTN","OOPSGUIR",164,0)
+ .I TAG="SUM300A" D
+"RTN","OOPSGUIR",165,0)
+ ..I $G(ED)=""!($G(ED)>EDATE) S DAYS=$$FMDIFF^XLFDT(EDATE,SD,1)+1
+"RTN","OOPSGUIR",166,0)
+ .I TAG="LOG300",($G(ED)="") S DAYS=$$FMDIFF^XLFDT(TDAY,SD,1)+1
+"RTN","OOPSGUIR",167,0)
+ .I '$G(DAYS) S DAYS=$S(OC="A":$P(S95,U,4),OC="J":$P(S95,U,5),1:0)
+"RTN","OOPSGUIR",168,0)
+ .I DAYA+DAYJ>179 Q
+"RTN","OOPSGUIR",169,0)
+ .S AVAIL=0
+"RTN","OOPSGUIR",170,0)
+ .I DAYS>179 S AVAIL=(180-(DAYA+DAYJ))
+"RTN","OOPSGUIR",171,0)
+ .I (DAYS<180) D
+"RTN","OOPSGUIR",172,0)
+ ..;rra oops*25 - INC809171 account for exactly 180 days
+"RTN","OOPSGUIR",173,0)
+ ..I (DAYS+DAYA+DAYJ)<=180 S AVAIL=DAYS
+"RTN","OOPSGUIR",174,0)
+ ..I (DAYS+DAYA+DAYJ)>180 S AVAIL=(180-(DAYA+DAYJ))
+"RTN","OOPSGUIR",175,0)
+ .I $G(OC)="A" S DAYA=DAYA+AVAIL
+"RTN","OOPSGUIR",176,0)
+ .I $G(OC)="J" S DAYJ=DAYJ+AVAIL
+"RTN","OOPSGUIR",177,0)
+ I TAG="SUM300A" D
+"RTN","OOPSGUIR",178,0)
+ .S:$G(INC)=1 COLM(1)=COLM(1)+1
+"RTN","OOPSGUIR",179,0)
+ .I INC=2 D
+"RTN","OOPSGUIR",180,0)
+ ..I $G(ILL) S COLM(ILL)=COLM(ILL)+1
+"RTN","OOPSGUIR",181,0)
+ ..I '$G(ILL) S COLM(6)=COLM(6)+1
+"RTN","OOPSGUIR",182,0)
+ .S COLK=COLK+DAYA,COLL=COLL+DAYJ
+"RTN","OOPSGUIR",183,0)
+ .I $D(OUTC("D")) S COLG=COLG+1 Q
+"RTN","OOPSGUIR",184,0)
+ .I $D(OUTC("A")) S COLH=COLH+1 Q
+"RTN","OOPSGUIR",185,0)
+ .I $D(OUTC("J")) S COLI=COLI+1 Q
+"RTN","OOPSGUIR",186,0)
+ .I $D(OUTC("O")) S COLJ=COLJ+1 Q
+"RTN","OOPSGUIR",187,0)
+ I TAG="LOG300" D
+"RTN","OOPSGUIR",188,0)
+ .S ARR(7)="",ARR(10)="",(ARR(8),ARR(9))=0
+"RTN","OOPSGUIR",189,0)
+ .I INC=1 S ARR(10)=1
+"RTN","OOPSGUIR",190,0)
+ .I INC=2 S:$G(ILL) ARR(10)=ILL S:'$G(ILL) ARR(10)=6
+"RTN","OOPSGUIR",191,0)
+ .S ARR(8)=DAYA,ARR(9)=DAYJ
+"RTN","OOPSGUIR",192,0)
+ .I $D(OUTC("D")) S ARR(7)="D" S (ARR(8),ARR(9))=0 Q
+"RTN","OOPSGUIR",193,0)
+ .I $D(OUTC("A")) S ARR(7)="A" Q
+"RTN","OOPSGUIR",194,0)
+ .I $D(OUTC("J")) S ARR(7)="J" Q
+"RTN","OOPSGUIR",195,0)
+ .I $D(OUTC("O")) S ARR(7)="O" Q
+"RTN","OOPSGUIR",196,0)
+ Q
+"RTN","OOPSGUIR",197,0)
+EMPHRS ; get Total Num Employees and Hours worked
+"RTN","OOPSGUIR",198,0)
+ N CASES,ED,LV1,LV2,MON,OK,PAR,SD,SIEN,STR,WS,X,X1,X2
+"RTN","OOPSGUIR",199,0)
+ S (EMP,HRS,WS)=0
+"RTN","OOPSGUIR",200,0)
+ S PAR="^OOPS(2262,0)",PAR=$Q(@PAR),PAR=$Q(@PAR)
+"RTN","OOPSGUIR",201,0)
+ S LV1=$P(PAR,",",2),LV2=$P(PAR,",",3)
+"RTN","OOPSGUIR",202,0)
+ S SIEN=$O(^OOPS(2262,LV1,LV2,"B",STA,-1)) Q:SIEN=""
+"RTN","OOPSGUIR",203,0)
+ ; get month range to make sure all emp numbers and hours are entered
+"RTN","OOPSGUIR",204,0)
+ S SDATE=SDATE\1
+"RTN","OOPSGUIR",205,0)
+ S SD=$E(SDATE,1,5)_"00"_$E(SDATE,8,$L(SDATE))
+"RTN","OOPSGUIR",206,0)
+ S ED=$E(EDATE,1,5)_"00"_$E(EDATE,8,$L(EDATE))
+"RTN","OOPSGUIR",207,0)
+ S X1=$E(ED,1,3),X2=$E(SD,1,3)
+"RTN","OOPSGUIR",208,0)
+ I X1>X2 D
+"RTN","OOPSGUIR",209,0)
+ .S OK=0,X=(X1-X2) S:X>1 OK=(X-1)*12
+"RTN","OOPSGUIR",210,0)
+ .S OK=OK+((12-$E(SD,4,5))+1)+$E(ED,4,5)
+"RTN","OOPSGUIR",211,0)
+ I X1=X2 S OK=($E(ED,4,5)-$E(SD,4,5))+1
+"RTN","OOPSGUIR",212,0)
+ S MON=OK
+"RTN","OOPSGUIR",213,0)
+ F S WS=$O(^OOPS(2262,LV1,LV2,SIEN,2,WS)) Q:(WS'>0) D
+"RTN","OOPSGUIR",214,0)
+ .S STR=^OOPS(2262,LV1,LV2,SIEN,2,WS,0)
+"RTN","OOPSGUIR",215,0)
+ .I ($P(STR,U)'<SD)&($P(STR,U)'>ED) D
+"RTN","OOPSGUIR",216,0)
+ ..I ($P(STR,U,2)="")!($P(STR,U,3)="") Q
+"RTN","OOPSGUIR",217,0)
+ ..S EMP=EMP+$P(STR,U,2),HRS=HRS+$P(STR,U,3),OK=OK-1
+"RTN","OOPSGUIR",218,0)
+ I '$G(OK) S EMP=EMP/MON
+"RTN","OOPSGUIR",219,0)
+ I $G(OK) S (EMP,HRS)="INCOMPLETE DATA"
+"RTN","OOPSGUIR",220,0)
+ Q
+"VER")
+8.0^22.0
+"BLD",9215,6)
+^26
+**END**
+**END**
diff --git a/Packages/Asists/Patches/OOPS_2.0_25/OOPS-2_SEQ-26_PAT-25.TXT b/Packages/Asists/Patches/OOPS_2.0_25/OOPS-2_SEQ-26_PAT-25.TXT
new file mode 100644
index 0000000..fa5ee91
--- /dev/null
+++ b/Packages/Asists/Patches/OOPS_2.0_25/OOPS-2_SEQ-26_PAT-25.TXT
@@ -0,0 +1,176 @@
+$TXT Created by ADES,ROBERT at MNTVBB.FO-ALBANY.DOMAIN.EXT (KIDS) on Wednesday, 02/13/13 at 13:49
+=============================================================================
+Run Date: OCT 02, 2013 Designation: OOPS*2*25
+Package : OOPS - ASISTS Priority: Mandatory
+Version : 2 SEQ #26 Status: Released
+ Compliance Date: NOV 02, 2013
+=============================================================================
+
+Associated patches: (v)OOPS*2*20 <<= must be installed BEFORE `OOPS*2*25'
+ (v)OOPS*2*24 <<= must be installed BEFORE `OOPS*2*25'
+
+Subject: INACTIVE STATIONS;INCIDENT OUTCOME TOTAL DAYS;INCIDENT OUTCOME ORDER
+
+Category:
+ - Routine
+
+Description:
+============
+
+ This patch addresses 3 issues in the ASISTS (Automated Safety
+ Incident Surveillance and Tracking System) GUI (Graphical User Interface):
+
+ 1) Issues displaying Stations on the "Edit Site Parameter" form
+ 2) Incident Outcome display order problems
+ 3) OSHA (Occupational Safety and Health Administration) 300 "Away From
+ Work" and "Job Transfer/Restriction" calculation issues
+
+
+ ASSOCIATED NSR(s):
+ ==================
+ N/A
+
+
+ ASSOCIATED REMEDY TICKET(s):
+ ============================
+ 1) INC000000781436 Site Perimeters are not showing up
+ (d)INC000000787155 CBOBs not list in OSHA 300A Summary Report
+ (d)INC000000806578 ASISTS - Other: 3 Missing stations, and the
+ last one you cannot get into (presently disabled).
+
+ 2) INC000000730564 ASISTS - Other:
+
+ 3) INC000000809171 ASISTS - Report Issue:
+
+
+ TEST SITES:
+ ===========
+ Cleveland, OH
+ Miami, FL
+ Minneapolis, MN
+ North Texas HCS
+
+
+ REMEDY OVERVIEW:
+ ================
+ 1) INC000000781436 Site Perimeters are not showing up
+
+ Problem:
+ --------
+ If a site has an inactive station in the ASISTS SITE PARAMETER file
+ (#2262) any station following the inactive station will fail
+ to display on the "Edit Site Parameter" form in the ASISTS GUI.
+
+ Resolution:
+ -----------
+ Modified the code so that when a Station entry is encountered that is
+ marked as inactive, the process will continue to list all stations listed
+ in the file after the inactive one.
+
+ Routine: OOPSGUI6
+
+ 2) INC000000730564 ASISTS - Other:
+
+ Problem:
+ --------
+ Once an individual exceeds nine records in the INCIDENT OUTCOME
+ SUB-FILE (#95) in the ASISTS ACCIDENT REPORTING (#2260) file, the records
+ begin to display out of chronological order on the Incident Outcome form
+ on the ASISTS GUI.
+
+ Resolution:
+ -----------
+ The FILEMAN call to retrieve the records and subsequently return the results
+ to the ASISTS GUI does not sort correctly once the subfile reaches ten
+ records. This patch will add code to further sort the results to ensure
+ the data returned to the ASISTS GUI will be in the order the records were
+ saved in the INCIDENT OUTCOME SUB-FILE (#95).
+
+ Routine: OOPSGUIC
+
+ 3) INC000000809171 ASISTS - Report Issue:
+
+ Problem:
+ --------
+ The system will calculate the total days the individual has accumulated
+ for all added incident outcome classification entries. The result will
+ be the summation of the actual number of days for both "Away From Work"
+ and "Job Transfer/Restriction" entries. If the calculated total days for
+ a specific case exceed 180 days, the maximum number of days that will
+ be reported for that case on the OSHA 300 Log will be 180 days. However,
+ if the summation equals exactly 180 days, it fails to record the most
+ recent incident outcome days.
+
+ Resolution:
+ -----------
+ Modify the software to account for instances when the summation equals
+ exactly 180 days so that all valid incident outcome data is included.
+
+ Routine: OOPSGUIR
+
+
+ ================ INSTALLATION INSTRUCTIONS =================
+
+ You may install these routines at any time without interruption to users.
+ Installation should take less than 2 minutes.
+
+ 1. Choose the PackMan message containing this patch and invoke the
+ INSTALL/CHECK MESSAGE PackMan option.
+
+ 2. From the Kernel Installation & Distribution System menu, select
+ the Installation menu.
+
+ 3. From this menu, you may select to use the following options:
+ (when prompted for INSTALL NAME, enter OOPS*2.0*25)
+
+ a. Verify Checksums in Transport Global - This option will allow
+ you to ensure the integrity of the routines that are in the
+ transport global.
+ b. Print Transport Global - This option will allow you to view
+ the components of the KIDS build.
+ c. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this patch
+ is installed. It compares all components of this patch
+ (routines, DD's, templates, etc.).
+ d. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DD's or templates.
+
+ 4. Use the Install Package(s) option and select the package OOPS*2.0*25.
+
+
+ 5. When Prompted "Want KIDS to INHIBIT LOGONs during the install?
+ NO//" respond NO.
+
+ 6. When Prompted "Want to DISABLE Scheduled Options, Menu Options, and
+ Protocols? YES//" respond NO.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;2.0;ASISTS;**[Patch List]**;Jun 03, 2002;Build 4
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: OOPSGUI6
+ Before: B53278536 After: B55527418 **4,8,7,25**
+Routine Name: OOPSGUIC
+ Before: B66128626 After: B79794142 **8,7,23,24,25**
+Routine Name: OOPSGUIR
+ Before: B70518771 After: B71502420 **8,7,11,14,20,25**
+
+Routine list of preceding patches: 20, 24
+
+=============================================================================
+User Information:
+Entered By : ADES,ROBERT Date Entered : JAN 28, 2013
+Completed By: LANG,MICKEY Date Completed: SEP 26, 2013
+Released By : MORRIS,DELISA Date Released : OCT 02, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/Automated Medical Information Exchange/Patches/DVBA_2.7_172/.gitignore b/Packages/Automated Medical Information Exchange/Patches/DVBA_2.7_172/.gitignore
new file mode 100644
index 0000000..abf71ce
--- /dev/null
+++ b/Packages/Automated Medical Information Exchange/Patches/DVBA_2.7_172/.gitignore
@@ -0,0 +1 @@
+DVBA-2P7_SEQ-150_PAT-172.KID
diff --git a/Packages/Automated Medical Information Exchange/Patches/DVBA_2.7_174/.gitignore b/Packages/Automated Medical Information Exchange/Patches/DVBA_2.7_174/.gitignore
new file mode 100644
index 0000000..ca41f86
--- /dev/null
+++ b/Packages/Automated Medical Information Exchange/Patches/DVBA_2.7_174/.gitignore
@@ -0,0 +1 @@
+DVBA-2P7_SEQ-154_PAT-174.KID
diff --git a/Packages/Automated Medical Information Exchange/Patches/DVBA_2.7_175/.gitignore b/Packages/Automated Medical Information Exchange/Patches/DVBA_2.7_175/.gitignore
new file mode 100644
index 0000000..d8b8d2c
--- /dev/null
+++ b/Packages/Automated Medical Information Exchange/Patches/DVBA_2.7_175/.gitignore
@@ -0,0 +1 @@
+DVBA-2P7_SEQ-156_PAT-175.KID
diff --git a/Packages/Barcode Medication Administration/Patches/PSB_3.0_54/PSB-3_SEQ-60_PAT-54.KIDS b/Packages/Barcode Medication Administration/Patches/PSB_3.0_54/PSB-3_SEQ-60_PAT-54.KIDS
new file mode 100644
index 0000000..04a1cc9
--- /dev/null
+++ b/Packages/Barcode Medication Administration/Patches/PSB_3.0_54/PSB-3_SEQ-60_PAT-54.KIDS
@@ -0,0 +1,1136 @@
+Released PSB*3*54 SEQ #60
+Extracted from mail message
+**KIDS**:PSB*3.0*54^
+
+**INSTALL NAME**
+PSB*3.0*54
+"BLD",8353,0)
+PSB*3.0*54^BAR CODE MED ADMIN^0^3130905^y
+"BLD",8353,1,0)
+^^11^11^3110609^
+"BLD",8353,1,1,0)
+This Patch Addresses 2 issues:
+"BLD",8353,1,2,0)
+
+"BLD",8353,1,3,0)
+1. An Undefined error occurs at LINE+13^PSBOML when the
+"BLD",8353,1,4,0)
+ BCMA Med Log report is run and finds a BCMA MED LOG
+"BLD",8353,1,5,0)
+ (#53.79) entry without a corresponding PHARMACY PATIENT (#55)
+"BLD",8353,1,6,0)
+ entry.
+"BLD",8353,1,7,0)
+2. When giving an IV via the Unable to Scan feature, the user will
+"BLD",8353,1,8,0)
+ receive a "Incomplete Data Returned from Vista" pop up box if the
+"BLD",8353,1,9,0)
+ data attempting to be stored in the ORDERABLE ITEM (#15) field of
+"BLD",8353,1,10,0)
+ the BCMA UNABLE TO SCAN LOG (#53.77) file is greater than 40
+"BLD",8353,1,11,0)
+ characters.
+"BLD",8353,4,0)
+^9.64PA^53.77^1
+"BLD",8353,4,53.77,0)
+53.77
+"BLD",8353,4,53.77,222)
+y^y^p^^^^n^^n
+"BLD",8353,4,53.77,224)
+
+"BLD",8353,4,"B",53.77,53.77)
+
+"BLD",8353,6.3)
+40
+"BLD",8353,"INID")
+^y
+"BLD",8353,"INIT")
+PSTINSTL^PSB54P
+"BLD",8353,"KRN",0)
+^9.67PA^779.2^20
+"BLD",8353,"KRN",.4,0)
+.4
+"BLD",8353,"KRN",.401,0)
+.401
+"BLD",8353,"KRN",.402,0)
+.402
+"BLD",8353,"KRN",.403,0)
+.403
+"BLD",8353,"KRN",.5,0)
+.5
+"BLD",8353,"KRN",.84,0)
+.84
+"BLD",8353,"KRN",3.6,0)
+3.6
+"BLD",8353,"KRN",3.8,0)
+3.8
+"BLD",8353,"KRN",9.2,0)
+9.2
+"BLD",8353,"KRN",9.8,0)
+9.8
+"BLD",8353,"KRN",9.8,"NM",0)
+^9.68A^1^1
+"BLD",8353,"KRN",9.8,"NM",1,0)
+PSBOML^^0^B41485291
+"BLD",8353,"KRN",9.8,"NM","B","PSBOML",1)
+
+"BLD",8353,"KRN",19,0)
+19
+"BLD",8353,"KRN",19.1,0)
+19.1
+"BLD",8353,"KRN",101,0)
+101
+"BLD",8353,"KRN",409.61,0)
+409.61
+"BLD",8353,"KRN",771,0)
+771
+"BLD",8353,"KRN",779.2,0)
+779.2
+"BLD",8353,"KRN",870,0)
+870
+"BLD",8353,"KRN",8989.51,0)
+8989.51
+"BLD",8353,"KRN",8989.52,0)
+8989.52
+"BLD",8353,"KRN",8994,0)
+8994
+"BLD",8353,"KRN","B",.4,.4)
+
+"BLD",8353,"KRN","B",.401,.401)
+
+"BLD",8353,"KRN","B",.402,.402)
+
+"BLD",8353,"KRN","B",.403,.403)
+
+"BLD",8353,"KRN","B",.5,.5)
+
+"BLD",8353,"KRN","B",.84,.84)
+
+"BLD",8353,"KRN","B",3.6,3.6)
+
+"BLD",8353,"KRN","B",3.8,3.8)
+
+"BLD",8353,"KRN","B",9.2,9.2)
+
+"BLD",8353,"KRN","B",9.8,9.8)
+
+"BLD",8353,"KRN","B",19,19)
+
+"BLD",8353,"KRN","B",19.1,19.1)
+
+"BLD",8353,"KRN","B",101,101)
+
+"BLD",8353,"KRN","B",409.61,409.61)
+
+"BLD",8353,"KRN","B",771,771)
+
+"BLD",8353,"KRN","B",779.2,779.2)
+
+"BLD",8353,"KRN","B",870,870)
+
+"BLD",8353,"KRN","B",8989.51,8989.51)
+
+"BLD",8353,"KRN","B",8989.52,8989.52)
+
+"BLD",8353,"KRN","B",8994,8994)
+
+"BLD",8353,"QUES",0)
+^9.62^^
+"BLD",8353,"REQB",0)
+^9.611^2^1
+"BLD",8353,"REQB",2,0)
+PSB*3.0*50^2
+"BLD",8353,"REQB","B","PSB*3.0*50",2)
+
+"FIA",53.77)
+BCMA UNABLE TO SCAN LOG
+"FIA",53.77,0)
+^PSB(53.77,
+"FIA",53.77,0,0)
+53.77P
+"FIA",53.77,0,1)
+y^y^f^^^^n^^n
+"FIA",53.77,0,10)
+
+"FIA",53.77,0,11)
+
+"FIA",53.77,0,"RLRO")
+
+"FIA",53.77,0,"VR")
+3.0^PSB
+"FIA",53.77,53.77)
+0
+"FIA",53.77,53.771)
+0
+"FIA",53.77,53.7711)
+0
+"FIA",53.77,53.7712)
+0
+"INIT")
+PSTINSTL^PSB54P
+"MBREQ")
+0
+"PKG",550,-1)
+1^1
+"PKG",550,0)
+BAR CODE MED ADMIN^PSB^BAR CODE MEDICATION ADMINISTRATION
+"PKG",550,20,0)
+^9.402P^^
+"PKG",550,22,0)
+^9.49I^1^1
+"PKG",550,22,1,0)
+3.0^3040224^3040311^66481
+"PKG",550,22,1,"PAH",1,0)
+54^3130905
+"PKG",550,22,1,"PAH",1,1,0)
+^^11^11^3130905
+"PKG",550,22,1,"PAH",1,1,1,0)
+This Patch Addresses 2 issues:
+"PKG",550,22,1,"PAH",1,1,2,0)
+
+"PKG",550,22,1,"PAH",1,1,3,0)
+1. An Undefined error occurs at LINE+13^PSBOML when the
+"PKG",550,22,1,"PAH",1,1,4,0)
+ BCMA Med Log report is run and finds a BCMA MED LOG
+"PKG",550,22,1,"PAH",1,1,5,0)
+ (#53.79) entry without a corresponding PHARMACY PATIENT (#55)
+"PKG",550,22,1,"PAH",1,1,6,0)
+ entry.
+"PKG",550,22,1,"PAH",1,1,7,0)
+2. When giving an IV via the Unable to Scan feature, the user will
+"PKG",550,22,1,"PAH",1,1,8,0)
+ receive a "Incomplete Data Returned from Vista" pop up box if the
+"PKG",550,22,1,"PAH",1,1,9,0)
+ data attempting to be stored in the ORDERABLE ITEM (#15) field of
+"PKG",550,22,1,"PAH",1,1,10,0)
+ the BCMA UNABLE TO SCAN LOG (#53.77) file is greater than 40
+"PKG",550,22,1,"PAH",1,1,11,0)
+ characters.
+"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","PSB54P")
+0^^B3645081^n/a
+"RTN","PSB54P",1,0)
+PSB54P ;MNT/BJR - PSB*3*54 POST INSTALL; 7 April 2010 11:36 AM ; 9/5/13 9:37am
+"RTN","PSB54P",2,0)
+ ;;3.0;BAR CODE MED ADMIN;**54**;Mar 2004;Build 40
+"RTN","PSB54P",3,0)
+ ;Per VHA Directive 2004-038 (or future revisions regarding same), this routine should not be modified.
+"RTN","PSB54P",4,0)
+ ;
+"RTN","PSB54P",5,0)
+ Q
+"RTN","PSB54P",6,0)
+PSTINSTL ;PSB*3*54 POST INSTALL ROUTINE
+"RTN","PSB54P",7,0)
+ N PSBMG,XMDUZ,XMSUB,XMTEXT,PSBUNMG,PSBMEMB,XMY,PSBMES
+"RTN","PSB54P",8,0)
+ S PSBMG=$$GET^XPAR("DIV","PSB MG ADMIN ERROR",,"E") Q:PSBMG=""
+"RTN","PSB54P",9,0)
+ S PSBMEMB=$$GOTLOCAL^XMXAPIG(PSBMG)
+"RTN","PSB54P",10,0)
+ I PSBMEMB=0 D
+"RTN","PSB54P",11,0)
+ .S PSBMES="*****PSB*3.0*54 has been installed and found that the UNKNOWN ACTIONS Mailgroup" D Q
+"RTN","PSB54P",12,0)
+ ..D BMES^XPDUTL(PSBMES)
+"RTN","PSB54P",13,0)
+ ..S PSBMES="listed in the BCMA PARAMETERS GUI has no active members. Please contact your"
+"RTN","PSB54P",14,0)
+ ..D MES^XPDUTL(PSBMES)
+"RTN","PSB54P",15,0)
+ ..S PSBMES="local BCMA Coordinator to add active members to this mailgroup.*****"
+"RTN","PSB54P",16,0)
+ ..D MES^XPDUTL(PSBMES)
+"RTN","PSB54P",17,0)
+ ..S XMSUB="NO ACTIVE MEMBERS IN UNKNOWN ACTIONS MAILGROUP"
+"RTN","PSB54P",18,0)
+ ..S XMDUZ=DUZ
+"RTN","PSB54P",19,0)
+ ..S XMTEXT="PSBUNMG"
+"RTN","PSB54P",20,0)
+ ..S XMY(DUZ)=""
+"RTN","PSB54P",21,0)
+ ..S PSBUNMG(1)="PSB*3.0*54 has been installed and found that the"
+"RTN","PSB54P",22,0)
+ ..S PSBUNMG(2)="UNKNOWN ACTIONS Mailgroup listed in the BCMA"
+"RTN","PSB54P",23,0)
+ ..S PSBUNMG(3)="PARAMETERS GUI has no active members. Please contact"
+"RTN","PSB54P",24,0)
+ ..S PSBUNMG(4)="your local BCMA Coordinator to add active members to"
+"RTN","PSB54P",25,0)
+ ..S PSBUNMG(5)="this mailgroup."
+"RTN","PSB54P",26,0)
+ ..D SENDMSG^XMXAPI(XMDUZ,XMSUB,XMTEXT,.XMY)
+"RTN","PSB54P",27,0)
+ Q
+"RTN","PSBOML")
+0^1^B41485291^B33332484
+"RTN","PSBOML",1,0)
+PSBOML ;BIRMINGHAM/EFC-MEDICATION LOG ;Mar 2004
+"RTN","PSBOML",2,0)
+ ;;3.0;BAR CODE MED ADMIN;**3,11,50,54**;Mar 2004;Build 40
+"RTN","PSBOML",3,0)
+ ;Per VHA Directive 2004-038 (or future revisions regarding same), this routine should not be modified.
+"RTN","PSBOML",4,0)
+ ;
+"RTN","PSBOML",5,0)
+ ; Reference/IA
+"RTN","PSBOML",6,0)
+ ; ^DPT/10035
+"RTN","PSBOML",7,0)
+ ; SENDMSG^XMXAPI/2729
+"RTN","PSBOML",8,0)
+ ;
+"RTN","PSBOML",9,0)
+ ;
+"RTN","PSBOML",10,0)
+EN ; Begin printing
+"RTN","PSBOML",11,0)
+ N PSBSTRT,PSBSTOP,PSBHDR,DFN
+"RTN","PSBOML",12,0)
+ S PSBSTRT=$P(PSBRPT(.1),U,6)+$P(PSBRPT(.1),U,7)
+"RTN","PSBOML",13,0)
+ S PSBSTOP=$P(PSBRPT(.1),U,8)+$P(PSBRPT(.1),U,9)
+"RTN","PSBOML",14,0)
+ S PSBAUDF=$P(PSBRPT(.2),U,9)
+"RTN","PSBOML",15,0)
+ S PSBHDR(0)="Medication Log Report"
+"RTN","PSBOML",16,0)
+ S PSBHDR(1)="Continuing/PRN/Stat/One Time Medication/Treatment Record (Detailed Log) (VAF 10-2970 B, C, D)"
+"RTN","PSBOML",17,0)
+ ;
+"RTN","PSBOML",18,0)
+ ; Patient Report
+"RTN","PSBOML",19,0)
+ ;
+"RTN","PSBOML",20,0)
+ D:$P(PSBRPT(.1),U,1)="P"
+"RTN","PSBOML",21,0)
+ .S PSBHDR(2)="Log Type: INDIVIDUAL PATIENT"
+"RTN","PSBOML",22,0)
+ .S DFN=+$P(PSBRPT(.1),U,2)
+"RTN","PSBOML",23,0)
+ .W $$PTHDR()
+"RTN","PSBOML",24,0)
+ .S X=$O(^PSB(53.79,"AADT",DFN,PSBSTRT-.0000001))
+"RTN","PSBOML",25,0)
+ .I X>PSBSTOP!(X="") W !!?10,"<<<< NO MEDICATIONS FOUND FOR THIS TIME FRAME >>>>",!! Q
+"RTN","PSBOML",26,0)
+ .S PSBGBL=$NAME(^PSB(53.79,"AADT",DFN,PSBSTRT-.0000001))
+"RTN","PSBOML",27,0)
+ .F S PSBGBL=$Q(@PSBGBL) Q:PSBGBL="" Q:$QS(PSBGBL,2)'="AADT"!($QS(PSBGBL,3)'=DFN)!($QS(PSBGBL,4)>PSBSTOP) D
+"RTN","PSBOML",28,0)
+ ..S PSBIEN=$QS(PSBGBL,5) Q:'$D(^PSB(53.79,PSBIEN))
+"RTN","PSBOML",29,0)
+ ..I $P(^PSB(53.79,PSBIEN,0),U,6)'=$QS(PSBGBL,4) Q
+"RTN","PSBOML",30,0)
+ ..I $Y>(IOSL-10) W $$PTFTR^PSBOHDR(),$$PTHDR()
+"RTN","PSBOML",31,0)
+ ..W $$LINE(PSBIEN)
+"RTN","PSBOML",32,0)
+ .W $$PTFTR^PSBOHDR()
+"RTN","PSBOML",33,0)
+ ;
+"RTN","PSBOML",34,0)
+ ; Ward Output
+"RTN","PSBOML",35,0)
+ ;
+"RTN","PSBOML",36,0)
+ D:$P(PSBRPT(.1),U,1)="W"
+"RTN","PSBOML",37,0)
+ .S PSBHDR(2)="LOG TYPE: WARD"
+"RTN","PSBOML",38,0)
+ .W $$WDHDR(PSBWRD)
+"RTN","PSBOML",39,0)
+ .S PSBTMPG=$NAME(^TMP("PSBO",$J,"B"))
+"RTN","PSBOML",40,0)
+ .F S PSBTMPG=$Q(@PSBTMPG) Q:PSBTMPG="" Q:$QS(PSBTMPG,1)'="PSBO"!($QS(PSBTMPG,2)'=$J) D
+"RTN","PSBOML",41,0)
+ ..S DFN=$QS(PSBTMPG,5)
+"RTN","PSBOML",42,0)
+ ..I $Y>(IOSL-14) W $$WDHDR(PSBWRD)
+"RTN","PSBOML",43,0)
+ ..W !,$P(^DPT(DFN,0),U)," (",$P(^(0),U,9),")"
+"RTN","PSBOML",44,0)
+ ..W !,"Ward: ",$G(^DPT(DFN,.1),"***")," Rm-Bed: ",$G(^DPT(DFN,.101),"***"),!
+"RTN","PSBOML",45,0)
+ ..S X=$O(^PSB(53.79,"AADT",DFN,PSBSTRT-.0000001))
+"RTN","PSBOML",46,0)
+ ..I X>PSBSTOP!(X="") W !!?10,"<<<< NO MEDICATIONS FOUND FOR THIS TIME FRAME >>>>",!! Q
+"RTN","PSBOML",47,0)
+ ..S PSBGBL=$NAME(^PSB(53.79,"AADT",DFN,PSBSTRT-.0000001))
+"RTN","PSBOML",48,0)
+ ..F S PSBGBL=$Q(@PSBGBL) Q:PSBGBL="" Q:$QS(PSBGBL,2)'="AADT"!($QS(PSBGBL,3)'=DFN)!($QS(PSBGBL,4)>PSBSTOP) D
+"RTN","PSBOML",49,0)
+ ...S PSBIEN=$QS(PSBGBL,5) I $P(^PSB(53.79,PSBIEN,0),U,6)'=$QS(PSBGBL,4) Q
+"RTN","PSBOML",50,0)
+ ...W:$Y>(IOSL-10) $$WDHDR(PSBWRD)
+"RTN","PSBOML",51,0)
+ ...W $$LINE(PSBIEN)
+"RTN","PSBOML",52,0)
+ Q
+"RTN","PSBOML",53,0)
+ ;
+"RTN","PSBOML",54,0)
+LINE(PSBIEN) ; Displays the med log entry in PSBIEN
+"RTN","PSBOML",55,0)
+ N PSBX,PSBASTUS
+"RTN","PSBOML",56,0)
+ S X=$P($G(^PSB(53.79,PSBIEN,.1)),U)
+"RTN","PSBOML",57,0)
+ I X="" W !,"Error: Med Log Entry ",PSBIEN," has no order reference number!" Q ""
+"RTN","PSBOML",58,0)
+ I 'PSBAUDF,$P(^PSB(53.79,PSBIEN,0),U,9)="N" Q ""
+"RTN","PSBOML",59,0)
+ D CLEAN^PSBVT
+"RTN","PSBOML",60,0)
+ D PSJ1^PSBVT(DFN,X)
+"RTN","PSBOML",61,0)
+ I $G(PSBSCRT)="-1" D ;send email to BCMA UKNOWN ACTIONS group if order given in BCMA does not have a corresponding # 55 file entry
+"RTN","PSBOML",62,0)
+ .N XMDUZ,XMSUB,XMTEXT,XMY,PSBERR,PSBPARAM,PSBMG
+"RTN","PSBOML",63,0)
+ .S XMSUB="Order given in BCMA does not exist in Pharmacy Patient file"
+"RTN","PSBOML",64,0)
+ .S XMDUZ=DUZ
+"RTN","PSBOML",65,0)
+ .S XMTEXT="PSBERR"
+"RTN","PSBOML",66,0)
+ .S PSBMG=$$GET^XPAR("DIV","PSB MG ADMIN ERROR",,"E"),PSBMG="G."_PSBMG
+"RTN","PSBOML",67,0)
+ .S XMY(PSBMG)=""
+"RTN","PSBOML",68,0)
+ .S PSBERR(1)="Order #"_$G(PSBIEN)_" given in BCMA no longer has"
+"RTN","PSBOML",69,0)
+ .S PSBERR(2)="a corresponding entry in the Pharmacy Patient (#55) file."
+"RTN","PSBOML",70,0)
+ .S PSBERR(3)="Please submit a remedy ticket for this issue."
+"RTN","PSBOML",71,0)
+ .D SENDMSG^XMXAPI(XMDUZ,XMSUB,XMTEXT,.XMY)
+"RTN","PSBOML",72,0)
+ .Q
+"RTN","PSBOML",73,0)
+ I PSBDFN="-1" W !,"Error: Inpatient Meds API Failure!" Q ""
+"RTN","PSBOML",74,0)
+ M PSBX=^PSB(53.79,PSBIEN)
+"RTN","PSBOML",75,0)
+ S Y=$P(PSBX(0),U,4)+.0000001
+"RTN","PSBOML",76,0)
+ W !,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
+"RTN","PSBOML",77,0)
+ W " ",$E(Y,9,10),":",$E(Y,11,12)
+"RTN","PSBOML",78,0)
+ S Y=$$GET1^DIQ(53.79,PSBIEN_",",.08)
+"RTN","PSBOML",79,0)
+ S Y=Y_" ["_$G(PSBDOSE)_$G(PSBIFR)_" "_$G(PSBSCH)
+"RTN","PSBOML",80,0)
+ S Y=Y_" "_$G(PSBMRAB)
+"RTN","PSBOML",81,0)
+ S:$P($G(^PSB(53.79,PSBIEN,.1)),U,6)]"" Y=Y_" Inj Site: "_$P(^(.1),U,6)
+"RTN","PSBOML",82,0)
+ S Y=Y_"]"
+"RTN","PSBOML",83,0)
+ W $$WRAP^PSBO(16,32,Y)
+"RTN","PSBOML",84,0)
+ W ?50,$$GET1^DIQ(53.79,PSBIEN_",","ACTION BY:INITIAL")
+"RTN","PSBOML",85,0)
+ S X=$P(PSBX(0),U,9)
+"RTN","PSBOML",86,0)
+ S PSBASTUS=$S(X="G":"Given",X="H":"Held",X="R":"Refused",X="I":"Infusing",X="C":"Completed",X="S":"Stopped",X="N":"Not Given",X="RM":"Removed",X="M":"Missing dose",1:"Status Unknown")
+"RTN","PSBOML",87,0)
+ S Y=$P(PSBX(0),U,6)+.0000001
+"RTN","PSBOML",88,0)
+ S Y=$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)_" "_$E(Y,9,10)_":"_$E(Y,11,12)
+"RTN","PSBOML",89,0)
+ S Y=Y_" "_$G(PSBASTUS)
+"RTN","PSBOML",90,0)
+ W $$WRAP^PSBO(57,15,Y)
+"RTN","PSBOML",91,0)
+ W:$P(PSBX(.1),U)["V" ?75,"Bag ID #",$$GET1^DIQ(53.79,PSBIEN,"IV UNIQUE ID")
+"RTN","PSBOML",92,0)
+ W:$P(PSBX(.1),U)["V" ?107,"NA",?115,"NA",?120,"NA"
+"RTN","PSBOML",93,0)
+ W !,$TR($$FMTE^XLFDT($G(PSBOST),2),"@"," ")_">"
+"RTN","PSBOML",94,0)
+ F PSBZ=.5,.6,.7 S PSBDHIT=0 F PSBY=0:0 S PSBY=$O(PSBX(PSBZ,PSBY)) Q:'PSBY D
+"RTN","PSBOML",95,0)
+ .W:$X>75 !
+"RTN","PSBOML",96,0)
+ .S PSBDD=$S(PSBZ=.5:53.795,PSBZ=.6:53.796,1:53.797)
+"RTN","PSBOML",97,0)
+ .S Y=$$EXTERNAL^DILFD(PSBDD,.01,"",$P(PSBX(PSBZ,PSBY,0),U,1))
+"RTN","PSBOML",98,0)
+ .W $$WRAP^PSBO(75,28,Y)
+"RTN","PSBOML",99,0)
+ .I $P(PSBX(.1),U)["U" W ?105,$J($P(PSBX(PSBZ,PSBY,0),U,2),6,2),?113,$J($P(PSBX(PSBZ,PSBY,0),U,3),6,2) W $$WRAP^PSBO(120,12,$P(PSBX(PSBZ,PSBY,0),U,4)) S PSBDHIT=1
+"RTN","PSBOML",100,0)
+ .W:$P(PSBX(.1),U)["V"&($X+3+$L($P(PSBX(PSBZ,PSBY,0),U,3))>105) !?75
+"RTN","PSBOML",101,0)
+ .W:$P(PSBX(.1),U)["V" " - ",$P(PSBX(PSBZ,PSBY,0),U,3)
+"RTN","PSBOML",102,0)
+ D:$P($G(^PSB(53.79,PSBIEN,.1)),U,2)="P"
+"RTN","PSBOML",103,0)
+ .W !?16,"PRN Reason: ",?30,$$GET1^DIQ(53.79,PSBIEN_",",.21)
+"RTN","PSBOML",104,0)
+ .W !?16,"PRN Effectiveness: "
+"RTN","PSBOML",105,0)
+ .I $P($G(^PSB(53.79,PSBIEN,.2)),U,2)="" W "<No PRN Effectiveness Entered>" Q
+"RTN","PSBOML",106,0)
+ .N PSBEIECMT S PSBEIECMT="" I $P($G(^PSB(53.79,PSBIEN,.2)),U,2)'="",$P(PSBRPT(.2),U,8)=0 S PSBEIECMT=$$PRNEFF^PSBO(PSBEIECMT,PSBIEN)
+"RTN","PSBOML",107,0)
+ .W $$WRAP^PSBO(20,100,$$GET1^DIQ(53.79,PSBIEN_",",.22)_PSBEIECMT)
+"RTN","PSBOML",108,0)
+ .W !?20,"Entered By: ",$$GET1^DIQ(53.79,PSBIEN_",",.23)
+"RTN","PSBOML",109,0)
+ .W " Date/Time: ",$$GET1^DIQ(53.79,PSBIEN_",",.24)
+"RTN","PSBOML",110,0)
+ .W " Minutes: ",$$GET1^DIQ(53.79,PSBIEN_",",.25)
+"RTN","PSBOML",111,0)
+ D:$P(PSBRPT(.2),U,8)
+"RTN","PSBOML",112,0)
+ .W !?16,"Comments: ",?30 I '$O(PSBX(.3,0)) W "<No Comments>"
+"RTN","PSBOML",113,0)
+ .F PSBY=0:0 S PSBY=$O(PSBX(.3,PSBY)) Q:'PSBY D
+"RTN","PSBOML",114,0)
+ ..W:$X>30 !?30
+"RTN","PSBOML",115,0)
+ ..S Y=$P(PSBX(.3,PSBY,0),U,3)+.0000001
+"RTN","PSBOML",116,0)
+ ..W $E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
+"RTN","PSBOML",117,0)
+ ..W " ",$E(Y,9,10),":",$E(Y,11,12)
+"RTN","PSBOML",118,0)
+ ..W ?46,$$GET1^DIQ(53.793,PSBY_","_PSBIEN_",","ENTERED BY:INITIAL")
+"RTN","PSBOML",119,0)
+ ..W $$WRAP^PSBO(52,70,$P(PSBX(.3,PSBY,0),U,1))
+"RTN","PSBOML",120,0)
+ W !,$TR($$FMTE^XLFDT($G(PSBOSP),2),"@"," ")_"<"
+"RTN","PSBOML",121,0)
+ D:PSBAUDF
+"RTN","PSBOML",122,0)
+ .W !?16,"Audits: ",?30 I '$O(PSBX(.9,0)) W "<No Audits>" Q
+"RTN","PSBOML",123,0)
+ .F PSBY=0:0 S PSBY=$O(PSBX(.9,PSBY)) Q:'PSBY D
+"RTN","PSBOML",124,0)
+ ..W:$X>30 !?30
+"RTN","PSBOML",125,0)
+ ..S Y=$P(PSBX(.9,PSBY,0),U,1)+.0000001
+"RTN","PSBOML",126,0)
+ ..W $E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
+"RTN","PSBOML",127,0)
+ ..W " ",$E(Y,9,10),":",$E(Y,11,12)
+"RTN","PSBOML",128,0)
+ ..W ?46,$$GET1^DIQ(53.799,PSBY_","_PSBIEN_",","USER:INITIAL")
+"RTN","PSBOML",129,0)
+ ..W $$WRAP^PSBO(52,70,$P(PSBX(.9,PSBY,0),U,3))
+"RTN","PSBOML",130,0)
+ W !,$TR($J("",IOM)," ","-")
+"RTN","PSBOML",131,0)
+ Q ""
+"RTN","PSBOML",132,0)
+ ;
+"RTN","PSBOML",133,0)
+WDHDR(PSBWARD) ;
+"RTN","PSBOML",134,0)
+ D WARD^PSBOHDR(PSBWARD,.PSBHDR)
+"RTN","PSBOML",135,0)
+ W $$SUB()
+"RTN","PSBOML",136,0)
+ Q ""
+"RTN","PSBOML",137,0)
+ ;
+"RTN","PSBOML",138,0)
+PTHDR() ;
+"RTN","PSBOML",139,0)
+ D PT^PSBOHDR(DFN,.PSBHDR)
+"RTN","PSBOML",140,0)
+ W $$SUB()
+"RTN","PSBOML",141,0)
+ Q ""
+"RTN","PSBOML",142,0)
+ ;
+"RTN","PSBOML",143,0)
+SUB() ; Med Log Sub Header
+"RTN","PSBOML",144,0)
+ W:$X>1 !
+"RTN","PSBOML",145,0)
+ W "Activity Date",?16,"Orderable Item",?50,"Action",?57,"Action"
+"RTN","PSBOML",146,0)
+ W !,"Start Date>",?16,"[Dose/Sched/Route/Inj Site]",?50,"By"
+"RTN","PSBOML",147,0)
+ W ?57,"Date/Time",?75,"Drug/Additive/Solution",?105," U/Ord"
+"RTN","PSBOML",148,0)
+ W ?113," U/Gvn",?120,"Unit",!,"Stop Date<"
+"RTN","PSBOML",149,0)
+ W !,$TR($J("",IOM)," ","-")
+"RTN","PSBOML",150,0)
+ Q ""
+"RTN","PSBOML",151,0)
+ ;
+"SEC","^DIC",53.77,53.77,0,"AUDIT")
+@
+"SEC","^DIC",53.77,53.77,0,"DD")
+@
+"SEC","^DIC",53.77,53.77,0,"DEL")
+@
+"SEC","^DIC",53.77,53.77,0,"LAYGO")
+@
+"SEC","^DIC",53.77,53.77,0,"RD")
+@
+"SEC","^DIC",53.77,53.77,0,"WR")
+@
+"VER")
+8.0^22.0
+"^DD",53.77,53.77,0)
+FIELD^^15^15
+"^DD",53.77,53.77,0,"DDA")
+N
+"^DD",53.77,53.77,0,"DT")
+3081124
+"^DD",53.77,53.77,0,"IX","ASFDT",53.77,.04)
+
+"^DD",53.77,53.77,0,"IX","B",53.77,.01)
+
+"^DD",53.77,53.77,0,"NM","BCMA UNABLE TO SCAN LOG")
+
+"^DD",53.77,53.77,0,"VRPK")
+PSB
+"^DD",53.77,53.77,.01,0)
+USER ID^RP200'^VA(200,^0;1^Q
+"^DD",53.77,53.77,.01,1,0)
+^.1
+"^DD",53.77,53.77,.01,1,1,0)
+53.77^B
+"^DD",53.77,53.77,.01,1,1,1)
+S ^PSB(53.77,"B",$E(X,1,30),DA)=""
+"^DD",53.77,53.77,.01,1,1,2)
+K ^PSB(53.77,"B",$E(X,1,30),DA)
+"^DD",53.77,53.77,.01,3)
+The user at the time of the scan event.
+"^DD",53.77,53.77,.01,21,0)
+^^1^1^3081106^
+"^DD",53.77,53.77,.01,21,1,0)
+The user at the time of the scan event.
+"^DD",53.77,53.77,.01,"DT")
+3081112
+"^DD",53.77,53.77,.02,0)
+PATIENT ID^P2'^DPT(^0;2^Q
+"^DD",53.77,53.77,.02,3)
+The patient involved in the scan event.
+"^DD",53.77,53.77,.02,21,0)
+^^2^2^3081106^
+"^DD",53.77,53.77,.02,21,1,0)
+The patient (if known) involved in the scan event. This information
+"^DD",53.77,53.77,.02,21,2,0)
+may automatically be derived from user supplied data.
+"^DD",53.77,53.77,.02,"DT")
+3081112
+"^DD",53.77,53.77,.03,0)
+UAS EVENT LOCATION^F^^0;3^K:$L(X)>50!($L(X)<1) X
+"^DD",53.77,53.77,.03,3)
+The patient location at the time of scan event.
+"^DD",53.77,53.77,.03,21,0)
+^^3^3^3081106^
+"^DD",53.77,53.77,.03,21,1,0)
+The location where the scan event occurred. The attempt to scan should be
+"^DD",53.77,53.77,.03,21,2,0)
+at the patient's bedside, therefore this patient's location data is
+"^DD",53.77,53.77,.03,21,3,0)
+derived from the patient's file.
+"^DD",53.77,53.77,.03,23,0)
+^^1^1^3081106^
+"^DD",53.77,53.77,.03,23,1,0)
+File #2 Field# .1 _ "/" _ File #2 Field # .101
+"^DD",53.77,53.77,.03,"DT")
+3081106
+"^DD",53.77,53.77,.04,0)
+UAS EVENT DATE/TIME^D^^0;4^S %DT="ESTR" D ^%DT S X=Y K:X<1 X
+"^DD",53.77,53.77,.04,1,0)
+^.1
+"^DD",53.77,53.77,.04,1,1,0)
+53.77^ASFDT
+"^DD",53.77,53.77,.04,1,1,1)
+S ^PSB(53.77,"ASFDT",$E(X,1,30),DA)=""
+"^DD",53.77,53.77,.04,1,1,2)
+K ^PSB(53.77,"ASFDT",$E(X,1,30),DA)
+"^DD",53.77,53.77,.04,1,1,"%D",0)
+^^1^1^3081114^
+"^DD",53.77,53.77,.04,1,1,"%D",1,0)
+This an index to maintain MSF log file (53.77) entries, by date/time.
+"^DD",53.77,53.77,.04,1,1,"DT")
+3081114
+"^DD",53.77,53.77,.04,3)
+The date and time at which the scan event occurred.
+"^DD",53.77,53.77,.04,21,0)
+^^1^1^3081114^
+"^DD",53.77,53.77,.04,21,1,0)
+Date and time the scan event documentation occurred.
+"^DD",53.77,53.77,.04,"DT")
+3081114
+"^DD",53.77,53.77,.05,0)
+UAS TYPE^RS^MUAS:MEDICATION UNABLE TO SCAN;WUAS:WRISTBAND UNABLE TO SCAN;MKEY:MEDICATION KEYED ENTRY;WKEY:WRISTBAND KEYED ENTRY;MMME:MEDICATION MAN MED ENTRY;MSCN:MEDICATION VIA SCANNER;WSCN:WRISTBAND VIA SCANNER;^0;5^Q
+"^DD",53.77,53.77,.05,1,0)
+^.1^^0
+"^DD",53.77,53.77,.05,3)
+The type of scan event that was recorded.
+"^DD",53.77,53.77,.05,21,0)
+^^10^10^3081106^
+"^DD",53.77,53.77,.05,21,1,0)
+The type of scan event. The value stored is one of a FileMan set. The
+"^DD",53.77,53.77,.05,21,2,0)
+value that is placed here is determined by the user's actions when
+"^DD",53.77,53.77,.05,21,3,0)
+attempting to scan a medication/wristband during an administration. Those
+"^DD",53.77,53.77,.05,21,4,0)
+types beginning with the "M" are events dealing with medications; those
+"^DD",53.77,53.77,.05,21,5,0)
+beginning with "W" are events with wristbands. "*UAS" occur when the user
+"^DD",53.77,53.77,.05,21,6,0)
+actually uses the "unable to scan" functionality to document the
+"^DD",53.77,53.77,.05,21,7,0)
+activity. "*SCN" are types that occur during normal scanning
+"^DD",53.77,53.77,.05,21,8,0)
+activities. The "*KEY" designate a type of event where the user has
+"^DD",53.77,53.77,.05,21,9,0)
+by-passed the BCMA scanning system by "keying", via the system's keyboard
+"^DD",53.77,53.77,.05,21,10,0)
+device, BCMA input data.
+"^DD",53.77,53.77,.05,"DT")
+3081106
+"^DD",53.77,53.77,.06,0)
+UAS REASON^F^^0;6^K:$L(X)>30!($L(X)<1) X
+"^DD",53.77,53.77,.06,3)
+The UTS reason recorded at the time of the scan event.
+"^DD",53.77,53.77,.06,21,0)
+^^13^13^3081106^
+"^DD",53.77,53.77,.06,21,1,0)
+When documenting an "Unable To Scan Event", the user must select an
+"^DD",53.77,53.77,.06,21,2,0)
+approximate reason as to why the usual BCMA scanning system must be
+"^DD",53.77,53.77,.06,21,3,0)
+bypassed. That "Unable To Scan Reason" is stored in this field. These
+"^DD",53.77,53.77,.06,21,4,0)
+are the values available in the GUI application for this field:
+"^DD",53.77,53.77,.06,21,5,0)
+
+"^DD",53.77,53.77,.06,21,6,0)
+Damaged Medication Label
+"^DD",53.77,53.77,.06,21,7,0)
+Damaged Wristband
+"^DD",53.77,53.77,.06,21,8,0)
+Dose Discrepancy
+"^DD",53.77,53.77,.06,21,9,0)
+Inactive Patient
+"^DD",53.77,53.77,.06,21,10,0)
+Manual Medication Entry
+"^DD",53.77,53.77,.06,21,11,0)
+No Bar Code
+"^DD",53.77,53.77,.06,21,12,0)
+Scanning Equipment Failure
+"^DD",53.77,53.77,.06,21,13,0)
+Unable to Determine
+"^DD",53.77,53.77,.06,"DT")
+3081106
+"^DD",53.77,53.77,.07,0)
+UAS E-MESSAGE ID^P3.9'^XMB(3.9,^0;7^Q
+"^DD",53.77,53.77,.07,3)
+The MailMan message ID of the sent message for the UTS event.
+"^DD",53.77,53.77,.07,21,0)
+^^3^3^3081023^
+"^DD",53.77,53.77,.07,21,1,0)
+A MailMan message will be sent per documented Unable To Scan Events.
+"^DD",53.77,53.77,.07,21,2,0)
+That message is referenced by this field, confirming a "given notice"
+"^DD",53.77,53.77,.07,21,3,0)
+of the Unable To Scan event and documentation.
+"^DD",53.77,53.77,.07,"DT")
+3081027
+"^DD",53.77,53.77,.08,0)
+ORDER NUMBER^F^^0;8^K:$L(X)>11!($L(X)<2) X
+"^DD",53.77,53.77,.08,3)
+The order number and type from the Pharmacy Patient file.
+"^DD",53.77,53.77,.08,21,0)
+^^2^2^3081114^
+"^DD",53.77,53.77,.08,21,1,0)
+This field logs the Pharmacy Patient order number of the order involved in
+"^DD",53.77,53.77,.08,21,2,0)
+the Unable To Scan event, if the order number is available and pertinent.
+"^DD",53.77,53.77,.08,23,0)
+^^12^12^3081114^
+"^DD",53.77,53.77,.08,23,1,0)
+The order number from Pharmacy Patient, with a "U" or "V" appended to
+"^DD",53.77,53.77,.08,23,2,0)
+specify an order type of Unit Dose or IV order. This is only recorded if
+"^DD",53.77,53.77,.08,23,3,0)
+the order number is available and meaningful to the UTS event. Because of
+"^DD",53.77,53.77,.08,23,4,0)
+the appended letter, this is not a pointer strictly speaking.
+"^DD",53.77,53.77,.08,23,5,0)
+
+"^DD",53.77,53.77,.08,23,6,0)
+For unit dose orders, the order number is recorded in Pharmacy Patient
+"^DD",53.77,53.77,.08,23,7,0)
+(File 55) at the level: ^PS(55,D0,5,D1,0)= (#.01) ORDER NUMBER [1N] ^
+"^DD",53.77,53.77,.08,23,8,0)
+The order type is at the same level in field 4, TYPE.
+"^DD",53.77,53.77,.08,23,9,0)
+
+"^DD",53.77,53.77,.08,23,10,0)
+For IV orders, the order number is recorded in Pharmacy Patient (File 55)
+"^DD",53.77,53.77,.08,23,11,0)
+at level: ^PS(55,D0,"IV",D1,0)= (#.01) ORDER NUMBER
+"^DD",53.77,53.77,.08,23,12,0)
+The order type is at the same level in field .04, TYPE
+"^DD",53.77,53.77,.08,"DT")
+3081114
+"^DD",53.77,53.77,.09,0)
+ENTERED COMMENT^F^^1;1^K:$L(X)>250!($L(X)<1) X
+"^DD",53.77,53.77,.09,3)
+The user comment for the event, up to 250 characters in length.
+"^DD",53.77,53.77,.09,21,0)
+^^2^2^3081107^
+"^DD",53.77,53.77,.09,21,1,0)
+Optional comment entered by the user when documenting a BCMA Unable To
+"^DD",53.77,53.77,.09,21,2,0)
+Scan event.
+"^DD",53.77,53.77,.09,23,0)
+^^5^5^3081107^
+"^DD",53.77,53.77,.09,23,1,0)
+This field contains comments from two sources. The system generates
+"^DD",53.77,53.77,.09,23,2,0)
+messages to document certain events, such as use of the five rights
+"^DD",53.77,53.77,.09,23,3,0)
+mechanism to administer a medication. The end user can also enter a
+"^DD",53.77,53.77,.09,23,4,0)
+comment from the client application. If both are entered, both will
+"^DD",53.77,53.77,.09,23,5,0)
+display, system comment first. System comments are enclosed in brackets.
+"^DD",53.77,53.77,.09,"DT")
+3081107
+"^DD",53.77,53.77,10,0)
+DISPENSE DRUG^53.771P^^2;0
+"^DD",53.77,53.77,10,21,0)
+^^1^1^3081114^
+"^DD",53.77,53.77,10,21,1,0)
+The dispensed drug from the order associated with the UTS event.
+"^DD",53.77,53.77,11,0)
+ADDITIVE^53.7711P^^3;0
+"^DD",53.77,53.77,11,21,0)
+^^1^1^3081107^
+"^DD",53.77,53.77,11,21,1,0)
+List of additives from the order associated with the UTS event.
+"^DD",53.77,53.77,12,0)
+SOLUTIONS^53.7712P^^4;0
+"^DD",53.77,53.77,12,21,0)
+^^2^2^3081107^
+"^DD",53.77,53.77,12,21,1,0)
+The list of solutions contained in the medication associated with the UTS
+"^DD",53.77,53.77,12,21,2,0)
+event.
+"^DD",53.77,53.77,13,0)
+UNIQUE ITEM ID^F^^0;9^K:$L(X)>30!($L(X)<1) X
+"^DD",53.77,53.77,13,3)
+The ID associated with an IV medication that is UTS.
+"^DD",53.77,53.77,13,21,0)
+^^4^4^3081116^
+"^DD",53.77,53.77,13,21,1,0)
+This field will document the identifier of the IV bag associated with the
+"^DD",53.77,53.77,13,21,2,0)
+unable to scan event. This item cannot be identified via a specific
+"^DD",53.77,53.77,13,21,3,0)
+medication identifier since an IV is made up of one or more Solutions and
+"^DD",53.77,53.77,13,21,4,0)
+one or more Additives.
+"^DD",53.77,53.77,13,23,0)
+^^12^12^3081116^
+"^DD",53.77,53.77,13,23,1,0)
+The IV Unique ID is stored in the 10th "^" piece of the BCMA Medication
+"^DD",53.77,53.77,13,23,2,0)
+Log File. The specific field is #.26, IV UNIQUE ID. The pointer to the
+"^DD",53.77,53.77,13,23,3,0)
+BCMA Medication Log File is not retained in this global, so it is not
+"^DD",53.77,53.77,13,23,4,0)
+stored a a pointer.
+"^DD",53.77,53.77,13,23,5,0)
+
+"^DD",53.77,53.77,13,23,6,0)
+If the IV Unique ID contains the letters "WS", then the IV bag was
+"^DD",53.77,53.77,13,23,7,0)
+created during ward stack activity.
+"^DD",53.77,53.77,13,23,8,0)
+
+"^DD",53.77,53.77,13,23,9,0)
+The IEN for the BCMA Medication log entry for the IV Unique ID can be
+"^DD",53.77,53.77,13,23,10,0)
+located using the "AUID" cross reference:
+"^DD",53.77,53.77,13,23,11,0)
+
+"^DD",53.77,53.77,13,23,12,0)
+^PSB(53.79,"AUID",PATIENT ID,ORDER NUMBER,IV UNIQUE ID,IEN)=""
+"^DD",53.77,53.77,13,"DT")
+3081116
+"^DD",53.77,53.77,14,0)
+IV ORDERABLE ITEM^F^^5;1^K:$L(X)>32!($L(X)<1) X
+"^DD",53.77,53.77,14,3)
+The IV orderable item ID for the IV order associated with the UTS event.
+"^DD",53.77,53.77,14,21,0)
+^^3^3^3081116^
+"^DD",53.77,53.77,14,21,1,0)
+This field is to document the Orderable Item assigned to the IV bag that
+"^DD",53.77,53.77,14,21,2,0)
+is contained in the order that is associated with the unable to scan
+"^DD",53.77,53.77,14,21,3,0)
+event.
+"^DD",53.77,53.77,14,"DT")
+3081124
+"^DD",53.77,53.77,15,0)
+ORDERABLE ITEM NAME^FX^^5;2^K:$L(X)>71!($L(X)<3) X
+"^DD",53.77,53.77,15,3)
+Enter the name of the orderable item (3-71 characters) that is associated with the UTS event.
+"^DD",53.77,53.77,15,21,0)
+^^4^4^3100402^
+"^DD",53.77,53.77,15,21,1,0)
+The Orderable Item Name of the medication that is contained in an
+"^DD",53.77,53.77,15,21,2,0)
+order that is associated with the UTS event. When the medication only
+"^DD",53.77,53.77,15,21,3,0)
+contains a solution with no additive, the Orderable Item Name will
+"^DD",53.77,53.77,15,21,4,0)
+include both the Pharmacy Orderable Item and the Dosage Form.
+"^DD",53.77,53.77,15,23,0)
+^^10^10^3100406^
+"^DD",53.77,53.77,15,23,1,0)
+The Orderable Item Name entry can be located in file # 50.7 by using the
+"^DD",53.77,53.77,15,23,2,0)
+value of field 14 of this file as a pointer. We are storing the value
+"^DD",53.77,53.77,15,23,3,0)
+rather than pointing to it for historical purposes. We do not want this
+"^DD",53.77,53.77,15,23,4,0)
+field to change if there is a change in file # 50.7. Our goal is to store
+"^DD",53.77,53.77,15,23,5,0)
+the value at the time of the UTS event. When the medication only
+"^DD",53.77,53.77,15,23,6,0)
+contains a solution with no additive, the Orderable Item Name will be the
+"^DD",53.77,53.77,15,23,7,0)
+Name (#.01) field of the Pharmacy Orderable Item file (#50.7) followed
+"^DD",53.77,53.77,15,23,8,0)
+by a blank character followed by the Name (#.01) field from the Dosage
+"^DD",53.77,53.77,15,23,9,0)
+Form (#50.606) file. The Dosage form can be located in file # 50.606 by
+"^DD",53.77,53.77,15,23,10,0)
+using the value of field .02 of the # 50.7 file as a pointer.
+"^DD",53.77,53.77,15,"DT")
+3100406
+"^DD",53.77,53.771,0)
+DISPENSE DRUG SUB-FIELD^^1^2
+"^DD",53.77,53.771,0,"DT")
+3081107
+"^DD",53.77,53.771,0,"IX","B",53.771,.01)
+
+"^DD",53.77,53.771,0,"NM","DISPENSE DRUG")
+
+"^DD",53.77,53.771,0,"UP")
+53.77
+"^DD",53.77,53.771,.01,0)
+DISPENSE DRUG^P50'^PSDRUG(^0;1^Q
+"^DD",53.77,53.771,.01,1,0)
+^.1
+"^DD",53.77,53.771,.01,1,1,0)
+53.771^B
+"^DD",53.77,53.771,.01,1,1,1)
+S ^PSB(53.77,DA(1),2,"B",$E(X,1,30),DA)=""
+"^DD",53.77,53.771,.01,1,1,2)
+K ^PSB(53.77,DA(1),2,"B",$E(X,1,30),DA)
+"^DD",53.77,53.771,.01,3)
+The dispensed drug IEN associated with the UTS event.
+"^DD",53.77,53.771,.01,21,0)
+^^1^1^3081114^
+"^DD",53.77,53.771,.01,21,1,0)
+The dispensed drug IEN associated with the UTS event.
+"^DD",53.77,53.771,.01,"DT")
+3081114
+"^DD",53.77,53.771,1,0)
+DRUG NAME^F^^0;2^K:$L(X)>60!($L(X)<1) X
+"^DD",53.77,53.771,1,3)
+The dispensed drug name associated with the UTS event.
+"^DD",53.77,53.771,1,21,0)
+^^1^1^3081023^
+"^DD",53.77,53.771,1,21,1,0)
+This is the drug name associated with the Dispense Drug.
+"^DD",53.77,53.771,1,"DT")
+3081027
+"^DD",53.77,53.7711,0)
+ADDITIVE SUB-FIELD^^1^2
+"^DD",53.77,53.7711,0,"DT")
+3060706
+"^DD",53.77,53.7711,0,"IX","B",53.7711,.01)
+
+"^DD",53.77,53.7711,0,"NM","ADDITIVE")
+
+"^DD",53.77,53.7711,0,"UP")
+53.77
+"^DD",53.77,53.7711,.01,0)
+ADDITIVE^P52.6'^PS(52.6,^0;1^Q
+"^DD",53.77,53.7711,.01,1,0)
+^.1
+"^DD",53.77,53.7711,.01,1,1,0)
+53.7711^B
+"^DD",53.77,53.7711,.01,1,1,1)
+S ^PSB(53.77,DA(1),3,"B",$E(X,1,30),DA)=""
+"^DD",53.77,53.7711,.01,1,1,2)
+K ^PSB(53.77,DA(1),3,"B",$E(X,1,30),DA)
+"^DD",53.77,53.7711,.01,3)
+The additive associated with the UTS event.
+"^DD",53.77,53.7711,.01,21,0)
+^^1^1^3081027^
+"^DD",53.77,53.7711,.01,21,1,0)
+The IEN of the additive associated with the UTS event.
+"^DD",53.77,53.7711,.01,"DT")
+3081027
+"^DD",53.77,53.7711,1,0)
+ADDITIVE NAME^F^^0;2^K:$L(X)>60!($L(X)<1) X
+"^DD",53.77,53.7711,1,3)
+The name of the additive that is associated with the UTS event.
+"^DD",53.77,53.7711,1,21,0)
+^^1^1^3081027^
+"^DD",53.77,53.7711,1,21,1,0)
+The name of the additive that is associated with the UTS event.
+"^DD",53.77,53.7711,1,"DT")
+3081027
+"^DD",53.77,53.7712,0)
+SOLUTIONS SUB-FIELD^^1^2
+"^DD",53.77,53.7712,0,"DT")
+3060622
+"^DD",53.77,53.7712,0,"IX","B",53.7712,.01)
+
+"^DD",53.77,53.7712,0,"NM","SOLUTIONS")
+
+"^DD",53.77,53.7712,0,"UP")
+53.77
+"^DD",53.77,53.7712,.01,0)
+SOLUTIONS^P52.7'^PS(52.7,^0;1^Q
+"^DD",53.77,53.7712,.01,1,0)
+^.1
+"^DD",53.77,53.7712,.01,1,1,0)
+53.7712^B
+"^DD",53.77,53.7712,.01,1,1,1)
+S ^PSB(53.77,DA(1),4,"B",$E(X,1,30),DA)=""
+"^DD",53.77,53.7712,.01,1,1,2)
+K ^PSB(53.77,DA(1),4,"B",$E(X,1,30),DA)
+"^DD",53.77,53.7712,.01,3)
+The solution IEN associated with the UTS event.
+"^DD",53.77,53.7712,.01,21,0)
+^^2^2^3081107^
+"^DD",53.77,53.7712,.01,21,1,0)
+The list of solutions contained in the order associated with the UTS
+"^DD",53.77,53.7712,.01,21,2,0)
+event.
+"^DD",53.77,53.7712,.01,"DT")
+3081107
+"^DD",53.77,53.7712,1,0)
+SOLUTION NAME^F^^0;2^K:$L(X)>60!($L(X)<1) X
+"^DD",53.77,53.7712,1,3)
+The solution name in the medication that is associated with the UTS event.
+"^DD",53.77,53.7712,1,21,0)
+^^1^1^3081107^
+"^DD",53.77,53.7712,1,21,1,0)
+Name of the solution contained in the medication that was Unable to Scan.
+"^DD",53.77,53.7712,1,"DT")
+3081107
+"^DIC",53.77,53.77,0)
+BCMA UNABLE TO SCAN LOG^53.77
+"^DIC",53.77,53.77,0,"GL")
+^PSB(53.77,
+"^DIC",53.77,53.77,"%",0)
+^1.005^1^1
+"^DIC",53.77,53.77,"%",1,0)
+PSB
+"^DIC",53.77,53.77,"%","B","PSB",1)
+
+"^DIC",53.77,53.77,"%D",0)
+^^4^4^3060622^
+"^DIC",53.77,53.77,"%D",1,0)
+The Bar Code Medication Administration (BCMA) Unable to Scan Log file is
+"^DIC",53.77,53.77,"%D",2,0)
+to contain information pertaining to BCMA Scanning and BCMA scanning
+"^DIC",53.77,53.77,"%D",3,0)
+"failures". This file has been created in effort to support refinement
+"^DIC",53.77,53.77,"%D",4,0)
+of the BCMA scanning process and BCMA scanning equipment.
+"^DIC",53.77,"B","BCMA UNABLE TO SCAN LOG",53.77)
+
+"BLD",8353,6)
+^60
+**END**
+**END**
diff --git a/Packages/Barcode Medication Administration/Patches/PSB_3.0_54/PSB-3_SEQ-60_PAT-54.TXT b/Packages/Barcode Medication Administration/Patches/PSB_3.0_54/PSB-3_SEQ-60_PAT-54.TXT
new file mode 100644
index 0000000..5049b7d
--- /dev/null
+++ b/Packages/Barcode Medication Administration/Patches/PSB_3.0_54/PSB-3_SEQ-60_PAT-54.TXT
@@ -0,0 +1,235 @@
+$TXT Created by RENE,BRIAN at MNTVBB.FO-ALBANY.DOMAIN.EXT (KIDS) on Thursday, 09/05/13 at 15:46
+=============================================================================
+Run Date: NOV 05, 2013 Designation: PSB*3*54
+Package : PSB - BAR CODE MED ADMIN Priority: Mandatory
+Version : 3 SEQ #60 Status: Released
+ Compliance Date: DEC 06, 2013
+=============================================================================
+
+Associated patches: (v)PSB*3*50 <<= must be installed BEFORE `PSB*3*54'
+
+Subject: UNDEFINED IN PSBOML; FILING ERROR
+
+Category:
+ - Routine
+ - Data Dictionary
+
+Description:
+============
+
+ This Patch Addresses 2 issues:
+
+ 1. An Undefined error occurs at LINE+13^PSBOML when the
+ BCMA Med Log report is run and finds a BCMA MED LOG (#53.79)
+ entry without a corresponding PHARMACY PATIENT (#55) entry.
+
+ 2. When giving an IV via the Unable to Scan feature, the user will
+ receive a "Incomplete Data Returned from Vista" pop up box if the
+ data attempting to be stored in the ORDERABLE ITEM (#15) field of
+ the BCMA UNABLE TO SCAN LOG (#53.77) file is greater than 40
+ characters.
+
+ ASSOCIATED NSR(S):
+ ==================
+ N/A
+
+ ASSOCIATED REMEDY TICKET(S):
+ ============================
+ 1. INC0000000218516 - <UNDEFINED>LINE+13^PSBOML
+ Duplicate:
+ INC0000000219868
+ INC0000000220068
+ INC0000000221427
+ INC0000000222347
+ INC0000000222870
+ INC0000000270459
+
+ 2. INC0000000328464 - Error after migrating to RDPC
+ Duplicate:
+ INC0000000614139
+
+ PARTICIPATING TEST SITES:
+ =========================
+ South Texas HCS
+ VA Western NY HCS
+ St. Cloud VAMC
+
+ REMEDY OVERVIEW:
+ ================
+
+ 1. INC0000000218516 - <UNDEFINED>LINE+13^PSBOML
+
+ Patient Safety Issue:
+ ---------------------
+ PSPO #857
+
+ Problem:
+ --------
+ When running the BCMA Med Log report, an undefined error occurs at
+ LINE+13^PSBOML when a PHARMACY PATIENT (#55) file record does not have
+ a corresponding BCMA MED LOG (#53.79) file entry.
+
+ Resolution:
+ -----------
+ Routine PSBOML was modified to correct the undefined error and send a
+ Mailman message to the mail group in the BCMA PARAMETERS GUI Unknown
+ Actions field stating the following: "Order #_ given in BCMA no longer
+ has a corresponding entry in the Pharmacy Patient (#55) file. Please
+ submit a remedy ticket for this issue." A post install routine will
+ also run letting the installer know via screen print and Mailman
+ message that the BCMA PARAMETERS GUI Unknown Actions mail group has no
+ active members.
+
+ 2. INC0000000328464 - Error after migrating to RDPC
+
+ Problem:
+ --------
+ When attempting to give an IV via "Unable to Scan" that contains only a
+ solution and has a NAME (#.01) and DOSAGE FORM (#.02) in the PHARMACY
+ ORDERABLE ITEM (#50.7) that has a combined length of greater than 40
+ characters, it will cause users to receive the pop up dialog box
+ "Incomplete data returned from VISTA". An entry will also not be
+ stored in the ORDERABLE ITEM NAME (#15) field of the BCMA UNABLE TO
+ SCAN LOG (#53.77), causing the drug not to show in the DRUG (ID #)
+ field in the "BCMA Unable to Scan Detailed" report.
+
+ Resolution:
+ -----------
+ The input transform of data dictionary was modified to allow up to 71
+ characters for the ORDERABLE ITEM NAME (#15) field in the BCMA UNABLE
+ TO SCAN LOG (#53.77).
+
+
+ ********************BEFORE***********************
+
+ 53.77,15 ORDERABLE ITEM NAME 5;2 FREE TEXT
+
+ INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
+ LAST EDITED: NOV 19, 2008
+ HELP-PROMPT: The name of the orderable item that is
+ associated with the UTS event.
+ DESCRIPTION: The Orderable Item Name of the medication that
+ is contained in an order that is associated
+ with the UTS event.
+
+ TECHNICAL DESCR: The Orderable Item Name entry can be located in
+ file # 50.7 by using the value of field 14 of
+ this file as a pointer. We are storing the
+ value rather than pointing to it for historical
+ purposes. We do not want this field to change
+ if there is a change in file # 50.7. Our goal
+ is to store the value at the the time of the
+ UTS event.
+
+ ********************AFTER***********************
+
+ 53.77,15 ORDERABLE ITEM NAME 5;2 FREE TEXT
+
+ INPUT TRANSFORM: K:$L(X)>71!($L(X)<3) X
+ LAST EDITED: APR 06, 2010
+ HELP-PROMPT: Enter the name of the orderable item (3-71
+ characters) that is associated with the UTS
+ event.
+ DESCRIPTION: The Orderable Item Name of the medication that
+ is contained in an order that is associated
+ with the UTS event. When the medication only
+ contains a solution with no additive, the
+ Orderable Item Name will include both the
+ Pharmacy Orderable Item and the Dosage Form.
+
+ TECHNICAL DESCR: The Orderable Item Name entry can be located in
+ file # 50.7 by using the value of field 14 of
+ this file as a pointer. We are storing the
+ value rather than pointing to it for historical
+ purposes. We do not want this field to change
+ if there is a change in file # 50.7. Our goal
+ is to store the value at the time of the UTS
+ event. When the medication only contains a
+ solution with no additive, the Orderable Item
+ Name will be the Name (#.01) field of the
+ Pharmacy Orderable Item file (#50.7) followed
+ by a blank character followed by the Name
+ (#.01) field from the Dosage Form (#50.606)
+ file. The Dosage form can be located in file #
+ 50.606 by using the value of field .02 of the #
+ 50.7 file as a pointer.
+
+
+
+
+
+ INSTALLATION INSTRUCTIONS:
+ ==========================
+
+ *************************** NOTE ****************************
+ * IF A USER IS ON THE SYSTEM AND USING THESE PROGRAMS *
+ * AN EDITED ERROR WILL OCCUR. *
+ * The patch should be installed when NO BCMA Client *
+ * users are on the system. *
+ * Please monitor the install and check Mailman after *
+ * installation for a message that may be generated by *
+ * the post install routine *
+ * ***********************************************************
+
+ Installation will take less than 1 minute.
+
+ Suggested time to install: Non-peak requirement hours.
+
+ 1. Use the INSTALL/CHECK MESSAGE option on the PackMan menu.
+
+ 2. From the Kernel Installation & Distribution System menu, select
+ the Installation menu.
+
+ 3. From this menu, you may select to use the following options
+ (when prompted for INSTALL NAME, enter PSB*3.0*54):
+ a. Verify Checksums in Transport Global - This option will allow
+ you to ensure the integrity of the routines that are in the
+ transport global.
+ b. Print Transport Global - This option will allow you to view
+ the components of the KIDS build.
+ c. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this
+ patch
+ is installed. It compares all components of this patch
+ (routines, DD's, templates, etc.).
+ d. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DD's or templates.
+
+ 4. Use the Install Package(s) option and select the package PSB*3.0*54.
+
+ 5. When prompted "Want KIDS to INHIBIT LOGONs during the install? NO//"
+ respond NO.
+ 6. When prompted "Want to DISABLE Scheduled Options, Menu Options, and
+ Protocols? NO//" respond NO.
+
+ ** NOTE: Post Install Routine PSB54P will be deleted automatically after
+ completion of the installation.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;3.0;BAR CODE MED ADMIN;**[Patch List]**;Mar 2004;Build 40
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: PSB54P
+ Before: n/a After: B3645081 **54**
+Routine Name: PSBOML
+ Before: B33332484 After: B41485291 **3,11,50,54**
+
+Routine list of preceding patches: 50
+
+=============================================================================
+User Information:
+Entered By : RENE,BRIAN Date Entered : MAR 31, 2010
+Completed By: PODLEY,CHRIS Date Completed: OCT 18, 2013
+Released By : LYTTLE,KIM M Date Released : NOV 05, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/Barcode Medication Administration/Patches/PSB_3.0_59/PSB-3_SEQ-61_PAT-59.TXT b/Packages/Barcode Medication Administration/Patches/PSB_3.0_59/PSB-3_SEQ-61_PAT-59.TXT
new file mode 100644
index 0000000..9fbecf5
--- /dev/null
+++ b/Packages/Barcode Medication Administration/Patches/PSB_3.0_59/PSB-3_SEQ-61_PAT-59.TXT
@@ -0,0 +1,290 @@
+
+=============================================================================
+Run Date: NOV 22, 2013 Designation: PSB*3*59
+Package : PSB - BAR CODE MED ADMIN Priority: Mandatory
+Version : 3 SEQ #61 Status: Released
+ Compliance Date: DEC 23, 2013
+=============================================================================
+
+Associated patches: (v)PSB*3*48 <<= must be installed BEFORE `PSB*3*59'
+ (v)PSB*3*69 <<= must be installed BEFORE `PSB*3*59'
+
+Subject: BCBU MAR DISPLAY ISSUES (ALPHA SORT MEDS, REMOVE THE '&')
+
+Category:
+ - Routine
+
+Description:
+============
+
+ This patch addresses 4 issues:
+
+ 1. A site noticed an issue when using the Bar Code Medication
+ Administration Backup System (BCBU). Current patients within a unit,
+ who do not have current active medication orders, will not display on
+ the BCBU Medication Administration Report (MAR) while using the Print
+ MAR for a Selected Ward (PW) menu option or the Print MAR for All
+ Wards (PA) menu option.
+
+ 2. The BCBU MAR currently displays an ampersand (&) symbol followed by
+ the administration times in the "Give: " line of the report. The
+ "Give: " line is for displaying the dosage amounts and schedules
+ of the patient's medications only. This additional information was
+ added for Computerized Patient Record System (CPRS) and was never
+ intended to display in the BCBU MAR reports.
+
+ 3. Sites have noticed that the BCBU MAR does not list the patients
+ medication names in alphabetical order for the three main print MAR
+ options which could potentially harm certain patients.
+
+ 4. Currently when printing a BCBU MAR report asterisks appear for PRN
+ medications that were ordered on the same day the MAR report was
+ printed.
+
+
+ ASSOCIATED NSR(S):
+ ==================
+ N/A
+
+ ASSOCIATED REMEDY TICKET(S):
+ ============================
+ 1. INC0000000270121 - Patient with no active meds does not print
+
+ 2. INC0000000286996 - 5 BCMA Contingency display problem
+ Duplicates:
+ INC0000000287124 - Admin time printing incorrectly
+ INC0000000287192 - BCMA DISPLAY PROBLEM
+ INC0000000300956 - Everywhere an @ should be, the printout shows &
+ INC0000000472076 - Incorrect Symbol being used for orders relating to
+ time
+
+ 3. INC0000000211122 - Report doesn't list drugs alphabetically
+
+ 4. INC0000000727979 - MAR PRN ASTERISK ERROR
+
+
+ PARTICIPATING TEST SITES:
+ =========================
+ Pittsburgh HCS
+ Dublin VAMC
+ Loma Linda VAMC
+ St. Cloud VAMC
+
+
+ REMEDY OVERVIEW:
+ ================
+
+ 1. INC0000000270121 - Patient with no active meds does not print
+
+ Problem:
+ --------
+ Sites noticed when using the Bar Code Medication Administration
+ Backup System (BCBU) that current patients within a unit, who
+ do not have current active medication orders, will not display
+ on the BCBU Medication Administration Report (MAR) while using the
+ Print MAR for a Selected Ward (PW) menu option or the Print MAR for
+ All Wards (PA) menu option. The sites were expecting a MAR to print
+ the patient's informational header and footer since the menu option
+ Print MAR for Selected Patient (PP) prints the header and footer
+ only if the patient has no current active medication orders.
+
+ Resolution:
+ -----------
+ Routines ALPBPPAT, ALPBPWRD, and ALPBPALL have been modified to
+ give BCBU users the option to include patients without active
+ medication orders on the BCBU MAR with a new prompt:
+ "Include Patients Without Active Medications? YES//".
+
+
+ 2. INC0000000286996 - 5 BCMA Contingency display problem
+
+ Problem:
+ --------
+ The BCBU MAR currently displays the ampersand (&) symbol followed by
+ the administration times in the "Give: " line of the report. This
+ additional information was added for Computerized Patient Record
+ System (CPRS) and was never intended to display in the BCBU MAR
+ reports. The "Give: " line is for displaying the dosage amounts
+ and schedules of the patient's medications only.
+
+ Resolution:
+ -----------
+ Routine ALPBHL1U has been modified to remove the ampersand (&)
+ symbol and administration times before storing the schedule for
+ display on the BCBU MAR. This change will only correct future
+ medication orders on the BCBU MAR that are done after the
+ installation of this patch.
+
+
+ 3. INC0000000211122 - Report does not list drugs alphabetically
+
+ Patient Safety Issue:
+ ---------------------
+ PSPO #00000876
+
+ Problem:
+ --------
+ Currently the options Print MAR for ALL Wards [PSB BCBU PRINT MAR
+ ALL], Print Mar for Selected Patient [PSB BCBU PRINT MAR PATIENT],
+ and Print Mar for Selected Ward [PSB BCBU PRINT MAR WARD] do not
+ display patient's medications in alphabetical order.
+
+ Resolution:
+ -----------
+ Modified routines ALPBPALL, ALPBPPAT, and ALPBPWRD to sort the
+ medications by the ORDER TYPE first (unit dose, unit dose PRN,
+ intravenous, and intravenous PRN), then arranged in alphabetical
+ order by the DRUG NAME, followed by the ORDER STATUS, and the
+ ORDER NUMBER.
+
+
+ 4. INC0000000727979 - MAR PRN ASTERISK ERROR
+
+ Problem:
+ --------
+ Currently future PRN medication orders are displaying on the BCBU MAR with
+ asterisks printed in the box for the first date the drug is able to be
+ administered.
+
+ Resolution:
+ -----------
+ Modified routine ALPBFRM1 to account for medication orders that do not
+ have administration times included with the administration dates.
+
+
+ DOCUMENTATION RETRIEVAL INSTRUCTIONS:
+ =====================================
+ Updated documentation describing the new functionality introduced by this
+ patch is available.
+
+ Sites may retrieve documentation in one of the following ways:
+
+ (1) The preferred method is to FTP the files from
+ download.vista.domain.ext, which will transmit the files from the
+ first available FTP server.
+
+ (2) Sites may also elect to retrieve documentation directly from the
+ ANONYMOUS SOFTWARE DIRECTORY from a specific server as follows:
+
+ Albany ftp.fo-albany.domain.ext <ftp://ftp.fo-albany.domain.ext>
+ Hines ftp.fo-hines.domain.ext <ftp://ftp.fo-hines.domain.ext>
+ Salt Lake City ftp.fo-slc.domain.ext <ftp://ftp.fo-slc.domain.ext>
+
+ The documentation will be in the form of Adobe Acrobat files.
+
+ The documentation distribution includes:
+
+ File Name File Description Retrieval Format
+ --------------------------------------------------------------------------
+ PSB_3_BCBU_IG_R022013.PDF Installation Guide BINARY
+
+ (3) Once released, documentation may be retrieved from VISTA
+ Documentation Library (VDL) on the Internet at the following address:
+ http://www.domain.ext/vdl
+
+
+
+ PATCH RETRIEVAL INSTRUCTIONS:
+ =============================
+ 1. Retrieve the KIDS distribution host file. This patch will be
+ distributed in a host file due to the amount of data contained in
+ the patch. The name of the host file is:
+
+ PSB_3_59.KID
+
+ The preferred method is to FTP the files from download.vista.domain.ext,
+ which will transmit the files from the first available FTP server.
+
+ The files may also be downloaded directly from a particular FTP
+ location at the following locations.
+
+ Albany ftp.fo-albany.domain.ext
+ Hines ftp.fo-hines.domain.ext
+ Salt Lake City ftp.fo-slc.domain.ext
+
+ The PSB_3_59.KID host file is available in the ANONYMOUS.SOFTWARE
+ directory. Use ASCII Mode when downloading the file.
+
+
+ INSTALLATION INSTRUCTIONS:
+ ==========================
+
+ ************************ NOTE **************************
+ IF A USER IS ON THE SYSTEM AND USING THESE PROGRAMS
+ AN EDITED ERROR WILL OCCUR.
+ The patch should be installed when NO Barcode Medication
+ Administration (BCMA) users are on the system.
+ ********************************************************
+
+ Installation will take less than 5 minutes.
+
+ Suggested time to install: non-peak requirement hours.
+
+ 1. From the Kernel Installation & Distribution System menu, select
+ the LOAD DISTRIBUTION option and load PSB_3_59.KID
+
+ 2. Start up the Kernel Installation and Distribution System Menu
+ [XPD MAIN]:
+
+ Edits and Distribution ...
+ Utilities ...
+ Installation ...
+
+ 3. From this menu, you may select to use the following options:
+ (when prompted for INSTALL NAME, enter PSB*3.0*59)
+
+ a. Verify Checksums in Transport Global - This option will allow
+ you to ensure the integrity of the routines that are in the
+ transport global.
+ b. Print Transport Global - This option will allow you to view
+ the components of the KIDS build.
+ c. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this
+ patch is installed. It compares all components of this patch
+ (routines, DD's, templates, etc.).
+ d. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DD's or templates.
+
+ 4. Use the Install Package(s) option and select the package
+ PSB*3.0*59.
+
+ 5. When Prompted "Want KIDS to INHIBIT LOGONs during the install?
+ NO//" respond NO.
+
+ 6. When Prompted "Want to DISABLE Scheduled Options, Menu Options, and
+ Protocols? NO//" respond NO.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+;;3.0;BAR CODE MED ADMIN;**[Patch List]**;Mar 2004;Build 20
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: ALPBFRM1
+ Before: B62585050 After: B63410391 **8,48,69,59**
+Routine Name: ALPBHL1U
+ Before: B63735023 After: B68251433 **7,69,59**
+Routine Name: ALPBPALL
+ Before: B26374660 After: B44937205 **8,29,48,59**
+Routine Name: ALPBPPAT
+ Before: B22283739 After: B32938480 **8,48,59**
+Routine Name: ALPBPWRD
+ Before: B51543358 After: B73805924 **8,37,48,59**
+
+Routine list of preceding patches: 69
+
+=============================================================================
+User Information:
+Entered By : GILMORE,JEREMY Date Entered : JAN 26, 2011
+Completed By: PODLEY,CHRIS Date Completed: NOV 06, 2013
+Released By : COWNIE,KEVIN Date Released : NOV 22, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/Barcode Medication Administration/Patches/PSB_3.0_59/PSB_3_59.KID b/Packages/Barcode Medication Administration/Patches/PSB_3.0_59/PSB_3_59.KID
new file mode 100644
index 0000000..8992b14
--- /dev/null
+++ b/Packages/Barcode Medication Administration/Patches/PSB_3.0_59/PSB_3_59.KID
@@ -0,0 +1,2306 @@
+KIDS Distribution saved on Mar 25, 2013 at 13:17:50
+PSB*3.0*59
+**KIDS**:PSB*3.0*59^
+
+**INSTALL NAME**
+PSB*3.0*59
+"BLD",8732,0)
+PSB*3.0*59^BAR CODE MED ADMIN^0^3130325^y
+"BLD",8732,1,0)
+^^2^2^3120919^^
+"BLD",8732,1,1,0)
+ Please see the National Patch Module for details of the changes
+"BLD",8732,1,2,0)
+ included in this patch.
+"BLD",8732,4,0)
+^9.64PA^^
+"BLD",8732,6)
+1^
+"BLD",8732,6.3)
+20
+"BLD",8732,"ABPKG")
+n
+"BLD",8732,"INID")
+n^n^n
+"BLD",8732,"KRN",0)
+^9.67PA^779.2^20
+"BLD",8732,"KRN",.4,0)
+.4
+"BLD",8732,"KRN",.401,0)
+.401
+"BLD",8732,"KRN",.402,0)
+.402
+"BLD",8732,"KRN",.403,0)
+.403
+"BLD",8732,"KRN",.5,0)
+.5
+"BLD",8732,"KRN",.84,0)
+.84
+"BLD",8732,"KRN",3.6,0)
+3.6
+"BLD",8732,"KRN",3.8,0)
+3.8
+"BLD",8732,"KRN",9.2,0)
+9.2
+"BLD",8732,"KRN",9.8,0)
+9.8
+"BLD",8732,"KRN",9.8,"NM",0)
+^9.68A^5^5
+"BLD",8732,"KRN",9.8,"NM",1,0)
+ALPBHL1U^^0^B68251433
+"BLD",8732,"KRN",9.8,"NM",2,0)
+ALPBPPAT^^0^B32938480
+"BLD",8732,"KRN",9.8,"NM",3,0)
+ALPBPWRD^^0^B73805924
+"BLD",8732,"KRN",9.8,"NM",4,0)
+ALPBPALL^^0^B44937205
+"BLD",8732,"KRN",9.8,"NM",5,0)
+ALPBFRM1^^0^B63410391
+"BLD",8732,"KRN",9.8,"NM","B","ALPBFRM1",5)
+
+"BLD",8732,"KRN",9.8,"NM","B","ALPBHL1U",1)
+
+"BLD",8732,"KRN",9.8,"NM","B","ALPBPALL",4)
+
+"BLD",8732,"KRN",9.8,"NM","B","ALPBPPAT",2)
+
+"BLD",8732,"KRN",9.8,"NM","B","ALPBPWRD",3)
+
+"BLD",8732,"KRN",19,0)
+19
+"BLD",8732,"KRN",19.1,0)
+19.1
+"BLD",8732,"KRN",101,0)
+101
+"BLD",8732,"KRN",409.61,0)
+409.61
+"BLD",8732,"KRN",771,0)
+771
+"BLD",8732,"KRN",779.2,0)
+779.2
+"BLD",8732,"KRN",870,0)
+870
+"BLD",8732,"KRN",8989.51,0)
+8989.51
+"BLD",8732,"KRN",8989.52,0)
+8989.52
+"BLD",8732,"KRN",8994,0)
+8994
+"BLD",8732,"KRN","B",.4,.4)
+
+"BLD",8732,"KRN","B",.401,.401)
+
+"BLD",8732,"KRN","B",.402,.402)
+
+"BLD",8732,"KRN","B",.403,.403)
+
+"BLD",8732,"KRN","B",.5,.5)
+
+"BLD",8732,"KRN","B",.84,.84)
+
+"BLD",8732,"KRN","B",3.6,3.6)
+
+"BLD",8732,"KRN","B",3.8,3.8)
+
+"BLD",8732,"KRN","B",9.2,9.2)
+
+"BLD",8732,"KRN","B",9.8,9.8)
+
+"BLD",8732,"KRN","B",19,19)
+
+"BLD",8732,"KRN","B",19.1,19.1)
+
+"BLD",8732,"KRN","B",101,101)
+
+"BLD",8732,"KRN","B",409.61,409.61)
+
+"BLD",8732,"KRN","B",771,771)
+
+"BLD",8732,"KRN","B",779.2,779.2)
+
+"BLD",8732,"KRN","B",870,870)
+
+"BLD",8732,"KRN","B",8989.51,8989.51)
+
+"BLD",8732,"KRN","B",8989.52,8989.52)
+
+"BLD",8732,"KRN","B",8994,8994)
+
+"BLD",8732,"QDEF")
+^^^^NO^^^^NO^^NO
+"BLD",8732,"QUES",0)
+^9.62^^
+"BLD",8732,"REQB",0)
+^9.611^2^2
+"BLD",8732,"REQB",1,0)
+PSB*3.0*48^1
+"BLD",8732,"REQB",2,0)
+PSB*3.0*69^1
+"BLD",8732,"REQB","B","PSB*3.0*48",1)
+
+"BLD",8732,"REQB","B","PSB*3.0*69",2)
+
+"MBREQ")
+0
+"PKG",550,-1)
+1^1
+"PKG",550,0)
+BAR CODE MED ADMIN^PSB^BAR CODE MEDICATION ADMINISTRATION
+"PKG",550,20,0)
+^9.402P^^
+"PKG",550,22,0)
+^9.49I^1^1
+"PKG",550,22,1,0)
+3.0^3040224^3040311^66481
+"PKG",550,22,1,"PAH",1,0)
+59^3130325^718
+"PKG",550,22,1,"PAH",1,1,0)
+^^2^2^3130325
+"PKG",550,22,1,"PAH",1,1,1,0)
+ Please see the National Patch Module for details of the changes
+"PKG",550,22,1,"PAH",1,1,2,0)
+ included in this patch.
+"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")
+5
+"RTN","ALPBFRM1")
+0^5^B63410391
+"RTN","ALPBFRM1",1,0)
+ALPBFRM1 ;OIFO-DALLAS MW,SED,KC -STANDARD PRINT FORMATTING UTIL;2/24/12 12:11am
+"RTN","ALPBFRM1",2,0)
+ ;;3.0;BAR CODE MED ADMIN;**8,48,69,59**;Mar 2004;Build 20
+"RTN","ALPBFRM1",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","ALPBFRM1",4,0)
+ ;
+"RTN","ALPBFRM1",5,0)
+ ;*69 move code to print Long Wp special istructions lines near end of
+"RTN","ALPBFRM1",6,0)
+ ; a grid boundary
+"RTN","ALPBFRM1",7,0)
+ ;
+"RTN","ALPBFRM1",8,0)
+F132(DATA,DAYS,MLCNT,RESULTS,ALPPAT) ; format data into a 132-column
+"RTN","ALPBFRM1",9,0)
+ ; output array...
+"RTN","ALPBFRM1",10,0)
+ ; DATA = an array containing a specific order node for a selected
+"RTN","ALPBFRM1",11,0)
+ ; patient in file 53.7
+"RTN","ALPBFRM1",12,0)
+ ; DAYS = a number that represents the number of initial boxes
+"RTN","ALPBFRM1",13,0)
+ ; (1 box = 1 day) to add to lines 4-10 (max=7 -- note that
+"RTN","ALPBFRM1",14,0)
+ ; this is usually a 3-day MAR, but a 7-day MAR could be
+"RTN","ALPBFRM1",15,0)
+ ; returned from this format utility)
+"RTN","ALPBFRM1",16,0)
+ ; MLCNT = Number of Med-log entries to print with orders
+"RTN","ALPBFRM1",17,0)
+ ; RESULTS = an array passed by reference into which the formatted
+"RTN","ALPBFRM1",18,0)
+ ; entry is set up returns a formatted array in RESULTS
+"RTN","ALPBFRM1",19,0)
+ ; (note: total line count is returned at RESULTS(0))
+"RTN","ALPBFRM1",20,0)
+ I $D(DATA)="" Q
+"RTN","ALPBFRM1",21,0)
+ ;
+"RTN","ALPBFRM1",22,0)
+ N ALPBADM,ALPBDAYS,ALPBDRUG,ALPBIBOX,ALPBNBOX,ALPBPBOX,ALPBSTOP,ALPBTEXT,ALPBTIME,ALPBX,DATE,LINE,BOLDON,BOLDOFF,X,ALPBPRNG,ALPBFLG,ALPBPRN,ALPBMLC,ALPBTSTART
+"RTN","ALPBFRM1",23,0)
+ ; to use BOLD, comment out the next line and remove comments from
+"RTN","ALPBFRM1",24,0)
+ ; the following five lines...
+"RTN","ALPBFRM1",25,0)
+ S BOLDON="<<",BOLDOFF=">>"
+"RTN","ALPBFRM1",26,0)
+ ;S X="IOINHI;IOINORM"
+"RTN","ALPBFRM1",27,0)
+ ;D ENDR^%ZISS
+"RTN","ALPBFRM1",28,0)
+ ;S BOLDON=$G(IOINHI)
+"RTN","ALPBFRM1",29,0)
+ ;S BOLDOFF=$G(IOINORM)
+"RTN","ALPBFRM1",30,0)
+ ;D KILL^%ZISS
+"RTN","ALPBFRM1",31,0)
+ ;
+"RTN","ALPBFRM1",32,0)
+ ;S MLCNT=$S(+$P($G(^ALPB(53.71,1,2)),U,4)>0:+$P(^ALPB(53.71,1,2),U,4),1:1)
+"RTN","ALPBFRM1",33,0)
+ I $G(DAYS)="" S DAYS=3
+"RTN","ALPBFRM1",34,0)
+ I DAYS>7 S DAYS=7
+"RTN","ALPBFRM1",35,0)
+ S DATE=$$DT^XLFDT()
+"RTN","ALPBFRM1",36,0)
+ D FDATES^ALPBUTL(DATE,DAYS,.ALPBDAYS)
+"RTN","ALPBFRM1",37,0)
+ ; get administration timing (needed for formatting various lines)
+"RTN","ALPBFRM1",38,0)
+ S ALPBX=$P($G(DATA(4)),"^",4)
+"RTN","ALPBFRM1",39,0)
+ I ALPBX="" S ALPBADM=0
+"RTN","ALPBFRM1",40,0)
+ I ALPBX'="" D
+"RTN","ALPBFRM1",41,0)
+ .S ALPBADM=0
+"RTN","ALPBFRM1",42,0)
+ .F I=1:1 Q:$P(ALPBX,"-",I)="" D
+"RTN","ALPBFRM1",43,0)
+ ..S ALPBADM(I)=$P(ALPBX,"-",I)
+"RTN","ALPBFRM1",44,0)
+ ..S ALPBADM=ALPBADM+1
+"RTN","ALPBFRM1",45,0)
+ ; line 1...
+"RTN","ALPBFRM1",46,0)
+ S RESULTS(1)=""
+"RTN","ALPBFRM1",47,0)
+ S RESULTS(1)=$$PAD^ALPBUTL(RESULTS(1),66)_"Admin"
+"RTN","ALPBFRM1",48,0)
+ ; line 2...
+"RTN","ALPBFRM1",49,0)
+ S RESULTS(2)="Start"
+"RTN","ALPBFRM1",50,0)
+ S RESULTS(2)=$$PAD^ALPBUTL(RESULTS(2),25)_"Stop"
+"RTN","ALPBFRM1",51,0)
+ S RESULTS(2)=$$PAD^ALPBUTL(RESULTS(2),66)_"Times"
+"RTN","ALPBFRM1",52,0)
+ S RESULTS(2)=$$PAD^ALPBUTL(RESULTS(2),74)_ALPBDAYS(0)
+"RTN","ALPBFRM1",53,0)
+ I DAYS=3 S RESULTS(2)=RESULTS(2)_" Notes"
+"RTN","ALPBFRM1",54,0)
+ ; line 3...
+"RTN","ALPBFRM1",55,0)
+ S RESULTS(3)=$$REPEAT^XLFSTR("-",132)
+"RTN","ALPBFRM1",56,0)
+ ; line 4...
+"RTN","ALPBFRM1",57,0)
+ ; start and stop date/times...
+"RTN","ALPBFRM1",58,0)
+ S RESULTS(4)=$S($P($G(DATA(1)),"^")'="":$$FMTE^XLFDT($P(DATA(1),"^")),1:"Not on file")
+"RTN","ALPBFRM1",59,0)
+ S RESULTS(4)=$$PAD^ALPBUTL(RESULTS(4),25)_$S($P($G(DATA(1)),"^",2)'="":$$FMTE^XLFDT($P(DATA(1),"^",2)),1:"Not on file")
+"RTN","ALPBFRM1",60,0)
+ ;
+"RTN","ALPBFRM1",61,0)
+ ; end of fixed line format, continue...
+"RTN","ALPBFRM1",62,0)
+ S LINE=4
+"RTN","ALPBFRM1",63,0)
+ ; get drug(s)...
+"RTN","ALPBFRM1",64,0)
+ I +$O(DATA(7,0)) D
+"RTN","ALPBFRM1",65,0)
+ .S LINE=LINE+1
+"RTN","ALPBFRM1",66,0)
+ .S RESULTS(LINE)=""
+"RTN","ALPBFRM1",67,0)
+ .S ALPBX=0
+"RTN","ALPBFRM1",68,0)
+ .F S ALPBX=$O(DATA(7,ALPBX)) Q:'ALPBX D
+"RTN","ALPBFRM1",69,0)
+ ..S ALPBDRUG=$G(BOLDON)_$P(DATA(7,ALPBX,0),"^",2)_$G(BOLDOFF)
+"RTN","ALPBFRM1",70,0)
+ ..;S RESULTS(LINE)=$G(RESULTS(LINE))_$P(DATA(7,ALPBX,0),"^",2)
+"RTN","ALPBFRM1",71,0)
+ ..S RESULTS(LINE)=$G(RESULTS(LINE))_ALPBDRUG
+"RTN","ALPBFRM1",72,0)
+ ..K ALPBDRUG
+"RTN","ALPBFRM1",73,0)
+ ..I +$O(DATA(7,ALPBX)) S LINE=LINE+1
+"RTN","ALPBFRM1",74,0)
+ ; any additives...
+"RTN","ALPBFRM1",75,0)
+ I +$O(DATA(8,0)) D
+"RTN","ALPBFRM1",76,0)
+ .S LINE=LINE+1
+"RTN","ALPBFRM1",77,0)
+ .S RESULTS(LINE)=" Additive(s): "
+"RTN","ALPBFRM1",78,0)
+ .S ALPBX=0
+"RTN","ALPBFRM1",79,0)
+ .F S ALPBX=$O(DATA(8,ALPBX)) Q:'ALPBX D
+"RTN","ALPBFRM1",80,0)
+ ..S ALPBDRUG=$P(DATA(8,ALPBX,0),"^",2)
+"RTN","ALPBFRM1",81,0)
+ ..; if UNITS is not already contained in ADDITIVE NAME, add it...
+"RTN","ALPBFRM1",82,0)
+ ..I $P(DATA(8,ALPBX,0),"^",3)'=""&(ALPBDRUG'[$P(DATA(8,ALPBX,0),"^",3)) S ALPBDRUG=ALPBDRUG_" "_$P(DATA(8,ALPBX,0),"^",3)
+"RTN","ALPBFRM1",83,0)
+ ..S ALPBDRUG=$G(BOLDON)_ALPBDRUG_$G(BOLDOFF)
+"RTN","ALPBFRM1",84,0)
+ ..S RESULTS(LINE)=RESULTS(LINE)_ALPBDRUG
+"RTN","ALPBFRM1",85,0)
+ ..K ALPBDRUG
+"RTN","ALPBFRM1",86,0)
+ ..I +$O(DATA(8,ALPBX)) D
+"RTN","ALPBFRM1",87,0)
+ ...S LINE=LINE+1
+"RTN","ALPBFRM1",88,0)
+ ...S RESULTS(LINE)=" "
+"RTN","ALPBFRM1",89,0)
+ ...S RESULTS(LINE)=$$PAD^ALPBUTL(RESULTS(LINE),14)
+"RTN","ALPBFRM1",90,0)
+ .K ALPBX
+"RTN","ALPBFRM1",91,0)
+ ; any solutions...
+"RTN","ALPBFRM1",92,0)
+ I +$O(DATA(9,0)) D
+"RTN","ALPBFRM1",93,0)
+ .S LINE=LINE+1
+"RTN","ALPBFRM1",94,0)
+ .S RESULTS(LINE)=" Solution(s): "
+"RTN","ALPBFRM1",95,0)
+ .S ALPBX=0
+"RTN","ALPBFRM1",96,0)
+ .F S ALPBX=$O(DATA(9,ALPBX)) Q:'ALPBX D
+"RTN","ALPBFRM1",97,0)
+ ..S ALPBDRUG=$P(DATA(9,ALPBX,0),"^",2)
+"RTN","ALPBFRM1",98,0)
+ ..; if UNITS is not already contained in SOLUTION NAME, add it...
+"RTN","ALPBFRM1",99,0)
+ ..I $P(DATA(9,ALPBX,0),"^",3)'=""&(ALPBDRUG'[$P(DATA(9,ALPBX,0),"^",3)) S ALPBDRUG=ALPBDRUG_" "_$P(DATA(9,ALPBX,0),"^",3)
+"RTN","ALPBFRM1",100,0)
+ ..S ALPBDRUG=$G(BOLDON)_ALPBDRUG_$G(BOLDOFF)
+"RTN","ALPBFRM1",101,0)
+ ..S RESULTS(LINE)=RESULTS(LINE)_ALPBDRUG
+"RTN","ALPBFRM1",102,0)
+ ..K ALPBDRUG
+"RTN","ALPBFRM1",103,0)
+ ..I +$O(DATA(9,ALPBX)) D
+"RTN","ALPBFRM1",104,0)
+ ...S LINE=LINE+1
+"RTN","ALPBFRM1",105,0)
+ ...S RESULTS(LINE)=" "
+"RTN","ALPBFRM1",106,0)
+ ...S RESULTS(LINE)=$$PAD^ALPBUTL(RESULTS(LINE),14)
+"RTN","ALPBFRM1",107,0)
+ .K ALPBX
+"RTN","ALPBFRM1",108,0)
+ ; give ($P(DATA(4),"^",1)=DOSAGE $P(DATA(4),"^",2)=ROUTE $P(DATA(4),"^",3)=SCHEDULE)...
+"RTN","ALPBFRM1",109,0)
+ S LINE=LINE+1
+"RTN","ALPBFRM1",110,0)
+ S RESULTS(LINE)=" Give: "_$P($G(DATA(4)),"^")_" "_$P($G(DATA(4)),"^",2)_" "_$P($G(DATA(4)),"^",3)
+"RTN","ALPBFRM1",111,0)
+ ;Set PRN Flag
+"RTN","ALPBFRM1",112,0)
+ S ALPBPRNG=0
+"RTN","ALPBFRM1",113,0)
+ S:$P($G(DATA(4)),"^",3)["PRN" ALPBPRNG=1
+"RTN","ALPBFRM1",114,0)
+ ;
+"RTN","ALPBFRM1",115,0)
+ ;S LINE=LINE+1,RESULTS(LINE)=""
+"RTN","ALPBFRM1",116,0)
+ ;
+"RTN","ALPBFRM1",117,0)
+ ; provider, pharmacist or entry person, and verifier...
+"RTN","ALPBFRM1",118,0)
+ S LINE=LINE+1
+"RTN","ALPBFRM1",119,0)
+ S RESULTS(LINE)=" Provider: "_$P($G(DATA(2)),"^")
+"RTN","ALPBFRM1",120,0)
+ S LINE=LINE+1
+"RTN","ALPBFRM1",121,0)
+ S RESULTS(LINE)="RPh/Entry by: "_$P($G(DATA(2)),"^",2)
+"RTN","ALPBFRM1",122,0)
+ I $P($G(DATA(2)),"^",3)'="" D
+"RTN","ALPBFRM1",123,0)
+ .S LINE=LINE+1
+"RTN","ALPBFRM1",124,0)
+ .S RESULTS(LINE)=" Verified by: "_$P(DATA(2),"^",3)
+"RTN","ALPBFRM1",125,0)
+ ; order number and type...
+"RTN","ALPBFRM1",126,0)
+ S LINE=LINE+1
+"RTN","ALPBFRM1",127,0)
+ S RESULTS(LINE)=" Order #: "_$P(DATA(0),"^")
+"RTN","ALPBFRM1",128,0)
+ S RESULTS(LINE)=$$PAD^ALPBUTL(RESULTS(LINE),25)_"Type: "_$$OTYP^ALPBUTL($P($G(DATA(3)),"^"))
+"RTN","ALPBFRM1",129,0)
+ ; order status...
+"RTN","ALPBFRM1",130,0)
+ S LINE=LINE+1
+"RTN","ALPBFRM1",131,0)
+ S RESULTS(LINE)=" Status: "_$P($P(DATA(0),"^",3),"~",2)
+"RTN","ALPBFRM1",132,0)
+ ;
+"RTN","ALPBFRM1",133,0)
+ ; med log data...
+"RTN","ALPBFRM1",134,0)
+ S LINE=LINE+1
+"RTN","ALPBFRM1",135,0)
+ S RESULTS(LINE)="BCMA MEDICATION LOG HISTORY"
+"RTN","ALPBFRM1",136,0)
+ ;I $G(MLDATE)'="" S RESULTS(LINE)=RESULTS(LINE)_" (since "_$$FMTE^XLFDT(MLDATE)_")"
+"RTN","ALPBFRM1",137,0)
+ I +$O(DATA(10,0))=0 D
+"RTN","ALPBFRM1",138,0)
+ .S LINE=LINE+1
+"RTN","ALPBFRM1",139,0)
+ .S RESULTS(LINE)=" No Medication Log entries are on file for this order."
+"RTN","ALPBFRM1",140,0)
+ I +$O(DATA(10,0)) D
+"RTN","ALPBFRM1",141,0)
+ .S LINE=LINE+1
+"RTN","ALPBFRM1",142,0)
+ .S RESULTS(LINE)=" Log Date"
+"RTN","ALPBFRM1",143,0)
+ .S RESULTS(LINE)=$$PAD^ALPBUTL(RESULTS(LINE),16)_"Message"
+"RTN","ALPBFRM1",144,0)
+ .S RESULTS(LINE)=$$PAD^ALPBUTL(RESULTS(LINE),31)_"Log Entry Person"
+"RTN","ALPBFRM1",145,0)
+ .I $O(DATA(10,"IMLOG",0))="" D
+"RTN","ALPBFRM1",146,0)
+ ..S LINE=LINE+1
+"RTN","ALPBFRM1",147,0)
+ ..S RESULTS(LINE)=" No entries since the above date are on file."
+"RTN","ALPBFRM1",148,0)
+ .;S ALPBMDT=MLDATE
+"RTN","ALPBFRM1",149,0)
+ .S ALPBMDT=0,ALPBMLC=1
+"RTN","ALPBFRM1",150,0)
+ .F S ALPBMDT=$O(DATA(10,"IMLOG",ALPBMDT)) Q:'ALPBMDT!(ALPBMLC>MLCNT) D
+"RTN","ALPBFRM1",151,0)
+ ..S ALPBX=0
+"RTN","ALPBFRM1",152,0)
+ ..F S ALPBX=$O(DATA(10,"IMLOG",ALPBMDT,ALPBX)) Q:'ALPBX!(ALPBMLC>MLCNT) D
+"RTN","ALPBFRM1",153,0)
+ ...S LINE=LINE+1,ALPBMLC=ALPBMLC+1
+"RTN","ALPBFRM1",154,0)
+ ...S RESULTS(LINE)=" "_$$FDATE^ALPBUTL($P(DATA(10,ALPBX,0),"^",1))
+"RTN","ALPBFRM1",155,0)
+ ...S RESULTS(LINE)=$$PAD^ALPBUTL(RESULTS(LINE),16)_$P(DATA(10,ALPBX,0),"^",3)
+"RTN","ALPBFRM1",156,0)
+ ...S RESULTS(LINE)=$$PAD^ALPBUTL(RESULTS(LINE),31)_$S($P(DATA(10,ALPBX,0),"^",2)'="":$P(DATA(10,ALPBX,0),"^",2),1:"<not on file")
+"RTN","ALPBFRM1",157,0)
+ ..K ALPBX
+"RTN","ALPBFRM1",158,0)
+ .K ALPBMDT,ALPBMLC
+"RTN","ALPBFRM1",159,0)
+ ;
+"RTN","ALPBFRM1",160,0)
+ ; BCMA LAST ACTION
+"RTN","ALPBFRM1",161,0)
+ I +$G(ALPPAT)>0 D
+"RTN","ALPBFRM1",162,0)
+ .S ALPBX=0
+"RTN","ALPBFRM1",163,0)
+ .F S ALPBX=$O(DATA(7,ALPBX)) Q:'ALPBX D
+"RTN","ALPBFRM1",164,0)
+ ..S ALPDRUG=$P(DATA(7,ALPBX,0),"^",1),ALPBDNM=$P(DATA(7,ALPBX,0),"^",2)
+"RTN","ALPBFRM1",165,0)
+ ..Q:+ALPDRUG'>0
+"RTN","ALPBFRM1",166,0)
+ ..S ALPLACT=$$LACT^ALPBUTL3(ALPPAT,ALPDRUG)
+"RTN","ALPBFRM1",167,0)
+ ..I ALPLACT'="" D
+"RTN","ALPBFRM1",168,0)
+ ...S LINE=LINE+1,RESULTS(LINE)=$$REPEAT^XLFSTR("-",75)
+"RTN","ALPBFRM1",169,0)
+ ...S LINE=LINE+1
+"RTN","ALPBFRM1",170,0)
+ ...S RESULTS(LINE)="Last action for "_ALPBDNM_" "_" was "_$P(ALPLACT,"^",3)_" on "_$$FDATE^ALPBUTL($P(ALPLACT,"^",1))
+"RTN","ALPBFRM1",171,0)
+ ...S RESULTS(LINE)=RESULTS(LINE)_" By "_$S($P(ALPLACT,"^",2)'="":$P(ALPLACT,"^",2),1:"<not on file>")
+"RTN","ALPBFRM1",172,0)
+ K ALPLACT,ALPDRUG,ALPBX
+"RTN","ALPBFRM1",173,0)
+ ;
+"RTN","ALPBFRM1",174,0)
+ I LINE<11 F I=1:1 Q:LINE=11 D
+"RTN","ALPBFRM1",175,0)
+ .S LINE=LINE+1
+"RTN","ALPBFRM1",176,0)
+ .S RESULTS(LINE)=""
+"RTN","ALPBFRM1",177,0)
+ ;
+"RTN","ALPBFRM1",178,0)
+ ; now add admin times and initial boxes to lines 4-10 as required
+"RTN","ALPBFRM1",179,0)
+ ; by number of administration times...
+"RTN","ALPBFRM1",180,0)
+ S ALPBIBOX="______|"
+"RTN","ALPBFRM1",181,0)
+ S ALPBNBOX="******|"
+"RTN","ALPBFRM1",182,0)
+ I +$G(ALPBADM)=0 S ALPBADM=8
+"RTN","ALPBFRM1",183,0)
+ ;S ALPBPRN=ALPBADM+4
+"RTN","ALPBFRM1",184,0)
+ S ALPBTSTART=$P($G(DATA(1)),"^",1)
+"RTN","ALPBFRM1",185,0)
+ S ALPBSTOP=$P($G(DATA(1)),"^",2)
+"RTN","ALPBFRM1",186,0)
+ F I=1:1:ALPBADM D
+"RTN","ALPBFRM1",187,0)
+ .S ALPBPRN=I+3
+"RTN","ALPBFRM1",188,0)
+ .S ALPBADMT=$G(ALPBADM(I))
+"RTN","ALPBFRM1",189,0)
+ .I ALPBADMT="" S ALPBADMT=" "
+"RTN","ALPBFRM1",190,0)
+ .I '$D(RESULTS(I+3)) D
+"RTN","ALPBFRM1",191,0)
+ ..S RESULTS(I+3)=" "
+"RTN","ALPBFRM1",192,0)
+ ..S LINE=LINE+1
+"RTN","ALPBFRM1",193,0)
+ .S RESULTS(I+3)=$$PAD^ALPBUTL(RESULTS(I+3),65)_"| "
+"RTN","ALPBFRM1",194,0)
+ .S RESULTS(I+3)=RESULTS(I+3)_$S($L(ALPBADMT)=2:ALPBADMT_"00",1:ALPBADMT)
+"RTN","ALPBFRM1",195,0)
+ .S RESULTS(I+3)=$$PAD^ALPBUTL(RESULTS(I+3),74)_"|"
+"RTN","ALPBFRM1",196,0)
+ .F J=1:1:DAYS D
+"RTN","ALPBFRM1",197,0)
+ ..I ALPBADMT=" " S ALPBTSTART=$P($P($G(DATA(1)),"^",1),".",1),ALPBSTOP=$P($P($G(DATA(1)),"^",2),".",1)
+"RTN","ALPBFRM1",198,0)
+ ..S ALPBDAY=ALPBDAYS(J)_"."_ALPBADMT
+"RTN","ALPBFRM1",199,0)
+ ..S ALPBPBOX=ALPBIBOX
+"RTN","ALPBFRM1",200,0)
+ ..;prints asterisks in boxes if start date is in the future
+"RTN","ALPBFRM1",201,0)
+ ..;and if the stop date has already expired
+"RTN","ALPBFRM1",202,0)
+ ..I ALPBDAY<ALPBTSTART S ALPBPBOX=ALPBNBOX
+"RTN","ALPBFRM1",203,0)
+ ..I ALPBDAY>ALPBSTOP!(ALPBDAY=ALPBSTOP) S ALPBPBOX=ALPBNBOX
+"RTN","ALPBFRM1",204,0)
+ ..S RESULTS(I+3)=RESULTS(I+3)_ALPBPBOX
+"RTN","ALPBFRM1",205,0)
+ .K ALPBADMT,ALPBPBOX,ALPBDAY
+"RTN","ALPBFRM1",206,0)
+ K ALPBIBOX,ALPBNBOX
+"RTN","ALPBFRM1",207,0)
+ ; if PRN med, add line for documenting effectiveness...
+"RTN","ALPBFRM1",208,0)
+ I +ALPBPRNG D
+"RTN","ALPBFRM1",209,0)
+ .S ALPBFLG=0,ALPBPRN=ALPBPRN+1
+"RTN","ALPBFRM1",210,0)
+ .S:'$D(RESULTS(ALPBPRN)) RESULTS(ALPBPRN)=" ",ALPBFLG=1
+"RTN","ALPBFRM1",211,0)
+ .S RESULTS(ALPBPRN)=$$PAD^ALPBUTL(RESULTS(ALPBPRN),63)_" PRN Effectiveness:_____________"
+"RTN","ALPBFRM1",212,0)
+ .S:ALPBFLG LINE=LINE+1
+"RTN","ALPBFRM1",213,0)
+ ;
+"RTN","ALPBFRM1",214,0)
+ ;*69 move SI text to here outside confines of grid
+"RTN","ALPBFRM1",215,0)
+ ; provider comments, special instructions, and other print info...
+"RTN","ALPBFRM1",216,0)
+ I +$O(DATA(5,0)) D
+"RTN","ALPBFRM1",217,0)
+ .K ALPBTEXT M ALPBTEXT=DATA(5)
+"RTN","ALPBFRM1",218,0)
+ .S ALPBX=0
+"RTN","ALPBFRM1",219,0)
+ .F S ALPBX=$O(ALPBTEXT(ALPBX)) Q:'ALPBX D
+"RTN","ALPBFRM1",220,0)
+ ..S ALPBLINE=ALPBTEXT(ALPBX,0)
+"RTN","ALPBFRM1",221,0)
+ ..S LINE=LINE+1
+"RTN","ALPBFRM1",222,0)
+ ..S RESULTS(LINE)=ALPBLINE
+"RTN","ALPBFRM1",223,0)
+ .K ALPBLINE,ALPBTEXT,ALPBX
+"RTN","ALPBFRM1",224,0)
+ ;
+"RTN","ALPBFRM1",225,0)
+ S LINE=LINE+1
+"RTN","ALPBFRM1",226,0)
+ S RESULTS(LINE)=$$REPEAT^XLFSTR("-",132)
+"RTN","ALPBFRM1",227,0)
+ S RESULTS(0)=LINE
+"RTN","ALPBFRM1",228,0)
+ Q
+"RTN","ALPBHL1U")
+0^1^B68251433
+"RTN","ALPBHL1U",1,0)
+ALPBHL1U ;OIFO-DALLAS MW,SED,KC -HL7 MESSAGE SEGMENT PARSER AND UPDATE ; 7/23/12 9:42am
+"RTN","ALPBHL1U",2,0)
+ ;;3.0;BAR CODE MED ADMIN;**7,69,59**;Mar 2004;Build 20
+"RTN","ALPBHL1U",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","ALPBHL1U",4,0)
+ ;
+"RTN","ALPBHL1U",5,0)
+ ; passed parameters common to all functions:
+"RTN","ALPBHL1U",6,0)
+ ; IEN = patient's internal entry number in file 53.7
+"RTN","ALPBHL1U",7,0)
+ ; OIEN = the order number's internal entry number in file 53.7
+"RTN","ALPBHL1U",8,0)
+ ; DATA = the HL7 message line
+"RTN","ALPBHL1U",9,0)
+ ; FS = the HL7 field separator character (e.g., "|" or "^")
+"RTN","ALPBHL1U",10,0)
+ ; CS = the HL7 component separator character (e.g., "~")
+"RTN","ALPBHL1U",11,0)
+ ; ECH = the HL7 encoding characters
+"RTN","ALPBHL1U",12,0)
+ ; ERR = an array passed by reference, returned containing
+"RTN","ALPBHL1U",13,0)
+ ; FileMan DBS call error array (if any)
+"RTN","ALPBHL1U",14,0)
+ ;
+"RTN","ALPBHL1U",15,0)
+ ;*69 - A New NTE segment will now contain WP unlimited text. This
+"RTN","ALPBHL1U",16,0)
+ ; text will also contain formatted text escape character \.br\
+"RTN","ALPBHL1U",17,0)
+ ; NTE tag will now rebuild work arrays honoring the line break
+"RTN","ALPBHL1U",18,0)
+ ; escape character prior to storing into BCMA BACKUP DATA #53.7.
+"RTN","ALPBHL1U",19,0)
+ ;
+"RTN","ALPBHL1U",20,0)
+AL1(IEN,DATA,FS,CS,ERR) ; process AL1 (allergies) segment...
+"RTN","ALPBHL1U",21,0)
+ I +$G(IEN)'>0!($G(DATA)="")!($G(FS)="")!($G(CS)="") D ERRBLD^ALPBUTL1("AL1","",.ERR) Q
+"RTN","ALPBHL1U",22,0)
+ N ALPBALG,ALPBALGN,ALPBFILE,ALPBNEXT,ALPBSCHD,ALPBX,SCS,ALPBXX,ALPBSCHDLE1,ALPBX2,ALPBYY
+"RTN","ALPBHL1U",23,0)
+ S ALPBALG=+$P(DATA,FS,4)
+"RTN","ALPBHL1U",24,0)
+ I ALPBALG'>0 D ERRBLD^ALPBUTL1("AL1","Undefined allergy "_DATA,.ERR) Q
+"RTN","ALPBHL1U",25,0)
+ S ALPBALGN=$P($P(DATA,FS,4),CS,2)
+"RTN","ALPBHL1U",26,0)
+ ; is this allergy already on file for this patient?...
+"RTN","ALPBHL1U",27,0)
+ I $D(^ALPB(53.7,IEN,1,"B",ALPBALG)) S ERR("DIERR")=0 Q
+"RTN","ALPBHL1U",28,0)
+ ; if not, file it...
+"RTN","ALPBHL1U",29,0)
+ S ALPBNEXT=+$O(^ALPB(53.7,IEN,1," "),-1)+1
+"RTN","ALPBHL1U",30,0)
+ S ALPBFILE(53.701,"+"_ALPBNEXT_","_IEN_",",.01)=ALPBALG
+"RTN","ALPBHL1U",31,0)
+ S ALPBFILE(53.701,"+"_ALPBNEXT_","_IEN_",",1)=ALPBALGN
+"RTN","ALPBHL1U",32,0)
+ D UPDATE^DIE("","ALPBFILE","ALPBNEXT","ERR")
+"RTN","ALPBHL1U",33,0)
+ Q
+"RTN","ALPBHL1U",34,0)
+ ;
+"RTN","ALPBHL1U",35,0)
+ORC(IEN,OIEN,DATA,MLOG,FS,CS,ERR) ; process ORC (common order) segment...
+"RTN","ALPBHL1U",36,0)
+ ; MLOG = if 1 then this is an ORC segment with a Med Log update
+"RTN","ALPBHL1U",37,0)
+ ; if 0 then this is a common order update
+"RTN","ALPBHL1U",38,0)
+ I +$G(IEN)'>0!(+$G(OIEN)'>0)!($G(DATA)="")!($G(MLOG)="")!($G(FS)="")!($G(CS)="") D ERRBLD^ALPBUTL1("ORC","",.ERR) Q
+"RTN","ALPBHL1U",39,0)
+ N ALPBFIEN,ALPBFILE,ALPBMREC,ALPBNEXT,ALPBTEXT,ALPBX
+"RTN","ALPBHL1U",40,0)
+ S ALPBFIEN=OIEN_","_IEN_","
+"RTN","ALPBHL1U",41,0)
+ ; ORC segment with NO MedLog data...
+"RTN","ALPBHL1U",42,0)
+ I +MLOG=0 D
+"RTN","ALPBHL1U",43,0)
+ .S ALPBX=$P(DATA,FS,1)
+"RTN","ALPBHL1U",44,0)
+ .; order status...
+"RTN","ALPBHL1U",45,0)
+ .S ALPBFILE(53.702,ALPBFIEN,2)=$P(DATA,FS,6)
+"RTN","ALPBHL1U",46,0)
+ .; provider...
+"RTN","ALPBHL1U",47,0)
+ .S ALPBFILE(53.702,ALPBFIEN,5)=$P($P(DATA,FS,13),CS,2)
+"RTN","ALPBHL1U",48,0)
+ .; entry person/rph...
+"RTN","ALPBHL1U",49,0)
+ .S ALPBFILE(53.702,ALPBFIEN,5.1)=$P($P(DATA,FS,11),CS,2)
+"RTN","ALPBHL1U",50,0)
+ .; verified by...
+"RTN","ALPBHL1U",51,0)
+ .S ALPBFILE(53.702,ALPBFIEN,5.2)=$P($P(DATA,FS,12),CS,2)
+"RTN","ALPBHL1U",52,0)
+ .D UPDATE^DIE("","ALPBFILE","","ERR")
+"RTN","ALPBHL1U",53,0)
+ .; if this is a pending order, add special instructions...
+"RTN","ALPBHL1U",54,0)
+ .I $P($P(DATA,FS,6),CS,1)="IP" D
+"RTN","ALPBHL1U",55,0)
+ ..S ALPBTEXT(1)="CAUTION! THIS IS A PENDING ORDER :: CHECK WITH PROVIDER OR PHARMACIST!"
+"RTN","ALPBHL1U",56,0)
+ ..D WP^DIE(53.702,ALPBFIEN,8,"A","ALPBTEXT","ERR")
+"RTN","ALPBHL1U",57,0)
+ ..K ALPBTEXT
+"RTN","ALPBHL1U",58,0)
+ ; ORC segment with specific MedLog data...
+"RTN","ALPBHL1U",59,0)
+ I +MLOG=1 D
+"RTN","ALPBHL1U",60,0)
+ .; ALPBX = med log date/time...
+"RTN","ALPBHL1U",61,0)
+ .S ALPBX=$$FMDATE^HLFNC($P(DATA,FS,10))
+"RTN","ALPBHL1U",62,0)
+ .I ALPBX="" K ALPBX Q
+"RTN","ALPBHL1U",63,0)
+ .; ALPBMREC = med log record number...
+"RTN","ALPBHL1U",64,0)
+ .S ALPBMREC=+$P($P(DATA,FS,3),CS,1)
+"RTN","ALPBHL1U",65,0)
+ .; if the med log entry is already on file, update and quit.
+"RTN","ALPBHL1U",66,0)
+ .; check for both an entry on file for the log date/time ("B" xref)
+"RTN","ALPBHL1U",67,0)
+ .; or med log record number ("C" xref)...
+"RTN","ALPBHL1U",68,0)
+ .S ALPBNEXT=+$O(^ALPB(53.7,IEN,2,OIEN,10,"B",ALPBX,""))
+"RTN","ALPBHL1U",69,0)
+ .I ALPBNEXT'>0 S ALPBNEXT=+$O(^ALPB(53.7,IEN,2,OIEN,10,"C",ALPBMREC,""))
+"RTN","ALPBHL1U",70,0)
+ .I ALPBNEXT>0 D Q
+"RTN","ALPBHL1U",71,0)
+ ..S ALPBFILE(53.70213,ALPBNEXT_","_ALPBFIEN,.01)=ALPBX
+"RTN","ALPBHL1U",72,0)
+ ..S ALPBFILE(53.70213,ALPBNEXT_","_ALPBFIEN,1)=$P($P(DATA,FS,11),CS,2)
+"RTN","ALPBHL1U",73,0)
+ ..S ALPBFILE(53.70213,ALPBNEXT_","_ALPBFIEN,2)=$P($P(DATA,FS,6),CS,2)
+"RTN","ALPBHL1U",74,0)
+ ..I ALPBMREC>0 S ALPBFILE(53.70213,ALPBNEXT_","_ALPBFIEN,3)=ALPBMREC
+"RTN","ALPBHL1U",75,0)
+ ..D UPDATE^DIE("","ALPBFILE","","ERR")
+"RTN","ALPBHL1U",76,0)
+ .K ALPBNEXT
+"RTN","ALPBHL1U",77,0)
+ .; if not, add it...
+"RTN","ALPBHL1U",78,0)
+ .S ALPBNEXT=+$O(^ALPB(53.7,IEN,2,OIEN,6," "),-1)+1
+"RTN","ALPBHL1U",79,0)
+ .S ALPBFILE(53.70213,"+"_ALPBNEXT_","_ALPBFIEN,.01)=ALPBX
+"RTN","ALPBHL1U",80,0)
+ .; med log entry person...
+"RTN","ALPBHL1U",81,0)
+ .S ALPBFILE(53.70213,"+"_ALPBNEXT_","_ALPBFIEN,1)=$P($P(DATA,FS,11),CS,2)
+"RTN","ALPBHL1U",82,0)
+ .; med log transaction message...
+"RTN","ALPBHL1U",83,0)
+ .S ALPBFILE(53.70213,"+"_ALPBNEXT_","_ALPBFIEN,2)=$P($P(DATA,FS,6),CS,2)
+"RTN","ALPBHL1U",84,0)
+ .; med log record number...
+"RTN","ALPBHL1U",85,0)
+ .I ALPBMREC>0 S ALPBFILE(53.70213,"+"_ALPBNEXT_","_ALPBFIEN,3)=ALPBMREC
+"RTN","ALPBHL1U",86,0)
+ .D UPDATE^DIE("","ALPBFILE","ALPBNEXT","ERR")
+"RTN","ALPBHL1U",87,0)
+ Q
+"RTN","ALPBHL1U",88,0)
+ ;
+"RTN","ALPBHL1U",89,0)
+PV1(IEN,DATA,FS,CS,ERR) ; process PV1 (patient visit/movement) segment...
+"RTN","ALPBHL1U",90,0)
+ I +$G(IEN)=0!($G(DATA)="") D ERRBLD^ALPBUTL1("PV1","",.ERR) Q
+"RTN","ALPBHL1U",91,0)
+ N ALPBFIEN,ALPBFILE,ALPBX
+"RTN","ALPBHL1U",92,0)
+ S ALPBFIEN=IEN_","
+"RTN","ALPBHL1U",93,0)
+ S ALPBX=$P(DATA,FS,4)
+"RTN","ALPBHL1U",94,0)
+ ; ward...
+"RTN","ALPBHL1U",95,0)
+ S ALPBFILE(53.7,ALPBFIEN,4)=$P(ALPBX,CS)
+"RTN","ALPBHL1U",96,0)
+ ; room...
+"RTN","ALPBHL1U",97,0)
+ S ALPBFILE(53.7,ALPBFIEN,5)=$P(ALPBX,CS,2)
+"RTN","ALPBHL1U",98,0)
+ ; bed...
+"RTN","ALPBHL1U",99,0)
+ S ALPBFILE(53.7,ALPBFIEN,6)=$P(ALPBX,CS,3)
+"RTN","ALPBHL1U",100,0)
+ D FILE^DIE("","ALPBFILE","ERR")
+"RTN","ALPBHL1U",101,0)
+ Q
+"RTN","ALPBHL1U",102,0)
+ ;
+"RTN","ALPBHL1U",103,0)
+RXO(IEN,OIEN,DATA,FS,CS,ERR) ; process RXO (pharmacy prescription order) segment...
+"RTN","ALPBHL1U",104,0)
+ ; for inpatient meds, this segment contains an orderable item. this
+"RTN","ALPBHL1U",105,0)
+ ; module is ONLY called if the order is "P"ending. it only files the
+"RTN","ALPBHL1U",106,0)
+ ; orderable item if no drug is on file for the order.
+"RTN","ALPBHL1U",107,0)
+ N ALPBDIEN,ALPBDRUG,ALPBFILE,ALPBNEXT
+"RTN","ALPBHL1U",108,0)
+ I +$G(IEN)'>0!(+$G(OIEN)'>0)!($G(DATA)="")!($G(FS)="")!($G(CS)="") D ERRBLD^ALPBUTL1("RXO","",.ERR) Q
+"RTN","ALPBHL1U",109,0)
+ S ALPBDIEN=+$P($P(DATA,FS,2),CS,4)
+"RTN","ALPBHL1U",110,0)
+ S ALPBDRUG=$P($P(DATA,FS,2),CS,5)
+"RTN","ALPBHL1U",111,0)
+ I ALPBDIEN'>0 D ERRBLD^ALPBUTL1("RXO","Invalid drug IEN in RXO segment",.ERR) Q
+"RTN","ALPBHL1U",112,0)
+ ; if there is ANY drug already on file, quit...
+"RTN","ALPBHL1U",113,0)
+ I +$O(^ALPB(53.7,IEN,2,OIEN,7,0))>0 Q
+"RTN","ALPBHL1U",114,0)
+ ; if not, file it...
+"RTN","ALPBHL1U",115,0)
+ S ALPBNEXT=+$O(^ALPB(53.7,IEN,2,OIEN,7," "),-1)+1
+"RTN","ALPBHL1U",116,0)
+ S ALPBFILE(53.703,"+"_ALPBNEXT_","_OIEN_","_IEN_",",.01)=ALPBDIEN
+"RTN","ALPBHL1U",117,0)
+ S ALPBFILE(53.703,"+"_ALPBNEXT_","_OIEN_","_IEN_",",1)=ALPBDRUG
+"RTN","ALPBHL1U",118,0)
+ D UPDATE^DIE("","ALPBFILE","ALPBNEXT","ERR")
+"RTN","ALPBHL1U",119,0)
+ Q
+"RTN","ALPBHL1U",120,0)
+ ;
+"RTN","ALPBHL1U",121,0)
+RXE(IEN,OIEN,DATA,FS,CS,ECH,ERR) ; process RXE (order detail) segment...
+"RTN","ALPBHL1U",122,0)
+ ; this segment may contain the drug name, though there may not be a drug
+"RTN","ALPBHL1U",123,0)
+ ; because this can also be used for order detail for IV's which are
+"RTN","ALPBHL1U",124,0)
+ ; contained in an RXC segment. this segment can also contain start/stop
+"RTN","ALPBHL1U",125,0)
+ ; date&time, dosage and schedule
+"RTN","ALPBHL1U",126,0)
+ I +$G(IEN)'>0!(+$G(OIEN)'>0)!($G(DATA)="")!($G(FS)="")!($G(CS)="")!($G(ECH)="") D ERRBLD^ALPBUTL1("RXE","",.ERR) Q
+"RTN","ALPBHL1U",127,0)
+ N ALPBDIEN,ALPBDRUG,ALPBFIEN,ALPBFILE,ALPBNEXT,ALPBSCHD,ALPBX,SCS
+"RTN","ALPBHL1U",128,0)
+ S SCS=$E(ECH,4)
+"RTN","ALPBHL1U",129,0)
+ S ALPBFIEN=OIEN_","_IEN_","
+"RTN","ALPBHL1U",130,0)
+ ; for drug, we'll use the one that came from the Drug file...
+"RTN","ALPBHL1U",131,0)
+ S ALPBDIEN=+$P($P(DATA,FS,3),CS,4)
+"RTN","ALPBHL1U",132,0)
+ S ALPBDRUG=$P($P(DATA,FS,3),CS,5)
+"RTN","ALPBHL1U",133,0)
+ ; is this drug already on file for this order? if not, add it...
+"RTN","ALPBHL1U",134,0)
+ I ALPBDIEN>0&('$D(^ALPB(53.7,IEN,2,OIEN,7,"B",ALPBDIEN))) D
+"RTN","ALPBHL1U",135,0)
+ .S ALPBNEXT=+$O(^ALPB(53.7,IEN,2,OIEN,7," "),-1)+1
+"RTN","ALPBHL1U",136,0)
+ .S ALPBFILE(53.703,"+"_ALPBNEXT_","_ALPBFIEN,.01)=ALPBDIEN
+"RTN","ALPBHL1U",137,0)
+ .S ALPBFILE(53.703,"+"_ALPBNEXT_","_ALPBFIEN,1)=ALPBDRUG
+"RTN","ALPBHL1U",138,0)
+ .D UPDATE^DIE("","ALPBFILE","ALPBNEXT","ERR")
+"RTN","ALPBHL1U",139,0)
+ .K ALPBFERR,ALPBFILE,ALPBNEXT
+"RTN","ALPBHL1U",140,0)
+ S ALPBX=$P(DATA,FS,2)
+"RTN","ALPBHL1U",141,0)
+ ; start date/time...
+"RTN","ALPBHL1U",142,0)
+ S ALPBFILE(53.702,ALPBFIEN,4)=$$FMDATE^HLFNC($P(ALPBX,CS,4))
+"RTN","ALPBHL1U",143,0)
+ ; stop date/time...
+"RTN","ALPBHL1U",144,0)
+ S ALPBFILE(53.702,ALPBFIEN,4.1)=$$FMDATE^HLFNC($P(ALPBX,CS,5))
+"RTN","ALPBHL1U",145,0)
+ ; dosage...
+"RTN","ALPBHL1U",146,0)
+ S ALPBFILE(53.702,ALPBFIEN,7)=$P(ALPBX,CS,8)
+"RTN","ALPBHL1U",147,0)
+ ; schedule...
+"RTN","ALPBHL1U",148,0)
+ S ALPBSCHD=$P(ALPBX,CS,2)
+"RTN","ALPBHL1U",149,0)
+ ; the following three lines remove the additional ampersand symbol (&) and admin. time(s) that are added to the schedule by variable ALPBSCHD
+"RTN","ALPBHL1U",150,0)
+ S ALPBXX=$L(ALPBSCHD,SCS),ALPBSCHDLE1="",ALPBX2=$P(ALPBSCHD,SCS,ALPBXX)
+"RTN","ALPBHL1U",151,0)
+ F ALPBYY=1:1:(ALPBXX-1) S ALPBSCHDLE1=ALPBSCHDLE1_$P(ALPBSCHD,SCS,ALPBYY) Q:ALPBYY=(ALPBXX-1) S ALPBSCHDLE1=ALPBSCHDLE1_SCS
+"RTN","ALPBHL1U",152,0)
+ S ALPBSCHD=ALPBSCHDLE1
+"RTN","ALPBHL1U",153,0)
+ I $P(DATA,FS,24)'="" S ALPBSCHD=ALPBSCHD_" "_$P(DATA,FS,24)
+"RTN","ALPBHL1U",154,0)
+ I $P($P(DATA,FS,25),CS,5)'="" S ALPBSCHD=ALPBSCHD_" "_$P($P(DATA,FS,25),CS,5)
+"RTN","ALPBHL1U",155,0)
+ S ALPBFILE(53.702,ALPBFIEN,7.2)=ALPBSCHD
+"RTN","ALPBHL1U",156,0)
+ ; timing...
+"RTN","ALPBHL1U",157,0)
+ S ALPBFILE(53.702,ALPBFIEN,7.3)=$P($P(DATA,FS,22),CS,2)
+"RTN","ALPBHL1U",158,0)
+ D UPDATE^DIE("","ALPBFILE","","ERR")
+"RTN","ALPBHL1U",159,0)
+ Q
+"RTN","ALPBHL1U",160,0)
+ ;
+"RTN","ALPBHL1U",161,0)
+RXR(IEN,OIEN,DATA,FS,CS,ERR) ; process RXR (med administration route) segment...
+"RTN","ALPBHL1U",162,0)
+ I +$G(IEN)'>0!(+$G(OIEN)'>0)!($G(DATA)="")!($G(FS)="")!($G(CS)="") D ERRBLD^ALPBUTL1("RXR","",.ERR) Q
+"RTN","ALPBHL1U",163,0)
+ N ALPBFILE
+"RTN","ALPBHL1U",164,0)
+ ; route...
+"RTN","ALPBHL1U",165,0)
+ S ALPBFILE(53.702,OIEN_","_IEN_",",7.1)=$P($P(DATA,FS,2),CS,5)
+"RTN","ALPBHL1U",166,0)
+ D UPDATE^DIE("","ALPBFILE","","ERR")
+"RTN","ALPBHL1U",167,0)
+ Q
+"RTN","ALPBHL1U",168,0)
+ ;
+"RTN","ALPBHL1U",169,0)
+RXC(IEN,OIEN,DATA,FS,CS,ERR) ; process RXC (IV orders: additives/solutions) segment...
+"RTN","ALPBHL1U",170,0)
+ I +$G(IEN)'>0!(+$G(OIEN)'>0)!($G(DATA)="")!($G(FS)="")!($G(CS)="") D ERRBLD^ALPBUTL1("RXC","",.ERR) Q
+"RTN","ALPBHL1U",171,0)
+ N ALPBFILE,ALPBFNOD,ALPBGNOD,ALPBNAM,ALPBNEXT,ALPBNUM,ALPBTYP,ALPBUNIT
+"RTN","ALPBHL1U",172,0)
+ S ALPBTYP=$P(DATA,FS,2)
+"RTN","ALPBHL1U",173,0)
+ S ALPBGNOD=$S(ALPBTYP="A":8,ALPBTYP="B":9,1:0)
+"RTN","ALPBHL1U",174,0)
+ I ALPBGNOD=0 D ERRBLD^ALPBUTL1("RXC","Unable to determine Additive or Solution in RXC segment",.ERR) Q
+"RTN","ALPBHL1U",175,0)
+ S ALPBFNOD="53.7021"_$S(ALPBGNOD=8:1,1:2)
+"RTN","ALPBHL1U",176,0)
+ S ALPBNUM=$P($P(DATA,FS,3),CS,4)
+"RTN","ALPBHL1U",177,0)
+ ; is this additive or solution already on file?...
+"RTN","ALPBHL1U",178,0)
+ I $D(^ALPB(53.7,IEN,2,OIEN,ALPBGNOD,"B",ALPBNUM)) S ERR("DIERR")=0 Q
+"RTN","ALPBHL1U",179,0)
+ ; if not, file it...
+"RTN","ALPBHL1U",180,0)
+ S ALPBNAM=$P($P(DATA,FS,3),CS,5)
+"RTN","ALPBHL1U",181,0)
+ S ALPBUNIT=$P(DATA,FS,4)_$P($P(DATA,FS,5),CS,5)
+"RTN","ALPBHL1U",182,0)
+ S ALPBNEXT=+$O(^ALPB(53.7,IEN,2,OIEN,ALPBGNOD," "),-1)+1
+"RTN","ALPBHL1U",183,0)
+ S ALPBFILE(ALPBFNOD,"+"_ALPBNEXT_","_OIEN_","_IEN_",",.01)=ALPBNUM
+"RTN","ALPBHL1U",184,0)
+ S ALPBFILE(ALPBFNOD,"+"_ALPBNEXT_","_OIEN_","_IEN_",",1)=ALPBNAM
+"RTN","ALPBHL1U",185,0)
+ S ALPBFILE(ALPBFNOD,"+"_ALPBNEXT_","_OIEN_","_IEN_",",2)=ALPBUNIT
+"RTN","ALPBHL1U",186,0)
+ D UPDATE^DIE("","ALPBFILE","ALPBNEXT","ERR")
+"RTN","ALPBHL1U",187,0)
+ Q
+"RTN","ALPBHL1U",188,0)
+ ;
+"RTN","ALPBHL1U",189,0)
+NTE(IEN,OIEN,DATA,FS,CS,ERR) ; process NTE (note) segment...
+"RTN","ALPBHL1U",190,0)
+ ; note: in the case of NTE segments, DATA is passed in as an array.
+"RTN","ALPBHL1U",191,0)
+ ; NTE data can be in multiple nodes, the first subscript of which
+"RTN","ALPBHL1U",192,0)
+ ; contains the actual NTE segments itself.
+"RTN","ALPBHL1U",193,0)
+ I +$G(IEN)'>0!(+$G(OIEN)'>0)!($D(DATA)=0)!($G(FS)="")!($G(CS)="") D ERRBLD^ALPBUTL1("NTE","",.ERR) Q
+"RTN","ALPBHL1U",194,0)
+ N ALPBFILE,I
+"RTN","ALPBHL1U",195,0)
+ ; check the status of this order. if it is pending, abort
+"RTN","ALPBHL1U",196,0)
+ ; and do not file any special comments (note ORC module comments)...
+"RTN","ALPBHL1U",197,0)
+ I $E($P($G(^ALPB(53.7,IEN,2,OIEN,0)),"^",3),1,2)="IP" Q
+"RTN","ALPBHL1U",198,0)
+ ; examine DATA(1) and from the Pharmacy package code in the second
+"RTN","ALPBHL1U",199,0)
+ ; field, insert a header at the first subscript level of our working
+"RTN","ALPBHL1U",200,0)
+ ; array (which we will pass to the FileMan call)...
+"RTN","ALPBHL1U",201,0)
+ S ALPBFILE(1)=$S($P(DATA(1),FS,2)=6:"Provider Comments:",$P(DATA(1),FS,2)=21:"Special Instructions:",1:"Other Info:")
+"RTN","ALPBHL1U",202,0)
+ ;
+"RTN","ALPBHL1U",203,0)
+ ;*69 Rebuild the WP Instructions from the formatted NTE segment.
+"RTN","ALPBHL1U",204,0)
+ ; The NTE text will be put into the DATA array and can contain
+"RTN","ALPBHL1U",205,0)
+ ; the escape character \.br\ for line break. The line break will
+"RTN","ALPBHL1U",206,0)
+ ; allow this routine to store the WP text exactly how the Rph
+"RTN","ALPBHL1U",207,0)
+ ; keyed it in IM backdoor. They may have keyed in hard returns
+"RTN","ALPBHL1U",208,0)
+ ; and spaces, so to create an aligned columnar table, i.e.
+"RTN","ALPBHL1U",209,0)
+ ; an Insulin sliding scale.
+"RTN","ALPBHL1U",210,0)
+ S DATA(1)=$P(DATA(1),FS,4) ;reset DATA(1) from piece 4 of DATA(1)
+"RTN","ALPBHL1U",211,0)
+ ;
+"RTN","ALPBHL1U",212,0)
+ ; Unwrap DATA array into one large field, 64k is limit
+"RTN","ALPBHL1U",213,0)
+ N ALEN,DLEN,ELEN,QUIT,ALLTXT,NEWALPB
+"RTN","ALPBHL1U",214,0)
+ S QUIT=0,ALLTXT=""
+"RTN","ALPBHL1U",215,0)
+ ;
+"RTN","ALPBHL1U",216,0)
+ ; Put formatted NTE array together as one line up to 64k
+"RTN","ALPBHL1U",217,0)
+ F I=0:0 S I=$O(DATA(I)) Q:'I D Q:QUIT
+"RTN","ALPBHL1U",218,0)
+ .S ALEN=$L(ALLTXT),DLEN=$L(DATA(I))
+"RTN","ALPBHL1U",219,0)
+ .I ALEN+DLEN>65536 S ELEN=65536-ALEN S ALLTXT=ALLTXT_$E(DATA(I),1,ELEN) S QUIT=1 Q
+"RTN","ALPBHL1U",220,0)
+ .S ALLTXT=ALLTXT_DATA(I)
+"RTN","ALPBHL1U",221,0)
+ ;
+"RTN","ALPBHL1U",222,0)
+ ; Build new work array from the formatted lines of the large field
+"RTN","ALPBHL1U",223,0)
+ D HL7FMT(ALLTXT,.NEWALPB)
+"RTN","ALPBHL1U",224,0)
+ ;
+"RTN","ALPBHL1U",225,0)
+ ; Now add back to the text of the new working array into the original
+"RTN","ALPBHL1U",226,0)
+ ; work array beginning with element 2, as element 1 has the heading
+"RTN","ALPBHL1U",227,0)
+ F I=0:0 S I=$O(NEWALPB(I)) Q:'I S ALPBFILE(I+1)=NEWALPB(I)
+"RTN","ALPBHL1U",228,0)
+ ;
+"RTN","ALPBHL1U",229,0)
+ ; Store new WP text to field 8
+"RTN","ALPBHL1U",230,0)
+ D WP^DIE(53.702,OIEN_","_IEN_",",8,"","ALPBFILE","ERR")
+"RTN","ALPBHL1U",231,0)
+ Q
+"RTN","ALPBHL1U",232,0)
+ ;
+"RTN","ALPBHL1U",233,0)
+HL7FMT(NEWLN,AR) ;Unwrap formatted text array lines into a new array
+"RTN","ALPBHL1U",234,0)
+ ; the escape character, \.br\ ,will cause a new array element to
+"RTN","ALPBHL1U",235,0)
+ ; begin with the text after the escape character.
+"RTN","ALPBHL1U",236,0)
+ N ESC,LIN,LN,QUIT,I
+"RTN","ALPBHL1U",237,0)
+ S QUIT=0
+"RTN","ALPBHL1U",238,0)
+ F I=1:1 S LN=NEWLN D Q:QUIT
+"RTN","ALPBHL1U",239,0)
+ . S ESC=$F(LN,"\.br\")
+"RTN","ALPBHL1U",240,0)
+ . I ESC=6 S LIN="",NEWLN=$E(LN,ESC,65536) S AR(I)=LIN Q
+"RTN","ALPBHL1U",241,0)
+ . I ESC=0 S LIN=NEWLN,NEWLN="" S AR(I)=LIN,QUIT=1 Q
+"RTN","ALPBHL1U",242,0)
+ . S LIN=$E(LN,1,ESC-6)
+"RTN","ALPBHL1U",243,0)
+ . S NEWLN=$E(LN,ESC,65536)
+"RTN","ALPBHL1U",244,0)
+ . S AR(I)=LIN
+"RTN","ALPBHL1U",245,0)
+ Q
+"RTN","ALPBPALL")
+0^4^B44937205
+"RTN","ALPBPALL",1,0)
+ALPBPALL ;OIFO-DALLAS MW,SED,KC-PRINT 3-DAY MAR BCMA BACLUP REPORT FOR ALL WARDS ;01/01/03
+"RTN","ALPBPALL",2,0)
+ ;;3.0;BAR CODE MED ADMIN;**8,29,48,59**;Mar 2004;Build 20
+"RTN","ALPBPALL",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","ALPBPALL",4,0)
+ ;
+"RTN","ALPBPALL",5,0)
+ ; based on original code by FD at NJHCS, May 2002
+"RTN","ALPBPALL",6,0)
+ ;
+"RTN","ALPBPALL",7,0)
+ W !,"Inpatient Pharmacy Orders for all wards"
+"RTN","ALPBPALL",8,0)
+ ;
+"RTN","ALPBPALL",9,0)
+ ; get all or just current orders?...
+"RTN","ALPBPALL",10,0)
+ S DIR(0)="SA^A:ALL;C:CURRENT"
+"RTN","ALPBPALL",11,0)
+ S DIR("A")="Report [A]LL or [C]URRENT orders? "
+"RTN","ALPBPALL",12,0)
+ S DIR("B")="CURRENT"
+"RTN","ALPBPALL",13,0)
+ S DIR("?")="[A]LL=all orders in the file, [C]URRENT=orders not yet expired."
+"RTN","ALPBPALL",14,0)
+ W ! D ^DIR K DIR
+"RTN","ALPBPALL",15,0)
+ I $D(DIRUT) K DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPALL",16,0)
+ S ALPBOTYP=Y
+"RTN","ALPBPALL",17,0)
+ ;
+"RTN","ALPBPALL",18,0)
+ ;added in PSB*3*59 to benefit users located at the long term care and domiciliary sites
+"RTN","ALPBPALL",19,0)
+ ;include patients without active medications?...
+"RTN","ALPBPALL",20,0)
+ S ALPBWOMED=""
+"RTN","ALPBPALL",21,0)
+ I ALPBOTYP="C" D Q:ALPBWOMED=""
+"RTN","ALPBPALL",22,0)
+ .S DIR(0)="SA^Y:YES;N:NO"
+"RTN","ALPBPALL",23,0)
+ .S DIR("A")="Include Patients Without Active Medications? "
+"RTN","ALPBPALL",24,0)
+ .S DIR("B")="YES"
+"RTN","ALPBPALL",25,0)
+ .S DIR("?",1)="[Y]es=include patients without active medication orders,"
+"RTN","ALPBPALL",26,0)
+ .S DIR("?")="[N]o=do not include patients without active medication orders."
+"RTN","ALPBPALL",27,0)
+ .W ! D ^DIR K DIR
+"RTN","ALPBPALL",28,0)
+ .I $D(DIRUT) K ALPBOTYP,DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPALL",29,0)
+ .S ALPBWOMED=Y
+"RTN","ALPBPALL",30,0)
+ ;
+"RTN","ALPBPALL",31,0)
+ ; print how many days MAR?...
+"RTN","ALPBPALL",32,0)
+ S DIR(0)="NA^1:7"
+"RTN","ALPBPALL",33,0)
+ S DIR("A")="Print how many days MAR? "
+"RTN","ALPBPALL",34,0)
+ S DIR("B")=$$DEFDAYS^ALPBUTL()
+"RTN","ALPBPALL",35,0)
+ S DIR("?")="The default is shown; please select a number 1 to 7."
+"RTN","ALPBPALL",36,0)
+ W ! D ^DIR K DIR
+"RTN","ALPBPALL",37,0)
+ I $D(DIRUT) K ALPBOTYP,DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPALL",38,0)
+ S ALPBDAYS=+Y
+"RTN","ALPBPALL",39,0)
+ ;
+"RTN","ALPBPALL",40,0)
+ ; BCMA Med Log info for how many ?...
+"RTN","ALPBPALL",41,0)
+ S DIR(0)="NA^1:99"
+"RTN","ALPBPALL",42,0)
+ S DIR("B")=$$DEFML^ALPBUTL3()
+"RTN","ALPBPALL",43,0)
+ S DIR("A")="Select how many BCMA Medication Log history: "
+"RTN","ALPBPALL",44,0)
+ S DIR("A",1)=" "
+"RTN","ALPBPALL",45,0)
+ S DIR("?",1)="Select a number of BCMA Medication log entries"
+"RTN","ALPBPALL",46,0)
+ S DIR("?",2)="for each of the patient's orders"
+"RTN","ALPBPALL",47,0)
+ S DIR("?")="They are listed by the most current entry first"
+"RTN","ALPBPALL",48,0)
+ D ^DIR K DIR
+"RTN","ALPBPALL",49,0)
+ I $D(DIRUT) K ALPBOTYP,ALPBWARD,DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPALL",50,0)
+ S ALPBMLOG=Y
+"RTN","ALPBPALL",51,0)
+ ;
+"RTN","ALPBPALL",52,0)
+ S %ZIS="Q"
+"RTN","ALPBPALL",53,0)
+ S %ZIS("B")=$$DEFPRT^ALPBUTL()
+"RTN","ALPBPALL",54,0)
+ I %ZIS("B")="" K %ZIS("B")
+"RTN","ALPBPALL",55,0)
+ W ! D ^%ZIS K %ZIS
+"RTN","ALPBPALL",56,0)
+ I POP K POP Q
+"RTN","ALPBPALL",57,0)
+ ;
+"RTN","ALPBPALL",58,0)
+ ; output not queued...
+"RTN","ALPBPALL",59,0)
+ I '$D(IO("Q")) D
+"RTN","ALPBPALL",60,0)
+ .U IO
+"RTN","ALPBPALL",61,0)
+ .D DQ
+"RTN","ALPBPALL",62,0)
+ .I IO'=IO(0) D ^%ZISC
+"RTN","ALPBPALL",63,0)
+ ;
+"RTN","ALPBPALL",64,0)
+ ; set up the task...
+"RTN","ALPBPALL",65,0)
+ I $D(IO("Q")) D
+"RTN","ALPBPALL",66,0)
+ .S ZTRTN="DQ^ALPBPALL"
+"RTN","ALPBPALL",67,0)
+ .S ZTDESC="PSB INPT PHARM ORDER FOR ALL WARDS"
+"RTN","ALPBPALL",68,0)
+ .S ZTIO=ION
+"RTN","ALPBPALL",69,0)
+ .S ZTSAVE("ALPBMLOG")=""
+"RTN","ALPBPALL",70,0)
+ .S ZTSAVE("ALPBOTYP")=""
+"RTN","ALPBPALL",71,0)
+ .S ZTSAVE("ALPBDAYS")=""
+"RTN","ALPBPALL",72,0)
+ .S ZTSAVE("ALPBWOMED")=""
+"RTN","ALPBPALL",73,0)
+ .D ^%ZTLOAD
+"RTN","ALPBPALL",74,0)
+ .D HOME^%ZIS
+"RTN","ALPBPALL",75,0)
+ .W !,$S($G(ZTSK):"Task number "_ZTSK_" queued.",1:"ERROR -- NOT QUEUED!")
+"RTN","ALPBPALL",76,0)
+ .K IO("Q"),ZTSK
+"RTN","ALPBPALL",77,0)
+ K ALPBDAYS,ALPBMLOG,ALPBOTYP,ALPBWOMED
+"RTN","ALPBPALL",78,0)
+ Q
+"RTN","ALPBPALL",79,0)
+ ;
+"RTN","ALPBPALL",80,0)
+DQ ; output entry point...
+"RTN","ALPBPALL",81,0)
+ K ^TMP($J)
+"RTN","ALPBPALL",82,0)
+ ;
+"RTN","ALPBPALL",83,0)
+ ; set report date...MOD 11/03/03 SED
+"RTN","ALPBPALL",84,0)
+ S ALPBRDAT=$S(ALPBOTYP="C":$$NOW^XLFDT(),1:"")
+"RTN","ALPBPALL",85,0)
+ ;
+"RTN","ALPBPALL",86,0)
+ ; loop through ward cross reference in 53.7...
+"RTN","ALPBPALL",87,0)
+ N ALPBDRGNAME
+"RTN","ALPBPALL",88,0)
+ S ALPBWARD=""
+"RTN","ALPBPALL",89,0)
+ F S ALPBWARD=$O(^ALPB(53.7,"AW",ALPBWARD)) Q:ALPBWARD="" D
+"RTN","ALPBPALL",90,0)
+ .S ALPBPTN=""
+"RTN","ALPBPALL",91,0)
+ .F S ALPBPTN=$O(^ALPB(53.7,"AW",ALPBWARD,ALPBPTN)) Q:ALPBPTN="" D
+"RTN","ALPBPALL",92,0)
+ ..S ALPBIEN=0
+"RTN","ALPBPALL",93,0)
+ ..F S ALPBIEN=$O(^ALPB(53.7,"AW",ALPBWARD,ALPBPTN,ALPBIEN)) Q:'ALPBIEN D
+"RTN","ALPBPALL",94,0)
+ ...D ORDS^ALPBUTL(ALPBIEN,ALPBRDAT,.ALPBORDS)
+"RTN","ALPBPALL",95,0)
+ ...I +ALPBORDS(0)'>0&(ALPBWOMED="Y") D Q
+"RTN","ALPBPALL",96,0)
+ ....S ^TMP($J,ALPBWARD,ALPBPTN)=ALPBIEN
+"RTN","ALPBPALL",97,0)
+ ....K ALPBORDS
+"RTN","ALPBPALL",98,0)
+ ...S ALPBOIEN=0
+"RTN","ALPBPALL",99,0)
+ ...F S ALPBOIEN=$O(ALPBORDS(ALPBOIEN)) Q:'ALPBOIEN D
+"RTN","ALPBPALL",100,0)
+ ....S ALPBDATA=$G(^ALPB(53.7,ALPBIEN,2,ALPBOIEN,1))
+"RTN","ALPBPALL",101,0)
+ ....I ALPBOTYP="C"&($P(ALPBDATA,U,2)<ALPBRDAT) K ALPBDATA Q
+"RTN","ALPBPALL",102,0)
+ ....S ALPBOCT=$P($G(^ALPB(53.7,ALPBIEN,2,ALPBOIEN,3)),U,1)
+"RTN","ALPBPALL",103,0)
+ ....S:$P($G(^ALPB(53.7,ALPBIEN,2,ALPBOIEN,4)),U,3)["PRN" ALPBOCT=ALPBOCT_"P"
+"RTN","ALPBPALL",104,0)
+ ....S ALPBDRGNAME=$P($G(^ALPB(53.7,ALPBIEN,2,ALPBOIEN,7,1,0)),U,2)
+"RTN","ALPBPALL",105,0)
+ ....S ALPBORDN=ALPBORDS(ALPBOIEN)
+"RTN","ALPBPALL",106,0)
+ ....S ALPBOST=$$STAT2^ALPBUTL1(ALPBORDS(ALPBOIEN,2))
+"RTN","ALPBPALL",107,0)
+ ....I '$D(^TMP($J,ALPBWARD,ALPBPTN)) S ^TMP($J,ALPBWARD,ALPBPTN)=ALPBIEN
+"RTN","ALPBPALL",108,0)
+ ....S ^TMP($J,ALPBWARD,ALPBPTN,ALPBOCT,ALPBDRGNAME,ALPBOST,ALPBORDN)=ALPBOIEN
+"RTN","ALPBPALL",109,0)
+ ....K ALPBDATA,ALPBORDN,ALPBOST,ALPBOCT,ALPBDRGNAME
+"RTN","ALPBPALL",110,0)
+ ...K ALPBOIEN,ALPBORDS
+"RTN","ALPBPALL",111,0)
+ ..K ALPBIEN
+"RTN","ALPBPALL",112,0)
+ .K ALPBPTN
+"RTN","ALPBPALL",113,0)
+ K ALPBWARD
+"RTN","ALPBPALL",114,0)
+ ;
+"RTN","ALPBPALL",115,0)
+ ; process through our sorted list...
+"RTN","ALPBPALL",116,0)
+ S ALPBPG=0
+"RTN","ALPBPALL",117,0)
+ S ALPBWARD=""
+"RTN","ALPBPALL",118,0)
+ F S ALPBWARD=$O(^TMP($J,ALPBWARD)) Q:ALPBWARD="" D
+"RTN","ALPBPALL",119,0)
+ .S ALPBPTN=""
+"RTN","ALPBPALL",120,0)
+ .F S ALPBPTN=$O(^TMP($J,ALPBWARD,ALPBPTN)) Q:ALPBPTN="" D
+"RTN","ALPBPALL",121,0)
+ ..S ALPBIEN=+^TMP($J,ALPBWARD,ALPBPTN)
+"RTN","ALPBPALL",122,0)
+ ..S ALPBPDAT(0)=$G(^ALPB(53.7,ALPBIEN,0))
+"RTN","ALPBPALL",123,0)
+ ..M ALPBPDAT(1)=^ALPB(53.7,ALPBIEN,1)
+"RTN","ALPBPALL",124,0)
+ ..N ALPBNOMEDS2
+"RTN","ALPBPALL",125,0)
+ ..S ALPBNOMEDS2=""
+"RTN","ALPBPALL",126,0)
+ ..S:$D(^TMP($J,ALPBWARD,ALPBPTN))=1 ALPBNOMEDS2=1
+"RTN","ALPBPALL",127,0)
+ ..; paginate between patients...
+"RTN","ALPBPALL",128,0)
+ ..I ALPBPG=0 D PAGE
+"RTN","ALPBPALL",129,0)
+ ..S ALPBOCT=""
+"RTN","ALPBPALL",130,0)
+ ..F S ALPBOCT=$O(^TMP($J,ALPBWARD,ALPBPTN,ALPBOCT)) Q:ALPBOCT="" D
+"RTN","ALPBPALL",131,0)
+ ...S ALPBDRGNAME=""
+"RTN","ALPBPALL",132,0)
+ ...F S ALPBDRGNAME=$O(^TMP($J,ALPBWARD,ALPBPTN,ALPBOCT,ALPBDRGNAME)) Q:ALPBDRGNAME="" D
+"RTN","ALPBPALL",133,0)
+ ....S ALPBOST=""
+"RTN","ALPBPALL",134,0)
+ ....F S ALPBOST=$O(^TMP($J,ALPBWARD,ALPBPTN,ALPBOCT,ALPBDRGNAME,ALPBOST)) Q:ALPBOST="" D
+"RTN","ALPBPALL",135,0)
+ .....S ALPBORDN=""
+"RTN","ALPBPALL",136,0)
+ .....F S ALPBORDN=$O(^TMP($J,ALPBWARD,ALPBPTN,ALPBOCT,ALPBDRGNAME,ALPBOST,ALPBORDN)) Q:ALPBORDN="" D
+"RTN","ALPBPALL",137,0)
+ ......S ALPBOIEN=^TMP($J,ALPBWARD,ALPBPTN,ALPBOCT,ALPBDRGNAME,ALPBOST,ALPBORDN)
+"RTN","ALPBPALL",138,0)
+ ......; get and print this order's data...
+"RTN","ALPBPALL",139,0)
+ ......M ALPBDATA=^ALPB(53.7,ALPBIEN,2,ALPBOIEN)
+"RTN","ALPBPALL",140,0)
+ ......D F132^ALPBFRM1(.ALPBDATA,ALPBDAYS,ALPBMLOG,.ALPBFORM,ALPBIEN)
+"RTN","ALPBPALL",141,0)
+ ......I $Y+ALPBFORM(0)>IOSL D PAGE
+"RTN","ALPBPALL",142,0)
+ ......S ALPBX=0
+"RTN","ALPBPALL",143,0)
+ ......F S ALPBX=$O(ALPBFORM(ALPBX)) Q:'ALPBX W !,ALPBFORM(ALPBX)
+"RTN","ALPBPALL",144,0)
+ ......K ALPBDATA,ALPBFORM,ALPBOIEN,ALPBX
+"RTN","ALPBPALL",145,0)
+ .....K ALPBORDN
+"RTN","ALPBPALL",146,0)
+ ....K ALPBOST
+"RTN","ALPBPALL",147,0)
+ ...K ALPBDRGNAME
+"RTN","ALPBPALL",148,0)
+ ..K ALPBIEN,ALPBPDAT,ALPBOCT
+"RTN","ALPBPALL",149,0)
+ ..S ALPBPG=0
+"RTN","ALPBPALL",150,0)
+ ..;notification message displays one line below header info if patient has no med orders when the report is generated
+"RTN","ALPBPALL",151,0)
+ ..I ALPBNOMEDS2 D
+"RTN","ALPBPALL",152,0)
+ ...W !!,"No Active Medication Orders were reported to the Contingency at the time the MAR was printed ",!!!
+"RTN","ALPBPALL",153,0)
+ ...;additional blank lines added to separate footer from header and allow room for notes
+"RTN","ALPBPALL",154,0)
+ ...I $E(IOST)="P" F Q:$Y>=(IOSL-6) W !
+"RTN","ALPBPALL",155,0)
+ ..; print footer at end of this patient's record...
+"RTN","ALPBPALL",156,0)
+ ..D FOOT^ALPBFRMU
+"RTN","ALPBPALL",157,0)
+ ..;Print a blank page between patient (this was removed by PSB*3*59 - the BCMA Workgroup agreed to condense the report)
+"RTN","ALPBPALL",158,0)
+ ..;W @IOF
+"RTN","ALPBPALL",159,0)
+ .K ALPBPTN
+"RTN","ALPBPALL",160,0)
+ ;
+"RTN","ALPBPALL",161,0)
+ K ALPBDAYS,ALPBMLOG,ALPBOTYP,ALPBPG,ALPBRDAT,ALPBWARD,^TMP($J),ALPBNOMEDS2
+"RTN","ALPBPALL",162,0)
+ I $D(ZTQUEUED) S ZTREQ="@"
+"RTN","ALPBPALL",163,0)
+ Q
+"RTN","ALPBPALL",164,0)
+ ;
+"RTN","ALPBPALL",165,0)
+PAGE ; paginate and print header for a patient...
+"RTN","ALPBPALL",166,0)
+ W @IOF
+"RTN","ALPBPALL",167,0)
+ ; increment page count...
+"RTN","ALPBPALL",168,0)
+ S ALPBPG=ALPBPG+1
+"RTN","ALPBPALL",169,0)
+ D HDR^ALPBFRMU(.ALPBPDAT,ALPBPG,.ALPBHDR)
+"RTN","ALPBPALL",170,0)
+ S ALPBX=0
+"RTN","ALPBPALL",171,0)
+ F S ALPBX=$O(ALPBHDR(ALPBX)) Q:'ALPBX W !,ALPBHDR(ALPBX)
+"RTN","ALPBPALL",172,0)
+ K ALPBHDR,ALPBX
+"RTN","ALPBPALL",173,0)
+ Q
+"RTN","ALPBPPAT")
+0^2^B32938480
+"RTN","ALPBPPAT",1,0)
+ALPBPPAT ;OIFO-DALLAS MW,SED,KC-PRINT 3-DAY MAR BCBU BACKUP REPORT FOR A SELECTED PATIENT ;01/01/03
+"RTN","ALPBPPAT",2,0)
+ ;;3.0;BAR CODE MED ADMIN;**8,48,59**;Mar 2004;Build 20
+"RTN","ALPBPPAT",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","ALPBPPAT",4,0)
+ ;
+"RTN","ALPBPPAT",5,0)
+ ; NOTE: this routine is designed for hard-copy output.
+"RTN","ALPBPPAT",6,0)
+ ; Output is formatted for 132-column printing.
+"RTN","ALPBPPAT",7,0)
+ ;
+"RTN","ALPBPPAT",8,0)
+ F D Q:$D(DIRUT)
+"RTN","ALPBPPAT",9,0)
+ .W !!,"Inpatient Pharmacy Orders for a selected patient"
+"RTN","ALPBPPAT",10,0)
+ .S DIR(0)="PAO^53.7:QEMZ"
+"RTN","ALPBPPAT",11,0)
+ .S DIR("A")="Select PATIENT NAME: "
+"RTN","ALPBPPAT",12,0)
+ .D ^DIR K DIR
+"RTN","ALPBPPAT",13,0)
+ .I $D(DIRUT) K X,Y Q
+"RTN","ALPBPPAT",14,0)
+ .S ALPBIEN=+Y
+"RTN","ALPBPPAT",15,0)
+ .S ALPBPTN=Y(0,0)
+"RTN","ALPBPPAT",16,0)
+ .; get all or just current orders?...
+"RTN","ALPBPPAT",17,0)
+ .S DIR(0)="SA^A:ALL;C:CURRENT"
+"RTN","ALPBPPAT",18,0)
+ .S DIR("A")="Report [A]LL or [C]URRENT orders? "
+"RTN","ALPBPPAT",19,0)
+ .S DIR("B")="CURRENT"
+"RTN","ALPBPPAT",20,0)
+ .S DIR("?")="[A]LL=all orders in the file, [C]URRENT=orders not yet expired."
+"RTN","ALPBPPAT",21,0)
+ .W ! D ^DIR K DIR
+"RTN","ALPBPPAT",22,0)
+ .I $D(DIRUT) K DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPPAT",23,0)
+ .S ALPBOTYP=Y
+"RTN","ALPBPPAT",24,0)
+ .;
+"RTN","ALPBPPAT",25,0)
+ .; print how many days MAR?...
+"RTN","ALPBPPAT",26,0)
+ .S DIR(0)="NA^1:7"
+"RTN","ALPBPPAT",27,0)
+ .S DIR("A")="Print how many days MAR? "
+"RTN","ALPBPPAT",28,0)
+ .S DIR("B")=$$DEFDAYS^ALPBUTL()
+"RTN","ALPBPPAT",29,0)
+ .S DIR("?")="The default is shown; please select a number 1 to 7."
+"RTN","ALPBPPAT",30,0)
+ .W ! D ^DIR K DIR
+"RTN","ALPBPPAT",31,0)
+ .I $D(DIRUT) K ALPBOTYP,DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPPAT",32,0)
+ .S ALPBDAYS=+Y
+"RTN","ALPBPPAT",33,0)
+ .;
+"RTN","ALPBPPAT",34,0)
+ .; BCMA Med Log info for how many ?...
+"RTN","ALPBPPAT",35,0)
+ .S DIR(0)="NA^1:99"
+"RTN","ALPBPPAT",36,0)
+ .S DIR("B")=$$DEFML^ALPBUTL3()
+"RTN","ALPBPPAT",37,0)
+ .S DIR("A")="Select how many BCMA Medication Log history: "
+"RTN","ALPBPPAT",38,0)
+ .S DIR("A",1)=" "
+"RTN","ALPBPPAT",39,0)
+ .S DIR("?",1)="Select a number of BCMA Medication log entries"
+"RTN","ALPBPPAT",40,0)
+ .S DIR("?",2)="for each of the patient's orders"
+"RTN","ALPBPPAT",41,0)
+ .S DIR("?")="They are listed by the most current entry first"
+"RTN","ALPBPPAT",42,0)
+ .D ^DIR K DIR
+"RTN","ALPBPPAT",43,0)
+ .I $D(DIRUT) K ALPBOTYP,ALPBWARD,DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPPAT",44,0)
+ .S ALPBMLOG=Y
+"RTN","ALPBPPAT",45,0)
+ .;
+"RTN","ALPBPPAT",46,0)
+ .S %ZIS="Q"
+"RTN","ALPBPPAT",47,0)
+ .S %ZIS("B")=$$DEFPRT^ALPBUTL()
+"RTN","ALPBPPAT",48,0)
+ .I %ZIS("B")="" K %ZIS("B")
+"RTN","ALPBPPAT",49,0)
+ .W ! D ^%ZIS K %ZIS
+"RTN","ALPBPPAT",50,0)
+ .I POP D Q
+"RTN","ALPBPPAT",51,0)
+ ..K ALPBIEN,ALPBPTN,POP
+"RTN","ALPBPPAT",52,0)
+ .;
+"RTN","ALPBPPAT",53,0)
+ .; output not queued...
+"RTN","ALPBPPAT",54,0)
+ .I '$D(IO("Q")) D
+"RTN","ALPBPPAT",55,0)
+ ..U IO
+"RTN","ALPBPPAT",56,0)
+ ..D DQ
+"RTN","ALPBPPAT",57,0)
+ ..I IO'=IO(0) D ^%ZISC
+"RTN","ALPBPPAT",58,0)
+ .;
+"RTN","ALPBPPAT",59,0)
+ .; set up the Task...
+"RTN","ALPBPPAT",60,0)
+ .I $D(IO("Q")) D
+"RTN","ALPBPPAT",61,0)
+ ..S ZTRTN="DQ^ALPBPPAT"
+"RTN","ALPBPPAT",62,0)
+ ..S ZTIO=ION
+"RTN","ALPBPPAT",63,0)
+ ..S ZTDESC="PSB INPT PHARM ORDERS FOR "_ALPBPTN
+"RTN","ALPBPPAT",64,0)
+ ..S ZTSAVE("ALPBDAYS")=""
+"RTN","ALPBPPAT",65,0)
+ ..S ZTSAVE("ALPBIEN")=""
+"RTN","ALPBPPAT",66,0)
+ ..S ZTSAVE("ALPBMLOG")=""
+"RTN","ALPBPPAT",67,0)
+ ..S ZTSAVE("ALPBOTYP")=""
+"RTN","ALPBPPAT",68,0)
+ ..D ^%ZTLOAD
+"RTN","ALPBPPAT",69,0)
+ ..D HOME^%ZIS
+"RTN","ALPBPPAT",70,0)
+ ..W !!,$S(+$G(ZTSK):"Task "_ZTSK_" queued.",1:"ERROR: NOT QUEUED!")
+"RTN","ALPBPPAT",71,0)
+ ..K IO("Q"),ZTSK
+"RTN","ALPBPPAT",72,0)
+ .;
+"RTN","ALPBPPAT",73,0)
+ .K ALPBDAYS,ALPBIEN,ALPBMLOG,ALPBOTYP,ALPBPTN,X,Y
+"RTN","ALPBPPAT",74,0)
+ K DIRUT,DTOUT,X,Y
+"RTN","ALPBPPAT",75,0)
+ Q
+"RTN","ALPBPPAT",76,0)
+ ;
+"RTN","ALPBPPAT",77,0)
+DQ ; output entry point...
+"RTN","ALPBPPAT",78,0)
+ K ^TMP($J)
+"RTN","ALPBPPAT",79,0)
+ ;
+"RTN","ALPBPPAT",80,0)
+ ; set report date...
+"RTN","ALPBPPAT",81,0)
+ S ALPBRDAT=$$NOW^XLFDT()
+"RTN","ALPBPPAT",82,0)
+ S ALPBPT(0)=$G(^ALPB(53.7,ALPBIEN,0))
+"RTN","ALPBPPAT",83,0)
+ M ALPBPT(1)=^ALPB(53.7,ALPBIEN,1)
+"RTN","ALPBPPAT",84,0)
+ S ALPBPG=1
+"RTN","ALPBPPAT",85,0)
+ D HDR^ALPBFRMU(.ALPBPT,ALPBPG,.ALPBHDR)
+"RTN","ALPBPPAT",86,0)
+ F I=1:1:ALPBHDR(0) W !,ALPBHDR(I)
+"RTN","ALPBPPAT",87,0)
+ K ALPBHDR
+"RTN","ALPBPPAT",88,0)
+ ;
+"RTN","ALPBPPAT",89,0)
+ ; loop through orders and sort by order status...
+"RTN","ALPBPPAT",90,0)
+ N ALPBNOMEDS1,ALPBDRGNAME
+"RTN","ALPBPPAT",91,0)
+ S ALPBOIEN=0,ALPBNOMEDS1=1
+"RTN","ALPBPPAT",92,0)
+ F S ALPBOIEN=$O(^ALPB(53.7,ALPBIEN,2,ALPBOIEN)) Q:'ALPBOIEN D
+"RTN","ALPBPPAT",93,0)
+ .M ALPBDATA=^ALPB(53.7,ALPBIEN,2,ALPBOIEN)
+"RTN","ALPBPPAT",94,0)
+ .; if report type is "C"urrent and stop date is less than report date then quit and if status contains 'on hold' do not print and quit...
+"RTN","ALPBPPAT",95,0)
+ .I ALPBOTYP="C" D Q:'$D(ALPBDATA)
+"RTN","ALPBPPAT",96,0)
+ ..I $$STAT^ALPBUTL1($E($P(ALPBDATA(0),U,3),1,2))["on hold" K ALPBDATA Q
+"RTN","ALPBPPAT",97,0)
+ ..I $G(ALPBDATA(1))="" K ALPBDATA Q
+"RTN","ALPBPPAT",98,0)
+ ..I $P(ALPBDATA(1),U,2)<ALPBRDAT K ALPBDATA
+"RTN","ALPBPPAT",99,0)
+ .S ALPBNOMEDS1=0
+"RTN","ALPBPPAT",100,0)
+ .S ALPBORDN=$P(ALPBDATA(0),U)
+"RTN","ALPBPPAT",101,0)
+ .S ALPBOCT=$P($G(ALPBDATA(3)),U,1)
+"RTN","ALPBPPAT",102,0)
+ .S:$P($G(ALPBDATA(4)),U,3)["PRN" ALPBOCT=ALPBOCT_"P"
+"RTN","ALPBPPAT",103,0)
+ .;drug name being used for alpha-sorting medications within order types (unit dose, unit dose-PRN, intravenous, intravenous-PRN)
+"RTN","ALPBPPAT",104,0)
+ .S ALPBDRGNAME=$P($G(ALPBDATA(7,1,0)),U,2)
+"RTN","ALPBPPAT",105,0)
+ .; gets the medications order status based on the order status code
+"RTN","ALPBPPAT",106,0)
+ .S ALPBOST=$$STAT2^ALPBUTL1($P($P($G(ALPBDATA(0),"XX"),U,3),"~",1))
+"RTN","ALPBPPAT",107,0)
+ .S ^TMP($J,ALPBOCT,ALPBDRGNAME,ALPBOST,ALPBORDN)=ALPBOIEN
+"RTN","ALPBPPAT",108,0)
+ .K ALPBDATA,ALPBOST,ALPBOCT,ALPBDRGNAME
+"RTN","ALPBPPAT",109,0)
+ ;
+"RTN","ALPBPPAT",110,0)
+ ; loop through the sorted orders...
+"RTN","ALPBPPAT",111,0)
+ S ALPBOCT=""
+"RTN","ALPBPPAT",112,0)
+ F S ALPBOCT=$O(^TMP($J,ALPBOCT)) Q:ALPBOCT="" D
+"RTN","ALPBPPAT",113,0)
+ .S ALPBDRGNAME=""
+"RTN","ALPBPPAT",114,0)
+ .F S ALPBDRGNAME=$O(^TMP($J,ALPBOCT,ALPBDRGNAME)) Q:ALPBDRGNAME="" D
+"RTN","ALPBPPAT",115,0)
+ ..S ALPBOST=""
+"RTN","ALPBPPAT",116,0)
+ ..F S ALPBOST=$O(^TMP($J,ALPBOCT,ALPBDRGNAME,ALPBOST)) Q:ALPBOST="" D
+"RTN","ALPBPPAT",117,0)
+ ...S ALPBORDN=""
+"RTN","ALPBPPAT",118,0)
+ ...F S ALPBORDN=$O(^TMP($J,ALPBOCT,ALPBDRGNAME,ALPBOST,ALPBORDN)) Q:ALPBORDN="" D
+"RTN","ALPBPPAT",119,0)
+ ....S ALPBOIEN=^TMP($J,ALPBOCT,ALPBDRGNAME,ALPBOST,ALPBORDN)
+"RTN","ALPBPPAT",120,0)
+ ....M ALPBDATA=^ALPB(53.7,ALPBIEN,2,ALPBOIEN)
+"RTN","ALPBPPAT",121,0)
+ ....W !
+"RTN","ALPBPPAT",122,0)
+ ....D F132^ALPBFRM1(.ALPBDATA,ALPBDAYS,ALPBMLOG,.ALPBFORM,ALPBIEN)
+"RTN","ALPBPPAT",123,0)
+ ....; paginate?...
+"RTN","ALPBPPAT",124,0)
+ ....I $Y+ALPBFORM(0)=IOSL!($Y+ALPBFORM(0)>IOSL) D
+"RTN","ALPBPPAT",125,0)
+ .....W @IOF
+"RTN","ALPBPPAT",126,0)
+ .....S ALPBPG=ALPBPG+1
+"RTN","ALPBPPAT",127,0)
+ .....D HDR^ALPBFRMU(.ALPBPT,ALPBPG,.ALPBHDR)
+"RTN","ALPBPPAT",128,0)
+ .....F I=1:1:ALPBHDR(0) W !,ALPBHDR(I)
+"RTN","ALPBPPAT",129,0)
+ .....W !
+"RTN","ALPBPPAT",130,0)
+ .....K ALPBHDR
+"RTN","ALPBPPAT",131,0)
+ ....F I=1:1:ALPBFORM(0) W !,ALPBFORM(I)
+"RTN","ALPBPPAT",132,0)
+ ....K ALPBDATA,ALPBFORM
+"RTN","ALPBPPAT",133,0)
+ ...K ALPBORDN
+"RTN","ALPBPPAT",134,0)
+ ..K ALPBOST
+"RTN","ALPBPPAT",135,0)
+ .K ALPBDRGNAME
+"RTN","ALPBPPAT",136,0)
+ K ALPBOCT
+"RTN","ALPBPPAT",137,0)
+ ;
+"RTN","ALPBPPAT",138,0)
+ ;notification message displays one line below header info if patient has no med orders when the report is generated
+"RTN","ALPBPPAT",139,0)
+ I ALPBNOMEDS1 D
+"RTN","ALPBPPAT",140,0)
+ .W !!,"No Active Medication Orders were reported to the Contingency at the time the MAR was printed ",!!!
+"RTN","ALPBPPAT",141,0)
+ .;additional blank lines added to separate footer from header and allow room for notes
+"RTN","ALPBPPAT",142,0)
+ .I $E(IOST)="P" F Q:$Y>=(IOSL-6) W !
+"RTN","ALPBPPAT",143,0)
+ ;
+"RTN","ALPBPPAT",144,0)
+ ; print footer at end of this patient's record...
+"RTN","ALPBPPAT",145,0)
+ D FOOT^ALPBFRMU
+"RTN","ALPBPPAT",146,0)
+ ;
+"RTN","ALPBPPAT",147,0)
+ K ALPBDAYS,ALPBMLOG,ALPBOIEN,ALPBORDN,ALPBOST,ALPBOTYP,ALPBPG,ALPBPT,ALPBRDAT,^TMP($J),ALPBNOMEDS1
+"RTN","ALPBPPAT",148,0)
+ I $D(ZTQUEUED) S ZTREQ="@"
+"RTN","ALPBPPAT",149,0)
+ ;
+"RTN","ALPBPPAT",150,0)
+ ; write form feed at end if output device is a printer...
+"RTN","ALPBPPAT",151,0)
+ I $E(IOST)="P" W @IOF
+"RTN","ALPBPPAT",152,0)
+ Q
+"RTN","ALPBPWRD")
+0^3^B73805924
+"RTN","ALPBPWRD",1,0)
+ALPBPWRD ;OIFO-DALLAS MW,SED,KC-PRINT 3-DAY MAR BCMA BCBU REPORT FOR A SELECTED WARD ;01/01/03
+"RTN","ALPBPWRD",2,0)
+ ;;3.0;BAR CODE MED ADMIN;**8,37,48,59**;Mar 2004;Build 20
+"RTN","ALPBPWRD",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","ALPBPWRD",4,0)
+ ;
+"RTN","ALPBPWRD",5,0)
+ ; NOTE: this routine is designed for hard-copy output.
+"RTN","ALPBPWRD",6,0)
+ ; Output is formatted for 132-column printing.
+"RTN","ALPBPWRD",7,0)
+ ;
+"RTN","ALPBPWRD",8,0)
+ F D Q:$D(DIRUT)
+"RTN","ALPBPWRD",9,0)
+ .W !,"Inpatient Pharmacy Orders for a selected ward"
+"RTN","ALPBPWRD",10,0)
+ .S DIR(0)="FAO^2:10"
+"RTN","ALPBPWRD",11,0)
+ .S DIR("A")="Select WARD: "
+"RTN","ALPBPWRD",12,0)
+ .S DIR("?")="^D WARDLIST^ALPBUTL(""C"")"
+"RTN","ALPBPWRD",13,0)
+ .D ^DIR K DIR
+"RTN","ALPBPWRD",14,0)
+ .I $D(DIRUT) Q
+"RTN","ALPBPWRD",15,0)
+ .D WARDSEL^ALPBUTL(Y,.ALPBSEL)
+"RTN","ALPBPWRD",16,0)
+ .I +$G(ALPBSEL(0))=0 D Q
+"RTN","ALPBPWRD",17,0)
+ ..W $C(7)
+"RTN","ALPBPWRD",18,0)
+ ..W " ??"
+"RTN","ALPBPWRD",19,0)
+ ..D WARDLIST^ALPBUTL("C")
+"RTN","ALPBPWRD",20,0)
+ ..K ALPBSEL
+"RTN","ALPBPWRD",21,0)
+ .I +$G(ALPBSEL(0))=1 D
+"RTN","ALPBPWRD",22,0)
+ ..S ALPBWARD=ALPBSEL(1)
+"RTN","ALPBPWRD",23,0)
+ ..W " ",ALPBWARD
+"RTN","ALPBPWRD",24,0)
+ ..K ALPBSEL
+"RTN","ALPBPWRD",25,0)
+ .I +$G(ALPBSEL(0))>1 D I $D(DIRUT) K DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPWRD",26,0)
+ ..S ALPBX=0
+"RTN","ALPBPWRD",27,0)
+ ..F S ALPBX=$O(ALPBSEL(ALPBX)) Q:'ALPBX W !?2,$J(ALPBX,2)," ",ALPBSEL(ALPBX)
+"RTN","ALPBPWRD",28,0)
+ ..K ALPBX
+"RTN","ALPBPWRD",29,0)
+ ..S DIR(0)="NA^1:"_ALPBSEL(0)
+"RTN","ALPBPWRD",30,0)
+ ..S DIR("A")="Select Ward from the list (1-"_ALPBSEL(0)_"): "
+"RTN","ALPBPWRD",31,0)
+ ..W ! D ^DIR K DIR
+"RTN","ALPBPWRD",32,0)
+ ..I $D(DIRUT) K ALPBSEL Q
+"RTN","ALPBPWRD",33,0)
+ ..S ALPBWARD=ALPBSEL(+Y)
+"RTN","ALPBPWRD",34,0)
+ ..K ALPBSEL
+"RTN","ALPBPWRD",35,0)
+ .;
+"RTN","ALPBPWRD",36,0)
+ .; get all or just current orders?...
+"RTN","ALPBPWRD",37,0)
+ .S DIR(0)="SA^A:ALL;C:CURRENT"
+"RTN","ALPBPWRD",38,0)
+ .S DIR("A")="Report [A]LL or [C]URRENT orders? "
+"RTN","ALPBPWRD",39,0)
+ .S DIR("B")="CURRENT"
+"RTN","ALPBPWRD",40,0)
+ .S DIR("?")="[A]LL=all orders in the file, [C]URRENT=orders not yet expired."
+"RTN","ALPBPWRD",41,0)
+ .W ! D ^DIR K DIR
+"RTN","ALPBPWRD",42,0)
+ .I $D(DIRUT) K ALPBWARD,DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPWRD",43,0)
+ .S ALPBOTYP=Y
+"RTN","ALPBPWRD",44,0)
+ .;
+"RTN","ALPBPWRD",45,0)
+ .;added in PSB*3*59 to benefit users located at the long term care and domiciliary sites.
+"RTN","ALPBPWRD",46,0)
+ .;include patients without active medications?...
+"RTN","ALPBPWRD",47,0)
+ .S ALPBWOMD=""
+"RTN","ALPBPWRD",48,0)
+ .I ALPBOTYP="C" D Q:ALPBWOMD=""
+"RTN","ALPBPWRD",49,0)
+ ..S DIR(0)="SA^Y:YES;N:NO"
+"RTN","ALPBPWRD",50,0)
+ ..S DIR("A")="Include Patients Without Active Medications? "
+"RTN","ALPBPWRD",51,0)
+ ..S DIR("B")="YES"
+"RTN","ALPBPWRD",52,0)
+ ..S DIR("?",1)="[Y]es=include patients without active medication orders,"
+"RTN","ALPBPWRD",53,0)
+ ..S DIR("?")="[N]o=do not include patients without active medication orders."
+"RTN","ALPBPWRD",54,0)
+ ..W ! D ^DIR K DIR
+"RTN","ALPBPWRD",55,0)
+ ..I $D(DIRUT) K ALPBOTYP,DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPWRD",56,0)
+ ..S ALPBWOMD=Y
+"RTN","ALPBPWRD",57,0)
+ .;
+"RTN","ALPBPWRD",58,0)
+ .;SORT BY NAME OR ROOM/BED added 6/23/05
+"RTN","ALPBPWRD",59,0)
+ .S DIR(0)="SA^N:Name;R:Room/Bed"
+"RTN","ALPBPWRD",60,0)
+ .S DIR("A")="Sort Patients by [N]ame or [R]oom/Bed? "
+"RTN","ALPBPWRD",61,0)
+ .S DIR("B")="Room/bed"
+"RTN","ALPBPWRD",62,0)
+ .S DIR("?")="Sort by [N]ame or [R]oom Bed"
+"RTN","ALPBPWRD",63,0)
+ .W ! D ^DIR K DIR
+"RTN","ALPBPWRD",64,0)
+ .I $D(DIRUT) K ALPBWARD,ALPBWOMD,DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPWRD",65,0)
+ .S ALPBSORT=Y
+"RTN","ALPBPWRD",66,0)
+ .;
+"RTN","ALPBPWRD",67,0)
+ .; print how many days MAR?...
+"RTN","ALPBPWRD",68,0)
+ .S DIR(0)="NA^1:7"
+"RTN","ALPBPWRD",69,0)
+ .S DIR("A")="Print how many days MAR? "
+"RTN","ALPBPWRD",70,0)
+ .S DIR("B")=$$DEFDAYS^ALPBUTL()
+"RTN","ALPBPWRD",71,0)
+ .S DIR("?")="The default is shown; please select a number 1 to 7."
+"RTN","ALPBPWRD",72,0)
+ .W ! D ^DIR K DIR
+"RTN","ALPBPWRD",73,0)
+ .I $D(DIRUT) K ALPBOTYP,DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPWRD",74,0)
+ .S ALPBDAYS=+Y
+"RTN","ALPBPWRD",75,0)
+ .;
+"RTN","ALPBPWRD",76,0)
+ .; BCMA Med Log info for how many ?...
+"RTN","ALPBPWRD",77,0)
+ .S DIR(0)="NA^1:99"
+"RTN","ALPBPWRD",78,0)
+ .S DIR("B")=$$DEFML^ALPBUTL3()
+"RTN","ALPBPWRD",79,0)
+ .S DIR("A")="Select how many BCMA Medication Log history: "
+"RTN","ALPBPWRD",80,0)
+ .S DIR("A",1)=" "
+"RTN","ALPBPWRD",81,0)
+ .S DIR("?",1)="Select a number of BCMA Medication log entries"
+"RTN","ALPBPWRD",82,0)
+ .S DIR("?",2)="for each of the patient's orders"
+"RTN","ALPBPWRD",83,0)
+ .S DIR("?")="They are listed by the most current entry first"
+"RTN","ALPBPWRD",84,0)
+ .D ^DIR K DIR
+"RTN","ALPBPWRD",85,0)
+ .I $D(DIRUT) K ALPBOTYP,ALPBWARD,DIRUT,DTOUT,X,Y Q
+"RTN","ALPBPWRD",86,0)
+ .S ALPBMLOG=Y
+"RTN","ALPBPWRD",87,0)
+ .;
+"RTN","ALPBPWRD",88,0)
+ .S %ZIS="Q"
+"RTN","ALPBPWRD",89,0)
+ .S %ZIS("B")=$$DEFPRT^ALPBUTL()
+"RTN","ALPBPWRD",90,0)
+ .I %ZIS("B")="" K %ZIS("B")
+"RTN","ALPBPWRD",91,0)
+ .W ! D ^%ZIS K %ZIS
+"RTN","ALPBPWRD",92,0)
+ .I POP D Q
+"RTN","ALPBPWRD",93,0)
+ ..W $C(7)
+"RTN","ALPBPWRD",94,0)
+ ..K ALPBMLOG,ALPBOTYP,ALPBWARD,POP,ALPBWOMD
+"RTN","ALPBPWRD",95,0)
+ .;
+"RTN","ALPBPWRD",96,0)
+ .; output not queued...
+"RTN","ALPBPWRD",97,0)
+ .I '$D(IO("Q")) D
+"RTN","ALPBPWRD",98,0)
+ ..U IO
+"RTN","ALPBPWRD",99,0)
+ ..D DQ
+"RTN","ALPBPWRD",100,0)
+ ..I IO'=IO(0) D ^%ZISC
+"RTN","ALPBPWRD",101,0)
+ .;
+"RTN","ALPBPWRD",102,0)
+ .; set up the Task...
+"RTN","ALPBPWRD",103,0)
+ .I $D(IO("Q")) D
+"RTN","ALPBPWRD",104,0)
+ ..S ZTRTN="DQ^ALPBPWRD"
+"RTN","ALPBPWRD",105,0)
+ ..S ZTDESC="PSB INPT PHARM ORDERS FOR WARD "_ALPBWARD
+"RTN","ALPBPWRD",106,0)
+ ..S ZTSAVE("ALPBDAYS")=""
+"RTN","ALPBPWRD",107,0)
+ ..S ZTSAVE("ALPBWARD")=""
+"RTN","ALPBPWRD",108,0)
+ ..S ZTSAVE("ALPBMLOG")=""
+"RTN","ALPBPWRD",109,0)
+ ..S ZTSAVE("ALPBOTYP")=""
+"RTN","ALPBPWRD",110,0)
+ ..S ZTSAVE("ALPBSORT")=""
+"RTN","ALPBPWRD",111,0)
+ ..S ZTSAVE("ALPBWOMD")=""
+"RTN","ALPBPWRD",112,0)
+ ..S ZTIO=ION
+"RTN","ALPBPWRD",113,0)
+ ..D ^%ZTLOAD
+"RTN","ALPBPWRD",114,0)
+ ..D HOME^%ZIS
+"RTN","ALPBPWRD",115,0)
+ ..W !,$S($G(ZTSK):"Task number "_ZTSK_" queued.",1:"ERROR -- NOT QUEUED!")
+"RTN","ALPBPWRD",116,0)
+ ..K IO("Q"),ZTSK
+"RTN","ALPBPWRD",117,0)
+ .K ALPBDAYS,ALPBMLOG,ALPBOTYP,ALPBWARD,ALPBWOMD
+"RTN","ALPBPWRD",118,0)
+ K DIRUT,DTOUT,X,Y
+"RTN","ALPBPWRD",119,0)
+ Q
+"RTN","ALPBPWRD",120,0)
+ ;
+"RTN","ALPBPWRD",121,0)
+DQ ; output entry point...
+"RTN","ALPBPWRD",122,0)
+ K ^TMP($J)
+"RTN","ALPBPWRD",123,0)
+ ;
+"RTN","ALPBPWRD",124,0)
+ ; set report date... SED 11/4/03
+"RTN","ALPBPWRD",125,0)
+ S ALPBRDAT=$S(ALPBOTYP="C":$$NOW^XLFDT(),1:"")
+"RTN","ALPBPWRD",126,0)
+ ;
+"RTN","ALPBPWRD",127,0)
+ ; loop through ward cross reference in 53.7...
+"RTN","ALPBPWRD",128,0)
+ N ALPBDRGNAME
+"RTN","ALPBPWRD",129,0)
+ S ALPBPTN=""
+"RTN","ALPBPWRD",130,0)
+ F S ALPBPTN=$O(^ALPB(53.7,"AW",ALPBWARD,ALPBPTN)) Q:ALPBPTN="" D
+"RTN","ALPBPWRD",131,0)
+ .S ALPBIEN=0
+"RTN","ALPBPWRD",132,0)
+ .F S ALPBIEN=$O(^ALPB(53.7,"AW",ALPBWARD,ALPBPTN,ALPBIEN)) Q:'ALPBIEN D
+"RTN","ALPBPWRD",133,0)
+ ..D ORDS^ALPBUTL(ALPBIEN,ALPBRDAT,.ALPBORDS)
+"RTN","ALPBPWRD",134,0)
+ ..I $G(ALPBPDAT(0))="" S ALPBPDAT(0)=$G(^ALPB(53.7,ALPBIEN,0))
+"RTN","ALPBPWRD",135,0)
+ ..I +ALPBORDS(0)'>0&(ALPBWOMD="Y") D Q
+"RTN","ALPBPWRD",136,0)
+ ...S ^TMP($J,ALPBPTN)=ALPBIEN
+"RTN","ALPBPWRD",137,0)
+ ...K ALPBORDS
+"RTN","ALPBPWRD",138,0)
+ ..S ALPBOIEN=0
+"RTN","ALPBPWRD",139,0)
+ ..F S ALPBOIEN=$O(ALPBORDS(ALPBOIEN)) Q:'ALPBOIEN D
+"RTN","ALPBPWRD",140,0)
+ ...S ALPBDATA=$G(^ALPB(53.7,ALPBIEN,2,ALPBOIEN,1))
+"RTN","ALPBPWRD",141,0)
+ ...S ALPBOCT=$P($G(^ALPB(53.7,ALPBIEN,2,ALPBOIEN,3)),U,1)
+"RTN","ALPBPWRD",142,0)
+ ...S:$P($G(^ALPB(53.7,ALPBIEN,2,ALPBOIEN,4)),U,3)["PRN" ALPBOCT=ALPBOCT_"P"
+"RTN","ALPBPWRD",143,0)
+ ...;drug name being used for alpha-sorting medications within order types (unit dose, unit dose-PRN, intravenous, intravenous-PRN)
+"RTN","ALPBPWRD",144,0)
+ ...S ALPBDRGNAME=$P($G(^ALPB(53.7,ALPBIEN,2,ALPBOIEN,7,1,0)),U,2)
+"RTN","ALPBPWRD",145,0)
+ ...; if report is for "C"urrent, check stop date and quit if
+"RTN","ALPBPWRD",146,0)
+ ...; stop date is less than report date
+"RTN","ALPBPWRD",147,0)
+ ...I ALPBOTYP="C"&($P(ALPBDATA,U,2)<ALPBRDAT) K ALPBDATA Q
+"RTN","ALPBPWRD",148,0)
+ ...S ALPBORDN=ALPBORDS(ALPBOIEN)
+"RTN","ALPBPWRD",149,0)
+ ...S ALPBOST=$$STAT2^ALPBUTL1(ALPBORDS(ALPBOIEN,2))
+"RTN","ALPBPWRD",150,0)
+ ...I '$D(^TMP($J,ALPBPTN)) S ^TMP($J,ALPBPTN)=ALPBIEN
+"RTN","ALPBPWRD",151,0)
+ ...S ^TMP($J,ALPBPTN,ALPBOCT,ALPBDRGNAME,ALPBOST,ALPBORDN)=ALPBOIEN
+"RTN","ALPBPWRD",152,0)
+ ...K ALPBDATA,ALPBORDN,ALPBOST,ALPBDRGNAME
+"RTN","ALPBPWRD",153,0)
+ ..K ALPBOIEN,ALPBORDS,ALPBPDAT
+"RTN","ALPBPWRD",154,0)
+ .K ALPBIEN
+"RTN","ALPBPWRD",155,0)
+ K ALPBPTN
+"RTN","ALPBPWRD",156,0)
+ ;
+"RTN","ALPBPWRD",157,0)
+ ; Sort by Patient Name or room/bed capability added 6/23/05 KFOX
+"RTN","ALPBPWRD",158,0)
+ S ALPBPG=0
+"RTN","ALPBPWRD",159,0)
+ S ALPBPTN=""
+"RTN","ALPBPWRD",160,0)
+ I ALPBSORT="N" D
+"RTN","ALPBPWRD",161,0)
+ .F S ALPBPTN=$O(^TMP($J,ALPBPTN)) Q:ALPBPTN="" S ALPBIEN=^TMP($J,ALPBPTN) D PRT
+"RTN","ALPBPWRD",162,0)
+ ;SORT BY ROOM/BED
+"RTN","ALPBPWRD",163,0)
+ I ALPBSORT="R" D
+"RTN","ALPBPWRD",164,0)
+ .S ALPBD="",ALPRM=""
+"RTN","ALPBPWRD",165,0)
+ .F S ALPBPTN=$O(^TMP($J,ALPBPTN)) Q:ALPBPTN="" D Q:ALPBPTN=""
+"RTN","ALPBPWRD",166,0)
+ ..I ALPBPTN="BCBU" S ALPBPTN=$O(^TMP($J,ALPBPTN)) ;SKIP "BCBU" SUBSCRIBE
+"RTN","ALPBPWRD",167,0)
+ ..I ALPBPTN="" Q ;PSB*3*37 Stop null subscript when "BCBU" is the last entry in ^TMP
+"RTN","ALPBPWRD",168,0)
+ ..S ALPBIEN=^TMP($J,ALPBPTN) S ALPRM=$P($G(^ALPB(53.7,ALPBIEN,0)),"^",6),ALPBD=$P($G(^ALPB(53.7,ALPBIEN,0)),"^",7)
+"RTN","ALPBPWRD",169,0)
+ ..S:$TR(ALPBD,"""","")="" ALPBD="NONE" S:$TR(ALPRM,"""","")="" ALPRM="NONE" ;INCASE NO ROOM AND BED YET
+"RTN","ALPBPWRD",170,0)
+ ..S ^TMP($J,"BCBU",ALPRM,ALPRM,ALPBD,ALPBPTN)=ALPBIEN
+"RTN","ALPBPWRD",171,0)
+ .S ALPRM1="" F S ALPRM1=$O(^TMP($J,"BCBU",ALPRM1)) Q:ALPRM1="" D
+"RTN","ALPBPWRD",172,0)
+ ..S ALPRM="" F S ALPRM=$O(^TMP($J,"BCBU",ALPRM1,ALPRM)) Q:ALPRM="" D
+"RTN","ALPBPWRD",173,0)
+ ...S ALPBD="" F S ALPBD=$O(^TMP($J,"BCBU",ALPRM1,ALPRM,ALPBD)) Q:ALPBD="" D
+"RTN","ALPBPWRD",174,0)
+ ....S ALPBPTN="" F S ALPBPTN=$O(^TMP($J,"BCBU",ALPRM1,ALPRM,ALPBD,ALPBPTN)) Q:ALPBPTN="" D
+"RTN","ALPBPWRD",175,0)
+ .....S ALPBIEN=$G(^TMP($J,"BCBU",ALPRM1,ALPRM,ALPBD,ALPBPTN)) D PRT
+"RTN","ALPBPWRD",176,0)
+ D DONE
+"RTN","ALPBPWRD",177,0)
+ Q
+"RTN","ALPBPWRD",178,0)
+PRT S ALPBPDAT(0)=$G(^ALPB(53.7,ALPBIEN,0))
+"RTN","ALPBPWRD",179,0)
+ M ALPBPDAT(1)=^ALPB(53.7,ALPBIEN,1)
+"RTN","ALPBPWRD",180,0)
+ I ALPBPG=0 D PAGE
+"RTN","ALPBPWRD",181,0)
+ N ALPBNOMDS
+"RTN","ALPBPWRD",182,0)
+ S ALPBNOMDS=""
+"RTN","ALPBPWRD",183,0)
+ S:$D(^TMP($J,ALPBPTN))=1 ALPBNOMDS=1
+"RTN","ALPBPWRD",184,0)
+ S ALPBOCT=""
+"RTN","ALPBPWRD",185,0)
+ F S ALPBOCT=$O(^TMP($J,ALPBPTN,ALPBOCT)) Q:ALPBOCT="" D
+"RTN","ALPBPWRD",186,0)
+ .S ALPBDRGNAME=""
+"RTN","ALPBPWRD",187,0)
+ .F S ALPBDRGNAME=$O(^TMP($J,ALPBPTN,ALPBOCT,ALPBDRGNAME)) Q:ALPBDRGNAME="" D
+"RTN","ALPBPWRD",188,0)
+ ..S ALPBOST=""
+"RTN","ALPBPWRD",189,0)
+ ..F S ALPBOST=$O(^TMP($J,ALPBPTN,ALPBOCT,ALPBDRGNAME,ALPBOST)) Q:ALPBOST="" D
+"RTN","ALPBPWRD",190,0)
+ ...S ALPBORDN=""
+"RTN","ALPBPWRD",191,0)
+ ...F S ALPBORDN=$O(^TMP($J,ALPBPTN,ALPBOCT,ALPBDRGNAME,ALPBOST,ALPBORDN)) Q:ALPBORDN="" D
+"RTN","ALPBPWRD",192,0)
+ ....S ALPBOIEN=^TMP($J,ALPBPTN,ALPBOCT,ALPBDRGNAME,ALPBOST,ALPBORDN)
+"RTN","ALPBPWRD",193,0)
+ ....; get and print this order's data...
+"RTN","ALPBPWRD",194,0)
+ ....M ALPBDATA=^ALPB(53.7,ALPBIEN,2,ALPBOIEN)
+"RTN","ALPBPWRD",195,0)
+ ....D F132^ALPBFRM1(.ALPBDATA,ALPBDAYS,ALPBMLOG,.ALPBFORM,ALPBIEN)
+"RTN","ALPBPWRD",196,0)
+ ....;D F132^ALPBFRM1(.ALPBDATA,ALPBDAYS,.ALPBFORM)
+"RTN","ALPBPWRD",197,0)
+ ....I $Y+ALPBFORM(0)=IOSL!($Y+ALPBFORM(0)>IOSL) D PAGE
+"RTN","ALPBPWRD",198,0)
+ ....F ALPBX=1:1:ALPBFORM(0) W !,ALPBFORM(ALPBX)
+"RTN","ALPBPWRD",199,0)
+ ....K ALPBDATA,ALPBFORM,ALPBOIEN,ALPBX
+"RTN","ALPBPWRD",200,0)
+ ...K ALPBORDN
+"RTN","ALPBPWRD",201,0)
+ ..K ALPBOST
+"RTN","ALPBPWRD",202,0)
+ .K ALPBDRGNAME
+"RTN","ALPBPWRD",203,0)
+ K ALPBOCT
+"RTN","ALPBPWRD",204,0)
+ ; print footer at end of this patient's record...
+"RTN","ALPBPWRD",205,0)
+ I $Y+10>IOSL D PAGE
+"RTN","ALPBPWRD",206,0)
+ ;notification message displays one line below header info if patient has no med orders when the report is generated
+"RTN","ALPBPWRD",207,0)
+ I ALPBNOMDS D
+"RTN","ALPBPWRD",208,0)
+ .W !!,"No Active Medication Orders were reported to the Contingency at the time the MAR was printed ",!!!
+"RTN","ALPBPWRD",209,0)
+ .;additional blank lines added to separate footer from header and allow room for notes
+"RTN","ALPBPWRD",210,0)
+ .I $E(IOST)="P" F Q:$Y>=(IOSL-6) W !
+"RTN","ALPBPWRD",211,0)
+ ;
+"RTN","ALPBPWRD",212,0)
+ D FOOT^ALPBFRMU
+"RTN","ALPBPWRD",213,0)
+ ;Print a blank page between patient (this was removed by PSB*3*59 - the BCMA Workgroup agreed to condense the report)
+"RTN","ALPBPWRD",214,0)
+ ;W @IOF
+"RTN","ALPBPWRD",215,0)
+ S ALPBPG=0
+"RTN","ALPBPWRD",216,0)
+ K ALPBPDAT
+"RTN","ALPBPWRD",217,0)
+ Q
+"RTN","ALPBPWRD",218,0)
+ ;K ALPBIEN,ALPBPDAT KILLING ALPBIEN WILL BREAK SORT BY ROOM/BED
+"RTN","ALPBPWRD",219,0)
+ ;
+"RTN","ALPBPWRD",220,0)
+DONE ;
+"RTN","ALPBPWRD",221,0)
+ K ALPBDAYS,ALPBMLOG,ALPBOTYP,ALPBPG,ALPBPTN,ALPBRDAT,ALPBWARD,^TMP($J),ALPRM,ALPRM1,ALPBD,ALPBIEN,ALPBSORT,ALPBNOMDS
+"RTN","ALPBPWRD",222,0)
+ I $D(ZTQUEUED) S ZTREQ="@"
+"RTN","ALPBPWRD",223,0)
+ Q
+"RTN","ALPBPWRD",224,0)
+ ;
+"RTN","ALPBPWRD",225,0)
+PAGE ; print page header for patient...
+"RTN","ALPBPWRD",226,0)
+ W @IOF
+"RTN","ALPBPWRD",227,0)
+ S ALPBPG=ALPBPG+1
+"RTN","ALPBPWRD",228,0)
+ D HDR^ALPBFRMU(.ALPBPDAT,ALPBPG,.ALPBHDR)
+"RTN","ALPBPWRD",229,0)
+ F ALPBX=1:1:ALPBHDR(0) W !,ALPBHDR(ALPBX)
+"RTN","ALPBPWRD",230,0)
+ K ALPBHDR,ALPBX
+"RTN","ALPBPWRD",231,0)
+ Q
+"VER")
+8.0^22.0
+**END**
+**END**
diff --git a/Packages/CPT HCPCS Codes/Patches/ICPT_6.0_65/ICPT-6_SEQ-63_PAT-65.TXT b/Packages/CPT HCPCS Codes/Patches/ICPT_6.0_65/ICPT-6_SEQ-63_PAT-65.TXT
new file mode 100644
index 0000000..d533f11
--- /dev/null
+++ b/Packages/CPT HCPCS Codes/Patches/ICPT_6.0_65/ICPT-6_SEQ-63_PAT-65.TXT
@@ -0,0 +1,94 @@
+
+=============================================================================
+Run Date: OCT 21, 2013 Designation: ICPT*6*65
+Package : ICPT - CPT/HCPCS CODES Priority: Mandatory
+Version : 6 SEQ #63 Status: Released
+ Compliance Date: OCT 28, 2013
+=============================================================================
+
+Associated patches: (v)LEX*2*91 <<= must be installed BEFORE `ICPT*6*65'
+
+Subject: Code Set FY14 1st Qtr Update
+
+Category:
+ - Informational
+
+Description:
+============
+
+ This patch is an informational patch and contains no routines, data, or
+ data dictionaries. The data for this patch is exported with the Lexicon
+ data in patch LEX*2.0*93. Patch LEX*2.0*93 requires that patch
+ LEX*2.0*91 be previously installed.
+
+ LEX*2.0*93 writes to the following files:
+
+ CPT #81 ^ICPT( ICR 4489
+ CPT MODIFIER #81.3 ^DIC(81.3, ICR 4492
+
+ ENHANCEMENTS
+ ============
+
+ FY14 1st Quarter Update
+
+ CPT Procedure Additions
+ -----------------------
+
+ Effective Jan 01, 2013 (5 Codes)
+ 90673 90685 90686 90687 90688
+
+ HCPCS Procedure Additions
+ -------------------------
+
+ Effective Oct 01, 2013 (3 Codes)
+ C1204 C1841 C9132
+
+ HCPCS Procedure Inactivations
+ -----------------------------
+
+ Effective Jan 01, 2013 (1 Code)
+ C9366
+
+ CPT Modifier Additions
+ ----------------------
+
+ Effective Oct 01, 2013 (1 Code)
+ AO
+
+
+ REMEDY TICKETS:
+ ==============
+
+ 865226 - Reactivated HCPCS codes L3660 and L3675
+ 856797 - Inactivate HCPCS code C9366 on Jan 2013 (Replaced by Q4131)
+ 872782 - Inactivate HCPCS code C9366 on Jan 2013 (Duplicate)
+ 878128 - Inactivate HCPCS code C9366 on Jan 2013 (Duplicate)
+ 902111 - Inactivate HCPCS code C9366 on Jan 2013 (Duplicate)
+ 907141 - Inactivate HCPCS code C9366 on Jan 2013 (Duplicate)
+ 878732 - Modifier 50 for CPT range 36222-36228
+ 900599 - Modifiers CH, CI, CJ, CK, CL, CM, and CN for HCPCS code G9186
+
+
+ INSTALLATION INSTRUCTIONS
+ =========================
+
+ Please refer to the patch description for LEX*2.0*93 for instructions
+ for retrieving the data global host file and installing this patch.
+
+
+Routine Information:
+====================
+No routines included.
+
+=============================================================================
+User Information:
+Entered By : ROWE,KIMBALL Date Entered : AUG 29, 2013
+Completed By: CARTER,BRUCE C Date Completed: OCT 17, 2013
+Released By : BARFIELD,RICHARD Date Released : OCT 21, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/Clinical Procedures/Patches/MD_1.0_23/.gitignore b/Packages/Clinical Procedures/Patches/MD_1.0_23/.gitignore
new file mode 100644
index 0000000..8ad5587
--- /dev/null
+++ b/Packages/Clinical Procedures/Patches/MD_1.0_23/.gitignore
@@ -0,0 +1 @@
+MD1_0P23.KID
diff --git a/Packages/Clinical Procedures/Patches/MD_1.0_31/.gitignore b/Packages/Clinical Procedures/Patches/MD_1.0_31/.gitignore
new file mode 100644
index 0000000..0184e56
--- /dev/null
+++ b/Packages/Clinical Procedures/Patches/MD_1.0_31/.gitignore
@@ -0,0 +1 @@
+MD-1_SEQ-21_PAT-31.KID
diff --git a/Packages/Clinical Procedures/Patches/MD_1.0_33/.gitignore b/Packages/Clinical Procedures/Patches/MD_1.0_33/.gitignore
new file mode 100644
index 0000000..dbc81f5
--- /dev/null
+++ b/Packages/Clinical Procedures/Patches/MD_1.0_33/.gitignore
@@ -0,0 +1 @@
+MD-1_SEQ-22_PAT-33.KID
diff --git a/Packages/Clinical Reminders/Patches/PXRM_2.0_28/.gitignore b/Packages/Clinical Reminders/Patches/PXRM_2.0_28/.gitignore
new file mode 100644
index 0000000..7551bf9
--- /dev/null
+++ b/Packages/Clinical Reminders/Patches/PXRM_2.0_28/.gitignore
@@ -0,0 +1 @@
+PXRM_2_0_28.KIDs
diff --git a/Packages/Clinical Reminders/Patches/PXRM_2.0_30/.gitignore b/Packages/Clinical Reminders/Patches/PXRM_2.0_30/.gitignore
new file mode 100644
index 0000000..e824163
--- /dev/null
+++ b/Packages/Clinical Reminders/Patches/PXRM_2.0_30/.gitignore
@@ -0,0 +1 @@
+PXRM_2_0_30.KIDs
diff --git a/Packages/DRG Grouper/Patches/ICD_18.0_70/ICD-18_SEQ-63_PAT-70.KIDS b/Packages/DRG Grouper/Patches/ICD_18.0_70/ICD-18_SEQ-63_PAT-70.KIDS
new file mode 100644
index 0000000..8a372bc
--- /dev/null
+++ b/Packages/DRG Grouper/Patches/ICD_18.0_70/ICD-18_SEQ-63_PAT-70.KIDS
@@ -0,0 +1,1500 @@
+Released ICD*18*70 SEQ #63
+Extracted from mail message
+**KIDS**:ICD*18.0*70^
+
+**INSTALL NAME**
+ICD*18.0*70
+"BLD",9435,0)
+ICD*18.0*70^DRG GROUPER^0^3130619^y
+"BLD",9435,1,0)
+^^4^4^3130614^^^
+"BLD",9435,1,1,0)
+ This patch corrects various DRG calculations.
+"BLD",9435,1,2,0)
+
+"BLD",9435,1,3,0)
+ Details of the corrections for the DRG Grouper are located in
+"BLD",9435,1,4,0)
+ ICD*18.0*70.
+"BLD",9435,4,0)
+^9.64PA^^
+"BLD",9435,6.3)
+6
+"BLD",9435,"ABPKG")
+n
+"BLD",9435,"KRN",0)
+^9.67PA^779.2^20
+"BLD",9435,"KRN",.4,0)
+.4
+"BLD",9435,"KRN",.401,0)
+.401
+"BLD",9435,"KRN",.402,0)
+.402
+"BLD",9435,"KRN",.403,0)
+.403
+"BLD",9435,"KRN",.5,0)
+.5
+"BLD",9435,"KRN",.84,0)
+.84
+"BLD",9435,"KRN",3.6,0)
+3.6
+"BLD",9435,"KRN",3.8,0)
+3.8
+"BLD",9435,"KRN",9.2,0)
+9.2
+"BLD",9435,"KRN",9.8,0)
+9.8
+"BLD",9435,"KRN",9.8,"NM",0)
+^9.68A^5^5
+"BLD",9435,"KRN",9.8,"NM",1,0)
+ICDDRG10^^0^B1926153
+"BLD",9435,"KRN",9.8,"NM",2,0)
+ICDTBL4D^^0^B43610232
+"BLD",9435,"KRN",9.8,"NM",3,0)
+ICDTBL4E^^0^B43610455
+"BLD",9435,"KRN",9.8,"NM",4,0)
+ICDTBL6D^^0^B11043717
+"BLD",9435,"KRN",9.8,"NM",5,0)
+ICDTBL6E^^0^B13576530
+"BLD",9435,"KRN",9.8,"NM","B","ICDDRG10",1)
+
+"BLD",9435,"KRN",9.8,"NM","B","ICDTBL4D",2)
+
+"BLD",9435,"KRN",9.8,"NM","B","ICDTBL4E",3)
+
+"BLD",9435,"KRN",9.8,"NM","B","ICDTBL6D",4)
+
+"BLD",9435,"KRN",9.8,"NM","B","ICDTBL6E",5)
+
+"BLD",9435,"KRN",19,0)
+19
+"BLD",9435,"KRN",19.1,0)
+19.1
+"BLD",9435,"KRN",101,0)
+101
+"BLD",9435,"KRN",409.61,0)
+409.61
+"BLD",9435,"KRN",771,0)
+771
+"BLD",9435,"KRN",779.2,0)
+779.2
+"BLD",9435,"KRN",870,0)
+870
+"BLD",9435,"KRN",8989.51,0)
+8989.51
+"BLD",9435,"KRN",8989.52,0)
+8989.52
+"BLD",9435,"KRN",8994,0)
+8994
+"BLD",9435,"KRN","B",.4,.4)
+
+"BLD",9435,"KRN","B",.401,.401)
+
+"BLD",9435,"KRN","B",.402,.402)
+
+"BLD",9435,"KRN","B",.403,.403)
+
+"BLD",9435,"KRN","B",.5,.5)
+
+"BLD",9435,"KRN","B",.84,.84)
+
+"BLD",9435,"KRN","B",3.6,3.6)
+
+"BLD",9435,"KRN","B",3.8,3.8)
+
+"BLD",9435,"KRN","B",9.2,9.2)
+
+"BLD",9435,"KRN","B",9.8,9.8)
+
+"BLD",9435,"KRN","B",19,19)
+
+"BLD",9435,"KRN","B",19.1,19.1)
+
+"BLD",9435,"KRN","B",101,101)
+
+"BLD",9435,"KRN","B",409.61,409.61)
+
+"BLD",9435,"KRN","B",771,771)
+
+"BLD",9435,"KRN","B",779.2,779.2)
+
+"BLD",9435,"KRN","B",870,870)
+
+"BLD",9435,"KRN","B",8989.51,8989.51)
+
+"BLD",9435,"KRN","B",8989.52,8989.52)
+
+"BLD",9435,"KRN","B",8994,8994)
+
+"BLD",9435,"QDEF")
+^^^^NO^^^^^^YES
+"BLD",9435,"QUES",0)
+^9.62^^
+"BLD",9435,"REQB",0)
+^9.611^3^3
+"BLD",9435,"REQB",1,0)
+ICD*18.0*62^1
+"BLD",9435,"REQB",2,0)
+ICD*18.0*69^1
+"BLD",9435,"REQB",3,0)
+ICD*18.0*50^1
+"BLD",9435,"REQB","B","ICD*18.0*50",3)
+
+"BLD",9435,"REQB","B","ICD*18.0*62",1)
+
+"BLD",9435,"REQB","B","ICD*18.0*69",2)
+
+"MBREQ")
+0
+"PKG",151,-1)
+1^1
+"PKG",151,0)
+DRG GROUPER^ICD^DRG GROUPER
+"PKG",151,20,0)
+^9.402P^^
+"PKG",151,22,0)
+^9.49I^1^1
+"PKG",151,22,1,0)
+18.0^3001024^3010118^66481
+"PKG",151,22,1,"PAH",1,0)
+70^3130619
+"PKG",151,22,1,"PAH",1,1,0)
+^^4^4^3130619
+"PKG",151,22,1,"PAH",1,1,1,0)
+ This patch corrects various DRG calculations.
+"PKG",151,22,1,"PAH",1,1,2,0)
+
+"PKG",151,22,1,"PAH",1,1,3,0)
+ Details of the corrections for the DRG Grouper are located in
+"PKG",151,22,1,"PAH",1,1,4,0)
+ ICD*18.0*70.
+"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")
+YES
+"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")
+5
+"RTN","ICDDRG10")
+0^1^B1926153^B1924617
+"RTN","ICDDRG10",1,0)
+ICDDRG10 ;ALB/GRR - FIX SURGERY HIERARCHY ; 11/6/00 2:03pm
+"RTN","ICDDRG10",2,0)
+ ;;18.0;DRG Grouper;**24,31,50,70**;Oct 20, 2000;Build 6
+"RTN","ICDDRG10",3,0)
+ Q:$O(ICDODRG(0))'>0 K ICDJ,ICDJJ F ICDJ=0:0 S ICDJ=$O(ICDODRG(ICDJ)) Q:ICDJ'>0 S ICDJJ(ICDJ)="" D
+"RTN","ICDDRG10",4,0)
+ . I ICDDATE<3061001 D F Q
+"RTN","ICDDRG10",5,0)
+ . E I ICDDATE<3071001 D FY2007 Q
+"RTN","ICDDRG10",6,0)
+ . E I ICDDATE<3101001 D FY2008
+"RTN","ICDDRG10",7,0)
+ . E D FY2011
+"RTN","ICDDRG10",8,0)
+END S ICDJ=$O(ICDJ(0)) Q:ICDJ'>0 S ICDJ=ICDJ(ICDJ) K ICDODRG S ICDODRG(ICDJ)="" Q
+"RTN","ICDDRG10",9,0)
+F I ICDJ=286 S ICDJ(1)=ICDJ Q
+"RTN","ICDDRG10",10,0)
+ I ICDJ=288 S ICDJ(2)=ICDJ Q
+"RTN","ICDDRG10",11,0)
+ I ICDJ=285 S ICDJ(3)=ICDJ
+"RTN","ICDDRG10",12,0)
+ Q
+"RTN","ICDDRG10",13,0)
+FY2007 ;
+"RTN","ICDDRG10",14,0)
+ I ICDJ=286 S ICDJ(1)=ICDJ Q
+"RTN","ICDDRG10",15,0)
+ I ICDJ=285 S ICDJ(2)=ICDJ Q
+"RTN","ICDDRG10",16,0)
+ I ICDJ=288 S ICDJ(3)=ICDJ
+"RTN","ICDDRG10",17,0)
+ Q
+"RTN","ICDDRG10",18,0)
+FY2008 ;MS-DRG
+"RTN","ICDDRG10",19,0)
+ I ICDJ=615 S ICDJ(1)=ICDJ Q
+"RTN","ICDDRG10",20,0)
+ I ICDJ=618 S ICDJ(2)=ICDJ Q
+"RTN","ICDDRG10",21,0)
+ I ICDJ=621 S ICDJ(3)=ICDJ Q
+"RTN","ICDDRG10",22,0)
+ I ICDJ=624 S ICDJ(4)=ICDJ Q
+"RTN","ICDDRG10",23,0)
+ I ICDJ=627 S ICDJ(5)=ICDJ Q
+"RTN","ICDDRG10",24,0)
+ I ICDJ=630 S ICDJ(6)=ICDJ Q
+"RTN","ICDDRG10",25,0)
+FY2011 ;MS-DRG
+"RTN","ICDDRG10",26,0)
+ I ICDJ=614 S ICDJ(1)=ICDJ Q
+"RTN","ICDDRG10",27,0)
+ I ICDJ=615 S ICDJ(2)=ICDJ Q
+"RTN","ICDDRG10",28,0)
+ I ICDJ=618 S ICDJ(3)=ICDJ Q
+"RTN","ICDDRG10",29,0)
+ I ICDJ=621 S ICDJ(4)=ICDJ Q
+"RTN","ICDDRG10",30,0)
+ I ICDJ=624 S ICDJ(5)=ICDJ Q
+"RTN","ICDDRG10",31,0)
+ I ICDJ=625 S ICDJ(6)=ICDJ Q
+"RTN","ICDDRG10",32,0)
+ I ICDJ=627 S ICDJ(7)=ICDJ Q
+"RTN","ICDDRG10",33,0)
+ I ICDJ=630 S ICDJ(8)=ICDJ Q
+"RTN","ICDDRG10",34,0)
+ Q
+"RTN","ICDTBL4D")
+0^2^B43610232^B25052268
+"RTN","ICDTBL4D",1,0)
+ICDTBL4D ;ALB/MJB - GROUPER UTILITY FUNCTIONS;08/09/2010
+"RTN","ICDTBL4D",2,0)
+ ;;18.0;DRG Grouper;**56,55,62,70**;Oct 20, 2000;Build 6
+"RTN","ICDTBL4D",3,0)
+DRG405 ;
+"RTN","ICDTBL4D",4,0)
+DRG406 ;
+"RTN","ICDTBL4D",5,0)
+DRG407 S ICDRG=$S(ICDMCC=2:405,ICDMCC=1:406,1:407) Q
+"RTN","ICDTBL4D",6,0)
+DRG408 ;
+"RTN","ICDTBL4D",7,0)
+ ;I ICDOR["E"!(ICDOR["T") I $D(ICDOP(" 51.21"))!$D(ICDOP(" 51.22"))!$D(ICDOP(" 51.23"))!$D(ICDOP(" 51.24")) S ICDRG=$S(ICDMCC=2:411,ICDMCC=1:412,1:413) Q
+"RTN","ICDTBL4D",8,0)
+ I $D(ICDOP(" 51.41")) I $D(ICDOP(" 51.21"))!$D(ICDOP(" 51.22"))!$D(ICDOP(" 51.23"))!$D(ICDOP(" 51.24")) S ICDRG=$S(ICDMCC=2:411,ICDMCC=1:412,1:413) Q
+"RTN","ICDTBL4D",9,0)
+ I $D(ICDOP(" 51.42")) I $D(ICDOP(" 51.21"))!$D(ICDOP(" 51.22"))!$D(ICDOP(" 51.23"))!$D(ICDOP(" 51.24")) S ICDRG=$S(ICDMCC=2:411,ICDMCC=1:412,1:413) Q
+"RTN","ICDTBL4D",10,0)
+ I $D(ICDOP(" 51.51")) I $D(ICDOP(" 51.21"))!$D(ICDOP(" 51.22"))!$D(ICDOP(" 51.23"))!$D(ICDOP(" 51.24")) S ICDRG=$S(ICDMCC=2:411,ICDMCC=1:412,1:413) Q
+"RTN","ICDTBL4D",11,0)
+ I ICDOR["3" S ICDRG=$S(ICDMCC=2:408,ICDMCC=1:409,1:410) Q
+"RTN","ICDTBL4D",12,0)
+ I $D(ICDOP(" 51.21"))!$D(ICDOP(" 51.22")) S ICDRG=$S(ICDMCC=2:414,ICDMCC=1:415,1:416) Q
+"RTN","ICDTBL4D",13,0)
+ I $D(ICDOP(" 51.23"))!$D(ICDOP(" 51.24")) S ICDRG=$S(ICDMCC=2:417,ICDMCC=1:418,1:419) Q
+"RTN","ICDTBL4D",14,0)
+ I ICDOR["h" S ICDRG=$S(ICDMCC=2:420,ICDMCC=1:421,1:422) Q
+"RTN","ICDTBL4D",15,0)
+ I ICDPD["M"&(ICDOR'["h") S ICDRG=$S(ICDMCC=2:435,ICDMCC=1:436,1:437) Q
+"RTN","ICDTBL4D",16,0)
+ I ICDSD'="" S ICDRG=$S(ICDMCC=2:438,ICDMCC=1:439,1:440) Q
+"RTN","ICDTBL4D",17,0)
+ I ICDOR["O" S ICDRG=$S(ICDMCC=2:438,ICDMCC=1:439,1:440) Q
+"RTN","ICDTBL4D",18,0)
+ S ICDRG=$S(ICDMCC=2:438,ICDMCC=1:439,1:440) Q
+"RTN","ICDTBL4D",19,0)
+ ;S ICDRG=$S(ICDMCC=2&(ICDOR["O"):438,ICDMCC=1&(ICDOR["O"):439,1:440) Q
+"RTN","ICDTBL4D",20,0)
+ Q
+"RTN","ICDTBL4D",21,0)
+DRG409 ;
+"RTN","ICDTBL4D",22,0)
+DRG410 D DRG408 Q
+"RTN","ICDTBL4D",23,0)
+DRG411 ;
+"RTN","ICDTBL4D",24,0)
+DRG412 ;
+"RTN","ICDTBL4D",25,0)
+DRG413 D DRG408 Q
+"RTN","ICDTBL4D",26,0)
+DRG414 ;
+"RTN","ICDTBL4D",27,0)
+DRG415 ;
+"RTN","ICDTBL4D",28,0)
+DRG416 D DRG408 Q
+"RTN","ICDTBL4D",29,0)
+DRG417 ;
+"RTN","ICDTBL4D",30,0)
+DRG418 ;
+"RTN","ICDTBL4D",31,0)
+DRG419 D DRG408 Q
+"RTN","ICDTBL4D",32,0)
+DRG420 ;
+"RTN","ICDTBL4D",33,0)
+DRG421 ;
+"RTN","ICDTBL4D",34,0)
+DRG422 D DRG408 Q
+"RTN","ICDTBL4D",35,0)
+DRG423 ;
+"RTN","ICDTBL4D",36,0)
+DRG424 ;
+"RTN","ICDTBL4D",37,0)
+DRG425 S ICDRG=$S(ICDMCC=2:423,ICDMCC=1:424,1:425) Q
+"RTN","ICDTBL4D",38,0)
+DRG432 ;
+"RTN","ICDTBL4D",39,0)
+DRG433 ;
+"RTN","ICDTBL4D",40,0)
+DRG434 S ICDRG=$S(ICDMCC=2:432,ICDMCC=1:433,1:434) Q
+"RTN","ICDTBL4D",41,0)
+DRG435 ;
+"RTN","ICDTBL4D",42,0)
+DRG436 ;
+"RTN","ICDTBL4D",43,0)
+DRG437 D DRG408 Q
+"RTN","ICDTBL4D",44,0)
+DRG438 ;
+"RTN","ICDTBL4D",45,0)
+DRG439 ;
+"RTN","ICDTBL4D",46,0)
+DRG440 D DRG408 Q
+"RTN","ICDTBL4D",47,0)
+DRG441 ;
+"RTN","ICDTBL4D",48,0)
+DRG442 ;
+"RTN","ICDTBL4D",49,0)
+DRG443 S ICDRG=$S(ICDMCC=2:441,ICDMCC=1:442,1:443) Q
+"RTN","ICDTBL4D",50,0)
+DRG444 ;
+"RTN","ICDTBL4D",51,0)
+DRG445 ;
+"RTN","ICDTBL4D",52,0)
+DRG446 S ICDRG=$S(ICDMCC=2:444,ICDMCC=1:445,1:446) Q
+"RTN","ICDTBL4D",53,0)
+DRG453 ;
+"RTN","ICDTBL4D",54,0)
+DRG454 ;
+"RTN","ICDTBL4D",55,0)
+DRG455 ;
+"RTN","ICDTBL4D",56,0)
+ N CNTA,CNTP S CNTA=0,CNTP=0
+"RTN","ICDTBL4D",57,0)
+ I $D(ICDOP(" 81.02")) S CNTA=1
+"RTN","ICDTBL4D",58,0)
+ I $D(ICDOP(" 81.04")) S CNTA=1
+"RTN","ICDTBL4D",59,0)
+ I $D(ICDOP(" 81.06")) S CNTA=1
+"RTN","ICDTBL4D",60,0)
+ I $D(ICDOP(" 81.32")) S CNTA=1
+"RTN","ICDTBL4D",61,0)
+ I $D(ICDOP(" 81.36")) S CNTA=1
+"RTN","ICDTBL4D",62,0)
+ I $D(ICDOP(" 81.03")) S CNTP=1
+"RTN","ICDTBL4D",63,0)
+ I $D(ICDOP(" 81.05")) S CNTP=1
+"RTN","ICDTBL4D",64,0)
+ I $D(ICDOP(" 81.07")) S CNTP=1
+"RTN","ICDTBL4D",65,0)
+ I $D(ICDOP(" 81.08")) S CNTP=1
+"RTN","ICDTBL4D",66,0)
+ I $D(ICDOP(" 81.33")) S CNTP=1
+"RTN","ICDTBL4D",67,0)
+ I $D(ICDOP(" 81.35")) S CNTP=1
+"RTN","ICDTBL4D",68,0)
+ I $D(ICDOP(" 81.37")) S CNTP=1
+"RTN","ICDTBL4D",69,0)
+ I $D(ICDOP(" 81.38")) S CNTP=1
+"RTN","ICDTBL4D",70,0)
+ I CNTA=1,CNTP=1 D
+"RTN","ICDTBL4D",71,0)
+ . S ICDRG=$S(ICDMCC=2:453,ICDMCC=1:454,1:455) Q
+"RTN","ICDTBL4D",72,0)
+ E S ICDRG=""
+"RTN","ICDTBL4D",73,0)
+ Q
+"RTN","ICDTBL4D",74,0)
+DRG456 ;
+"RTN","ICDTBL4D",75,0)
+DRG457 ;
+"RTN","ICDTBL4D",76,0)
+DRG458 ;
+"RTN","ICDTBL4D",77,0)
+ I ICDOR="" D DRG541^ICDTBL5D Q
+"RTN","ICDTBL4D",78,0)
+ I ICDPD["k" D DRG541^ICDTBL5D Q
+"RTN","ICDTBL4D",79,0)
+ I ICDPD["6",$D(ICDOP(" 81.64")) S ICDRG=$S(ICDMCC=2:456,ICDMCC=1:457,1:458) Q
+"RTN","ICDTBL4D",80,0)
+ I ICDSD["6",$D(ICDOP(" 81.64")) S ICDRG=$S(ICDMCC=2:456,ICDMCC=1:457,1:458) Q
+"RTN","ICDTBL4D",81,0)
+ I ICDPD["6" S ICDRG=$S(ICDMCC=2:456,ICDMCC=1:457,1:458) Q
+"RTN","ICDTBL4D",82,0)
+DRG459 ;
+"RTN","ICDTBL4D",83,0)
+DRG460 S ICDRG=$S(ICDMCC=2:459,1:460) Q
+"RTN","ICDTBL4D",84,0)
+DRG461 ;
+"RTN","ICDTBL4D",85,0)
+DRG462 ;
+"RTN","ICDTBL4D",86,0)
+ N ICDCT S ICDCT=""
+"RTN","ICDTBL4D",87,0)
+ N CNT S CNT=0
+"RTN","ICDTBL4D",88,0)
+ F S ICDCT=$O(ICDSURG(ICDCT)) Q:ICDCT="" D
+"RTN","ICDTBL4D",89,0)
+ .I $P(ICDSURG(ICDCT),"^")="00.70"!($P(ICDSURG(ICDCT),"^")["00.70") S CNT=CNT+1 Q
+"RTN","ICDTBL4D",90,0)
+ .I $P(ICDSURG(ICDCT),"^")="00.80"!($P(ICDSURG(ICDCT),"^")["00.80") S CNT=CNT+1 Q
+"RTN","ICDTBL4D",91,0)
+ .I $P(ICDSURG(ICDCT),"^")="00.85"!($P(ICDSURG(ICDCT),"^")["00.85") S CNT=CNT+1 Q
+"RTN","ICDTBL4D",92,0)
+ .I $P(ICDSURG(ICDCT),"^")="00.86"!($P(ICDSURG(ICDCT),"^")["00.86") S CNT=CNT+1 Q
+"RTN","ICDTBL4D",93,0)
+ .I $P(ICDSURG(ICDCT),"^")="00.87"!($P(ICDSURG(ICDCT),"^")["00.87") S CNT=CNT+1 Q
+"RTN","ICDTBL4D",94,0)
+ .I $P(ICDSURG(ICDCT),"^")="81.51" S CNT=CNT+1 Q
+"RTN","ICDTBL4D",95,0)
+ .I $P(ICDSURG(ICDCT),"^")="81.52" S CNT=CNT+1 Q
+"RTN","ICDTBL4D",96,0)
+ .I $P(ICDSURG(ICDCT),"^")="81.54" S CNT=CNT+1 Q
+"RTN","ICDTBL4D",97,0)
+ .I $P(ICDSURG(ICDCT),"^")="81.56" S CNT=CNT+1 Q
+"RTN","ICDTBL4D",98,0)
+ I CNT>1 S ICDRG=$S(ICDMCC=2:461,1:462) Q
+"RTN","ICDTBL4D",99,0)
+ I $D(ICDOP(" 00.70"))!$D(ICDOP(" 00.80")) D DRG466 Q
+"RTN","ICDTBL4D",100,0)
+ E D DRG469 Q
+"RTN","ICDTBL4D",101,0)
+DRG463 ;
+"RTN","ICDTBL4D",102,0)
+DRG464 ;
+"RTN","ICDTBL4D",103,0)
+DRG465 S ICDRG=$S(ICDMCC=2:463,ICDMCC=1:464,1:465) Q
+"RTN","ICDTBL4D",104,0)
+DRG466 ;
+"RTN","ICDTBL4D",105,0)
+DRG467 ;
+"RTN","ICDTBL4D",106,0)
+DRG468 S ICDRG=$S(ICDMCC=2:466,ICDMCC=1:467,1:468) Q
+"RTN","ICDTBL4D",107,0)
+DRG469 ;
+"RTN","ICDTBL4D",108,0)
+DRG470 I ICDEXP=1 S ICDMCC=1
+"RTN","ICDTBL4D",109,0)
+ S ICDRG=$S(ICDMCC=2:469,1:470) Q
+"RTN","ICDTBL4D",110,0)
+DRG471 ;
+"RTN","ICDTBL4D",111,0)
+DRG472 ;
+"RTN","ICDTBL4D",112,0)
+DRG473 S ICDRG=$S(ICDMCC=2:471,ICDMCC=1:472,1:473) Q
+"RTN","ICDTBL4D",113,0)
+DRG474 ;
+"RTN","ICDTBL4D",114,0)
+DRG475 ;
+"RTN","ICDTBL4D",115,0)
+DRG476 S ICDRG=$S(ICDMCC=2:474,ICDMCC=1:475,1:476) Q
+"RTN","ICDTBL4D",116,0)
+DRG477 ;
+"RTN","ICDTBL4D",117,0)
+DRG478 ;
+"RTN","ICDTBL4D",118,0)
+DRG479 S ICDRG=$S(ICDMCC=2:477,ICDMCC=1:478,1:479) Q
+"RTN","ICDTBL4D",119,0)
+DRG480 ;
+"RTN","ICDTBL4D",120,0)
+DRG481 ;
+"RTN","ICDTBL4D",121,0)
+DRG482 S ICDRG=$S(ICDMCC=2:480,ICDMCC=1:481,1:482) Q
+"RTN","ICDTBL4D",122,0)
+DRG483 ;
+"RTN","ICDTBL4D",123,0)
+DRG484 S ICDRG=$S(ICDMCC>0:483,1:484) Q
+"RTN","ICDTBL4D",124,0)
+DRG485 ;
+"RTN","ICDTBL4D",125,0)
+DRG486 ;
+"RTN","ICDTBL4D",126,0)
+DRG487 I ICDPD["k" S ICDRG=$S(ICDMCC=2:485,ICDMCC=1:486,1:487) Q
+"RTN","ICDTBL4D",127,0)
+ E S ICDRG=""
+"RTN","ICDTBL4D",128,0)
+DRG488 ;
+"RTN","ICDTBL4D",129,0)
+DRG489 S ICDRG=$S(ICDMCC>0:488,1:489) Q
+"RTN","ICDTBL4D",130,0)
+DRG490 ;
+"RTN","ICDTBL4D",131,0)
+DRG491 ;
+"RTN","ICDTBL4D",132,0)
+ I ICDPD["6" D
+"RTN","ICDTBL4D",133,0)
+ .N ICDXFLG
+"RTN","ICDTBL4D",134,0)
+ .S ICDXFLG=0
+"RTN","ICDTBL4D",135,0)
+ .I '$D(ICDOP(" 03.02"))!('$D(ICDOP(" 03.09"))) S ICDXFLG=1
+"RTN","ICDTBL4D",136,0)
+ .I '$D(ICDOP(" 03.1")) S ICDXFLG=1
+"RTN","ICDTBL4D",137,0)
+ .I '$D(ICDOP(" 03.32"))!('$D(ICDOP(" 03.39"))) S ICDXFLG=1
+"RTN","ICDTBL4D",138,0)
+ .I '$D(ICDOP(" 03.4")) S ICDXFLG=1
+"RTN","ICDTBL4D",139,0)
+ .I '$D(ICDOP(" 03.53"))!('$D(ICDOP(" 03.59"))) S ICDXFLG=1
+"RTN","ICDTBL4D",140,0)
+ .I '$D(ICDOP(" 03.6")) S ICDXFLG=1
+"RTN","ICDTBL4D",141,0)
+ .I '$D(ICDOP(" 03.93"))!('$D(ICDOP(" 03.94"))) S ICDXFLG=1
+"RTN","ICDTBL4D",142,0)
+ .I '$D(ICDOP(" 03.97"))!('$D(ICDOP(" 03.98")))!('$D(ICDOP(" 03.99"))) S ICDXFLG=1
+"RTN","ICDTBL4D",143,0)
+ .I '$D(ICDOP(" 80.50"))!('$D(ICDOP(" 80.53")))!('$D(ICDOP(" 80.54")))!('$D(ICDOP(" 80.59"))) S ICDXFLG=1
+"RTN","ICDTBL4D",144,0)
+ .I '$D(ICDOP(" 84.59")) S ICDXFLG=1
+"RTN","ICDTBL4D",145,0)
+ .I '$D(ICDOP(" 84.60"))!('$D(ICDOP(" 84.61")))!('$D(ICDOP(" 84.62")))!('$D(ICDOP(" 84.63")))!('$D(ICDOP(" 84.64"))) S ICDXFLG=1
+"RTN","ICDTBL4D",146,0)
+ .I '$D(ICDOP(" 84.65"))!('$D(ICDOP(" 84.66")))!('$D(ICDOP(" 84.67")))!('$D(ICDOP(" 84.68")))!('$D(ICDOP(" 84.69"))) S ICDXFLG=1
+"RTN","ICDTBL4D",147,0)
+ .I '$D(ICDOP(" 84.80"))!('$D(ICDOP(" 84.82")))!('$D(ICDOP(" 84.84"))) S ICDXFLG=1
+"RTN","ICDTBL4D",148,0)
+ I $G(ICDXFLG)=0 D DRG456 Q
+"RTN","ICDTBL4D",149,0)
+ I ICDOR["F" D DRG456 Q
+"RTN","ICDTBL4D",150,0)
+ S ICDRG=$S(ICDMCC>0:490,1:491) D Q
+"RTN","ICDTBL4D",151,0)
+ . I $D(ICDOP(" 84.59")) S ICDRG=490
+"RTN","ICDTBL4D",152,0)
+ . I $D(ICDOP(" 84.62")) S ICDRG=490
+"RTN","ICDTBL4D",153,0)
+ . I $D(ICDOP(" 84.65")) S ICDRG=490
+"RTN","ICDTBL4D",154,0)
+ . I $D(ICDOP(" 84.80")) S ICDRG=490
+"RTN","ICDTBL4D",155,0)
+ . I $D(ICDOP(" 84.82")) S ICDRG=490
+"RTN","ICDTBL4D",156,0)
+ . I $D(ICDOP(" 84.84")) S ICDRG=490
+"RTN","ICDTBL4D",157,0)
+ . I $D(ICDOP(" 03.93")),$D(ICDOP(" 86.94")) S ICDRG=490
+"RTN","ICDTBL4D",158,0)
+ . I $D(ICDOP(" 03.93")),$D(ICDOP(" 86.95")) S ICDRG=490
+"RTN","ICDTBL4D",159,0)
+ . I $D(ICDOP(" 03.93")),$D(ICDOP(" 86.97")) S ICDRG=490
+"RTN","ICDTBL4D",160,0)
+ . I $D(ICDOP(" 03.93")),$D(ICDOP(" 86.98")) S ICDRG=490
+"RTN","ICDTBL4D",161,0)
+DRG492 ;
+"RTN","ICDTBL4D",162,0)
+DRG493 ;
+"RTN","ICDTBL4D",163,0)
+DRG494 S ICDRG=$S(ICDMCC=2:492,ICDMCC=1:493,1:494) Q
+"RTN","ICDTBL4D",164,0)
+DRG495 ;
+"RTN","ICDTBL4D",165,0)
+DRG496 ;
+"RTN","ICDTBL4D",166,0)
+DRG497 N ICDOPRFLG
+"RTN","ICDTBL4D",167,0)
+ S ICDOPRFLG=0
+"RTN","ICDTBL4D",168,0)
+ I $D(ICDOP(" 80.05")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",169,0)
+ I $D(ICDOP(" 80.06")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",170,0)
+ I $D(ICDOP(" 86.22")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",171,0)
+ I $D(ICDOP(" 86.60")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",172,0)
+ I $D(ICDOP(" 86.63")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",173,0)
+ I $D(ICDOP(" 86.65")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",174,0)
+ I $D(ICDOP(" 86.66")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",175,0)
+ I $D(ICDOP(" 86.67")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",176,0)
+ I $D(ICDOP(" 86.69")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",177,0)
+ I $D(ICDOP(" 86.70")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",178,0)
+ I $D(ICDOP(" 86.71")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",179,0)
+ I $D(ICDOP(" 86.72")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",180,0)
+ I $D(ICDOP(" 86.74")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",181,0)
+ I $D(ICDOP(" 86.75")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",182,0)
+ I $D(ICDOP(" 86.93")) S ICDOPRFLG=1
+"RTN","ICDTBL4D",183,0)
+ I $G(ICDOPRFLG)=1 D DRG465 Q
+"RTN","ICDTBL4D",184,0)
+ S ICDRG=$S(ICDMCC=2:495,ICDMCC=1:496,1:497) Q
+"RTN","ICDTBL4D",185,0)
+DRG498 ;
+"RTN","ICDTBL4D",186,0)
+DRG499 S ICDRG=$S(ICDMCC>0:498,1:499) Q
+"RTN","ICDTBL4D",187,0)
+ Q
+"RTN","ICDTBL4E")
+0^3^B43610455^B25052485
+"RTN","ICDTBL4E",1,0)
+ICDTBL4E ;ALB/JDG - GROUPER UTILITY FUNCTIONS;08/09/2010
+"RTN","ICDTBL4E",2,0)
+ ;;18.0;DRG Grouper;**65,70**;Oct 20, 2000;Build 6
+"RTN","ICDTBL4E",3,0)
+DRG405 ;
+"RTN","ICDTBL4E",4,0)
+DRG406 ;
+"RTN","ICDTBL4E",5,0)
+DRG407 S ICDRG=$S(ICDMCC=2:405,ICDMCC=1:406,1:407) Q
+"RTN","ICDTBL4E",6,0)
+DRG408 ;
+"RTN","ICDTBL4E",7,0)
+ ;I ICDOR["E"!(ICDOR["T") I $D(ICDOP(" 51.21"))!$D(ICDOP(" 51.22"))!$D(ICDOP(" 51.23"))!$D(ICDOP(" 51.24")) S ICDRG=$S(ICDMCC=2:411,ICDMCC=1:412,1:413) Q
+"RTN","ICDTBL4E",8,0)
+ I $D(ICDOP(" 51.41")) I $D(ICDOP(" 51.21"))!$D(ICDOP(" 51.22"))!$D(ICDOP(" 51.23"))!$D(ICDOP(" 51.24")) S ICDRG=$S(ICDMCC=2:411,ICDMCC=1:412,1:413) Q
+"RTN","ICDTBL4E",9,0)
+ I $D(ICDOP(" 51.42")) I $D(ICDOP(" 51.21"))!$D(ICDOP(" 51.22"))!$D(ICDOP(" 51.23"))!$D(ICDOP(" 51.24")) S ICDRG=$S(ICDMCC=2:411,ICDMCC=1:412,1:413) Q
+"RTN","ICDTBL4E",10,0)
+ I $D(ICDOP(" 51.51")) I $D(ICDOP(" 51.21"))!$D(ICDOP(" 51.22"))!$D(ICDOP(" 51.23"))!$D(ICDOP(" 51.24")) S ICDRG=$S(ICDMCC=2:411,ICDMCC=1:412,1:413) Q
+"RTN","ICDTBL4E",11,0)
+ I ICDOR["3" S ICDRG=$S(ICDMCC=2:408,ICDMCC=1:409,1:410) Q
+"RTN","ICDTBL4E",12,0)
+ I $D(ICDOP(" 51.21"))!$D(ICDOP(" 51.22")) S ICDRG=$S(ICDMCC=2:414,ICDMCC=1:415,1:416) Q
+"RTN","ICDTBL4E",13,0)
+ I $D(ICDOP(" 51.23"))!$D(ICDOP(" 51.24")) S ICDRG=$S(ICDMCC=2:417,ICDMCC=1:418,1:419) Q
+"RTN","ICDTBL4E",14,0)
+ I ICDOR["h" S ICDRG=$S(ICDMCC=2:420,ICDMCC=1:421,1:422) Q
+"RTN","ICDTBL4E",15,0)
+ I ICDPD["M"&(ICDOR'["h") S ICDRG=$S(ICDMCC=2:435,ICDMCC=1:436,1:437) Q
+"RTN","ICDTBL4E",16,0)
+ I ICDSD'="" S ICDRG=$S(ICDMCC=2:438,ICDMCC=1:439,1:440) Q
+"RTN","ICDTBL4E",17,0)
+ I ICDOR["O" S ICDRG=$S(ICDMCC=2:438,ICDMCC=1:439,1:440) Q
+"RTN","ICDTBL4E",18,0)
+ S ICDRG=$S(ICDMCC=2:438,ICDMCC=1:439,1:440) Q
+"RTN","ICDTBL4E",19,0)
+ ;S ICDRG=$S(ICDMCC=2&(ICDOR["O"):438,ICDMCC=1&(ICDOR["O"):439,1:440) Q
+"RTN","ICDTBL4E",20,0)
+ Q
+"RTN","ICDTBL4E",21,0)
+DRG409 ;
+"RTN","ICDTBL4E",22,0)
+DRG410 D DRG408 Q
+"RTN","ICDTBL4E",23,0)
+DRG411 ;
+"RTN","ICDTBL4E",24,0)
+DRG412 ;
+"RTN","ICDTBL4E",25,0)
+DRG413 D DRG408 Q
+"RTN","ICDTBL4E",26,0)
+DRG414 ;
+"RTN","ICDTBL4E",27,0)
+DRG415 ;
+"RTN","ICDTBL4E",28,0)
+DRG416 D DRG408 Q
+"RTN","ICDTBL4E",29,0)
+DRG417 ;
+"RTN","ICDTBL4E",30,0)
+DRG418 ;
+"RTN","ICDTBL4E",31,0)
+DRG419 D DRG408 Q
+"RTN","ICDTBL4E",32,0)
+DRG420 ;
+"RTN","ICDTBL4E",33,0)
+DRG421 ;
+"RTN","ICDTBL4E",34,0)
+DRG422 D DRG408 Q
+"RTN","ICDTBL4E",35,0)
+DRG423 ;
+"RTN","ICDTBL4E",36,0)
+DRG424 ;
+"RTN","ICDTBL4E",37,0)
+DRG425 S ICDRG=$S(ICDMCC=2:423,ICDMCC=1:424,1:425) Q
+"RTN","ICDTBL4E",38,0)
+DRG432 ;
+"RTN","ICDTBL4E",39,0)
+DRG433 ;
+"RTN","ICDTBL4E",40,0)
+DRG434 S ICDRG=$S(ICDMCC=2:432,ICDMCC=1:433,1:434) Q
+"RTN","ICDTBL4E",41,0)
+DRG435 ;
+"RTN","ICDTBL4E",42,0)
+DRG436 ;
+"RTN","ICDTBL4E",43,0)
+DRG437 D DRG408 Q
+"RTN","ICDTBL4E",44,0)
+DRG438 ;
+"RTN","ICDTBL4E",45,0)
+DRG439 ;
+"RTN","ICDTBL4E",46,0)
+DRG440 D DRG408 Q
+"RTN","ICDTBL4E",47,0)
+DRG441 ;
+"RTN","ICDTBL4E",48,0)
+DRG442 ;
+"RTN","ICDTBL4E",49,0)
+DRG443 S ICDRG=$S(ICDMCC=2:441,ICDMCC=1:442,1:443) Q
+"RTN","ICDTBL4E",50,0)
+DRG444 ;
+"RTN","ICDTBL4E",51,0)
+DRG445 ;
+"RTN","ICDTBL4E",52,0)
+DRG446 S ICDRG=$S(ICDMCC=2:444,ICDMCC=1:445,1:446) Q
+"RTN","ICDTBL4E",53,0)
+DRG453 ;
+"RTN","ICDTBL4E",54,0)
+DRG454 ;
+"RTN","ICDTBL4E",55,0)
+DRG455 ;
+"RTN","ICDTBL4E",56,0)
+ N CNTA,CNTP S CNTA=0,CNTP=0
+"RTN","ICDTBL4E",57,0)
+ I $D(ICDOP(" 81.02")) S CNTA=1
+"RTN","ICDTBL4E",58,0)
+ I $D(ICDOP(" 81.04")) S CNTA=1
+"RTN","ICDTBL4E",59,0)
+ I $D(ICDOP(" 81.06")) S CNTA=1
+"RTN","ICDTBL4E",60,0)
+ I $D(ICDOP(" 81.32")) S CNTA=1
+"RTN","ICDTBL4E",61,0)
+ I $D(ICDOP(" 81.36")) S CNTA=1
+"RTN","ICDTBL4E",62,0)
+ I $D(ICDOP(" 81.03")) S CNTP=1
+"RTN","ICDTBL4E",63,0)
+ I $D(ICDOP(" 81.05")) S CNTP=1
+"RTN","ICDTBL4E",64,0)
+ I $D(ICDOP(" 81.07")) S CNTP=1
+"RTN","ICDTBL4E",65,0)
+ I $D(ICDOP(" 81.08")) S CNTP=1
+"RTN","ICDTBL4E",66,0)
+ I $D(ICDOP(" 81.33")) S CNTP=1
+"RTN","ICDTBL4E",67,0)
+ I $D(ICDOP(" 81.35")) S CNTP=1
+"RTN","ICDTBL4E",68,0)
+ I $D(ICDOP(" 81.37")) S CNTP=1
+"RTN","ICDTBL4E",69,0)
+ I $D(ICDOP(" 81.38")) S CNTP=1
+"RTN","ICDTBL4E",70,0)
+ I CNTA=1,CNTP=1 D
+"RTN","ICDTBL4E",71,0)
+ . S ICDRG=$S(ICDMCC=2:453,ICDMCC=1:454,1:455) Q
+"RTN","ICDTBL4E",72,0)
+ E S ICDRG=""
+"RTN","ICDTBL4E",73,0)
+ Q
+"RTN","ICDTBL4E",74,0)
+DRG456 ;
+"RTN","ICDTBL4E",75,0)
+DRG457 ;
+"RTN","ICDTBL4E",76,0)
+DRG458 ;
+"RTN","ICDTBL4E",77,0)
+ I ICDOR="" D DRG541^ICDTBL5E Q
+"RTN","ICDTBL4E",78,0)
+ I ICDPD["k" D DRG541^ICDTBL5E Q
+"RTN","ICDTBL4E",79,0)
+ I ICDPD["6",$D(ICDOP(" 81.64")) S ICDRG=$S(ICDMCC=2:456,ICDMCC=1:457,1:458) Q
+"RTN","ICDTBL4E",80,0)
+ I ICDSD["6",$D(ICDOP(" 81.64")) S ICDRG=$S(ICDMCC=2:456,ICDMCC=1:457,1:458) Q
+"RTN","ICDTBL4E",81,0)
+ I ICDPD["6" S ICDRG=$S(ICDMCC=2:456,ICDMCC=1:457,1:458) Q
+"RTN","ICDTBL4E",82,0)
+DRG459 ;
+"RTN","ICDTBL4E",83,0)
+DRG460 S ICDRG=$S(ICDMCC=2:459,1:460) Q
+"RTN","ICDTBL4E",84,0)
+DRG461 ;
+"RTN","ICDTBL4E",85,0)
+DRG462 ;
+"RTN","ICDTBL4E",86,0)
+ N ICDCT S ICDCT=""
+"RTN","ICDTBL4E",87,0)
+ N CNT S CNT=0
+"RTN","ICDTBL4E",88,0)
+ F S ICDCT=$O(ICDSURG(ICDCT)) Q:ICDCT="" D
+"RTN","ICDTBL4E",89,0)
+ .I $P(ICDSURG(ICDCT),"^")="00.70"!($P(ICDSURG(ICDCT),"^")["00.70") S CNT=CNT+1 Q
+"RTN","ICDTBL4E",90,0)
+ .I $P(ICDSURG(ICDCT),"^")="00.80"!($P(ICDSURG(ICDCT),"^")["00.80") S CNT=CNT+1 Q
+"RTN","ICDTBL4E",91,0)
+ .I $P(ICDSURG(ICDCT),"^")="00.85"!($P(ICDSURG(ICDCT),"^")["00.85") S CNT=CNT+1 Q
+"RTN","ICDTBL4E",92,0)
+ .I $P(ICDSURG(ICDCT),"^")="00.86"!($P(ICDSURG(ICDCT),"^")["00.86") S CNT=CNT+1 Q
+"RTN","ICDTBL4E",93,0)
+ .I $P(ICDSURG(ICDCT),"^")="00.87"!($P(ICDSURG(ICDCT),"^")["00.87") S CNT=CNT+1 Q
+"RTN","ICDTBL4E",94,0)
+ .I $P(ICDSURG(ICDCT),"^")="81.51" S CNT=CNT+1 Q
+"RTN","ICDTBL4E",95,0)
+ .I $P(ICDSURG(ICDCT),"^")="81.52" S CNT=CNT+1 Q
+"RTN","ICDTBL4E",96,0)
+ .I $P(ICDSURG(ICDCT),"^")="81.54" S CNT=CNT+1 Q
+"RTN","ICDTBL4E",97,0)
+ .I $P(ICDSURG(ICDCT),"^")="81.56" S CNT=CNT+1 Q
+"RTN","ICDTBL4E",98,0)
+ I CNT>1 S ICDRG=$S(ICDMCC=2:461,1:462) Q
+"RTN","ICDTBL4E",99,0)
+ I $D(ICDOP(" 00.70"))!$D(ICDOP(" 00.80")) D DRG466 Q
+"RTN","ICDTBL4E",100,0)
+ E D DRG469 Q
+"RTN","ICDTBL4E",101,0)
+DRG463 ;
+"RTN","ICDTBL4E",102,0)
+DRG464 ;
+"RTN","ICDTBL4E",103,0)
+DRG465 S ICDRG=$S(ICDMCC=2:463,ICDMCC=1:464,1:465) Q
+"RTN","ICDTBL4E",104,0)
+DRG466 ;
+"RTN","ICDTBL4E",105,0)
+DRG467 ;
+"RTN","ICDTBL4E",106,0)
+DRG468 S ICDRG=$S(ICDMCC=2:466,ICDMCC=1:467,1:468) Q
+"RTN","ICDTBL4E",107,0)
+DRG469 ;
+"RTN","ICDTBL4E",108,0)
+DRG470 I ICDEXP=1 S ICDMCC=1
+"RTN","ICDTBL4E",109,0)
+ S ICDRG=$S(ICDMCC=2:469,1:470) Q
+"RTN","ICDTBL4E",110,0)
+DRG471 ;
+"RTN","ICDTBL4E",111,0)
+DRG472 ;
+"RTN","ICDTBL4E",112,0)
+DRG473 S ICDRG=$S(ICDMCC=2:471,ICDMCC=1:472,1:473) Q
+"RTN","ICDTBL4E",113,0)
+DRG474 ;
+"RTN","ICDTBL4E",114,0)
+DRG475 ;
+"RTN","ICDTBL4E",115,0)
+DRG476 S ICDRG=$S(ICDMCC=2:474,ICDMCC=1:475,1:476) Q
+"RTN","ICDTBL4E",116,0)
+DRG477 ;
+"RTN","ICDTBL4E",117,0)
+DRG478 ;
+"RTN","ICDTBL4E",118,0)
+DRG479 S ICDRG=$S(ICDMCC=2:477,ICDMCC=1:478,1:479) Q
+"RTN","ICDTBL4E",119,0)
+DRG480 ;
+"RTN","ICDTBL4E",120,0)
+DRG481 ;
+"RTN","ICDTBL4E",121,0)
+DRG482 S ICDRG=$S(ICDMCC=2:480,ICDMCC=1:481,1:482) Q
+"RTN","ICDTBL4E",122,0)
+DRG483 ;
+"RTN","ICDTBL4E",123,0)
+DRG484 S ICDRG=$S(ICDMCC>0:483,1:484) Q
+"RTN","ICDTBL4E",124,0)
+DRG485 ;
+"RTN","ICDTBL4E",125,0)
+DRG486 ;
+"RTN","ICDTBL4E",126,0)
+DRG487 I ICDPD["k" S ICDRG=$S(ICDMCC=2:485,ICDMCC=1:486,1:487) Q
+"RTN","ICDTBL4E",127,0)
+ E S ICDRG=""
+"RTN","ICDTBL4E",128,0)
+DRG488 ;
+"RTN","ICDTBL4E",129,0)
+DRG489 S ICDRG=$S(ICDMCC>0:488,1:489) Q
+"RTN","ICDTBL4E",130,0)
+DRG490 ;
+"RTN","ICDTBL4E",131,0)
+DRG491 ;
+"RTN","ICDTBL4E",132,0)
+ I ICDPD["6" D
+"RTN","ICDTBL4E",133,0)
+ .N ICDXFLG
+"RTN","ICDTBL4E",134,0)
+ .S ICDXFLG=0
+"RTN","ICDTBL4E",135,0)
+ .I '$D(ICDOP(" 03.02"))!('$D(ICDOP(" 03.09"))) S ICDXFLG=1
+"RTN","ICDTBL4E",136,0)
+ .I '$D(ICDOP(" 03.1")) S ICDXFLG=1
+"RTN","ICDTBL4E",137,0)
+ .I '$D(ICDOP(" 03.32"))!('$D(ICDOP(" 03.39"))) S ICDXFLG=1
+"RTN","ICDTBL4E",138,0)
+ .I '$D(ICDOP(" 03.4")) S ICDXFLG=1
+"RTN","ICDTBL4E",139,0)
+ .I '$D(ICDOP(" 03.53"))!('$D(ICDOP(" 03.59"))) S ICDXFLG=1
+"RTN","ICDTBL4E",140,0)
+ .I '$D(ICDOP(" 03.6")) S ICDXFLG=1
+"RTN","ICDTBL4E",141,0)
+ .I '$D(ICDOP(" 03.93"))!('$D(ICDOP(" 03.94"))) S ICDXFLG=1
+"RTN","ICDTBL4E",142,0)
+ .I '$D(ICDOP(" 03.97"))!('$D(ICDOP(" 03.98")))!('$D(ICDOP(" 03.99"))) S ICDXFLG=1
+"RTN","ICDTBL4E",143,0)
+ .I '$D(ICDOP(" 80.50"))!('$D(ICDOP(" 80.53")))!('$D(ICDOP(" 80.54")))!('$D(ICDOP(" 80.59"))) S ICDXFLG=1
+"RTN","ICDTBL4E",144,0)
+ .I '$D(ICDOP(" 84.59")) S ICDXFLG=1
+"RTN","ICDTBL4E",145,0)
+ .I '$D(ICDOP(" 84.60"))!('$D(ICDOP(" 84.61")))!('$D(ICDOP(" 84.62")))!('$D(ICDOP(" 84.63")))!('$D(ICDOP(" 84.64"))) S ICDXFLG=1
+"RTN","ICDTBL4E",146,0)
+ .I '$D(ICDOP(" 84.65"))!('$D(ICDOP(" 84.66")))!('$D(ICDOP(" 84.67")))!('$D(ICDOP(" 84.68")))!('$D(ICDOP(" 84.69"))) S ICDXFLG=1
+"RTN","ICDTBL4E",147,0)
+ .I '$D(ICDOP(" 84.80"))!('$D(ICDOP(" 84.82")))!('$D(ICDOP(" 84.84"))) S ICDXFLG=1
+"RTN","ICDTBL4E",148,0)
+ I $G(ICDXFLG)=0 D DRG456 Q
+"RTN","ICDTBL4E",149,0)
+ I ICDOR["F" D DRG456 Q
+"RTN","ICDTBL4E",150,0)
+ S ICDRG=$S(ICDMCC>0:490,1:491) D Q
+"RTN","ICDTBL4E",151,0)
+ . I $D(ICDOP(" 84.59")) S ICDRG=490
+"RTN","ICDTBL4E",152,0)
+ . I $D(ICDOP(" 84.62")) S ICDRG=490
+"RTN","ICDTBL4E",153,0)
+ . I $D(ICDOP(" 84.65")) S ICDRG=490
+"RTN","ICDTBL4E",154,0)
+ . I $D(ICDOP(" 84.80")) S ICDRG=490
+"RTN","ICDTBL4E",155,0)
+ . I $D(ICDOP(" 84.82")) S ICDRG=490
+"RTN","ICDTBL4E",156,0)
+ . I $D(ICDOP(" 84.84")) S ICDRG=490
+"RTN","ICDTBL4E",157,0)
+ . I $D(ICDOP(" 03.93")),$D(ICDOP(" 86.94")) S ICDRG=490
+"RTN","ICDTBL4E",158,0)
+ . I $D(ICDOP(" 03.93")),$D(ICDOP(" 86.95")) S ICDRG=490
+"RTN","ICDTBL4E",159,0)
+ . I $D(ICDOP(" 03.93")),$D(ICDOP(" 86.97")) S ICDRG=490
+"RTN","ICDTBL4E",160,0)
+ . I $D(ICDOP(" 03.93")),$D(ICDOP(" 86.98")) S ICDRG=490
+"RTN","ICDTBL4E",161,0)
+DRG492 ;
+"RTN","ICDTBL4E",162,0)
+DRG493 ;
+"RTN","ICDTBL4E",163,0)
+DRG494 S ICDRG=$S(ICDMCC=2:492,ICDMCC=1:493,1:494) Q
+"RTN","ICDTBL4E",164,0)
+DRG495 ;
+"RTN","ICDTBL4E",165,0)
+DRG496 ;
+"RTN","ICDTBL4E",166,0)
+DRG497 N ICDOPRFLG
+"RTN","ICDTBL4E",167,0)
+ S ICDOPRFLG=0
+"RTN","ICDTBL4E",168,0)
+ I $D(ICDOP(" 80.05")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",169,0)
+ I $D(ICDOP(" 80.06")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",170,0)
+ I $D(ICDOP(" 86.22")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",171,0)
+ I $D(ICDOP(" 86.60")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",172,0)
+ I $D(ICDOP(" 86.63")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",173,0)
+ I $D(ICDOP(" 86.65")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",174,0)
+ I $D(ICDOP(" 86.66")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",175,0)
+ I $D(ICDOP(" 86.67")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",176,0)
+ I $D(ICDOP(" 86.69")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",177,0)
+ I $D(ICDOP(" 86.70")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",178,0)
+ I $D(ICDOP(" 86.71")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",179,0)
+ I $D(ICDOP(" 86.72")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",180,0)
+ I $D(ICDOP(" 86.74")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",181,0)
+ I $D(ICDOP(" 86.75")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",182,0)
+ I $D(ICDOP(" 86.93")) S ICDOPRFLG=1
+"RTN","ICDTBL4E",183,0)
+ I $G(ICDOPRFLG)=1 D DRG465 Q
+"RTN","ICDTBL4E",184,0)
+ S ICDRG=$S(ICDMCC=2:495,ICDMCC=1:496,1:497) Q
+"RTN","ICDTBL4E",185,0)
+DRG498 ;
+"RTN","ICDTBL4E",186,0)
+DRG499 S ICDRG=$S(ICDMCC>0:498,1:499) Q
+"RTN","ICDTBL4E",187,0)
+ Q
+"RTN","ICDTBL6D")
+0^4^B11043717^B10478160
+"RTN","ICDTBL6D",1,0)
+ICDTBL6D ;ALB/MJB - GROUPER UTILITY FUNCTIONS;08/09/2010
+"RTN","ICDTBL6D",2,0)
+ ;;18.0;DRG Grouper;**56,55,69,70**;Oct 20, 2000;Build 6
+"RTN","ICDTBL6D",3,0)
+DRG600 ;
+"RTN","ICDTBL6D",4,0)
+DRG601 S ICDRG=$S(ICDMCC>0:600,1:601) Q
+"RTN","ICDTBL6D",5,0)
+DRG602 ;
+"RTN","ICDTBL6D",6,0)
+DRG603 ;
+"RTN","ICDTBL6D",7,0)
+ S ICDRG=$S(ICDMCC=2:602,1:603) Q
+"RTN","ICDTBL6D",8,0)
+DRG604 ;
+"RTN","ICDTBL6D",9,0)
+DRG605 S ICDRG=$S(ICDMCC=2:604,1:605) Q
+"RTN","ICDTBL6D",10,0)
+DRG606 ;
+"RTN","ICDTBL6D",11,0)
+DRG607 S ICDRG=$S(ICDMCC=2:606,1:607) Q
+"RTN","ICDTBL6D",12,0)
+DRG614 ;
+"RTN","ICDTBL6D",13,0)
+DRG615 S ICDRG=$S(ICDMCC>0:614,1:615) Q
+"RTN","ICDTBL6D",14,0)
+DRG616 ;
+"RTN","ICDTBL6D",15,0)
+DRG617 ;
+"RTN","ICDTBL6D",16,0)
+DRG618 I ICDSD["z" S ICDRG=617 Q
+"RTN","ICDTBL6D",17,0)
+ S ICDRG=$S(ICDMCC=2:616,ICDMCC=1:617,1:618) Q
+"RTN","ICDTBL6D",18,0)
+DRG619 ;
+"RTN","ICDTBL6D",19,0)
+DRG620 ;
+"RTN","ICDTBL6D",20,0)
+DRG621 I (ICDDX(1)=995!$D(ICDDXT("278.1"))) S ICDMCC=0
+"RTN","ICDTBL6D",21,0)
+ I (ICDDX(1)=13154!$D(ICDDXT("278.00"))) S ICDMCC=0
+"RTN","ICDTBL6D",22,0)
+ I (ICDDX(1)=13155!$D(ICDDXT("278.01"))) S ICDMCC=0
+"RTN","ICDTBL6D",23,0)
+ S ICDRG=$S(ICDMCC=2:619,ICDMCC=1:620,1:621) Q
+"RTN","ICDTBL6D",24,0)
+DRG622 ;
+"RTN","ICDTBL6D",25,0)
+DRG623 ;
+"RTN","ICDTBL6D",26,0)
+DRG624 I ICDOR["A" D DRG617 Q
+"RTN","ICDTBL6D",27,0)
+ S ICDRG=$S(ICDMCC=2:622,ICDMCC=1:623,1:624) Q
+"RTN","ICDTBL6D",28,0)
+DRG625 ;
+"RTN","ICDTBL6D",29,0)
+DRG626 ;
+"RTN","ICDTBL6D",30,0)
+DRG627 S ICDRG=$S(ICDMCC=2:625,ICDMCC=1:626,1:627) Q
+"RTN","ICDTBL6D",31,0)
+DRG628 ;
+"RTN","ICDTBL6D",32,0)
+DRG629 ;
+"RTN","ICDTBL6D",33,0)
+DRG630 S ICDRG=$S(ICDMCC=2:628,ICDMCC=1:629,1:630) Q
+"RTN","ICDTBL6D",34,0)
+DRG637 ;
+"RTN","ICDTBL6D",35,0)
+DRG638 ;
+"RTN","ICDTBL6D",36,0)
+DRG639 S ICDRG=$S(ICDMCC=2:637,ICDMCC=1:638,1:639) Q
+"RTN","ICDTBL6D",37,0)
+DRG640 ;
+"RTN","ICDTBL6D",38,0)
+DRG641 S ICDRG=$S(ICDMCC=2:640,1:641) Q
+"RTN","ICDTBL6D",39,0)
+DRG642 S ICDRG=642 Q
+"RTN","ICDTBL6D",40,0)
+DRG643 ;
+"RTN","ICDTBL6D",41,0)
+DRG644 ;
+"RTN","ICDTBL6D",42,0)
+DRG645 S ICDRG=$S(ICDMCC=2:643,ICDMCC=1:644,1:645) Q
+"RTN","ICDTBL6D",43,0)
+DRG652 S ICDRG=652 Q
+"RTN","ICDTBL6D",44,0)
+DRG653 ;
+"RTN","ICDTBL6D",45,0)
+DRG654 ;
+"RTN","ICDTBL6D",46,0)
+DRG655 S ICDRG=$S(ICDMCC=2:653,ICDMCC=1:654,1:655) Q
+"RTN","ICDTBL6D",47,0)
+DRG656 ;DRGs 656-661
+"RTN","ICDTBL6D",48,0)
+ S ICDRG=999
+"RTN","ICDTBL6D",49,0)
+ I ICDOR'["O" D DRG686 Q
+"RTN","ICDTBL6D",50,0)
+ S ICDRG=$S(ICDPD["M"&(ICDMCC=2):656,ICDPD["M"&(ICDMCC=1):657,ICDPD["M":658,1:ICDRG)
+"RTN","ICDTBL6D",51,0)
+ I "656^657^658"[ICDRG Q
+"RTN","ICDTBL6D",52,0)
+ S ICDRG=$S(ICDRG'["M"&(ICDMCC=2):659,ICDPD'["M"&(ICDMCC=1):660,1:661)
+"RTN","ICDTBL6D",53,0)
+ Q
+"RTN","ICDTBL6D",54,0)
+DRG657 D DRG656 Q
+"RTN","ICDTBL6D",55,0)
+DRG658 D DRG656 Q
+"RTN","ICDTBL6D",56,0)
+DRG659 D DRG656 Q
+"RTN","ICDTBL6D",57,0)
+DRG660 D DRG656 Q
+"RTN","ICDTBL6D",58,0)
+DRG661 D DRG656 Q
+"RTN","ICDTBL6D",59,0)
+DRG662 ;
+"RTN","ICDTBL6D",60,0)
+DRG663 ;
+"RTN","ICDTBL6D",61,0)
+DRG664 I ICDOR["f" S ICDRG=$S($D(ICDJJ(664)):664,1:ICDRG) Q
+"RTN","ICDTBL6D",62,0)
+ S ICDRG=$S(ICDMCC=2:662,ICDMCC=1:663,1:664) Q
+"RTN","ICDTBL6D",63,0)
+DRG665 ;
+"RTN","ICDTBL6D",64,0)
+DRG666 ;
+"RTN","ICDTBL6D",65,0)
+DRG667 ;
+"RTN","ICDTBL6D",66,0)
+ I $D(ICDODRG(662))!($D(ICDODRG(663))) D DRG662 Q
+"RTN","ICDTBL6D",67,0)
+ I ICDOR["f"!(ICDOR'["y") D DRG662 Q
+"RTN","ICDTBL6D",68,0)
+ S ICDRG=$S(ICDMCC=2:665,ICDMCC=1:666,1:667) Q
+"RTN","ICDTBL6D",69,0)
+DRG668 ;
+"RTN","ICDTBL6D",70,0)
+DRG669 ;
+"RTN","ICDTBL6D",71,0)
+DRG670 S ICDRG=$S(ICDMCC=2:668,ICDMCC=1:669,1:670) Q
+"RTN","ICDTBL6D",72,0)
+DRG671 ;
+"RTN","ICDTBL6D",73,0)
+DRG672 S ICDRG=$S(ICDMCC>0:671,1:672) Q
+"RTN","ICDTBL6D",74,0)
+DRG673 ;
+"RTN","ICDTBL6D",75,0)
+DRG674 ;
+"RTN","ICDTBL6D",76,0)
+DRG675 I ICDDX(1)=12434,$D(ICDDXT("585.6")),ICDOR["O",ICDMCC=0 S ICDMCC=2
+"RTN","ICDTBL6D",77,0)
+ S ICDRG=$S(ICDMCC=2:673,ICDMCC=1:674,1:675) Q
+"RTN","ICDTBL6D",78,0)
+DRG682 ;
+"RTN","ICDTBL6D",79,0)
+DRG683 ;
+"RTN","ICDTBL6D",80,0)
+DRG684 I ICDDX(1)=12434,$D(ICDDXT("585.6")),ICDMCC=0 S ICDMCC=2
+"RTN","ICDTBL6D",81,0)
+ S ICDRG=$S(ICDMCC=2:682,ICDMCC=1:683,1:684) Q
+"RTN","ICDTBL6D",82,0)
+DRG685 S ICDRG=685 Q
+"RTN","ICDTBL6D",83,0)
+DRG686 ;
+"RTN","ICDTBL6D",84,0)
+DRG687 ;
+"RTN","ICDTBL6D",85,0)
+DRG688 S ICDRG=$S(ICDMCC=2:686,ICDMCC=1:687,1:688) Q
+"RTN","ICDTBL6D",86,0)
+DRG689 ;
+"RTN","ICDTBL6D",87,0)
+DRG690 S ICDRG=$S(ICDMCC=2:689,1:690) Q
+"RTN","ICDTBL6D",88,0)
+DRG691 ;DRGs 691-694
+"RTN","ICDTBL6D",89,0)
+ S ICDRG=999
+"RTN","ICDTBL6D",90,0)
+ S ICDRG=$S('$D(ICDPDRG(691)):"",$D(ICDOP(" 98.51"))&(ICDMCC>0):691,$D(ICDOP(" 98.51")):692,1:ICDRG)
+"RTN","ICDTBL6D",91,0)
+ I "691^692"[ICDRG Q
+"RTN","ICDTBL6D",92,0)
+ S ICDRG=$S('$D(ICDPDRG(691)):"",ICDMCC=2:693,1:694)
+"RTN","ICDTBL6D",93,0)
+ Q
+"RTN","ICDTBL6D",94,0)
+DRG692 D DRG691 Q
+"RTN","ICDTBL6D",95,0)
+DRG693 D DRG691 Q
+"RTN","ICDTBL6D",96,0)
+DRG694 D DRG691 Q
+"RTN","ICDTBL6D",97,0)
+DRG695 ;
+"RTN","ICDTBL6D",98,0)
+DRG696 S ICDRG=$S(ICDMCC=2:695,1:696) Q
+"RTN","ICDTBL6D",99,0)
+DRG697 S ICDRG=697 Q
+"RTN","ICDTBL6D",100,0)
+DRG698 ;
+"RTN","ICDTBL6D",101,0)
+DRG699 S ICDRG=$S(ICDMCC=2:698,ICDMCC=1:699,1:700) Q
+"RTN","ICDTBL6D",102,0)
+ Q
+"RTN","ICDTBL6E")
+0^5^B13576530^B10478169
+"RTN","ICDTBL6E",1,0)
+ICDTBL6E ;ALB/JDG - GROUPER UTILITY FUNCTIONS;08/09/2010
+"RTN","ICDTBL6E",2,0)
+ ;;18.0;DRG Grouper;**65,69,70**;Oct 20, 2000;Build 6
+"RTN","ICDTBL6E",3,0)
+DRG600 ;
+"RTN","ICDTBL6E",4,0)
+DRG601 S ICDRG=$S(ICDMCC>0:600,1:601) Q
+"RTN","ICDTBL6E",5,0)
+DRG602 ;
+"RTN","ICDTBL6E",6,0)
+DRG603 ;
+"RTN","ICDTBL6E",7,0)
+ S ICDRG=$S(ICDMCC=2:602,1:603) Q
+"RTN","ICDTBL6E",8,0)
+DRG604 ;
+"RTN","ICDTBL6E",9,0)
+DRG605 S ICDRG=$S(ICDMCC=2:604,1:605) Q
+"RTN","ICDTBL6E",10,0)
+DRG606 ;
+"RTN","ICDTBL6E",11,0)
+DRG607 S ICDRG=$S(ICDMCC=2:606,1:607) Q
+"RTN","ICDTBL6E",12,0)
+DRG614 ;
+"RTN","ICDTBL6E",13,0)
+DRG615 S ICDRG=$S(ICDMCC>0:614,1:615) Q
+"RTN","ICDTBL6E",14,0)
+DRG616 ;
+"RTN","ICDTBL6E",15,0)
+DRG617 ;
+"RTN","ICDTBL6E",16,0)
+DRG618 I ICDSD["z" S ICDRG=617 Q
+"RTN","ICDTBL6E",17,0)
+ S ICDRG=$S(ICDMCC=2:616,ICDMCC=1:617,1:618) Q
+"RTN","ICDTBL6E",18,0)
+DRG619 ;
+"RTN","ICDTBL6E",19,0)
+DRG620 ;
+"RTN","ICDTBL6E",20,0)
+DRG621 I (ICDDX(1)=995!$D(ICDDXT("278.1"))) S ICDMCC=0
+"RTN","ICDTBL6E",21,0)
+ I (ICDDX(1)=13154!$D(ICDDXT("278.00"))) S ICDMCC=0
+"RTN","ICDTBL6E",22,0)
+ I (ICDDX(1)=13155!$D(ICDDXT("278.01"))) S ICDMCC=0
+"RTN","ICDTBL6E",23,0)
+ S ICDRG=$S(ICDMCC=2:619,ICDMCC=1:620,1:621) Q
+"RTN","ICDTBL6E",24,0)
+DRG622 ;
+"RTN","ICDTBL6E",25,0)
+DRG623 ;
+"RTN","ICDTBL6E",26,0)
+DRG624 I ICDOR["A" D DRG617 Q
+"RTN","ICDTBL6E",27,0)
+ S ICDRG=$S(ICDMCC=2:622,ICDMCC=1:623,1:624) Q
+"RTN","ICDTBL6E",28,0)
+DRG625 ;
+"RTN","ICDTBL6E",29,0)
+DRG626 ;
+"RTN","ICDTBL6E",30,0)
+DRG627 S ICDRG=$S(ICDMCC=2:625,ICDMCC=1:626,1:627) Q
+"RTN","ICDTBL6E",31,0)
+DRG628 ;
+"RTN","ICDTBL6E",32,0)
+DRG629 ;
+"RTN","ICDTBL6E",33,0)
+DRG630 S ICDRG=$S(ICDMCC=2:628,ICDMCC=1:629,1:630) Q
+"RTN","ICDTBL6E",34,0)
+DRG637 ;
+"RTN","ICDTBL6E",35,0)
+DRG638 ;
+"RTN","ICDTBL6E",36,0)
+DRG639 S ICDRG=$S(ICDMCC=2:637,ICDMCC=1:638,1:639) Q
+"RTN","ICDTBL6E",37,0)
+DRG640 ;
+"RTN","ICDTBL6E",38,0)
+DRG641 S ICDRG=$S(ICDMCC=2:640,1:641) Q
+"RTN","ICDTBL6E",39,0)
+DRG642 S ICDRG=642 Q
+"RTN","ICDTBL6E",40,0)
+DRG643 ;
+"RTN","ICDTBL6E",41,0)
+DRG644 ;
+"RTN","ICDTBL6E",42,0)
+DRG645 S ICDRG=$S(ICDMCC=2:643,ICDMCC=1:644,1:645) Q
+"RTN","ICDTBL6E",43,0)
+DRG652 S ICDRG=652 Q
+"RTN","ICDTBL6E",44,0)
+DRG653 ;
+"RTN","ICDTBL6E",45,0)
+DRG654 ;
+"RTN","ICDTBL6E",46,0)
+DRG655 S ICDRG=$S(ICDMCC=2:653,ICDMCC=1:654,1:655) Q
+"RTN","ICDTBL6E",47,0)
+DRG656 ;DRGs 656-661
+"RTN","ICDTBL6E",48,0)
+ S ICDRG=999
+"RTN","ICDTBL6E",49,0)
+ I ICDOR'["O" D DRG686 Q
+"RTN","ICDTBL6E",50,0)
+ S ICDRG=$S(ICDPD["M"&(ICDMCC=2):656,ICDPD["M"&(ICDMCC=1):657,ICDPD["M":658,1:ICDRG)
+"RTN","ICDTBL6E",51,0)
+ I "656^657^658"[ICDRG Q
+"RTN","ICDTBL6E",52,0)
+ S ICDRG=$S(ICDRG'["M"&(ICDMCC=2):659,ICDPD'["M"&(ICDMCC=1):660,1:661)
+"RTN","ICDTBL6E",53,0)
+ Q
+"RTN","ICDTBL6E",54,0)
+DRG657 D DRG656 Q
+"RTN","ICDTBL6E",55,0)
+DRG658 D DRG656 Q
+"RTN","ICDTBL6E",56,0)
+DRG659 D DRG656 Q
+"RTN","ICDTBL6E",57,0)
+DRG660 D DRG656 Q
+"RTN","ICDTBL6E",58,0)
+DRG661 D DRG656 Q
+"RTN","ICDTBL6E",59,0)
+DRG662 ;
+"RTN","ICDTBL6E",60,0)
+DRG663 ;
+"RTN","ICDTBL6E",61,0)
+DRG664 I ICDOR["f" S ICDRG=$S($D(ICDJJ(664)):664,1:ICDRG) Q
+"RTN","ICDTBL6E",62,0)
+ S ICDRG=$S(ICDMCC=2:662,ICDMCC=1:663,1:664) Q
+"RTN","ICDTBL6E",63,0)
+DRG665 ;
+"RTN","ICDTBL6E",64,0)
+DRG666 ;
+"RTN","ICDTBL6E",65,0)
+DRG667 ;
+"RTN","ICDTBL6E",66,0)
+ I $D(ICDODRG(662))!($D(ICDODRG(663))) D DRG662 Q
+"RTN","ICDTBL6E",67,0)
+ I ICDOR["f"!(ICDOR'["y") D DRG662 Q
+"RTN","ICDTBL6E",68,0)
+ S ICDRG=$S(ICDMCC=2:665,ICDMCC=1:666,1:667) Q
+"RTN","ICDTBL6E",69,0)
+DRG668 ;
+"RTN","ICDTBL6E",70,0)
+DRG669 ;
+"RTN","ICDTBL6E",71,0)
+DRG670 S ICDRG=$S(ICDMCC=2:668,ICDMCC=1:669,1:670) Q
+"RTN","ICDTBL6E",72,0)
+DRG671 ;
+"RTN","ICDTBL6E",73,0)
+DRG672 S ICDRG=$S(ICDMCC>0:671,1:672) Q
+"RTN","ICDTBL6E",74,0)
+DRG673 ;
+"RTN","ICDTBL6E",75,0)
+DRG674 ;
+"RTN","ICDTBL6E",76,0)
+DRG675 I ICDDX(1)=12434,$D(ICDDXT("585.6")),ICDOR["O",ICDMCC=0 S ICDMCC=2
+"RTN","ICDTBL6E",77,0)
+ S ICDRG=$S(ICDMCC=2:673,ICDMCC=1:674,1:675) Q
+"RTN","ICDTBL6E",78,0)
+DRG682 ;
+"RTN","ICDTBL6E",79,0)
+DRG683 ;
+"RTN","ICDTBL6E",80,0)
+DRG684 I ICDDX(1)=12434,$D(ICDDXT("585.6")),ICDMCC=0 S ICDMCC=2
+"RTN","ICDTBL6E",81,0)
+ S ICDRG=$S(ICDMCC=2:682,ICDMCC=1:683,1:684) Q
+"RTN","ICDTBL6E",82,0)
+DRG685 S ICDRG=685 Q
+"RTN","ICDTBL6E",83,0)
+DRG686 ;
+"RTN","ICDTBL6E",84,0)
+DRG687 ;
+"RTN","ICDTBL6E",85,0)
+DRG688 S ICDRG=$S(ICDMCC=2:686,ICDMCC=1:687,1:688) Q
+"RTN","ICDTBL6E",86,0)
+DRG689 ;
+"RTN","ICDTBL6E",87,0)
+DRG690 S ICDRG=$S(ICDMCC=2:689,1:690) Q
+"RTN","ICDTBL6E",88,0)
+DRG691 ;DRGs 691-694
+"RTN","ICDTBL6E",89,0)
+ N ICDPDFLG
+"RTN","ICDTBL6E",90,0)
+ I $D(ICDOP(" 98.51")) S ICDPDFLG=0 D
+"RTN","ICDTBL6E",91,0)
+ .I ICDDX(1)=965!(ICDDX(1)=9251) S ICDPDFLG=1
+"RTN","ICDTBL6E",92,0)
+ .I ICDDX(1)=9252!(ICDDX(1)=3134) S ICDPDFLG=1
+"RTN","ICDTBL6E",93,0)
+ .I ICDDX(1)=3135!(ICDDX(1)=3139) S ICDPDFLG=1
+"RTN","ICDTBL6E",94,0)
+ .I ICDDX(1)=3140!(ICDDX(1)=3147) S ICDPDFLG=1
+"RTN","ICDTBL6E",95,0)
+ .I ICDDX(1)=3148!(ICDDX(1)=3149) S ICDPDFLG=1
+"RTN","ICDTBL6E",96,0)
+ .I ICDDX(1)=3150!(ICDDX(1)=9787) S ICDPDFLG=1
+"RTN","ICDTBL6E",97,0)
+ I $G(ICDPDFLG)<1 D DRG684 Q
+"RTN","ICDTBL6E",98,0)
+ S ICDRG=999
+"RTN","ICDTBL6E",99,0)
+ S ICDRG=$S('$D(ICDPDRG(691)):"",$D(ICDOP(" 98.51"))&(ICDMCC>0):691,$D(ICDOP(" 98.51")):692,1:ICDRG)
+"RTN","ICDTBL6E",100,0)
+ I "691^692"[ICDRG Q
+"RTN","ICDTBL6E",101,0)
+ S ICDRG=$S('$D(ICDPDRG(691)):"",ICDMCC=2:693,1:694)
+"RTN","ICDTBL6E",102,0)
+ Q
+"RTN","ICDTBL6E",103,0)
+DRG692 D DRG691 Q
+"RTN","ICDTBL6E",104,0)
+DRG693 D DRG691 Q
+"RTN","ICDTBL6E",105,0)
+DRG694 D DRG691 Q
+"RTN","ICDTBL6E",106,0)
+DRG695 ;
+"RTN","ICDTBL6E",107,0)
+DRG696 S ICDRG=$S(ICDMCC=2:695,1:696) Q
+"RTN","ICDTBL6E",108,0)
+DRG697 S ICDRG=697 Q
+"RTN","ICDTBL6E",109,0)
+DRG698 ;
+"RTN","ICDTBL6E",110,0)
+DRG699 S ICDRG=$S(ICDMCC=2:698,ICDMCC=1:699,1:700) Q
+"RTN","ICDTBL6E",111,0)
+ Q
+"VER")
+8.0^22.0
+"BLD",9435,6)
+^63
+**END**
+**END**
diff --git a/Packages/DRG Grouper/Patches/ICD_18.0_70/ICD-18_SEQ-63_PAT-70.TXT b/Packages/DRG Grouper/Patches/ICD_18.0_70/ICD-18_SEQ-63_PAT-70.TXT
new file mode 100644
index 0000000..5c1348d
--- /dev/null
+++ b/Packages/DRG Grouper/Patches/ICD_18.0_70/ICD-18_SEQ-63_PAT-70.TXT
@@ -0,0 +1,250 @@
+$TXT Created by GILMORE,JEREMY at MNTVBB.FO-ALBANY.DOMAIN.EXT (KIDS) on Wednesday, 06/19/13 at 08:56
+=============================================================================
+Run Date: NOV 12, 2013 Designation: ICD*18*70
+Package : ICD - DRG GROUPER Priority: Mandatory
+Version : 18 SEQ #63 Status: Released
+ Compliance Date: DEC 13, 2013
+=============================================================================
+
+Associated patches: (v)ICD*18*50 <<= must be installed BEFORE `ICD*18*70'
+ (v)ICD*18*62 <<= must be installed BEFORE `ICD*18*70'
+ (v)ICD*18*69 <<= must be installed BEFORE `ICD*18*70'
+
+Subject: VARIOUS DRG GROUPER FIXES
+
+Category:
+ - Routine
+
+Description:
+============
+
+ The DRG (Diagnostic Related Group) Grouper is used to compute
+ and display the DRG for a patient based on that patient's diagnoses
+ and any operations/procedures performed. It uses a mixture of
+ formulas, Diagnosis and Operation identifiers, and tables that rely
+ on data added to the DRG file (#80.2), the ICD DIAGNOSIS file (#80)
+ and the ICD OPERATION/PROCEDURE file (#80.1). These files,
+ the date, and the age of the patient determine which codes are
+ needed to calculate the proper DRG.
+
+ This patch corrects various DRG calculations.
+
+ ASSOCIATED REMEDY TICKETS:
+ ==========================
+ 1)INC000000707912 - Coder identified 4 instances which vista is
+ calculating DRG incorrectly
+ Duplicates:
+ INC000000719266 - Per Quadra Med the DRG needs to be updated within
+ Lexicon
+ INC000000769386 - DRG418 miscalculating to 412 in VistA
+ INC000000800774 - DRG Discrepancy between VistA & Quantim
+ INC000000832987 - DRG Grouper - Other: DRG in Quantim: 418
+ DRG in DHCP: 412
+ INC000000858312 - DRG Grouper - Other: Lap chole drgs not calculating
+ correctly
+ INC000000861107 - DRG Grouper - Other
+ INC000000865892 - DRG Grouper - Other
+ 2)INC000000742705 - Upload from Quantim to VIP, the DRG changes
+ Duplicates:
+ INC000000745406 - DRG discrepancy between Quantim & VistA
+ INC000000745801 - DRG's not calculating correctly
+ 3)INC000000772738 - DRG discrepancy between VistA & Quantim
+ Duplicates:
+ INC000000748076 - DRG discrepancy between Quantim & VistA
+ INC000000863522 - DRG Grouper - 464 vs 496
+ 4)INC000000772768 - DRG discrepancy between VistA & Quantim
+ Duplicate:
+ INC000000799326 - DRG Grouper - Other:
+ 5)INC000000774277 - DRG MISCALCULATION
+ 6)INC000000839014 - DRG Grouper - 682 vs 684
+ 7)INC000000859110 - DRG Grouper - DRG Ungroupable:
+
+
+ ASSOCIATED NSR's:
+ =================
+ N/A
+
+
+ PARTICIPATING TEST SITES:
+ =========================
+ HONOLULU, HI
+ TAMPA, FL
+ UPSTATE NEW YORK HCS
+
+
+ REMEDY OVERVIEW:
+ ================
+ 1) INC000000707912 - Coder identified 4 instances which vista is
+ calculating DRG incorrectly
+
+ Problem:
+ ========
+ DRG 416 is incorrectly calculating to DRG 413 in VistA.
+
+ Solution:
+ =========
+ Updated routines ICDTBL4D and ICDTBL4E to account for correct
+ diagnosis codes.
+
+
+ 2) INC000000742705 - Upload from Quantim to VIP, the DRG changes
+
+ Problem:
+ ========
+ DRG 419 is incorrectly calculating to DRG 413 in VistA.
+
+ Solution:
+ =========
+ Updated routines ICDTBL4D and ICDTBL4E to account for correct
+ diagnosis codes.
+
+
+ 3) INC000000772738 - DRG discrepancy between VistA & Quantim
+
+ Problem:
+ ========
+ DRG 465 is incorrectly calculating to DRG 497 in VistA.
+
+ Solution:
+ =========
+ Updated routines ICDTBL4D and ICDTBL4E to account for correct
+ diagnosis codes.
+
+
+ 4) INC000000772768 - DRG discrepancy between VistA & Quantim
+
+ Problem:
+ ========
+ DRG 616 is incorrectly calculating to DRG 628 in VistA.
+
+ Solution:
+ =========
+ Updated routine ICDDRG10 to account for the related DRG's that are
+ associated with any operation/procedure codes used in the DRG
+ calculation.
+
+
+ 5) INC000000774277 - DRG MISCALCULATION
+
+ Problem:
+ ========
+ DRG 491 is incorrectly calculating to DRG 458 in VistA.
+
+ Solution:
+ =========
+ Updated routines ICDTBL4D and ICDTBL4E to account for correct
+ diagnosis codes.
+
+
+ 6) INC000000839014 - DRG Grouper - 682 vs 684
+
+ Problem:
+ ========
+ DRG 682 is incorrectly calculating to DRG 684 in VistA.
+
+ Solution:
+ =========
+ Updated routine ICDTBL6E to account for the correct diagnosis codes.
+
+
+ 7) INC000000859110 - DRG Grouper - DRG Ungroupable:
+
+ Problem:
+ ========
+ DRG 683 is incorrectly calculating to DRG 999 in VistA.
+
+ Solution:
+ =========
+ Updated routine ICDTBL6E to account for the correct diagnosis codes.
+
+
+ INSTALLATION INSTRUCTIONS:
+ ===========================
+ This patch may be run with users on the system. However, it would be
+ preferable if Medical Records coders were off the system.
+
+ Installation will take less than 5 minutes.
+
+ 1. Use the INSTALL/CHECK MESSAGE option on the PackMan menu to unload
+ the KIDS distribution included with this message.
+ NOTE: If the required patches are not installed, the transport
+ global will be removed. If the transport global is removed you will
+ need to repeat this step.
+
+ 2. From the Kernel Installation and Distribution System Menu, select
+ the Installation menu.
+
+ 3. From this menu, you may elect to use the following options
+ (when prompted for INSTALL NAME, enter ICD*18.0*70):
+ a. Compare Transport Global to Current System - this option will
+ allow you to view all changes that will be made when the patch
+ is installed. It compares all components of the patch
+ (routines, DDs, templates, etc.).
+ b. Verify Checksums in Transport Global - this option will
+ allow you to ensure the integrity of the routines that are in
+ the transport global.
+ c. Print Transport Global - this option will allow you to view the
+ components of the KIDS build.
+ d. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DD's or templates.
+
+ 4. Use the Install Package(s) option and select the package
+ ICD*18.0*70.
+
+ 5. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
+ NO//', respond No.
+
+ 6. When prompted, 'Want to DISABLE Scheduled Options, Menu Options, and
+ Protocols? YES//', respond Yes.
+
+ When prompted, 'Enter options you wish to mark as 'Out Of Order':',
+ enter:
+
+ PTF Menu [DG PTF MENU]
+
+ When prompted, 'Enter protocols you wish to mark as 'Out Of
+ Order':', press enter.
+
+ 7. Following installation of this patch, it is necessary to run the
+ Update Transfer DRG's for Current FY [DG PTF UPDATE TRANSFER
+ DRGs] option in order to make the transfer DRGs correspond to
+ the appropriate grouper. This option updates/recalculates the
+ transfer DRGs for PTF records opened during the current fiscal
+ year. The option is locked with the DG PTFSUP security key.
+ The Menu path is PTF Menu/Update DRG Information Menu/Update
+ Transfer DRGs for current FY.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;18.0;DRG Grouper;**[Patch List]**;Oct 20, 2000;Build 6
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: ICDDRG10
+ Before: B1924617 After: B1926153 **24,31,50,70**
+Routine Name: ICDTBL4D
+ Before: B25052268 After: B43610232 **56,55,62,70**
+Routine Name: ICDTBL4E
+ Before: B25052485 After: B43610455 **65,70**
+Routine Name: ICDTBL6D
+ Before: B10478160 After: B11043717 **56,55,69,70**
+Routine Name: ICDTBL6E
+ Before: B10478169 After: B13576530 **65,69,70**
+
+Routine list of preceding patches: 50, 62, 69
+
+=============================================================================
+User Information:
+Entered By : GILMORE,JEREMY Date Entered : JAN 24, 2013
+Completed By: LEANORD,TATIANA Date Completed: NOV 05, 2013
+Released By : DANE,SIDNEY Date Released : NOV 12, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/DRG Grouper/Patches/ICD_18.0_73/ICD-18_SEQ-62_PAT-73.TXT b/Packages/DRG Grouper/Patches/ICD_18.0_73/ICD-18_SEQ-62_PAT-73.TXT
new file mode 100644
index 0000000..7b2b282
--- /dev/null
+++ b/Packages/DRG Grouper/Patches/ICD_18.0_73/ICD-18_SEQ-62_PAT-73.TXT
@@ -0,0 +1,66 @@
+
+=============================================================================
+Run Date: OCT 21, 2013 Designation: ICD*18*73
+Package : ICD - DRG GROUPER Priority: Mandatory
+Version : 18 SEQ #62 Status: Released
+ Compliance Date: OCT 28, 2013
+=============================================================================
+
+Associated patches: (v)LEX*2*91 <<= must be installed BEFORE `ICD*18*73'
+
+Subject: Code Set FY14 1st Qtr Update
+
+Category:
+ - Informational
+
+Description:
+============
+
+ This patch is an informational patch and contains no routines, data, or
+ data dictionaries. The data for this patch is exported with the Lexicon
+ data in patch LEX*2.0*93. Patch LEX*2.0*93 requires that patch
+ LEX*2.0*91 be previously installed.
+
+ LEX*2.0*93 writes to the following files:
+
+ ICD OPERATION/PROCEDURES #80.1 ^ICD0( ICR 4486
+
+ ENHANCEMENTS
+ ============
+
+ FY14 1st Quarter Update
+
+ ICD Procedure Additions
+ -----------------------
+
+ Effective Oct 01, 2013 (4 Codes)
+ 00.93 14.81 14.82 14.83
+
+ REMEDY TICKETS:
+ ==============
+
+ None
+
+ INSTALLATION INSTRUCTIONS
+ =========================
+
+ Please refer to the patch description for LEX*2.0*93 for instructions
+ for retrieving the data global host file and installing this patch.
+
+
+Routine Information:
+====================
+No routines included.
+
+=============================================================================
+User Information:
+Entered By : ROWE,KIMBALL Date Entered : AUG 29, 2013
+Completed By: CARTER,BRUCE C Date Completed: OCT 17, 2013
+Released By : BARFIELD,RICHARD Date Released : OCT 21, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/DSS Extracts/Patches/ECX_3.0_136/.gitignore b/Packages/DSS Extracts/Patches/ECX_3.0_136/.gitignore
new file mode 100644
index 0000000..ab79893
--- /dev/null
+++ b/Packages/DSS Extracts/Patches/ECX_3.0_136/.gitignore
@@ -0,0 +1 @@
+ECX-3_SEQ-126_PAT-136.KID
diff --git a/Packages/DSS Extracts/Patches/ECX_3.0_144/ECX-3_SEQ-131_PAT-144.KIDS b/Packages/DSS Extracts/Patches/ECX_3.0_144/ECX-3_SEQ-131_PAT-144.KIDS
new file mode 100644
index 0000000..39c32e6
--- /dev/null
+++ b/Packages/DSS Extracts/Patches/ECX_3.0_144/ECX-3_SEQ-131_PAT-144.KIDS
@@ -0,0 +1,27240 @@
+EMERGENCY Released ECX*3*144 SEQ #131
+Extracted from mail message
+**KIDS**:ECX*3.0*144^
+
+**INSTALL NAME**
+ECX*3.0*144
+"BLD",8267,0)
+ECX*3.0*144^DSS EXTRACTS^0^3130903^y
+"BLD",8267,4,0)
+^9.64PA^728.44^17
+"BLD",8267,4,727.802,0)
+727.802
+"BLD",8267,4,727.802,2,0)
+^9.641^727.802^1
+"BLD",8267,4,727.802,2,727.802,0)
+ADMISSION EXTRACT (File-top level)
+"BLD",8267,4,727.802,2,727.802,1,0)
+^9.6411^96^4
+"BLD",8267,4,727.802,2,727.802,1,65,0)
+RACE 1
+"BLD",8267,4,727.802,2,727.802,1,94,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.802,2,727.802,1,95,0)
+ENCOUNTER CAMP LEJEUNE
+"BLD",8267,4,727.802,2,727.802,1,96,0)
+ENCOUNTER SC
+"BLD",8267,4,727.802,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.802,224)
+
+"BLD",8267,4,727.809,0)
+727.809
+"BLD",8267,4,727.809,2,0)
+^9.641^727.809^1
+"BLD",8267,4,727.809,2,727.809,0)
+UNIT DOSE LOCAL EXTRACT (File-top level)
+"BLD",8267,4,727.809,2,727.809,1,0)
+^9.6411^18^9
+"BLD",8267,4,727.809,2,727.809,1,18,0)
+DEA, SPECIAL HDLG
+"BLD",8267,4,727.809,2,727.809,1,61,0)
+RACE 1
+"BLD",8267,4,727.809,2,727.809,1,62,0)
+PLACEHOLDER
+"BLD",8267,4,727.809,2,727.809,1,63,0)
+PLACEHOLDER
+"BLD",8267,4,727.809,2,727.809,1,64,0)
+PLACEHOLDER
+"BLD",8267,4,727.809,2,727.809,1,65,0)
+PLACEHOLDER
+"BLD",8267,4,727.809,2,727.809,1,84,0)
+ENCOUNTER SC
+"BLD",8267,4,727.809,2,727.809,1,85,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.809,2,727.809,1,86,0)
+ENCOUNTER CAMP LEJEUNE
+"BLD",8267,4,727.809,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.809,224)
+
+"BLD",8267,4,727.81,0)
+727.81
+"BLD",8267,4,727.81,2,0)
+^9.641^727.81^1
+"BLD",8267,4,727.81,2,727.81,0)
+PRESCRIPTION EXTRACT (File-top level)
+"BLD",8267,4,727.81,2,727.81,1,0)
+^9.6411^28^6
+"BLD",8267,4,727.81,2,727.81,1,28,0)
+DEA, SPECIAL HDLG
+"BLD",8267,4,727.81,2,727.81,1,72,0)
+RACE 1
+"BLD",8267,4,727.81,2,727.81,1,99,0)
+ENCOUNTER SC
+"BLD",8267,4,727.81,2,727.81,1,100,0)
+VIETNAM
+"BLD",8267,4,727.81,2,727.81,1,101,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.81,2,727.81,1,102,0)
+ENCOUNTER CAMP LEJEUNE
+"BLD",8267,4,727.81,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.81,224)
+
+"BLD",8267,4,727.811,0)
+727.811
+"BLD",8267,4,727.811,2,0)
+^9.641^727.811^1
+"BLD",8267,4,727.811,2,727.811,0)
+SURGERY EXTRACT (File-top level)
+"BLD",8267,4,727.811,2,727.811,1,0)
+^9.6411^100^13
+"BLD",8267,4,727.811,2,727.811,1,60,0)
+RACE 1
+"BLD",8267,4,727.811,2,727.811,1,100,0)
+ENCOUNTER SC
+"BLD",8267,4,727.811,2,727.811,1,121,0)
+DATE OF BIRTH
+"BLD",8267,4,727.811,2,727.811,1,122,0)
+VIETNAM
+"BLD",8267,4,727.811,2,727.811,1,123,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.811,2,727.811,1,124,0)
+ENCOUNTER CAMP LEJEUNE
+"BLD",8267,4,727.811,2,727.811,1,125,0)
+CONCURRENT CASE
+"BLD",8267,4,727.811,2,727.811,1,126,0)
+PRINCIPLE POSTOP ICD-10 CODE
+"BLD",8267,4,727.811,2,727.811,1,127,0)
+OTHER POSTOP ICD-10 CODE #1
+"BLD",8267,4,727.811,2,727.811,1,128,0)
+OTHER POSTOP ICD-10 CODE #2
+"BLD",8267,4,727.811,2,727.811,1,129,0)
+OTHER POSTOP ICD-10 CODE #3
+"BLD",8267,4,727.811,2,727.811,1,130,0)
+OTHER POSTOP ICD-10 CODE #4
+"BLD",8267,4,727.811,2,727.811,1,131,0)
+OTHER POSTOP ICD-10 CODE #5
+"BLD",8267,4,727.811,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.811,224)
+
+"BLD",8267,4,727.813,0)
+727.813
+"BLD",8267,4,727.813,2,0)
+^9.641^727.813^1
+"BLD",8267,4,727.813,2,727.813,0)
+LABORATORY EXTRACT (File-top level)
+"BLD",8267,4,727.813,2,727.813,1,0)
+^9.6411^49^2
+"BLD",8267,4,727.813,2,727.813,1,48,0)
+ENCOUNTER SC
+"BLD",8267,4,727.813,2,727.813,1,49,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.813,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.813,224)
+
+"BLD",8267,4,727.814,0)
+727.814
+"BLD",8267,4,727.814,2,0)
+^9.641^727.814^1
+"BLD",8267,4,727.814,2,727.814,0)
+RADIOLOGY EXTRACT (File-top level)
+"BLD",8267,4,727.814,2,727.814,1,0)
+^9.6411^52^3
+"BLD",8267,4,727.814,2,727.814,1,50,0)
+ENCOUNTER SC
+"BLD",8267,4,727.814,2,727.814,1,51,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.814,2,727.814,1,52,0)
+ENCOUNTER CAMP LEJEUNE
+"BLD",8267,4,727.814,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.814,224)
+
+"BLD",8267,4,727.815,0)
+727.815
+"BLD",8267,4,727.815,2,0)
+^9.641^727.815^1
+"BLD",8267,4,727.815,2,727.815,0)
+EVENT CAPTURE LOCAL EXTRACT (File-top level)
+"BLD",8267,4,727.815,2,727.815,1,0)
+^9.6411^122^13
+"BLD",8267,4,727.815,2,727.815,1,73,0)
+RACE 1
+"BLD",8267,4,727.815,2,727.815,1,111,0)
+ENCOUNTER SC
+"BLD",8267,4,727.815,2,727.815,1,112,0)
+VIETNAM
+"BLD",8267,4,727.815,2,727.815,1,113,0)
+PROVIDER #6
+"BLD",8267,4,727.815,2,727.815,1,114,0)
+PROVIDER #6 PERSON CLASS
+"BLD",8267,4,727.815,2,727.815,1,115,0)
+PROVIDER #6 NPI
+"BLD",8267,4,727.815,2,727.815,1,116,0)
+PROVIDER #7
+"BLD",8267,4,727.815,2,727.815,1,117,0)
+PROVIDER #7 PERSON CLASS
+"BLD",8267,4,727.815,2,727.815,1,118,0)
+PROVIDER #7 NPI
+"BLD",8267,4,727.815,2,727.815,1,119,0)
+4CHAR
+"BLD",8267,4,727.815,2,727.815,1,120,0)
+CLINIC IEN
+"BLD",8267,4,727.815,2,727.815,1,121,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.815,2,727.815,1,122,0)
+ENCOUNTER CAMP LEJEUNE
+"BLD",8267,4,727.815,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.815,224)
+
+"BLD",8267,4,727.819,0)
+727.819
+"BLD",8267,4,727.819,2,0)
+^9.641^727.819^1
+"BLD",8267,4,727.819,2,727.819,0)
+IV DETAIL EXTRACT (File-top level)
+"BLD",8267,4,727.819,2,727.819,1,0)
+^9.6411^17^9
+"BLD",8267,4,727.819,2,727.819,1,17,0)
+DEA, SPECIAL HDLG
+"BLD",8267,4,727.819,2,727.819,1,66,0)
+RACE 1
+"BLD",8267,4,727.819,2,727.819,1,67,0)
+PLACEHOLDER
+"BLD",8267,4,727.819,2,727.819,1,68,0)
+PLACEHOLDER
+"BLD",8267,4,727.819,2,727.819,1,69,0)
+PLACEHOLDER
+"BLD",8267,4,727.819,2,727.819,1,70,0)
+PLACEHOLDER
+"BLD",8267,4,727.819,2,727.819,1,89,0)
+ENCOUNTER SC
+"BLD",8267,4,727.819,2,727.819,1,90,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.819,2,727.819,1,91,0)
+ENCOUNTER CAMP LEJEUNE
+"BLD",8267,4,727.819,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.819,224)
+
+"BLD",8267,4,727.824,0)
+727.824
+"BLD",8267,4,727.824,2,0)
+^9.641^727.824^1
+"BLD",8267,4,727.824,2,727.824,0)
+LAB RESULTS EXTRACT (File-top level)
+"BLD",8267,4,727.824,2,727.824,1,0)
+^9.6411^35^3
+"BLD",8267,4,727.824,2,727.824,1,33,0)
+ENCOUNTER SC
+"BLD",8267,4,727.824,2,727.824,1,34,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.824,2,727.824,1,35,0)
+ENCOUNTER CAMP LEJEUNE
+"BLD",8267,4,727.824,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.824,224)
+
+"BLD",8267,4,727.825,0)
+727.825
+"BLD",8267,4,727.825,2,0)
+^9.641^727.825^1
+"BLD",8267,4,727.825,2,727.825,0)
+QUASAR EXTRACT (File-top level)
+"BLD",8267,4,727.825,2,727.825,1,0)
+^9.6411^122^13
+"BLD",8267,4,727.825,2,727.825,1,73,0)
+RACE 1
+"BLD",8267,4,727.825,2,727.825,1,111,0)
+ENCOUNTER SC
+"BLD",8267,4,727.825,2,727.825,1,112,0)
+VIETNAM
+"BLD",8267,4,727.825,2,727.825,1,113,0)
+PROVIDER #6
+"BLD",8267,4,727.825,2,727.825,1,114,0)
+PROVIDER #6 PERSON CLASS
+"BLD",8267,4,727.825,2,727.825,1,115,0)
+PROVIDER #6 NPI
+"BLD",8267,4,727.825,2,727.825,1,116,0)
+PROVIDER #7
+"BLD",8267,4,727.825,2,727.825,1,117,0)
+PROVIDER #7 PERSON CLASS
+"BLD",8267,4,727.825,2,727.825,1,118,0)
+PROVIDER #7 NPI
+"BLD",8267,4,727.825,2,727.825,1,119,0)
+4CHAR
+"BLD",8267,4,727.825,2,727.825,1,120,0)
+CLINIC IEN
+"BLD",8267,4,727.825,2,727.825,1,121,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.825,2,727.825,1,122,0)
+ENCOUNTER CAMP LEJEUNE
+"BLD",8267,4,727.825,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.825,224)
+
+"BLD",8267,4,727.826,0)
+727.826
+"BLD",8267,4,727.826,2,0)
+^9.641^727.826^1
+"BLD",8267,4,727.826,2,727.826,0)
+PROSTHETICS EXTRACT (File-top level)
+"BLD",8267,4,727.826,2,727.826,1,0)
+^9.6411^100^5
+"BLD",8267,4,727.826,2,727.826,1,66,0)
+RACE 1
+"BLD",8267,4,727.826,2,727.826,1,97,0)
+ENCOUNTER SC
+"BLD",8267,4,727.826,2,727.826,1,98,0)
+VIETNAM
+"BLD",8267,4,727.826,2,727.826,1,99,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.826,2,727.826,1,100,0)
+ENCOUNTER CAMP LEJEUNE
+"BLD",8267,4,727.826,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.826,224)
+
+"BLD",8267,4,727.827,0)
+727.827
+"BLD",8267,4,727.827,2,0)
+^9.641^727.827^1
+"BLD",8267,4,727.827,2,727.827,0)
+CLINIC EXTRACT (File-top level)
+"BLD",8267,4,727.827,2,727.827,1,0)
+^9.6411^126^11
+"BLD",8267,4,727.827,2,727.827,1,74,0)
+RACE 1
+"BLD",8267,4,727.827,2,727.827,1,117,0)
+ENCOUNTER SC
+"BLD",8267,4,727.827,2,727.827,1,118,0)
+VIETNAM
+"BLD",8267,4,727.827,2,727.827,1,119,0)
+SECONDARY PROVIDER #6
+"BLD",8267,4,727.827,2,727.827,1,120,0)
+SECONDARY PROVIDER #6 PC
+"BLD",8267,4,727.827,2,727.827,1,121,0)
+SECONDARY PROVIDER #6 NPI
+"BLD",8267,4,727.827,2,727.827,1,122,0)
+SECONDARY PROVIDER #7
+"BLD",8267,4,727.827,2,727.827,1,123,0)
+SECONDARY PROVIDER #7 PC
+"BLD",8267,4,727.827,2,727.827,1,124,0)
+SECONDARY PROVIDER #7 NPI
+"BLD",8267,4,727.827,2,727.827,1,125,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.827,2,727.827,1,126,0)
+ENCOUNTER CAMP LEJEUNE
+"BLD",8267,4,727.827,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.827,224)
+
+"BLD",8267,4,727.829,0)
+727.829
+"BLD",8267,4,727.829,2,0)
+^9.641^727.829^1
+"BLD",8267,4,727.829,2,727.829,0)
+BLOOD BANK EXTRACT (File-top level)
+"BLD",8267,4,727.829,2,727.829,1,0)
+^9.6411^31^1
+"BLD",8267,4,727.829,2,727.829,1,31,0)
+ENCOUNTER SC
+"BLD",8267,4,727.829,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.829,224)
+
+"BLD",8267,4,727.832,0)
+727.832
+"BLD",8267,4,727.832,2,0)
+^9.641^727.832^1
+"BLD",8267,4,727.832,2,727.832,0)
+NUTRITION EXTRACT (File-top level)
+"BLD",8267,4,727.832,2,727.832,1,0)
+^9.6411^19^1
+"BLD",8267,4,727.832,2,727.832,1,19,0)
+RACE 1
+"BLD",8267,4,727.832,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.832,224)
+
+"BLD",8267,4,727.833,0)
+727.833
+"BLD",8267,4,727.833,2,0)
+^9.641^727.833^1
+"BLD",8267,4,727.833,2,727.833,0)
+BCMA EXTRACT (File-top level)
+"BLD",8267,4,727.833,2,727.833,1,0)
+^9.6411^44^11
+"BLD",8267,4,727.833,2,727.833,1,30,0)
+COMPONENT DOSE ORDERED
+"BLD",8267,4,727.833,2,727.833,1,31,0)
+COMPONENT DOSE GIVEN
+"BLD",8267,4,727.833,2,727.833,1,44,0)
+DEA, SPECIAL HDLG
+"BLD",8267,4,727.833,2,727.833,1,49,0)
+ENCOUNTER NUMBER
+"BLD",8267,4,727.833,2,727.833,1,58,0)
+RACE 1
+"BLD",8267,4,727.833,2,727.833,1,81,0)
+ENCOUNTER SC
+"BLD",8267,4,727.833,2,727.833,1,82,0)
+IV ADDITIVE COST
+"BLD",8267,4,727.833,2,727.833,1,83,0)
+IV SOLUTION COST
+"BLD",8267,4,727.833,2,727.833,1,84,0)
+DRUG COST
+"BLD",8267,4,727.833,2,727.833,1,85,0)
+CAMP LEJEUNE STATUS
+"BLD",8267,4,727.833,2,727.833,1,86,0)
+ENCOUNTER CAMP LEJEUNE
+"BLD",8267,4,727.833,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,727.833,224)
+
+"BLD",8267,4,728.44,0)
+728.44
+"BLD",8267,4,728.44,2,0)
+^9.641^728.44^1
+"BLD",8267,4,728.44,2,728.44,0)
+CLINICS AND STOP CODES (File-top level)
+"BLD",8267,4,728.44,2,728.44,1,0)
+^9.6411^7^2
+"BLD",8267,4,728.44,2,728.44,1,7,0)
+NATIONAL CODE
+"BLD",8267,4,728.44,2,728.44,1,12,0)
+RECORD LAST SYNCHED
+"BLD",8267,4,728.44,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,728.44,224)
+
+"BLD",8267,4,728.441,0)
+728.441
+"BLD",8267,4,728.441,2,0)
+^9.641^728.441^1
+"BLD",8267,4,728.441,2,728.441,0)
+NATIONAL CLINIC (File-top level)
+"BLD",8267,4,728.441,2,728.441,1,0)
+^9.6411^2^2
+"BLD",8267,4,728.441,2,728.441,1,2,0)
+LONG DESCRIPTION
+"BLD",8267,4,728.441,2,728.441,1,3,0)
+INACTIVATION DATE
+"BLD",8267,4,728.441,222)
+y^n^p^^^^n^^n
+"BLD",8267,4,728.441,224)
+
+"BLD",8267,4,"APDD",727.802,727.802)
+
+"BLD",8267,4,"APDD",727.802,727.802,65)
+
+"BLD",8267,4,"APDD",727.802,727.802,94)
+
+"BLD",8267,4,"APDD",727.802,727.802,95)
+
+"BLD",8267,4,"APDD",727.802,727.802,96)
+
+"BLD",8267,4,"APDD",727.809,727.809)
+
+"BLD",8267,4,"APDD",727.809,727.809,18)
+
+"BLD",8267,4,"APDD",727.809,727.809,61)
+
+"BLD",8267,4,"APDD",727.809,727.809,62)
+
+"BLD",8267,4,"APDD",727.809,727.809,63)
+
+"BLD",8267,4,"APDD",727.809,727.809,64)
+
+"BLD",8267,4,"APDD",727.809,727.809,65)
+
+"BLD",8267,4,"APDD",727.809,727.809,84)
+
+"BLD",8267,4,"APDD",727.809,727.809,85)
+
+"BLD",8267,4,"APDD",727.809,727.809,86)
+
+"BLD",8267,4,"APDD",727.81,727.81)
+
+"BLD",8267,4,"APDD",727.81,727.81,28)
+
+"BLD",8267,4,"APDD",727.81,727.81,72)
+
+"BLD",8267,4,"APDD",727.81,727.81,99)
+
+"BLD",8267,4,"APDD",727.81,727.81,100)
+
+"BLD",8267,4,"APDD",727.81,727.81,101)
+
+"BLD",8267,4,"APDD",727.81,727.81,102)
+
+"BLD",8267,4,"APDD",727.811,727.811)
+
+"BLD",8267,4,"APDD",727.811,727.811,60)
+
+"BLD",8267,4,"APDD",727.811,727.811,100)
+
+"BLD",8267,4,"APDD",727.811,727.811,121)
+
+"BLD",8267,4,"APDD",727.811,727.811,122)
+
+"BLD",8267,4,"APDD",727.811,727.811,123)
+
+"BLD",8267,4,"APDD",727.811,727.811,124)
+
+"BLD",8267,4,"APDD",727.811,727.811,125)
+
+"BLD",8267,4,"APDD",727.811,727.811,126)
+
+"BLD",8267,4,"APDD",727.811,727.811,127)
+
+"BLD",8267,4,"APDD",727.811,727.811,128)
+
+"BLD",8267,4,"APDD",727.811,727.811,129)
+
+"BLD",8267,4,"APDD",727.811,727.811,130)
+
+"BLD",8267,4,"APDD",727.811,727.811,131)
+
+"BLD",8267,4,"APDD",727.813,727.813)
+
+"BLD",8267,4,"APDD",727.813,727.813,48)
+
+"BLD",8267,4,"APDD",727.813,727.813,49)
+
+"BLD",8267,4,"APDD",727.814,727.814)
+
+"BLD",8267,4,"APDD",727.814,727.814,50)
+
+"BLD",8267,4,"APDD",727.814,727.814,51)
+
+"BLD",8267,4,"APDD",727.814,727.814,52)
+
+"BLD",8267,4,"APDD",727.815,727.815)
+
+"BLD",8267,4,"APDD",727.815,727.815,73)
+
+"BLD",8267,4,"APDD",727.815,727.815,111)
+
+"BLD",8267,4,"APDD",727.815,727.815,112)
+
+"BLD",8267,4,"APDD",727.815,727.815,113)
+
+"BLD",8267,4,"APDD",727.815,727.815,114)
+
+"BLD",8267,4,"APDD",727.815,727.815,115)
+
+"BLD",8267,4,"APDD",727.815,727.815,116)
+
+"BLD",8267,4,"APDD",727.815,727.815,117)
+
+"BLD",8267,4,"APDD",727.815,727.815,118)
+
+"BLD",8267,4,"APDD",727.815,727.815,119)
+
+"BLD",8267,4,"APDD",727.815,727.815,120)
+
+"BLD",8267,4,"APDD",727.815,727.815,121)
+
+"BLD",8267,4,"APDD",727.815,727.815,122)
+
+"BLD",8267,4,"APDD",727.819,727.819)
+
+"BLD",8267,4,"APDD",727.819,727.819,17)
+
+"BLD",8267,4,"APDD",727.819,727.819,66)
+
+"BLD",8267,4,"APDD",727.819,727.819,67)
+
+"BLD",8267,4,"APDD",727.819,727.819,68)
+
+"BLD",8267,4,"APDD",727.819,727.819,69)
+
+"BLD",8267,4,"APDD",727.819,727.819,70)
+
+"BLD",8267,4,"APDD",727.819,727.819,89)
+
+"BLD",8267,4,"APDD",727.819,727.819,90)
+
+"BLD",8267,4,"APDD",727.819,727.819,91)
+
+"BLD",8267,4,"APDD",727.824,727.824)
+
+"BLD",8267,4,"APDD",727.824,727.824,33)
+
+"BLD",8267,4,"APDD",727.824,727.824,34)
+
+"BLD",8267,4,"APDD",727.824,727.824,35)
+
+"BLD",8267,4,"APDD",727.825,727.825)
+
+"BLD",8267,4,"APDD",727.825,727.825,73)
+
+"BLD",8267,4,"APDD",727.825,727.825,111)
+
+"BLD",8267,4,"APDD",727.825,727.825,112)
+
+"BLD",8267,4,"APDD",727.825,727.825,113)
+
+"BLD",8267,4,"APDD",727.825,727.825,114)
+
+"BLD",8267,4,"APDD",727.825,727.825,115)
+
+"BLD",8267,4,"APDD",727.825,727.825,116)
+
+"BLD",8267,4,"APDD",727.825,727.825,117)
+
+"BLD",8267,4,"APDD",727.825,727.825,118)
+
+"BLD",8267,4,"APDD",727.825,727.825,119)
+
+"BLD",8267,4,"APDD",727.825,727.825,120)
+
+"BLD",8267,4,"APDD",727.825,727.825,121)
+
+"BLD",8267,4,"APDD",727.825,727.825,122)
+
+"BLD",8267,4,"APDD",727.826,727.826)
+
+"BLD",8267,4,"APDD",727.826,727.826,66)
+
+"BLD",8267,4,"APDD",727.826,727.826,97)
+
+"BLD",8267,4,"APDD",727.826,727.826,98)
+
+"BLD",8267,4,"APDD",727.826,727.826,99)
+
+"BLD",8267,4,"APDD",727.826,727.826,100)
+
+"BLD",8267,4,"APDD",727.827,727.827)
+
+"BLD",8267,4,"APDD",727.827,727.827,74)
+
+"BLD",8267,4,"APDD",727.827,727.827,117)
+
+"BLD",8267,4,"APDD",727.827,727.827,118)
+
+"BLD",8267,4,"APDD",727.827,727.827,119)
+
+"BLD",8267,4,"APDD",727.827,727.827,120)
+
+"BLD",8267,4,"APDD",727.827,727.827,121)
+
+"BLD",8267,4,"APDD",727.827,727.827,122)
+
+"BLD",8267,4,"APDD",727.827,727.827,123)
+
+"BLD",8267,4,"APDD",727.827,727.827,124)
+
+"BLD",8267,4,"APDD",727.827,727.827,125)
+
+"BLD",8267,4,"APDD",727.827,727.827,126)
+
+"BLD",8267,4,"APDD",727.829,727.829)
+
+"BLD",8267,4,"APDD",727.829,727.829,31)
+
+"BLD",8267,4,"APDD",727.832,727.832)
+
+"BLD",8267,4,"APDD",727.832,727.832,19)
+
+"BLD",8267,4,"APDD",727.833,727.833)
+
+"BLD",8267,4,"APDD",727.833,727.833,30)
+
+"BLD",8267,4,"APDD",727.833,727.833,31)
+
+"BLD",8267,4,"APDD",727.833,727.833,44)
+
+"BLD",8267,4,"APDD",727.833,727.833,49)
+
+"BLD",8267,4,"APDD",727.833,727.833,58)
+
+"BLD",8267,4,"APDD",727.833,727.833,81)
+
+"BLD",8267,4,"APDD",727.833,727.833,82)
+
+"BLD",8267,4,"APDD",727.833,727.833,83)
+
+"BLD",8267,4,"APDD",727.833,727.833,84)
+
+"BLD",8267,4,"APDD",727.833,727.833,85)
+
+"BLD",8267,4,"APDD",727.833,727.833,86)
+
+"BLD",8267,4,"APDD",728.44,728.44)
+
+"BLD",8267,4,"APDD",728.44,728.44,7)
+
+"BLD",8267,4,"APDD",728.44,728.44,12)
+
+"BLD",8267,4,"APDD",728.441,728.441)
+
+"BLD",8267,4,"APDD",728.441,728.441,2)
+
+"BLD",8267,4,"APDD",728.441,728.441,3)
+
+"BLD",8267,4,"B",727.802,727.802)
+
+"BLD",8267,4,"B",727.809,727.809)
+
+"BLD",8267,4,"B",727.81,727.81)
+
+"BLD",8267,4,"B",727.811,727.811)
+
+"BLD",8267,4,"B",727.813,727.813)
+
+"BLD",8267,4,"B",727.814,727.814)
+
+"BLD",8267,4,"B",727.815,727.815)
+
+"BLD",8267,4,"B",727.819,727.819)
+
+"BLD",8267,4,"B",727.824,727.824)
+
+"BLD",8267,4,"B",727.825,727.825)
+
+"BLD",8267,4,"B",727.826,727.826)
+
+"BLD",8267,4,"B",727.827,727.827)
+
+"BLD",8267,4,"B",727.829,727.829)
+
+"BLD",8267,4,"B",727.832,727.832)
+
+"BLD",8267,4,"B",727.833,727.833)
+
+"BLD",8267,4,"B",728.44,728.44)
+
+"BLD",8267,4,"B",728.441,728.441)
+
+"BLD",8267,6.3)
+9
+"BLD",8267,"ABPKG")
+n
+"BLD",8267,"INIT")
+POST^ECX3P144
+"BLD",8267,"KRN",0)
+^9.67PA^779.2^20
+"BLD",8267,"KRN",.4,0)
+.4
+"BLD",8267,"KRN",.401,0)
+.401
+"BLD",8267,"KRN",.401,"NM",0)
+^9.68A^1^1
+"BLD",8267,"KRN",.401,"NM",1,0)
+ECX CLINIC CODE FILE #728.441^728.441^0
+"BLD",8267,"KRN",.401,"NM","B","ECX CLINIC CODE FILE #728.441",1)
+
+"BLD",8267,"KRN",.402,0)
+.402
+"BLD",8267,"KRN",.403,0)
+.403
+"BLD",8267,"KRN",.5,0)
+.5
+"BLD",8267,"KRN",.84,0)
+.84
+"BLD",8267,"KRN",3.6,0)
+3.6
+"BLD",8267,"KRN",3.8,0)
+3.8
+"BLD",8267,"KRN",9.2,0)
+9.2
+"BLD",8267,"KRN",9.8,0)
+9.8
+"BLD",8267,"KRN",9.8,"NM",0)
+^9.68A^59^56
+"BLD",8267,"KRN",9.8,"NM",1,0)
+ECX3P144^^0^B63166716
+"BLD",8267,"KRN",9.8,"NM",3,0)
+ECXTRAC^^0^B97271442
+"BLD",8267,"KRN",9.8,"NM",5,0)
+ECXUTL3^^0^B94009566
+"BLD",8267,"KRN",9.8,"NM",6,0)
+ECXPURG^^0^B27702088
+"BLD",8267,"KRN",9.8,"NM",7,0)
+ECXPURG1^^0^B38351530
+"BLD",8267,"KRN",9.8,"NM",8,0)
+ECXUTL^^0^B53992756
+"BLD",8267,"KRN",9.8,"NM",9,0)
+ECXSCLD^^0^B220306894
+"BLD",8267,"KRN",9.8,"NM",10,0)
+ECXSCLD1^^0^B14959984
+"BLD",8267,"KRN",9.8,"NM",11,0)
+ECXBCM^^0^B87281360
+"BLD",8267,"KRN",9.8,"NM",12,0)
+ECXUD^^0^B62950781
+"BLD",8267,"KRN",9.8,"NM",13,0)
+ECXTRANS^^0^B59881332
+"BLD",8267,"KRN",9.8,"NM",14,0)
+ECXAPRO^^0^B58811063
+"BLD",8267,"KRN",9.8,"NM",15,0)
+ECXAPRO2^^0^B27501495
+"BLD",8267,"KRN",9.8,"NM",16,0)
+ECXSURG^^0^B76612966
+"BLD",8267,"KRN",9.8,"NM",17,0)
+ECXSURG1^^0^B21879740
+"BLD",8267,"KRN",9.8,"NM",18,0)
+ECXSTOP^^0^B13978412
+"BLD",8267,"KRN",9.8,"NM",19,0)
+ECXSCX3^^0^B21200160
+"BLD",8267,"KRN",9.8,"NM",20,0)
+ECXSCXN^^0^B86877891
+"BLD",8267,"KRN",9.8,"NM",21,0)
+ECXSCX2^^0^B9845162
+"BLD",8267,"KRN",9.8,"NM",22,0)
+ECXQSR^^0^B61223139
+"BLD",8267,"KRN",9.8,"NM",23,0)
+ECXQSR1^^0^B16250505
+"BLD",8267,"KRN",9.8,"NM",24,0)
+ECXEC^^0^B75634343
+"BLD",8267,"KRN",9.8,"NM",25,0)
+ECXPRO^^0^B45721055
+"BLD",8267,"KRN",9.8,"NM",26,0)
+ECXOPRX^^0^B64829942
+"BLD",8267,"KRN",9.8,"NM",27,0)
+ECXOPRX1^^0^B9994734
+"BLD",8267,"KRN",9.8,"NM",29,0)
+ECXPIVDN^^0^B58898409
+"BLD",8267,"KRN",9.8,"NM",30,0)
+ECXUTL1^^0^B85232307
+"BLD",8267,"KRN",9.8,"NM",31,0)
+ECXSCX1^^0^B90609071
+"BLD",8267,"KRN",9.8,"NM",32,0)
+ECXSCRP^^0^B30491382
+"BLD",8267,"KRN",9.8,"NM",33,0)
+ECXPROCT^^0^B24695240
+"BLD",8267,"KRN",9.8,"NM",34,0)
+ECXUPRO^^0^B27534272
+"BLD",8267,"KRN",9.8,"NM",35,0)
+ECXUPRO1^^0^B7760162
+"BLD",8267,"KRN",9.8,"NM",36,0)
+ECXCPRO^^0^B35725966
+"BLD",8267,"KRN",9.8,"NM",37,0)
+ECXCPRO1^^0^B17918535
+"BLD",8267,"KRN",9.8,"NM",38,0)
+ECXLPRO^^0^B29349856
+"BLD",8267,"KRN",9.8,"NM",39,0)
+ECXLPRO1^^0^B11630599
+"BLD",8267,"KRN",9.8,"NM",40,0)
+ECXDRUG1^^0^B44065149
+"BLD",8267,"KRN",9.8,"NM",41,0)
+ECXDRUG2^^0^B17542635
+"BLD",8267,"KRN",9.8,"NM",42,0)
+ECXLARPT^^0^B29347556
+"BLD",8267,"KRN",9.8,"NM",43,0)
+ECXAECS^^0^B50961338
+"BLD",8267,"KRN",9.8,"NM",44,0)
+ECXAPRO1^^0^B20521932
+"BLD",8267,"KRN",9.8,"NM",45,0)
+ECXAPHAP^^0^B37750813
+"BLD",8267,"KRN",9.8,"NM",46,0)
+ECXAPHP2^^0^B29677445
+"BLD",8267,"KRN",9.8,"NM",47,0)
+ECXAPHA^^0^B62748333
+"BLD",8267,"KRN",9.8,"NM",48,0)
+ECXSCXN1^^0^B17063992
+"BLD",8267,"KRN",9.8,"NM",49,0)
+ECXKILL1^^0^B14673623
+"BLD",8267,"KRN",9.8,"NM",50,0)
+ECXKILL^^0^B9656369
+"BLD",8267,"KRN",9.8,"NM",51,0)
+ECXADM^^0^B59038752
+"BLD",8267,"KRN",9.8,"NM",52,0)
+ECXPIVD2^^0^B9468858
+"BLD",8267,"KRN",9.8,"NM",53,0)
+ECXLABN^^0^B46690965
+"BLD",8267,"KRN",9.8,"NM",54,0)
+ECXLABR^^0^B22824878
+"BLD",8267,"KRN",9.8,"NM",55,0)
+ECXLBB^^0^B52423335
+"BLD",8267,"KRN",9.8,"NM",56,0)
+ECXLBB1^^0^B27728068
+"BLD",8267,"KRN",9.8,"NM",57,0)
+ECXRAD^^0^B44395156
+"BLD",8267,"KRN",9.8,"NM",58,0)
+ECXUTL2^^0^B72234767
+"BLD",8267,"KRN",9.8,"NM",59,0)
+ECXAPHA2^^0^B51669266
+"BLD",8267,"KRN",9.8,"NM","B","ECX3P144",1)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXADM",51)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXAECS",43)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXAPHA",47)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXAPHA2",59)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXAPHAP",45)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXAPHP2",46)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXAPRO",14)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXAPRO1",44)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXAPRO2",15)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXBCM",11)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXCPRO",36)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXCPRO1",37)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXDRUG1",40)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXDRUG2",41)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXEC",24)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXKILL",50)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXKILL1",49)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXLABN",53)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXLABR",54)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXLARPT",42)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXLBB",55)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXLBB1",56)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXLPRO",38)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXLPRO1",39)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXOPRX",26)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXOPRX1",27)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXPIVD2",52)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXPIVDN",29)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXPRO",25)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXPROCT",33)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXPURG",6)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXPURG1",7)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXQSR",22)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXQSR1",23)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXRAD",57)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXSCLD",9)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXSCLD1",10)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXSCRP",32)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXSCX1",31)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXSCX2",21)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXSCX3",19)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXSCXN",20)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXSCXN1",48)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXSTOP",18)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXSURG",16)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXSURG1",17)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXTRAC",3)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXTRANS",13)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXUD",12)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXUPRO",34)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXUPRO1",35)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXUTL",8)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXUTL1",30)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXUTL2",58)
+
+"BLD",8267,"KRN",9.8,"NM","B","ECXUTL3",5)
+
+"BLD",8267,"KRN",19,0)
+19
+"BLD",8267,"KRN",19,"NM",0)
+^9.68A^3^3
+"BLD",8267,"KRN",19,"NM",1,0)
+ECXDELEF^^0
+"BLD",8267,"KRN",19,"NM",2,0)
+ECXPURG^^0
+"BLD",8267,"KRN",19,"NM",3,0)
+ECX PHA COST^^0
+"BLD",8267,"KRN",19,"NM","B","ECX PHA COST",3)
+
+"BLD",8267,"KRN",19,"NM","B","ECXDELEF",1)
+
+"BLD",8267,"KRN",19,"NM","B","ECXPURG",2)
+
+"BLD",8267,"KRN",19.1,0)
+19.1
+"BLD",8267,"KRN",19.1,"NM",0)
+^9.68A^1^1
+"BLD",8267,"KRN",19.1,"NM",1,0)
+ECX DSS TEST^^0
+"BLD",8267,"KRN",19.1,"NM","B","ECX DSS TEST",1)
+
+"BLD",8267,"KRN",101,0)
+101
+"BLD",8267,"KRN",409.61,0)
+409.61
+"BLD",8267,"KRN",771,0)
+771
+"BLD",8267,"KRN",779.2,0)
+779.2
+"BLD",8267,"KRN",870,0)
+870
+"BLD",8267,"KRN",8989.51,0)
+8989.51
+"BLD",8267,"KRN",8989.52,0)
+8989.52
+"BLD",8267,"KRN",8994,0)
+8994
+"BLD",8267,"KRN","B",.4,.4)
+
+"BLD",8267,"KRN","B",.401,.401)
+
+"BLD",8267,"KRN","B",.402,.402)
+
+"BLD",8267,"KRN","B",.403,.403)
+
+"BLD",8267,"KRN","B",.5,.5)
+
+"BLD",8267,"KRN","B",.84,.84)
+
+"BLD",8267,"KRN","B",3.6,3.6)
+
+"BLD",8267,"KRN","B",3.8,3.8)
+
+"BLD",8267,"KRN","B",9.2,9.2)
+
+"BLD",8267,"KRN","B",9.8,9.8)
+
+"BLD",8267,"KRN","B",19,19)
+
+"BLD",8267,"KRN","B",19.1,19.1)
+
+"BLD",8267,"KRN","B",101,101)
+
+"BLD",8267,"KRN","B",409.61,409.61)
+
+"BLD",8267,"KRN","B",771,771)
+
+"BLD",8267,"KRN","B",779.2,779.2)
+
+"BLD",8267,"KRN","B",870,870)
+
+"BLD",8267,"KRN","B",8989.51,8989.51)
+
+"BLD",8267,"KRN","B",8989.52,8989.52)
+
+"BLD",8267,"KRN","B",8994,8994)
+
+"BLD",8267,"PRET")
+PRETRAN^ECX3P144
+"BLD",8267,"QDEF")
+^^^^^^^^
+"BLD",8267,"QUES",0)
+^9.62^^
+"BLD",8267,"REQB",0)
+^9.611^5^5
+"BLD",8267,"REQB",1,0)
+ECX*3.0*100^1
+"BLD",8267,"REQB",2,0)
+ECX*3.0*123^1
+"BLD",8267,"REQB",3,0)
+ECX*3.0*137^1
+"BLD",8267,"REQB",4,0)
+ECX*3.0*143^1
+"BLD",8267,"REQB",5,0)
+ECX*3.0*142^1
+"BLD",8267,"REQB","B","ECX*3.0*100",1)
+
+"BLD",8267,"REQB","B","ECX*3.0*123",2)
+
+"BLD",8267,"REQB","B","ECX*3.0*137",3)
+
+"BLD",8267,"REQB","B","ECX*3.0*142",5)
+
+"BLD",8267,"REQB","B","ECX*3.0*143",4)
+
+"FIA",727.802)
+ADMISSION EXTRACT
+"FIA",727.802,0)
+^ECX(727.802,
+"FIA",727.802,0,0)
+727.802
+"FIA",727.802,0,1)
+y^n^p^^^^n^^n
+"FIA",727.802,0,10)
+
+"FIA",727.802,0,11)
+
+"FIA",727.802,0,"RLRO")
+
+"FIA",727.802,0,"VR")
+3.0^ECX
+"FIA",727.802,727.802)
+1
+"FIA",727.802,727.802,65)
+
+"FIA",727.802,727.802,94)
+
+"FIA",727.802,727.802,95)
+
+"FIA",727.802,727.802,96)
+
+"FIA",727.809)
+UNIT DOSE LOCAL EXTRACT
+"FIA",727.809,0)
+^ECX(727.809,
+"FIA",727.809,0,0)
+727.809
+"FIA",727.809,0,1)
+y^n^p^^^^n^^n
+"FIA",727.809,0,10)
+
+"FIA",727.809,0,11)
+
+"FIA",727.809,0,"RLRO")
+
+"FIA",727.809,0,"VR")
+3.0^ECX
+"FIA",727.809,727.809)
+1
+"FIA",727.809,727.809,18)
+
+"FIA",727.809,727.809,61)
+
+"FIA",727.809,727.809,62)
+
+"FIA",727.809,727.809,63)
+
+"FIA",727.809,727.809,64)
+
+"FIA",727.809,727.809,65)
+
+"FIA",727.809,727.809,84)
+
+"FIA",727.809,727.809,85)
+
+"FIA",727.809,727.809,86)
+
+"FIA",727.81)
+PRESCRIPTION EXTRACT
+"FIA",727.81,0)
+^ECX(727.81,
+"FIA",727.81,0,0)
+727.81
+"FIA",727.81,0,1)
+y^n^p^^^^n^^n
+"FIA",727.81,0,10)
+
+"FIA",727.81,0,11)
+
+"FIA",727.81,0,"RLRO")
+
+"FIA",727.81,0,"VR")
+3.0^ECX
+"FIA",727.81,727.81)
+1
+"FIA",727.81,727.81,28)
+
+"FIA",727.81,727.81,72)
+
+"FIA",727.81,727.81,99)
+
+"FIA",727.81,727.81,100)
+
+"FIA",727.81,727.81,101)
+
+"FIA",727.81,727.81,102)
+
+"FIA",727.811)
+SURGERY EXTRACT
+"FIA",727.811,0)
+^ECX(727.811,
+"FIA",727.811,0,0)
+727.811
+"FIA",727.811,0,1)
+y^n^p^^^^n^^n
+"FIA",727.811,0,10)
+
+"FIA",727.811,0,11)
+
+"FIA",727.811,0,"RLRO")
+
+"FIA",727.811,0,"VR")
+3.0^ECX
+"FIA",727.811,727.811)
+1
+"FIA",727.811,727.811,60)
+
+"FIA",727.811,727.811,100)
+
+"FIA",727.811,727.811,121)
+
+"FIA",727.811,727.811,122)
+
+"FIA",727.811,727.811,123)
+
+"FIA",727.811,727.811,124)
+
+"FIA",727.811,727.811,125)
+
+"FIA",727.811,727.811,126)
+
+"FIA",727.811,727.811,127)
+
+"FIA",727.811,727.811,128)
+
+"FIA",727.811,727.811,129)
+
+"FIA",727.811,727.811,130)
+
+"FIA",727.811,727.811,131)
+
+"FIA",727.813)
+LABORATORY EXTRACT
+"FIA",727.813,0)
+^ECX(727.813,
+"FIA",727.813,0,0)
+727.813
+"FIA",727.813,0,1)
+y^n^p^^^^n^^n
+"FIA",727.813,0,10)
+
+"FIA",727.813,0,11)
+
+"FIA",727.813,0,"RLRO")
+
+"FIA",727.813,0,"VR")
+3.0^ECX
+"FIA",727.813,727.813)
+1
+"FIA",727.813,727.813,48)
+
+"FIA",727.813,727.813,49)
+
+"FIA",727.814)
+RADIOLOGY EXTRACT
+"FIA",727.814,0)
+^ECX(727.814,
+"FIA",727.814,0,0)
+727.814
+"FIA",727.814,0,1)
+y^n^p^^^^n^^n
+"FIA",727.814,0,10)
+
+"FIA",727.814,0,11)
+
+"FIA",727.814,0,"RLRO")
+
+"FIA",727.814,0,"VR")
+3.0^ECX
+"FIA",727.814,727.814)
+1
+"FIA",727.814,727.814,50)
+
+"FIA",727.814,727.814,51)
+
+"FIA",727.814,727.814,52)
+
+"FIA",727.815)
+EVENT CAPTURE LOCAL EXTRACT
+"FIA",727.815,0)
+^ECX(727.815,
+"FIA",727.815,0,0)
+727.815
+"FIA",727.815,0,1)
+y^n^p^^^^n^^n
+"FIA",727.815,0,10)
+
+"FIA",727.815,0,11)
+
+"FIA",727.815,0,"RLRO")
+
+"FIA",727.815,0,"VR")
+3.0^ECX
+"FIA",727.815,727.815)
+1
+"FIA",727.815,727.815,73)
+
+"FIA",727.815,727.815,111)
+
+"FIA",727.815,727.815,112)
+
+"FIA",727.815,727.815,113)
+
+"FIA",727.815,727.815,114)
+
+"FIA",727.815,727.815,115)
+
+"FIA",727.815,727.815,116)
+
+"FIA",727.815,727.815,117)
+
+"FIA",727.815,727.815,118)
+
+"FIA",727.815,727.815,119)
+
+"FIA",727.815,727.815,120)
+
+"FIA",727.815,727.815,121)
+
+"FIA",727.815,727.815,122)
+
+"FIA",727.819)
+IV DETAIL EXTRACT
+"FIA",727.819,0)
+^ECX(727.819,
+"FIA",727.819,0,0)
+727.819
+"FIA",727.819,0,1)
+y^n^p^^^^n^^n
+"FIA",727.819,0,10)
+
+"FIA",727.819,0,11)
+
+"FIA",727.819,0,"RLRO")
+
+"FIA",727.819,0,"VR")
+3.0^ECX
+"FIA",727.819,727.819)
+1
+"FIA",727.819,727.819,17)
+
+"FIA",727.819,727.819,66)
+
+"FIA",727.819,727.819,67)
+
+"FIA",727.819,727.819,68)
+
+"FIA",727.819,727.819,69)
+
+"FIA",727.819,727.819,70)
+
+"FIA",727.819,727.819,89)
+
+"FIA",727.819,727.819,90)
+
+"FIA",727.819,727.819,91)
+
+"FIA",727.824)
+LAB RESULTS EXTRACT
+"FIA",727.824,0)
+^ECX(727.824,
+"FIA",727.824,0,0)
+727.824
+"FIA",727.824,0,1)
+y^n^p^^^^n^^n
+"FIA",727.824,0,10)
+
+"FIA",727.824,0,11)
+
+"FIA",727.824,0,"RLRO")
+
+"FIA",727.824,0,"VR")
+3.0^ECX
+"FIA",727.824,727.824)
+1
+"FIA",727.824,727.824,33)
+
+"FIA",727.824,727.824,34)
+
+"FIA",727.824,727.824,35)
+
+"FIA",727.825)
+QUASAR EXTRACT
+"FIA",727.825,0)
+^ECX(727.825,
+"FIA",727.825,0,0)
+727.825
+"FIA",727.825,0,1)
+y^n^p^^^^n^^n
+"FIA",727.825,0,10)
+
+"FIA",727.825,0,11)
+
+"FIA",727.825,0,"RLRO")
+
+"FIA",727.825,0,"VR")
+3.0^ECX
+"FIA",727.825,727.825)
+1
+"FIA",727.825,727.825,73)
+
+"FIA",727.825,727.825,111)
+
+"FIA",727.825,727.825,112)
+
+"FIA",727.825,727.825,113)
+
+"FIA",727.825,727.825,114)
+
+"FIA",727.825,727.825,115)
+
+"FIA",727.825,727.825,116)
+
+"FIA",727.825,727.825,117)
+
+"FIA",727.825,727.825,118)
+
+"FIA",727.825,727.825,119)
+
+"FIA",727.825,727.825,120)
+
+"FIA",727.825,727.825,121)
+
+"FIA",727.825,727.825,122)
+
+"FIA",727.826)
+PROSTHETICS EXTRACT
+"FIA",727.826,0)
+^ECX(727.826,
+"FIA",727.826,0,0)
+727.826
+"FIA",727.826,0,1)
+y^n^p^^^^n^^n
+"FIA",727.826,0,10)
+
+"FIA",727.826,0,11)
+
+"FIA",727.826,0,"RLRO")
+
+"FIA",727.826,0,"VR")
+3.0^ECX
+"FIA",727.826,727.826)
+1
+"FIA",727.826,727.826,66)
+
+"FIA",727.826,727.826,97)
+
+"FIA",727.826,727.826,98)
+
+"FIA",727.826,727.826,99)
+
+"FIA",727.826,727.826,100)
+
+"FIA",727.827)
+CLINIC EXTRACT
+"FIA",727.827,0)
+^ECX(727.827,
+"FIA",727.827,0,0)
+727.827
+"FIA",727.827,0,1)
+y^n^p^^^^n^^n
+"FIA",727.827,0,10)
+
+"FIA",727.827,0,11)
+
+"FIA",727.827,0,"RLRO")
+
+"FIA",727.827,0,"VR")
+3.0^ECX
+"FIA",727.827,727.827)
+1
+"FIA",727.827,727.827,74)
+
+"FIA",727.827,727.827,117)
+
+"FIA",727.827,727.827,118)
+
+"FIA",727.827,727.827,119)
+
+"FIA",727.827,727.827,120)
+
+"FIA",727.827,727.827,121)
+
+"FIA",727.827,727.827,122)
+
+"FIA",727.827,727.827,123)
+
+"FIA",727.827,727.827,124)
+
+"FIA",727.827,727.827,125)
+
+"FIA",727.827,727.827,126)
+
+"FIA",727.829)
+BLOOD BANK EXTRACT
+"FIA",727.829,0)
+^ECX(727.829,
+"FIA",727.829,0,0)
+727.829
+"FIA",727.829,0,1)
+y^n^p^^^^n^^n
+"FIA",727.829,0,10)
+
+"FIA",727.829,0,11)
+
+"FIA",727.829,0,"RLRO")
+
+"FIA",727.829,0,"VR")
+3.0^ECX
+"FIA",727.829,727.829)
+1
+"FIA",727.829,727.829,31)
+
+"FIA",727.832)
+NUTRITION EXTRACT
+"FIA",727.832,0)
+^ECX(727.832,
+"FIA",727.832,0,0)
+727.832
+"FIA",727.832,0,1)
+y^n^p^^^^n^^n
+"FIA",727.832,0,10)
+
+"FIA",727.832,0,11)
+
+"FIA",727.832,0,"RLRO")
+
+"FIA",727.832,0,"VR")
+3.0^ECX
+"FIA",727.832,727.832)
+1
+"FIA",727.832,727.832,19)
+
+"FIA",727.833)
+BCMA EXTRACT
+"FIA",727.833,0)
+^ECX(727.833,
+"FIA",727.833,0,0)
+727.833
+"FIA",727.833,0,1)
+y^n^p^^^^n^^n
+"FIA",727.833,0,10)
+
+"FIA",727.833,0,11)
+
+"FIA",727.833,0,"RLRO")
+
+"FIA",727.833,0,"VR")
+3.0^ECX
+"FIA",727.833,727.833)
+1
+"FIA",727.833,727.833,30)
+
+"FIA",727.833,727.833,31)
+
+"FIA",727.833,727.833,44)
+
+"FIA",727.833,727.833,49)
+
+"FIA",727.833,727.833,58)
+
+"FIA",727.833,727.833,81)
+
+"FIA",727.833,727.833,82)
+
+"FIA",727.833,727.833,83)
+
+"FIA",727.833,727.833,84)
+
+"FIA",727.833,727.833,85)
+
+"FIA",727.833,727.833,86)
+
+"FIA",728.44)
+CLINICS AND STOP CODES
+"FIA",728.44,0)
+^ECX(728.44,
+"FIA",728.44,0,0)
+728.44P
+"FIA",728.44,0,1)
+y^n^p^^^^n^^n
+"FIA",728.44,0,10)
+
+"FIA",728.44,0,11)
+
+"FIA",728.44,0,"RLRO")
+
+"FIA",728.44,0,"VR")
+3.0^ECX
+"FIA",728.44,728.44)
+1
+"FIA",728.44,728.44,7)
+
+"FIA",728.44,728.44,12)
+
+"FIA",728.441)
+NATIONAL CLINIC
+"FIA",728.441,0)
+^ECX(728.441,
+"FIA",728.441,0,0)
+728.441
+"FIA",728.441,0,1)
+y^n^p^^^^n^^n
+"FIA",728.441,0,10)
+
+"FIA",728.441,0,11)
+
+"FIA",728.441,0,"RLRO")
+
+"FIA",728.441,0,"VR")
+3.0^ECX
+"FIA",728.441,728.441)
+1
+"FIA",728.441,728.441,2)
+
+"FIA",728.441,728.441,3)
+
+"FIA",728.441,728.4412)
+0
+"INIT")
+POST^ECX3P144
+"KRN",.401,1438,-1)
+0^1
+"KRN",.401,1438,0)
+ECX CLINIC CODE^3130508.1534^^728.441^^^3130814
+"KRN",.401,1438,2,0)
+^.4014^2^2
+"KRN",.401,1438,2,1,0)
+728.441^.01^CODE^]^^^^^^4
+"KRN",.401,1438,2,1,"GET")
+S DISX(1)=$P($G(^ECX(728.441,D0,0)),U)
+"KRN",.401,1438,2,1,"IX")
+^ECX(728.441,"B",^ECX(728.441,^2
+"KRN",.401,1438,2,1,"QCON")
+I DISX(1)'=""
+"KRN",.401,1438,2,1,"SER")
+0^0
+"KRN",.401,1438,2,1,"TXT")
+CODE not null
+"KRN",.401,1438,2,2,0)
+728.441^^INACTIVATION DATE=""^"@B^;L1^^^^^4
+"KRN",.401,1438,2,2,"CM")
+S Y(1)=$S($D(^ECX(728.441,D0,2)):^(2),1:"") S X=$P(Y(1),U,1)="" I D0>0 S DISX(2)=X
+"KRN",.401,1438,2,2,"F")
+0
+"KRN",.401,1438,2,2,"GET")
+S Y(1)=$S($D(^ECX(728.441,D0,2)):^(2),1:"") S X=$P(Y(1),U,1)="" I D0>0 S DISX(2)=X
+"KRN",.401,1438,2,2,"QCON")
+I DISX(2)
+"KRN",.401,1438,2,2,"T")
+1
+"KRN",.401,1438,2,2,"TXT")
+INACTIVATION DATE=""""
+"KRN",.401,1438,2,"B",728.441,1)
+
+"KRN",.401,1438,2,"B",728.441,2)
+
+"KRN",19,10131,-1)
+0^2
+"KRN",19,10131,0)
+ECXPURG^Purge Extract Holding Files^^R^^ECXMGR^^^^^^DSS EXTRACTS
+"KRN",19,10131,1,0)
+^^23^23^3130806^
+"KRN",19,10131,1,1,0)
+This option purges data that resides in the "holding files" for the IVP,
+"KRN",19,10131,1,2,0)
+UDP and VBECS extracts.
+"KRN",19,10131,1,3,0)
+
+"KRN",19,10131,1,4,0)
+Care must be taken for several reasons:
+"KRN",19,10131,1,5,0)
+
+"KRN",19,10131,1,6,0)
+- Choosing a broad date range for the holding files could mean an
+"KRN",19,10131,1,7,0)
+ excessively large number of records and be very CPU intensive. Please
+"KRN",19,10131,1,8,0)
+ be sure to queue this purge for off-hours and limit the number of
+"KRN",19,10131,1,9,0)
+ holding files to be purged per a single queued session.
+"KRN",19,10131,1,10,0)
+- The IVP, UDP and VBECS ""holding"" files are intermediate files that
+"KRN",19,10131,1,11,0)
+ are populated ""realtime"" by inpatient pharmacy and VBECS activity.
+"KRN",19,10131,1,12,0)
+ These files are then used to generate the IVP, UDP and VBECS extracts.
+"KRN",19,10131,1,13,0)
+ NOTE: The VBECS files CANNOT be regenerated.
+"KRN",19,10131,1,14,0)
+ Once it is purged for a date range, extracts can no longer be
+"KRN",19,10131,1,15,0)
+ generated for that time period."
+"KRN",19,10131,1,16,0)
+
+"KRN",19,10131,1,17,0)
+
+"KRN",19,10131,1,18,0)
+
+"KRN",19,10131,1,19,0)
+PURGE RECOMMENDATIONS:
+"KRN",19,10131,1,20,0)
+Purging of any local holding files is not recommended until your facility
+"KRN",19,10131,1,21,0)
+has successfully created extracts, transmitted to the Austin Automation
+"KRN",19,10131,1,22,0)
+Center, audited the counts,loaded the data into DSS AND ARE CONTENT WITH
+"KRN",19,10131,1,23,0)
+THE RESULTS.
+"KRN",19,10131,25)
+EN^ECXPURG
+"KRN",19,10131,"U")
+PURGE EXTRACT HOLDING FILES
+"KRN",19,13952,-1)
+0^1
+"KRN",19,13952,0)
+ECXDELEF^Delete Extract Files^^R^^ECXMGR^^^^^^DSS EXTRACTS
+"KRN",19,13952,1,0)
+^^17^17^3130806^
+"KRN",19,13952,1,1,0)
+This option deletes individual or a range of DSS extracts.
+"KRN",19,13952,1,2,0)
+
+"KRN",19,13952,1,3,0)
+Care must be taken for several reasons:
+"KRN",19,13952,1,4,0)
+
+"KRN",19,13952,1,5,0)
+- You can delete ANY existing extract. This includes transmitted and
+"KRN",19,13952,1,6,0)
+ non- transmitted extracts as well as extracts that did not run to
+"KRN",19,13952,1,7,0)
+ completion due to errors or system problems.
+"KRN",19,13952,1,8,0)
+- Choosing a range of extracts could mean an excessively large number of
+"KRN",19,13952,1,9,0)
+ records and be very CPU intensive. Please be sure to queue this delete
+"KRN",19,13952,1,10,0)
+ for off-hours and limit the number of extracts to be deleted per a
+"KRN",19,13952,1,11,0)
+ single queued session.
+"KRN",19,13952,1,12,0)
+
+"KRN",19,13952,1,13,0)
+DELETE RECOMMENDATIONS:
+"KRN",19,13952,1,14,0)
+Deletion of any local DHCP extracts or DHCP "source of extracts" (i.e.,
+"KRN",19,13952,1,15,0)
+lab data, etc.) is not recommended until your facility has successfully
+"KRN",19,13952,1,16,0)
+created extracts, transmitted to the Austin Automation Center, audited
+"KRN",19,13952,1,17,0)
+the counts, loaded the data into DSS AND ARE CONTENT WITH THE RESULTS.
+"KRN",19,13952,25)
+ENDEL^ECXPURG
+"KRN",19,13952,"U")
+DELETE EXTRACT FILES
+"KRN",19,13953,-1)
+0^3
+"KRN",19,13953,0)
+ECX PHA COST^Pharmacy Extracts Unusual Cost Report^^R^^^^^^^^DSS EXTRACTS
+"KRN",19,13953,25)
+COST^ECXAPHA
+"KRN",19,13953,"U")
+PHARMACY EXTRACTS UNUSUAL COST
+"KRN",19.1,626,-1)
+0^1
+"KRN",19.1,626,0)
+ECX DSS TEST^DSS FY Conversion Testing
+"KRN",19.1,626,1,0)
+^19.11^8^8^3110513^^^^
+"KRN",19.1,626,1,1,0)
+This key controls access to the ECX FISCAL YEAR EXTRACT option. It
+"KRN",19.1,626,1,2,0)
+should be given only to holders of the ECXMGR key whenever the site
+"KRN",19.1,626,1,3,0)
+has been enrolled as an official DSS test site for fiscal year
+"KRN",19.1,626,1,4,0)
+conversion.
+"KRN",19.1,626,1,5,0)
+
+"KRN",19.1,626,1,6,0)
+This key should be removed from the user(s) whenever the
+"KRN",19.1,626,1,7,0)
+nationally released version of the DSS Fiscal Year patch is
+"KRN",19.1,626,1,8,0)
+installed.
+"MBREQ")
+0
+"ORD",3,19.1)
+19.1;3;;;KEY^XPDTA1;KEYF1^XPDIA1;KEYE1^XPDIA1;KEYF2^XPDIA1;;KEYDEL^XPDIA1
+"ORD",3,19.1,0)
+SECURITY KEY
+"ORD",6,.401)
+.401;6;;;EDEOUT^DIFROMSO(.401,DA,"",XPDA);FPRE^DIFROMSI(.401,"",XPDA);EPRE^DIFROMSI(.401,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.401,DA,"",XPDA);DEL^DIFROMSK(.401,"",%)
+"ORD",6,.401,0)
+SORT TEMPLATE
+"ORD",18,19)
+19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
+"ORD",18,19,0)
+OPTION
+"PKG",513,-1)
+1^1
+"PKG",513,0)
+DSS EXTRACTS^ECX^Decision Support System. (DSS)
+"PKG",513,20,0)
+^9.402P^^
+"PKG",513,22,0)
+^9.49I^1^1
+"PKG",513,22,1,0)
+3.0^3010618^2980112^11714
+"PKG",513,22,1,"PAH",1,0)
+144^3130903
+"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")
+56
+"RTN","ECX3P144")
+0^1^B63166716^n/a
+"RTN","ECX3P144",1,0)
+ECX3P144 ;ALB/DAN - DSS FY2014 Conversion, Post-init ;8/16/13 10:07
+"RTN","ECX3P144",2,0)
+ ;;3.0;DSS EXTRACTS;**144**;Dec 22, 1997;Build 9
+"RTN","ECX3P144",3,0)
+PRETRAN ;Loads gold 4 char codes into KIDS build
+"RTN","ECX3P144",4,0)
+ M @XPDGREF@("ECX4CHAR")=^XTMP("ECX4CHAR")
+"RTN","ECX3P144",5,0)
+ Q
+"RTN","ECX3P144",6,0)
+ ;
+"RTN","ECX3P144",7,0)
+POST ;Post-install items
+"RTN","ECX3P144",8,0)
+ N UPDATE
+"RTN","ECX3P144",9,0)
+ D TEST ;Set testing site information
+"RTN","ECX3P144",10,0)
+ D CLEAN ;Delete values no longer needed
+"RTN","ECX3P144",11,0)
+ D UPDATEDD("O") ;allow editing of fields during post install
+"RTN","ECX3P144",12,0)
+ D LOADG4CH ;Load gold 4 char codes into XTMP
+"RTN","ECX3P144",13,0)
+ I +$G(XPDQUIT) Q ;abort installation if error loading gold codes
+"RTN","ECX3P144",14,0)
+ D UPDCODES ;Compare gold codes to site change as needed
+"RTN","ECX3P144",15,0)
+ D UPDATEDD("C") ;put restrictions back on file
+"RTN","ECX3P144",16,0)
+ D MAIL ;send mail to holders of ECXMGR
+"RTN","ECX3P144",17,0)
+ D MENU ;add new transmission menu option, update order and titles
+"RTN","ECX3P144",18,0)
+ Q
+"RTN","ECX3P144",19,0)
+ ;
+"RTN","ECX3P144",20,0)
+TEST ;turn-on fld #73 in file #728 for Field Test Site;
+"RTN","ECX3P144",21,0)
+ ;allows use of option ECX FISCAL YEAR EXTRACT by test sites;
+"RTN","ECX3P144",22,0)
+ D MES^XPDUTL(" ")
+"RTN","ECX3P144",23,0)
+ D MES^XPDUTL("Providing special menu option access for DSS FY Conversion test sites.")
+"RTN","ECX3P144",24,0)
+ D TESTON^ECXTREX(XPDNM,"FY2014")
+"RTN","ECX3P144",25,0)
+ D MES^XPDUTL(" ")
+"RTN","ECX3P144",26,0)
+ ;if this is the national released version, then fld #73 will be turned-off
+"RTN","ECX3P144",27,0)
+ ;the first time any user attempts to use ECX FISCAL YEAR EXTRACT option
+"RTN","ECX3P144",28,0)
+ Q
+"RTN","ECX3P144",29,0)
+ ;
+"RTN","ECX3P144",30,0)
+CLEAN ;Delete dates from the last date clinic visits and last date clinic II fields
+"RTN","ECX3P144",31,0)
+ ;Delete the CLINIC and CLINIC II fields so the "running" flag is removed
+"RTN","ECX3P144",32,0)
+ N DIE,DA,IEN
+"RTN","ECX3P144",33,0)
+ D BMES^XPDUTL("Clearing Last Date Clinic II and Last Date Clinic Visit fields.")
+"RTN","ECX3P144",34,0)
+ D BMES^XPDUTL("Clearing CLINIC and CLINIC II fields.")
+"RTN","ECX3P144",35,0)
+ S IEN=0 F S IEN=$O(^ECX(728,IEN)) Q:'+IEN D
+"RTN","ECX3P144",36,0)
+ .S DIE="^ECX(728,",DA=IEN,DR="17///@;65///@;32///@;66///@"
+"RTN","ECX3P144",37,0)
+ .D ^DIE
+"RTN","ECX3P144",38,0)
+ D BMES^XPDUTL("Last Date Clinic II and Last Date Clinic Visit fields cleared.")
+"RTN","ECX3P144",39,0)
+ D BMES^XPDUTL("CLINIC and CLINIC II fields cleared.")
+"RTN","ECX3P144",40,0)
+ Q
+"RTN","ECX3P144",41,0)
+ ;
+"RTN","ECX3P144",42,0)
+LOADG4CH ;Put gold codes in local XTMP
+"RTN","ECX3P144",43,0)
+ K ^XTMP("ECX4CHAR")
+"RTN","ECX3P144",44,0)
+ M ^XTMP("ECX4CHAR")=@XPDGREF@("ECX4CHAR")
+"RTN","ECX3P144",45,0)
+ I '$D(^XTMP("ECX4CHAR")) D BMES^XPDUTL("Gold code table not loaded - INSTALLATION ABORTED") S XPDQUIT=2 Q
+"RTN","ECX3P144",46,0)
+ Q
+"RTN","ECX3P144",47,0)
+ ;
+"RTN","ECX3P144",48,0)
+UPDATEDD(TYPE) ;Update DD for 728.441 to either unrestrict edits or restrict edits
+"RTN","ECX3P144",49,0)
+ N I
+"RTN","ECX3P144",50,0)
+ I TYPE="C" D ;restrict file
+"RTN","ECX3P144",51,0)
+ .S ^DD(728.441,.01,7.5)="I $G(DIC(0))[""L"",'$D(ECX4CHAR) D EN^DDIOL(""Entries can only be added by CHAR4 Council."","""",""!?5"") K X"
+"RTN","ECX3P144",52,0)
+ .F I=.01,1,3 I $P(^DD(728.441,I,0),U,2)'["I" S $P(^DD(728.441,I,0),U,2)=$P(^DD(728.441,I,0),U,2)_"I" ;Makes all fields uneditable
+"RTN","ECX3P144",53,0)
+ I TYPE="O" D ;remove restrictions
+"RTN","ECX3P144",54,0)
+ .K ^DD(728.441,.01,7.5)
+"RTN","ECX3P144",55,0)
+ .F I=.01,1,3 S $P(^DD(728.441,I,0),U,2)=$TR($P(^DD(728.441,I,0),U,2),"I","")
+"RTN","ECX3P144",56,0)
+ Q
+"RTN","ECX3P144",57,0)
+ ;
+"RTN","ECX3P144",58,0)
+UPDCODES ;Compare gold to existing and edit as needed
+"RTN","ECX3P144",59,0)
+ N GOLD,LINE,CODE,DIE,DA,DR,DIC,IEN,X,Y
+"RTN","ECX3P144",60,0)
+ ;Check "gold" file against existing and add new entries or update differences
+"RTN","ECX3P144",61,0)
+ S CODE=0 F S CODE=$O(^XTMP("ECX4CHAR",CODE)) Q:CODE="" D
+"RTN","ECX3P144",62,0)
+ .S GOLD=^XTMP("ECX4CHAR",CODE)
+"RTN","ECX3P144",63,0)
+ .I '$D(^ECX(728.441,"B",CODE)) D Q ;Entry not found in site file, add it
+"RTN","ECX3P144",64,0)
+ ..S DIC=728.441,DIC(0)="LX",X=CODE,DIC("DR")="1////"_$P(GOLD,U) D ^DIC
+"RTN","ECX3P144",65,0)
+ ..I Y=-1!('+$P(Y,U,3)) S UPDATE("NA",CODE)="" ;Entry failed to be added to system, will report in findings
+"RTN","ECX3P144",66,0)
+ ..S UPDATE("N",CODE)=$P(GOLD,U) ;new entry added
+"RTN","ECX3P144",67,0)
+ .I $D(^ECX(728.441,"B",CODE)) S IEN=$O(^ECX(728.441,"B",CODE,0)) S LINE=^ECX(728.441,IEN,0) D
+"RTN","ECX3P144",68,0)
+ ..I $P(LINE,U,2)'=$P(GOLD,U) S $P(^ECX(728.441,IEN,0),U,2)=$P(GOLD,U) S UPDATE("U",CODE)=$P(LINE,U,2)_"^"_$P(GOLD,U) ;Update short description if it doesn't match
+"RTN","ECX3P144",69,0)
+ ;Check for entries in local site that aren't in gold and inactivate
+"RTN","ECX3P144",70,0)
+ S CODE="" F S CODE=$O(^ECX(728.441,"B",CODE)) Q:CODE="" D
+"RTN","ECX3P144",71,0)
+ .I $D(^XTMP("ECX4CHAR",CODE)) Q ;Code is in gold, no update needed
+"RTN","ECX3P144",72,0)
+ .S IEN=$O(^ECX(728.441,"B",CODE,0)) Q:'+IEN ;Can't get IEN for record
+"RTN","ECX3P144",73,0)
+ .S DIE="^ECX(728.441,",DA=IEN,DR="3////"_$S(DT'<3131031:3131101,1:DT) D ^DIE
+"RTN","ECX3P144",74,0)
+ .S UPDATE("I",CODE)="" ;Note inactivated entry
+"RTN","ECX3P144",75,0)
+ Q
+"RTN","ECX3P144",76,0)
+ ;
+"RTN","ECX3P144",77,0)
+MAIL ;Send email with results to holders of the ECXMGR key
+"RTN","ECX3P144",78,0)
+ N XMSUB,XMTEXT,XMDUZ,XMY,XMZ,CNT,DIFROM,ECXTEXT
+"RTN","ECX3P144",79,0)
+ S XMDUZ="PATCH ECX*3*144 POST-INSTALL"
+"RTN","ECX3P144",80,0)
+ D GETXMY("ECXMGR",.XMY)
+"RTN","ECX3P144",81,0)
+ S ECXTEXT(1)="The update to the NATIONAL CLINIC file (#728.441), commonly referred to as",ECXTEXT(2)="the 4CHAR code, has completed. Below are the results."
+"RTN","ECX3P144",82,0)
+ S ECXTEXT(3)=""
+"RTN","ECX3P144",83,0)
+ I '$D(UPDATE) S ECXTEXT(4)="No updates to your file were necessary. No further action is required."
+"RTN","ECX3P144",84,0)
+ S CNT=4 ;start with line 4 to add to message
+"RTN","ECX3P144",85,0)
+ I $D(UPDATE("N")) D S ECXTEXT(CNT)="",CNT=CNT+1 ;Report entries that were added
+"RTN","ECX3P144",86,0)
+ .S ECXTEXT(CNT)="The following entries were added to your system:",CNT=CNT+1,ECXTEXT(CNT)=$$REPEAT^XLFSTR("-",79),CNT=CNT+1,ECXTEXT(CNT)="",CNT=CNT+1
+"RTN","ECX3P144",87,0)
+ .S CODE="" F S CODE=$O(UPDATE("N",CODE)) Q:CODE="" S ECXTEXT(CNT)=CODE_" - "_UPDATE("N",CODE),CNT=CNT+1
+"RTN","ECX3P144",88,0)
+ I $D(UPDATE("U")) D S ECXTEXT(CNT)="",CNT=CNT+1 ;Report entries that were updated
+"RTN","ECX3P144",89,0)
+ .S ECXTEXT(CNT)="The following entries had their short description updated:",CNT=CNT+1,ECXTEXT(CNT)=$$REPEAT^XLFSTR("-",79),CNT=CNT+1,ECXTEXT(CNT)="",CNT=CNT+1
+"RTN","ECX3P144",90,0)
+ .S CODE="" F S CODE=$O(UPDATE("U",CODE)) Q:CODE="" S ECXTEXT(CNT)="CODE: "_CODE_" from "_$P(UPDATE("U",CODE),U)_" to "_$P(UPDATE("U",CODE),U,2) S CNT=CNT+1
+"RTN","ECX3P144",91,0)
+ I $D(UPDATE("I")) D S ECXTEXT(CNT)="",CNT=CNT+1 ;Report entries that were inactivated
+"RTN","ECX3P144",92,0)
+ .S ECXTEXT(CNT)="The following entries were inactivated with a date of "_$$FMTE^XLFDT($S(DT'<3131031:3131101,1:DT))_" and will no",CNT=CNT+1,ECXTEXT(CNT)="longer be available for use after that date:",CNT=CNT+1
+"RTN","ECX3P144",93,0)
+ .S ECXTEXT(CNT)=$$REPEAT^XLFSTR("-",79),CNT=CNT+1,ECXTEXT(CNT)="",CNT=CNT+1
+"RTN","ECX3P144",94,0)
+ .S CODE="" F S CODE=$O(UPDATE("I",CODE)) Q:CODE="" S ECXTEXT(CNT)=CODE,CNT=CNT+1
+"RTN","ECX3P144",95,0)
+ I $D(UPDATE("NA")) D ;Report any codes that couldn't be added
+"RTN","ECX3P144",96,0)
+ .S ECXTEXT(CNT)="The following entries could NOT be added to your system. Please log a remedy",CNT=CNT+1,ECXTEXT(CNT)="ticket for assistance with adding these codes.",CNT=CNT+1
+"RTN","ECX3P144",97,0)
+ .S ECXTEXT(CNT)=$$REPEAT^XLFSTR("-",79),CNT=CNT+1,ECXTEXT(CNT)="",CNT=CNT+1
+"RTN","ECX3P144",98,0)
+ .S CODE="" F S CODE=$O(UPDATE("NA",CODE)) Q:CODE="" S ECXTEXT(CNT)=CODE
+"RTN","ECX3P144",99,0)
+ S XMTEXT="ECXTEXT(",XMSUB="National Clinic file (#728.441) standardization"
+"RTN","ECX3P144",100,0)
+ D ^XMD
+"RTN","ECX3P144",101,0)
+ ;
+"RTN","ECX3P144",102,0)
+GETXMY(KEY,XMY) ;Put holders of the KEY into the XMY array to be recipients of the email
+"RTN","ECX3P144",103,0)
+ I $G(KEY)'="" M XMY=^XUSEC(KEY)
+"RTN","ECX3P144",104,0)
+ S:$G(DUZ) XMY(DUZ)="" ;Make sure there's at least one recipient
+"RTN","ECX3P144",105,0)
+ Q
+"RTN","ECX3P144",106,0)
+MENU ;add new transmission menu option, update display order, add 1 title, remove display option setting for 1 option and move routine information from entry action to routine field for one option
+"RTN","ECX3P144",107,0)
+ ;Add new option and update order of options for pharmacy maintenance menu
+"RTN","ECX3P144",108,0)
+ N MENU,DA,CHECK,ECXMSG
+"RTN","ECX3P144",109,0)
+ S MENU=""
+"RTN","ECX3P144",110,0)
+ S ECXMSG(1)=" "
+"RTN","ECX3P144",111,0)
+ S ECXMSG(2)="** Looking for PURGE DATA FROM EXTRACT FILES menu **"
+"RTN","ECX3P144",112,0)
+ S ECXMSG(3)=" If found, title will be updated "
+"RTN","ECX3P144",113,0)
+ D MES^XPDUTL(.ECXMSG)
+"RTN","ECX3P144",114,0)
+ ;Order thru option file and find ECXPURG and retrieve IEN
+"RTN","ECX3P144",115,0)
+ S MENU=$O(^DIC(19,"B","ECXPURG",MENU))
+"RTN","ECX3P144",116,0)
+ I 'MENU D BMES^XPDUTL("** ECXPURG item not found **")
+"RTN","ECX3P144",117,0)
+ I MENU D
+"RTN","ECX3P144",118,0)
+ .S DR="1///Purge Extract Holding Files",DIE="^DIC(19,",DA=MENU D ^DIE
+"RTN","ECX3P144",119,0)
+ .K ECXMSG
+"RTN","ECX3P144",120,0)
+ .S ECXMSG(1)=" "
+"RTN","ECX3P144",121,0)
+ .S ECXMSG(2)="*** PURGE DATA FROM EXTRACT FILES menu has been updated.. ***"
+"RTN","ECX3P144",122,0)
+ .D MES^XPDUTL(.ECXMSG)
+"RTN","ECX3P144",123,0)
+ ;add new menu option to ECX TRANSMISSION
+"RTN","ECX3P144",124,0)
+ S CHECK=$$ADD^XPDMENU("ECX TRANSMISSION","ECXDELEF","D")
+"RTN","ECX3P144",125,0)
+ D BMES^XPDUTL("ECXDELEF option "_$S('+$G(CHECK):"NOT ",1:"")_"added to menu ECX TRANSMISSION")
+"RTN","ECX3P144",126,0)
+ D BMES^XPDUTL("Updating ECX TRANSMISSION menu display order...")
+"RTN","ECX3P144",127,0)
+ S DA=$$ADD^XPDMENU("ECX TRANSMISSION","ECX EXTRACT LOG REVIEW",,5)
+"RTN","ECX3P144",128,0)
+ S DA=$$ADD^XPDMENU("ECX TRANSMISSION","ECXTRANS",,10)
+"RTN","ECX3P144",129,0)
+ S DA=$$ADD^XPDMENU("ECX TRANSMISSION","ECX EXTRACT LOG SUMMARY",,15)
+"RTN","ECX3P144",130,0)
+ S DA=$$ADD^XPDMENU("ECX TRANSMISSION","ECXDELEF",,20)
+"RTN","ECX3P144",131,0)
+ S DA=$$ADD^XPDMENU("ECX TRANSMISSION","ECXPURG",,25)
+"RTN","ECX3P144",132,0)
+ S DA=$$ADD^XPDMENU("ECX TRANSMISSION","ECXRXHF",,30)
+"RTN","ECX3P144",133,0)
+ D MES^XPDUTL("Display order updated")
+"RTN","ECX3P144",134,0)
+ D BMES^XPDUTL("Removing 'DISPLAY OPTION' setting from ECX CLN STOP REP option")
+"RTN","ECX3P144",135,0)
+ S MENU=$O(^DIC(19,"B","ECX CLN STOP REP",0))
+"RTN","ECX3P144",136,0)
+ I MENU S DR="11///@",DIE="^DIC(19,",DA=MENU D ^DIE
+"RTN","ECX3P144",137,0)
+ D BMES^XPDUTL("Moving routine information from ENTRY ACTION to ROUTINE field") D MES^XPDUTL("for option ECX STOP CODE VALIDITY")
+"RTN","ECX3P144",138,0)
+ S MENU=$O(^DIC(19,"B","ECX STOP CODE VALIDITY",0))
+"RTN","ECX3P144",139,0)
+ I MENU S DR="20///@;25///EN^ECXSCX3" S DA=MENU,DIE="^DIC(19," D ^DIE
+"RTN","ECX3P144",140,0)
+ D BMES^XPDUTL("Updating Pharmacy Maintenance Menu")
+"RTN","ECX3P144",141,0)
+ S CHECK=$$ADD^XPDMENU("ECX PHARMACY MAINTENANCE","ECX PHA COST",3)
+"RTN","ECX3P144",142,0)
+ D BMES^XPDUTL("ECX PHA COST option "_$S('+$G(CHECK):"NOT ",1:"")_"added to menu ECX PHARMACY MAINTENACE")
+"RTN","ECX3P144",143,0)
+ S DA=$$ADD^XPDMENU("ECX PHARMACY MAINTENANCE","ECX PHA VOL",4)
+"RTN","ECX3P144",144,0)
+ S DA=$$ADD^XPDMENU("ECX PHARMACY MAINTENANCE","ECX PHA UDP/IVP SOURCE AUDIT",5)
+"RTN","ECX3P144",145,0)
+ D BMES^XPDUTL("Option order updated on the ECX PHARMACY MAINTENANCE menu")
+"RTN","ECX3P144",146,0)
+ Q
+"RTN","ECXADM")
+0^51^B59038752^B52630295
+"RTN","ECXADM",1,0)
+ECXADM ;ALB/JAP,BIR/DMA,CML,PTD-Admissions Extract ;5/17/13 11:51
+"RTN","ECXADM",2,0)
+ ;;3.0;DSS EXTRACTS;**1,4,11,8,13,24,33,39,46,71,84,92,107,105,120,127,132,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXADM",3,0)
+BEG ;entry point from option
+"RTN","ECXADM",4,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXADM",5,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXADM",6,0)
+ Q
+"RTN","ECXADM",7,0)
+ ;
+"RTN","ECXADM",8,0)
+START ; start package specific extract
+"RTN","ECXADM",9,0)
+ K ^TMP($J,"EDIS") ;136 Clear temporary space for index
+"RTN","ECXADM",10,0)
+ D BLDXREF^ECXUTL1(ECSD,ECED) ;136 build temp xref for emergency dept
+"RTN","ECXADM",11,0)
+ S QFLG=0
+"RTN","ECXADM",12,0)
+ S ECED=ECED+.3,ECD=ECSD1
+"RTN","ECXADM",13,0)
+ F S ECD=$O(^DGPM("ATT1",ECD)),ECDA=0 Q:('ECD)!(ECD>ECED) D
+"RTN","ECXADM",14,0)
+ .F S ECDA=$O(^DGPM("ATT1",ECD,ECDA)) Q:ECDA="" D
+"RTN","ECXADM",15,0)
+ ..I $D(^DGPM(ECDA,0)) D
+"RTN","ECXADM",16,0)
+ ...S EC=^DGPM(ECDA,0),ECXDFN=$P(EC,U,3) D GET
+"RTN","ECXADM",17,0)
+ K ^TMP($J,"EDIS") ;136 delete temporary xref
+"RTN","ECXADM",18,0)
+ Q
+"RTN","ECXADM",19,0)
+ ;
+"RTN","ECXADM",20,0)
+GET ;gather extract data
+"RTN","ECXADM",21,0)
+ N ADM,W,X,ECXNPRFI,ECXATTPC,ECXPRVPC,ECXEST,ECXAOT,ECXEDIS,ECXICD10P ;136
+"RTN","ECXADM",22,0)
+ N ECXESC,ECXECL,ECXCLST ;144 Encounter Service Connected, Encounter Camp Lejeune, Camp Lejeune Status
+"RTN","ECXADM",23,0)
+ ;patient demographics
+"RTN","ECXADM",24,0)
+ S ECXERR=0 D PAT(ECXDFN,ECD,.ECXERR)
+"RTN","ECXADM",25,0)
+ Q:ECXERR
+"RTN","ECXADM",26,0)
+ I $$ENROLLM^ECXUTL2(ECXDFN)
+"RTN","ECXADM",27,0)
+ S ECXFAC=$P($G(^DIC(42,+$P(EC,U,6),0)),U,11)
+"RTN","ECXADM",28,0)
+ S ECXPDIV=$$GETDIV^ECXDEPT(ECXFAC) ;Get production division
+"RTN","ECXADM",29,0)
+ ;admission data
+"RTN","ECXADM",30,0)
+ S ELGA=$P($G(^DIC(8,+$P(EC,U,20),0)),U,9)
+"RTN","ECXADM",31,0)
+ I ELGA S ELGA=$$ELIG^ECXUTL3(ELGA,ECXSVC)
+"RTN","ECXADM",32,0)
+ S (ECDRG,ECDIA,ECXSADM,ECXADMS,ECXAOT)="",ECPTF=+$P(EC,U,16) I ECPTF,$D(^DGPT(ECPTF,"M")) D PTF
+"RTN","ECXADM",33,0)
+ ;get encounter classification
+"RTN","ECXADM",34,0)
+ S (ECXAO,ECXECE,ECXIR,ECXMIL,ECXHNC,ECXSHAD,ECXESC,ECXECL)="",ECXVISIT=$P(EC,U,27) ;144
+"RTN","ECXADM",35,0)
+ I ECXVISIT'="" D
+"RTN","ECXADM",36,0)
+ .D VISIT^ECXSCX1(ECXDFN,ECXVISIT,.ECXVIST,.ECXERR) I ECXERR K ECXERR Q
+"RTN","ECXADM",37,0)
+ .S ECXAO=$G(ECXVIST("AO")),ECXIR=$G(ECXVIST("IR"))
+"RTN","ECXADM",38,0)
+ .S ECXMIL=$G(ECXVIST("MST")),ECXHNC=$G(ECXVIST("HNC"))
+"RTN","ECXADM",39,0)
+ .S ECXECE=$G(ECXVIST("PGE")),ECXSHAD=$G(ECXVIST("SHAD"))
+"RTN","ECXADM",40,0)
+ .S ECXESC=$G(ECXVIST("ENCSC")),ECXECL=$G(ECXVIST("ENCCL")) ;144 Encounter SC and Encounter Camp Lejeune
+"RTN","ECXADM",41,0)
+ ;use movement record date & time
+"RTN","ECXADM",42,0)
+ S ADM=$$INP^ECXUTL2(ECXDFN,ECD)
+"RTN","ECXADM",43,0)
+ S ECXA=$P(ADM,U),ECXMN=$P(ADM,U,2),ECXSPC=$P(ADM,U,3)
+"RTN","ECXADM",44,0)
+ S (ECXADMDT,ECXDATE)=$P(ADM,U,4)
+"RTN","ECXADM",45,0)
+ ;if movement# doesn't match cross-ref ien, then quit
+"RTN","ECXADM",46,0)
+ Q:ECXMN'=ECDA
+"RTN","ECXADM",47,0)
+ S ECTM=$$ECXTIME^ECXUTL(ECXDATE)
+"RTN","ECXADM",48,0)
+ S ECXDATE=$$ECXDATE^ECXUTL(ECXDATE,ECXYM)
+"RTN","ECXADM",49,0)
+ S W=$P(ADM,U,9)
+"RTN","ECXADM",50,0)
+ S ECXWRD=$P(W,";",1),ECXFAC=$P(W,";",2),ECXDSSD=$P(W,";",3)
+"RTN","ECXADM",51,0)
+ S ECXPRV=$P(ADM,U,7),ECXPRNPI="",ECXATT=$P(ADM,U,8),ECXATNPI=""
+"RTN","ECXADM",52,0)
+ S ECXDOM=$P(ADM,U,10),ECXATTPC=$P(ADM,U,12),ECXPRVPC=$P(ADM,U,11)
+"RTN","ECXADM",53,0)
+ N ECXUSRTN
+"RTN","ECXADM",54,0)
+ S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",$E(ECXATT,2,$L(ECXATT)),ECD)
+"RTN","ECXADM",55,0)
+ S:+ECXUSRTN'>0 ECXUSRTN=""
+"RTN","ECXADM",56,0)
+ S ECATTNPI=$P(ECXUSRTN,U)
+"RTN","ECXADM",57,0)
+ S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",$E(ECXPRV,2,$L(ECXPRV)),ECD)
+"RTN","ECXADM",58,0)
+ S:+ECXUSRTN'>0 ECXUSRTN=""
+"RTN","ECXADM",59,0)
+ S ECPWNPI=$P(ECXUSRTN,U)
+"RTN","ECXADM",60,0)
+ S ECXICD10P="" ;136 ICD-10 null for now
+"RTN","ECXADM",61,0)
+ ;
+"RTN","ECXADM",62,0)
+ ;- Observation patient indicator (YES/NO)
+"RTN","ECXADM",63,0)
+ S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXSPC)
+"RTN","ECXADM",64,0)
+ ;
+"RTN","ECXADM",65,0)
+ ;- Patient Type
+"RTN","ECXADM",66,0)
+ S ECXPTYPE=$$TYPE^ECXUTL5(ECXDFN)
+"RTN","ECXADM",67,0)
+ ;
+"RTN","ECXADM",68,0)
+ S ECXEDIS=$$EDIS^ECXUTL1(ECXDFN,ECD,"A") ;136 Get emergency room disposition
+"RTN","ECXADM",69,0)
+ ;- If null encounter number, don't file record
+"RTN","ECXADM",70,0)
+ S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,,ECXSPC,ECXOBS,ECHEAD,,)
+"RTN","ECXADM",71,0)
+ D:ECXENC'="" FILE
+"RTN","ECXADM",72,0)
+ Q
+"RTN","ECXADM",73,0)
+ ;
+"RTN","ECXADM",74,0)
+PAT(ECXDFN,ECXDATE,ECXERR) ;get patient demographic data
+"RTN","ECXADM",75,0)
+ N OK,X
+"RTN","ECXADM",76,0)
+ K ECXPAT
+"RTN","ECXADM",77,0)
+ S ECXDATE=$P(ECXDATE,".")
+"RTN","ECXADM",78,0)
+ S OK=$$PAT^ECXUTL3(ECXDFN,ECXDATE,"1;2;3;4;5",.ECXPAT)
+"RTN","ECXADM",79,0)
+ I 'OK S ECXERR=1 K ECXPAT Q
+"RTN","ECXADM",80,0)
+ S ECXSSN=ECXPAT("SSN")
+"RTN","ECXADM",81,0)
+ S ECXPNM=ECXPAT("NAME")
+"RTN","ECXADM",82,0)
+ S ECXMPI=ECXPAT("MPI")
+"RTN","ECXADM",83,0)
+ S ECXSEX=ECXPAT("SEX")
+"RTN","ECXADM",84,0)
+ S ECXDOB=ECXPAT("DOB")
+"RTN","ECXADM",85,0)
+ S ECXELIG=ECXPAT("ELIG")
+"RTN","ECXADM",86,0)
+ S ECXVET=ECXPAT("VET")
+"RTN","ECXADM",87,0)
+ S ECXVNS=ECXPAT("VIETNAM")
+"RTN","ECXADM",88,0)
+ S ECXPOS=ECXPAT("POS")
+"RTN","ECXADM",89,0)
+ S ECXMNS=ECXPAT("MEANS")
+"RTN","ECXADM",90,0)
+ S ECXRACE=ECXPAT("RACE")
+"RTN","ECXADM",91,0)
+ S ECXRELG=ECXPAT("RELIGION")
+"RTN","ECXADM",92,0)
+ S ECXEMP=ECXPAT("EMPLOY")
+"RTN","ECXADM",93,0)
+ S ECXMAR=ECXPAT("MARITAL")
+"RTN","ECXADM",94,0)
+ S ECXPST=ECXPAT("POW STAT")
+"RTN","ECXADM",95,0)
+ S ECXPLOC=ECXPAT("POW LOC")
+"RTN","ECXADM",96,0)
+ S ECXRST=ECXPAT("IR STAT")
+"RTN","ECXADM",97,0)
+ S ECXAST=ECXPAT("AO STAT")
+"RTN","ECXADM",98,0)
+ S ECXMST=ECXPAT("MST STAT")
+"RTN","ECXADM",99,0)
+ S ECXSTATE=ECXPAT("STATE")
+"RTN","ECXADM",100,0)
+ S ECXCNTY=ECXPAT("COUNTY")
+"RTN","ECXADM",101,0)
+ S ECXZIP=ECXPAT("ZIP")
+"RTN","ECXADM",102,0)
+ S ECXCNTRY=ECXPAT("COUNTRY")
+"RTN","ECXADM",103,0)
+ S ECXENRL=ECXPAT("ENROLL LOC")
+"RTN","ECXADM",104,0)
+ S ECXSVC=ECXPAT("SC%")
+"RTN","ECXADM",105,0)
+ S ECXPHI=ECXPAT("PHI")
+"RTN","ECXADM",106,0)
+ S ECXHI=+$$INSUR^IBBAPI(ECXDFN,ECXDATE)
+"RTN","ECXADM",107,0)
+ S ECXEST=ECXPAT("EC STAT")
+"RTN","ECXADM",108,0)
+ S ECXCLST=ECXPAT("CL STAT") ;144 Camp Lejeune Status
+"RTN","ECXADM",109,0)
+ ;
+"RTN","ECXADM",110,0)
+ ;-OEF/OIF Data
+"RTN","ECXADM",111,0)
+ S ECXOEF=ECXPAT("ECXOEF")
+"RTN","ECXADM",112,0)
+ S ECXOEFDT=ECXPAT("ECXOEFDT")
+"RTN","ECXADM",113,0)
+ ;
+"RTN","ECXADM",114,0)
+ ;- Agent Orange location
+"RTN","ECXADM",115,0)
+ S ECXAOL=ECXPAT("AOL")
+"RTN","ECXADM",116,0)
+ ;
+"RTN","ECXADM",117,0)
+ ; - Head and Neck Cancer Indicator
+"RTN","ECXADM",118,0)
+ S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN)
+"RTN","ECXADM",119,0)
+ ; - PROJ 112/SHAD Indicator
+"RTN","ECXADM",120,0)
+ S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN)
+"RTN","ECXADM",121,0)
+ ; ******* - PATCH 127, ADD PATCAT CODE - ********
+"RTN","ECXADM",122,0)
+ S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXADM",123,0)
+ ; - Race and Ethnicity
+"RTN","ECXADM",124,0)
+ S ECXETH=ECXPAT("ETHNIC")
+"RTN","ECXADM",125,0)
+ S ECXRC1=ECXPAT("RACE1")
+"RTN","ECXADM",126,0)
+ ;
+"RTN","ECXADM",127,0)
+ ;get primary care data
+"RTN","ECXADM",128,0)
+ S X=$$PRIMARY^ECXUTL2(ECXDFN,ECXDATE)
+"RTN","ECXADM",129,0)
+ S ECPTTM=$P(X,U),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4)
+"RTN","ECXADM",130,0)
+ S ECASPR=$P(X,U,5),ECCLAS2=$P(X,U,6),ECASNPI=$P(X,U,7)
+"RTN","ECXADM",131,0)
+ ;get combat veteran data
+"RTN","ECXADM",132,0)
+ I $$CVEDT^ECXUTL5(ECXDFN,ECD)
+"RTN","ECXADM",133,0)
+ ;get national patient record flag if exist
+"RTN","ECXADM",134,0)
+ D NPRF^ECXUTL5
+"RTN","ECXADM",135,0)
+ ;get emergency response indicator (FEMA)
+"RTN","ECXADM",136,0)
+ S ECXERI=ECXPAT("ERI")
+"RTN","ECXADM",137,0)
+ Q
+"RTN","ECXADM",138,0)
+ ;
+"RTN","ECXADM",139,0)
+PTF ; get admitting DRG, diagnosis, source of admission from PTF
+"RTN","ECXADM",140,0)
+ ;use number for DRG and .01 for diagnosis
+"RTN","ECXADM",141,0)
+ N EC,EC1,ECX
+"RTN","ECXADM",142,0)
+ S EC=1 I $D(^DGPT(ECPTF,"M",2,0)) S EC=2
+"RTN","ECXADM",143,0)
+ S EC1=+$P(^DGPT(ECPTF,"M",EC,0),U,5)
+"RTN","ECXADM",144,0)
+ S ECDRG=$P($G(^DGPT(ECPTF,"M",EC,"P")),U)
+"RTN","ECXADM",145,0)
+ S ECDIA=$P($G(^ICD9(EC1,0)),U)
+"RTN","ECXADM",146,0)
+ S ECX=+$P($G(^DGPT(ECPTF,101)),U),ECXSADM=$P($G(^DIC(45.1,ECX,0)),U,11)
+"RTN","ECXADM",147,0)
+ S ECXADMS=$$GET1^DIQ(45.1,ECX,.01)
+"RTN","ECXADM",148,0)
+ ;if source of admission = admit outpatient treatment ('1P')
+"RTN","ECXADM",149,0)
+ S ECXAOT=$S(($$GET1^DIQ(45.1,ECX,.01)="1P"):"Y",1:"")
+"RTN","ECXADM",150,0)
+ Q
+"RTN","ECXADM",151,0)
+ ;
+"RTN","ECXADM",152,0)
+FILE ;file the extract record
+"RTN","ECXADM",153,0)
+ ;node0
+"RTN","ECXADM",154,0)
+ ;facility^dfn^ssn^name^in/out^day^primary care team^sex^dob^
+"RTN","ECXADM",155,0)
+ ;religion^employment status^health ins^state^county^zip^
+"RTN","ECXADM",156,0)
+ ;eligibility^vet^vietnam^agent orange^radiation^pow^
+"RTN","ECXADM",157,0)
+ ;period of service^means test^marital status^
+"RTN","ECXADM",158,0)
+ ;ward^treating specialty^attending physician^mov #^DRG^princ diagnosis^
+"RTN","ECXADM",159,0)
+ ;time^primary care provider^race^primary ward provider
+"RTN","ECXADM",160,0)
+ ;node1
+"RTN","ECXADM",161,0)
+ ;mpi^dss dept^attending npi^pc provider npi^ward provider npi^
+"RTN","ECXADM",162,0)
+ ;admission elig^mst status^shad status^sharing payor^
+"RTN","ECXADM",163,0)
+ ;sharing insurance^enrollment location^
+"RTN","ECXADM",164,0)
+ ;pc prov person class^assoc pc provider^assoc pc prov person class^
+"RTN","ECXADM",165,0)
+ ;assoc pc prov npi^dom^enrollment cat^enrollment stat^encounter
+"RTN","ECXADM",166,0)
+ ;shad^purple heart ind.^obs pat ind^encounter num^agent orange
+"RTN","ECXADM",167,0)
+ ;loc^production div^pow loc^source of admission^head & neck canc. ind
+"RTN","ECXADM",168,0)
+ ;^ethnicity^race1^enrollment priority_sub group^user enrollee^patient
+"RTN","ECXADM",169,0)
+ ;type^combat vet elig^combat vet elig end date^enc cv eligible^
+"RTN","ECXADM",170,0)
+ ;national patient record flag ECXNPRFI^att phy person class ECXATTPC
+"RTN","ECXADM",171,0)
+ ;^primary ward provider person class ECXPRVPC^environ contamin ECXEST
+"RTN","ECXADM",172,0)
+ ;^emergency response indicator(FEMA) ECXERI^agent orange indic ECXAO
+"RTN","ECXADM",173,0)
+ ;^environ contam ECXECE^encoun head/neck ECXHNC^encoun MST ECXMIL^rad
+"RTN","ECXADM",174,0)
+ ;encoun ECXIR^
+"RTN","ECXADM",175,0)
+ ;node 2 - patch 136 seperated node1 from node 2 for clarity
+"RTN","ECXADM",176,0)
+ ;OEF/OIF ECXOEF^ OEF/OIF return date ECXOEFDT
+"RTN","ECXADM",177,0)
+ ;^associate pc provider npi ECASNPI^attending physician npi ECATNPI^
+"RTN","ECXADM",178,0)
+ ;primary care provider npi ECPTNPI^primary ward provider npi ECPWNPI^
+"RTN","ECXADM",179,0)
+ ;admit outpatient treatment ECXAOT^country ECXCNTRY^pat cat ECXPATCAT^
+"RTN","ECXADM",180,0)
+ ;admit source ECXADMS ^emergency dept disposition ECXEDIS^Primary ICD-10 code ECXICD10P^Camp Lejeune Status ECXCLST^Encounter Camp Lejeune ECXECL^Encounter SC ECXESC
+"RTN","ECXADM",181,0)
+ ;
+"RTN","ECXADM",182,0)
+ ;Convert specialty to PTF Code
+"RTN","ECXADM",183,0)
+ ;
+"RTN","ECXADM",184,0)
+ N ECXDATA
+"RTN","ECXADM",185,0)
+ S ECXDATA=$$TSDATA^DGACT(42.4,+ECXSPC,.ECXDATA)
+"RTN","ECXADM",186,0)
+ S ECXSPC=$G(ECXDATA(7))
+"RTN","ECXADM",187,0)
+ ;
+"RTN","ECXADM",188,0)
+ N DA,DIK
+"RTN","ECXADM",189,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXADM",190,0)
+ S ECODE=EC7_U_EC23_U_ECXFAC_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U_ECXDATE_U
+"RTN","ECXADM",191,0)
+ S ECODE=ECODE_ECPTTM_U_ECXSEX_U_ECXDOB_U_ECXRELG_U
+"RTN","ECXADM",192,0)
+ S ECODE=ECODE_ECXEMP_U_ECXHI_U_ECXSTATE_U_ECXCNTY_U_ECXZIP_U
+"RTN","ECXADM",193,0)
+ S ECODE=ECODE_ECXELIG_U_ECXVET_U_ECXVNS_U_ECXAST_U_ECXRST_U_ECXPST_U
+"RTN","ECXADM",194,0)
+ S ECODE=ECODE_ECXPOS_U_ECXMNS_U_ECXMAR_U
+"RTN","ECXADM",195,0)
+ S ECODE=ECODE_ECXWRD_U_ECXSPC_U_ECXATT_U_ECDA_U_ECDRG_U_ECDIA_U
+"RTN","ECXADM",196,0)
+ S ECODE=ECODE_ECTM_U_ECPTPR_U_ECXRACE_U_ECXPRV_U
+"RTN","ECXADM",197,0)
+ S ECODE1=ECXMPI_U_ECXDSSD_U_""_U_""_U_""_U_ELGA_U
+"RTN","ECXADM",198,0)
+ S ECODE1=ECODE1_ECXMST_U_$S(ECXLOGIC<2005:ECXPRIOR,ECXLOGIC>2010:ECXSHADI,1:"")_U_U_U_ECXENRL_U_ECCLAS_U
+"RTN","ECXADM",199,0)
+ S ECODE1=ECODE1_ECASPR_U_ECCLAS2_U_U_ECXDOM_U_ECXCAT_U
+"RTN","ECXADM",200,0)
+ S ECODE1=ECODE1_ECXSTAT_U_$S(ECXLOGIC>2010:ECXSHAD,1:"")_U_ECXPHI_U_ECXOBS_U_ECXENC_U_ECXAOL_U
+"RTN","ECXADM",201,0)
+ S ECODE1=ECODE1_ECXPDIV_U_ECXPLOC_U_ECXSADM_U_ECXHNCI_U_ECXETH_U
+"RTN","ECXADM",202,0)
+ S ECODE1=ECODE1_ECXRC1
+"RTN","ECXADM",203,0)
+ I ECXLOGIC>2004 S ECODE1=ECODE1_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXNPRFI
+"RTN","ECXADM",204,0)
+ I ECXLOGIC>2005 S ECODE1=ECODE1_U_ECXATTPC_U_ECXPRVPC_U_ECXEST
+"RTN","ECXADM",205,0)
+ I ECXLOGIC>2006 S ECODE1=ECODE1_U_ECXERI_U_ECXAO_U_ECXECE_U_ECXHNC_U_ECXMIL_U_ECXIR_U
+"RTN","ECXADM",206,0)
+ I ECXLOGIC>2007 S ECODE2=ECXOEF_U_ECXOEFDT_U_ECASNPI_U_ECATTNPI_U_ECPTNPI_U_ECPWNPI
+"RTN","ECXADM",207,0)
+ I ECXLOGIC>2009 S ECODE2=ECODE2_U_ECXAOT_U_ECXCNTRY
+"RTN","ECXADM",208,0)
+ ; ***** ADDING PATCAT TO 9TH PIECE OF ECODE *******
+"RTN","ECXADM",209,0)
+ I ECXLOGIC>2010 S ECODE2=ECODE2_U_ECXPATCAT
+"RTN","ECXADM",210,0)
+ I ECXLOGIC>2011 S ECODE2=ECODE2_U_ECXADMS
+"RTN","ECXADM",211,0)
+ I ECXLOGIC>2012 S ECODE2=ECODE2_U_ECXEDIS_U_ECXICD10P ;136
+"RTN","ECXADM",212,0)
+ I ECXLOGIC>2013 S ECODE2=ECODE2_U_ECXCLST_U_ECXECL_U_ECXESC ;144 Add Camp Lejeune status, encounter Camp Lejeune and encounter service connected
+"RTN","ECXADM",213,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2)
+"RTN","ECXADM",214,0)
+ S ECRN=ECRN+1
+"RTN","ECXADM",215,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXADM",216,0)
+ Q
+"RTN","ECXADM",217,0)
+ ;
+"RTN","ECXADM",218,0)
+SETUP ;Set required input for ECXTRAC.
+"RTN","ECXADM",219,0)
+ S ECHEAD="ADM"
+"RTN","ECXADM",220,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXADM",221,0)
+ Q
+"RTN","ECXADM",222,0)
+ ;
+"RTN","ECXADM",223,0)
+LOCAL ; to extract nightly for local use not to be transmitted to TSI
+"RTN","ECXADM",224,0)
+ ; should be queued with a 1D frequency
+"RTN","ECXADM",225,0)
+ D SETUP,^ECXTLOCL,^ECXKILL Q
+"RTN","ECXADM",226,0)
+ ;
+"RTN","ECXADM",227,0)
+QUE ; entry point for the background requeuing handled by ECXTAUTO
+"RTN","ECXADM",228,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL Q
+"RTN","ECXADM",229,0)
+ ;
+"RTN","ECXAECS")
+0^43^B50961338^B40379474
+"RTN","ECXAECS",1,0)
+ECXAECS ;ALB/JAP - ECS Extract Audit Report ;3/13/13 11:42
+"RTN","ECXAECS",2,0)
+ ;;3.0;DSS EXTRACTS;**8,33,123,144**;Dec 22, 1997;Build 9
+"RTN","ECXAECS",3,0)
+ ;
+"RTN","ECXAECS",4,0)
+EN ;entry point for ECS extract audit report
+"RTN","ECXAECS",5,0)
+ N %X,%Y,X,Y,DIC,DA,DR,DIQ,DIR,COUNT,CNT,ECXPORT ;144
+"RTN","ECXAECS",6,0)
+ S ECXERR=0
+"RTN","ECXAECS",7,0)
+ ;ecxaud=0 for 'extract' audit
+"RTN","ECXAECS",8,0)
+ S ECXHEAD="ECS",ECXAUD=0
+"RTN","ECXAECS",9,0)
+ W !!,"Setup for ",ECXHEAD," Extract Audit Report --",!!
+"RTN","ECXAECS",10,0)
+ ;select extract
+"RTN","ECXAECS",11,0)
+ D AUDIT^ECXUTLA(ECXHEAD,.ECXERR,.ECXARRAY,ECXAUD)
+"RTN","ECXAECS",12,0)
+ Q:ECXERR
+"RTN","ECXAECS",13,0)
+ ;determine if facility is multidivisional for event capture
+"RTN","ECXAECS",14,0)
+ S COUNT=0,ECXD="" F S ECXD=$O(^DIC(4,"LOC",ECXD)) Q:ECXD="" S COUNT=COUNT+1 ;144
+"RTN","ECXAECS",15,0)
+ S ECXALL=1
+"RTN","ECXAECS",16,0)
+ I COUNT>1 D ;144
+"RTN","ECXAECS",17,0)
+ .W !!
+"RTN","ECXAECS",18,0)
+ .S DIR(0)="Y",DIR("A")="Do you want the "_ECXHEAD_" extract audit report for all Locations"
+"RTN","ECXAECS",19,0)
+ .S DIR("B")="NO" D ^DIR K DIR
+"RTN","ECXAECS",20,0)
+ .I $G(DIRUT) S ECXERR=1 Q
+"RTN","ECXAECS",21,0)
+ .;if y=0 i.e., 'no', then ecxall=0 i.e., 'selected'
+"RTN","ECXAECS",22,0)
+ .S ECXALL=Y
+"RTN","ECXAECS",23,0)
+ I ECXERR=1 D Q
+"RTN","ECXAECS",24,0)
+ .W !!,?5,"Try again later... exiting.",!
+"RTN","ECXAECS",25,0)
+ .D AUDIT^ECXKILL
+"RTN","ECXAECS",26,0)
+ ;select divisions/sites; all ec locations if ecxall=1
+"RTN","ECXAECS",27,0)
+ S X=ECXARRAY("START") D ^%DT S ECXSTART=Y S X=ECXARRAY("END") D ^%DT S ECXEND=Y
+"RTN","ECXAECS",28,0)
+ D ECS^ECXDVSN(.ECXDIV,ECXALL,.ECXERR)
+"RTN","ECXAECS",29,0)
+ I ECXERR=1 D Q
+"RTN","ECXAECS",30,0)
+ .W !!,?5,"Try again later... exiting.",!
+"RTN","ECXAECS",31,0)
+ .D AUDIT^ECXKILL
+"RTN","ECXAECS",32,0)
+ ;determine output device and queue if requested
+"RTN","ECXAECS",33,0)
+ W !
+"RTN","ECXAECS",34,0)
+ S ECXPGM="PROCESS^ECXAECS",ECXDESC="ECS Extract Audit Report"
+"RTN","ECXAECS",35,0)
+ S ECXSAVE("ECXHEAD")="",ECXSAVE("ECXALL")="",ECXSAVE("ECXDIV(")="",ECXSAVE("ECXARRAY(")=""
+"RTN","ECXAECS",36,0)
+ S ECXPORT=$$EXPORT^ECXUTL1 Q:ECXPORT=-1 I ECXPORT D Q ;144
+"RTN","ECXAECS",37,0)
+ .K ^TMP($J,"ECXPORT") ;144
+"RTN","ECXAECS",38,0)
+ .S ^TMP($J,"ECXPORT",0)="LOCATION^EXTRACT LOG #^DSS UNIT^CATEGORY^PROCEDURE^VOLUME" ;144
+"RTN","ECXAECS",39,0)
+ .S CNT=1 ;144
+"RTN","ECXAECS",40,0)
+ .D PROCESS ;144
+"RTN","ECXAECS",41,0)
+ .D EXPDISP^ECXUTL1 ;144
+"RTN","ECXAECS",42,0)
+ .D ^ECXKILL ;144
+"RTN","ECXAECS",43,0)
+ W !
+"RTN","ECXAECS",44,0)
+ D DEVICE^ECXUTLA(ECXPGM,ECXDESC,.ECXSAVE)
+"RTN","ECXAECS",45,0)
+ I ECXSAVE("POP")=1 D Q
+"RTN","ECXAECS",46,0)
+ .W !!,?5,"Try again later... exiting.",!
+"RTN","ECXAECS",47,0)
+ .D AUDIT^ECXKILL
+"RTN","ECXAECS",48,0)
+ I ECXSAVE("ZTSK")=0 D
+"RTN","ECXAECS",49,0)
+ .K ECXSAVE,ECXPGM,ECXDESC
+"RTN","ECXAECS",50,0)
+ .D PROCESS^ECXAECS
+"RTN","ECXAECS",51,0)
+ I IO'=IO(0) D ^%ZISC
+"RTN","ECXAECS",52,0)
+ D HOME^%ZIS
+"RTN","ECXAECS",53,0)
+ D AUDIT^ECXKILL
+"RTN","ECXAECS",54,0)
+ Q
+"RTN","ECXAECS",55,0)
+ ;
+"RTN","ECXAECS",56,0)
+PROCESS ;process data in file #727.815
+"RTN","ECXAECS",57,0)
+ N X,Y,W,DATA,DATE,DIV,IEN,UNIT,UNITN,CAT,CATN,VOL,PROC,PROCN,PIEN,PRI,PRXF,PRSYN,QQFLG,COUNT ;144
+"RTN","ECXAECS",58,0)
+ K ^TMP($J,"ECXAUD")
+"RTN","ECXAECS",59,0)
+ S (COUNT,QQFLG)=0 ;144
+"RTN","ECXAECS",60,0)
+ S ECXEXT=ECXARRAY("EXTRACT"),ECXDEF=ECXARRAY("DEF")
+"RTN","ECXAECS",61,0)
+ S X=ECXARRAY("START") D ^%DT S ECXSTART=Y S X=ECXARRAY("END") D ^%DT S ECXEND=Y
+"RTN","ECXAECS",62,0)
+ ;get run date in external format
+"RTN","ECXAECS",63,0)
+ D NOW^%DTC S Y=$E(%,1,12) D DD^%DT S ECXRUN=Y
+"RTN","ECXAECS",64,0)
+ ;get records in date range
+"RTN","ECXAECS",65,0)
+ S IEN="" F S IEN=$O(^ECX(727.815,"AC",ECXEXT,IEN)) Q:IEN="" D Q:QQFLG
+"RTN","ECXAECS",66,0)
+ .S DATA=^ECX(727.815,IEN,0),DATE=$P(DATA,U,9),DIV=$P(DATA,U,4)
+"RTN","ECXAECS",67,0)
+ .;convert free text date to fm internal format date
+"RTN","ECXAECS",68,0)
+ .S $E(DATE,1,2)=$E(DATE,1,2)-17
+"RTN","ECXAECS",69,0)
+ .Q:$L(DATE)<7 Q:(DATE<ECXSTART) Q:(DATE>ECXEND)
+"RTN","ECXAECS",70,0)
+ .;if location is among those selected, then tally event capture data
+"RTN","ECXAECS",71,0)
+ .I $D(ECXDIV(DIV)) D Q:QQFLG
+"RTN","ECXAECS",72,0)
+ ..S UNIT=$P(DATA,U,10),UNITN=$P($G(^ECD(UNIT,0)),U,1),UNIT(UNITN)=UNIT
+"RTN","ECXAECS",73,0)
+ ..;if no category, then cat=0
+"RTN","ECXAECS",74,0)
+ ..S CAT=+$P(DATA,U,11),CATN="" S:+CAT CATN=$P($G(^EC(726,CAT,0)),U,1) S:CATN="" CATN="Unknown"
+"RTN","ECXAECS",75,0)
+ ..S VOL=$P(DATA,U,13) S:VOL="" VOL=1 S PROC=$E($P(DATA,U,12),1,5)
+"RTN","ECXAECS",76,0)
+ ..I '$D(^TMP($J,"ECXAUD",DIV,UNITN,CATN,PROC)) S ^TMP($J,"ECXAUD",DIV,UNITN,CATN,PROC)=0
+"RTN","ECXAECS",77,0)
+ ..S ^(PROC)=^TMP($J,"ECXAUD",DIV,UNITN,CATN,PROC)+VOL,COUNT=COUNT+1 ;144
+"RTN","ECXAECS",78,0)
+ ..I $D(ZTQUEUED),(COUNT>499),'(COUNT#500),$$S^%ZTLOAD S QQFLG=1,ZTSTOP=1 K ZTREQ Q ;144
+"RTN","ECXAECS",79,0)
+ ..;get the procedure name and setup in global array
+"RTN","ECXAECS",80,0)
+ ..S PIEN=0,PROCN="" S:PROC'?5N PIEN=$O(^EC(725,"E",PROC,""))
+"RTN","ECXAECS",81,0)
+ ..;procedures from file #725
+"RTN","ECXAECS",82,0)
+ ..I +PIEN>0 D
+"RTN","ECXAECS",83,0)
+ ...S PROCN=$P($G(^EC(725,PIEN,0)),U,1)
+"RTN","ECXAECS",84,0)
+ ...S PRXF=PIEN_";EC(725,"
+"RTN","ECXAECS",85,0)
+ ...S PRI=+$O(^ECJ("AP",DIV,UNIT,CAT,PRXF,0)),PRSYN=$P($G(^ECJ(PRI,"PRO")),U,2)
+"RTN","ECXAECS",86,0)
+ ...I PRSYN]"" S PROCN=PRSYN
+"RTN","ECXAECS",87,0)
+ ..;procedures from file #81
+"RTN","ECXAECS",88,0)
+ ..I PIEN=0,PROCN="" D
+"RTN","ECXAECS",89,0)
+ ...S PIEN=$$CODEN^ICPTCOD(PROC) I +PIEN>0 S PROCN=$P($$CPT^ICPTCOD(PROC,DATE),U,3)
+"RTN","ECXAECS",90,0)
+ ...S PRXF=PIEN_";ICPT("
+"RTN","ECXAECS",91,0)
+ ...S PRI=+$O(^ECJ("AP",DIV,UNIT,CAT,PRXF,0)),PRSYN=$P($G(^ECJ(PRI,"PRO")),U,2)
+"RTN","ECXAECS",92,0)
+ ...I PRSYN]"" S PROCN=PRSYN
+"RTN","ECXAECS",93,0)
+ ..S:PROCN="" PROCN="Unknown"
+"RTN","ECXAECS",94,0)
+ ..S ^TMP($J,"ECXPROC",PROC)=PROCN
+"RTN","ECXAECS",95,0)
+ ;print the report
+"RTN","ECXAECS",96,0)
+ D PRINT
+"RTN","ECXAECS",97,0)
+ I $G(ECXPORT) Q ;144 Stop processing as ECXKILL kills ^TMP($J
+"RTN","ECXAECS",98,0)
+ D AUDIT^ECXKILL
+"RTN","ECXAECS",99,0)
+ Q
+"RTN","ECXAECS",100,0)
+ ;
+"RTN","ECXAECS",101,0)
+PRINT ;print event capture data by location/division and dss unit order
+"RTN","ECXAECS",102,0)
+ N JJ,SS,P,PN,LN,NM,DIV,DIVNM,PG,QFLG,GTOT,PROC,STOT,TOT,DIR,DIRUT,DTOUT,DUOUT
+"RTN","ECXAECS",103,0)
+ U IO
+"RTN","ECXAECS",104,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 K ZTREQ Q
+"RTN","ECXAECS",105,0)
+ S (QFLG,PG)=0,$P(LN,"-",80)="",DIV=""
+"RTN","ECXAECS",106,0)
+ F S DIV=$O(ECXDIV(DIV)) Q:DIV="" D Q:QFLG
+"RTN","ECXAECS",107,0)
+ .S DIVNM=$P(ECXDIV(DIV),U,2)_" ("_DIV_")",GTOT=0 I '$G(ECXPORT) D HEADER ;144
+"RTN","ECXAECS",108,0)
+ .I '$D(^TMP($J,"ECXAUD",DIV)) D Q
+"RTN","ECXAECS",109,0)
+ ..I $G(ECXPORT) Q ;144 Don't print if exporting
+"RTN","ECXAECS",110,0)
+ ..W !!,?5,"No data available for this Event Capture Location.",!!
+"RTN","ECXAECS",111,0)
+ .I $D(^TMP($J,"ECXAUD",DIV)) S UNITN="" F S UNITN=$O(^TMP($J,"ECXAUD",DIV,UNITN)) Q:UNITN="" D Q:QFLG
+"RTN","ECXAECS",112,0)
+ ..S STOT=0,UNIT=UNIT(UNITN),CATN=""
+"RTN","ECXAECS",113,0)
+ ..;write the unit name
+"RTN","ECXAECS",114,0)
+ ..I '$G(ECXPORT) D:($Y+3>IOSL) HEADER Q:QFLG W !,UNITN_" ("_UNIT_")",! ;144 Don't print if exporting
+"RTN","ECXAECS",115,0)
+ ..;initialize the proc array and set totals in array
+"RTN","ECXAECS",116,0)
+ ..F S CATN=$O(^TMP($J,"ECXAUD",DIV,UNITN,CATN)) Q:CATN="" K PROC S PROC="" D Q:QFLG
+"RTN","ECXAECS",117,0)
+ ...;write the category name
+"RTN","ECXAECS",118,0)
+ ...I '$G(ECXPORT) D:($Y+3>IOSL) HEADER Q:QFLG W !,?5,$E(CATN,1,25) ;144 Don't print if exporting
+"RTN","ECXAECS",119,0)
+ ...F S PROC=$O(^TMP($J,"ECXAUD",DIV,UNITN,CATN,PROC)) Q:PROC="" S TOT=^(PROC) D
+"RTN","ECXAECS",120,0)
+ ....S STOT=STOT+TOT,GTOT=GTOT+TOT,PROCN=""
+"RTN","ECXAECS",121,0)
+ ....I $D(^TMP($J,"ECXPROC",PROC)) S PROCN=^(PROC)
+"RTN","ECXAECS",122,0)
+ ....S PROC($$LJ^XLFSTR(PROC,6," ")_" "_PROCN)=TOT
+"RTN","ECXAECS",123,0)
+ ...S PN="" F S PN=$O(PROC(PN)) Q:PN="" S TOT=PROC(PN) D Q:QFLG
+"RTN","ECXAECS",124,0)
+ ....I $G(ECXPORT) S ^TMP($J,"ECXPORT",CNT)=DIVNM_U_ECXARRAY("EXTRACT")_U_UNITN_" ("_UNIT_")"_U_CATN_U_PN_U_TOT,CNT=CNT+1 Q ;144
+"RTN","ECXAECS",125,0)
+ ....;write procedure and total
+"RTN","ECXAECS",126,0)
+ ....W ?35,$E(PN,1,30),?68,$$RJ^XLFSTR(TOT,5," "),!
+"RTN","ECXAECS",127,0)
+ ..I $G(ECXPORT) Q ;144 Stop processing if exporting
+"RTN","ECXAECS",128,0)
+ ..;write the unit subtotal
+"RTN","ECXAECS",129,0)
+ ..D:($Y+3>IOSL) HEADER Q:QFLG W !,?5,$E(LN,1,74)
+"RTN","ECXAECS",130,0)
+ ..W !,"Total Volume for Unit "_UNITN_" ("_UNIT_"):",?68,$$RJ^XLFSTR(STOT,5," "),!
+"RTN","ECXAECS",131,0)
+ .I $G(ECXPORT) Q ;144 Stop processing if exporting
+"RTN","ECXAECS",132,0)
+ .;write the division grandtotal
+"RTN","ECXAECS",133,0)
+ .D:($Y+3>IOSL) HEADER Q:QFLG W !!,"Grand Total for Location "_DIVNM_":",?68,$$RJ^XLFSTR(GTOT,5," ")
+"RTN","ECXAECS",134,0)
+ ;print the audit descriptive narrative
+"RTN","ECXAECS",135,0)
+ I $G(ECXPORT) Q ;144 Stop processing if exporting
+"RTN","ECXAECS",136,0)
+ I $E(IOST)'="C" D
+"RTN","ECXAECS",137,0)
+ .W @IOF S PG=PG+1
+"RTN","ECXAECS",138,0)
+ .W !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report"
+"RTN","ECXAECS",139,0)
+ .W !,"DSS Extract Log #: "_ECXEXT
+"RTN","ECXAECS",140,0)
+ .W !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END")
+"RTN","ECXAECS",141,0)
+ .W !,"Report Run Date/Time: "_ECXRUN,?68,"Page: ",PG
+"RTN","ECXAECS",142,0)
+ .W !!,LN,!!
+"RTN","ECXAECS",143,0)
+ .S DIC="^ECX(727.1,",DA=ECXARRAY("DEF"),DR="1" D EN^DIQ
+"RTN","ECXAECS",144,0)
+ I $E(IOST)="C",'QFLG D
+"RTN","ECXAECS",145,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXAECS",146,0)
+ .S DIR(0)="E" W ! D ^DIR K DIR
+"RTN","ECXAECS",147,0)
+ Q
+"RTN","ECXAECS",148,0)
+ ;
+"RTN","ECXAECS",149,0)
+HEADER ;header and page control
+"RTN","ECXAECS",150,0)
+ N JJ,SS
+"RTN","ECXAECS",151,0)
+ I $E(IOST)="C" D
+"RTN","ECXAECS",152,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXAECS",153,0)
+ .I PG>0 S DIR(0)="E" W ! D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXAECS",154,0)
+ Q:QFLG
+"RTN","ECXAECS",155,0)
+ W:$Y!($E(IOST)="C") @IOF S PG=PG+1
+"RTN","ECXAECS",156,0)
+ W !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report"
+"RTN","ECXAECS",157,0)
+ W !,"DSS Extract Log #: "_ECXARRAY("EXTRACT")
+"RTN","ECXAECS",158,0)
+ W !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END")
+"RTN","ECXAECS",159,0)
+ W !,"Report Run Date/Time: "_ECXRUN
+"RTN","ECXAECS",160,0)
+ W !,"Event Capture Location: "_$P(ECXDIV(DIV),U,2)_" ("_DIV_")",?68,"Page: "_PG
+"RTN","ECXAECS",161,0)
+ W !!,"DSS Unit",!,?5,"Category",?35,"Procedure",?68,"Volume"
+"RTN","ECXAECS",162,0)
+ W !,LN,!
+"RTN","ECXAECS",163,0)
+ Q
+"RTN","ECXAPHA")
+0^47^B62748333^B35967865
+"RTN","ECXAPHA",1,0)
+ECXAPHA ;ALB/TMD-Pharmacy Extracts Unusual Volumes/Costs Report ;5/20/13 16:33
+"RTN","ECXAPHA",2,0)
+ ;;3.0;DSS EXTRACTS;**40,49,66,104,109,113,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXAPHA",3,0)
+ ;
+"RTN","ECXAPHA",4,0)
+EN ; entry point
+"RTN","ECXAPHA",5,0)
+ N X,Y,DATE,ECRUN,ECXOPT,ECXDESC,ECXSAVE,ECXTL,ECTHLD,ECSD
+"RTN","ECXAPHA",6,0)
+ N ECSD1,ECSTART,ECED,ECEND,ECXERR,QFLG,ECXISIG,FYVER,ECXBCM,ECXPORT,CNT ;144
+"RTN","ECXAPHA",7,0)
+ S QFLG=0
+"RTN","ECXAPHA",8,0)
+ ; get today's date
+"RTN","ECXAPHA",9,0)
+ D NOW^%DTC S DATE=X,Y=$E(%,1,12) D DD^%DT S ECRUN=$P(Y,"@") K %DT
+"RTN","ECXAPHA",10,0)
+ D BEGIN Q:QFLG
+"RTN","ECXAPHA",11,0)
+ D SELECT Q:QFLG!($G(FYVER)=-1) ;144 Quit if selections not made for report
+"RTN","ECXAPHA",12,0)
+ I '$G(ECXCOST) I ECXOPT=2 I FYVER'="" D @(FYVER) Q ;144 Run previous version of routine and quit if it's the volume report
+"RTN","ECXAPHA",13,0)
+ S ECXPORT=$$EXPORT^ECXUTL1 Q:ECXPORT=-1 I ECXPORT D Q ;144
+"RTN","ECXAPHA",14,0)
+ .K ^TMP($J) ;144
+"RTN","ECXAPHA",15,0)
+ .S ^TMP($J,"ECXPORT",0)="NAME^SSN^DAY^GENERIC NAME^FEEDER KEY^"_$S(ECXOPT=1!(ECXOPT=3):"QUANTITY",ECXOPT=2:"TOTAL DOSES PER DAY",1:"COMPONENT DOSE GIVEN")_"^TOTAL COST"_$S(ECXOPT=1:"^DAYS SUPPLY",ECXISIG:"^SIG",1:"") ;144
+"RTN","ECXAPHA",16,0)
+ .S CNT=1 ;144
+"RTN","ECXAPHA",17,0)
+ .D PROCESS ;144
+"RTN","ECXAPHA",18,0)
+ .D EXPDISP^ECXUTL1 ;144
+"RTN","ECXAPHA",19,0)
+ .D AUDIT^ECXKILL ;144
+"RTN","ECXAPHA",20,0)
+ S ECXDESC=ECXTL_" Extract Unusual"_$S($G(ECXCOST):" Cost",1:" Volume")_" Report" ;144
+"RTN","ECXAPHA",21,0)
+ S ECXSAVE("EC*")=""
+"RTN","ECXAPHA",22,0)
+ W !!,"This report requires 132-column format."
+"RTN","ECXAPHA",23,0)
+ D EN^XUTMDEVQ("PROCESS^ECXAPHA",ECXDESC,.ECXSAVE)
+"RTN","ECXAPHA",24,0)
+ I POP W !!,"No device selected...exiting.",! Q
+"RTN","ECXAPHA",25,0)
+ I IO'=IO(0) D ^%ZISC
+"RTN","ECXAPHA",26,0)
+ D HOME^%ZIS
+"RTN","ECXAPHA",27,0)
+ D AUDIT^ECXKILL
+"RTN","ECXAPHA",28,0)
+ Q
+"RTN","ECXAPHA",29,0)
+ ;
+"RTN","ECXAPHA",30,0)
+BEGIN ; display report description
+"RTN","ECXAPHA",31,0)
+ W @IOF
+"RTN","ECXAPHA",32,0)
+ W !,"This report prints a listing of unusual ",$S('$G(ECXCOST):"volumes",1:"costs")," that would be" ;144
+"RTN","ECXAPHA",33,0)
+ W !,"generated by the pharmacy extracts (PRE, IVP, UDP and BCM) as"
+"RTN","ECXAPHA",34,0)
+ W !,"determined by a user defined threshold value. It should be run" ;144 Corrected spelling of should
+"RTN","ECXAPHA",35,0)
+ W !,"prior to the generation of the actual extract(s) to identify and"
+"RTN","ECXAPHA",36,0)
+ W !,"fix as necessary any ",$S('$G(ECXCOST):"volumes",1:"costs")," determined to be erroneous." ;144
+"RTN","ECXAPHA",37,0)
+ I '$G(ECXCOST) D ;144
+"RTN","ECXAPHA",38,0)
+ .W !!,"Unusual volumes are defined as follows:" ;144
+"RTN","ECXAPHA",39,0)
+ .W !!,"PRE Extract: Quantity field greater than the threshold value." ;144
+"RTN","ECXAPHA",40,0)
+ .W !,"IVP Extract: Total Doses Per Day field greater than the threshold" ;144
+"RTN","ECXAPHA",41,0)
+ .W !,?14,"or less than the negative of the threshold value." ;144
+"RTN","ECXAPHA",42,0)
+ .W !,"UDP Extract: Quantity field greater than threshold value." ;144
+"RTN","ECXAPHA",43,0)
+ .W !,"BCM Extract: Component Dose Given field greater than threshold value." ;144
+"RTN","ECXAPHA",44,0)
+ W !!,"Note: The threshold can be set after a report is selected."
+"RTN","ECXAPHA",45,0)
+ W !!,"Run times for this report will vary depending upon the size of"
+"RTN","ECXAPHA",46,0)
+ W !,"the extract and could take as long as 30 minutes or more to"
+"RTN","ECXAPHA",47,0)
+ W !,"complete. This report has no effect on the actual extracts and"
+"RTN","ECXAPHA",48,0)
+ W !,"can be run as needed."
+"RTN","ECXAPHA",49,0)
+ W !!,"The report is sorted by Feeder Key, Descending ",$S('$G(ECXCOST):"Volume",1:"Cost"),", and SSN."
+"RTN","ECXAPHA",50,0)
+ S DIR(0)="E" W ! D ^DIR K DIR I 'Y S QFLG=1 Q
+"RTN","ECXAPHA",51,0)
+ W:$Y!($E(IOST)="C") @IOF,!!
+"RTN","ECXAPHA",52,0)
+ Q
+"RTN","ECXAPHA",53,0)
+ ;
+"RTN","ECXAPHA",54,0)
+SELECT ; user inputs for report option, threshold volume/cost and date range
+"RTN","ECXAPHA",55,0)
+ N DONE,OUT,DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT ;144
+"RTN","ECXAPHA",56,0)
+ S ECXISIG=0,ECXBCM="" ;144
+"RTN","ECXAPHA",57,0)
+ ; allow user to select report option (PRE,IVP,UDP or BCM)
+"RTN","ECXAPHA",58,0)
+ W "Choose the report you would like to run."
+"RTN","ECXAPHA",59,0)
+ S DIR(0)="S^1:PRE;2:IVP;3:UDP;4:BCM",DIR("A")="Selection",DIR("B")=1 D ^DIR K DIR S ECXOPT=Y I X["^" S QFLG=1 Q
+"RTN","ECXAPHA",60,0)
+ I '$G(ECXCOST) I ECXOPT=2 S FYVER=$$REPORTFY^ECXUTL1("RXUNVOL") Q:FYVER=-1 ;144 Which version of report should be run for volume report?
+"RTN","ECXAPHA",61,0)
+ I ECXOPT=4 D Q:$G(QFLG) ;144
+"RTN","ECXAPHA",62,0)
+ .S DIR(0)="S^I:IV;N:NON-IV",DIR("A")="Select type of BCM record",DIR("?",1)="BCM contains both IV and NON-IV records. Select which type of",DIR("?")="record to check against the threshold." ;144
+"RTN","ECXAPHA",63,0)
+ .D ^DIR S:$D(DIRUT) QFLG=1 I '$G(QFLG) S ECXBCM=Y ;144
+"RTN","ECXAPHA",64,0)
+ S ECXTL=$S(ECXOPT=1:"Prescription",ECXOPT=2:"IV Detail",ECXOPT=3:"Unit Dose Local",ECXOPT=4:"BCM-"_$S(ECXBCM="N":"NON ",1:"")_"IV Entries",1:"") ;144
+"RTN","ECXAPHA",65,0)
+ ; allow user to set threshold volume/cost
+"RTN","ECXAPHA",66,0)
+ I '$G(ECXCOST) S ECTHLD=$S(ECXOPT=2!(ECXOPT=4&(ECXBCM="I")):1000,ECXOPT=4&(ECXBCM="N"):5,1:500) ;144
+"RTN","ECXAPHA",67,0)
+ I $G(ECXCOST) S ECTHLD=$S(ECXOPT=2!(ECXOPT=4&(ECXBCM="I")):100,ECXOPT=3!(ECXOPT=4&(ECXBCM="N")):20,1:50) ;144
+"RTN","ECXAPHA",68,0)
+ W !!,"The default threshold ",$S('$G(ECXCOST):"volume",1:"cost")," for the ",ECXTL," extract is ",$S($G(ECXCOST):"$",1:""),ECTHLD,"." ;144
+"RTN","ECXAPHA",69,0)
+ S DIR(0)="Y",DIR("A")="Would you like to change the threshold",DIR("B")="NO" D ^DIR K DIR I X["^" S QFLG=1 Q
+"RTN","ECXAPHA",70,0)
+ I Y D
+"RTN","ECXAPHA",71,0)
+ .I '$G(ECXCOST) W !!,$S(ECXOPT=2:"threshold > Total Doses Per Day < -threshold",ECXOPT=4:"Component Dose Give > Threshold",1:"Quantity > threshold") ;144
+"RTN","ECXAPHA",72,0)
+ .S DIR(0)="N^0:100000:0",DIR("A")="Enter the new threshold "_$S('$G(ECXCOST):"volume",1:"cost") D ^DIR K DIR S ECTHLD=Y I X["^" S QFLG=1 Q ;144
+"RTN","ECXAPHA",73,0)
+ ; check to see if SIG should be place on the sec line of rpt cvw - *136
+"RTN","ECXAPHA",74,0)
+ I ECXOPT=3!(ECXOPT=4&(ECXBCM="N")) S DIR(0)="Y",DIR("A")="Include SIG/Order Direction on line 2 of report",DIR("B")="NO" D ^DIR K DIR S:Y ECXISIG=1 I X["^" S QFLG=1 Q ;144
+"RTN","ECXAPHA",75,0)
+ ; get date range from user
+"RTN","ECXAPHA",76,0)
+ W !!,"Enter the date range for which you would like to scan the ",ECXTL,!,"Extract records."
+"RTN","ECXAPHA",77,0)
+ S DONE=0 F S (ECED,ECSD)="" D Q:QFLG!DONE
+"RTN","ECXAPHA",78,0)
+ .K %DT S %DT="AEX",%DT("A")="Starting with Date: ",%DT(0)=-DATE D ^%DT
+"RTN","ECXAPHA",79,0)
+ .I Y<0 S QFLG=1 Q
+"RTN","ECXAPHA",80,0)
+ .S ECSD=Y,ECSD1=ECSD-.1
+"RTN","ECXAPHA",81,0)
+ .D DD^%DT S ECSTART=Y
+"RTN","ECXAPHA",82,0)
+ .K %DT S %DT="AEX",%DT("A")="Ending with Date: ",%DT(0)=-DATE D ^%DT
+"RTN","ECXAPHA",83,0)
+ .I Y<0 S QFLG=1 Q
+"RTN","ECXAPHA",84,0)
+ .I Y<ECSD D Q
+"RTN","ECXAPHA",85,0)
+ ..W !!,"The ending date cannot be earlier than the starting date."
+"RTN","ECXAPHA",86,0)
+ ..W !,"Please try again.",!!
+"RTN","ECXAPHA",87,0)
+ .I $E(Y,1,5)'=$E(ECSD,1,5) D Q
+"RTN","ECXAPHA",88,0)
+ ..W !!,"Beginning and ending dates must be in the same month and year."
+"RTN","ECXAPHA",89,0)
+ ..W !,"Please try again.",!!
+"RTN","ECXAPHA",90,0)
+ .S ECED=Y
+"RTN","ECXAPHA",91,0)
+ .D DD^%DT S ECEND=Y
+"RTN","ECXAPHA",92,0)
+ .S DONE=1
+"RTN","ECXAPHA",93,0)
+ Q
+"RTN","ECXAPHA",94,0)
+ ;
+"RTN","ECXAPHA",95,0)
+PROCESS ; entry point for queued report
+"RTN","ECXAPHA",96,0)
+ S ZTREQ="@"
+"RTN","ECXAPHA",97,0)
+ S ECXERR=0 D EN^ECXAPHA2 Q:ECXERR
+"RTN","ECXAPHA",98,0)
+ S QFLG=0 D PRINT
+"RTN","ECXAPHA",99,0)
+ Q
+"RTN","ECXAPHA",100,0)
+ ;
+"RTN","ECXAPHA",101,0)
+PRINT ; process temp file and print report
+"RTN","ECXAPHA",102,0)
+ N PG,QFLG,GTOT,LN,COUNT,FKEY,QTY,SSN,REC,EDAY,ECXCOUNT
+"RTN","ECXAPHA",103,0)
+ U IO
+"RTN","ECXAPHA",104,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 K ZTREQ Q
+"RTN","ECXAPHA",105,0)
+ S (PG,QFLG,GTOT)=0,$P(LN,"-",132)=""
+"RTN","ECXAPHA",106,0)
+ I '$G(ECXPORT) D HEADER Q:QFLG ;144
+"RTN","ECXAPHA",107,0)
+ S COUNT=0,FKEY="" F S FKEY=$O(^TMP($J,FKEY)) Q:FKEY=""!QFLG!(FKEY="ECXPORT") D ;144
+"RTN","ECXAPHA",108,0)
+ .S QTY="" F S QTY=$O(^TMP($J,FKEY,QTY)) Q:QTY=""!QFLG D
+"RTN","ECXAPHA",109,0)
+ ..S EDAY="" F S EDAY=$O(^TMP($J,FKEY,QTY,EDAY)) Q:EDAY=""!QFLG D
+"RTN","ECXAPHA",110,0)
+ ...S ECXCOUNT="" F S ECXCOUNT=$O(^TMP($J,FKEY,QTY,EDAY,ECXCOUNT)) Q:ECXCOUNT=""!QFLG D
+"RTN","ECXAPHA",111,0)
+ ....S SSN=""
+"RTN","ECXAPHA",112,0)
+ ....F S SSN=$O(^TMP($J,FKEY,QTY,EDAY,ECXCOUNT,SSN)) Q:SSN=""!QFLG S REC=^(SSN) D
+"RTN","ECXAPHA",113,0)
+ .....I $G(ECXPORT) D Q ;144
+"RTN","ECXAPHA",114,0)
+ ......S ^TMP($J,"ECXPORT",CNT)=$P(REC,U)_U_$P(REC,U,2)_U_$P(REC,U,3)_U_$P(REC,U,4)_U_$P(REC,U,5)_U_$P(REC,U,6)_" "_$P(REC,U,7)_U_$P(REC,U,8)_$S(ECXOPT=1:(U_$P(REC,U,9)),ECXISIG:(U_$S($P(REC,U,10)="":"N/A",1:$P(REC,U,10))),1:"") ;144
+"RTN","ECXAPHA",115,0)
+ ......S CNT=CNT+1 ;144
+"RTN","ECXAPHA",116,0)
+ .....S COUNT=COUNT+1
+"RTN","ECXAPHA",117,0)
+ .....I $Y+3>IOSL D HEADER Q:QFLG
+"RTN","ECXAPHA",118,0)
+ .....W !,$P(REC,U),?8,$P(REC,U,2),?20,$P(REC,U,3),?29,$E($P(REC,U,4),1,40)
+"RTN","ECXAPHA",119,0)
+ .....W ?71,$P(REC,U,5),?89,$$RJ^XLFSTR($P(REC,U,6),9)_" "_$E($P(REC,U,7),1,7)
+"RTN","ECXAPHA",120,0)
+ .....I ECXOPT=1 D
+"RTN","ECXAPHA",121,0)
+ ......W ?108,$$RJ^XLFSTR($P(REC,U,8),12),?125,$$RJ^XLFSTR($P(REC,U,9),3)
+"RTN","ECXAPHA",122,0)
+ .....I ECXOPT'=1 D
+"RTN","ECXAPHA",123,0)
+ ......W ?116,$$RJ^XLFSTR($P(REC,U,8),14)
+"RTN","ECXAPHA",124,0)
+ .....I $G(ECXISIG) D ;144
+"RTN","ECXAPHA",125,0)
+ ......W !,?5,"SIG: ",$S($P(REC,U,10)="":"N/A",1:$P(REC,U,10)),! ;136
+"RTN","ECXAPHA",126,0)
+ Q:QFLG!($G(ECXPORT)) ;144
+"RTN","ECXAPHA",127,0)
+ I COUNT=0 W !!,?8,"No unusual ",$S('$G(ECXCOST):"volumes",1:"costs")," to report for this extract" ;144
+"RTN","ECXAPHA",128,0)
+CLOSE ;
+"RTN","ECXAPHA",129,0)
+ I $E(IOST)="C",'QFLG D
+"RTN","ECXAPHA",130,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXAPHA",131,0)
+ .S DIR(0)="E" W ! D ^DIR K DIR
+"RTN","ECXAPHA",132,0)
+ Q
+"RTN","ECXAPHA",133,0)
+ ;
+"RTN","ECXAPHA",134,0)
+HEADER ;header and page control
+"RTN","ECXAPHA",135,0)
+ N SS,JJ
+"RTN","ECXAPHA",136,0)
+ I $E(IOST)="C" D
+"RTN","ECXAPHA",137,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXAPHA",138,0)
+ .I PG>0 S DIR(0)="E" W ! D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXAPHA",139,0)
+ Q:QFLG
+"RTN","ECXAPHA",140,0)
+ W:$Y!($E(IOST)="C") @IOF S PG=PG+1
+"RTN","ECXAPHA",141,0)
+ W !,ECXTL_" Extract Unusual ",$S('$G(ECXCOST):"Volume",1:"Cost")," Report",?124,"Page: "_PG ;144
+"RTN","ECXAPHA",142,0)
+ W !,"Start Date: ",ECSTART,?97,"Report Run Date/Time: "_ECRUN
+"RTN","ECXAPHA",143,0)
+ W !,"End Date: ",ECEND,?97,"Threshold Value = ",$S($G(ECXCOST):"$",1:""),ECTHLD ;144
+"RTN","ECXAPHA",144,0)
+ W !!,"Name",?11,"SSN",?21,"Day",?29,"Generic Name",?71,"Feeder Key"
+"RTN","ECXAPHA",145,0)
+ I ECXOPT=1 W ?95,"Quantity",?109,"Total Cost",?120,"Days Supply" ;144 Combined lines
+"RTN","ECXAPHA",146,0)
+ I ECXOPT=2 W ?93,"Total Doses",?121,"Total Cost",!,?95,"Per Day" ;144
+"RTN","ECXAPHA",147,0)
+ I ECXOPT=3 W ?96,"Quantity",?121,"Total Cost" ;144
+"RTN","ECXAPHA",148,0)
+ I ECXOPT=4 W ?89,"Component Dose Given",?121,"Total Cost" ;144
+"RTN","ECXAPHA",149,0)
+ W !,LN,!
+"RTN","ECXAPHA",150,0)
+ Q
+"RTN","ECXAPHA",151,0)
+ ;
+"RTN","ECXAPHA",152,0)
+SIG(ORDNO,PATNO) ;Get ordering instructions for unit dose order. API added in patch 136
+"RTN","ECXAPHA",153,0)
+ N DATA,RECNO,I,SIG
+"RTN","ECXAPHA",154,0)
+ S SIG=""
+"RTN","ECXAPHA",155,0)
+ I ORDNO=""!(PATNO="") Q SIG
+"RTN","ECXAPHA",156,0)
+ S RECNO=ORDNO_","_PATNO_","
+"RTN","ECXAPHA",157,0)
+ D GETS^DIQ(55.06,RECNO,"26;120;121","E","DATA")
+"RTN","ECXAPHA",158,0)
+ F I=120,121,26 S SIG=$G(SIG)_$S($L(SIG)>0:" ",1:"")_$G(DATA(55.06,RECNO,I,"E"))
+"RTN","ECXAPHA",159,0)
+ Q SIG
+"RTN","ECXAPHA",160,0)
+ ;
+"RTN","ECXAPHA",161,0)
+COST ;Section added in 144, entry point for unusual cost report
+"RTN","ECXAPHA",162,0)
+ N ECXCOST
+"RTN","ECXAPHA",163,0)
+ S ECXCOST=1
+"RTN","ECXAPHA",164,0)
+ D EN
+"RTN","ECXAPHA",165,0)
+ Q
+"RTN","ECXAPHA2")
+0^59^B51669266^B28836077
+"RTN","ECXAPHA2",1,0)
+ECXAPHA2 ;ALB/TMD-Pharmacy Extracts Unusual Volumes Report ;5/20/13 16:59
+"RTN","ECXAPHA2",2,0)
+ ;;3.0;DSS EXTRACTS;**40,49,84,104,105,113,136,143,144**;Dec 22, 1997;Build 9
+"RTN","ECXAPHA2",3,0)
+ ;
+"RTN","ECXAPHA2",4,0)
+EN ; entry point
+"RTN","ECXAPHA2",5,0)
+ N COUNT,ECUNIT,LINE,ECDFN,ECD,ECDRG,ECDAY,ECDFN,ECQTY,ECUNIT,ECCOST,ECDS,ECXCOUNT
+"RTN","ECXAPHA2",6,0)
+ I '$G(ECXPORT) K ^TMP($J) ;144
+"RTN","ECXAPHA2",7,0)
+ S (COUNT,ECDS,ECXCOUNT)=0,ECUNIT=""
+"RTN","ECXAPHA2",8,0)
+ S ECD=ECSD1,ECED=ECED+.3
+"RTN","ECXAPHA2",9,0)
+ S LINE=$S(ECXOPT=1:"PRE",ECXOPT=2:"IVP",ECXOPT=3:"UDP",ECXOPT=4:"BCM",1:"EXIT") ;144
+"RTN","ECXAPHA2",10,0)
+ D @LINE
+"RTN","ECXAPHA2",11,0)
+ Q
+"RTN","ECXAPHA2",12,0)
+ ;
+"RTN","ECXAPHA2",13,0)
+PRE ; entry point for PRE data
+"RTN","ECXAPHA2",14,0)
+ N ECRFL,ECRX,ECREF,ECDATA,ECDATA1,ECPRC,IEN
+"RTN","ECXAPHA2",15,0)
+ K ^TMP($J,"ECXDSS")
+"RTN","ECXAPHA2",16,0)
+ ;call pharmacy api pso52ex
+"RTN","ECXAPHA2",17,0)
+ D EXTRACT^PSO52EX(ECD,ECED,"ECXDSS")
+"RTN","ECXAPHA2",18,0)
+ S ECREF="RF"
+"RTN","ECXAPHA2",19,0)
+ ;order thru fills and refills; refill values 0 thru 11
+"RTN","ECXAPHA2",20,0)
+ ; Note: refill 0 = original fill
+"RTN","ECXAPHA2",21,0)
+ F S ECD=$O(^TMP($J,"ECXDSS","AL",ECD)),IEN=0 Q:'ECD Q:ECD>ECED Q:ECXERR F S IEN=$O(^TMP($J,"ECXDSS","AL",ECD,IEN)),ECRFL="" Q:'IEN Q:ECXERR F S ECRFL=$O(^TMP($J,"ECXDSS","AL",ECD,IEN,ECRFL)) Q:ECRFL="" Q:ECXERR D PRE2
+"RTN","ECXAPHA2",22,0)
+ ;
+"RTN","ECXAPHA2",23,0)
+ ;order thru partial fills
+"RTN","ECXAPHA2",24,0)
+ S ECD=ECSD1,ECREF="P"
+"RTN","ECXAPHA2",25,0)
+ F S ECD=$O(^TMP($J,"ECXDSS","AM",ECD)),IEN=0 Q:'ECD Q:ECD>ECED Q:ECXERR F S IEN=$O(^(ECD,IEN)),ECRFL="" Q:'IEN Q:ECXERR F S ECRFL=$O(^(IEN,ECRFL)) Q:'ECRFL Q:ECXERR D PRE2
+"RTN","ECXAPHA2",26,0)
+ K ^TMP($J,"ECXDSS")
+"RTN","ECXAPHA2",27,0)
+ Q
+"RTN","ECXAPHA2",28,0)
+ ;
+"RTN","ECXAPHA2",29,0)
+PRE2 ; get Prescription data
+"RTN","ECXAPHA2",30,0)
+ I (ECREF="RF")&(ECRFL) D
+"RTN","ECXAPHA2",31,0)
+ .S ECQTY=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,1)
+"RTN","ECXAPHA2",32,0)
+ .S ECDS=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,1.1)
+"RTN","ECXAPHA2",33,0)
+ .S ECPRC=^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,1.2)
+"RTN","ECXAPHA2",34,0)
+ I (ECREF="RF")&('ECRFL) D
+"RTN","ECXAPHA2",35,0)
+ .S ECQTY=+^TMP($J,"ECXDSS",IEN,7)
+"RTN","ECXAPHA2",36,0)
+ .S ECDS=+^TMP($J,"ECXDSS",IEN,8)
+"RTN","ECXAPHA2",37,0)
+ .S ECPRC=+^TMP($J,"ECXDSS",IEN,17)
+"RTN","ECXAPHA2",38,0)
+ I ECREF="P" D
+"RTN","ECXAPHA2",39,0)
+ .S ECQTY=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,.04)
+"RTN","ECXAPHA2",40,0)
+ .S ECDS=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,.041)
+"RTN","ECXAPHA2",41,0)
+ .S ECPRC=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,.042)
+"RTN","ECXAPHA2",42,0)
+ S ECDAY=ECD ;144
+"RTN","ECXAPHA2",43,0)
+ S ECDFN=$P(^TMP($J,"ECXDSS",IEN,2),U) ;144
+"RTN","ECXAPHA2",44,0)
+ S ECDRG=+$P(^TMP($J,"ECXDSS",IEN,6),U) ;144
+"RTN","ECXAPHA2",45,0)
+ S ECCOST=ECQTY*ECPRC ;144
+"RTN","ECXAPHA2",46,0)
+ ;Is cost/volume greater than threshold?
+"RTN","ECXAPHA2",47,0)
+ I $S($G(ECXCOST):ECCOST,1:ECQTY)>ECTHLD D FILE ;144
+"RTN","ECXAPHA2",48,0)
+ Q
+"RTN","ECXAPHA2",49,0)
+ ;
+"RTN","ECXAPHA2",50,0)
+IVP ; entry point for IVP Data
+"RTN","ECXAPHA2",51,0)
+ N DFN,ON,DA,SA,ECCOUNT ;143
+"RTN","ECXAPHA2",52,0)
+ F S ECD=$O(^ECX(728.113,"A",ECD)),DFN=0 Q:'ECD Q:ECD>ECED Q:ECXERR F S DFN=$O(^ECX(728.113,"A",ECD,DFN)),ON=0 Q:'DFN F S ON=$O(^ECX(728.113,"A",ECD,DFN,ON)),DA=0 Q:'ON K ^TMP($J,"A"),^("S") D Q:ECXERR
+"RTN","ECXAPHA2",53,0)
+ .F S DA=$O(^ECX(728.113,"A",ECD,DFN,ON,DA)) Q:'DA Q:ECXERR I $D(^ECX(728.113,DA,0)) S EC=^(0) Q:ECXERR D
+"RTN","ECXAPHA2",54,0)
+ ..S ECDRG=$P(EC,U,4)
+"RTN","ECXAPHA2",55,0)
+ ..S SA=$S($P(EC,U,8)]"":"A",$P(EC,U,9):"S",1:"")
+"RTN","ECXAPHA2",56,0)
+ ..; set up new record for first DA for this drug
+"RTN","ECXAPHA2",57,0)
+ ..I '$D(^TMP($J,SA,ECDRG)) D
+"RTN","ECXAPHA2",58,0)
+ ...S ECQTY=+$S(SA="A":+$P(EC,U,7),SA="S":+$P(EC,U,9),1:0)
+"RTN","ECXAPHA2",59,0)
+ ...S ECUNIT=$S(SA="A":$P(EC,U,8),SA="S":"ML",1:"")
+"RTN","ECXAPHA2",60,0)
+ ...S ECCOST=$P(EC,U,12),ECDFN=DFN
+"RTN","ECXAPHA2",61,0)
+ ...S ^TMP($J,SA,ECDRG)=ECUNIT_U_ECD_U_ECDFN_U_ECCOST_U_ECQTY
+"RTN","ECXAPHA2",62,0)
+ ...S ^(ECDRG,1)=0
+"RTN","ECXAPHA2",63,0)
+ ..; add to qty (0,1, or -1) to total
+"RTN","ECXAPHA2",64,0)
+ ..S ^TMP($J,SA,ECDRG,1)=^TMP($J,SA,ECDRG,1)+$S($P(EC,U,6)=1:1,$P(EC,U,6)=4:0,1:-1)
+"RTN","ECXAPHA2",65,0)
+ .; looped thru all DAs for this order - now check for unusual volumes
+"RTN","ECXAPHA2",66,0)
+ .F SA="S","A" S ECDRG="" F S ECDRG=$O(^TMP($J,SA,ECDRG)) Q:ECDRG="" Q:ECXERR D
+"RTN","ECXAPHA2",67,0)
+ ..S ECQTY=$P(^TMP($J,SA,ECDRG),U,5),ECCOUNT=^(ECDRG,1)
+"RTN","ECXAPHA2",68,0)
+ ..S ECQTY=ECQTY*ECCOUNT
+"RTN","ECXAPHA2",69,0)
+ ..S ECUNIT=$P(^TMP($J,SA,ECDRG),U) ;144
+"RTN","ECXAPHA2",70,0)
+ ..S ECDAY=$P(^(ECDRG),U,2) ;144
+"RTN","ECXAPHA2",71,0)
+ ..S ECDFN=$P(^(ECDRG),U,3) ;144
+"RTN","ECXAPHA2",72,0)
+ ..; New Cost calculation ** 136,144
+"RTN","ECXAPHA2",73,0)
+ ..; Removed avg cost search from 136 use existing avgcost and quantity vs count ** 143,144
+"RTN","ECXAPHA2",74,0)
+ ..S ECCOST=$P(^(ECDRG),U,4)*ECQTY ;144
+"RTN","ECXAPHA2",75,0)
+ ..;144 Check volume versus threshold
+"RTN","ECXAPHA2",76,0)
+ ..I '$G(ECXCOST) I ECQTY>ECTHLD!(ECQTY<-ECTHLD) D FILE ;144
+"RTN","ECXAPHA2",77,0)
+ ..;144 Check cost versus threshold
+"RTN","ECXAPHA2",78,0)
+ ..I $G(ECXCOST) I ECCOST>ECTHLD D FILE ;144
+"RTN","ECXAPHA2",79,0)
+ K ^TMP($J,"A"),^("S")
+"RTN","ECXAPHA2",80,0)
+ Q
+"RTN","ECXAPHA2",81,0)
+ ;
+"RTN","ECXAPHA2",82,0)
+UDP ; entry point for UDP data
+"RTN","ECXAPHA2",83,0)
+ N ECXJ,ECDATA,ECORD ;136
+"RTN","ECXAPHA2",84,0)
+ F S ECD=$O(^ECX(728.904,"A",ECD)) Q:'ECD Q:ECD>ECED Q:ECXERR D
+"RTN","ECXAPHA2",85,0)
+ .S ECXJ=0 F S ECXJ=$O(^ECX(728.904,"A",ECD,ECXJ)) Q:'ECXJ Q:ECXERR I $D(^ECX(728.904,ECXJ,0)) D
+"RTN","ECXAPHA2",86,0)
+ ..S DATA=^ECX(728.904,ECXJ,0),ECQTY=$P(DATA,U,5)
+"RTN","ECXAPHA2",87,0)
+ ..S ECDFN=$P(DATA,U,2),ECDRG=$P(DATA,U,4),ECCOST=$P(DATA,U,8),ECDAY=ECD,ECORD=$P(DATA,U,10) ;136,144
+"RTN","ECXAPHA2",88,0)
+ ..;144 Check volume or cost against threshold
+"RTN","ECXAPHA2",89,0)
+ ..I $S($G(ECXCOST):ECCOST,1:ECQTY)>ECTHLD D FILE ;144
+"RTN","ECXAPHA2",90,0)
+ Q
+"RTN","ECXAPHA2",91,0)
+ ;
+"RTN","ECXAPHA2",92,0)
+BCM ;Section added in patch 144
+"RTN","ECXAPHA2",93,0)
+ N PIEN,IDAT,RIEN,ECXDFN,ECXNOD,ECXORN,ACTDT,ECXASTA,CCDORD,CCDGVN,CCUNIT,CCTYPE,DRG,ECXDRGC,UNITCOST,CCIEN,ECXIVSC,ECXIVAC,ECORD
+"RTN","ECXAPHA2",94,0)
+ S PIEN=0
+"RTN","ECXAPHA2",95,0)
+ I $G(ECSD)="" S ECSD=DT
+"RTN","ECXAPHA2",96,0)
+ ; loop thru and get each new patient, reset the start date to ECSD
+"RTN","ECXAPHA2",97,0)
+ F S PIEN=$O(^PSB(53.79,"AADT",PIEN)) Q:('PIEN) Q:ECXERR S IDAT=ECSD D
+"RTN","ECXAPHA2",98,0)
+ .F S IDAT=$O(^PSB(53.79,"AADT",PIEN,IDAT)) Q:'IDAT!(IDAT>ECED) Q:ECXERR S RIEN="" D
+"RTN","ECXAPHA2",99,0)
+ ..F S RIEN=$O(^PSB(53.79,"AADT",PIEN,IDAT,RIEN)) Q:'RIEN D
+"RTN","ECXAPHA2",100,0)
+ ...S ECXNOD=^PSB(53.79,RIEN,0) Q:'ECXNOD S ECXDFN=$P($G(ECXNOD),U)
+"RTN","ECXAPHA2",101,0)
+ ...S ECXORN=$$GET1^DIQ(53.79,RIEN,.11)
+"RTN","ECXAPHA2",102,0)
+ ...I ECXORN["U" Q:$$CHKUD^ECXBCM(ECXDFN,ECSD,ECED) Q:ECXBCM="I"
+"RTN","ECXAPHA2",103,0)
+ ...I ECXORN["V" Q:$$CHKIV^ECXBCM(ECXDFN,ECSD,ECED) Q:ECXBCM="N"
+"RTN","ECXAPHA2",104,0)
+ ...S ACTDT=$$GET1^DIQ(53.79,RIEN,.06,"I") Q:ACTDT'=IDAT
+"RTN","ECXAPHA2",105,0)
+ ...S ECXASTA=$$GET1^DIQ(53.79,RIEN,.09,"I")
+"RTN","ECXAPHA2",106,0)
+ ...I "^G^S^C^"'[("^"_ECXASTA_"^") Q ;process 'G'iven,'S'topped,'C'ompleted
+"RTN","ECXAPHA2",107,0)
+ ...D CCODE(RIEN)
+"RTN","ECXAPHA2",108,0)
+ Q
+"RTN","ECXAPHA2",109,0)
+ ;
+"RTN","ECXAPHA2",110,0)
+CCODE(RIEN) ; 144 get component information added in patch 144
+"RTN","ECXAPHA2",111,0)
+ ; input - IEN of the BCMA MEDICATION LOG File
+"RTN","ECXAPHA2",112,0)
+ ;
+"RTN","ECXAPHA2",113,0)
+ ; output - CCIEN: pointer to a variable pointer field to file #50, #52.6, or #52.7
+"RTN","ECXAPHA2",114,0)
+ ; CCDORD: .02 field of file #50, #52.6, or #52.7
+"RTN","ECXAPHA2",115,0)
+ ; CCDGVN: .03 FIELD of file #50, #52.6, or #52.7
+"RTN","ECXAPHA2",116,0)
+ ; CCUNIT: .04 field of file #50, #52.6, or #52.7
+"RTN","ECXAPHA2",117,0)
+ ; CCTYPE: derived field, "D", "A", or "S"
+"RTN","ECXAPHA2",118,0)
+ ;
+"RTN","ECXAPHA2",119,0)
+ N J,DATA,I
+"RTN","ECXAPHA2",120,0)
+ S (CCIEN,CCDORD,CCDGVN,CCUNIT,CCTYPE)=""
+"RTN","ECXAPHA2",121,0)
+ F I=.5,.6,.7 D Q:ECXERR
+"RTN","ECXAPHA2",122,0)
+ .I '$O(^PSB(53.79,RIEN,I,0)) Q
+"RTN","ECXAPHA2",123,0)
+ .S J=0 F S J=$O(^PSB(53.79,RIEN,I,J)) Q:'J Q:ECXERR D
+"RTN","ECXAPHA2",124,0)
+ ..S (UNITCOST,ECXDRGC,ECXIVSC,ECXIVAC)=0
+"RTN","ECXAPHA2",125,0)
+ ..S DATA=^PSB(53.79,RIEN,I,J,0)
+"RTN","ECXAPHA2",126,0)
+ ..S CCIEN=$P(DATA,U),CCDORD=$P(DATA,U,2),CCDGVN=$S(+($P(DATA,U,3))>0:+($P(DATA,U,3)),1:1),CCUNIT=$S(+($P(DATA,U,4))>0:+($P(DATA,U,4)),1:1)
+"RTN","ECXAPHA2",127,0)
+ ..I I=.5 D
+"RTN","ECXAPHA2",128,0)
+ ...S DRG=CCIEN,UNITCOST=$$GET1^DIQ(50,DRG,16,"I")
+"RTN","ECXAPHA2",129,0)
+ ...S ECXDRGC=(CCDGVN*CCUNIT)*UNITCOST
+"RTN","ECXAPHA2",130,0)
+ ..I I=.6 D
+"RTN","ECXAPHA2",131,0)
+ ...S DRG=$$GET1^DIQ(52.6,CCIEN,1,"I"),UNITCOST=$$GET1^DIQ(52.6,CCIEN,7,"I")
+"RTN","ECXAPHA2",132,0)
+ ...S ECXIVAC=CCDGVN*UNITCOST
+"RTN","ECXAPHA2",133,0)
+ ..I I=.7 D
+"RTN","ECXAPHA2",134,0)
+ ...S DRG=$$GET1^DIQ(52.7,CCIEN,1,"I"),UNITCOST=$$GET1^DIQ(52.7,CCIEN,7,"I")
+"RTN","ECXAPHA2",135,0)
+ ...S ECXIVSC=CCDGVN*UNITCOST
+"RTN","ECXAPHA2",136,0)
+ ..S CCTYPE=$S(I=.5:"D",I=.6:"A",I=.7:"S",1:"")
+"RTN","ECXAPHA2",137,0)
+ ..S CCIEN=$S(I=.5:CCIEN_";PSDRUG(",I=.6:CCIEN_";PS(52.6,",I=.7:CCIEN_";PS(52.7,",1:"")
+"RTN","ECXAPHA2",138,0)
+ ..S ECDAY=IDAT
+"RTN","ECXAPHA2",139,0)
+ ..S ECDFN=ECXDFN
+"RTN","ECXAPHA2",140,0)
+ ..S ECDRG=DRG
+"RTN","ECXAPHA2",141,0)
+ ..S ECQTY=CCDGVN
+"RTN","ECXAPHA2",142,0)
+ ..S ECCOST=$S(ECXDRGC:ECXDRGC,ECXIVSC:ECXIVSC,ECXIVAC:ECXIVAC,1:0)
+"RTN","ECXAPHA2",143,0)
+ ..S ECORD=+ECXORN
+"RTN","ECXAPHA2",144,0)
+ ..I $S($G(ECXCOST):ECCOST,1:CCDGVN)>ECTHLD D FILE
+"RTN","ECXAPHA2",145,0)
+ Q
+"RTN","ECXAPHA2",146,0)
+ ;
+"RTN","ECXAPHA2",147,0)
+FILE ; put records in temp file to print later
+"RTN","ECXAPHA2",148,0)
+ N OK,ECXPAT,ECNAME,ECSSN,ECGNAME,ECNDC,ECPROD,ECFKEY,ECXPHA,J ;144
+"RTN","ECXAPHA2",149,0)
+ ; get demographics
+"RTN","ECXAPHA2",150,0)
+ S OK=$$PAT^ECXUTL3(ECDFN,$P(ECD,"."),"1;",.ECXPAT)
+"RTN","ECXAPHA2",151,0)
+ I 'OK Q
+"RTN","ECXAPHA2",152,0)
+ S ECNAME=ECXPAT("NAME")
+"RTN","ECXAPHA2",153,0)
+ S ECSSN=ECXPAT("SSN")
+"RTN","ECXAPHA2",154,0)
+ S ECDAY=$E(ECDAY,4,5)_"/"_$E(ECDAY,6,7)
+"RTN","ECXAPHA2",155,0)
+ ; get drug file data
+"RTN","ECXAPHA2",156,0)
+ S ECXPHA="",ECXPHA=$$PHAAPI^ECXUTL5(ECDRG)
+"RTN","ECXAPHA2",157,0)
+ S ECGNAME=$P(ECXPHA,U)
+"RTN","ECXAPHA2",158,0)
+ S ECNDC=$P(ECXPHA,U,3)
+"RTN","ECXAPHA2",159,0)
+ S ECNDC=$$RJ^XLFSTR($P(ECNDC,"-"),6,0)_$$RJ^XLFSTR($P(ECNDC,"-",2),4,0)_$$RJ^XLFSTR($P(ECNDC,"-",3),2,0)
+"RTN","ECXAPHA2",160,0)
+ S ECNDC=$TR(ECNDC,"*",0)
+"RTN","ECXAPHA2",161,0)
+ S ECPROD=$P(ECXPHA,U,6)
+"RTN","ECXAPHA2",162,0)
+ S ECPROD=$$RJ^XLFSTR(ECPROD,5,0)
+"RTN","ECXAPHA2",163,0)
+ S ECFKEY=ECPROD_ECNDC
+"RTN","ECXAPHA2",164,0)
+ I ECXOPT'=2&'(ECXOPT=4&($G(ECXBCM)="I")) S ECUNIT=$P(ECXPHA,U,8)
+"RTN","ECXAPHA2",165,0)
+ ; file
+"RTN","ECXAPHA2",166,0)
+ S ^TMP($J,ECFKEY,-ECQTY,ECDAY,ECXCOUNT,ECSSN)=ECNAME_U_ECSSN_U_ECDAY_U_ECGNAME_U_ECFKEY_U_ECQTY_U_ECUNIT_U_"$"_$FNUMBER(ECCOST,",",4)_U_ECDS
+"RTN","ECXAPHA2",167,0)
+ I $G(ECXISIG) S $P(^TMP($J,ECFKEY,-ECQTY,ECDAY,ECXCOUNT,ECSSN),U,10)=$$SIG^ECXAPHA(ECORD,ECDFN) ;136,144 Get SIG data if UDP or BCM Non-IV report
+"RTN","ECXAPHA2",168,0)
+ S COUNT=COUNT+1
+"RTN","ECXAPHA2",169,0)
+ S ECXCOUNT=ECXCOUNT+1
+"RTN","ECXAPHA2",170,0)
+ I COUNT#100=0 I $$S^ZTLOAD S (ZTSTOP,ECXERR)=1 ;136 Update ZTSTOP var to be spelled correctly
+"RTN","ECXAPHA2",171,0)
+ Q
+"RTN","ECXAPHA2",172,0)
+ ;
+"RTN","ECXAPHA2",173,0)
+EXIT S ECXERR=1 Q
+"RTN","ECXAPHAP")
+0^45^B37750813^n/a
+"RTN","ECXAPHAP",1,0)
+ECXAPHAP ;ALB/TMD-Pharmacy Extracts Unusual Volumes Report ;3/27/13 16:58
+"RTN","ECXAPHAP",2,0)
+ ;;3.0;DSS EXTRACTS;**40,49,66,104,109,113,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXAPHAP",3,0)
+ ;
+"RTN","ECXAPHAP",4,0)
+ ;This routine is new with patch 144 but is a copy of ECXAPHA before it
+"RTN","ECXAPHAP",5,0)
+ ;was changed for the FY update. This is now the previous fiscal year
+"RTN","ECXAPHAP",6,0)
+ ;version of the routine
+"RTN","ECXAPHAP",7,0)
+EN ; entry point
+"RTN","ECXAPHAP",8,0)
+ N X,Y,DATE,ECRUN,ECXOPT,ECXDESC,ECXSAVE,ECXTL,ECTHLD,ECSD
+"RTN","ECXAPHAP",9,0)
+ N ECSD1,ECSTART,ECED,ECEND,ECXERR,QFLG,ECXISIG
+"RTN","ECXAPHAP",10,0)
+ S QFLG=0
+"RTN","ECXAPHAP",11,0)
+ ; get today's date
+"RTN","ECXAPHAP",12,0)
+ D NOW^%DTC S DATE=X,Y=$E(%,1,12) D DD^%DT S ECRUN=$P(Y,"@") K %DT
+"RTN","ECXAPHAP",13,0)
+ D BEGIN Q:QFLG
+"RTN","ECXAPHAP",14,0)
+ D SELECT Q:QFLG
+"RTN","ECXAPHAP",15,0)
+PREV ;Line label added in patch 144. Come here when running previous fiscal year logic for this report
+"RTN","ECXAPHAP",16,0)
+ S ECXDESC=ECXTL_" Extract Unusual Volume Report"
+"RTN","ECXAPHAP",17,0)
+ S ECXSAVE("EC*")=""
+"RTN","ECXAPHAP",18,0)
+ W !!,"This report requires 132-column format."
+"RTN","ECXAPHAP",19,0)
+ D EN^XUTMDEVQ("PROCESS^ECXAPHAP",ECXDESC,.ECXSAVE)
+"RTN","ECXAPHAP",20,0)
+ I POP W !!,"No device selected...exiting.",! Q
+"RTN","ECXAPHAP",21,0)
+ I IO'=IO(0) D ^%ZISC
+"RTN","ECXAPHAP",22,0)
+ D HOME^%ZIS
+"RTN","ECXAPHAP",23,0)
+ D AUDIT^ECXKILL
+"RTN","ECXAPHAP",24,0)
+ Q
+"RTN","ECXAPHAP",25,0)
+ ;
+"RTN","ECXAPHAP",26,0)
+BEGIN ; display report description
+"RTN","ECXAPHAP",27,0)
+ W @IOF
+"RTN","ECXAPHAP",28,0)
+ W !,"This report prints a listing of unusual volumes that would be"
+"RTN","ECXAPHAP",29,0)
+ W !,"generated by the pharmacy extracts (PRE, IVP and UDP) as"
+"RTN","ECXAPHAP",30,0)
+ W !,"determined by a user defined threshold value. It shoud be run"
+"RTN","ECXAPHAP",31,0)
+ W !,"prior to the generation of the actual extract(s) to identify and"
+"RTN","ECXAPHAP",32,0)
+ W !,"fix as necessary any volumes determined to be erroneous."
+"RTN","ECXAPHAP",33,0)
+ W !!,"Unusual volumes are defined as follows:"
+"RTN","ECXAPHAP",34,0)
+ W !!,"PRE Extract: Quantity field greater than the threshold value."
+"RTN","ECXAPHAP",35,0)
+ W !,"IVP Extract: Total Doses Per Day field greater than the threshold"
+"RTN","ECXAPHAP",36,0)
+ W !,?14,"or less than the negative of the threshold value."
+"RTN","ECXAPHAP",37,0)
+ W !,"UDP Extract: Quantity field greater than threshold value."
+"RTN","ECXAPHAP",38,0)
+ W !!,"Note: The threshold can be set after a report is selected."
+"RTN","ECXAPHAP",39,0)
+ W !!,"Run times for this report will vary depending upon the size of"
+"RTN","ECXAPHAP",40,0)
+ W !,"the extract and could take as long as 30 minutes or more to"
+"RTN","ECXAPHAP",41,0)
+ W !,"complete. This report has no effect on the actual extracts and"
+"RTN","ECXAPHAP",42,0)
+ W !,"can be run as needed."
+"RTN","ECXAPHAP",43,0)
+ W !!,"The report is sorted by Feeder Key, descending Volume, and SSN."
+"RTN","ECXAPHAP",44,0)
+ S DIR(0)="E" W ! D ^DIR K DIR I 'Y S QFLG=1 Q
+"RTN","ECXAPHAP",45,0)
+ W:$Y!($E(IOST)="C") @IOF,!!
+"RTN","ECXAPHAP",46,0)
+ Q
+"RTN","ECXAPHAP",47,0)
+ ;
+"RTN","ECXAPHAP",48,0)
+SELECT ; user inputs for report option, threshold volume and date range
+"RTN","ECXAPHAP",49,0)
+ N DONE,OUT
+"RTN","ECXAPHAP",50,0)
+ S ECXISIG=0
+"RTN","ECXAPHAP",51,0)
+ ; allow user to select report option (PRE,IVP or UDP)
+"RTN","ECXAPHAP",52,0)
+ W "Choose the report you would like to run."
+"RTN","ECXAPHAP",53,0)
+ S DIR(0)="S^1:PRE;2:IVP;3:UDP",DIR("A")="Selection",DIR("B")=1 D ^DIR K DIR S ECXOPT=Y I X["^" S QFLG=1 Q
+"RTN","ECXAPHAP",54,0)
+ S ECXTL=$S(ECXOPT=1:"Prescription",ECXOPT=2:"IV Detail",ECXOPT=3:"Unit Dose Local",1:"")
+"RTN","ECXAPHAP",55,0)
+ ; allow user to set threshold volume
+"RTN","ECXAPHAP",56,0)
+ S ECTHLD=$S(ECXOPT=2:1000,1:500)
+"RTN","ECXAPHAP",57,0)
+ W !!,"The default threshold volume for the ",ECXTL," extract is ",ECTHLD,"."
+"RTN","ECXAPHAP",58,0)
+ S DIR(0)="Y",DIR("A")="Would you like to change the threshold",DIR("B")="NO" D ^DIR K DIR I X["^" S QFLG=1 Q
+"RTN","ECXAPHAP",59,0)
+ I Y D
+"RTN","ECXAPHAP",60,0)
+ .W !!,$S(ECXOPT=2:"threshold > Total Doses Per Day < -threshold",1:"Quantity > threshold")
+"RTN","ECXAPHAP",61,0)
+ .S DIR(0)="N^0:100000:0",DIR("A")="Enter the new threshold volume" D ^DIR K DIR S ECTHLD=Y I X["^" S QFLG=1 Q
+"RTN","ECXAPHAP",62,0)
+ ; check to see if SIG should be place on the sec line of rpt cvw - *136
+"RTN","ECXAPHAP",63,0)
+ I ECXOPT=3 S DIR(0)="Y",DIR("A")="Include SIG/Order Direction on line 2 of report",DIR("B")="NO" D ^DIR K DIR S:Y ECXISIG=1 I X["^" S QFLG=1 Q
+"RTN","ECXAPHAP",64,0)
+ ; get date range from user
+"RTN","ECXAPHAP",65,0)
+ W !!,"Enter the date range for which you would like to scan the ",ECXTL,!,"Extract records."
+"RTN","ECXAPHAP",66,0)
+ S DONE=0 F S (ECED,ECSD)="" D Q:QFLG!DONE
+"RTN","ECXAPHAP",67,0)
+ .K %DT S %DT="AEX",%DT("A")="Starting with Date: ",%DT(0)=-DATE D ^%DT
+"RTN","ECXAPHAP",68,0)
+ .I Y<0 S QFLG=1 Q
+"RTN","ECXAPHAP",69,0)
+ .S ECSD=Y,ECSD1=ECSD-.1
+"RTN","ECXAPHAP",70,0)
+ .D DD^%DT S ECSTART=Y
+"RTN","ECXAPHAP",71,0)
+ .K %DT S %DT="AEX",%DT("A")="Ending with Date: ",%DT(0)=-DATE D ^%DT
+"RTN","ECXAPHAP",72,0)
+ .I Y<0 S QFLG=1 Q
+"RTN","ECXAPHAP",73,0)
+ .I Y<ECSD D Q
+"RTN","ECXAPHAP",74,0)
+ ..W !!,"The ending date cannot be earlier than the starting date."
+"RTN","ECXAPHAP",75,0)
+ ..W !,"Please try again.",!!
+"RTN","ECXAPHAP",76,0)
+ .I $E(Y,1,5)'=$E(ECSD,1,5) D Q
+"RTN","ECXAPHAP",77,0)
+ ..W !!,"Beginning and ending dates must be in the same month and year."
+"RTN","ECXAPHAP",78,0)
+ ..W !,"Please try again.",!!
+"RTN","ECXAPHAP",79,0)
+ .S ECED=Y
+"RTN","ECXAPHAP",80,0)
+ .D DD^%DT S ECEND=Y
+"RTN","ECXAPHAP",81,0)
+ .S DONE=1
+"RTN","ECXAPHAP",82,0)
+ Q
+"RTN","ECXAPHAP",83,0)
+ ;
+"RTN","ECXAPHAP",84,0)
+PROCESS ; entry point for queued report
+"RTN","ECXAPHAP",85,0)
+ S ZTREQ="@"
+"RTN","ECXAPHAP",86,0)
+ S ECXERR=0 D EN^ECXAPHP2 Q:ECXERR
+"RTN","ECXAPHAP",87,0)
+ S QFLG=0 D PRINT
+"RTN","ECXAPHAP",88,0)
+ Q
+"RTN","ECXAPHAP",89,0)
+ ;
+"RTN","ECXAPHAP",90,0)
+PRINT ; process temp file and print report
+"RTN","ECXAPHAP",91,0)
+ N PG,QFLG,GTOT,LN,COUNT,FKEY,QTY,SSN,REC,EDAY,ECXCOUNT
+"RTN","ECXAPHAP",92,0)
+ U IO
+"RTN","ECXAPHAP",93,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 K ZTREQ Q
+"RTN","ECXAPHAP",94,0)
+ S (PG,QFLG,GTOT)=0,$P(LN,"-",132)=""
+"RTN","ECXAPHAP",95,0)
+ D HEADER Q:QFLG
+"RTN","ECXAPHAP",96,0)
+ S COUNT=0,FKEY="" F S FKEY=$O(^TMP($J,FKEY)) Q:FKEY=""!QFLG D
+"RTN","ECXAPHAP",97,0)
+ .S QTY="" F S QTY=$O(^TMP($J,FKEY,QTY)) Q:QTY=""!QFLG D
+"RTN","ECXAPHAP",98,0)
+ ..S EDAY="" F S EDAY=$O(^TMP($J,FKEY,QTY,EDAY)) Q:EDAY=""!QFLG D
+"RTN","ECXAPHAP",99,0)
+ ...S ECXCOUNT="" F S ECXCOUNT=$O(^TMP($J,FKEY,QTY,EDAY,ECXCOUNT)) Q:ECXCOUNT=""!QFLG D
+"RTN","ECXAPHAP",100,0)
+ ....S SSN=""
+"RTN","ECXAPHAP",101,0)
+ ....F S SSN=$O(^TMP($J,FKEY,QTY,EDAY,ECXCOUNT,SSN)) Q:SSN=""!QFLG S REC=^(SSN) D
+"RTN","ECXAPHAP",102,0)
+ .....S COUNT=COUNT+1
+"RTN","ECXAPHAP",103,0)
+ .....I $Y+3>IOSL D HEADER Q:QFLG
+"RTN","ECXAPHAP",104,0)
+ .....W !,$P(REC,U),?8,$P(REC,U,2),?20,$P(REC,U,3),?29,$E($P(REC,U,4),1,40)
+"RTN","ECXAPHAP",105,0)
+ .....W ?71,$P(REC,U,5),?89,$$RJ^XLFSTR($P(REC,U,6),9)_" "_$E($P(REC,U,7),1,7)
+"RTN","ECXAPHAP",106,0)
+ .....I ECXOPT=1 D
+"RTN","ECXAPHAP",107,0)
+ ......W ?108,$$RJ^XLFSTR($P(REC,U,8),12),?125,$$RJ^XLFSTR($P(REC,U,9),3)
+"RTN","ECXAPHAP",108,0)
+ .....I ECXOPT'=1 D
+"RTN","ECXAPHAP",109,0)
+ ......W ?116,$$RJ^XLFSTR($P(REC,U,8),14)
+"RTN","ECXAPHAP",110,0)
+ .....I ECXOPT=3&($G(ECXISIG)) D
+"RTN","ECXAPHAP",111,0)
+ ......W !,?5,"SIG: ",$S($P(REC,U,10)="":"N/A",1:$P(REC,U,10)),! ;136
+"RTN","ECXAPHAP",112,0)
+ Q:QFLG
+"RTN","ECXAPHAP",113,0)
+ I COUNT=0 W !!,?8,"No unusual volumes to report for this extract"
+"RTN","ECXAPHAP",114,0)
+CLOSE ;
+"RTN","ECXAPHAP",115,0)
+ I $E(IOST)="C",'QFLG D
+"RTN","ECXAPHAP",116,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXAPHAP",117,0)
+ .S DIR(0)="E" W ! D ^DIR K DIR
+"RTN","ECXAPHAP",118,0)
+ Q
+"RTN","ECXAPHAP",119,0)
+ ;
+"RTN","ECXAPHAP",120,0)
+HEADER ;header and page control
+"RTN","ECXAPHAP",121,0)
+ N SS,JJ
+"RTN","ECXAPHAP",122,0)
+ I $E(IOST)="C" D
+"RTN","ECXAPHAP",123,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXAPHAP",124,0)
+ .I PG>0 S DIR(0)="E" W ! D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXAPHAP",125,0)
+ Q:QFLG
+"RTN","ECXAPHAP",126,0)
+ W:$Y!($E(IOST)="C") @IOF S PG=PG+1
+"RTN","ECXAPHAP",127,0)
+ W !,ECXTL_" Extract Unusual Volume Report - Previous FY logic",?124,"Page: "_PG
+"RTN","ECXAPHAP",128,0)
+ W !,"Start Date: ",ECSTART,?97,"Report Run Date/Time: "_ECRUN
+"RTN","ECXAPHAP",129,0)
+ W !,"End Date: ",ECEND,?97,"Threshold Value = ",ECTHLD
+"RTN","ECXAPHAP",130,0)
+ W !!,"Name",?11,"SSN",?21,"Day",?29,"Generic Name",?71,"Feeder Key"
+"RTN","ECXAPHAP",131,0)
+ I ECXOPT=1 D
+"RTN","ECXAPHAP",132,0)
+ .W ?95,"Quantity",?109,"Total Cost",?120,"Days Supply"
+"RTN","ECXAPHAP",133,0)
+ E D
+"RTN","ECXAPHAP",134,0)
+ .I ECXOPT=2 W ?93,"Total Doses",?121,"Total Cost",!,?95,"Per Day"
+"RTN","ECXAPHAP",135,0)
+ .I ECXOPT'=2 W ?96,"Quantity",?121,"Total Cost"
+"RTN","ECXAPHAP",136,0)
+ W !,LN,!
+"RTN","ECXAPHAP",137,0)
+ Q
+"RTN","ECXAPHAP",138,0)
+ ;
+"RTN","ECXAPHAP",139,0)
+SIG(ORDNO,PATNO) ;Get ordering instructions for unit dose order. API added in patch 136
+"RTN","ECXAPHAP",140,0)
+ N DATA,RECNO,I,SIG
+"RTN","ECXAPHAP",141,0)
+ S SIG=""
+"RTN","ECXAPHAP",142,0)
+ I ORDNO=""!(PATNO="") Q SIG
+"RTN","ECXAPHAP",143,0)
+ S RECNO=ORDNO_","_PATNO_","
+"RTN","ECXAPHAP",144,0)
+ D GETS^DIQ(55.06,RECNO,"26;120;121","E","DATA")
+"RTN","ECXAPHAP",145,0)
+ F I=120,121,26 S SIG=$G(SIG)_$S($L(SIG)>0:" ",1:"")_$G(DATA(55.06,RECNO,I,"E"))
+"RTN","ECXAPHAP",146,0)
+ Q SIG
+"RTN","ECXAPHP2")
+0^46^B29677445^n/a
+"RTN","ECXAPHP2",1,0)
+ECXAPHP2 ;ALB/TMD-Pharmacy Extracts Unusual Volumes Report ;3/26/13 16:07
+"RTN","ECXAPHP2",2,0)
+ ;;3.0;DSS EXTRACTS;**40,49,84,104,105,113,136,143,144**;Dec 22, 1997;Build 9
+"RTN","ECXAPHP2",3,0)
+ ;
+"RTN","ECXAPHP2",4,0)
+ ;This routine is new with patch 144 but is a copy of ECXAPHA2 before it
+"RTN","ECXAPHP2",5,0)
+ ;was changed for the FY update. This is now the previous fiscal year
+"RTN","ECXAPHP2",6,0)
+ ;version of the routine
+"RTN","ECXAPHP2",7,0)
+EN ; entry point
+"RTN","ECXAPHP2",8,0)
+ N COUNT,ECUNIT,LINE,ECDFN,ECD,ECDRG,ECDAY,ECDFN,ECQTY,ECUNIT,ECCOST,ECDS,ECXCOUNT
+"RTN","ECXAPHP2",9,0)
+ K ^TMP($J)
+"RTN","ECXAPHP2",10,0)
+ S (COUNT,ECDS,ECXCOUNT)=0,ECUNIT=""
+"RTN","ECXAPHP2",11,0)
+ S ECD=ECSD1,ECED=ECED+.3
+"RTN","ECXAPHP2",12,0)
+ S LINE=$S(ECXOPT=1:"PRE",ECXOPT=2:"IVP",ECXOPT=3:"UDP",1:"EXIT")
+"RTN","ECXAPHP2",13,0)
+ D @LINE
+"RTN","ECXAPHP2",14,0)
+ Q
+"RTN","ECXAPHP2",15,0)
+ ;
+"RTN","ECXAPHP2",16,0)
+PRE ; entry point for PRE data
+"RTN","ECXAPHP2",17,0)
+ N ECRFL,ECRX,ECREF,ECDATA,ECDATA1,ECPRC,IEN
+"RTN","ECXAPHP2",18,0)
+ K ^TMP($J,"ECXDSS")
+"RTN","ECXAPHP2",19,0)
+ ;call pharmacy api pso52ex
+"RTN","ECXAPHP2",20,0)
+ D EXTRACT^PSO52EX(ECD,ECED,"ECXDSS")
+"RTN","ECXAPHP2",21,0)
+ S ECREF="RF"
+"RTN","ECXAPHP2",22,0)
+ ;order thru fills and refills; refill values 0 thru 11
+"RTN","ECXAPHP2",23,0)
+ ; Note: refill 0 = original fill
+"RTN","ECXAPHP2",24,0)
+ F S ECD=$O(^TMP($J,"ECXDSS","AL",ECD)),IEN=0 Q:'ECD Q:ECD>ECED Q:ECXERR F S IEN=$O(^TMP($J,"ECXDSS","AL",ECD,IEN)),ECRFL="" Q:'IEN Q:ECXERR F S ECRFL=$O(^TMP($J,"ECXDSS","AL",ECD,IEN,ECRFL)) Q:ECRFL="" Q:ECXERR D PRE2
+"RTN","ECXAPHP2",25,0)
+ ;
+"RTN","ECXAPHP2",26,0)
+ ;order thru partial fills
+"RTN","ECXAPHP2",27,0)
+ S ECD=ECSD1,ECREF="P"
+"RTN","ECXAPHP2",28,0)
+ F S ECD=$O(^TMP($J,"ECXDSS","AM",ECD)),IEN=0 Q:'ECD Q:ECD>ECED Q:ECXERR F S IEN=$O(^(ECD,IEN)),ECRFL="" Q:'IEN Q:ECXERR F S ECRFL=$O(^(IEN,ECRFL)) Q:'ECRFL Q:ECXERR D PRE2
+"RTN","ECXAPHP2",29,0)
+ K ^TMP($J,"ECXDSS")
+"RTN","ECXAPHP2",30,0)
+ Q
+"RTN","ECXAPHP2",31,0)
+ ;
+"RTN","ECXAPHP2",32,0)
+PRE2 ; get Prescription data
+"RTN","ECXAPHP2",33,0)
+ I (ECREF="RF")&(ECRFL) D
+"RTN","ECXAPHP2",34,0)
+ .S ECQTY=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,1)
+"RTN","ECXAPHP2",35,0)
+ .S ECDS=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,1.1)
+"RTN","ECXAPHP2",36,0)
+ .S ECPRC=^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,1.2)
+"RTN","ECXAPHP2",37,0)
+ I (ECREF="RF")&('ECRFL) D
+"RTN","ECXAPHP2",38,0)
+ .S ECQTY=+^TMP($J,"ECXDSS",IEN,7)
+"RTN","ECXAPHP2",39,0)
+ .S ECDS=+^TMP($J,"ECXDSS",IEN,8)
+"RTN","ECXAPHP2",40,0)
+ .S ECPRC=+^TMP($J,"ECXDSS",IEN,17)
+"RTN","ECXAPHP2",41,0)
+ I ECREF="P" D
+"RTN","ECXAPHP2",42,0)
+ .S ECQTY=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,.04)
+"RTN","ECXAPHP2",43,0)
+ .S ECDS=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,.041)
+"RTN","ECXAPHP2",44,0)
+ .S ECPRC=+^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,.042)
+"RTN","ECXAPHP2",45,0)
+ ;check to see if quantity>threshold
+"RTN","ECXAPHP2",46,0)
+ I ECQTY>ECTHLD D
+"RTN","ECXAPHP2",47,0)
+ .S ECDAY=ECD
+"RTN","ECXAPHP2",48,0)
+ .S ECDFN=$P(^TMP($J,"ECXDSS",IEN,2),U)
+"RTN","ECXAPHP2",49,0)
+ .S ECDRG=+$P(^TMP($J,"ECXDSS",IEN,6),U)
+"RTN","ECXAPHP2",50,0)
+ .S ECCOST=ECQTY*ECPRC
+"RTN","ECXAPHP2",51,0)
+ .D FILE Q:ECXERR
+"RTN","ECXAPHP2",52,0)
+ Q
+"RTN","ECXAPHP2",53,0)
+ ;
+"RTN","ECXAPHP2",54,0)
+IVP ; entry point for IVP Data
+"RTN","ECXAPHP2",55,0)
+ N DFN,ON,DA,SA,ECCOUNT ;143
+"RTN","ECXAPHP2",56,0)
+ F S ECD=$O(^ECX(728.113,"A",ECD)),DFN=0 Q:'ECD Q:ECD>ECED Q:ECXERR F S DFN=$O(^ECX(728.113,"A",ECD,DFN)),ON=0 Q:'DFN F S ON=$O(^ECX(728.113,"A",ECD,DFN,ON)),DA=0 Q:'ON K ^TMP($J,"A"),^("S") D Q:ECXERR
+"RTN","ECXAPHP2",57,0)
+ .F S DA=$O(^ECX(728.113,"A",ECD,DFN,ON,DA)) Q:'DA Q:ECXERR I $D(^ECX(728.113,DA,0)) S EC=^(0) Q:ECXERR D
+"RTN","ECXAPHP2",58,0)
+ ..S ECDRG=$P(EC,U,4)
+"RTN","ECXAPHP2",59,0)
+ ..S SA=$S($P(EC,U,8)]"":"A",$P(EC,U,9):"S",1:"")
+"RTN","ECXAPHP2",60,0)
+ ..; set up new record for first DA for this drug
+"RTN","ECXAPHP2",61,0)
+ ..I '$D(^TMP($J,SA,ECDRG)) D
+"RTN","ECXAPHP2",62,0)
+ ...S ECQTY=+$S(SA="A":+$P(EC,U,7),SA="S":+$P(EC,U,9),1:0)
+"RTN","ECXAPHP2",63,0)
+ ...S ECUNIT=$S(SA="A":$P(EC,U,8),SA="S":"ML",1:"")
+"RTN","ECXAPHP2",64,0)
+ ...S ECCOST=$P(EC,U,12),ECDFN=DFN
+"RTN","ECXAPHP2",65,0)
+ ...S ^TMP($J,SA,ECDRG)=ECUNIT_U_ECD_U_ECDFN_U_ECCOST_U_ECQTY
+"RTN","ECXAPHP2",66,0)
+ ...S ^(ECDRG,1)=0
+"RTN","ECXAPHP2",67,0)
+ ..; add to qty (0,1, or -1) to total
+"RTN","ECXAPHP2",68,0)
+ ..S ^TMP($J,SA,ECDRG,1)=^TMP($J,SA,ECDRG,1)+$S($P(EC,U,6)=1:1,$P(EC,U,6)=4:0,1:-1)
+"RTN","ECXAPHP2",69,0)
+ .; looped thru all DAs for this order - now check for unusual volumes
+"RTN","ECXAPHP2",70,0)
+ .F SA="S","A" S ECDRG="" F S ECDRG=$O(^TMP($J,SA,ECDRG)) Q:ECDRG="" Q:ECXERR D
+"RTN","ECXAPHP2",71,0)
+ ..S ECQTY=$P(^TMP($J,SA,ECDRG),U,5),ECCOUNT=^(ECDRG,1)
+"RTN","ECXAPHP2",72,0)
+ ..S ECQTY=ECQTY*ECCOUNT
+"RTN","ECXAPHP2",73,0)
+ ..; check to see if quantity is outside of threshold range
+"RTN","ECXAPHP2",74,0)
+ ..I (ECQTY>ECTHLD)!(ECQTY<-ECTHLD) D
+"RTN","ECXAPHP2",75,0)
+ ...S ECUNIT=$P(^TMP($J,SA,ECDRG),U)
+"RTN","ECXAPHP2",76,0)
+ ...S ECDAY=$P(^(ECDRG),U,2)
+"RTN","ECXAPHP2",77,0)
+ ...S ECDFN=$P(^(ECDRG),U,3)
+"RTN","ECXAPHP2",78,0)
+ ...; New Cost calculation ** 136
+"RTN","ECXAPHP2",79,0)
+ ...; Removed avg cost search from 136 use existing avgcost and quantity vs count ** 143
+"RTN","ECXAPHP2",80,0)
+ ...S ECCOST=$P(^(ECDRG),U,4)*ECQTY
+"RTN","ECXAPHP2",81,0)
+ ...D FILE Q:ECXERR
+"RTN","ECXAPHP2",82,0)
+ K ^TMP($J,"A"),^("S")
+"RTN","ECXAPHP2",83,0)
+ Q
+"RTN","ECXAPHP2",84,0)
+ ;
+"RTN","ECXAPHP2",85,0)
+UDP ; entry point for UDP data
+"RTN","ECXAPHP2",86,0)
+ N ECXJ,ECDATA,ECORD ;136
+"RTN","ECXAPHP2",87,0)
+ F S ECD=$O(^ECX(728.904,"A",ECD)) Q:'ECD Q:ECD>ECED Q:ECXERR D
+"RTN","ECXAPHP2",88,0)
+ .S ECXJ=0 F S ECXJ=$O(^ECX(728.904,"A",ECD,ECXJ)) Q:'ECXJ Q:ECXERR I $D(^ECX(728.904,ECXJ,0)) D
+"RTN","ECXAPHP2",89,0)
+ ..S DATA=^ECX(728.904,ECXJ,0),ECQTY=$P(DATA,U,5)
+"RTN","ECXAPHP2",90,0)
+ ..;check to see if quantity>threshold
+"RTN","ECXAPHP2",91,0)
+ ..I ECQTY>ECTHLD D
+"RTN","ECXAPHP2",92,0)
+ ...S ECDFN=$P(DATA,U,2),ECDRG=$P(DATA,U,4),ECCOST=$P(DATA,U,8),ECDAY=ECD,ECORD=$P(DATA,U,10) ;136
+"RTN","ECXAPHP2",93,0)
+ ...D FILE Q:ECXERR
+"RTN","ECXAPHP2",94,0)
+ Q
+"RTN","ECXAPHP2",95,0)
+ ;
+"RTN","ECXAPHP2",96,0)
+FILE ; put records in temp file to print later
+"RTN","ECXAPHP2",97,0)
+ N OK,ECXPAT,ECNAME,ECSSN,ECGNAME,ECNDC,ECPROD,ECFKEY,ECXPHA
+"RTN","ECXAPHP2",98,0)
+ ; get demographics
+"RTN","ECXAPHP2",99,0)
+ S OK=$$PAT^ECXUTL3(ECDFN,$P(ECD,"."),"1;",.ECXPAT)
+"RTN","ECXAPHP2",100,0)
+ I 'OK Q
+"RTN","ECXAPHP2",101,0)
+ S ECNAME=ECXPAT("NAME")
+"RTN","ECXAPHP2",102,0)
+ S ECSSN=ECXPAT("SSN")
+"RTN","ECXAPHP2",103,0)
+ S ECDAY=$E(ECDAY,4,5)_"/"_$E(ECDAY,6,7)
+"RTN","ECXAPHP2",104,0)
+ ; get drug file data
+"RTN","ECXAPHP2",105,0)
+ S ECXPHA="",ECXPHA=$$PHAAPI^ECXUTL5(ECDRG)
+"RTN","ECXAPHP2",106,0)
+ S ECGNAME=$P(ECXPHA,U)
+"RTN","ECXAPHP2",107,0)
+ S ECNDC=$P(ECXPHA,U,3)
+"RTN","ECXAPHP2",108,0)
+ S ECNDC=$$RJ^XLFSTR($P(ECNDC,"-"),6,0)_$$RJ^XLFSTR($P(ECNDC,"-",2),4,0)_$$RJ^XLFSTR($P(ECNDC,"-",3),2,0)
+"RTN","ECXAPHP2",109,0)
+ S ECNDC=$TR(ECNDC,"*",0)
+"RTN","ECXAPHP2",110,0)
+ S ECPROD=$P(ECXPHA,U,6)
+"RTN","ECXAPHP2",111,0)
+ S ECPROD=$$RJ^XLFSTR(ECPROD,5,0)
+"RTN","ECXAPHP2",112,0)
+ S ECFKEY=ECPROD_ECNDC
+"RTN","ECXAPHP2",113,0)
+ I ECXOPT'=2 S ECUNIT=$P(ECXPHA,U,8)
+"RTN","ECXAPHP2",114,0)
+ ; file
+"RTN","ECXAPHP2",115,0)
+ S ^TMP($J,ECFKEY,-ECQTY,ECDAY,ECXCOUNT,ECSSN)=ECNAME_U_ECSSN_U_ECDAY_U_ECGNAME_U_ECFKEY_U_ECQTY_U_ECUNIT_U_"$"_$FNUMBER(ECCOST,",",4)_U_ECDS
+"RTN","ECXAPHP2",116,0)
+ I $G(ECXOPT)=3 S $P(^TMP($J,ECFKEY,-ECQTY,ECDAY,ECXCOUNT,ECSSN),U,10)=$$SIG^ECXAPHAP(ECORD,ECDFN) ;136 Get SIG data if UDP report
+"RTN","ECXAPHP2",117,0)
+ S COUNT=COUNT+1
+"RTN","ECXAPHP2",118,0)
+ S ECXCOUNT=ECXCOUNT+1
+"RTN","ECXAPHP2",119,0)
+ I COUNT#100=0 I $$S^ZTLOAD S (ZTSTOP,ECXERR)=1 ;136 Update ZTSTOP var to be spelled correctly
+"RTN","ECXAPHP2",120,0)
+ Q
+"RTN","ECXAPHP2",121,0)
+ ;
+"RTN","ECXAPHP2",122,0)
+EXIT S ECXERR=1 Q
+"RTN","ECXAPRO")
+0^14^B58811063^B50281259
+"RTN","ECXAPRO",1,0)
+ECXAPRO ;ALB/JAP - PRO Extract Audit Report ;3/12/13 16:30
+"RTN","ECXAPRO",2,0)
+ ;;3.0;DSS EXTRACTS;**9,21,33,36,132,137,144**;Dec 22, 1997;Build 9
+"RTN","ECXAPRO",3,0)
+ ;
+"RTN","ECXAPRO",4,0)
+EN ;entry point for PRO extract audit report
+"RTN","ECXAPRO",5,0)
+ N %X,%Y,DIV,X,Y,DIC,DA,DR,DIQ,DIR,DIRUT,DTOUT,DUOUT,CNT,ECXPORT ;144
+"RTN","ECXAPRO",6,0)
+ S ECXERR=0
+"RTN","ECXAPRO",7,0)
+ ;ecxaud=0 for 'extract' audit
+"RTN","ECXAPRO",8,0)
+ S ECXHEAD="PRO",ECXAUD=0
+"RTN","ECXAPRO",9,0)
+ W !!,"Setup for ",ECXHEAD," Extract Audit Report --",!!
+"RTN","ECXAPRO",10,0)
+ ;determine primary division
+"RTN","ECXAPRO",11,0)
+ S ECXPRIME=$$PDIV^ECXPUTL
+"RTN","ECXAPRO",12,0)
+ I ECXPRIME=0 D ^ECXKILL Q
+"RTN","ECXAPRO",13,0)
+ S DA=ECXPRIME,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99" D EN^DIQ1
+"RTN","ECXAPRO",14,0)
+ S ECXPRIME=ECXPRIME_U_$G(ECXDIC(4,DA,99,"I"))_U_$G(ECXDIC(4,DA,.01,"I"))
+"RTN","ECXAPRO",15,0)
+ ;select 1 or more prosthetics divisions for report
+"RTN","ECXAPRO",16,0)
+ D PRO^ECXDVSN2(DUZ,ECXPRIME,.ECXDIV,.ECXALL,.ECXERR)
+"RTN","ECXAPRO",17,0)
+ I ECXERR D Q
+"RTN","ECXAPRO",18,0)
+ .D ^ECXKILL W !!,?5,"Try again later... exiting.",!
+"RTN","ECXAPRO",19,0)
+ ;select extract
+"RTN","ECXAPRO",20,0)
+ D AUDIT^ECXUTLA(ECXHEAD,.ECXERR,.ECXARRAY,ECXAUD)
+"RTN","ECXAPRO",21,0)
+ I ECXERR=1 D Q
+"RTN","ECXAPRO",22,0)
+ .W !!,?5,"Try again later... exiting.",!
+"RTN","ECXAPRO",23,0)
+ .D AUDIT^ECXKILL
+"RTN","ECXAPRO",24,0)
+ ;if user's selected division doesn't match extract's division, then quit
+"RTN","ECXAPRO",25,0)
+ I +ECXPRIME'=ECXARRAY("DIV") D Q
+"RTN","ECXAPRO",26,0)
+ .S DIV=+ECXARRAY("DIV") S:$D(^DIC(4,DIV,0)) DIV=$P(^(0),U,1)
+"RTN","ECXAPRO",27,0)
+ .W !!,?5,"Your primary division ("_$P(ECXPRIME,U,3)_") does not match the"
+"RTN","ECXAPRO",28,0)
+ .W !,?5,"division ("_DIV_") associated with Extract #"_ECXARRAY("EXTRACT")_"."
+"RTN","ECXAPRO",29,0)
+ .W !!,?5,"Try again... exiting.",!
+"RTN","ECXAPRO",30,0)
+ .I $E(IOST)="C" D
+"RTN","ECXAPRO",31,0)
+ ..S SS=20-$Y F JJ=1:1:SS W !
+"RTN","ECXAPRO",32,0)
+ ..S DIR(0)="E" W ! D ^DIR K DIR
+"RTN","ECXAPRO",33,0)
+ ..W @IOF
+"RTN","ECXAPRO",34,0)
+ ;select summary or detail
+"RTN","ECXAPRO",35,0)
+ K DIR S DIR(0)="S^D:DETAIL;S:SUMMARY",DIR("A")="Type of Report",DIR("B")="SUMMARY"
+"RTN","ECXAPRO",36,0)
+ D ^DIR K DIR
+"RTN","ECXAPRO",37,0)
+ I $D(DIRUT)!($D(DTOUT)) D Q
+"RTN","ECXAPRO",38,0)
+ .W !!,?5,"Try again later... exiting.",!
+"RTN","ECXAPRO",39,0)
+ .D AUDIT^ECXKILL
+"RTN","ECXAPRO",40,0)
+ S ECXREPT=Y
+"RTN","ECXAPRO",41,0)
+ ;continue with detail report
+"RTN","ECXAPRO",42,0)
+ I ECXREPT="D" D I $G(ECXPORT) Q ;144 Stop processing if doing a detailed listing
+"RTN","ECXAPRO",43,0)
+ .F D ASK2^ECXAPRO2 Q:$D(DIRUT)!($D(DTOUT))
+"RTN","ECXAPRO",44,0)
+ ;continue with summary report
+"RTN","ECXAPRO",45,0)
+ I ECXREPT="S" D
+"RTN","ECXAPRO",46,0)
+ .S ECXPGM="TASK^ECXAPRO",ECXDESC="PRO Extract Audit Report"
+"RTN","ECXAPRO",47,0)
+ .S ECXSAVE("ECXHEAD")="",ECXSAVE("ECXDIV(")="",ECXSAVE("ECXARRAY(")="",ECXSAVE("ECXREPT")="",ECXSAVE("ECXPRIME")="",ECXSAVE("ECXALL")=""
+"RTN","ECXAPRO",48,0)
+ .S ECXPORT=$$EXPORT^ECXUTL1 Q:ECXPORT=-1 I ECXPORT D Q ;144
+"RTN","ECXAPRO",49,0)
+ ..K ^TMP($J) ;144
+"RTN","ECXAPRO",50,0)
+ ..S ^TMP($J,"ECXPORT",0)="STATION #^EXTRACT LOG #^TYPE^NPPD GROUP^NPPD LINE^VA^COM^TOTAL^COST^AVE COM" ;144
+"RTN","ECXAPRO",51,0)
+ ..S CNT=1 ;144
+"RTN","ECXAPRO",52,0)
+ ..D PROCESS ;144
+"RTN","ECXAPRO",53,0)
+ ..D DISP^ECXAPRO1 ;144
+"RTN","ECXAPRO",54,0)
+ ..D EXPDISP^ECXUTL1 ;144
+"RTN","ECXAPRO",55,0)
+ ..D ASK^ECXAPRO2 ;144
+"RTN","ECXAPRO",56,0)
+ ..D ^ECXKILL ;144
+"RTN","ECXAPRO",57,0)
+ .W !
+"RTN","ECXAPRO",58,0)
+ .;determine output device and queue if requested
+"RTN","ECXAPRO",59,0)
+ .D DEVICE^ECXUTLA(ECXPGM,ECXDESC,.ECXSAVE) I ECXSAVE("POP")=1 D Q
+"RTN","ECXAPRO",60,0)
+ ..W !!,?5,"Try again later... exiting.",!
+"RTN","ECXAPRO",61,0)
+ ..D AUDIT^ECXKILL
+"RTN","ECXAPRO",62,0)
+ .I ECXSAVE("ZTSK")=0 D
+"RTN","ECXAPRO",63,0)
+ ..K ECXSAVE,ECXPGM,ECXDESC
+"RTN","ECXAPRO",64,0)
+ ..D PROCESS,DISP^ECXAPRO1
+"RTN","ECXAPRO",65,0)
+ ..;allow user to get details
+"RTN","ECXAPRO",66,0)
+ ..D ASK^ECXAPRO2
+"RTN","ECXAPRO",67,0)
+ ;clean-up and close
+"RTN","ECXAPRO",68,0)
+ I $G(ECXPORT) Q ;144 Stop processing if exporting
+"RTN","ECXAPRO",69,0)
+ I IO'=IO(0) D ^%ZISC
+"RTN","ECXAPRO",70,0)
+ D HOME^%ZIS
+"RTN","ECXAPRO",71,0)
+ D AUDIT^ECXKILL
+"RTN","ECXAPRO",72,0)
+ Q
+"RTN","ECXAPRO",73,0)
+ ;
+"RTN","ECXAPRO",74,0)
+TASK ;entry point from taskmanager
+"RTN","ECXAPRO",75,0)
+ D PROCESS
+"RTN","ECXAPRO",76,0)
+ I ECXREPT="S" D DISP^ECXAPRO1
+"RTN","ECXAPRO",77,0)
+ I ECXREPT="D" D DISP^ECXAPRO2
+"RTN","ECXAPRO",78,0)
+ D AUDIT^ECXKILL
+"RTN","ECXAPRO",79,0)
+ Q
+"RTN","ECXAPRO",80,0)
+ ;
+"RTN","ECXAPRO",81,0)
+PROCESS ;process the data in file #727.826
+"RTN","ECXAPRO",82,0)
+ N J,CODE,COST,CPTNM,DATE,DESC,FLG,GN,IEN,KEY,LOC,LABLC,LABMC,NODE,PTNAM,PSASNM,QTY,QFLG,QQFLG,RD,SSN,STN,SRCE,TYPE,NPPDED ;144 NPPD ENT DATE CVW DAN removed CNT
+"RTN","ECXAPRO",83,0)
+ I '$G(ECXPORT) K ^TMP($J) ;144 Killed already if exporting
+"RTN","ECXAPRO",84,0)
+ S QQFLG=0 ;144 CNT removed as no longer needed
+"RTN","ECXAPRO",85,0)
+ S ECXEXT=ECXARRAY("EXTRACT"),ECXDEF=ECXARRAY("DEF")
+"RTN","ECXAPRO",86,0)
+ S X=ECXARRAY("START") D ^%DT S ECXSTART=Y S X=ECXARRAY("END") D ^%DT S ECXEND=Y
+"RTN","ECXAPRO",87,0)
+ D NOW^%DTC S Y=$E(%,1,12) D DD^%DT S ECXRUN=Y
+"RTN","ECXAPRO",88,0)
+ I ECXALL=0 S J=$O(ECXDIV(99),-1),ECXDIV=ECXDIV(J)
+"RTN","ECXAPRO",89,0)
+ I ECXALL=1 S ECXDIV=ECXPRIME
+"RTN","ECXAPRO",90,0)
+ S STN=$P(ECXDIV,U,2)
+"RTN","ECXAPRO",91,0)
+ ;initialize the prosthetics tmp global for cumulative data
+"RTN","ECXAPRO",92,0)
+ D CODE^ECXAPRO1
+"RTN","ECXAPRO",93,0)
+ ;gather extract data and sort by grouper number, calc flag, and nppd code
+"RTN","ECXAPRO",94,0)
+ S IEN="" F S IEN=$O(^ECX(727.826,"AC",ECXEXT,IEN)) Q:IEN="" D Q:QQFLG
+"RTN","ECXAPRO",95,0)
+ .S ECXPRO=^ECX(727.826,IEN,0)
+"RTN","ECXAPRO",96,0)
+ .;
+"RTN","ECXAPRO",97,0)
+ .;- Remove trailing "^" from ECXPRO if there
+"RTN","ECXAPRO",98,0)
+ .I $E(ECXPRO,$L(ECXPRO))="^" S ECXPRO=$E(ECXPRO,1,$L(ECXPRO)-1)
+"RTN","ECXAPRO",99,0)
+ .S ECXPRO=ECXPRO_U_$P(^ECX(727.826,IEN,1),U,4)_U_$P(^ECX(727.826,IEN,2),U,4) ;NPPD ENTRY DATE 144 CVW
+"RTN","ECXAPRO",100,0)
+ .S DATE=$P(ECXPRO,U,9)
+"RTN","ECXAPRO",101,0)
+ .S $E(DATE,1,2)=$E(DATE,1,2)-17
+"RTN","ECXAPRO",102,0)
+ .Q:$L(DATE)<7 Q:(DATE<ECXSTART) Q:(DATE>ECXEND)
+"RTN","ECXAPRO",103,0)
+ .S DATE=$E(DATE,4,5)_"/"_$E(DATE,6,7)
+"RTN","ECXAPRO",104,0)
+ .S PTNAM=$P(ECXPRO,U,7),SSN=$E($P(ECXPRO,U,6),6,9)
+"RTN","ECXAPRO",105,0)
+ .S LOC=$P(ECXPRO,U,10),KEY=$P(ECXPRO,U,11),QTY=$P(ECXPRO,U,12)
+"RTN","ECXAPRO",106,0)
+ .S COST=$P(ECXPRO,U,25),LABLC=$P(ECXPRO,U,26),LABMC=$P(ECXPRO,U,27)
+"RTN","ECXAPRO",107,0)
+ .S GN=$P(ECXPRO,U,34),GN=$S(GN="":" ",1:GN),NPPDED=$P(ECXPRO,U,35) ;NPPD ENTRY DATE 144 CVW
+"RTN","ECXAPRO",108,0)
+ .;don't double count lab items
+"RTN","ECXAPRO",109,0)
+ .Q:LOC["LAB"
+"RTN","ECXAPRO",110,0)
+ .;duplicate the logic in sort^rmprn6 that sets cost=0 if form=4
+"RTN","ECXAPRO",111,0)
+ .I LOC["ORD" S COST=0
+"RTN","ECXAPRO",112,0)
+ .S LOC=$S(LOC["ORD":$P(LOC,"ORD",1),LOC["HO2":$P(LOC,"HO2",1),1:$P(LOC,"NONL",1)) ;137
+"RTN","ECXAPRO",113,0)
+ .;quit if feeder location isn't for division selected for report
+"RTN","ECXAPRO",114,0)
+ .I ECXALL=1,LOC'[STN Q
+"RTN","ECXAPRO",115,0)
+ .I ECXALL=0,LOC'=STN Q
+"RTN","ECXAPRO",116,0)
+ .S TYPE=$E(KEY,6),SRCE=$E(KEY,7)
+"RTN","ECXAPRO",117,0)
+ .S CPTNM=$P(ECXPRO,U,15),PSASNM=$P(ECXPRO,U,33)
+"RTN","ECXAPRO",118,0)
+ .D GETCODE(PSASNM,.NODE)
+"RTN","ECXAPRO",119,0)
+ .Q:NODE=""
+"RTN","ECXAPRO",120,0)
+ .S CODE=$S(TYPE="X":$P(NODE,U,3),1:$P(NODE,U,4))
+"RTN","ECXAPRO",121,0)
+ .S FLG=$P(NODE,U,2),DESC=$P(NODE,U,5)
+"RTN","ECXAPRO",122,0)
+ .S ^TMP($J,"RMPRGN",STN,GN,FLG,CODE,IEN)=TYPE_U_SRCE_U_QTY_U_COST_U_LABLC_U_LABMC_U_PSASNM_U_DESC_U_PTNAM_U_SSN_U_DATE_U_LOC_U_NPPDED ;144 CVW
+"RTN","ECXAPRO",123,0)
+ ;accumulate summary & detail data
+"RTN","ECXAPRO",124,0)
+ S GN=""
+"RTN","ECXAPRO",125,0)
+ F S GN=$O(^TMP($J,"RMPRGN",STN,GN)) Q:GN="" D
+"RTN","ECXAPRO",126,0)
+ .S FLG=0
+"RTN","ECXAPRO",127,0)
+ .F S FLG=$O(^TMP($J,"RMPRGN",STN,GN,FLG)) Q:FLG'>0 D
+"RTN","ECXAPRO",128,0)
+ ..I FLG=1 D GROUP S FLG=2 Q
+"RTN","ECXAPRO",129,0)
+ ..S CODE=0
+"RTN","ECXAPRO",130,0)
+ ..F S CODE=$O(^TMP($J,"RMPRGN",STN,GN,FLG,CODE)) Q:CODE="" D
+"RTN","ECXAPRO",131,0)
+ ...S RD=0
+"RTN","ECXAPRO",132,0)
+ ...F S RD=$O(^TMP($J,"RMPRGN",STN,GN,FLG,CODE,RD)) Q:RD'>0 D
+"RTN","ECXAPRO",133,0)
+ ....S TYPE=$P(^TMP($J,"RMPRGN",STN,GN,FLG,CODE,RD),U,1),SRCE=$P(^(RD),U,2),QTY=$P(^(RD),U,3),COST=$P(^(RD),U,4)
+"RTN","ECXAPRO",134,0)
+ ....S ^TMP($J,CODE,RD)=^TMP($J,"RMPRGN",STN,GN,FLG,CODE,RD)
+"RTN","ECXAPRO",135,0)
+ ....I TYPE="X" D REP(CODE)
+"RTN","ECXAPRO",136,0)
+ ....I TYPE="N" D NEW(CODE)
+"RTN","ECXAPRO",137,0)
+ ....I TYPE="R" D RENT(CODE)
+"RTN","ECXAPRO",138,0)
+ Q
+"RTN","ECXAPRO",139,0)
+ ;
+"RTN","ECXAPRO",140,0)
+GETCODE(PSAS,NODE) ;find the appropriate nppd code using psas hcpcs
+"RTN","ECXAPRO",141,0)
+ N DIC,X,Y,DESC,FLG,NU,REP
+"RTN","ECXAPRO",142,0)
+ S NODE=""
+"RTN","ECXAPRO",143,0)
+ S DIC="^RMPR(661.1,",DIC(0)="XZ",X=PSAS D ^DIC
+"RTN","ECXAPRO",144,0)
+ I Y=-1 S NODE=U_"2"_U_"R99 Z"_U_"999 Z"_U_"NO HCPCS" Q
+"RTN","ECXAPRO",145,0)
+ S DESC=$E($P(Y(0),U,2),1,20)
+"RTN","ECXAPRO",146,0)
+ S FLG=$P(Y(0),U,8) S:FLG="" FLG=2
+"RTN","ECXAPRO",147,0)
+ ;make sure each code at least 4 characters; group codes are 3 characters in tmp($j,rmprcode)
+"RTN","ECXAPRO",148,0)
+ S REP=$P(Y(0),U,6) S:$L(REP)=3 REP=REP_" " S:REP="" REP="R99 X"
+"RTN","ECXAPRO",149,0)
+ S NU=$P(Y(0),U,7) S:$L(NU)=3 NU=NU_" " S:NU="" NU="999 X"
+"RTN","ECXAPRO",150,0)
+ S NODE=U_FLG_U_REP_U_NU_U_DESC
+"RTN","ECXAPRO",151,0)
+ Q
+"RTN","ECXAPRO",152,0)
+ ;
+"RTN","ECXAPRO",153,0)
+GROUP ;total grouper to main key
+"RTN","ECXAPRO",154,0)
+ N BF,BL,BR,BCOST,BTCOST,COST,QTY,TYPE,SRCE
+"RTN","ECXAPRO",155,0)
+ S BF=0,BTCOST=0
+"RTN","ECXAPRO",156,0)
+ F S BF=$O(^TMP($J,"RMPRGN",STN,GN,BF)) Q:BF'>0 D
+"RTN","ECXAPRO",157,0)
+ .S BL=0
+"RTN","ECXAPRO",158,0)
+ .F S BL=$O(^TMP($J,"RMPRGN",STN,GN,BF,BL)) Q:BL="" D
+"RTN","ECXAPRO",159,0)
+ ..S BR=0
+"RTN","ECXAPRO",160,0)
+ ..F S BR=$O(^TMP($J,"RMPRGN",STN,GN,BF,BL,BR)) Q:BR'>0 D
+"RTN","ECXAPRO",161,0)
+ ...S BCOST=$P(^TMP($J,"RMPRGN",STN,GN,BF,BL,BR),U,4)
+"RTN","ECXAPRO",162,0)
+ ...S BTCOST=BTCOST+BCOST
+"RTN","ECXAPRO",163,0)
+ S BL=$O(^TMP($J,"RMPRGN",STN,GN,1,"")),BR=$O(^TMP($J,"RMPRGN",STN,GN,1,BL,""))
+"RTN","ECXAPRO",164,0)
+ ;calculate based on primary
+"RTN","ECXAPRO",165,0)
+ S TYPE=$P(^TMP($J,"RMPRGN",STN,GN,1,BL,BR),U,1),SRCE=$P(^(BR),U,2),QTY=$P(^(BR),U,3)
+"RTN","ECXAPRO",166,0)
+ S COST=BTCOST
+"RTN","ECXAPRO",167,0)
+ S ^TMP($J,BL,BR)=^TMP($J,"RMPRGN",STN,GN,1,BL,BR),$P(^TMP($J,BL,BR),U,4)=COST
+"RTN","ECXAPRO",168,0)
+ I TYPE="X" D REP(BL)
+"RTN","ECXAPRO",169,0)
+ I TYPE="N" D NEW(BL)
+"RTN","ECXAPRO",170,0)
+ I TYPE="R" D RENT(BL)
+"RTN","ECXAPRO",171,0)
+ Q
+"RTN","ECXAPRO",172,0)
+ ;
+"RTN","ECXAPRO",173,0)
+REP(C) ;calculate repair cost
+"RTN","ECXAPRO",174,0)
+ N LINE
+"RTN","ECXAPRO",175,0)
+ S LINE=C
+"RTN","ECXAPRO",176,0)
+ I LINE="R90 A" S SRCE="C",QTY=1
+"RTN","ECXAPRO",177,0)
+ I $G(^TMP($J,"R",STN,LINE))="" S ^TMP($J,"R",STN,LINE)=""
+"RTN","ECXAPRO",178,0)
+ I SRCE["V" S $P(^TMP($J,"R",STN,LINE),U,1)=$P(^TMP($J,"R",STN,LINE),U,1)+QTY
+"RTN","ECXAPRO",179,0)
+ I SRCE["C" S $P(^TMP($J,"R",STN,LINE),U,2)=$P(^TMP($J,"R",STN,LINE),U,2)+QTY
+"RTN","ECXAPRO",180,0)
+ S $P(^TMP($J,"R",STN,LINE),U,3)=$P(^TMP($J,"R",STN,LINE),U,3)+COST
+"RTN","ECXAPRO",181,0)
+ Q
+"RTN","ECXAPRO",182,0)
+ ;
+"RTN","ECXAPRO",183,0)
+NEW(C) ;calculate new costs
+"RTN","ECXAPRO",184,0)
+ N LINE
+"RTN","ECXAPRO",185,0)
+ S LINE=C
+"RTN","ECXAPRO",186,0)
+ I $G(^TMP($J,"N",STN,LINE))="" S ^TMP($J,"N",STN,LINE)=""
+"RTN","ECXAPRO",187,0)
+ I SRCE["V" S $P(^TMP($J,"N",STN,LINE),U,1)=$P(^TMP($J,"N",STN,LINE),U,1)+QTY
+"RTN","ECXAPRO",188,0)
+ I SRCE["C" S $P(^TMP($J,"N",STN,LINE),U,2)=$P(^TMP($J,"N",STN,LINE),U,2)+QTY
+"RTN","ECXAPRO",189,0)
+ S $P(^TMP($J,"N",STN,LINE),U,3)=$P(^TMP($J,"N",STN,LINE),U,3)+COST
+"RTN","ECXAPRO",190,0)
+ Q
+"RTN","ECXAPRO",191,0)
+ ;
+"RTN","ECXAPRO",192,0)
+RENT(C) ;calculate rental costs
+"RTN","ECXAPRO",193,0)
+ N LINE
+"RTN","ECXAPRO",194,0)
+ S LINE=C
+"RTN","ECXAPRO",195,0)
+ I $G(^TMP($J,"RT",STN,LINE))="" S ^TMP($J,"RT",STN,LINE)=""
+"RTN","ECXAPRO",196,0)
+ I SRCE["V" S $P(^TMP($J,"RT",STN,LINE),U,1)=$P(^TMP($J,"RT",STN,LINE),U,1)+QTY
+"RTN","ECXAPRO",197,0)
+ I SRCE["C" S $P(^TMP($J,"RT",STN,LINE),U,2)=$P(^TMP($J,"RT",STN,LINE),U,2)+QTY
+"RTN","ECXAPRO",198,0)
+ S $P(^TMP($J,"RT",STN,LINE),U,3)=$P(^TMP($J,"RT",STN,LINE),U,3)+COST
+"RTN","ECXAPRO",199,0)
+ Q
+"RTN","ECXAPRO1")
+0^44^B20521932^B15242720
+"RTN","ECXAPRO1",1,0)
+ECXAPRO1 ;ALB/JAP - PRO Extract Audit Report (cont) ;3/14/13 14:50
+"RTN","ECXAPRO1",2,0)
+ ;;3.0;DSS EXTRACTS;**9,21,132,144**;Dec 22, 1997;Build 9
+"RTN","ECXAPRO1",3,0)
+ ;
+"RTN","ECXAPRO1",4,0)
+DISP ;entry point
+"RTN","ECXAPRO1",5,0)
+ N DIC,DA,DR,DIRUT,DTOUT,DUOUT,JJ,SS,LN,PG,QFLG,STN,TYPE
+"RTN","ECXAPRO1",6,0)
+ N A1,A2,A3,CA,CB,CC,GCA,GCB,GCC,GRP,GRPHEAD,LINE,LINEP
+"RTN","ECXAPRO1",7,0)
+ U IO
+"RTN","ECXAPRO1",8,0)
+ S (QFLG,PG)=0,$P(LN,"-",80)=""
+"RTN","ECXAPRO1",9,0)
+ F TYPE="N","R","RT" S STN="",STN=$O(^TMP($J,TYPE,STN)) D Q:QFLG
+"RTN","ECXAPRO1",10,0)
+ .I '$G(ECXPORT) D HEADER ;144
+"RTN","ECXAPRO1",11,0)
+ .D CDATA Q:QFLG
+"RTN","ECXAPRO1",12,0)
+ I $G(ECXPORT) Q ;144 Stop processing if exporting
+"RTN","ECXAPRO1",13,0)
+ I $E(IOST)'="C" D
+"RTN","ECXAPRO1",14,0)
+ .W @IOF S PG=PG+1
+"RTN","ECXAPRO1",15,0)
+ .W !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report"
+"RTN","ECXAPRO1",16,0)
+ .W !,"DSS Extract Log #: "_ECXEXT
+"RTN","ECXAPRO1",17,0)
+ .W !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END")
+"RTN","ECXAPRO1",18,0)
+ .W !,"Report Run Date/Time: "_ECXRUN,?68,"Page: ",PG
+"RTN","ECXAPRO1",19,0)
+ .W !!,LN,!!
+"RTN","ECXAPRO1",20,0)
+ .S DIC="^ECX(727.1,",DA=ECXARRAY("DEF"),DR="1" D EN^DIQ
+"RTN","ECXAPRO1",21,0)
+ .W @IOF
+"RTN","ECXAPRO1",22,0)
+ I $D(IO(0)) I IO(0)'=IO D ^%ZISC
+"RTN","ECXAPRO1",23,0)
+ D HOME^%ZIS
+"RTN","ECXAPRO1",24,0)
+ Q
+"RTN","ECXAPRO1",25,0)
+ ;
+"RTN","ECXAPRO1",26,0)
+CDATA ;accummulate data within each nppd group
+"RTN","ECXAPRO1",27,0)
+ S (LINE,LINEP)=""
+"RTN","ECXAPRO1",28,0)
+ S (GCA,GCB,GCC)=0
+"RTN","ECXAPRO1",29,0)
+ S (CA,CB,CC)=0
+"RTN","ECXAPRO1",30,0)
+ I '$D(^TMP($J,TYPE)) D Q
+"RTN","ECXAPRO1",31,0)
+ .I $G(ECXPORT) Q ;144 Stop processing if exporting
+"RTN","ECXAPRO1",32,0)
+ .W !,?26,"No data available.",!
+"RTN","ECXAPRO1",33,0)
+ .I $E(IOST)="C",'QFLG D
+"RTN","ECXAPRO1",34,0)
+ ..S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXAPRO1",35,0)
+ ..S DIR(0)="E" D ^DIR K DIR
+"RTN","ECXAPRO1",36,0)
+ F S LINE=$O(^TMP($J,TYPE,STN,LINE)) Q:LINE="" D Q:QFLG
+"RTN","ECXAPRO1",37,0)
+ .S GRP=$E(LINE,1,3) D Q:QFLG
+"RTN","ECXAPRO1",38,0)
+ ..I TYPE="R",GRP["R9" S GRP="R90"
+"RTN","ECXAPRO1",39,0)
+ ..S GRPHEAD=^TMP($J,"RMPRCODE",GRP)
+"RTN","ECXAPRO1",40,0)
+ ..I LINEP="" D
+"RTN","ECXAPRO1",41,0)
+ ...I $G(ECXPORT) Q ;144 Stop processing if exporting
+"RTN","ECXAPRO1",42,0)
+ ...D:($Y+5>IOSL) HEADER Q:QFLG
+"RTN","ECXAPRO1",43,0)
+ ...W !,GRPHEAD
+"RTN","ECXAPRO1",44,0)
+ .I $E(LINE,0,3)'=$E(LINEP,0,3),LINEP'="" D Q:QFLG
+"RTN","ECXAPRO1",45,0)
+ ..I $G(ECXPORT) Q ;144 Stop processing if exporting
+"RTN","ECXAPRO1",46,0)
+ ..D:($Y+5>IOSL) HEADER Q:QFLG
+"RTN","ECXAPRO1",47,0)
+ ..W !,LN,!
+"RTN","ECXAPRO1",48,0)
+ ..W ?26,$J(CA,5,0),?34,$J(CB,5,0),?42,$J((CA+CB),5,0),?51,$J(CC,7,0),!
+"RTN","ECXAPRO1",49,0)
+ ..S (CA,CB,CC)=0
+"RTN","ECXAPRO1",50,0)
+ ..D:($Y+5>IOSL) HEADER Q:QFLG
+"RTN","ECXAPRO1",51,0)
+ ..W:LINE'["R99" !,GRPHEAD
+"RTN","ECXAPRO1",52,0)
+ .I '$G(ECXPORT) D:($Y+3>IOSL) HEADER Q:QFLG ;144 Don't display if exporting
+"RTN","ECXAPRO1",53,0)
+ .I '$G(ECXPORT) W !,LINE,?6,$E($P(^TMP($J,TYPE,STN,LINE),U,15),1,15) ;144 Don't display if exporting
+"RTN","ECXAPRO1",54,0)
+ .S A1=+$P(^TMP($J,TYPE,STN,LINE),U,1),A2=+$P(^(LINE),U,2),A3=+$P(^(LINE),U,3)
+"RTN","ECXAPRO1",55,0)
+ .I $G(ECXPORT) D Q ;144
+"RTN","ECXAPRO1",56,0)
+ ..S ^TMP($J,"ECXPORT",CNT)=STN_U_ECXEXT_U_$S(TYPE="N":"NEW",TYPE="R":"REPAIR",1:"RENTAL")_U_GRPHEAD_U_LINE_U_A1_U_A2_U_(A1+A2)_U_$FN(A3,"",0)_U_$S(A2>0:$FN(A3/A2,"",0),1:""),CNT=CNT+1 ;144
+"RTN","ECXAPRO1",57,0)
+ ..S LINEP=LINE ;144
+"RTN","ECXAPRO1",58,0)
+ .W ?26,$J(A1,5,0) S CA=CA+A1,GCA=GCA+A1
+"RTN","ECXAPRO1",59,0)
+ .W ?34,$J(A2,5,0) S CB=CB+A2,GCB=GCB+A2
+"RTN","ECXAPRO1",60,0)
+ .W ?42,$J(A1+A2,5,0)
+"RTN","ECXAPRO1",61,0)
+ .W ?51,$J(A3,7,0) S CC=CC+A3,GCC=GCC+A3
+"RTN","ECXAPRO1",62,0)
+ .W:A2>0 ?61,$J(A3/A2,6,0)
+"RTN","ECXAPRO1",63,0)
+ .S LINEP=LINE
+"RTN","ECXAPRO1",64,0)
+ I $G(ECXPORT) Q ;144 Stop processing if exporting
+"RTN","ECXAPRO1",65,0)
+ Q:QFLG
+"RTN","ECXAPRO1",66,0)
+ D SUM
+"RTN","ECXAPRO1",67,0)
+ Q
+"RTN","ECXAPRO1",68,0)
+ ;
+"RTN","ECXAPRO1",69,0)
+SUM ;print summary for type
+"RTN","ECXAPRO1",70,0)
+ D:($Y+7>IOSL) HEADER Q:QFLG
+"RTN","ECXAPRO1",71,0)
+ W:TYPE="N" !!!,"STATION SUMMARY (NEW)"
+"RTN","ECXAPRO1",72,0)
+ W:TYPE="R" !!!,"STATION SUMMARY (REPAIR)"
+"RTN","ECXAPRO1",73,0)
+ W:TYPE="RT" !!!,"STATION SUMMARY (RENTAL)"
+"RTN","ECXAPRO1",74,0)
+ W !,?28,"VA",?36,"Com",?44,"Total",?54,"Cost ($)"
+"RTN","ECXAPRO1",75,0)
+ W !,LN
+"RTN","ECXAPRO1",76,0)
+ W !,?26,$J(GCA,5,0),?34,$J(GCB,5,0),?42,$J((GCA+GCB),5,0),?51,$J(GCC,7,0)
+"RTN","ECXAPRO1",77,0)
+ W !,LN
+"RTN","ECXAPRO1",78,0)
+ Q
+"RTN","ECXAPRO1",79,0)
+ ;
+"RTN","ECXAPRO1",80,0)
+HEADER ;header and page control
+"RTN","ECXAPRO1",81,0)
+ I $E(IOST)="C" D
+"RTN","ECXAPRO1",82,0)
+ .S SS=20-$Y F JJ=1:1:SS W !
+"RTN","ECXAPRO1",83,0)
+ .I PG>0 S DIR(0)="E" D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXAPRO1",84,0)
+ Q:QFLG
+"RTN","ECXAPRO1",85,0)
+ W:$Y!($E(IOST)="C") @IOF S PG=PG+1
+"RTN","ECXAPRO1",86,0)
+ W ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report",?64,"Page "_PG
+"RTN","ECXAPRO1",87,0)
+ W !,"DSS Extract Log #: "_ECXEXT
+"RTN","ECXAPRO1",88,0)
+ W !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END")
+"RTN","ECXAPRO1",89,0)
+ W !,"Station (#): "_$P(ECXDIV,U,2)_" ("_$P(ECXDIV,U,3)_")"
+"RTN","ECXAPRO1",90,0)
+ W !,"Report Run Date/Time: "_ECXRUN
+"RTN","ECXAPRO1",91,0)
+ W:TYPE="N" !!,"REPORT OF NEW PROSTHETICS ACTIVITIES"
+"RTN","ECXAPRO1",92,0)
+ W:TYPE="RT" !!,"REPORT OF RENTAL PROSTHETICS ACTIVITIES"
+"RTN","ECXAPRO1",93,0)
+ W:TYPE="R" !!,"REPORT OF REPAIR PROSTHETICS ACTIVITIES"
+"RTN","ECXAPRO1",94,0)
+ W !,"Line",?6,"Item",?28,"VA",?36,"Com",?44,"Total",?54,"Cost ($)",?64,"Ave Com ($)"
+"RTN","ECXAPRO1",95,0)
+ W !,LN,!
+"RTN","ECXAPRO1",96,0)
+ Q
+"RTN","ECXAPRO1",97,0)
+ ;
+"RTN","ECXAPRO1",98,0)
+CODE ;setup nppd codes
+"RTN","ECXAPRO1",99,0)
+ ;intended to duplicate code^rmprn63
+"RTN","ECXAPRO1",100,0)
+ N NULINE
+"RTN","ECXAPRO1",101,0)
+ F I=1:1 S NULINE=$P($T(TEXT+I^ECXAPRO3),";;",2) Q:NULINE["QUIT" D
+"RTN","ECXAPRO1",102,0)
+ .I $L($P(NULINE,";",1))>3,STN]"" D
+"RTN","ECXAPRO1",103,0)
+ ..I $E(NULINE,0,1)'="R" S:$D(^TMP($J,"N",STN,$P(NULINE,";",1))) $P(^TMP($J,"N",STN,$P(NULINE,";",1)),U,15)=$P(NULINE,";",2)
+"RTN","ECXAPRO1",104,0)
+ ..I $E(NULINE,0,1)="R" S:$D(^TMP($J,"R",STN,$P(NULINE,";",1))) $P(^TMP($J,"R",STN,$P(NULINE,";",1)),U,15)=$P(NULINE,";",2)
+"RTN","ECXAPRO1",105,0)
+ .S ^TMP($J,"RMPRCODE",$P(NULINE,";",1))=$P(NULINE,";",2)
+"RTN","ECXAPRO1",106,0)
+ Q
+"RTN","ECXAPRO2")
+0^15^B27501495^B19164691
+"RTN","ECXAPRO2",1,0)
+ECXAPRO2 ;ALB/JAP - PRO Extract Audit Report (cont) ;3/14/13 14:44
+"RTN","ECXAPRO2",2,0)
+ ;;3.0;DSS EXTRACTS;**9,21,39,144**;Dec 22, 1997;Build 9
+"RTN","ECXAPRO2",3,0)
+ ;
+"RTN","ECXAPRO2",4,0)
+ASK ;further detail needed?
+"RTN","ECXAPRO2",5,0)
+ K X,Y
+"RTN","ECXAPRO2",6,0)
+ W !
+"RTN","ECXAPRO2",7,0)
+ S DIR(0)="Y",DIR("A")="Do you want to see details on this audit report",DIR("B")="NO"
+"RTN","ECXAPRO2",8,0)
+ D ^DIR K DIR
+"RTN","ECXAPRO2",9,0)
+ Q:($G(Y)=0)!$D(DUOUT)!($D(DTOUT))
+"RTN","ECXAPRO2",10,0)
+ ;allow user to expand as many lines as needed
+"RTN","ECXAPRO2",11,0)
+ F D ASK2 Q:$D(DUOUT)!($D(DTOUT))
+"RTN","ECXAPRO2",12,0)
+ Q
+"RTN","ECXAPRO2",13,0)
+ ;
+"RTN","ECXAPRO2",14,0)
+ASK2 ;select nppd group to be expanded
+"RTN","ECXAPRO2",15,0)
+ D CODE
+"RTN","ECXAPRO2",16,0)
+ W @IOF,!
+"RTN","ECXAPRO2",17,0)
+ W !,?5,"1. WHEELCHAIRS AND ACCESSORIES"
+"RTN","ECXAPRO2",18,0)
+ W !,?5,"2. ARTIFICAL LEGS"
+"RTN","ECXAPRO2",19,0)
+ W !,?5,"3. ARTIFICAL ARMS AND TERMINAL DEVICES"
+"RTN","ECXAPRO2",20,0)
+ W !,?5,"4. BRACES AND ORTHOTICS"
+"RTN","ECXAPRO2",21,0)
+ W !,?5,"5. SHOES/ORTHOTICS"
+"RTN","ECXAPRO2",22,0)
+ W !,?5,"6. NEUROSENSORY AIDS"
+"RTN","ECXAPRO2",23,0)
+ W !,?5,"7. RESTORATIONS"
+"RTN","ECXAPRO2",24,0)
+ W !,?5,"8. OXYGEN AND RESPIRATIORY"
+"RTN","ECXAPRO2",25,0)
+ W !,?5,"9. MEDICAL EQUIPMENT, MISC., ALL OTHER NEW"
+"RTN","ECXAPRO2",26,0)
+ W !,?5,"10. REPAIR",!!
+"RTN","ECXAPRO2",27,0)
+ S DIR(0)="N^1:10:0"
+"RTN","ECXAPRO2",28,0)
+ S DIR("A")="Select NPPD Group "
+"RTN","ECXAPRO2",29,0)
+ D ^DIR K DIR
+"RTN","ECXAPRO2",30,0)
+ Q:$D(DUOUT)!($D(DTOUT))
+"RTN","ECXAPRO2",31,0)
+ D ASK3(Y)
+"RTN","ECXAPRO2",32,0)
+ Q:$D(DTOUT)
+"RTN","ECXAPRO2",33,0)
+ K DIRUT,DTOUT,DUOUT
+"RTN","ECXAPRO2",34,0)
+ G ASK2
+"RTN","ECXAPRO2",35,0)
+ Q
+"RTN","ECXAPRO2",36,0)
+ ;
+"RTN","ECXAPRO2",37,0)
+ASK3(ECXY) ;select nppd line item
+"RTN","ECXAPRO2",38,0)
+ N BR,BRC,CODE,CNT,ECXPORT ;144
+"RTN","ECXAPRO2",39,0)
+ S BR=0,BRC=0 K CODE W @IOF
+"RTN","ECXAPRO2",40,0)
+ F S BR=$O(^TMP($J,"RMPRCODE",BR)) Q:BR="" I $L(BR)>3 D
+"RTN","ECXAPRO2",41,0)
+ .I $E(BR,1,1)=ECXY S BRC=BRC+1 W !?5,BRC_".",?10,BR,?18,^TMP($J,"RMPRCODE",BR) S CODE(BRC,BR)=""
+"RTN","ECXAPRO2",42,0)
+ .I ($E(BR,1,1)="R")&(ECXY=10) S BRC=BRC+1 W !?5,BRC_".",?10,BR,?18,^TMP($J,"RMPRCODE",BR) S CODE(BRC,BR)=""
+"RTN","ECXAPRO2",43,0)
+ W !
+"RTN","ECXAPRO2",44,0)
+ S DIR(0)="N^1:"_BRC_":0"
+"RTN","ECXAPRO2",45,0)
+ S DIR("A")="Select NPPD Line "
+"RTN","ECXAPRO2",46,0)
+ D ^DIR K DIR
+"RTN","ECXAPRO2",47,0)
+ Q:$D(DUOUT)!($D(DTOUT))
+"RTN","ECXAPRO2",48,0)
+ S ECXCODE="",ECXCODE=$O(CODE(Y,ECXCODE))
+"RTN","ECXAPRO2",49,0)
+ S ECXPGM="TASK^ECXAPRO",ECXDESC="PRO Extract Audit Detail"
+"RTN","ECXAPRO2",50,0)
+ S ECXSAVE("ECXHEAD")="",ECXSAVE("ECXDIV(")="",ECXSAVE("ECXARRAY(")="",ECXSAVE("ECXREPT")="",ECXSAVE("ECXPRIME")="",ECXSAVE("ECXALL")="",ECXSAVE("ECXCODE")=""
+"RTN","ECXAPRO2",51,0)
+ S ECXPORT=$$EXPORT^ECXUTL1 Q:ECXPORT=-1 I ECXPORT D Q ;144
+"RTN","ECXAPRO2",52,0)
+ .K ^TMP($J) ;144
+"RTN","ECXAPRO2",53,0)
+ .S ^TMP($J,"ECXPORT",0)="EXTRACT LOG #^NPPD GROUP^NPPD LINE^NAME^SSN^HCPCS^QTY^TYPE^COST^DATE^HCPCS DESC^STATION #^NPPD ENTRY DATE" ;144
+"RTN","ECXAPRO2",54,0)
+ .S CNT=1 ;144
+"RTN","ECXAPRO2",55,0)
+ .D PROCESS^ECXAPRO ;144
+"RTN","ECXAPRO2",56,0)
+ .D DISP ;144
+"RTN","ECXAPRO2",57,0)
+ .D EXPDISP^ECXUTL1
+"RTN","ECXAPRO2",58,0)
+ W !
+"RTN","ECXAPRO2",59,0)
+ ;determine output device and queue if requested
+"RTN","ECXAPRO2",60,0)
+ D DEVICE^ECXUTLA(ECXPGM,ECXDESC,.ECXSAVE) I ECXSAVE("POP")=1 D Q
+"RTN","ECXAPRO2",61,0)
+ .W !!,?5,"Try again later... exiting.",!
+"RTN","ECXAPRO2",62,0)
+ I ECXSAVE("ZTSK")=0 D
+"RTN","ECXAPRO2",63,0)
+ .K ECXSAVE,ECXPGM,ECXDESC
+"RTN","ECXAPRO2",64,0)
+ .I '$D(^TMP($J,"RMPRGN")) D PROCESS^ECXAPRO
+"RTN","ECXAPRO2",65,0)
+ .D DISP
+"RTN","ECXAPRO2",66,0)
+ I $D(IO(0)) I IO(0)'=IO D ^%ZISC
+"RTN","ECXAPRO2",67,0)
+ D HOME^%ZIS
+"RTN","ECXAPRO2",68,0)
+ Q
+"RTN","ECXAPRO2",69,0)
+ ;
+"RTN","ECXAPRO2",70,0)
+CODE ;setup nppd codes
+"RTN","ECXAPRO2",71,0)
+ ;intended to duplicate code^rmprn63
+"RTN","ECXAPRO2",72,0)
+ N NULINE
+"RTN","ECXAPRO2",73,0)
+ Q:$D(^TMP($J,"RMPRCODE"))
+"RTN","ECXAPRO2",74,0)
+ F I=1:1 S NULINE=$P($T(TEXT+I^ECXAPRO3),";;",2) Q:NULINE["QUIT" D
+"RTN","ECXAPRO2",75,0)
+ .S ^TMP($J,"RMPRCODE",$P(NULINE,";",1))=$P(NULINE,";",2)
+"RTN","ECXAPRO2",76,0)
+ Q
+"RTN","ECXAPRO2",77,0)
+ ;
+"RTN","ECXAPRO2",78,0)
+DISP ;display all records within nppd code group
+"RTN","ECXAPRO2",79,0)
+ ;based on desp^rmprn6pl
+"RTN","ECXAPRO2",80,0)
+ N JJ,SS,LN,PG,COST,DATE,DESC,HCPCS,LOC,PTNAM,QFLG,QTY,RDX,RDXX,SSN,TYPE,DIR,DIRUT,DTOUT,DUOUT,NPPDED ;NPPD ENT DATE CVW 144
+"RTN","ECXAPRO2",81,0)
+ U IO
+"RTN","ECXAPRO2",82,0)
+ S (QFLG,PG)=0,$P(LN,"-",81)=""
+"RTN","ECXAPRO2",83,0)
+ I '$G(ECXPORT) D HEADER ;144
+"RTN","ECXAPRO2",84,0)
+ I '$D(^TMP($J,ECXCODE)) D Q
+"RTN","ECXAPRO2",85,0)
+ .I $G(ECXPORT) Q ;144 Stop processing if exporting
+"RTN","ECXAPRO2",86,0)
+ .W !,?14,"No data available.",!
+"RTN","ECXAPRO2",87,0)
+ .I $E(IOST)="C",'QFLG D
+"RTN","ECXAPRO2",88,0)
+ ..S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXAPRO2",89,0)
+ ..S DIR(0)="E" D ^DIR K DIR
+"RTN","ECXAPRO2",90,0)
+ S RDX=0
+"RTN","ECXAPRO2",91,0)
+ F S RDX=$O(^TMP($J,ECXCODE,RDX)) Q:RDX'>0 Q:QFLG D
+"RTN","ECXAPRO2",92,0)
+ .S RDXX=^TMP($J,ECXCODE,RDX)
+"RTN","ECXAPRO2",93,0)
+ .S PTNAM=$P(RDXX,U,9),SSN=$P(RDXX,U,10)
+"RTN","ECXAPRO2",94,0)
+ .I '$G(ECXPORT) D:($Y+3>IOSL) HEADER Q:QFLG ;144 Don't display if exporting
+"RTN","ECXAPRO2",95,0)
+ .S TYPE=$P(RDXX,U,1),TYPE=$S(TYPE="X":"R",1:"I")_" "_$P(RDXX,U,2)
+"RTN","ECXAPRO2",96,0)
+ .S QTY=+$P(RDXX,U,3),COST=$P(RDXX,U,4),HCPCS=$P(RDXX,U,7),DESC=$P(RDXX,U,8),DATE=$P(RDXX,U,11),LOC=$P(RDXX,U,12),NPPDED=$P(RDXX,U,13) ;144 CVW
+"RTN","ECXAPRO2",97,0)
+ .I $G(ECXPORT) S ^TMP($J,"ECXPORT",CNT)=ECXEXT_U_ECXCODE_U_^TMP($J,"RMPRCODE",ECXCODE)_U_PTNAM_U_SSN_U_HCPCS_U_QTY_U_TYPE_U_COST_U_DATE_U_DESC_U_LOC_U_NPPDED,CNT=CNT+1 Q ;144
+"RTN","ECXAPRO2",98,0)
+ .W !,PTNAM,?5,SSN,?10,HCPCS,?17,QTY,?26,TYPE,?30,COST,?37,DATE,?43,DESC,?64,LOC,?72,NPPDED ;144 CVW
+"RTN","ECXAPRO2",99,0)
+ I $G(ECXPORT) Q ;144 Stop processing if exporting
+"RTN","ECXAPRO2",100,0)
+ I $E(IOST)="C",'QFLG D
+"RTN","ECXAPRO2",101,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXAPRO2",102,0)
+ .S DIR(0)="E" D ^DIR K DIR
+"RTN","ECXAPRO2",103,0)
+ Q
+"RTN","ECXAPRO2",104,0)
+ ;
+"RTN","ECXAPRO2",105,0)
+HEADER ;header and page control
+"RTN","ECXAPRO2",106,0)
+ I $E(IOST)="C" D
+"RTN","ECXAPRO2",107,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXAPRO2",108,0)
+ .I PG>0 S DIR(0)="E" D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXAPRO2",109,0)
+ Q:QFLG
+"RTN","ECXAPRO2",110,0)
+ W:$Y!($E(IOST)="C") @IOF S PG=PG+1
+"RTN","ECXAPRO2",111,0)
+ W !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report Detail",?72,"Page ",PG
+"RTN","ECXAPRO2",112,0)
+ W !,"DSS Extract Log #: "_ECXEXT
+"RTN","ECXAPRO2",113,0)
+ W !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END")
+"RTN","ECXAPRO2",114,0)
+ I ECXALL=1 W !,"Station: "_$P(ECXDIV,U,2)_" ("_$P(ECXDIV,U,3)_")"
+"RTN","ECXAPRO2",115,0)
+ I ECXALL=0 W !,"Division: "_$P(ECXDIV,U,2)_" ("_$P(ECXDIV,U,3)_")"
+"RTN","ECXAPRO2",116,0)
+ W !,"Report Run Date/Time: "_ECXRUN
+"RTN","ECXAPRO2",117,0)
+ W !,LN,!,ECXCODE," -- ",^TMP($J,"RMPRCODE",ECXCODE),?74,"NPPD"
+"RTN","ECXAPRO2",118,0)
+ W !,"NAME",?5,"SSN",?10,"HCPCS",?17,"QTY",?26,"TYP",?30,"COST",?37,"DATE",?43,"HCPCS DESC",?64,"STN#",?72,"ENTRY DT"
+"RTN","ECXAPRO2",119,0)
+ W !,LN,!
+"RTN","ECXAPRO2",120,0)
+ Q
+"RTN","ECXBCM")
+0^11^B87281360^B71824253
+"RTN","ECXBCM",1,0)
+ECXBCM ;ALB/JAP-Bar Code Medical Administration Extract ;5/21/13 11:29
+"RTN","ECXBCM",2,0)
+ ;;3.0;DSS EXTRACTS;**107,127,132,136,143,144**;Dec 22, 1997 ;Build 9
+"RTN","ECXBCM",3,0)
+ ;
+"RTN","ECXBCM",4,0)
+BEG ;entry point from option
+"RTN","ECXBCM",5,0)
+ ;ECFILE=^ECX(727.833,
+"RTN","ECXBCM",6,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXBCM",7,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXBCM",8,0)
+ Q
+"RTN","ECXBCM",9,0)
+ ;
+"RTN","ECXBCM",10,0)
+START ; start package specific extract
+"RTN","ECXBCM",11,0)
+ ;
+"RTN","ECXBCM",12,0)
+ N ECXVAP ;143
+"RTN","ECXBCM",13,0)
+ S ECED=ECED+.3,ECD=ECSD1
+"RTN","ECXBCM",14,0)
+ S PIEN=0
+"RTN","ECXBCM",15,0)
+ I $G(ECSD)="" S ECSD=DT
+"RTN","ECXBCM",16,0)
+ ; loop thru and get each new patient, reset the start date to ECSD - begin date from ECXTRAC
+"RTN","ECXBCM",17,0)
+ F S PIEN=$O(^PSB(53.79,"AADT",PIEN)) Q:('PIEN) S IDAT=ECSD D
+"RTN","ECXBCM",18,0)
+ .F S IDAT=$O(^PSB(53.79,"AADT",PIEN,IDAT)) Q:'IDAT!(IDAT>ECED) S RIEN="" D
+"RTN","ECXBCM",19,0)
+ ..F S RIEN=$O(^PSB(53.79,"AADT",PIEN,IDAT,RIEN)) Q:'RIEN D
+"RTN","ECXBCM",20,0)
+ ...S ECXNOD=^PSB(53.79,RIEN,0) Q:'ECXNOD S ECXDFN=$P($G(ECXNOD),U) D GET(ECSD,ECED)
+"RTN","ECXBCM",21,0)
+ Q
+"RTN","ECXBCM",22,0)
+ ;
+"RTN","ECXBCM",23,0)
+GET(ECSD,ECED) ;get extract data
+"RTN","ECXBCM",24,0)
+ N ECXESC,ECXECL,ECXCLST ;144
+"RTN","ECXBCM",25,0)
+ S (ACTDT,ECXADT,ECXAMED,ECXASTA,ECXATM,ECXORN,ECXORT,ECXOSC,ECPRO,PLACEHLD,ECXFAC,DRG,ECXESC,ECXECL,ECXCLST)="" ;144
+"RTN","ECXBCM",26,0)
+ ; get needed YYYYDD variable
+"RTN","ECXBCM",27,0)
+ I $G(ECXYM)="" S ECXYM=$$ECXYM^ECXUTL(DT)
+"RTN","ECXBCM",28,0)
+ ;Get Facility
+"RTN","ECXBCM",29,0)
+ I $G(ECXFAC)="" D
+"RTN","ECXBCM",30,0)
+ .S ECXFAC=+$P(^ECX(728,1,0),U) K ECXDIC S DA=ECXFAC,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99"
+"RTN","ECXBCM",31,0)
+ .D EN^DIQ1 S ECXFAC=$G(ECXDIC(4,DA,99,"I")) K DIC,DIQ,DA,DR,ECXDIC
+"RTN","ECXBCM",32,0)
+ ;
+"RTN","ECXBCM",33,0)
+ S ECXORN=$$GET1^DIQ(53.79,RIEN,.11)
+"RTN","ECXBCM",34,0)
+ ;get inpatient data
+"RTN","ECXBCM",35,0)
+ S (ECXA,ECXMN,ECXADM,ECXTS,ECXW)=""
+"RTN","ECXBCM",36,0)
+ S X=$$INP^ECXUTL2(ECXDFN,IDAT)
+"RTN","ECXBCM",37,0)
+ S ECXA=$P(X,U),ECXMN=$P(X,U,2),ECXTS=$P(X,U,3),ECXADM=$P(X,U,4)
+"RTN","ECXBCM",38,0)
+ S W=$P(X,U,9),ECXDOM=$P(X,U,10),ECXW=$P(W,";")
+"RTN","ECXBCM",39,0)
+ ; Ordering Stop Code - based on Unit dose or IV
+"RTN","ECXBCM",40,0)
+ I ECXORN["U" Q:$$CHKUD(ECXDFN,ECSD,ECED) S:ECXA="O" ECXOSC=$$DOUDO^ECXUTL5(ECXDFN,+ECXORN)
+"RTN","ECXBCM",41,0)
+ I ECXORN["V" Q:$$CHKIV(ECXDFN,ECSD,ECED) S:ECXA="O" ECXOSC=$$DOIVPO^ECXUTL5(ECXDFN,+ECXORN)
+"RTN","ECXBCM",42,0)
+ ;get patient demographics
+"RTN","ECXBCM",43,0)
+ S ECXERR=0 D PAT(ECXDFN,IDAT,.ECXERR) Q:ECXERR
+"RTN","ECXBCM",44,0)
+ S ECPRO=$$ORDPROV^ECXUTL(ECXDFN,ECXORN,"")
+"RTN","ECXBCM",45,0)
+ S ACTDT=$$GET1^DIQ(53.79,RIEN,.06,"I")
+"RTN","ECXBCM",46,0)
+ I ACTDT'=IDAT Q
+"RTN","ECXBCM",47,0)
+ S ECXADT=$$ECXDATE^ECXUTL(ACTDT,ECXYM)
+"RTN","ECXBCM",48,0)
+ S ECXATM=$$ECXTIME^ECXUTL(ACTDT)
+"RTN","ECXBCM",49,0)
+ S ECXORT=$P($G(^TMP("PSJ",$J,1)),U,3) K ^TMP("PSJ",$J)
+"RTN","ECXBCM",50,0)
+ S ECPROPC=$P($$GET^XUA4A72(ECPRO,$P(ACTDT,".")),U,7)
+"RTN","ECXBCM",51,0)
+ N ECXUSRTN
+"RTN","ECXBCM",52,0)
+ S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECPRO,$P(ACTDT,"."))
+"RTN","ECXBCM",53,0)
+ S:+ECXUSRTN'>0 ECXUSRTN="" S ECPRONPI=$P(ECXUSRTN,U)
+"RTN","ECXBCM",54,0)
+ S ECXASTA=$$GET1^DIQ(53.79,RIEN,.09,"I")
+"RTN","ECXBCM",55,0)
+ I "^G^S^C^"'[("^"_ECXASTA_"^") Q ;process 'G'iven,'S'topped,'C'ompleted
+"RTN","ECXBCM",56,0)
+ S ECXAMED=$$GET1^DIQ(53.79,RIEN,.08,"I")
+"RTN","ECXBCM",57,0)
+ ;Component code data
+"RTN","ECXBCM",58,0)
+ D CCODE(RIEN)
+"RTN","ECXBCM",59,0)
+ Q
+"RTN","ECXBCM",60,0)
+ ;
+"RTN","ECXBCM",61,0)
+CMPT ; during component/sequence processing, retrieve rest of data record then file it.
+"RTN","ECXBCM",62,0)
+ S (ECXSCADT,ECXOS,ECXIVID,ECXIR,SCADT,ECXSCADT,ECXSCATM,DRUG,ECVNDC,ECINV,ECVACL,ECXVAP)="" ;143
+"RTN","ECXBCM",63,0)
+ I $G(DRG) D
+"RTN","ECXBCM",64,0)
+ .S DRUG=$$PHAAPI^ECXUTL5(DRG)
+"RTN","ECXBCM",65,0)
+ .S ECVNDC=$P(DRUG,U,3)
+"RTN","ECXBCM",66,0)
+ .S ECINV=$P(DRUG,U,4)
+"RTN","ECXBCM",67,0)
+ .I ECXLOGIC<2014 D
+"RTN","ECXBCM",68,0)
+ ..S ECINV=$S(ECINV["I":"I",1:"")
+"RTN","ECXBCM",69,0)
+ .;New way to calculate cost dea spl hndlg **144
+"RTN","ECXBCM",70,0)
+ .I ECXLOGIC>2013 D
+"RTN","ECXBCM",71,0)
+ ..S ECINV=$S((+ECINV>0)&(+ECINV<6):+ECINV,ECINV["I":"I",1:"")
+"RTN","ECXBCM",72,0)
+ .S ECVACL=$P(DRUG,U,2)
+"RTN","ECXBCM",73,0)
+ .S ECXVAP=$P(DRUG,U,6) ;143 set ECXVAP to VA PRODUCT IEN
+"RTN","ECXBCM",74,0)
+ S SCADT=$$GET1^DIQ(53.79,RIEN,.13,"I")
+"RTN","ECXBCM",75,0)
+ S ECXSCADT=$$ECXDATE^ECXUTL(SCADT,ECXYM)
+"RTN","ECXBCM",76,0)
+ S ECXSCATM=$$ECXTIME^ECXUTL(SCADT)
+"RTN","ECXBCM",77,0)
+ S ECXOS=$$GET1^DIQ(53.79,RIEN,.12,"I")
+"RTN","ECXBCM",78,0)
+ S ECXIVID=$$GET1^DIQ(53.79,RIEN,.26)
+"RTN","ECXBCM",79,0)
+ S ECXIR=$$GET1^DIQ(53.79,RIEN,.35)
+"RTN","ECXBCM",80,0)
+ S ECXDIV=$$RADDIV^ECXDEPT($$GET1^DIQ(53.79,RIEN,.03,"I"))
+"RTN","ECXBCM",81,0)
+ S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS)
+"RTN","ECXBCM",82,0)
+ S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADM,ACTDT,ECXTS,ECXOBS,ECHEAD,,)
+"RTN","ECXBCM",83,0)
+ D:ECXENC'="" FILE
+"RTN","ECXBCM",84,0)
+ Q
+"RTN","ECXBCM",85,0)
+ ;
+"RTN","ECXBCM",86,0)
+PAT(ECXDFN,ECXDATE,ECXERR) ;get patient demographics, primary care, and inpatient data
+"RTN","ECXBCM",87,0)
+ N X
+"RTN","ECXBCM",88,0)
+ S (ECXCAT,ECXSTAT,ECXPRIOR,ECXSBGRP,ECXOEF,ECXOEFDT)=""
+"RTN","ECXBCM",89,0)
+ ;get patient data
+"RTN","ECXBCM",90,0)
+ K ECXPAT S OK=$$PAT^ECXUTL3(ECXDFN,$P(ECXDATE,"."),"1;2;3;5",.ECXPAT)
+"RTN","ECXBCM",91,0)
+ I 'OK K ECXPAT S ECXERR=1 Q
+"RTN","ECXBCM",92,0)
+ S ECXPNM=ECXPAT("NAME")
+"RTN","ECXBCM",93,0)
+ S ECXSSN=ECXPAT("SSN")
+"RTN","ECXBCM",94,0)
+ S ECXMPI=ECXPAT("MPI")
+"RTN","ECXBCM",95,0)
+ S ECXDOB=ECXPAT("DOB")
+"RTN","ECXBCM",96,0)
+ S ECXELIG=ECXPAT("ELIG")
+"RTN","ECXBCM",97,0)
+ S ECXSEX=ECXPAT("SEX")
+"RTN","ECXBCM",98,0)
+ S ECXSTATE=ECXPAT("STATE")
+"RTN","ECXBCM",99,0)
+ S ECXCNTY=ECXPAT("COUNTY")
+"RTN","ECXBCM",100,0)
+ S ECXZIP=ECXPAT("ZIP")
+"RTN","ECXBCM",101,0)
+ S ECXVET=ECXPAT("VET")
+"RTN","ECXBCM",102,0)
+ S ECXCNTRY=ECXPAT("COUNTRY")
+"RTN","ECXBCM",103,0)
+ S ECXPOS=ECXPAT("POS")
+"RTN","ECXBCM",104,0)
+ S ECXPST=ECXPAT("POW STAT")
+"RTN","ECXBCM",105,0)
+ S ECXPLOC=ECXPAT("POW LOC")
+"RTN","ECXBCM",106,0)
+ S ECXRST=ECXPAT("IR STAT")
+"RTN","ECXBCM",107,0)
+ S ECXAST=ECXPAT("AO STAT")
+"RTN","ECXBCM",108,0)
+ S ECXAOL=ECXPAT("AOL")
+"RTN","ECXBCM",109,0)
+ S ECXPHI=ECXPAT("PHI")
+"RTN","ECXBCM",110,0)
+ S ECXMST=ECXPAT("MST STAT")
+"RTN","ECXBCM",111,0)
+ S ECXENRL=ECXPAT("ENROLL LOC")
+"RTN","ECXBCM",112,0)
+ S ECXMTST=ECXPAT("MEANS")
+"RTN","ECXBCM",113,0)
+ S ECXEST=ECXPAT("EC STAT")
+"RTN","ECXBCM",114,0)
+ S ECXCLST=ECXPAT("CL STAT") ;144 Camp Lejeune status
+"RTN","ECXBCM",115,0)
+ S ECXCNHU=$$CNHSTAT^ECXUTL4(ECXDFN) S ECXCNHU=$S(ECXCNHU'="":$E(ECXCNHU,1),1:"") ;get CNHU status
+"RTN","ECXBCM",116,0)
+ ;get enrollment data (category, status and priority)
+"RTN","ECXBCM",117,0)
+ I $$ENROLLM^ECXUTL2(ECXDFN)
+"RTN","ECXBCM",118,0)
+ S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN) ; Head and Neck Cancer Indicator
+"RTN","ECXBCM",119,0)
+ S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN) ; PROJ 112/SHAD Indicator
+"RTN","ECXBCM",120,0)
+ I ECXSHADI="U" S ECXSHADI="" ; If Shad comes back as "U" force to null
+"RTN","ECXBCM",121,0)
+ S ECXETH=ECXPAT("ETHNIC"),ECXRC1=ECXPAT("RACE1") ; Race and Ethnicity
+"RTN","ECXBCM",122,0)
+ S ECXERI=ECXPAT("ERI") ; emergency response indicator (FEMA)
+"RTN","ECXBCM",123,0)
+ S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) ; PATCAT code / patch 127
+"RTN","ECXBCM",124,0)
+ S ECXOEF=ECXPAT("ECXOEF")
+"RTN","ECXBCM",125,0)
+ S ECXOEFDT=ECXPAT("ECXOEFDT")
+"RTN","ECXBCM",126,0)
+ ;
+"RTN","ECXBCM",127,0)
+ ;get primary care data
+"RTN","ECXBCM",128,0)
+ S X=$$PRIMARY^ECXUTL2(ECXDFN,$P(ECXDATE,"."))
+"RTN","ECXBCM",129,0)
+ S ECPTTM=$P(X,U),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4)
+"RTN","ECXBCM",130,0)
+ ;get national patient record flag, if it exists
+"RTN","ECXBCM",131,0)
+ D NPRF^ECXUTL5 ; sets ECXNPRFI
+"RTN","ECXBCM",132,0)
+ Q
+"RTN","ECXBCM",133,0)
+ ;
+"RTN","ECXBCM",134,0)
+CCODE(RIEN) ; get component information
+"RTN","ECXBCM",135,0)
+ ; input - IEN of the BCMA MEDICATION LOG File
+"RTN","ECXBCM",136,0)
+ ;
+"RTN","ECXBCM",137,0)
+ ; output - CCIEN: pointer to a variable pointer field to file #50, #52.6, or #52.7
+"RTN","ECXBCM",138,0)
+ ; CCDORD: .02 field of file #50, #52.6, or #52.7
+"RTN","ECXBCM",139,0)
+ ; CCDGVN: .03 FIELD of file #50, #52.6, or #52.7
+"RTN","ECXBCM",140,0)
+ ; CCUNIT: .04 field of file #50, #52.6, or #52.7
+"RTN","ECXBCM",141,0)
+ ; CCTYPE: derived field, "D", "A", or "S"
+"RTN","ECXBCM",142,0)
+ ;
+"RTN","ECXBCM",143,0)
+ S (CCIEN,CCDORD,CCDGVN,CCUNIT,CCTYPE)=""
+"RTN","ECXBCM",144,0)
+ F I=.5,.6,.7 D
+"RTN","ECXBCM",145,0)
+ .I '$O(^PSB(53.79,RIEN,I,0)) Q
+"RTN","ECXBCM",146,0)
+ .S J=0 F S J=$O(^PSB(53.79,RIEN,I,J)) Q:'J D
+"RTN","ECXBCM",147,0)
+ ..S DATA=^PSB(53.79,RIEN,I,J,0)
+"RTN","ECXBCM",148,0)
+ ..S (UNITCOST,ECXDRGC,ECXIVSC,ECXIVAC)=0 ;144 NEW COST FIELDS
+"RTN","ECXBCM",149,0)
+ ..S CCIEN=$P(DATA,U),CCDORD=$P(DATA,U,2),CCDGVN=$S(+($P(DATA,U,3))>0:+($P(DATA,U,3)),1:1),CCUNIT=$S(+($P(DATA,U,4))>0:+($P(DATA,U,4)),1:1)
+"RTN","ECXBCM",150,0)
+ ..I I=.5 D ;144 New drug Cost Fields added
+"RTN","ECXBCM",151,0)
+ ...S DRG=CCIEN,UNITCOST=$$GET1^DIQ(50,DRG,16,"I")
+"RTN","ECXBCM",152,0)
+ ...S ECXDRGC=(CCDGVN*CCUNIT)*UNITCOST
+"RTN","ECXBCM",153,0)
+ ..I I=.6 D ;144 New IV Additive Cost Fields added
+"RTN","ECXBCM",154,0)
+ ...S DRG=$$GET1^DIQ(52.6,CCIEN,1,"I"),UNITCOST=$$GET1^DIQ(52.6,CCIEN,7,"I")
+"RTN","ECXBCM",155,0)
+ ...S ECXIVAC=CCDGVN*UNITCOST
+"RTN","ECXBCM",156,0)
+ ..I I=.7 D ;144 New IV Solution Cost Fields added
+"RTN","ECXBCM",157,0)
+ ...S DRG=$$GET1^DIQ(52.7,CCIEN,1,"I"),UNITCOST=$$GET1^DIQ(52.7,CCIEN,7,"I")
+"RTN","ECXBCM",158,0)
+ ...S ECXIVSC=CCDGVN*UNITCOST
+"RTN","ECXBCM",159,0)
+ ..S CCTYPE=$S(I=.5:"D",I=.6:"A",I=.7:"S",1:"")
+"RTN","ECXBCM",160,0)
+ ..S CCIEN=$S(I=.5:CCIEN_";PSDRUG(",I=.6:CCIEN_";PS(52.6,",I=.7:CCIEN_";PS(52.7,",1:"")
+"RTN","ECXBCM",161,0)
+ ..D CMPT
+"RTN","ECXBCM",162,0)
+ Q
+"RTN","ECXBCM",163,0)
+ ;
+"RTN","ECXBCM",164,0)
+CHKIV(ECXDFN,ECSD,ECED) ; Check file 728.113 for matching IV records
+"RTN","ECXBCM",165,0)
+ ; input - ECXDFN DFN of the patient from the BCMA file
+"RTN","ECXBCM",166,0)
+ ; ECSD: Start Date for the extract
+"RTN","ECXBCM",167,0)
+ ; ECED: End Date for the extract
+"RTN","ECXBCM",168,0)
+ ; return - True if the Order is in file 728.113
+"RTN","ECXBCM",169,0)
+ ; False if the Order is Not in file 728.113
+"RTN","ECXBCM",170,0)
+ ;
+"RTN","ECXBCM",171,0)
+ N IVIEN,ORD,IVORN,ECD,EXTRACT,STDATE,ENDDATE
+"RTN","ECXBCM",172,0)
+ S (ORD,ECD,STDATE,ENDDATE)=0
+"RTN","ECXBCM",173,0)
+ S (IVORN,EXTRACT)=""
+"RTN","ECXBCM",174,0)
+ I '$O(^ECX(728.113,0)) D ; Check to see if data exists in the file, if not, recreate
+"RTN","ECXBCM",175,0)
+ .S EXTRACT="IV"
+"RTN","ECXBCM",176,0)
+ .S STDATE=$E($$FMADD^XLFDT(ECSD,-140),1,5)_"01"
+"RTN","ECXBCM",177,0)
+ .S ENDDATE=ECED
+"RTN","ECXBCM",178,0)
+ .D START^PSJDSS
+"RTN","ECXBCM",179,0)
+ S IVORN=$P(ECXORN,"V")
+"RTN","ECXBCM",180,0)
+ S ECD=$E($$FMADD^XLFDT(ECSD,-140),1,5)_"01"
+"RTN","ECXBCM",181,0)
+ F S ECD=$O(^ECX(728.113,"A",ECD)) Q:'ECD!(ECD>ECED)!(ORD=IVORN) D
+"RTN","ECXBCM",182,0)
+ .S ORD=0
+"RTN","ECXBCM",183,0)
+ .F S ORD=$O(^ECX(728.113,"A",ECD,ECXDFN,ORD)) Q:'ORD!(ORD=IVORN)
+"RTN","ECXBCM",184,0)
+ I ORD=IVORN Q 1
+"RTN","ECXBCM",185,0)
+ Q 0 ;Checks show order not in IV 728.113
+"RTN","ECXBCM",186,0)
+ ;
+"RTN","ECXBCM",187,0)
+CHKUD(ECXDFN,ECSD,ECED) ; Check file 728.904 for matching Unit dose records
+"RTN","ECXBCM",188,0)
+ ; input - ECXDFN DFN of the patient from the BCMA file
+"RTN","ECXBCM",189,0)
+ ; ECSD: Start Date for the extract
+"RTN","ECXBCM",190,0)
+ ; ECED: End Date for the extract
+"RTN","ECXBCM",191,0)
+ ; return - True if the Order is in file 728.904
+"RTN","ECXBCM",192,0)
+ ; False if the Order is Not in file 728.904
+"RTN","ECXBCM",193,0)
+ ;
+"RTN","ECXBCM",194,0)
+ N UDIEN,UDORN,ORD,EXTRACT,STDATE,ENDDATE
+"RTN","ECXBCM",195,0)
+ S (ORD,STDATE,ENDDATE)=0
+"RTN","ECXBCM",196,0)
+ S (UDORN,EXTRACT)=""
+"RTN","ECXBCM",197,0)
+ I '$O(^ECX(728.904,0)) D ; Check to see if data exists in the file, if not, recreate
+"RTN","ECXBCM",198,0)
+ .S EXTRACT="UD"
+"RTN","ECXBCM",199,0)
+ .S STDATE=$E($$FMADD^XLFDT(ECSD,-140),1,5)_"01"
+"RTN","ECXBCM",200,0)
+ .S ENDDATE=ECED
+"RTN","ECXBCM",201,0)
+ .D START^PSJDSS
+"RTN","ECXBCM",202,0)
+ S UDORN=$P(ECXORN,"U")
+"RTN","ECXBCM",203,0)
+ F S ORD=$O(^ECX(728.904,"AO",ECXDFN,ORD)) Q:'ORD!(ORD=UDORN)
+"RTN","ECXBCM",204,0)
+ I ORD=UDORN Q 1
+"RTN","ECXBCM",205,0)
+ ;I $$GET1^DIQ(55.06,UDORN_","_ECXDFN,7,"I")="R" Q 1
+"RTN","ECXBCM",206,0)
+ Q 0 ;Checks show order not in UD 728.904
+"RTN","ECXBCM",207,0)
+ ;
+"RTN","ECXBCM",208,0)
+FILE ;file the extract record
+"RTN","ECXBCM",209,0)
+ ;node0
+"RTN","ECXBCM",210,0)
+ ;Sequence Number,Year Month, Extract Number (EC23)^facility (ECXFAC)^
+"RTN","ECXBCM",211,0)
+ ;dfn (ECXDFN)^ssn (ECXSSN)^name (ECXPNM)^
+"RTN","ECXBCM",212,0)
+ ;in/out (ECXA)^Day (ECXADT)^
+"RTN","ECXBCM",213,0)
+ ;date of birth (ECDOB)^Gender (ECXSEX)^State (ECXSTATE)^County (ECXCNTY)^
+"RTN","ECXBCM",214,0)
+ ;zip code (ECXZIP)^country (ECXCNTRY)^ward (ECXW)^treating speciality (ECXTSC)^
+"RTN","ECXBCM",215,0)
+ ;provider (ECPRO)^provider person class (ECPROPC)^provider npi (ECPRONPI)^
+"RTN","ECXBCM",216,0)
+ ;primary care provider(ECPTPR)^pc provider person class (ECCLAS)^
+"RTN","ECXBCM",217,0)
+ ;primary care provider NPI (ECPTNPI)^primary care team (ECPTTM)^ordering stop code (ECXOSC)^
+"RTN","ECXBCM",218,0)
+ ;NODE(1)
+"RTN","ECXBCM",219,0)
+ ;place order number (RIEN)^order reference number (ECXORN)^route (ECXORT)^
+"RTN","ECXBCM",220,0)
+ ;^action time (ECXATM)^component code (CCIEN)^
+"RTN","ECXBCM",221,0)
+ ;component dose ordered (CCDORD)^component dose given(CCDGVN)^
+"RTN","ECXBCM",222,0)
+ ;component units (CCUNIT)^component type (CCTYPE)^Action Status (ECXASTA)^
+"RTN","ECXBCM",223,0)
+ ;Administration Medication (ECXAMED)^Scheduled Administration Date (ECXSCADT)^
+"RTN","ECXBCM",224,0)
+ ;NODE(2)
+"RTN","ECXBCM",225,0)
+ ;Scheduled Administration Time (ECXSCATM)^
+"RTN","ECXBCM",226,0)
+ ;Order Schedule (ECXOS)^IV Unique ID (ECXIVID)^
+"RTN","ECXBCM",227,0)
+ ;Infusion Rate (ECXIR)^Production Division Code (ECXDIV)^Drug IEN (ECXVAP)^NDC (ECVNDC)^ ;;143, changed Drug IEN var from DRG to ECXVAP
+"RTN","ECXBCM",228,0)
+ ;Investigational (DEA Special Handling) (ECINV)^VA Drug Classification (ECVACL)^
+"RTN","ECXBCM",229,0)
+ ;Master Patient Index (ECXMPI)^DOM, PRRTP and SAARTP Indicator (ECXDOM)^
+"RTN","ECXBCM",230,0)
+ ;Observation Patient Indicator (ECXOBS)^Encounter Number (ECXENC)^Means Test (ECXMTST)^
+"RTN","ECXBCM",231,0)
+ ;Eligibility (ECXELIG)^Enrollment Location (ECXENRL)^Enrollment Category (ECXCAT)^
+"RTN","ECXBCM",232,0)
+ ;Enrollment Status (ECXSTAT)^Enrollment Priority (ECXPRIOR)_(ECXSBGRP)^
+"RTN","ECXBCM",233,0)
+ ;User Enrollee (ECXUESTA)^
+"RTN","ECXBCM",234,0)
+ ;Ethnicity(ECXETH)^Race 1(ECXRC1)^Veteran(ECXVET)^Period of Service(ECXPOS)^POW Status(ECXPST)^
+"RTN","ECXBCM",235,0)
+ ;POW Location(ECXPLOC)^Radiation Status(ECXRST)^Agent Orange Status(ECXAST)^Agent Orange Location(ECXAOL)
+"RTN","ECXBCM",236,0)
+ ;^Purple Heart Indicator(ECXPHI)^MST Status(ECXMST)^CNH/SH Status(ECXCNHU)^
+"RTN","ECXBCM",237,0)
+ ;Head & Neck Cancer Indicator(ECXHNCI)^SHAD Status(ECXSHADI)
+"RTN","ECXBCM",238,0)
+ ;NODE(3)
+"RTN","ECXBCM",239,0)
+ ;Patient Type(ECXPTYPE)^
+"RTN","ECXBCM",240,0)
+ ;CV Status Eligibility(ECXCVE)^CV Eligibility End Date(ECXCVEDT)^Encounter CV(ECXCVENC)^
+"RTN","ECXBCM",241,0)
+ ;National Patient Record Flag(ECXNPRFI)^ERI(ECXERI)^SW Asia Conditions(ECXEST)^
+"RTN","ECXBCM",242,0)
+ ;OEF/OIF(ECXOEF)^OEF/OIF Return Date(ECXOEFDT)^PATCAT(ECXPATCAT)
+"RTN","ECXBCM",243,0)
+ ;Encounter SC (ECXESC)^IV Additives Cost ECXIVAC^IV Solutions Cost ECXIVSC^Drug cost ECXDRGC^Camp Lejeune Status (ECXCLST)^Encounter Camp Lejeune (ECXECL)
+"RTN","ECXBCM",244,0)
+ ;
+"RTN","ECXBCM",245,0)
+ ;convert specialty to PTF Code for transmission
+"RTN","ECXBCM",246,0)
+ N ECXDATA,ECXTSC
+"RTN","ECXBCM",247,0)
+ S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA)
+"RTN","ECXBCM",248,0)
+ S ECXTSC=$G(ECXDATA(7))
+"RTN","ECXBCM",249,0)
+ N DA,DIK
+"RTN","ECXBCM",250,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXBCM",251,0)
+ S ECODE(0)=EC7_U_EC23_U_ECXFAC_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U_ECXADT
+"RTN","ECXBCM",252,0)
+ S ECODE(0)=ECODE(0)_U_ECXDOB_U_ECXSEX_U_ECXSTATE_U_ECXCNTY_U_ECXZIP_U_ECXCNTRY
+"RTN","ECXBCM",253,0)
+ S ECODE(0)=ECODE(0)_U_ECXW_U_ECXTSC_U_2_ECPRO_U_ECPROPC_U_ECPRONPI_U_ECPTPR_U_ECCLAS
+"RTN","ECXBCM",254,0)
+ S ECODE(0)=ECODE(0)_U_ECPTNPI_U_ECPTTM_U_ECXOSC_U
+"RTN","ECXBCM",255,0)
+ S ECODE(1)=RIEN_U_ECXORN_U_ECXORT_U_ECXATM_U_CCIEN_U_CCDORD_U_CCDGVN
+"RTN","ECXBCM",256,0)
+ S ECODE(1)=ECODE(1)_U_CCUNIT_U_CCTYPE_U_ECXASTA_U_ECXAMED_U_ECXSCADT_U
+"RTN","ECXBCM",257,0)
+ S ECODE(2)=ECXSCATM_U_ECXOS_U_ECXIVID_U_ECXIR_U_ECXDIV_U_ECXVAP_U_ECVNDC_U_ECINV_U_ECVACL_U_ECXMPI_U_ECXDOM ;143 Changed DRUG IEN field from DRG to ECXVAP
+"RTN","ECXBCM",258,0)
+ S ECODE(2)=ECODE(2)_U_$E(ECXOBS,1)_U_ECXENC_U_ECXMTST_U_ECXELIG_U_ECXENRL_U_ECXCAT_U_ECXSTAT_U_ECXPRIOR_ECXSBGRP
+"RTN","ECXBCM",259,0)
+ S ECODE(2)=ECODE(2)_U_ECXUESTA_U_ECXETH_U_ECXRC1_U_ECXVET_U_ECXPOS_U_ECXPST_U_ECXPLOC
+"RTN","ECXBCM",260,0)
+ S ECODE(2)=ECODE(2)_U_ECXRST_U_ECXAST_U_ECXAOL_U_ECXPHI_U_ECXMST_U_ECXCNHU_U_ECXHNCI_U_ECXSHADI_U
+"RTN","ECXBCM",261,0)
+ S ECODE(3)=ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXNPRFI_U_ECXERI_U_ECXEST_U_ECXOEF_U_ECXOEFDT
+"RTN","ECXBCM",262,0)
+ S ECODE(3)=ECODE(3)_U_ECXPATCAT
+"RTN","ECXBCM",263,0)
+ I ECXLOGIC>2013 S ECODE(3)=ECODE(3)_U_ECXESC_U_ECXIVAC_U_ECXIVSC_U_ECXDRGC_U_ECXCLST_U_ECXECL ;144
+"RTN","ECXBCM",264,0)
+ ;
+"RTN","ECXBCM",265,0)
+ N DA,DIK,X S X=""
+"RTN","ECXBCM",266,0)
+ F X=0:1:3 S ^ECX(ECFILE,EC7,X)=ECODE(X)
+"RTN","ECXBCM",267,0)
+ S ECRN=ECRN+1
+"RTN","ECXBCM",268,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXBCM",269,0)
+ Q
+"RTN","ECXBCM",270,0)
+ ;
+"RTN","ECXBCM",271,0)
+SETUP ;Set required input for ECXTRAC.
+"RTN","ECXBCM",272,0)
+ S ECHEAD="BCM"
+"RTN","ECXBCM",273,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXBCM",274,0)
+ Q
+"RTN","ECXCPRO")
+0^36^B35725966^B32166082
+"RTN","ECXCPRO",1,0)
+ECXCPRO ;ALB/JAP - PRO Extract YTD Report ;3/4/13 15:45
+"RTN","ECXCPRO",2,0)
+ ;;3.0;DSS EXTRACTS;**21,24,33,84,137,144**;Dec 22, 1997;Build 9
+"RTN","ECXCPRO",3,0)
+ ;accumulates extract data by hcpcs code for all extracts in fiscal year date range
+"RTN","ECXCPRO",4,0)
+ ;if an extract has been purged, then totals will be falsely low
+"RTN","ECXCPRO",5,0)
+ ;if more than 1 extract exists for a particular month, then totals will be falsely high
+"RTN","ECXCPRO",6,0)
+ ;if site is multidivisional, then user can generate report for
+"RTN","ECXCPRO",7,0)
+ ; any one division - data stored under divisional station# (e.g., 326 or 326AB)
+"RTN","ECXCPRO",8,0)
+ ; or for entire facility - data stored under primary station# (e.g., 326) but includes data from all subdivisions
+"RTN","ECXCPRO",9,0)
+ ;if site is non-divisional, then data stored under facility station#
+"RTN","ECXCPRO",10,0)
+ ;
+"RTN","ECXCPRO",11,0)
+ ;
+"RTN","ECXCPRO",12,0)
+EN ;setup & queue
+"RTN","ECXCPRO",13,0)
+ N DIC,DA,DR,DIQ,DIR,DIRUT,DTOUT,DUOUT,DIV,LAST,OUT,CNT,ECXPORT ;144
+"RTN","ECXCPRO",14,0)
+ S ECXERR=0
+"RTN","ECXCPRO",15,0)
+ S ECXHEAD="PRO"
+"RTN","ECXCPRO",16,0)
+ W !!,"Setup for PRO Extract YTD HCPCS Report --",!
+"RTN","ECXCPRO",17,0)
+ ;determine primary division
+"RTN","ECXCPRO",18,0)
+ W !,"If you belong to more than one Primary Division, you must"
+"RTN","ECXCPRO",19,0)
+ W !,"select a Primary Division for the report.",!
+"RTN","ECXCPRO",20,0)
+ S ECXPRIME=$$PDIV^ECXPUTL
+"RTN","ECXCPRO",21,0)
+ I ECXPRIME=0 D ^ECXKILL Q
+"RTN","ECXCPRO",22,0)
+ S DA=ECXPRIME,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99" D EN^DIQ1
+"RTN","ECXCPRO",23,0)
+ S ECXPRIME=ECXPRIME_U_$G(ECXDIC(4,DA,99,"I"))_U_$G(ECXDIC(4,DA,.01,"I"))
+"RTN","ECXCPRO",24,0)
+ ;select 1 or more prosthetics divisions for report
+"RTN","ECXCPRO",25,0)
+ D PRO^ECXDVSN2(DUZ,ECXPRIME,.ECXDIV,.ECXALL,.ECXERR)
+"RTN","ECXCPRO",26,0)
+ I ECXERR D Q
+"RTN","ECXCPRO",27,0)
+ .D ^ECXKILL W !!,?5,"Try again later... exiting.",!
+"RTN","ECXCPRO",28,0)
+ ;determine fiscal year of report
+"RTN","ECXCPRO",29,0)
+ S DIR(0)="SMBA^C:CURRENT;P:PREVIOUS",DIR("A")="Select C(urrent) or P(revious) Fiscal Year: ",DIR("B")="CURRENT"
+"RTN","ECXCPRO",30,0)
+ W ! K X,Y D ^DIR K DIR
+"RTN","ECXCPRO",31,0)
+ I $D(DUOUT)!($D(DTOUT)) D Q
+"RTN","ECXCPRO",32,0)
+ .D ^ECXKILL W !!,?5,"Try again later... exiting.",!
+"RTN","ECXCPRO",33,0)
+ I Y="C" D
+"RTN","ECXCPRO",34,0)
+ .S X=$$CYFY^ECXUTL1(DT),ECXARRAY("START")=$P(X,U,3),ECXARRAY("END")=$P(X,U,4)
+"RTN","ECXCPRO",35,0)
+ I Y="P" D
+"RTN","ECXCPRO",36,0)
+ .S YR=$E(DT,1,3),MON=$E(DT,4,5) S:+MON<10 YR=YR-1 S X1=YR_"0930"
+"RTN","ECXCPRO",37,0)
+ .S X=$$CYFY^ECXUTL1(X1),ECXARRAY("START")=$P(X,U,3),ECXARRAY("END")=$P(X,U,4)
+"RTN","ECXCPRO",38,0)
+ .K C,MON,YR,X1
+"RTN","ECXCPRO",39,0)
+ ;setup variables for taskmanager
+"RTN","ECXCPRO",40,0)
+ S ECXPGM="PROCESS^ECXCPRO",ECXDESC="PRO Extract YTD Lab Report"
+"RTN","ECXCPRO",41,0)
+ S ECXSAVE("ECXHEAD")="",ECXSAVE("ECXDIV(")="",ECXSAVE("ECXARRAY(")="",ECXSAVE("ECXPRIME")="",ECXSAVE("ECXALL")=""
+"RTN","ECXCPRO",42,0)
+ ;determine output device and queue if requested
+"RTN","ECXCPRO",43,0)
+ S ECXPORT=$$EXPORT^ECXUTL1 Q:ECXPORT=-1 I ECXPORT D Q ;144
+"RTN","ECXCPRO",44,0)
+ .K ^TMP($J,"ECXPORT") ;144
+"RTN","ECXCPRO",45,0)
+ .S ^TMP($J,"ECXPORT",0)="REPORT TYPE^PSAS HCPCS^QTY COM^TOTAL COM^AVE COM^QTY VA^TOTAL VA^AVE VA^QTY LAB^TOTAL LAB^AVE LAB^ALL AVE" ;144
+"RTN","ECXCPRO",46,0)
+ .S CNT=1 ;144
+"RTN","ECXCPRO",47,0)
+ .D PROCESS ;144
+"RTN","ECXCPRO",48,0)
+ .D EXPDISP^ECXUTL1 ;144
+"RTN","ECXCPRO",49,0)
+ .D ^ECXKILL ;144
+"RTN","ECXCPRO",50,0)
+ W !!,"Please note: The PRO Extract YTD HCPCS Report requires 132 columns."
+"RTN","ECXCPRO",51,0)
+ W !," Select an appropriate device for output."
+"RTN","ECXCPRO",52,0)
+ W ! D DEVICE^ECXUTLA(ECXPGM,ECXDESC,.ECXSAVE)
+"RTN","ECXCPRO",53,0)
+ I ECXSAVE("POP")=1 W ! D ^ECXKILL Q
+"RTN","ECXCPRO",54,0)
+ I ECXSAVE("ZTSK")=0 D
+"RTN","ECXCPRO",55,0)
+ .K ECXSAVE,ECXPGM,ECXDESC
+"RTN","ECXCPRO",56,0)
+ .D PROCESS
+"RTN","ECXCPRO",57,0)
+ ;clean-up and close
+"RTN","ECXCPRO",58,0)
+ I IO'=IO(0) D ^%ZISC
+"RTN","ECXCPRO",59,0)
+ D HOME^%ZIS
+"RTN","ECXCPRO",60,0)
+ Q
+"RTN","ECXCPRO",61,0)
+ ;
+"RTN","ECXCPRO",62,0)
+PROCESS ;begin processing
+"RTN","ECXCPRO",63,0)
+ N DIVISION,E,EXTRACT,REC,NODE0,NODE1,LASTDAY
+"RTN","ECXCPRO",64,0)
+ K ^TMP($J,"ECXP") S LASTDAY=""
+"RTN","ECXCPRO",65,0)
+ ;determine which extracts contain data for report
+"RTN","ECXCPRO",66,0)
+ S (EXTRACT,E)=0
+"RTN","ECXCPRO",67,0)
+ F S E=$O(^ECX(727,"E",ECXHEAD,E)) Q:'E D
+"RTN","ECXCPRO",68,0)
+ .Q:'$D(^ECX(727,E,0))
+"RTN","ECXCPRO",69,0)
+ .Q:$P($G(^ECX(727,E,0)),U,4)<ECXARRAY("START")
+"RTN","ECXCPRO",70,0)
+ .Q:$P($G(^ECX(727,E,0)),U,4)>ECXARRAY("END")
+"RTN","ECXCPRO",71,0)
+ .Q:$G(^ECX(727,E,"DIV"))'=+ECXPRIME
+"RTN","ECXCPRO",72,0)
+ .S EXTRACT(E)=^ECX(727,E,0)
+"RTN","ECXCPRO",73,0)
+ .I $P(EXTRACT(E),U,5)>LASTDAY S LASTDAY=$P(EXTRACT(E),U,5)
+"RTN","ECXCPRO",74,0)
+ ;setup array of station numbers included in report
+"RTN","ECXCPRO",75,0)
+ F DIV=0:0 S DIV=$O(ECXDIV(DIV)) Q:'DIV S ECXSTAT=$P(ECXDIV(DIV),U,2),DIVISION(ECXSTAT)=ECXDIV(DIV)
+"RTN","ECXCPRO",76,0)
+ ;get the extract data
+"RTN","ECXCPRO",77,0)
+ S E=0 F S E=$O(EXTRACT(E)) Q:'E S REC=0 I $D(^ECX(727.826,"AC",E)) F S REC=$O(^ECX(727.826,"AC",E,REC)) Q:'REC D
+"RTN","ECXCPRO",78,0)
+ .S NODE0=$G(^ECX(727.826,REC,0)),NODE1=$G(^ECX(727.826,REC,1)) Q:NODE0=""
+"RTN","ECXCPRO",79,0)
+ .S (ECXCTAMT,ECXLLC,ECXLMC)=0
+"RTN","ECXCPRO",80,0)
+ .S ECXFELOC=$P(NODE0,U,10),ECXFEKEY=$P(NODE0,U,11)
+"RTN","ECXCPRO",81,0)
+ .S ECXHCPC=$P(NODE0,U,33),ECXTYPE=$E(ECXFEKEY,6),ECXSRCE=$E(ECXFEKEY,7)
+"RTN","ECXCPRO",82,0)
+ .S ECXQTY=$P(NODE0,U,12),ECXCTAMT=$P(NODE0,U,25),ECXGRPR=$P(NODE1,U,4)
+"RTN","ECXCPRO",83,0)
+ .I ECXFELOC["NONL" S ECXSTAT=$P(ECXFELOC,"NONL",1),ECXFORM="NONL"
+"RTN","ECXCPRO",84,0)
+ .I ECXFELOC["HO2" S ECXSTAT=$P(ECXFELOC,"HO2",1),ECXFORM="NONL" ;137
+"RTN","ECXCPRO",85,0)
+ .;if this station is lab requesting station, then count lab transaction
+"RTN","ECXCPRO",86,0)
+ .I ECXFELOC["ORD" D
+"RTN","ECXCPRO",87,0)
+ ..S ECXSTAT=$P(ECXFELOC,"ORD",1),ECXFORM="ORD"
+"RTN","ECXCPRO",88,0)
+ ..S ECXLLC=$P(NODE0,U,26),ECXLMC=$P(NODE0,U,27)
+"RTN","ECXCPRO",89,0)
+ .;ignore record for receiving station feeder location
+"RTN","ECXCPRO",90,0)
+ .Q:ECXFELOC["LAB"
+"RTN","ECXCPRO",91,0)
+ .;ignore record if division not included in this report
+"RTN","ECXCPRO",92,0)
+ .Q:ECXSTAT="" Q:'$D(DIVISION(ECXSTAT))
+"RTN","ECXCPRO",93,0)
+ .;if combining data from all subdivisions, then set in ^tmp using primary station#
+"RTN","ECXCPRO",94,0)
+ .I ECXALL=1 S ECXSTAT=$P(ECXPRIME,U,2)
+"RTN","ECXCPRO",95,0)
+ .;be sure there's no padding on cost variables
+"RTN","ECXCPRO",96,0)
+ .S ECXCTAMT=+$TR(ECXCTAMT," ",0),ECXLLC=+$TR(ECXLLC," ",0),ECXLMC=+$TR(ECXLMC," ",0)
+"RTN","ECXCPRO",97,0)
+ .;tmp global holds - com qty^com cost^va nonlab qty^va nonlab cost^lab qty^lab labor cost^lab matrl cost
+"RTN","ECXCPRO",98,0)
+ .I '$D(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC)) S ^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC)="0^0^0^0^0^0^0"
+"RTN","ECXCPRO",99,0)
+ .I ECXSRCE="C",ECXFORM="NONL" D
+"RTN","ECXCPRO",100,0)
+ ..S $P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,1)=$P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,1)+ECXQTY
+"RTN","ECXCPRO",101,0)
+ ..S $P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,2)=$P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,2)+ECXCTAMT
+"RTN","ECXCPRO",102,0)
+ .I ECXSRCE="V",ECXFORM="NONL" D
+"RTN","ECXCPRO",103,0)
+ ..S $P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,3)=$P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,3)+ECXQTY
+"RTN","ECXCPRO",104,0)
+ ..S $P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,4)=$P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,4)+ECXCTAMT
+"RTN","ECXCPRO",105,0)
+ .I ECXFORM="ORD" D
+"RTN","ECXCPRO",106,0)
+ ..S $P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,5)=$P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,5)+ECXQTY
+"RTN","ECXCPRO",107,0)
+ ..S $P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,6)=$P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,6)+ECXLLC
+"RTN","ECXCPRO",108,0)
+ ..S $P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,7)=$P(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC),U,7)+ECXLMC
+"RTN","ECXCPRO",109,0)
+ ;setup hcpcs descriptions
+"RTN","ECXCPRO",110,0)
+ D HCPCS
+"RTN","ECXCPRO",111,0)
+ ;print report
+"RTN","ECXCPRO",112,0)
+ D PRINT^ECXCPRO1
+"RTN","ECXCPRO",113,0)
+ ;cleanup
+"RTN","ECXCPRO",114,0)
+ I '$G(ECXPORT) D AUDIT^ECXKILL ;144
+"RTN","ECXCPRO",115,0)
+ Q
+"RTN","ECXCPRO",116,0)
+ ;
+"RTN","ECXCPRO",117,0)
+HCPCS ;setup hcpcs cross-reference
+"RTN","ECXCPRO",118,0)
+ N H,HCPCS,CODE,CPTNM,DESC
+"RTN","ECXCPRO",119,0)
+ S H=0
+"RTN","ECXCPRO",120,0)
+ F S H=$O(^RMPR(661.1,H)) Q:+H<1 D
+"RTN","ECXCPRO",121,0)
+ .;don't skip inactive hcpcs in case doing previous fy
+"RTN","ECXCPRO",122,0)
+ .S HCPCS="",HCPCS=$P(^RMPR(661.1,H,0),U,1)
+"RTN","ECXCPRO",123,0)
+ .S CODE=$$CPT^ICPTCOD(HCPCS)
+"RTN","ECXCPRO",124,0)
+ .I +CODE>0 S CPTNM=$P(CODE,U,2),DESC=$E($P(CODE,U,3),1,26)
+"RTN","ECXCPRO",125,0)
+ .Q:CPTNM=""
+"RTN","ECXCPRO",126,0)
+ .S ^TMP($J,"HCPCS",CPTNM)=DESC
+"RTN","ECXCPRO",127,0)
+ Q
+"RTN","ECXCPRO1")
+0^37^B17918535^B13012758
+"RTN","ECXCPRO1",1,0)
+ECXCPRO1 ;ALB/JAP - PRO Extract YTD Report (cont) ;3/4/13 07:44
+"RTN","ECXCPRO1",2,0)
+ ;;3.0;DSS EXTRACTS;**21,84,132,144**;Dec 22, 1997;Build 9
+"RTN","ECXCPRO1",3,0)
+ ;
+"RTN","ECXCPRO1",4,0)
+PRINT ;print report
+"RTN","ECXCPRO1",5,0)
+ N PG,LN,QFLG,NODE,DESC,AVE,JJ,SS,TOTAL,TOT,TQTY
+"RTN","ECXCPRO1",6,0)
+ U IO
+"RTN","ECXCPRO1",7,0)
+ S QFLG=0,$P(LN,"-",132)=""
+"RTN","ECXCPRO1",8,0)
+ S Y=ECXARRAY("START") D DD^%DT S ECXSTART=Y
+"RTN","ECXCPRO1",9,0)
+ S Y=$S(LASTDAY:LASTDAY,ECXARRAY("END")>DT:DT,1:ECXARRAY("END")) D DD^%DT S ECXEND=Y
+"RTN","ECXCPRO1",10,0)
+ D NOW^%DTC S Y=$E(%,1,12) D DD^%DT S ECXRUN=Y
+"RTN","ECXCPRO1",11,0)
+ ;if ecxall=0, then only one subdivision of multidivision facility
+"RTN","ECXCPRO1",12,0)
+ ;if ecxall=1, then either entire facility (i.e., non-divisional), or all subdivisions combined under primary station#
+"RTN","ECXCPRO1",13,0)
+ ;but it's possible that no extract data was found
+"RTN","ECXCPRO1",14,0)
+ S ECXSTAT="",ECXSTAT=$O(^TMP($J,"ECXP",ECXSTAT)) I ECXSTAT="" D Q
+"RTN","ECXCPRO1",15,0)
+ .I $G(ECXPORT) Q ;144 Don't display anything if exporting
+"RTN","ECXCPRO1",16,0)
+ .I ECXALL=0 S ECXSTAT=$O(DIVISION(""))
+"RTN","ECXCPRO1",17,0)
+ .F ECXTYPE="N","X","R" D Q:QFLG
+"RTN","ECXCPRO1",18,0)
+ ..S PG=0 D HEADER
+"RTN","ECXCPRO1",19,0)
+ ..W !!,?36,"No extract data available."
+"RTN","ECXCPRO1",20,0)
+ ..I $E(IOST)="C" D Q:QFLG
+"RTN","ECXCPRO1",21,0)
+ ...S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXCPRO1",22,0)
+ ...S DIR(0)="E" D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXCPRO1",23,0)
+ F ECXTYPE="N","X","R" D Q:QFLG
+"RTN","ECXCPRO1",24,0)
+ .S PG=0 I '$G(ECXPORT) D HEADER ;144 Don't print header if exporting
+"RTN","ECXCPRO1",25,0)
+ .S ECXHCPC=""
+"RTN","ECXCPRO1",26,0)
+ .I '$D(^TMP($J,"ECXP",ECXSTAT,ECXTYPE)) D Q
+"RTN","ECXCPRO1",27,0)
+ ..I $G(ECXPORT) Q ;144 Don't display anything if exporting
+"RTN","ECXCPRO1",28,0)
+ ..W !!,?36,"No extract data available."
+"RTN","ECXCPRO1",29,0)
+ ..I $E(IOST)="C" D Q:QFLG
+"RTN","ECXCPRO1",30,0)
+ ...S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXCPRO1",31,0)
+ ...S DIR(0)="E" D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXCPRO1",32,0)
+ .F S ECXHCPC=$O(^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC)) Q:ECXHCPC="" D Q:QFLG
+"RTN","ECXCPRO1",33,0)
+ ..S DESC=$G(^TMP($J,"HCPCS",ECXHCPC)) S:DESC="" DESC="(Unknown)" S DESC=ECXHCPC_" "_DESC
+"RTN","ECXCPRO1",34,0)
+ ..S NODE=^TMP($J,"ECXP",ECXSTAT,ECXTYPE,ECXHCPC)
+"RTN","ECXCPRO1",35,0)
+ ..;node holds - com qty^com cost^va nonlab qty^va nonlab cost^lab qty^lab labor cost^lab matrl cost
+"RTN","ECXCPRO1",36,0)
+ ..F I=1:1:7 S X(I)=+$P(NODE,U,I)
+"RTN","ECXCPRO1",37,0)
+ ..S AVE("C")=0,AVE("V")=0,AVE("L")=0,AVE("ALL")=0,TOT("L")=0,TOTAL=0,TQTY=0
+"RTN","ECXCPRO1",38,0)
+ ..S:X(1)>0 AVE("C")=X(2)/X(1) S:X(3)>0 AVE("V")=X(4)/X(3) S TOT("L")=X(6)+X(7) S:X(5)>0 AVE("L")=TOT("L")/X(5)
+"RTN","ECXCPRO1",39,0)
+ ..S TQTY=X(1)+X(3)+X(5),TOTAL=X(2)+X(4)+TOT("L")
+"RTN","ECXCPRO1",40,0)
+ ..S:TQTY>0 AVE("ALL")=TOTAL/TQTY
+"RTN","ECXCPRO1",41,0)
+ ..I '$G(ECXPORT) D:($Y+3>IOSL) HEADER Q:QFLG ;144 Don't display anything if exporting
+"RTN","ECXCPRO1",42,0)
+ ..I $G(ECXPORT) S ^TMP($J,"ECXPORT",CNT)=$S(ECXTYPE="N":"NEW",ECXTYPE="R":"RENTAL",1:"REPAIR") D Q ;144
+"RTN","ECXCPRO1",43,0)
+ ...S ^TMP($J,"ECXPORT",CNT)=^TMP($J,"ECXPORT",CNT)_U_DESC_U_X(1)_U_X(2)_U_$FN(AVE("C"),"",2)_U_X(3)_U_X(4)_U_$FN(AVE("V"),"",2)_U_X(5)_U_TOT("L")_U_$FN(AVE("L"),"",2)_U_$FN(AVE("ALL"),"",2) ;144
+"RTN","ECXCPRO1",44,0)
+ ...S CNT=CNT+1 ;144
+"RTN","ECXCPRO1",45,0)
+ ..W !,DESC,?33,$J(X(1),8,0),?43,$J(X(2),8,0),?53,$J(AVE("C"),8,2),?63,$J(X(3),8,0),?73,$J(X(4),8,0),?83,$J(AVE("V"),8,2),?93,$J(X(5),8,0),?103,$J(TOT("L"),8,0),?113,$J(AVE("L"),8,2),?123,$J(AVE("ALL"),8,2)
+"RTN","ECXCPRO1",46,0)
+ .Q:$G(ECXPORT) ;144 Don't continue if exporting
+"RTN","ECXCPRO1",47,0)
+ .I 'QFLG,$E(IOST)="C" D
+"RTN","ECXCPRO1",48,0)
+ ..S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXCPRO1",49,0)
+ ..S DIR(0)="E" D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXCPRO1",50,0)
+ I '$G(ECXPORT) W @IOF ;144 Don't write anything if exporting
+"RTN","ECXCPRO1",51,0)
+ Q
+"RTN","ECXCPRO1",52,0)
+ ;
+"RTN","ECXCPRO1",53,0)
+HEADER ;header & page control
+"RTN","ECXCPRO1",54,0)
+ I $E(IOST)="C" D
+"RTN","ECXCPRO1",55,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXCPRO1",56,0)
+ .I PG>0 S DIR(0)="E" D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXCPRO1",57,0)
+ Q:QFLG
+"RTN","ECXCPRO1",58,0)
+ W:$Y!($E(IOST)="C") @IOF S PG=PG+1
+"RTN","ECXCPRO1",59,0)
+ W "Prosthetics (PRO) Extract YTD HCPCS Report",?122,"Page "_PG
+"RTN","ECXCPRO1",60,0)
+ W !,"FY Date Range: "_ECXSTART_" to "_ECXEND
+"RTN","ECXCPRO1",61,0)
+ I ECXALL=0 W !,"Division: "_$P(DIVISION(ECXSTAT),U,3)_" ("_$P(DIVISION(ECXSTAT),U,2)_")"
+"RTN","ECXCPRO1",62,0)
+ I ECXALL=1 W !,"Facility: "_$P(ECXPRIME,U,3)_" ("_$P(ECXPRIME,U,2)_")"
+"RTN","ECXCPRO1",63,0)
+ W !,"Run Date/Time: "_ECXRUN
+"RTN","ECXCPRO1",64,0)
+ W:ECXTYPE="N" !!,"REPORT OF NEW PROSTHETICS ACTIVITIES (Initial, Replacement, or Spare)"
+"RTN","ECXCPRO1",65,0)
+ W:ECXTYPE="R" !!,"REPORT OF RENTAL PROSTHETICS ACTIVITIES"
+"RTN","ECXCPRO1",66,0)
+ W:ECXTYPE="X" !!,"REPORT OF REPAIR PROSTHETICS ACTIVITIES"
+"RTN","ECXCPRO1",67,0)
+ W !,?36,"Qty.",?44,"Total $",?55,"Ave. $",?67,"Qty.",?74,"Total $",?85,"Ave. $",?97,"Qty.",?104,"Total $",?114,"Ave. $",?125,"Ave. $"
+"RTN","ECXCPRO1",68,0)
+ W !,"PSAS HCPCS",?35,"-Comm-",?44,"-Comm-",?55,"-Comm-",?67,"-VA-",?75,"-VA-",?85,"-VA-",?96,"-Lab-",?105,"-Lab-",?114,"-Lab-",?125,"-All-"
+"RTN","ECXCPRO1",69,0)
+ W !,LN,!
+"RTN","ECXCPRO1",70,0)
+ Q
+"RTN","ECXDRUG1")
+0^40^B44065149^B33255159
+"RTN","ECXDRUG1",1,0)
+ECXDRUG1 ;ALB/TMD-Pharmacy Extracts Incomplete Feeder Key Report ;5/9/13 15:49
+"RTN","ECXDRUG1",2,0)
+ ;;3.0;DSS EXTRACTS;**40,68,144**;Dec 22, 1997;Build 9
+"RTN","ECXDRUG1",3,0)
+ ;
+"RTN","ECXDRUG1",4,0)
+EN ; entry point
+"RTN","ECXDRUG1",5,0)
+ N X,Y,DATE,ECRUN,ECXTL,ECSTART,ECEND,ECXDESC,ECXSAVE,ECXOPT,ECSD1,ECED,ECXERR,QFLG,ECXPORT,CNT ;144
+"RTN","ECXDRUG1",6,0)
+ S QFLG=0
+"RTN","ECXDRUG1",7,0)
+ ; get today's date
+"RTN","ECXDRUG1",8,0)
+ D NOW^%DTC S DATE=X,Y=$E(%,1,12) D DD^%DT S ECRUN=$P(Y,"@") K %DT
+"RTN","ECXDRUG1",9,0)
+ D BEGIN Q:QFLG
+"RTN","ECXDRUG1",10,0)
+ D SELECT Q:QFLG
+"RTN","ECXDRUG1",11,0)
+ S ECXDESC=ECXTL_" Extract Incomplete Feeder Key Report"
+"RTN","ECXDRUG1",12,0)
+ S ECXSAVE("EC*")=""
+"RTN","ECXDRUG1",13,0)
+ S ECXPORT=$$EXPORT^ECXUTL1 Q:ECXPORT=-1 I ECXPORT D Q ;144
+"RTN","ECXDRUG1",14,0)
+ .K ^TMP($J) ;144
+"RTN","ECXDRUG1",15,0)
+ .S ^TMP($J,"ECXPORT",0)="TYPE^DRUG ENTRY^GENERIC NAME^FEEDER KEY^NUMBER OF RECORDS^TOTAL QTY^UNIT PRICE^TOTAL COST^ERROR" ;144
+"RTN","ECXDRUG1",16,0)
+ .S CNT=1 ;144
+"RTN","ECXDRUG1",17,0)
+ .D PROCESS ;144
+"RTN","ECXDRUG1",18,0)
+ .D EXPDISP^ECXUTL1 ;144
+"RTN","ECXDRUG1",19,0)
+ .D ^ECXKILL ;144
+"RTN","ECXDRUG1",20,0)
+ W !!,"This report requires 132 column format."
+"RTN","ECXDRUG1",21,0)
+ D EN^XUTMDEVQ("PROCESS^ECXDRUG1",ECXDESC,.ECXSAVE)
+"RTN","ECXDRUG1",22,0)
+ I POP W !!,"No device selected...exiting.",! Q
+"RTN","ECXDRUG1",23,0)
+ I IO'=IO(0) D ^%ZISC
+"RTN","ECXDRUG1",24,0)
+ D HOME^%ZIS
+"RTN","ECXDRUG1",25,0)
+ D AUDIT^ECXKILL
+"RTN","ECXDRUG1",26,0)
+ Q
+"RTN","ECXDRUG1",27,0)
+ ;
+"RTN","ECXDRUG1",28,0)
+BEGIN ; display report description
+"RTN","ECXDRUG1",29,0)
+ W @IOF,!,"This report prints a listing of Drug File (#50) entries that will generate",!,"incomplete Feeder keys in the three Pharmacy Extracts. This listing",!,"can be used to identify and fix Drug File entries. "
+"RTN","ECXDRUG1",30,0)
+ W "The number of extract",!,"records, total, quantity, unit price and total cost for each drug are",!,"included to aid in determining the impact of the incomplete Feeder Keys."
+"RTN","ECXDRUG1",31,0)
+ W !!,"This report is broken into 3 sections as follows:"
+"RTN","ECXDRUG1",32,0)
+ W !!,"Section 1: No PSNDF VA Product Name Entry (first 5 digits are zero)."
+"RTN","ECXDRUG1",33,0)
+ W !!,"Section 2: No National Drug Code (NDC) (last 12 digits are zero) or the NDC",!,?12,"is prefixed with an 'S', indicating possible supply item number",!,?12,"or UPC."
+"RTN","ECXDRUG1",34,0)
+ W !!,"Section 3: No PSNDF VA Product Name Entry, and"
+"RTN","ECXDRUG1",35,0)
+ W !,?14,"a. no NDC (all 17 digits are zero), or"
+"RTN","ECXDRUG1",36,0)
+ W !,?14,"b. The NDC is prefixed with an 'S', indicating possible supply",!,?17,"item number or UPC."
+"RTN","ECXDRUG1",37,0)
+ W !,"Section 3: No PSNDF VA Product Name Entry or NDC."
+"RTN","ECXDRUG1",38,0)
+ W !!,"Run times for this report will vary depending upon the size of the extract and",!,"could take as long as 30 minutes or more to complete. This report has no effect",!,"on the actual extracts and can be run as needed."
+"RTN","ECXDRUG1",39,0)
+ S DIR(0)="E" W ! D ^DIR K DIR I 'Y S QFLG=1 Q
+"RTN","ECXDRUG1",40,0)
+ W:$Y!($E(IOST)="C") @IOF,!!
+"RTN","ECXDRUG1",41,0)
+ Q
+"RTN","ECXDRUG1",42,0)
+ ;
+"RTN","ECXDRUG1",43,0)
+SELECT ; user inputs for report option and date range
+"RTN","ECXDRUG1",44,0)
+ N DONE,OUT
+"RTN","ECXDRUG1",45,0)
+ ; allow user to select report option (PRE,IVP or UDP)
+"RTN","ECXDRUG1",46,0)
+ W "Choose the report you would like to run."
+"RTN","ECXDRUG1",47,0)
+ S DIR(0)="S^1:PRE;2:IVP;3:UDP",DIR("A")="Selection",DIR("B")=1 D ^DIR K DIR S ECXOPT=Y I X["^" S QFLG=1 Q
+"RTN","ECXDRUG1",48,0)
+ S ECXTL=$S(ECXOPT=1:"Prescription",ECXOPT=2:"IV Detail",ECXOPT=3:"Unit Dose Local",1:"")
+"RTN","ECXDRUG1",49,0)
+ ; allow user to select date range for report records
+"RTN","ECXDRUG1",50,0)
+ W !!,"Enter the date range for which you would like to scan the ",ECXTL,!,"Extract records."
+"RTN","ECXDRUG1",51,0)
+ S DONE=0 F S (ECED,ECSD)="" D Q:QFLG!DONE
+"RTN","ECXDRUG1",52,0)
+ .K %DT S %DT="AEX",%DT("A")="Starting with Date: ",%DT(0)=-DATE D ^%DT
+"RTN","ECXDRUG1",53,0)
+ .I Y<0 S QFLG=1 Q
+"RTN","ECXDRUG1",54,0)
+ .S ECSD=Y,ECSD1=ECSD-.1
+"RTN","ECXDRUG1",55,0)
+ .D DD^%DT S ECSTART=Y
+"RTN","ECXDRUG1",56,0)
+ .K %DT S %DT="AEX",%DT("A")="Ending with Date: ",%DT(0)=-DATE D ^%DT
+"RTN","ECXDRUG1",57,0)
+ .I Y<0 S QFLG=1 Q
+"RTN","ECXDRUG1",58,0)
+ .I Y<ECSD D Q
+"RTN","ECXDRUG1",59,0)
+ ..W !!,"The ending date cannot be earlier than the starting date."
+"RTN","ECXDRUG1",60,0)
+ ..W !,"Please try again.",!!
+"RTN","ECXDRUG1",61,0)
+ .I $E(Y,1,5)'=$E(ECSD,1,5) D Q
+"RTN","ECXDRUG1",62,0)
+ ..W !!,"Beginning and ending dates must be in the same month and year."
+"RTN","ECXDRUG1",63,0)
+ ..W !,"Please try again.",!!
+"RTN","ECXDRUG1",64,0)
+ .S ECED=Y
+"RTN","ECXDRUG1",65,0)
+ .D DD^%DT S ECEND=Y
+"RTN","ECXDRUG1",66,0)
+ .S DONE=1
+"RTN","ECXDRUG1",67,0)
+ Q
+"RTN","ECXDRUG1",68,0)
+ ;
+"RTN","ECXDRUG1",69,0)
+PROCESS ; entry point for queued report
+"RTN","ECXDRUG1",70,0)
+ S ZTREQ="@"
+"RTN","ECXDRUG1",71,0)
+ S ECXERR=0 D EN^ECXDRUG2 Q:ECXERR
+"RTN","ECXDRUG1",72,0)
+ S QFLG=0 D PRINT
+"RTN","ECXDRUG1",73,0)
+ Q
+"RTN","ECXDRUG1",74,0)
+ ;
+"RTN","ECXDRUG1",75,0)
+PRINT ; process temp file and print report
+"RTN","ECXDRUG1",76,0)
+ N PG,GTOT,LN,S,COUNT,SUBTOT,DR,ECTYPE,REC,STATS,ECCOUNT,ECQTY,ECPRC,ECCOST,MESS ;144
+"RTN","ECXDRUG1",77,0)
+ U IO
+"RTN","ECXDRUG1",78,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 K ZTREQ Q
+"RTN","ECXDRUG1",79,0)
+ S (PG,QFLG,GTOT)=0,$P(LN,"-",132)=""
+"RTN","ECXDRUG1",80,0)
+ F S=1:1:3 Q:QFLG D:'$G(ECXPORT) HEADER Q:QFLG D ;144
+"RTN","ECXDRUG1",81,0)
+ .S (COUNT,SUBTOT)=0,DR=0 F S DR=$O(^TMP($J,DR)) Q:'+DR!(QFLG) S ECTYPE=$P(^(DR),U,4) I ECTYPE=S D ;144
+"RTN","ECXDRUG1",82,0)
+ ..S REC=^TMP($J,DR),STATS=^(DR,0)
+"RTN","ECXDRUG1",83,0)
+ ..S COUNT=COUNT+1
+"RTN","ECXDRUG1",84,0)
+ ..S ECCOUNT=$FNUMBER($P(STATS,U),",")
+"RTN","ECXDRUG1",85,0)
+ ..S ECQTY=$FNUMBER($P(STATS,U,2),",")
+"RTN","ECXDRUG1",86,0)
+ ..S ECPRC="$"_$FNUMBER($P(REC,U,3),",",4)
+"RTN","ECXDRUG1",87,0)
+ ..S ECCOST="$"_$FNUMBER($P(STATS,U,3),",",2)
+"RTN","ECXDRUG1",88,0)
+ ..S SUBTOT=SUBTOT+$P(STATS,U,3)
+"RTN","ECXDRUG1",89,0)
+ ..I $G(ECXPORT) D Q ;144
+"RTN","ECXDRUG1",90,0)
+ ...S ^TMP($J,"ECXPORT",CNT)=ECXTL_U_DR_U_$P(REC,U)_U_$P(REC,U,2)_U_$P(STATS,U)_U_$P(STATS,U,2)_U_$FN($P(REC,U,3),"",4)_U_$FN($P(STATS,U,3),"",2) ;144
+"RTN","ECXDRUG1",91,0)
+ ...S MESS=$S(S=1:"No PSNDF VA Product Name Entry (Five leading zeros)",S=2:"No National Drug Code (NDC) (Last 12 zeros, 'N/A', or 'S' prefix)",1:"No PSNDF VA Product Name Entry or National Drug Code (NDC)") ;144
+"RTN","ECXDRUG1",92,0)
+ ...S ^TMP($J,"ECXPORT",CNT)=^TMP($J,"ECXPORT",CNT)_U_MESS ;144
+"RTN","ECXDRUG1",93,0)
+ ...S CNT=CNT+1 ;144
+"RTN","ECXDRUG1",94,0)
+ ..W !,$$RJ^XLFSTR(DR,5),?8,$P(REC,U),?60,$P(REC,U,2),?79,$$RJ^XLFSTR(ECCOUNT,5),?87,$$RJ^XLFSTR(ECQTY,10),?99,$$RJ^XLFSTR(ECPRC,16),?117,$$RJ^XLFSTR(ECCOST,13)
+"RTN","ECXDRUG1",95,0)
+ ..I $Y+2>IOSL D HEADER
+"RTN","ECXDRUG1",96,0)
+ .Q:QFLG!($G(ECXPORT)) ;144 Stop processing if exporting
+"RTN","ECXDRUG1",97,0)
+ .I COUNT=0 W !!,?8,"No drugs to report for this section"
+"RTN","ECXDRUG1",98,0)
+ .; print sub total
+"RTN","ECXDRUG1",99,0)
+ .I COUNT D
+"RTN","ECXDRUG1",100,0)
+ ..I $Y+3>IOSL D HEADER Q:QFLG
+"RTN","ECXDRUG1",101,0)
+ ..S GTOT=GTOT+SUBTOT
+"RTN","ECXDRUG1",102,0)
+ ..S SUBTOT="$"_$FNUMBER(SUBTOT,",",2)
+"RTN","ECXDRUG1",103,0)
+ ..W !!,?110,"TOTAL",?116,$$RJ^XLFSTR(SUBTOT,14)
+"RTN","ECXDRUG1",104,0)
+ ; print grand total
+"RTN","ECXDRUG1",105,0)
+ I $G(ECXPORT) Q ;144 Nothing more to print if exporting
+"RTN","ECXDRUG1",106,0)
+ I GTOT,'QFLG D
+"RTN","ECXDRUG1",107,0)
+ .I $Y+3>IOSL D HEADER Q:QFLG
+"RTN","ECXDRUG1",108,0)
+ .S GTOT="$"_$FNUMBER(GTOT,",",2)
+"RTN","ECXDRUG1",109,0)
+ .W !!,?104,"GRAND TOTAL",?116,$$RJ^XLFSTR(GTOT,14)
+"RTN","ECXDRUG1",110,0)
+ ;
+"RTN","ECXDRUG1",111,0)
+CLOSE ;
+"RTN","ECXDRUG1",112,0)
+ I $E(IOST)="C",'QFLG D
+"RTN","ECXDRUG1",113,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXDRUG1",114,0)
+ .S DIR(0)="E" W ! D ^DIR K DIR
+"RTN","ECXDRUG1",115,0)
+ Q
+"RTN","ECXDRUG1",116,0)
+ ;
+"RTN","ECXDRUG1",117,0)
+HEADER ; header and page control
+"RTN","ECXDRUG1",118,0)
+ N SS,JJ
+"RTN","ECXDRUG1",119,0)
+ I $E(IOST)="C" D
+"RTN","ECXDRUG1",120,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXDRUG1",121,0)
+ .I PG>0 S DIR(0)="E" W ! D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXDRUG1",122,0)
+ Q:QFLG
+"RTN","ECXDRUG1",123,0)
+ W:$Y!($E(IOST)="C") @IOF S PG=PG+1
+"RTN","ECXDRUG1",124,0)
+ W !,ECXTL_" Extract Incomplete Feeder Key Report",?124,"Page: "_PG
+"RTN","ECXDRUG1",125,0)
+ W !,"Start Date: ",ECSTART
+"RTN","ECXDRUG1",126,0)
+ W !,"End Date: ",ECEND,?97,"Report Run Date/Time: "_ECRUN
+"RTN","ECXDRUG1",127,0)
+ W !!,"Drug",?8,"Generic Name",?60,"Feeder Key",?79,"# of",?89,"Total",?107,"Unit",?122,"Total"
+"RTN","ECXDRUG1",128,0)
+ W !,"Entry",?79,"Records",?89,"Quantity",?107,"Price",?122,"Cost"
+"RTN","ECXDRUG1",129,0)
+ W !,LN
+"RTN","ECXDRUG1",130,0)
+ I S=1 W !!,"No PSNDF VA Product Name Entry (Five leading zeros)",!
+"RTN","ECXDRUG1",131,0)
+ I S=2 W !!,"No National Drug Code (NDC) (Last 12 zeros, 'N/A', or 'S' prefix)",!
+"RTN","ECXDRUG1",132,0)
+ I S=3 W !!,"No PSNDF VA Product Name Entry or National Drug Code (NDC)",!
+"RTN","ECXDRUG1",133,0)
+ Q
+"RTN","ECXDRUG1",134,0)
+ ;
+"RTN","ECXDRUG2")
+0^41^B17542635^B17371737
+"RTN","ECXDRUG2",1,0)
+ECXDRUG2 ;ALB/TMD-Pharmacy Extracts Incomplete Feeder Key Report ;3/5/13 15:52
+"RTN","ECXDRUG2",2,0)
+ ;;3.0;DSS EXTRACTS;**40,68,84,105,111,144**;Dec 22, 1997;Build 9
+"RTN","ECXDRUG2",3,0)
+ ;
+"RTN","ECXDRUG2",4,0)
+EN ; entry point
+"RTN","ECXDRUG2",5,0)
+ N ECD,LINE,ECDRG,ECQTY,ECPRC
+"RTN","ECXDRUG2",6,0)
+ I '$G(ECXPORT) K ^TMP($J) ;144 Already killed if exporting
+"RTN","ECXDRUG2",7,0)
+ S ECD=ECSD1,ECED=ECED+.3
+"RTN","ECXDRUG2",8,0)
+ S LINE=$S(ECXOPT=1:"PRE",ECXOPT=2:"IVP",ECXOPT=3:"UDP",1:"EXIT")
+"RTN","ECXDRUG2",9,0)
+ D @LINE
+"RTN","ECXDRUG2",10,0)
+ Q
+"RTN","ECXDRUG2",11,0)
+ ;
+"RTN","ECXDRUG2",12,0)
+PRE ; entry point for PRE data
+"RTN","ECXDRUG2",13,0)
+ ; order through fills, refills and partial refills
+"RTN","ECXDRUG2",14,0)
+ N ECRFL,ECRX,ECREF,ECDATA,ECDATA1
+"RTN","ECXDRUG2",15,0)
+ K ^TMP($J,"ECXDSS")
+"RTN","ECXDRUG2",16,0)
+ ;call pharmacy api pso52ex
+"RTN","ECXDRUG2",17,0)
+ D EXTRACT^PSO52EX(ECD,ECED,"ECXDSS")
+"RTN","ECXDRUG2",18,0)
+ S ECREF="RF"
+"RTN","ECXDRUG2",19,0)
+ ;order thru fills and refills; refill values 0 thru 11
+"RTN","ECXDRUG2",20,0)
+ ; Note: refill 0 = original fill
+"RTN","ECXDRUG2",21,0)
+ F S ECD=$O(^TMP($J,"ECXDSS","AL",ECD)),IEN=0 Q:'ECD Q:ECD>ECED Q:ECXERR F S IEN=$O(^(ECD,IEN)),ECRFL="" Q:'IEN Q:ECXERR F S ECRFL=$O(^(IEN,ECRFL)) Q:ECRFL']"" Q:ECXERR D PRE2
+"RTN","ECXDRUG2",22,0)
+ ;
+"RTN","ECXDRUG2",23,0)
+ ;order thru partial fills
+"RTN","ECXDRUG2",24,0)
+ S ECD=ECSD1,ECREF="P"
+"RTN","ECXDRUG2",25,0)
+ F S ECD=$O(^TMP($J,"ECXDSS","AM",ECD)),IEN=0 Q:'ECD Q:ECD>ECED Q:ECXERR F S IEN=$O(^(ECD,IEN)),ECRFL="" Q:'IEN Q:ECXERR F S ECRFL=$O(^(IEN,ECRFL)) Q:'ECRFL Q:ECXERR D PRE2
+"RTN","ECXDRUG2",26,0)
+ K ^TMP($J,"ECXDSS")
+"RTN","ECXDRUG2",27,0)
+ Q
+"RTN","ECXDRUG2",28,0)
+ ;
+"RTN","ECXDRUG2",29,0)
+PRE2 ; get Prescription data
+"RTN","ECXDRUG2",30,0)
+ S ECDRG=+$P(^TMP($J,"ECXDSS",IEN,6),U)
+"RTN","ECXDRUG2",31,0)
+ I ECRFL>0&(ECREF="RF") D
+"RTN","ECXDRUG2",32,0)
+ .S ECQTY=^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,1),ECPRC=^(1.2)
+"RTN","ECXDRUG2",33,0)
+ I ECRFL>0&(ECREF="P") D
+"RTN","ECXDRUG2",34,0)
+ .S ECQTY=^TMP($J,"ECXDSS",IEN,ECREF,ECRFL,.04),ECPRC=^(.042)
+"RTN","ECXDRUG2",35,0)
+ I 'ECRFL S ECQTY=^TMP($J,"ECXDSS",IEN,7),ECPRC=^(17)
+"RTN","ECXDRUG2",36,0)
+ D TEST
+"RTN","ECXDRUG2",37,0)
+ Q
+"RTN","ECXDRUG2",38,0)
+ ;
+"RTN","ECXDRUG2",39,0)
+IVP ; entry point for IVP data
+"RTN","ECXDRUG2",40,0)
+ N ON,DFN,DA,SA
+"RTN","ECXDRUG2",41,0)
+ F S ECD=$O(^ECX(728.113,"A",ECD)),DFN=0 Q:'ECD Q:ECXERR Q:ECD>ECED F S DFN=$O(^ECX(728.113,"A",ECD,DFN)),ON=0 Q:'DFN Q:ECXERR F S ON=$O(^ECX(728.113,"A",ECD,DFN,ON)),DA=0 Q:'ON K ^TMP($J,"A"),^("S") D
+"RTN","ECXDRUG2",42,0)
+ .F S DA=$O(^ECX(728.113,"A",ECD,DFN,ON,DA)) Q:'DA I $D(^ECX(728.113,DA,0)) S EC=^(0) D
+"RTN","ECXDRUG2",43,0)
+ ..S ECDRG=$P(EC,U,4)
+"RTN","ECXDRUG2",44,0)
+ ..S SA=$S($P(EC,U,8)]"":"A",$P(EC,U,9):"S",1:"")
+"RTN","ECXDRUG2",45,0)
+ ..I SA'="" D
+"RTN","ECXDRUG2",46,0)
+ ...I '$D(^TMP($J,SA,ECDRG)) S ^(ECDRG)=0,$P(^(ECDRG),U,2)=$P(EC,U,12)
+"RTN","ECXDRUG2",47,0)
+ ...S $P(^TMP($J,SA,ECDRG),U)=$P(^TMP($J,SA,ECDRG),U)+$S($P(EC,U,6)=1:1,$P(EC,U,6)=4:0,1:-1)
+"RTN","ECXDRUG2",48,0)
+ .;looped thru all DAs for this order - now put it together
+"RTN","ECXDRUG2",49,0)
+ .F SA="S","A" S ECDRG="" F S ECDRG=$O(^TMP($J,SA,ECDRG)) Q:ECDRG="" D
+"RTN","ECXDRUG2",50,0)
+ ..S ECQTY=$P(^TMP($J,SA,ECDRG),U),ECPRC=$P(^(ECDRG),U,2)
+"RTN","ECXDRUG2",51,0)
+ ..D TEST
+"RTN","ECXDRUG2",52,0)
+ K ^TMP($J,"A"),^TMP($J,"S")
+"RTN","ECXDRUG2",53,0)
+ Q
+"RTN","ECXDRUG2",54,0)
+ ;
+"RTN","ECXDRUG2",55,0)
+UDP ; entry point for UDP data
+"RTN","ECXDRUG2",56,0)
+ N ECXJ,ECDATA
+"RTN","ECXDRUG2",57,0)
+ F S ECD=$O(^ECX(728.904,"A",ECD)) Q:'ECD Q:ECD>ECED Q:ECXERR D
+"RTN","ECXDRUG2",58,0)
+ .S ECXJ=0 F S ECXJ=$O(^ECX(728.904,"A",ECD,ECXJ)) Q:'ECXJ Q:ECXERR I $D(^ECX(728.904,ECXJ,0)) D
+"RTN","ECXDRUG2",59,0)
+ ..S DATA=^ECX(728.904,ECXJ,0)
+"RTN","ECXDRUG2",60,0)
+ ..S ECDRG=$P(DATA,U,4),ECQTY=$P(DATA,U,5),ECCOST=$P(DATA,U,8)
+"RTN","ECXDRUG2",61,0)
+ ..S ECPRC=ECCOST/ECQTY
+"RTN","ECXDRUG2",62,0)
+ ..D TEST
+"RTN","ECXDRUG2",63,0)
+ Q
+"RTN","ECXDRUG2",64,0)
+ ;
+"RTN","ECXDRUG2",65,0)
+TEST ; retrieve NDC and PSNDF VA Product Code Entry and test for missing NDC or VA Prod Code
+"RTN","ECXDRUG2",66,0)
+ N ECTYPE,ECNDC,ECZERO,K,ECPROD,ECFCHAR,ECSTOCK,ECXPHA
+"RTN","ECXDRUG2",67,0)
+ S ECTYPE=0,ECXPHA=""
+"RTN","ECXDRUG2",68,0)
+ ; call pharmacy drug file (#50) api via ecxutl5
+"RTN","ECXDRUG2",69,0)
+ S ECXPHA=$$PHAAPI^ECXUTL5(ECDRG)
+"RTN","ECXDRUG2",70,0)
+ S ECNDC=$P(ECXPHA,U,3)
+"RTN","ECXDRUG2",71,0)
+ S ECNDC=$$RJ^XLFSTR($P(ECNDC,"-"),6,0)_$$RJ^XLFSTR($P(ECNDC,"-",2),4,0)_$$RJ^XLFSTR($P(ECNDC,"-",3),2,0),ECNDC=$TR(ECNDC,"*",0)
+"RTN","ECXDRUG2",72,0)
+ S ECZERO=1,ECSTOCK=0 F K=1:1:$L(ECNDC) D Q:'ECZERO!ECSTOCK
+"RTN","ECXDRUG2",73,0)
+ .S ECFCHAR=$E(ECNDC,K)
+"RTN","ECXDRUG2",74,0)
+ .I ECFCHAR="S" S ECSTOCK=1 Q
+"RTN","ECXDRUG2",75,0)
+ .I ECFCHAR'=0 S ECZERO=0 Q
+"RTN","ECXDRUG2",76,0)
+ I ECZERO!ECSTOCK!(ECNDC["N/A") S ECTYPE=2
+"RTN","ECXDRUG2",77,0)
+ S ECPROD=$P(ECXPHA,U,6),ECPROD=$$RJ^XLFSTR(ECPROD,5,0)
+"RTN","ECXDRUG2",78,0)
+ I ECTYPE,'ECPROD S ECTYPE=3
+"RTN","ECXDRUG2",79,0)
+ I 'ECTYPE,'ECPROD S ECTYPE=1
+"RTN","ECXDRUG2",80,0)
+ I ECTYPE D FILE
+"RTN","ECXDRUG2",81,0)
+ Q
+"RTN","ECXDRUG2",82,0)
+ ;
+"RTN","ECXDRUG2",83,0)
+FILE ; file record
+"RTN","ECXDRUG2",84,0)
+ N ECFKEY,ECGNAME,STATS,ECCOUNT,QTY,COST,ECCOST
+"RTN","ECXDRUG2",85,0)
+ ; create new record if none exists for this drug
+"RTN","ECXDRUG2",86,0)
+ I '$D(^TMP($J,ECDRG)) D
+"RTN","ECXDRUG2",87,0)
+ .S ECFKEY=ECPROD_ECNDC
+"RTN","ECXDRUG2",88,0)
+ .S ECGNAME=$P($G(^PSDRUG(ECDRG,0)),U)
+"RTN","ECXDRUG2",89,0)
+ .S ^TMP($J,ECDRG)=ECGNAME_U_ECFKEY_U_ECPRC_U_ECTYPE
+"RTN","ECXDRUG2",90,0)
+ .S ^TMP($J,ECDRG,0)="0^0^0"
+"RTN","ECXDRUG2",91,0)
+ ; add stats to record
+"RTN","ECXDRUG2",92,0)
+ S STATS=^TMP($J,ECDRG,0)
+"RTN","ECXDRUG2",93,0)
+ S ECCOUNT=$P(STATS,U),QTY=$P(STATS,U,2),COST=$P(STATS,U,3)
+"RTN","ECXDRUG2",94,0)
+ S ECCOUNT=ECCOUNT+1
+"RTN","ECXDRUG2",95,0)
+ S ECCOST=ECQTY*ECPRC
+"RTN","ECXDRUG2",96,0)
+ S ECQTY=ECQTY+QTY,ECCOST=ECCOST+COST
+"RTN","ECXDRUG2",97,0)
+ S ^TMP($J,ECDRG,0)=ECCOUNT_U_ECQTY_U_ECCOST
+"RTN","ECXDRUG2",98,0)
+ Q
+"RTN","ECXDRUG2",99,0)
+ ;
+"RTN","ECXDRUG2",100,0)
+EXIT S ECXERR=1 Q
+"RTN","ECXEC")
+0^24^B75634343^B61924291
+"RTN","ECXEC",1,0)
+ECXEC ;ALB/JAP,BIR/JLP,PTD-DSS Event Capture Extract ;8/13/13 15:54
+"RTN","ECXEC",2,0)
+ ;;3.0;DSS EXTRACTS;**11,8,13,24,27,33,39,46,49,71,89,92,105,120,127,132,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXEC",3,0)
+BEG ;entry point from option
+"RTN","ECXEC",4,0)
+ I '$D(^ECH) W !,"Event Capture is not initialized",!! Q
+"RTN","ECXEC",5,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXEC",6,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXEC",7,0)
+ Q
+"RTN","ECXEC",8,0)
+START ;begin EC extract
+"RTN","ECXEC",9,0)
+ N X,Y,ECDCM,ECXNPRFI,ECXVIET,ECX4CHAR ; 144 national 4char code
+"RTN","ECXEC",10,0)
+ N ECXICD10P,ECXICD101,ECXICD102,ECXICD103,ECXICD104
+"RTN","ECXEC",11,0)
+ S ECED=ECED+.3,ECLL=0
+"RTN","ECXEC",12,0)
+ K ^TMP("EC",$J)
+"RTN","ECXEC",13,0)
+ F S ECLL=$O(^ECH("AC1",ECLL)),ECD=ECSD-.1 Q:'ECLL D
+"RTN","ECXEC",14,0)
+ .F S ECD=$O(^ECH("AC1",ECLL,ECD)),ECDA=0 Q:(ECD>ECED)!('ECD) D
+"RTN","ECXEC",15,0)
+ ..F S ECDA=$O(^ECH("AC1",ECLL,ECD,ECDA)) Q:'ECDA D UPDATE
+"RTN","ECXEC",16,0)
+ Q
+"RTN","ECXEC",17,0)
+ ;
+"RTN","ECXEC",18,0)
+UPDATE ;sets record and updates counters
+"RTN","ECXEC",19,0)
+ N ECXESC,ECXECL,ECXCLST ;144
+"RTN","ECXEC",20,0)
+ S (ECXESC,ECXECL,ECXCLST)="" ;144
+"RTN","ECXEC",21,0)
+ S ECCH=^ECH(ECDA,0),ECL=$P(ECCH,U,4),ECXDFN=$P(ECCH,U,2)
+"RTN","ECXEC",22,0)
+ S ECXPDIV=$$RADDIV^ECXDEPT(ECL) ;Get production division from file 4
+"RTN","ECXEC",23,0)
+ S ECDT=$P(ECCH,U,3),ECM=$P(ECCH,U,6),ECC=$P(ECCH,U,8)
+"RTN","ECXEC",24,0)
+ Q:'$$PATDEM^ECXUTL2(ECXDFN,ECDT,"1;3;5;")
+"RTN","ECXEC",25,0)
+ S ECTM=$$ECXTIME^ECXUTL(ECDT),ECP=$P(ECCH,U,9)
+"RTN","ECXEC",26,0)
+ Q:ECP']""
+"RTN","ECXEC",27,0)
+ S ECO=$P(ECCH,U,12),ECV=$P(ECCH,U,10),ECDU=$P(ECCH,U,7)
+"RTN","ECXEC",28,0)
+ S ECXUNIT=$G(^ECD(ECDU,0)),ECCS=+$P(ECXUNIT,U,4),ECDCM=$P(ECXUNIT,U,5)
+"RTN","ECXEC",29,0)
+ S ECXDSSP="",ECXDSSD=$E(ECDCM,1,10),ECUSTOP=$P(ECXUNIT,U,10),ECUPCE=$P(ECXUNIT,U,14)
+"RTN","ECXEC",30,0)
+ S ICD9=$P($G(^ECH(ECDA,"P")),U,2) S:ICD9="" ICD9=" "
+"RTN","ECXEC",31,0)
+ S ECXICD9=$P($G(^ICD9(ICD9,0)),U),ECXICD10P="",ECX4CHAR="" ;144
+"RTN","ECXEC",32,0)
+ F I=1:1:4 S @("ECXICD9"_I)=""
+"RTN","ECXEC",33,0)
+ F I=1:1:4 S @("ECXICD10"_I)=""
+"RTN","ECXEC",34,0)
+ S (CNT,I)=0
+"RTN","ECXEC",35,0)
+ F S CNT=$O(^ECH(ECDA,"DX",CNT)) Q:'CNT D Q:I>3
+"RTN","ECXEC",36,0)
+ .S ICD9=$P($G(^ECH(ECDA,"DX",CNT,0)),U) D:ICD9'=""
+"RTN","ECXEC",37,0)
+ ..S I=I+1,@("ECXICD9"_I)=$P($G(^ICD9(ICD9,0)),U)
+"RTN","ECXEC",38,0)
+ ;derivation of dss identifier depends on whether dss unit is
+"RTN","ECXEC",39,0)
+ ;set to send data to pce
+"RTN","ECXEC",40,0)
+ S ECAC=$P($G(ECCH),U,19) S:ECAC=0 ECAC="" ;144 Change value to null if value from event capture patient file is 0
+"RTN","ECXEC",41,0)
+ S ECX4CHAR=$$GET1^DIQ(728.44,+ECAC,7,"E") ; 144 use the assoc clinic to get 4char code
+"RTN","ECXEC",42,0)
+ ;if this is a record that 'goes to pce', then get the dss identifier
+"RTN","ECXEC",43,0)
+ ;from the clinic stop codes
+"RTN","ECXEC",44,0)
+ S (ECAC1S,ECAC2S)="000"
+"RTN","ECXEC",45,0)
+ I ECUPCE="A"!(ECUPCE="O"&(ECXA="O")) D
+"RTN","ECXEC",46,0)
+ .D:+ECAC
+"RTN","ECXEC",47,0)
+ ..S ECAC1=$P($G(^SC(+ECAC,0)),U,7),ECAC2=$P($G(^(0)),U,18)
+"RTN","ECXEC",48,0)
+ ..I 'ECAC2 S ECAC2S="000"
+"RTN","ECXEC",49,0)
+ ..I 'ECAC1 S (ECAC1S,ECAC2S)="000" Q
+"RTN","ECXEC",50,0)
+ ..S ECAC1S=$P($G(^DIC(40.7,+ECAC1,0)),U,2)
+"RTN","ECXEC",51,0)
+ ..S ECAC2S=$P($G(^DIC(40.7,+ECAC2,0)),U,2)
+"RTN","ECXEC",52,0)
+ ..S ECAC1S=$$RJ^XLFSTR(ECAC1S,3,0),ECAC2S=$$RJ^XLFSTR(ECAC2S,3,0)
+"RTN","ECXEC",53,0)
+ .S:'ECAC (ECAC1S,ECAC2S)="000"
+"RTN","ECXEC",54,0)
+ ;if this record doesn't go to pce, then get the dss identifier
+"RTN","ECXEC",55,0)
+ ;from the dss unit
+"RTN","ECXEC",56,0)
+ I ECUPCE=""!(ECUPCE="N")!(ECUPCE="O"&(ECXA="I")) D
+"RTN","ECXEC",57,0)
+ .I +ECUSTOP D
+"RTN","ECXEC",58,0)
+ ..S ECAC1S=$P($G(^DIC(40.7,+ECUSTOP,0)),U,2)
+"RTN","ECXEC",59,0)
+ ..S ECAC1S=$$RJ^XLFSTR(ECAC1S,3,0),ECAC2S="000"
+"RTN","ECXEC",60,0)
+ .I 'ECUSTOP D
+"RTN","ECXEC",61,0)
+ ..S (ECAC1S,ECAC2S)="000"
+"RTN","ECXEC",62,0)
+ S ECDSS=ECAC1S_ECAC2S
+"RTN","ECXEC",63,0)
+ I ECXLOGIC>2003 I "^18^23^24^41^65^94^108^"[("^"_ECXTS_"^") S ECDSS=$$TSMAP^ECXUTL4(ECXTS)
+"RTN","ECXEC",64,0)
+ S ECXDIV=""
+"RTN","ECXEC",65,0)
+ ;
+"RTN","ECXEC",66,0)
+ ;- Ord Div, Contrct St/End Dates, Contrct Type placeholders for FY2002
+"RTN","ECXEC",67,0)
+ S (ECXODIV,ECXCSDT,ECXCEDT,ECXCTYP)=""
+"RTN","ECXEC",68,0)
+ ;setup provider(s) as'2'_ien
+"RTN","ECXEC",69,0)
+ S (ECU1A,ECU2A,ECU3A,ECU1NPI,ECU2NPI,ECU3NPI,ECXPPC1,ECXPPC2,ECXPPC3,ECU1,ECU2,ECU3,ECU4,ECU5,ECU6,ECU7)="" ;144 CVW
+"RTN","ECXEC",70,0)
+ S (ECU4A,ECU5A,ECU6A,ECU7A,ECU4NPI,ECU5NPI,ECU6NPI,ECU7NPI,ECXPPC4,ECXPPC5,ECXPPC6,ECXPPC7)="" ;144
+"RTN","ECXEC",71,0)
+ K ECXPRV S ECXPROV=$$GETPRV^ECPRVMUT(ECDA,.ECXPRV) I ECXPROV Q
+"RTN","ECXEC",72,0)
+ F I=1:1:7 S Y=$O(ECXPRV("")) I Y'="" S @("ECU"_I)=+ECXPRV(Y) K ECXPRV(Y)
+"RTN","ECXEC",73,0)
+ S:$L(ECU1) ECXPPC1=$$PRVCLASS^ECXUTL(ECU1,ECDT),ECU1A="2"_$P(ECU1,";")
+"RTN","ECXEC",74,0)
+ S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU1,ECDT)
+"RTN","ECXEC",75,0)
+ S:+ECXUSRTN'>0 ECXUSRTN="" S ECU1NPI=$P(ECXUSRTN,U)
+"RTN","ECXEC",76,0)
+ S:$L(ECU2) ECXPPC2=$$PRVCLASS^ECXUTL(ECU2,ECDT),ECU2A="2"_$P(ECU2,";")
+"RTN","ECXEC",77,0)
+ S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU2,ECDT)
+"RTN","ECXEC",78,0)
+ S:+ECXUSRTN'>0 ECXUSRTN="" S ECU2NPI=$P(ECXUSRTN,U)
+"RTN","ECXEC",79,0)
+ S:$L(ECU3) ECXPPC3=$$PRVCLASS^ECXUTL(ECU3,ECDT),ECU3A="2"_$P(ECU3,";")
+"RTN","ECXEC",80,0)
+ S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU3,ECDT)
+"RTN","ECXEC",81,0)
+ S:+ECXUSRTN'>0 ECXUSRTN="" S ECU3NPI=$P(ECXUSRTN,U)
+"RTN","ECXEC",82,0)
+ S:$L(ECU4) ECXPPC4=$$PRVCLASS^ECXUTL(ECU4,ECDT),ECU4A="2"_$P(ECU4,";")
+"RTN","ECXEC",83,0)
+ S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU4,ECDT)
+"RTN","ECXEC",84,0)
+ S:+ECXUSRTN'>0 ECXUSRTN="" S ECU4NPI=$P(ECXUSRTN,U)
+"RTN","ECXEC",85,0)
+ S:$L(ECU5) ECXPPC5=$$PRVCLASS^ECXUTL(ECU5,ECDT),ECU5A="2"_$P(ECU5,";")
+"RTN","ECXEC",86,0)
+ S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU5,ECDT)
+"RTN","ECXEC",87,0)
+ S:+ECXUSRTN'>0 ECXUSRTN="" S ECU5NPI=$P(ECXUSRTN,U)
+"RTN","ECXEC",88,0)
+ ;144 add 2 more providers, prov per class, prov npi cvw
+"RTN","ECXEC",89,0)
+ S:$L(ECU6) ECXPPC6=$$PRVCLASS^ECXUTL(ECU6,ECDT),ECU6A="2"_$P(ECU6,";")
+"RTN","ECXEC",90,0)
+ S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU6,ECDT)
+"RTN","ECXEC",91,0)
+ S:+ECXUSRTN'>0 ECXUSRTN="" S ECU6NPI=$P(ECXUSRTN,U)
+"RTN","ECXEC",92,0)
+ S:$L(ECU7) ECXPPC7=$$PRVCLASS^ECXUTL(ECU7,ECDT),ECU7A="2"_$P(ECU7,";")
+"RTN","ECXEC",93,0)
+ S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECU7,ECDT)
+"RTN","ECXEC",94,0)
+ S:+ECXUSRTN'>0 ECXUSRTN="" S ECU7NPI=$P(ECXUSRTN,U)
+"RTN","ECXEC",95,0)
+ ;change for version 2 where ECP is a variable pointer and we want to
+"RTN","ECXEC",96,0)
+ ;expand it category = category or null if stored as 0
+"RTN","ECXEC",97,0)
+ D:ECP[";"
+"RTN","ECXEC",98,0)
+ .S ECP=$S(ECP["ICPT":$P(^ICPT(+ECP,0),U)_"01",ECP<90000:$P(^EC(725,+ECP,0),U,2)_"N",1:$P(^EC(725,+ECP,0),U,2)_"L"),ECC=$S(ECC:ECC,1:"")
+"RTN","ECXEC",99,0)
+ ;pick up EC to PCE data from "P" in File 721
+"RTN","ECXEC",100,0)
+ S ECPCE=$G(^ECH(ECDA,"P")),ECPCE1=$P(ECPCE,U),ECPCE2=$P(ECPCE,U,2)
+"RTN","ECXEC",101,0)
+ S ECPCE7=$S($P(ECPCE,U,7)=1:"Y",1:"N")
+"RTN","ECXEC",102,0)
+ S ECXCMOD=""
+"RTN","ECXEC",103,0)
+ I $D(^ECH(ECDA,"MOD")) D
+"RTN","ECXEC",104,0)
+ .S MOD=0,M=""
+"RTN","ECXEC",105,0)
+ .F S MOD=$O(^ECH(ECDA,"MOD",MOD)) Q:'MOD S M=$P(^(MOD,0),U) D
+"RTN","ECXEC",106,0)
+ ..I M S ECXCMOD=ECXCMOD_M_";"
+"RTN","ECXEC",107,0)
+ .K MOD,M
+"RTN","ECXEC",108,0)
+ S:ECP?1.N ECP=$$CPT^ECXUTL3($E(ECP,1,5),"",ECV)
+"RTN","ECXEC",109,0)
+ S ECXCPT=$$CPT^ECXUTL3(ECPCE1,ECXCMOD,ECV)
+"RTN","ECXEC",110,0)
+ ;
+"RTN","ECXEC",111,0)
+ ;- Observation Patient Indicator (YES/NO)
+"RTN","ECXEC",112,0)
+ S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECDSS)
+"RTN","ECXEC",113,0)
+ ;
+"RTN","ECXEC",114,0)
+ ;- CNH status (YES/NO)
+"RTN","ECXEC",115,0)
+ S ECXCNH=$$CNHSTAT^ECXUTL4(ECXDFN)
+"RTN","ECXEC",116,0)
+ ;
+"RTN","ECXEC",117,0)
+ ;- encounter classification
+"RTN","ECXEC",118,0)
+ S (ECXAO,ECXECE,ECXHNC,ECXMIL,ECXIR,ECXSHAD)="",ECXVISIT=$P(ECCH,U,21)
+"RTN","ECXEC",119,0)
+ I ECXVISIT'="" D
+"RTN","ECXEC",120,0)
+ .D VISIT^ECXSCX1(ECXDFN,ECXVISIT,.ECXVIST,.ECXERR) I ECXERR K ECXERR Q
+"RTN","ECXEC",121,0)
+ .S ECXAO=$G(ECXVIST("AO")),ECXECE=$G(ECXVIST("PGE")),ECXSHAD=$G(ECXVIST("SHAD"))
+"RTN","ECXEC",122,0)
+ .S ECXHNC=$G(ECXVIST("HNC")),ECXMIL=$G(ECXVIST("MST")),ECXIR=$G(ECXVIST("IR"))
+"RTN","ECXEC",123,0)
+ .S ECXECL=$G(ECXVIST("ENCCL")),ECXESC=$G(ECXVIST("ENCSC")) ;144
+"RTN","ECXEC",124,0)
+ ; - Head and Neck Cancer Indicator
+"RTN","ECXEC",125,0)
+ S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN)
+"RTN","ECXEC",126,0)
+ ; - PROJ 112/SHAD Indicator
+"RTN","ECXEC",127,0)
+ S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN)
+"RTN","ECXEC",128,0)
+ ; ******* - PATCH 127, ADD PATCAT CODE
+"RTN","ECXEC",129,0)
+ S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXEC",130,0)
+ ;
+"RTN","ECXEC",131,0)
+ ; - Get national patient record flag Indicator if exist
+"RTN","ECXEC",132,0)
+ D NPRF^ECXUTL5
+"RTN","ECXEC",133,0)
+ ;
+"RTN","ECXEC",134,0)
+ ; - If no encounter number don't file record
+"RTN","ECXEC",135,0)
+ S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECDT,ECXTS,ECXOBS,ECHEAD,ECDSS,ECCS)
+"RTN","ECXEC",136,0)
+ D:ECXENC'="" FILE
+"RTN","ECXEC",137,0)
+ Q
+"RTN","ECXEC",138,0)
+ ;
+"RTN","ECXEC",139,0)
+FILE ;file record in #727.815
+"RTN","ECXEC",140,0)
+ ;node0
+"RTN","ECXEC",141,0)
+ ;ecode=inst ECL^dfn ECXDFN^ssn ECXSSN^name ECXPNM^i/o status ECXA^day^
+"RTN","ECXEC",142,0)
+ ;DSS unit ECDU^category ECC^procedure ECP^volume ECV^
+"RTN","ECXEC",143,0)
+ ;cost center ECCS^ordering sec ECO^section ECM^
+"RTN","ECXEC",144,0)
+ ;provider ECU1A^prov per cls ECXPPC1^prov 2 ECU2A^prov#2 per cls ECXPPC2
+"RTN","ECXEC",145,0)
+ ;^prov 3 ECU3A^prov#3 per cls ECXPPC3^^mov # ECXMN^treat spec ECXTS
+"RTN","ECXEC",146,0)
+ ;^time ECTM^primary care team ECPTTM^primary care provider ECPTPR
+"RTN","ECXEC",147,0)
+ ;^pce cpt code (ECXCPT)^primary icd-9 code ECXICD9^secondary icd-9
+"RTN","ECXEC",148,0)
+ ;ECXICD91^secondary icd-9 ECXICD92^secondary icd-9 ECXICD93^secondary
+"RTN","ECXEC",149,0)
+ ;icd-9 ECXICD94^agent orange ECXAST^radiation exposure ECXRST^
+"RTN","ECXEC",150,0)
+ ;environmental contaminants ECXEST^service connected ECPTPR^sent to pce
+"RTN","ECXEC",151,0)
+ ;ECPCE7^^dss identifier ECDSS^dss dept
+"RTN","ECXEC",152,0)
+ ;node1
+"RTN","ECXEC",153,0)
+ ;mpi ECXMPI^dss dept ECXDSSD^PLACEHOLDER
+"RTN","ECXEC",154,0)
+ ;placeholder^placeholder^placeholder^
+"RTN","ECXEC",155,0)
+ ;placeholder^pc prov person class ECCLAS^
+"RTN","ECXEC",156,0)
+ ;assoc pc prov ECASPR^assoc pc prov person class ECCLAS2^
+"RTN","ECXEC",157,0)
+ ;placeholder^
+"RTN","ECXEC",158,0)
+ ;divison ECXDIV^mst status ECXMST^dom ECXDOM^date of birth ECXDOB^
+"RTN","ECXEC",159,0)
+ ;enrollment category ECXCAT^ enrollment status ECXSTAT^enrollment
+"RTN","ECXEC",160,0)
+ ;priority ECXPRIOR^period of service ECXPOS^purple heart indicator
+"RTN","ECXEC",161,0)
+ ;ECXPHI^observ pat ind ECXOBS^encounter num ECXENC^
+"RTN","ECXEC",162,0)
+ ;ao loc ECXAOL^ord div ECXODIV^contr st dt ECXCSDT^
+"RTN","ECXEC",163,0)
+ ;contr end dt ECXCEDT^contr typ ECXCTYP^CNH stat ECXCNH^
+"RTN","ECXEC",164,0)
+ ;production division ECXPDIV^eligibility ECXELIG^
+"RTN","ECXEC",165,0)
+ ;head & neck cancer ind. ECXHNCI^ethnicity ECXETH^race1 ECXRAC1
+"RTN","ECXEC",166,0)
+ ;enrollment location ECXENRL^^enrollment priority
+"RTN","ECXEC",167,0)
+ ;ECXPRIOR_enrollment subgroup ECXSBGRP^user enrollee ECXUESTA^patient
+"RTN","ECXEC",168,0)
+ ;type ECXPTYPE^combat vet elig ECXCVE
+"RTN","ECXEC",169,0)
+ ;NODE 2
+"RTN","ECXEC",170,0)
+ ;combat vet elig end date ECXCVEDT
+"RTN","ECXEC",171,0)
+ ;enc cv eligible ECXCVENC^national patient record flag
+"RTN","ECXEC",172,0)
+ ;ECXNPRFI^emerg response indic(FEMA) ECXERI^agent orange indic ECXAO^
+"RTN","ECXEC",173,0)
+ ;environ contam ECXECE^head/neck cancer ECXHNC^encntr mst ECXMIL
+"RTN","ECXEC",174,0)
+ ;^radiation ECXIR^OEF/OIF ECXOEF^OEF/OIF return date ECXOEFDT
+"RTN","ECXEC",175,0)
+ ;^associate pc provider npi ECASNPI^primary care provider npi ECPTNPI^
+"RTN","ECXEC",176,0)
+ ;provider npi ECU1NPI^provider #2 ECU2NPI^provider #3 ECU3NPI^
+"RTN","ECXEC",177,0)
+ ;shad status ECXSHADI^shad encounter ECXSHAD^patcat ECXPATCAT^
+"RTN","ECXEC",178,0)
+ ;prov #4 ECU4A^prov #4 pc ECXPPC4^prov #4 ECXU4NPI^prov #5 ECU5A^
+"RTN","ECXEC",179,0)
+ ;prov #5 pc ECXPPC5^prov #5 ECXU5NPI^
+"RTN","ECXEC",180,0)
+ ;primary ICD-10 code (currently null) ECXICD10P^Secondary ICD-10 Code #1 (currently null) ECXICD101^
+"RTN","ECXEC",181,0)
+ ;Secondary ICD-10 Code #2 (currently null) ECXICD102^Secondary ICD-10 Code #3 (currently null) ECXICD103^
+"RTN","ECXEC",182,0)
+ ;Secondary ICD-10 Code #4 (currently null) ECXICD104
+"RTN","ECXEC",183,0)
+ ;NODE 3
+"RTN","ECXEC",184,0)
+ ;Encounter SC ECXESC^Vietnam Status ECXVIET^
+"RTN","ECXEC",185,0)
+ ;Provider #6 ECU6A^ Prov #6 PC ECXPPC6^Prov #6 NPI ECU6NPI^Provider #7 ECU7A^ Prov #7 PC ECXPPC7^Prov #7 NPI ECU7NPI
+"RTN","ECXEC",186,0)
+ ;National 4CHAR code ECX4CHAR^Clinic IEN ECAC^Camp Lejeune Status ECXCLST^Encounter Camp Lejeune ECXECL
+"RTN","ECXEC",187,0)
+ ;
+"RTN","ECXEC",188,0)
+ ;convert specialty to PTF Code for transmission
+"RTN","ECXEC",189,0)
+ N ECXDATA
+"RTN","ECXEC",190,0)
+ S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA)
+"RTN","ECXEC",191,0)
+ S ECXTS=$G(ECXDATA(7))
+"RTN","ECXEC",192,0)
+ ;done
+"RTN","ECXEC",193,0)
+ N DA,DIK
+"RTN","ECXEC",194,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXEC",195,0)
+ S ECODE=EC7_U_EC23_U_ECL_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U
+"RTN","ECXEC",196,0)
+ S ECODE=ECODE_$$ECXDATE^ECXUTL(ECDT,ECXYM)_U_ECDU_U_ECC_U
+"RTN","ECXEC",197,0)
+ S ECODE=ECODE_ECP_U_ECV_U_ECCS_U_ECO_U_ECM_U_ECU1A_U_ECXPPC1_U
+"RTN","ECXEC",198,0)
+ S ECODE=ECODE_ECU2A_U_ECXPPC2_U_ECU3A_U_ECXPPC3_U_U_ECXMN_U
+"RTN","ECXEC",199,0)
+ S ECODE=ECODE_ECXTS_U_ECTM_U
+"RTN","ECXEC",200,0)
+ S ECODE=ECODE_ECPTTM_U_ECPTPR_U_ECXCPT_U_ECXICD9_U
+"RTN","ECXEC",201,0)
+ S ECODE=ECODE_ECXICD91_U_ECXICD92_U_ECXICD93_U
+"RTN","ECXEC",202,0)
+ S ECODE=ECODE_ECXICD94_U_ECXAST_U_ECXRST_U_ECXEST_U
+"RTN","ECXEC",203,0)
+ S ECODE=ECODE_ECSC_U_ECPCE7_U_U_ECDSS_U_U
+"RTN","ECXEC",204,0)
+ S ECODE1=ECXMPI_U_ECXDSSD_U_U_U_U_ECCLAS_U
+"RTN","ECXEC",205,0)
+ S ECODE1=ECODE1_U_ECASPR_U_ECCLAS2_U_U_ECXDIV_U
+"RTN","ECXEC",206,0)
+ S ECODE1=ECODE1_ECXMST_U_ECXDOM_U_ECXDOB_U_ECXCAT_U_ECXSTAT_U
+"RTN","ECXEC",207,0)
+ S ECODE1=ECODE1_$S(ECXLOGIC<2005:ECXPRIOR,1:"")_U_ECXPOS_U_ECXPHI_U_ECXOBS_U_ECXENC_U_ECXAOL_U
+"RTN","ECXEC",208,0)
+ S ECODE1=ECODE1_ECXODIV_U_ECXCSDT_U_ECXCEDT_U_ECXCTYP_U_ECXCNH_U_ECXPDIV_U
+"RTN","ECXEC",209,0)
+ S ECODE1=ECODE1_ECXELIG_U_ECXHNCI_U_ECXETH_U_ECXRC1
+"RTN","ECXEC",210,0)
+ I ECXLOGIC>2003 S ECODE1=ECODE1_U_ECXENRL_U
+"RTN","ECXEC",211,0)
+ I ECXLOGIC>2004 S ECODE1=ECODE1_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U
+"RTN","ECXEC",212,0)
+ I ECXLOGIC>2004 S ECODE2=ECXCVEDT_U_ECXCVENC_U_ECXNPRFI
+"RTN","ECXEC",213,0)
+ I ECXLOGIC>2006 S ECODE2=ECODE2_U_ECXERI_U_ECXAO_U_ECXECE_U_ECXHNC_U_ECXMIL_U_ECXIR_U
+"RTN","ECXEC",214,0)
+ I ECXLOGIC>2007 S ECODE2=ECODE2_U_ECXOEF_U_ECXOEFDT_U_ECASNPI_U_ECPTNPI_U_ECU1NPI_U_ECU2NPI_U_ECU3NPI
+"RTN","ECXEC",215,0)
+ ; PATCAT added
+"RTN","ECXEC",216,0)
+ I ECXLOGIC>2010 S ECODE2=ECODE2_U_ECXSHADI_U_ECXSHAD_U_ECXPATCAT
+"RTN","ECXEC",217,0)
+ I ECXLOGIC>2011 S ECODE2=ECODE2_U_ECU4A_U_ECXPPC4_U_ECU4NPI_U_ECU5A_U_ECXPPC5_U_ECU5NPI
+"RTN","ECXEC",218,0)
+ I ECXLOGIC>2012 S ECODE2=ECODE2_U_ECXICD10P_U_ECXICD101_U_ECXICD102_U_ECXICD103_U_ECXICD104_U
+"RTN","ECXEC",219,0)
+ I ECXLOGIC>2013 S ECODE3=ECXESC_U_ECXVIET_U_ECU6A_U_ECXPPC6_U_ECU6NPI_U_ECU7A_U_ECXPPC7_U_ECU7NPI_U_ECX4CHAR_U_ECAC_U_ECXCLST_U_ECXECL ; 144
+"RTN","ECXEC",220,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2),^ECX(ECFILE,EC7,3)=$G(ECODE3),ECRN=ECRN+1 ;144
+"RTN","ECXEC",221,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXEC",222,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD
+"RTN","ECXEC",223,0)
+ Q
+"RTN","ECXEC",224,0)
+ ;
+"RTN","ECXEC",225,0)
+SETUP ;Set required input for ECXTRAC
+"RTN","ECXEC",226,0)
+ N OUT
+"RTN","ECXEC",227,0)
+ S ECHEAD="ECS",OUT=0
+"RTN","ECXEC",228,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXEC",229,0)
+ Q:($G(ECXQQ))
+"RTN","ECXEC",230,0)
+ W @IOF,!,"Setting up for ",ECPACK," DSS Extract -",!
+"RTN","ECXEC",231,0)
+ W !," Reminder: A maintenance option, ECS Extract Unusual Volume Report, may"
+"RTN","ECXEC",232,0)
+ W !," assist in identifying problematic data. It should be run before the"
+"RTN","ECXEC",233,0)
+ W !," Event Capture Extract is performed.",!
+"RTN","ECXEC",234,0)
+ D PAUSE^ECXTRAC
+"RTN","ECXEC",235,0)
+ I OUT S ECFILE=""
+"RTN","ECXEC",236,0)
+ Q
+"RTN","ECXEC",237,0)
+ ;
+"RTN","ECXEC",238,0)
+QUE ; entry point for the background requeuing handled by ECXTAUTO
+"RTN","ECXEC",239,0)
+ N ECXQQ
+"RTN","ECXEC",240,0)
+ S ECXQQ=1 D SETUP,QUE^ECXTAUTO,^ECXKILL Q
+"RTN","ECXKILL")
+0^50^B9656369^B9492478
+"RTN","ECXKILL",1,0)
+ECXKILL ;BIR/DMA,PTD-Kill Local Variables ;11/23/10 13:49
+"RTN","ECXKILL",2,0)
+ ;;3.0;DSS EXTRACTS;**9,8,21,24,31,39,49,84,89,105,112,127,132,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXKILL",3,0)
+ ;
+"RTN","ECXKILL",4,0)
+ K %,%DT,%Y,%ZIS,A,A1,A2,ABR,B,BY,D,D0,D1,DA,DAT,DATA,DATA1,DATA2,DATA6
+"RTN","ECXKILL",5,0)
+ K DATAOP,DD,DFN,DHDH,DIC,DIE,DIK,DINUM,DIQ
+"RTN","ECXKILL",6,0)
+ K ECDAPRNP,ECDPRNPI,ECISNPI,ECDOCNPI,ECX4CHAR,ECXDRGC,ECXIVAC,ECXIVSC,UNITCOST
+"RTN","ECXKILL",7,0)
+ K ECU1NPI,ECU2NPI,ECU3NPI,ECU4NPI,ECU5NPI,ECU4A,ECU5A,ECXPPC4,ECXPPC5
+"RTN","ECXKILL",8,0)
+ K DIR,DIRUT,DO,DR,DTOUT,DUOUT,EC,EC0,EC1,EC10,EC11,EC16,EC2,EC23,EC2NODE
+"RTN","ECXKILL",9,0)
+ K EC3,EC42,EC50,EC6,EC7,ECA,ECAC,ECACA,ECAD,ECADM,ECALL
+"RTN","ECXKILL",10,0)
+ K ECANE,ECAO,ECARG,ECAS,ECAT,ECATSV,ECB,ECC,ECCA,ECCAN,ECCAT,ECCH,ECCN
+"RTN","ECXKILL",11,0)
+ K ECCNT,ECCS,ECCSC,ECD,ECD0,ECD1,ECDA,ECDAL,ECDAT,ECASA
+"RTN","ECXKILL",12,0)
+ K ECDATA,ECDATA1,ECDATE,ECDEN,ECDEX,ECDF,ECDFN,ECDFN0,ECDI,ECDIA,ECDIF
+"RTN","ECXKILL",13,0)
+ K ECDIV,ECDL,ECDN,ECDNEW,ECDO,ECDOC,ECDR,ECDRG,ECDS,ECDSSU,ECDT,ECDTTM
+"RTN","ECXKILL",14,0)
+ K ECDU,ECEC0,ECED,ECED1,ECEDN,ECEDNEW,ECF,ECF1,ECFD,ECFDT,ECFILE,ECFK
+"RTN","ECXKILL",15,0)
+ K ECFL,ECFR,ECGRP,ECH,ECHD,ECHEAD,ECI,ECID,ECIEN,ECIFN,ECIN,CCDORD
+"RTN","ECXKILL",16,0)
+ K ECINST,ECINV,ECIV,ECJ,ECK,ECL,ECL1,ECLAN,ECLAST,ECLDT,ECLINK,ECLIST
+"RTN","ECXKILL",17,0)
+ K ECLL,ECLN,ECLNC,ECLOC,ECLRN,ECLX,ECLY,ECM,ECMAX,ECMIN,CCDGVN,CCUNIT
+"RTN","ECXKILL",18,0)
+ K ECXMISS,ECMN,ECMOD,ECMODS,ECMORE,ECMS,ECMSG,ECMSN,ECMT,ECMW,ECMY,ECN
+"RTN","ECXKILL",19,0)
+ K ECNA,ECNDC,ECNDF,ECNFC,ECNL,ECNO,ECNODE,ECNOGO,ECXADT,ECXATM,CCIEN
+"RTN","ECXKILL",20,0)
+ K ECNT,ECO,ECO0,ECO1,ECO2,ECODE,ECODE0,ECODE1,ECODE2,ECODE3,ECONE,ECOPAY
+"RTN","ECXKILL",21,0)
+ K ECOB,ECATTNPI,ECPWNPI,ECXUSNPI,ECPWNPI,ECXOEF,ECXOEFDT,ECPLACE,CCTYPE
+"RTN","ECXKILL",22,0)
+ K ECOPAYT,ECORTY,ECOS,ECP,ECPACK,ECPCE,ECPCE1,ECPCE2,ECPCE3,ECPCE4,ECOLD
+"RTN","ECXKILL",23,0)
+ K ECPCE5,ECPCE6,ECPCE7,ECPIECE,ECPN,ECPRC,ECPRO,ECODE2,ECXASTA,ECXAMED
+"RTN","ECXKILL",24,0)
+ K ECPROF,ECPT,ECPTF,ECPTPR,ECPTTM,ECQ,ECQT,ECQTY,ECRD,ECRE,ECRED,ECREF
+"RTN","ECXKILL",25,0)
+ K ECRFL,ECRN,ECROU,ECRR,ECRS,ECRSD,ECRTN,ECRX,ECS,ECSA,ECSC,ECXSCADT
+"RTN","ECXKILL",26,0)
+ K ECSD,ECSD1,ECSDN,ECSN,ECSR,ECSS,ECST,ECSTOP,ECSU,ECT,ECT1,ECTD,ECTD1
+"RTN","ECXKILL",27,0)
+ K ECTEMP,ECTM,ECTNTL,ECTOTAL,ECTREAT,ECTRT,ECTS,ECTY,ECXLOGIC,ECXDATES,ECXEST,ECXECE
+"RTN","ECXKILL",28,0)
+ K ECLRBILL,ECDSSFK,ECLRTNM,ECLRDTNM,ECXPROPC,ECPRONPI,ECCLAS,ECPTNPI,ECXORN,ECXORT,ECXTSTNM
+"RTN","ECXKILL",29,0)
+ K ACTDT,DRG,DRUG,ECPROPC,ECVACL,ECVNDC,ECXENC,ECXENRL,ECXERI,ECXERR,ECXIVID,ECXNOD,ECXNPRFI,ECXOX,ECXOSC,ECXSCATM,ECXUSRTN,IDAT,OK,PIEN,PLACEHLD,SCADT
+"RTN","ECXKILL",30,0)
+ D ^ECXKILL1
+"RTN","ECXKILL",31,0)
+ ;
+"RTN","ECXKILL",32,0)
+AUDIT ;kill audit report variables, close slave printer
+"RTN","ECXKILL",33,0)
+ K %DT,ECX,ECXARRAY,ECXACC,ECXALL,ECXAUD,ECXCODE,ECXD,ECXDEF,ECXDESC,ECXDIV
+"RTN","ECXKILL",34,0)
+ K ECXRCST,ECXRQST,ECXEND,ECXERR,ECXEXT,ECXHEAD,ECXLOC,ECXPGM,ECXPHCPC
+"RTN","ECXKILL",35,0)
+ K ECXPRIME,ECXPRO,ECXREPT,ECXRUN,ECXSAVE,ECXSTART,ECXSRCE
+"RTN","ECXKILL",36,0)
+ K ECXCTAMT,ECXFEKEY,ECXFELOC,ECXFORM,ECXGRPR,ECXHCPC,ECXPHCPC,ECXHCPCS
+"RTN","ECXKILL",37,0)
+ K ECXPODX,ECXPODX1,ECXPODX2,ECXPODX3,ECXPODX4,ECXPODX5,ECPANPI
+"RTN","ECXKILL",38,0)
+ K ECXLAB,ECXLLC,ECXLMC,ECXQTY,ECXREQ,ECXSTAT,ECXTYPE
+"RTN","ECXKILL",39,0)
+ K IO("Q"),POP,DIR,DIC,DIE,DA,DR,DO,DIRUT,DUOUT,DTOUT
+"RTN","ECXKILL",40,0)
+ K ^TMP($J)
+"RTN","ECXKILL",41,0)
+ I IO=IO(0),IOST'="C" D ^%ZISC
+"RTN","ECXKILL",42,0)
+ Q
+"RTN","ECXKILL1")
+0^49^B14673623^B13723476
+"RTN","ECXKILL1",1,0)
+ECXKILL1 ;ALB/ESD Kill Local DSS Variables (continued) ;7/25/11 11:03
+"RTN","ECXKILL1",2,0)
+ ;;3.0;DSS EXTRACTS;**39,46,89,120,127,132,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXKILL1",3,0)
+ ;
+"RTN","ECXKILL1",4,0)
+ K ECUD,ECUI,ECUN,ECUN1,ECUNIT,ECURG,ECUT,ECUT2,ECUT3,ECV,ECW,ECWC,ECWD
+"RTN","ECXKILL1",5,0)
+ K ECX,ECXB,ECXLNCNT,ECXMDA,ECXMDT,ECXNOW,ECXQUEUE,ECXS,ECXSTART
+"RTN","ECXKILL1",6,0)
+ K ECY,ECYM,ECZ,ECZNODE,ELIG,ENL,FAC,FLDS,FR,I,ID,IOP,J,K,L,LOC,LOS,LRDF
+"RTN","ECXKILL1",7,0)
+ K OPC,P,P1,P11,P2,P3,POP,Q,RD,RESP,QFLG,ECXCONC
+"RTN","ECXKILL1",8,0)
+ K SC,SRDA,SRNM,STC,SU,TEN,TES,TIME,TO,TOT,VAERR,VAIP,W,X,X1,X2,XMDUZ
+"RTN","ECXKILL1",9,0)
+ K XMER,XMFROM,XMREC,XMRG,XMSER,XMSUB,ECXLH,ECXLC,ECXMC
+"RTN","ECXKILL1",10,0)
+ K XMTEXT,XMY,XMZ,XQMSG,XQSOP,XQSUB,XX,Y,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
+"RTN","ECXKILL1",11,0)
+ K ZTSK,ECSTA,ECCTY,STATE,COUNTY,ECVER,ECXADMS
+"RTN","ECXKILL1",12,0)
+ K ECCPT,ECEKG,ECICD,ECPROV,ECREC,ECVAL,ECVIS,NCNTR,PTADT,STOP,ECIVRM
+"RTN","ECXKILL1",13,0)
+ K ECOR,ECWK,ECWKLD,LREDT,LRSDT,FD,ECHL,ECARSC,ECX2TME
+"RTN","ECXKILL1",14,0)
+ K ECDTST,ECLTST,ECODE2,ECORDT,ECORTM,ECRDDT,ECRDTM,ECRES,ECWCDA,ECXINST
+"RTN","ECXKILL1",15,0)
+ K ECXATT,ECXATTL,ECXATTN,ECXLOS,ECXLOSA,ECXLOSP,ECXPRV,ECXPRVL,ECXPRVN
+"RTN","ECXKILL1",16,0)
+ K ECXTRT,ECXTRTL,ECXTRTN,ECXSPC,ECXSPCL,ECXSPCN,ECCSC,ECXSC,ECXP1
+"RTN","ECXKILL1",17,0)
+ K ECXP2,ECXP3,ECXDSSI,ECXDSSD,ECXYM,ECXDIV,ECXDAY,ECXSSN,ECXDATE,ECXPNM
+"RTN","ECXKILL1",18,0)
+ K ECXDFN,ECXA,ECPTNPI,ECCLAS,ECCLAS2,ECASPR,ECASNPI,ECSRNPI,ECATNPI
+"RTN","ECXKILL1",19,0)
+ K ECSANPI,ECXCPT,ECXCMOD,ECXFAC,ECXMN,ECXTS,ECXENEL,ECXSAI,ECXPAYOR
+"RTN","ECXKILL1",20,0)
+ K ECXAST,ECXEST,ECXRST,ECXMST,ECXMIL,ECXPST,ECXPLOC,ECXPOS,ECXSEX,ECXDOB
+"RTN","ECXKILL1",21,0)
+ K ECXRELG,ECXEMP,ECXHI,ECXSTATE,ECXCNTY,ECXZIP,ECXMAR,ECXRACE,ECXVET
+"RTN","ECXKILL1",22,0)
+ K ECXVNS,ECXELIG,ECXENRL,ECXPRNPI,ECXPRCLS,ECXWPRV,ECXW,ECXCNT,ECXCOST
+"RTN","ECXKILL1",23,0)
+ K ECXADM,ECXPROV,ECXPROVP,ECXPROVN,ECXBILST,ECU1A,ECU2A,ECU3A,ECU1NPI
+"RTN","ECXKILL1",24,0)
+ K ECU2NPI,ECU3NPI,ECDENNPI,ECXWRD,ECXWTO,ECXAO,ECXIR,ECXCLIN,ECXICD9
+"RTN","ECXKILL1",25,0)
+ K ECXIEN,ECXKEY,ECXMPI,ECXSTOP,ECXSVC,ECXOBS,ECXADMDT,ECXAOL,ECXCEDT
+"RTN","ECXKILL1",26,0)
+ K ECXCIEN,ECXCNH,ECXCSDT,ECXCTYP,ECXENC,ECXOBS,ECXODIV,ECXSHAD
+"RTN","ECXKILL1",27,0)
+ K ECXORDDT,ECXORDPH,ECXORDPR,ECXORDST,ECXDAPR,ECXDPCT,ECXDPR,ECXRPHY
+"RTN","ECXKILL1",28,0)
+ K ECXPDIV,ECXATYP,ECXPVST,ECXSADM,ECXMTST,ECXQ,ECXHNCI,ECXETH,ECXRC1
+"RTN","ECXKILL1",29,0)
+ K ECXPHI,ECXCNHU,ECXCAT,ECXPRIOR,ECXOPNPI,ECXAOT,ECXCNTRY,ECXSHADI,ECXPATCAT
+"RTN","ECXKILL1",30,0)
+ K ECU,ECU1,ECU2,ECU3,ECAC1,ECAC1S,ECAC2,ECAC2S,ECDSS,ECUPCE,ECUSTOP
+"RTN","ECXKILL1",31,0)
+ K ECXCVE,ECXCVEDT,ECXCVENC,ECXDOM,ECXDSSP,ECXEUSTA,ECXINP,ECXIO,ICD9
+"RTN","ECXKILL1",32,0)
+ K ECXMEAN,ECXPPC1,ECXPPC2,ECXPPC3,ECXPTYPE,ECXREL,ECXSBGRP,ECXUESTA
+"RTN","ECXKILL1",33,0)
+ K ECXPRV1,ECXPRV2,ECXPRV3,ECXPRV4,ECXPRV5,ECXPRV6,ECXPRV7,ECXPPC4,ECXPPC5,ECXPPC6,ECXPPC7,ECPR1NPI
+"RTN","ECXKILL1",34,0)
+ K ECPR2NPI,ECPR3NPI,ECPR4NPI,ECPR5NPI,ECPR6NPI,ECPR7NPI,COUNT,ECTHLD,ECXOPT
+"RTN","ECXKILL1",35,0)
+ K ECXICD91,ECXICD92,ECXICD93,ECXICD94,ECSP1,ECSP2,ECSP3,ECSP4,ECSP5,ECSP6,ECSP7
+"RTN","ECXKILL1",36,0)
+ K ECSPPC1,ECSPPC2,ECSPPC3,ECSPPC4,ECSPPC5,ECSPPC6,ECSPPC7,ECSPNPI1,ECSPNPI2,ECSPNPI3,ECSPNPI4,ECSPNPI5,ECSPNPI6,ECSPNPI7
+"RTN","ECXKILL1",37,0)
+ K ECXUNIT,ECXVIET,CNT,I,ECXCFLG,ECXBUK1,ECXBUK2,PROVS,PROVSPC,PROVSNPI
+"RTN","ECXKILL1",38,0)
+ K ECU4,ECU5,ECU6,ECU7,ECU4A,ECU5A,ECU6A,ECU7A,ECU4NPI,ECU5NPI,ECU6NPI,ECU7NPI,COUNTS,ALEN,ECPRNPI,ECXCBOC,ECXHNC,ECXICD9P,ECXOBI,ECXPCPNP,ECXTI,ECXVISIT,ECXVIST
+"RTN","ECXKILL1",39,0)
+ K ECXCPT,ECXCPT1,ECXCPT2,ECXCPT3,ECXCPT4,ECXCPT5,ECXCPT6,ECXCPT7,ECXCPT8,ECTOTC,ECTYP,ECPRVNPI,ECXNPPDC,ECXSTAT2,PT1
+"RTN","ECXKILL1",40,0)
+ K DIVISION,DONE,ECDAY,ECENEC,ECENMST,ECENRI,ECENSC,ECHL2,ECHL2S,ECHLS,ECTIME,ECXADD,ECXATNPI,ECXJ,ECXMNS,ECXMOD,ECXNPPDT,ECXOS,ECXPPC,ECXQV,ECXTM,ECXVST,ELGA,FHDFN,GTOT,LASTDAY,PRODAY,SDATE
+"RTN","ECXKILL1",41,0)
+ K ECXICD101,ECXICD102,ECXICD103,ECXICD104,ECXICD10P,ECXOPPC,ECXNEW,ECXOPPC,ECXCL,ECXCLS,ECXCOMP,ECXBCDD,ECXBCDG,ECXBCIF,ECXBCUA,ECVOL
+"RTN","ECXKILL1",42,0)
+ Q
+"RTN","ECXLABN")
+0^53^B46690965^B44530777
+"RTN","ECXLABN",1,0)
+ECXLABN ;ALB/JAP,BIR/CML-Lab Extract for DSS (New Format - With LMIP Codes) ;4/30/13 12:33
+"RTN","ECXLABN",2,0)
+ ;;3.0;DSS EXTRACTS;**1,11,8,13,28,24,30,31,32,33,39,42,46,70,71,80,92,107,105,112,127,132,144**;Dec 22, 1997;Build 9
+"RTN","ECXLABN",3,0)
+BEG ;entry point
+"RTN","ECXLABN",4,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXLABN",5,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXLABN",6,0)
+ Q
+"RTN","ECXLABN",7,0)
+ ;
+"RTN","ECXLABN",8,0)
+START ; entry when queued
+"RTN","ECXLABN",9,0)
+ K ^LRO(64.03),^TMP($J,"ECXP")
+"RTN","ECXLABN",10,0)
+ N ECDOCPC
+"RTN","ECXLABN",11,0)
+ S LRSDT=ECSD,LREDT=ECED,QFLG=0
+"RTN","ECXLABN",12,0)
+ D ^LRCAPDSS
+"RTN","ECXLABN",13,0)
+ ;quit if no completion date for API compile
+"RTN","ECXLABN",14,0)
+ I '$P($G(^LRO(64.03,1,1,1,0)),U,4) Q
+"RTN","ECXLABN",15,0)
+ ;quit if tasked and user sends stop request
+"RTN","ECXLABN",16,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD D Q
+"RTN","ECXLABN",17,0)
+ .S QFLG=1
+"RTN","ECXLABN",18,0)
+ .K ^LRO(64.03) S ^LRO(64.03,0)="WKLD LOG FILE^64.03^"
+"RTN","ECXLABN",19,0)
+ ;otherwise, continue
+"RTN","ECXLABN",20,0)
+ K ECXDD D FIELD^DID(64.03,1,,"SPECIFIER","ECXDD")
+"RTN","ECXLABN",21,0)
+ S ECPROF=$E(+$P(ECXDD("SPECIFIER"),"P",2)),ECLRN=1 K ECXDD
+"RTN","ECXLABN",22,0)
+ F S ECLRN=$O(^LRO(64.03,ECLRN)) Q:'ECLRN D Q:QFLG
+"RTN","ECXLABN",23,0)
+ .Q:'$D(^LRO(64.03,ECLRN,0))
+"RTN","ECXLABN",24,0)
+ .S EC1=^LRO(64.03,ECLRN,0),ECDOC=ECPROF_$P(EC1,U,2)
+"RTN","ECXLABN",25,0)
+ .S ECDOCNPI=$$NPI^XUSNPI("Individual_ID",$P(EC1,U,2),$P(EC1,U,4))
+"RTN","ECXLABN",26,0)
+ .S:+ECDOCNPI'>0 ECDOCNPI="" S ECDOCNPI=$P(ECDOCNPI,U)
+"RTN","ECXLABN",27,0)
+ .S ECLOC=$P(EC1,U,15),EC=$P(EC1,U,3),ECDOCPC=$$PRVCLASS^ECXUTL($P(EC1,U,2),$P(EC1,U,4))
+"RTN","ECXLABN",28,0)
+ .I EC]"" D GET
+"RTN","ECXLABN",29,0)
+ K ^LRO(64.03),^TMP($J,"ECXP") S ^LRO(64.03,0)="WKLD LOG FILE^64.03^"
+"RTN","ECXLABN",30,0)
+ K ECDOCNPI,ECXAGC,ECXL1,ECXL2
+"RTN","ECXLABN",31,0)
+ Q
+"RTN","ECXLABN",32,0)
+ ;
+"RTN","ECXLABN",33,0)
+GET ;get data
+"RTN","ECXLABN",34,0)
+ N X,ECXSTN,QFLAG,ECXDFN,ECXESC,ECXCLST ;144
+"RTN","ECXLABN",35,0)
+ S (ECXESC,ECXCLST)="" ;144
+"RTN","ECXLABN",36,0)
+ S ECF=$S($P(EC,";",2)="DPT(":2,$P(EC,";",2)="LRT(67,":67,1:0) Q:'ECF
+"RTN","ECXLABN",37,0)
+ S ECIFN=$P(EC,";"),QFLAG=0
+"RTN","ECXLABN",38,0)
+ ;resolve ecloc
+"RTN","ECXLABN",39,0)
+ S ECXL1=+$P(ECLOC,";",1),ECXL2=$P(ECLOC,";",2)
+"RTN","ECXLABN",40,0)
+ I ECF=2 S ECLOC=$S(ECXL1>0:ECXL1,1:"") I ECXL2]"",ECXL2'="SC(" S ECLOC=""
+"RTN","ECXLABN",41,0)
+ I ECF=67 D S ECLOC=ECXSTN
+"RTN","ECXLABN",42,0)
+ .S (ECXSTN,ECXAGC)=""
+"RTN","ECXLABN",43,0)
+ .I (ECXL2'="DIC(4,")!('$D(^DIC(4,ECXL1))) S ECXSTN="XXXXX",ECXAGC="XX" Q
+"RTN","ECXLABN",44,0)
+ .S ECXSTN=$P(^DIC(4,ECXL1,"99"),U,1),ECXAGC=$E($P(^(99),U,5),1,2)
+"RTN","ECXLABN",45,0)
+ .S:ECXSTN="" ECXSTN="ZZZZZ" S:ECXAGC="" ECXAGC="ZZ"
+"RTN","ECXLABN",46,0)
+ S ECDT=$P(EC1,U,13),ECD=$P(ECDT,"."),ECTM=$$ECXTIME^ECXUTL(ECDT)
+"RTN","ECXLABN",47,0)
+ S ECWKLD=$P(EC1,U,11),ECWK="" I $D(^LAM(ECWKLD,0)) S ECWK=$P(^(0),U,2)
+"RTN","ECXLABN",48,0)
+ S (ECXADMDT,ECTREAT,ECNA,ECSN,ECMN,ECPTTM,ECPTPR,ECCLAS)="",ECA="O",ECXERR=0
+"RTN","ECXLABN",49,0)
+ S (ECPTNPI,ECASPR,ECCLAS2,ECASNPI)=""
+"RTN","ECXLABN",50,0)
+ ;get the patient data if record is in file #2
+"RTN","ECXLABN",51,0)
+ I ECF=2 D PAT(ECIFN,ECDT,.ECXERR) S ECXDFN=ECIFN
+"RTN","ECXLABN",52,0)
+ Q:ECXERR
+"RTN","ECXLABN",53,0)
+ ;get patient data if record is in file #67
+"RTN","ECXLABN",54,0)
+ I ECF=67 S ECSN="000123456",ECNA="RFRL",ECXDFN=0 I $D(^LRT(67,ECIFN,0)) D Q:QFLAG
+"RTN","ECXLABN",55,0)
+ .S ECXMPI="",EC0=^LRT(67,ECIFN,0),ECNA=$E($P($P(EC0,U),",")_" ",1,4)
+"RTN","ECXLABN",56,0)
+ .S ECSN=$P(EC0,U,9),ECXERI="" D
+"RTN","ECXLABN",57,0)
+ ..S ECNA=$TR(ECNA,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
+"RTN","ECXLABN",58,0)
+ ..I ECSN="" S ECSN="000123456" Q
+"RTN","ECXLABN",59,0)
+ ..S ECSN=$TR(ECSN," "),ECSN=$TR(ECSN,"-")
+"RTN","ECXLABN",60,0)
+ ..I ($L(ECSN)<9)!($L(ECSN)>10) S ECSN="000123456" Q
+"RTN","ECXLABN",61,0)
+ ..I $L(ECSN)=9,ECSN'?9N S ECSN="000123456" Q
+"RTN","ECXLABN",62,0)
+ ..I $L(ECSN)=10,ECSN'?9N1"P" S ECSN="000123456"
+"RTN","ECXLABN",63,0)
+ ..I '$$SSN^ECXUTL5(ECSN,ECF) S QFLAG=1
+"RTN","ECXLABN",64,0)
+ ;
+"RTN","ECXLABN",65,0)
+ ;- Only set treating spec (TS) to TS in file #64.03 if it does not exist
+"RTN","ECXLABN",66,0)
+ I ECA="I",ECTREAT="" S ECTREAT=$P($G(^DIC(45.7,+$P(EC1,U,10),0)),U,2)
+"RTN","ECXLABN",67,0)
+ S (ECXDOM,ECXDSSD)=""
+"RTN","ECXLABN",68,0)
+ S X=$G(^ECX(727.831,+ECTREAT,0)) S:X'="" ECXDOM=$P(X,U,2)
+"RTN","ECXLABN",69,0)
+ ;
+"RTN","ECXLABN",70,0)
+ ;- Get ordering stop code and ordering date
+"RTN","ECXLABN",71,0)
+ S ECXORDST=+$P(EC1,U,15),ECXORDST=$S(ECXORDST:$P($G(^ECX(728.44,ECXORDST,0)),U,2),1:"")
+"RTN","ECXLABN",72,0)
+ S ECXORDDT=$S($P(EC1,U,14):$$ECXDATE^ECXUTL($P(EC1,U,14),ECXYM),1:"")
+"RTN","ECXLABN",73,0)
+ ;
+"RTN","ECXLABN",74,0)
+ ;- Get Production Division - ECXDIEN added p-80
+"RTN","ECXLABN",75,0)
+ N ECXPDIV,ECXDIEN S ECXDIEN=$O(^DIC(4,"D",ECINST,"")),ECXPDIV=$$RADDIV^ECXDEPT(ECXDIEN) ;P-46
+"RTN","ECXLABN",76,0)
+ K ECXDIEN
+"RTN","ECXLABN",77,0)
+ ;
+"RTN","ECXLABN",78,0)
+ ;- Observation patient indicator (YES/NO)
+"RTN","ECXLABN",79,0)
+ S ECXOBS=$$OBSPAT^ECXUTL4(ECA,ECTREAT)
+"RTN","ECXLABN",80,0)
+ ; ******* - PATCH 127, ADD PATCAT CODE ********
+"RTN","ECXLABN",81,0)
+ S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXLABN",82,0)
+ ;
+"RTN","ECXLABN",83,0)
+ ;- get lab billable procedure, dss feeder key, data name, and data location
+"RTN","ECXLABN",84,0)
+ N ECXLEX
+"RTN","ECXLABN",85,0)
+ S ECXLEX="" I $D(^LRO(64.03,ECLRN,2)) S ECXLEX=^(2)
+"RTN","ECXLABN",86,0)
+ S ECLRBILL=$P(ECXLEX,U),ECDSSFK=$P(ECXLEX,U,2)
+"RTN","ECXLABN",87,0)
+ S ECLRTNM=$P(ECXLEX,U,3),ECLRDTNM=$P(ECXLEX,U,4)
+"RTN","ECXLABN",88,0)
+ ;- If no encounter number don't file record
+"RTN","ECXLABN",89,0)
+ S ECXENC=$$ENCNUM^ECXUTL4(ECA,ECSN,ECXADMDT,ECD,ECTREAT,ECXOBS,ECHEAD,,) Q:ECXENC=""
+"RTN","ECXLABN",90,0)
+ ;create extract record only if patient name and accession area exist
+"RTN","ECXLABN",91,0)
+ I ECNA]"" S ECT=$P(EC1,U,8),ECURG=$P(EC1,U,9),EC=+$P(EC1,U,7) I EC D
+"RTN","ECXLABN",92,0)
+ .S:ECF=2 ECACA=EC_U_$P($G(^LRO(68,EC,0)),U,11)
+"RTN","ECXLABN",93,0)
+ .S:ECF=67 ECACA=ECXAGC_U_$P($G(^LRO(68,EC,0)),U,11)
+"RTN","ECXLABN",94,0)
+ .;--getting LOINC Code
+"RTN","ECXLABN",95,0)
+ .N ECXLNC,ECLRID,LRIFN,LRIDT,ECRSLT,ECRSP8
+"RTN","ECXLABN",96,0)
+ .S ECXLNC="",ECLRID=0
+"RTN","ECXLABN",97,0)
+ .;--getting lab patient id
+"RTN","ECXLABN",98,0)
+ .S LRIFN=+$P(EC1,U,3)
+"RTN","ECXLABN",99,0)
+ .I ECF=2 S:$D(^DPT(LRIFN,"LR")) ECLRID=^DPT(LRIFN,"LR")
+"RTN","ECXLABN",100,0)
+ .I ECF=67 S:$D(^LRT(67,LRIFN,"LR")) ECLRID=^LRT(67,LRIFN,"LR")
+"RTN","ECXLABN",101,0)
+ .; using ECINST=institution, LRIFN=lab file patient id, EC=test (pt 60), LRIDT=date and time to get loinc
+"RTN","ECXLABN",102,0)
+ .S LRIDT=$P(EC1,U,12)
+"RTN","ECXLABN",103,0)
+ .;--looking up test to find subscript to lookup value
+"RTN","ECXLABN",104,0)
+ .D
+"RTN","ECXLABN",105,0)
+ ..N ECTST S ECTST=$P(EC1,U,8)
+"RTN","ECXLABN",106,0)
+ ..S ECPT=$S($D(^LAB(60,ECTST,0)):$P(^LAB(60,ECTST,0),U,12),1:""),ECPT=$P(ECPT,",",2)
+"RTN","ECXLABN",107,0)
+ ..Q:$G(ECPT)']"" Q:'$D(^LR(ECLRID,"CH",LRIDT,ECPT))
+"RTN","ECXLABN",108,0)
+ ..S ECRSLT=$$TSTRES^LRRPU(ECLRID,"CH",LRIDT,ECPT,"",1) ;DBIA #4658
+"RTN","ECXLABN",109,0)
+ ..S ECRSP8=$P(ECRSLT,U,8)
+"RTN","ECXLABN",110,0)
+ ..S ECXLNC=$P($P(ECRSP8,"!",3),";")
+"RTN","ECXLABN",111,0)
+ ..Q:$G(ECXLNC)']""
+"RTN","ECXLABN",112,0)
+ .D FILE
+"RTN","ECXLABN",113,0)
+ Q
+"RTN","ECXLABN",114,0)
+ ;
+"RTN","ECXLABN",115,0)
+PAT(ECXDFN,ECXDATE,ECXERR) ;get/set patient data
+"RTN","ECXLABN",116,0)
+ N X,OK,PT
+"RTN","ECXLABN",117,0)
+ ;get data
+"RTN","ECXLABN",118,0)
+ I $D(^TMP($J,"ECXP",ECXDFN)) D
+"RTN","ECXLABN",119,0)
+ .S PT=^TMP($J,"ECXP",ECXDFN),ECNA=$P(PT,U)
+"RTN","ECXLABN",120,0)
+ .S ECSN=$P(PT,U,2),ECXMPI=$P(PT,U,3),ECXERI=$P(PT,U,4),ECXCLST=$P(PT,U,5) ;144
+"RTN","ECXLABN",121,0)
+ ;set data and save for later
+"RTN","ECXLABN",122,0)
+ I '$D(^TMP($J,"ECXP",ECXDFN)) D Q:'OK
+"RTN","ECXLABN",123,0)
+ .K ECXPAT S OK=$$PAT^ECXUTL3(ECXDFN,$P(ECSD,"."),"1;3",.ECXPAT)
+"RTN","ECXLABN",124,0)
+ .I 'OK S ECXERR=1 Q
+"RTN","ECXLABN",125,0)
+ .S ECNA=ECXPAT("NAME"),ECSN=ECXPAT("SSN"),ECXMPI=ECXPAT("MPI")
+"RTN","ECXLABN",126,0)
+ .S ECXERI=ECXPAT("ERI")
+"RTN","ECXLABN",127,0)
+ .S ECXCLST=ECXPAT("CL STAT") ;144
+"RTN","ECXLABN",128,0)
+ .S ^TMP($J,"ECXP",ECXDFN)=ECNA_U_ECSN_U_ECXMPI_U_ECXERI_U_ECXCLST ;144
+"RTN","ECXLABN",129,0)
+ ;get date specific data
+"RTN","ECXLABN",130,0)
+ S X=$$INP^ECXUTL2(ECXDFN,ECXDATE),ECA=$P(X,U),ECMN=$P(X,U,2),ECTREAT=$P(X,U,3),ECXADMDT=$P(X,U,4)
+"RTN","ECXLABN",131,0)
+ S X=$$PRIMARY^ECXUTL2(ECXDFN,$P(ECXDATE,"."),ECPROF)
+"RTN","ECXLABN",132,0)
+ S ECPTTM=$P(X,U,1),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4)
+"RTN","ECXLABN",133,0)
+ S ECASPR=$P(X,U,5),ECCLAS2=$P(X,U,6),ECASNPI=$P(X,U,7)
+"RTN","ECXLABN",134,0)
+ Q
+"RTN","ECXLABN",135,0)
+ ;
+"RTN","ECXLABN",136,0)
+FILE ;file record
+"RTN","ECXLABN",137,0)
+ ;node0
+"RTN","ECXLABN",138,0)
+ ;facility^patient number^SSN (or equivalent)^name^in/out ECA^
+"RTN","ECXLABN",139,0)
+ ;day^accession area^abbreviation^test^urgency^treating spec^
+"RTN","ECXLABN",140,0)
+ ;location^provider and file^
+"RTN","ECXLABN",141,0)
+ ;movement number^file^time^workload code^primary care team^
+"RTN","ECXLABN",142,0)
+ ;primary care provider
+"RTN","ECXLABN",143,0)
+ ;node1
+"RTN","ECXLABN",144,0)
+ ;mpi^dss dept^provider npi^pc provider npi^pc prov person class^
+"RTN","ECXLABN",145,0)
+ ;assoc pc prov^assoc pc prov person class^assoc pc prov npi^
+"RTN","ECXLABN",146,0)
+ ;dom ECXDOM^observ pat ind ECXOBS^encounter num ECXENC^
+"RTN","ECXLABN",147,0)
+ ;ord stop code ECXORDST^ord date ECXORDDT^production division
+"RTN","ECXLABN",148,0)
+ ;ECXPDIV^^ordering provider person class^emergency response indicator
+"RTN","ECXLABN",149,0)
+ ;(FEMA) ECXERI^associate pc provider npi ECASNPI^primary care provider
+"RTN","ECXLABN",150,0)
+ ;npi ECPTNPI^provider npi ECDOCNPI^LOINC code ECLNC^lab billable procedure^dss feeder key
+"RTN","ECXLABN",151,0)
+ ;node2
+"RTN","ECXLABN",152,0)
+ ;data name^data location^PATCAT^Encounter SC ECXESC^Camp Lejeune Status ECXCLST
+"RTN","ECXLABN",153,0)
+ ;ECDOCPC
+"RTN","ECXLABN",154,0)
+ N DA,DIK
+"RTN","ECXLABN",155,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXLABN",156,0)
+ S ECODE=EC7_U_EC23_U_ECINST_U_ECIFN_U_ECSN_U_ECNA_U_ECA_U
+"RTN","ECXLABN",157,0)
+ S ECODE=ECODE_$$ECXDATE^ECXUTL(ECD,ECXYM)_U_ECACA_U_ECT_U_ECURG_U
+"RTN","ECXLABN",158,0)
+ ;convert specialty to PTF Code for transmission
+"RTN","ECXLABN",159,0)
+ N ECXDATA
+"RTN","ECXLABN",160,0)
+ S ECXDATA=$$TSDATA^DGACT(42.4,+ECTREAT,.ECXDATA)
+"RTN","ECXLABN",161,0)
+ S ECTREAT=$G(ECXDATA(7))
+"RTN","ECXLABN",162,0)
+ ;convert eclrbill to y/n
+"RTN","ECXLABN",163,0)
+ S ECLRBILL=$S(ECLRBILL=1:"Y",1:"N")
+"RTN","ECXLABN",164,0)
+ ;convert ecdssfk to y/n
+"RTN","ECXLABN",165,0)
+ S ECDSSFK=$S(ECDSSFK=1:"Y",1:"")
+"RTN","ECXLABN",166,0)
+ ;done
+"RTN","ECXLABN",167,0)
+ S ECODE=ECODE_ECTREAT_U_ECLOC_U_ECDOC_U_ECMN_U_ECF_U_ECTM_U_ECWK_U
+"RTN","ECXLABN",168,0)
+ S ECODE=ECODE_ECPTTM_U_ECPTPR_U
+"RTN","ECXLABN",169,0)
+ ;(ECACA=acc area^abbreviation)
+"RTN","ECXLABN",170,0)
+ S ECODE1=ECXMPI_U_ECXDSSD_U_U_U_ECCLAS_U_ECASPR_U_ECCLAS2_U_U_ECXDOM_U_ECXOBS_U_ECXENC_U
+"RTN","ECXLABN",171,0)
+ S ECODE1=ECODE1_ECXORDST_U_ECXORDDT_U_ECXPDIV_U
+"RTN","ECXLABN",172,0)
+ I ECXLOGIC>2004 S ECODE1=ECODE1_U_ECDOCPC
+"RTN","ECXLABN",173,0)
+ I ECXLOGIC>2006 S ECODE1=ECODE1_U_ECXERI
+"RTN","ECXLABN",174,0)
+ I ECXLOGIC>2007 S ECODE1=ECODE1_U_ECASNPI_U_ECPTNPI_U_ECDOCNPI
+"RTN","ECXLABN",175,0)
+ I ECXLOGIC>2008 S ECODE1=ECODE1_U_$G(ECXLNC)
+"RTN","ECXLABN",176,0)
+ I ECXLOGIC>2010 S ECODE1=ECODE1_U_ECLRBILL_U_ECDSSFK_U,ECODE2=ECLRTNM_U_ECLRDTNM_U_ECXPATCAT
+"RTN","ECXLABN",177,0)
+ I ECXLOGIC>2013 S ECODE2=ECODE2_U_ECXESC_U_ECXCLST ;144
+"RTN","ECXLABN",178,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2),ECRN=ECRN+1
+"RTN","ECXLABN",179,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXLABN",180,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1
+"RTN","ECXLABN",181,0)
+ Q
+"RTN","ECXLABN",182,0)
+ ;
+"RTN","ECXLABN",183,0)
+SETUP ;Set required input for ECXTRAC
+"RTN","ECXLABN",184,0)
+ S ECHEAD="LAB"
+"RTN","ECXLABN",185,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXLABN",186,0)
+ Q
+"RTN","ECXLABN",187,0)
+ ;
+"RTN","ECXLABN",188,0)
+QUE ; entry point for the background requeuing handled by ECXTAUTO
+"RTN","ECXLABN",189,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL Q
+"RTN","ECXLABR")
+0^54^B22824878^B21203653
+"RTN","ECXLABR",1,0)
+ECXLABR ;ALB/JAP,BIR/CML-LAR Extract for DSS (New Format - With LMIP Codes) ;5/9/13 16:59
+"RTN","ECXLABR",2,0)
+ ;;3.0;DSS EXTRACTS;**8,24,33,37,39,46,71,80,107,105,112,127,144**;Dec 22, 1997;Build 9
+"RTN","ECXLABR",3,0)
+BEG ;entry point from option
+"RTN","ECXLABR",4,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXLABR",5,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXLABR",6,0)
+ Q
+"RTN","ECXLABR",7,0)
+ ;
+"RTN","ECXLABR",8,0)
+START ; entry when queued
+"RTN","ECXLABR",9,0)
+ N X,OK,ECTRS,ECTRANS,ECTRIEN,ECDOC,ECDOCPC,ECXESC,ECXECL,ECXCLST,ECCLASS,ECRETM,ECREDT,ECSCDT,ECSCTM ;144
+"RTN","ECXLABR",10,0)
+ K ^LAR(64.036) S LRSDT=ECSD,LREDT=ECED
+"RTN","ECXLABR",11,0)
+ D ^LRCAPDAR
+"RTN","ECXLABR",12,0)
+ ;quit if no completion date for API compile
+"RTN","ECXLABR",13,0)
+ I '$P($G(^LAR(64.036,1,2,1,0)),U,4) Q
+"RTN","ECXLABR",14,0)
+ ;process temporary lab file #64.036
+"RTN","ECXLABR",15,0)
+ S QFLG=0,ECLRN=1
+"RTN","ECXLABR",16,0)
+ F S ECLRN=$O(^LAR(64.036,ECLRN)) Q:('ECLRN)!(QFLG) D
+"RTN","ECXLABR",17,0)
+ .I $D(^LAR(64.036,ECLRN,0)) D
+"RTN","ECXLABR",18,0)
+ ..S EC1=^LAR(64.036,ECLRN,0),ECF=$P(EC1,U,2)
+"RTN","ECXLABR",19,0)
+ ..Q:ECF=""
+"RTN","ECXLABR",20,0)
+ ..S (ECXESC,ECXECL,ECXCLST)="" ;144
+"RTN","ECXLABR",21,0)
+ ..S ECXDFN=$P(EC1,U,3),ECPTPR=$P($G(EC1),U,11),ECCLASS=""
+"RTN","ECXLABR",22,0)
+ ..S ECXTIME=$S($P(EC1,U,10)="":"000300",1:$P(EC1,U,10))
+"RTN","ECXLABR",23,0)
+ ..S ECXDATE=$P(EC1,U,9)_"."_$P(EC1,U,10)
+"RTN","ECXLABR",24,0)
+ ..I ECPTPR S ECCLASS=$$PRVCLASS^ECXUTL(ECPTPR,ECXDATE)
+"RTN","ECXLABR",25,0)
+ ..I ECPTPR S ECPTNPI=$$NPI^XUSNPI("Individual_ID",ECPTPR,+ECXDATE) D
+"RTN","ECXLABR",26,0)
+ ...S:+ECPTNPI'>0 ECPTNPI="" S ECPTNPI=$P(ECPTNPI,U)
+"RTN","ECXLABR",27,0)
+ ..S ECORDT=$$ECXDATE^ECXUTL($P(EC1,U,4),ECXYM)
+"RTN","ECXLABR",28,0)
+ ..S ECORTM=$$ECXTIME^ECXUTL($P(EC1,U,4)_"."_$P(EC1,U,5))
+"RTN","ECXLABR",29,0)
+ ..S ECREDT=$$ECXDATE^ECXUTL($P(EC1,U,6),ECXYM)
+"RTN","ECXLABR",30,0)
+ ..S ECRETM=$$ECXTIME^ECXUTL($P(EC1,U,6)_"."_$P(EC1,U,7))
+"RTN","ECXLABR",31,0)
+ ..S ECSCDT=$$ECXDATE^ECXUTL($P(EC1,U,9),ECXYM)
+"RTN","ECXLABR",32,0)
+ ..S ECSCTM=$$ECXTIME^ECXUTL($P(EC1,U,9)_"."_$P(EC1,U,10))
+"RTN","ECXLABR",33,0)
+ ..S (ECXADMDT,ECXDOM,ECXDSSD,ECXPNM,ECXSSN,ECXA,ECXMN,ECXTS)=""
+"RTN","ECXLABR",34,0)
+ ..I ECF=2 D Q:'OK
+"RTN","ECXLABR",35,0)
+ ...K ECXPAT S OK=$$PAT^ECXUTL3(ECXDFN,ECXDATE,"1;",.ECXPAT)
+"RTN","ECXLABR",36,0)
+ ...Q:'OK
+"RTN","ECXLABR",37,0)
+ ...S ECXPNM=ECXPAT("NAME"),ECXSSN=ECXPAT("SSN"),ECXMPI=ECXPAT("MPI")
+"RTN","ECXLABR",38,0)
+ ...S X=$$INP^ECXUTL2(ECXDFN,ECXDATE),ECXA=$P(X,U),ECXADMDT=$P(X,U,4)
+"RTN","ECXLABR",39,0)
+ ...S ECXMN=$P(X,U,2),ECXTS=$P(X,U,3),ECXDOM=$P(X,U,10)
+"RTN","ECXLABR",40,0)
+ ...S ECXCLST=ECXPAT("CL STAT") ;144
+"RTN","ECXLABR",41,0)
+ ..;allow for referral patients in future??
+"RTN","ECXLABR",42,0)
+ ..;I ECF=67 S ECSN="000123456",ECNA="RFRL"
+"RTN","ECXLABR",43,0)
+ ..;loop on results multiple
+"RTN","ECXLABR",44,0)
+ ..;
+"RTN","ECXLABR",45,0)
+ ..;Get production division ECXDIEN added p-80
+"RTN","ECXLABR",46,0)
+ ..N ECXPDIV,ECXDIEN S ECXDIEN=$O(^DIC(4,"D",ECINST,"")),ECXPDIV=$$RADDIV^ECXDEPT(ECXDIEN) ;p-46
+"RTN","ECXLABR",47,0)
+ ..K ECXDIEN
+"RTN","ECXLABR",48,0)
+ ..;- Observation patient indicator (y/n)
+"RTN","ECXLABR",49,0)
+ ..S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS)
+"RTN","ECXLABR",50,0)
+ ..;
+"RTN","ECXLABR",51,0)
+ ..;- If no encounter number don't file record
+"RTN","ECXLABR",52,0)
+ ..S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,$P(EC1,U,9),ECXTS,ECXOBS,ECHEAD,,) Q:ECXENC=""
+"RTN","ECXLABR",53,0)
+ ..S ECRES=0
+"RTN","ECXLABR",54,0)
+ ..F S ECRES=$O(^LAR(64.036,ECLRN,1,ECRES)) Q:('ECRES)!(QFLG) D
+"RTN","ECXLABR",55,0)
+ ...I $D(^LAR(64.036,ECLRN,1,ECRES,0)) D Q:QFLG
+"RTN","ECXLABR",56,0)
+ ....S EC2=^LAR(64.036,ECLRN,1,ECRES,0),ECN=$P(EC2,U),ECRS=$P(EC2,U,2)
+"RTN","ECXLABR",57,0)
+ ....S ECHL=$E($P(EC2,U,3)),ECWC=+$P(EC2,U,4)
+"RTN","ECXLABR",58,0)
+ ....I ECWC S ECWC=$P(^LAM(ECWC,0),U,2)
+"RTN","ECXLABR",59,0)
+ ....S ECLNC=$P(EC2,U,5)
+"RTN","ECXLABR",60,0)
+ .... ; ******* - PATCH 127, ADD PATCAT CODE
+"RTN","ECXLABR",61,0)
+ ....S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXLABR",62,0)
+ ....;
+"RTN","ECXLABR",63,0)
+ ....; - Free text results translation
+"RTN","ECXLABR",64,0)
+ ....S ECTRANS="",ECTRS=ECRS
+"RTN","ECXLABR",65,0)
+ ....I +ECTRS S ECTRS=$TR(ECTRS,",","") D
+"RTN","ECXLABR",66,0)
+ .....I (ECTRS?.N)!(ECTRS?.N1".".N) S ECRS=ECTRS
+"RTN","ECXLABR",67,0)
+ ....F Q:$E(ECTRS,1)'=" " S ECTRS=$E(ECTRS,2,$L(ECTRS))
+"RTN","ECXLABR",68,0)
+ ....F Q:$E(ECTRS,$L(ECTRS))'=" " S ECTRS=$E(ECTRS,1,($L(ECTRS)-1))
+"RTN","ECXLABR",69,0)
+ ....I ECTRS]"" I ECTRS'?.N I ECTRS'?.N1".".N D ;translate
+"RTN","ECXLABR",70,0)
+ .....S ECTRS=$TR(ECRS,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
+"RTN","ECXLABR",71,0)
+ .....S ECTRIEN="",ECTRIEN=$O(^ECX(727.7,"B",ECTRS,ECTRIEN))
+"RTN","ECXLABR",72,0)
+ .....S ECTRANS=$S(ECTRIEN:$P(^ECX(727.7,ECTRIEN,0),U,2),1:5)
+"RTN","ECXLABR",73,0)
+ ....;
+"RTN","ECXLABR",74,0)
+ ....I ECWC]"" D FILE
+"RTN","ECXLABR",75,0)
+ K ^LAR(64.036) S ^LAR(64.036,0)="LAB DSS LAR EXTRACT^64.036^"
+"RTN","ECXLABR",76,0)
+ Q
+"RTN","ECXLABR",77,0)
+ ;
+"RTN","ECXLABR",78,0)
+FILE ;file record
+"RTN","ECXLABR",79,0)
+ ;node0
+"RTN","ECXLABR",80,0)
+ ;facility (ECINST)^dfn (ECXDFN)^ssn (ECXSSN)^name(ECXPNM)^in/out (ECXA)^
+"RTN","ECXLABR",81,0)
+ ;day(ECSCDT)^
+"RTN","ECXLABR",82,0)
+ ;lab test code (ECN)^results (ECRS)^hi/lo indicator (ECHL)^
+"RTN","ECXLABR",83,0)
+ ;date ordered (ECORDT)^time ordered (ECORTM)^date ready (ECREDT)^
+"RTN","ECXLABR",84,0)
+ ;time ready (ECRETM)^
+"RTN","ECXLABR",85,0)
+ ;movement file # (ECXMN)^treating specialty (ECXTS)^
+"RTN","ECXLABR",86,0)
+ ;workload code(ECWC)^
+"RTN","ECXLABR",87,0)
+ ;node1
+"RTN","ECXLABR",88,0)
+ ;mpi (ECXMPI)^dss dept (ECXDSSD)^dom (ECXDOM)^time (ECSCTM)^
+"RTN","ECXLABR",89,0)
+ ;observ pat ind (ECXOBS)^encounter num (ECXENC)^prod div ECXPDIV^
+"RTN","ECXLABR",90,0)
+ ;lab results translation ECXTRANS^ordering provider (ECPTPR)^
+"RTN","ECXLABR",91,0)
+ ;ordering provider person class (ECCLASS)^ordering provider npi ECPTNPI^LOINC code ECLNC
+"RTN","ECXLABR",92,0)
+ ;Patient Category PATCAT^Encounter SC ECXESC^Camp Lejeune Status ECXCLST^Encounter Camp Lejeune ECXECL
+"RTN","ECXLABR",93,0)
+ N DA,DIK
+"RTN","ECXLABR",94,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXLABR",95,0)
+ S ECODE=EC7_U_EC23_U_ECINST_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U
+"RTN","ECXLABR",96,0)
+ S ECODE=ECODE_ECSCDT_U_$$RJ^XLFSTR(ECN,4,0)_U_ECRS_U_ECHL_U_ECORDT_U
+"RTN","ECXLABR",97,0)
+ S ECODE=ECODE_$$LJ^XLFSTR(ECORTM,6,0)_U
+"RTN","ECXLABR",98,0)
+ ;convert specialty to PTF Code for transmission
+"RTN","ECXLABR",99,0)
+ N ECXDATA,ECXTSC
+"RTN","ECXLABR",100,0)
+ S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA)
+"RTN","ECXLABR",101,0)
+ S ECXTSC=$G(ECXDATA(7))
+"RTN","ECXLABR",102,0)
+ ;done
+"RTN","ECXLABR",103,0)
+ S ECODE=ECODE_ECREDT_U_$$LJ^XLFSTR(ECRETM,6,0)_U_ECXMN_U_ECXTSC_U_ECWC_U
+"RTN","ECXLABR",104,0)
+ S ECODE1=ECXMPI_U_ECXDSSD_U_ECXDOM_U_ECSCTM_U_ECXOBS_U_ECXENC_U_ECXPDIV_U_ECTRANS
+"RTN","ECXLABR",105,0)
+ I ECXLOGIC>2004 S ECODE1=ECODE1_U_2_ECPTPR_U_ECCLASS
+"RTN","ECXLABR",106,0)
+ I ECXLOGIC>2007 S ECODE1=ECODE1_U_ECPTNPI
+"RTN","ECXLABR",107,0)
+ I ECXLOGIC>2008 S ECODE1=ECODE1_U_ECLNC
+"RTN","ECXLABR",108,0)
+ I ECXLOGIC>2010 S ECODE1=ECODE1_U_ECXPATCAT
+"RTN","ECXLABR",109,0)
+ I ECXLOGIC>2013 S ECODE1=ECODE1_U_ECXESC_U_ECXCLST_U_ECXECL ;144
+"RTN","ECXLABR",110,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,ECRN=ECRN+1
+"RTN","ECXLABR",111,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXLABR",112,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1
+"RTN","ECXLABR",113,0)
+ Q
+"RTN","ECXLABR",114,0)
+ ;
+"RTN","ECXLABR",115,0)
+SETUP ;Set required input for ECXTRAC
+"RTN","ECXLABR",116,0)
+ S ECHEAD="LAR"
+"RTN","ECXLABR",117,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXLABR",118,0)
+ Q
+"RTN","ECXLABR",119,0)
+ ;
+"RTN","ECXLABR",120,0)
+QUE ; entry point for the background requeuing handled by ECXTAUTO
+"RTN","ECXLABR",121,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL Q
+"RTN","ECXLARPT")
+0^42^B29347556^B22212471
+"RTN","ECXLARPT",1,0)
+ECXLARPT ;ALB/DHH-LAR Results LOINC CODE Report ;3/7/13 13:11
+"RTN","ECXLARPT",2,0)
+ ;;3.0;DSS;**112,120,144**;MAY 5, 2008;Build 9
+"RTN","ECXLARPT",3,0)
+ ;
+"RTN","ECXLARPT",4,0)
+EN ; entry point
+"RTN","ECXLARPT",5,0)
+ N X,Y,DATE,ECRUN,ECXDESC,ECXSAVE,ECXTL,ECTHLD,CNT,ECXPORT ;144
+"RTN","ECXLARPT",6,0)
+ N ECSD,ECSD1,ECSTART,ECED,ECEND,ECXERR,QFLG,ECXFLAG
+"RTN","ECXLARPT",7,0)
+ ; get today's date
+"RTN","ECXLARPT",8,0)
+ D NOW^%DTC S DATE=X,Y=$E(%,1,12) D DD^%DT S ECRUN=$P(Y,"@") K %DT
+"RTN","ECXLARPT",9,0)
+ S ECXDESC="LAB Results LOINC CODE Report"
+"RTN","ECXLARPT",10,0)
+ S ECXSAVE("EC*")=""
+"RTN","ECXLARPT",11,0)
+ S ECXPORT=$$EXPORT^ECXUTL1 Q:ECXPORT=-1 I ECXPORT D Q ;144
+"RTN","ECXLARPT",12,0)
+ .K ^TMP($J,"ECXPORT") ;144
+"RTN","ECXLARPT",13,0)
+ .S ^TMP($J,"ECXPORT",0)="LAR TEST# (#727.29)^LAR TEST NAME (#727.29)^LAR UNITS (#727.29)^LAR LOINC (#727.29)^FLAG^LOCAL TEST NAME (#64)^LOC SPEC TYPE (#64)^LOC WKLD IEN (#64)^LOC WKLD CODE (#64)" ;144
+"RTN","ECXLARPT",14,0)
+ .S CNT=1 ;144
+"RTN","ECXLARPT",15,0)
+ .D PROCESS ;144
+"RTN","ECXLARPT",16,0)
+ .D EXPDISP^ECXUTL1 ;144
+"RTN","ECXLARPT",17,0)
+ .D ^ECXKILL ;144
+"RTN","ECXLARPT",18,0)
+ W !!,"This report requires 132-column format."
+"RTN","ECXLARPT",19,0)
+ D EN^XUTMDEVQ("PROCESS^ECXLARPT",ECXDESC,.ECXSAVE)
+"RTN","ECXLARPT",20,0)
+ I POP W !!,"No device selected...exiting.",! Q
+"RTN","ECXLARPT",21,0)
+ I IO'=IO(0) D ^%ZISC
+"RTN","ECXLARPT",22,0)
+ D HOME^%ZIS
+"RTN","ECXLARPT",23,0)
+ D AUDIT^ECXKILL
+"RTN","ECXLARPT",24,0)
+ Q
+"RTN","ECXLARPT",25,0)
+ ;
+"RTN","ECXLARPT",26,0)
+ ;
+"RTN","ECXLARPT",27,0)
+PROCESS ; entry point for queued report
+"RTN","ECXLARPT",28,0)
+ S ZTREQ="@" N ECXDIV
+"RTN","ECXLARPT",29,0)
+ D DEFAULT^ECXDVSN(.ECXDIV,1,.ECXERR)
+"RTN","ECXLARPT",30,0)
+ Q:ECXERR=1
+"RTN","ECXLARPT",31,0)
+ N TNUM,DSSNM,TSTNM,SPECNM,RU,ECXLNC,LLNC,I,J,K,L,M,N,WKLD,WKLDCD,SPEC,TA,LTEST,A
+"RTN","ECXLARPT",32,0)
+ S A("ALL")=""
+"RTN","ECXLARPT",33,0)
+ D LOINC^ECXUTL6(.A)
+"RTN","ECXLARPT",34,0)
+ K ^TMP($J,"ECXLARPT")
+"RTN","ECXLARPT",35,0)
+ S ECXLNC="" F I=0:0 S ECXLNC=$O(^TMP($J,"ECXUTL6",ECXLNC)) Q:ECXLNC']"" D
+"RTN","ECXLARPT",36,0)
+ . S RU=$P(^TMP($J,"ECXUTL6",ECXLNC),U,4) S:$G(RU)="" RU="UNKNOWN"
+"RTN","ECXLARPT",37,0)
+ . S TNUM=$P(^TMP($J,"ECXUTL6",ECXLNC),U,2)
+"RTN","ECXLARPT",38,0)
+ . S DSSNM=$P(^TMP($J,"ECXUTL6",ECXLNC),U,3)
+"RTN","ECXLARPT",39,0)
+ . I '$O(^TMP($J,"ECXUTL6",ECXLNC,0)) D
+"RTN","ECXLARPT",40,0)
+ .. S ^TMP($J,"ECXLARPT",TNUM,DSSNM,"ZZZZ","ZZZZ",RU,ECXLNC)=""
+"RTN","ECXLARPT",41,0)
+ . S WKLD="" F J=0:0 S WKLD=$O(^TMP($J,"ECXUTL6",ECXLNC,WKLD)) Q:WKLD']"" D
+"RTN","ECXLARPT",42,0)
+ .. S SPEC="" F K=0:0 S SPEC=$O(^TMP($J,"ECXUTL6",ECXLNC,WKLD,SPEC)) Q:SPEC']"" D
+"RTN","ECXLARPT",43,0)
+ ... S LTEST="" F M=0:0 S LTEST=$O(^TMP($J,"ECXUTL6",ECXLNC,WKLD,SPEC,LTEST)) Q:LTEST']"" D
+"RTN","ECXLARPT",44,0)
+ .... S SPECNM=$P(^TMP($J,"ECXUTL6",ECXLNC,WKLD,SPEC,LTEST),U,2)
+"RTN","ECXLARPT",45,0)
+ .... I SPECNM="DEFAULT LOINC" Q ;ECXUTL6 default loinc not functionally correct
+"RTN","ECXLARPT",46,0)
+ .... ;I SPECNM="DEFAULT LOINC" S SPECNM="ZZDEFAULT LOINC"
+"RTN","ECXLARPT",47,0)
+ .... S TSTNM=$P(^TMP($J,"ECXUTL6",ECXLNC,WKLD,SPEC,LTEST),U,3) S:$G(TSTNM)="" TSTNM="UNKNOWN"
+"RTN","ECXLARPT",48,0)
+ .... S WKLDCD=$S($D(^LAM(WKLD,0)):$P(^(0),"^",2),1:"")
+"RTN","ECXLARPT",49,0)
+ .... S LLNC=$P(^TMP($J,"ECXUTL6",ECXLNC,WKLD,SPEC,LTEST),U,4)
+"RTN","ECXLARPT",50,0)
+ .... S ^TMP($J,"ECXLARPT",TNUM,DSSNM,TSTNM,SPECNM,RU,ECXLNC)=WKLD_"^"_WKLDCD_"^"_LLNC
+"RTN","ECXLARPT",51,0)
+ D PRINT
+"RTN","ECXLARPT",52,0)
+ Q
+"RTN","ECXLARPT",53,0)
+ ;
+"RTN","ECXLARPT",54,0)
+PRINT ; process temp file and print report
+"RTN","ECXLARPT",55,0)
+ N PG,QFLG,GTOT,LN,COUNT,VOL,SUB,REC,WKLD1
+"RTN","ECXLARPT",56,0)
+ U IO
+"RTN","ECXLARPT",57,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 K ZTREQ Q
+"RTN","ECXLARPT",58,0)
+ S (PG,QFLG,GTOT,COUNT)=0,$P(LN,"-",132)=""
+"RTN","ECXLARPT",59,0)
+ I '$G(ECXPORT) D HEADER Q:QFLG ;144
+"RTN","ECXLARPT",60,0)
+ S COUNT=COUNT+1
+"RTN","ECXLARPT",61,0)
+ S TNUM=0 F I=0:0 S TNUM=$O(^TMP($J,"ECXLARPT",TNUM)) Q:'TNUM D Q:QFLG
+"RTN","ECXLARPT",62,0)
+ . S DSSNM="" F J=0:0 S DSSNM=$O(^TMP($J,"ECXLARPT",TNUM,DSSNM)) Q:DSSNM']"" D Q:QFLG
+"RTN","ECXLARPT",63,0)
+ .. S TSTNM="" F K=0:0 S TSTNM=$O(^TMP($J,"ECXLARPT",TNUM,DSSNM,TSTNM)) Q:TSTNM']"" D Q:QFLG
+"RTN","ECXLARPT",64,0)
+ ... S SPECNM="" F L=0:0 S SPECNM=$O(^TMP($J,"ECXLARPT",TNUM,DSSNM,TSTNM,SPECNM)) Q:SPECNM']"" D Q:QFLG
+"RTN","ECXLARPT",65,0)
+ .... S RU="" F M=0:0 S RU=$O(^TMP($J,"ECXLARPT",TNUM,DSSNM,TSTNM,SPECNM,RU)) Q:RU']"" D Q:QFLG
+"RTN","ECXLARPT",66,0)
+ ..... S ECXLNC="" F N=0:0 S ECXLNC=$O(^TMP($J,"ECXLARPT",TNUM,DSSNM,TSTNM,SPECNM,RU,ECXLNC)) Q:ECXLNC']"" D Q:QFLG
+"RTN","ECXLARPT",67,0)
+ ...... S WKLD1=$P(^TMP($J,"ECXLARPT",TNUM,DSSNM,TSTNM,SPECNM,RU,ECXLNC),"^")
+"RTN","ECXLARPT",68,0)
+ ...... S WKLDCD=$P(^TMP($J,"ECXLARPT",TNUM,DSSNM,TSTNM,SPECNM,RU,ECXLNC),"^",2)
+"RTN","ECXLARPT",69,0)
+ ...... S LLNC=$P(^TMP($J,"ECXLARPT",TNUM,DSSNM,TSTNM,SPECNM,RU,ECXLNC),"^",3)
+"RTN","ECXLARPT",70,0)
+ ...... I $G(ECXPORT) D Q ;144
+"RTN","ECXLARPT",71,0)
+ ....... S ^TMP($J,"ECXPORT",CNT)=TNUM_U_DSSNM_U_RU_U_ECXLNC_U_$S(WKLD1="":"*",1:"")_U_$S(TSTNM'="ZZZZ":TSTNM,1:"")_U_$S(SPECNM'="ZZZZ":$S(SPECNM="ZZDEFAULT LOINC":"DEFAULT LOINC",1:SPECNM),1:"")_U_WKLD1_U_WKLDCD ;144
+"RTN","ECXLARPT",72,0)
+ ....... S CNT=CNT+1 ;144
+"RTN","ECXLARPT",73,0)
+ ...... W !,$$RJ^XLFSTR(TNUM,4,"0"),?11,$E(DSSNM,1,24),?37,$E(RU,1,13),?53,$$RJ^XLFSTR(ECXLNC,10," ") ;,?56,$$RJ^XLFSTR(LLNC,10," ")
+"RTN","ECXLARPT",74,0)
+ ...... I WKLD1="" W ?67,"*"
+"RTN","ECXLARPT",75,0)
+ ...... ;I SPECNM'="ZZDEFAULT LOINC",$P(LLNC,"(")'=ECXLNC W ?67,"*"
+"RTN","ECXLARPT",76,0)
+ ...... W ?71,$S(TSTNM'="ZZZZ":$E(TSTNM,1,24),1:" ")
+"RTN","ECXLARPT",77,0)
+ ...... W ?97,$S(SPECNM'="ZZZZ":$S(SPECNM="ZZDEFAULT LOINC":"DEFAULT LOINC",1:$E(SPECNM,1,13)),1:" "),?112,$$RJ^XLFSTR(WKLD1,8," "),?122,$$RJ^XLFSTR(WKLDCD,10," ")
+"RTN","ECXLARPT",78,0)
+ ...... S COUNT=COUNT+1
+"RTN","ECXLARPT",79,0)
+ ...... I $Y+3>IOSL D HEADER Q:QFLG
+"RTN","ECXLARPT",80,0)
+ I $G(ECXPORT) Q ;144 stop processing if exporting
+"RTN","ECXLARPT",81,0)
+ W !!,"FLG ('*'=site not using LOINC code that DSS collects)"
+"RTN","ECXLARPT",82,0)
+ Q:QFLG
+"RTN","ECXLARPT",83,0)
+CLOSE ;
+"RTN","ECXLARPT",84,0)
+ I $E(IOST)="C",'QFLG D
+"RTN","ECXLARPT",85,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXLARPT",86,0)
+ .S DIR(0)="E" W ! D ^DIR K DIR
+"RTN","ECXLARPT",87,0)
+ K ^TMP($J,"ECXLARPT")
+"RTN","ECXLARPT",88,0)
+ Q
+"RTN","ECXLARPT",89,0)
+ ;
+"RTN","ECXLARPT",90,0)
+HEADER ;header and page control
+"RTN","ECXLARPT",91,0)
+ N SS,JJ
+"RTN","ECXLARPT",92,0)
+ I $E(IOST)="C" D
+"RTN","ECXLARPT",93,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXLARPT",94,0)
+ .I PG>0 S DIR(0)="E" W ! D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXLARPT",95,0)
+ Q:QFLG
+"RTN","ECXLARPT",96,0)
+ W:$Y!($E(IOST)="C") @IOF S PG=PG+1
+"RTN","ECXLARPT",97,0)
+ W !,"LAB RESULTS DSS LOINC CODE REPORT",?124,"Page: "_PG
+"RTN","ECXLARPT",98,0)
+ W !,"Report Run Date/Time: "_ECRUN
+"RTN","ECXLARPT",99,0)
+ W !,"DSS Site: "_$P(ECXDIV(1),U,2)_" ("_$P(ECXDIV(1),U,3)_")"
+"RTN","ECXLARPT",100,0)
+ ;W !,?97,"LOC",?117,"LOC",?122,"LOC"
+"RTN","ECXLARPT",101,0)
+ ;W !!,?68,"F",!,"LAR",?49,"LAR",?61,"LOCAL",?68,"L",?97,"LOC SPEC",?113,"LOC WKLD",?122,"LOC WKLD"
+"RTN","ECXLARPT",102,0)
+ ;W !,"TEST#",?7,"LAR TEST NAME",?33,"LAR UNITS",?49,"LOINC",?61,"LOINC",?68,"G",?71,"LOCAL TEST NAME",?99,"TYPE",?115,"IEN",?125,"CD"
+"RTN","ECXLARPT",103,0)
+ W !!,?67,"F",?97,"LOC SPEC",?113,"LOC WKLD",?122,"LOC WKLD"
+"RTN","ECXLARPT",104,0)
+ W !,"LAR TEST#",?11,"LAR TEST NAME",?37,"LAR UNITS",?53,"LAR LOINC",?67,"L",?71,"LOCAL TEST NAME",?99,"TYPE",?115,"IEN",?124,"CODE"
+"RTN","ECXLARPT",105,0)
+ W !,"(#727.29)",?13,"(#727.29)",?37,"(#727.29)",?53,"(#727.29)",?67,"G",?76,"(#64)",?99,"(#64)",?115,"(#64)",?124,"(#64)"
+"RTN","ECXLARPT",106,0)
+ W !,LN,!
+"RTN","ECXLARPT",107,0)
+ Q
+"RTN","ECXLARPT",108,0)
+ ;
+"RTN","ECXLBB")
+0^55^B52423335^B51392005
+"RTN","ECXLBB",1,0)
+ECXLBB ;DALOI/KML - DSS BLOOD BANK EXTRACT ;4/16/13 16:03
+"RTN","ECXLBB",2,0)
+ ;;3.0;DSS EXTRACTS;**78,84,90,92,104,105,102,120,127,144**;Dec 22, 1997;Build 9
+"RTN","ECXLBB",3,0)
+ ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
+"RTN","ECXLBB",4,0)
+ ; access to the LAB DATA file (#63) is supported by
+"RTN","ECXLBB",5,0)
+ ; controlled subscription to IA 525 (global root ^LR)
+"RTN","ECXLBB",6,0)
+ ; access to the BLOOD PRODUCT (#66) is supported by IA 4510
+"RTN","ECXLBB",7,0)
+BEG ;entry point from option
+"RTN","ECXLBB",8,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXLBB",9,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXLBB",10,0)
+ Q
+"RTN","ECXLBB",11,0)
+START ; Entry point from tasked job
+"RTN","ECXLBB",12,0)
+ ; begin package specific extract
+"RTN","ECXLBB",13,0)
+ N ECTRSP,ECADMT,ECTODT,ECENCTR,ECPAT,ECLRDFN,ECXPHY,ECXPHYPC,ECPHYNPI
+"RTN","ECXLBB",14,0)
+ N ECD,ECXDFN,ECARRY,EC66,ECERR,ECTRFDT,ECTRFTM,ECX,ECINOUT,ECXINST,ECXPATCAT,ECXESC ;144
+"RTN","ECXLBB",15,0)
+ ;variables ECFILE,EC23,ECXYM,ECINST,ECSD,ECSD1,ECED passed in
+"RTN","ECXLBB",16,0)
+ ; by taskmanager
+"RTN","ECXLBB",17,0)
+ ; ECED defined in ^ECXTRAC - it represents the end date of the extract
+"RTN","ECXLBB",18,0)
+ ; sort process. TRANSFUSION DATE should be within start and end dates
+"RTN","ECXLBB",19,0)
+ ; ECED and ECSD were assigned with input provided by the user interface
+"RTN","ECXLBB",20,0)
+ ; and ECSD1 = ECSD-.1
+"RTN","ECXLBB",21,0)
+ ; Read through the TRANSFUSION RECORD sub-file (63.017) of
+"RTN","ECXLBB",22,0)
+ ; the LAB DATA file (#63)
+"RTN","ECXLBB",23,0)
+ ;the global nodes containing transfusion record entries are constructed
+"RTN","ECXLBB",24,0)
+ ; by calculating the TRANSFUSION DATE/TIME (.01)
+"RTN","ECXLBB",25,0)
+ ; into its reverse date/time representation and then DINUM'd when
+"RTN","ECXLBB",26,0)
+ ;filing the record entry
+"RTN","ECXLBB",27,0)
+ ; ECD equals the reverse date/time of ECED+.3 and will need to be
+"RTN","ECXLBB",28,0)
+ ; reset for each DFN.
+"RTN","ECXLBB",29,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1 Q ;quit if tasked and user sends stop request (QFLG assigned in ECXTRAC)
+"RTN","ECXLBB",30,0)
+AUDRPT ; entry point for pre-extract audit report
+"RTN","ECXLBB",31,0)
+ S ECTODT=9999999-ECSD1,ECLRDFN=0
+"RTN","ECXLBB",32,0)
+ F S ECLRDFN=$O(^LR(ECLRDFN)) Q:'ECLRDFN S ECXDFN=$$GETDFN(ECLRDFN),ECERR=$$PAT(ECXDFN) S ECD=9999999-(ECED+.3) F S ECD=$O(^LR(ECLRDFN,1.6,ECD)) Q:ECERR Q:'ECD!(ECD>ECTODT) S EC0=^LR(ECLRDFN,1.6,ECD,0) D
+"RTN","ECXLBB",33,0)
+ .; ECARRY(1)=TRANSFUSION DATE AND TIME,
+"RTN","ECXLBB",34,0)
+ .; ECARRY(3)=COMPONENT, ECARRY(4)=COMPONENT ABBREVIATION
+"RTN","ECXLBB",35,0)
+ .; ECARRY(5)=UNITS POOLED, ECARRY(6)=TRANSFUSION REACTION,
+"RTN","ECXLBB",36,0)
+ .; ECARRY(7)=VOLUME TRANSFUSED, ECARRY(8)=TRANSFUSION REACTION TYPE
+"RTN","ECXLBB",37,0)
+ .; ECARRY(9)=REQUESTING PROVIDER, ECARRY(10)=REQUEST. PROV. PERSON CLASS
+"RTN","ECXLBB",38,0)
+ .; ECARRY(11)=UNIT MODIFIED,ECARRY(12)=UNIT MODIFICATION
+"RTN","ECXLBB",39,0)
+ .; ECARRY(13)=PRODUCTION DIVISION CODE
+"RTN","ECXLBB",40,0)
+ . S ECARRY(1)=$P(EC0,"^"),EC66=$G(^LAB(66,$P(EC0,"^",2),0))
+"RTN","ECXLBB",41,0)
+ . S ECARRY(3)=$E($P(EC66,"^"),1,15),ECARRY(4)=$P(EC66,"^",2)
+"RTN","ECXLBB",42,0)
+ . S ECARRY(5)=$S(+$P(EC0,"^",7)=0:1,1:+$P(EC0,"^",7))
+"RTN","ECXLBB",43,0)
+ . S ECARRY(6)=$S($P(EC0,"^",8)=1:"Y",1:"N"),ECARRY(7)=$P(EC0,"^",10)
+"RTN","ECXLBB",44,0)
+ . S ECARRY(8)=$E($P($G(^LAB(65.4,+$P(EC0,"^",11),0)),"^"),1,10)
+"RTN","ECXLBB",45,0)
+ . S (ECARRY(9),ECARRY(10),ECARRY(13))="" D GETRPRV
+"RTN","ECXLBB",46,0)
+ . S ECARRY(11)=$$MODIFIED(),(ECXPHY,ECXPHYPC,ECPHYNPI)=""
+"RTN","ECXLBB",47,0)
+ . S ECARRY(12)=$S(ECARRY(11)="Y":$$UNITMODS(),1:"")
+"RTN","ECXLBB",48,0)
+ . D GETDATA
+"RTN","ECXLBB",49,0)
+ . K ECARRY
+"RTN","ECXLBB",50,0)
+ D AUDRPT^ECXLBB1
+"RTN","ECXLBB",51,0)
+ Q
+"RTN","ECXLBB",52,0)
+UNITMODS() ; Get modification criteria from fields #.06 and #3 from file #66
+"RTN","ECXLBB",53,0)
+ N MODARY,MO,EC66A,MODSTR,STR3
+"RTN","ECXLBB",54,0)
+ S MODARY("DIVIDED")="D",MODARY("POOLED")="P",MODARY("WASHED")="W"
+"RTN","ECXLBB",55,0)
+ S MODARY("FROZEN")="F",MODARY("LEUKOCYTE POOR")="L"
+"RTN","ECXLBB",56,0)
+ S MODARY("REJUVENATED")="R",MODARY("DEGLYCEROLIZED")="G"
+"RTN","ECXLBB",57,0)
+ S MODARY("IRRADIATED")="I",MODARY("SEPARATED")="S"
+"RTN","ECXLBB",58,0)
+ ;if modification criteria is null determine value from description
+"RTN","ECXLBB",59,0)
+ S MODSTR=$S($P(EC66,U,6)'="":$P(EC66,U,6),1:$$CHKMOD^ECXLBB1($P(EC66,"^")))
+"RTN","ECXLBB",60,0)
+ ;get modification criteria for entries at field #3 in file #66
+"RTN","ECXLBB",61,0)
+ S MOD=0 F S MOD=$O(^LAB(66,$P(EC0,"^",2),3,MOD)) Q:'MOD D
+"RTN","ECXLBB",62,0)
+ .S EC66A=$G(^LAB(66,MOD,0)) I EC66A="" Q
+"RTN","ECXLBB",63,0)
+ .S STR3=$S($P(EC66A,U,6)'="":$P(EC66A,U,6),1:$$CHKMOD^ECXLBB1($P(EC66A,"^")))
+"RTN","ECXLBB",64,0)
+ .I STR3'="",MODSTR'[STR3 S MODSTR=MODSTR_STR3
+"RTN","ECXLBB",65,0)
+ Q MODSTR
+"RTN","ECXLBB",66,0)
+MODIFIED() ; Was unit modified
+"RTN","ECXLBB",67,0)
+ ; Init variables
+"RTN","ECXLBB",68,0)
+ N XMATCH,UNIT,MOD,COMPID,MODNODE,MODTO
+"RTN","ECXLBB",69,0)
+ S (XMATCH,UNIT)=0,MOD=""
+"RTN","ECXLBB",70,0)
+ ; Check input
+"RTN","ECXLBB",71,0)
+ Q:'$G(ECLRDFN)!'$P(EC0,U,2) "N"
+"RTN","ECXLBB",72,0)
+ ;Find xmatch for blood component request
+"RTN","ECXLBB",73,0)
+ S XMATCH=$O(^LR(ECLRDFN,1.8,$P(EC0,U,2),1,XMATCH)) Q:'XMATCH "N"
+"RTN","ECXLBB",74,0)
+ ;Get blood inventory file (#65) pointer
+"RTN","ECXLBB",75,0)
+ S UNIT=$P($G(^LR(ECLRDFN,1.8,$P(EC0,"^",2),1,XMATCH,0)),U)
+"RTN","ECXLBB",76,0)
+ ;Look at disposition field (#4.1) in blood inventory file (#65)
+"RTN","ECXLBB",77,0)
+ S MOD=$P($G(^LRD(65,+XMATCH,4)),U),COMPID=$P(EC66,U,3)
+"RTN","ECXLBB",78,0)
+ ; Get 'the modified to' entry pointer to blood inventory file (#66)
+"RTN","ECXLBB",79,0)
+ I MOD="MO" S MODTO=0 F S MODTO=$O(^LRD(65,+XMATCH,9,MODTO)) Q:'MODTO D
+"RTN","ECXLBB",80,0)
+ .S MODNODE=$G(^LRD(65,+XMATCH,9,MODTO,0)) Q:$P(^(0),U,3)'>1
+"RTN","ECXLBB",81,0)
+ .Q:$P(MODNODE,U,2)'=COMPID
+"RTN","ECXLBB",82,0)
+ .; Set the modify to unit ien for file (#66)
+"RTN","ECXLBB",83,0)
+ Q $S(MOD="MO":"Y",1:"N")
+"RTN","ECXLBB",84,0)
+GETRPRV ; get requesting provider, requesting provider person class and
+"RTN","ECXLBB",85,0)
+ ; production division code
+"RTN","ECXLBB",86,0)
+ ; input: ECD =INVERTED DATE SUBSCRIPT
+"RTN","ECXLBB",87,0)
+ ; ECARRY(1)=TRANSFUSION DATE AND TIME
+"RTN","ECXLBB",88,0)
+ ; note: Accessioned data in file #68 is stored up to 90 days.
+"RTN","ECXLBB",89,0)
+ N ECXBNOD,ACC,ACCDT,ACCNODE,PERCLS,DIV,NUM
+"RTN","ECXLBB",90,0)
+ I ECARRY(1)="" Q ;there is no transfusion date
+"RTN","ECXLBB",91,0)
+ ;get BLOOD BANK record, field #1, in file #63 located on "BB" node
+"RTN","ECXLBB",92,0)
+ ;since there is a slight time lapse, $O will find the BB record
+"RTN","ECXLBB",93,0)
+ S ECXBNOD=$O(^LR(ECLRDFN,"BB",ECD)) I ECXBNOD="" Q
+"RTN","ECXLBB",94,0)
+ S ECXBNOD=^LR(ECLRDFN,"BB",ECXBNOD,0) I ECXBNOD="" Q
+"RTN","ECXLBB",95,0)
+ ;Compose accession number,originating from field #.06 subfile #63.01
+"RTN","ECXLBB",96,0)
+ ; ex. ACC=BB 0528 27
+"RTN","ECXLBB",97,0)
+ S ACC=$P(ECXBNOD,U,6),ACC=$TR($P(ACC," ",2,99)," ")
+"RTN","ECXLBB",98,0)
+ S ACCDT=$E(ECARRY(1),1,3)_$E(ACC,1,4),NUM=$E(ACC,5,99)
+"RTN","ECXLBB",99,0)
+ ;Get field #2 from file #68, field #1 from subfile #68.01 which is
+"RTN","ECXLBB",100,0)
+ ;subfile #68.02. Look at 29=blood bank ien, from 0th node, get fields
+"RTN","ECXLBB",101,0)
+ ;#6.5 PROVIDER and #26 DIV
+"RTN","ECXLBB",102,0)
+ I (ACCDT)=""!(NUM="") Q
+"RTN","ECXLBB",103,0)
+ ; identify bb accession area the patient was in to get the right DIV
+"RTN","ECXLBB",104,0)
+ S AREA=$$AREA
+"RTN","ECXLBB",105,0)
+ S ACCNODE=$G(^LRO(68,+AREA,1,ACCDT,1,NUM,0))
+"RTN","ECXLBB",106,0)
+ S ECARRY(9)=$P(ACCNODE,U,8) I ECARRY(9)'="" D
+"RTN","ECXLBB",107,0)
+ . S PERCLS=$$GET^XUA4A72(ECARRY(9),ACCDT)
+"RTN","ECXLBB",108,0)
+ . I +PERCLS>0 S ECARRY(10)=$P(PERCLS,U,7)
+"RTN","ECXLBB",109,0)
+ . S ECREQNPI=$$NPI^XUSNPI("Individual_ID",ECARRY(9),ACCDT)
+"RTN","ECXLBB",110,0)
+ . S:+ECREQNPI'>0 ECREQNPI="" S ECREQNPI=$P(ECREQNPI,U)
+"RTN","ECXLBB",111,0)
+ . S ECARRY(9)=2_ECARRY(9)
+"RTN","ECXLBB",112,0)
+ S DIV=$P($G(^LRO(68,+AREA,1,ACCDT,1,NUM,.4)),U)
+"RTN","ECXLBB",113,0)
+ I DIV'="" S ECARRY(13)=$$RADDIV^ECXDEPT(DIV)
+"RTN","ECXLBB",114,0)
+ Q
+"RTN","ECXLBB",115,0)
+AREA() ; resolve accession area's ien to use and validate
+"RTN","ECXLBB",116,0)
+ ; Accession number
+"RTN","ECXLBB",117,0)
+ ; Patient LRDFN
+"RTN","ECXLBB",118,0)
+ ; note: if there is only one accession area use '29'
+"RTN","ECXLBB",119,0)
+ N A,CNT,BBLIST,DFN,ACC,AREA,DATE,TDATE,ACCNODE
+"RTN","ECXLBB",120,0)
+ S (CNT,FLAG,A)=0,DFN=""
+"RTN","ECXLBB",121,0)
+ ; set the date from the "bb" node in file (#63)
+"RTN","ECXLBB",122,0)
+ S DATE=$P(ECXBNOD,U)
+"RTN","ECXLBB",123,0)
+ ; setup array for bb accession areas if more than one
+"RTN","ECXLBB",124,0)
+ F S A=$O(^LRO(68,A)) Q:'A I $P($G(^LRO(68,A,0)),"^",2)="BB" D
+"RTN","ECXLBB",125,0)
+ . S BBLIST(A)=""
+"RTN","ECXLBB",126,0)
+ . S CNT=CNT+1
+"RTN","ECXLBB",127,0)
+ I CNT'>1 Q 29
+"RTN","ECXLBB",128,0)
+ S AREA=0 F S AREA=$O(BBLIST(AREA)) Q:'AREA D Q:FLAG
+"RTN","ECXLBB",129,0)
+ . ; get additional accession information for validation
+"RTN","ECXLBB",130,0)
+ . S ACCNODE=$G(^LRO(68,AREA,1,$P(DATE,"."),1,NUM,0))
+"RTN","ECXLBB",131,0)
+ . S ACC=$G(^LRO(68,AREA,1,$P(DATE,"."),1,NUM,.2))
+"RTN","ECXLBB",132,0)
+ . S DFN=$P($G(ACCNODE),U)
+"RTN","ECXLBB",133,0)
+ . S TDATE=$P($G(^LRO(68,AREA,1,$P(DATE,"."),1,NUM,3)),U)
+"RTN","ECXLBB",134,0)
+ . I (DFN=ECLRDFN)&(ACC=$P(ECXBNOD,U,6))&(DATE=TDATE) S FLAG=1
+"RTN","ECXLBB",135,0)
+ Q AREA
+"RTN","ECXLBB",136,0)
+GETDATA ; gather rest of extract data that will be recorded in an
+"RTN","ECXLBB",137,0)
+ ; entry in file 727.829
+"RTN","ECXLBB",138,0)
+ N ECXSTR
+"RTN","ECXLBB",139,0)
+ S ECTRFDT=$$ECXDOB^ECXUTL(ECARRY(1)),ECTRFTM=$$ECXTIME^ECXUTL(ECARRY(1))
+"RTN","ECXLBB",140,0)
+ S ECX=$$INP^ECXUTL2(ECXDFN,ECARRY(1)),ECINOUT=$P(ECX,U),ECTRSP=$P(ECX,U,3),ECADMT=$P(ECX,U,4) ; [FLD #5]
+"RTN","ECXLBB",141,0)
+ ;
+"RTN","ECXLBB",142,0)
+ ;- Observation patient indicator (YES/NO)
+"RTN","ECXLBB",143,0)
+ S ECXOBS=$$OBSPAT^ECXUTL4(ECINOUT,ECTRSP)
+"RTN","ECXLBB",144,0)
+ ;- If no encounter number don't file record
+"RTN","ECXLBB",145,0)
+ S ECENCTR=$$ENCNUM^ECXUTL4(ECINOUT,ECPAT("SSN"),ECADMT,ECARRY(1),ECTRSP,ECXOBS,ECHEAD,,) ; [FLD #6]
+"RTN","ECXLBB",146,0)
+ Q:ECENCTR=""
+"RTN","ECXLBB",147,0)
+ ;get emergency response indicator (FEMA)
+"RTN","ECXLBB",148,0)
+ S ECXERI=ECPAT("ERI")
+"RTN","ECXLBB",149,0)
+ ;
+"RTN","ECXLBB",150,0)
+ ; ******* - PATCH 127, ADD PATCAT CODE ********
+"RTN","ECXLBB",151,0)
+ S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXLBB",152,0)
+ S ECXESC="" ;144
+"RTN","ECXLBB",153,0)
+ S ECXSTR=$G(EC23)_"^"_ECINST_"^"_ECXDFN_"^"_ECPAT("SSN")_"^"_ECPAT("NAME")_"^"_ECINOUT_"^"_ECENCTR_"^"_ECTRFDT_"^"_ECTRFTM_"^"_ECARRY(3)_"^"_ECARRY(4)_"^"_ECARRY(5)_"^"_ECARRY(7)_"^"_ECARRY(6)_"^"_ECARRY(8)_"^BB"_ECARRY(13)_"^^"
+"RTN","ECXLBB",154,0)
+ I $G(ECXLOGIC)>2005 S ECXSTR=ECXSTR_U_ECXPHY_U_ECXPHYPC
+"RTN","ECXLBB",155,0)
+ I $G(ECXLOGIC)>2006 D
+"RTN","ECXLBB",156,0)
+ .S ECXSTR=ECXSTR_U_ECXERI_U_ECARRY(11)_U_ECARRY(12)_U_ECARRY(9)_U_ECARRY(10)_U_ECARRY(13)_U
+"RTN","ECXLBB",157,0)
+ I '$D(ECXRPT) D FILE(ECXSTR) Q
+"RTN","ECXLBB",158,0)
+ S ^TMP("ECXLBB",$J,ECXDFN,ECD)=ECXSTR ;temporary global array
+"RTN","ECXLBB",159,0)
+ I $D(ECXCRPT) D
+"RTN","ECXLBB",160,0)
+ . N ECCOUNT S ECCOUNT=0
+"RTN","ECXLBB",161,0)
+ . F S ECCOUNT=ECCOUNT+1 Q:'$D(^TMP("ECXLBBC",$J,$S($G(ECXCFLG)=1:ECARRY(4),1:"ZZNOZZ"),ECXDFN,ECTRFDT_"."_ECTRFTM_"."_ECCOUNT,"S"))
+"RTN","ECXLBB",162,0)
+ . S ^TMP("ECXLBBC",$J,$S($G(ECXCFLG)=1:ECARRY(4),1:"ZZNOZZ"),ECXDFN,ECTRFDT_"."_ECTRFTM_"."_ECCOUNT,"S")=ECXSTR
+"RTN","ECXLBB",163,0)
+ ; used in ECXPLBB/ECXLBBC (pre-extract audit report)
+"RTN","ECXLBB",164,0)
+ Q
+"RTN","ECXLBB",165,0)
+GETDFN(ECXLRDFN) ;
+"RTN","ECXLBB",166,0)
+ ; INPUT - LRDFN
+"RTN","ECXLBB",167,0)
+ ; OUTPUT - DFN
+"RTN","ECXLBB",168,0)
+ ; Obtains DFN (Patient ID) from LRDFN (Lab Patient ID).
+"RTN","ECXLBB",169,0)
+ ; If no valid DFN exists, 0 is returned.
+"RTN","ECXLBB",170,0)
+ S ECXLRDFN=+$G(ECXLRDFN)
+"RTN","ECXLBB",171,0)
+ I $P($G(^LR(ECXLRDFN,0)),"^",2)'=2 Q 0
+"RTN","ECXLBB",172,0)
+ Q +$P(^LR(ECXLRDFN,0),"^",3)
+"RTN","ECXLBB",173,0)
+ ;
+"RTN","ECXLBB",174,0)
+PAT(ECXDFN) ;get/set patient data
+"RTN","ECXLBB",175,0)
+ ; INPUT - ECXDFN = patient ien (DFN)
+"RTN","ECXLBB",176,0)
+ ; OUTPUT - ECPAT array:
+"RTN","ECXLBB",177,0)
+ ; ECPAT("SSN")
+"RTN","ECXLBB",178,0)
+ ; ECPAT("NAME")
+"RTN","ECXLBB",179,0)
+ ; returns 0 or 1 in ECXERR - 0=successful
+"RTN","ECXLBB",180,0)
+ ; 1=error condition
+"RTN","ECXLBB",181,0)
+ N X,OK,ECXERR
+"RTN","ECXLBB",182,0)
+ ;get data
+"RTN","ECXLBB",183,0)
+ S ECXERR=0
+"RTN","ECXLBB",184,0)
+ K ECXPAT S OK=$$PAT^ECXUTL3(ECXDFN,"","1;3",.ECPAT)
+"RTN","ECXLBB",185,0)
+ I 'OK S ECXERR=1
+"RTN","ECXLBB",186,0)
+ Q ECXERR
+"RTN","ECXLBB",187,0)
+ ;
+"RTN","ECXLBB",188,0)
+FILE(ECODE) ;
+"RTN","ECXLBB",189,0)
+ ; Input - ECODE = extract record
+"RTN","ECXLBB",190,0)
+ ;
+"RTN","ECXLBB",191,0)
+ ; record the extract record at a global node in file 727.829
+"RTN","ECXLBB",192,0)
+ ; sequence #^year/month of extract^extract #^facility^patient dfn^SSN^
+"RTN","ECXLBB",193,0)
+ ; name^i/o pt indicator^encounter #^date of transfusion^time of
+"RTN","ECXLBB",194,0)
+ ; transfusion^component^component abbrev^# of units^volume in mm^
+"RTN","ECXLBB",195,0)
+ ; reaction^reaction type^feeder location^DSS product dept^DSS IP #
+"RTN","ECXLBB",196,0)
+ ; ordering physician^ordering physician pc^emergency response indicator
+"RTN","ECXLBB",197,0)
+ ; (FEMA)^unit modified^unit modification^requesting provider^request.
+"RTN","ECXLBB",198,0)
+ ; provider person class^ordering provider npi ECPHYNPI
+"RTN","ECXLBB",199,0)
+ ;ECODE1- requesting provider npi ECREQNPI^PATCAT^Encounter SC ECXESC
+"RTN","ECXLBB",200,0)
+ ;note: DSS product dept and DSS IP # are dependent on the release of
+"RTN","ECXLBB",201,0)
+ ; ECX*3*61
+"RTN","ECXLBB",202,0)
+ N DA,DIK,EC7
+"RTN","ECXLBB",203,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXLBB",204,0)
+ S ECODE=EC7_"^"_ECODE
+"RTN","ECXLBB",205,0)
+ I ECXLOGIC>2007 D
+"RTN","ECXLBB",206,0)
+ .S ECODE=ECODE_ECPHYNPI_U
+"RTN","ECXLBB",207,0)
+ .S ECODE1=$G(ECREQNPI)_U
+"RTN","ECXLBB",208,0)
+ .I ECXLOGIC>2010 S ECODE1=ECODE1_ECXPATCAT
+"RTN","ECXLBB",209,0)
+ I ECXLOGIC>2013 S ECODE1=ECODE1_U_ECXESC ;144
+"RTN","ECXLBB",210,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=$G(ECODE1),ECRN=ECRN+1
+"RTN","ECXLBB",211,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXLBB",212,0)
+ Q
+"RTN","ECXLBB",213,0)
+ ;
+"RTN","ECXLBB",214,0)
+ ;
+"RTN","ECXLBB",215,0)
+SETUP ;Set required input for ECXTRAC.
+"RTN","ECXLBB",216,0)
+ S ECHEAD="LBB"
+"RTN","ECXLBB",217,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXLBB",218,0)
+ Q
+"RTN","ECXLBB",219,0)
+ ;
+"RTN","ECXLBB",220,0)
+LOCAL ; to extract nightly for local use not to be transmitted to TSI
+"RTN","ECXLBB",221,0)
+ ; should be queued with a 1D frequency
+"RTN","ECXLBB",222,0)
+ D SETUP,^ECXTLOCL,^ECXKILL Q
+"RTN","ECXLBB",223,0)
+ ;
+"RTN","ECXLBB",224,0)
+QUE ; entry point for the background requeuing handled by ECXTAUTO
+"RTN","ECXLBB",225,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL
+"RTN","ECXLBB",226,0)
+ Q
+"RTN","ECXLBB",227,0)
+ ;
+"RTN","ECXLBB",228,0)
+ ;ECXLBB
+"RTN","ECXLBB1")
+0^56^B27728068^B27049597
+"RTN","ECXLBB1",1,0)
+ECXLBB1 ;ALB/JRC - DSS VBECS EXTRACT ;4/16/13 16:06
+"RTN","ECXLBB1",2,0)
+ ;;3.0;DSS EXTRACTS;**105,102,120,127,144**;Dec 22, 1997;Build 9
+"RTN","ECXLBB1",3,0)
+ ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
+"RTN","ECXLBB1",4,0)
+ ; access to the VBECS EXTRACT file (#6002.03) is supported by
+"RTN","ECXLBB1",5,0)
+ ; controlled subscription to IA #4953 (global root ^VBECS(6002.03)
+"RTN","ECXLBB1",6,0)
+BEG ;entry point from option
+"RTN","ECXLBB1",7,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXLBB1",8,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXLBB1",9,0)
+ Q
+"RTN","ECXLBB1",10,0)
+ ;
+"RTN","ECXLBB1",11,0)
+START ; Entry point from tasked job
+"RTN","ECXLBB1",12,0)
+ ; begin package specific extract
+"RTN","ECXLBB1",13,0)
+ N ECTRSP,ECADMT,ECTODT,ECENCTR,ECPAT,ECLRDFN,ECXPHY,ECXPHYPC
+"RTN","ECXLBB1",14,0)
+ N ECD,ECXDFN,ECARRY,EC66,ECERR,ECTRFDT,ECTRFTM,ECX,ECINOUT,ECXINST
+"RTN","ECXLBB1",15,0)
+ N ECPHYNPI,ECREQNPI,ECXPATCAT,ECXESC ;144
+"RTN","ECXLBB1",16,0)
+ ;variables ECFILE,EC23,ECXYM,ECINST,ECSD,ECSD1,ECED passed in
+"RTN","ECXLBB1",17,0)
+ ; by taskmanager
+"RTN","ECXLBB1",18,0)
+ ; ECED defined in ^ECXTRAC - end date of the extract
+"RTN","ECXLBB1",19,0)
+ ; TRANSFUSION DATE should be within start and end dates
+"RTN","ECXLBB1",20,0)
+ ; ECED and ECSD input provided by the user interface
+"RTN","ECXLBB1",21,0)
+ ; and ECSD1 = ECSD-.1
+"RTN","ECXLBB1",22,0)
+ ; Read through the VBECS DSS EXTRACT file (6002.03)
+"RTN","ECXLBB1",23,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1 Q ;quit if tasked and user sends stop request (QFLG assigned in ECXTRAC)
+"RTN","ECXLBB1",24,0)
+ ;
+"RTN","ECXLBB1",25,0)
+AUDRPT ; entry point for pre-extract audit report
+"RTN","ECXLBB1",26,0)
+ N RECORD
+"RTN","ECXLBB1",27,0)
+ S RECORD=0,ECD=ECSD-.1,ECTODT=ECED+.9
+"RTN","ECXLBB1",28,0)
+ F S ECD=$O(^VBEC(6002.03,"C",ECD)) Q:'ECD!(ECD>ECTODT) S RECORD=0 F S RECORD=$O(^VBEC(6002.03,"C",ECD,RECORD)) Q:RECORD'>0 S EC0=^VBEC(6002.03,RECORD,0) D
+"RTN","ECXLBB1",29,0)
+ .; ECARRY(1)=TRANSFUSION DATE AND TIME, ECARRY(3)=COMPONENT
+"RTN","ECXLBB1",30,0)
+ .; ECARRY(4)=COMPONENT ABBREVIATION, ECARRY(5)=UNITS POOLED
+"RTN","ECXLBB1",31,0)
+ .; ECARRY(6)=TRANSFUSION REACTION,ECARRY(7)=VOLUME TRANSFUSED
+"RTN","ECXLBB1",32,0)
+ .; ECARRY(8)=TRANSFUSION REACTION TYPE, ECARRY(9)=REQUESTING PROVIDER
+"RTN","ECXLBB1",33,0)
+ .; ECARRY(10)=REQUEST. PROV. PERSON CLASS, ECARRY(11)=UNIT MODIFIED
+"RTN","ECXLBB1",34,0)
+ .; ECARRY(12)=UNIT MODIFICATION, ECARRY(13)=PRODUCTION DIVISION CODE
+"RTN","ECXLBB1",35,0)
+ .;
+"RTN","ECXLBB1",36,0)
+ . S ECXDFN=$P(EC0,U,2),ECERR=$$PAT(ECXDFN) Q:ECERR
+"RTN","ECXLBB1",37,0)
+ . S ECARRY(1)=$P(EC0,U,10),ECARRY(3)=$P(EC0,U,7),ECARRY(4)=$P(EC0,U,8),ECARRY(5)=$S(+$P(EC0,U,9)=0:1,1:+$P(EC0,U,9)),ECARRY(6)=$S($P(EC0,U,15):"Y",1:"N"),ECARRY(7)=$P(EC0,"^",12),ECARRY(8)=$P(EC0,U,13)
+"RTN","ECXLBB1",38,0)
+ . S ECARRY(9)=$P(EC0,U,6),ECINST=$P(EC0,U,3),ECARRY(12)=$P(EC0,U,14),ECARRY(11)=$S(ECARRY(12)'="":"Y",1:"N"),ECARRY(13)=$P(EC0,U,4)
+"RTN","ECXLBB1",39,0)
+ . ;get requesting and ordering providers and their person class
+"RTN","ECXLBB1",40,0)
+ . S ECXPHY=$P(EC0,U,5),(ECXPHYPC,ECARRY(10),ECPHYNPI,ECREQNPI)=""
+"RTN","ECXLBB1",41,0)
+ . I ECXPHY]"" S ECXPHY=$O(^VA(200,"B",ECXPHY,0))
+"RTN","ECXLBB1",42,0)
+ . I ECXPHY>0 D
+"RTN","ECXLBB1",43,0)
+ .. N PERCLS S PERCLS=$$GET^XUA4A72(ECXPHY,ECD)
+"RTN","ECXLBB1",44,0)
+ .. I +PERCLS>0 S ECXPHYPC=$P(PERCLS,U,7)
+"RTN","ECXLBB1",45,0)
+ .. S ECPHYNPI=$$NPI^XUSNPI("Individual_ID",ECXPHY,ECD)
+"RTN","ECXLBB1",46,0)
+ .. S:+ECPHYNPI'>0 ECPHYNPI="" S ECPHYNPI=$P(ECPHYNPI,U)
+"RTN","ECXLBB1",47,0)
+ .. S ECXPHY=2_ECXPHY
+"RTN","ECXLBB1",48,0)
+ . I ECARRY(9)>0 D
+"RTN","ECXLBB1",49,0)
+ .. N PERCLS S PERCLS=$$GET^XUA4A72(ECARRY(9),ECD)
+"RTN","ECXLBB1",50,0)
+ .. I +PERCLS>0 S ECARRY(10)=$P(PERCLS,U,7)
+"RTN","ECXLBB1",51,0)
+ .. S ECREQNPI=$$NPI^XUSNPI("Individual_ID",ECARRY(9),ECD)
+"RTN","ECXLBB1",52,0)
+ .. S:+ECREQNPI'>0 ECREQNPI="" S ECREQNPI=$P(ECREQNPI,U)
+"RTN","ECXLBB1",53,0)
+ .. S ECARRY(9)=2_ECARRY(9)
+"RTN","ECXLBB1",54,0)
+ . D GETDATA
+"RTN","ECXLBB1",55,0)
+ . K ECARRY
+"RTN","ECXLBB1",56,0)
+ Q
+"RTN","ECXLBB1",57,0)
+ ;
+"RTN","ECXLBB1",58,0)
+GETDATA ; gather rest of extract data that will be recorded in an
+"RTN","ECXLBB1",59,0)
+ ; entry in file 727.829
+"RTN","ECXLBB1",60,0)
+ N ECXSTR
+"RTN","ECXLBB1",61,0)
+ S ECTRFDT=$$ECXDOB^ECXUTL(ECARRY(1)),ECTRFTM=$$ECXTIME^ECXUTL(ECARRY(1))
+"RTN","ECXLBB1",62,0)
+ S ECX=$$INP^ECXUTL2(ECXDFN,ECARRY(1)),ECINOUT=$P(ECX,U),ECTRSP=$P(ECX,U,3),ECADMT=$P(ECX,U,4)
+"RTN","ECXLBB1",63,0)
+ ;
+"RTN","ECXLBB1",64,0)
+ ;- Observation patient indicator (YES/NO)
+"RTN","ECXLBB1",65,0)
+ S ECXOBS=$$OBSPAT^ECXUTL4(ECINOUT,ECTRSP)
+"RTN","ECXLBB1",66,0)
+ ;- If no encounter number don't file record
+"RTN","ECXLBB1",67,0)
+ S ECENCTR=$$ENCNUM^ECXUTL4(ECINOUT,ECPAT("SSN"),ECADMT,ECARRY(1),ECTRSP,ECXOBS,ECHEAD,,) ; [FLD #6]
+"RTN","ECXLBB1",68,0)
+ Q:ECENCTR=""
+"RTN","ECXLBB1",69,0)
+ ;get emergency response indicator (FEMA)
+"RTN","ECXLBB1",70,0)
+ S ECXERI=$G(ECPAT("ERI"))
+"RTN","ECXLBB1",71,0)
+ ;
+"RTN","ECXLBB1",72,0)
+ ; ******* - PATCH 127, ADD PATCAT CODE ********
+"RTN","ECXLBB1",73,0)
+ S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXLBB1",74,0)
+ S ECXESC="" ;144
+"RTN","ECXLBB1",75,0)
+ S ECXSTR=$G(EC23)_"^"_ECINST_"^"_ECXDFN_"^"_ECPAT("SSN")_"^"_ECPAT("NAME")_"^"_ECINOUT_"^"_ECENCTR_"^"_ECTRFDT_"^"_ECTRFTM_"^"_ECARRY(3)_"^"_ECARRY(4)_"^"_ECARRY(5)_"^"_ECARRY(7)_"^"_ECARRY(6)_"^"_ECARRY(8)_"^BB"_ECARRY(13)_"^^"
+"RTN","ECXLBB1",76,0)
+ I $G(ECXLOGIC)>2005 S ECXSTR=ECXSTR_U_ECXPHY_U_ECXPHYPC
+"RTN","ECXLBB1",77,0)
+ I $G(ECXLOGIC)>2006 D
+"RTN","ECXLBB1",78,0)
+ .S ECXSTR=ECXSTR_U_ECXERI_U_ECARRY(11)_U_ECARRY(12)_U_ECARRY(9)_U_ECARRY(10)_U_ECARRY(13)_U
+"RTN","ECXLBB1",79,0)
+ I '$D(ECXRPT) D FILE(ECXSTR) Q
+"RTN","ECXLBB1",80,0)
+ S ^TMP("ECXLBB",$J,ECXDFN,ECD)=ECXSTR ;temporary global array
+"RTN","ECXLBB1",81,0)
+ I $D(ECXCRPT) D
+"RTN","ECXLBB1",82,0)
+ . N ECCOUNT S ECCOUNT=0
+"RTN","ECXLBB1",83,0)
+ . F S ECCOUNT=ECCOUNT+1 Q:'$D(^TMP("ECXLBBC",$J,$S($G(ECXCFLG)=1:ECARRY(4),1:"ZZNOZZ"),ECXDFN,ECTRFDT_"."_ECTRFTM_"."_ECCOUNT,"S"))
+"RTN","ECXLBB1",84,0)
+ . S ^TMP("ECXLBBC",$J,$S($G(ECXCFLG)=1:ECARRY(4),1:"ZZNOZZ"),ECXDFN,ECTRFDT_"."_ECTRFTM_"."_ECCOUNT,"S")=ECXSTR
+"RTN","ECXLBB1",85,0)
+ ; used in ECXPLBB/ECXLBBC (pre-extract audit report)
+"RTN","ECXLBB1",86,0)
+ Q
+"RTN","ECXLBB1",87,0)
+ ;
+"RTN","ECXLBB1",88,0)
+PAT(ECXDFN) ;get/set patient data
+"RTN","ECXLBB1",89,0)
+ ; INPUT - ECXDFN = patient ien (DFN)
+"RTN","ECXLBB1",90,0)
+ ; OUTPUT - ECPAT array:
+"RTN","ECXLBB1",91,0)
+ ; ECPAT("SSN")
+"RTN","ECXLBB1",92,0)
+ ; ECPAT("NAME")
+"RTN","ECXLBB1",93,0)
+ ; returns 0 or 1 in ECXERR - 0=successful
+"RTN","ECXLBB1",94,0)
+ ; 1=error condition
+"RTN","ECXLBB1",95,0)
+ N X,OK,ECXERR
+"RTN","ECXLBB1",96,0)
+ ;get data
+"RTN","ECXLBB1",97,0)
+ S ECXERR=0
+"RTN","ECXLBB1",98,0)
+ K ECXPAT S OK=$$PAT^ECXUTL3(ECXDFN,"","1;3",.ECPAT)
+"RTN","ECXLBB1",99,0)
+ I 'OK S ECXERR=1
+"RTN","ECXLBB1",100,0)
+ Q ECXERR
+"RTN","ECXLBB1",101,0)
+ ;
+"RTN","ECXLBB1",102,0)
+FILE(ECODE) ;
+"RTN","ECXLBB1",103,0)
+ ; Input - ECODE = extract record
+"RTN","ECXLBB1",104,0)
+ ;
+"RTN","ECXLBB1",105,0)
+ ; record the extract record at a global node in file 727.829
+"RTN","ECXLBB1",106,0)
+ ; sequence #^year/month of extract^extract #^facility^patient dfn^SSN^
+"RTN","ECXLBB1",107,0)
+ ; name^i/o pt indicator^encounter #^date of transfusion^time of
+"RTN","ECXLBB1",108,0)
+ ; transfusion^component^component abbrev^# of units^volume in mm^
+"RTN","ECXLBB1",109,0)
+ ; reaction^reaction type^feeder location^DSS product dept^DSS IP #
+"RTN","ECXLBB1",110,0)
+ ; ordering physician^ordering physician pc^emergency response indicator
+"RTN","ECXLBB1",111,0)
+ ; (FEMA)^unit modified^unit modification^requesting provider^request.
+"RTN","ECXLBB1",112,0)
+ ; provider person class^ordering provider npi ECPHYNPI
+"RTN","ECXLBB1",113,0)
+ ;ECODE1- requesting provider npi ECREQNPI^PATCAT^Encounter SC ECXESC
+"RTN","ECXLBB1",114,0)
+ ;note: DSS product dept and DSS IP # are dependent on the release of
+"RTN","ECXLBB1",115,0)
+ ; ECX*3*61
+"RTN","ECXLBB1",116,0)
+ N DA,DIK,EC7
+"RTN","ECXLBB1",117,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXLBB1",118,0)
+ S ECODE=EC7_"^"_ECODE
+"RTN","ECXLBB1",119,0)
+ I ECXLOGIC>2007 D
+"RTN","ECXLBB1",120,0)
+ .S ECODE=ECODE_ECPHYNPI_U
+"RTN","ECXLBB1",121,0)
+ .S ECODE1=$G(ECREQNPI)
+"RTN","ECXLBB1",122,0)
+ .I ECXLOGIC>2010 S ECODE1=ECODE1_U_ECXPATCAT
+"RTN","ECXLBB1",123,0)
+ I ECXLOGIC>2013 S ECODE1=ECODE1_U_ECXESC ;144
+"RTN","ECXLBB1",124,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=$G(ECODE1),ECRN=ECRN+1
+"RTN","ECXLBB1",125,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXLBB1",126,0)
+ Q
+"RTN","ECXLBB1",127,0)
+ ;
+"RTN","ECXLBB1",128,0)
+SETUP ;Set required input for ECXTRAC.
+"RTN","ECXLBB1",129,0)
+ S ECHEAD="LBB"
+"RTN","ECXLBB1",130,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXLBB1",131,0)
+ Q
+"RTN","ECXLBB1",132,0)
+ ;
+"RTN","ECXLBB1",133,0)
+LOCAL ; to extract nightly for local use not to be transmitted to TSI
+"RTN","ECXLBB1",134,0)
+ ; should be queued with a 1D frequency
+"RTN","ECXLBB1",135,0)
+ D SETUP,^ECXTLOCL,^ECXKILL Q
+"RTN","ECXLBB1",136,0)
+ ;
+"RTN","ECXLBB1",137,0)
+CHKMOD(MD) ;check if modifier is contained in string
+"RTN","ECXLBB1",138,0)
+ N RES,MODX
+"RTN","ECXLBB1",139,0)
+ I MD="" Q ""
+"RTN","ECXLBB1",140,0)
+ S (RES,MODX)="" F S MODX=$O(MODARY(MODX)) Q:MODX="" D I RES'="" Q
+"RTN","ECXLBB1",141,0)
+ .I MD[MODX S RES=MODARY(MODX)
+"RTN","ECXLBB1",142,0)
+ Q RES
+"RTN","ECXLBB1",143,0)
+ ;
+"RTN","ECXLBB1",144,0)
+QUE ; entry point for the background requeuing handled by ECXTAUTO
+"RTN","ECXLBB1",145,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL
+"RTN","ECXLBB1",146,0)
+ Q
+"RTN","ECXLBB1",147,0)
+ ;
+"RTN","ECXLBB1",148,0)
+ ;ECXLBB
+"RTN","ECXLPRO")
+0^38^B29349856^B25310596
+"RTN","ECXLPRO",1,0)
+ECXLPRO ;ALB/JAP - PRO Extract YTD Lab Report ;3/4/13 15:29
+"RTN","ECXLPRO",2,0)
+ ;;3.0;DSS EXTRACTS;**21,24,36,84,144**;Dec 22, 1997;Build 9
+"RTN","ECXLPRO",3,0)
+ ;for data associated with prosthetic items produced by facility laboratory
+"RTN","ECXLPRO",4,0)
+ ;accumulates extract data by hcpcs code for all extracts in fiscal year date range
+"RTN","ECXLPRO",5,0)
+ ;if an extract has been purged, then totals will be falsely low
+"RTN","ECXLPRO",6,0)
+ ;if more than 1 extract exists for a particular month, then totals will be falsely high
+"RTN","ECXLPRO",7,0)
+ ;if site is multidivisional, then user can generate report for
+"RTN","ECXLPRO",8,0)
+ ; any one division - data stored under divisional station# (e.g., 326 or 326AB)
+"RTN","ECXLPRO",9,0)
+ ; or for entire facility - data stored under primary station# (e.g., 326) but includes data from all subdivisions
+"RTN","ECXLPRO",10,0)
+ ;if site is non-divisional, then data stored under facility station#
+"RTN","ECXLPRO",11,0)
+ ;
+"RTN","ECXLPRO",12,0)
+EN ;setup & queue
+"RTN","ECXLPRO",13,0)
+ N DIC,DA,DR,DIQ,DIR,DIRUT,DTOUT,DUOUT,DIV,LAST,OUT,ECXPORT,CNT
+"RTN","ECXLPRO",14,0)
+ S ECXERR=0
+"RTN","ECXLPRO",15,0)
+ S ECXHEAD="PRO"
+"RTN","ECXLPRO",16,0)
+ W !!,"Setup for PRO Extract YTD Laboratory Report --",!
+"RTN","ECXLPRO",17,0)
+ ;determine primary division
+"RTN","ECXLPRO",18,0)
+ W !,"If you belong to more than one Primary Division, you must"
+"RTN","ECXLPRO",19,0)
+ W !,"select a Primary Division for the report.",!
+"RTN","ECXLPRO",20,0)
+ S ECXPRIME=$$PDIV^ECXPUTL
+"RTN","ECXLPRO",21,0)
+ I ECXPRIME=0 D ^ECXKILL Q
+"RTN","ECXLPRO",22,0)
+ S DA=ECXPRIME,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99" D EN^DIQ1
+"RTN","ECXLPRO",23,0)
+ S ECXPRIME=ECXPRIME_U_$G(ECXDIC(4,DA,99,"I"))_U_$G(ECXDIC(4,DA,.01,"I"))
+"RTN","ECXLPRO",24,0)
+ ;get all prosthetics divisions for report
+"RTN","ECXLPRO",25,0)
+ S ECXALL=1
+"RTN","ECXLPRO",26,0)
+ D PDIV3^ECXPUTL(DUZ,ECXPRIME,.ECXDIV)
+"RTN","ECXLPRO",27,0)
+ I ECXERR D Q
+"RTN","ECXLPRO",28,0)
+ .D ^ECXKILL W !!,?5,"Try again later... exiting.",!
+"RTN","ECXLPRO",29,0)
+ ;determine fiscal year of report
+"RTN","ECXLPRO",30,0)
+ S DIR(0)="SMBA^C:CURRENT;P:PREVIOUS",DIR("A")="Select C(urrent) or P(revious) Fiscal Year: ",DIR("B")="CURRENT"
+"RTN","ECXLPRO",31,0)
+ W ! K X,Y D ^DIR K DIR
+"RTN","ECXLPRO",32,0)
+ I $D(DUOUT)!($D(DTOUT)) D Q
+"RTN","ECXLPRO",33,0)
+ .D ^ECXKILL W !!,?5,"Try again later... exiting.",!
+"RTN","ECXLPRO",34,0)
+ I Y="C" D
+"RTN","ECXLPRO",35,0)
+ .S X=$$CYFY^ECXUTL1(DT),ECXARRAY("START")=$P(X,U,3),ECXARRAY("END")=$P(X,U,4)
+"RTN","ECXLPRO",36,0)
+ I Y="P" D
+"RTN","ECXLPRO",37,0)
+ .S YR=$E(DT,1,3),MON=$E(DT,4,5) S:+MON<10 YR=YR-1 S X1=YR_"0930"
+"RTN","ECXLPRO",38,0)
+ .S X=$$CYFY^ECXUTL1(X1),ECXARRAY("START")=$P(X,U,3),ECXARRAY("END")=$P(X,U,4)
+"RTN","ECXLPRO",39,0)
+ .K C,MON,YR,X1
+"RTN","ECXLPRO",40,0)
+ ;setup variables for taskmanager
+"RTN","ECXLPRO",41,0)
+ S ECXPGM="PROCESS^ECXLPRO",ECXDESC="PRO Extract YTD HCPCS Report"
+"RTN","ECXLPRO",42,0)
+ S ECXSAVE("ECXHEAD")="",ECXSAVE("ECXDIV(")="",ECXSAVE("ECXARRAY(")="",ECXSAVE("ECXPRIME")="",ECXSAVE("ECXALL")=""
+"RTN","ECXLPRO",43,0)
+ ;determine output device and queue if requested
+"RTN","ECXLPRO",44,0)
+ S ECXPORT=$$EXPORT^ECXUTL1 Q:ECXPORT=-1 I ECXPORT D Q ;144
+"RTN","ECXLPRO",45,0)
+ .K ^TMP($J,"ECXPORT") ;144
+"RTN","ECXLPRO",46,0)
+ .S ^TMP($J,"ECXPORT",0)="REPORT TYPE^PSAS HCPCS^LOCAL QTY^LOCAL LABOR COST^LOCAL MATERIAL COST^LOCAL AVE COST^ALL OTHER QTY^ALL OTHER LABOR COST^ALL OTHER MATERIAL COST^ALL OTHER AVE COST" ;144
+"RTN","ECXLPRO",47,0)
+ .S CNT=1 ;144
+"RTN","ECXLPRO",48,0)
+ .D PROCESS ;144
+"RTN","ECXLPRO",49,0)
+ .D EXPDISP^ECXUTL1 ;144
+"RTN","ECXLPRO",50,0)
+ .D ^ECXKILL ;144
+"RTN","ECXLPRO",51,0)
+ W !!,"Please note: The PRO Extract YTD Laboratory Report requires 132 columns."
+"RTN","ECXLPRO",52,0)
+ W !," Select an appropriate device for output."
+"RTN","ECXLPRO",53,0)
+ W ! D DEVICE^ECXUTLA(ECXPGM,ECXDESC,.ECXSAVE)
+"RTN","ECXLPRO",54,0)
+ I ECXSAVE("POP")=1 W ! D ^ECXKILL Q
+"RTN","ECXLPRO",55,0)
+ I ECXSAVE("ZTSK")=0 D
+"RTN","ECXLPRO",56,0)
+ .K ECXSAVE,ECXPGM,ECXDESC
+"RTN","ECXLPRO",57,0)
+ .D PROCESS
+"RTN","ECXLPRO",58,0)
+ ;clean-up and close
+"RTN","ECXLPRO",59,0)
+ I IO'=IO(0) D ^%ZISC
+"RTN","ECXLPRO",60,0)
+ D HOME^%ZIS
+"RTN","ECXLPRO",61,0)
+ Q
+"RTN","ECXLPRO",62,0)
+ ;
+"RTN","ECXLPRO",63,0)
+PROCESS ;begin processing
+"RTN","ECXLPRO",64,0)
+ N DIVISION,E,EXTRACT,REC,NODE0,NODE1,LASTDAY
+"RTN","ECXLPRO",65,0)
+ K ^TMP($J,"ECXP") S LASTDAY=""
+"RTN","ECXLPRO",66,0)
+ ;determine which extracts contain data for report
+"RTN","ECXLPRO",67,0)
+ S (EXTRACT,E)=0
+"RTN","ECXLPRO",68,0)
+ F S E=$O(^ECX(727,"E",ECXHEAD,E)) Q:'E D
+"RTN","ECXLPRO",69,0)
+ .Q:'$D(^ECX(727,E,0))
+"RTN","ECXLPRO",70,0)
+ .Q:$P($G(^ECX(727,E,0)),U,4)<ECXARRAY("START")
+"RTN","ECXLPRO",71,0)
+ .Q:$P($G(^ECX(727,E,0)),U,4)>ECXARRAY("END")
+"RTN","ECXLPRO",72,0)
+ .Q:$G(^ECX(727,E,"DIV"))'=+ECXPRIME
+"RTN","ECXLPRO",73,0)
+ .S EXTRACT(E)=^ECX(727,E,0)
+"RTN","ECXLPRO",74,0)
+ .I $P(EXTRACT(E),U,5)>LASTDAY S LASTDAY=$P(EXTRACT(E),U,5)
+"RTN","ECXLPRO",75,0)
+ ;setup array of station numbers included in report
+"RTN","ECXLPRO",76,0)
+ F DIV=0:0 S DIV=$O(ECXDIV(DIV)) Q:'DIV S ECXSTAT=$P(ECXDIV(DIV),U,2),DIVISION(ECXSTAT)=ECXDIV(DIV)
+"RTN","ECXLPRO",77,0)
+ ;get the extract data
+"RTN","ECXLPRO",78,0)
+ S E=0 F S E=$O(EXTRACT(E)) Q:'E S REC=0 I $D(^ECX(727.826,"AC",E)) F S REC=$O(^ECX(727.826,"AC",E,REC)) Q:'REC D
+"RTN","ECXLPRO",79,0)
+ .S NODE0=$G(^ECX(727.826,REC,0)),NODE1=$G(^ECX(727.826,REC,1)) Q:NODE0=""
+"RTN","ECXLPRO",80,0)
+ .S (ECXCTAMT,ECXLLC,ECXLMC)=0
+"RTN","ECXLPRO",81,0)
+ .S ECXFELOC=$P(NODE0,U,10),ECXFEKEY=$P(NODE0,U,11)
+"RTN","ECXLPRO",82,0)
+ .;ignore any record which isn't for lab receiving station
+"RTN","ECXLPRO",83,0)
+ .Q:ECXFELOC'["LAB"
+"RTN","ECXLPRO",84,0)
+ .S ECXHCPC=$P(NODE0,U,33),ECXTYPE=$E(ECXFEKEY,6),ECXREQ=$P($E(ECXFEKEY,8,99),"REQ",1)
+"RTN","ECXLPRO",85,0)
+ .S ECXQTY=$P(NODE0,U,12),ECXCTAMT=$P(NODE0,U,25),ECXGRPR=$P(NODE1,U,4)
+"RTN","ECXLPRO",86,0)
+ .S ECXSTAT=$P(ECXFELOC,"LAB",1),ECXFORM="LAB"
+"RTN","ECXLPRO",87,0)
+ .S ECXLLC=$P(NODE0,U,26),ECXLMC=$P(NODE0,U,27)
+"RTN","ECXLPRO",88,0)
+ .;ignore record if division not included in this report
+"RTN","ECXLPRO",89,0)
+ .Q:ECXSTAT="" Q:'$D(DIVISION(ECXSTAT))
+"RTN","ECXLPRO",90,0)
+ .;set in ^tmp using primary station#; determine if requesting station is same as or part of this station
+"RTN","ECXLPRO",91,0)
+ .S ECXLAB="",ECXSTAT=+ECXSTAT,ECXLAB=$S(ECXREQ'[ECXSTAT:"OTHER",1:"SAME")
+"RTN","ECXLPRO",92,0)
+ .;be sure there's no padding on cost variables
+"RTN","ECXLPRO",93,0)
+ .S ECXCTAMT=+$TR(ECXCTAMT," ",0),ECXLLC=+$TR(ECXLLC," ",0),ECXLMC=+$TR(ECXLMC," ",0)
+"RTN","ECXLPRO",94,0)
+ .;tmp global holds - lab qty^lab labor cost^lab matrl cost
+"RTN","ECXLPRO",95,0)
+ .I '$D(^TMP($J,"ECXP",ECXTYPE,ECXHCPC)) S ^TMP($J,"ECXP",ECXTYPE,ECXHCPC,"SAME")="0^0^0",^TMP($J,"ECXP",ECXTYPE,ECXHCPC,"OTHER")="0^0^0"
+"RTN","ECXLPRO",96,0)
+ .S $P(^TMP($J,"ECXP",ECXTYPE,ECXHCPC,ECXLAB),U,1)=$P(^TMP($J,"ECXP",ECXTYPE,ECXHCPC,ECXLAB),U,1)+ECXQTY
+"RTN","ECXLPRO",97,0)
+ .S $P(^TMP($J,"ECXP",ECXTYPE,ECXHCPC,ECXLAB),U,2)=$P(^TMP($J,"ECXP",ECXTYPE,ECXHCPC,ECXLAB),U,2)+ECXLLC
+"RTN","ECXLPRO",98,0)
+ .S $P(^TMP($J,"ECXP",ECXTYPE,ECXHCPC,ECXLAB),U,3)=$P(^TMP($J,"ECXP",ECXTYPE,ECXHCPC,ECXLAB),U,3)+ECXLMC
+"RTN","ECXLPRO",99,0)
+ ;setup hcpcs descriptions
+"RTN","ECXLPRO",100,0)
+ D HCPCS^ECXCPRO
+"RTN","ECXLPRO",101,0)
+ ;print report
+"RTN","ECXLPRO",102,0)
+ D PRINT^ECXLPRO1
+"RTN","ECXLPRO",103,0)
+ ;cleanup
+"RTN","ECXLPRO",104,0)
+ I '$G(ECXPORT) D AUDIT^ECXKILL ;144
+"RTN","ECXLPRO",105,0)
+ Q
+"RTN","ECXLPRO",106,0)
+ ;
+"RTN","ECXLPRO",107,0)
+HCPCS ;setup hcpcs cross-reference
+"RTN","ECXLPRO",108,0)
+ N H,CPT,CPTNM,DESC
+"RTN","ECXLPRO",109,0)
+ S H=0
+"RTN","ECXLPRO",110,0)
+ F S H=$O(^RMPR(661.1,H)) Q:+H<1 D
+"RTN","ECXLPRO",111,0)
+ .;don't skip inactive hcpcs in case doing previous fy
+"RTN","ECXLPRO",112,0)
+ .S CPTNM="",CPT=$P(^RMPR(661.1,H,0),U,4)
+"RTN","ECXLPRO",113,0)
+ .I +CPT>0 S CPTNM=$P(^ICPT(CPT,0),U,1),DESC=$E($P(^ICPT(CPT,0),U,2),1,26)
+"RTN","ECXLPRO",114,0)
+ .Q:CPTNM=""
+"RTN","ECXLPRO",115,0)
+ .S ^TMP($J,"HCPCS",CPTNM)=DESC
+"RTN","ECXLPRO",116,0)
+ Q
+"RTN","ECXLPRO1")
+0^39^B11630599^B8515235
+"RTN","ECXLPRO1",1,0)
+ECXLPRO1 ;ALB/JAP - PRO Extract YTD Lab Report (cont) ;3/4/13 16:29
+"RTN","ECXLPRO1",2,0)
+ ;;3.0;DSS EXTRACTS;**21,84,144**;Dec 22, 1997;Build 9
+"RTN","ECXLPRO1",3,0)
+ ;
+"RTN","ECXLPRO1",4,0)
+PRINT ;print report
+"RTN","ECXLPRO1",5,0)
+ N PG,LN,QFLG,NODE1,NODE2,DESC,AVE,JJ,SS,X1,X2
+"RTN","ECXLPRO1",6,0)
+ U IO
+"RTN","ECXLPRO1",7,0)
+ S QFLG=0,$P(LN,"-",132)=""
+"RTN","ECXLPRO1",8,0)
+ S Y=ECXARRAY("START") D DD^%DT S ECXSTART=Y
+"RTN","ECXLPRO1",9,0)
+ S Y=$S(LASTDAY:LASTDAY,ECXARRAY("END")>DT:DT,1:ECXARRAY("END")) D DD^%DT S ECXEND=Y
+"RTN","ECXLPRO1",10,0)
+ D NOW^%DTC S Y=$E(%,1,12) D DD^%DT S ECXRUN=Y
+"RTN","ECXLPRO1",11,0)
+ F ECXTYPE="N","X" D Q:QFLG
+"RTN","ECXLPRO1",12,0)
+ .I '$G(ECXPORT) S PG=0 D HEADER ;144 No header if exporting
+"RTN","ECXLPRO1",13,0)
+ .S ECXHCPC=""
+"RTN","ECXLPRO1",14,0)
+ .;it's possible that no extract data was found
+"RTN","ECXLPRO1",15,0)
+ .I '$D(^TMP($J,"ECXP",ECXTYPE)) D Q
+"RTN","ECXLPRO1",16,0)
+ ..I $G(ECXPORT) Q ;144 Don't print if exporting
+"RTN","ECXLPRO1",17,0)
+ ..W !!,?37,"No extract data available."
+"RTN","ECXLPRO1",18,0)
+ ..I $E(IOST)="C" D Q:QFLG
+"RTN","ECXLPRO1",19,0)
+ ...S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXLPRO1",20,0)
+ ...S DIR(0)="E" D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXLPRO1",21,0)
+ .F S ECXHCPC=$O(^TMP($J,"ECXP",ECXTYPE,ECXHCPC)) Q:ECXHCPC="" D Q:QFLG
+"RTN","ECXLPRO1",22,0)
+ ..S DESC=$G(^TMP($J,"HCPCS",ECXHCPC)) S:DESC="" DESC="(Unknown)" S DESC=ECXHCPC_" "_DESC
+"RTN","ECXLPRO1",23,0)
+ ..S NODE1=^TMP($J,"ECXP",ECXTYPE,ECXHCPC,"SAME"),NODE2=^TMP($J,"ECXP",ECXTYPE,ECXHCPC,"OTHER")
+"RTN","ECXLPRO1",24,0)
+ ..;node holds - lab qty^lab labor cost^lab matrl cost
+"RTN","ECXLPRO1",25,0)
+ ..F I=1:1:3 S X1(I)=+$P(NODE1,U,I),X2(I)=+$P(NODE2,U,I)
+"RTN","ECXLPRO1",26,0)
+ ..S AVE("O")=0,AVE("S")=0,TOT("O")=0,TOT("S")=0
+"RTN","ECXLPRO1",27,0)
+ ..S TOT("S")=X1(2)+X1(3),TOT("O")=X2(2)+X2(3)
+"RTN","ECXLPRO1",28,0)
+ ..S:X1(1)>0 AVE("S")=TOT("S")/X1(1) S:X2(1)>0 AVE("O")=TOT("O")/X2(1)
+"RTN","ECXLPRO1",29,0)
+ ..I '$G(ECXPORT) D:($Y+3>IOSL) HEADER Q:QFLG ;144 Don't print header if exporting
+"RTN","ECXLPRO1",30,0)
+ ..I $G(ECXPORT) D Q ;144 get data if exporting
+"RTN","ECXLPRO1",31,0)
+ ...S ^TMP($J,"ECXPORT",CNT)=$S(ECXTYPE="N":"NEW",1:"REPAIR") ;144
+"RTN","ECXLPRO1",32,0)
+ ...S ^TMP($J,"ECXPORT",CNT)=^TMP($J,"ECXPORT",CNT)_U_DESC_U_X1(1)_U_X1(2)_U_X1(3)_U_$FN(AVE("S"),"",2)_U_X2(1)_U_X2(2)_U_X2(3)_U_$FN(AVE("O"),"",2) ;144
+"RTN","ECXLPRO1",33,0)
+ ...S CNT=CNT+1 ;144
+"RTN","ECXLPRO1",34,0)
+ ..W !,DESC,?33,$J(X1(1),8,0),?43,$J(X1(2),8,0),?54,$J(X1(3),8,0),?65,$J(AVE("S"),8,2),?82,$J(X2(1),8,0),?93,$J(X2(2),8,0),?104,$J(X2(3),8,0),?115,$J(AVE("O"),8,2)
+"RTN","ECXLPRO1",35,0)
+ .I $G(ECXPORT) Q ;144 Stop if exporting
+"RTN","ECXLPRO1",36,0)
+ .I 'QFLG,$E(IOST)="C" D
+"RTN","ECXLPRO1",37,0)
+ ..S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXLPRO1",38,0)
+ ..S DIR(0)="E" D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXLPRO1",39,0)
+ I '$G(ECXPORT) W @IOF ;144 Don't print if exporting
+"RTN","ECXLPRO1",40,0)
+ Q
+"RTN","ECXLPRO1",41,0)
+ ;
+"RTN","ECXLPRO1",42,0)
+HEADER ;header & page control
+"RTN","ECXLPRO1",43,0)
+ I $E(IOST)="C" D
+"RTN","ECXLPRO1",44,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXLPRO1",45,0)
+ .I PG>0 S DIR(0)="E" D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXLPRO1",46,0)
+ Q:QFLG
+"RTN","ECXLPRO1",47,0)
+ W:$Y!($E(IOST)="C") @IOF S PG=PG+1
+"RTN","ECXLPRO1",48,0)
+ W "Prosthetics (PRO) Extract YTD Laboratory Report",?122,"Page "_PG
+"RTN","ECXLPRO1",49,0)
+ W !,"FY Date Range: "_ECXSTART_" to "_ECXEND
+"RTN","ECXLPRO1",50,0)
+ W !,"Facility: "_$P(ECXPRIME,U,3)_" ("_$P(ECXPRIME,U,2)_")"
+"RTN","ECXLPRO1",51,0)
+ W !,"Run Date/Time: "_ECXRUN
+"RTN","ECXLPRO1",52,0)
+ W:ECXTYPE="N" !!,"REPORT OF NEW PROSTHETICS ACTIVITIES (Initial, Replacement, or Spare)",!
+"RTN","ECXLPRO1",53,0)
+ W:ECXTYPE="X" !!,"REPORT OF REPAIR PROSTHETICS ACTIVITIES",!
+"RTN","ECXLPRO1",54,0)
+ W !,?37,"Produced for Station #"_$P(ECXPRIME,U,2),?86,"Produced for all other stations"
+"RTN","ECXLPRO1",55,0)
+ W !,"PSAS HCPCS",?37,"Qty.",?44,"Labor $",?55,"Mat'l $",?67,"Ave. $",?86,"Qty.",?94,"Labor $",?105,"Mat'l $",?117,"Ave. $"
+"RTN","ECXLPRO1",56,0)
+ W !,LN,!
+"RTN","ECXLPRO1",57,0)
+ Q
+"RTN","ECXOPRX")
+0^26^B64829942^B60339399
+"RTN","ECXOPRX",1,0)
+ECXOPRX ;ALB/JAP,BIR/DMA,CML,PTD-Prescription Extract for DSS ;4/16/13 16:28
+"RTN","ECXOPRX",2,0)
+ ;;3.0;DSS EXTRACTS;**10,11,8,13,24,30,33,38,39,46,49,71,81,84,92,105,112,120,127,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXOPRX",3,0)
+ ;
+"RTN","ECXOPRX",4,0)
+BEG ;entry point from option
+"RTN","ECXOPRX",5,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXOPRX",6,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXOPRX",7,0)
+ Q
+"RTN","ECXOPRX",8,0)
+ ;
+"RTN","ECXOPRX",9,0)
+START ;entry when queued
+"RTN","ECXOPRX",10,0)
+ N X,DA,DIC,DIQ,DR,ECXNPRFI,ECRXPTST,ECNONVAP,ECRXNUM,ECXSCRX,ECXESC,ECXCLST,ECXECL ;144
+"RTN","ECXOPRX",11,0)
+ S QFLG=0
+"RTN","ECXOPRX",12,0)
+ I '$D(ECINST) D
+"RTN","ECXOPRX",13,0)
+ .S ECINST=+$P(^ECX(728,1,0),U) K ECXDIC S DA=ECINST,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99"
+"RTN","ECXOPRX",14,0)
+ .D EN^DIQ1 S ECINST=$G(ECXDIC(4,DA,99,"I")) K DIC,DIQ,DA,DR,ECXDIC
+"RTN","ECXOPRX",15,0)
+ ;before V6
+"RTN","ECXOPRX",16,0)
+ S ECPROF=6,ECD=$O(^PSRX("AL",0)) I ECD,ECD<ECSD1 G V6
+"RTN","ECXOPRX",17,0)
+ S ECED=ECED+.3,ECREF=1,ECD=ECSD1
+"RTN","ECXOPRX",18,0)
+ F S ECD=$O(^PSRX("AD",ECD)),ECRX=0 Q:'ECD Q:ECD>ECED Q:QFLG F S ECRX=$O(^PSRX("AD",ECD,ECRX)),ECRFL="" Q:'ECRX F S ECRFL=$O(^PSRX("AD",ECD,ECRX,ECRFL)) Q:ECRFL="" D STUFF Q:QFLG
+"RTN","ECXOPRX",19,0)
+ Q
+"RTN","ECXOPRX",20,0)
+ ;
+"RTN","ECXOPRX",21,0)
+V6 ;version 6 or better
+"RTN","ECXOPRX",22,0)
+ K ^TMP($J,"ECXP")
+"RTN","ECXOPRX",23,0)
+ S ECPROF=2,ECED=ECED+.3,ECREF=1,ECD=ECSD1
+"RTN","ECXOPRX",24,0)
+ F S ECD=$O(^PSRX("AL",ECD)),ECRX=0 Q:'ECD Q:ECD>ECED Q:QFLG F S ECRX=$O(^PSRX("AL",ECD,ECRX)),ECRFL="" Q:'ECRX F S ECRFL=$O(^PSRX("AL",ECD,ECRX,ECRFL)) Q:ECRFL="" D STUFF Q:QFLG
+"RTN","ECXOPRX",25,0)
+ Q:QFLG
+"RTN","ECXOPRX",26,0)
+ S ECREF="P",ECD=ECSD1
+"RTN","ECXOPRX",27,0)
+ F S ECD=$O(^PSRX("AM",ECD)),ECRX=0 Q:'ECD Q:ECD>ECED Q:QFLG F S ECRX=$O(^PSRX("AM",ECD,ECRX)),ECRFL="" Q:'ECRX F S ECRFL=$O(^PSRX("AM",ECD,ECRX,ECRFL)) Q:ECRFL="" D STUFF Q:QFLG
+"RTN","ECXOPRX",28,0)
+ K ^TMP($J,"ECXP")
+"RTN","ECXOPRX",29,0)
+ Q
+"RTN","ECXOPRX",30,0)
+ ;
+"RTN","ECXOPRX",31,0)
+STUFF ;get data
+"RTN","ECXOPRX",32,0)
+ N ECXPHA
+"RTN","ECXOPRX",33,0)
+ S ECDATA=$G(^PSRX(ECRX,0)),ECXPHA="" Q:'ECDATA
+"RTN","ECXOPRX",34,0)
+ I ECRFL S ECDATA1=$G(^PSRX(ECRX,ECREF,ECRFL,0)) I ECDATA1="" Q
+"RTN","ECXOPRX",35,0)
+ ;ecref set to 1 in extract+5 and v6+1 and to "P" in v6+2
+"RTN","ECXOPRX",36,0)
+ ;refill nodes and partial nodes are identical in layout. Fills
+"RTN","ECXOPRX",37,0)
+ ;(ie ecrfl=0)& refills (ie ecrfl>0) from "AL" xref, partials from "AM"
+"RTN","ECXOPRX",38,0)
+ S (ECXDSSD,ECXPROVN,ECXCVE,ECXCVEDT,ECXCVENC,ECRXPTST,ECRXNUM)="",ECXERR=0,ECXDATE=ECD,ECXDFN=$P(ECDATA,U,2),ECDRG=+$P(ECDATA,U,6)
+"RTN","ECXOPRX",39,0)
+ ;- Get rx patient status & rx number
+"RTN","ECXOPRX",40,0)
+ S ECRXPTST=$$RXPTST^ECXUTL5($P(ECDATA,U,3)),ECRXNUM=$P(ECDATA,U,1)
+"RTN","ECXOPRX",41,0)
+ ;- Get provider (either 2_provider or 6_provider depending on version)
+"RTN","ECXOPRX",42,0)
+ S ECXPROV=$S($P(ECDATA,U,4)'="":ECPROF_$P(ECDATA,U,4),1:""),ECXPROVP=$$PRVCLASS^ECXUTL($P(ECDATA,U,4),ECXDATE)
+"RTN","ECXOPRX",43,0)
+ S ECPRVNPI=$$NPI^XUSNPI("Individual_ID",$P(ECDATA,U,4),ECXDATE)
+"RTN","ECXOPRX",44,0)
+ S:+ECPRVNPI'>0 ECPRVNPI="" S ECPRVNPI=$P(ECPRVNPI,U)
+"RTN","ECXOPRX",45,0)
+ ;get classification data
+"RTN","ECXOPRX",46,0)
+ S ECXCLS=$G(^PSRX(ECRX,"IBQ")),ECXMIL=$P(ECXCLS,U,2),ECXAO=$P(ECXCLS,U,3),ECXIR=$P(ECXCLS,U,4),ECXECE=$P(ECXCLS,U,5),ECXHNC=$P(ECXCLS,U,6),ECXSHAD=$P(ECXCLS,U,8)
+"RTN","ECXOPRX",47,0)
+ F X="ECXMIL","ECXAO","ECXIR","ECXECE","ECXHNC","ECXSHAD" S @X=$S(@X:"Y", at X=0:"N",1:"")
+"RTN","ECXOPRX",48,0)
+ ;- Check non-va provider flag and set to 'Y' if exist
+"RTN","ECXOPRX",49,0)
+ S ECNONVAP=$$NONVAP^ECXUTL5($E(ECXPROV,2,99))
+"RTN","ECXOPRX",50,0)
+ ; ******* - PATCH 127, ADD PATCAT CODE ********
+"RTN","ECXOPRX",51,0)
+ S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXOPRX",52,0)
+ ;get patient specific data
+"RTN","ECXOPRX",53,0)
+ D PAT(ECXDFN,ECXDATE,.ECXERR) Q:ECXERR
+"RTN","ECXOPRX",54,0)
+ I 'ECRFL D
+"RTN","ECXOPRX",55,0)
+ .S ECMW=$P(ECDATA,U,11),ECQTY=+$P(ECDATA,U,7),ECXDIV=$S($D(^PSRX(ECRX,2)):$P(^(2),U,9),1:1)
+"RTN","ECXOPRX",56,0)
+ .S ECPRC=+$P(ECDATA,U,17),ECOPAY=$P($G(^PSRX(ECRX,"IB")),U,2)]""
+"RTN","ECXOPRX",57,0)
+ I ECRFL D
+"RTN","ECXOPRX",58,0)
+ .S ECMW=$P(ECDATA1,U,2),ECQTY=+$P(ECDATA1,U,4),ECXDIV=$S(+$P(ECDATA1,U,9):$P(ECDATA1,U,9),1:1)
+"RTN","ECXOPRX",59,0)
+ .S ECPRC=+$P(ECDATA1,U,11),ECOPAY=$P($G(^PSRX(ECRX,1,ECRFL,"IB")),U)]""
+"RTN","ECXOPRX",60,0)
+ S ECXCOST=$J((ECQTY*ECPRC),1,2),ECDS=$S(ECRFL:$P(ECDATA1,U,10),1:$P(ECDATA,U,8))
+"RTN","ECXOPRX",61,0)
+ ;call pharmacy drug file (#50) api
+"RTN","ECXOPRX",62,0)
+ S ECXPHA=$$PHAAPI^ECXUTL5(ECDRG),ECCAT=$P(ECXPHA,U,2),ECINV=$P(ECXPHA,U,4)
+"RTN","ECXOPRX",63,0)
+ ; new method of dea spl hndlg **136 updated precedence *144
+"RTN","ECXOPRX",64,0)
+ I ECXLOGIC>2012 S ECINV=$S((+ECINV>0)&(+ECINV<6):+ECINV,ECINV["I":"I",1:"")
+"RTN","ECXOPRX",65,0)
+ ; old method of dea spl hndlg **136
+"RTN","ECXOPRX",66,0)
+ I ECXLOGIC<2013 S ECINV=$S(ECINV["I":"I",1:"")
+"RTN","ECXOPRX",67,0)
+ S ECUI=$P(ECXPHA,U,8),ECNDC=$P(ECXPHA,U,3)
+"RTN","ECXOPRX",68,0)
+ S ECNFC=$$RJ^XLFSTR($P(ECNDC,"-"),6,0)_$$RJ^XLFSTR($P(ECNDC,"-",2),4,0)_$$RJ^XLFSTR($P(ECNDC,"-",3),2,0),ECNFC=$TR(ECNFC,"*",0),P1=$P(ECXPHA,U,5),P3=$P(ECXPHA,U,6)
+"RTN","ECXOPRX",69,0)
+ S X="PSNAPIS" X ^%ZOSF("TEST") I $T S ECNFC=$$DSS^PSNAPIS(P1,P3,ECXYM)_ECNFC
+"RTN","ECXOPRX",70,0)
+ I $L(ECNFC)=12 S ECNFC=$$RJ^XLFSTR(P1,4,0)_$$RJ^XLFSTR(P3,3,0)_ECNFC
+"RTN","ECXOPRX",71,0)
+ I ECMW="M" S ECMW=1 I $D(^PSRX("AR",ECD,ECRX)) S ECMW=2
+"RTN","ECXOPRX",72,0)
+ I ECMW="W" S ECMW=""
+"RTN","ECXOPRX",73,0)
+ S ECXNEW="" I ECRFL=0 S ECXNEW=1
+"RTN","ECXOPRX",74,0)
+ S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS) ;Observation pat indic (YES/NO)
+"RTN","ECXOPRX",75,0)
+ S ECXORDPH="" ;Ordering physician (null for FY2002)
+"RTN","ECXOPRX",76,0)
+ ;- Ordering stop code & Ordering date
+"RTN","ECXOPRX",77,0)
+ S ECXORDST=$P($G(^ECX(728.44,+$P(ECDATA,U,5),0)),U,2),ECXORDDT=$$ECXDATE^ECXUTL(+$P(ECDATA,U,13),ECXYM)
+"RTN","ECXOPRX",78,0)
+ S ECXCNH=$$CNHSTAT^ECXUTL4(ECXDFN) ;CNH status (YES/NO)
+"RTN","ECXOPRX",79,0)
+ ;- DSS Dept and National Prod Division
+"RTN","ECXOPRX",80,0)
+ ;S ECXDSSD=$$PRE^ECXDEPT(ECXDIV,ECMW,ECINST) dss department postponed
+"RTN","ECXOPRX",81,0)
+ N ECXPDIV S ECXPDIV=$$PREDIV^ECXDEPT(ECXDIV)
+"RTN","ECXOPRX",82,0)
+ ;- Set national patient record flag if exist
+"RTN","ECXOPRX",83,0)
+ D NPRF^ECXUTL5
+"RTN","ECXOPRX",84,0)
+ S ECXSCRX=$$SCRX^ECXUTL5(ECRX) ;Service connected rx
+"RTN","ECXOPRX",85,0)
+ S ECXESC=ECXSCRX ;144 Encounter SC set based on prescription SC setting
+"RTN","ECXOPRX",86,0)
+ S ECXECL="" ;144 Encounter Camp Lejeune null until information available in prescription file
+"RTN","ECXOPRX",87,0)
+ ;- If no encounter number don't file record
+"RTN","ECXOPRX",88,0)
+ S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,,)
+"RTN","ECXOPRX",89,0)
+ I ECXLOGIC>2003 D
+"RTN","ECXOPRX",90,0)
+ .I (ECMW=2)!((ECMW=1)&(ECXLOGIC>2006)),ECXSSN'="" D
+"RTN","ECXOPRX",91,0)
+ .. N TMP
+"RTN","ECXOPRX",92,0)
+ .. I (ECXLOGIC>2008) S TMP=$$JULDT^ECXUTL4(ECD),ECXENC=$E(ECXSSN,1,9)_TMP_"PHA"
+"RTN","ECXOPRX",93,0)
+ .. E S TMP=$$JULDT^ECXUTL4(ECD),ECXENC=$E(ECXSSN,1,9)_TMP_"160"
+"RTN","ECXOPRX",94,0)
+ .. I (ECXLOGIC>2009),(ECXOBS="YES") S ECXOBS=""
+"RTN","ECXOPRX",95,0)
+ .. S ECXA="O"
+"RTN","ECXOPRX",96,0)
+ I ECXENC'="" D FILE^ECXOPRX1
+"RTN","ECXOPRX",97,0)
+ Q
+"RTN","ECXOPRX",98,0)
+ ;
+"RTN","ECXOPRX",99,0)
+PAT(ECXDFN,ECXDATE,ECXERR) ;Determine in/outpatient status, movement number, primary care team and provider
+"RTN","ECXOPRX",100,0)
+ N OK,X,PT
+"RTN","ECXOPRX",101,0)
+ S (ECXCAT,ECXSTAT,ECXPRIOR,ECXSBGRP,ECXOEF,ECXOEFDT)=""
+"RTN","ECXOPRX",102,0)
+ ;get patient data if saved
+"RTN","ECXOPRX",103,0)
+ I $D(^TMP($J,"ECXP",ECXDFN)) D
+"RTN","ECXOPRX",104,0)
+ .S PT=^TMP($J,"ECXP",ECXDFN),ECXSSN=$P(PT,U),ECXPNM=$P(PT,U,2),ECXMPI=$P(PT,U,3),ECXSEX=$P(PT,U,4),ECXDOB=$P(PT,U,5)
+"RTN","ECXOPRX",105,0)
+ .S ECXELIG=$P(PT,U,6),ECXVET=$P(PT,U,7),ECXRACE=$P(PT,U,8),ECXPST=$P(PT,U,9),ECXPLOC=$P(PT,U,10),ECXRST=$P(PT,U,11)
+"RTN","ECXOPRX",106,0)
+ .S ECXAST=$P(PT,U,12),ECXMST=$P(PT,U,13),ECXSTATE=$P(PT,U,14),ECXCNTY=$P(PT,U,15),ECXZIP=$P(PT,U,16),ECXENRL=$P(PT,U,17)
+"RTN","ECXOPRX",107,0)
+ .S ECXPHI=$P(PT,U,20),ECXCAT=$P(PT,U,21),ECXSTAT=$P(PT,U,22),ECXPRIOR=$P(PT,U,23)
+"RTN","ECXOPRX",108,0)
+ .S ECXCNHU=$P(PT,U,24),ECXPOS=$P(PT,U,25),ECXAOL=$P(PT,U,26),ECXHNCI=$P(PT,U,27),ECXETH=$P(PT,U,28),ECXRC1=$P(PT,U,29),ECXMTST=$P(PT,U,30)
+"RTN","ECXOPRX",109,0)
+ .S PT1=$G(^TMP($J,"ECXP",ECXDFN,1)),ECXERI=$P(PT1,U),ECXEST=$P(PT1,U,2),ECXOEF=$P(PT1,U,3),ECXOEFDT=$P(PT1,U,4),ECXCNTRY=$P(PT1,U,5)
+"RTN","ECXOPRX",110,0)
+ .S ECXPATCAT=$P(PT1,U,6),ECXSHAD=$P(PT1,U,7),ECXSHADI=$P(PT1,U,8),ECXVNS=$P(PT1,U,9),ECXCLST=$P(PT1,U,10) ;144 Vietnam and Camp Lejeune status
+"RTN","ECXOPRX",111,0)
+ .I $$ENROLLM^ECXUTL2(ECXDFN)
+"RTN","ECXOPRX",112,0)
+ ;set patient data
+"RTN","ECXOPRX",113,0)
+ I '$D(^TMP($J,"ECXP",ECXDFN)) D Q:'OK
+"RTN","ECXOPRX",114,0)
+ .K ECXPAT
+"RTN","ECXOPRX",115,0)
+ .S OK=$$PAT^ECXUTL3(ECXDFN,$P(ECSD1,"."),"1;2;3;5",.ECXPAT)
+"RTN","ECXOPRX",116,0)
+ .I 'OK S ECXERR=1 Q
+"RTN","ECXOPRX",117,0)
+ .S ECXSSN=ECXPAT("SSN"),ECXPNM=ECXPAT("NAME"),ECXMPI=ECXPAT("MPI"),ECXSEX=ECXPAT("SEX"),ECXDOB=ECXPAT("DOB"),ECXELIG=ECXPAT("ELIG")
+"RTN","ECXOPRX",118,0)
+ .S ECXVET=ECXPAT("VET"),ECXRACE=ECXPAT("RACE"),ECXPST=ECXPAT("POW STAT"),ECXPLOC=ECXPAT("POW LOC"),ECXRST=ECXPAT("IR STAT")
+"RTN","ECXOPRX",119,0)
+ .S ECXAST=ECXPAT("AO STAT"),ECXMST=ECXPAT("MST STAT"),ECXSTATE=ECXPAT("STATE"),ECXCNTY=ECXPAT("COUNTY"),ECXZIP=ECXPAT("ZIP"),ECXENRL=ECXPAT("ENROLL LOC")
+"RTN","ECXOPRX",120,0)
+ .S ECXERI=ECXPAT("ERI"),ECXEST=ECXPAT("EC STAT"),ECXCNTRY=ECXPAT("COUNTRY"),ECXVNS=ECXPAT("VIETNAM"),ECXCLST=ECXPAT("CL STAT") ; 144 VIETNAM STATUS and Camp Lejeune Status
+"RTN","ECXOPRX",121,0)
+ .;- CNH Stat (placeholder),Purp Heart Ind,Per of Svce,AO Loc,MT Stat
+"RTN","ECXOPRX",122,0)
+ .S ECXCNHU="",ECXPHI=ECXPAT("PHI"),ECXPOS=ECXPAT("POS"),ECXAOL=ECXPAT("AOL"),ECXMTST=ECXPAT("MEANS")
+"RTN","ECXOPRX",123,0)
+ .I $$ENROLLM^ECXUTL2(ECXDFN)
+"RTN","ECXOPRX",124,0)
+ .S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN) ;Head and Neck Cancer Indicator
+"RTN","ECXOPRX",125,0)
+ .S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN) ;Proj 112/SHAD Indicator
+"RTN","ECXOPRX",126,0)
+ .S ECXETH=ECXPAT("ETHNIC"),ECXRC1=ECXPAT("RACE1") ;Race and Ethnicity
+"RTN","ECXOPRX",127,0)
+ .; OEF/OIF data
+"RTN","ECXOPRX",128,0)
+ .S ECXOEF=ECXPAT("ECXOEF")
+"RTN","ECXOPRX",129,0)
+ .S ECXOEFDT=ECXPAT("ECXOEFDT")
+"RTN","ECXOPRX",130,0)
+ .S ^TMP($J,"ECXP",ECXDFN)=ECXSSN_U_ECXPNM_U_ECXMPI_U_ECXSEX_U_ECXDOB_U_ECXELIG_U_ECXVET_U_ECXRACE_U_ECXPST_U_ECXPLOC_U_ECXRST_U_ECXAST_U_ECXMST_U_ECXSTATE_U_ECXCNTY_U_ECXZIP_U_ECXENRL_U_U
+"RTN","ECXOPRX",131,0)
+ .S ^TMP($J,"ECXP",ECXDFN)=^TMP($J,"ECXP",ECXDFN)_U_ECXPHI_U_ECXCAT_U_ECXSTAT_U_ECXPRIOR_U_ECXCNHU_U_ECXPOS_U_ECXAOL_U_ECXHNCI_U_ECXETH_U_ECXRC1_U_ECXMTST
+"RTN","ECXOPRX",132,0)
+ .S ^TMP($J,"ECXP",ECXDFN,1)=ECXERI_U_ECXEST_U_ECXOEF_U_ECXOEFDT_U_ECXCNTRY_U_ECXPATCAT_U_ECXSHAD_U_ECXSHADI_U_ECXVNS_U_ECXCLST ;144 VIETNAM STATUS and Camp Lejeune Status
+"RTN","ECXOPRX",133,0)
+ ;get inpatient data
+"RTN","ECXOPRX",134,0)
+ S (ECXA,ECXADMDT,ECXDOM,ECXMN,ECXTS)="",X=$$INP^ECXUTL2(ECXDFN,ECXDATE) D
+"RTN","ECXOPRX",135,0)
+ .S ECXA=$P(X,U),ECXMN=$P(X,U,2),ECXTS=$P(X,U,3),ECXDOM=$P(X,U,10),ECXADMDT=$P(X,U,4)
+"RTN","ECXOPRX",136,0)
+ ;get primary care data
+"RTN","ECXOPRX",137,0)
+ S X=$$PRIMARY^ECXUTL2(ECXDFN,$P(ECXDATE,".")),ECPTTM=$P(X,U),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4),ECASPR=$P(X,U,5),ECCLAS2=$P(X,U,6),ECASNPI=$P(X,U,7)
+"RTN","ECXOPRX",138,0)
+ Q
+"RTN","ECXOPRX",139,0)
+ ;
+"RTN","ECXOPRX",140,0)
+SETUP ;Set required input for ECXTRAC
+"RTN","ECXOPRX",141,0)
+ S ECHEAD="PRE"
+"RTN","ECXOPRX",142,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXOPRX",143,0)
+ Q
+"RTN","ECXOPRX",144,0)
+QUE ; entry point for the background requeuing handled by ECXTAUTO
+"RTN","ECXOPRX",145,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL Q
+"RTN","ECXOPRX1")
+0^27^B9994734^B9265203
+"RTN","ECXOPRX1",1,0)
+ECXOPRX1 ;ALB/JAP,BIR/DMA,CML,PTD-Prescription Extract for DSS ;4/16/13 16:36
+"RTN","ECXOPRX1",2,0)
+ ;;3.0;DSS EXTRACTS;**92,107,105,120,127,144**;Dec 22, 1997;Build 9
+"RTN","ECXOPRX1",3,0)
+ ;
+"RTN","ECXOPRX1",4,0)
+FILE ;file record
+"RTN","ECXOPRX1",5,0)
+ ;node0
+"RTN","ECXOPRX1",6,0)
+ ;inst^dfn^ssn^name^in/out ECXA^day^division^provider^drug category^mail^
+"RTN","ECXOPRX1",7,0)
+ ;placeholder1^new^shad indicator^qty^cost^encounter shad^mov #^treat spec^placeholder4^unit of issue^dob^elig^vet^copay^
+"RTN","ECXOPRX1",8,0)
+ ;feeder key^investigational^days supply^primary care team^primary care provider^time^race
+"RTN","ECXOPRX1",9,0)
+ ;node1
+"RTN","ECXOPRX1",10,0)
+ ;mpi^dss dept ECXDSSD^sex^zip+4^placeholder^placeholder^state^county^pc prov person class^pow status^pow location^
+"RTN","ECXOPRX1",11,0)
+ ;ir status^ao status^sharing agree. payor^sharing agree. ins.^mst status^enroll loc^assoc pc provider^assoc pc prov person class^
+"RTN","ECXOPRX1",12,0)
+ ;placeholder^dom ECXDOM^purple heart ECXPHI^enrollment category ECXCAT^enrollment status ECXSTST^
+"RTN","ECXOPRX1",13,0)
+ ;enrollment priority ECXPRIOR^cnhu status ECXCNHU^period of service ECXPOS^observ pat ind ECXOBS^encounter num ECXENC^
+"RTN","ECXOPRX1",14,0)
+ ;ao loc ECXAOL^ord physician ECXORDPH^ord stop code ECXORDST^ord date ECXORDDT^CNH status ECXCNH^national division ECXPDIV^
+"RTN","ECXOPRX1",15,0)
+ ;MT Stat ECXMTST^head & neck cancer ind. ECXHNCI^ethnicity ECXETH^race ECXRC1^^enrollment priority ECXPRIOR_
+"RTN","ECXOPRX1",16,0)
+ ;enrollment subgroup ECXSBGRP^user enrollee ECXUESTA
+"RTN","ECXOPRX1",17,0)
+ ;NODE 2
+"RTN","ECXOPRX1",18,0)
+ ;patient type ECXPTYPE^combat vet elig ECXCVE^combat vet elig end date ECXCVEDT^
+"RTN","ECXOPRX1",19,0)
+ ;enc cv eligible ECXCVENC^national patient record flag ECXNPRFI^rx patient status ECRXPTST^non-va prescriber ECNONVAP^rx # ECRXNUM
+"RTN","ECXOPRX1",20,0)
+ ;^emergency response indicator(FEMA) ECXERI^agent orange enc ECXAO^environ cont PGE ECXECE^head/neck ECXHNC^enc mst ECXMIL^environ contamin ECXEST^ion radiat ECXIR
+"RTN","ECXOPRX1",21,0)
+ ;^OEF/OIF data ECXOEF^OEFOIF return date ECXOEFDT^associate pc provider npi ECASNPI^primary care provider npi ECPTNPI^provider npi ECPRVNPI
+"RTN","ECXOPRX1",22,0)
+ ;^country ECXCNTRY^PATCAT^Encounter SC ECXESC^Vietnam ECXVNS^Camp Lejeune Status ECXCLST^Encounter Camp Lejeune ECXECL
+"RTN","ECXOPRX1",23,0)
+ N DA,DIK
+"RTN","ECXOPRX1",24,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXOPRX1",25,0)
+ S ECODE=EC7_U_EC23_U_ECINST_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U
+"RTN","ECXOPRX1",26,0)
+ S ECODE=ECODE_$$ECXDATE^ECXUTL(ECXDATE,ECXYM)_U_ECXDIV_U
+"RTN","ECXOPRX1",27,0)
+ S ECODE=ECODE_ECXPROV_U_ECCAT_U_ECMW_U_ECXPROVP_U_ECXNEW_U_$S(ECXLOGIC>2010:ECXSHADI,1:"")_U_ECQTY_U
+"RTN","ECXOPRX1",28,0)
+ ;convert specialty to PTF Code for transmission
+"RTN","ECXOPRX1",29,0)
+ N ECXDATA
+"RTN","ECXOPRX1",30,0)
+ S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA)
+"RTN","ECXOPRX1",31,0)
+ S ECXTS=$G(ECXDATA(7))
+"RTN","ECXOPRX1",32,0)
+ ;done
+"RTN","ECXOPRX1",33,0)
+ S ECODE=ECODE_ECXCOST_U_$S(ECXLOGIC>2010:ECXSHAD,1:"")_U_ECXMN_U_ECXTS_U_U_ECUI_U_ECXDOB_U
+"RTN","ECXOPRX1",34,0)
+ S ECODE=ECODE_ECXELIG_U_ECXVET_U_ECOPAY_U_ECNFC_U_ECINV_U_ECDS_U
+"RTN","ECXOPRX1",35,0)
+ S ECODE=ECODE_ECPTTM_U_ECPTPR_U_$$ECXTIME^ECXUTL(ECXDATE)_U_ECXRACE_U
+"RTN","ECXOPRX1",36,0)
+ S ECODE1=ECXMPI_U_ECXDSSD_U_ECXSEX_U_ECXZIP_U_ECXPROVN_U_U
+"RTN","ECXOPRX1",37,0)
+ S ECODE1=ECODE1_ECXSTATE_U_ECXCNTY_U_ECCLAS_U_ECXPST_U_ECXPLOC_U
+"RTN","ECXOPRX1",38,0)
+ S ECODE1=ECODE1_ECXRST_U_ECXAST_U_U_U_ECXMST_U_ECXENRL_U
+"RTN","ECXOPRX1",39,0)
+ S ECODE1=ECODE1_ECASPR_U_ECCLAS2_U_U_ECXDOM_U_ECXPHI_U_ECXCAT_U
+"RTN","ECXOPRX1",40,0)
+ S ECODE1=ECODE1_ECXSTAT_U_$S(ECXLOGIC<2005:ECXPRIOR,1:"")_U_ECXCNHU_U_ECXPOS_U_ECXOBS_U
+"RTN","ECXOPRX1",41,0)
+ S ECODE1=ECODE1_ECXENC_U_ECXAOL_U_ECXORDPH_U_ECXORDST_U_ECXORDDT_U
+"RTN","ECXOPRX1",42,0)
+ S ECODE1=ECODE1_ECXCNH_U_ECXPDIV_U_ECXMTST_U_ECXHNCI_U_ECXETH_U
+"RTN","ECXOPRX1",43,0)
+ S ECODE1=ECODE1_ECXRC1_U
+"RTN","ECXOPRX1",44,0)
+ I ECXLOGIC>2004 S ECODE1=ECODE1_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U
+"RTN","ECXOPRX1",45,0)
+ I ECXLOGIC>2004 S ECODE2=ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXNPRFI_U_ECRXPTST_U_ECNONVAP
+"RTN","ECXOPRX1",46,0)
+ I ECXLOGIC>2005 S ECODE2=ECODE2_U_ECRXNUM
+"RTN","ECXOPRX1",47,0)
+ I ECXLOGIC>2006 S ECODE2=ECODE2_U_ECXERI_U_ECXAO_U_ECXECE_U_ECXHNC_U_ECXMIL_U_ECXEST_U_ECXIR_U_ECXSCRX
+"RTN","ECXOPRX1",48,0)
+ I ECXLOGIC>2007 S ECODE2=ECODE2_U_ECXOEF_U_ECXOEFDT_U_ECASNPI_U_ECPTNPI_U_ECPRVNPI
+"RTN","ECXOPRX1",49,0)
+ I ECXLOGIC>2009 S ECODE2=ECODE2_U_ECXCNTRY
+"RTN","ECXOPRX1",50,0)
+ I ECXLOGIC>2010 S ECODE2=ECODE2_U_ECXPATCAT
+"RTN","ECXOPRX1",51,0)
+ I ECXLOGIC>2013 S ECODE2=ECODE2_U_ECXESC_U_ECXVNS_U_ECXCLST_U_ECXECL ;144
+"RTN","ECXOPRX1",52,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2),ECRN=ECRN+1
+"RTN","ECXOPRX1",53,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXOPRX1",54,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1
+"RTN","ECXOPRX1",55,0)
+ Q
+"RTN","ECXPIVD2")
+0^52^B9468858^B9098930
+"RTN","ECXPIVD2",1,0)
+ECXPIVD2 ;ALB/JAP,BIR/DMA,CML,PTD-Extract from IV EXTRACT DATA File (#728.113) ;4/16/13 15:25
+"RTN","ECXPIVD2",2,0)
+ ;;3.0;DSS EXTRACTS;**105,120,127,144**;Dec 22, 1997;Build 9
+"RTN","ECXPIVD2",3,0)
+FILE ;file record
+"RTN","ECXPIVD2",4,0)
+ ;node0
+"RTN","ECXPIVD2",5,0)
+ ;fac^dfn^ssn^name^i/o^day^va class^qty^ward^cost^movement #^treat spec^ndc^investigational^iv dispensing fee^new feeder key^total doses^
+"RTN","ECXPIVD2",6,0)
+ ;primary care team^primary care provider^ivp time^adm date^adm time^dss identifier
+"RTN","ECXPIVD2",7,0)
+ ;node1
+"RTN","ECXPIVD2",8,0)
+ ;mpi^dss dept^pc provider npi^pc prov person class^assoc pc provider^assoc pc prov person class^assoc pc prov npi^dom^obs pat ind^enc num^
+"RTN","ECXPIVD2",9,0)
+ ;ord pr^ordering stop code^ord dt^req phys^nat prod division^means tst^elig^dob^sex^state^county^zip+4^vet^period of svc^pow stat^pow loc^ir stat^ao stat^
+"RTN","ECXPIVD2",10,0)
+ ;ao loc^purple heart ind.^mst stat^enrollment loc^enrollment cat^enrollment stat^enrollment prior^cnh/sh stat^ord pr npi
+"RTN","ECXPIVD2",11,0)
+ ;node2
+"RTN","ECXPIVD2",12,0)
+ ;head & neck cancer ind.^ethnicity^race1^bcma drug dispensed^bcma dose given^bcma unit of administration^bcma ICU flag^
+"RTN","ECXPIVD2",13,0)
+ ;ordering provider person class^^user enrollee ECXUESTA^patient type ECXPTYPE^combat vet elig ECXCVE^
+"RTN","ECXPIVD2",14,0)
+ ;combat vet elig end date ECXCVEDT^enc cv eligible ECXCVENC^national patient record flag ECXNPRFI^emerg resp indic(FEMA) ECXERI^
+"RTN","ECXPIVD2",15,0)
+ ;environ contamin ECXEST
+"RTN","ECXPIVD2",16,0)
+ ;^oef/oif ECXOEF^ oef/oif return date ECXOEFDT^assoc pc prov npi ECASNPI
+"RTN","ECXPIVD2",17,0)
+ ;^ordering provider npi ECXOPNPI^primary care provider npi ECPTNPI
+"RTN","ECXPIVD2",18,0)
+ ;^country ECXCNTRY^PATCAT^Encounter SC ECXESC^Camp Lejeune Status ECXCLST^Encounter Camp Lejeune ECXECL ;144
+"RTN","ECXPIVD2",19,0)
+ N DA,DIK
+"RTN","ECXPIVD2",20,0)
+ S ECPLACE=""
+"RTN","ECXPIVD2",21,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXPIVD2",22,0)
+ S ECODE=EC7_U_EC23_U_ECXDIV_U_DFN_U_ECXSSN_U_ECXPNM_U_ECXA_U
+"RTN","ECXPIVD2",23,0)
+ S ECODE=ECODE_$$ECXDATE^ECXUTL(ECD,ECXYM)_U_ECVACL_U_ECXCNT_U_ECXW_U
+"RTN","ECXPIVD2",24,0)
+ ;convert specialty to PTF Code for transmission
+"RTN","ECXPIVD2",25,0)
+ N ECXDATA
+"RTN","ECXPIVD2",26,0)
+ S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA)
+"RTN","ECXPIVD2",27,0)
+ S ECXTS=$G(ECXDATA(7))
+"RTN","ECXPIVD2",28,0)
+ ;done
+"RTN","ECXPIVD2",29,0)
+ S ECODE=ECODE_ECXCOST_U_ECXMN_U_ECXTS_U_ECNDC_U_ECINV_U_ECTYP_U_ECNFC_U
+"RTN","ECXPIVD2",30,0)
+ S ECODE=ECODE_ECST_U_ECPTTM_U_ECPTPR_U_ECDTTM_U_$$ECXDATE^ECXUTL(ECXADM,ECXYM)_U_$$ECXTIME^ECXUTL(ECXADM)_U_ECXDSSI_U
+"RTN","ECXPIVD2",31,0)
+ ;if outpat and not observ patient, admit date="" and admit time="000000"
+"RTN","ECXPIVD2",32,0)
+ I ECXA="O",(ECXOBS="NO") S $P(ECODE,U,24)="",$P(ECODE,U,25)="000000"
+"RTN","ECXPIVD2",33,0)
+ S ECODE1=ECXMPI_U_ECXDSSD_U_ECPLACE_U_ECCLAS_U_ECASPR_U_ECCLAS2_U_ECPLACE_U_ECXDOM_U_ECXOBS_U_ECXENC_U_ECXORDPR_U
+"RTN","ECXPIVD2",34,0)
+ S ECODE1=ECODE1_ECXORDST_U_$$ECXDATE^ECXUTL(ECXORDDT,ECXYM)_U_ECXRPHY_U_ECXPDIV_U_ECXMTST_U_ECXELIG_U_ECXDOB_U
+"RTN","ECXPIVD2",35,0)
+ S ECODE1=ECODE1_ECXSEX_U_ECXSTATE_U_ECXCNTY_U_ECXZIP_U_ECXVET_U_ECXPOS_U_ECXPST_U_ECXPLOC_U_ECXRST_U_ECXAST_U
+"RTN","ECXPIVD2",36,0)
+ S ECODE1=ECODE1_ECXAOL_U_ECXPHI_U_ECXMST_U_ECXENRL_U_ECXCAT_U
+"RTN","ECXPIVD2",37,0)
+ S ECODE1=ECODE1_ECXSTAT_U_$S(ECXLOGIC<2005:ECXPRIOR,ECXLOGIC>2010:ECXSHADI,1:"")_U_ECXCNHU_U_U
+"RTN","ECXPIVD2",38,0)
+ S ECODE2=ECXHNCI_U_ECXETH_U_ECXRC1
+"RTN","ECXPIVD2",39,0)
+ I ECXLOGIC>2003 D
+"RTN","ECXPIVD2",40,0)
+ .S ECODE2=ECODE2_U_ECXBCDD_U_ECXBCDG_U_ECXBCUA_U_ECXBCIF_U_ECXOPPC
+"RTN","ECXPIVD2",41,0)
+ I ECXLOGIC>2004 S ECODE2=ECODE2_U_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXNPRFI
+"RTN","ECXPIVD2",42,0)
+ I ECXLOGIC>2006 S ECODE2=ECODE2_U_ECXERI_U_ECXEST
+"RTN","ECXPIVD2",43,0)
+ I ECXLOGIC>2007 S ECODE2=ECODE2_U_ECXOEF_U_ECXOEFDT_U_ECASNPI_U_ECXOPNPI_U_ECPTNPI
+"RTN","ECXPIVD2",44,0)
+ I ECXLOGIC>2009 S ECODE2=ECODE2_U_ECXCNTRY
+"RTN","ECXPIVD2",45,0)
+ I ECXLOGIC>2010 S ECODE2=ECODE2_U_ECXPATCAT
+"RTN","ECXPIVD2",46,0)
+ I ECXLOGIC>2013 S ECODE2=ECODE2_U_ECXESC_U_ECXCLST_U_ECXECL ;144
+"RTN","ECXPIVD2",47,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1
+"RTN","ECXPIVD2",48,0)
+ S ^ECX(ECFILE,EC7,2)=ECODE2,ECRN=ECRN+1
+"RTN","ECXPIVD2",49,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX^DIK K DIK,DA
+"RTN","ECXPIVD2",50,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1
+"RTN","ECXPIVD2",51,0)
+ Q
+"RTN","ECXPIVDN")
+0^29^B58898409^B58842000
+"RTN","ECXPIVDN",1,0)
+ECXPIVDN ;ALB/JAP,BIR/DMA,CML,PTD-Extract from IV EXTRACT DATA File (#728.113) ;8/20/13 16:39
+"RTN","ECXPIVDN",2,0)
+ ;;3.0;DSS EXTRACTS;**10,11,8,13,24,33,39,46,49,71,84,96,92,107,105,112,120,127,136,143,144**;Dec 22, 1997;Build 9
+"RTN","ECXPIVDN",3,0)
+BEG ;entry point from option
+"RTN","ECXPIVDN",4,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXPIVDN",5,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXPIVDN",6,0)
+ Q
+"RTN","ECXPIVDN",7,0)
+ ;
+"RTN","ECXPIVDN",8,0)
+START ; start package specific extract
+"RTN","ECXPIVDN",9,0)
+ N DIC,DA,DR,DIQ,DFN,ECXNPRFI,ECXPHA,ECXESC,ECXECL,ECXCLST ;144
+"RTN","ECXPIVDN",10,0)
+ S QFLG=0
+"RTN","ECXPIVDN",11,0)
+ I '$D(ECINST) D
+"RTN","ECXPIVDN",12,0)
+ .S ECINST=+$P(^ECX(728,1,0),U) K ECXDIC S DA=ECINST,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99"
+"RTN","ECXPIVDN",13,0)
+ .D EN^DIQ1 S ECINST=$G(ECXDIC(4,DA,99,"I")) K DIC,DIQ,DA,DR,ECXDIC
+"RTN","ECXPIVDN",14,0)
+ S ECED=ECED+.3
+"RTN","ECXPIVDN",15,0)
+ K ^TMP($J,"A"),^TMP($J,"S")
+"RTN","ECXPIVDN",16,0)
+ S ECD=ECSD1
+"RTN","ECXPIVDN",17,0)
+ F S ECD=$O(^ECX(728.113,"A",ECD)),DFN=0 Q:'ECD Q:ECD>ECED Q:QFLG F S DFN=$O(^ECX(728.113,"A",ECD,DFN)),ON=0 Q:'DFN F S ON=$O(^ECX(728.113,"A",ECD,DFN,ON)),DA=0 Q:'ON K ^TMP($J,"A"),^TMP($J,"S") S ECVOL=0 D Q:QFLG
+"RTN","ECXPIVDN",18,0)
+ .S ECXERR=0 D PAT(DFN,ECD,.ECXERR)
+"RTN","ECXPIVDN",19,0)
+ .Q:ECXERR
+"RTN","ECXPIVDN",20,0)
+ .F S DA=$O(^ECX(728.113,"A",ECD,DFN,ON,DA)) Q:'DA Q:QFLG I $D(^ECX(728.113,DA,0)) S EC=^(0) D Q:QFLG
+"RTN","ECXPIVDN",21,0)
+ ..S DRG=$P(EC,U,4) I $P(EC,U,8)]"" D
+"RTN","ECXPIVDN",22,0)
+ ...I '$D(^TMP($J,"A",DRG)) S ^(DRG)=$P(EC,U,7,8),^(DRG,1)=0,^(2)=$P(EC,U,12)
+"RTN","ECXPIVDN",23,0)
+ ...S ^(1)=^TMP($J,"A",DRG,1)+$S($P(EC,U,6)=1:1,$P(EC,U,6)=4:0,1:-1)
+"RTN","ECXPIVDN",24,0)
+ ..I $P(EC,U,9) D
+"RTN","ECXPIVDN",25,0)
+ ...I '$D(^TMP($J,"S",DRG)) S ^(DRG)=$P(EC,U,9)_"^ML",^(DRG,1)=0,^(2)=$P(EC,U,12),ECVOL=$P(EC,U,9)+ECVOL
+"RTN","ECXPIVDN",26,0)
+ ...S ^(1)=^TMP($J,"S",DRG,1)+$S($P(EC,U,6)=1:1,$P(EC,U,6)=4:0,1:-1)
+"RTN","ECXPIVDN",27,0)
+ ..S ECTYP=$P(EC,U,11),ECTOTC=0,ECDTTM=$$ECXTIME^ECXUTL($P(EC,U,5))
+"RTN","ECXPIVDN",28,0)
+ .;looped thru all DAs for this order - now put it together
+"RTN","ECXPIVDN",29,0)
+ .;leave the next line in case the decision is made to send volume designations
+"RTN","ECXPIVDN",30,0)
+ .;I ECTYP="H" S ECTYP=ECTYP_$S(ECVOL'>1000:1,ECVOL'>2000:2,1:3)
+"RTN","ECXPIVDN",31,0)
+ .S ECXDSSI=""
+"RTN","ECXPIVDN",32,0)
+ .;loop thru tmp global and call pharmacy drug file (#50) api
+"RTN","ECXPIVDN",33,0)
+ .F SA="S","A" S DRG="" F S DRG=$O(^TMP($J,SA,DRG)) Q:DRG="" S ECXPHA="",ECXPHA=$$PHAAPI^ECXUTL5(DRG) I $P(ECXPHA,U)'="" D STUFF Q:QFLG
+"RTN","ECXPIVDN",34,0)
+ K ^TMP($J),CLIN,DA,DFN,DIC,DIK,DRG,ON,SA,X,Y,P1,P3
+"RTN","ECXPIVDN",35,0)
+ Q
+"RTN","ECXPIVDN",36,0)
+STUFF ;get data
+"RTN","ECXPIVDN",37,0)
+ N ECORDST
+"RTN","ECXPIVDN",38,0)
+ S ECST=^TMP($J,SA,DRG),ECXCNT=^(DRG,1),ECXCOST=^(2),ECVACL=$P(ECXPHA,U,2),ECORDST=""
+"RTN","ECXPIVDN",39,0)
+ ;if older logic, use incorrect calculation for cost **136
+"RTN","ECXPIVDN",40,0)
+ I ECXLOGIC<2013 S ECXCOST=ECXCOST*ECXCNT
+"RTN","ECXPIVDN",41,0)
+ ;S ECST=^TMP($J,SA,DRG),ECXCNT=^(DRG,1),ECXCOST=^(2),ECXCOST=ECXCOST*ECXCNT,ECVACL=$P(ECXPHA,U,2),ECORDST="",ECTI="" removed old cost calc **136
+"RTN","ECXPIVDN",42,0)
+ ;if outpatient get division from iv rm; get dss identifier for clinic
+"RTN","ECXPIVDN",43,0)
+ I ECXA="O" D
+"RTN","ECXPIVDN",44,0)
+ .;- Only set ward to .5 if outpatient (but NOT observation patient)
+"RTN","ECXPIVDN",45,0)
+ .I $G(ECXW)="" S ECXW=.5
+"RTN","ECXPIVDN",46,0)
+ .I $P(EC,U,15) S ECIVRM=$P(EC,U,15),ECXDIV=$$PSJ59P5^ECXUTL5(ECIVRM)
+"RTN","ECXPIVDN",47,0)
+ .S CLIN=+$P(EC,U,13),(ECXP1,ECXP2)="000",ECXCL=$G(^ECX(728.44,CLIN,0)) Q:ECXCL=""
+"RTN","ECXPIVDN",48,0)
+ .S ECSC=$P(ECXCL,U,4),ECCSC=$P(ECXCL,U,5)
+"RTN","ECXPIVDN",49,0)
+ .I ECSC="" S ECSC=$P(ECXCL,U,2),ECCSC=$P(ECXCL,U,3)
+"RTN","ECXPIVDN",50,0)
+ .I ECSC S ECXP1=$$RJ^XLFSTR(ECSC,3,0),ECXP2=$$RJ^XLFSTR(ECCSC,3,0)
+"RTN","ECXPIVDN",51,0)
+ .I ECSC="" S ECSC=$P($G(^SC(ECXCL,0)),U,7),ECCSC=$P($G(^SC(ECXCL,0)),U,18) I ECSC D
+"RTN","ECXPIVDN",52,0)
+ ..S ECXP1=$P($G(^DIC(40.7,ECSC,0)),U,2) S:ECCSC]"" ECXP2=$P($G(^DIC(40.7,ECCSC,0)),U,2)
+"RTN","ECXPIVDN",53,0)
+ ..S ECXP1=$$RJ^XLFSTR(ECXP1,3,0),ECXP2=$$RJ^XLFSTR(ECXP2,3,0)
+"RTN","ECXPIVDN",54,0)
+ .S ECXDSSI=ECXP1_ECXP2
+"RTN","ECXPIVDN",55,0)
+ .I ECXLOGIC>2003 D
+"RTN","ECXPIVDN",56,0)
+ ..I "^18^23^24^41^65^94^108^"[("^"_ECXTS_"^") S ECXDSSI=$$TSMAP^ECXUTL4(ECXTS)
+"RTN","ECXPIVDN",57,0)
+ S ECINV=$P(ECXPHA,U,4),ECST=ECXCNT*ECST_" "_$P(ECST,U,2)
+"RTN","ECXPIVDN",58,0)
+ ;New way to calculate cost dea spl hndlg **136 upd precedence **144
+"RTN","ECXPIVDN",59,0)
+ I ECXLOGIC>2012 S ECINV=$S((+ECINV>0)&(+ECINV<6):+ECINV,ECINV["I":"I",1:"") D
+"RTN","ECXPIVDN",60,0)
+ .; Update cost calculation use exist cost x quant x count
+"RTN","ECXPIVDN",61,0)
+ .S ECXCOST=+ECST*ECXCOST ;143
+"RTN","ECXPIVDN",62,0)
+ ; old method of dea spl hndlg **136
+"RTN","ECXPIVDN",63,0)
+ I ECXLOGIC<2013 S ECINV=$S(ECINV["I":"I",1:"")
+"RTN","ECXPIVDN",64,0)
+ S ECNDC=$P(ECXPHA,U,3),ECNFC=$$RJ^XLFSTR($P(ECNDC,"-"),6,0)_$$RJ^XLFSTR($P(ECNDC,"-",2),4,0)_$$RJ^XLFSTR($P(ECNDC,"-",3),2,0),ECNFC=$TR(ECNFC,"*",0)
+"RTN","ECXPIVDN",65,0)
+ S P1=$P(ECXPHA,U,5),P3=$P(ECXPHA,U,6)
+"RTN","ECXPIVDN",66,0)
+ S X="PSNAPIS" X ^%ZOSF("TEST") I $T S ECNFC=$$DSS^PSNAPIS(P1,P3,ECXYM)_ECNFC
+"RTN","ECXPIVDN",67,0)
+ I $L(ECNFC)=12 S ECNFC=$$RJ^XLFSTR(P1,4,0)_$$RJ^XLFSTR(P3,3,0)_ECNFC
+"RTN","ECXPIVDN",68,0)
+ ;- Ordering provider ("2"_provider)
+"RTN","ECXPIVDN",69,0)
+ S ECXORDPR=$S(+$P(EC,U,10):"2"_$P(EC,U,10),1:"")
+"RTN","ECXPIVDN",70,0)
+ N ECXUSRTN
+"RTN","ECXPIVDN",71,0)
+ S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",$P(EC,U,10),$P(EC,U,16))
+"RTN","ECXPIVDN",72,0)
+ S:+ECXUSRTN'>0 ECXUSRTN="" S ECXOPNPI=$P(ECXUSRTN,U)
+"RTN","ECXPIVDN",73,0)
+ S ECXORDDT=$P(EC,U,16) ;- Ordering date
+"RTN","ECXPIVDN",74,0)
+ ;- Requesting physician (null for FY2002)
+"RTN","ECXPIVDN",75,0)
+ S ECXRPHY=""
+"RTN","ECXPIVDN",76,0)
+ ;- Department and National Prod Division
+"RTN","ECXPIVDN",77,0)
+ S ECXDSSD="" ;dss department use postponed $$IVP^ECXDEPT(ECXDIV)
+"RTN","ECXPIVDN",78,0)
+ N ECXPDIV S ECXPDIV=$$GETDIV^ECXDEPT(ECXDIV)
+"RTN","ECXPIVDN",79,0)
+ ;- Observation patient indicator (yes/no)
+"RTN","ECXPIVDN",80,0)
+ S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXDSSI)
+"RTN","ECXPIVDN",81,0)
+ ; - Ordering Date, Ordering Stop Code
+"RTN","ECXPIVDN",82,0)
+ S ECXORDST="" I ECXA="O" D
+"RTN","ECXPIVDN",83,0)
+ .S ECXORDST=$$DOIVPO^ECXUTL5(DFN,ON)
+"RTN","ECXPIVDN",84,0)
+ .I ECXOBS="NO" S ECORDST="PHA"
+"RTN","ECXPIVDN",85,0)
+ .I ECXOBS="YES" S ECORDST=$P($G(^ECX(727.831,+ECXTS,0)),U,6)
+"RTN","ECXPIVDN",86,0)
+ ;- If no encounter number don't file record
+"RTN","ECXPIVDN",87,0)
+ S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADM,ECD,ECXTS,ECXOBS,ECHEAD,ECORDST,)
+"RTN","ECXPIVDN",88,0)
+ S (ECXBCDD,ECXBCDG,ECXBCUA,ECXBCIF)="" ;144 BCMA fields are place holder now
+"RTN","ECXPIVDN",89,0)
+ ;get ordering provider person class
+"RTN","ECXPIVDN",90,0)
+ S ECXOPPC=$$PRVCLASS^ECXUTL($E(ECXORDPR,2,999),ECXORDDT)
+"RTN","ECXPIVDN",91,0)
+ ;set national patient record flag if exist
+"RTN","ECXPIVDN",92,0)
+ S ECXDFN=DFN D NPRF^ECXUTL5 K ECXDFN
+"RTN","ECXPIVDN",93,0)
+ D:ECXENC'="" FILE^ECXPIVD2 K P1,P3
+"RTN","ECXPIVDN",94,0)
+ Q
+"RTN","ECXPIVDN",95,0)
+PAT(ECXDFN,ECXDATE,ECXERR) ;get patient demographics, primary care, and inpatient data
+"RTN","ECXPIVDN",96,0)
+ N X
+"RTN","ECXPIVDN",97,0)
+ S (ECXCAT,ECXSTAT,ECXPRIOR,ECXSBGRP,ECXOEF,ECXOEFDT)=""
+"RTN","ECXPIVDN",98,0)
+ ;get patient data if saved
+"RTN","ECXPIVDN",99,0)
+ I $D(^TMP($J,"ECXP",ECXDFN)) D
+"RTN","ECXPIVDN",100,0)
+ .S PT=^TMP($J,"ECXP",ECXDFN),ECXPNM=$P(PT,U),ECXSSN=$P(PT,U,2),ECXMPI=$P(PT,U,3)
+"RTN","ECXPIVDN",101,0)
+ .S ECXDOB=$P(PT,U,4),ECXELIG=$P(PT,U,5),ECXSEX=$P(PT,U,6),ECXSTATE=$P(PT,U,7),ECXCNTY=$P(PT,U,8),ECXZIP=$P(PT,U,9)
+"RTN","ECXPIVDN",102,0)
+ .S ECXVET=$P(PT,U,10),ECXPOS=$P(PT,U,11),ECXPST=$P(PT,U,12),ECXPLOC=$P(PT,U,13),ECXRST=$P(PT,U,14),ECXAST=$P(PT,U,15)
+"RTN","ECXPIVDN",103,0)
+ .S ECXAOL=$P(PT,U,16),ECXPHI=$P(PT,U,17),ECXMST=$P(PT,U,18),ECXENRL=$P(PT,U,19),ECXCNHU=$P(PT,U,20),ECXCAT=$P(PT,U,21)
+"RTN","ECXPIVDN",104,0)
+ .S ECXSTAT=$P(PT,U,22),ECXPRIOR=$P(PT,U,23),ECXHNCI=$P(PT,U,24),ECXETH=$P(PT,U,25),ECXRC1=$P(PT,U,26),ECXMTST=$P(PT,U,27)
+"RTN","ECXPIVDN",105,0)
+ .S PT1=$G(^TMP($J,"ECXP",ECXDFN,1)),ECXERI=$P(PT1,U),ECXEST=$P(PT1,U,2),ECXOEF=$P(PT1,U,3),ECXOEFDT=$P(PT1,U,4),ECXCNTRY=$P(PT1,U,5)
+"RTN","ECXPIVDN",106,0)
+ .S ECXSHADI=$P(PT1,U,6),ECXPATCAT=$P(PT1,U,7)
+"RTN","ECXPIVDN",107,0)
+ .S ECXCLST=$P(PT1,U,8),ECXESC=$P(PT1,U,9),ECXECL=$P(PT1,U,10) ;144
+"RTN","ECXPIVDN",108,0)
+ .I $$ENROLLM^ECXUTL2(ECXDFN)
+"RTN","ECXPIVDN",109,0)
+ ;set patient data
+"RTN","ECXPIVDN",110,0)
+ I '$D(^TMP($J,"ECXP",ECXDFN)) D Q:'OK
+"RTN","ECXPIVDN",111,0)
+ .K ECXPAT S OK=$$PAT^ECXUTL3(ECXDFN,$P(ECXDATE,"."),"1;2;3;5",.ECXPAT)
+"RTN","ECXPIVDN",112,0)
+ .I 'OK K ECXPAT S ECXERR=1 Q
+"RTN","ECXPIVDN",113,0)
+ .S ECXPNM=ECXPAT("NAME"),ECXSSN=ECXPAT("SSN"),ECXMPI=ECXPAT("MPI"),ECXDOB=ECXPAT("DOB"),ECXELIG=ECXPAT("ELIG"),ECXSEX=ECXPAT("SEX")
+"RTN","ECXPIVDN",114,0)
+ .S ECXSTATE=ECXPAT("STATE"),ECXCNTY=ECXPAT("COUNTY"),ECXZIP=ECXPAT("ZIP"),ECXVET=ECXPAT("VET"),ECXCNTRY=ECXPAT("COUNTRY")
+"RTN","ECXPIVDN",115,0)
+ .S ECXPOS=ECXPAT("POS"),ECXPST=ECXPAT("POW STAT"),ECXPLOC=ECXPAT("POW LOC"),ECXRST=ECXPAT("IR STAT")
+"RTN","ECXPIVDN",116,0)
+ .S ECXAST=ECXPAT("AO STAT"),ECXAOL=ECXPAT("AOL"),ECXPHI=ECXPAT("PHI"),ECXMST=ECXPAT("MST STAT")
+"RTN","ECXPIVDN",117,0)
+ .S ECXCLST=ECXPAT("CL STAT"),ECXESC="",ECXECL="" ;144
+"RTN","ECXPIVDN",118,0)
+ .S ECXENRL=ECXPAT("ENROLL LOC"),ECXMTST=ECXPAT("MEANS"),ECXEST=ECXPAT("EC STAT")
+"RTN","ECXPIVDN",119,0)
+ .S ECXCNHU=$$CNHSTAT^ECXUTL4(ECXDFN) ;get CNHU status
+"RTN","ECXPIVDN",120,0)
+ .;get enrollment data (category, status and priority)
+"RTN","ECXPIVDN",121,0)
+ .I $$ENROLLM^ECXUTL2(ECXDFN)
+"RTN","ECXPIVDN",122,0)
+ .S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN) ;Head and Neck Cancer Indicator
+"RTN","ECXPIVDN",123,0)
+ .S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN) ;PROJ 112/SHAD Indicator
+"RTN","ECXPIVDN",124,0)
+ .S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) ; PATCH 127, ADD PATCAT CODE
+"RTN","ECXPIVDN",125,0)
+ .; - Race and Ethnicity
+"RTN","ECXPIVDN",126,0)
+ .S ECXETH=ECXPAT("ETHNIC"),ECXRC1=ECXPAT("RACE1")
+"RTN","ECXPIVDN",127,0)
+ .S ECXERI=ECXPAT("ERI") ;emergency response indicator (FEMA)
+"RTN","ECXPIVDN",128,0)
+ .S ECXOEF=ECXPAT("ECXOEF")
+"RTN","ECXPIVDN",129,0)
+ .S ECXOEFDT=ECXPAT("ECXOEFDT")
+"RTN","ECXPIVDN",130,0)
+ .;save for later
+"RTN","ECXPIVDN",131,0)
+ .S ^TMP($J,"ECXP",ECXDFN)=ECXPNM_U_ECXSSN_U_ECXMPI_U_ECXDOB_U_ECXELIG_U_ECXSEX_U_ECXSTATE_U_ECXCNTY_U_ECXZIP_U_ECXVET_U_ECXPOS_U_ECXPST_U_ECXPLOC_U_ECXRST_U_ECXAST
+"RTN","ECXPIVDN",132,0)
+ .S ^TMP($J,"ECXP",ECXDFN)=^TMP($J,"ECXP",ECXDFN)_U_ECXAOL_U_ECXPHI_U_ECXMST_U_ECXENRL_U_ECXCNHU_U_ECXCAT_U_ECXSTAT_U_ECXPRIOR_U_ECXHNCI_U_ECXETH_U_ECXRC1_U_ECXMTST
+"RTN","ECXPIVDN",133,0)
+ .S ^TMP($J,"ECXP",ECXDFN,1)=ECXERI_U_ECXEST_U_ECXOEF_U_ECXOEFDT_U_ECXCNTRY_U_ECXSHADI_U_ECXPATCAT_U_ECXCLST_U_ECXESC_U_ECXECL ;144
+"RTN","ECXPIVDN",134,0)
+ ;get primary care data
+"RTN","ECXPIVDN",135,0)
+ S X=$$PRIMARY^ECXUTL2(ECXDFN,$P(ECXDATE,"."))
+"RTN","ECXPIVDN",136,0)
+ S ECPTTM=$P(X,U,1),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4),ECASPR=$P(X,U,5),ECCLAS2=$P(X,U,6),ECASNPI=$P(X,U,7)
+"RTN","ECXPIVDN",137,0)
+ ;get inpatient data
+"RTN","ECXPIVDN",138,0)
+ S (ECXA,ECXMN,ECXADM,ECXTS,ECXW,ECXDIV)="",X=$$INP^ECXUTL2(ECXDFN,ECXDATE)
+"RTN","ECXPIVDN",139,0)
+ S ECXA=$P(X,U),ECXMN=$P(X,U,2),ECXTS=$P(X,U,3),ECXADM=$P(X,U,4),W=$P(X,U,9),ECXDOM=$P(X,U,10),ECXW=$P(W,";"),ECXDIV=$P(W,";",2)
+"RTN","ECXPIVDN",140,0)
+ Q
+"RTN","ECXPIVDN",141,0)
+SETUP ;Set required input for ECXTRAC
+"RTN","ECXPIVDN",142,0)
+ S ECHEAD="IVP"
+"RTN","ECXPIVDN",143,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXPIVDN",144,0)
+ ;variables ecver and ecrtn will be reset in routine ecxtrac if appropriate
+"RTN","ECXPIVDN",145,0)
+ S ECVER=7
+"RTN","ECXPIVDN",146,0)
+ Q
+"RTN","ECXPIVDN",147,0)
+QUE ; entry point for the background requeuing handled by ECXTAUTO
+"RTN","ECXPIVDN",148,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL Q
+"RTN","ECXPRO")
+0^25^B45721055^B42025638
+"RTN","ECXPRO",1,0)
+ECXPRO ;ALB/GTS - Prosthetics Extract for DSS ;4/16/13 16:47
+"RTN","ECXPRO",2,0)
+ ;;3.0;DSS EXTRACTS;**9,13,15,21,24,33,39,46,71,92,105,120,127,132,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXPRO",3,0)
+BEG ;entry point from option
+"RTN","ECXPRO",4,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXPRO",5,0)
+ D:+ECINST>0 ^ECXTRAC D ^ECXKILL
+"RTN","ECXPRO",6,0)
+ Q
+"RTN","ECXPRO",7,0)
+ ;
+"RTN","ECXPRO",8,0)
+START ;start package specific extract
+"RTN","ECXPRO",9,0)
+ ;
+"RTN","ECXPRO",10,0)
+ ; Input
+"RTN","ECXPRO",11,0)
+ ; ECSD1 - FM formatted Beginning Date (Set by ECXTRAC)
+"RTN","ECXPRO",12,0)
+ ; ECED - FM formatted End Date (Set by ECXTRAC)
+"RTN","ECXPRO",13,0)
+ ; ECSDN - Externally formatted Start Date (Set by ECXTRAC)
+"RTN","ECXPRO",14,0)
+ ; ECEDN - Externally formatted End Date (Set by ECXTRAC)
+"RTN","ECXPRO",15,0)
+ ; EC - IEN from file #727 (Set by ECXTRAC)
+"RTN","ECXPRO",16,0)
+ ; ECXYM - Year and Month of extract (YYYYMM)
+"RTN","ECXPRO",17,0)
+ ; ECXINST - IEN for division in file #4
+"RTN","ECXPRO",18,0)
+ ; ECINST - Station number of selected division
+"RTN","ECXPRO",19,0)
+ ;
+"RTN","ECXPRO",20,0)
+ N ECXLNE,ECXCT,ECXDACT,ECX0,ECXLB,ECXED1,ECINSTSV,ECXLNSTR,ECXP
+"RTN","ECXPRO",21,0)
+ N ECXICD10P,ECXICD101,ECXICD102,ECXICD103,ECXICD104
+"RTN","ECXPRO",22,0)
+ N DIC,DR,DA,DIQ,CPTCODE,ECXNPRFI
+"RTN","ECXPRO",23,0)
+ N ECXESC,ECXCLST,ECXECL ;144
+"RTN","ECXPRO",24,0)
+ D ECXBUL^ECXPRO2(.ECXLNE,ECSDN,ECEDN,EC)
+"RTN","ECXPRO",25,0)
+ S QFLG=0,ECXLNSTR=ECXLNE,ECXED1=ECED+.9999,ECXCT=ECSD1
+"RTN","ECXPRO",26,0)
+ F S ECXCT=$O(^RMPR(660,"CT",ECXCT)) Q:(ECXCT>ECXED1)!('ECXCT)!(QFLG=1) D
+"RTN","ECXPRO",27,0)
+ .S ECXDACT=0
+"RTN","ECXPRO",28,0)
+ .F S ECXDACT=$O(^RMPR(660,"CT",ECXCT,ECXDACT)) Q:('ECXDACT)!(QFLG=1) D
+"RTN","ECXPRO",29,0)
+ ..;* initialize variables
+"RTN","ECXPRO",30,0)
+ ..S (ECXDFN,ECXPNM,ECXSSN,ECXSEX,ECXSTAT,ECXDATE,ECXTYPE,ECXSRCE)=""
+"RTN","ECXPRO",31,0)
+ ..S (ECXHCPCS,ECXPHCPC,ECXRQST,ECXRCST,ECXFORM,ECXCTAMT,ECXLLC)=""
+"RTN","ECXPRO",32,0)
+ ..S (ECXLMC,ECXGRPR,ECXBILST,ECXQTY,ECXFELOC,ECXFEKEY,ECXA,ECXLH,ECXLC,ECXMC)=""
+"RTN","ECXPRO",33,0)
+ ..S (ECPTTM,ECPTPR,ECXAST,ECXRST,ECXEST,ECXELIG,ECXVET,ECXZIP,ECXVNS,ECXCLST)="" ;144
+"RTN","ECXPRO",34,0)
+ ..S (ECXDOB,ECXDSSD,ECXICD9,ECXICD10P,ECXAOL,ECXHNCI,ECXSHADI,ECXETH,ECXRC1,ECXMST)=""
+"RTN","ECXPRO",35,0)
+ ..F I=1:1:4 S @("ECXICD9"_I)=""
+"RTN","ECXPRO",36,0)
+ ..F I=1:1:4 S @("ECXICD10"_I)=""
+"RTN","ECXPRO",37,0)
+ ..Q:'$D(^RMPR(660,ECXDACT,0))
+"RTN","ECXPRO",38,0)
+ ..S ECX0=^RMPR(660,ECXDACT,0),ECXLB=$G(^RMPR(660,ECXDACT,"LB"))
+"RTN","ECXPRO",39,0)
+ ..K ECXP S DIC="^RMPR(660,",DR=".02;11;45",DA=ECXDACT,DIQ(0)="EI"
+"RTN","ECXPRO",40,0)
+ ..S DIQ="ECXP" D EN^DIQ1
+"RTN","ECXPRO",41,0)
+ ..S ECXDIV=$$GET1^DIQ(660,ECXDACT,8,"I")
+"RTN","ECXPRO",42,0)
+ ..S ECXDFN=$G(ECXP(660,ECXDACT,.02,"I"))
+"RTN","ECXPRO",43,0)
+ ..S ECXFORM=$G(ECXP(660,ECXDACT,11,"E"))_U_$G(ECXP(660,ECXDACT,11,"I"))
+"RTN","ECXPRO",44,0)
+ ..S ECXLH=$G(ECXP(660,ECXDACT,45,"I"))
+"RTN","ECXPRO",45,0)
+ ..Q:'$$PATDEM^ECXUTL2(ECXDFN,ECXCT)
+"RTN","ECXPRO",46,0)
+ ..S OK=$$PAT^ECXUTL3(ECXDFN,ECXDATE,"1;5",.ECXPAT)
+"RTN","ECXPRO",47,0)
+ ..I 'OK S ECXERR=1 K ECXPAT Q
+"RTN","ECXPRO",48,0)
+ ..;OEF/OIF data
+"RTN","ECXPRO",49,0)
+ ..S ECXOEF=ECXPAT("ECXOEF")
+"RTN","ECXPRO",50,0)
+ ..S ECXOEFDT=ECXPAT("ECXOEFDT")
+"RTN","ECXPRO",51,0)
+ ..S ECXVNS=ECXPAT("VIETNAM") ; 144 VIETNAM STATUS
+"RTN","ECXPRO",52,0)
+ ..S ECXCLST=ECXPAT("CL STAT") ;144 Camp Lejeune Status
+"RTN","ECXPRO",53,0)
+ ..Q:'$$NTEG^ECXPRO1(ECXDFN,.ECXLNE,ECXDACT,ECX0,ECXLB,ECINST,ECXFORM)
+"RTN","ECXPRO",54,0)
+ ..D PROSINFO^ECXPRO1(ECXDACT,ECXLB,ECX0,ECXFORM)
+"RTN","ECXPRO",55,0)
+ ..S CPTCODE=$E(ECXHCPCS,1,5)
+"RTN","ECXPRO",56,0)
+ ..;nppd entry date
+"RTN","ECXPRO",57,0)
+ ..S ECXNPPDT=$$ECXDATE^ECXUTL($P(ECX0,U,1),ECXYM)
+"RTN","ECXPRO",58,0)
+ ..;
+"RTN","ECXPRO",59,0)
+ ..;Get production division ;p-46
+"RTN","ECXPRO",60,0)
+ ..N ECXPDIV S ECXPDIV=$$RADDIV^ECXDEPT(ECXDIV) ;p-46
+"RTN","ECXPRO",61,0)
+ ..;- Observation patient indicator (YES/NO)
+"RTN","ECXPRO",62,0)
+ ..S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS)
+"RTN","ECXPRO",63,0)
+ ..;
+"RTN","ECXPRO",64,0)
+ ..;- CNH status (YES/NO)
+"RTN","ECXPRO",65,0)
+ ..S ECXCNH=$$CNHSTAT^ECXUTL4(ECXDFN)
+"RTN","ECXPRO",66,0)
+ ..;
+"RTN","ECXPRO",67,0)
+ ..;get encounter classifications
+"RTN","ECXPRO",68,0)
+ ..S (ECXAO,ECXECE,ECXHNC,ECXMIL,ECXIR,ECXSHAD,ECXESC,ECXECL)="" ;144
+"RTN","ECXPRO",69,0)
+ ..S ECXVISIT=$$GET1^DIQ(660,ECXDACT,8.12,"I") I ECXVISIT'="" D
+"RTN","ECXPRO",70,0)
+ ...D VISIT^ECXSCX1(ECXDFN,ECXVISIT,.ECXVIST,.ECXERR) I ECXERR K ECXERR Q
+"RTN","ECXPRO",71,0)
+ ...S ECXAO=$G(ECXVIST("AO")),ECXECE=$G(ECXVIST("PGE")),ECXSHAD=$G(ECXVIST("SHAD"))
+"RTN","ECXPRO",72,0)
+ ...S ECXHNC=$G(ECXVIST("HNC")),ECXMIL=$G(ECXVIST("MST")),ECXIR=$G(ECXVIST("IR"))
+"RTN","ECXPRO",73,0)
+ ...S ECXESC=ECXVIST("ENCSC"),ECXECL=ECXVIST("ENCCL") ;144
+"RTN","ECXPRO",74,0)
+ ..; - Head and Neck Cancer Indicator
+"RTN","ECXPRO",75,0)
+ ..S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN)
+"RTN","ECXPRO",76,0)
+ ..;
+"RTN","ECXPRO",77,0)
+ ..; - Proj 112/SHAD Indicator
+"RTN","ECXPRO",78,0)
+ ..S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN)
+"RTN","ECXPRO",79,0)
+ ..;
+"RTN","ECXPRO",80,0)
+ ..; ******* - PATCH 127, ADD PATCAT CODE ********
+"RTN","ECXPRO",81,0)
+ ..S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXPRO",82,0)
+ ..; - set national patient record flag if exist
+"RTN","ECXPRO",83,0)
+ ..D NPRF^ECXUTL5
+"RTN","ECXPRO",84,0)
+ ..;
+"RTN","ECXPRO",85,0)
+ ..;- If no encounter number don't file record
+"RTN","ECXPRO",86,0)
+ ..S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,,) Q:ECXENC=""
+"RTN","ECXPRO",87,0)
+ ..I ECXFORM["-3" F ECXLAB="LAB","ORD" D
+"RTN","ECXPRO",88,0)
+ ...D FEEDINFO^ECXPRO2(ECXSRCE,CPTCODE,ECXTYPE,ECXSTAT2,ECXRQST,ECXRCST,ECXLAB,ECXNPPDC)
+"RTN","ECXPRO",89,0)
+ ...Q:ECXFELOC="" D FILE
+"RTN","ECXPRO",90,0)
+ ..I ECXFORM'["-3" S ECXLAB="NONL" D
+"RTN","ECXPRO",91,0)
+ ...D FEEDINFO^ECXPRO2(ECXSRCE,CPTCODE,ECXTYPE,ECXSTAT2,ECXRQST,ECXRCST,ECXLAB,ECXNPPDC)
+"RTN","ECXPRO",92,0)
+ ...Q:ECXFELOC="" D FILE
+"RTN","ECXPRO",93,0)
+ ;* Send the Exception message
+"RTN","ECXPRO",94,0)
+ I ECXLNSTR<ECXLNE DO
+"RTN","ECXPRO",95,0)
+ .K XMY S XMY("G.DSS-"_ECGRP_"@"_^XMB("NETNAME"))=""
+"RTN","ECXPRO",96,0)
+ .S XMDUZ=.5
+"RTN","ECXPRO",97,0)
+ .S XMSUB=ECINST_" - Prosthetics DSS Exception Message",XMN=0
+"RTN","ECXPRO",98,0)
+ .S XMTEXT="^TMP(""ECX-PRO EXC"",$J,"
+"RTN","ECXPRO",99,0)
+ .D ^XMD
+"RTN","ECXPRO",100,0)
+ K ^TMP("ECX-PRO EXC",$J),XMDUZ,XMSUB,XMTEXT,XMY,XMN
+"RTN","ECXPRO",101,0)
+ Q
+"RTN","ECXPRO",102,0)
+ ;
+"RTN","ECXPRO",103,0)
+FILE ;file extract record
+"RTN","ECXPRO",104,0)
+ ;node0
+"RTN","ECXPRO",105,0)
+ ;facility^dfn (ECXDFN)^ssn (ECXSSN)^name (ECXPNM)^in/out (ECXA)^
+"RTN","ECXPRO",106,0)
+ ;day^feeder location^
+"RTN","ECXPRO",107,0)
+ ;feeder key^qty^pc team^pc provider^hcpcs^icd9 (ECXICD9)^
+"RTN","ECXPRO",108,0)
+ ;icd9-1 (ECXICD91)^icd9-2 (ECXICD92)^icd9-3 (ECXICD93)^
+"RTN","ECXPRO",109,0)
+ ;icd9-4 (ECXICD94)^agent orange^radiation^env contam^eligibility^
+"RTN","ECXPRO",110,0)
+ ;cost^lab labor cost^lab matl cost^billing status^
+"RTN","ECXPRO",111,0)
+ ;vet^transaction type^req station^rec station^file#661.1 ien
+"RTN","ECXPRO",112,0)
+ ;node1
+"RTN","ECXPRO",113,0)
+ ;zip^dob^sex^amis grouper^placeholder^mpi^dss dept ECXDSSD^
+"RTN","ECXPRO",114,0)
+ ;pc prov person class^race^pow status^pow loc^
+"RTN","ECXPRO",115,0)
+ ;sharing agree payor^sharing agree ins^mst status^
+"RTN","ECXPRO",116,0)
+ ;enroll loc^state^county^assoc pc provider^
+"RTN","ECXPRO",117,0)
+ ;assoc pc prov person class^placeholder
+"RTN","ECXPRO",118,0)
+ ;dom (ECXDOM)^purple heart indicator (ECXPHI)^
+"RTN","ECXPRO",119,0)
+ ;enrollment Category (ECXCAT)^enrollment status (ECXSTAT)^
+"RTN","ECXPRO",120,0)
+ ;enrollment priority (ECXPRIOR)^purple heart ind (ECXPHI)^
+"RTN","ECXPRO",121,0)
+ ;period of serv (ECXPOS)^observ pat ind (ECXOBS)^encounter num (ECXENC)^
+"RTN","ECXPRO",122,0)
+ ;ao loc (ECXAOL)^CNH status (ECXCNH)^production division ECXPDIV^
+"RTN","ECXPRO",123,0)
+ ;head & neck canc. ind. (ECXHNCI)^ethnicity (ECXETH)^race1 (ECXRC1)^
+"RTN","ECXPRO",124,0)
+ ;^enrollment priority (ECXPRIOR)_enrollment sub-
+"RTN","ECXPRO",125,0)
+ ;group (ECXSBGRP)^user enrollee (ECXUESTA)^patient type ECXPTYPE
+"RTN","ECXPRO",126,0)
+ ;^combat vet elig ECXCVE^combat vet elig end date ECXCVEDT^enc cv
+"RTN","ECXPRO",127,0)
+ ;eligible ECXCVENC^national patient record flag ECXNPRFI^
+"RTN","ECXPRO",128,0)
+ ;emergency response indicator(FEMA) ECXERI^agent orange indicator ECXAO
+"RTN","ECXPRO",129,0)
+ ;^environ contam ECXECE^head/neck cancer ECXHNC^encntr mst ECXMIL^
+"RTN","ECXPRO",130,0)
+ ;radiation ECXIR
+"RTN","ECXPRO",131,0)
+ ;NODE2
+"RTN","ECXPRO",132,0)
+ ;OEF/OIF ECXOEF^OEF/OIF return date ECXOEFDT^
+"RTN","ECXPRO",133,0)
+ ;nppd code ECXNPPDC^nppd entry date ECXNPPDT
+"RTN","ECXPRO",134,0)
+ ;assoc pc provider npi ECASNPI^primary care provider npi ECPTNPI^
+"RTN","ECXPRO",135,0)
+ ;country ECXCNTRY^shad indicator ECXSHADI^shad encounter ECXSHAD^
+"RTN","ECXPRO",136,0)
+ ;labor hours ECXLH^
+"RTN","ECXPRO",137,0)
+ ;PATCAT^EXCPATCAT^
+"RTN","ECXPRO",138,0)
+ ;primary ICD-10 code (currently null)ECXICD10P^Secondary ICD-10 Code #1 (currently null)ECXICD101^
+"RTN","ECXPRO",139,0)
+ ;Secondary ICD-10 Code #2 (currently null)ECXICD102^Secondary ICD-10 Code #3 (currently null)ECXICD103^
+"RTN","ECXPRO",140,0)
+ ;Secondary ICD-10 Code #4 (currently null)ECXICD104^Encounter SC ECXEXC^Vietnam Status ECXVNS^Camp Lejeune Status ECXCLST^Encounter Camp Lejeune ECXECL
+"RTN","ECXPRO",141,0)
+ N DA,DIK
+"RTN","ECXPRO",142,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXPRO",143,0)
+ S ECODE=EC7_U_EC23_U_ECINST_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U
+"RTN","ECXPRO",144,0)
+ S ECODE=ECODE_$$ECXDATE^ECXUTL(ECXDATE,ECXYM)_U_ECXFELOC_U
+"RTN","ECXPRO",145,0)
+ S ECODE=ECODE_ECXFEKEY_U_ECXQTY_U_ECPTTM_U_ECPTPR_U_ECXHCPCS_U
+"RTN","ECXPRO",146,0)
+ S ECODE=ECODE_ECXICD9_U_ECXICD91_U_ECXICD92_U_ECXICD93_U_ECXICD94_U
+"RTN","ECXPRO",147,0)
+ S ECODE=ECODE_ECXAST_U_ECXRST_U_ECXEST_U_ECXELIG_U_ECXCTAMT_U_ECXLLC_U
+"RTN","ECXPRO",148,0)
+ S ECODE=ECODE_ECXLMC_U_ECXBILST_U_ECXVET_U_ECXTYPE_U_ECXRQST_U_ECXRCST_U
+"RTN","ECXPRO",149,0)
+ S ECODE=ECODE_ECXPHCPC_U
+"RTN","ECXPRO",150,0)
+ S ECODE1=ECXZIP_U_ECXDOB_U_ECXSEX_U_ECXGRPR_U_U_ECXMPI_U
+"RTN","ECXPRO",151,0)
+ S ECODE1=ECODE1_ECXDSSD_U_ECCLAS_U_ECXRACE_U_ECXPST_U_ECXPLOC_U
+"RTN","ECXPRO",152,0)
+ S ECODE1=ECODE1_U_U_ECXMST_U_ECXENRL_U_ECXSTATE_U
+"RTN","ECXPRO",153,0)
+ S ECODE1=ECODE1_ECXCNTY_U_ECASPR_U_ECCLAS2_U_U_ECXDOM_U
+"RTN","ECXPRO",154,0)
+ S ECODE1=ECODE1_ECXCAT_U_ECXSTAT_U_$S(ECXLOGIC<2005:ECXPRIOR,1:"")_U_ECXPHI_U_ECXPOS_U
+"RTN","ECXPRO",155,0)
+ S ECODE1=ECODE1_ECXOBS_U_ECXENC_U_ECXAOL_U_ECXCNH_U_ECXPDIV_U
+"RTN","ECXPRO",156,0)
+ S ECODE1=ECODE1_ECXHNCI_U_ECXETH_U_ECXRC1_U
+"RTN","ECXPRO",157,0)
+ I ECXLOGIC>2004 S ECODE1=ECODE1_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXNPRFI
+"RTN","ECXPRO",158,0)
+ I ECXLOGIC>2006 S ECODE1=ECODE1_U_ECXERI_U_ECXAO_U_ECXECE_U_ECXHNC_U_ECXMIL_U_ECXIR_U
+"RTN","ECXPRO",159,0)
+ I ECXLOGIC>2007 S ECODE2=ECXOEF_U_ECXOEFDT_U_ECXNPPDC_U_ECXNPPDT_U_ECASNPI_U_ECPTNPI
+"RTN","ECXPRO",160,0)
+ I ECXLOGIC>2009 S ECODE2=ECODE2_U_ECXCNTRY
+"RTN","ECXPRO",161,0)
+ I ECXLOGIC>2010 S ECODE2=ECODE2_U_ECXSHADI_U_ECXSHAD_U_ECXLH_U_ECXPATCAT
+"RTN","ECXPRO",162,0)
+ I ECXLOGIC>2012 S ECODE2=ECODE2_U_ECXICD10P_U_ECXICD101_U_ECXICD102_U_ECXICD103_U_ECXICD104
+"RTN","ECXPRO",163,0)
+ I ECXLOGIC>2013 S ECODE2=ECODE2_U_ECXESC_U_ECXVNS_U_ECXCLST_U_ECXECL ;144
+"RTN","ECXPRO",164,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2),ECRN=ECRN+1
+"RTN","ECXPRO",165,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXPRO",166,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1
+"RTN","ECXPRO",167,0)
+ Q
+"RTN","ECXPRO",168,0)
+ ;
+"RTN","ECXPRO",169,0)
+SETUP ;Set required input for ECXTRAC
+"RTN","ECXPRO",170,0)
+ S ECHEAD="PRO"
+"RTN","ECXPRO",171,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXPRO",172,0)
+ S ECINST=$$PDIV^ECXPUTL
+"RTN","ECXPRO",173,0)
+ Q
+"RTN","ECXPRO",174,0)
+ ;
+"RTN","ECXPRO",175,0)
+ ;**Note: LOCAL and QUE are carry over from protocols set by other
+"RTN","ECXPRO",176,0)
+ ; routines.
+"RTN","ECXPRO",177,0)
+LOCAL ;to extract nightly for local use not to be transmitted to TSI
+"RTN","ECXPRO",178,0)
+ ;QUEUE with 1D frequency
+"RTN","ECXPRO",179,0)
+ D SETUP,^ECXTLOCL,^ECXKILL Q
+"RTN","ECXPRO",180,0)
+ ;
+"RTN","ECXPRO",181,0)
+QUE ; entry point for the background requeuing handled by ECXTAUTO
+"RTN","ECXPRO",182,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL Q
+"RTN","ECXPROCT")
+0^33^B24695240^B21321082
+"RTN","ECXPROCT",1,0)
+ECXPROCT ;ALB/GTS - ProstheticS Cost by PSAS HCPC Report DSS ;3/4/13 15:58
+"RTN","ECXPROCT",2,0)
+ ;;3.0;DSS EXTRACTS;**71,100,144**;Dec 22, 1997;Build 9
+"RTN","ECXPROCT",3,0)
+ ;
+"RTN","ECXPROCT",4,0)
+EN ;entry point from option
+"RTN","ECXPROCT",5,0)
+ ;Initialize varables
+"RTN","ECXPROCT",6,0)
+ N DIR,ECSD1,ECED,X,Y,ECXPORT,I ;144
+"RTN","ECXPROCT",7,0)
+ ;Prompt for start date
+"RTN","ECXPROCT",8,0)
+ S DIR(0)="D^::EX"
+"RTN","ECXPROCT",9,0)
+ S DIR("A")="Enter Report Start Date"
+"RTN","ECXPROCT",10,0)
+ D ^DIR
+"RTN","ECXPROCT",11,0)
+ I $D(DIRUT) Q
+"RTN","ECXPROCT",12,0)
+ S ECSD1=Y
+"RTN","ECXPROCT",13,0)
+ ;Prompt for end date
+"RTN","ECXPROCT",14,0)
+ K DIR,X,Y
+"RTN","ECXPROCT",15,0)
+ S DIR(0)="D^"_ECSD1_":"_DT_":EX"
+"RTN","ECXPROCT",16,0)
+ S DIR("A")="Enter Report Ending Date"
+"RTN","ECXPROCT",17,0)
+ D ^DIR
+"RTN","ECXPROCT",18,0)
+ I $D(DIRUT) Q
+"RTN","ECXPROCT",19,0)
+ S ECED=Y
+"RTN","ECXPROCT",20,0)
+ S ECXPORT=$$EXPORT^ECXUTL1 Q:ECXPORT=-1 I ECXPORT D Q ;144
+"RTN","ECXPROCT",21,0)
+ .K ^TMP($J,"ECXPORT") ;144
+"RTN","ECXPROCT",22,0)
+ .S ^TMP($J,"ECXPORT",0)="PSAS HCPC^DESCRIPTION^HCPC^QTY^UNIT OF ISSUE^COST" ;144
+"RTN","ECXPROCT",23,0)
+ .D EN1 ;144
+"RTN","ECXPROCT",24,0)
+ .M ^TMP($J,"ECXPORT")=^TMP("ECXDSS",$J) ;144 Move results to export display global
+"RTN","ECXPROCT",25,0)
+ .D EXPDISP^ECXUTL1 ;144
+"RTN","ECXPROCT",26,0)
+ ;Queue Report
+"RTN","ECXPROCT",27,0)
+ W !!,"** REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY **",!!
+"RTN","ECXPROCT",28,0)
+ N ZTDESC,ZTIO,ZTSAVE
+"RTN","ECXPROCT",29,0)
+ S ZTIO=""
+"RTN","ECXPROCT",30,0)
+ S ZTDESC="Prosthetic Cost by PSAS HCPC Report for DSS"
+"RTN","ECXPROCT",31,0)
+ F I="ECSD1","ECED","ECXPHCPC","ECXPHDESC","ECXHCPC","ECXQTY","ECXUOFI","ECXCOST","ECXTCOST" D
+"RTN","ECXPROCT",32,0)
+ .S ZTSAVE(I)=""
+"RTN","ECXPROCT",33,0)
+ D EN^XUTMDEVQ("EN1^ECXPROCT",ZTDESC,.ZTSAVE)
+"RTN","ECXPROCT",34,0)
+ Q
+"RTN","ECXPROCT",35,0)
+ ;
+"RTN","ECXPROCT",36,0)
+EN1 ;Tasked entry point
+"RTN","ECXPROCT",37,0)
+ ;Input : ECSD1 - FM format report start date
+"RTN","ECXPROCT",38,0)
+ ; ECED - FM format report end date
+"RTN","ECXPROCT",39,0)
+ ;
+"RTN","ECXPROCT",40,0)
+ ;Output : None
+"RTN","ECXPROCT",41,0)
+ ;
+"RTN","ECXPROCT",42,0)
+ ;Declare variables
+"RTN","ECXPROCT",43,0)
+ N ECXPHCPC,ECHCDES,ECXHCPC,ECXQTY,ECXUOFI,ECXCOST,ECXTCOST,PAGENUM ;144
+"RTN","ECXPROCT",44,0)
+ N ECXLNE,ECXCT,ECXDACT,ECX0,ECX1,ECXED1,ECINSTSV,ECXLNSTR,ECXP
+"RTN","ECXPROCT",45,0)
+ N DIC,DR,DA,DIQ,CNT,STOP,QFLG,ECXDIV,ECXDFN,ECXFORM ;144
+"RTN","ECXPROCT",46,0)
+ S ECXED1=ECED+.9999,ECXCT=ECSD1,(CNT,QFLG,PAGENUM,ECXTCOST,ECXQTY,STOP)=0
+"RTN","ECXPROCT",47,0)
+ I '$G(ECXPORT) D HEADER I STOP D EXIT Q ;144
+"RTN","ECXPROCT",48,0)
+ D GETDATA I $G(ECXPORT) Q ;144 Have data, no need to print.
+"RTN","ECXPROCT",49,0)
+ I '$D(^TMP("ECXDSS",$J)) D Q
+"RTN","ECXPROCT",50,0)
+ .W !
+"RTN","ECXPROCT",51,0)
+ .W !,"***********************************************"
+"RTN","ECXPROCT",52,0)
+ .W !,"* NOTHING TO REPORT FOR SELECTED TIME FRAME *"
+"RTN","ECXPROCT",53,0)
+ .W !,"***********************************************"
+"RTN","ECXPROCT",54,0)
+ .D WAIT
+"RTN","ECXPROCT",55,0)
+ D DETAIL I STOP D EXIT Q
+"RTN","ECXPROCT",56,0)
+ D TOTAL
+"RTN","ECXPROCT",57,0)
+ K ^TMP("ECXDSS",$J)
+"RTN","ECXPROCT",58,0)
+ Q
+"RTN","ECXPROCT",59,0)
+ ;
+"RTN","ECXPROCT",60,0)
+GETDATA ;Get data
+"RTN","ECXPROCT",61,0)
+ F S ECXCT=$O(^RMPR(660,"CT",ECXCT)),CNT=CNT+1 Q:(ECXCT>ECXED1)!('ECXCT)!(QFLG=1) D
+"RTN","ECXPROCT",62,0)
+ .S ECXDACT=0
+"RTN","ECXPROCT",63,0)
+ .F S ECXDACT=$O(^RMPR(660,"CT",ECXCT,ECXDACT)) Q:('ECXDACT)!(QFLG=1) D
+"RTN","ECXPROCT",64,0)
+ ..;Get data nodes and icrement conunter
+"RTN","ECXPROCT",65,0)
+ ..S CNT=CNT+1
+"RTN","ECXPROCT",66,0)
+ ..S ECX0=$G(^RMPR(660,ECXDACT,0)),ECX1=$G(^(1))
+"RTN","ECXPROCT",67,0)
+ ..Q:'$D(^RMPR(660,ECXDACT,0))
+"RTN","ECXPROCT",68,0)
+ ..S ECXPHCPC=$P(ECX1,U,4),ECHCDES=$P(ECX1,U,2),ECXHCPC=$P(ECX0,U,22)
+"RTN","ECXPROCT",69,0)
+ ..S ECXQTY=$P(ECX0,U,7),ECXUOFI=$P(ECX0,U,8),ECXCOST=$P(ECX0,U,16)
+"RTN","ECXPROCT",70,0)
+ ..;Resolve external values for PSAS HCPC
+"RTN","ECXPROCT",71,0)
+ ..K DIC S DIC="^RMPR(661.1,",DIC(0)="NZ",X=ECXPHCPC D ^DIC
+"RTN","ECXPROCT",72,0)
+ ..;S ECXPHCPC=$P($G(Y(0)),U,1)
+"RTN","ECXPROCT",73,0)
+ ..S ECXPHCPC=$E($P($G(Y(0)),U,1),1,5)
+"RTN","ECXPROCT",74,0)
+ ..;Resolve external values for HCPC
+"RTN","ECXPROCT",75,0)
+ ..K DIC S DIC="^ICPT(",DIC(0)="NZ",X=ECXHCPC D ^DIC
+"RTN","ECXPROCT",76,0)
+ ..S ECXHCPC=$P($G(Y(0)),U,1)
+"RTN","ECXPROCT",77,0)
+ ..;Resolve external value for unit of issue
+"RTN","ECXPROCT",78,0)
+ ..K DIC S DIC="^PRCD(420.5,",DIC(0)="NZ",X=ECXUOFI D ^DIC
+"RTN","ECXPROCT",79,0)
+ ..S ECXUOFI=$P($G(Y(0)),U,2)
+"RTN","ECXPROCT",80,0)
+ ..S ECXTCOST=ECXCOST+ECXTCOST
+"RTN","ECXPROCT",81,0)
+ ..S ECXDIV=$$GET1^DIQ(660,ECXDACT,8,"I")
+"RTN","ECXPROCT",82,0)
+ ..S ECXDFN=$G(ECXP(660,ECXDACT,.02,"I"))
+"RTN","ECXPROCT",83,0)
+ ..S ECXFORM=$G(ECXP(660,ECXDACT,11,"E"))_U_$G(ECXP(660,ECXDACT,11,"I"))
+"RTN","ECXPROCT",84,0)
+ ..;Save for later
+"RTN","ECXPROCT",85,0)
+ ..S ^TMP("ECXDSS",$J,CNT)=ECXPHCPC_U_ECHCDES_U_ECXHCPC_U_ECXQTY_U_ECXUOFI_U_ECXCOST
+"RTN","ECXPROCT",86,0)
+ ..Q
+"RTN","ECXPROCT",87,0)
+ .Q
+"RTN","ECXPROCT",88,0)
+ Q
+"RTN","ECXPROCT",89,0)
+HEADER ;print header
+"RTN","ECXPROCT",90,0)
+ N LN ;144
+"RTN","ECXPROCT",91,0)
+ S PAGENUM=PAGENUM+1
+"RTN","ECXPROCT",92,0)
+ S $P(LN,"-",132)=""
+"RTN","ECXPROCT",93,0)
+ W @IOF
+"RTN","ECXPROCT",94,0)
+ W !,"Cost by PSAS HCPC REPORT for "_$P($$SITE^VASITE,U,2)_" station "_$P($$SITE^VASITE,U,3),?120,"Page: ",PAGENUM
+"RTN","ECXPROCT",95,0)
+ W !!,"Report for ",$$FMTE^XLFDT(ECSD1)," thru ",$$FMTE^XLFDT(ECED)
+"RTN","ECXPROCT",96,0)
+ W !,?1,"PSAS HCPC",?15,"DESCRIPTION",?89,"HCPC",?98,"QTY",?104,"Unit of Issue",?126,"Cost"
+"RTN","ECXPROCT",97,0)
+ W !?1,LN
+"RTN","ECXPROCT",98,0)
+ Q
+"RTN","ECXPROCT",99,0)
+ ;
+"RTN","ECXPROCT",100,0)
+DETAIL ;Print detailed line
+"RTN","ECXPROCT",101,0)
+ ;Input : ^TMP("ECXDSS",$J) full global reference
+"RTN","ECXPROCT",102,0)
+ ; ECXPHCPC - PSAS HCPCS
+"RTN","ECXPROCT",103,0)
+ ; ECXPHDESC - PSAS HCPC Description
+"RTN","ECXPROCT",104,0)
+ ; ECXHCPC - HCPCS
+"RTN","ECXPROCT",105,0)
+ ; ECXQTY - Quantity
+"RTN","ECXPROCT",106,0)
+ ; ECXUOFI - Unit of issue
+"RTN","ECXPROCT",107,0)
+ ; ECXCOST - Total cost
+"RTN","ECXPROCT",108,0)
+ ;Output : None
+"RTN","ECXPROCT",109,0)
+ N RECORD,NODE ;144
+"RTN","ECXPROCT",110,0)
+ S RECORD=0 F S RECORD=$O(^TMP("ECXDSS",$J,RECORD)) Q:'RECORD!(STOP) D
+"RTN","ECXPROCT",111,0)
+ .S NODE=^TMP("ECXDSS",$J,RECORD)
+"RTN","ECXPROCT",112,0)
+ .W !?1,$$RJ^XLFSTR($P(NODE,U,1),6),?15,$P(NODE,U,2),?89,$$RJ^XLFSTR($P(NODE,U,3),U,6),?99,$$RJ^XLFSTR($P(NODE,U,4),U,6),?107,$P(NODE,U,5)
+"RTN","ECXPROCT",113,0)
+ .W ?122,"$"_$$RJ^XLFSTR($P($P(NODE,U,6),".",1),6)_"."_$$LJ^XLFSTR($P($P(NODE,U,6),".",2),2,0)
+"RTN","ECXPROCT",114,0)
+ .I $Y>(IOSL-5) D WAIT Q:STOP D HEADER
+"RTN","ECXPROCT",115,0)
+ .Q
+"RTN","ECXPROCT",116,0)
+ Q
+"RTN","ECXPROCT",117,0)
+ ;
+"RTN","ECXPROCT",118,0)
+TOTAL ;Report totals
+"RTN","ECXPROCT",119,0)
+ N DASH
+"RTN","ECXPROCT",120,0)
+ S $P(DASH,"=",15)=""
+"RTN","ECXPROCT",121,0)
+ W !!,?118,DASH
+"RTN","ECXPROCT",122,0)
+ W !?90,"Grand Total: ",?118,"$ "_$$RJ^XLFSTR($FNUMBER(ECXTCOST,",",2),11)
+"RTN","ECXPROCT",123,0)
+ Q
+"RTN","ECXPROCT",124,0)
+ ;
+"RTN","ECXPROCT",125,0)
+WAIT ;End of page logic
+"RTN","ECXPROCT",126,0)
+ ;Input ; None
+"RTN","ECXPROCT",127,0)
+ ;Output ; STOP - Flag inidcating if printing should continue
+"RTN","ECXPROCT",128,0)
+ ; 1 = Stop 0 = Continue
+"RTN","ECXPROCT",129,0)
+ ;
+"RTN","ECXPROCT",130,0)
+ S STOP=0
+"RTN","ECXPROCT",131,0)
+ ;CRT - Prompt for continue
+"RTN","ECXPROCT",132,0)
+ I $E(IOST,1,2)="C-"&(IOSL'>24) D Q
+"RTN","ECXPROCT",133,0)
+ .F Q:$Y>(IOSL-3) W !
+"RTN","ECXPROCT",134,0)
+ .N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT
+"RTN","ECXPROCT",135,0)
+ .S DIR(0)="E"
+"RTN","ECXPROCT",136,0)
+ .D ^DIR
+"RTN","ECXPROCT",137,0)
+ .S STOP=$S(Y'=1:1,1:0)
+"RTN","ECXPROCT",138,0)
+ ;Background task - check taskman
+"RTN","ECXPROCT",139,0)
+ S STOP=$$S^%ZTLOAD()
+"RTN","ECXPROCT",140,0)
+ I STOP D
+"RTN","ECXPROCT",141,0)
+ .W !,"*********************************************"
+"RTN","ECXPROCT",142,0)
+ .W !,"* PRINTING OF REPORT STOPPED AS REQUESTED *"
+"RTN","ECXPROCT",143,0)
+ .W !,"*********************************************"
+"RTN","ECXPROCT",144,0)
+ Q
+"RTN","ECXPROCT",145,0)
+EXIT ;Kill temp global
+"RTN","ECXPROCT",146,0)
+ K ^TMP("ECXDSS",$J)
+"RTN","ECXPROCT",147,0)
+ Q
+"RTN","ECXPURG")
+0^6^B27702088^B23816296
+"RTN","ECXPURG",1,0)
+ECXPURG ;BIR/CML-Driver for Purge of DSS Data from Local Extract & Holding Files ; 10/8/08 4:25pm
+"RTN","ECXPURG",2,0)
+ ;;3.0;DSS EXTRACTS;**9,24,33,35,49,102,112,144**;Dec 22, 1997;Build 9
+"RTN","ECXPURG",3,0)
+ENDEL ;entry point from delete extract files option 144 CVW
+"RTN","ECXPURG",4,0)
+ W @IOF,!!,"This option will allow you to delete an"
+"RTN","ECXPURG",5,0)
+ W !,"individual or a range of DSS extracts files."
+"RTN","ECXPURG",6,0)
+ W !!,"Care must be taken for several reasons:"
+"RTN","ECXPURG",7,0)
+ W !!,"- You can delete ANY existing extract. This includes transmitted and non-"
+"RTN","ECXPURG",8,0)
+ W !," transmitted extracts as well as extracts that did not run to completion"
+"RTN","ECXPURG",9,0)
+ W !," due to errors or system problems."
+"RTN","ECXPURG",10,0)
+ W !,"- Choosing a range of extracts could mean an excessively large number "
+"RTN","ECXPURG",11,0)
+ W !," of records and be very CPU intensive. "
+"RTN","ECXPURG",12,0)
+ W !," Please be sure to queue this deletion for off-hours and"
+"RTN","ECXPURG",13,0)
+ W !," limit the number of extracts to be deleted per a single queued session."
+"RTN","ECXPURG",14,0)
+ ;
+"RTN","ECXPURG",15,0)
+ K DIR W !
+"RTN","ECXPURG",16,0)
+ W !! K DIR S DIR(0)="Y",DIR("A")="Delete Extract Files?",DIR("B")="NO"
+"RTN","ECXPURG",17,0)
+ ;S DIR(0)="SAM^E:Extract Files"
+"RTN","ECXPURG",18,0)
+ ;S DIR("A")="Delete Extract files? E"
+"RTN","ECXPURG",19,0)
+ ;D ^DIR K DIR G:$D(DIRUT) QUIT S ECY=Y
+"RTN","ECXPURG",20,0)
+ D ^DIR K DIR G:$D(DIRUT) QUIT S ECY=Y
+"RTN","ECXPURG",21,0)
+ I Y D ^ECXPURG1 I $D(ECLOC) S ZTSAVE("ECLOC(")="",ZTIO="",ZTRTN="PUR1^ECXPURG",ZTDESC="DSS - Deletion of Extract Files" D QUE
+"RTN","ECXPURG",22,0)
+ ;I ECY="E" D ^ECXPURG1 I $D(ECLOC) S ZTSAVE("ECLOC(")="",ZTIO="",ZTRTN="PUR1^ECXPURG",ZTDESC="DSS - Deletion of Extract Files" D QUE
+"RTN","ECXPURG",23,0)
+ ;I ECY="I" D DATES^ECXPURG1 I $D(ECBDT)&($D(ECEDT)) S (ZTSAVE("ECBDT"),ZTSAVE("ECEDT"))="",ZTIO="",ZTRTN="PUR2^ECXPURG",ZTDESC="DSS - Purge of IVP Holding File" D QUE
+"RTN","ECXPURG",24,0)
+ ;I ECY="U" D DATES^ECXPURG1 I $D(ECBDT)&($D(ECEDT)) S (ZTSAVE("ECBDT"),ZTSAVE("ECEDT"))="",ZTIO="",ZTRTN="PUR3^ECXPURG",ZTDESC="DSS - Purge of UDP Holding File" D QUE
+"RTN","ECXPURG",25,0)
+ ;I ECY="V" D DATES^ECXPURG1 I $D(ECBDT)&($D(ECEDT)) S (ZTSAVE("ECBDT"),ZTSAVE("ECEDT"))="",ZTIO="",ZTRTN="PUR4^ECXPURG",ZTDESC="DSS - Purge of VBECS Holding File" D QUE
+"RTN","ECXPURG",26,0)
+ Q
+"RTN","ECXPURG",27,0)
+EN ;entry point from the purge option
+"RTN","ECXPURG",28,0)
+ W @IOF,!!,"This option will allow you to purge:"
+"RTN","ECXPURG",29,0)
+ W !,"1. data that resides in the ""holding files"" for the IVP and UDP extracts."
+"RTN","ECXPURG",30,0)
+ W !,"2. data that resides in the ""holding file"" for the VBECS extract"
+"RTN","ECXPURG",31,0)
+ W !!,"Care must be taken for several reasons:"
+"RTN","ECXPURG",32,0)
+ W !,"- The IVP, UDP and VBECS ""holding"" files are intermediate files that"
+"RTN","ECXPURG",33,0)
+ W !," are populated ""realtime"" by inpatient pharmacy and VBECS activity. "
+"RTN","ECXPURG",34,0)
+ W !," These files are then used to generate the IVP, UDP and VBECS extracts."
+"RTN","ECXPURG",35,0)
+ W !," NOTE: The VBECS files CANNOT be regenerated."
+"RTN","ECXPURG",36,0)
+ W !," Once it is purged for a date range, extracts can no longer be"
+"RTN","ECXPURG",37,0)
+ W !," generated for that time period."
+"RTN","ECXPURG",38,0)
+ ;
+"RTN","ECXPURG",39,0)
+ K DIR W !
+"RTN","ECXPURG",40,0)
+ S DIR(0)="SAM^I:IVP Holding File;U:UDP Holding File;V:VBECS Holding File"
+"RTN","ECXPURG",41,0)
+ S DIR("A")="Purge (I)VP data, (U)DP data or (V)BECS data? "
+"RTN","ECXPURG",42,0)
+ D ^DIR K DIR G:$D(DIRUT) QUIT S ECY=Y
+"RTN","ECXPURG",43,0)
+ ;I ECY="E" D ^ECXPURG1 I $D(ECLOC) S ZTSAVE("ECLOC(")="",ZTIO="",ZTRTN="PUR1^ECXPURG",ZTDESC="DSS - Purge of Extract Files" D QUE
+"RTN","ECXPURG",44,0)
+ I ECY="I" D DATES^ECXPURG1 I $D(ECBDT)&($D(ECEDT)) S (ZTSAVE("ECBDT"),ZTSAVE("ECEDT"))="",ZTIO="",ZTRTN="PUR2^ECXPURG",ZTDESC="DSS - Purge of IVP Holding File" D QUE
+"RTN","ECXPURG",45,0)
+ I ECY="U" D DATES^ECXPURG1 I $D(ECBDT)&($D(ECEDT)) S (ZTSAVE("ECBDT"),ZTSAVE("ECEDT"))="",ZTIO="",ZTRTN="PUR3^ECXPURG",ZTDESC="DSS - Purge of UDP Holding File" D QUE
+"RTN","ECXPURG",46,0)
+ I ECY="V" D DATES^ECXPURG1 I $D(ECBDT)&($D(ECEDT)) S (ZTSAVE("ECBDT"),ZTSAVE("ECEDT"))="",ZTIO="",ZTRTN="PUR4^ECXPURG",ZTDESC="DSS - Purge of VBECS Holding File" D QUE
+"RTN","ECXPURG",47,0)
+QUIT ;
+"RTN","ECXPURG",48,0)
+ K %X,%Y,EC,ECBDT,ECDATE,ECDT,ECEDT,ECEX,ECFR,ECLOC,ECRC,ECTO,ECTRN,ECTYP,ECY,HDT,HI,JJ,LN,LO,PG,QFLG,SS,X,Y,ZTSK
+"RTN","ECXPURG",49,0)
+ K ECXDIV
+"RTN","ECXPURG",50,0)
+ S:$D(ZTQUEUED) ZTREQ="@"
+"RTN","ECXPURG",51,0)
+ Q
+"RTN","ECXPURG",52,0)
+QUE W $C(7),$C(7),!!?3,"<<This deletion should be queued to run during non-peak hours.>>",!
+"RTN","ECXPURG",53,0)
+ D ^%ZTLOAD
+"RTN","ECXPURG",54,0)
+ I $D(ZTSK) W !,"Request queued as Task #",ZTSK,".",!
+"RTN","ECXPURG",55,0)
+ Q
+"RTN","ECXPURG",56,0)
+ ;
+"RTN","ECXPURG",57,0)
+PUR1 ; entry point for queued purge job of extract files
+"RTN","ECXPURG",58,0)
+ S ECDA=0 F S ECDA=$O(ECLOC(ECDA)) Q:'ECDA D
+"RTN","ECXPURG",59,0)
+ .S ECFILE=^ECX(727,ECDA,"FILE"),ECJ=0
+"RTN","ECXPURG",60,0)
+ .I ECFILE=727.827 D
+"RTN","ECXPURG",61,0)
+ ..S DA(1)=1
+"RTN","ECXPURG",62,0)
+ ..S DA=$O(^ECX(728,DA(1),"CBOC","B",ECDA,0))
+"RTN","ECXPURG",63,0)
+ ..S DIK="^ECX(728,"_DA(1)_","_"""CBOC"""_","
+"RTN","ECXPURG",64,0)
+ ..I DA'="" D ^DIK K DIK,DA
+"RTN","ECXPURG",65,0)
+ .F S ECJ=$O(^ECX(ECFILE,"AC",ECDA,ECJ)) Q:'ECJ D
+"RTN","ECXPURG",66,0)
+ ..S DIK="^ECX("_ECFILE_",",DA=ECJ D ^DIK K DIK,DA
+"RTN","ECXPURG",67,0)
+ .I ECFILE=727.816 S ECFILE=727.818,ECJ=0 D
+"RTN","ECXPURG",68,0)
+ ..F S ECJ=$O(^ECX(ECFILE,"AC",ECDA,ECJ)) Q:'ECJ D
+"RTN","ECXPURG",69,0)
+ ...S DIK="^ECX("_ECFILE_",",DA=ECJ D ^DIK K DIK,DA
+"RTN","ECXPURG",70,0)
+ .S ^ECX(727,ECDA,"PURG")=DT
+"RTN","ECXPURG",71,0)
+ K XMY S XMY(DUZ)=""
+"RTN","ECXPURG",72,0)
+ D MAIL1,QUIT
+"RTN","ECXPURG",73,0)
+ Q
+"RTN","ECXPURG",74,0)
+ ;
+"RTN","ECXPURG",75,0)
+PUR2 ; entry point for queued purge job of IVP holding file (#728.113)
+"RTN","ECXPURG",76,0)
+ F ECDT=ECBDT-1:0 S ECDT=$O(^ECX(728.113,"A",ECDT)) Q:'ECDT Q:ECDT>ECEDT S ECPT=0 F S ECPT=$O(^ECX(728.113,"A",ECDT,ECPT)) Q:'ECPT D
+"RTN","ECXPURG",77,0)
+ .S ECOR=0 F S ECOR=$O(^ECX(728.113,"A",ECDT,ECPT,ECOR)) Q:'ECOR D
+"RTN","ECXPURG",78,0)
+ ..S ECREC=0 F S ECREC=$O(^ECX(728.113,"A",ECDT,ECPT,ECOR,ECREC)) Q:'ECREC D
+"RTN","ECXPURG",79,0)
+ ...S DIK="^ECX(728.113,",DA=ECREC D ^DIK K DIK,DA
+"RTN","ECXPURG",80,0)
+ K XMY S XMY("G.DSS-IV")=""
+"RTN","ECXPURG",81,0)
+ D MAIL,QUIT
+"RTN","ECXPURG",82,0)
+ Q
+"RTN","ECXPURG",83,0)
+ ;
+"RTN","ECXPURG",84,0)
+PUR3 ; entry point for queued purge job of UDP holding file (#728.904)
+"RTN","ECXPURG",85,0)
+ F ECDT=ECBDT-1:0 S ECDT=$O(^ECX(728.904,"A",ECDT)) Q:'ECDT Q:ECDT>(ECEDT+.99999999) D
+"RTN","ECXPURG",86,0)
+ .S ECREC=0 F S ECREC=$O(^ECX(728.904,"A",ECDT,ECREC)) Q:'ECREC D
+"RTN","ECXPURG",87,0)
+ ..S DIK="^ECX(728.904,",DA=ECREC D ^DIK K DIK,DA
+"RTN","ECXPURG",88,0)
+ K XMY S XMY("G.DSS-UD")=""
+"RTN","ECXPURG",89,0)
+ D MAIL,QUIT
+"RTN","ECXPURG",90,0)
+ Q
+"RTN","ECXPURG",91,0)
+MAIL ;send mail message
+"RTN","ECXPURG",92,0)
+ N XMSUB,XMDUZ,ECMSG,XMTEXT
+"RTN","ECXPURG",93,0)
+ S XMSUB=ZTDESC
+"RTN","ECXPURG",94,0)
+ S XMDUZ="DSS SYSTEM"
+"RTN","ECXPURG",95,0)
+ S ECMSG(1,0)="The information has been successfully DELETED"
+"RTN","ECXPURG",96,0)
+ S ECMSG(2,0)="from "_$$FMTE^XLFDT(ECBDT)_" to "_$$FMTE^XLFDT(ECEDT)
+"RTN","ECXPURG",97,0)
+ S ECMSG(3,0)=" "
+"RTN","ECXPURG",98,0)
+ S XMTEXT="ECMSG("
+"RTN","ECXPURG",99,0)
+ D ^XMD
+"RTN","ECXPURG",100,0)
+ Q
+"RTN","ECXPURG",101,0)
+ ;
+"RTN","ECXPURG",102,0)
+MAIL1 ;send mail message
+"RTN","ECXPURG",103,0)
+ N XMSUB,XMDUZ,ECMSG,XMTEXT
+"RTN","ECXPURG",104,0)
+ S XMSUB=ZTDESC
+"RTN","ECXPURG",105,0)
+ S XMDUZ="DSS SYSTEM"
+"RTN","ECXPURG",106,0)
+ S ECMSG(1,0)="The information has been successfully PURGED"
+"RTN","ECXPURG",107,0)
+ S ECMSG(2,0)=" "
+"RTN","ECXPURG",108,0)
+ S XMTEXT="ECMSG("
+"RTN","ECXPURG",109,0)
+ D ^XMD
+"RTN","ECXPURG",110,0)
+ Q
+"RTN","ECXPURG",111,0)
+ ;
+"RTN","ECXPURG",112,0)
+PUR4 ; entry point for queued purge job of VBECS holding file (#6002.03)
+"RTN","ECXPURG",113,0)
+ N ECDT,ECREC,DIK,DA
+"RTN","ECXPURG",114,0)
+ S ECDT=ECBDT-1,ECEDT=ECEDT+.9
+"RTN","ECXPURG",115,0)
+ F S ECDT=$O(^VBEC(6002.03,"C",ECDT)) Q:'ECDT!(ECDT>ECEDT) D
+"RTN","ECXPURG",116,0)
+ .S ECREC=0 F S ECREC=$O(^VBEC(6002.03,"C",ECDT,ECREC)) Q:'ECREC D
+"RTN","ECXPURG",117,0)
+ ..S DIK="^VBEC(6002.03,",DA=ECREC D ^DIK K DIK,DA
+"RTN","ECXPURG",118,0)
+ K XMY S XMY(DUZ)=""
+"RTN","ECXPURG",119,0)
+ D MAIL1,QUIT
+"RTN","ECXPURG",120,0)
+ Q
+"RTN","ECXPURG1")
+0^7^B38351530^B36829694
+"RTN","ECXPURG1",1,0)
+ECXPURG1 ;BIR/CML-Purge of DSS Extract Files (CONTINUED) ;8/20/13 11:04
+"RTN","ECXPURG1",2,0)
+ ;;3.0;DSS EXTRACTS;**2,9,8,24,49,102,112,144**;Dec 22, 1997;Build 9
+"RTN","ECXPURG1",3,0)
+GET ;compile list of deletable extracts 144
+"RTN","ECXPURG1",4,0)
+ K HI,LO,ECBDT,ECEDT,ECLOC,^TMP("ECXPURG",$J)
+"RTN","ECXPURG1",5,0)
+ S QFLG=1 W !!,"...one moment please"
+"RTN","ECXPURG1",6,0)
+ S ECEX=0 F S ECEX=$O(^ECX(727,ECEX)) Q:'ECEX I '$G(^ECX(727,ECEX,"PURG")),$D(^ECX(727,ECEX,0)) S EC=^(0) D
+"RTN","ECXPURG1",7,0)
+ .S ^TMP("ECXPURG",$J,$P(EC,U,3),ECEX)="",ECLOC(ECEX)=$P(EC,U,3)_U_$P(EC,U,4,5)
+"RTN","ECXPURG1",8,0)
+ I '$D(^TMP("ECXPURG",$J)) W !!,"There are no extracts that can be deleted at this time." G DONE ;144
+"RTN","ECXPURG1",9,0)
+ASK1 ;ask for print
+"RTN","ECXPURG1",10,0)
+ W !
+"RTN","ECXPURG1",11,0)
+ K DIR S DIR(0)="Y",DIR("A")="Do you want to print a list of extracts that can be deleted",DIR("B")="NO"
+"RTN","ECXPURG1",12,0)
+ D ^DIR K DIR I $D(DIRUT) K ECLOC G DONE
+"RTN","ECXPURG1",13,0)
+ G:'Y ASK2
+"RTN","ECXPURG1",14,0)
+ W !!,"The right margin for this report is 80.",!!
+"RTN","ECXPURG1",15,0)
+ K ZTSAVE S ZTSAVE("^TMP(""ECXPURG"",$J,")=""
+"RTN","ECXPURG1",16,0)
+ D EN^XUTMDEVQ("PRT^ECXPURG1","DSS - Print Deletable Extracts",.ZTSAVE) I 'POP G ASK2
+"RTN","ECXPURG1",17,0)
+ W !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
+"RTN","ECXPURG1",18,0)
+ASK2 ;ask for extract range
+"RTN","ECXPURG1",19,0)
+ ;
+"RTN","ECXPURG1",20,0)
+ ;** Check divisions for deleting
+"RTN","ECXPURG1",21,0)
+ N ECCHK,ECTMP,JZ ;144
+"RTN","ECXPURG1",22,0)
+ S ECCHK=$$DIV4^XUSER(.ECTMP,DUZ)
+"RTN","ECXPURG1",23,0)
+ I 'ECCHK DO
+"RTN","ECXPURG1",24,0)
+ .W !,"You do not have any divisions defined in your user set up and can not delete."
+"RTN","ECXPURG1",25,0)
+ .S DIR(0)="FAO^1:1",DIR("A")="Hit Return to continue." D ^DIR K DIR,X,Y
+"RTN","ECXPURG1",26,0)
+ .K ECLOC
+"RTN","ECXPURG1",27,0)
+ ;
+"RTN","ECXPURG1",28,0)
+ I 'ECCHK G DONE ;** (essentially) QUIT out of middle
+"RTN","ECXPURG1",29,0)
+ ;
+"RTN","ECXPURG1",30,0)
+ W !,"You will not be able to select an extract that is not from your division.",!
+"RTN","ECXPURG1",31,0)
+ S LO=$O(ECLOC(0)),HI=$O(ECLOC(" "),-1)
+"RTN","ECXPURG1",32,0)
+ S DIR(0)="L^"_LO_":"_HI_"",DIR("A")="Select extracts to be deleted"
+"RTN","ECXPURG1",33,0)
+ S DIR("?",1)="Choose the number(s) of the extract(s) you wish to delete,",DIR("?")="(e.g. 1-3,17,20 to choose 1 thru 3, 17, and 20)."
+"RTN","ECXPURG1",34,0)
+ W ! D ^DIR K DIR I $D(DIRUT) K ECLOC G DONE
+"RTN","ECXPURG1",35,0)
+ S JJ=0,Y=","_Y F S JJ=$O(ECLOC(JJ)) Q:'JJ S JZ=","_JJ_"," I Y'[JZ K ECLOC(JJ)
+"RTN","ECXPURG1",36,0)
+ I '$D(ECLOC) W !!,"You have not chosen a valid extract number. Try again." G GET ;144 Give message if no valid selection made
+"RTN","ECXPURG1",37,0)
+ D CBOCCHK(.ECLOC) I '$D(ECLOC) G GET
+"RTN","ECXPURG1",38,0)
+ D DIVCHK(.ECLOC,.ECTMP)
+"RTN","ECXPURG1",39,0)
+ I '$D(ECLOC) W !!,"You have not chosen a valid extract number. Try again." G GET
+"RTN","ECXPURG1",40,0)
+ASK3 W !!,"I will delete the following extract(s):"
+"RTN","ECXPURG1",41,0)
+ S JJ=0 F S JJ=$O(ECLOC(JJ)) Q:'JJ D
+"RTN","ECXPURG1",42,0)
+ .W !?5,"#",JJ," - ",$P(ECLOC(JJ),U)
+"RTN","ECXPURG1",43,0)
+ .W ?47,$TR($$FMTE^XLFDT($P(ECLOC(JJ),U,2),"5DF")," ","0")," to ",$TR($$FMTE^XLFDT($P(ECLOC(JJ),U,3),"5DF")," ","0")
+"RTN","ECXPURG1",44,0)
+ W !! K DIR S DIR(0)="Y",DIR("A")="Is this OK",DIR("B")="NO"
+"RTN","ECXPURG1",45,0)
+ S DIR("?",1)=" Enter:"
+"RTN","ECXPURG1",46,0)
+ S DIR("?",2)=" ""YES"" if you agree with this list and would like to proceed,"
+"RTN","ECXPURG1",47,0)
+ S DIR("?",3)=" ""NO"" if you would like to make a different selection, or"
+"RTN","ECXPURG1",48,0)
+ S DIR("?")=" ""^"" to exit option."
+"RTN","ECXPURG1",49,0)
+ D ^DIR K DIR I $D(DIRUT) K ECLOC G DONE
+"RTN","ECXPURG1",50,0)
+ I 'Y G GET
+"RTN","ECXPURG1",51,0)
+ ; at this point, the local array ECLOC( is passed back to ^ECXPURG
+"RTN","ECXPURG1",52,0)
+ G DONE
+"RTN","ECXPURG1",53,0)
+QUIT ;
+"RTN","ECXPURG1",54,0)
+ I $E(IOST)="C"&('QFLG) S DIR(0)="E" D D ^DIR K DIR
+"RTN","ECXPURG1",55,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXPURG1",56,0)
+ W:$E(IOST)'="C" @IOF D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"
+"RTN","ECXPURG1",57,0)
+DONE K ^TMP("ECXPURG",$J),ZTSK Q
+"RTN","ECXPURG1",58,0)
+PRT ;print list of extracts
+"RTN","ECXPURG1",59,0)
+ S (PG,QFLG)=0,$P(LN,"-",81)="" D NOW^%DTC S Y=$E(%,1,12) X ^DD("DD") S HDT=Y D HDR
+"RTN","ECXPURG1",60,0)
+ S ECTYP="" F S ECTYP=$O(^TMP("ECXPURG",$J,ECTYP)) Q:ECTYP="" Q:QFLG D:$Y+4>IOSL HDR Q:QFLG W !!,ECTYP D
+"RTN","ECXPURG1",61,0)
+ .S ECEX=0 F S ECEX=$O(^TMP("ECXPURG",$J,ECTYP,ECEX)) Q:'ECEX Q:QFLG I $D(^ECX(727,ECEX,0)) S EC=^(0) D
+"RTN","ECXPURG1",62,0)
+ ..S ECDT=$$FMTE^XLFDT($P(EC,U,2),"D")
+"RTN","ECXPURG1",63,0)
+ ..S ECFR=$TR($$FMTE^XLFDT($P(EC,U,4),"5DF")," ","0")
+"RTN","ECXPURG1",64,0)
+ ..S ECTO=$TR($$FMTE^XLFDT($P(EC,U,5),"5DF")," ","0")
+"RTN","ECXPURG1",65,0)
+ ..S ECRC=$P(EC,U,6) S:ECRC="" ECRC="Incomplete"
+"RTN","ECXPURG1",66,0)
+ ..S ECTRN=$$FMTE^XLFDT($G(^ECX(727,ECEX,"TR")),"D")
+"RTN","ECXPURG1",67,0)
+ ..S ECXDIV=$P($G(^ECX(727,ECEX,"DIV")),U,1) I ECXDIV D
+"RTN","ECXPURG1",68,0)
+ ...K ECXDIC S DA=ECXDIV,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99"
+"RTN","ECXPURG1",69,0)
+ ...D EN^DIQ1 S ECXDIV=$G(ECXDIC(4,DA,99,"I")) K DIC,DIQ,DA,DR,ECXDIC
+"RTN","ECXPURG1",70,0)
+ ..D:$Y+3>IOSL HDR Q:QFLG
+"RTN","ECXPURG1",71,0)
+ ..W !?1,ECEX,?11,ECDT,?25,ECFR,"-",ECTO,?48,$J(ECRC,9),?60,ECTRN,?75,ECXDIV
+"RTN","ECXPURG1",72,0)
+ G QUIT
+"RTN","ECXPURG1",73,0)
+HDR ;HEADER
+"RTN","ECXPURG1",74,0)
+ I $E(IOST)="C" S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXPURG1",75,0)
+ I $E(IOST)="C",PG>0 S DIR(0)="E" W ! D ^DIR K DIR I 'Y S QFLG=1 Q
+"RTN","ECXPURG1",76,0)
+ S PG=PG+1 W:$Y!($E(IOST)="C") @IOF W !,"DELETABLE EXTRACTS",?72,"Page: ",PG,!,"Printed on ",HDT,!
+"RTN","ECXPURG1",77,0)
+ W !,"FEEDER SYS",?12,"EXTRACT,",!,"EXTRACT #",?12,"DATE",?33,"FROM-TO",?48,"RECORD CNT",?60,"TRANSMIT DATE",?75,"DIV",!,LN
+"RTN","ECXPURG1",78,0)
+ Q
+"RTN","ECXPURG1",79,0)
+DATES ;ask for date range for purge of holding files
+"RTN","ECXPURG1",80,0)
+ K HI,LO,ECBDT,ECEDT
+"RTN","ECXPURG1",81,0)
+ I ECY="I" D
+"RTN","ECXPURG1",82,0)
+ .I '$O(^ECX(728.113,0)) W !!,"You have no data in the IVP holding file (file #728.113) to purge." Q
+"RTN","ECXPURG1",83,0)
+ .S LO=$O(^ECX(728.113,"A",0)),HI=$O(^ECX(728.113,"A"," "),-1)
+"RTN","ECXPURG1",84,0)
+ I ECY="U" D
+"RTN","ECXPURG1",85,0)
+ .I '$O(^ECX(728.904,0)) W !!,"You have no data in the UDP holding file (file #728.904) to purge." Q
+"RTN","ECXPURG1",86,0)
+ .S LO=$O(^ECX(728.904,"A",0)),HI=$O(^ECX(728.904,"A"," "),-1)
+"RTN","ECXPURG1",87,0)
+ I ECY="V" D
+"RTN","ECXPURG1",88,0)
+ .I '$O(^VBEC(6002.03,0)) W !!,"You have no data in the VBECS holding file (file #6002.03) to purge." Q
+"RTN","ECXPURG1",89,0)
+ .S LO=$O(^VBEC(6002.03,"C",0)),HI=$O(^VBEC(6002.03,"C"," "),-1)
+"RTN","ECXPURG1",90,0)
+ Q:$G(LO)=""
+"RTN","ECXPURG1",91,0)
+ W @IOF,!!,"This file currently holds ",$S(ECY="I":"IVP",ECY="U":"UDP",1:"VBECS")," data from <",$$FMTE^XLFDT(LO,"D"),"> to <",$$FMTE^XLFDT(HI,"D"),">."
+"RTN","ECXPURG1",92,0)
+ W ! K DIR S DIR(0)="DA^"_LO_":"_HI_":EPX",DIR("A")="Beginning date for purge: " D ^DIR K DIR I $D(DIRUT) K HI,LO Q
+"RTN","ECXPURG1",93,0)
+ S ECBDT=+Y
+"RTN","ECXPURG1",94,0)
+ K DIR S DIR(0)="DA^"_ECBDT_":"_HI_":EPX",DIR("A")="Ending date for purge: " D ^DIR K DIR I $D(DIRUT) K HI,LO,ECBDT Q
+"RTN","ECXPURG1",95,0)
+ S ECEDT=+Y
+"RTN","ECXPURG1",96,0)
+ASK4 ; ask to confirm date range
+"RTN","ECXPURG1",97,0)
+ W !!,"I will purge the ",$S(ECY="I":"IVP",ECY="U":"UDP",1:"VBECS")," holding file from <",$$FMTE^XLFDT(ECBDT,"D"),"> to <",$$FMTE^XLFDT(ECEDT,"D"),">."
+"RTN","ECXPURG1",98,0)
+ W !! K DIR S DIR(0)="Y",DIR("A")="Is this OK",DIR("B")="NO"
+"RTN","ECXPURG1",99,0)
+ S DIR("?",1)=" Enter:"
+"RTN","ECXPURG1",100,0)
+ S DIR("?",2)=" ""YES"" if you agree with this date range and wish to proceed,"
+"RTN","ECXPURG1",101,0)
+ S DIR("?",3)=" ""NO"" if you would like to make a different selection, or"
+"RTN","ECXPURG1",102,0)
+ S DIR("?")=" ""^"" to exit option."
+"RTN","ECXPURG1",103,0)
+ D ^DIR K DIR I $D(DIRUT) K ECBDT,ECEDT Q
+"RTN","ECXPURG1",104,0)
+ I 'Y G DATES
+"RTN","ECXPURG1",105,0)
+ ; at this point, ECBDT and ECEDT are passed back to ^ECXPURG
+"RTN","ECXPURG1",106,0)
+ Q
+"RTN","ECXPURG1",107,0)
+ ;
+"RTN","ECXPURG1",108,0)
+DIVCHK(ECLOC,ECTMP) ;**Remove extracts from ECLOC that are for user's div.
+"RTN","ECXPURG1",109,0)
+ N ECLPDA
+"RTN","ECXPURG1",110,0)
+ S ECLPDA=0
+"RTN","ECXPURG1",111,0)
+ F S ECLPDA=$O(ECLOC(ECLPDA)) Q:(+ECLPDA=0) DO
+"RTN","ECXPURG1",112,0)
+ .I '$D(ECTMP($P(^ECX(727,ECLPDA,"DIV"),U,1))) KILL ECLOC(ECLPDA)
+"RTN","ECXPURG1",113,0)
+ Q
+"RTN","ECXPURG1",114,0)
+CBOCCHK(ECLOC) ;**Check that CBOC report has been viewed prior to deleting
+"RTN","ECXPURG1",115,0)
+ N LOOPDA,YYYMMDD
+"RTN","ECXPURG1",116,0)
+ S LOOPDA=0
+"RTN","ECXPURG1",117,0)
+ F S LOOPDA=$O(ECLOC(LOOPDA)) Q:(+LOOPDA=0) D
+"RTN","ECXPURG1",118,0)
+ .I ^ECX(727,LOOPDA,"HEAD")="CLI" D
+"RTN","ECXPURG1",119,0)
+ ..S DA(1)=1
+"RTN","ECXPURG1",120,0)
+ ..S YYYMMDD=$P(^ECX(727,LOOPDA,0),U,4)
+"RTN","ECXPURG1",121,0)
+ ..I YYYMMDD>3030930 I '$D(^ECX(728,DA(1),"CBOC","B",LOOPDA)) D
+"RTN","ECXPURG1",122,0)
+ ...K DIR S DIR(0)="Y",DIR("A")="The CBOC Activity Report has not been viewed. Delete anyway",DIR("B")="NO" ;144
+"RTN","ECXPURG1",123,0)
+ ...D ^DIR K DIR I 'Y K ECLOC(LOOPDA)
+"RTN","ECXPURG1",124,0)
+ Q
+"RTN","ECXQSR")
+0^22^B61223139^B49856684
+"RTN","ECXQSR",1,0)
+ECXQSR ;ALB/JAP,BIR/PTD-DSS QUASAR Extract ;4/16/13 14:23
+"RTN","ECXQSR",2,0)
+ ;;3.0;DSS EXTRACTS;**11,8,13,26,24,34,33,35,39,43,46,49,64,71,84,92,106,105,120,124,127,132,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXQSR",3,0)
+BEG ;entry point from option
+"RTN","ECXQSR",4,0)
+ I '$O(^ACK(509850.8,0)) W !,"You must be using the Quality Audiology & Speech Pathology",!,"Audit & Review (QUASAR) software to run this extract.",!! Q
+"RTN","ECXQSR",5,0)
+ I '$D(^ACK(509850.8,1,"DSS")) W !,"Linkage has not been established between QUASAR and the DSS UNIT file (#724).",!! Q
+"RTN","ECXQSR",6,0)
+ I '$O(^ACK(509850.6,0)) W !,"There is no data in the A&SP CLINIC VISIT file (#509850.6).",!! Q
+"RTN","ECXQSR",7,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXQSR",8,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXQSR",9,0)
+ Q
+"RTN","ECXQSR",10,0)
+START ;entry point from tasked job
+"RTN","ECXQSR",11,0)
+ N ERR,ECXQDT,ECXNPRFI
+"RTN","ECXQSR",12,0)
+ S QFLG=0,ECED=ECED+.9,ECD=ECSD1,ECXQV=""
+"RTN","ECXQSR",13,0)
+ D QINST I $D(ERR) Q
+"RTN","ECXQSR",14,0)
+ S ECL=+^ACK(509850.8,1,0),ECLINK=^ACK(509850.8,1,"DSS")
+"RTN","ECXQSR",15,0)
+ F S ECD=$O(^ACK(509850.6,"B",ECD)),ECDA=0 Q:(ECD>ECED)!('ECD)!(QFLG) D
+"RTN","ECXQSR",16,0)
+ .I +ECXQV=3,ECD<ECXQDT S ECXQV=2.0
+"RTN","ECXQSR",17,0)
+ .F S ECDA=$O(^ACK(509850.6,"B",ECD,ECDA)) Q:'ECDA D UPDATE Q:QFLG
+"RTN","ECXQSR",18,0)
+ Q
+"RTN","ECXQSR",19,0)
+QINST ;Get installed information for QUASAR
+"RTN","ECXQSR",20,0)
+ N ARR,IENS,QVIEN,INTIEN
+"RTN","ECXQSR",21,0)
+ S ECXQDT=""
+"RTN","ECXQSR",22,0)
+ D FILE^DID(509850.6,,"VERSION","ARR","ERR")
+"RTN","ECXQSR",23,0)
+ S ECXQV=$G(ARR("VERSION")) I +ECXQV=0 S ERR=1 Q
+"RTN","ECXQSR",24,0)
+ S QVIEN=$$FIND1^DIC(9.4,"","X","QUASAR") I +QVIEN<1 S ERR=1 Q
+"RTN","ECXQSR",25,0)
+ S IENS=","_QVIEN_","
+"RTN","ECXQSR",26,0)
+ S INTIEN=$$FIND1^DIC(9.49,IENS,"X",ECXQV) I +INTIEN<1 S ERR=1 Q
+"RTN","ECXQSR",27,0)
+ S IENS=INTIEN_","_QVIEN,ECXQDT=$$GET1^DIQ(9.49,IENS,2,"I")
+"RTN","ECXQSR",28,0)
+ Q
+"RTN","ECXQSR",29,0)
+UPDATE ;create record for each unique CPT code for clinic visit
+"RTN","ECXQSR",30,0)
+ N ARY,ECZNODE,CPT,LOC,MOD,STR,VOL,XX,ECTP,ECV
+"RTN","ECXQSR",31,0)
+ N ECXICD10P,ECXICD101,ECXICD102,ECXICD103,ECXICD104,ECXVNS,ECX4CHAR,ECXESC,ECXECL,ECXCLST ;144
+"RTN","ECXQSR",32,0)
+ Q:'$D(^ACK(509850.6,ECDA,0))
+"RTN","ECXQSR",33,0)
+ S ECZNODE=^ACK(509850.6,ECDA,0),EC2NODE=$G(^ACK(509850.6,ECDA,2))
+"RTN","ECXQSR",34,0)
+ S ECDT=$P(ECZNODE,U),ECDAY=$$ECXDATE^ECXUTL(ECDT,ECXYM)
+"RTN","ECXQSR",35,0)
+ S ECTIME=$$ECXTIME^ECXUTL(ECDT) S:$P(ECDT,".",2)="" ECTIME="000000"
+"RTN","ECXQSR",36,0)
+ S ECXDFN=$P(ECZNODE,U,2)
+"RTN","ECXQSR",37,0)
+ Q:'$$PATDEM^ECXUTL2(ECXDFN,ECD,"1;3;5")
+"RTN","ECXQSR",38,0)
+ S OK=$$PAT^ECXUTL3(ECXDFN,ECDT,"1;5",.ECXPAT)
+"RTN","ECXQSR",39,0)
+ S ECX4CHAR="" ;144 NULL passed
+"RTN","ECXQSR",40,0)
+ S ECXCLST="" ;144
+"RTN","ECXQSR",41,0)
+ I 'OK S ECXERR=1 K ECXPAT Q
+"RTN","ECXQSR",42,0)
+ ;OEF/OIF data
+"RTN","ECXQSR",43,0)
+ S ECXOEF=ECXPAT("ECXOEF")
+"RTN","ECXQSR",44,0)
+ S ECXOEFDT=ECXPAT("ECXOEFDT")
+"RTN","ECXQSR",45,0)
+ S ECXVNS=ECXPAT("VIETNAM") ;144 VIETNAM STATUS CVW
+"RTN","ECXQSR",46,0)
+ S ECXCLST=ECXPAT("CL STAT") ;144 Camp Lejeune Status
+"RTN","ECXQSR",47,0)
+ ;
+"RTN","ECXQSR",48,0)
+ S ECHL="",ECXDIV=$P($G(^ACK(509850.6,ECDA,5)),U),ECSTOP=$P(EC2NODE,U)
+"RTN","ECXQSR",49,0)
+ S ECXPDIV=$$GETDIV^ECXDEPT(ECXDIV) ; Get Production Division
+"RTN","ECXQSR",50,0)
+ Q:ECSTOP=""
+"RTN","ECXQSR",51,0)
+ S (ECHLS,ECHL2S)="000",ECAC=$P($G(ECZNODE),U,6)
+"RTN","ECXQSR",52,0)
+ I ECAC D
+"RTN","ECXQSR",53,0)
+ .S ECHL=+$P($G(^SC(ECAC,0)),U,7),ECHL2=+$P($G(^(0)),U,18) I ECHL D
+"RTN","ECXQSR",54,0)
+ ..S ECHLS=$P($G(^DIC(40.7,+ECHL,0)),U,2),ECHL2S=$P($G(^DIC(40.7,+ECHL2,0)),U,2)
+"RTN","ECXQSR",55,0)
+ ..S ECHLS=$$RJ^XLFSTR(ECHLS,3,0),ECHL2S=$$RJ^XLFSTR(ECHL2S,3,0)
+"RTN","ECXQSR",56,0)
+ S ECDSS=ECHLS_ECHL2S
+"RTN","ECXQSR",57,0)
+ I ECXLOGIC>2003 D
+"RTN","ECXQSR",58,0)
+ .I "^18^23^24^41^65^94^108^"[("^"_ECXTS_"^") S ECDSS=$$TSMAP^ECXUTL4(ECXTS)
+"RTN","ECXQSR",59,0)
+ S ECDU=$S(ECSTOP["A":$P(ECLINK,U),ECSTOP["S":$P(ECLINK,U,2),1:"")
+"RTN","ECXQSR",60,0)
+ Q:'ECDU
+"RTN","ECXQSR",61,0)
+ S ECDSSU=$G(^ECD(ECDU,0)),ECCS=+$P(ECDSSU,U,4),(ECO,ECM)=+$P(ECDSSU,U,3),ECXDSSD=$E($P(ECDSSU,U,5),1,10)
+"RTN","ECXQSR",62,0)
+ Q:'$O(^ACK(509850.6,ECDA,3,0))
+"RTN","ECXQSR",63,0)
+ ;Create local array of procedure codes and # of times each procedure
+"RTN","ECXQSR",64,0)
+ ; was performed.
+"RTN","ECXQSR",65,0)
+ F I=1:1:4 S @("ECXICD9"_I)=""
+"RTN","ECXQSR",66,0)
+ F I=1:1:4 S @("ECXICD10"_I)=""
+"RTN","ECXQSR",67,0)
+ S (ECDIA,ECXPPC,ECXPRV1,ECXPRV2,ECXPRV3,ECXPRV4,ECXPRV5,ECXPRV6,ECXPRV7,ECXICD10P)="" ;144 MORE PROVIDERS
+"RTN","ECXQSR",68,0)
+ ;if QUASAR v2
+"RTN","ECXQSR",69,0)
+ I +ECXQV=2 D
+"RTN","ECXQSR",70,0)
+ .S ECXPRV1=$P(EC2NODE,U,7),ECXPRV2=$P(EC2NODE,U,3),ECXPRV3=$P(EC2NODE,U,5),ECPN=0
+"RTN","ECXQSR",71,0)
+ .F S ECPN=$O(^ACK(509850.6,ECDA,3,ECPN)) Q:'ECPN D
+"RTN","ECXQSR",72,0)
+ ..S XX=^ACK(509850.6,ECDA,3,ECPN,0),XX=$P(XX,U),XX=$P($G(^ACK(509850.4,XX,0)),U),ECXCPT=$E($$CPT^ECXUTL3(XX),1,5)
+"RTN","ECXQSR",73,0)
+ ..I ECXCPT]"" D
+"RTN","ECXQSR",74,0)
+ ...I '$D(LOC(ECXCPT)) S LOC(ECXCPT)=0_U_ECXPRV1
+"RTN","ECXQSR",75,0)
+ ...S $P(LOC(ECXCPT),U)=$P(LOC(ECXCPT),U)+1
+"RTN","ECXQSR",76,0)
+ .S ECIEN=$O(^ACK(509850.6,ECDA,1,0)),ECDIA=$P($G(^ICD9(+$G(^ACK(509850.6,ECDA,1,ECIEN,0)),0)),U)
+"RTN","ECXQSR",77,0)
+ .F I=1:1:4 S ECIEN=$O(^ACK(509850.6,ECDA,1,ECIEN)) Q:'+ECIEN D
+"RTN","ECXQSR",78,0)
+ ..S @("ECXICD9"_I)=$P($G(^ICD9(+$P(^ACK(509850.6,ECDA,1,ECIEN,0),U),0)),U)
+"RTN","ECXQSR",79,0)
+ ;if QUASAR v3
+"RTN","ECXQSR",80,0)
+ I +ECXQV=3 D
+"RTN","ECXQSR",81,0)
+ .N CPT,DIA,I,J,MOD,MOD1,P,STR,VOL,ECTP,ARY,ECP,ECPN
+"RTN","ECXQSR",82,0)
+ .S ECXPRV2=$G(^ACK(509850.6,ECDA,2.7,1,0)),ECXPRV3=$G(^ACK(509850.6,ECDA,2.7,2,0)),ECXPRV4=$G(^ACK(509850.6,ECDA,2.7,3,0)),ECXPRV5=$G(^ACK(509850.6,ECDA,2.7,4,0))
+"RTN","ECXQSR",83,0)
+ .S ECXPRV6=$G(^ACK(509850.6,ECDA,2.7,5,0)),ECXPRV7=$G(^ACK(509850.6,ECDA,2.7,6,0)) ;144 more prov
+"RTN","ECXQSR",84,0)
+ .I $G(ECXPRV2) S ECXPRV2=$$CONVERT1^ACKQUTL4(ECXPRV2)
+"RTN","ECXQSR",85,0)
+ .I $G(ECXPRV3) S ECXPRV3=$$CONVERT1^ACKQUTL4(ECXPRV3)
+"RTN","ECXQSR",86,0)
+ .I $G(ECXPRV4) S ECXPRV4=$$CONVERT1^ACKQUTL4(ECXPRV4)
+"RTN","ECXQSR",87,0)
+ .I $G(ECXPRV5) S ECXPRV5=$$CONVERT1^ACKQUTL4(ECXPRV5)
+"RTN","ECXQSR",88,0)
+ .I $G(ECXPRV6) S ECXPRV6=$$CONVERT1^ACKQUTL4(ECXPRV6) ;144
+"RTN","ECXQSR",89,0)
+ .I $G(ECXPRV7) S ECXPRV7=$$CONVERT1^ACKQUTL4(ECXPRV7) ;144
+"RTN","ECXQSR",90,0)
+ .S ECPN=0 F S ECPN=$O(^ACK(509850.6,ECDA,3,ECPN)) Q:'ECPN D
+"RTN","ECXQSR",91,0)
+ ..S CPT=^ACK(509850.6,ECDA,3,ECPN,0),ECXCPT=$P(CPT,U),ECTP=+$P(CPT,U,5),ECV=1,ECP=""
+"RTN","ECXQSR",92,0)
+ ..Q:ECXCPT=""
+"RTN","ECXQSR",93,0)
+ ..I ECTP D
+"RTN","ECXQSR",94,0)
+ ...S CPT=$G(^ACK(509850.6,ECDA,7,ECTP,0)),ECP=$P(CPT,U)
+"RTN","ECXQSR",95,0)
+ ...S ECP=$S(ECP<90000:$P($G(^EC(725,+ECP,0)),U,2)_"N",1:$P($G(^EC(725,+ECP,0)),U,2)_"L")
+"RTN","ECXQSR",96,0)
+ ...S VOL=+$P(CPT,U,2),ECXPRV1=$P(CPT,U,3)
+"RTN","ECXQSR",97,0)
+ ..I 'ECTP S VOL=+$P(CPT,U,3),ECXPRV1=$P(CPT,U,4)
+"RTN","ECXQSR",98,0)
+ ..I $G(ECXPRV1) S ECXPRV1=$$CONVERT1^ACKQUTL4(ECXPRV1)
+"RTN","ECXQSR",99,0)
+ ..S ECXCPT=$E($$CPT^ECXUTL3(ECXCPT),1,5),ECXMOD="",MOD=0
+"RTN","ECXQSR",100,0)
+ ..F S MOD=$O(^ACK(509850.6,ECDA,3,ECPN,1,MOD)) Q:'MOD D
+"RTN","ECXQSR",101,0)
+ ...S MOD1=+^ACK(509850.6,ECDA,3,ECPN,1,MOD,0) D:MOD1
+"RTN","ECXQSR",102,0)
+ ....S ECXMOD=ECXMOD_MOD1_";"
+"RTN","ECXQSR",103,0)
+ ..F I=1:1:$L(ECXMOD,";") I $G(ARY(ECXCPT))'[$P(ECXMOD,";",I) D
+"RTN","ECXQSR",104,0)
+ ...S ARY(ECXCPT)=$G(ARY(ECXCPT))_$P(ECXMOD,";",I)_";"
+"RTN","ECXQSR",105,0)
+ ..S:VOL ECV=VOL
+"RTN","ECXQSR",106,0)
+ ..S ECV=ECV+$G(LOC(ECXCPT)),LOC(ECXCPT)=ECV_U_ECXPRV1_U_ECP
+"RTN","ECXQSR",107,0)
+ .S ECIEN=0 F S ECIEN=$O(^ACK(509850.6,ECDA,1,ECIEN)) Q:'ECIEN D
+"RTN","ECXQSR",108,0)
+ ..S DIA=^ACK(509850.6,ECDA,1,ECIEN,0),P=$P(DIA,U,2),P=$S(P=1:"P",1:"S")
+"RTN","ECXQSR",109,0)
+ ..S CNT=$G(STR(P))+1,STR(P,CNT)=$P($G(^ICD9(+DIA,0)),U),STR(P)=CNT
+"RTN","ECXQSR",110,0)
+ .S ECDIA=$G(STR("P",1))
+"RTN","ECXQSR",111,0)
+ .F I=1:1:4 Q:'$D(STR("P",I+1)) S @("ECXICD9"_I)=STR("P",I)
+"RTN","ECXQSR",112,0)
+ .S:ECDIA="" ECDIA=$G(STR("S",1)),I=2
+"RTN","ECXQSR",113,0)
+ .F J=I:1:4 Q:'$D(STR("S",J)) S @("ECXICD9"_J)=STR("S",J)
+"RTN","ECXQSR",114,0)
+ Q:('$D(LOC))!('$O(^ACK(509850.6,ECDA,1,0)))
+"RTN","ECXQSR",115,0)
+ ;- Ord Div, Contract St/End Dates, Contract Type placeholders for FY2002
+"RTN","ECXQSR",116,0)
+ S (ECXODIV,ECXCSDT,ECXCEDT,ECXCTYP)=""
+"RTN","ECXQSR",117,0)
+ ;set up Provider Person class
+"RTN","ECXQSR",118,0)
+ S (ECXCPT,ECXPPC1,ECXPPC2,ECXPPC3,ECXPPC4,ECXPPC5,ECXPPC6,ECXPPC7)="" ;144 new ppc
+"RTN","ECXQSR",119,0)
+ S:ECXPRV2'="" ECXPPC2=$$PRVCLASS^ECXUTL(ECXPRV2,ECD)
+"RTN","ECXQSR",120,0)
+ S:ECXPRV3'="" ECXPPC3=$$PRVCLASS^ECXUTL(ECXPRV3,ECD)
+"RTN","ECXQSR",121,0)
+ S:ECXPRV4'="" ECXPPC4=$$PRVCLASS^ECXUTL(ECXPRV4,ECD)
+"RTN","ECXQSR",122,0)
+ S:ECXPRV5'="" ECXPPC5=$$PRVCLASS^ECXUTL(ECXPRV5,ECD)
+"RTN","ECXQSR",123,0)
+ S:ECXPRV6'="" ECXPPC6=$$PRVCLASS^ECXUTL(ECXPRV6,ECD) ;144
+"RTN","ECXQSR",124,0)
+ S:ECXPRV7'="" ECXPPC7=$$PRVCLASS^ECXUTL(ECXPRV7,ECD) ;144
+"RTN","ECXQSR",125,0)
+ ;set up Provider NPI
+"RTN","ECXQSR",126,0)
+ S (ECPR1NPI,ECPR2NPI,ECPR3NPI,ECPR4NPI,ECPR5NPI,ECPR6NPI,ECPR7NPI)="" ;144 new npi
+"RTN","ECXQSR",127,0)
+ S ECPR2NPI=$$NPI^XUSNPI("Individual_ID",ECXPRV2,ECD)
+"RTN","ECXQSR",128,0)
+ S:+ECPR2NPI'>0 ECPR2NPI="" S ECPR2NPI=$P(ECPR2NPI,U)
+"RTN","ECXQSR",129,0)
+ S ECPR3NPI=$$NPI^XUSNPI("Individual_ID",ECXPRV3,ECD)
+"RTN","ECXQSR",130,0)
+ S:+ECPR3NPI'>0 ECPR3NPI="" S ECPR3NPI=$P(ECPR3NPI,U)
+"RTN","ECXQSR",131,0)
+ S ECPR4NPI=$$NPI^XUSNPI("Individual_ID",ECXPRV4,ECD)
+"RTN","ECXQSR",132,0)
+ S:+ECPR4NPI'>0 ECPR4NPI="" S ECPR4NPI=$P(ECPR4NPI,U)
+"RTN","ECXQSR",133,0)
+ S ECPR5NPI=$$NPI^XUSNPI("Individual_ID",ECXPRV5,ECD)
+"RTN","ECXQSR",134,0)
+ S:+ECPR5NPI'>0 ECPR5NPI="" S ECPR5NPI=$P(ECPR5NPI,U)
+"RTN","ECXQSR",135,0)
+ S ECPR6NPI=$$NPI^XUSNPI("Individual_ID",ECXPRV6,ECD) ;144
+"RTN","ECXQSR",136,0)
+ S:+ECPR6NPI'>0 ECPR6NPI="" S ECPR6NPI=$P(ECPR6NPI,U) ;144
+"RTN","ECXQSR",137,0)
+ S ECPR7NPI=$$NPI^XUSNPI("Individual_ID",ECXPRV7,ECD) ;144
+"RTN","ECXQSR",138,0)
+ S:+ECPR7NPI'>0 ECPR7NPI="" S ECPR7NPI=$P(ECPR7NPI,U) ;144
+"RTN","ECXQSR",139,0)
+ N DA,DIC,DIK,DR,FILEN,DIQ,XVAR,II,DI
+"RTN","ECXQSR",140,0)
+ F II=2,3,4,5,6,7 S XVAR="ECXPRV"_II I @XVAR'="" D
+"RTN","ECXQSR",141,0)
+ .S @XVAR=2_ at XVAR
+"RTN","ECXQSR",142,0)
+ ; -Observation Patient Indicator (yes/no)
+"RTN","ECXQSR",143,0)
+ S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECDSS)
+"RTN","ECXQSR",144,0)
+ ; -CNH status (YES/NO)
+"RTN","ECXQSR",145,0)
+ S ECXCNH=$$CNHSTAT^ECXUTL4(ECXDFN)
+"RTN","ECXQSR",146,0)
+ ;get encounter classification
+"RTN","ECXQSR",147,0)
+ S (ECXAO,ECXECE,ECXIR,ECXMIL,ECXHNC,ECXSHAD,ECXESC,ECXECL)="",ECXVISIT=$P($G(^ACK(509850.6,ECDA,6)),U,3) ;144
+"RTN","ECXQSR",148,0)
+ I ECXVISIT'="" D
+"RTN","ECXQSR",149,0)
+ .D VISIT^ECXSCX1(ECXDFN,ECXVISIT,.ECXVIST,.ECXERR) I ECXERR K ECXERR Q
+"RTN","ECXQSR",150,0)
+ .S ECXAO=$G(ECXVIST("AO")),ECXECE=$G(ECXVIST("PGE")),ECXSHAD=$G(ECXVIST("SHAD"))
+"RTN","ECXQSR",151,0)
+ .S ECXIR=$G(ECXVIST("IR")),ECXMIL=$G(ECXVIST("MST")),ECXHNC=$G(ECXVIST("HNC"))
+"RTN","ECXQSR",152,0)
+ .S ECXESC=$G(ECXVIST("ENCSC")),ECXECL=$G(ECXVIST("ENCCL")) ;144
+"RTN","ECXQSR",153,0)
+ ; -Head and Neck Cancer Indicator
+"RTN","ECXQSR",154,0)
+ S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN)
+"RTN","ECXQSR",155,0)
+ ; -PROJ 112/SHAD Indicator
+"RTN","ECXQSR",156,0)
+ S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN)
+"RTN","ECXQSR",157,0)
+ ; ******* - PATCH 127, ADD PATCAT CODE - ********
+"RTN","ECXQSR",158,0)
+ S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXQSR",159,0)
+ ;get enrollment data (category, status and priority)
+"RTN","ECXQSR",160,0)
+ I $$ENROLLM^ECXUTL2(ECXDFN)
+"RTN","ECXQSR",161,0)
+ ; -Get national patient record flag Indicator if exist
+"RTN","ECXQSR",162,0)
+ D NPRF^ECXUTL5
+"RTN","ECXQSR",163,0)
+ ; -If no encounter number don't file record
+"RTN","ECXQSR",164,0)
+ S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECDT,ECXTS,ECXOBS,ECHEAD,ECDSS,)
+"RTN","ECXQSR",165,0)
+ Q:ECXENC=""
+"RTN","ECXQSR",166,0)
+ ;Loop through array of unique procedures. Create record in ECODE.
+"RTN","ECXQSR",167,0)
+ S CPT="" F S CPT=$O(LOC(CPT)) Q:CPT="" D
+"RTN","ECXQSR",168,0)
+ .S ECV=+$P(LOC(CPT),U),ECXCPT=$$CPT^ECXUTL3(CPT,$G(ARY(CPT)),ECV)
+"RTN","ECXQSR",169,0)
+ .S ECXPRV1=$P(LOC(CPT),U,2)
+"RTN","ECXQSR",170,0)
+ .S:ECXPRV1'="" ECXPPC1=$$PRVCLASS^ECXUTL(ECXPRV1,ECD)
+"RTN","ECXQSR",171,0)
+ .S ECPR1NPI=$$NPI^XUSNPI("Individual_ID",ECXPRV1,ECD)
+"RTN","ECXQSR",172,0)
+ .S:+ECPR1NPI'>0 ECPR1NPI="" S ECPR1NPI=$P(ECPR1NPI,U)
+"RTN","ECXQSR",173,0)
+ .S:ECXPRV1'="" ECXPRV1=2_ECXPRV1
+"RTN","ECXQSR",174,0)
+ .S ECP=$P(LOC(CPT),U,3) I ECP="" S ECP=$$CPT^ECXUTL3(CPT,"",ECV)
+"RTN","ECXQSR",175,0)
+ .D FILE^ECXQSR1
+"RTN","ECXQSR",176,0)
+ K CPT,LOC
+"RTN","ECXQSR",177,0)
+ Q
+"RTN","ECXQSR",178,0)
+SETUP ;Set required input for ECXTRAC
+"RTN","ECXQSR",179,0)
+ S ECHEAD="ECQ"
+"RTN","ECXQSR",180,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXQSR",181,0)
+ Q
+"RTN","ECXQSR",182,0)
+QUE ;Entry point for the background requeuing handled by ECXTAUTO.
+"RTN","ECXQSR",183,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL Q
+"RTN","ECXQSR1")
+0^23^B16250505^B13899890
+"RTN","ECXQSR1",1,0)
+ECXQSR1 ;ALB/JAP,BIR/PTD-DSS QUASAR Extract ;5/22/13 13:01
+"RTN","ECXQSR1",2,0)
+ ;;3.0;DSS EXTRACTS;**105,120,127,132,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXQSR1",3,0)
+FILE ;file record in #727.825
+"RTN","ECXQSR1",4,0)
+ ;node0
+"RTN","ECXQSR1",5,0)
+ ;inst^dfn ECXDFN^ssn ECXSSN^name ECXPNM^i/o status ECXA^day ECDAY^
+"RTN","ECXQSR1",6,0)
+ ;DSS unit ECDU^^category ECPTTM^procedure ECP^volume ECV^cost center^
+"RTN","ECXQSR1",7,0)
+ ;ordering sec ^section^provider ECXPRV1^ECXPPC1^ECXPRV2^ECXPPC2^ECXPRV3^
+"RTN","ECXQSR1",8,0)
+ ;ECXPPC3^mov # ECXMN^treat spec ECXTS^time ECTIME^primary care team
+"RTN","ECXQSR1",9,0)
+ ;ECPTTM^primary care provider ECPTPR^pce cpt code & modifers ECXCPT^
+"RTN","ECXQSR1",10,0)
+ ;primary icd-9 code ECDIA^secondary icd-9 #1 ECXICD91^secondary icd-9
+"RTN","ECXQSR1",11,0)
+ ;#2 ECXICD92^secondary icd-9 #3 ECXICD93^secondary icd-9 #4 ECXICD94^
+"RTN","ECXQSR1",12,0)
+ ;agent orange ECXAST^radiation exposure ECRST^environmental
+"RTN","ECXQSR1",13,0)
+ ;contaminants ECEST^service connected ECSC^sent to pce^^dss identifier
+"RTN","ECXQSR1",14,0)
+ ;ECDSS^placeholder
+"RTN","ECXQSR1",15,0)
+ ;node1
+"RTN","ECXQSR1",16,0)
+ ;mpi ECXNPI^dss dept ECXDSSD^^^^placeholder
+"RTN","ECXQSR1",17,0)
+ ;^assoc pc provider ECASPR^assoc pc prov person class
+"RTN","ECXQSR1",18,0)
+ ;ECCLAS2^placeholder^divison ECXDIV^dom ECXDOM^
+"RTN","ECXQSR1",19,0)
+ ;enrollment category ECXCAT^enrollment status ECXSTAT^enrollment prior
+"RTN","ECXQSR1",20,0)
+ ;ECXPRIOR^period of service ECXPOS^purple heart ECXPHI^observ pat ind
+"RTN","ECXQSR1",21,0)
+ ;ECXOBS^encounter num ECXENC^ao loc ECXAOL^ord div ECXODIV^contr st dt
+"RTN","ECXQSR1",22,0)
+ ;ECXCSDT^contr end dt ECXCEDT^contr typ ECXCTYP^CNH stat ECXCNH^
+"RTN","ECXQSR1",23,0)
+ ;production division ECXPDIV^eligibility ECXELIG^ethnicity ECXETH^
+"RTN","ECXQSR1",24,0)
+ ;race1 ECXRC1^enrollment location ECXENRL^^enrollment priority
+"RTN","ECXQSR1",25,0)
+ ;ECXPRIOR_enrollment subgroup ECXSBGRP^user enrollee ECXUESTA^patient
+"RTN","ECXQSR1",26,0)
+ ;type ECXPTYPE^combat vet elig ECXCVE
+"RTN","ECXQSR1",27,0)
+ ;NODE 2
+"RTN","ECXQSR1",28,0)
+ ;^combat vet elig end date ECXCVEDT^
+"RTN","ECXQSR1",29,0)
+ ;enc cv eligible ECXCVENC^national patient record flag ECXNPRFI^
+"RTN","ECXQSR1",30,0)
+ ;emergency response indicator(FEMA) ECXERI^agent orange indicator
+"RTN","ECXQSR1",31,0)
+ ;ECXAO^environ contam ECXECE^head/neck ECXHNC^military sexual trauma
+"RTN","ECXQSR1",32,0)
+ ;ECXMIL^radiation encoun ECXIR^nutrition dx(currently null)^OEF/OIF ECXOEF^
+"RTN","ECXQSR1",33,0)
+ ;OEF/OIF return date ECXOEFDT^assoc pc provider npi ECASNPI^
+"RTN","ECXQSR1",34,0)
+ ;primary care provider npi ECPTNPI^provider npi ECPR1NPI^
+"RTN","ECXQSR1",35,0)
+ ;provider #2 npi ECPR2NPI^provider #3 npi ECPR3NPI^shad status ECXSHADI^
+"RTN","ECXQSR1",36,0)
+ ;shad encouter ECXSHAD^pat cat ECXPATCAT^provider #4 ECXPRV4^
+"RTN","ECXQSR1",37,0)
+ ;provider #4 pc ECXPPC4^provider #4 npi ECPR4NPI^provider #5 ECXPRV5^
+"RTN","ECXQSR1",38,0)
+ ;provider #5 pc ECXPPC5^provider #5 npi ECPR5NPI^
+"RTN","ECXQSR1",39,0)
+ ;primary ICD-10 code (currently null) ECXICD10P^Secondary ICD-10 Code #1 (currently null) ECXICD101^
+"RTN","ECXQSR1",40,0)
+ ;Secondary ICD-10 Code #2 (currently null) ECXICD102^Secondary ICD-10 Code #3 (currently null) ECXICD103^
+"RTN","ECXQSR1",41,0)
+ ;NODE 3
+"RTN","ECXQSR1",42,0)
+ ;Secondary ICD-10 Code #4 (currently null) ECXICD104^Encounter SC ECXESC^Vietnam Status ECXVNS
+"RTN","ECXQSR1",43,0)
+ ;Provider #6 ECXPRV6^ Prov #6 PC ECXPPC6^Prov #6 NPI ECPR6NPI^Provider #7 ECXPRV7^ Prov #7 PC ECXPPC7^Prov #7 NPI ECPR7NPI^4CHAR ECX4CHAR^Clinic IEN ECAC^Camp Lejeune status ECXCLST^Encounter Camp Lejeune ECXECL
+"RTN","ECXQSR1",44,0)
+ ;
+"RTN","ECXQSR1",45,0)
+ ;convert specialty to PTF Code for transmission
+"RTN","ECXQSR1",46,0)
+ N ECXDATA,ECXTSC
+"RTN","ECXQSR1",47,0)
+ S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA)
+"RTN","ECXQSR1",48,0)
+ S ECXTSC=$G(ECXDATA(7))
+"RTN","ECXQSR1",49,0)
+ ;done
+"RTN","ECXQSR1",50,0)
+ N DA,DIK
+"RTN","ECXQSR1",51,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXQSR1",52,0)
+ S ECODE=EC7_U_EC23_U
+"RTN","ECXQSR1",53,0)
+ S ECODE=ECODE_ECL_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U_ECDAY_U_ECDU_U_U
+"RTN","ECXQSR1",54,0)
+ S ECODE=ECODE_ECP_U_ECV_U_ECCS_U_ECO_U_ECM_U_ECXPRV1_U_ECXPPC1_U
+"RTN","ECXQSR1",55,0)
+ S ECODE=ECODE_ECXPRV2_U_ECXPPC2_U_ECXPRV3_U_ECXPPC3_U_U
+"RTN","ECXQSR1",56,0)
+ S ECODE=ECODE_ECXMN_U_ECXTSC_U_ECTIME_U_ECPTTM_U
+"RTN","ECXQSR1",57,0)
+ S ECODE=ECODE_ECPTPR_U_ECXCPT_U_ECDIA_U_ECXICD91_U_ECXICD92_U
+"RTN","ECXQSR1",58,0)
+ S ECODE=ECODE_ECXICD93_U_ECXICD94_U_ECXAST_U_ECXRST_U_ECXEST_U
+"RTN","ECXQSR1",59,0)
+ S ECODE=ECODE_ECSC_U_"N"_U_U_ECDSS_U_U
+"RTN","ECXQSR1",60,0)
+ S ECODE1=ECXMPI_U_ECXDSSD_U_U_U_U_ECCLAS_U_U_ECASPR_U
+"RTN","ECXQSR1",61,0)
+ S ECODE1=ECODE1_ECCLAS2_U_U_ECXDIV_U_ECXMST_U_ECXDOM_U
+"RTN","ECXQSR1",62,0)
+ S ECODE1=ECODE1_ECXDOB_U_ECXCAT_U_ECXSTAT_U_$S(ECXLOGIC<2005:ECXPRIOR,1:"")_U_ECXPOS_U_ECXPHI_U
+"RTN","ECXQSR1",63,0)
+ S ECODE1=ECODE1_ECXOBS_U_ECXENC_U_ECXAOL_U_ECXODIV_U_ECXCSDT_U_ECXCEDT_U
+"RTN","ECXQSR1",64,0)
+ S ECODE1=ECODE1_ECXCTYP_U_ECXCNH_U_ECXPDIV_U_ECXELIG_U_ECXHNCI_U_ECXETH_U
+"RTN","ECXQSR1",65,0)
+ S ECODE1=ECODE1_ECXRC1
+"RTN","ECXQSR1",66,0)
+ I ECXLOGIC>2003 S ECODE1=ECODE1_U_ECXENRL
+"RTN","ECXQSR1",67,0)
+ I ECXLOGIC>2004 S ECODE1=ECODE1_U_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U
+"RTN","ECXQSR1",68,0)
+ I ECXLOGIC>2004 S ECODE2=ECXCVEDT_U_ECXCVENC_U_ECXNPRFI
+"RTN","ECXQSR1",69,0)
+ I ECXLOGIC>2006 S ECODE2=ECODE2_U_ECXERI_U_ECXAO_U_ECXECE_U_ECXHNC_U_ECXMIL_U_ECXIR_U
+"RTN","ECXQSR1",70,0)
+ I ECXLOGIC>2007 S ECODE2=ECODE2_U_$G(ECXOEF)_U_$G(ECXOEFDT)_U_$G(ECASNPI)_U_$G(ECPTNPI)_U_$G(ECPR1NPI)_U_$G(ECPR2NPI)_U_$G(ECPR3NPI)
+"RTN","ECXQSR1",71,0)
+ I ECXLOGIC>2010 S ECODE2=ECODE2_U_$G(ECXSHADI)_U_$G(ECXSHAD)_U_ECXPATCAT
+"RTN","ECXQSR1",72,0)
+ I ECXLOGIC>2011 S ECODE2=ECODE2_U_$G(ECXPRV4)_U_$G(ECXPPC4)_U_$G(ECPR4NPI)_U_$G(ECXPRV5)_U_$G(ECXPPC5)_U_$G(ECPR5NPI)
+"RTN","ECXQSR1",73,0)
+ I ECXLOGIC>2012 S ECODE2=ECODE2_U_ECXICD10P_U_ECXICD101_U_ECXICD102_U_ECXICD103_U
+"RTN","ECXQSR1",74,0)
+ I ECXLOGIC>2012 S ECODE3=ECXICD104
+"RTN","ECXQSR1",75,0)
+ I ECXLOGIC>2013 S ECODE3=ECODE3_U_ECXESC_U_ECXVNS_U_ECXPRV6_U_ECXPPC6_U_ECPR6NPI_U_ECXPRV7_U_ECXPPC7_U_ECPR7NPI_U_ECX4CHAR_U_ECAC_U_ECXCLST_U_ECXECL ;144
+"RTN","ECXQSR1",76,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2),^ECX(ECFILE,EC7,3)=$G(ECODE3),ECRN=ECRN+1
+"RTN","ECXQSR1",77,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXQSR1",78,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD
+"RTN","ECXQSR1",79,0)
+ Q
+"RTN","ECXQSR1",80,0)
+SETUP ;Set required input for ECXTRAC
+"RTN","ECXQSR1",81,0)
+ S ECHEAD="ECQ"
+"RTN","ECXQSR1",82,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXQSR1",83,0)
+ Q
+"RTN","ECXQSR1",84,0)
+QUE ;Entry point for the background requeuing handled by ECXTAUTO.
+"RTN","ECXQSR1",85,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL Q
+"RTN","ECXRAD")
+0^57^B44395156^B39628286
+"RTN","ECXRAD",1,0)
+ECXRAD ;ALB/JAP,BIR/PDW,PTD-Extract for Radiology ;5/20/13 14:19
+"RTN","ECXRAD",2,0)
+ ;;3.0;DSS EXTRACTS;**11,8,13,16,24,33,39,46,71,84,92,105,120,127,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXRAD",3,0)
+BEG ;entry point from option
+"RTN","ECXRAD",4,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXRAD",5,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXRAD",6,0)
+ Q
+"RTN","ECXRAD",7,0)
+ ;
+"RTN","ECXRAD",8,0)
+START ;start rad extract
+"RTN","ECXRAD",9,0)
+ S QFLG=0
+"RTN","ECXRAD",10,0)
+ K ECXDD D FIELD^DID(70.03,14,,"SPECIFIER","ECXDD") S ECPROF=$E(+$P(ECXDD("SPECIFIER"),"P",2)) K ECXDD
+"RTN","ECXRAD",11,0)
+ S ECXDFN="",ECDT=ECSD-.1,ECED1=ECED+.3
+"RTN","ECXRAD",12,0)
+ F S ECDT=$O(^RADPT("AR",ECDT)) Q:ECDT>ECED1!(ECDT'>0) D Q:QFLG
+"RTN","ECXRAD",13,0)
+ .S ECXDFN=""
+"RTN","ECXRAD",14,0)
+ .F S ECXDFN=$O(^RADPT("AR",ECDT,ECXDFN)) Q:ECXDFN="" I '$D(^TMP("ECL",$J,ECXDFN)) D GET Q:QFLG
+"RTN","ECXRAD",15,0)
+ K ^TMP("ECL",$J)
+"RTN","ECXRAD",16,0)
+ Q
+"RTN","ECXRAD",17,0)
+ ;
+"RTN","ECXRAD",18,0)
+GET ;get data
+"RTN","ECXRAD",19,0)
+ N ECXIEN,X,SUB,TYPE,ECDOCPC,ECXIS,ECXISPC,ECXPRCL,ECXCSC,ECXUSRTN,ECXCM,ECSTAT ;136
+"RTN","ECXRAD",20,0)
+ N ECXESC,ECXECL,ECXCLST,VISIT,ECXVIST,ECXERR ;144
+"RTN","ECXRAD",21,0)
+ S ^TMP("ECL",$J,ECXDFN)=""
+"RTN","ECXRAD",22,0)
+ ;with dfn get all exams within date range
+"RTN","ECXRAD",23,0)
+ S ECXMDT=ECSD-.1
+"RTN","ECXRAD",24,0)
+ F S ECXMDT=$O(^RADPT(ECXDFN,"DT","B",ECXMDT)) Q:((ECXMDT>ECED1)!(ECXMDT="")) D Q:QFLG
+"RTN","ECXRAD",25,0)
+ .S ECXMDA=$O(^RADPT(ECXDFN,"DT","B",ECXMDT,"")) Q:ECXMDA=""
+"RTN","ECXRAD",26,0)
+ .S ECXIEN=+$P($G(^RADPT(ECXDFN,"DT",ECXMDA,"P",1,0)),U,11)
+"RTN","ECXRAD",27,0)
+ .S ECTM=$$ECXTIME^ECXUTL(ECXMDT) S:ECTM>235959 ECTM=235959
+"RTN","ECXRAD",28,0)
+ .S ECXDAY=$$ECXDATE^ECXUTL(ECXMDT,ECXYM)
+"RTN","ECXRAD",29,0)
+ .K ECXPAT S OK=$$PAT^ECXUTL3(ECXDFN,$P(ECXMDT,"."),"1;3",.ECXPAT)
+"RTN","ECXRAD",30,0)
+ .Q:'OK
+"RTN","ECXRAD",31,0)
+ .S ECXPNM=ECXPAT("NAME"),ECXSSN=ECXPAT("SSN"),ECXMPI=ECXPAT("MPI")
+"RTN","ECXRAD",32,0)
+ .S ECXCLST=ECXPAT("CL STAT") ;144
+"RTN","ECXRAD",33,0)
+ .;get emergency response indicator (FEMA)
+"RTN","ECXRAD",34,0)
+ .S ECXERI=ECXPAT("ERI")
+"RTN","ECXRAD",35,0)
+ .S X=$$PRIMARY^ECXUTL2(ECXDFN,$P(ECXMDT,"."),ECPROF)
+"RTN","ECXRAD",36,0)
+ .S ECPTTM=$P(X,U,1),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4)
+"RTN","ECXRAD",37,0)
+ .S ECASPR=$P(X,U,5),ECCLAS2=$P(X,U,6),ECASNPI=$P(X,U,7)
+"RTN","ECXRAD",38,0)
+ .S X=$$INP^ECXUTL2(ECXDFN,ECXMDT),ECXA=$P(X,U),ECXMN=$P(X,U,2)
+"RTN","ECXRAD",39,0)
+ .S ECXTS=$P(X,U,3),ECXDOM=$P(X,U,10),ECXADMDT=$P(X,U,4)
+"RTN","ECXRAD",40,0)
+ .;
+"RTN","ECXRAD",41,0)
+ .;- Observation patient indicator (YES/NO)
+"RTN","ECXRAD",42,0)
+ .S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS)
+"RTN","ECXRAD",43,0)
+ .;for dfn & date get exam(s) ien
+"RTN","ECXRAD",44,0)
+ .S ECXMDA=""
+"RTN","ECXRAD",45,0)
+ .F S ECXMDA=$O(^RADPT(ECXDFN,"DT","B",ECXMDT,ECXMDA)) Q:+ECXMDA=0 D
+"RTN","ECXRAD",46,0)
+ ..S ECXDIV=$P(^RADPT(ECXDFN,"DT",ECXMDA,0),U,3),ECLOC=$P(^(0),U,4),ECTY=$P(^(0),U,2)
+"RTN","ECXRAD",47,0)
+ ..;
+"RTN","ECXRAD",48,0)
+ ..;- Ordering stop code (based on imaging location)
+"RTN","ECXRAD",49,0)
+ ..S ECXORDST=$$GET1^DIQ(40.7,$$GET1^DIQ(79.1,$G(ECLOC),22,"I"),1)
+"RTN","ECXRAD",50,0)
+ ..;
+"RTN","ECXRAD",51,0)
+ ..;- Get ordering date using Imaging Order ptr to #75.1 in subfile 70.03
+"RTN","ECXRAD",52,0)
+ ..S ECXIEN=+$P($G(^RADPT(ECXDFN,"DT",ECXMDA,"P",1,0)),U,11)
+"RTN","ECXRAD",53,0)
+ ..S ECXORDDT=$$ECXDATE^ECXUTL($P($G(^RAO(75.1,ECXIEN,0)),U,16),ECXYM)
+"RTN","ECXRAD",54,0)
+ ..;
+"RTN","ECXRAD",55,0)
+ ..;******* - PATCH 127, ADD PATCAT CODE ********
+"RTN","ECXRAD",56,0)
+ ..S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXRAD",57,0)
+ ..;- If no encounter number don't file record
+"RTN","ECXRAD",58,0)
+ ..S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXMDT,ECXTS,ECXOBS,ECHEAD,ECTY,) Q:ECXENC=""
+"RTN","ECXRAD",59,0)
+ ..;procedures and modifiers for specific exam (case numbers)
+"RTN","ECXRAD",60,0)
+ ..;ward/clinic,service,provider,diagnostic code
+"RTN","ECXRAD",61,0)
+ ..S ECCN=0
+"RTN","ECXRAD",62,0)
+ ..F S ECCN=$O(^RADPT(ECXDFN,"DT",ECXMDA,"P",ECCN)) Q:ECCN'>0 D
+"RTN","ECXRAD",63,0)
+ ...S ECCA=^RADPT(ECXDFN,"DT",ECXMDA,"P",ECCN,0)
+"RTN","ECXRAD",64,0)
+ ...S (ECXESC,ECXECL)="" ;144
+"RTN","ECXRAD",65,0)
+ ...S VISIT=$P(ECCA,U,27) ;144
+"RTN","ECXRAD",66,0)
+ ...I VISIT D VISIT^ECXSCX1(ECXDFN,VISIT,.ECXVIST,.ECXERR) I 'ECXERR S ECXESC=$G(ECXVIST("ENCSC")),ECXECL=$G(ECXVIST("ENCCL")) ;144
+"RTN","ECXRAD",67,0)
+ ...S ECXCM=$P(ECCA,U,26) S ECXCM=$S("^0^1^2^3^"[("^"_ECXCM_"^"):ECXCM,1:"") ;136 - Get Credit Method and validate that it's a number between 0 and 3 otherwise set it to null
+"RTN","ECXRAD",68,0)
+ ...S ECXW=$P(ECCA,U,6),ECXW=$P($G(^DIC(42,+ECXW,44)),U)
+"RTN","ECXRAD",69,0)
+ ...S:ECXW="" ECXW=$P(ECCA,U,8)
+"RTN","ECXRAD",70,0)
+ ...S ECDOCNPI=$$NPI^XUSNPI("Individual_ID",$P(ECCA,U,14),ECDT)
+"RTN","ECXRAD",71,0)
+ ...S:+ECDOCNPI'>0 ECDOCNPI="" S ECDOCNPI=$P(ECDOCNPI,U)
+"RTN","ECXRAD",72,0)
+ ...S (ECXDSSD,ECXDSSP)=""
+"RTN","ECXRAD",73,0)
+ ...S ECS=$P(ECCA,U,7),ECDOC=ECPROF_$P(ECCA,U,14),ECDI=$P(ECCA,U,13),ECDOCPC=$$PRVCLASS^ECXUTL($P(ECCA,U,14),ECDT)
+"RTN","ECXRAD",74,0)
+ ...S ECPRO=$P(ECCA,U,2),ECSTAT=$P($G(^RA(72,+$P(ECCA,U,3),0)),U,3)
+"RTN","ECXRAD",75,0)
+ ...;get the primary interpreting staff and the person class DBIA #65
+"RTN","ECXRAD",76,0)
+ ...S ECXIS=$P(ECCA,U,15),ECXISPC=$$PRVCLASS^ECXUTL(ECXIS,ECDT)
+"RTN","ECXRAD",77,0)
+ ...S ECISNPI=$$NPI^XUSNPI("Individual_ID",ECXIS,ECDT)
+"RTN","ECXRAD",78,0)
+ ...S:+ECISNPI'>0 ECISNPI="" S ECISNPI=$P(ECISNPI,U)
+"RTN","ECXRAD",79,0)
+ ...;prefix interpreting radiologist with a "2" if not null
+"RTN","ECXRAD",80,0)
+ ...S ECXIS=$S(ECXIS:"2"_ECXIS,1:"")
+"RTN","ECXRAD",81,0)
+ ...;get the principal clinic ien DBIA #65
+"RTN","ECXRAD",82,0)
+ ...S ECXPRCL=$P(ECCA,U,8)
+"RTN","ECXRAD",83,0)
+ ...;get the clinic stop code from file #44
+"RTN","ECXRAD",84,0)
+ ...S ECXCSC=$$GET1^DIQ(40.7,$$GET1^DIQ(44,ECXPRCL,8,"I"),1)
+"RTN","ECXRAD",85,0)
+ ...Q:'ECPRO
+"RTN","ECXRAD",86,0)
+ ...Q:+ECSTAT=0
+"RTN","ECXRAD",87,0)
+ ...;get CPT code & modifiers
+"RTN","ECXRAD",88,0)
+ ...S ECPT=+$P($G(^RAMIS(71,+ECPRO,0)),U,9),ECXCMOD=""
+"RTN","ECXRAD",89,0)
+ ...;quit if this is a 'parent' procedure
+"RTN","ECXRAD",90,0)
+ ...S TYPE=$P($G(^RAMIS(71,+ECPRO,0)),U,6)
+"RTN","ECXRAD",91,0)
+ ...Q:((ECPT=0)&(TYPE="P"))
+"RTN","ECXRAD",92,0)
+ ...;if site is using radiology with cpt modifiers then get them
+"RTN","ECXRAD",93,0)
+ ...K ARR,ERR D FIELD^DID(70.03,135,,"LABEL","ARR","ERR")
+"RTN","ECXRAD",94,0)
+ ...I $D(ARR("LABEL")) D
+"RTN","ECXRAD",95,0)
+ ....K ARR,ERR D FIELD^DID(70.03,135,,"GLOBAL SUBSCRIPT LOCATION","ARR","ERR")
+"RTN","ECXRAD",96,0)
+ ....Q:$D(ERR("DIERR"))
+"RTN","ECXRAD",97,0)
+ ....S SUB=$P(ARR("GLOBAL SUBSCRIPT LOCATION"),";") S ECMOD=0
+"RTN","ECXRAD",98,0)
+ ....Q:'$D(^RADPT(ECXDFN,"DT",ECXMDA,"P",ECCN,SUB))
+"RTN","ECXRAD",99,0)
+ ....F S ECMOD=$O(^RADPT(ECXDFN,"DT",ECXMDA,"P",ECCN,SUB,ECMOD)) Q:ECMOD'>0 S ECXCMOD=ECXCMOD_$P(^(ECMOD,0),U)_";"
+"RTN","ECXRAD",100,0)
+ ...S ECXCPT=$$CPT^ECXUTL3(ECPT,ECXCMOD)
+"RTN","ECXRAD",101,0)
+ ...;get procedure radiology modifiers
+"RTN","ECXRAD",102,0)
+ ...S ECMOD=0,ECMODS=""
+"RTN","ECXRAD",103,0)
+ ...F S ECMOD=$O(^RADPT(ECXDFN,"DT",ECXMDA,"P",ECCN,"M",ECMOD)) Q:ECMOD'>0 S ECMODS=ECMODS_$P(^(ECMOD,0),U)_";"
+"RTN","ECXRAD",104,0)
+ ...S ECXPDIV=$$RADDIV^ECXDEPT(ECXDIV) ;p-46
+"RTN","ECXRAD",105,0)
+ ...D FILE
+"RTN","ECXRAD",106,0)
+ Q
+"RTN","ECXRAD",107,0)
+ ;
+"RTN","ECXRAD",108,0)
+FILE ;file record
+"RTN","ECXRAD",109,0)
+ ;node0
+"RTN","ECXRAD",110,0)
+ ;rad div^dfn^ssn^name^in/out (ECXA)^day^cpt code^procedure^img loc^ward^
+"RTN","ECXRAD",111,0)
+ ;ser^diag code^req physician^modifiers^mov #^treat spec^time^
+"RTN","ECXRAD",112,0)
+ ;imaging type^primary care team^primary care provider
+"RTN","ECXRAD",113,0)
+ ;node1
+"RTN","ECXRAD",114,0)
+ ;mpi^dss dept^placeholder^placeholder^pc prov person class^
+"RTN","ECXRAD",115,0)
+ ;assoc pc provider^assoc pc prov person class^placeholder^dom^
+"RTN","ECXRAD",116,0)
+ ;observ pat ind^encounter num^ord stop code^ord date^division^
+"RTN","ECXRAD",117,0)
+ ;dss product ECXDSSP^requesting provider person class ECDOCPC^interp-
+"RTN","ECXRAD",118,0)
+ ;reting radiologist ECXIS^interpreting radiologist pc ECXISPC^princi-
+"RTN","ECXRAD",119,0)
+ ;pal clinic ECXPRCL^clinc stop code ECXCSC^emergency response indicator
+"RTN","ECXRAD",120,0)
+ ;(FEMA) ECXERI^assoc pc provider npi^interpreting rad npi^pc provider npi^req physician npi^Patient Category (PATCAT) ECXPATCAT^Credit Method ECXCM
+"RTN","ECXRAD",121,0)
+ ;NODE2
+"RTN","ECXRAD",122,0)
+ ;Encounter SC ECXESC^Camp Lejeune Status ECXCLST^Encounter Camp Lejeune ECXECL
+"RTN","ECXRAD",123,0)
+ ;
+"RTN","ECXRAD",124,0)
+ ;convert specialty to PTF Code for transmission
+"RTN","ECXRAD",125,0)
+ N ECXDATA,ECXTSC
+"RTN","ECXRAD",126,0)
+ S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA)
+"RTN","ECXRAD",127,0)
+ S ECXTSC=$G(ECXDATA(7))
+"RTN","ECXRAD",128,0)
+ ;done
+"RTN","ECXRAD",129,0)
+ N DA,DIK
+"RTN","ECXRAD",130,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXRAD",131,0)
+ S ECODE=EC7_U_EC23_U_ECXDIV_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U
+"RTN","ECXRAD",132,0)
+ S ECODE=ECODE_ECXDAY_U_ECXCPT_U_ECPRO_U_ECLOC_U_ECXW_U_ECS_U_ECDI_U
+"RTN","ECXRAD",133,0)
+ S ECODE=ECODE_ECDOC_U_ECMODS_U_ECXMN_U_ECXTSC_U_ECTM_U_ECTY_U_ECPTTM_U
+"RTN","ECXRAD",134,0)
+ S ECODE=ECODE_ECPTPR_U
+"RTN","ECXRAD",135,0)
+ S ECODE1=ECXMPI_U_ECXDSSD_U_U_U_ECCLAS_U_ECASPR_U
+"RTN","ECXRAD",136,0)
+ S ECODE1=ECODE1_ECCLAS2_U_U_ECXDOM_U_ECXOBS_U_ECXENC_U_ECXORDST_U
+"RTN","ECXRAD",137,0)
+ S ECODE1=ECODE1_ECXORDDT_U_ECXPDIV_U
+"RTN","ECXRAD",138,0)
+ I ECXLOGIC>2004 S ECODE1=ECODE1_ECXDSSP_U_ECDOCPC
+"RTN","ECXRAD",139,0)
+ I ECXLOGIC>2005 S ECODE1=ECODE1_U_ECXIS_U_ECXISPC_U_ECXPRCL_U_ECXCSC
+"RTN","ECXRAD",140,0)
+ I ECXLOGIC>2006 S ECODE1=ECODE1_U_ECXERI
+"RTN","ECXRAD",141,0)
+ I ECXLOGIC>2007 S ECODE1=ECODE1_U_ECASNPI_U_ECISNPI_U_ECPTNPI_U_ECDOCNPI
+"RTN","ECXRAD",142,0)
+ I ECXLOGIC>2010 S ECODE1=ECODE1_U_ECXPATCAT ;127 PATCAT
+"RTN","ECXRAD",143,0)
+ I ECXLOGIC>2012 S ECODE1=ECODE1_U_ECXCM_U ;136 Credit Method 144 End of node needs an ^
+"RTN","ECXRAD",144,0)
+ I ECXLOGIC>2013 S ECODE2=ECXESC_U_ECXCLST_U_ECXECL ;144
+"RTN","ECXRAD",145,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=$G(ECODE2),ECRN=ECRN+1 ;144
+"RTN","ECXRAD",146,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXRAD",147,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1
+"RTN","ECXRAD",148,0)
+ Q
+"RTN","ECXRAD",149,0)
+ ;
+"RTN","ECXRAD",150,0)
+SETUP ;Set required input for ECXTRAC
+"RTN","ECXRAD",151,0)
+ S ECHEAD="RAD"
+"RTN","ECXRAD",152,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXRAD",153,0)
+ Q
+"RTN","ECXSCLD")
+0^9^B220306894^B204371648
+"RTN","ECXSCLD",1,0)
+ECXSCLD ;BIR/DMA,CML-Enter, Print and Edit Entries in 728.44 ;8/14/13 11:44
+"RTN","ECXSCLD",2,0)
+ ;;3.0;DSS EXTRACTS;**2,8,24,30,71,80,105,112,120,126,132,136,142,144**;Dec 22, 1997;Build 9
+"RTN","ECXSCLD",3,0)
+EN ;entry point from option
+"RTN","ECXSCLD",4,0)
+ ;load entries
+"RTN","ECXSCLD",5,0)
+ N DIR,X,Y,DIRUT,DTOUT,DUOUT ;144
+"RTN","ECXSCLD",6,0)
+ W !!,"This option creates local entries in the DSS CLINIC AND STOP CODES"
+"RTN","ECXSCLD",7,0)
+ W !,"file (#728.44).",! ;144
+"RTN","ECXSCLD",8,0)
+ I '$D(^ECX(728.44)) W !,"DSS Clinic stop code file does not exist",!! R X:5 K X Q
+"RTN","ECXSCLD",9,0)
+ ;W !!,"It also compares file #728.44 to the HOSPITAL LOCATION file (#44) to see" ;144
+"RTN","ECXSCLD",10,0)
+ ;W !,"if there are any differences since the last time the file was reviewed." ;144
+"RTN","ECXSCLD",11,0)
+ ;W !!,"Any differences or new entries will cause an UNREVIEWED CLINICS report" ;144
+"RTN","ECXSCLD",12,0)
+ ;W !,"to automatically print.",! ;144
+"RTN","ECXSCLD",13,0)
+ ;D SELECT^ECXSCLD ;144
+"RTN","ECXSCLD",14,0)
+ ;144 does user hold key?
+"RTN","ECXSCLD",15,0)
+ I '$$KCHK^XUSRB("ECXMGR",$G(DUZ)) D G ENDX ;144
+"RTN","ECXSCLD",16,0)
+ .W !!,?5,"You do not have approved access to this option.",!,"Exiting...",!! ;144
+"RTN","ECXSCLD",17,0)
+ .D PAUSE ;144
+"RTN","ECXSCLD",18,0)
+ W !,"The CREATE option last ran on ",$S($D(^ECX(728.44,"C")):$$FMTE^XLFDT($O(^ECX(728.44,"C"," "),-1),2),1:"- No date on file"),".",! ;144
+"RTN","ECXSCLD",19,0)
+ S DIR(0)="Y",DIR("A")="Do you want to run the CREATE option",DIR("B")="N" D ^DIR Q:Y'=1 ;144
+"RTN","ECXSCLD",20,0)
+ W !,"Running CREATE..." ;144
+"RTN","ECXSCLD",21,0)
+ D START ;144
+"RTN","ECXSCLD",22,0)
+ W !!,"The CREATE option has completed on ",$$FMTE^XLFDT($$NOW^XLFDT),".",! ;144
+"RTN","ECXSCLD",23,0)
+ S DIR(0)="Y",DIR("A")="Proceed to DSS Clinic and Stop Code Print menu",DIR("B")="NO" D ^DIR ;144
+"RTN","ECXSCLD",24,0)
+ D:Y PRINT ;144
+"RTN","ECXSCLD",25,0)
+ Q
+"RTN","ECXSCLD",26,0)
+START ; entry point
+"RTN","ECXSCLD",27,0)
+ N ZTREQ
+"RTN","ECXSCLD",28,0)
+ S EC=0 F S EC=$O(^SC(EC)) Q:'EC D FIX(EC)
+"RTN","ECXSCLD",29,0)
+ K DIK S DIK="^ECX(728.44,",DIK(1)=".01^B" D ENALL^DIK
+"RTN","ECXSCLD",30,0)
+ ;print 'unreviewed clinics' report
+"RTN","ECXSCLD",31,0)
+ ;S ECALL="U" D SPRINT^ECXSCLD ;144
+"RTN","ECXSCLD",32,0)
+ S ZTREQ="@"
+"RTN","ECXSCLD",33,0)
+ Q
+"RTN","ECXSCLD",34,0)
+ ;
+"RTN","ECXSCLD",35,0)
+FIX(EC) ;
+"RTN","ECXSCLD",36,0)
+ ; synchronize files #44 and #728.44.
+"RTN","ECXSCLD",37,0)
+ N DIE,DA,DR ;144
+"RTN","ECXSCLD",38,0)
+ ; differences are placed in ^XTMP("ECX UNREVIEWED CLINICS")
+"RTN","ECXSCLD",39,0)
+ S EC=$G(EC)
+"RTN","ECXSCLD",40,0)
+ I '$D(^SC(EC,0)) Q
+"RTN","ECXSCLD",41,0)
+ N ECD,DAT
+"RTN","ECXSCLD",42,0)
+ S ECD=^SC(EC,0),DAT=$G(^SC(EC,"I"))
+"RTN","ECXSCLD",43,0)
+ I $P(ECD,U,3)'="C" I '$D(^ECX(728.44,EC,0)) Q ;144 Allow updates if entry already exists in 728.44 even if it's no longer a clinic
+"RTN","ECXSCLD",44,0)
+ ; get stop codes and default style for feeder key
+"RTN","ECXSCLD",45,0)
+ ; 1 if no credit stop code - 5 if credit stop code exists
+"RTN","ECXSCLD",46,0)
+ K ECD2,ECS2,ECDNEW,ECDDIF,ECSCSIGN I $D(^ECX(728.44,EC,0)) S (ECD2,ECDDIF)=^(0),ECSCSIGN=""
+"RTN","ECXSCLD",47,0)
+ I $D(ECD2) F ECS=2,3,4,5 D
+"RTN","ECXSCLD",48,0)
+ .S (ECS2(ECS),X)=$P(ECD2,U,ECS)
+"RTN","ECXSCLD",49,0)
+ .K DIC,Y S DIC=40.7,DIC(0)="MXZ" D ^DIC
+"RTN","ECXSCLD",50,0)
+ .I +$G(Y)>0 S $P(ECS2(ECS),U,2)=$P(^DIC(40.7,+Y,0),U,3)
+"RTN","ECXSCLD",51,0)
+ S ID=+DAT,RD=$P(DAT,U,2)
+"RTN","ECXSCLD",52,0)
+ ;ECXINAC=0 - patch 142 removed variable, no longer used
+"RTN","ECXSCLD",53,0)
+ ;change in clinic inactivation for existing entry
+"RTN","ECXSCLD",54,0)
+ I $D(ECD2) D
+"RTN","ECXSCLD",55,0)
+ .;don't include already old inactivated clinics in report
+"RTN","ECXSCLD",56,0)
+ .;patch 142-inactive clinic updates to show per Busn Owner
+"RTN","ECXSCLD",57,0)
+ .;I ID,ID'>DT I ('RD)!(RD>DT) I $P(ECD2,U,10)=ID S ECXINAC=1
+"RTN","ECXSCLD",58,0)
+ .I ID,ID'>DT I ('RD)!(RD>DT) I $P(ECD2,U,10)'=ID D
+"RTN","ECXSCLD",59,0)
+ ..S $P(ECD2,U,7)="",$P(ECD2,U,10)=ID,ECSCSIGN="*"
+"RTN","ECXSCLD",60,0)
+ .I ID,RD,(RD'>DT) I $P(ECD2,U,10) D
+"RTN","ECXSCLD",61,0)
+ ..S $P(ECD2,U,7)="",$P(ECD2,U,10)="",ECSCSIGN="r"
+"RTN","ECXSCLD",62,0)
+ .I ID,(ID>DT) I $P(ECD2,U,10) D
+"RTN","ECXSCLD",63,0)
+ ..S $P(ECD2,U,7)="",$P(ECD2,U,10)="",ECSCSIGN="!"
+"RTN","ECXSCLD",64,0)
+ .I 'ID,$P(ECD2,U,10) D
+"RTN","ECXSCLD",65,0)
+ ..S $P(ECD2,U,7)="",$P(ECD2,U,10)="",ECSCSIGN="!"
+"RTN","ECXSCLD",66,0)
+ .S ECDDIF=ECD2
+"RTN","ECXSCLD",67,0)
+ ;setup for stops
+"RTN","ECXSCLD",68,0)
+ F ECS=7,18 S ECP=+$P(ECD,U,ECS),ECS(ECS)=$P($G(^DIC(40.7,ECP,0)),U,2)_U_$P($G(^DIC(40.7,ECP,0)),U,3)
+"RTN","ECXSCLD",69,0)
+ S ECDF=$S($P(ECS(18),U)]"":5,1:1) S:$P(ECD,U,17)="Y" ECDF=6 S:$G(^SC(EC,"OOS")) ECDF=6
+"RTN","ECXSCLD",70,0)
+ S ECDB=EC_U_$S(+ECS(7):+ECS(7),1:"")_U_$S(+ECS(18):+ECS(18),1:"")
+"RTN","ECXSCLD",71,0)
+ ;new entry
+"RTN","ECXSCLD",72,0)
+ I '$D(ECD2) D
+"RTN","ECXSCLD",73,0)
+ .S $P(^ECX(728.44,EC,0),U,1,5)=ECDB_U_$S(+ECS(7):+ECS(7),1:"")_U_$S(+ECS(18):+ECS(18),1:"")
+"RTN","ECXSCLD",74,0)
+ .S $P(^(0),U,6)=ECDF,$P(^(0),U,12)=$P(ECD,U,17)
+"RTN","ECXSCLD",75,0)
+ .S ECDNEW=^ECX(728.44,EC,0)
+"RTN","ECXSCLD",76,0)
+ ;changes to existing entry
+"RTN","ECXSCLD",77,0)
+ I $D(ECD2) D
+"RTN","ECXSCLD",78,0)
+ .S $P(ECD2,U,1,3)=ECDB,$P(ECDDIF,U,1,3)=ECDB
+"RTN","ECXSCLD",79,0)
+ .;differs in stop code
+"RTN","ECXSCLD",80,0)
+ .I +ECS(7)'=+ECS2(2) S $P(ECD2,U,7)="",X=$P(ECDDIF,U,2)_"!",$P(ECDDIF,U,2)=X
+"RTN","ECXSCLD",81,0)
+ .;differs in credit stop code
+"RTN","ECXSCLD",82,0)
+ .I +ECS(18)'=+ECS2(3) S $P(ECD2,U,7)="",X=$P(ECDDIF,U,3)_"!",$P(ECDDIF,U,3)=X
+"RTN","ECXSCLD",83,0)
+ .;stop code inactive
+"RTN","ECXSCLD",84,0)
+ .;I $P(ECS(7),U,2) S $P(ECD2,U,7)="",X=$P(ECDDIF,U,2)_"*",$P(ECDDIF,U,2)=X
+"RTN","ECXSCLD",85,0)
+ .;credit stop code inactive
+"RTN","ECXSCLD",86,0)
+ .;I $P(ECS(18),U,2) S $P(ECD2,U,7)="",X=$P(ECDDIF,U,3)_"*",$P(ECDDIF,U,3)=X
+"RTN","ECXSCLD",87,0)
+ .;dss stop code inactive
+"RTN","ECXSCLD",88,0)
+ .;I $P(ECS2(4),U,2) S $P(ECD2,U,7)="",X=$P(ECDDIF,U,4)_"*",$P(ECDDIF,U,4)=X
+"RTN","ECXSCLD",89,0)
+ .;dss credit stop code inactive
+"RTN","ECXSCLD",90,0)
+ .;I $P(ECS2(5),U,2) S $P(ECD2,U,7)="",X=$P(ECDDIF,U,5)_"*",$P(ECDDIF,U,5)=X
+"RTN","ECXSCLD",91,0)
+ .;change in non-count
+"RTN","ECXSCLD",92,0)
+ .I $P(ECD2,U,12)'=$P(ECD,U,17) S X=$P(ECD,U,17)_"!",$P(ECDDIF,U,12)=X,$P(ECD2,U,12)=$P(ECD,U,17),$P(ECD2,U,7)=""
+"RTN","ECXSCLD",93,0)
+ .;reset entry
+"RTN","ECXSCLD",94,0)
+ .S ^ECX(728.44,EC,0)=ECD2
+"RTN","ECXSCLD",95,0)
+ ;set tmp node
+"RTN","ECXSCLD",96,0)
+ S ECSC=$P(ECD,U) S:$L(ECSC)>27 ECSC=$E(ECSC,1,27)
+"RTN","ECXSCLD",97,0)
+ I $D(ECD2),$P(ECD2,U,7)="" D
+"RTN","ECXSCLD",98,0)
+ .;I ECXINAC,ECDDIF'["!" Q-patch 142 removed no longer being used
+"RTN","ECXSCLD",99,0)
+ .I $D(^XTMP("ECX UNREVIEWED CLINICS",ECSC)) D UPDATE(ECSC,ECDDIF,ECSCSIGN)
+"RTN","ECXSCLD",100,0)
+ .I '$D(^XTMP("ECX UNREVIEWED CLINICS",ECSC)) S ^XTMP("ECX UNREVIEWED CLINICS",ECSC)=ECSCSIGN_U_$P(ECDDIF,U,2,200),^XTMP("ECX UNREVIEWED CLINICS",ECSC,"T")=$$NOW^XLFDT()
+"RTN","ECXSCLD",101,0)
+ I $D(ECDNEW) S ^XTMP("ECX UNREVIEWED CLINICS",ECSC)=""_U_$P(ECDNEW,U,2,200),^XTMP("ECX UNREVIEWED CLINICS",ECSC,"T")=$$NOW^XLFDT()
+"RTN","ECXSCLD",102,0)
+ S DIE=728.44,DA=EC,DR="12///TODAY" D ^DIE ;144 Set create date to today's date
+"RTN","ECXSCLD",103,0)
+ Q
+"RTN","ECXSCLD",104,0)
+ ;
+"RTN","ECXSCLD",105,0)
+UPDATE(ECSC,ECDDIF,ECSCSIGN) ;update ^xtmp node with today's changes
+"RTN","ECXSCLD",106,0)
+ N ECXOLD,J,L1,L2,X,X1,X2
+"RTN","ECXSCLD",107,0)
+ S ECXOLD=^XTMP("ECX UNREVIEWED CLINICS",ECSC)
+"RTN","ECXSCLD",108,0)
+ F J=2,3 S X1=+$P(ECXOLD,U,J),X2=+$P(ECDDIF,U,J) I X2=X1,$P(ECDDIF,U,J)'=$P(ECXOLD,U,J) D
+"RTN","ECXSCLD",109,0)
+ .S L1=$L($P(ECXOLD,U,J)),L2=$L($P(ECDDIF,U,J))
+"RTN","ECXSCLD",110,0)
+ .I L1>L2 S $P(ECDDIF,U,J)=$P(ECXOLD,U,J)
+"RTN","ECXSCLD",111,0)
+ S X1=$E($P(ECXOLD,U,12),1),X2=$E($P(ECDDIF,U,12),1) I X2=X1 S $P(ECDDIF,U,12)=$P(ECXOLD,U,12)
+"RTN","ECXSCLD",112,0)
+ S X1=$P(ECXOLD,U),X=X1_U_$P(ECDDIF,U,2,200)
+"RTN","ECXSCLD",113,0)
+ I ECSCSIGN'="",ECSCSIGN'=X1 S X=ECSCSIGN_U_$P(ECDDIF,U,2,200)
+"RTN","ECXSCLD",114,0)
+ S ^XTMP("ECX UNREVIEWED CLINICS",ECSC)=X
+"RTN","ECXSCLD",115,0)
+ Q
+"RTN","ECXSCLD",116,0)
+ ;
+"RTN","ECXSCLD",117,0)
+SELECT ;select IO device to 'gather clinic stop codes' and print 'unreviewd clinics' report;
+"RTN","ECXSCLD",118,0)
+ ;for menu option 'Create DSS Clinic Stop Code File' or 'Clinics and DSS Stop Codes Print'
+"RTN","ECXSCLD",119,0)
+ N DIR,ECALL,IOP,POP,XX,ZTIO,ZTRTN,ZTDESC,ZTSK,ZTSAVE
+"RTN","ECXSCLD",120,0)
+ ;does user hold key?
+"RTN","ECXSCLD",121,0)
+ I '$$KCHK^XUSRB("ECXMGR",$G(DUZ)) D G ENDX
+"RTN","ECXSCLD",122,0)
+ .W !!,?5,"You do not have approved access to this option.",!,"Exiting...",!!
+"RTN","ECXSCLD",123,0)
+ .D PAUSE
+"RTN","ECXSCLD",124,0)
+ W !,"Please select a print device for the 'Unreviewed Clinics' report."
+"RTN","ECXSCLD",125,0)
+ W !,"**Please note: If printing in foreground, synching files may cause screen delay."
+"RTN","ECXSCLD",126,0)
+ W ! S %ZIS="Q" D ^%ZIS
+"RTN","ECXSCLD",127,0)
+ I POP Q
+"RTN","ECXSCLD",128,0)
+ ;I IO=IO(0) W !,"You must queue to a print device.",! D HOME^%ZIS G SELECT
+"RTN","ECXSCLD",129,0)
+ ;queue the report
+"RTN","ECXSCLD",130,0)
+ I $D(IO("Q")) D Q
+"RTN","ECXSCLD",131,0)
+ . K ZTSAVE S ZTDESC="Gather Clinic Stop Codes for DSS",ZTRTN="START^ECXSCLD"
+"RTN","ECXSCLD",132,0)
+ . D ^%ZTLOAD
+"RTN","ECXSCLD",133,0)
+ . I $G(ZTSK) W !,"Queued as Task #: "_ZTSK D ENDX D PAUSE
+"RTN","ECXSCLD",134,0)
+ W !!,">> Synchronizing Stop Codes file (#728.44) with the Hospital"
+"RTN","ECXSCLD",135,0)
+ W !," Location file (#44)...",!
+"RTN","ECXSCLD",136,0)
+ D START
+"RTN","ECXSCLD",137,0)
+ D ^%ZISC,HOME^%ZIS K IO("Q")
+"RTN","ECXSCLD",138,0)
+ Q
+"RTN","ECXSCLD",139,0)
+ ;
+"RTN","ECXSCLD",140,0)
+PRINT ; print worksheet for updates
+"RTN","ECXSCLD",141,0)
+ N OUT,DIR,ECALL
+"RTN","ECXSCLD",142,0)
+ I '$O(^ECX(728.44,0)) W !,"DSS Clinic stop code file does not exist",!! R X:5 K X Q
+"RTN","ECXSCLD",143,0)
+ W !!,"This option produces a worksheet of (A) All Clinics, (C) Active, (I) Inactive, "
+"RTN","ECXSCLD",144,0)
+ W !,"or only the (U) Unreviewed Clinics that are awaiting approval."
+"RTN","ECXSCLD",145,0)
+ W !!,"Clinics that were defined as ""inactive"" by MAS the last time the option"
+"RTN","ECXSCLD",146,0)
+ W !,"""Create DSS Clinic Stop Code File"" was run will be indicated with an ""*""."
+"RTN","ECXSCLD",147,0)
+ W !!,"Choose (X) for exporting the CLINICS AND STOP CODES FILE to a text file for"
+"RTN","ECXSCLD",148,0)
+ W !,"spreadsheet use.",!
+"RTN","ECXSCLD",149,0)
+ W !,"**REMINDER - The CREATE option last ran on ",$S($D(^ECX(728.44,"C")):$$FMTE^XLFDT($O(^ECX(728.44,"C"," "),-1),2),1:"- No date on file"),"." ;144
+"RTN","ECXSCLD",150,0)
+ W !,"If the most recent clinic changes from the HOSPITAL LOCATION file #44",!,"are desired, run the CREATE option before running a report.**",! ;144
+"RTN","ECXSCLD",151,0)
+ S DIR(0)="S^A:ALL CLINICS;C:ALL ACTIVE CLINICS;I:ALL INACTIVE CLINICS;U:UNREVIEWED CLINICS;X:EXPORT TO TEXT FILE FOR SPREADSHEET USE",DIR("A")="Enter ""A"", ""C"", ""I"", ""U"", or ""X"""
+"RTN","ECXSCLD",152,0)
+ S DIR("?",1)="Enter: ""C"" to print a worksheet of all active DSS Clinic Stops,"
+"RTN","ECXSCLD",153,0)
+ S DIR("?",2)="Enter: ""I"" to print a worksheet of all inactive DSS Clinic Stops,"
+"RTN","ECXSCLD",154,0)
+ S DIR("?",3)="Enter: ""A"" to print a worksheet of all DSS Clinic Stops,"
+"RTN","ECXSCLD",155,0)
+ S DIR("?",4)="Enter: ""U"" to print only the Clinic Stops that have not been approved."
+"RTN","ECXSCLD",156,0)
+ S DIR("?")="Enter: ""X"" to export CLINICS AND STOP CODES FILE to a text file."
+"RTN","ECXSCLD",157,0)
+ D ^DIR K DIR G ENDX:$D(DIRUT) S ECALL=$E(Y)
+"RTN","ECXSCLD",158,0)
+ I ECALL="X" D EXPORT^ECXSCLD1 Q
+"RTN","ECXSCLD",159,0)
+ ;sync #728.44 with #44 before printing 'unreviewed'
+"RTN","ECXSCLD",160,0)
+ ;I ECALL="U" D Q ;144
+"RTN","ECXSCLD",161,0)
+ ;.W !!,?5,"Before the UNREVIEWED CLINICS report prints, the Clinics and" ;144
+"RTN","ECXSCLD",162,0)
+ ;.W !,?5,"Stop Codes file (#728.44) will be synchronized with the Hospital" ;144
+"RTN","ECXSCLD",163,0)
+ ;.W !,?5,"Location file (#44).",!! ;144
+"RTN","ECXSCLD",164,0)
+ ;.K DIR S DIR(0)="YA",DIR("A")="Do you wish to continue? (Y/N)// " D ^DIR ;144
+"RTN","ECXSCLD",165,0)
+ ;.I ('$G(Y)!$G(DIRUT)!$G(DUOUT)!$G(DTOUT)) Q ;144
+"RTN","ECXSCLD",166,0)
+ ;.D SELECT^ECXSCLD ;144
+"RTN","ECXSCLD",167,0)
+ S %ZIS="Q" D ^%ZIS Q:POP
+"RTN","ECXSCLD",168,0)
+ I $D(IO("Q")) K ZTSAVE S ZTDESC="DSS clinic stop code work sheet",ZTRTN="SPRINT^ECXSCLD",ZTSAVE("ECALL")="" D ^%ZTLOAD,HOME^%ZIS Q
+"RTN","ECXSCLD",169,0)
+SPRINT ; queued entry to print work sheet
+"RTN","ECXSCLD",170,0)
+ U IO
+"RTN","ECXSCLD",171,0)
+ S QFLG=0,$P(LN,"-",80)="",PG=0
+"RTN","ECXSCLD",172,0)
+ S ECDATE=$O(^ECX(728.44,"A1","")) I ECDATE S ECDATE=-ECDATE,ECDATE=$$FMTE^XLFDT(ECDATE,"5DF"),ECDATE=$TR(ECDATE," ","0")
+"RTN","ECXSCLD",173,0)
+ ;I ECALL'="U" K ^TMP("EC",$J) 144
+"RTN","ECXSCLD",174,0)
+ K ^TMP("EC",$J) ;144
+"RTN","ECXSCLD",175,0)
+ F J=0:0 S J=$O(^ECX(728.44,J)) Q:'J I $D(^ECX(728.44,J,0)) S ECSD=^ECX(728.44,J,0) D
+"RTN","ECXSCLD",176,0)
+ .I $P($G(^SC(J,0)),U,3)'="C" Q ;144 Don't include entries that aren't clinic types
+"RTN","ECXSCLD",177,0)
+ .I ECALL="A" I $D(^SC(J,0)) S ECSC=$P(^SC(J,0),U),^TMP("EC",$J,ECSC)=$P(ECSD,U,2,200)
+"RTN","ECXSCLD",178,0)
+ .I (ECALL="I"),($P(ECSD,U,10)) I $D(^SC(J,0)) S ECSC=$P(^SC(J,0),U),^TMP("EC",$J,ECSC)=$P(ECSD,U,2,200)
+"RTN","ECXSCLD",179,0)
+ .I ((ECALL="C")&($P(ECSD,U,10)=""))!((ECALL="C")&($P(ECSD,U,10)>DT)) I $D(^SC(J,0)) S ECSC=$P(^(0),U),^TMP("EC",$J,ECSC)=$P(ECSD,U,2,200)
+"RTN","ECXSCLD",180,0)
+ .I ECALL="U" I $P(ECSD,U,7)="" I $D(^SC(J,0)) S ECSC=$P(^SC(J,0),U),^TMP("EC",$J,ECSC)=$P(ECSD,U,2,200) ;144
+"RTN","ECXSCLD",181,0)
+ ;I ECALL'="U" D ;144
+"RTN","ECXSCLD",182,0)
+ D HEAD S ECSC="" I $O(^TMP("EC",$J,ECSC))="" W !!,"NO DATA FOUND FOR WORKSHEET.",! Q ;144
+"RTN","ECXSCLD",183,0)
+ F J=1:1 S ECSC=$O(^TMP("EC",$J,ECSC)) Q:ECSC="" S ECD=^TMP("EC",$J,ECSC) D SHOWEM Q:QFLG ;144
+"RTN","ECXSCLD",184,0)
+ K ^TMP("EC",$J) ;144
+"RTN","ECXSCLD",185,0)
+ ;I ECALL="U" D ;144
+"RTN","ECXSCLD",186,0)
+ ;.N ECSCSIGN ;144
+"RTN","ECXSCLD",187,0)
+ ;.D HEAD S ECSC=0 I $O(^XTMP("ECX UNREVIEWED CLINICS",ECSC))="" W !!,"NO DATA FOUND FOR WORKSHEET.",! Q ;144
+"RTN","ECXSCLD",188,0)
+ ;.F S ECSC=$O(^XTMP("ECX UNREVIEWED CLINICS",ECSC)) Q:ECSC="" Q:QFLG D ;144
+"RTN","ECXSCLD",189,0)
+ ;..S ECSCSIGN=$P(^XTMP("ECX UNREVIEWED CLINICS",ECSC),U),ECD=$P(^XTMP("ECX UNREVIEWED CLINICS",ECSC),U,2,99) ;144
+"RTN","ECXSCLD",190,0)
+ ;..D SHOWEM ;144
+"RTN","ECXSCLD",191,0)
+ I $E(IOST)="C",'QFLG D SS D ENDX
+"RTN","ECXSCLD",192,0)
+ W:$Y @IOF D ^%ZISC S ZTREQ="@"
+"RTN","ECXSCLD",193,0)
+ Q
+"RTN","ECXSCLD",194,0)
+HEAD ; header for worksheet
+"RTN","ECXSCLD",195,0)
+ D:PG SS Q:QFLG
+"RTN","ECXSCLD",196,0)
+ S PG=PG+1 W:$Y!($E(IOST)="C") @IOF W !,"WORKSHEET FOR DSS CLINIC STOPS",?71,"Page: ",PG
+"RTN","ECXSCLD",197,0)
+ I ECDATE]"" W !,"(last approved on ",ECDATE,")",?59,"Print Date:",$TR($$FMTE^XLFDT(DT,"2F")," ",0) ;144
+"RTN","ECXSCLD",198,0)
+ I ECDATE="" W !,"(NEVER APPROVED)",?59,"Print Date:",$TR($$FMTE^XLFDT(DT,"2F")," ",0) ;144
+"RTN","ECXSCLD",199,0)
+ W !
+"RTN","ECXSCLD",200,0)
+ W !,?1,"CLINIC",?28,"STOP",?35,"CREDIT",?44,"DSS",?50,"DSS",?59,"ACTION",?68,"NAT'L",?74,"C/N"
+"RTN","ECXSCLD",201,0)
+ W !,?28,"CODE",?35,"STOP",?44,"STOP",?50,"CREDIT",?68,"CODE"
+"RTN","ECXSCLD",202,0)
+ W !,"( * - currently inactive)" W ?35,"CODE",?44,"CODE",?50,"CODE" ;144
+"RTN","ECXSCLD",203,0)
+ ;I ECALL="U" W !,?8,"* - inactive r - reactivated ! - updated since last review" ;144
+"RTN","ECXSCLD",204,0)
+ W !,LN
+"RTN","ECXSCLD",205,0)
+ Q
+"RTN","ECXSCLD",206,0)
+ ;
+"RTN","ECXSCLD",207,0)
+SHOWEM ; list clinics for worksheet
+"RTN","ECXSCLD",208,0)
+ I $Y+6>IOSL D HEAD Q:QFLG
+"RTN","ECXSCLD",209,0)
+ N ECNON1P
+"RTN","ECXSCLD",210,0)
+ S ECNON=$P(ECD,U,11),ECNON1P=$E(ECNON,1)
+"RTN","ECXSCLD",211,0)
+ S ECNON1P=$S(ECNON1P="Y":"N",1:"C") ;if 'yes', then, 'n'on count clinic
+"RTN","ECXSCLD",212,0)
+ S ECNON=ECNON1P_$E(ECNON,2,99)
+"RTN","ECXSCLD",213,0)
+ W !!,$E(ECSC,1,25)
+"RTN","ECXSCLD",214,0)
+ ;I ECALL="U" S:ECD["!" ECSCSIGN=ECSCSIGN_"!" W ECSCSIGN ;144
+"RTN","ECXSCLD",215,0)
+ W:$P(ECD,U,9)]"" "*" ;144
+"RTN","ECXSCLD",216,0)
+ F J=1:1:5 W ?$P("28,35,44,50,62",",",J),$S($P(ECD,U,J):$P(ECD,U,J),J<3:"",1:"_____")
+"RTN","ECXSCLD",217,0)
+ S ECN=$P($G(^ECX(728.441,+$P(ECD,U,7),0)),U) W ?68,$S(ECN]"":ECN,1:"____"),?75,ECNON
+"RTN","ECXSCLD",218,0)
+ Q
+"RTN","ECXSCLD",219,0)
+SS ;SCROLL STOPS
+"RTN","ECXSCLD",220,0)
+ N JJ,SS
+"RTN","ECXSCLD",221,0)
+ W !,LN
+"RTN","ECXSCLD",222,0)
+ ;W !,"Key: + - new clinic; ! - updated since last review; * - currently inactiv
+"RTN","ECXSCLD",223,0)
+ I $E(IOST)="C" S SS=21-$Y F JJ=1:1:SS W !
+"RTN","ECXSCLD",224,0)
+ I $E(IOST)="C",PG>0 S DIR(0)="E" W ! D ^DIR K DIR I 'Y S QFLG=1 Q
+"RTN","ECXSCLD",225,0)
+ Q
+"RTN","ECXSCLD",226,0)
+ ;
+"RTN","ECXSCLD",227,0)
+EDIT ; put in DSS stopcodes and which one to send
+"RTN","ECXSCLD",228,0)
+ I '$O(^ECX(728.44,0)) W !,"DSS Clinic stop code file does not exist",!! R X:5 K X Q
+"RTN","ECXSCLD",229,0)
+ ;patch 142-added for loop to allow for new clinic prompt
+"RTN","ECXSCLD",230,0)
+ F W ! K DIC S DIC=728.44,DIC(0)="QEAMZ" D ^DIC Q:Y<0 D
+"RTN","ECXSCLD",231,0)
+ .S CLIEN1=+Y
+"RTN","ECXSCLD",232,0)
+ .W !!,"EXISTING CLINIC FILE DATA:",?35,"EXISTING DSS CLINIC FILE DATA:"
+"RTN","ECXSCLD",233,0)
+ .W !!,"STOP CODE : ",$P(Y(0),U,2),?35,"DSS STOP CODE : ",$P(Y(0),U,4)
+"RTN","ECXSCLD",234,0)
+ .W !,"CREDIT STOP CODE :",$P(Y(0),U,3),?35,"DSS CREDIT STOP CODE :",$P(Y(0),U,5)
+"RTN","ECXSCLD",235,0)
+ .W !
+"RTN","ECXSCLD",236,0)
+ .D EDIT1
+"RTN","ECXSCLD",237,0)
+ D ENDX
+"RTN","ECXSCLD",238,0)
+ Q
+"RTN","ECXSCLD",239,0)
+EDIT1 ;check input & update field #3; allow '@' deletion; allow bypass empty with no entry
+"RTN","ECXSCLD",240,0)
+ N DIR ;136
+"RTN","ECXSCLD",241,0)
+ S OUT=0 F D Q:OUT
+"RTN","ECXSCLD",242,0)
+ .K DIC,DIR,ECXMSG,FDA,AMIS,X,Y
+"RTN","ECXSCLD",243,0)
+ .S STOP=$P(^ECX(728.44,CLIEN1,0),U,4)
+"RTN","ECXSCLD",244,0)
+ .S DIR(0)="FO^1:99",DIR("A")="DSS STOP CODE (3-digit code only)" I STOP]"" S DIR("B")=STOP
+"RTN","ECXSCLD",245,0)
+ .S DIR("?")="^S DIC=40.7,DIC(0)=""EMQZ"" D ^DIC"
+"RTN","ECXSCLD",246,0)
+ .D ^DIR
+"RTN","ECXSCLD",247,0)
+ .I X="@" D Q
+"RTN","ECXSCLD",248,0)
+ ..S IENS=CLIEN1_",",FDA(728.44,IENS,3)=X D FILE^DIE("","FDA")
+"RTN","ECXSCLD",249,0)
+ ..S OUT=1 W " deleted..."
+"RTN","ECXSCLD",250,0)
+ .I X="" S X=STOP K DIRUT S OUT=2 Q
+"RTN","ECXSCLD",251,0)
+ .S DIC("A")="DSS STOP CODE (3-digit code only): "
+"RTN","ECXSCLD",252,0)
+ .S DIC="^DIC(40.7,",DIC(0)="EMQZ"
+"RTN","ECXSCLD",253,0)
+ .S DIC("S")="I $P(^(0),U,3)=""""" D ^DIC
+"RTN","ECXSCLD",254,0)
+ .I X="@" D Q
+"RTN","ECXSCLD",255,0)
+ ..S IENS=CLIEN1_",",FDA(728.44,IENS,3)=X D FILE^DIE("","FDA")
+"RTN","ECXSCLD",256,0)
+ ..S OUT=2 W " deleted..."
+"RTN","ECXSCLD",257,0)
+ .I X="" K DIRUT S OUT=2 Q
+"RTN","ECXSCLD",258,0)
+ .I ($G(DIRUT)!$G(DUOUT)!$G(DTOUT)) S OUT=3 Q
+"RTN","ECXSCLD",259,0)
+ .I +X'=X W !,?5,"Invalid... try again." Q
+"RTN","ECXSCLD",260,0)
+ .I +Y'>0 Q
+"RTN","ECXSCLD",261,0)
+ .S AMIS=$P(^DIC(40.7,+Y,0),"^",2)
+"RTN","ECXSCLD",262,0)
+ .S CODE=+Y,ECXMSG=$$ERRCHK(CODE,3,CLIEN1)
+"RTN","ECXSCLD",263,0)
+ .I ECXMSG=-1 W !,?5,"Invalid... try again." Q
+"RTN","ECXSCLD",264,0)
+ .I $G(ECXMSG)]"" W !,?5,ECXMSG,! Q
+"RTN","ECXSCLD",265,0)
+ .S IENS=CLIEN1_",",FDA(728.44,IENS,3)=AMIS D FILE^DIE("U","FDA")
+"RTN","ECXSCLD",266,0)
+ .S OUT=1
+"RTN","ECXSCLD",267,0)
+ I ($G(DIRUT)!$G(DUOUT)!$G(DTOUT)) G ENDX
+"RTN","ECXSCLD",268,0)
+ ;check input & update field #4; allow '@' deletion; allow bypass empty with no entry
+"RTN","ECXSCLD",269,0)
+ S OUT=0 F D G:OUT=1 ENDCHK
+"RTN","ECXSCLD",270,0)
+ .K DIC,DIR,ECXMSG,FDA,AMIS,X,Y
+"RTN","ECXSCLD",271,0)
+ .S CSTOP=$P(^ECX(728.44,CLIEN1,0),U,5)
+"RTN","ECXSCLD",272,0)
+ .S DIR(0)="FO^1:99",DIR("A")="DSS CREDIT STOP CODE (3-digit code only)" I CSTOP]"" S DIR("B")=CSTOP
+"RTN","ECXSCLD",273,0)
+ .S DIR("?")="^S DIC=40.7,DIC(0)=""EMQZ"" D ^DIC"
+"RTN","ECXSCLD",274,0)
+ .D ^DIR
+"RTN","ECXSCLD",275,0)
+ .I X="@" D Q
+"RTN","ECXSCLD",276,0)
+ ..S IENS=CLIEN1_",",FDA(728.44,IENS,4)=X D FILE^DIE("","FDA")
+"RTN","ECXSCLD",277,0)
+ ..S OUT=1 W " deleted..."
+"RTN","ECXSCLD",278,0)
+ .I X="" S X=CSTOP K DIRUT S OUT=1 Q
+"RTN","ECXSCLD",279,0)
+ .S DIC("A")="DSS CREDIT STOP CODE (3-digit code only): "
+"RTN","ECXSCLD",280,0)
+ .S DIC("S")="I $P(^(0),U,3)=""""" D ^DIC
+"RTN","ECXSCLD",281,0)
+ .S DIC=40.7,DIC(0)="EMQZ" D ^DIC
+"RTN","ECXSCLD",282,0)
+ .I X="" K DIRUT S OUT=1 Q
+"RTN","ECXSCLD",283,0)
+ .I ($G(DIRUT)!$G(DUOUT)!$G(DTOUT)) S OUT=1 Q
+"RTN","ECXSCLD",284,0)
+ .I +X'=X W !,?5,"Invalid... try again." Q
+"RTN","ECXSCLD",285,0)
+ .I +Y'>0 Q
+"RTN","ECXSCLD",286,0)
+ .S AMIS=$P(^DIC(40.7,+Y,0),"^",2)
+"RTN","ECXSCLD",287,0)
+ .S CODE=+Y,ECXMSG=$$ERRCHK(CODE,4,CLIEN1)
+"RTN","ECXSCLD",288,0)
+ .I ECXMSG=-1 W !,?5,"Invalid... try again." Q
+"RTN","ECXSCLD",289,0)
+ .I $G(ECXMSG)]"" W !,?5,ECXMSG,! Q
+"RTN","ECXSCLD",290,0)
+ .S IENS=CLIEN1_",",FDA(728.44,IENS,4)=AMIS D FILE^DIE("U","FDA")
+"RTN","ECXSCLD",291,0)
+ .S OUT=1
+"RTN","ECXSCLD",292,0)
+ I ($G(DIRUT)!$G(DUOUT)!$G(DTOUT)) G ENDX
+"RTN","ECXSCLD",293,0)
+ K I,WARNING,DIC,DIE,DA,DR,DIR,DIRUT,DTOUT,DUOUT,X,Y,ERRCHK
+"RTN","ECXSCLD",294,0)
+ K CLIEN1,CODE,ECXMSG,IENS,STOP,CSTOP,AMIS,FDA,OUT,ERR,WRN,ECXERR
+"RTN","ECXSCLD",295,0)
+ Q
+"RTN","ECXSCLD",296,0)
+ENDCHK ;check validity of clinic
+"RTN","ECXSCLD",297,0)
+ S CODE=$P(^ECX(728.44,CLIEN1,0),U,4)
+"RTN","ECXSCLD",298,0)
+ K ERR,WRN,ECXERR,WARNING,ERRCHK
+"RTN","ECXSCLD",299,0)
+ S ERRCHK=0
+"RTN","ECXSCLD",300,0)
+ D STOP^ECXSTOP(CODE,"DSS Stop Code",CLIEN1) D ERRPRNT
+"RTN","ECXSCLD",301,0)
+ I $D(ECXERR) S ERRCHK=1
+"RTN","ECXSCLD",302,0)
+ K ERR,WRN,ECXERR,WARNING
+"RTN","ECXSCLD",303,0)
+ S CODE=$P(^ECX(728.44,CLIEN1,0),U,5)
+"RTN","ECXSCLD",304,0)
+ D STOP^ECXSTOP(CODE,"Credit Stop Code",CLIEN1) D ERRPRNT
+"RTN","ECXSCLD",305,0)
+ I $D(ECXERR) S ERRCHK=1
+"RTN","ECXSCLD",306,0)
+ W !!,"...Validity Checker Complete."
+"RTN","ECXSCLD",307,0)
+ I ERRCHK=1 W !!,"...Errors found please fix." G EDIT1
+"RTN","ECXSCLD",308,0)
+ ;remaining fields
+"RTN","ECXSCLD",309,0)
+ S DIE=728.44,DA=+CLIEN1
+"RTN","ECXSCLD",310,0)
+ S DR="5//1;S:X'=4 Y=6;7;6///"_DT_";8;10" D ^DIE ;136
+"RTN","ECXSCLD",311,0)
+ S:$P(^ECX(728.44,DA,0),U,6)'=4 $P(^(0),U,8)="" S $P(^(0),U,7)=""
+"RTN","ECXSCLD",312,0)
+ Q
+"RTN","ECXSCLD",313,0)
+ERRPRNT ;print errors
+"RTN","ECXSCLD",314,0)
+ I $G(ERR)>0,$D(ECXERR) D
+"RTN","ECXSCLD",315,0)
+ . W ! S I=0 F S I=$O(ECXERR(I)) Q:'I D
+"RTN","ECXSCLD",316,0)
+ . . W !,"..",ECXERR(I)
+"RTN","ECXSCLD",317,0)
+ I $G(WRN)>0,$D(WARNING) D
+"RTN","ECXSCLD",318,0)
+ . W ! S I=0 F S I=$O(WARNING(I)) Q:'I D
+"RTN","ECXSCLD",319,0)
+ . . W !,"..",WARNING(I)
+"RTN","ECXSCLD",320,0)
+ Q
+"RTN","ECXSCLD",321,0)
+KILL ;
+"RTN","ECXSCLD",322,0)
+ K I,WARNING,DIC,DIE,DA,DR,DIR,DIRUT,DTOUT,DUOUT,X,Y,ERRCHK
+"RTN","ECXSCLD",323,0)
+ K CLIEN1,CODE,ECXMSG,IENS,STOP,CSTOP,AMIS,FDA,OUT,ERR,WRN,ECXERR
+"RTN","ECXSCLD",324,0)
+ G EDIT
+"RTN","ECXSCLD",325,0)
+ ;
+"RTN","ECXSCLD",326,0)
+ERRCHK(CODE,TYPE,CLIEN1) ;check for problems
+"RTN","ECXSCLD",327,0)
+ ;input
+"RTN","ECXSCLD",328,0)
+ ; code: stop code IEN in #40.7
+"RTN","ECXSCLD",329,0)
+ ; type: type (3=dss stop code, 4=dss credit stop code)
+"RTN","ECXSCLD",330,0)
+ ; clien: clinic IEN in #728.44
+"RTN","ECXSCLD",331,0)
+ ;output
+"RTN","ECXSCLD",332,0)
+ ; ecxerr: error msg
+"RTN","ECXSCLD",333,0)
+ N XCODE,INACT,RTYPE,ERR,WRN
+"RTN","ECXSCLD",334,0)
+ K ECXERR,WARNING
+"RTN","ECXSCLD",335,0)
+ S ECXERR="",WARNING="",ERR=0
+"RTN","ECXSCLD",336,0)
+ Q:'$G(CODE) -1 Q:'$G(CLIEN1) -1
+"RTN","ECXSCLD",337,0)
+ Q:(TYPE="") -1 Q:((TYPE<3)&(TYPE>4)) -1
+"RTN","ECXSCLD",338,0)
+ S XCODE=$P(^DIC(40.7,CODE,0),"^",2)
+"RTN","ECXSCLD",339,0)
+ S TYPE=$S(TYPE=3:"DSS Stop Code",1:"DSS Credit Stop Code")
+"RTN","ECXSCLD",340,0)
+ I TYPE="DSS Stop Code" D STOP^ECXSTOP(XCODE,TYPE,,,CODE)
+"RTN","ECXSCLD",341,0)
+ I TYPE="DSS Credit Stop Code" D STOP^ECXSTOP(XCODE,TYPE,CLIEN1,,CODE)
+"RTN","ECXSCLD",342,0)
+ I $G(ERR)>0,$D(ECXERR(1)) S ERR=$O(ECXERR(0)),ECXERR=ECXERR(ERR) Q ECXERR
+"RTN","ECXSCLD",343,0)
+ E S ECXERR="" Q ECXERR
+"RTN","ECXSCLD",344,0)
+ Q ECXERR
+"RTN","ECXSCLD",345,0)
+ ;
+"RTN","ECXSCLD",346,0)
+APPROVE ; approve current DSS Stop and Credit Stop codes
+"RTN","ECXSCLD",347,0)
+ W !!,"This option allows you to mark the current clinic entries in the CLINICS AND",!,"STOP CODES file (#728.44) as ""reviewed"". Those entries will then be omitted"
+"RTN","ECXSCLD",348,0)
+ W !,"from the list printed from the ""Clinic and DSS Stop Codes Print"" when you",!,"choose to print only ""unreviewed"" clinics.",!
+"RTN","ECXSCLD",349,0)
+ K DIR S DIR(0)="Y",DIR("A",1)="Are you ready to approve the reviewed information provided by the",DIR("A")="""Clinic and DSS Stop Codes Print""",DIR("B")="NO"
+"RTN","ECXSCLD",350,0)
+ S DIR("?",1)=" Enter:"
+"RTN","ECXSCLD",351,0)
+ S DIR("?",2)=" ""YES"" if you concur with the ""Clinic and DSS Stop Codes Print"","
+"RTN","ECXSCLD",352,0)
+ S DIR("?",3)=" ""NO"" or <RET> if you do not want to approve the current information,"
+"RTN","ECXSCLD",353,0)
+ S DIR("?")=" ""^"" to exit option."
+"RTN","ECXSCLD",354,0)
+ D ^DIR K DIR I 'Y!($D(DIRUT)) G ENDX
+"RTN","ECXSCLD",355,0)
+ W ! S ZTRTN="APPLOOP^ECXSCLD",ZTIO="",ZTDESC="Approve DSS stop codes for clinic extract" D ^%ZTLOAD W !!,"...approval queued" G ENDX
+"RTN","ECXSCLD",356,0)
+ ;
+"RTN","ECXSCLD",357,0)
+APPLOOP ; queued entry to approve action codes
+"RTN","ECXSCLD",358,0)
+ F EC=0:0 S EC=$O(^ECX(728.44,EC)) Q:'EC I $D(^ECX(728.44,EC,0)) S DA=EC,DIE="^ECX(728.44,",DR="6///"_DT D ^DIE
+"RTN","ECXSCLD",359,0)
+ S ZTREQ="@"
+"RTN","ECXSCLD",360,0)
+ K ^XTMP("ECX UNREVIEWED CLINICS") S ^XTMP("ECX UNREVIEWED CLINICS",0)=$$FMADD^XLFDT(DT,180)_U_DT_U_"ECX UNREVIEWED CLINICS"
+"RTN","ECXSCLD",361,0)
+ENDX K X,Y,DA,DR,DIC,DIE,QFLG,PG,LN,ZTRTN,ZTIO,ZTDESC
+"RTN","ECXSCLD",362,0)
+ K DIR,DIRUT,DTOUT,DUOUT,CLIEN,CODE,ECXMSG,IENS,STOP,CSTOP,AMIS,FDA,OUT
+"RTN","ECXSCLD",363,0)
+ K J,ECSC,ECSD,ECDATE,ECD,ECN,ECNON,QFLG,PG,LN,SS,POP,%ZIS
+"RTN","ECXSCLD",364,0)
+ K EC,ECD,ECD2,ECL,ECS,ECS2,ECP,ECSC,ECSC2,ECDB,ECDNEW,ECDDIF,ECSCSIGN,ECDF,ECALL,ID,RD
+"RTN","ECXSCLD",365,0)
+ ;ECXINAC-patch 142 removed variable,it is no longer used
+"RTN","ECXSCLD",366,0)
+ Q
+"RTN","ECXSCLD",367,0)
+ ;
+"RTN","ECXSCLD",368,0)
+PAUSE ;pause screen
+"RTN","ECXSCLD",369,0)
+ N DIR,X,Y,DTOUT,DUOUT,DIROUT,DIRUT
+"RTN","ECXSCLD",370,0)
+ S DIR(0)="E" W !! D ^DIR W !!
+"RTN","ECXSCLD",371,0)
+ Q
+"RTN","ECXSCLD",372,0)
+ ;
+"RTN","ECXSCLD",373,0)
+LOOK ;queued entry to check for new clinics
+"RTN","ECXSCLD",374,0)
+ N DAT,ECD0,ECXMISS,ID,ECGRP
+"RTN","ECXSCLD",375,0)
+ S ECD=$E(DT,1,5)-1-($E(DT,4,5)="01"*8800),ECD0=ECD_"00",ECXMISS=10,ECGRP="SCX" K ^TMP("ECXS",$J)
+"RTN","ECXSCLD",376,0)
+ F EC=0:0 S EC=$O(^SC(EC)) Q:'EC I $D(^SC(EC,0)),$P(^SC(EC,0),U,3)="C",'$D(^ECX(728.44,EC)) S DAT=$G(^SC(EC,"I")) D
+"RTN","ECXSCLD",377,0)
+ .S ID=+DAT,RD=$P(DAT,U,2) I ID,ID<DT I 'RD!(RD>DT) Q
+"RTN","ECXSCLD",378,0)
+ .S ^TMP("ECXS",$J,ECXMISS,0)=$J(EC,6)_" "_$$LJ^XLFSTR($P(^SC(EC,0),U),40),ECXMISS=ECXMISS+1
+"RTN","ECXSCLD",379,0)
+ D ^ECXSCX1
+"RTN","ECXSCLD",380,0)
+ Q
+"RTN","ECXSCLD1")
+0^10^B14959984^B4160258
+"RTN","ECXSCLD1",1,0)
+ECXSCLD1 ;ALB/DAN <CONT> Enter, Print and Edit Entries in 728.44 ;9/3/13 14:43
+"RTN","ECXSCLD1",2,0)
+ ;;3.0;DSS EXTRACTS;**132,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXSCLD1",3,0)
+ ;
+"RTN","ECXSCLD1",4,0)
+EXPORT ;Export clinic review data to spreedsheet
+"RTN","ECXSCLD1",5,0)
+ N DIC,FLDS,BY,FR,L,DIOBEG,DIR,DIS,Y,DIRUT,POP,DUOUT,DTOUT,DIROUT,X,%ZIS,IOP ;144
+"RTN","ECXSCLD1",6,0)
+ W !!,"Select which clinics to include on the spreadsheet for exporting." ;144
+"RTN","ECXSCLD1",7,0)
+ S DIR(0)="SAO^A:ALL CLINICS;C:ACTIVE CLINICS;I:INACTIVE CLINICS;U:UNREVIEWED CLINICS",DIR("?")="Enter letter associated with the group of clinics to include on the spreadsheet" ;144
+"RTN","ECXSCLD1",8,0)
+ S DIR("A")="Select (A)ll, a(C)tive, (I)nactive, or (U)nreviewed clinics for export: " ;144
+"RTN","ECXSCLD1",9,0)
+ D ^DIR I $D(DIRUT) Q ;144 Stop if no selection made
+"RTN","ECXSCLD1",10,0)
+ W !!,"To ensure all data is captured during the export:" ;144
+"RTN","ECXSCLD1",11,0)
+ W !!,"1. Select 'Logging...' from the File Menu. Select your file, and where to save." ;144
+"RTN","ECXSCLD1",12,0)
+ W !,"2. On the Setup menu, select 'Display...',then 'screen' tab and modify 'columns'",!," setting to at least 225 characters." ;144
+"RTN","ECXSCLD1",13,0)
+ W !,"3. The DEVICE input for the columns should also contain a large enough",!," parameter (e.g. 225). The DEVICE prompt is defaulted to 0;225;99999 for you.",!," You may change it if need be." ;144
+"RTN","ECXSCLD1",14,0)
+ W !,"Example: DEVICE: 0;225;99999 *Where 0 is your screen, 225 is the margin width",!?17,"and 99999 is the screen length."
+"RTN","ECXSCLD1",15,0)
+ W !!,"NOTE: In order for all number fields, such as SSN and Feeder Key, to be",!,"displayed correctly in the spreadsheet, these fields must be formatted as Text",!,"when importing the data into the spreadsheet.",! ;144
+"RTN","ECXSCLD1",16,0)
+ S DIC="^ECX(728.44,",FLDS="[ECX CLINIC REVIEW EXPORT]",BY="NUMBER",FR="",L=0
+"RTN","ECXSCLD1",17,0)
+ ;The following line has been patched in 136 and 144
+"RTN","ECXSCLD1",18,0)
+ S DIOBEG="W ""IEN^Clinic^Stop Code^Credit Stop Code^DSS Stop Code^DSS Credit Code^Action^Last Approved Date^Nat Code^Inact Date^React Date^Clinic Type^App Len^Div^App Type^Non Cnt^OOS^OOS Calling Pkg^Variable Length Appt^DSS Prod Dept"""
+"RTN","ECXSCLD1",19,0)
+ S DIS(0)=$S(Y="U":"I $P(^ECX(728.44,D0,0),U,7)=""""",Y="I":"I $P(^ECX(728.44,D0,0),U,10)'=""""",Y="C":"I $P(^ECX(728.44,D0,0),U,10)=""""",1:"I 1") ;144
+"RTN","ECXSCLD1",20,0)
+ S DIS(1)="I $P($G(^SC(D0,0)),U,3)=""C""" ;144 Only include clinics in report
+"RTN","ECXSCLD1",21,0)
+ S %ZIS="N",%ZIS("B")="0;225;99999" D ^%ZIS Q:POP S IOP=ION_";"_IOM_";"_IOSL ;144
+"RTN","ECXSCLD1",22,0)
+ D EN1^DIP
+"RTN","ECXSCLD1",23,0)
+ I '$G(POP) D ;144 Don't print the following lines if the report didn't print
+"RTN","ECXSCLD1",24,0)
+ .W !!,"Turn off your logging..." ;144
+"RTN","ECXSCLD1",25,0)
+ .W !,"...Then, pull your export text file into your spreadsheet.",! ;144
+"RTN","ECXSCLD1",26,0)
+ .S DIR(0)="E",DIR("A")="Press any key to continue" D ^DIR
+"RTN","ECXSCLD1",27,0)
+ I IO'=IO(0) D ^%ZISC
+"RTN","ECXSCLD1",28,0)
+ D HOME^%ZIS
+"RTN","ECXSCLD1",29,0)
+ Q
+"RTN","ECXSCRP")
+0^32^B30491382^B21952351
+"RTN","ECXSCRP",1,0)
+ECXSCRP ;ALB/JAM - Restricted Stop Code Nonconforming Clinic Report; 07/24/03 ;6/5/13 16:20
+"RTN","ECXSCRP",2,0)
+ ;;3.0;DSS EXTRACTS;**57,58,120,126,144**;Dec 22, 1997;Build 9
+"RTN","ECXSCRP",3,0)
+ ;
+"RTN","ECXSCRP",4,0)
+EN ;foreground entry point
+"RTN","ECXSCRP",5,0)
+ N ZTRTN,ZTDESC,ZTIO,ZTQUEUED,DIR,DIRUT,X,Y,ECX,ECXSD,PSC,SSC,ECXPCF,ECXPORT,CNT ;144
+"RTN","ECXSCRP",6,0)
+ W @IOF
+"RTN","ECXSCRP",7,0)
+ W !,"This option reviews the Primary and Secondary Stop Codes and any existing Four" ;144
+"RTN","ECXSCRP",8,0)
+ W !,"Character Codes in the Clinics and Stop Codes file #728.44." ;144
+"RTN","ECXSCRP",9,0)
+ W !,"It produces a report highlighting any nonconformance reasons that pertain" ;144
+"RTN","ECXSCRP",10,0)
+ W !,"to the Primary and Secondary Codes, or the Four Character Codes if present." ;144
+"RTN","ECXSCRP",11,0)
+ W !,"Please contact the responsible party for corrective action." ;144
+"RTN","ECXSCRP",12,0)
+ S DIR(0)="SO^A:Active Clinics;I:Inactive Clinics;B:Both"
+"RTN","ECXSCRP",13,0)
+ S DIR("A")="Select Report"
+"RTN","ECXSCRP",14,0)
+ S DIR("?",1)="Enter an A for Active Clinics, I for Inactive Clinics,"
+"RTN","ECXSCRP",15,0)
+ S DIR("?")="B for Both Active and Inactive Clinics"
+"RTN","ECXSCRP",16,0)
+ D ^DIR K DIR I $D(DIRUT) G END
+"RTN","ECXSCRP",17,0)
+ S ECXPCF=Y
+"RTN","ECXSCRP",18,0)
+ W !,"Please be patient, this may take a few moments..." ;144
+"RTN","ECXSCRP",19,0)
+ ;Synch primary & secondary stop codes from file #44 with #728.44
+"RTN","ECXSCRP",20,0)
+ S ECX=0 F S ECX=$O(^ECX(728.44,ECX)) Q:'ECX D FIX^ECXSCLD(ECX)
+"RTN","ECXSCRP",21,0)
+ S ECXPORT=$$EXPORT^ECXUTL1 Q:ECXPORT=-1 I ECXPORT D Q ;144
+"RTN","ECXSCRP",22,0)
+ .K ^TMP($J,"ECXPORT") ;144
+"RTN","ECXSCRP",23,0)
+ .S ^TMP($J,"ECXPORT",0)="IEN^CLINIC NAME^PRIMARY STOP CODE^SECONDARY CREDIT CODE^DSS PRIMARY STOP CODE^DSS SECONDARY CREDIT CODE^4CHAR NATIONAL CODE^REASON FOR NON-CONFORMANCE" ;144
+"RTN","ECXSCRP",24,0)
+ .S CNT=1 ;144
+"RTN","ECXSCRP",25,0)
+ .D PROCESS ;144
+"RTN","ECXSCRP",26,0)
+ .D EXPDISP^ECXUTL1 ;144
+"RTN","ECXSCRP",27,0)
+ ;device selection
+"RTN","ECXSCRP",28,0)
+ W !!,"** REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY **",!! ;144 CVW
+"RTN","ECXSCRP",29,0)
+ K IOP,%ZIS,POP,IO("Q")
+"RTN","ECXSCRP",30,0)
+ ;S %ZIS("A")="Select Device: ",%ZIS="QM" D ^%ZIS I POP G END
+"RTN","ECXSCRP",31,0)
+ S %ZIS="",%ZIS("B")="0;132;99999" D ^%ZIS I POP G END
+"RTN","ECXSCRP",32,0)
+ I $D(IO("Q")) K IO("Q") D G END
+"RTN","ECXSCRP",33,0)
+ .S ZTDESC="Restricted Stop Code/DSS Identifier Report",ZTSAVE("ECXPCF")=""
+"RTN","ECXSCRP",34,0)
+ .S ZTRTN="PROCESS^ECXSCRP",ZTIO=ION D ^%ZTLOAD,HOME^%ZIS K ZTSK
+"RTN","ECXSCRP",35,0)
+ U IO
+"RTN","ECXSCRP",36,0)
+ D PROCESS
+"RTN","ECXSCRP",37,0)
+END D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"
+"RTN","ECXSCRP",38,0)
+ Q
+"RTN","ECXSCRP",39,0)
+ ;
+"RTN","ECXSCRP",40,0)
+PROCESS ;background entry point
+"RTN","ECXSCRP",41,0)
+ ;locate invalid Stop Code in HOSPITAL LOCATION file #44 & CLINICS
+"RTN","ECXSCRP",42,0)
+ ;AND STOP CODES file #728.44
+"RTN","ECXSCRP",43,0)
+ N ECX,NAM,STR,IEN,PSC,SSC,CNTX,ECXPG,ECXOUT,LNS,DPC,DSC,SCIEN,ECXF
+"RTN","ECXSCRP",44,0)
+ N INDT,TYP,ACF,HTYP,CLNF,ECXRDT,NCODE,%H ;144
+"RTN","ECXSCRP",45,0)
+ S %H=$H D YX^%DTC S ECXRDT=Y
+"RTN","ECXSCRP",46,0)
+ S $P(LNS,"-",80)="",(CNTX,IEN,ECXOUT,ECXF)=0,ECXPG=1,CLNF=0
+"RTN","ECXSCRP",47,0)
+ ;search file #728.44 for invalid stop code entries
+"RTN","ECXSCRP",48,0)
+ D:'$G(ECXPORT) HDR S IEN=0 ;144
+"RTN","ECXSCRP",49,0)
+ F S IEN=$O(^ECX(728.44,IEN)) Q:'IEN D Q:ECXOUT S:ECXF CNTX=CNTX+1
+"RTN","ECXSCRP",50,0)
+ .S ECX=$G(^ECX(728.44,IEN,0)),PSC=$P(ECX,U,2),SSC=$P(ECX,U,3),CLNF=0
+"RTN","ECXSCRP",51,0)
+ .S DPC=$P(ECX,U,4),DSC=$P(ECX,U,5),NAM=$$GET1^DIQ(44,$P(ECX,U),.01)
+"RTN","ECXSCRP",52,0)
+ .S INDT=$P(ECX,U,10),ECXF=0 I INDT'="" S NAM="*"_NAM
+"RTN","ECXSCRP",53,0)
+ .S ACF=$S($E(NAM)="*":0,1:1),HTYP=$$GET1^DIQ(44,$P(ECX,U),2,"I")
+"RTN","ECXSCRP",54,0)
+ .S NCODE=$$GET1^DIQ(728.441,$P(ECX,U,8),.01) ;144 cvw
+"RTN","ECXSCRP",55,0)
+ .I $S((ECXPCF="A")&('ACF):1,(ECXPCF="I")&(ACF):1,1:0) Q
+"RTN","ECXSCRP",56,0)
+ .D I ECXOUT Q
+"RTN","ECXSCRP",57,0)
+ ..I PSC="" S STR="Missing primary code" D PRN Q
+"RTN","ECXSCRP",58,0)
+ ..D SCCHK(PSC,"P") I $D(STR) D PRN
+"RTN","ECXSCRP",59,0)
+ .I SSC'="" D SCCHK(SSC,"S") I $D(STR) D PRN
+"RTN","ECXSCRP",60,0)
+ .D I ECXOUT Q
+"RTN","ECXSCRP",61,0)
+ ..I DPC="" S STR="No DSS primary code" D PRN Q
+"RTN","ECXSCRP",62,0)
+ ..I DPC'=PSC D SCCHK(DPC,"P") I $D(STR) D PRN
+"RTN","ECXSCRP",63,0)
+ .I DSC'="",DSC'=SSC D SCCHK(DSC,"S") I $D(STR) D PRN
+"RTN","ECXSCRP",64,0)
+ .D I ECXOUT Q ;144 cvw
+"RTN","ECXSCRP",65,0)
+ ..I ($P(ECX,U,8)'="")&(NCODE="") S NCODE=$P(ECX,U,8),STR="4CHAR National Code invalid" D PRN Q ;144 cvw
+"RTN","ECXSCRP",66,0)
+ ..I $$GET1^DIQ(728.441,$P(ECX,U,8),3)'="" S STR="4CHAR National Code inactive" D PRN Q ;144 cvw
+"RTN","ECXSCRP",67,0)
+ I '$G(ECXPORT) W !!,?25,$S(CNTX:CNTX,1:"NO")_" PROBLEM CLINICS FOUND." ;144
+"RTN","ECXSCRP",68,0)
+ Q
+"RTN","ECXSCRP",69,0)
+PRN ;print line
+"RTN","ECXSCRP",70,0)
+ Q:CLNF I HTYP'="C" S STR="Not a Clinic" S CLNF=1
+"RTN","ECXSCRP",71,0)
+ I $G(ECXPORT) S ^TMP($J,"ECXPORT",CNT)=IEN_"^"_NAM_"^"_PSC_"^"_SSC_"^"_DPC_"^"_DSC_"^"_NCODE_"^"_STR,CNT=CNT+1 Q ;144
+"RTN","ECXSCRP",72,0)
+ I ($Y+3)>IOSL D PAGE,HDR I ECXOUT Q
+"RTN","ECXSCRP",73,0)
+ W !,IEN,?8,$E(NAM,1,24),?33,PSC,?38,SSC,?45,DPC,?50,DSC,?57,NCODE,?66,STR
+"RTN","ECXSCRP",74,0)
+ S ECXF=1
+"RTN","ECXSCRP",75,0)
+ Q
+"RTN","ECXSCRP",76,0)
+ ;
+"RTN","ECXSCRP",77,0)
+SCCHK(SCIEN,TYP) ;check stop code against file 40.7
+"RTN","ECXSCRP",78,0)
+ N SCN,RTY,CTY,SCI,INACT,ARRY,I,FLG
+"RTN","ECXSCRP",79,0)
+ K STR
+"RTN","ECXSCRP",80,0)
+ S CTY=$S(TYP="P":"^P^E^",1:"^S^E^")
+"RTN","ECXSCRP",81,0)
+ D SCIEN(SCIEN) I SCI="" D Q
+"RTN","ECXSCRP",82,0)
+ .;S SCI=$$SCIEN(SCIEN) I SCI="" D Q
+"RTN","ECXSCRP",83,0)
+ .I TYP="S" Q:SSC=PSC Q:DSC=DPC
+"RTN","ECXSCRP",84,0)
+ .S STR=SCIEN_" Invalid Stop Code"
+"RTN","ECXSCRP",85,0)
+ S SCN=$G(^DIC(40.7,SCI,0)),RTY=$P(SCN,U,6),INACT=$P(SCN,U,3)
+"RTN","ECXSCRP",86,0)
+ I INACT D Q
+"RTN","ECXSCRP",87,0)
+ .I INACT>DT S STR=SCIEN_" inactive in future"
+"RTN","ECXSCRP",88,0)
+ .E S STR=SCIEN_" code is inactive"
+"RTN","ECXSCRP",89,0)
+ I $P(SCN,U,2)="" S STR="No pointer in file #40.7" Q
+"RTN","ECXSCRP",90,0)
+ I RTY="" S STR=SCIEN_" No restriction type" Q
+"RTN","ECXSCRP",91,0)
+ I CTY'[("^"_RTY_"^") D
+"RTN","ECXSCRP",92,0)
+ .S STR=SCIEN_" cannot be "_$S(TYP="P":"prim",1:"second")_"ary"
+"RTN","ECXSCRP",93,0)
+ Q
+"RTN","ECXSCRP",94,0)
+PAGE ;
+"RTN","ECXSCRP",95,0)
+ N SS,JJ,DIR,X,Y
+"RTN","ECXSCRP",96,0)
+ I $E(IOST,1,2)="C-" D
+"RTN","ECXSCRP",97,0)
+ . S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXSCRP",98,0)
+ . S DIR(0)="E" W ! D ^DIR K DIR I 'Y S ECXOUT=1
+"RTN","ECXSCRP",99,0)
+ Q
+"RTN","ECXSCRP",100,0)
+ ;
+"RTN","ECXSCRP",101,0)
+SCIEN(SCIEN) ;Get stop code IEN
+"RTN","ECXSCRP",102,0)
+ I SCIEN="" Q ""
+"RTN","ECXSCRP",103,0)
+ ;S SCIEN=$O(^DIC(40.7,"C",SCIEN,0))
+"RTN","ECXSCRP",104,0)
+ ;Q SCIEN
+"RTN","ECXSCRP",105,0)
+ ;find active code if one
+"RTN","ECXSCRP",106,0)
+ S SCI=$O(^DIC(40.7,"C",SCIEN,0))
+"RTN","ECXSCRP",107,0)
+ I $O(^DIC(40.7,"C",SCIEN,SCI))'>0 Q
+"RTN","ECXSCRP",108,0)
+ ;must be some duplicates so find the best one
+"RTN","ECXSCRP",109,0)
+ S I=""
+"RTN","ECXSCRP",110,0)
+ F S I=$O(^DIC(40.7,"C",SCIEN,I)) Q:'I D
+"RTN","ECXSCRP",111,0)
+ . Q:'$D(^DIC(40.7,I,0))
+"RTN","ECXSCRP",112,0)
+ . S INACT=$P(^DIC(40.7,I,0),"^",3),FLG="A" D
+"RTN","ECXSCRP",113,0)
+ . . I INACT,((DT>INACT)!(DT=INACT)) S FLG="I"
+"RTN","ECXSCRP",114,0)
+ . S ARRY(FLG,I)=""
+"RTN","ECXSCRP",115,0)
+ I $D(ARRY("A")) S SCI=$O(ARRY("A",0))
+"RTN","ECXSCRP",116,0)
+ Q SCIEN
+"RTN","ECXSCRP",117,0)
+ ;
+"RTN","ECXSCRP",118,0)
+HDR ;header for data from file #728.44
+"RTN","ECXSCRP",119,0)
+ W @IOF
+"RTN","ECXSCRP",120,0)
+ W ECXRDT,?73,"Page: ",ECXPG,!
+"RTN","ECXSCRP",121,0)
+ W !,?18,"DSS IDENTIFIER NON-CONFORMING CLINICS REPORT",!,?32
+"RTN","ECXSCRP",122,0)
+ W $S(ECXPCF="A":"Active",ECXPCF="I":"Inactive",1:"All")_" Clinics",!
+"RTN","ECXSCRP",123,0)
+ W !,"CLINICS AND STOP CODES File (#728.44) - (Use 'Enter/Edit DSS "
+"RTN","ECXSCRP",124,0)
+ W "Stop Codes for",!,?25,"Clinics' [ECXSCEDIT] menu option to "
+"RTN","ECXSCRP",125,0)
+ W "make corrections)",!!,?45,"DSS",?50,"DSS",?57,"DSS"
+"RTN","ECXSCRP",126,0)
+ W !,?33,"PRIM",?38,"2NDARY",?45,"PRIM",?50,"2NDARY",?57,"4CHAR"
+"RTN","ECXSCRP",127,0)
+ W !,?8,$S(ECXPCF="B":"CLINIC NAME",1:""),?33,"STOP",?38,"CREDIT"
+"RTN","ECXSCRP",128,0)
+ W ?45,"STOP",?50,"CREDIT",?57,"NATIONAL",?66,"REASON FOR NON-",!
+"RTN","ECXSCRP",129,0)
+ W "IEN #",?8,$S(ECXPCF="B":"(*currently inactive)",1:"CLINIC NAME")
+"RTN","ECXSCRP",130,0)
+ W ?33,"CODE",?38,"CODE",?45,"CODE",?50,"CODE",?57,"CODE",?66,"CONFORMANCE"
+"RTN","ECXSCRP",131,0)
+ W !,$E(LNS,1,80)
+"RTN","ECXSCRP",132,0)
+ S ECXPG=ECXPG+1
+"RTN","ECXSCRP",133,0)
+ Q
+"RTN","ECXSCX1")
+0^31^B90609071^B78250876
+"RTN","ECXSCX1",1,0)
+ECXSCX1 ;ALB/JAP,BIR/DMA-Clinic Extract Message ;6/24/13 10:41
+"RTN","ECXSCX1",2,0)
+ ;;3.0;DSS EXTRACTS;**8,28,24,27,29,30,31,33,84,92,105,127,132,144**;Dec 22, 1997;Build 9
+"RTN","ECXSCX1",3,0)
+EN ;entry point from ecxscx
+"RTN","ECXSCX1",4,0)
+ N ECX
+"RTN","ECXSCX1",5,0)
+ ;send missing clinic message
+"RTN","ECXSCX1",6,0)
+ S ECX=$O(^TMP($J,"ECXS","MISS",0)) D
+"RTN","ECXSCX1",7,0)
+ .Q:ECX=""
+"RTN","ECXSCX1",8,0)
+ .S XMSUB="MISSING CLINICS in File #728.44",XMDUZ="DSS SYSTEM"
+"RTN","ECXSCX1",9,0)
+ .K XMY S XMY("G.DSS-"_ECGRP_"@"_^XMB("NETNAME"))=""
+"RTN","ECXSCX1",10,0)
+ .F ECX=1:1:5 S ^TMP($J,"ECXS","MISS",ECX,0)=$P($T(MSG+ECX),";;",2)
+"RTN","ECXSCX1",11,0)
+ .S XMTEXT="^TMP($J,""ECXS"",""MISS""," D ^XMD
+"RTN","ECXSCX1",12,0)
+ ;send no division message
+"RTN","ECXSCX1",13,0)
+ S ECX=$O(^TMP($J,"ECXS","DIV",0)) D
+"RTN","ECXSCX1",14,0)
+ .Q:ECX=""
+"RTN","ECXSCX1",15,0)
+ .S XMSUB="CLINICS w/o DIVISION Data",XMDUZ="DSS SYSTEM"
+"RTN","ECXSCX1",16,0)
+ .K XMY S XMY("G.DSS-"_ECGRP_"@"_^XMB("NETNAME"))=""
+"RTN","ECXSCX1",17,0)
+ .F ECX=1:1:5 S ^TMP($J,"ECXS","DIV",ECX,0)=$P($T(MSG2+ECX),";;",2)
+"RTN","ECXSCX1",18,0)
+ .S XMTEXT="^TMP($J,""ECXS"",""DIV""," D ^XMD
+"RTN","ECXSCX1",19,0)
+ ;cleanup
+"RTN","ECXSCX1",20,0)
+ K ^TMP($J,"ECXS")
+"RTN","ECXSCX1",21,0)
+ Q
+"RTN","ECXSCX1",22,0)
+MSG ;text for missing clinic
+"RTN","ECXSCX1",23,0)
+ ;;The following clinics have not been entered into the CLINIC AND
+"RTN","ECXSCX1",24,0)
+ ;;STOP CODES file (#728.44). If any listed clinic is currently
+"RTN","ECXSCX1",25,0)
+ ;;active, please use the options 'Create DSS Clinic Stop Code File'
+"RTN","ECXSCX1",26,0)
+ ;;and 'Enter/Edit DSS Stop Codes for Clinics' to update this file.
+"RTN","ECXSCX1",27,0)
+ ;;
+"RTN","ECXSCX1",28,0)
+ ;
+"RTN","ECXSCX1",29,0)
+MSG2 ;text for missing division
+"RTN","ECXSCX1",30,0)
+ ;;The following clinics in the HOSPITAL LOCATION file (#44) have not
+"RTN","ECXSCX1",31,0)
+ ;;been assigned to a division from the MEDICAL CENTER DIVISION file
+"RTN","ECXSCX1",32,0)
+ ;;(#40.8). CLI extract records associated with these clinics have
+"RTN","ECXSCX1",33,0)
+ ;;been given a default Division identifier of "1".
+"RTN","ECXSCX1",34,0)
+ ;;
+"RTN","ECXSCX1",35,0)
+ ;
+"RTN","ECXSCX1",36,0)
+MISS ;load ^tmp if clinic missing from #728.44
+"RTN","ECXSCX1",37,0)
+ N DAT,ID,RD
+"RTN","ECXSCX1",38,0)
+ S (ID,RD)=""
+"RTN","ECXSCX1",39,0)
+ S DAT=$G(^SC(SC,"I")) I DAT]"" S ID=+DAT,RD=$P(DAT,U,2)
+"RTN","ECXSCX1",40,0)
+ ;ignore inactive clinics
+"RTN","ECXSCX1",41,0)
+ I ID,ID<DT I 'RD!(RD>DT) Q
+"RTN","ECXSCX1",42,0)
+ I '$D(^TMP($J,"ECXS","ECXMISS")) S ^TMP($J,"ECXS","ECXMISS")=10
+"RTN","ECXSCX1",43,0)
+ S ECXMISS=^TMP($J,"ECXS","ECXMISS")
+"RTN","ECXSCX1",44,0)
+ S ^TMP($J,"ECXS","MISS",ECXMISS,0)=$J(SC,6)_" "_$$LJ^XLFSTR($P(^SC(SC,0),U),40)_ECSC_"/"_ECCSC
+"RTN","ECXSCX1",45,0)
+ S ^TMP($J,"ECXS","ECXMISS")=ECXMISS+1
+"RTN","ECXSCX1",46,0)
+ Q
+"RTN","ECXSCX1",47,0)
+ ;
+"RTN","ECXSCX1",48,0)
+NODIV ;load ^tmp if clinic w/o division
+"RTN","ECXSCX1",49,0)
+ N DAT,ID,RD
+"RTN","ECXSCX1",50,0)
+ S (ID,RD)=""
+"RTN","ECXSCX1",51,0)
+ S DAT=$G(^SC(SC,"I")) I DAT]"" S ID=+DAT,RD=$P(DAT,U,2)
+"RTN","ECXSCX1",52,0)
+ ;ignore inactive clinics
+"RTN","ECXSCX1",53,0)
+ I ID,ID<DT I 'RD!(RD>DT) Q
+"RTN","ECXSCX1",54,0)
+ I '$D(^TMP($J,"ECXS","ECXMISS")) S ^TMP($J,"ECXS","ECXMISS")=10
+"RTN","ECXSCX1",55,0)
+ S ECXMISS=^TMP($J,"ECXS","ECXMISS")
+"RTN","ECXSCX1",56,0)
+ S ^TMP($J,"ECXS","DIV",ECXMISS,0)=$J(SC,6)_" "_$$LJ^XLFSTR($P(^SC(SC,0),U),40)
+"RTN","ECXSCX1",57,0)
+ S ^TMP($J,"ECXS","ECXMISS")=ECXMISS+1
+"RTN","ECXSCX1",58,0)
+ Q
+"RTN","ECXSCX1",59,0)
+ ;
+"RTN","ECXSCX1",60,0)
+FEEDER(ECXSC,ECXSD,ECXP1,ECXP2,ECXP3,ECXSEND,ECXDIV) ;get transmission style and feeder key variables
+"RTN","ECXSCX1",61,0)
+ ;feeder key = primary stop code_secondary stop code_length of appointment_national clinic code_noshow indicator
+"RTN","ECXSCX1",62,0)
+ ; input
+"RTN","ECXSCX1",63,0)
+ ; ECXSC = ien of clinic in file #44 (required)
+"RTN","ECXSCX1",64,0)
+ ; ECXSD = start date of extract date range (required)
+"RTN","ECXSCX1",65,0)
+ ; ECXP1,ECXP2,ECXP3,ECXSEND passed by reference (required)
+"RTN","ECXSCX1",66,0)
+ ; output (passed-by-reference variables)
+"RTN","ECXSCX1",67,0)
+ ; ECXP1 = primary stop code
+"RTN","ECXSCX1",68,0)
+ ; ECXP2 = secondary stop code
+"RTN","ECXSCX1",69,0)
+ ; ECXP3 = field #7 of file #728.44
+"RTN","ECXSCX1",70,0)
+ ; ECXSEND = field #5 of file #728.44
+"RTN","ECXSCX1",71,0)
+ ; ECXDIV = field #3.5 of file #44
+"RTN","ECXSCX1",72,0)
+ N ECSC,ECCSC,ECSD1,ECXNC,ECXMISS,CLIN,SC
+"RTN","ECXSCX1",73,0)
+ S (ECXP1,ECXP2)="000",ECXP3="0000"
+"RTN","ECXSCX1",74,0)
+ S ECXSEND=1,ECXDIV=0
+"RTN","ECXSCX1",75,0)
+ Q:+ECXSC=0
+"RTN","ECXSCX1",76,0)
+ ;get needed data from ^tmp
+"RTN","ECXSCX1",77,0)
+ I $D(^TMP($J,"ECXS","SC",ECXSC)) D
+"RTN","ECXSCX1",78,0)
+ .S CLIN=^TMP($J,"ECXS","SC",ECXSC)
+"RTN","ECXSCX1",79,0)
+ .S ECXP1=$P(CLIN,U),ECXP2=$P(CLIN,U,2),ECXP3=$P(CLIN,U,3),ECXSEND=$P(CLIN,U,4),ECXDIV=$P(CLIN,U,5)
+"RTN","ECXSCX1",80,0)
+ .S ECXDIV=+$P($G(^TMP($J,"ECXCL",ECXSC)),U,4) S:ECXDIV=0 ECXDIV=1
+"RTN","ECXSCX1",81,0)
+ ;otherwise, set needed data in ^tmp
+"RTN","ECXSCX1",82,0)
+ I '$D(^TMP($J,"ECXS","SC",ECXSC)) D
+"RTN","ECXSCX1",83,0)
+ .;get division or send no division msg
+"RTN","ECXSCX1",84,0)
+ .S ECXDIV=+$P($G(^TMP($J,"ECXCL",ECXSC)),U,4)
+"RTN","ECXSCX1",85,0)
+ .I ECXDIV=0 S SC=ECXSC D NODIV S ECXDIV=1
+"RTN","ECXSCX1",86,0)
+ .;get other data from file #44 if no #727.44 record; send missing clinic msg
+"RTN","ECXSCX1",87,0)
+ .I '$D(^ECX(728.44,ECXSC,0)) D
+"RTN","ECXSCX1",88,0)
+ ..S ECSC=+$P($G(^SC(ECXSC,0)),U,7),ECCSC=+$P(^(0),U,18)
+"RTN","ECXSCX1",89,0)
+ ..S SC=ECXSC,ECSD1=ECXSD D MISS
+"RTN","ECXSCX1",90,0)
+ ..S:ECSC ECXP1=$P($G(^DIC(40.7,ECSC,0)),U,2),ECXP1=$$RJ^XLFSTR(+ECXP1,3,0)
+"RTN","ECXSCX1",91,0)
+ .;otherwise get other data from file #728.44
+"RTN","ECXSCX1",92,0)
+ .S EC=$G(^ECX(728.44,ECXSC,0)) D
+"RTN","ECXSCX1",93,0)
+ ..Q:EC=""
+"RTN","ECXSCX1",94,0)
+ ..S ECXSEND=$P(EC,U,6)
+"RTN","ECXSCX1",95,0)
+ ..Q:ECXSEND=6
+"RTN","ECXSCX1",96,0)
+ ..S ECSC=+$P(EC,U,4),ECCSC=+$P(EC,U,5)
+"RTN","ECXSCX1",97,0)
+ ..I 'ECSC S ECSC=+$P(EC,U,2),ECCSC=+$P(EC,U,3)
+"RTN","ECXSCX1",98,0)
+ ..I ECSC S ECXP1=$$RJ^XLFSTR(ECSC,3,0),ECXP2=$$RJ^XLFSTR(ECCSC,3,0)
+"RTN","ECXSCX1",99,0)
+ ..;if primary stop not valid, use file #44 record
+"RTN","ECXSCX1",100,0)
+ ..I 'ECSC S ECSC=+$P($G(^SC(ECXSC,0)),U,7),ECCSC=+$P($G(^(0)),U,18) I ECSC D
+"RTN","ECXSCX1",101,0)
+ ...S ECXP1=+$P($G(^DIC(40.7,ECSC,0)),U,2)
+"RTN","ECXSCX1",102,0)
+ ...S:ECCSC ECXP2=+$P($G(^DIC(40.7,ECCSC,0)),U,2)
+"RTN","ECXSCX1",103,0)
+ ...S ECXP1=$$RJ^XLFSTR(ECXP1,3,0),ECXP2=$$RJ^XLFSTR(ECXP2,3,0)
+"RTN","ECXSCX1",104,0)
+ .;for action code=1, secondary stop code is always "000"
+"RTN","ECXSCX1",105,0)
+ .I ECXSEND=1 S ECXP2="000"
+"RTN","ECXSCX1",106,0)
+ .;action code of 2 or 3 should not be used, but continue to follow v2t11 logic
+"RTN","ECXSCX1",107,0)
+ .I ECXSEND=2 S ECXP1=ECXP2,ECXP2="000"
+"RTN","ECXSCX1",108,0)
+ .;for action code=4, need to get national clinic code
+"RTN","ECXSCX1",109,0)
+ .I ECXSEND=4 D
+"RTN","ECXSCX1",110,0)
+ ..S ECXNC=+$P($G(^ECX(728.44,ECXSC,0)),U,8)
+"RTN","ECXSCX1",111,0)
+ ..I ECXNC S ECXNC=$P($G(^ECX(728.441,ECXNC,0)),U),ECXP3=$$RJ^XLFSTR(ECXNC,4,0)
+"RTN","ECXSCX1",112,0)
+ .;set data in ^tmp
+"RTN","ECXSCX1",113,0)
+ .S ^TMP($J,"ECXS","SC",ECXSC)=ECXP1_U_ECXP2_U_ECXP3_U_ECXSEND
+"RTN","ECXSCX1",114,0)
+ Q
+"RTN","ECXSCX1",115,0)
+ ;
+"RTN","ECXSCX1",116,0)
+VISIT(ECXDFN,ECXVISIT,ECXVIST,ECXERR) ;get visit specific data
+"RTN","ECXSCX1",117,0)
+ ;input ECXVISIT = pointer to file #9000010
+"RTN","ECXSCX1",118,0)
+ ; ECXSVC = sc percentage
+"RTN","ECXSCX1",119,0)
+ ;output ECXVSIT = data array
+"RTN","ECXSCX1",120,0)
+ ; ECXERR = 1 indicates error; otherwise, 0
+"RTN","ECXSCX1",121,0)
+ N AO,ARRAY,CM,CNT,CPT,DA,DATE,DA,DIQ,ICD,ICD9,IR,LEN,M,MOD,MST,NUM,NOD1,NODE
+"RTN","ECXSCX1",122,0)
+ N PROV,PROVPC,REC,VAL,VISIT,X,Y,HNC,PGE,CV,SHAD,ENCSC,ENCCL ;144
+"RTN","ECXSCX1",123,0)
+ S ECXERR=0,VISIT=ECXVISIT
+"RTN","ECXSCX1",124,0)
+ S (ECXVIST("AO"),ECXVIST("IR"),ECXVIST("PGE"),ECXVIST("HNC"))=""
+"RTN","ECXSCX1",125,0)
+ S (ECXVIST("MST"),ECXVIST("CV"),ECXVIST("SHAD"),ECXVIST("ENCSC"),ECXVIST("ENCCL"))="" ;144
+"RTN","ECXSCX1",126,0)
+ ;MRY-2/4/2010, extracts don't seem to use encounter (visit) "CV".
+"RTN","ECXSCX1",127,0)
+ ;extracts use eligibility API for some reason. Added "CV" anyway.
+"RTN","ECXSCX1",128,0)
+ S (ECXVIST("PROV"),ECXVIST("PROV CLASS"))=""
+"RTN","ECXSCX1",129,0)
+ S (ECXVIST("PROV NPI"),ECXVIST("SOURCE"))=""
+"RTN","ECXSCX1",130,0)
+ F I="P",1,2,3,4 S ECXVIST("ICD9"_I)=""
+"RTN","ECXSCX1",131,0)
+ F I=1:1:8 S ECXVIST("CPT"_I)=""
+"RTN","ECXSCX1",132,0)
+ D ENCEVENT^PXAPI(VISIT)
+"RTN","ECXSCX1",133,0)
+ I $O(^TMP("PXKENC",$J,VISIT,""))']"" K ECXVIST S ECXERR=1
+"RTN","ECXSCX1",134,0)
+ Q:ECXERR
+"RTN","ECXSCX1",135,0)
+ S DATE=$P($P(^TMP("PXKENC",$J,VISIT,"VST",VISIT,0),U,1),".",1)
+"RTN","ECXSCX1",136,0)
+ S ECXVIST("SOURCE")=$P($G(^TMP("PXKENC",$J,VISIT,"VST",VISIT,812)),U,3)
+"RTN","ECXSCX1",137,0)
+ ;get icd9 codes upto 5; else use 799.9
+"RTN","ECXSCX1",138,0)
+ K ARY S ICD("P")=0,ICD("S")=0,(ARY,REC)=""
+"RTN","ECXSCX1",139,0)
+ F S REC=$O(^TMP("PXKENC",$J,VISIT,"POV",REC)) Q:REC="" D
+"RTN","ECXSCX1",140,0)
+ .S VAL=^TMP("PXKENC",$J,VISIT,"POV",REC,0) Q:'VAL
+"RTN","ECXSCX1",141,0)
+ .I $P(VAL,U,12)="P" D
+"RTN","ECXSCX1",142,0)
+ ..S:'$D(ARY("P",+VAL)) CNT=ICD("P")+1,ICD("P",CNT)=+VAL,ICD("P")=CNT
+"RTN","ECXSCX1",143,0)
+ ..S ARY("P",+VAL)=""
+"RTN","ECXSCX1",144,0)
+ .I $P(VAL,U,12)'="P" D
+"RTN","ECXSCX1",145,0)
+ ..S:'$D(ARY("S",+VAL)) CNT=ICD("S")+1,ICD("S",CNT)=+VAL,ICD("S")=CNT
+"RTN","ECXSCX1",146,0)
+ ..S ARY("S",+VAL)=""
+"RTN","ECXSCX1",147,0)
+ S CNT=0,ECXVIST("ICD9P")=$P($G(^ICD9(+$G(ICD("P",1),0),0)),U)
+"RTN","ECXSCX1",148,0)
+ F I=2:1 Q:'$D(ICD("P",I)) D Q:CNT>4
+"RTN","ECXSCX1",149,0)
+ .S CNT=CNT+1,ECXVIST("ICD9"_CNT)=$P($G(^ICD9(ICD("P",I),0)),U)
+"RTN","ECXSCX1",150,0)
+ I CNT<4 F I=1:1:8 Q:'$D(ICD("S",I)) D Q:CNT>4
+"RTN","ECXSCX1",151,0)
+ .I '$D(ARY("P",ICD("S",I))) D
+"RTN","ECXSCX1",152,0)
+ ..S CNT=CNT+1,ECXVIST("ICD9"_CNT)=$P($G(^ICD9(ICD("S",I),0)),U)
+"RTN","ECXSCX1",153,0)
+ ;get first provider designated as primary
+"RTN","ECXSCX1",154,0)
+ ;if no primary, then get first physician provider
+"RTN","ECXSCX1",155,0)
+ ;if no physician, then get first provider
+"RTN","ECXSCX1",156,0)
+ S (PROV,PROVPC)=""
+"RTN","ECXSCX1",157,0)
+ I $O(^TMP("PXKENC",$J,VISIT,"PRV",0)) D
+"RTN","ECXSCX1",158,0)
+ .S (REC,VAL)=0 D
+"RTN","ECXSCX1",159,0)
+ ..F S REC=$O(^TMP("PXKENC",$J,VISIT,"PRV",REC)) Q:('REC)!(VAL) D
+"RTN","ECXSCX1",160,0)
+ ...S:($P(^(REC,0),U,4)="P") VAL=+^(0)
+"RTN","ECXSCX1",161,0)
+ ...S PROV=VAL,PROVPC=$$PRVCLASS^ECXUTL(PROV,DATE)
+"RTN","ECXSCX1",162,0)
+ .I 'VAL S (REC,VAL)=0 D
+"RTN","ECXSCX1",163,0)
+ ..F S REC=$O(^TMP("PXKENC",$J,VISIT,"PRV",REC)) Q:('REC)!(VAL) D
+"RTN","ECXSCX1",164,0)
+ ...S (PROV,VAL)=+^(REC,0)
+"RTN","ECXSCX1",165,0)
+ ...S PROVPC=$$PRVCLASS^ECXUTL(PROV,DATE) Q:PROVPC=""
+"RTN","ECXSCX1",166,0)
+ ...S NUM=$E(PROVPC,2,7) S:(NUM<110000)!(NUM>119999) VAL=0,PROVPC=""
+"RTN","ECXSCX1",167,0)
+ .I 'VAL D
+"RTN","ECXSCX1",168,0)
+ ..S REC=$O(^TMP("PXKENC",$J,VISIT,"PRV",0)) Q:('REC)!(VAL)
+"RTN","ECXSCX1",169,0)
+ ..S VAL=+^(REC,0),PROV=VAL,PROVPC=$$PRVCLASS^ECXUTL(PROV,DATE)
+"RTN","ECXSCX1",170,0)
+ .S:PROV]"" PROV="2"_PROV
+"RTN","ECXSCX1",171,0)
+ S ECXVIST("PROV")=PROV,ECXVIST("PROV CLASS")=PROVPC
+"RTN","ECXSCX1",172,0)
+ S ECXVIST("PROV NPI")=""
+"RTN","ECXSCX1",173,0)
+ ;get 1-7 secondary physicians
+"RTN","ECXSCX1",174,0)
+ F I=1:1:7 S ECXVIST("PROVS"_I)="" ;144 two more providers cvw
+"RTN","ECXSCX1",175,0)
+ I $O(^TMP("PXKENC",$J,VISIT,"PRV",0)) D
+"RTN","ECXSCX1",176,0)
+ .S (REC,VAL,COUNTS)=0 D
+"RTN","ECXSCX1",177,0)
+ ..F S REC=$O(^TMP("PXKENC",$J,VISIT,"PRV",REC)) Q:('REC) D
+"RTN","ECXSCX1",178,0)
+ ...Q:$P(^(REC,0),U,4)'="S"
+"RTN","ECXSCX1",179,0)
+ ...S VAL=+^(0) I $E(PROV,2,99)=VAL Q ;don't process, primary
+"RTN","ECXSCX1",180,0)
+ ...S COUNTS=COUNTS+1 Q:(COUNTS>7) ;144 two more providers cvw
+"RTN","ECXSCX1",181,0)
+ ...S PROVS=VAL,PROVSPC=$$PRVCLASS^ECXUTL(PROVS,DATE)
+"RTN","ECXSCX1",182,0)
+ ...S PROVSNPI=$$NPI^XUSNPI("Individual_ID",PROVS,DATE)
+"RTN","ECXSCX1",183,0)
+ ...S:+PROVSNPI'>0 PROVSNPI="" S PROVSNPI=$P(PROVSNPI,U)
+"RTN","ECXSCX1",184,0)
+ ...S ECXVIST("PROVS"_COUNTS)="2"_PROVS_U_PROVSPC_U_PROVSNPI
+"RTN","ECXSCX1",185,0)
+ ;get cpt codes upto 8 & modifiers upto 5
+"RTN","ECXSCX1",186,0)
+ S CNT=1,PROV=$E(PROV,2,99)
+"RTN","ECXSCX1",187,0)
+ D:$O(^TMP("PXKENC",$J,VISIT,"CPT",0))
+"RTN","ECXSCX1",188,0)
+ .S REC=0 D:PROV]""
+"RTN","ECXSCX1",189,0)
+ ..F S REC=$O(^TMP("PXKENC",$J,VISIT,"CPT",REC)) Q:'REC D Q:CNT>8
+"RTN","ECXSCX1",190,0)
+ ...S CPT="",NODE=$G(^TMP("PXKENC",$J,VISIT,"CPT",REC,12))
+"RTN","ECXSCX1",191,0)
+ ...Q:NODE=""
+"RTN","ECXSCX1",192,0)
+ ...S NOD1=$S($P(NODE,U,4)=PROV:^TMP("PXKENC",$J,VISIT,"CPT",REC,0),1:"")
+"RTN","ECXSCX1",193,0)
+ ...Q:$P(NOD1,U)=""
+"RTN","ECXSCX1",194,0)
+ ...S Q="00"_+$P(NOD1,U,16),Q=$S(+Q:$E(Q,$L(Q)-1,$L(Q)),1:"01")
+"RTN","ECXSCX1",195,0)
+ ...S CPT=$P(NOD1,U),M=0,MOD=""
+"RTN","ECXSCX1",196,0)
+ ...F I=1:1:5 S M=$O(^TMP("PXKENC",$J,VISIT,"CPT",REC,1,M)) Q:'M D
+"RTN","ECXSCX1",197,0)
+ ....S MOD=MOD_$S(MOD'="":";",1:"")
+"RTN","ECXSCX1",198,0)
+ ....S MOD=MOD_$P(^TMP("PXKENC",$J,VISIT,"CPT",REC,1,M,0),U)
+"RTN","ECXSCX1",199,0)
+ ...S ECXVIST("CPT"_CNT)=$$CPT^ECXUTL3(CPT,MOD,Q),CNT=CNT+1
+"RTN","ECXSCX1",200,0)
+ ...K ^TMP("PXKENC",$J,VISIT,"CPT",REC)
+"RTN","ECXSCX1",201,0)
+ ..Q:CNT>8
+"RTN","ECXSCX1",202,0)
+ .Q:CNT>8 S REC=0
+"RTN","ECXSCX1",203,0)
+ .F S REC=$O(^TMP("PXKENC",$J,VISIT,"CPT",REC)) Q:'REC D Q:CNT>8
+"RTN","ECXSCX1",204,0)
+ ..S CPT="",NOD1=$G(^TMP("PXKENC",$J,VISIT,"CPT",REC,0))
+"RTN","ECXSCX1",205,0)
+ ..Q:$P(NOD1,U)=""
+"RTN","ECXSCX1",206,0)
+ ..S Q="00"_+$P(NOD1,U,16),Q=$S(+Q:$E(Q,$L(Q)-1,$L(Q)),1:"01")
+"RTN","ECXSCX1",207,0)
+ ..S CPT=$P(NOD1,U),M=0,MOD=""
+"RTN","ECXSCX1",208,0)
+ ..F I=1:1:5 S M=$O(^TMP("PXKENC",$J,VISIT,"CPT",REC,1,M)) Q:'M D
+"RTN","ECXSCX1",209,0)
+ ...S MOD=MOD_$S(MOD'="":";",1:"")
+"RTN","ECXSCX1",210,0)
+ ...S MOD=MOD_$P(^TMP("PXKENC",$J,VISIT,"CPT",REC,1,M,0),U)
+"RTN","ECXSCX1",211,0)
+ ..S ECXVIST("CPT"_CNT)=$$CPT^ECXUTL3(CPT,MOD,Q),CNT=CNT+1
+"RTN","ECXSCX1",212,0)
+ ..K ^TMP("PXKENC",$J,VISIT,"CPT",REC)
+"RTN","ECXSCX1",213,0)
+ ..Q:CNT>8
+"RTN","ECXSCX1",214,0)
+ S:ECXVIST("CPT1")="" ECXVIST("CPT1")=9919901
+"RTN","ECXSCX1",215,0)
+ ;ao, ir, mst, pge, hnc, cv, shad
+"RTN","ECXSCX1",216,0)
+ S (AO,IR,MST,PGE,HNC,CV,SHAD,ENCSC,ENCCL)="" ;144
+"RTN","ECXSCX1",217,0)
+ I $D(^TMP("PXKENC",$J,VISIT,"VST",VISIT,800)) D
+"RTN","ECXSCX1",218,0)
+ .S ENCSC=$P(^TMP("PXKENC",$J,VISIT,"VST",VISIT,800),U) ;144 Encounter Service Connected
+"RTN","ECXSCX1",219,0)
+ .S AO=$P(^TMP("PXKENC",$J,VISIT,"VST",VISIT,800),U,2)
+"RTN","ECXSCX1",220,0)
+ .S IR=$P(^TMP("PXKENC",$J,VISIT,"VST",VISIT,800),U,3),MST=$P(^(800),U,5)
+"RTN","ECXSCX1",221,0)
+ .S PGE=$P(^TMP("PXKENC",$J,VISIT,"VST",VISIT,800),U,4),HNC=$P(^(800),U,6)
+"RTN","ECXSCX1",222,0)
+ .S CV=$P(^TMP("PXKENC",$J,VISIT,"VST",VISIT,800),U,7),SHAD=$P(^(800),U,8)
+"RTN","ECXSCX1",223,0)
+ .S ENCCL="" ;144 Encounter Camp Lejeune, will need to be updated once call to PXAPI adds this data
+"RTN","ECXSCX1",224,0)
+ .S ECXVIST("AO")=$S(AO=0:"N",AO=1:"Y",1:"")
+"RTN","ECXSCX1",225,0)
+ .S ECXVIST("IR")=$S(IR=0:"N",IR=1:"Y",1:"")
+"RTN","ECXSCX1",226,0)
+ .S ECXVIST("MST")=$S(MST=0:"N",MST=1:"Y",1:"")
+"RTN","ECXSCX1",227,0)
+ .S ECXVIST("PGE")=$S(PGE=0:"N",PGE=1:"Y",1:"")
+"RTN","ECXSCX1",228,0)
+ .S ECXVIST("HNC")=$S(HNC=0:"N",HNC=1:"Y",1:"")
+"RTN","ECXSCX1",229,0)
+ .S ECXVIST("CV")=$S(CV=0:"N",CV=1:"Y",1:"")
+"RTN","ECXSCX1",230,0)
+ .S ECXVIST("SHAD")=$S(SHAD=0:"N",SHAD=1:"Y",1:"")
+"RTN","ECXSCX1",231,0)
+ .S ECXVIST("ENCSC")=$S(ENCSC=0:"N",ENCSC=1:"Y",1:"") ;144 Encounter Service Connected
+"RTN","ECXSCX1",232,0)
+ .S ECXVIST("ENCCL")=$S(ENCCL=0:"N",ENCCL=1:"Y",1:"") ;144 Encounter Camp Lejeune. Assumption made that Camp Lejeune data will be returned similiarly to other status data.
+"RTN","ECXSCX1",233,0)
+ Q
+"RTN","ECXSCX2")
+0^21^B9845162^B9043953
+"RTN","ECXSCX2",1,0)
+ECXSCX2 ;ALB/ESD DSS Clinic Extract Utilities (continued) ;4/16/13 11:34
+"RTN","ECXSCX2",2,0)
+ ;;3.0;DSS EXTRACTS;**39,46,49,71,84,92,105,120,127,144**;Dec 22, 1997;Build 9
+"RTN","ECXSCX2",3,0)
+ ;
+"RTN","ECXSCX2",4,0)
+ ;
+"RTN","ECXSCX2",5,0)
+INTPAT ;initialize patient variables
+"RTN","ECXSCX2",6,0)
+ S (ECXSSN,ECXPNM,ECPTPR,ECCLAS,ECPTNPI,ECASPR,ECCLAS2,ECASNPI,ECXZIP)=""
+"RTN","ECXSCX2",7,0)
+ S (ECPTTM,ECXVET,ECXRACE,ECXENRL,ECXMPI,ECXSEX,ECXVNS)=""
+"RTN","ECXSCX2",8,0)
+ S (ECXDOB,ECXELIG,ECXPST,ECXPLOC,ECXRST,ECXAST,ECXMST,ECXSTATE)=""
+"RTN","ECXSCX2",9,0)
+ S (ECXCNTY,ECXCNTRY,ECXATYP,ECXPVST,ECXMTST,ECXEST,ECXECE,ECXHNC)=""
+"RTN","ECXSCX2",10,0)
+ S (ECXESC,ECXECL,ECXCLST)="" ;144
+"RTN","ECXSCX2",11,0)
+ Q
+"RTN","ECXSCX2",12,0)
+ ;
+"RTN","ECXSCX2",13,0)
+PAT1(ECXDFN,ECXDATE,ECXERR) ;get patient demographic data
+"RTN","ECXSCX2",14,0)
+ N ECXPAT,K,OK,X
+"RTN","ECXSCX2",15,0)
+ S ECXERR=0
+"RTN","ECXSCX2",16,0)
+ S OK=$$PAT^ECXUTL3(ECXDFN,$P(ECXDATE,"."),"1;2;3;4;5",.ECXPAT)
+"RTN","ECXSCX2",17,0)
+ I 'OK S ECXERR=1 Q
+"RTN","ECXSCX2",18,0)
+ S ECXSSN=ECXPAT("SSN"),ECXPNM=ECXPAT("NAME"),ECXMPI=ECXPAT("MPI")
+"RTN","ECXSCX2",19,0)
+ S ECXSEX=ECXPAT("SEX"),ECXDOB=ECXPAT("DOB"),ECXELIG=ECXPAT("ELIG")
+"RTN","ECXSCX2",20,0)
+ S ECXVET=ECXPAT("VET"),ECXSVC=ECXPAT("SC%"),ECXRACE=ECXPAT("RACE")
+"RTN","ECXSCX2",21,0)
+ S ECXPST=ECXPAT("POW STAT"),ECXPLOC=ECXPAT("POW LOC")
+"RTN","ECXSCX2",22,0)
+ S ECXRST=ECXPAT("IR STAT"),ECXAST=ECXPAT("AO STAT")
+"RTN","ECXSCX2",23,0)
+ S ECXMST=ECXPAT("MST STAT"),ECXSTATE=ECXPAT("STATE")
+"RTN","ECXSCX2",24,0)
+ S ECXCNTY=ECXPAT("COUNTY"),ECXZIP=ECXPAT("ZIP")
+"RTN","ECXSCX2",25,0)
+ S ECXCNTRY=ECXPAT("COUNTRY")
+"RTN","ECXSCX2",26,0)
+ S ECXENRL=ECXPAT("ENROLL LOC"),ECXMTST=ECXPAT("MEANS")
+"RTN","ECXSCX2",27,0)
+ ; changes for 2001
+"RTN","ECXSCX2",28,0)
+ S ECXPOS=ECXPAT("POS"),ECXPHI=ECXPAT("PHI")
+"RTN","ECXSCX2",29,0)
+ ;- Agent Orange location
+"RTN","ECXSCX2",30,0)
+ S ECXAOL=ECXPAT("AOL")
+"RTN","ECXSCX2",31,0)
+ ;OEF/OIF data
+"RTN","ECXSCX2",32,0)
+ S ECXOEF=ECXPAT("ECXOEF")
+"RTN","ECXSCX2",33,0)
+ S ECXOEFDT=ECXPAT("ECXOEFDT")
+"RTN","ECXSCX2",34,0)
+ I $$ENROLLM^ECXUTL2(ECXDFN)
+"RTN","ECXSCX2",35,0)
+ ; - Head and Neck Cancer Indicator
+"RTN","ECXSCX2",36,0)
+ S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN)
+"RTN","ECXSCX2",37,0)
+ ; - PROJ 112/SHAD Indicator
+"RTN","ECXSCX2",38,0)
+ S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN)
+"RTN","ECXSCX2",39,0)
+ ; - Race and Ethnicity
+"RTN","ECXSCX2",40,0)
+ S ECXETH=ECXPAT("ETHNIC")
+"RTN","ECXSCX2",41,0)
+ S ECXRC1=ECXPAT("RACE1")
+"RTN","ECXSCX2",42,0)
+ ; - Environmental Contaminants
+"RTN","ECXSCX2",43,0)
+ S ECXEST=ECXPAT("EC STAT")
+"RTN","ECXSCX2",44,0)
+ ;get emergency response indicator (FEMA)
+"RTN","ECXSCX2",45,0)
+ S ECXERI=ECXPAT("ERI")
+"RTN","ECXSCX2",46,0)
+ ;get vietnam indicator fy14 144 cvw
+"RTN","ECXSCX2",47,0)
+ S ECXVNS=ECXPAT("VIETNAM")
+"RTN","ECXSCX2",48,0)
+ S ECXCLST=ECXPAT("CL STAT") ;144 Camp Lejeune Status
+"RTN","ECXSCX2",49,0)
+ Q
+"RTN","ECXSCX2",50,0)
+ ;
+"RTN","ECXSCX2",51,0)
+PAT2(ECXDFN,ECXDATE) ;get date specific patient data
+"RTN","ECXSCX2",52,0)
+ N K,X
+"RTN","ECXSCX2",53,0)
+ ;get primary care data
+"RTN","ECXSCX2",54,0)
+ S X=$$PRIMARY^ECXUTL2(ECXDFN,$P(ECXDATE,"."))
+"RTN","ECXSCX2",55,0)
+ S ECPTTM=$P(X,U),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4)
+"RTN","ECXSCX2",56,0)
+ S ECASPR=$P(X,U,5),ECCLAS2=$P(X,U,6),ECASNPI=$P(X,U,7)
+"RTN","ECXSCX2",57,0)
+ ;get inpatient data
+"RTN","ECXSCX2",58,0)
+ S X=$$INP^ECXUTL2(ECXDFN,ECXDATE),ECXA=$P(X,U),ECXTS=$P(X,U,3)
+"RTN","ECXSCX2",59,0)
+ S ECXDOM=$P(X,U,10),ECXADMDT=$P(X,U,4)
+"RTN","ECXSCX2",60,0)
+ ;- set national patient record flag if exist
+"RTN","ECXSCX2",61,0)
+ D NPRF^ECXUTL5
+"RTN","ECXSCX2",62,0)
+ Q
+"RTN","ECXSCX2",63,0)
+ ;
+"RTN","ECXSCX2",64,0)
+FILE2(ECXFILE,EC7,ECODE) ;file record
+"RTN","ECXSCX2",65,0)
+ N DA,DIK,X S X=""
+"RTN","ECXSCX2",66,0)
+ F S X=$O(ECODE(X)) Q:X="" S ^ECX(ECXFILE,EC7,X)=ECODE(X)
+"RTN","ECXSCX2",67,0)
+ S DA=EC7,DIK="^ECX("_ECXFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXSCX2",68,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1
+"RTN","ECXSCX2",69,0)
+ Q
+"RTN","ECXSCX2",70,0)
+ ;
+"RTN","ECXSCX2",71,0)
+CBOC(MDIV) ;Determine whether patient's facility was CBOC
+"RTN","ECXSCX2",72,0)
+ N LOCARR,DIC,DR,DIQ,DA,INST,FTYP
+"RTN","ECXSCX2",73,0)
+ S DIC=40.8,DA=MDIV,DR=".07",DIQ(0)="I",DIQ="LOCARR" D EN^DIQ1
+"RTN","ECXSCX2",74,0)
+ S INST=$G(LOCARR(40.8,MDIV,.07,"I")) I INST="" Q ""
+"RTN","ECXSCX2",75,0)
+ K LOCARR S DIC=4,DA=INST,DR="13",DIQ(0)="I",DIQ="LOCARR" D EN^DIQ1
+"RTN","ECXSCX2",76,0)
+ S FTYP=$G(LOCARR(4,INST,13,"I")) I FTYP="" Q ""
+"RTN","ECXSCX2",77,0)
+ K LOCARR S DIC=4.1,DA=FTYP,DR=".01",DIQ(0)="I",DIQ="LOCARR" D EN^DIQ1
+"RTN","ECXSCX2",78,0)
+ Q $S($G(LOCARR(4.1,FTYP,.01,"I"))="CBOC":"Y",1:"")
+"RTN","ECXSCX3")
+0^19^B21200160^B12749405
+"RTN","ECXSCX3",1,0)
+ECXSCX3 ;ALB/DHE- DSS Clinic & Stop Codes Validity Report 728.44 ;3/4/13 15:52
+"RTN","ECXSCX3",2,0)
+ ;;3.0;DSS EXTRACTS;**120,144**;Dec 22, 1997;Build 9
+"RTN","ECXSCX3",3,0)
+EN ;entry point from option
+"RTN","ECXSCX3",4,0)
+ ;
+"RTN","ECXSCX3",5,0)
+ N ZTDESC,ZTRTN,ZTSAVE,ZTSK,ZUSR,ZTDTH,POP,ECXPORT,CNT,NUM ;144
+"RTN","ECXSCX3",6,0)
+ W !!,"This report will display stop code information of the ACTIVE ",!,"clinics in the Clinics and Stop Code file (#728.44). It will",!,"display stop codes that do not conform to the Business Rules for ",!,"Valid Stop Codes." ;144
+"RTN","ECXSCX3",7,0)
+ I '$D(^ECX(728.44)) W !,"DSS Clinic stop code file does not exist",!! R X:5 K X Q
+"RTN","ECXSCX3",8,0)
+ S ECXPORT=$$EXPORT^ECXUTL1 Q:ECXPORT=-1 I ECXPORT D Q ;144
+"RTN","ECXSCX3",9,0)
+ .K ^TMP($J,"ECXPORT") ;144
+"RTN","ECXSCX3",10,0)
+ .S ^TMP($J,"ECXPORT",0)="IEN^CLINIC NAME^PRIMARY STOP CODE^SECONDARY CREDIT STOP CODE^DSS PRIMARY STOP CODE^DSS SECONDARY CREDIT CODE^4 CHARACTER NATIONAL CODE^ERROR 1^ERROR 2^ERROR 3^WARNING" ;144
+"RTN","ECXSCX3",11,0)
+ .S CNT=1 ;144
+"RTN","ECXSCX3",12,0)
+ .D START ;144
+"RTN","ECXSCX3",13,0)
+ .D EXPDISP^ECXUTL1 ;144
+"RTN","ECXSCX3",14,0)
+ .K ECXERR,WARNING D ^ECXKILL ;144
+"RTN","ECXSCX3",15,0)
+ S %ZIS="Q" D ^%ZIS G:POP EXIT
+"RTN","ECXSCX3",16,0)
+ I $D(IO("Q")) D Q
+"RTN","ECXSCX3",17,0)
+ . K ZTSAVE S ZTDESC="DSS Identify Invalid Stop and Credit Stop Codes",ZTRTN="START^ECXSCX3",ZTDTH=$H
+"RTN","ECXSCX3",18,0)
+ . D ^%ZTLOAD
+"RTN","ECXSCX3",19,0)
+ . D ^%ZISC,HOME^%ZIS
+"RTN","ECXSCX3",20,0)
+ . W !,$S($D(ZTSK):"REQUEST QUEUED!",1:"REQUEST CANCELLED!")
+"RTN","ECXSCX3",21,0)
+ D START
+"RTN","ECXSCX3",22,0)
+EXIT D ^%ZISC,HOME^%ZIS
+"RTN","ECXSCX3",23,0)
+ Q
+"RTN","ECXSCX3",24,0)
+START ; queued entry to print report
+"RTN","ECXSCX3",25,0)
+ U IO
+"RTN","ECXSCX3",26,0)
+ N CLIEN,CODE,ERR,QUIT,WRN,TOT,CODE1,CODE2,CODE3,CODE4,CODE5,CLNAME,DATE
+"RTN","ECXSCX3",27,0)
+ N I,INACT,Y,HEAD,NONAME,QFLG,LN,PG,DAT,REACT
+"RTN","ECXSCX3",28,0)
+ K WARNING,ECXERR,TYPE
+"RTN","ECXSCX3",29,0)
+ S QFLG=0,$P(LN,"-",80)="",PG=0
+"RTN","ECXSCX3",30,0)
+ S TOT=0,QUIT=""
+"RTN","ECXSCX3",31,0)
+ I '$G(ECXPORT) D HEAD ;144
+"RTN","ECXSCX3",32,0)
+ S CLIEN=0 F S CLIEN=$O(^ECX(728.44,CLIEN)) Q:'CLIEN D Q:QUIT
+"RTN","ECXSCX3",33,0)
+ . Q:'$D(^ECX(728.44,CLIEN,0))
+"RTN","ECXSCX3",34,0)
+ . S DAT=$G(^SC(CLIEN,"I")),INACT=+DAT,REACT=$P(DAT,"^",2)
+"RTN","ECXSCX3",35,0)
+ . ;S INACT=$P(^ECX(728.44,CLIEN,0),"^",10)
+"RTN","ECXSCX3",36,0)
+ . ;I (INACT'>DT)&(INACT'="") Q
+"RTN","ECXSCX3",37,0)
+ . I INACT,('REACT),INACT'>DT Q
+"RTN","ECXSCX3",38,0)
+ . I INACT,INACT'>DT I REACT,DT<REACT Q
+"RTN","ECXSCX3",39,0)
+ . S CLNAME=$S($G(CLIEN)>0:$E($$GET1^DIQ(44,CLIEN,.01,"E"),1,30),1:NONAME)
+"RTN","ECXSCX3",40,0)
+ . K WARNING,ECXERR,TYPE,ERR,WRN
+"RTN","ECXSCX3",41,0)
+ . S DATE=DT
+"RTN","ECXSCX3",42,0)
+ . S CODE1=$P(^ECX(728.44,CLIEN,0),"^",2),TYPE="Stop Code" D STOP^ECXSTOP(CODE1,TYPE,CLIEN,DATE)
+"RTN","ECXSCX3",43,0)
+ . S CODE2=$P(^ECX(728.44,CLIEN,0),"^",3),TYPE="Credit Stop Code" D STOP^ECXSTOP(CODE2,TYPE,CLIEN,DATE)
+"RTN","ECXSCX3",44,0)
+ . S CODE3=$P(^ECX(728.44,CLIEN,0),"^",4),TYPE="DSS Stop Code" D STOP^ECXSTOP(CODE3,TYPE,CLIEN,DATE)
+"RTN","ECXSCX3",45,0)
+ . S CODE4=$P(^ECX(728.44,CLIEN,0),"^",5),TYPE="DSS Credit Stop Code" D STOP^ECXSTOP(CODE4,TYPE,CLIEN,DATE)
+"RTN","ECXSCX3",46,0)
+ . S CODE5=$P(^ECX(728.44,CLIEN,0),"^",8),TYPE="DSS 4CHAR National Code" D STOP^ECXSTOP(CODE5,TYPE,CLIEN,DATE) ;144 CVW
+"RTN","ECXSCX3",47,0)
+ . I $D(ECXERR)!($D(WARNING)) S TOT=TOT+1 D Q:QUIT
+"RTN","ECXSCX3",48,0)
+ . . I (CODE5'="")&($$GET1^DIQ(728.441,CODE5,.01)'="") S CODE5=$$GET1^DIQ(728.441,CODE5,.01)
+"RTN","ECXSCX3",49,0)
+ . . I $G(ECXPORT) D Q ;144
+"RTN","ECXSCX3",50,0)
+ . . . S ^TMP($J,"ECXPORT",CNT)=CLIEN_"^"_CLNAME_"^"_$G(CODE1)_"^"_$G(CODE2)_"^"_$G(CODE3)_"^"_$G(CODE4)_"^"_$G(CODE5)_"^" ;144
+"RTN","ECXSCX3",51,0)
+ . . . S NUM=0 F I=1:1:3 S:NUM'="" NUM=$O(ECXERR(NUM)) S ^TMP($J,"ECXPORT",CNT)=^TMP($J,"ECXPORT",CNT)_$S(NUM'="":$G(ECXERR(NUM)),1:"")_"^" ;144
+"RTN","ECXSCX3",52,0)
+ . . . S NUM=+$O(WARNING(0)) S ^TMP($J,"ECXPORT",CNT)=^TMP($J,"ECXPORT",CNT)_$G(WARNING(NUM)),CNT=CNT+1 ;144
+"RTN","ECXSCX3",53,0)
+ . . I $Y>(IOSL-5) D HEAD
+"RTN","ECXSCX3",54,0)
+ . . W !!,CLIEN,?6,CLNAME,?46,$G(CODE1),?54,$G(CODE2),?62,$G(CODE3),?68,$G(CODE4),?75,$G(CODE5)
+"RTN","ECXSCX3",55,0)
+ . . I $D(ECXERR) W !,"ERRORS:" D
+"RTN","ECXSCX3",56,0)
+ . . . S I=0 F S I=$O(ECXERR(I)) Q:'I D Q:QUIT
+"RTN","ECXSCX3",57,0)
+ . . . . W !?6,ECXERR(I) D ADD
+"RTN","ECXSCX3",58,0)
+ . . I $D(WARNING) W !,"WARNINGS:" D
+"RTN","ECXSCX3",59,0)
+ . . . S I=0 F S I=$O(WARNING(I)) Q:'I D Q:QUIT
+"RTN","ECXSCX3",60,0)
+ . . . . W !?6,WARNING(I) D ADD
+"RTN","ECXSCX3",61,0)
+ Q:QUIT!($G(ECXPORT)) ;144
+"RTN","ECXSCX3",62,0)
+ ;
+"RTN","ECXSCX3",63,0)
+OUT ;
+"RTN","ECXSCX3",64,0)
+ I TOT'>0 W !!!?6,"NO PROBLEMS FOUND."
+"RTN","ECXSCX3",65,0)
+ E W !!!,?10,TOT," PROBLEM CLINICS FOUND."
+"RTN","ECXSCX3",66,0)
+ W:$Y @IOF D ^%ZISC S ZTREQ="@"
+"RTN","ECXSCX3",67,0)
+ K QFLG,PG,LN,ECXERR,WARNING
+"RTN","ECXSCX3",68,0)
+ D ^ECXKILL
+"RTN","ECXSCX3",69,0)
+ Q
+"RTN","ECXSCX3",70,0)
+ ;
+"RTN","ECXSCX3",71,0)
+HEAD ; header for worksheet
+"RTN","ECXSCX3",72,0)
+ W:$E(IOST,1,2)["C-"!(PG>1) @IOF S PG=PG+1
+"RTN","ECXSCX3",73,0)
+ W !,"DSS CLINIC & STOP CODES VALIDITY REPORT",?71,"Page: ",PG
+"RTN","ECXSCX3",74,0)
+ W !!,"IEN#",?6,"CLINIC NAME",?46,"PRIM",?54,"2NDARY",?62,"DSS",?68,"DSS",?75,"DSS" ;144 CVW
+"RTN","ECXSCX3",75,0)
+ W !?46,"STOP",?54,"CREDIT",?62,"PRIM",?68,"2NDARY",?75,"4CHAR" ;144 CVW
+"RTN","ECXSCX3",76,0)
+ W !?46,"CODE",?54,"STOP",?62,"STOP",?68,"CREDIT",?75,"NATL" ;144 CVW
+"RTN","ECXSCX3",77,0)
+ W !?54,"CODE",?62,"CODE",?68,"CODE",?75,"CODE" ;144 CVW
+"RTN","ECXSCX3",78,0)
+ W !,LN
+"RTN","ECXSCX3",79,0)
+ Q
+"RTN","ECXSCX3",80,0)
+ ;
+"RTN","ECXSCX3",81,0)
+PAUSE N DIR,DIRUT,X,Y
+"RTN","ECXSCX3",82,0)
+ F Q:$Y>(IOSL-3) W !
+"RTN","ECXSCX3",83,0)
+ S DIR(0)="E"
+"RTN","ECXSCX3",84,0)
+ D ^DIR
+"RTN","ECXSCX3",85,0)
+ I ('(+Y))!($D(DIRUT)) S QUIT=1
+"RTN","ECXSCX3",86,0)
+ Q
+"RTN","ECXSCX3",87,0)
+ADD I $E(IOST,1,2)="C-",($Y>(IOSL-5)) D
+"RTN","ECXSCX3",88,0)
+ . D PAUSE Q:QUIT
+"RTN","ECXSCX3",89,0)
+ . D HEAD
+"RTN","ECXSCX3",90,0)
+ I $E(IOST,1,2)'="C-",($Y>(IOSL-5)) D HEAD
+"RTN","ECXSCX3",91,0)
+ Q
+"RTN","ECXSCX3",92,0)
+ ;
+"RTN","ECXSCXN")
+0^20^B86877891^B73018945
+"RTN","ECXSCXN",1,0)
+ECXSCXN ;ALB/JAP Clinic Extract ;4/16/13 11:27
+"RTN","ECXSCXN",2,0)
+ ;;3.0;DSS EXTRACTS;**24,27,29,30,31,32,33,39,46,49,52,71,84,92,107,105,120,124,127,132,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXSCXN",3,0)
+ ;
+"RTN","ECXSCXN",4,0)
+BEG ;entry point from option
+"RTN","ECXSCXN",5,0)
+ D SETUP Q:ECFILE="" D ^ECXTRAC,^ECXKILL
+"RTN","ECXSCXN",6,0)
+ Q
+"RTN","ECXSCXN",7,0)
+ ;
+"RTN","ECXSCXN",8,0)
+START ;entry point from taskmgr
+"RTN","ECXSCXN",9,0)
+ N DIC,EXNUM,I,LOCARR,OUT,P1,P2,P3,PROCESS,SOURCE,STOP,STAT,TOSEND
+"RTN","ECXSCXN",10,0)
+ N TIU,X,Y,ECXNPRFI
+"RTN","ECXSCXN",11,0)
+ N ECXICD10P,ECXICD101,ECXICD102,ECXICD103,ECXICD104
+"RTN","ECXSCXN",12,0)
+ F I=1:1:8 S @("ECXCPT"_I)=""
+"RTN","ECXSCXN",13,0)
+ F I=1:1:4 S @("ECXICD9"_I)=""
+"RTN","ECXSCXN",14,0)
+ F I=1:1:4 S @("ECXICD10"_I)=""
+"RTN","ECXSCXN",15,0)
+ S (OUT,QFLG,ECRN)=0,(ECXICD9P,ECXOBI,ECXICD10P)=""
+"RTN","ECXSCXN",16,0)
+ K ^TMP($J,"ECXS"),^TMP($J,"ECXCL"),^TMP($J,"SDAMA301") ;136
+"RTN","ECXSCXN",17,0)
+ ;get ien for tiu in file #839.7
+"RTN","ECXSCXN",18,0)
+ S DIC="^PX(839.7,",DIC(0)="X",X="TEXT INTEGRATION UTILITIES"
+"RTN","ECXSCXN",19,0)
+ D ^DIC S TIU=+Y,ECED=ECED+.3,ECXCLIN=0 K DIC,Y
+"RTN","ECXSCXN",20,0)
+ ;get clinic default appt length, type, division
+"RTN","ECXSCXN",21,0)
+ F S ECXCLIN=$O(^SC(ECXCLIN)) Q:'ECXCLIN D
+"RTN","ECXSCXN",22,0)
+ .K LOCARR S DIC=44,DA=ECXCLIN,DR="2;3.5;1912",DIQ(0)="I",DIQ="LOCARR"
+"RTN","ECXSCXN",23,0)
+ .D EN^DIQ1
+"RTN","ECXSCXN",24,0)
+ .Q:$G(LOCARR(44,ECXCLIN,2,"I"))'="C"
+"RTN","ECXSCXN",25,0)
+ .S ALEN=+$G(LOCARR(44,ECXCLIN,1912,"I"))
+"RTN","ECXSCXN",26,0)
+ .S ^TMP($J,"ECXCL",ECXCLIN)=ALEN,ALEN=$$RJ^XLFSTR(ALEN,3,0)
+"RTN","ECXSCXN",27,0)
+ .S ^TMP($J,"ECXCL",ECXCLIN)=^TMP($J,"ECXCL",ECXCLIN)_"^"_ALEN_"^"_$G(LOCARR(44,ECXCLIN,2,"I"))_"^"_+$G(LOCARR(44,ECXCLIN,3.5,"I"))
+"RTN","ECXSCXN",28,0)
+ .D FEEDER^ECXSCX1(ECXCLIN,ECSD1,.P1,.P2,.P3,.TOSEND,.ECXDIV)
+"RTN","ECXSCXN",29,0)
+ .K P1,P2,P3,TOSEND,ECXDIV
+"RTN","ECXSCXN",30,0)
+ ;get from file #44 any no-shows & get encounters from #409.68
+"RTN","ECXSCXN",31,0)
+ D NOSHOW^ECXSCXN1(ECSD1,ECED),ENCNTR(ECSD1,ECED)
+"RTN","ECXSCXN",32,0)
+ ;send missing clinic msg
+"RTN","ECXSCXN",33,0)
+ D:$D(^TMP($J,"ECXS")) EN^ECXSCX1
+"RTN","ECXSCXN",34,0)
+ K ^TMP($J,"ECXS"),^TMP($J,"ECXCL"),^TMP($J,"SDAMA301") ;136
+"RTN","ECXSCXN",35,0)
+ Q
+"RTN","ECXSCXN",36,0)
+ ;
+"RTN","ECXSCXN",37,0)
+ENCNTR(ECSD1,ECED) ;search file #409.68 for encounter data
+"RTN","ECXSCXN",38,0)
+ N CHKOUT,ECD,STAT,STOP,MDIV,ECXEDIS,CNT,ECXARR,NODE ;136
+"RTN","ECXSCXN",39,0)
+ N ECXESC,ECXECL,ECXCLST
+"RTN","ECXSCXN",40,0)
+ S ECD=ECSD1
+"RTN","ECXSCXN",41,0)
+ F S ECD=$O(^SCE("B",ECD)) Q:('ECD!(ECD>ECED))!(QFLG) S ECXIEN=0 D
+"RTN","ECXSCXN",42,0)
+ .F S ECXIEN=$O(^SCE("B",ECD,ECXIEN)) Q:'ECXIEN D Q:QFLG
+"RTN","ECXSCXN",43,0)
+ ..Q:'$D(^SCE(ECXIEN,0))
+"RTN","ECXSCXN",44,0)
+ ..D INTPAT^ECXSCX2 K LOCARR S DIC=409.68,DA=ECXIEN
+"RTN","ECXSCXN",45,0)
+ ..S DR=".01;.02;.03;.04;.05;.06;.07;.08;.11;.12;.13",DIQ(0)="I",DIQ="LOCARR"
+"RTN","ECXSCXN",46,0)
+ ..D EN^DIQ1
+"RTN","ECXSCXN",47,0)
+ ..S ECXTI=$P($$FMTE^XLFDT(+$G(LOCARR(409.68,ECXIEN,.01,"I")),1),"@",2)
+"RTN","ECXSCXN",48,0)
+ ..S ECXTI=$E(($TR(ECXTI,":","")_"000000"),1,6)
+"RTN","ECXSCXN",49,0)
+ ..S:ECXTI="000000" ECXTI="000300" S MDIV=+$G(LOCARR(409.68,ECXIEN,.11,"I"))
+"RTN","ECXSCXN",50,0)
+ ..S STOP=+$G(LOCARR(409.68,ECXIEN,.03,"I"))
+"RTN","ECXSCXN",51,0)
+ ..S CHKOUT=+$G(LOCARR(409.68,ECXIEN,.07,"I"))
+"RTN","ECXSCXN",52,0)
+ ..S PROCESS=+$G(LOCARR(409.68,ECXIEN,.08,"I"))
+"RTN","ECXSCXN",53,0)
+ ..S STAT=$G(LOCARR(409.68,ECXIEN,.12,"I"))
+"RTN","ECXSCXN",54,0)
+ ..S ECXDFN=+$G(LOCARR(409.68,ECXIEN,.02,"I"))
+"RTN","ECXSCXN",55,0)
+ ..Q:(ECXDFN=0)!('CHKOUT)
+"RTN","ECXSCXN",56,0)
+ ..S:STAT="" STAT="ZZ" S STAT=";"_STAT_";"
+"RTN","ECXSCXN",57,0)
+ ..Q:";3;4;5;6;7;9;10;13;"[STAT
+"RTN","ECXSCXN",58,0)
+ ..Q:('STOP)!(PROCESS=4)!(+$G(LOCARR(409.68,ECXIEN,.06,"I")))
+"RTN","ECXSCXN",59,0)
+ ..S ECXDATE=+$G(LOCARR(409.68,ECXIEN,.01,"I"))
+"RTN","ECXSCXN",60,0)
+ ..S ECXCLIN=+$G(LOCARR(409.68,ECXIEN,.04,"I"))
+"RTN","ECXSCXN",61,0)
+ ..Q:$P($G(^TMP($J,"ECXCL",ECXCLIN)),U,3)'="C"
+"RTN","ECXSCXN",62,0)
+ ..S ECXVISIT=+$G(LOCARR(409.68,ECXIEN,.05,"I"))
+"RTN","ECXSCXN",63,0)
+ ..S ECXENEL=+$G(LOCARR(409.68,ECXIEN,.13,"I"))
+"RTN","ECXSCXN",64,0)
+ ..Q:'ECXVISIT
+"RTN","ECXSCXN",65,0)
+ ..S ECXERR=0
+"RTN","ECXSCXN",66,0)
+ ..D PAT1^ECXSCX2(ECXDFN,ECXDATE,.ECXERR) Q:ECXERR
+"RTN","ECXSCXN",67,0)
+ ..D FEEDER^ECXSCX1(ECXCLIN,ECSD1,.P1,.P2,.P3,.TOSEND,.ECXDIV)
+"RTN","ECXSCXN",68,0)
+ ..Q:TOSEND=6
+"RTN","ECXSCXN",69,0)
+ ..K LOCARR S DIC=40.7,DA=STOP,DR="1",DIQ(0)="I",DIQ="LOCARR" D EN^DIQ1
+"RTN","ECXSCXN",70,0)
+ ..S ECXSTOP=$$RJ^XLFSTR($G(LOCARR(40.7,STOP,1,"I")),3,0)
+"RTN","ECXSCXN",71,0)
+ ..; ******* - PATCH 127, ADD PATCAT CODE ********
+"RTN","ECXSCXN",72,0)
+ ..S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXSCXN",73,0)
+ ..;get date specific patient data
+"RTN","ECXSCXN",74,0)
+ ..D PAT2^ECXSCX2(ECXDFN,ECXDATE)
+"RTN","ECXSCXN",75,0)
+ ..;get national patient record flag if exist
+"RTN","ECXSCXN",76,0)
+ ..D NPRF^ECXUTL5
+"RTN","ECXSCXN",77,0)
+ ..;get visit specific data
+"RTN","ECXSCXN",78,0)
+ ..S ECXERR=0 D VISIT^ECXSCX1(ECXDFN,ECXVISIT,.ECXVIST,.ECXERR) Q:ECXERR
+"RTN","ECXSCXN",79,0)
+ ..F I=1:1:8 S @("ECXCPT"_I)=$G(ECXVIST("CPT"_I))
+"RTN","ECXSCXN",80,0)
+ ..S ECXICD9P=$G(ECXVIST("ICD9P"))
+"RTN","ECXSCXN",81,0)
+ ..F I=1:1:4 S @("ECXICD9"_I)=$G(ECXVIST("ICD9"_I))
+"RTN","ECXSCXN",82,0)
+ ..S SOURCE=ECXVIST("SOURCE"),ECXAO=ECXVIST("AO"),ECXIR=ECXVIST("IR")
+"RTN","ECXSCXN",83,0)
+ ..S ECXMIL=ECXVIST("MST"),ECXPROV=ECXVIST("PROV"),ECXSHAD=ECXVIST("SHAD")
+"RTN","ECXSCXN",84,0)
+ ..S ECXECL=ECXVIST("ENCCL"),ECXESC=ECXVIST("ENCSC") ;144
+"RTN","ECXSCXN",85,0)
+ ..S ECPRNPI=$$NPI^XUSNPI("Individual_ID",ECXPROV,ECXDATE)
+"RTN","ECXSCXN",86,0)
+ ..S:+ECPRNPI'>0 ECPRNPI="" S ECPRNPI=$P(ECPRNPI,U)
+"RTN","ECXSCXN",87,0)
+ ..S ECXPROVP=ECXVIST("PROV CLASS"),ECXPROVN=ECXVIST("PROV NPI")
+"RTN","ECXSCXN",88,0)
+ ..F I=1:1:7 S @("ECSP"_I)=$P($G(ECXVIST("PROVS"_I)),U) ;144 2 new prov
+"RTN","ECXSCXN",89,0)
+ ..F I=1:1:7 S @("ECSPPC"_I)=$P($G(ECXVIST("PROVS"_I)),U,2) ;144 2 new person class
+"RTN","ECXSCXN",90,0)
+ ..F I=1:1:7 S @("ECSPNPI"_I)=$P($G(ECXVIST("PROVS"_I)),U,3) ;144 2 new NPI
+"RTN","ECXSCXN",91,0)
+ ..S ECXECE=ECXVIST("PGE"),ECXHNC=ECXVIST("HNC")
+"RTN","ECXSCXN",92,0)
+ ..K LOCARR S DIC=8,DA=ECXENEL,DR="8",DIQ(0)="I",DIQ="LOCARR" D EN^DIQ1
+"RTN","ECXSCXN",93,0)
+ ..S ECXENEL=+$G(LOCARR(8,ECXENEL,8,"I"))
+"RTN","ECXSCXN",94,0)
+ ..S:ECXENEL ECXENEL=$$ELIG^ECXUTL3(ECXENEL,ECXSVC)
+"RTN","ECXSCXN",95,0)
+ ..S ECXCBOC=$S(MDIV'="":$$CBOC^ECXSCX2(.MDIV),1:"") ;is cboc facility?
+"RTN","ECXSCXN",96,0)
+ ..S ECXEDIS=$$EDIS^ECXUTL1(ECXDFN,ECD,"C",ECXVISIT,ECXSTOP) ;136 Set emergency room disposition
+"RTN","ECXSCXN",97,0)
+ ..;setup feeder key and file in extract records
+"RTN","ECXSCXN",98,0)
+ ..S (ECXKEY,ECXDSSD)=""
+"RTN","ECXSCXN",99,0)
+ ..;xray (105) or lab (108)
+"RTN","ECXSCXN",100,0)
+ ..I (ECXSTOP=105)!(ECXSTOP=108) D Q
+"RTN","ECXSCXN",101,0)
+ ...S ECXKEY=ECXSTOP_"00003000000",ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY)
+"RTN","ECXSCXN",102,0)
+ ...S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE ;- Don't file rec if no encounter num
+"RTN","ECXSCXN",103,0)
+ ..;appointments
+"RTN","ECXSCXN",104,0)
+ ..I PROCESS=1 D Q ;get appt length 136 Section changed to use SDAMA301 call
+"RTN","ECXSCXN",105,0)
+ ...N CNT,ECXARR
+"RTN","ECXSCXN",106,0)
+ ...K ^TMP($J,"SDAMA301")
+"RTN","ECXSCXN",107,0)
+ ...S ECXARR(1)=ECXDATE_";"_ECXDATE,ECXARR(2)=ECXCLIN,ECXARR(4)=ECXDFN,ECXARR("FLDS")="5;7;10;18" S CNT=$$SDAPI^SDAMA301(.ECXARR)
+"RTN","ECXSCXN",108,0)
+ ...Q:CNT=0 I CNT=-1 D ERR^ECXUTL1 S QFLG=1 Q ;Stop if no appts (CNT=0) send error message and stop extract if CNT=-1 (system error)
+"RTN","ECXSCXN",109,0)
+ ...S NODE=^TMP($J,"SDAMA301",ECXDFN,ECXCLIN,ECXDATE)
+"RTN","ECXSCXN",110,0)
+ ...S ECXOBI=$S($P(NODE,U,7)="Y":"O",1:"") ;convert overbook indicator from Y to O otherwise send null
+"RTN","ECXSCXN",111,0)
+ ...S ALEN=$$RJ^XLFSTR($P(NODE,U,5),3,0)
+"RTN","ECXSCXN",112,0)
+ ...S:+ALEN=0 ALEN=$P($G(^TMP($J,"ECXDL",ECXCLIN)),U,2)
+"RTN","ECXSCXN",113,0)
+ ...S ECXSTOP=P1
+"RTN","ECXSCXN",114,0)
+ ...S ECXPVST=+$P(NODE,U,18),ECXATYP=+$P(NODE,U,10)
+"RTN","ECXSCXN",115,0)
+ ...I TOSEND'=3 D
+"RTN","ECXSCXN",116,0)
+ ....S ECXKEY=P1_P2_ALEN_P3_"0",ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY)
+"RTN","ECXSCXN",117,0)
+ ....S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE
+"RTN","ECXSCXN",118,0)
+ ...I TOSEND=3 D
+"RTN","ECXSCXN",119,0)
+ ....S ECXKEY=P1_"000"_ALEN_P3_"0",ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY)
+"RTN","ECXSCXN",120,0)
+ ....S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE
+"RTN","ECXSCXN",121,0)
+ ...I TOSEND=3 D
+"RTN","ECXSCXN",122,0)
+ ....S ECXKEY=P2_"000"_ALEN_P3_"0",ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY)
+"RTN","ECXSCXN",123,0)
+ ....S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE
+"RTN","ECXSCXN",124,0)
+ ..I PROCESS=2 D Q
+"RTN","ECXSCXN",125,0)
+ ...S ALEN=0
+"RTN","ECXSCXN",126,0)
+ ...I SOURCE=TIU S ALEN=$P($G(^TMP($J,"ECXCL",ECXCLIN)),U,2)
+"RTN","ECXSCXN",127,0)
+ ...S:+ALEN=0 ALEN="030" S ECXKEY=P1_P2_ALEN_P3_"0",ECXSTOP=P1
+"RTN","ECXSCXN",128,0)
+ ...S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY)
+"RTN","ECXSCXN",129,0)
+ ...S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE
+"RTN","ECXSCXN",130,0)
+ ..;dispositions
+"RTN","ECXSCXN",131,0)
+ ..I PROCESS=3 D Q
+"RTN","ECXSCXN",132,0)
+ ...S ECXKEY=ECXSTOP_"47906000000",ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY)
+"RTN","ECXSCXN",133,0)
+ ...S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE
+"RTN","ECXSCXN",134,0)
+ Q
+"RTN","ECXSCXN",135,0)
+ ;
+"RTN","ECXSCXN",136,0)
+FILE ;record setup for file #727.827
+"RTN","ECXSCXN",137,0)
+ ;NODE(0)
+"RTN","ECXSCXN",138,0)
+ ;Sequence Number,Year Month, Extract Number (EC23)^facility (ECXDIV)^
+"RTN","ECXSCXN",139,0)
+ ;dfn (ECXDFN)^ssn (ECXSSN)^name (ECXPNM)^
+"RTN","ECXSCXN",140,0)
+ ;in/out (ECXA)^Day $$ECXDATE^ECXUTL(ECXDATE,ECXYM)^Feeder Key (ECXKEY) ^
+"RTN","ECXSCXN",141,0)
+ ;Overbooked Indicator (ECXOBI)^Clinic Name (ECXCLIN)^Treating Specialty (ECXTSC) ^
+"RTN","ECXSCXN",142,0)
+ ;Time (ECXTI)^Primary Care Team (ECPTTM)^primary care provider(ECPTPR)^
+"RTN","ECXSCXN",143,0)
+ ;Primary Care PRV Person Class(ECCLAS)^Provider (ECXPROV)^
+"RTN","ECXSCXN",144,0)
+ ;provider person class (ECPROVP)^CPT Code Qty & Modifiers #1 (ECXCPT1)^
+"RTN","ECXSCXN",145,0)
+ ;CPT Code Qty & Modifiers #3 (ECXCPT3)^CPT Code Qty & Modifiers #3 (ECXCPT3)^
+"RTN","ECXSCXN",146,0)
+ ;CPT Code Qty & Modifiers #4 (ECXCPT4)^CPT Code Qty & Modifiers #5 (ECXCPT5)^
+"RTN","ECXSCXN",147,0)
+ ;NODE(1)
+"RTN","ECXSCXN",148,0)
+ ;CPT Code Qty & Modifiers #6 (ECXCPT6)^CPT Code Qty & Modifiers #7 (ECXCPT7)^
+"RTN","ECXSCXN",149,0)
+ ;CPT Code Qty & Modifiers #8 (ECXCPT8)^Primary ICD9 Code (ECXICD9P)^
+"RTN","ECXSCXN",150,0)
+ ;Secondary ICD9 Code 1 (ECXICD91)^Secondary ICD9 Code 2 (ECXICD92)
+"RTN","ECXSCXN",151,0)
+ ;Secondary ICD9 Code 3 (ECXICD93)^Secondary ICD9 Code 4 (ECXICD94)
+"RTN","ECXSCXN",152,0)
+ ;date of birth (ECDOB)^Eligibility (ECXELIG)^Veteran (ECXVET)^
+"RTN","ECXSCXN",153,0)
+ ;Race (ECXRACE)^POW status (ECXPST)^POW Location (ECXPLOC)^ Radiation Status(ECXRST)^
+"RTN","ECXSCXN",154,0)
+ ;Radiation Encounter Indicator (ECXIR)^Agent Orange Status (ECXAST)^
+"RTN","ECXSCXN",155,0)
+ ;Agent Orange Location(ECXAO)^Master Patient Index ((ECXMPI)^DSS Product Department (ECXDSSD)^
+"RTN","ECXSCXN",156,0)
+ ;Sex (ECXSEX)^zip code (ECXZIP)^Place Holder^Place Holder^Encounter Eligibility (ECXENEL)^
+"RTN","ECXSCXN",157,0)
+ ;MST Status(ECXMST)^MST Encounter Indicator (ECXMIL)^Place Holder^Place Holder^
+"RTN","ECXSCXN",158,0)
+ ;Enrollment Location ((ECXENRL)^State (ECXSTATE)^County (ECXCNTY)^
+"RTN","ECXSCXN",159,0)
+ ;Associate PC Provider (ECASPR)^Associate PC Prov. Person Class (ECCLAS2)^Place Holder^
+"RTN","ECXSCXN",160,0)
+ ;DOM, PRRTP AND SAARTP Indicator (ECXDOM)^ Enrollment Category (ECXCAT)^
+"RTN","ECXSCXN",161,0)
+ ;NODE(2)
+"RTN","ECXSCXN",162,0)
+ ;Enrollment Status (ECXSTAT)^ SHAD Status (ECXPRIOR or ECXSHADI) ^
+"RTN","ECXSCXN",163,0)
+ ;Purple Heart Indicator (ECXPHI)^Period of Service (ECXPOS)^
+"RTN","ECXSCXN",164,0)
+ ;Observation Patient Indicator (ECXOBS)^ Encounter Number (ECXENC)^
+"RTN","ECXSCXN",165,0)
+ ;Agent Orange Location (ECXAOL)^Production Division Code (ECXPDIV)^ Appointment Type (ECXATYP)^
+"RTN","ECXSCXN",166,0)
+ ;Purpose of Visit (ECXPVST)^Means Test (ECXMTST)^Head & Neck Cancer Indicator (ECXHNCI)^
+"RTN","ECXSCXN",167,0)
+ ;Ethnicity(ECXETH)^Race 1(ECXRC1)^CBOC Status (ECXCBOC)^Place Holder^Enrollment Priority (ECXPRIOR_ECXSBGRP)^
+"RTN","ECXSCXN",168,0)
+ ;User Enrollee (ECXUESTA)^ Patient Type(ECXPTYPE)^CV Status Eligibility (ECXCVE)^
+"RTN","ECXSCXN",169,0)
+ ;CV Eligibility End Date (ECXCVEDT)^Encounter CV (ECXCVENC)^National Patient Record Flag (ECXNPRFI)^
+"RTN","ECXSCXN",170,0)
+ ;SW Asia Conditions (ECXEST)^Encounter SWAC (ECXECE)^ERI (ECXERI)^Enc Head/Neck CA (ECXHNC)^
+"RTN","ECXSCXN",171,0)
+ ;OEF/OIF (ECXOEF)^ OEF/OIF Return Date (ECXOEFDT)^Associate PC Provider NPI (ECASNPI)^
+"RTN","ECXSCXN",172,0)
+ ;Primary Care Provider NPI (ECPTNPI)^Provider NPI(ECPRNPI)^
+"RTN","ECXSCXN",173,0)
+ ;NODE(3)
+"RTN","ECXSCXN",174,0)
+ ;Country Code (ECXCNTRY)^Encounter SHAD (ECXSHAD)^PATCAT (ECXPATCAT)^Secondary Provider #1 (ECSP1)^
+"RTN","ECXSCXN",175,0)
+ ;Secondary Provider #1 PC (ECSPPC1)^Secondary Provider #1 NPI (ECSPNPI1)^Secondary Provider #2 (ECSP2)^
+"RTN","ECXSCXN",176,0)
+ ;Secondary Provider #2 PC (ECSPPC2)^Secondary Provider #2 NPI (ECSPNPI2)^Secondary Provider #3 (ECSP3)^
+"RTN","ECXSCXN",177,0)
+ ;Secondary Provider #3 PC (ECSPPC3)^Secondary Provider #3 NPI (ECSPNPI3)^Secondary Provider #4 (ECSP4)^
+"RTN","ECXSCXN",178,0)
+ ;Secondary Provider #4 PC (ECSPPC4)^Secondary Provider #4 NPI (ECSPNPI4)^Secondary Provider #5 (ECSP5)^
+"RTN","ECXSCXN",179,0)
+ ;Secondary Provider #5 PC (ECSPPC5)^Secondary Provider #5 NPI (ECSPNPI5)^
+"RTN","ECXSCXN",180,0)
+ ;ED Disposition Code (ECXEDIS)^Primary ICD-10 Code (ECXICD10P)^Secondary ICD-10 Code #1 (ECXICD101)^
+"RTN","ECXSCXN",181,0)
+ ;Secondary ICD-10 Code #2 (ECXICD102)^Secondary ICD-10 Code #3 (ECXICD103)^Secondary ICD-10 Code #4 (ECXICD104)^
+"RTN","ECXSCXN",182,0)
+ ;Encounter SC (ECXESC)^Vietnam (ECXVNS)^Secondary Provider #6 (ECSP6)^Secondary Provider #6 PC (ECSPPC6)^
+"RTN","ECXSCXN",183,0)
+ ;Secondary Provider #6 NPI (ECSPNPI6)^
+"RTN","ECXSCXN",184,0)
+ ;NODE(4)
+"RTN","ECXSCXN",185,0)
+ ;Secondary Provider #7 (ECSP7)^Secondary Provider #7 PC (ECSPPC7)^Secondary Provider #7 NPI (ECSPNPI7)^
+"RTN","ECXSCXN",186,0)
+ ;Camp Lejeune Status (ECXCLST)^Encounter Camp Lejeune (ECXECL)
+"RTN","ECXSCXN",187,0)
+ ;
+"RTN","ECXSCXN",188,0)
+ N STR
+"RTN","ECXSCXN",189,0)
+ S ECXPDIV=$$GETDIV^ECXDEPT(ECXDIV) ; Get production division
+"RTN","ECXSCXN",190,0)
+ S EC7=$O(^ECX(727.827,999999999),-1),EC7=EC7+1
+"RTN","ECXSCXN",191,0)
+ S STR(0)=EC7_U_EC23_U_ECXDIV_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U
+"RTN","ECXSCXN",192,0)
+ S STR(0)=STR(0)_$$ECXDATE^ECXUTL(ECXDATE,ECXYM)_U_ECXKEY_U_ECXOBI_U
+"RTN","ECXSCXN",193,0)
+ ;convert specialty to PTF Code for transmission
+"RTN","ECXSCXN",194,0)
+ N ECXDATA,ECXTSC
+"RTN","ECXSCXN",195,0)
+ S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA)
+"RTN","ECXSCXN",196,0)
+ S ECXTSC=$G(ECXDATA(7))
+"RTN","ECXSCXN",197,0)
+ ;done
+"RTN","ECXSCXN",198,0)
+ S STR(0)=STR(0)_ECXCLIN_U_ECXTSC_U_ECXTI_U_ECPTTM_U_ECPTPR_U_ECCLAS_U
+"RTN","ECXSCXN",199,0)
+ S STR(0)=STR(0)_ECXPROV_U_ECXPROVP_U_ECXCPT1_U_ECXCPT2_U_ECXCPT3_U
+"RTN","ECXSCXN",200,0)
+ S STR(0)=STR(0)_ECXCPT4_U_ECXCPT5_U
+"RTN","ECXSCXN",201,0)
+ S STR(1)=ECXCPT6_U_ECXCPT7_U_ECXCPT8_U_ECXICD9P_U_ECXICD91_U_ECXICD92_U
+"RTN","ECXSCXN",202,0)
+ S STR(1)=STR(1)_ECXICD93_U_ECXICD94_U_ECXDOB_U_ECXELIG_U_ECXVET_U
+"RTN","ECXSCXN",203,0)
+ S STR(1)=STR(1)_ECXRACE_U_ECXPST_U_ECXPLOC_U_ECXRST_U_ECXIR_U_ECXAST_U
+"RTN","ECXSCXN",204,0)
+ S STR(1)=STR(1)_ECXAO_U_ECXMPI_U_ECXDSSD_U_ECXSEX_U_ECXZIP_U
+"RTN","ECXSCXN",205,0)
+ S STR(1)=STR(1)_$G(ECXPCPNP)_U_U_ECXENEL_U_ECXMST_U
+"RTN","ECXSCXN",206,0)
+ S STR(1)=STR(1)_ECXMIL_U_U_U_ECXENRL_U_ECXSTATE_U
+"RTN","ECXSCXN",207,0)
+ S STR(1)=STR(1)_ECXCNTY_U_ECASPR_U_ECCLAS2_U_U_ECXDOM_U_ECXCAT_U
+"RTN","ECXSCXN",208,0)
+ S STR(2)=ECXSTAT_U_$S(ECXLOGIC<2005:ECXPRIOR,ECXLOGIC>2010:ECXSHADI,1:"")_U_ECXPHI_U_ECXPOS_U_ECXOBS_U_ECXENC_U
+"RTN","ECXSCXN",209,0)
+ S STR(2)=STR(2)_ECXAOL_U_ECXPDIV_U_ECXATYP_U_ECXPVST_U_ECXMTST_U
+"RTN","ECXSCXN",210,0)
+ S STR(2)=STR(2)_ECXHNCI_U_ECXETH_U_ECXRC1
+"RTN","ECXSCXN",211,0)
+ I ECXLOGIC>2003 S STR(2)=STR(2)_U_ECXCBOC
+"RTN","ECXSCXN",212,0)
+ I ECXLOGIC>2004 S STR(2)=STR(2)_U_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXNPRFI
+"RTN","ECXSCXN",213,0)
+ I ECXLOGIC>2005 S STR(2)=STR(2)_U_ECXEST_U_ECXECE
+"RTN","ECXSCXN",214,0)
+ I ECXLOGIC>2006 S STR(2)=STR(2)_U_ECXERI_U_ECXHNC
+"RTN","ECXSCXN",215,0)
+ I ECXLOGIC>2007 S STR(2)=STR(2)_U_ECXOEF_U_ECXOEFDT_U_ECASNPI_U_ECPTNPI_U_$G(ECPRNPI)_U
+"RTN","ECXSCXN",216,0)
+ I ECXLOGIC>2009 S STR(3)=ECXCNTRY
+"RTN","ECXSCXN",217,0)
+ ;added patcat status, N3 P3
+"RTN","ECXSCXN",218,0)
+ I ECXLOGIC>2010 S STR(3)=STR(3)_U_ECXSHAD_U_ECXPATCAT
+"RTN","ECXSCXN",219,0)
+ I ECXLOGIC>2011 S STR(3)=STR(3)_U_ECSP1_U_ECSPPC1_U_ECSPNPI1_U_ECSP2_U_ECSPPC2_U_ECSPNPI2_U_ECSP3_U_ECSPPC3_U_ECSPNPI3_U_ECSP4_U_ECSPPC4_U_ECSPNPI4_U_ECSP5_U_ECSPPC5_U_ECSPNPI5
+"RTN","ECXSCXN",220,0)
+ ;added icd-10 null for now
+"RTN","ECXSCXN",221,0)
+ I ECXLOGIC>2012 S STR(3)=STR(3)_U_$G(ECXEDIS)_U_ECXICD10P_U_ECXICD101_U_ECXICD102_U_ECXICD103_U_ECXICD104 ;136
+"RTN","ECXSCXN",222,0)
+ I ECXLOGIC>2013 S STR(3)=STR(3)_U_ECXESC_U_ECXVNS_U_ECSP6_U_ECSPPC6_U_ECSPNPI6_U ; 144
+"RTN","ECXSCXN",223,0)
+ I ECXLOGIC>2013 S STR(4)=ECSP7_U_ECSPPC7_U_ECSPNPI7_U_ECXCLST_U_ECXECL ; 144 new provider fields and camp lejeune fields
+"RTN","ECXSCXN",224,0)
+ D FILE2^ECXSCX2(727.827,EC7,.STR)
+"RTN","ECXSCXN",225,0)
+ S ECRN=ECRN+1,$P(^ECX(727.827,0),U,3)=EC7
+"RTN","ECXSCXN",226,0)
+ Q
+"RTN","ECXSCXN",227,0)
+ ;
+"RTN","ECXSCXN",228,0)
+SETUP ;set required input for ECXTRAC
+"RTN","ECXSCXN",229,0)
+ S ECHEAD="CLI"
+"RTN","ECXSCXN",230,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXSCXN",231,0)
+ Q
+"RTN","ECXSCXN1")
+0^48^B17063992^B14855625
+"RTN","ECXSCXN1",1,0)
+ECXSCXN1 ;ALB/JAP Clinic Extract No Shows; 8/28/02 1:11pm ;4/16/13 11:32
+"RTN","ECXSCXN1",2,0)
+ ;;3.0;DSS EXTRACTS;**71,105,127,132,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXSCXN1",3,0)
+NOSHOW(ECXSD,ECXED) ;get noshows from file #44
+"RTN","ECXSCXN1",4,0)
+ ; ECXSD = start date, ECXED = end date
+"RTN","ECXSCXN1",5,0)
+ N ALEN,CLIN,JDATE,JJ,NODE,NOSHOW,PP,STAT,MDIV,ECXEDIS,CNT,ECXARR,ECXSDSC,ECXEDSC ;136
+"RTN","ECXSCXN1",6,0)
+ N ECXECL,ECXESC,ECXCLST ;144 Call to INTPAT^ECXSCX2 sets variables to null. Call to PAT1^ECXSCX2 will set camp lejeune status when available. Encounter values remain null as appt is a no-show
+"RTN","ECXSCXN1",7,0)
+ S CLIN=0
+"RTN","ECXSCXN1",8,0)
+ F S CLIN=$O(^TMP($J,"ECXCL",CLIN)) Q:'CLIN!($G(QFLG)) D ;136
+"RTN","ECXSCXN1",9,0)
+ .Q:$P($G(^TMP($J,"ECXCL",CLIN)),U,3)'="C"
+"RTN","ECXSCXN1",10,0)
+ .S (P1,P2,P3)=""
+"RTN","ECXSCXN1",11,0)
+ .D FEEDER^ECXSCX1(CLIN,ECXSD,.P1,.P2,.P3,.TOSEND,.ECXDIV)
+"RTN","ECXSCXN1",12,0)
+ .Q:TOSEND=6
+"RTN","ECXSCXN1",13,0)
+ .;find appts in date range
+"RTN","ECXSCXN1",14,0)
+ .S ECXSDSC=ECXSD+.1,ECXEDSC=$P(ECXED,".") ;136 get dates back into correct fileman format
+"RTN","ECXSCXN1",15,0)
+ .S (ALEN,NOSHOW)="" ;136
+"RTN","ECXSCXN1",16,0)
+ .K ^TMP($J,"SDAMA301") ;136
+"RTN","ECXSCXN1",17,0)
+ .S ECXARR(1)=ECXSDSC_";"_ECXEDSC,ECXARR(2)=CLIN,ECXARR(3)="NS;NSR",ECXARR("FLDS")="5;7;10;12;18" ;136
+"RTN","ECXSCXN1",18,0)
+ .S CNT=$$SDAPI^SDAMA301(.ECXARR) ;136
+"RTN","ECXSCXN1",19,0)
+ .Q:CNT=0 I CNT=-1 D ERR^ECXUTL1 S QFLG=1 Q ;136 Stop if no data (CNT=0) and send error message if scheduling system down (CNT=-1)
+"RTN","ECXSCXN1",20,0)
+ .S JJ=0 F S JJ=$O(^TMP($J,"SDAMA301",CLIN,JJ)) Q:'+JJ S JDATE="" F S JDATE=$O(^TMP($J,"SDAMA301",CLIN,JJ,JDATE)) Q:'+JDATE D ;136
+"RTN","ECXSCXN1",21,0)
+ ..S ECXDATE=JDATE,ECXTI=$P($$FMTE^XLFDT(JDATE,1),"@",2) ;136
+"RTN","ECXSCXN1",22,0)
+ ..S ECXTI=$E(($TR(ECXTI,":","")_"000000"),1,6)
+"RTN","ECXSCXN1",23,0)
+ ..S:ECXTI="000000" ECXTI="000300"
+"RTN","ECXSCXN1",24,0)
+ ..S ECXDFN=JJ ;136
+"RTN","ECXSCXN1",25,0)
+ ..S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN) ;added in patch 127
+"RTN","ECXSCXN1",26,0)
+ ..S NODE=$G(^TMP($J,"SDAMA301",CLIN,JJ,JDATE)),MDIV=$P($G(^SC(CLIN,0)),U,15) ;136
+"RTN","ECXSCXN1",27,0)
+ ..Q:NODE="" ;136
+"RTN","ECXSCXN1",28,0)
+ ..S ECXSHAD=$$GETSHAD ;added in patch 127, finds shad status for appt
+"RTN","ECXSCXN1",29,0)
+ ..S ECXOBI=$S($P(NODE,U,7)="Y":"O",1:"") ;136
+"RTN","ECXSCXN1",30,0)
+ ..S NOSHOW="N" ;136 only no-show entries are returned from the SDAMA301 call
+"RTN","ECXSCXN1",31,0)
+ ..D INTPAT^ECXSCX2 S ECXERR=0
+"RTN","ECXSCXN1",32,0)
+ ..D PAT1^ECXSCX2(ECXDFN,ECXDATE,.ECXERR) Q:ECXERR
+"RTN","ECXSCXN1",33,0)
+ ..S ALEN=$$RJ^XLFSTR($P(NODE,U,5),3,0) ;136
+"RTN","ECXSCXN1",34,0)
+ ..D PAT2^ECXSCX2(ECXDFN,ECXDATE)
+"RTN","ECXSCXN1",35,0)
+ ..S ECXPVST=+$P(NODE,U,18),ECXATYP=+$P(NODE,U,10) ;136 Get POV & appt type
+"RTN","ECXSCXN1",36,0)
+ ..S:+ALEN=0 ALEN=$P($G(^TMP($J,"ECXCL",CLIN)),U,2)
+"RTN","ECXSCXN1",37,0)
+ ..S ECXCLIN=CLIN,ECXSTOP=P1
+"RTN","ECXSCXN1",38,0)
+ ..S ECXEDIS=$$EDIS^ECXUTL1(ECXDFN,ECXDATE,"N",,ECXSTOP) ;136
+"RTN","ECXSCXN1",39,0)
+ ..S:ECXCPT1="" ECXCPT1="9919901"
+"RTN","ECXSCXN1",40,0)
+ ..S ECXCBOC=$S(MDIV'="":$$CBOC^ECXSCX2(.MDIV),1:"")
+"RTN","ECXSCXN1",41,0)
+ ..S (ECXDSSD,ECXENEL,ECXIR,ECXAO,ECXMIL,ECXPROV,ECXPROVP,ECXPROVN)=""
+"RTN","ECXSCXN1",42,0)
+ ..F I=1:1:7 S (@("ECSP"_I),@("ECSPPC"_I),@("ECSPNPI"_I))="" ;144 2 new prov groups
+"RTN","ECXSCXN1",43,0)
+ ..I TOSEND'=3 D
+"RTN","ECXSCXN1",44,0)
+ ...S ECXKEY=P1_P2_ALEN_P3_NOSHOW,ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY)
+"RTN","ECXSCXN1",45,0)
+ ...S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE^ECXSCXN
+"RTN","ECXSCXN1",46,0)
+ ..I TOSEND=3 D
+"RTN","ECXSCXN1",47,0)
+ ...S ECXKEY=P1_"000"_ALEN_P3_NOSHOW,ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY)
+"RTN","ECXSCXN1",48,0)
+ ...S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE^ECXSCXN
+"RTN","ECXSCXN1",49,0)
+ ..I TOSEND=3 D
+"RTN","ECXSCXN1",50,0)
+ ...S ECXKEY=P2_"000"_ALEN_P3_NOSHOW,ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECXKEY)
+"RTN","ECXSCXN1",51,0)
+ ...S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXKEY,) D:ECXENC'="" FILE^ECXSCXN
+"RTN","ECXSCXN1",52,0)
+ ..;create a record for noshow appended ekg. The code was removed for CTX-0604-70970 CLI Extract Problem EXPANDED to NoShows
+"RTN","ECXSCXN1",53,0)
+ Q
+"RTN","ECXSCXN1",54,0)
+ ;GETSHAD section added with patch 127
+"RTN","ECXSCXN1",55,0)
+GETSHAD() ;Function returns shad value
+"RTN","ECXSCXN1",56,0)
+ N DIC,LOCARR,DA,DR,SHAD,ECXERR,ECXVIST
+"RTN","ECXSCXN1",57,0)
+ S SHAD=""
+"RTN","ECXSCXN1",58,0)
+ I '+$P($G(NODE),U,12) Q SHAD ;136 Quit if no outpatient encounter pointer
+"RTN","ECXSCXN1",59,0)
+ S DIC=409.68,DA=$P(NODE,U,12),DR=.05,DIQ(0)="I",DIQ="LOCARR" ;136
+"RTN","ECXSCXN1",60,0)
+ D EN^DIQ1
+"RTN","ECXSCXN1",61,0)
+ I $G(LOCARR(409.68,DA,.05,"I")) D
+"RTN","ECXSCXN1",62,0)
+ .S ECXERR=0
+"RTN","ECXSCXN1",63,0)
+ .D VISIT^ECXSCX1(ECXDFN,LOCARR(409.68,DA,.05,"I"),.ECXVIST,.ECXERR)
+"RTN","ECXSCXN1",64,0)
+ .I 'ECXERR S SHAD=ECXVIST("SHAD")
+"RTN","ECXSCXN1",65,0)
+ Q SHAD
+"RTN","ECXSTOP")
+0^18^B13978412^B11137426
+"RTN","ECXSTOP",1,0)
+ECXSTOP ;ALB/DHE Stop Codes/Clinic Stops ;5/9/13 16:05
+"RTN","ECXSTOP",2,0)
+ ;;3.0;DSS EXTRACTS;**120,126,144**;Dec 22, 1997;Build 9
+"RTN","ECXSTOP",3,0)
+ ;
+"RTN","ECXSTOP",4,0)
+STOP(CODE,TYPE,CLIEN,DATE,IEN) ;api to return stop code information
+"RTN","ECXSTOP",5,0)
+ ;
+"RTN","ECXSTOP",6,0)
+ ;input:
+"RTN","ECXSTOP",7,0)
+ ; code: stop code IEN in #40.7
+"RTN","ECXSTOP",8,0)
+ ; type: type REQUIRED (Stop Code, DSS Stop Code, Credit Stop Code, DSS Credit Stop Code)
+"RTN","ECXSTOP",9,0)
+ ; clien: clinic IEN in #728.44 (optional)
+"RTN","ECXSTOP",10,0)
+ ; date: date of action (default today) (optional)
+"RTN","ECXSTOP",11,0)
+ ; ien: ien from edit so lookup won't happen
+"RTN","ECXSTOP",12,0)
+ ;
+"RTN","ECXSTOP",13,0)
+ ;ecxerr(err) and warning(wrn) are existing arrays
+"RTN","ECXSTOP",14,0)
+ ;make sure they exist!
+"RTN","ECXSTOP",15,0)
+ ;
+"RTN","ECXSTOP",16,0)
+ N XCODE,INACT,RTYPE
+"RTN","ECXSTOP",17,0)
+ Q:'CODE
+"RTN","ECXSTOP",18,0)
+ Q:(TYPE="")
+"RTN","ECXSTOP",19,0)
+ S CLIEN=$G(CLIEN)
+"RTN","ECXSTOP",20,0)
+ I $G(DATE)="" S DATE=DT
+"RTN","ECXSTOP",21,0)
+ S ERR=$G(ERR)+1,WRN=$G(WRN)+1
+"RTN","ECXSTOP",22,0)
+ K:ERR=1 ECXERR K:WRN=1 WARNING
+"RTN","ECXSTOP",23,0)
+ I TYPE="DSS 4CHAR National Code" D Q ;144 CVW
+"RTN","ECXSTOP",24,0)
+ . I (CODE'="")&($$GET1^DIQ(728.441,CODE,3)'="") S ECXERR(ERR)=$$GET1^DIQ(728.441,CODE,.01)_" "_TYPE_" is inactive, please change to an active code." S ERR=ERR+1 ;144 CVW
+"RTN","ECXSTOP",25,0)
+ . I (CODE'="")&($$GET1^DIQ(728.441,CODE,.01)="") S ECXERR(ERR)=CODE_" "_TYPE_" is invalid, please change to a legal value." S ERR=ERR+1 ;144 CVW
+"RTN","ECXSTOP",26,0)
+ D:$G(IEN)="" FINDCOD I +IEN'>0 S ECXERR(ERR)=CODE_" is Invalid for "_TYPE S ERR=ERR+1 Q
+"RTN","ECXSTOP",27,0)
+ I '$D(^DIC(40.7,IEN,0)) S ECXERR(ERR)=CODE_" is Invalid for "_TYPE S ERR=ERR+1 Q
+"RTN","ECXSTOP",28,0)
+ I (+CODE'=CODE),($L(CODE)>3) S ECXERR(ERR)=CODE_" is an Invalid "_TYPE S ERR=ERR+1 Q
+"RTN","ECXSTOP",29,0)
+ S INACT=$P(^DIC(40.7,IEN,0),"^",3) I INACT,((DT>INACT)!(DT=INACT)) S ECXERR(ERR)=CODE_" is an Inactive "_TYPE S ERR=ERR+1
+"RTN","ECXSTOP",30,0)
+ S RTYPE=$P(^DIC(40.7,IEN,0),"^",6)
+"RTN","ECXSTOP",31,0)
+ I (TYPE="Stop Code"),(RTYPE'=("P"))&(RTYPE'=("E")) S ECXERR(ERR)=CODE_" This stop code can only be used in the secondary position." S ERR=ERR+1
+"RTN","ECXSTOP",32,0)
+ I TYPE="DSS Stop Code",(RTYPE'=("P"))&(RTYPE'=("E")) S ECXERR(ERR)=CODE_" This stop code can only be used in the secondary position." S ERR=ERR+1
+"RTN","ECXSTOP",33,0)
+ I TYPE="Credit Stop Code",(RTYPE'=("S"))&(RTYPE'=("E")) S ECXERR(ERR)=CODE_" This stop code can only be used in the primary position." S ERR=ERR+1
+"RTN","ECXSTOP",34,0)
+ I TYPE="DSS Credit Stop Code",(RTYPE'=("S"))&(RTYPE'=("E")) S ECXERR(ERR)=CODE_" This stop code can only be used in the primary position." S ERR=ERR+1
+"RTN","ECXSTOP",35,0)
+ ;I ($P(^DIC(40.7,IEN,0),"^",7)>DT) S WARNING(WRN)=CODE_" This "_TYPE_" has a Restriction Date in the future." S WRN=WRN+1
+"RTN","ECXSTOP",36,0)
+ I (TYPE="Stop Code"),$G(CLIEN),(CODE=$P(^ECX(728.44,CLIEN,0),"^",3)) S ECXERR(ERR)=CODE_" "_TYPE_" should not match Credit Stop Code." S ERR=ERR+1
+"RTN","ECXSTOP",37,0)
+ I (TYPE="DSS Stop Code"),$G(CLIEN),(CODE=$P(^ECX(728.44,CLIEN,0),"^",5)) S ECXERR(ERR)=CODE_" "_TYPE_" should not match DSS Credit Stop Code." S ERR=ERR+1
+"RTN","ECXSTOP",38,0)
+ ;WARNING ; check for inactivations in future
+"RTN","ECXSTOP",39,0)
+ I INACT>DT S WARNING(WRN)=CODE_" This "_TYPE_" has a pending Inactive Date." S WRN=WRN+1
+"RTN","ECXSTOP",40,0)
+ Q
+"RTN","ECXSTOP",41,0)
+FINDCOD ;find active code if one
+"RTN","ECXSTOP",42,0)
+ N ARRY,I,FLG,INACT
+"RTN","ECXSTOP",43,0)
+ S IEN=$O(^DIC(40.7,"C",CODE,0))
+"RTN","ECXSTOP",44,0)
+ I $O(^DIC(40.7,"C",CODE,IEN))'>0 Q
+"RTN","ECXSTOP",45,0)
+ ;must be some duplicates so find the best one
+"RTN","ECXSTOP",46,0)
+ S I=""
+"RTN","ECXSTOP",47,0)
+ F S I=$O(^DIC(40.7,"C",CODE,I)) Q:'I D
+"RTN","ECXSTOP",48,0)
+ . Q:'$D(^DIC(40.7,I,0))
+"RTN","ECXSTOP",49,0)
+ . S INACT=$P(^DIC(40.7,I,0),"^",3),FLG="A" D
+"RTN","ECXSTOP",50,0)
+ . . I INACT,((DT>INACT)!(DT=INACT)) S FLG="I"
+"RTN","ECXSTOP",51,0)
+ . S ARRY(FLG,I)=""
+"RTN","ECXSTOP",52,0)
+ I $D(ARRY("A")) S IEN=$O(ARRY("A",0))
+"RTN","ECXSTOP",53,0)
+ Q
+"RTN","ECXSURG")
+0^16^B76612966^B72092726
+"RTN","ECXSURG",1,0)
+ECXSURG ;ALB/JA,BIR/DMA,PTD-Surgery Extract for DSS ;4/17/13 11:43
+"RTN","ECXSURG",2,0)
+ ;;3.0;DSS EXTRACTS;**1,11,8,13,25,24,33,39,41,42,46,50,71,84,92,99,105,112,128,127,132,144**;Dec 22, 1997;Build 9
+"RTN","ECXSURG",3,0)
+BEG ;entry point from option
+"RTN","ECXSURG",4,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXSURG",5,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXSURG",6,0)
+ Q
+"RTN","ECXSURG",7,0)
+ ;
+"RTN","ECXSURG",8,0)
+START ;
+"RTN","ECXSURG",9,0)
+ K ^TMP($J,"ECXS"),^TMP($J,"ECXCL")
+"RTN","ECXSURG",10,0)
+ S QFLG=0,ECED=ECED+.3,ECD=ECSD1
+"RTN","ECXSURG",11,0)
+ F S ECD=$O(^SRF("AC",ECD)),ECD0=0 Q:('ECD)!(ECD>ECED)!(QFLG) D
+"RTN","ECXSURG",12,0)
+ .F S ECD0=$O(^SRF("AC",ECD,ECD0)) Q:'ECD0 D
+"RTN","ECXSURG",13,0)
+ ..I $D(^SRF(ECD0,0)) S EC=^SRF(ECD0,0),ECXDFN=+$P(EC,U),ECXVISIT=$P(EC,U,15) D STUFF Q:QFLG
+"RTN","ECXSURG",14,0)
+ K ^TMP($J,"ECXS"),^TMP($J,"ECXCL")
+"RTN","ECXSURG",15,0)
+ Q
+"RTN","ECXSURG",16,0)
+ ;
+"RTN","ECXSURG",17,0)
+STUFF ;gather data
+"RTN","ECXSURG",18,0)
+ N J,X,Y,PP,DATA1,DATA2,DATAOP,ARR,ERR,SUB,MOD,ECXNONL,ECXSTOP,TIMEDIF
+"RTN","ECXSURG",19,0)
+ N ECPRO,ECXORCT,ECXPTHA,ECXNPRFI,ECXPA,ECXPAPC,ECSRPC,ECATPC,ECSAPC
+"RTN","ECXSURG",20,0)
+ N ECXCRST,ECXSTCD,ECXCLIN,EC1A,EC2A,ECPQ,ECQA,EC1APC,EC2APC,ECPQPC
+"RTN","ECXSURG",21,0)
+ N ECQAPC,EC1ANPI,EC2ANPI,ECPQNPI,ECQANPI
+"RTN","ECXSURG",22,0)
+ N ECXORCET,ECXORCST,ECXTPOOR ;ECX*128
+"RTN","ECXSURG",23,0)
+ N ECICD10,ECICD101,ECICD102,ECICD103,ECICD104,ECICD105,ECXCONC ;ECX*144 CVW
+"RTN","ECXSURG",24,0)
+ N ECXCLST,ECXECL ;144
+"RTN","ECXSURG",25,0)
+ S (ECICD10,ECICD101,ECICD102,ECICD103,ECICD104,ECICD105)="" ;ECX*144 NULL FOR NOW
+"RTN","ECXSURG",26,0)
+ S ECXDATE=ECD,ECXERR=0,ECXQ="",ECXCONC=""
+"RTN","ECXSURG",27,0)
+ ;retrieve demographic variables
+"RTN","ECXSURG",28,0)
+ Q:'$$PATDEM^ECXUTL2(ECXDFN,ECXDATE,"1;2;3;5;")
+"RTN","ECXSURG",29,0)
+ I ECXADMDT="" S ECXADD=ECXADMDT
+"RTN","ECXSURG",30,0)
+ I ECXADMDT'="" S ECXADD=$$ECXDATE^ECXUTL(ECXADMDT,ECXYM)
+"RTN","ECXSURG",31,0)
+ S OK=$$PAT^ECXUTL3(ECXDFN,ECXDATE,"1;5",.ECXPAT)
+"RTN","ECXSURG",32,0)
+ I 'OK S ECXERR=1 K ECXPAT Q
+"RTN","ECXSURG",33,0)
+ ;OEF/OIF DATA
+"RTN","ECXSURG",34,0)
+ S ECXOEF=ECXPAT("ECXOEF")
+"RTN","ECXSURG",35,0)
+ S ECXOEFDT=ECXPAT("ECXOEFDT")
+"RTN","ECXSURG",36,0)
+ S ECXVNS=ECXPAT("VIETNAM") ; 144 Vietnam Status
+"RTN","ECXSURG",37,0)
+ S ECXCLST=ECXPAT("CL STAT") ;144
+"RTN","ECXSURG",38,0)
+ S EC0=^SRF(ECD0,0)
+"RTN","ECXSURG",39,0)
+ S DATA1=$S($D(^SRF(ECD0,.1)):^(.1),1:"")
+"RTN","ECXSURG",40,0)
+ S DATA2=$S($D(^SRF(ECD0,.2)):^(.2),1:"")
+"RTN","ECXSURG",41,0)
+ S DATAOP=$S($D(^SRO(136,ECD0,0)):^(0),1:"")
+"RTN","ECXSURG",42,0)
+ S ECNO=$G(^SRF(ECD0,"NON"))
+"RTN","ECXSURG",43,0)
+ ; if VISIT data exist get encounter data
+"RTN","ECXSURG",44,0)
+ ; ECX*112
+"RTN","ECXSURG",45,0)
+ S ECXVST=$P(^SRF(ECD0,0),U,15) D:ECXVST'=""
+"RTN","ECXSURG",46,0)
+ . Q:'$D(^AUPNVSIT(ECXVST,800))
+"RTN","ECXSURG",47,0)
+ . S ECENSC=$P(^AUPNVSIT(ECXVST,800),U,1)
+"RTN","ECXSURG",48,0)
+ . S ECENSC=$S(ECENSC=0:"N",ECENSC=1:"Y",1:"")
+"RTN","ECXSURG",49,0)
+ ;get data
+"RTN","ECXSURG",50,0)
+ S ECSR=$P(DATA1,U,4),(ECATNPI,ECSANPI,ECSRNPI)="",ECAT=$P(DATA1,U,13)
+"RTN","ECXSURG",51,0)
+ S ECSRNPI=$$NPI^XUSNPI("Individual_ID",ECSR,ECXDATE)
+"RTN","ECXSURG",52,0)
+ S:+ECSRNPI'>0 ECSRNPI="" S ECSRNPI=$P(ECSRNPI,U)
+"RTN","ECXSURG",53,0)
+ ;-Time patient in OR room (Nurse Time)
+"RTN","ECXSURG",54,0)
+ S ECXTM=$$ECXTIME^ECXUTL($P(DATA2,U,10))
+"RTN","ECXSURG",55,0)
+ S ECXDIV=$S($D(^SRF(ECD0,8)):^(8),1:ECINST)
+"RTN","ECXSURG",56,0)
+ N ECXPDIV S ECXPDIV=$$RADDIV^ECXDEPT(ECXDIV) ;Production Division
+"RTN","ECXSURG",57,0)
+ S ECSA=$P($G(^SRF(ECD0,.3)),U,4),ECO=$P(EC0,U,2)
+"RTN","ECXSURG",58,0)
+ S ECSANPI=$$NPI^XUSNPI("Individual_ID",ECSA,ECXDATE)
+"RTN","ECXSURG",59,0)
+ S:+ECSANPI'>0 ECSANPI="" S ECSANPI=$P(ECSANPI,U)
+"RTN","ECXSURG",60,0)
+ ;get principle anesthetist and person class DBIA #103
+"RTN","ECXSURG",61,0)
+ S ECXPA=$P($G(^SRF(ECD0,.3)),U,1)
+"RTN","ECXSURG",62,0)
+ S ECPANPI=$$NPI^XUSNPI("Individual_ID",ECXPA,ECXDATE)
+"RTN","ECXSURG",63,0)
+ S:+ECPANPI'>0 ECPANPI="" S ECPANPI=$P(ECPANPI,U)
+"RTN","ECXSURG",64,0)
+ S ECXPAPC=$$PRVCLASS^ECXUTL(ECXPA,ECXDATE)
+"RTN","ECXSURG",65,0)
+ ;get first asst, 2nd asst, perfusionist, and asst perfusionist
+"RTN","ECXSURG",66,0)
+ S EC1A=$P(DATA1,U,5),EC2A=$P(DATA1,U,6),ECPQ=$P(DATA1,U,19),ECQA=$P(DATA1,U,20)
+"RTN","ECXSURG",67,0)
+ S EC1ANPI=$$NPI^XUSNPI("Individual_ID",EC1A,ECXDATE)
+"RTN","ECXSURG",68,0)
+ S:+EC1ANPI'>0 EC1ANPI="" S EC1ANPI=$P(EC1ANPI,U)
+"RTN","ECXSURG",69,0)
+ S EC2ANPI=$$NPI^XUSNPI("Individual_ID",EC2A,ECXDATE)
+"RTN","ECXSURG",70,0)
+ S:+EC2ANPI'>0 EC2ANPI="" S EC2ANPI=$P(EC2ANPI,U)
+"RTN","ECXSURG",71,0)
+ S ECPQNPI=$$NPI^XUSNPI("Individual_ID",ECPQ,ECXDATE)
+"RTN","ECXSURG",72,0)
+ S:+ECPQNPI'>0 ECPQNPI="" S ECPQNPI=$P(ECPQNPI,U)
+"RTN","ECXSURG",73,0)
+ S ECQANPI=$$NPI^XUSNPI("Individual_ID",ECQA,ECXDATE)
+"RTN","ECXSURG",74,0)
+ S:+ECQANPI'>0 ECQANPI="" S ECQANPI=$P(ECQANPI,U)
+"RTN","ECXSURG",75,0)
+ S ECORTY=$P($G(^SRS(+ECO,2)),U),ECO=$P($G(^SRS(+ECO,0)),U)
+"RTN","ECXSURG",76,0)
+ S ECSS=$P($G(^SRO(137.45,+$P(EC0,U,4),0)),U,2)
+"RTN","ECXSURG",77,0)
+ S ECSS=$$RJ^XLFSTR($P($G(^DIC(45.3,+ECSS,0)),U),3,0)
+"RTN","ECXSURG",78,0)
+ S:ECSS="000" ECSS="999"
+"RTN","ECXSURG",79,0)
+ ;get classification information
+"RTN","ECXSURG",80,0)
+ S (ECXAO,ECXHNC,ECXSHAD,ECXSHADI,ECXECL)="" I ECXVISIT'="" D ;144
+"RTN","ECXSURG",81,0)
+ .D VISIT^ECXSCX1(ECXDFN,ECXVISIT,.ECXVIST,.ECXERR) I ECXERR K ECXERR
+"RTN","ECXSURG",82,0)
+ .S ECXAO=$G(ECXVIST("AO")),ECXHNC=$G(ECXVIST("HNC"))
+"RTN","ECXSURG",83,0)
+ .S ECENRI=$G(ECXVIST("IR")),ECENMST=$G(ECXVIST("MST"))
+"RTN","ECXSURG",84,0)
+ .S ECENEC=$G(ECXVIST("PGE")),ECXSHAD=$G(ECXVIST("SHAD"))
+"RTN","ECXSURG",85,0)
+ .S ECXECL=$G(ECXVIST("ENCCL")) ;144
+"RTN","ECXSURG",86,0)
+ ; - Head and Neck Cancer Indicator
+"RTN","ECXSURG",87,0)
+ S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN)
+"RTN","ECXSURG",88,0)
+ ; - Shad Encounter Field
+"RTN","ECXSURG",89,0)
+ S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN)
+"RTN","ECXSURG",90,0)
+ ;look for non-OR
+"RTN","ECXSURG",91,0)
+ S (ECNT,ECNL,ECXDSSD,ECXNONL,ECXSTOP)=""
+"RTN","ECXSURG",92,0)
+ I $P(ECNO,U)="Y" D
+"RTN","ECXSURG",93,0)
+ .S ECSR=$P(ECNO,U,6),ECAT=$P(ECNO,U,7)
+"RTN","ECXSURG",94,0)
+ .S ECSRNPI=$$NPI^XUSNPI("Individual_ID",ECSR,ECXDATE)
+"RTN","ECXSURG",95,0)
+ .S:+ECSRNPI'>0 ECSRNPI="" S ECSRNPI=$P(ECSRNPI,U)
+"RTN","ECXSURG",96,0)
+ .S ECATNPI=$$NPI^XUSNPI("Individual_ID",ECAT,ECXDATE)
+"RTN","ECXSURG",97,0)
+ .S:+ECATNPI'>0 ECATNPI="" S ECATNPI=$P(ECATNPI,U)
+"RTN","ECXSURG",98,0)
+ .S ECXTM=$$ECXTIME^ECXUTL($P(ECNO,U,4))
+"RTN","ECXSURG",99,0)
+ .S A1=$P(ECNO,U,5),A2=$P(ECNO,U,4),TIME="##" D:(A1&A2) TIME S ECNT=TIME
+"RTN","ECXSURG",100,0)
+ .S (ECXNONL,ECNL)=+$P(ECNO,U,2),ECNL=$P($G(^ECX(728.44,ECNL,0)),U,9)
+"RTN","ECXSURG",101,0)
+ .S:ECNL="" ECNL="UNKNOWN"
+"RTN","ECXSURG",102,0)
+ .;
+"RTN","ECXSURG",103,0)
+ .;- Get Primary or DSS Stop Code to use in encounter number
+"RTN","ECXSURG",104,0)
+ .N P1 ;primary stop
+"RTN","ECXSURG",105,0)
+ .D FEEDER^ECXSCX1(+$P(EC0,U,21),ECXDATE,.P1,,,,) S ECXSTOP=$E(P1,1,3)
+"RTN","ECXSURG",106,0)
+ .S ECXSTOP=$S(ECXSTOP:ECXSTOP,1:$P($G(^ECX(728.44,ECXNONL,0)),U,4))
+"RTN","ECXSURG",107,0)
+ ;
+"RTN","ECXSURG",108,0)
+ ;- Get credit stop, stop code and clinic
+"RTN","ECXSURG",109,0)
+ I $$SUR^ECXUTL6(.ECXCRST,.ECXSTCD,.ECXCLIN)
+"RTN","ECXSURG",110,0)
+ ;
+"RTN","ECXSURG",111,0)
+ ;- If surgery cancelled/aborted quit and go to next record
+"RTN","ECXSURG",112,0)
+ S ECCAN=$P($G(^SRF(ECD0,30)),U)
+"RTN","ECXSURG",113,0)
+ I +ECCAN S ECCAN=$$CANC^ECXUTL4(ECNL,$P(DATA2,U,10))
+"RTN","ECXSURG",114,0)
+ ;on hold for ECXDSSD and ECXDSSP I $P($G(^SRF(ECD0,30)),U) Q
+"RTN","ECXSURG",115,0)
+ ;get service of attending surgeon
+"RTN","ECXSURG",116,0)
+ S ECATSV=$P($G(^DIC(49,+$G(^VA(200,+ECAT,5)),730)),U)
+"RTN","ECXSURG",117,0)
+ ;
+"RTN","ECXSURG",118,0)
+ ;get surgeon, attending and anesthesia super person classes
+"RTN","ECXSURG",119,0)
+ ;get 1st asst, 2nd asst, perfusionist, and asst perfusionst person class
+"RTN","ECXSURG",120,0)
+ S ECSRPC=$$PRVCLASS^ECXUTL(ECSR,ECXDATE)
+"RTN","ECXSURG",121,0)
+ S ECATPC=$$PRVCLASS^ECXUTL(ECAT,ECXDATE)
+"RTN","ECXSURG",122,0)
+ S ECSAPC=$$PRVCLASS^ECXUTL(ECSA,ECXDATE)
+"RTN","ECXSURG",123,0)
+ S EC1APC=$$PRVCLASS^ECXUTL(EC1A,ECXDATE)
+"RTN","ECXSURG",124,0)
+ S EC2APC=$$PRVCLASS^ECXUTL(EC2A,ECXDATE)
+"RTN","ECXSURG",125,0)
+ S ECPQPC=$$PRVCLASS^ECXUTL(ECPQ,ECXDATE)
+"RTN","ECXSURG",126,0)
+ S ECQAPC=$$PRVCLASS^ECXUTL(ECQA,ECXDATE)
+"RTN","ECXSURG",127,0)
+ ;
+"RTN","ECXSURG",128,0)
+ ;add leading 2s for pointer to 200
+"RTN","ECXSURG",129,0)
+ S:ECAT ECAT="2"_ECAT S:ECSR ECSR="2"_ECSR S:ECSA ECSA="2"_ECSA
+"RTN","ECXSURG",130,0)
+ ;add leading 2 to principle anesthetist IEN
+"RTN","ECXSURG",131,0)
+ S:ECXPA ECXPA="2"_ECXPA
+"RTN","ECXSURG",132,0)
+ ;add leading 2s for 1st asst, 2nd asst, perfusionist, asst perfusionist
+"RTN","ECXSURG",133,0)
+ S:EC1A EC1A="2"_EC1A S:EC2A EC2A="2"_EC2A S:ECPQ ECPQ="2"_ECPQ S:ECQA ECQA="2"_ECQA
+"RTN","ECXSURG",134,0)
+ ;anesthesia technique
+"RTN","ECXSURG",135,0)
+ S ECANE="",PP=""
+"RTN","ECXSURG",136,0)
+ I $D(^SRF(ECD0,6,0)) S ECXJ=0 D
+"RTN","ECXSURG",137,0)
+ .F S ECXJ=$O(^SRF(ECD0,6,ECXJ)) Q:('ECXJ)!(ECANE]"") D
+"RTN","ECXSURG",138,0)
+ ..S PP=$P($G(^(ECXJ,0)),U,3) S:PP="Y" ECANE=$P(^(0),U,1)
+"RTN","ECXSURG",139,0)
+ .I ECANE="" S ECXJ=$O(^SRF(ECD0,6,0)) I ECXJ S ECANE=$P(^SRF(ECD0,6,ECXJ,0),U,1)
+"RTN","ECXSURG",140,0)
+ ;get primary procedure
+"RTN","ECXSURG",141,0)
+ ;ecode0=p^cpt code^^patient time^operation time^anesthesia time
+"RTN","ECXSURG",142,0)
+ S ECPT=+$P(DATAOP,U,2),ECXCMOD=""
+"RTN","ECXSURG",143,0)
+ K ARR,ERR D FIELD^DID(130,28,,"LABEL","ARR","ERR") I $D(ARR("LABEL")) D
+"RTN","ECXSURG",144,0)
+ .K ARR,ERR D FIELD^DID(130,28,,"GLOBAL SUBSCRIPT LOCATION","ARR","ERR")
+"RTN","ECXSURG",145,0)
+ .Q:$D(ERR("DIERR"))
+"RTN","ECXSURG",146,0)
+ .S SUB=$P(ARR("GLOBAL SUBSCRIPT LOCATION"),";"),MOD=0
+"RTN","ECXSURG",147,0)
+ .F S MOD=$O(^SRF(ECD0,SUB,MOD)) Q:MOD'>0 D
+"RTN","ECXSURG",148,0)
+ ..S ECXCMOD=ECXCMOD_$P(^(MOD,0),U)_";"
+"RTN","ECXSURG",149,0)
+ S ECXCPT=$$CPT^ECXUTL3(ECPT,ECXCMOD)
+"RTN","ECXSURG",150,0)
+ S ECODE0="P"_U_U ;ECPT_U
+"RTN","ECXSURG",151,0)
+ F J="10,12","2,3","1,4" D
+"RTN","ECXSURG",152,0)
+ .N ECNTIME,ECSTIME,ECATIME
+"RTN","ECXSURG",153,0)
+ .S A2=$P(DATA2,U,$P(J,",")),A1=$P(DATA2,U,$P(J,",",2)),TIME="##"
+"RTN","ECXSURG",154,0)
+ .I (A1&A2)&(+J=10) D TIME S ECNTIME=TIME
+"RTN","ECXSURG",155,0)
+ .I (A1&A2)&(+J=1) D TIME S ECATIME=TIME
+"RTN","ECXSURG",156,0)
+ .I (A1&A2)&(+J=2) D
+"RTN","ECXSURG",157,0)
+ ..;
+"RTN","ECXSURG",158,0)
+ ..;-Operation Time (Surgeon Time)
+"RTN","ECXSURG",159,0)
+ ..;-Get time diff (in secs) & set to .5 if < 7.5 minutes (rounds to 1)
+"RTN","ECXSURG",160,0)
+ ..S TIMEDIF=$$FMDIFF^XLFDT(A1,A2,2)/900
+"RTN","ECXSURG",161,0)
+ ..S TIMEDIF=$S(TIMEDIF>0&(TIMEDIF<.5):.5,1:TIMEDIF)
+"RTN","ECXSURG",162,0)
+ ..S TIME=$TR($J(TIMEDIF,4,0)," ")
+"RTN","ECXSURG",163,0)
+ ..S:TIME<0 TIME="###"
+"RTN","ECXSURG",164,0)
+ ..S:TIME ECSTIME=TIME
+"RTN","ECXSURG",165,0)
+ .S ECODE0=ECODE0_U_TIME K TIME
+"RTN","ECXSURG",166,0)
+ ; -Recovery Room Time
+"RTN","ECXSURG",167,0)
+ S ECRR=""
+"RTN","ECXSURG",168,0)
+ I $D(^SRF(ECD0,1.1)) D
+"RTN","ECXSURG",169,0)
+ .S A1=$P(^(1.1),U,8),A2=$P(^(1.1),U,7),TIME="##" D:(A1&A2) TIME
+"RTN","ECXSURG",170,0)
+ .S ECRR=TIME K TIME
+"RTN","ECXSURG",171,0)
+ I ECNL]"" S $P(ECODE0,U,5)=ECNT
+"RTN","ECXSURG",172,0)
+ ;
+"RTN","ECXSURG",173,0)
+ ; -OR Clean Time in 15 min increments DBIA #103
+"RTN","ECXSURG",174,0)
+ ;
+"RTN","ECXSURG",175,0)
+ ; ECX*3.0*128 - Correct the calculation of OR Clean Time.
+"RTN","ECXSURG",176,0)
+ S ECXORCT=0
+"RTN","ECXSURG",177,0)
+ ; Set local variables. ECX*128
+"RTN","ECXSURG",178,0)
+ S ECXTPOOR=$P($G(DATA2),U,12),ECXORCST=$P($G(DATA2),U,13),ECXORCET=$P($G(DATA2),U,14)
+"RTN","ECXSURG",179,0)
+ I (ECXORCET'=""),(ECXORCST'="") D
+"RTN","ECXSURG",180,0)
+ .S ECXORCT=($$FMDIFF^XLFDT(ECXORCET,ECXORCST,2)/60)/15
+"RTN","ECXSURG",181,0)
+ I 'ECXORCT,(ECXORCET'=""),(ECXTPOOR'="") D
+"RTN","ECXSURG",182,0)
+ .S ECXORCT=($$FMDIFF^XLFDT(ECXORCET,ECXTPOOR,2)/60)/15
+"RTN","ECXSURG",183,0)
+ ; Make sure the final OR CLEAN TIME is an integer by rounding
+"RTN","ECXSURG",184,0)
+ ; up for any decimal value ECX*3.0*128
+"RTN","ECXSURG",185,0)
+ I ECXORCT>0 S ECXORCT=$J(ECXORCT+.4999,0,0)
+"RTN","ECXSURG",186,0)
+ ; -If no OR clean time recorded set it to 2
+"RTN","ECXSURG",187,0)
+ I ECXORCT'>0 S ECXORCT=2
+"RTN","ECXSURG",188,0)
+ ;
+"RTN","ECXSURG",189,0)
+ ; -PT in hold area time in 15 min increments DBIA #103
+"RTN","ECXSURG",190,0)
+ I $P($G(DATA2),U,10),$P($G(DATA2),U,15) D
+"RTN","ECXSURG",191,0)
+ .S ECXPTHA=($$FMDIFF^XLFDT($P($G(DATA2),U,10),$P($G(DATA2),U,15),2)/60)/15
+"RTN","ECXSURG",192,0)
+ .S CON=$P($G(^SRF(ECD0,"CON")),U)
+"RTN","ECXSURG",193,0)
+ .I CON S ECXPTHA=ECXPTHA/2,ECXCONC="C" ;144 Concurrent Case
+"RTN","ECXSURG",194,0)
+ .S ECXPTHA=$TR($J(ECXPTHA,3,0)," ")
+"RTN","ECXSURG",195,0)
+ ; -If hold time is =<0 set it to ""
+"RTN","ECXSURG",196,0)
+ S:$G(ECXPTHA)'>0 ECXPTHA=""
+"RTN","ECXSURG",197,0)
+ ;
+"RTN","ECXSURG",198,0)
+ ;- get ASA CLASS
+"RTN","ECXSURG",199,0)
+ S ECASA=$$GET1^DIQ(132.8,$$GET1^DIQ(130,ECD0,1.13,"I"),.01)
+"RTN","ECXSURG",200,0)
+ ;
+"RTN","ECXSURG",201,0)
+ ;- Observation Patient Indicator (yes/no)
+"RTN","ECXSURG",202,0)
+ S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS,ECNL)
+"RTN","ECXSURG",203,0)
+ ;
+"RTN","ECXSURG",204,0)
+ ; ******* - PATCH 127, ADD PATCAT CODE ********
+"RTN","ECXSURG",205,0)
+ S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXSURG",206,0)
+ ;- set national patient record flag if exist
+"RTN","ECXSURG",207,0)
+ D NPRF^ECXUTL5
+"RTN","ECXSURG",208,0)
+ ;
+"RTN","ECXSURG",209,0)
+ ;- If no encounter number don't file record
+"RTN","ECXSURG",210,0)
+ S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADMDT,ECXDATE,ECXTS,ECXOBS,ECHEAD,ECXSTOP,ECSS) Q:ECXENC=""
+"RTN","ECXSURG",211,0)
+ ;
+"RTN","ECXSURG",212,0)
+ ;- Get postop diagnosis codes
+"RTN","ECXSURG",213,0)
+ I $$SURPODX^ECXUTL6(.ECXPODX,.ECXPODX1,.ECXPODX2,.ECXPODX3,.ECXPODX4,.ECXPODX5)
+"RTN","ECXSURG",214,0)
+ ;
+"RTN","ECXSURG",215,0)
+ D FILE^ECXSURG1
+"RTN","ECXSURG",216,0)
+ ;get secondary procedures
+"RTN","ECXSURG",217,0)
+ ;ecode0=s^cpt code
+"RTN","ECXSURG",218,0)
+ S ECXJ=0
+"RTN","ECXSURG",219,0)
+ F S ECXJ=$O(^SRO(136,ECD0,3,ECXJ)) Q:'ECXJ I $D(^(ECXJ,0)),$D(^(0)),$P(^(0),"^")]"" D
+"RTN","ECXSURG",220,0)
+ .;S ECPT=$P(^SRF(ECD0,13,ECXJ,2),U),ECXCMOD=""
+"RTN","ECXSURG",221,0)
+ .S ECPT=$P(^SRO(136,ECD0,3,ECXJ,0),U),ECXMOD=""
+"RTN","ECXSURG",222,0)
+ .S ECPT=$P(^(0),"^"),ECXCMOD=""
+"RTN","ECXSURG",223,0)
+ .K ARR,ERR
+"RTN","ECXSURG",224,0)
+ .D FIELD^DID(130.16,4,,"LABEL","ARR","ERR") I $D(ARR("LABEL")) D
+"RTN","ECXSURG",225,0)
+ ..K ARR,ERR
+"RTN","ECXSURG",226,0)
+ ..D FIELD^DID(130.16,4,,"GLOBAL SUBSCRIPT LOCATION","ARR","ERR")
+"RTN","ECXSURG",227,0)
+ ..Q:$D(ERR("DIERR"))
+"RTN","ECXSURG",228,0)
+ ..S SUB=$P(ARR("GLOBAL SUBSCRIPT LOCATION"),";"),MOD=0
+"RTN","ECXSURG",229,0)
+ ..F S MOD=$O(^SRF(ECD0,13,ECXJ,SUB,MOD)) Q:MOD'>0 S ECXCMOD=ECXCMOD_$P(^(MOD,0),U)_";"
+"RTN","ECXSURG",230,0)
+ .S ECXCPT=$$CPT^ECXUTL3(ECPT,ECXCMOD)
+"RTN","ECXSURG",231,0)
+ .S ECODE0="S"_U ;_ECPT
+"RTN","ECXSURG",232,0)
+ .D FILE^ECXSURG1
+"RTN","ECXSURG",233,0)
+ ;get prostheses
+"RTN","ECXSURG",234,0)
+ ;ecode0=i^^^^^^prosthesis^old qty field (null)
+"RTN","ECXSURG",235,0)
+ S ECXJ=0
+"RTN","ECXSURG",236,0)
+ F S ECXJ=$O(^SRF(ECD0,1,ECXJ)) Q:'ECXJ I $D(^(ECXJ,0)) D
+"RTN","ECXSURG",237,0)
+ .S ECXP=+^SRF(ECD0,1,ECXJ,0),ECXQ=$P($G(^(1)),U,2) S:'ECXQ ECXQ=1
+"RTN","ECXSURG",238,0)
+ .S ECODE0="I"_U_U_U_U_U_U_ECXP_U_U
+"RTN","ECXSURG",239,0)
+ .D FILE^ECXSURG1
+"RTN","ECXSURG",240,0)
+ Q
+"RTN","ECXSURG",241,0)
+ ;
+"RTN","ECXSURG",242,0)
+ ;
+"RTN","ECXSURG",243,0)
+TIME ; given date/time get increment
+"RTN","ECXSURG",244,0)
+ ;A1=later, A2=earlier, TIME=difference
+"RTN","ECXSURG",245,0)
+ N CON,TIMEDIF
+"RTN","ECXSURG",246,0)
+ S CON=$P($G(^SRF(ECD0,"CON")),U)
+"RTN","ECXSURG",247,0)
+ ;
+"RTN","ECXSURG",248,0)
+ ;-Get time diff (in secs) & set to .5 if < 7.5 minutes (rounds to 1)
+"RTN","ECXSURG",249,0)
+ S TIMEDIF=$$FMDIFF^XLFDT(A1,A2,2)/900
+"RTN","ECXSURG",250,0)
+ S TIMEDIF=$S(TIMEDIF>0&(TIMEDIF<.5):.5,1:TIMEDIF)
+"RTN","ECXSURG",251,0)
+ I 'CON D
+"RTN","ECXSURG",252,0)
+ .S TIME=$J($TR($J(TIMEDIF,4,0)," "),2,1)
+"RTN","ECXSURG",253,0)
+ .S:TIME>"99.0" TIME="99.0"
+"RTN","ECXSURG",254,0)
+ I CON D
+"RTN","ECXSURG",255,0)
+ .S TIME=$J(($TR($J(TIMEDIF,4,0)," ")/2),2,1)
+"RTN","ECXSURG",256,0)
+ .S:TIME>"99.5" TIME="99.5"
+"RTN","ECXSURG",257,0)
+ S:TIME<0 TIME="###"
+"RTN","ECXSURG",258,0)
+ Q
+"RTN","ECXSURG",259,0)
+ ;
+"RTN","ECXSURG",260,0)
+SETUP ;Set required input for ECXTRAC
+"RTN","ECXSURG",261,0)
+ S ECHEAD="SUR"
+"RTN","ECXSURG",262,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXSURG",263,0)
+ Q
+"RTN","ECXSURG",264,0)
+ ;
+"RTN","ECXSURG",265,0)
+QUE ; entry point for the background requeuing handled by ECXTAUTO
+"RTN","ECXSURG",266,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL Q
+"RTN","ECXSURG1")
+0^17^B21879740^B19369745
+"RTN","ECXSURG1",1,0)
+ECXSURG1 ;ALB/JA,BIR/DMA,PTD-Surgery Extract for DSS ;4/17/13 11:51
+"RTN","ECXSURG1",2,0)
+ ;;3.0;DSS EXTRACTS;**105,112,120,127,132,144**;Dec 22, 1997;Build 9
+"RTN","ECXSURG1",3,0)
+ ;
+"RTN","ECXSURG1",4,0)
+FILE ;file record
+"RTN","ECXSURG1",5,0)
+ ;node0
+"RTN","ECXSURG1",6,0)
+ ;division^dfn^ssn^name^in/out (ECXA)^day^case #^
+"RTN","ECXSURG1",7,0)
+ ;surg specialty^or room #^
+"RTN","ECXSURG1",8,0)
+ ;surgeon^attending^anesthesia supervisor^anesthesia technique^
+"RTN","ECXSURG1",9,0)
+ ;primary/secondary/prostheses^cpt^^pt time^op time^anes time^
+"RTN","ECXSURG1",10,0)
+ ;prostheses^qty^^
+"RTN","ECXSURG1",11,0)
+ ;movement number^treating specialty^cancel/abort (ECCAN)^time^or type^
+"RTN","ECXSURG1",12,0)
+ ;attending's service^non-or dss id^recovery room time^^
+"RTN","ECXSURG1",13,0)
+ ;primary care team^primary care provider^admission date
+"RTN","ECXSURG1",14,0)
+ ;node1
+"RTN","ECXSURG1",15,0)
+ ;mpi^dss dept ECXDSSD^surgeon npi^attending npi^anes supervisor npi^
+"RTN","ECXSURG1",16,0)
+ ;pc provider npi^pc prov person class^
+"RTN","ECXSURG1",17,0)
+ ;assoc pc provider^assoc pc prov person class^assoc pc prov npi^
+"RTN","ECXSURG1",18,0)
+ ;cpt&modifiers ECXCPT^dom ECXDOM^enrollment category ECXCAT^
+"RTN","ECXSURG1",19,0)
+ ;enrollment status ECXSTAT^enrollment priority ECXPRIOR^
+"RTN","ECXSURG1",20,0)
+ ;period of service ECXPOS^purple heart indicator ECXPHI^
+"RTN","ECXSURG1",21,0)
+ ;observ pat ind ECXOBS^encounter num ECXENC^ao loc ECXAOL^
+"RTN","ECXSURG1",22,0)
+ ;production division ECXPDIV^head & neck canc ind ECXHNCI^
+"RTN","ECXSURG1",23,0)
+ ;ethnicity ECXETH^race1 ECXRC1^new quantity ECXQ^
+"RTN","ECXSURG1",24,0)
+ ;^user enrollee ECXUESTA^patient type ECXPTYPE^combat vet elig
+"RTN","ECXSURG1",25,0)
+ ;ECXCVE^combat vet elig end date ECXCVEDT^enc cv eligible ECXCVENC
+"RTN","ECXSURG1",26,0)
+ ;or clean time ECXORCT^time pt in hold area ECXPTHA^national patient
+"RTN","ECXSURG1",27,0)
+ ;record flag ECXNPRFI^princ anesthetist ECXPA^surgeon per class ECSRPC
+"RTN","ECXSURG1",28,0)
+ ;node2
+"RTN","ECXSURG1",29,0)
+ ;atten surgeon per class ECATPC^anesthesia super person class ECSAPC^
+"RTN","ECXSURG1",30,0)
+ ;princ anesthetist PC ECXPAPC^emergency response indicator(FEMA) ECXERI^
+"RTN","ECXSURG1",31,0)
+ ;agent orange indic ECXAO^head/neck cancer ECXHNC
+"RTN","ECXSURG1",32,0)
+ ;OEF/OIF ECXOEF^OEF/OIF return date ECXOEFDT^clinic pointer ECXCLIN
+"RTN","ECXSURG1",33,0)
+ ;credit stop ECXCRST^stop code ECXSTCD^princ postop diagnosis code
+"RTN","ECXSURG1",34,0)
+ ;ECXPODX^other postop diagnosis code #1 ECXPODX1^other postop
+"RTN","ECXSURG1",35,0)
+ ;diagnosis code #2 ECXPODX2^ other postop diag code #3 ECXPODX3^
+"RTN","ECXSURG1",36,0)
+ ;other postop diag code #4 ECXPODX4^other postop diag code #5
+"RTN","ECXSURG1",37,0)
+ ;ECXPODX5^anesthesia sup npi ECSANPI^assoc pc prov npi ECASNPI^
+"RTN","ECXSURG1",38,0)
+ ;attending surgeon npi ECATNPI^primary care provider npi ECPTNPI^
+"RTN","ECXSURG1",39,0)
+ ;principle anesthetist npi ECPANPI^surgeon npi ECSRNPI
+"RTN","ECXSURG1",40,0)
+ ;encounter ec ECENEC^radiation encounter indicator ECENRI^
+"RTN","ECXSURG1",41,0)
+ ;mst encounter indicator ECENMST^encounter sc ECENSC^
+"RTN","ECXSURG1",42,0)
+ ;agent orange status ECXAST^
+"RTN","ECXSURG1",43,0)
+ ;environmental contaminants ECXEST^radiation status ECXRST^
+"RTN","ECXSURG1",44,0)
+ ;mst status ECXMST^shad indicator ECXSHADI^encounter shad ECXSHAD^
+"RTN","ECXSURG1",45,0)
+ ;NODE3
+"RTN","ECXSURG1",46,0)
+ ;1st assist EC1A^1st assist pc EC1APC^1st assist npi EC1ANPI^
+"RTN","ECXSURG1",47,0)
+ ;2nd assist EC2A^2nd assist pc EC2APC^2nd assist npi EC2ANPI^
+"RTN","ECXSURG1",48,0)
+ ;perfusionist ECPQ^perfusionist pc ECPQPC^perfusionist npi ECQANPI^
+"RTN","ECXSURG1",49,0)
+ ;anesthesia severity ECASA^patcat PATCAT^date of birth ECXDOB
+"RTN","ECXSURG1",50,0)
+ ;Vietnam Status ECXVNS^Camp Lejeune Status ECXCLST^Encounter Camp Lejeune ECXECL^
+"RTN","ECXSURG1",51,0)
+ ;Concurrent Case ECXCONC^post op icd-10 ECICD10^post op icd-10 code #1 ECICD101^post op icd-10 code #2 ECICD102^
+"RTN","ECXSURG1",52,0)
+ ;post op icd-10 code #3 ECICD103^post op icd-10 code #4 ECICD104^post op icd-10 code #5 ECICD105^
+"RTN","ECXSURG1",53,0)
+ ;convert specialty to PTF Code for transmission
+"RTN","ECXSURG1",54,0)
+ N ECXDATA,ECXTSC
+"RTN","ECXSURG1",55,0)
+ S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA)
+"RTN","ECXSURG1",56,0)
+ S ECXTSC=$G(ECXDATA(7))
+"RTN","ECXSURG1",57,0)
+ ;done
+"RTN","ECXSURG1",58,0)
+ N DA,DIK,STR
+"RTN","ECXSURG1",59,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXSURG1",60,0)
+ S ECODE=EC7_U_EC23_U_ECXDIV_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U
+"RTN","ECXSURG1",61,0)
+ S ECODE=ECODE_$$ECXDATE^ECXUTL(ECXDATE,ECXYM)_U_ECD0_U_ECSS_U_ECO_U
+"RTN","ECXSURG1",62,0)
+ S ECODE=ECODE_ECSR_U_ECAT_U_ECSA_U_ECANE_U_ECODE0_U
+"RTN","ECXSURG1",63,0)
+ S STR=ECXMN_U_ECXTSC_U_$S(ECCAN'="":ECCAN,1:"")_U_ECXTM_U_ECORTY_U
+"RTN","ECXSURG1",64,0)
+ S STR=STR_ECATSV_U_ECNL_U_ECRR_U_U_ECPTTM_U_ECPTPR_U_ECXADD_U
+"RTN","ECXSURG1",65,0)
+ S $P(ECODE,U,26,38)=STR
+"RTN","ECXSURG1",66,0)
+ S ECODE1=ECXMPI_U_ECXDSSD_U_U_U_U_U
+"RTN","ECXSURG1",67,0)
+ S ECODE1=ECODE1_ECCLAS_U_ECASPR_U_ECCLAS2_U_U_ECXCPT_U_ECXDOM_U
+"RTN","ECXSURG1",68,0)
+ S ECODE1=ECODE1_ECXCAT_U_ECXSTAT_U_$S(ECXLOGIC<2005:ECXPRIOR,1:"")_U_ECXPOS_U_ECXPHI_U
+"RTN","ECXSURG1",69,0)
+ S ECODE1=ECODE1_ECXOBS_U_ECXENC_U_ECXAOL_U_ECXPDIV_U_ECXHNCI_U
+"RTN","ECXSURG1",70,0)
+ S ECODE1=ECODE1_ECXETH_U_ECXRC1_U_ECXQ_U
+"RTN","ECXSURG1",71,0)
+ I ECXLOGIC>2004 S ECODE1=ECODE1_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXORCT_U_ECXPTHA_U_ECXNPRFI
+"RTN","ECXSURG1",72,0)
+ I ECXLOGIC>2005 S ECODE1=ECODE1_U_ECXPA_U_ECSRPC_U,ECODE2=ECATPC_U_ECSAPC_U_ECXPAPC
+"RTN","ECXSURG1",73,0)
+ I ECXLOGIC>2006 S ECODE2=ECODE2_U_ECXERI_U_ECXAO_U_ECXHNC
+"RTN","ECXSURG1",74,0)
+ I ECXLOGIC>2007 S ECODE2=ECODE2_U_ECXOEF_U_ECXOEFDT_U_ECXCLIN_U_ECXCRST_U_ECXSTCD_U_ECXPODX_U_ECXPODX1_U_ECXPODX2_U_ECXPODX3_U_ECXPODX4_U_ECXPODX5_U_ECSANPI_U_ECASNPI_U_ECATNPI_U_ECPTNPI_U_ECPANPI_U_ECSRNPI
+"RTN","ECXSURG1",75,0)
+ I ECXLOGIC>2008 S ECODE2=ECODE2_U_$G(ECENEC)_U_$G(ECENRI)_U_$G(ECENMST)_U_$G(ECENSC)_U_$G(ECXAST)_U_$G(ECXEST)_U_$G(ECXRST)_U_$G(ECXMST)
+"RTN","ECXSURG1",76,0)
+ I ECXLOGIC>2010 S ECODE2=ECODE2_U_$G(ECXSHADI)_U_$G(ECXSHAD)_U,ECODE3=$G(EC1A)_U_$G(EC1APC)_U_$G(EC1ANPI)
+"RTN","ECXSURG1",77,0)
+ I ECXLOGIC>2010 S ECODE3=ECODE3_U_$G(EC2A)_U_$G(EC2APC)_U_(EC2ANPI)_U_$G(ECPQ)_U_$G(ECPQPC)_U_$G(ECPQNPI)_U_$G(ECQA)_U_$G(ECQAPC)_U_$G(ECQANPI)_U_$G(ECASA)_U_ECXPATCAT
+"RTN","ECXSURG1",78,0)
+ I ECXLOGIC>2011 S ECODE3=ECODE3_U_$G(ECXDOB)
+"RTN","ECXSURG1",79,0)
+ I ECXLOGIC>2013 S ECODE3=ECODE3_U_ECXVNS_U_ECXCLST_U_ECXECL ;144
+"RTN","ECXSURG1",80,0)
+ I ECXLOGIC>2013 S ECODE3=ECODE3_U_ECXCONC_U_ECICD10_U_ECICD101_U_ECICD102_U_ECICD103_U_ECICD104_U_ECICD105 ;144 Concurrent case ICD-10
+"RTN","ECXSURG1",81,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1,^ECX(ECFILE,EC7,2)=ECODE2,^ECX(ECFILE,EC7,3)=ECODE3,ECRN=ECRN+1
+"RTN","ECXSURG1",82,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXSURG1",83,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1
+"RTN","ECXSURG1",84,0)
+ ;
+"RTN","ECXSURG1",85,0)
+TIME ; given date/time get increment
+"RTN","ECXSURG1",86,0)
+ ;A1=later, A2=earlier, TIME=difference
+"RTN","ECXSURG1",87,0)
+ N CON,TIMEDIF
+"RTN","ECXSURG1",88,0)
+ S CON=$P($G(^SRF(ECD0,"CON")),U)
+"RTN","ECXSURG1",89,0)
+ ;
+"RTN","ECXSURG1",90,0)
+ ;-Get time diff (in secs) & set to .5 if < 7.5 minutes (rounds to 1)
+"RTN","ECXSURG1",91,0)
+ S TIMEDIF=$$FMDIFF^XLFDT(A1,A2,2)/900
+"RTN","ECXSURG1",92,0)
+ S TIMEDIF=$S(TIMEDIF>0&(TIMEDIF<.5):.5,1:TIMEDIF)
+"RTN","ECXSURG1",93,0)
+ I 'CON D
+"RTN","ECXSURG1",94,0)
+ .S TIME=$J($TR($J(TIMEDIF,4,0)," "),2,1)
+"RTN","ECXSURG1",95,0)
+ .S:TIME>"99.0" TIME="99.0"
+"RTN","ECXSURG1",96,0)
+ I CON D
+"RTN","ECXSURG1",97,0)
+ .S TIME=$J(($TR($J(TIMEDIF,4,0)," ")/2),2,1)
+"RTN","ECXSURG1",98,0)
+ .S:TIME>"99.5" TIME="99.5"
+"RTN","ECXSURG1",99,0)
+ S:TIME<0 TIME="###"
+"RTN","ECXSURG1",100,0)
+ Q
+"RTN","ECXSURG1",101,0)
+ ;
+"RTN","ECXSURG1",102,0)
+SETUP ;Set required input for ECXTRAC
+"RTN","ECXSURG1",103,0)
+ S ECHEAD="SUR"
+"RTN","ECXSURG1",104,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXSURG1",105,0)
+ Q
+"RTN","ECXSURG1",106,0)
+ ;
+"RTN","ECXSURG1",107,0)
+QUE ; entry point for the background requeuing handled by ECXTAUTO
+"RTN","ECXSURG1",108,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL Q
+"RTN","ECXTRAC")
+0^3^B97271442^B56593271
+"RTN","ECXTRAC",1,0)
+ECXTRAC ;ALB/GTS,JAP,BIR/DMA,CML-Package Extracts for DSS ;5/17/13 12:40
+"RTN","ECXTRAC",2,0)
+ ;;3.0;DSS EXTRACTS;**9,8,14,24,30,33,49,84,105,144**;Dec 22, 1997;Build 9
+"RTN","ECXTRAC",3,0)
+ ;Date range, queuing and message sending for package extracts
+"RTN","ECXTRAC",4,0)
+ ;Input
+"RTN","ECXTRAC",5,0)
+ ; ECPACK printed name of package (e.g. Lab, Prescriptions)
+"RTN","ECXTRAC",6,0)
+ ; ECNODE in file 728 where last date is stored
+"RTN","ECXTRAC",7,0)
+ ; ECPIECE piece of node where last date is stored
+"RTN","ECXTRAC",8,0)
+ ; ECRTN in the form of START^ROUTINE
+"RTN","ECXTRAC",9,0)
+ ; ECGRP name of local mail group to receive summary message
+"RTN","ECXTRAC",10,0)
+ ; (MUST BE 1 TO 5 UPPER CASE ALPHA - NO SPACES)
+"RTN","ECXTRAC",11,0)
+ ; ECFILE file number of the local editing file
+"RTN","ECXTRAC",12,0)
+ ; ECXLOGIC Fiscal year extract logic to use (optional)
+"RTN","ECXTRAC",13,0)
+ ; ECXDATES StartDate^EndDate^DoNotUpdate728 (optional)
+"RTN","ECXTRAC",14,0)
+ ;Generates
+"RTN","ECXTRAC",15,0)
+ ; EC23=2nd and 3rd piece of zero node in local editing file
+"RTN","ECXTRAC",16,0)
+ ; =YYMM of end date^pointer to 727
+"RTN","ECXTRAC",17,0)
+ ; ECXLOGIC=Fiscal year extract logic to use
+"RTN","ECXTRAC",18,0)
+ ;
+"RTN","ECXTRAC",19,0)
+EN ;entry point
+"RTN","ECXTRAC",20,0)
+ N OUT,CHKFLG,RUN ;144
+"RTN","ECXTRAC",21,0)
+ I '$D(ECNODE) S ECNODE=7
+"RTN","ECXTRAC",22,0)
+ I '$D(ECHEAD) S ECHEAD=" "
+"RTN","ECXTRAC",23,0)
+ I $P($G(^ECX(728,1,ECNODE+.1)),U,ECPIECE)]"" D I '$G(RUN) Q ;144
+"RTN","ECXTRAC",24,0)
+ .W !!,$C(7),ECPACK," extract is already running or is scheduled to run.",!! ;144
+"RTN","ECXTRAC",25,0)
+ .S RUN=$$RUSURE(1) ;144
+"RTN","ECXTRAC",26,0)
+ .;D PAUSE
+"RTN","ECXTRAC",27,0)
+ W @IOF,!,"Extract ",ECPACK," Information for DSS",!!
+"RTN","ECXTRAC",28,0)
+ S:'$D(ECINST) ECINST=+$P(^ECX(728,1,0),U)
+"RTN","ECXTRAC",29,0)
+ S ECXINST=ECINST
+"RTN","ECXTRAC",30,0)
+ K ECXDIC S DA=ECINST,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99"
+"RTN","ECXTRAC",31,0)
+ D EN^DIQ1 S ECINST=$G(ECXDIC(4,DA,99,"I")) K DIC,DIQ,DA,DR,ECXDIC
+"RTN","ECXTRAC",32,0)
+ ;* get last date for all extracts except prosthetics
+"RTN","ECXTRAC",33,0)
+ I ECGRP'="PRO" D
+"RTN","ECXTRAC",34,0)
+ .S ECLDT=$S($D(^ECX(728,1,ECNODE)):$P(^(ECNODE),U,ECPIECE),1:2610624)
+"RTN","ECXTRAC",35,0)
+ .S:ECLDT="" ECLDT=2610624
+"RTN","ECXTRAC",36,0)
+ ;* get last date for prosthetics
+"RTN","ECXTRAC",37,0)
+ I ECGRP="PRO" D
+"RTN","ECXTRAC",38,0)
+ .N ECXDA1
+"RTN","ECXTRAC",39,0)
+ .S ECXDA1=$O(^ECX(728,0))
+"RTN","ECXTRAC",40,0)
+ .I $D(^ECX(728,ECXDA1,1,ECXINST,0)) D
+"RTN","ECXTRAC",41,0)
+ ..S ECLDT=$P(^ECX(728,ECXDA1,1,ECXINST,0),U,2)
+"RTN","ECXTRAC",42,0)
+ .I '$D(^ECX(728,ECXDA1,1,ECXINST,0)) D
+"RTN","ECXTRAC",43,0)
+ ..S DA(1)=ECXDA1
+"RTN","ECXTRAC",44,0)
+ ..S DIC(0)="L" K ECXDD
+"RTN","ECXTRAC",45,0)
+ ..D FIELD^DID(728,59,,"SPECIFIER","ECXDD")
+"RTN","ECXTRAC",46,0)
+ ..S DIC("P")=ECXDD("SPECIFIER") K ECXDD
+"RTN","ECXTRAC",47,0)
+ ..S DIC="^ECX(728,"_DA(1)_",1,",X=ECXINST,DINUM=X
+"RTN","ECXTRAC",48,0)
+ ..K DD,DO D FILE^DICN
+"RTN","ECXTRAC",49,0)
+ ..K DIC,X,DINUM,Y,DA
+"RTN","ECXTRAC",50,0)
+ ..S ECLDT=2610624
+"RTN","ECXTRAC",51,0)
+ S X=$G(ECXDATES) S ECSD=$P(X,"^",1),ECED=$P(X,"^",2)
+"RTN","ECXTRAC",52,0)
+ S OUT=0
+"RTN","ECXTRAC",53,0)
+ I (ECSD="")!(ECED="") F S (ECED,ECSD)="" D Q:OUT
+"RTN","ECXTRAC",54,0)
+ .K %DT S %DT="AEX",%DT("A")="Starting with Date: " D ^%DT
+"RTN","ECXTRAC",55,0)
+ .I Y<0 S OUT=1 Q
+"RTN","ECXTRAC",56,0)
+ .S ECSD=Y
+"RTN","ECXTRAC",57,0)
+ .K %DT S %DT="AEX",%DT("A")="Ending with Date: " D ^%DT
+"RTN","ECXTRAC",58,0)
+ .I Y<0 S OUT=1 Q
+"RTN","ECXTRAC",59,0)
+ .I Y<ECSD D Q
+"RTN","ECXTRAC",60,0)
+ ..W !!,"The ending date cannot be earlier than the starting date."
+"RTN","ECXTRAC",61,0)
+ ..W !,"Please try again.",!!
+"RTN","ECXTRAC",62,0)
+ .I $E(Y,1,5)'=$E(ECSD,1,5) D Q
+"RTN","ECXTRAC",63,0)
+ ..W !!,"Beginning and ending dates must be in the same month and year."
+"RTN","ECXTRAC",64,0)
+ ..W !,"Please try again.",!!
+"RTN","ECXTRAC",65,0)
+ .S ECED=Y
+"RTN","ECXTRAC",66,0)
+ .I ECLDT'<ECSD D I '$G(RUN) Q ;144
+"RTN","ECXTRAC",67,0)
+ ..W !!,"The ",ECPACK," information has already been extracted " W:$L(ECPACK)>10 ! W "through ",$$FMTE^XLFDT(ECLDT),"." ;144
+"RTN","ECXTRAC",68,0)
+ ..S RUN=$$RUSURE(2) Q:$G(RUN) W ! ;144
+"RTN","ECXTRAC",69,0)
+ ..W !,"Please enter a new date range.",!!
+"RTN","ECXTRAC",70,0)
+ .S OUT=1
+"RTN","ECXTRAC",71,0)
+ I ECED]"",ECSD]"" D QUE
+"RTN","ECXTRAC",72,0)
+ Q
+"RTN","ECXTRAC",73,0)
+ ;
+"RTN","ECXTRAC",74,0)
+QUE ;queue extract
+"RTN","ECXTRAC",75,0)
+ N CHKFLG
+"RTN","ECXTRAC",76,0)
+ ;if extract is ivp (i.e., file=727.819) and data in the intermediate file use new format
+"RTN","ECXTRAC",77,0)
+ I ECFILE=727.819 D Q:CHKFLG
+"RTN","ECXTRAC",78,0)
+ .S CHKFLG=0
+"RTN","ECXTRAC",79,0)
+ .S X="PSIVSTAT" X ^%ZOSF("TEST") I '$T Q
+"RTN","ECXTRAC",80,0)
+ .I '$D(^ECX(728.113,"A")) S CHKFLG=1 D NOIVP Q
+"RTN","ECXTRAC",81,0)
+ .S DATE=$O(^ECX(728.113,"A",ECED+1),-1) I DATE<ECSD S CHKFLG=1 D NOIVP Q
+"RTN","ECXTRAC",82,0)
+ .D CHK^ECXDIVIV Q:CHKFLG
+"RTN","ECXTRAC",83,0)
+ .D CHK2
+"RTN","ECXTRAC",84,0)
+ .S ECRTN="START^ECXPIVDN",ECVER=7
+"RTN","ECXTRAC",85,0)
+ I '$D(ECNODE) S ECNODE=7
+"RTN","ECXTRAC",86,0)
+ I '$D(ECHEAD) S ECHEAD=""
+"RTN","ECXTRAC",87,0)
+ S ECSDN=$$FMTE^XLFDT(ECSD),ECEDN=$$FMTE^XLFDT(ECED),ECSD1=ECSD-.1
+"RTN","ECXTRAC",88,0)
+ K ZTSAVE
+"RTN","ECXTRAC",89,0)
+ F X="ECINST","ECED","ECSD","ECSD1","ECEDN","ECSDN" S ZTSAVE(X)=""
+"RTN","ECXTRAC",90,0)
+ F X="ECPACK","ECPIECE","ECRTN","ECGRP","ECNODE" S ZTSAVE(X)=""
+"RTN","ECXTRAC",91,0)
+ F X="ECFILE","ECHEAD","ECVER","ECINST","ECXINST" S ZTSAVE(X)=""
+"RTN","ECXTRAC",92,0)
+ F X="ECXLOGIC","ECXDATES" S ZTSAVE(X)=""
+"RTN","ECXTRAC",93,0)
+ S ZTDESC=ECPACK_" EXTRACT: "_ECSDN_" TO "_ECEDN,ZTRTN="START^ECXTRAC",ZTIO=""
+"RTN","ECXTRAC",94,0)
+ D ^%ZTLOAD
+"RTN","ECXTRAC",95,0)
+ I $D(ZTSK) D
+"RTN","ECXTRAC",96,0)
+ .S $P(^ECX(728,1,ECNODE+.1),U,ECPIECE)="R"
+"RTN","ECXTRAC",97,0)
+ .S ^XTMP("ECX EXTRACT",0)=$$DT^XLFDT_"^"_$$FMADD^XLFDT(DT,365)_"^TASK INFORMATION FOR EXTRACTS" ;144 Update zero node for task information in XTMP
+"RTN","ECXTRAC",98,0)
+ .S ^XTMP("ECX EXTRACT",ECHEAD)=ZTSK_"^"_$G(DUZ)_"^"_$G(ZTSK("D"))_"^"_ECSD_"^"_ECED ;144 Save data related to task
+"RTN","ECXTRAC",99,0)
+ .W !,"Request queued as Task #",ZTSK,".",!
+"RTN","ECXTRAC",100,0)
+ .D PAUSE
+"RTN","ECXTRAC",101,0)
+ Q
+"RTN","ECXTRAC",102,0)
+ ;
+"RTN","ECXTRAC",103,0)
+NOIVP ;cannot generate ivp message
+"RTN","ECXTRAC",104,0)
+ W !!,?5,"There does not appear to be any data in the IV EXTRACT DATA"
+"RTN","ECXTRAC",105,0)
+ W !,?5,"file (#728.113) for the selected date range."
+"RTN","ECXTRAC",106,0)
+ W !!,?5,"The IVP extract cannot be generated."
+"RTN","ECXTRAC",107,0)
+ D PAUSE
+"RTN","ECXTRAC",108,0)
+ Q
+"RTN","ECXTRAC",109,0)
+ ;
+"RTN","ECXTRAC",110,0)
+START ; entry when queued
+"RTN","ECXTRAC",111,0)
+ S QFLG=0
+"RTN","ECXTRAC",112,0)
+ L +^ECX(727,0):3 Q:'$T S EC=$P(^ECX(727,0),U,3)+1,$P(^(0),U,3,4)=EC_U_EC L -^ECX(727,0) ;144 Added time out to lock as required by standard
+"RTN","ECXTRAC",113,0)
+ S ^ECX(727,EC,0)=EC_U_DT_U_ECPACK_U_ECSD_U_$E(ECED,1,7)_U_U_DUZ
+"RTN","ECXTRAC",114,0)
+ S ^ECX(727,EC,"HEAD")=ECHEAD
+"RTN","ECXTRAC",115,0)
+ S:ECFILE=727.816 ECFILE=727.827 S ^ECX(727,EC,"FILE")=ECFILE
+"RTN","ECXTRAC",116,0)
+ S ^ECX(727,EC,"GRP")=ECGRP
+"RTN","ECXTRAC",117,0)
+ I $G(ECXLOGIC)="" S ECXLOGIC=$$FISCAL^ECXUTL1(ECSD)
+"RTN","ECXTRAC",118,0)
+ S ^ECX(727,EC,"VER")=$G(ECVER)_"^"_ECXLOGIC
+"RTN","ECXTRAC",119,0)
+ S ^ECX(727,EC,"DIV")=ECXINST
+"RTN","ECXTRAC",120,0)
+ S DA=EC,DIK="^ECX(727," D IX^DIK K DIK,DA
+"RTN","ECXTRAC",121,0)
+ S ECRN=0,ECXYM=$$ECXYM^ECXUTL(ECED),EC23=ECXYM_U_EC
+"RTN","ECXTRAC",122,0)
+ S ECXSTART=$P($$HTE^XLFDT($H),":",1,2),ECXNOW=$H
+"RTN","ECXTRAC",123,0)
+ ;do specific extract
+"RTN","ECXTRAC",124,0)
+ D @ECRTN
+"RTN","ECXTRAC",125,0)
+ ;if task gets stop request, set ztstop and quit
+"RTN","ECXTRAC",126,0)
+ I QFLG D Q
+"RTN","ECXTRAC",127,0)
+ .S $P(^ECX(728,1,ECNODE+.1),U,ECPIECE)="",ZTSTOP=1
+"RTN","ECXTRAC",128,0)
+ .K ^XTMP("ECX EXTRACT",ECHEAD) ;144 Delete queued information if stopped by user
+"RTN","ECXTRAC",129,0)
+ .D QKILL
+"RTN","ECXTRAC",130,0)
+ .D QMSG
+"RTN","ECXTRAC",131,0)
+ .D ^ECXKILL
+"RTN","ECXTRAC",132,0)
+ ;Set last date for extract
+"RTN","ECXTRAC",133,0)
+ I '$P($G(ECXDATES),"^",3) D
+"RTN","ECXTRAC",134,0)
+ .;* set last date for all extracts except prosthetics
+"RTN","ECXTRAC",135,0)
+ .I ECGRP'="PRO" S $P(^ECX(728,1,ECNODE),U,ECPIECE)=$P(ECED,".") Q
+"RTN","ECXTRAC",136,0)
+ .;* set last date for prosthetics
+"RTN","ECXTRAC",137,0)
+ .N ECXDA1
+"RTN","ECXTRAC",138,0)
+ .S ECXDA1=$O(^ECX(728,0))
+"RTN","ECXTRAC",139,0)
+ .S $P(^ECX(728,ECXDA1,1,ECXINST,0),U,2)=$P(ECED,".")
+"RTN","ECXTRAC",140,0)
+ S TIME=$P($$HTE^XLFDT($H),":",1,2)
+"RTN","ECXTRAC",141,0)
+ S $P(^ECX(727,$P(EC23,U,2),0),U,6)=ECRN
+"RTN","ECXTRAC",142,0)
+ ;set piece 3 and 4 of the zero node
+"RTN","ECXTRAC",143,0)
+ S ECLAST=$O(^ECX(ECFILE,99999999),-1),ECTOTAL=$P(^ECX(ECFILE,0),U,4)+ECRN,$P(^(0),U,3,4)=ECLAST_U_ECTOTAL K ECLAST,ECTOTAL
+"RTN","ECXTRAC",144,0)
+ D MSG
+"RTN","ECXTRAC",145,0)
+ S $P(^ECX(728,1,ECNODE+.1),U,ECPIECE)=""
+"RTN","ECXTRAC",146,0)
+ K ^XTMP("ECX EXTRACT",ECHEAD) ;144 Delete queued information if processing completed normally
+"RTN","ECXTRAC",147,0)
+ I $D(ZTQUEUED) S ZTREQ="@"
+"RTN","ECXTRAC",148,0)
+ Q
+"RTN","ECXTRAC",149,0)
+ ;
+"RTN","ECXTRAC",150,0)
+MSG ; send message to mail group 'DSS-ECGRP'
+"RTN","ECXTRAC",151,0)
+ S XMSUB=ECINST_" - "_ECPACK_" EXTRACT FOR DSS",XMDUZ="DSS SYSTEM"
+"RTN","ECXTRAC",152,0)
+ K XMY S XMY("G.DSS-"_ECGRP_"@"_^XMB("NETNAME"))=""
+"RTN","ECXTRAC",153,0)
+ S ECMSG(1,0)="The DSS-"_ECPACK_" extract (#"_$P(EC23,U,2)_") for "_ECSDN
+"RTN","ECXTRAC",154,0)
+ S ECMSG(2,0)="through "_ECEDN_" was begun on "_$P(ECXSTART,"@")_" at "_$P(ECXSTART,"@",2)
+"RTN","ECXTRAC",155,0)
+ S ECMSG(3,0)="and completed on "_$P(TIME,"@")_" at "_$P(TIME,"@",2)_"."
+"RTN","ECXTRAC",156,0)
+ S ECMSG(4,0)=" "
+"RTN","ECXTRAC",157,0)
+ S ECMSG(5,0)="A total of "_ECRN_" records were written."
+"RTN","ECXTRAC",158,0)
+ S ECMSG(6,0)=" "
+"RTN","ECXTRAC",159,0)
+ S ECMSG(7,0)="Extract time was [HH:MM:SS] "_$$HDIFF^XLFDT($H,ECXNOW,3)
+"RTN","ECXTRAC",160,0)
+ S ECMSG(8,0)=" "
+"RTN","ECXTRAC",161,0)
+ S X=$E(ECXLOGIC,5) S X=$S((X="")!(X=" "):"",1:"revision "_X_" of ")
+"RTN","ECXTRAC",162,0)
+ S ECMSG(9,0)="The data was extracted using "_X_"fiscal year "_$E(ECXLOGIC,1,4)_" logic."
+"RTN","ECXTRAC",163,0)
+ S ECMSG(10,0)=" "
+"RTN","ECXTRAC",164,0)
+ S XMTEXT="ECMSG("
+"RTN","ECXTRAC",165,0)
+ D ^XMD
+"RTN","ECXTRAC",166,0)
+ Q
+"RTN","ECXTRAC",167,0)
+ ;
+"RTN","ECXTRAC",168,0)
+QMSG ; send abort message to mail group 'DSS-ECGRP'
+"RTN","ECXTRAC",169,0)
+ S XMSUB=ECINST_" - "_ECPACK_" EXTRACT FOR DSS",XMDUZ="DSS SYSTEM"
+"RTN","ECXTRAC",170,0)
+ K XMY S XMY("G.DSS-"_ECGRP_"@"_^XMB("NETNAME"))=""
+"RTN","ECXTRAC",171,0)
+ S ECMSG(1,0)="The DSS-"_ECPACK_" extract (#"_$P(EC23,U,2)_") for "_ECSDN
+"RTN","ECXTRAC",172,0)
+ S ECMSG(2,0)="through "_ECEDN_" was begun on "_$P(ECXSTART,"@")_" at "_$P(ECXSTART,"@",2)_"."
+"RTN","ECXTRAC",173,0)
+ S ECMSG(3,0)=" "
+"RTN","ECXTRAC",174,0)
+ S ECMSG(4,0)="A user stop request was received by Taskmanager which caused processing"
+"RTN","ECXTRAC",175,0)
+ S ECMSG(5,0)="to terminate before completion. Any records which may have been created"
+"RTN","ECXTRAC",176,0)
+ S ECMSG(6,0)="in file #"_ECFILE_" for this extract have been deleted."
+"RTN","ECXTRAC",177,0)
+ S ECMSG(7,0)=" "
+"RTN","ECXTRAC",178,0)
+ S XMTEXT="ECMSG("
+"RTN","ECXTRAC",179,0)
+ D ^XMD
+"RTN","ECXTRAC",180,0)
+ Q
+"RTN","ECXTRAC",181,0)
+ ;
+"RTN","ECXTRAC",182,0)
+QKILL ;delete records created for any extract stopped at user request
+"RTN","ECXTRAC",183,0)
+ N ECX,FILE,IEN,DA,DIK
+"RTN","ECXTRAC",184,0)
+ S FILE="^ECX("_ECFILE_","
+"RTN","ECXTRAC",185,0)
+ S ECX=$P(EC23,U,2)
+"RTN","ECXTRAC",186,0)
+ F S IEN=$O(^ECX(ECFILE,999999999),-1) Q:($P(^ECX(ECFILE,IEN,0),U,3)'=ECX) D
+"RTN","ECXTRAC",187,0)
+ .S DIK=FILE,DA=IEN D ^DIK
+"RTN","ECXTRAC",188,0)
+ Q
+"RTN","ECXTRAC",189,0)
+ ;
+"RTN","ECXTRAC",190,0)
+CHK2 ;iv extract check - all active iv rooms to have a division
+"RTN","ECXTRAC",191,0)
+ S EC=0
+"RTN","ECXTRAC",192,0)
+ D ALL^PSJ59P5(,"??","ECXIV")
+"RTN","ECXTRAC",193,0)
+ F S EC=$O(^TMP($J,"ECXIV",EC)) Q:'EC I '^(EC,19) D I CHKFLG D EXIT Q
+"RTN","ECXTRAC",194,0)
+ .S CHKFLG=$S($G(^TMP($J,"ECXIV",EC,19)):1,$G(^(19))>DT:1,1:0)
+"RTN","ECXTRAC",195,0)
+ .I CHKFLG D
+"RTN","ECXTRAC",196,0)
+ ..W !!,"All active IV Rooms in the IV Room file (#59.5) must have a ""DIVISION""",!,"assigned to run this extract!"
+"RTN","ECXTRAC",197,0)
+ ..W !!,"This information can be entered using the DSS Extract Manager's Maintenance ",!,"option ""Enter/Edit IV Room Division""."
+"RTN","ECXTRAC",198,0)
+ ..D PAUSE
+"RTN","ECXTRAC",199,0)
+EXIT K ^TMP($J,"ECXIV")
+"RTN","ECXTRAC",200,0)
+ Q
+"RTN","ECXTRAC",201,0)
+ ;
+"RTN","ECXTRAC",202,0)
+PAUSE ;pause screen
+"RTN","ECXTRAC",203,0)
+ N DIR,X,Y
+"RTN","ECXTRAC",204,0)
+ S OUT=0
+"RTN","ECXTRAC",205,0)
+ I $E(IOST)="C" D
+"RTN","ECXTRAC",206,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXTRAC",207,0)
+ .S DIR(0)="E" W ! D ^DIR K DIR
+"RTN","ECXTRAC",208,0)
+ I 'Y S OUT=1
+"RTN","ECXTRAC",209,0)
+ W !!
+"RTN","ECXTRAC",210,0)
+ Q
+"RTN","ECXTRAC",211,0)
+ ;API added in patch 144
+"RTN","ECXTRAC",212,0)
+RUSURE(TYPE) ;Allow user to override running node or bypass last date run checks
+"RTN","ECXTRAC",213,0)
+ N DIR,Y,ZTSK,USER,QUE,NODE,STDT,EDDT
+"RTN","ECXTRAC",214,0)
+ I TYPE=1 D
+"RTN","ECXTRAC",215,0)
+ .S NODE=$G(^XTMP("ECX EXTRACT",ECHEAD))
+"RTN","ECXTRAC",216,0)
+ .S ZTSK=$P(NODE,U),USER=$$GET1^DIQ(200,$P(NODE,U,2),.01),QUE=$$HTE^XLFDT($P(NODE,U,3)),STDT=$$FMTE^XLFDT($P(NODE,U,4)),EDDT=$$FMTE^XLFDT($P(NODE,U,5))
+"RTN","ECXTRAC",217,0)
+ .I ZTSK D STAT^%ZTLOAD D W !
+"RTN","ECXTRAC",218,0)
+ ..W "Task Information: ",!,$$REPEAT^XLFSTR("-",17),!,"Task #: ",ZTSK,!,"Queued by: ",USER,!,"Extract date range: ",STDT," to ",EDDT,!,"Status: "
+"RTN","ECXTRAC",219,0)
+ ..I '$G(ZTSK(0))!(ZTSK(1)=0) W "Task deleted, no further information available."
+"RTN","ECXTRAC",220,0)
+ ..I ZTSK(1)=1 W "ACTIVE - Task is scheduled to start on ",QUE
+"RTN","ECXTRAC",221,0)
+ ..I ZTSK(1)=2 W "ACTIVE - Task is currently running and started on ",QUE
+"RTN","ECXTRAC",222,0)
+ ..I ZTSK(1)=5 W "INACTIVE - Task ended abnormally"
+"RTN","ECXTRAC",223,0)
+ ..I ZTSK(1)=1!(ZTSK(1)=2) W !!,"**Before continuing, the ",$G(ECHEAD)," extract should be ",$S(ZTSK(1)=1:"deleted",1:"stopped")," in TaskManager.",!,"Failure to do so may result in multiple ",$G(ECHEAD)," extracts running simultaneously**."
+"RTN","ECXTRAC",224,0)
+ ..I ZTSK(1)=5 W !!,"Be sure any errors or issues have been addressed before overriding this status",!,"and starting another ",$G(ECHEAD)," extract."
+"RTN","ECXTRAC",225,0)
+ S DIR(0)="Y",DIR("B")="NO",DIR("A")="Do you want to continue processing the "_$G(ECHEAD)_" extract"
+"RTN","ECXTRAC",226,0)
+ D ^DIR
+"RTN","ECXTRAC",227,0)
+ I '+Y Q 0
+"RTN","ECXTRAC",228,0)
+ W !
+"RTN","ECXTRAC",229,0)
+ S DIR("A")="Are you SURE you want to run the "_$G(ECHEAD)_" extract"
+"RTN","ECXTRAC",230,0)
+ I TYPE=2 S DIR("A",1)="Make sure you have checked that your selected dates are correct",DIR("A",2)="before answering yes to the next question.",DIR("A",3)=""
+"RTN","ECXTRAC",231,0)
+ D ^DIR
+"RTN","ECXTRAC",232,0)
+ Q +Y
+"RTN","ECXTRANS")
+0^13^B59881332^B59690762
+"RTN","ECXTRANS",1,0)
+ECXTRANS ;ALB/GTS,JAP,BIR/DMA-Extract from Local Editing Files and Transmit ;2/15/13 12:47
+"RTN","ECXTRANS",2,0)
+ ;;3.0;DSS EXTRACTS;**2,9,12,8,13,14,23,24,33,49,54,75,71,144**;Dec 22, 1997;Build 9
+"RTN","ECXTRANS",3,0)
+EN ;entry point
+"RTN","ECXTRANS",4,0)
+ N ECDA,ECRE,ECTMP,ECCHK,ECDIVVR,ECXDIQ,JJ,SS,OUT,DIR,DUOUT
+"RTN","ECXTRANS",5,0)
+ N DTOUT,DIRUT,DIC,X,Y,ECXLOGIC,ECSD,FODMN
+"RTN","ECXTRANS",6,0)
+ S ECXQUEUE=$P($G(^ECX(728,1,"QUEUE")),"^",1)
+"RTN","ECXTRANS",7,0)
+ I ECXQUEUE'?1"DM"1U D Q
+"RTN","ECXTRANS",8,0)
+ .W !,"You have not defined a proper transmission queue"
+"RTN","ECXTRANS",9,0)
+ .W !,"for entry number 1 in the DSS EXTRACTS file (#728)."
+"RTN","ECXTRANS",10,0)
+ .W !,"No transmission allowed."
+"RTN","ECXTRANS",11,0)
+ .D PAUSE
+"RTN","ECXTRANS",12,0)
+ ;** check divisions for transmission
+"RTN","ECXTRANS",13,0)
+ S ECCHK=$$DIV4^XUSER(.ECTMP,DUZ)
+"RTN","ECXTRANS",14,0)
+ I 'ECCHK D Q
+"RTN","ECXTRANS",15,0)
+ .W !,"You do not have any divisions defined in your user set up and cannot transmit."
+"RTN","ECXTRANS",16,0)
+ .S DIR(0)="FAO^1:1",DIR("A")="Hit Return to continue." D ^DIR K DIR,X,Y
+"RTN","ECXTRANS",17,0)
+ W !!,"Your user setup will only allow you to transmit extracts from the"
+"RTN","ECXTRANS",18,0)
+ W !,"following divisions:",!
+"RTN","ECXTRANS",19,0)
+ S ECDIVVR=""
+"RTN","ECXTRANS",20,0)
+ F S ECDIVVR=$O(ECTMP(ECDIVVR)) Q:'(+ECDIVVR) D
+"RTN","ECXTRANS",21,0)
+ .K ECXDIC S DA=ECDIVVR,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01"
+"RTN","ECXTRANS",22,0)
+ .D EN^DIQ1 W !," ",$G(ECXDIC(4,DA,.01,"I")) K DIC,DIQ,DA,DR,ECXDIC
+"RTN","ECXTRANS",23,0)
+ W !!,"If you can't select an extract, it is probably from another division.",!
+"RTN","ECXTRANS",24,0)
+ D PAUSE Q:OUT
+"RTN","ECXTRANS",25,0)
+AGAIN S ECRE="",DIC="^ECX(727,",DIC(0)="AEQM"
+"RTN","ECXTRANS",26,0)
+ S DIC("A")="Transmit which extract: "
+"RTN","ECXTRANS",27,0)
+ S DIC("S")="I '$D(^ECX(727,+Y,""L"")),'$D(^ECX(727,+Y,""PURG"")),$D(ECTMP(+$P($G(^ECX(727,+Y,""DIV"")),U,1)))"
+"RTN","ECXTRANS",28,0)
+ D ^DIC
+"RTN","ECXTRANS",29,0)
+ I Y<0 W !! Q
+"RTN","ECXTRANS",30,0)
+ ;get data on extract
+"RTN","ECXTRANS",31,0)
+ S DR="1;2;3;4;5;6;14;15",(ECDA,DA)=+Y,DIQ(0)="IE",DIQ="ECXDIQ" D EN^DIQ1
+"RTN","ECXTRANS",32,0)
+ I ECXDIQ(727,ECDA,14,"I")="" D
+"RTN","ECXTRANS",33,0)
+ .S ECXDIQ(727,ECDA,14,"I")=$$FISCAL^ECXUTL1(ECXDIQ(727,ECDA,3,"I"))
+"RTN","ECXTRANS",34,0)
+ .S ECXDIQ(727,ECDA,14,"E")=ECXDIQ(727,ECDA,14,"I")
+"RTN","ECXTRANS",35,0)
+ S ECXLOGIC=ECXDIQ(727,ECDA,14,"I")
+"RTN","ECXTRANS",36,0)
+ S ECSD=ECXDIQ(727,ECDA,3,"I")
+"RTN","ECXTRANS",37,0)
+ W !!,ECXDIQ(727,ECDA,6,"E")_" Extract (#"_ECDA_")",?42,"Records: ",ECXDIQ(727,ECDA,5,"E")
+"RTN","ECXTRANS",38,0)
+ W !,"Generated on: ",ECXDIQ(727,ECDA,1,"E"),?42,"Start date: ",ECXDIQ(727,ECDA,3,"E")
+"RTN","ECXTRANS",39,0)
+ W !,"Division: ",$E(ECXDIQ(727,ECDA,15,"E"),1,26),?42,"End date: ",ECXDIQ(727,ECDA,4,"E")
+"RTN","ECXTRANS",40,0)
+ S X=$E(ECXDIQ(727,ECDA,14,"I"),5) S X=$S((X="")!(X=" "):"",1:"revision "_X_" of ")
+"RTN","ECXTRANS",41,0)
+ W !!,"The data was extracted using "_X_"fiscal year "_$E(ECXDIQ(727,ECDA,14,"I"),1,4)_" logic."
+"RTN","ECXTRANS",42,0)
+ W !!,"MailMan transmission of the "_ECXDIQ(727,ECDA,2,"E")_" extract is set to a"
+"RTN","ECXTRANS",43,0)
+ W !,"limit of 131,000 bytes per message. Each extract record ends with a ^~."
+"RTN","ECXTRANS",44,0)
+ I $G(^ECX(727,ECDA,"TR")) S ECX=^("TR") D Q:OUT
+"RTN","ECXTRANS",45,0)
+ .S OUT=0
+"RTN","ECXTRANS",46,0)
+ .W !!,"This extract was transmitted on ",$TR($$FMTE^XLFDT(ECX,"5DF")," ","0")
+"RTN","ECXTRANS",47,0)
+ .K ECX S DIR(0)="Y",DIR("A")="Do you want to retransmit " D ^DIR K DIR
+"RTN","ECXTRANS",48,0)
+ .I 'Y S OUT=1 Q
+"RTN","ECXTRANS",49,0)
+ .K ^ECX(727,ECDA,"TR")
+"RTN","ECXTRANS",50,0)
+ .S ECRE="re"
+"RTN","ECXTRANS",51,0)
+ S ECTYPE=$P(^ECX(727,ECDA,0),U,3),ECIEN=+$O(^ECX(727.1,"AC",ECTYPE,0))
+"RTN","ECXTRANS",52,0)
+ S ECPIECE=$P($G(^ECX(727.1,ECIEN,0)),U,10)
+"RTN","ECXTRANS",53,0)
+ I ECPIECE>0,$P($G(^ECX(728,1,7.1)),U,ECPIECE)]"" D Q
+"RTN","ECXTRANS",54,0)
+ .D MES^XPDUTL(" ")
+"RTN","ECXTRANS",55,0)
+ .D MES^XPDUTL("An "_ECTYPE_" Extract is currently running or scheduled to run.")
+"RTN","ECXTRANS",56,0)
+ .D MES^XPDUTL("Please wait until that job has completed before attempting")
+"RTN","ECXTRANS",57,0)
+ .D MES^XPDUTL("this transmission.")
+"RTN","ECXTRANS",58,0)
+ .D MES^XPDUTL(" ")
+"RTN","ECXTRANS",59,0)
+ .D PAUSE
+"RTN","ECXTRANS",60,0)
+ S ZTSK=$G(^ECX(727,ECDA,"Q"))
+"RTN","ECXTRANS",61,0)
+ I ZTSK D STAT^%ZTLOAD I ZTSK(0) I ZTSK(1)<3 D Q
+"RTN","ECXTRANS",62,0)
+ .W !!,"Task ",ZTSK," is already queued to transmit this extract."
+"RTN","ECXTRANS",63,0)
+ .K ZTSK
+"RTN","ECXTRANS",64,0)
+ .D PAUSE
+"RTN","ECXTRANS",65,0)
+ S FODMN=$$FODMN()
+"RTN","ECXTRANS",66,0)
+ ;Field office reminder
+"RTN","ECXTRANS",67,0)
+ I FODMN D
+"RTN","ECXTRANS",68,0)
+ .W !
+"RTN","ECXTRANS",69,0)
+ .W !,"** This extract is being sent from a field office domain. **"
+"RTN","ECXTRANS",70,0)
+ .W !,"** Extract message(s) will only be delivered to you and **"
+"RTN","ECXTRANS",71,0)
+ .W !,"** will be placed into your 'DSSXMIT' mail basket. **"
+"RTN","ECXTRANS",72,0)
+ .W !
+"RTN","ECXTRANS",73,0)
+ .;Ensure user has a DSSXMIT mail basket
+"RTN","ECXTRANS",74,0)
+ .N TMPARR
+"RTN","ECXTRANS",75,0)
+ .D LISTBSKT^XMXAPIB(DUZ,,,,"DSSXMIT","TMPARR")
+"RTN","ECXTRANS",76,0)
+ .I '$D(TMPARR("XMLIST","BSKT","DSSXMIT")) D
+"RTN","ECXTRANS",77,0)
+ ..;Create DSSXMIT basket
+"RTN","ECXTRANS",78,0)
+ ..N IEN,XMERR
+"RTN","ECXTRANS",79,0)
+ ..D CRE8BSKT^XMXAPIB(DUZ,"DSSXMIT",.IEN)
+"RTN","ECXTRANS",80,0)
+ ..K ^TMP("XMERR",$J)
+"RTN","ECXTRANS",81,0)
+ ;Test queue clearance
+"RTN","ECXTRANS",82,0)
+ ;I 'FODMN I (ECXLOGIC'=$$FISCAL^ECXUTL1(ECSD))!((ECXLOGIC>$$FISCAL^ECXUTL1(DT))!(ECXLOGIC=$$FISCAL^ECXUTL1(DT))) D Q:OUT
+"RTN","ECXTRANS",83,0)
+ ;.S OUT=0
+"RTN","ECXTRANS",84,0)
+ ;.K DIR
+"RTN","ECXTRANS",85,0)
+ ;.S DIR(0)="Y"
+"RTN","ECXTRANS",86,0)
+ ;.S DIR("A",1)="** This extract will be transmitted to the AAC test queue **"
+"RTN","ECXTRANS",87,0)
+ ;.S DIR("A")="Do you want to continue "
+"RTN","ECXTRANS",88,0)
+ ;.W !! D ^DIR
+"RTN","ECXTRANS",89,0)
+ ;.I 'Y S OUT=1 Q
+"RTN","ECXTRANS",90,0)
+ ;.S ECXQUEUE=$P($G(^ECX(728,1,"QUEUE")),"^",2)
+"RTN","ECXTRANS",91,0)
+ ;.S:ECXQUEUE="" ECXQUEUE="DMT"
+"RTN","ECXTRANS",92,0)
+ S ZTSAVE("ECDA")="",ZTSAVE("ECXQUEUE")="",ZTSAVE("ECRE")=""
+"RTN","ECXTRANS",93,0)
+ S ZTRTN="START^ECXTRANS",ZTIO=""
+"RTN","ECXTRANS",94,0)
+ S ZTDESC="Transmission of extract # "_ECDA
+"RTN","ECXTRANS",95,0)
+ W !! D ^%ZTLOAD
+"RTN","ECXTRANS",96,0)
+ I $D(ZTSK) D
+"RTN","ECXTRANS",97,0)
+ .W !,"Request queued as Task #",ZTSK,"."
+"RTN","ECXTRANS",98,0)
+ .S ^ECX(727,ECDA,"Q")=ZTSK K ZTSK
+"RTN","ECXTRANS",99,0)
+ .D PAUSE
+"RTN","ECXTRANS",100,0)
+ Q
+"RTN","ECXTRANS",101,0)
+ ; entry point for task
+"RTN","ECXTRANS",102,0)
+START N DA,DIC,DIQ,DR,ECAR1,ECAR2,ECC1,ECC2,ECED,ECGPR,ECF,ECGRP,ECHEAD,ECINST
+"RTN","ECXTRANS",103,0)
+ N ECMAX,ECMAXR,ECMSN,ECPACK,ECSIZ,ECVER,ECXDIC,I,J,EXDT
+"RTN","ECXTRANS",104,0)
+ N STR,STRCNT,X,ECSD,ECXLOGIC
+"RTN","ECXTRANS",105,0)
+ S:$P(^ECX(727,ECDA,0),U,3)'="Prosthetics" ECINST=$P(^ECX(728,1,0),U)
+"RTN","ECXTRANS",106,0)
+ S:$P(^ECX(727,ECDA,0),U,3)="Prosthetics" ECINST=$P(^("DIV"),U)
+"RTN","ECXTRANS",107,0)
+ S DA=ECINST,DIC="^DIC(4,",DIQ(0)="I",DIQ="ECXDIC",DR=".01;99"
+"RTN","ECXTRANS",108,0)
+ D EN^DIQ1 S ECINST=$G(ECXDIC(4,DA,99,"I"))
+"RTN","ECXTRANS",109,0)
+ S ECF=^ECX(727,ECDA,"FILE"),ECHEAD=^("HEAD"),ECGRP=^("GRP")
+"RTN","ECXTRANS",110,0)
+ S X=^(0),ECPACK=$P(X,U,3),ECSD=$P(X,U,4),ECED=$P(X,U,5)
+"RTN","ECXTRANS",111,0)
+ S X=$G(^("VER")),ECVER=$P(X,"^",1),ECXLOGIC=$P(X,"^",2)
+"RTN","ECXTRANS",112,0)
+ S:'ECVER ECVER=1 S ECVER=$$RJ^XLFSTR(ECVER,3,0)
+"RTN","ECXTRANS",113,0)
+ I ECXLOGIC="" S ECXLOGIC=$$FISCAL^ECXUTL1(ECSD)
+"RTN","ECXTRANS",114,0)
+ S ECXLOGIC=$$PAD^ECXUTL1(ECXLOGIC,5,"B"," ")
+"RTN","ECXTRANS",115,0)
+ I ECPACK["(setup)" S ECXQUEUE="DMU"
+"RTN","ECXTRANS",116,0)
+ K ^TMP($J)
+"RTN","ECXTRANS",117,0)
+ S ECHD(1)=ECINST_ECHEAD_$$ECXYM^ECXUTL(ECED)_ECVER_ECXLOGIC
+"RTN","ECXTRANS",118,0)
+ S ECMAX=130000,ECMAXR=250,ECLN=2,ECMSN=1,(ECRN,ECSIZ)=0,J=""
+"RTN","ECXTRANS",119,0)
+ F S J=$O(^ECX(ECF,"AC",ECDA,J)) Q:('J) D
+"RTN","ECXTRANS",120,0)
+ .M ECAR1=^ECX(ECF,J) S (ECAR2,ECC2)=1,(ECAR2(ECC2),ECC1)=""
+"RTN","ECXTRANS",121,0)
+ .F S ECC1=$O(ECAR1(ECC1)) Q:ECC1="" D
+"RTN","ECXTRANS",122,0)
+ ..S:ECC1=0 ECAR1(ECC1)=$P(ECAR1(ECC1),"^",4,999)
+"RTN","ECXTRANS",123,0)
+ ..S ECAR2(ECC2)=ECAR2(ECC2)_$TR(ECAR1(ECC1),"~"," ") I $L(ECAR2(ECC2))>ECMAXR D ;144
+"RTN","ECXTRANS",124,0)
+ ...F I=ECMAXR:-1:1 Q:$E(ECAR2(ECC2),I)="^"
+"RTN","ECXTRANS",125,0)
+ ...S (X,ECAR2)=ECAR2+1,ECAR2(X)=$E(ECAR2(ECC2),I+1,$L(ECAR2(ECC2)))
+"RTN","ECXTRANS",126,0)
+ ...S ECAR2(ECC2)=$E(ECAR2(ECC2),1,I),ECC2=X
+"RTN","ECXTRANS",127,0)
+ .S ECAR2(ECC2)=ECAR2(ECC2)_"^~",ECRN=ECRN+1,X=""
+"RTN","ECXTRANS",128,0)
+ .F S X=$O(ECAR2(X)) Q:X="" D
+"RTN","ECXTRANS",129,0)
+ ..S ^TMP($J,ECMSN,ECLN,0)=ECAR2(X),ECLN=ECLN+1,ECSIZ=ECSIZ+$L(ECAR2(X))
+"RTN","ECXTRANS",130,0)
+ .K ECAR1,ECAR2
+"RTN","ECXTRANS",131,0)
+ .I (ECSIZ>ECMAX),($O(^ECX(ECF,"AC",ECDA,J))) D
+"RTN","ECXTRANS",132,0)
+ ..S ECLN=2,ECMSN=ECMSN+1,ECSIZ=0
+"RTN","ECXTRANS",133,0)
+ ;quit if user stopped task
+"RTN","ECXTRANS",134,0)
+ I $$S^%ZTLOAD D CLEAN Q
+"RTN","ECXTRANS",135,0)
+ ;generate mailman messages to aac
+"RTN","ECXTRANS",136,0)
+ S ECXLNCNT=9,(ECXXMZ,STRCNT)=0,STR=""
+"RTN","ECXTRANS",137,0)
+ F ECMS=1:1:ECMSN D
+"RTN","ECXTRANS",138,0)
+ .D SEND(.ECXXMZ)
+"RTN","ECXTRANS",139,0)
+ .S STR=STR_$$RJ^XLFSTR(ECXXMZ,18," "),STRCNT=STRCNT+1 I STRCNT=4 D
+"RTN","ECXTRANS",140,0)
+ ..S ^TMP($J,"LOC",ECXLNCNT,0)=STR,ECXLNCNT=ECXLNCNT+1
+"RTN","ECXTRANS",141,0)
+ ..S STR="",STRCNT=0
+"RTN","ECXTRANS",142,0)
+ I STR]"" S ^TMP($J,"LOC",ECXLNCNT,0)=STR
+"RTN","ECXTRANS",143,0)
+ ;send msg to local dss grp
+"RTN","ECXTRANS",144,0)
+ D SENDLOC,CLEAN
+"RTN","ECXTRANS",145,0)
+ Q
+"RTN","ECXTRANS",146,0)
+ ;
+"RTN","ECXTRANS",147,0)
+SEND(ECXXMZ) ;send individual messages
+"RTN","ECXTRANS",148,0)
+ N ECXDD,DA,DIC,DIE,DINUM,X,Y,Z,XMDUZ,XMTEXT,XMSUB,XMY,XMZ,FODMN
+"RTN","ECXTRANS",149,0)
+ S XMSUB="("_ECGRP_") "_ECINST_" - "_ECPACK_" DSS EXTRACT, MESSAGE "_ECMS_" OF "_ECMSN
+"RTN","ECXTRANS",150,0)
+ S XMDUZ="DSS SYSTEM",^TMP($J,ECMS,1,0)=ECHD(1)
+"RTN","ECXTRANS",151,0)
+ S XMY("XXX at Q-"_ECXQUEUE_".DOMAIN.EXT")=""
+"RTN","ECXTRANS",152,0)
+ ;Send extracts done at field offices to user instead of AAC
+"RTN","ECXTRANS",153,0)
+ S FODMN=$$FODMN()
+"RTN","ECXTRANS",154,0)
+ I FODMN D
+"RTN","ECXTRANS",155,0)
+ .K XMY
+"RTN","ECXTRANS",156,0)
+ .S XMY(DUZ)=""
+"RTN","ECXTRANS",157,0)
+ S XMTEXT="^TMP($J,ECMS,"
+"RTN","ECXTRANS",158,0)
+ D ^XMD
+"RTN","ECXTRANS",159,0)
+ S ECXXMZ=XMZ
+"RTN","ECXTRANS",160,0)
+ ;store msg# in extract log
+"RTN","ECXTRANS",161,0)
+ D FIELD^DID(727,301,"","SPECIFIER","ECXDD")
+"RTN","ECXTRANS",162,0)
+ S DA(1)=ECDA,DIC(0)="L",DIC("P")=ECXDD("SPECIFIER")
+"RTN","ECXTRANS",163,0)
+ S DIC="^ECX(727,"_DA(1)_",1,",X=XMZ,DINUM=X
+"RTN","ECXTRANS",164,0)
+ K DD,DO D FILE^DICN
+"RTN","ECXTRANS",165,0)
+ ;Move message to DSSXMIT basket if sending from field office
+"RTN","ECXTRANS",166,0)
+ I FODMN D
+"RTN","ECXTRANS",167,0)
+ .N XMERR
+"RTN","ECXTRANS",168,0)
+ .D MOVEMSG^XMXAPI(DUZ,,XMZ,"DSSXMIT",.X)
+"RTN","ECXTRANS",169,0)
+ .K ^TMP("XMERR",$J)
+"RTN","ECXTRANS",170,0)
+ Q
+"RTN","ECXTRANS",171,0)
+ ;
+"RTN","ECXTRANS",172,0)
+SENDLOC ; send message to mail group 'DSS-ECGRP'
+"RTN","ECXTRANS",173,0)
+ S TIME=$P($$HTE^XLFDT($H),":",1,2)
+"RTN","ECXTRANS",174,0)
+ S XMSUB=ECINST_" - "_ECPACK_" EXTRACT FOR DSS",XMDUZ="DSS SYSTEM"
+"RTN","ECXTRANS",175,0)
+ K XMY S XMY(DUZ)="",XMY("G.DSS-"_ECGRP_"@"_^XMB("NETNAME"))=""
+"RTN","ECXTRANS",176,0)
+ S ^TMP($J,"LOC",1,0)="The DSS "_ECPACK_" ("_ECHEAD_") extract, #"_ECDA_","
+"RTN","ECXTRANS",177,0)
+ S ^TMP($J,"LOC",2,0)="was "_ECRE_"transmitted on "_$P(TIME,"@")_" at "_$P(TIME,"@",2)_". "
+"RTN","ECXTRANS",178,0)
+ S ^TMP($J,"LOC",3,0)=" "
+"RTN","ECXTRANS",179,0)
+ S ^TMP($J,"LOC",4,0)="Maximum number of Bytes (characters) per message: 131,000 "
+"RTN","ECXTRANS",180,0)
+ S ^TMP($J,"LOC",5,0)=" "
+"RTN","ECXTRANS",181,0)
+ S ^TMP($J,"LOC",6,0)="A total of "_ECRN_" records were written."
+"RTN","ECXTRANS",182,0)
+ S ^TMP($J,"LOC",7,0)="A total of "_ECMSN_" messages were sent."
+"RTN","ECXTRANS",183,0)
+ S ^TMP($J,"LOC",8,0)=" Message numbers :"
+"RTN","ECXTRANS",184,0)
+ S XMTEXT="^TMP($J,""LOC"","
+"RTN","ECXTRANS",185,0)
+ D ^XMD
+"RTN","ECXTRANS",186,0)
+ S ^ECX(727,ECDA,"TR")=DT
+"RTN","ECXTRANS",187,0)
+ Q
+"RTN","ECXTRANS",188,0)
+ ;
+"RTN","ECXTRANS",189,0)
+CLEAN ;clean-up
+"RTN","ECXTRANS",190,0)
+ S ZTREQ="@"
+"RTN","ECXTRANS",191,0)
+ K ^TMP($J),^ECX(727,ECDA,"Q"),XMDUZ,XMTEXT,XMSUB,XMY,XMZ
+"RTN","ECXTRANS",192,0)
+ K ECDA,ECRE,ECTMP,ECCHK,ECDIVVR,ECXDIQ,ECXMAX,ECXMSG
+"RTN","ECXTRANS",193,0)
+ D ^ECXKILL
+"RTN","ECXTRANS",194,0)
+ I $$S^%ZTLOAD K ZTREQ S ZTSTOP=1
+"RTN","ECXTRANS",195,0)
+ Q
+"RTN","ECXTRANS",196,0)
+ ;
+"RTN","ECXTRANS",197,0)
+PAUSE ;pause screen
+"RTN","ECXTRANS",198,0)
+ S OUT=0
+"RTN","ECXTRANS",199,0)
+ I $E(IOST)="C" D
+"RTN","ECXTRANS",200,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXTRANS",201,0)
+ .K DIR S DIR(0)="E" W ! D ^DIR K DIR
+"RTN","ECXTRANS",202,0)
+ I 'Y S OUT=1
+"RTN","ECXTRANS",203,0)
+ W !!
+"RTN","ECXTRANS",204,0)
+ Q
+"RTN","ECXTRANS",205,0)
+ ;
+"RTN","ECXTRANS",206,0)
+FODMN(DOMAIN) ;Is domain a field office domain
+"RTN","ECXTRANS",207,0)
+ ;Input : DOMAIN - Domain name to check
+"RTN","ECXTRANS",208,0)
+ ; - Default value pulled from ^XMB("NETNAME")
+"RTN","ECXTRANS",209,0)
+ ;Output: 1 = Yes / 0 = No
+"RTN","ECXTRANS",210,0)
+ ;
+"RTN","ECXTRANS",211,0)
+ N X,SUB,OUT
+"RTN","ECXTRANS",212,0)
+ S DOMAIN=$G(DOMAIN)
+"RTN","ECXTRANS",213,0)
+ S:(DOMAIN="") DOMAIN=$G(^XMB("NETNAME"))
+"RTN","ECXTRANS",214,0)
+ S OUT=0
+"RTN","ECXTRANS",215,0)
+ F X=1:1:$L(DOMAIN,".") D Q:OUT
+"RTN","ECXTRANS",216,0)
+ .S SUB=$P(DOMAIN,".",X)
+"RTN","ECXTRANS",217,0)
+ .I ($E(SUB,1,3)="FO-")!($E(SUB,1,4)="ISC-") S OUT=1
+"RTN","ECXTRANS",218,0)
+ Q OUT
+"RTN","ECXUD")
+0^12^B62950781^B58470506
+"RTN","ECXUD",1,0)
+ECXUD ;ALB/JAP,BIR/DMA,PTD-Extract from UNIT DOSE EXTRACT DATA File (#728.904) ;5/9/13 16:51
+"RTN","ECXUD",2,0)
+ ;;3.0;DSS EXTRACTS;**10,8,24,33,39,46,49,71,84,92,107,105,120,127,144**;Dec 22, 1997;Build 9
+"RTN","ECXUD",3,0)
+BEG ;entry point from option
+"RTN","ECXUD",4,0)
+ I '$O(^ECX(728.904,"A",0)) W !,"There are no unit dose orders to extract",!! R X:5 K X Q
+"RTN","ECXUD",5,0)
+ D SETUP I ECFILE="" Q
+"RTN","ECXUD",6,0)
+ D ^ECXTRAC,^ECXKILL
+"RTN","ECXUD",7,0)
+ Q
+"RTN","ECXUD",8,0)
+ ;
+"RTN","ECXUD",9,0)
+START ;start package specific extract
+"RTN","ECXUD",10,0)
+ S QFLG=0
+"RTN","ECXUD",11,0)
+ S ECED=ECED+.3
+"RTN","ECXUD",12,0)
+ F ECD=ECSD1:0 S ECD=$O(^ECX(728.904,"A",ECD)) Q:'ECD Q:ECD>ECED Q:QFLG D
+"RTN","ECXUD",13,0)
+ .S ECXJ=0 F S ECXJ=$O(^ECX(728.904,"A",ECD,ECXJ)) Q:'ECXJ Q:QFLG I $D(^ECX(728.904,ECXJ,0)) D
+"RTN","ECXUD",14,0)
+ ..S DATA=^ECX(728.904,ECXJ,0),^(1)=$P(EC23,U,2),^ECX(728.904,"AC",$P(EC23,U,2),ECXJ)="" D STUFF
+"RTN","ECXUD",15,0)
+ K ^TMP($J,"ECXP")
+"RTN","ECXUD",16,0)
+ Q
+"RTN","ECXUD",17,0)
+ ;
+"RTN","ECXUD",18,0)
+STUFF ;get data
+"RTN","ECXUD",19,0)
+ N X,W,OK,P1,P3,PSTAT,PT,ECXPHA,ON,ECDRG,ECXESC,ECXECL,ECXCLST,ECPROIEN,ECXUDDT,ECXUDTM ;144
+"RTN","ECXUD",20,0)
+ S (ECXESC,ECXECL,ECXCLST)="" ;144
+"RTN","ECXUD",21,0)
+ S ECXDFN=$P(DATA,U,2),ECDRG=$P(DATA,U,4)
+"RTN","ECXUD",22,0)
+ ;
+"RTN","ECXUD",23,0)
+ ;get patient specific data
+"RTN","ECXUD",24,0)
+ S ECXERR="" D PAT(ECXDFN,ECD,.ECXERR)
+"RTN","ECXUD",25,0)
+ Q:ECXERR
+"RTN","ECXUD",26,0)
+ ;
+"RTN","ECXUD",27,0)
+ S ECXPRO=$P(DATA,U,7),ECPROIEN=+ECXPRO,ECXPRO=$E($P(ECXPRO,";",2))_$P(ECXPRO,";")
+"RTN","ECXUD",28,0)
+ S ECXPRNPI=$$NPI^XUSNPI("Individual_ID",ECPROIEN,ECD)
+"RTN","ECXUD",29,0)
+ S:+ECXPRNPI'>0 ECXPRNPI="" S ECXPRNPI=$P(ECXPRNPI,U)
+"RTN","ECXUD",30,0)
+ S W=$P(DATA,U,6)
+"RTN","ECXUD",31,0)
+ S ECXDIV=$P($G(^DIC(42,+W,0)),U,11),ECXW=$P($G(^DIC(42,+W,44)),U)
+"RTN","ECXUD",32,0)
+ S ECXUDDT=$$ECXDATE^ECXUTL($P(DATA,U,3),ECXYM)
+"RTN","ECXUD",33,0)
+ S ECXUDTM=$E($P($P(DATA,U,3),".",2)_"000000",1,6)
+"RTN","ECXUD",34,0)
+ S ECXQTY=$P(DATA,U,5),ECXCOST=$P(DATA,U,8),ON=$P(DATA,U,10)
+"RTN","ECXUD",35,0)
+ ;call pharmacy drug file (#50) api via ecxutl5
+"RTN","ECXUD",36,0)
+ S ECXPHA=$$PHAAPI^ECXUTL5(ECDRG)
+"RTN","ECXUD",37,0)
+ S ECCAT=$P(ECXPHA,U,2),ECINV=$P(ECXPHA,U,4)
+"RTN","ECXUD",38,0)
+ I ECXLOGIC<2014 D ;New way to calculate cost dea spl hndlg **144
+"RTN","ECXUD",39,0)
+ .S ECINV=$S(ECINV["I":"I",1:"")
+"RTN","ECXUD",40,0)
+ I ECXLOGIC>2013 D
+"RTN","ECXUD",41,0)
+ .S ECINV=$S((+ECINV>0)&(+ECINV<6):+ECINV,ECINV["I":"I",1:"")
+"RTN","ECXUD",42,0)
+ S ECNDC=$P(ECXPHA,U,3)
+"RTN","ECXUD",43,0)
+ S ECNFC=$$RJ^XLFSTR($P(ECNDC,"-"),6,0)_$$RJ^XLFSTR($P(ECNDC,"-",2),4,0)_$$RJ^XLFSTR($P(ECNDC,"-",3),2,0),ECNFC=$TR(ECNFC,"*",0)
+"RTN","ECXUD",44,0)
+ S P1=$P(ECXPHA,U,5),P3=$P(ECXPHA,U,6),X="PSNAPIS"
+"RTN","ECXUD",45,0)
+ X ^%ZOSF("TEST") I $T S ECNFC=$$DSS^PSNAPIS(P1,P3,ECXYM)_ECNFC
+"RTN","ECXUD",46,0)
+ I $L(ECNFC)=12 S ECNFC=$$RJ^XLFSTR(P1,4,0)_$$RJ^XLFSTR(P3,3,0)_ECNFC
+"RTN","ECXUD",47,0)
+ ; - Department and National Production Division
+"RTN","ECXUD",48,0)
+ ;- Use of DSS Department postponed [S ECXDSSD=$$UDP^ECXDEPT(ECXDIV)]
+"RTN","ECXUD",49,0)
+ S ECXDSSD=""
+"RTN","ECXUD",50,0)
+ S ECXPDIV=$$GETDIV^ECXDEPT(ECXDIV)
+"RTN","ECXUD",51,0)
+ ;- Observation patient indicator (YES/NO)
+"RTN","ECXUD",52,0)
+ S ECXOBS=$$OBSPAT^ECXUTL4(ECXA,ECXTS)
+"RTN","ECXUD",53,0)
+ ;- Ordering Date, Ordering Stop Code
+"RTN","ECXUD",54,0)
+ S ECXORDDT=$TR($$FMTE^XLFDT($P(DATA,U,9),"7DF")," /","0")
+"RTN","ECXUD",55,0)
+ S ECXORDST="" I ECXA="O" D
+"RTN","ECXUD",56,0)
+ .;Get ordering stop code based on FY 2006 logic for outpatient
+"RTN","ECXUD",57,0)
+ .S ECXORDST=$$DOUDO^ECXUTL5(ECXDFN,ON)
+"RTN","ECXUD",58,0)
+ ;Ordering Provider Person Class
+"RTN","ECXUD",59,0)
+ S ECXOPPC=$$PRVCLASS^ECXUTL($E(ECXPRO,2,999),$P(DATA,U,9))
+"RTN","ECXUD",60,0)
+ S (ECXBCDD,ECXBCDG,ECXBCUA,ECXBCIF)="" ;144 BCMA are place holders now
+"RTN","ECXUD",61,0)
+ ;- Set national patient record flag if exist
+"RTN","ECXUD",62,0)
+ D NPRF^ECXUTL5
+"RTN","ECXUD",63,0)
+ ;- If no encounter number don't file record
+"RTN","ECXUD",64,0)
+ S ECXENC=$$ENCNUM^ECXUTL4(ECXA,ECXSSN,ECXADM,$P(DATA,U,3),ECXTS,ECXOBS,ECHEAD,,)
+"RTN","ECXUD",65,0)
+ D:ECXENC'="" FILE
+"RTN","ECXUD",66,0)
+ Q
+"RTN","ECXUD",67,0)
+ ;
+"RTN","ECXUD",68,0)
+PAT(ECXDFN,ECXDATE,ECXERR) ;get demographics from patient file
+"RTN","ECXUD",69,0)
+ ;init variables
+"RTN","ECXUD",70,0)
+ S (ECXCAT,ECXSTAT,ECXPRIOR,ECXSBGRP,ECXOEF,ECXOEFDT)=""
+"RTN","ECXUD",71,0)
+ ;get patient data if saved
+"RTN","ECXUD",72,0)
+ I $D(^TMP($J,"ECXP",ECXDFN)) D
+"RTN","ECXUD",73,0)
+ .S PT=^TMP($J,"ECXP",ECXDFN),ECXPNM=$P(PT,U),ECXSSN=$P(PT,U,2)
+"RTN","ECXUD",74,0)
+ .S ECXMPI=$P(PT,U,3),ECXDOB=$P(PT,U,4)
+"RTN","ECXUD",75,0)
+ .S ECXELIG=$P(PT,U,5),ECXSEX=$P(PT,U,6)
+"RTN","ECXUD",76,0)
+ .S ECXSTATE=$P(PT,U,7),ECXCNTY=$P(PT,U,8),ECXZIP=$P(PT,U,9)
+"RTN","ECXUD",77,0)
+ .S ECXVET=$P(PT,U,10),ECXPOS=$P(PT,U,11),ECXPST=$P(PT,U,12)
+"RTN","ECXUD",78,0)
+ .S ECXPLOC=$P(PT,U,13),ECXRST=$P(PT,U,14),ECXAST=$P(PT,U,15)
+"RTN","ECXUD",79,0)
+ .S ECXAOL=$P(PT,U,16),ECXPHI=$P(PT,U,17),ECXMST=$P(PT,U,18)
+"RTN","ECXUD",80,0)
+ .S ECXENRL=$P(PT,U,19),ECXCNHU=$P(PT,U,20),ECXCAT=$P(PT,U,21)
+"RTN","ECXUD",81,0)
+ .S ECXSTAT=$P(PT,U,22),ECXPRIOR=$P(PT,U,23),ECXHNCI=$P(PT,U,24)
+"RTN","ECXUD",82,0)
+ .S ECXETH=$P(PT,U,25),ECXRC1=$P(PT,U,26),ECXMTST=$P(PT,U,27)
+"RTN","ECXUD",83,0)
+ .S PT1=$G(^TMP($J,"ECXP",ECXDFN,1)),ECXERI=$P(PT1,U),ECXEST=$P(PT1,U,2),ECXOEF=$P(PT1,U,3),ECXOEFDT=$P(PT1,U,4),ECXCNTRY=$P(PT1,U,5)
+"RTN","ECXUD",84,0)
+ .S ECXSHADI=$P(PT1,U,6),ECXPATCAT=$P(PT1,U,7),ECXCLST=$P(PT1,U,8) ;144
+"RTN","ECXUD",85,0)
+ .I $$ENROLLM^ECXUTL2(ECXDFN)
+"RTN","ECXUD",86,0)
+ ;set patient data
+"RTN","ECXUD",87,0)
+ I '$D(^TMP($J,"ECXP",ECXDFN)) D Q:'OK
+"RTN","ECXUD",88,0)
+ .K ECXPAT S OK=$$PAT^ECXUTL3(ECXDFN,$P(ECXDATE,"."),"1;2;3;5",.ECXPAT)
+"RTN","ECXUD",89,0)
+ .I 'OK K ECXPAT S ECXERR=1 Q
+"RTN","ECXUD",90,0)
+ .S ECXPNM=ECXPAT("NAME"),ECXSSN=ECXPAT("SSN"),ECXMPI=ECXPAT("MPI")
+"RTN","ECXUD",91,0)
+ .S ECXDOB=ECXPAT("DOB"),ECXELIG=ECXPAT("ELIG"),ECXSEX=ECXPAT("SEX")
+"RTN","ECXUD",92,0)
+ .S ECXSTATE=ECXPAT("STATE"),ECXCNTY=ECXPAT("COUNTY")
+"RTN","ECXUD",93,0)
+ .S ECXZIP=ECXPAT("ZIP"),ECXVET=ECXPAT("VET"),ECXCNTRY=ECXPAT("COUNTRY")
+"RTN","ECXUD",94,0)
+ .S ECXPOS=ECXPAT("POS"),ECXPST=ECXPAT("POW STAT")
+"RTN","ECXUD",95,0)
+ .S ECXPLOC=ECXPAT("POW LOC"),ECXRST=ECXPAT("IR STAT")
+"RTN","ECXUD",96,0)
+ .S ECXAST=ECXPAT("AO STAT"),ECXAOL=ECXPAT("AOL")
+"RTN","ECXUD",97,0)
+ .S ECXPHI=ECXPAT("PHI"),ECXMST=ECXPAT("MST STAT")
+"RTN","ECXUD",98,0)
+ .S ECXENRL=ECXPAT("ENROLL LOC"),ECXMTST=ECXPAT("MEANS")
+"RTN","ECXUD",99,0)
+ .S ECXCLST=ECXPAT("CL STAT") ;144
+"RTN","ECXUD",100,0)
+ .;OEF/OIF data
+"RTN","ECXUD",101,0)
+ .S ECXOEF=ECXPAT("ECXOEF")
+"RTN","ECXUD",102,0)
+ .S ECXOEFDT=ECXPAT("ECXOEFDT")
+"RTN","ECXUD",103,0)
+ .;get CNHU status
+"RTN","ECXUD",104,0)
+ .S ECXCNHU=$$CNHSTAT^ECXUTL4(ECXDFN)
+"RTN","ECXUD",105,0)
+ .;get enrollment data (category, status and priority)
+"RTN","ECXUD",106,0)
+ .I $$ENROLLM^ECXUTL2(ECXDFN)
+"RTN","ECXUD",107,0)
+ .; - Head and Neck Cancer Indicator
+"RTN","ECXUD",108,0)
+ .S ECXHNCI=$$HNCI^ECXUTL4(ECXDFN)
+"RTN","ECXUD",109,0)
+ .; - Proj. 112/SHAD Indicator
+"RTN","ECXUD",110,0)
+ .S ECXSHADI=$$SHAD^ECXUTL4(ECXDFN)
+"RTN","ECXUD",111,0)
+ . ; ******* - PATCH 127, ADD PATCAT CODE ********
+"RTN","ECXUD",112,0)
+ .S ECXPATCAT=$$PATCAT^ECXUTL(ECXDFN)
+"RTN","ECXUD",113,0)
+ .; - Race and Ethnicity
+"RTN","ECXUD",114,0)
+ .S ECXETH=ECXPAT("ETHNIC")
+"RTN","ECXUD",115,0)
+ .S ECXRC1=ECXPAT("RACE1")
+"RTN","ECXUD",116,0)
+ .;get emergency response indicator (FEMA)
+"RTN","ECXUD",117,0)
+ .S ECXERI=ECXPAT("ERI")
+"RTN","ECXUD",118,0)
+ .S ECXEST=ECXPAT("EC STAT")
+"RTN","ECXUD",119,0)
+ .;save for later
+"RTN","ECXUD",120,0)
+ .S ^TMP($J,"ECXP",ECXDFN)=ECXPNM_U_ECXSSN_U_ECXMPI_U_ECXDOB_U_ECXELIG_U_ECXSEX_U_ECXSTATE_U_ECXCNTY_U_ECXZIP_U_ECXVET_U_ECXPOS_U_ECXPST_U_ECXPLOC_U_ECXRST_U_ECXAST
+"RTN","ECXUD",121,0)
+ .S ^TMP($J,"ECXP",ECXDFN)=^TMP($J,"ECXP",ECXDFN)_U_ECXAOL_U_ECXPHI_U_ECXMST_U_ECXENRL_U_ECXCNHU_U_ECXCAT_U_ECXSTAT_U_ECXPRIOR_U_ECXHNCI_U_ECXETH_U_ECXRC1_U_ECXMTST
+"RTN","ECXUD",122,0)
+ .S ^TMP($J,"ECXP",ECXDFN,1)=ECXERI_U_ECXEST_U_ECXOEF_U_ECXOEFDT_U_ECXCNTRY_U_ECXSHADI_U_ECXPATCAT_U_ECXCLST ;144
+"RTN","ECXUD",123,0)
+ ;
+"RTN","ECXUD",124,0)
+ ;get inpatient data
+"RTN","ECXUD",125,0)
+ S X=$$INP^ECXUTL2(ECXDFN,ECXDATE),ECXA=$P(X,U),ECXMN=$P(X,U,2)
+"RTN","ECXUD",126,0)
+ S ECXTS=$P(X,U,3),ECXADM=$P(X,U,4),ECXDOM=$P(X,U,10)
+"RTN","ECXUD",127,0)
+ ;
+"RTN","ECXUD",128,0)
+ ;get primary care data
+"RTN","ECXUD",129,0)
+ S X=$$PRIMARY^ECXUTL2(ECXDFN,$P(ECXDATE,"."))
+"RTN","ECXUD",130,0)
+ S ECPTTM=$P(X,U),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3),ECPTNPI=$P(X,U,4)
+"RTN","ECXUD",131,0)
+ S ECASPR=$P(X,U,5),ECCLAS2=$P(X,U,6),ECASNPI=$P(X,U,7)
+"RTN","ECXUD",132,0)
+ Q
+"RTN","ECXUD",133,0)
+ ;
+"RTN","ECXUD",134,0)
+FILE ;file record
+"RTN","ECXUD",135,0)
+ ;node0
+"RTN","ECXUD",136,0)
+ ;facility^dfn^ssn^name^in/out^day^drug category^quantity^ward^
+"RTN","ECXUD",137,0)
+ ;provider^cost^mov #^treat spec^ndc^new feeder key^investigational^
+"RTN","ECXUD",138,0)
+ ;udp time^adm date^adm time
+"RTN","ECXUD",139,0)
+ ;node1
+"RTN","ECXUD",140,0)
+ ;mpi^dss dept^provider npi^dom^observ pat ind^encounter num^
+"RTN","ECXUD",141,0)
+ ;prod div code^means tst^elig^dob^sex^state^county^zip+4^vet^
+"RTN","ECXUD",142,0)
+ ;period of svc^pow stat^pow loc^ir status^ao status^ao loc^
+"RTN","ECXUD",143,0)
+ ;purple heart ind.^mst status^cnh/sh status^enrollment loc^
+"RTN","ECXUD",144,0)
+ ;enrollment cat^enrollment status^enrollment priority^pc team^
+"RTN","ECXUD",145,0)
+ ;pc provider^pc provider npi^pc provider p.class^assoc. pc provider^
+"RTN","ECXUD",146,0)
+ ;assoc. pc provider npi^assoc. pc provider p.class
+"RTN","ECXUD",147,0)
+ ;node2
+"RTN","ECXUD",148,0)
+ ;ordering date^ordering stop code^head & neck cancer ind.^ethnicity^
+"RTN","ECXUD",149,0)
+ ;race1^bcma drug dispensed^bcma dose given^bcma unit of
+"RTN","ECXUD",150,0)
+ ;administration^bcma icu flag^ordering provider person class^
+"RTN","ECXUD",151,0)
+ ;^enrollment priority ECXPRIOR_enrollment subgroup
+"RTN","ECXUD",152,0)
+ ;ECXSBGRP^user enrollee ECXUESTA^patient type ECXPTYPE^combat vet
+"RTN","ECXUD",153,0)
+ ;elig ECXCVE^combat vet elig end date ECXCVEDT^enc cv eligible
+"RTN","ECXUD",154,0)
+ ;ECXCVENC^national patient record flag ECXNPRFI^emerg resp indic(FEMA)
+"RTN","ECXUD",155,0)
+ ;ECXERI^environ contamin ECXEST^OEF/OIF ECXOEF^OEF/OIF return date ECXOEFDT^associate pc provider npi ECASNPI^primary care provider npi ECPTNPI^provider npi ECXPRNPI
+"RTN","ECXUD",156,0)
+ ;^country ECXCNTRY^PATCAT^Encounter SC ECXESC^Camp Lejeune Status ECXCLST^Encounter Camp Lejeune ECXECL
+"RTN","ECXUD",157,0)
+ ;
+"RTN","ECXUD",158,0)
+ ;convert specialty to PTF Code for transmission
+"RTN","ECXUD",159,0)
+ N ECXDATA
+"RTN","ECXUD",160,0)
+ S ECXDATA=$$TSDATA^DGACT(42.4,+ECXTS,.ECXDATA)
+"RTN","ECXUD",161,0)
+ S ECXTS=$G(ECXDATA(7))
+"RTN","ECXUD",162,0)
+ ;done
+"RTN","ECXUD",163,0)
+ N DA,DIK
+"RTN","ECXUD",164,0)
+ S EC7=$O(^ECX(ECFILE,999999999),-1),EC7=EC7+1
+"RTN","ECXUD",165,0)
+ S ECODE=EC7_U_EC23_U_ECXDIV_U_ECXDFN_U_ECXSSN_U_ECXPNM_U_ECXA_U
+"RTN","ECXUD",166,0)
+ S ECODE=ECODE_ECXUDDT_U_ECCAT_U_ECXQTY_U_ECXW_U_ECXPRO_U_ECXCOST_U
+"RTN","ECXUD",167,0)
+ S ECODE=ECODE_ECXMN_U_ECXTS_U_ECNDC_U_ECNFC_U_ECINV_U_ECXUDTM_U
+"RTN","ECXUD",168,0)
+ S ECODE=ECODE_$$ECXDATE^ECXUTL(ECXADM,ECXYM)_U
+"RTN","ECXUD",169,0)
+ S ECODE=ECODE_$$ECXTIME^ECXUTL(ECXADM)_U
+"RTN","ECXUD",170,0)
+ S ECODE1=ECXMPI_U_ECXDSSD_U_U_ECXDOM_U_ECXOBS_U_ECXENC_U
+"RTN","ECXUD",171,0)
+ S ECODE1=ECODE1_ECXPDIV_U_ECXMTST_U_ECXELIG_U_ECXDOB_U_ECXSEX_U
+"RTN","ECXUD",172,0)
+ S ECODE1=ECODE1_ECXSTATE_U_ECXCNTY_U_ECXZIP_U_ECXVET_U_ECXPOS_U
+"RTN","ECXUD",173,0)
+ S ECODE1=ECODE1_ECXPST_U_ECXPLOC_U_ECXRST_U_ECXAST_U
+"RTN","ECXUD",174,0)
+ S ECODE1=ECODE1_ECXAOL_U_ECXPHI_U_ECXMST_U_ECXCNHU_U_ECXENRL_U
+"RTN","ECXUD",175,0)
+ S ECODE1=ECODE1_ECXCAT_U_ECXSTAT_U_$S(ECXLOGIC<2005:ECXPRIOR,ECXLOGIC>2010:ECXSHADI,1:"")_U_ECPTTM_U_ECPTPR_U
+"RTN","ECXUD",176,0)
+ S ECODE1=ECODE1_U_ECCLAS_U_ECASPR_U_U_ECCLAS2_U
+"RTN","ECXUD",177,0)
+ S ECODE2=ECXORDDT_U_ECXORDST_U_ECXHNCI_U_ECXETH_U_ECXRC1
+"RTN","ECXUD",178,0)
+ I ECXLOGIC>2003 S ECODE2=ECODE2_U_ECXBCDD_U_ECXBCDG_U_ECXBCUA_U_ECXBCIF_U_ECXOPPC
+"RTN","ECXUD",179,0)
+ I ECXLOGIC>2004 S ECODE2=ECODE2_U_U_ECXPRIOR_ECXSBGRP_U_ECXUESTA_U_ECXPTYPE_U_ECXCVE_U_ECXCVEDT_U_ECXCVENC_U_ECXNPRFI
+"RTN","ECXUD",180,0)
+ I ECXLOGIC>2006 S ECODE2=ECODE2_U_ECXERI_U_ECXEST
+"RTN","ECXUD",181,0)
+ I ECXLOGIC>2007 S ECODE2=ECODE2_U_ECXOEF_U_ECXOEFDT_U_ECASNPI_U_ECPTNPI_U_ECXPRNPI
+"RTN","ECXUD",182,0)
+ I ECXLOGIC>2009 S ECODE2=ECODE2_U_ECXCNTRY
+"RTN","ECXUD",183,0)
+ I ECXLOGIC>2010 S ECODE2=ECODE2_U_ECXPATCAT ; 127 PATCAT ADDED
+"RTN","ECXUD",184,0)
+ I ECXLOGIC>2013 S ECODE2=ECODE2_U_ECXESC_U_ECXCLST_U_ECXECL ;144
+"RTN","ECXUD",185,0)
+ S ^ECX(ECFILE,EC7,0)=ECODE,^ECX(ECFILE,EC7,1)=ECODE1
+"RTN","ECXUD",186,0)
+ S ^ECX(ECFILE,EC7,2)=ECODE2,ECRN=ECRN+1
+"RTN","ECXUD",187,0)
+ S DA=EC7,DIK="^ECX("_ECFILE_"," D IX1^DIK K DIK,DA
+"RTN","ECXUD",188,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S QFLG=1
+"RTN","ECXUD",189,0)
+ Q
+"RTN","ECXUD",190,0)
+ ;
+"RTN","ECXUD",191,0)
+SETUP ;Set required input for ECXTRAC
+"RTN","ECXUD",192,0)
+ S ECHEAD="UDP"
+"RTN","ECXUD",193,0)
+ D ECXDEF^ECXUTL2(ECHEAD,.ECPACK,.ECGRP,.ECFILE,.ECRTN,.ECPIECE,.ECVER)
+"RTN","ECXUD",194,0)
+ Q
+"RTN","ECXUD",195,0)
+ ;
+"RTN","ECXUD",196,0)
+QUE ; entry point for the background requeuing handled by ECXTAUTO
+"RTN","ECXUD",197,0)
+ D SETUP,QUE^ECXTAUTO,^ECXKILL
+"RTN","ECXUD",198,0)
+ Q
+"RTN","ECXUPRO")
+0^34^B27534272^B23782854
+"RTN","ECXUPRO",1,0)
+ECXUPRO ;ALB/TJL-Prosthetic Extract Unusual Cost Report ;3/4/13 16:11
+"RTN","ECXUPRO",2,0)
+ ;;3.0;DSS EXTRACTS;**49,111,144**;July 1, 2003;Build 9
+"RTN","ECXUPRO",3,0)
+ ;
+"RTN","ECXUPRO",4,0)
+EN ; entry point
+"RTN","ECXUPRO",5,0)
+ N X,Y,DATE,ECRUN,ECXDESC,ECXSAVE,ECXTL,ECTHLD,ECXPORT,CNT ;144
+"RTN","ECXUPRO",6,0)
+ N ECINST,ECSD,ECSD1,ECSTART,ECED,ECEND,ECXERR,QFLG
+"RTN","ECXUPRO",7,0)
+ S QFLG=0
+"RTN","ECXUPRO",8,0)
+ S ECINST=$$PDIV^ECXPUTL
+"RTN","ECXUPRO",9,0)
+ ; get today's date
+"RTN","ECXUPRO",10,0)
+ D NOW^%DTC S DATE=X,Y=$E(%,1,12) D DD^%DT S ECRUN=$P(Y,"@") K %DT
+"RTN","ECXUPRO",11,0)
+ D BEGIN Q:QFLG
+"RTN","ECXUPRO",12,0)
+ D SELECT Q:QFLG
+"RTN","ECXUPRO",13,0)
+ S ECXPORT=$$EXPORT^ECXUTL1 Q:ECXPORT=-1 I ECXPORT D Q ;144
+"RTN","ECXUPRO",14,0)
+ .K ^TMP($J) ;144
+"RTN","ECXUPRO",15,0)
+ .S ^TMP($J,"ECXPORT",0)="NAME^SSN^DATE OF SERVICE^PCE CPT/HCPCS CODES & MODIFIERS^FEEDER KEY^QUANTITY^COST OF TRANSACTION" ;144
+"RTN","ECXUPRO",16,0)
+ .S CNT=1 ;144
+"RTN","ECXUPRO",17,0)
+ .D PROCESS ;144
+"RTN","ECXUPRO",18,0)
+ .D EXPDISP^ECXUTL1 ;144
+"RTN","ECXUPRO",19,0)
+ ;device selection
+"RTN","ECXUPRO",20,0)
+ S ECXDESC="Prosthetic Extract Unusual Cost Report"
+"RTN","ECXUPRO",21,0)
+ S ECXSAVE("EC*")=""
+"RTN","ECXUPRO",22,0)
+ W !!,"This report requires 132-column format."
+"RTN","ECXUPRO",23,0)
+ D EN^XUTMDEVQ("PROCESS^ECXUPRO",ECXDESC,.ECXSAVE)
+"RTN","ECXUPRO",24,0)
+ I POP W !!,"No device selected...exiting.",! Q
+"RTN","ECXUPRO",25,0)
+ I IO'=IO(0) D ^%ZISC
+"RTN","ECXUPRO",26,0)
+ D HOME^%ZIS
+"RTN","ECXUPRO",27,0)
+ D AUDIT^ECXKILL
+"RTN","ECXUPRO",28,0)
+ Q
+"RTN","ECXUPRO",29,0)
+ ;
+"RTN","ECXUPRO",30,0)
+BEGIN ; display report description
+"RTN","ECXUPRO",31,0)
+ W @IOF
+"RTN","ECXUPRO",32,0)
+ W !,"This report prints a listing of unusual costs that would be"
+"RTN","ECXUPRO",33,0)
+ W !,"generated by the Prosthetic extract (PRO) as determined by a"
+"RTN","ECXUPRO",34,0)
+ W !,"user-defined threshold value. It should be run prior to the"
+"RTN","ECXUPRO",35,0)
+ W !,"generation of the actual extract(s) to identify and fix, as"
+"RTN","ECXUPRO",36,0)
+ W !,"necessary, any costs determined to be erroneous."
+"RTN","ECXUPRO",37,0)
+ W !!,"Unusual costs are those where the Cost of Transaction is"
+"RTN","ECXUPRO",38,0)
+ W !,"greater than the threshold value."
+"RTN","ECXUPRO",39,0)
+ W !!,"Note: The threshold can be set after a report is selected."
+"RTN","ECXUPRO",40,0)
+ W !!,"Run times for this report will vary depending upon the size of"
+"RTN","ECXUPRO",41,0)
+ W !,"the extract and could take as long as 30 minutes or more to"
+"RTN","ECXUPRO",42,0)
+ W !,"complete. This report has no effect on the actual extracts and"
+"RTN","ECXUPRO",43,0)
+ W !,"can be run as needed."
+"RTN","ECXUPRO",44,0)
+ W !!,"The report is sorted by Feeder Key, then by descending Cost of"
+"RTN","ECXUPRO",45,0)
+ W !,"Transaction and SSN."
+"RTN","ECXUPRO",46,0)
+ S DIR(0)="E" W ! D ^DIR K DIR I 'Y S QFLG=1 Q
+"RTN","ECXUPRO",47,0)
+ W:$Y!($E(IOST)="C") @IOF,!!
+"RTN","ECXUPRO",48,0)
+ Q
+"RTN","ECXUPRO",49,0)
+ ;
+"RTN","ECXUPRO",50,0)
+SELECT ; user inputs for threshold cost and date range
+"RTN","ECXUPRO",51,0)
+ N DONE,OUT
+"RTN","ECXUPRO",52,0)
+ ; allow user to set threshold cost
+"RTN","ECXUPRO",53,0)
+ S ECTHLD=500
+"RTN","ECXUPRO",54,0)
+ W !!,"The default threshold cost for the Prosthetic extract is $"_ECTHLD_".00."
+"RTN","ECXUPRO",55,0)
+ S DIR(0)="Y",DIR("A")="Would you like to change the threshold?",DIR("B")="NO" D ^DIR K DIR I X["^" S QFLG=1 Q
+"RTN","ECXUPRO",56,0)
+ I Y D
+"RTN","ECXUPRO",57,0)
+ .W !!,"Cost > threshold"
+"RTN","ECXUPRO",58,0)
+ .S DIR(0)="N^0:999999",DIR("A")="Enter the new threshold cost" D ^DIR K DIR S ECTHLD=Y I X["^" S QFLG=1 Q
+"RTN","ECXUPRO",59,0)
+ ; get date range from user
+"RTN","ECXUPRO",60,0)
+ W !!,"Enter the date range for which you would like to scan the Prosthetic",!,"Extract records.",!
+"RTN","ECXUPRO",61,0)
+ S DONE=0 F S (ECED,ECSD)="" D Q:QFLG!DONE
+"RTN","ECXUPRO",62,0)
+ .K %DT S %DT="AEX",%DT("A")="Starting with Date: ",%DT(0)=-DATE D ^%DT
+"RTN","ECXUPRO",63,0)
+ .I Y<0 S QFLG=1 Q
+"RTN","ECXUPRO",64,0)
+ .S ECSD=Y,ECSD1=ECSD-.1
+"RTN","ECXUPRO",65,0)
+ .D DD^%DT S ECSTART=Y
+"RTN","ECXUPRO",66,0)
+ .K %DT S %DT="AEX",%DT("A")="Ending with Date: ",%DT(0)=-DATE D ^%DT
+"RTN","ECXUPRO",67,0)
+ .I Y<0 S QFLG=1 Q
+"RTN","ECXUPRO",68,0)
+ .I Y<ECSD D Q
+"RTN","ECXUPRO",69,0)
+ ..W !!,"The ending date cannot be earlier than the starting date."
+"RTN","ECXUPRO",70,0)
+ ..W !,"Please try again.",!!
+"RTN","ECXUPRO",71,0)
+ .I $E(Y,1,5)'=$E(ECSD,1,5) D Q
+"RTN","ECXUPRO",72,0)
+ ..W !!,"Beginning and ending dates must be in the same month and year."
+"RTN","ECXUPRO",73,0)
+ ..W !,"Please try again.",!!
+"RTN","ECXUPRO",74,0)
+ .S ECED=Y
+"RTN","ECXUPRO",75,0)
+ .D DD^%DT S ECEND=Y
+"RTN","ECXUPRO",76,0)
+ .S DONE=1
+"RTN","ECXUPRO",77,0)
+ Q
+"RTN","ECXUPRO",78,0)
+ ;
+"RTN","ECXUPRO",79,0)
+PROCESS ; entry point for queued report
+"RTN","ECXUPRO",80,0)
+ S ZTREQ="@"
+"RTN","ECXUPRO",81,0)
+ S ECXERR=0 D EN^ECXUPRO1 Q:ECXERR
+"RTN","ECXUPRO",82,0)
+ S QFLG=0 D PRINT
+"RTN","ECXUPRO",83,0)
+ Q
+"RTN","ECXUPRO",84,0)
+ ;
+"RTN","ECXUPRO",85,0)
+PRINT ; process temp file and print report
+"RTN","ECXUPRO",86,0)
+ N PG,QFLG,GTOT,LN,COUNT,FKEY,COST,SSN,REC,SDAY,I ;144
+"RTN","ECXUPRO",87,0)
+ U IO
+"RTN","ECXUPRO",88,0)
+ I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 K ZTREQ Q
+"RTN","ECXUPRO",89,0)
+ S (PG,QFLG,GTOT)=0,$P(LN,"-",132)=""
+"RTN","ECXUPRO",90,0)
+ I '$G(ECXPORT) D HEADER Q:QFLG ;144
+"RTN","ECXUPRO",91,0)
+ S COUNT=0,FKEY=""
+"RTN","ECXUPRO",92,0)
+ F S FKEY=$O(^TMP($J,FKEY)) Q:FKEY=""!QFLG D
+"RTN","ECXUPRO",93,0)
+ .S COST="" F S COST=$O(^TMP($J,FKEY,COST)) Q:COST=""!QFLG D
+"RTN","ECXUPRO",94,0)
+ .. S SDAY="" F S SDAY=$O(^TMP($J,FKEY,COST,SDAY)) Q:SDAY=""!QFLG D
+"RTN","ECXUPRO",95,0)
+ ...S SSN="" F S SSN=$O(^TMP($J,FKEY,COST,SDAY,SSN)) Q:SSN=""!QFLG S REC=^(SSN) D
+"RTN","ECXUPRO",96,0)
+ ....I $G(ECXPORT) S ^TMP($J,"ECXPORT",CNT)=REC,CNT=CNT+1 Q ;144
+"RTN","ECXUPRO",97,0)
+ ....S COUNT=COUNT+1
+"RTN","ECXUPRO",98,0)
+ ....I $Y+3>IOSL D HEADER Q:QFLG
+"RTN","ECXUPRO",99,0)
+ ....W !,$P(REC,U),?8,$P(REC,U,2),?21,$P(REC,U,3),?39,$P(REC,U,4),?70,$P(REC,U,5),?93,$$RJ^XLFSTR($P(REC,U,6),8),?110,$$RJ^XLFSTR($P(REC,U,7),11)
+"RTN","ECXUPRO",100,0)
+ Q:QFLG!($G(ECXPORT)) ;144
+"RTN","ECXUPRO",101,0)
+ I COUNT=0 W !!,?8,"No unusual costs to report for this extract"
+"RTN","ECXUPRO",102,0)
+CLOSE ;
+"RTN","ECXUPRO",103,0)
+ I $E(IOST)="C",'QFLG D
+"RTN","ECXUPRO",104,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXUPRO",105,0)
+ .S DIR(0)="E" W ! D ^DIR K DIR
+"RTN","ECXUPRO",106,0)
+ Q
+"RTN","ECXUPRO",107,0)
+ ;
+"RTN","ECXUPRO",108,0)
+HEADER ;header and page control
+"RTN","ECXUPRO",109,0)
+ N SS,JJ
+"RTN","ECXUPRO",110,0)
+ I $E(IOST)="C" D
+"RTN","ECXUPRO",111,0)
+ .S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXUPRO",112,0)
+ .I PG>0 S DIR(0)="E" W ! D ^DIR K DIR S:'Y QFLG=1
+"RTN","ECXUPRO",113,0)
+ Q:QFLG
+"RTN","ECXUPRO",114,0)
+ W:$Y!($E(IOST)="C") @IOF S PG=PG+1
+"RTN","ECXUPRO",115,0)
+ W !,"Prosthetic Extract Unusual Cost Report",?124,"Page: "_PG
+"RTN","ECXUPRO",116,0)
+ W !,"Start Date: ",ECSTART,?97,"Report Run Date/Time: "_ECRUN
+"RTN","ECXUPRO",117,0)
+ W !," End Date: ",ECEND,?97," Threshold Value: ",ECTHLD
+"RTN","ECXUPRO",118,0)
+ W !!,?21,"Date of",?43,"PCE CPT/",?112,"Cost of"
+"RTN","ECXUPRO",119,0)
+ W !,"Name",?11,"SSN",?21,"Service",?36,"HCPCS CODE & Modifiers"
+"RTN","ECXUPRO",120,0)
+ W ?72,"Feeder Key",?93,"Quantity",?110,"Transaction"
+"RTN","ECXUPRO",121,0)
+ W !,LN,!
+"RTN","ECXUPRO",122,0)
+ Q
+"RTN","ECXUPRO",123,0)
+ ;
+"RTN","ECXUPRO1")
+0^35^B7760162^B7105553
+"RTN","ECXUPRO1",1,0)
+ECXUPRO1 ;ALB/TJL-Prosthetics Extract Unusual Cost Report; 01/08/08 2:49pm ;3/4/13 16:11
+"RTN","ECXUPRO1",2,0)
+ ;;3.0;DSS EXTRACTS;**49,111,132,137,144**;Dec 22, 1997;Build 9
+"RTN","ECXUPRO1",3,0)
+ ;
+"RTN","ECXUPRO1",4,0)
+EN ; entry point
+"RTN","ECXUPRO1",5,0)
+ N COUNT,ECDFN,ECD,PROCOST
+"RTN","ECXUPRO1",6,0)
+ I '$G(ECXPORT) K ^TMP($J) ;144 If exporting, already killed
+"RTN","ECXUPRO1",7,0)
+ S COUNT=0
+"RTN","ECXUPRO1",8,0)
+ S ECD=ECSD1,ECED=ECED+.3
+"RTN","ECXUPRO1",9,0)
+ D GETRECS
+"RTN","ECXUPRO1",10,0)
+ Q
+"RTN","ECXUPRO1",11,0)
+ ;
+"RTN","ECXUPRO1",12,0)
+GETRECS ; get records that are over the threshold
+"RTN","ECXUPRO1",13,0)
+ N PDA,SUBDA,PROLB,PRO0,PROFORM
+"RTN","ECXUPRO1",14,0)
+ N DIC,DR,DA,DIQ
+"RTN","ECXUPRO1",15,0)
+ S QFLG=0,ECXLNE=1,ECXED1=ECED+.9999
+"RTN","ECXUPRO1",16,0)
+ S PDA=ECSD1
+"RTN","ECXUPRO1",17,0)
+ F S PDA=$O(^RMPR(660,"CT",PDA)) Q:(PDA>ECXED1)!('PDA)!(QFLG=1) D
+"RTN","ECXUPRO1",18,0)
+ .S SUBDA=0
+"RTN","ECXUPRO1",19,0)
+ .F S SUBDA=$O(^RMPR(660,"CT",PDA,SUBDA)) Q:('SUBDA)!(QFLG=1) D
+"RTN","ECXUPRO1",20,0)
+ ..Q:'$D(^RMPR(660,SUBDA,0))
+"RTN","ECXUPRO1",21,0)
+ ..S PRO0=^RMPR(660,SUBDA,0)
+"RTN","ECXUPRO1",22,0)
+ ..S PROLB=$G(^RMPR(660,SUBDA,"LB"))
+"RTN","ECXUPRO1",23,0)
+ ..K ECXP S DIC="^RMPR(660,",DR=".02;11",DA=SUBDA,DIQ(0)="EI"
+"RTN","ECXUPRO1",24,0)
+ ..S DIQ="ECXP" D EN^DIQ1
+"RTN","ECXUPRO1",25,0)
+ ..S ECXDFN=$G(ECXP(660,SUBDA,.02,"I"))
+"RTN","ECXUPRO1",26,0)
+ ..S PROFORM=$G(ECXP(660,SUBDA,11,"E"))_U_$G(ECXP(660,SUBDA,11,"I"))
+"RTN","ECXUPRO1",27,0)
+ ..Q:'$$PATDEM^ECXUTL2(ECXDFN,PDA)
+"RTN","ECXUPRO1",28,0)
+ ..Q:'$$NTEG^ECXPRO1(ECXDFN,.ECXLNE,SUBDA,PRO0,PROLB,ECINST,PROFORM)
+"RTN","ECXUPRO1",29,0)
+ ..S PROCOST=$P(PRO0,U,16)
+"RTN","ECXUPRO1",30,0)
+ ..S:PROFORM["-3" PROCOST=$P(PROLB,U,9)
+"RTN","ECXUPRO1",31,0)
+ ..S:($P(PROFORM,U,2)=11)!($P(PROFORM,U,2)=12) PROCOST=0
+"RTN","ECXUPRO1",32,0)
+ ..S:PROCOST="" PROCOST=0
+"RTN","ECXUPRO1",33,0)
+ ..S PROCOST=(PROCOST+.5)\1
+"RTN","ECXUPRO1",34,0)
+ ..S:PROCOST>999999 PROCOST=999999
+"RTN","ECXUPRO1",35,0)
+ ..I PROCOST>ECTHLD D FILE
+"RTN","ECXUPRO1",36,0)
+ Q
+"RTN","ECXUPRO1",37,0)
+FILE ; put records in temp file to print later
+"RTN","ECXUPRO1",38,0)
+ N OK,PROPAT,PRONAME,PROSSN,CPTCODE,ECXFEKEY,PROQTY
+"RTN","ECXUPRO1",39,0)
+ S OK=$$PAT^ECXUTL3(ECXDFN,$P(ECD,"."),"1;",.PROPAT)
+"RTN","ECXUPRO1",40,0)
+ I 'OK Q
+"RTN","ECXUPRO1",41,0)
+ S PRONAME=PROPAT("NAME")
+"RTN","ECXUPRO1",42,0)
+ S PROSSN=PROPAT("SSN")
+"RTN","ECXUPRO1",43,0)
+ S PRODAY=$E(PDA,4,5)_"/"_$E(PDA,6,7)_"/"_$E(PDA,2,3)
+"RTN","ECXUPRO1",44,0)
+ S CPTCODE=$E(ECXHCPCS,1,5)
+"RTN","ECXUPRO1",45,0)
+ I PROFORM["-3" F ECXLAB="LAB","ORD" D FEEDINFO^ECXPRO2(ECXSRCE,CPTCODE,ECXTYPE,ECXSTAT2,ECXRQST,ECXRCST,ECXLAB,ECXNPPDC)
+"RTN","ECXUPRO1",46,0)
+ I PROFORM'["-3" S ECXLAB="NONL" D FEEDINFO^ECXPRO2(ECXSRCE,CPTCODE,ECXTYPE,ECXSTAT2,ECXRQST,ECXRCST,ECXLAB,ECXNPPDC)
+"RTN","ECXUPRO1",47,0)
+ S PROQTY=$P(PRO0,U,7)
+"RTN","ECXUPRO1",48,0)
+ S:(+PROQTY=0) PROQTY=1
+"RTN","ECXUPRO1",49,0)
+ S PROQTY=$S('$G(ECXPORT):$$RJ^XLFSTR(PROQTY,8,0),1:PROQTY) ;144
+"RTN","ECXUPRO1",50,0)
+ S ^TMP($J,ECXFEKEY,-PROQTY,SUBDA,PROSSN)=PRONAME_U_PROSSN_U_PRODAY_U_ECXHCPCS_U_ECXFEKEY_U_PROQTY_U_$S('$G(ECXPORT):"$",1:"")_$FNUMBER(PROCOST,",",2) ;144
+"RTN","ECXUPRO1",51,0)
+ S COUNT=COUNT+1
+"RTN","ECXUPRO1",52,0)
+ I COUNT#100=0 I $$S^ZTLOAD S (ZTSTOP,ECXERR)=1
+"RTN","ECXUPRO1",53,0)
+ Q
+"RTN","ECXUPRO1",54,0)
+EXIT S ECXERR=1 Q
+"RTN","ECXUTL")
+0^8^B53992756^B53983584
+"RTN","ECXUTL",1,0)
+ECXUTL ;ALB/JAP - Utilities for DSS Extracts ; 11/23/10 1:58pm
+"RTN","ECXUTL",2,0)
+ ;;3.0;DSS EXTRACTS;**1,5,8,84,90,127,144**;Dec 22, 1997;Build 9
+"RTN","ECXUTL",3,0)
+ ;
+"RTN","ECXUTL",4,0)
+ECXYM(ECXFMDT) ;extrinsic function
+"RTN","ECXUTL",5,0)
+ ;converts any FM internal format date or date/time to a 6-character string
+"RTN","ECXUTL",6,0)
+ ;
+"RTN","ECXUTL",7,0)
+ ; input
+"RTN","ECXUTL",8,0)
+ ; ECXFMDT = date or date/time; FM internal format (required)
+"RTN","ECXUTL",9,0)
+ ; output
+"RTN","ECXUTL",10,0)
+ ; ECXYM = YYYYMM string
+"RTN","ECXUTL",11,0)
+ ;
+"RTN","ECXUTL",12,0)
+ N MONTH,YEAR,CENTURY,ECXYM
+"RTN","ECXUTL",13,0)
+ ;
+"RTN","ECXUTL",14,0)
+ ;error checks
+"RTN","ECXUTL",15,0)
+ I +ECXFMDT'=ECXFMDT S ECXYM="000000" Q ECXYM
+"RTN","ECXUTL",16,0)
+ I $L($P(ECXFMDT,"."))'=7 S ECXYM="000000" Q ECXYM
+"RTN","ECXUTL",17,0)
+ I +$E(ECXFMDT,4,5)<1!(+$E(ECXFMDT,4,5)>12) S ECXYM="000000" Q ECXYM
+"RTN","ECXUTL",18,0)
+ ;
+"RTN","ECXUTL",19,0)
+ S MONTH=$E(ECXFMDT,4,5),YEAR=$E(ECXFMDT,2,3),CENTURY=$E(ECXFMDT,1)+17
+"RTN","ECXUTL",20,0)
+ S ECXYM=CENTURY_YEAR_MONTH
+"RTN","ECXUTL",21,0)
+ Q ECXYM
+"RTN","ECXUTL",22,0)
+ ;
+"RTN","ECXUTL",23,0)
+ECXYMX(ECXYM) ;extrinsic function
+"RTN","ECXUTL",24,0)
+ ;converts a 6-character numeric string of format YYYYMM
+"RTN","ECXUTL",25,0)
+ ;to a FM external format date
+"RTN","ECXUTL",26,0)
+ ;
+"RTN","ECXUTL",27,0)
+ ; input
+"RTN","ECXUTL",28,0)
+ ; ECXYM = YYYYMM string (required)
+"RTN","ECXUTL",29,0)
+ ; output
+"RTN","ECXUTL",30,0)
+ ; ECXYMX = FM external format date;
+"RTN","ECXUTL",31,0)
+ ; SEP 1997
+"RTN","ECXUTL",32,0)
+ ; error code
+"RTN","ECXUTL",33,0)
+ ; if input problem, then "000000" returned
+"RTN","ECXUTL",34,0)
+ ;
+"RTN","ECXUTL",35,0)
+ N Y,%DT,CENTURY,FMCENT,ECXYMX
+"RTN","ECXUTL",36,0)
+ ;
+"RTN","ECXUTL",37,0)
+ ;error checks
+"RTN","ECXUTL",38,0)
+ I ECXYM="" S ECXYMX="000000" Q ECXYMX
+"RTN","ECXUTL",39,0)
+ I +ECXYM'=ECXYM S ECXYMX="000000" Q ECXYMX
+"RTN","ECXUTL",40,0)
+ I $L(ECXYM)'=6 S ECXYMX="000000" Q ECXYMX
+"RTN","ECXUTL",41,0)
+ I +$E(ECXYM,1,4)<1800 S ECXYMX="000000" Q ECXYMX
+"RTN","ECXUTL",42,0)
+ I +$E(ECXYM,5,6)<1!(+$E(ECXYM,5,6)>12) S ECXYMX="000000" Q ECXYMX
+"RTN","ECXUTL",43,0)
+ ;
+"RTN","ECXUTL",44,0)
+ S CENTURY=$E(ECXYM,1,2)
+"RTN","ECXUTL",45,0)
+ S FMCENT=CENTURY-17
+"RTN","ECXUTL",46,0)
+ S Y=FMCENT_$E(ECXYM,3,6) D DD^%DT S ECXYMX=Y
+"RTN","ECXUTL",47,0)
+ ;
+"RTN","ECXUTL",48,0)
+ ;error checks
+"RTN","ECXUTL",49,0)
+ I $L(ECXYMX)'=8 S ECXYMX="000000"
+"RTN","ECXUTL",50,0)
+ I "JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC"'[$E(ECXYMX,1,3) S ECXYMX="000000"
+"RTN","ECXUTL",51,0)
+ Q ECXYMX
+"RTN","ECXUTL",52,0)
+ ;
+"RTN","ECXUTL",53,0)
+ECXDATE(ECXFMDT,ECXYM) ;extrinsic function
+"RTN","ECXUTL",54,0)
+ ;converts any FM internal format date or date/time to a 8-character string
+"RTN","ECXUTL",55,0)
+ ;
+"RTN","ECXUTL",56,0)
+ ; input
+"RTN","ECXUTL",57,0)
+ ; ECXFMDT = date or date/time; FM internal format (required)
+"RTN","ECXUTL",58,0)
+ ; ECXYM = YYYYMM; year/month 6-character string (required)
+"RTN","ECXUTL",59,0)
+ ; output
+"RTN","ECXUTL",60,0)
+ ; ECXDATE = YYYYMMDD string
+"RTN","ECXUTL",61,0)
+ ; error code
+"RTN","ECXUTL",62,0)
+ ; "000000" returned, if problem with input
+"RTN","ECXUTL",63,0)
+ ;
+"RTN","ECXUTL",64,0)
+ N MONTH,YEAR,CENTURY,DAY,ECXDATE
+"RTN","ECXUTL",65,0)
+ ;
+"RTN","ECXUTL",66,0)
+ ;error checks
+"RTN","ECXUTL",67,0)
+ I +ECXYM'=ECXYM S ECXDATE="000000" Q ECXDATE
+"RTN","ECXUTL",68,0)
+ I $L(ECXYM)'=6 S ECXDATE="000000" Q ECXDATE
+"RTN","ECXUTL",69,0)
+ I +$E(ECXYM,1,4)<1800 S ECXDATE="000000" Q ECXDATE
+"RTN","ECXUTL",70,0)
+ I +$E(ECXYM,5,6)<1!($E(ECXYM,5,6)>12) S ECXDATE="000000" Q ECXDATE
+"RTN","ECXUTL",71,0)
+ ;special case where ecxfmdt is null; default to year/month of ecxym
+"RTN","ECXUTL",72,0)
+ I ECXFMDT="" S ECXDATE=ECXYM_"01" Q ECXDATE
+"RTN","ECXUTL",73,0)
+ ;error checks
+"RTN","ECXUTL",74,0)
+ I +ECXFMDT'=ECXFMDT S ECXDATE=ECXYM_"01" Q ECXDATE
+"RTN","ECXUTL",75,0)
+ I $L(ECXFMDT)<7 S ECXDATE=ECXYM_"01" Q ECXDATE
+"RTN","ECXUTL",76,0)
+ I +$E(ECXFMDT,4,5)>12 S ECXDATE=ECXYM_"01" Q ECXDATE
+"RTN","ECXUTL",77,0)
+ I +$E(ECXFMDT,6,7)>31 S ECXFMDT=$E(ECXFMDT,1,5)_"01"
+"RTN","ECXUTL",78,0)
+ ;default to 1st day of month
+"RTN","ECXUTL",79,0)
+ S DAY=$E(ECXFMDT,6,7) S:DAY="00" DAY="01"
+"RTN","ECXUTL",80,0)
+ ;default to month of ecxym
+"RTN","ECXUTL",81,0)
+ S MONTH=$E(ECXFMDT,4,5) S:MONTH="00" MONTH=$E(ECXYM,5,6)
+"RTN","ECXUTL",82,0)
+ S YEAR=$E(ECXFMDT,2,3)
+"RTN","ECXUTL",83,0)
+ S CENTURY=$E(ECXFMDT,1)+17
+"RTN","ECXUTL",84,0)
+ S ECXDATE=CENTURY_YEAR_MONTH_DAY
+"RTN","ECXUTL",85,0)
+ Q ECXDATE
+"RTN","ECXUTL",86,0)
+ ;
+"RTN","ECXUTL",87,0)
+ECXDATEX(ECXDATE) ;extrinsic function
+"RTN","ECXUTL",88,0)
+ ;converts an 8-character numeric string of format YYYYMMDD
+"RTN","ECXUTL",89,0)
+ ;to a FM external format date
+"RTN","ECXUTL",90,0)
+ ;
+"RTN","ECXUTL",91,0)
+ ; input
+"RTN","ECXUTL",92,0)
+ ; ECXDATE = YYYYMMDD string (required)
+"RTN","ECXUTL",93,0)
+ ; output
+"RTN","ECXUTL",94,0)
+ ; ECXDATEX = FM external format date;
+"RTN","ECXUTL",95,0)
+ ; SEP 12, 1997
+"RTN","ECXUTL",96,0)
+ ; error code
+"RTN","ECXUTL",97,0)
+ ; if input problem, then "000000" returned
+"RTN","ECXUTL",98,0)
+ ;
+"RTN","ECXUTL",99,0)
+ N Y,%DT,CENTURY,FMCENT,ECXDATEX
+"RTN","ECXUTL",100,0)
+ ;
+"RTN","ECXUTL",101,0)
+ ;error checks
+"RTN","ECXUTL",102,0)
+ I +ECXDATE'=ECXDATE S ECXDATEX="000000" Q ECXDATEX
+"RTN","ECXUTL",103,0)
+ I $L(ECXDATE)'=8 S ECXDATEX="000000" Q ECXDATEX
+"RTN","ECXUTL",104,0)
+ I +$E(ECXDATE,7,8)>31 S ECXDATEX="000000" Q ECXDATEX
+"RTN","ECXUTL",105,0)
+ ;
+"RTN","ECXUTL",106,0)
+ S CENTURY=$E(ECXDATE,1,2)
+"RTN","ECXUTL",107,0)
+ S FMCENT=CENTURY-17
+"RTN","ECXUTL",108,0)
+ S Y=FMCENT_$E(ECXDATE,3,8) D DD^%DT S ECXDATEX=Y
+"RTN","ECXUTL",109,0)
+ ;
+"RTN","ECXUTL",110,0)
+ ;error checks
+"RTN","ECXUTL",111,0)
+ I $L(ECXDATEX)'=12 S ECXDATEX="000000"
+"RTN","ECXUTL",112,0)
+ I "JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC"'[$E(ECXDATEX,1,3) S ECXDATEX="000000"
+"RTN","ECXUTL",113,0)
+ Q ECXDATEX
+"RTN","ECXUTL",114,0)
+ ;
+"RTN","ECXUTL",115,0)
+ECXDOB(ECXFMDT) ;extrinsic function
+"RTN","ECXUTL",116,0)
+ ;converts a FM internal format date or date/time to a 6-character string
+"RTN","ECXUTL",117,0)
+ ;if ecxfmdt is null, the function returns 19420101
+"RTN","ECXUTL",118,0)
+ ; input
+"RTN","ECXUTL",119,0)
+ ; ECXFMDT = date or date/time (required);
+"RTN","ECXUTL",120,0)
+ ; must be valid FM internal format
+"RTN","ECXUTL",121,0)
+ ; output
+"RTN","ECXUTL",122,0)
+ ; ECXDOB = YYYYMMDD string (required);
+"RTN","ECXUTL",123,0)
+ ; defaults to 19420101
+"RTN","ECXUTL",124,0)
+ ;
+"RTN","ECXUTL",125,0)
+ N MONTH,YEAR,CENTURY,DAY,ECXDOB
+"RTN","ECXUTL",126,0)
+ ;only consider date portion
+"RTN","ECXUTL",127,0)
+ S ECXFMDT=$P(ECXFMDT,".",1)
+"RTN","ECXUTL",128,0)
+ ;special case where ecxfmdt is null
+"RTN","ECXUTL",129,0)
+ I ECXFMDT="" S ECXDOB="17760704" Q ECXDOB
+"RTN","ECXUTL",130,0)
+ ;error checks - return default 144 - change def from 19420101 to 17760704
+"RTN","ECXUTL",131,0)
+ I +ECXFMDT'=ECXFMDT S ECXDOB="17760704" Q ECXDOB
+"RTN","ECXUTL",132,0)
+ I $L(ECXFMDT)<7 S ECXDOB="17760704" Q ECXDOB
+"RTN","ECXUTL",133,0)
+ I +ECXFMDT>DT S ECXDOB="17760704" Q ECXDOB
+"RTN","ECXUTL",134,0)
+ ;default to 1st day of month
+"RTN","ECXUTL",135,0)
+ S DAY=$E(ECXFMDT,6,7) S:DAY="00"!(+DAY>31) DAY="01"
+"RTN","ECXUTL",136,0)
+ ;default to 1st month of year
+"RTN","ECXUTL",137,0)
+ S MONTH=$E(ECXFMDT,4,5) S:MONTH="00"!(+MONTH>12) MONTH="01",DAY="01"
+"RTN","ECXUTL",138,0)
+ S YEAR=$E(ECXFMDT,2,3)
+"RTN","ECXUTL",139,0)
+ S CENTURY=$E(ECXFMDT,1)+17
+"RTN","ECXUTL",140,0)
+ S ECXDOB=CENTURY_YEAR_MONTH_DAY
+"RTN","ECXUTL",141,0)
+ Q ECXDOB
+"RTN","ECXUTL",142,0)
+ ;
+"RTN","ECXUTL",143,0)
+ECXTIME(ECXFMDT) ;extrinsic function
+"RTN","ECXUTL",144,0)
+ ;converts Fileman internal date/time to 6-character time string
+"RTN","ECXUTL",145,0)
+ ;format HHMMSS
+"RTN","ECXUTL",146,0)
+ ;
+"RTN","ECXUTL",147,0)
+ ; input
+"RTN","ECXUTL",148,0)
+ ; ECXFMDT = date or date/time (required);
+"RTN","ECXUTL",149,0)
+ ; must be valid FM internal format
+"RTN","ECXUTL",150,0)
+ ; output
+"RTN","ECXUTL",151,0)
+ ; ECXTIME = 6-character numeric string;
+"RTN","ECXUTL",152,0)
+ ; format HHMMSS; string length always 6
+"RTN","ECXUTL",153,0)
+ ;
+"RTN","ECXUTL",154,0)
+ N J,JJ,TIME,HH,MM,SS,ECXTIME
+"RTN","ECXUTL",155,0)
+ ;if any non-numerics, set default
+"RTN","ECXUTL",156,0)
+ I +ECXFMDT=0 S ECXTIME="000300" Q ECXTIME
+"RTN","ECXUTL",157,0)
+ ;use only time portion of fileman internal format
+"RTN","ECXUTL",158,0)
+ S TIME=$P(ECXFMDT,".",2),TIME=$E(TIME,1,6)
+"RTN","ECXUTL",159,0)
+ ;if time unknown, set default
+"RTN","ECXUTL",160,0)
+ I TIME="" S ECXTIME="000300" Q ECXTIME
+"RTN","ECXUTL",161,0)
+ ;be sure time is 6 characters
+"RTN","ECXUTL",162,0)
+ S TIME=$$LJ^XLFSTR(TIME,6,0)
+"RTN","ECXUTL",163,0)
+ ;error checks -- set default
+"RTN","ECXUTL",164,0)
+ S HH=$E(TIME,1,2),MM=$E(TIME,3,4),SS=$E(TIME,5,6)
+"RTN","ECXUTL",165,0)
+ I +HH>23 S ECXTIME="000300" Q ECXTIME
+"RTN","ECXUTL",166,0)
+ I +MM>59 S MM="59"
+"RTN","ECXUTL",167,0)
+ I +SS>59 S SS="59"
+"RTN","ECXUTL",168,0)
+ S ECXTIME=HH_MM_SS
+"RTN","ECXUTL",169,0)
+ Q ECXTIME
+"RTN","ECXUTL",170,0)
+ ;
+"RTN","ECXUTL",171,0)
+ECXTIMEX(ECXTIME,ECXMIL) ;extrinsic function
+"RTN","ECXUTL",172,0)
+ ;converts a 6-character time string to external, user readable format
+"RTN","ECXUTL",173,0)
+ ;used as output transform for time fields in many dss extract files
+"RTN","ECXUTL",174,0)
+ ; input
+"RTN","ECXUTL",175,0)
+ ; ECXTIME = 6-character numeric string (required);
+"RTN","ECXUTL",176,0)
+ ; ECXMIL = if "1", then return military time (optional)
+"RTN","ECXUTL",177,0)
+ ; output
+"RTN","ECXUTL",178,0)
+ ; ECXTIMEX = character string;
+"RTN","ECXUTL",179,0)
+ ; if ECXMIL=1, format HH:MM:SS
+"RTN","ECXUTL",180,0)
+ ; otherwise, hours:mins AM/PM
+"RTN","ECXUTL",181,0)
+ ; error code
+"RTN","ECXUTL",182,0)
+ ; if input problem, then "000000" returned
+"RTN","ECXUTL",183,0)
+ ;
+"RTN","ECXUTL",184,0)
+ N TIME,HH,MM,SS,ECXTIMEX,J,JJ
+"RTN","ECXUTL",185,0)
+ ;error checks
+"RTN","ECXUTL",186,0)
+ I $L(ECXTIME)'=6 S ECXTIMEX="000000" Q ECXTIMEX
+"RTN","ECXUTL",187,0)
+ F J=1:1:6 S JJ=$E(ECXTIME,J) I $A(JJ)<48!($A(JJ)>57) S ECXTIMEX="000000" Q
+"RTN","ECXUTL",188,0)
+ I $D(ECXTIMEX) Q ECXTIMEX
+"RTN","ECXUTL",189,0)
+ S HH=$E(ECXTIME,1,2),MM=$E(ECXTIME,3,4),SS=$E(ECXTIME,5,6)
+"RTN","ECXUTL",190,0)
+ I +HH>23!(+MM>59)!(+SS>59) S ECXTIMEX="000000" Q ECXTIMEX
+"RTN","ECXUTL",191,0)
+ ;if ecxmil=1, return military time
+"RTN","ECXUTL",192,0)
+ I $G(ECXMIL) S ECXTIMEX=HH_":"_MM_":"_SS Q ECXTIMEX
+"RTN","ECXUTL",193,0)
+ ;otherwise, use am/pm format
+"RTN","ECXUTL",194,0)
+ S X="0."_ECXTIME
+"RTN","ECXUTL",195,0)
+ S X=$E($P(X,".",2)_"0000",1,4),%=X>1159 S:X>1259 X=X-1200
+"RTN","ECXUTL",196,0)
+ S X=X\100_":"_$E(X#100+100,2,3)_" "_$E("AP",%+1)_"M"
+"RTN","ECXUTL",197,0)
+ S ECXTIMEX=X
+"RTN","ECXUTL",198,0)
+ Q ECXTIMEX
+"RTN","ECXUTL",199,0)
+ ;
+"RTN","ECXUTL",200,0)
+AOIRPOW(ECXDFN,ECXAIP) ;get data on ao, ir, pow status
+"RTN","ECXUTL",201,0)
+ ;
+"RTN","ECXUTL",202,0)
+ ; input
+"RTN","ECXUTL",203,0)
+ ; ECXDFN = ien in file #2 (required)
+"RTN","ECXUTL",204,0)
+ ; ECXAIP = array for returned data (required)
+"RTN","ECXUTL",205,0)
+ ; (passed by reference)
+"RTN","ECXUTL",206,0)
+ ;
+"RTN","ECXUTL",207,0)
+ ; output
+"RTN","ECXUTL",208,0)
+ ; ECXAIP("AO") = agent orange status
+"RTN","ECXUTL",209,0)
+ ; ECXAIP("IR") = ion. radiation status
+"RTN","ECXUTL",210,0)
+ ; ECXAIP("POW") = pow status
+"RTN","ECXUTL",211,0)
+ ; ECXAIP("POWL") = pow location/period
+"RTN","ECXUTL",212,0)
+ ;
+"RTN","ECXUTL",213,0)
+ N J
+"RTN","ECXUTL",214,0)
+ S ECXAIP("AO")="",ECXAIP("IR")="",ECXAIP("POW")="",ECXAIP("POWL")=""
+"RTN","ECXUTL",215,0)
+ S ECXAIP("AO")=$P($G(^DPT(ECXDFN,.321)),U,2),ECXAIP("IR")=$P($G(^(.321)),U,3)
+"RTN","ECXUTL",216,0)
+ S ECXAIP("POW")=$P($G(^DPT(ECXDFN,.52)),U,5),ECXAIP("POWL")=$P($G(^(.52)),U,6)
+"RTN","ECXUTL",217,0)
+ F J="AO","IR","POW" I ECXAIP(J)="" S ECXAIP(J)="U"
+"RTN","ECXUTL",218,0)
+ I ECXAIP("POWL"),ECXAIP("POW")'="Y" S ECXAIP("POWL")=""
+"RTN","ECXUTL",219,0)
+ Q
+"RTN","ECXUTL",220,0)
+ ;
+"RTN","ECXUTL",221,0)
+PRVCLASS(PERS,DATE) ;determine the person class and return va code
+"RTN","ECXUTL",222,0)
+ ; input
+"RTN","ECXUTL",223,0)
+ ; PERS = pointer to file #200 (required)
+"RTN","ECXUTL",224,0)
+ ; DATE = date on which person class must be active (required)
+"RTN","ECXUTL",225,0)
+ ; (internal Fileman format)
+"RTN","ECXUTL",226,0)
+ ; output
+"RTN","ECXUTL",227,0)
+ ; VACODE = VA code field from file #8932.1
+"RTN","ECXUTL",228,0)
+ ; (exactly 7 characters in length)
+"RTN","ECXUTL",229,0)
+ N ECX,VACODE
+"RTN","ECXUTL",230,0)
+ S VACODE=""
+"RTN","ECXUTL",231,0)
+ S ECHEAD=$G(ECHEAD)
+"RTN","ECXUTL",232,0)
+ S ECX=$$GET^XUA4A72(PERS,DATE)
+"RTN","ECXUTL",233,0)
+ ;if no person class use alternate date to resolve person class
+"RTN","ECXUTL",234,0)
+ I +ECX'>0 D
+"RTN","ECXUTL",235,0)
+ .N DATE
+"RTN","ECXUTL",236,0)
+ .S DATE=$S(ECHEAD="LAB":$P(EC1,U,14),ECHEAD="LAR":$P(EC1,U,4),ECHEAD="PRE":$P(ECDATA,U,13),ECHEAD="RAD":$P($G(^RAO(75.1,+$G(ECXIEN),0)),U,16),1:"")
+"RTN","ECXUTL",237,0)
+ .S ECX=$$GET^XUA4A72(PERS,DATE)
+"RTN","ECXUTL",238,0)
+ .Q
+"RTN","ECXUTL",239,0)
+ S VACODE=$P(ECX,U,7) I $L(VACODE)'=7 S VACODE=""
+"RTN","ECXUTL",240,0)
+ Q VACODE
+"RTN","ECXUTL",241,0)
+ ;
+"RTN","ECXUTL",242,0)
+PATCAT(DFN) ; Extrinsic function to return OTHER ELIGIBILITY CODE
+"RTN","ECXUTL",243,0)
+ ; in patcat field in the extract file if the PATIENT TYPE
+"RTN","ECXUTL",244,0)
+ ; = active duty, retire, tricare
+"RTN","ECXUTL",245,0)
+ ; INPUT DFN - ien in file #2 (required)
+"RTN","ECXUTL",246,0)
+ ; OUTPUT PATCAT - Patient Category mapping to be filed in extracts
+"RTN","ECXUTL",247,0)
+ ;
+"RTN","ECXUTL",248,0)
+ N ELIG,I,PATCAT,PCAT,TYPE
+"RTN","ECXUTL",249,0)
+ S PATCAT=""
+"RTN","ECXUTL",250,0)
+ I '$G(DFN) Q PATCAT
+"RTN","ECXUTL",251,0)
+ S TYPE=$$TYPE^ECXUTL5(DFN)
+"RTN","ECXUTL",252,0)
+ I (TYPE="MI")!(TYPE="AC")!(TYPE="TR") D
+"RTN","ECXUTL",253,0)
+ .;get first other eligibilty code that matches in list, if it exists
+"RTN","ECXUTL",254,0)
+ .S ELIG=0 F S ELIG=$O(^DPT(DFN,"E",ELIG)) Q:(ELIG'>0)!((ELIG>0)&(PATCAT'="")) D
+"RTN","ECXUTL",255,0)
+ ..; if get last code, use line below
+"RTN","ECXUTL",256,0)
+ ..;S ELIG=0 F S ELIG=$O(^DPT(DFN,"E",ELIG)) Q:(ELIG'>0) D
+"RTN","ECXUTL",257,0)
+ ..S PCAT=$$GET1^DIQ(8,ELIG,.01)
+"RTN","ECXUTL",258,0)
+ ..F I=1:1 Q:$T(ELIGCDS+I)=" Q" I PCAT=$P($T(ELIGCDS+I),";;",2) S PATCAT=$P($T(ELIGCDS+I),";;",3)
+"RTN","ECXUTL",259,0)
+ Q PATCAT
+"RTN","ECXUTL",260,0)
+ ;
+"RTN","ECXUTL",261,0)
+ORDPROV(DFN,ON,PSJTMP) ; get provider using order reference number
+"RTN","ECXUTL",262,0)
+ ; input:
+"RTN","ECXUTL",263,0)
+ ; dfn
+"RTN","ECXUTL",264,0)
+ ; on - order reference number
+"RTN","ECXUTL",265,0)
+ ; psjtmp - 1 if temp global node = PSJ1, else global node = PSJ
+"RTN","ECXUTL",266,0)
+ ;
+"RTN","ECXUTL",267,0)
+ ; output:
+"RTN","ECXUTL",268,0)
+ ; Provider IEN from PARMACY PATIENT File (#55) (1st piece ^TMP( )
+"RTN","ECXUTL",269,0)
+ ;
+"RTN","ECXUTL",270,0)
+ ; NOTE: Don't kill ^TMP here, used in ECXBCM, killed there
+"RTN","ECXUTL",271,0)
+ ;
+"RTN","ECXUTL",272,0)
+ I $G(DFN)']"" Q 0
+"RTN","ECXUTL",273,0)
+ I $G(ON)']"" Q 0
+"RTN","ECXUTL",274,0)
+ D EN^PSJBCMA1(DFN,ON,PSJTMP) ;IA#2829
+"RTN","ECXUTL",275,0)
+ Q +($G(^TMP("PSJ",$J,1)))
+"RTN","ECXUTL",276,0)
+ ;
+"RTN","ECXUTL",277,0)
+ELIGCDS ;
+"RTN","ECXUTL",278,0)
+ ;;AD-ACTIVE DUTY;;AD
+"RTN","ECXUTL",279,0)
+ ;;REC-RECRUIT;;REC
+"RTN","ECXUTL",280,0)
+ ;;ADD-ACTIVE DUTY DEPENDENT;;ADD
+"RTN","ECXUTL",281,0)
+ ;;FNRS-NON REMARRIED SPOUSE;;FNRS
+"RTN","ECXUTL",282,0)
+ ;;RET-RETIREE;;RET
+"RTN","ECXUTL",283,0)
+ ;;RETD-RETIREE DEPENDENT;;RETD
+"RTN","ECXUTL",284,0)
+ ;;RES-RESERVIST;;RES
+"RTN","ECXUTL",285,0)
+ ;;TFL-TRICARE FOR LIFE;;TFL
+"RTN","ECXUTL",286,0)
+ ;;TDRL-TEMPORARY DISABILITY;;TDRL
+"RTN","ECXUTL",287,0)
+ Q
+"RTN","ECXUTL1")
+0^30^B85232307^B41491361
+"RTN","ECXUTL1",1,0)
+ECXUTL1 ;ALB/GTS - Utilities for DSS Extracts ;8/13/13 11:30
+"RTN","ECXUTL1",2,0)
+ ;;3.0;DSS EXTRACTS;**9,49,136,144**;Dec 22, 1997;Build 9
+"RTN","ECXUTL1",3,0)
+ ;
+"RTN","ECXUTL1",4,0)
+CYFY(ECXFMDT) ;** Return the calandar and fiscal years for a FM date
+"RTN","ECXUTL1",5,0)
+ ;
+"RTN","ECXUTL1",6,0)
+ ; Input
+"RTN","ECXUTL1",7,0)
+ ; ECXFMDT - Fileman formated date
+"RTN","ECXUTL1",8,0)
+ ;
+"RTN","ECXUTL1",9,0)
+ ; Output
+"RTN","ECXUTL1",10,0)
+ ; X - CY begin date^ CY end date^ FY begin date^ FY end date
+"RTN","ECXUTL1",11,0)
+ ;
+"RTN","ECXUTL1",12,0)
+ N X,Y,Y2
+"RTN","ECXUTL1",13,0)
+ S X=""
+"RTN","ECXUTL1",14,0)
+ S ECXFMDT=$G(ECXFMDT)\1
+"RTN","ECXUTL1",15,0)
+ I ECXFMDT?7N DO
+"RTN","ECXUTL1",16,0)
+ .S (Y,Y2)=$E(ECXFMDT,1,3)
+"RTN","ECXUTL1",17,0)
+ .I $E(ECXFMDT,4,5)>9 S Y2=Y+1
+"RTN","ECXUTL1",18,0)
+ .S X=Y_"0101^"_Y_"1231^"_(Y2-1)_"1001^"_Y2_"0930"
+"RTN","ECXUTL1",19,0)
+ Q X
+"RTN","ECXUTL1",20,0)
+ ;
+"RTN","ECXUTL1",21,0)
+FISCAL(DATE) ;Return fiscal year
+"RTN","ECXUTL1",22,0)
+ ; Input: DATE = Date (FileMan format) (defaults to today)
+"RTN","ECXUTL1",23,0)
+ ;Output: YYYY = Fiscal year that input date falls within
+"RTN","ECXUTL1",24,0)
+ ;
+"RTN","ECXUTL1",25,0)
+ N YEAR
+"RTN","ECXUTL1",26,0)
+ I '$G(DATE) S DATE=$$DT^XLFDT()
+"RTN","ECXUTL1",27,0)
+ S DATE=$$ECXYM^ECXUTL(DATE)
+"RTN","ECXUTL1",28,0)
+ S YEAR=$E(DATE,1,4)
+"RTN","ECXUTL1",29,0)
+ I $E(DATE,5,6)>9 S YEAR=YEAR+1
+"RTN","ECXUTL1",30,0)
+ Q YEAR
+"RTN","ECXUTL1",31,0)
+ ;
+"RTN","ECXUTL1",32,0)
+DTRNG() ;** Prompt the user for a date range
+"RTN","ECXUTL1",33,0)
+ ;
+"RTN","ECXUTL1",34,0)
+ N ECXBEG,ECXEND,ECXRNG,ENDRNG
+"RTN","ECXUTL1",35,0)
+ S ECXRNG=0
+"RTN","ECXUTL1",36,0)
+ ;
+"RTN","ECXUTL1",37,0)
+ ;* Prompt for beginning date
+"RTN","ECXUTL1",38,0)
+ W ! S DIR(0)="DA^:DT:EX",DIR("A")="Enter Start Date: "
+"RTN","ECXUTL1",39,0)
+ S DIR("?")="^W ""*** Future dates are not allowed ***"",! D HELP^%DTC"
+"RTN","ECXUTL1",40,0)
+ D ^DIR K DIR
+"RTN","ECXUTL1",41,0)
+ S:'$D(DIRUT) ECXBEG=+Y
+"RTN","ECXUTL1",42,0)
+ K %DT,Y,DTOUT,DUOUT,DIRUT
+"RTN","ECXUTL1",43,0)
+ ;
+"RTN","ECXUTL1",44,0)
+ ;* Prompt for ending date
+"RTN","ECXUTL1",45,0)
+ I $G(ECXBEG) DO
+"RTN","ECXUTL1",46,0)
+ .S ENDRNG=$$CYFY(ECXBEG)
+"RTN","ECXUTL1",47,0)
+ .S ENDRNG=$S($P(ENDRNG,"^",4)<DT:$P(ENDRNG,"^",4),1:DT)
+"RTN","ECXUTL1",48,0)
+ .W ! S DIR(0)="DA^"_ECXBEG_":"_ENDRNG_":EX"
+"RTN","ECXUTL1",49,0)
+ .S DIR("A")="Enter End date: "
+"RTN","ECXUTL1",50,0)
+ .S DIR("?")="^W ""Future dates and dates after the beginning date's FY end are not allowed."",! D HELP^%DTC"
+"RTN","ECXUTL1",51,0)
+ .D ^DIR
+"RTN","ECXUTL1",52,0)
+ .S ECXEND=+Y
+"RTN","ECXUTL1",53,0)
+ .S:'$D(DIRUT) ECXRNG=ECXBEG_"^"_ECXEND
+"RTN","ECXUTL1",54,0)
+ .K DIR,%DT,Y,DIRUT,DTOUT,DUOUT
+"RTN","ECXUTL1",55,0)
+ Q ECXRNG
+"RTN","ECXUTL1",56,0)
+ ;
+"RTN","ECXUTL1",57,0)
+STRIP(ECXFIELD,ECXLGTH,ECXPOS) ;* Strip blanks from a padded field
+"RTN","ECXUTL1",58,0)
+ ;
+"RTN","ECXUTL1",59,0)
+ ; Input
+"RTN","ECXUTL1",60,0)
+ ; ECXFIELD - Data to remove blanks from
+"RTN","ECXUTL1",61,0)
+ ; ECXLGTH - Total length of padded field
+"RTN","ECXUTL1",62,0)
+ ; ECXPOS - Front or Back indicator ('F' or 'B')
+"RTN","ECXUTL1",63,0)
+ ;
+"RTN","ECXUTL1",64,0)
+ ; Output
+"RTN","ECXUTL1",65,0)
+ ; ECXVAL - Field with blanks removed
+"RTN","ECXUTL1",66,0)
+ ;
+"RTN","ECXUTL1",67,0)
+ N ECXPVAL,QVAL
+"RTN","ECXUTL1",68,0)
+ S:ECXPOS="B" ECXPVAL=ECXLGTH
+"RTN","ECXUTL1",69,0)
+ S:ECXPOS="F" ECXPVAL=1
+"RTN","ECXUTL1",70,0)
+ S QVAL=0
+"RTN","ECXUTL1",71,0)
+ F Q:QVAL DO
+"RTN","ECXUTL1",72,0)
+ .I ECXPOS="B" DO
+"RTN","ECXUTL1",73,0)
+ ..S:($E(ECXFIELD,ECXPVAL)'=" ") QVAL=1
+"RTN","ECXUTL1",74,0)
+ ..S:($E(ECXFIELD,ECXPVAL)=" ") ECXFIELD=$E(ECXFIELD,1,ECXPVAL-1)
+"RTN","ECXUTL1",75,0)
+ ..S ECXPVAL=ECXPVAL-1
+"RTN","ECXUTL1",76,0)
+ ..S:(ECXPVAL<1) QVAL=1
+"RTN","ECXUTL1",77,0)
+ .I ECXPOS="F" DO
+"RTN","ECXUTL1",78,0)
+ ..S:($E(ECXFIELD,1)'=" ") QVAL=1
+"RTN","ECXUTL1",79,0)
+ ..S:($E(ECXFIELD,1)=" ") ECXFIELD=$E(ECXFIELD,2,ECXLGTH-(ECXPVAL-1))
+"RTN","ECXUTL1",80,0)
+ ..S ECXPVAL=ECXPVAL+1
+"RTN","ECXUTL1",81,0)
+ ..S:(ECXPVAL>ECXLGTH) QVAL=1
+"RTN","ECXUTL1",82,0)
+ Q ECXFIELD
+"RTN","ECXUTL1",83,0)
+ ;
+"RTN","ECXUTL1",84,0)
+PAD(ECXVAL,ECXLGTH,ECXFB,ECXCHAR) ;* Pad the value passed in with ECXCHAR
+"RTN","ECXUTL1",85,0)
+ ;
+"RTN","ECXUTL1",86,0)
+ ; ECXVAL - The value to pad
+"RTN","ECXUTL1",87,0)
+ ; ECXLGTH - The maximum length
+"RTN","ECXUTL1",88,0)
+ ; ECXFB - 'F': Pad on front; 'B' Pad on back
+"RTN","ECXUTL1",89,0)
+ ; ECXCHAR - The character to pad ECXVAL with
+"RTN","ECXUTL1",90,0)
+ ;
+"RTN","ECXUTL1",91,0)
+ ; Output
+"RTN","ECXUTL1",92,0)
+ ; ECXVAR - The padded result
+"RTN","ECXUTL1",93,0)
+ ;
+"RTN","ECXUTL1",94,0)
+ N ECXLPCT,ECXVAR
+"RTN","ECXUTL1",95,0)
+ I $D(ECXVAL),($D(ECXLGTH)),($D(ECXFB)),($D(ECXCHAR)) DO
+"RTN","ECXUTL1",96,0)
+ .S (ECXVAL,ECXVAR)=$E(ECXVAL,1,ECXLGTH)
+"RTN","ECXUTL1",97,0)
+ .F ECXLPCT=1:1:ECXLGTH-$L($E(ECXVAR,1,ECXLGTH)) DO
+"RTN","ECXUTL1",98,0)
+ ..S:ECXFB="B" ECXVAL=ECXVAL_ECXCHAR
+"RTN","ECXUTL1",99,0)
+ ..S:ECXFB="F" ECXVAL=ECXCHAR_ECXVAL
+"RTN","ECXUTL1",100,0)
+ I '$D(ECXVAL) S ECXVAL=""
+"RTN","ECXUTL1",101,0)
+ Q ECXVAL
+"RTN","ECXUTL1",102,0)
+ ;
+"RTN","ECXUTL1",103,0)
+BLDXREF(START,END) ;Build temporary xref from EDIS LOG file #230 API added in patch 136
+"RTN","ECXUTL1",104,0)
+ N STDT,ENDT,TIME,SITE,IEN,PIEN
+"RTN","ECXUTL1",105,0)
+ S STDT=$$FMADD^XLFDT(START,-1) ;Start day before
+"RTN","ECXUTL1",106,0)
+ S ENDT=$$FMADD^XLFDT(END,1,23,59,59) ;Extend to next day, just before midnight.
+"RTN","ECXUTL1",107,0)
+ S SITE=0 F S SITE=$O(^EDP(230,"ATO",SITE)) Q:'+SITE S TIME=STDT F S TIME=$O(^EDP(230,"ATO",SITE,TIME)) Q:'+TIME!(TIME>ENDT) D
+"RTN","ECXUTL1",108,0)
+ .S IEN=0 F S IEN=$O(^EDP(230,"ATO",SITE,TIME,IEN)) Q:'+IEN S PIEN=$$GET1^DIQ(230,IEN,".06","I") I PIEN S ^TMP($J,"EDIS",PIEN,TIME)=IEN
+"RTN","ECXUTL1",109,0)
+ Q
+"RTN","ECXUTL1",110,0)
+ ;
+"RTN","ECXUTL1",111,0)
+EDIS(ECXDFN,ECD,ECETYPE,ECXVISIT,ECXSTOP) ;Find emergency room disposition, if it exists, and translate it to a value for DSS. API added with patch 136
+"RTN","ECXUTL1",112,0)
+ N DISP,STDT,DATE,IEN,ENDT
+"RTN","ECXUTL1",113,0)
+ I '+$$VERSION^XPDUTL("EDP") Q "" ;If emergency department software not installed, return null
+"RTN","ECXUTL1",114,0)
+ I ECETYPE="N" Q:ECXSTOP=130 "N" Q "" ;If no-show and ER visit, set to N otherwise set to null
+"RTN","ECXUTL1",115,0)
+ I ECETYPE="A" D Q:'$D(DISP) "" ;If no dispositions found in time frame return null
+"RTN","ECXUTL1",116,0)
+ .S STDT=$$FMADD^XLFDT(ECD,,-24) ;find date/time 24 hours prior to admit date/time
+"RTN","ECXUTL1",117,0)
+ .S ENDT=$$FMADD^XLFDT(ECD,,24) ;add 24 hours to the admit date/time to allow for late entry of disposition following admission
+"RTN","ECXUTL1",118,0)
+ .S DATE=STDT F S DATE=$O(^TMP($J,"EDIS",ECXDFN,DATE)) Q:'+DATE!(DATE>ENDT) S DISP=$$GET1^DIQ(230,^TMP($J,"EDIS",ECXDFN,DATE),1.2,"I")
+"RTN","ECXUTL1",119,0)
+ I ECETYPE="C" Q:$G(ECXSTOP)'=130 "" D
+"RTN","ECXUTL1",120,0)
+ .I +$G(ECXVISIT) S IEN=+$O(^EDP(230,"V",ECXVISIT,0)) ;Check visit file pointer
+"RTN","ECXUTL1",121,0)
+ .I '+$G(IEN) S IEN=+$O(^EDP(230,"B",ECD,0)) I IEN I ECXDFN'=$$GET1^DIQ(230,IEN_",",.06,"I") K IEN ;Check log date/time and patient IEN for match
+"RTN","ECXUTL1",122,0)
+ .I +$G(IEN) S DISP=$$GET1^DIQ(230,IEN,1.2,"I")
+"RTN","ECXUTL1",123,0)
+ I '$D(DISP) Q "N" ;If no visits, return "N" for none
+"RTN","ECXUTL1",124,0)
+ I DISP="" Q "U"
+"RTN","ECXUTL1",125,0)
+ Q $$TRANS(DISP)
+"RTN","ECXUTL1",126,0)
+ ;
+"RTN","ECXUTL1",127,0)
+TRANS(DISP) ;Translate disposition to set of codes. API added in patch 136
+"RTN","ECXUTL1",128,0)
+ N CODE,DSP
+"RTN","ECXUTL1",129,0)
+ S CODE=$$GET1^DIQ(233.1,DISP_",",".01"),DSP=$$UP^XLFSTR($$GET1^DIQ(233.1,DISP_",",".02")) ;Get code name and display name for disposition
+"RTN","ECXUTL1",130,0)
+ I +CODE Q "U" ;If code begins with a number, it's local
+"RTN","ECXUTL1",131,0)
+ I DSP["ADMIT" Q "A"
+"RTN","ECXUTL1",132,0)
+ I DSP["TRANSFER" Q "T"
+"RTN","ECXUTL1",133,0)
+ I DSP["HOME"!(DSP["AMA")!(DSP["LEFT")!(DSP["ELOPED") Q "L"
+"RTN","ECXUTL1",134,0)
+ I DSP["DECEASED" Q "D"
+"RTN","ECXUTL1",135,0)
+ I DSP["SENT" Q "R"
+"RTN","ECXUTL1",136,0)
+ I DSP["ERROR" Q "E"
+"RTN","ECXUTL1",137,0)
+ Q "U"
+"RTN","ECXUTL1",138,0)
+ ;
+"RTN","ECXUTL1",139,0)
+ERR ;Send email when scheduling system reports an error. API added in patch 136
+"RTN","ECXUTL1",140,0)
+ N XMSUB,XMTEXT,XMDUZ,XMY,XMZ,I,CNT,TEXT
+"RTN","ECXUTL1",141,0)
+ I '$D(^TMP($J,"SDAMA301")) Q ;No error to report
+"RTN","ECXUTL1",142,0)
+ S XMY($G(DUZ,.5))="" ;Send to user or postmaster if no user identified
+"RTN","ECXUTL1",143,0)
+ S XMY("G.DSS-"_$G(ECGRP))="" ;Include extract group
+"RTN","ECXUTL1",144,0)
+ S XMDUZ="DSS SYSTEM"
+"RTN","ECXUTL1",145,0)
+ S XMSUB="Error in retrieving appointment data during extract"
+"RTN","ECXUTL1",146,0)
+ S CNT=1 S TEXT(CNT)="An error was encountered by the scheduling system during an extract.",CNT=CNT+1
+"RTN","ECXUTL1",147,0)
+ S TEXT(CNT)="The system returned the following error:",CNT=CNT+1,TEXT(CNT)="",CNT=CNT+1
+"RTN","ECXUTL1",148,0)
+ S I=0 F S I=$O(^TMP($J,"SDAMA301",I)) Q:'+I S TEXT(CNT)="Error code "_I_" - "_^TMP($J,"SDAMA301",I)_".",CNT=CNT+1
+"RTN","ECXUTL1",149,0)
+ S TEXT(CNT)="",CNT=CNT+1,TEXT(CNT)="Contact your local I.T. department for assistance."
+"RTN","ECXUTL1",150,0)
+ S XMTEXT="TEXT("
+"RTN","ECXUTL1",151,0)
+ D ^XMD
+"RTN","ECXUTL1",152,0)
+ Q
+"RTN","ECXUTL1",153,0)
+ ;
+"RTN","ECXUTL1",154,0)
+EXPORT() ;Function indicates if report output is going to a device or to the screen in exportable format - API added in patch 144
+"RTN","ECXUTL1",155,0)
+ N DIR,DIRUT,DTOUT,DUOUT,DIROUT,X,Y,VAL
+"RTN","ECXUTL1",156,0)
+ W !
+"RTN","ECXUTL1",157,0)
+ S DIR("?",1)="Enter yes if you want the data to be displayed in an '^' delimited format",DIR("?")="that can be captured for exporting."
+"RTN","ECXUTL1",158,0)
+ S DIR(0)="SA^Y:YES;N:NO",DIR("B")="NO",DIR("A")="Do you want the output in exportable format? "
+"RTN","ECXUTL1",159,0)
+ D ^DIR
+"RTN","ECXUTL1",160,0)
+ S VAL=$S($D(DIRUT):-1,Y="N":0,1:1)
+"RTN","ECXUTL1",161,0)
+ I VAL=1 W !!,"Gathering data for export..."
+"RTN","ECXUTL1",162,0)
+ Q VAL
+"RTN","ECXUTL1",163,0)
+ ;
+"RTN","ECXUTL1",164,0)
+EXPDISP ;Displays report in exportable format. API added in patch 144
+"RTN","ECXUTL1",165,0)
+ N I,%ZIS,POP,DIR,DTOUT,DIRUT,X,Y,DUOUT
+"RTN","ECXUTL1",166,0)
+ I '+$O(^TMP($J,"ECXPORT",0)) W !,"No data found for this report." Q
+"RTN","ECXUTL1",167,0)
+ W !!,"To ensure all data is captured during the export:"
+"RTN","ECXUTL1",168,0)
+ W !!,"1. Select 'Logging...' from the File Menu. Select your file, and where to save."
+"RTN","ECXUTL1",169,0)
+ W !,"2. On the Setup menu, select 'Display...',then 'screen' tab and modify 'columns'",!," setting to at least 225 characters."
+"RTN","ECXUTL1",170,0)
+ W !,"3. The DEVICE input for the columns should also contain a large enough",!," parameter (e.g. 225). The DEVICE prompt is defaulted to 0;225;99999 for you.",!," You may change it if need be."
+"RTN","ECXUTL1",171,0)
+ W !,"Example: DEVICE: 0;225;99999 *Where 0 is your screen, 225 is the margin width",!?17,"and 99999 is the screen length."
+"RTN","ECXUTL1",172,0)
+ W !!,"NOTE: In order for all number fields, such as SSN and Feeder Key, to be",!,"displayed correctly in the spreadsheet, these fields must be formatted as Text",!,"when importing the data into the spreadsheet.",!
+"RTN","ECXUTL1",173,0)
+ S %ZIS="",%ZIS("B")="0;225;99999" D ^%ZIS Q:POP
+"RTN","ECXUTL1",174,0)
+ S I="" F S I=$O(^TMP($J,"ECXPORT",I)) Q:I="" W !,^TMP($J,"ECXPORT",I)
+"RTN","ECXUTL1",175,0)
+ W !!,"Turn off your logging..."
+"RTN","ECXUTL1",176,0)
+ W !,"...Then, pull your export text file into your spreadsheet.",!
+"RTN","ECXUTL1",177,0)
+ S DIR(0)="E",DIR("A")="Press any key to continue" D ^DIR
+"RTN","ECXUTL1",178,0)
+ D HOME^%ZIS ;set parameters back to normal
+"RTN","ECXUTL1",179,0)
+ Q
+"RTN","ECXUTL1",180,0)
+ ;
+"RTN","ECXUTL1",181,0)
+REPORTFY(NAME) ;Function added in patch 144, determines which version of the report to run
+"RTN","ECXUTL1",182,0)
+ ;For each report that has a previous fiscal year version, a line label
+"RTN","ECXUTL1",183,0)
+ ;will be added for the report. Following the ;; on the line label is the
+"RTN","ECXUTL1",184,0)
+ ;name of the routine for the previous fiscal year. This value will be
+"RTN","ECXUTL1",185,0)
+ ;returned if the user selects previous fiscal year. The function will
+"RTN","ECXUTL1",186,0)
+ ;return null if current is selected or -1 if no selection is made
+"RTN","ECXUTL1",187,0)
+ N DIR,DIRUT,DTOUT,DUOUT,Y,X,DIROUT
+"RTN","ECXUTL1",188,0)
+ I $T(@NAME)="" Q "" ;No previous FY version exists
+"RTN","ECXUTL1",189,0)
+ W !
+"RTN","ECXUTL1",190,0)
+ S DIR(0)="SA^C:Current Fiscal Year Report Logic;P:Previous Fiscal Year Report Logic",DIR("B")="C",DIR("A")="Use (C)urrent or (P)revious fiscal year logic for this report? "
+"RTN","ECXUTL1",191,0)
+ S DIR("?",1)="This report has been modified for the current fiscal year and may",DIR("?",2)="include additional information or functionality not previously"
+"RTN","ECXUTL1",192,0)
+ S DIR("?",3)="available. If you desire the previous fiscal year logic",DIR("?",4)="to be used then select 'P'. Otherwise, select 'C'"
+"RTN","ECXUTL1",193,0)
+ S DIR("?")="to run the current version of the report."
+"RTN","ECXUTL1",194,0)
+ D ^DIR
+"RTN","ECXUTL1",195,0)
+ I Y="C" Q ""
+"RTN","ECXUTL1",196,0)
+ I Y="P" Q $P($T(@NAME),";;",2)
+"RTN","ECXUTL1",197,0)
+ Q -1 ;User didn't make a selection
+"RTN","ECXUTL1",198,0)
+ ;
+"RTN","ECXUTL1",199,0)
+ ;Reports available for previous fiscal year are listed below as line labels
+"RTN","ECXUTL1",200,0)
+RXUNVOL ;;PREV^ECXAPHAP
+"RTN","ECXUTL2")
+0^58^B72234767^B71508218
+"RTN","ECXUTL2",1,0)
+ECXUTL2 ;ALB/JAP - Utilities for DSS Extracts (cont.) ;4/16/13 11:38
+"RTN","ECXUTL2",2,0)
+ ;;3.0;DSS EXTRACTS;**8,13,23,24,33,35,39,46,71,84,92,105,112,120,127,144**;Dec 22, 1997;Build 9
+"RTN","ECXUTL2",3,0)
+ ;
+"RTN","ECXUTL2",4,0)
+ECXDEF(ECXHEAD,ECXPACK,ECXGRP,ECXFILE,ECXRTN,ECXPIECE,ECXVER) ;variables specific to extract from file #727.1
+"RTN","ECXUTL2",5,0)
+ ; input
+"RTN","ECXUTL2",6,0)
+ ; ECXHEAD = extract header code
+"RTN","ECXUTL2",7,0)
+ ; all other formal list parameters passed by reference
+"RTN","ECXUTL2",8,0)
+ ; output
+"RTN","ECXUTL2",9,0)
+ ; ECXPACK = type field (#7)
+"RTN","ECXUTL2",10,0)
+ ; ECXGRP = group field (#9)
+"RTN","ECXUTL2",11,0)
+ ; ECXFILE = file number field (#1)
+"RTN","ECXUTL2",12,0)
+ ; ECXRTN = routine field (#4)
+"RTN","ECXUTL2",13,0)
+ ; ECXPIECE= running piece field (#11)
+"RTN","ECXUTL2",14,0)
+ ; ECXVER = dss version
+"RTN","ECXUTL2",15,0)
+ N ECXIEN,ECXARR,DIC,DA,DR,DIQ
+"RTN","ECXUTL2",16,0)
+ S (ECXPACK,ECXGRP,ECXFILE,ECXRTN,ECXPIECE,ECXVER)="",ECXIEN=0
+"RTN","ECXUTL2",17,0)
+ S ECXIEN=+$O(^ECX(727.1,"C",ECXHEAD,ECXIEN))
+"RTN","ECXUTL2",18,0)
+ I ECXIEN=0 D Q
+"RTN","ECXUTL2",19,0)
+ .D MES^XPDUTL(" ")
+"RTN","ECXUTL2",20,0)
+ .D MES^XPDUTL(" It appears that you may have a problem with File #727.1 --")
+"RTN","ECXUTL2",21,0)
+ .D MES^XPDUTL(" ")
+"RTN","ECXUTL2",22,0)
+ .D MES^XPDUTL(" The "_ECHEAD_" Extract is not properly defined.")
+"RTN","ECXUTL2",23,0)
+ .D MES^XPDUTL(" ")
+"RTN","ECXUTL2",24,0)
+ .D MES^XPDUTL(" Contact National VISTA Support for further assistance.")
+"RTN","ECXUTL2",25,0)
+ .D MES^XPDUTL(" ")
+"RTN","ECXUTL2",26,0)
+ .I $E(IOST)="C" D
+"RTN","ECXUTL2",27,0)
+ ..S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXUTL2",28,0)
+ ..S DIR(0)="E" W ! D ^DIR K DIR
+"RTN","ECXUTL2",29,0)
+ .W !!
+"RTN","ECXUTL2",30,0)
+ S DIC="^ECX(727.1,",DA=ECXIEN,DR=".01;1;4;7;9;11;13",DIQ="ECXARR"
+"RTN","ECXUTL2",31,0)
+ D EN^DIQ1
+"RTN","ECXUTL2",32,0)
+ S ECXPACK=ECXARR(727.1,ECXIEN,7)
+"RTN","ECXUTL2",33,0)
+ ;if this is an inactive extract type, skip it
+"RTN","ECXUTL2",34,0)
+ ;I ECXPACK["Inactive" D Q
+"RTN","ECXUTL2",35,0)
+ I ECXARR(727.1,ECXIEN,13)="YES" D Q
+"RTN","ECXUTL2",36,0)
+ .D MES^XPDUTL(" ")
+"RTN","ECXUTL2",37,0)
+ .D MES^XPDUTL(" The "_ECHEAD_" Extract is no longer active/valid.")
+"RTN","ECXUTL2",38,0)
+ .D MES^XPDUTL(" ")
+"RTN","ECXUTL2",39,0)
+ .D MES^XPDUTL(" Contact National VISTA Support for further assistance.")
+"RTN","ECXUTL2",40,0)
+ .D MES^XPDUTL(" ")
+"RTN","ECXUTL2",41,0)
+ .I $E(IOST)="C" D
+"RTN","ECXUTL2",42,0)
+ ..S SS=22-$Y F JJ=1:1:SS W !
+"RTN","ECXUTL2",43,0)
+ ..S DIR(0)="E" W ! D ^DIR K DIR
+"RTN","ECXUTL2",44,0)
+ .W !!
+"RTN","ECXUTL2",45,0)
+ S ECXGRP=ECXARR(727.1,ECXIEN,9)
+"RTN","ECXUTL2",46,0)
+ S ECXFILE=ECXARR(727.1,ECXIEN,1)
+"RTN","ECXUTL2",47,0)
+ S ECXRTN="START^"_ECXARR(727.1,ECXIEN,4)
+"RTN","ECXUTL2",48,0)
+ S ECXPIECE=ECXARR(727.1,ECXIEN,11)
+"RTN","ECXUTL2",49,0)
+ ;version of dss/tsi in Austin as specified by btso
+"RTN","ECXUTL2",50,0)
+ S ECXVER=7
+"RTN","ECXUTL2",51,0)
+ Q
+"RTN","ECXUTL2",52,0)
+PATDEM(DFN,DT1,PAR,FLG) ; determine patient information
+"RTN","ECXUTL2",53,0)
+ ; DFN =
+"RTN","ECXUTL2",54,0)
+ ; DT =
+"RTN","ECXUTL2",55,0)
+ ; PAR =
+"RTN","ECXUTL2",56,0)
+ ; FLG =
+"RTN","ECXUTL2",57,0)
+ N DT2,PAT,OK,X
+"RTN","ECXUTL2",58,0)
+ D KPATDEM
+"RTN","ECXUTL2",59,0)
+ S FLG=$G(FLG),PAR=$S($D(PAR):PAR,1:"1;2;3;4;5;"),DT2=$P(DT1,".")
+"RTN","ECXUTL2",60,0)
+ Q:'$$PAT^ECXUTL3(DFN,DT2,PAR,.PAT) 0
+"RTN","ECXUTL2",61,0)
+ S ECXMPI=PAT("MPI")
+"RTN","ECXUTL2",62,0)
+ I PAR["1" D
+"RTN","ECXUTL2",63,0)
+ .S ECXSSN=PAT("SSN"),ECXPNM=PAT("NAME"),ECXDOB=PAT("DOB")
+"RTN","ECXUTL2",64,0)
+ .S ECXSEX=PAT("SEX"),ECXREL=PAT("RELIGION"),ECXRACE=PAT("RACE")
+"RTN","ECXUTL2",65,0)
+ .S ECXMAR=PAT("MARITAL")
+"RTN","ECXUTL2",66,0)
+ .S ECXETH=PAT("ETHNIC"),ECXRC1=PAT("RACE1")
+"RTN","ECXUTL2",67,0)
+ I PAR["2" D
+"RTN","ECXUTL2",68,0)
+ .S ECXCNTY=PAT("COUNTY"),ECXSTATE=PAT("STATE"),ECXZIP=PAT("ZIP")
+"RTN","ECXUTL2",69,0)
+ .S ECXCNTRY=PAT("COUNTRY")
+"RTN","ECXUTL2",70,0)
+ I PAR["3" D
+"RTN","ECXUTL2",71,0)
+ .S ECXPOS=PAT("POS"),ECSC=PAT("SC STAT"),ECXSVC=PAT("SC%")
+"RTN","ECXUTL2",72,0)
+ .S ECXVET=PAT("VET"),ECXMEAN=PAT("MEANS"),ECXELIG=PAT("ELIG")
+"RTN","ECXUTL2",73,0)
+ .S ECXENRL=PAT("ENROLL LOC")
+"RTN","ECXUTL2",74,0)
+ .S ECXERI=PAT("ERI")
+"RTN","ECXUTL2",75,0)
+ I PAR["4" S ECXEMP=PAT("EMPLOY")
+"RTN","ECXUTL2",76,0)
+ I PAR["5" D
+"RTN","ECXUTL2",77,0)
+ .S ECXVIET=PAT("VIETNAM"),ECXAST=PAT("AO STAT"),ECXRST=PAT("IR STAT")
+"RTN","ECXUTL2",78,0)
+ .S ECXEST=PAT("EC STAT"),ECXPST=PAT("POW STAT"),ECXPLOC=PAT("POW LOC")
+"RTN","ECXUTL2",79,0)
+ .S ECXPHI=PAT("PHI"),ECXMST=PAT("MST STAT"),ECXAOL=PAT("AOL")
+"RTN","ECXUTL2",80,0)
+ .S ECXOEF=PAT("ECXOEF"),ECXOEFDT=PAT("ECXOEFDT")
+"RTN","ECXUTL2",81,0)
+ .S ECXCLST=PAT("CL STAT") ;144 Camp Lejeune Status
+"RTN","ECXUTL2",82,0)
+ I PAR["6" D
+"RTN","ECXUTL2",83,0)
+ .S (ECXPAYOR,ECXSAI)="" D VISN19(DFN,.ECXPAYOR,.ECXSAI)
+"RTN","ECXUTL2",84,0)
+ I FLG'[3 D
+"RTN","ECXUTL2",85,0)
+ .S X=$$PRIMARY(DFN,DT2),ECPTTM=$P(X,U),ECPTPR=$P(X,U,2),ECCLAS=$P(X,U,3)
+"RTN","ECXUTL2",86,0)
+ .S ECPTNPI=$P(X,U,4),ECASPR=$P(X,U,5),ECCLAS2=$P(X,U,6)
+"RTN","ECXUTL2",87,0)
+ .S ECASNPI=$P(X,U,7)
+"RTN","ECXUTL2",88,0)
+ I FLG'[2 D
+"RTN","ECXUTL2",89,0)
+ .S ECXINP=$$INP^ECXUTL2(DFN,DT1),ECXA=$P(ECXINP,U),ECXMN=$P(ECXINP,U,2)
+"RTN","ECXUTL2",90,0)
+ .S ECXTS=$P(ECXINP,U,3),ECXDOM=$P(ECXINP,U,10),ECXADMDT=$P(ECXINP,U,4)
+"RTN","ECXUTL2",91,0)
+ I FLG'[1 S X=$$ENROLLM(DFN)
+"RTN","ECXUTL2",92,0)
+ Q 1
+"RTN","ECXUTL2",93,0)
+ ;
+"RTN","ECXUTL2",94,0)
+KPATDEM ;
+"RTN","ECXUTL2",95,0)
+ K ECXADMDT,ECAO,ECASNPI,ECASPR,ECCLAS,ECCLAS2,ECENV,ECPTNPI,ECPTPR,ECPTTM
+"RTN","ECXUTL2",96,0)
+ K ECRE,ECSC,ECXA,ECXAST,ECXCAT,ECXCNTY,ECXEST,ECXENRL,ECXDOB
+"RTN","ECXUTL2",97,0)
+ K ECXDOM,ECXELIG,ECXINP,ECXMPI,ECXMN,ECXNM,ECXPHI,ECXPLOC,ECXMEAN,ECXMST
+"RTN","ECXUTL2",98,0)
+ K ECXPAYOR,ECXPNM,ECXPOS,ECXPRIOR,ECXPST,ECXRACE,ECXREL,ECXRST,ECXSAI
+"RTN","ECXUTL2",99,0)
+ K ECXSEX,ECXSSN,ECXSTAT,ECXSTATE,ECXSVC,ECXTS,ECXVIET,ECXZIP,VA,VAERR
+"RTN","ECXUTL2",100,0)
+ K ECXSBGRP
+"RTN","ECXUTL2",101,0)
+ Q
+"RTN","ECXUTL2",102,0)
+ENROLLM(DFN,RNDT) ;determines enrollment status, category, priority
+"RTN","ECXUTL2",103,0)
+ ;and user enrollee status
+"RTN","ECXUTL2",104,0)
+ ; input
+"RTN","ECXUTL2",105,0)
+ ; DFN = IEN from Patient file (Required)
+"RTN","ECXUTL2",106,0)
+ ; RNDT = Extract Run Date
+"RTN","ECXUTL2",107,0)
+ ; output
+"RTN","ECXUTL2",108,0)
+ ; ECXSTAT = Enrollment status
+"RTN","ECXUTL2",109,0)
+ ; ECXPRIOR = Enrollment priority
+"RTN","ECXUTL2",110,0)
+ ; ECXCAT = Enrollment priority
+"RTN","ECXUTL2",111,0)
+ ; ECXSBGRP = Enrollment subgroup
+"RTN","ECXUTL2",112,0)
+ ; ECXUESTA = User enrollee
+"RTN","ECXUTL2",113,0)
+ ; return value 0 if no data found, 1 if data found
+"RTN","ECXUTL2",114,0)
+ N CAT,PRIOR,STAT,X,X1,X2,X3,ENRIEN,ENR,FL,SBGRP
+"RTN","ECXUTL2",115,0)
+ S (ECXCAT,ECXPRIOR,ECXSTAT,ECXSBGRP,ECXEUSTA)=""
+"RTN","ECXUTL2",116,0)
+ I $G(DFN)="" Q 0
+"RTN","ECXUTL2",117,0)
+ ;User enrollee status, if current or future date set to 'U'
+"RTN","ECXUTL2",118,0)
+ ;DBIA #3989
+"RTN","ECXUTL2",119,0)
+ S ECXUESTA=$S($$UESTAT^EASUER(DFN):"U",1:"")
+"RTN","ECXUTL2",120,0)
+ ;Patient type
+"RTN","ECXUTL2",121,0)
+ S ECXPTYPE=$$TYPE^ECXUTL5(DFN)
+"RTN","ECXUTL2",122,0)
+ ;Combat Veteran Status DBIA #4156
+"RTN","ECXUTL2",123,0)
+ S X3=$$CVEDT^ECXUTL5(DFN,$S($G(ECD):ECD,$G(ECXDATE):ECXDATE,1:DT))
+"RTN","ECXUTL2",124,0)
+ ;enrollment priority DBIA
+"RTN","ECXUTL2",125,0)
+ S STAT=$$STATUS^DGENA(DFN),PRIOR=$$PRIORITY^DGENA(DFN)
+"RTN","ECXUTL2",126,0)
+ S CAT=$$CATEGORY^DGENA4(DFN,STAT),SBGRP=$$ENRSBGRP^DGENA4(DFN)
+"RTN","ECXUTL2",127,0)
+ ;find current enrollment when status=2 or 19
+"RTN","ECXUTL2",128,0)
+ I "^2^19^"[("^"_STAT_"^") S ECXSTAT=STAT,ECXPRIOR=PRIOR,ECXCAT=CAT,ECXSBGRP=$S(SBGRP=1:"a",SBGRP=3:"c",SBGRP=5:"e",SBGRP=7:"g",1:"") Q 1
+"RTN","ECXUTL2",129,0)
+ ;find previous enrollment
+"RTN","ECXUTL2",130,0)
+ S ENRIEN=$$FINDCUR^DGENA(DFN) I ENRIEN="" Q 0
+"RTN","ECXUTL2",131,0)
+ I $G(RNDT)="" D NOW^%DTC S RNDT=X
+"RTN","ECXUTL2",132,0)
+ S RNDT=($E(RNDT,1,3)-1)_$E(RNDT,4,7),FL=0
+"RTN","ECXUTL2",133,0)
+ F S ENRIEN=$$FINDPRI^DGENA(ENRIEN) Q:'ENRIEN D Q:FL
+"RTN","ECXUTL2",134,0)
+ . S ENR=$$GET^DGENA(ENRIEN,.ENR)
+"RTN","ECXUTL2",135,0)
+ . I "^2^19^"[("^"_$G(ENR("STATUS"))_"^"),$G(ENR("EFFDATE"))>RNDT D
+"RTN","ECXUTL2",136,0)
+ . . S ECXSTAT=$G(ENR("STATUS")),ECXPRIOR=PRIOR,FL=1
+"RTN","ECXUTL2",137,0)
+ . . S ECXCAT=$$CATEGORY^DGENA4(DFN,ECXSTAT)
+"RTN","ECXUTL2",138,0)
+ . . S ECXSBGRP=$$ENRSBGRP^DGENA4(DFN)
+"RTN","ECXUTL2",139,0)
+ . . S ECXSBGRP=$S(SBGRP=1:"a",SBGRP=3:"c",SBGRP=5:"e",SBGRP=7:"g",1:"")
+"RTN","ECXUTL2",140,0)
+ I FL Q 1
+"RTN","ECXUTL2",141,0)
+ ;no enrollment status found =2 or 19
+"RTN","ECXUTL2",142,0)
+ S ECXSTAT=STAT,ECXPRIOR=PRIOR,ECXCAT=CAT,ECXSBGRP=$S(SBGRP=1:"a",SBGRP=3:"c",SBGRP=5:"e",SBGRP=7:"g",1:"")
+"RTN","ECXUTL2",143,0)
+ Q 1
+"RTN","ECXUTL2",144,0)
+PRIMARY(ECXDFN,ECXDATE,ECXPREFX) ;determine patient's pc team and pc provider
+"RTN","ECXUTL2",145,0)
+ ; input
+"RTN","ECXUTL2",146,0)
+ ; ECXDFN = file #2 ien (required)
+"RTN","ECXUTL2",147,0)
+ ; ECXDATE = date of interest (required)
+"RTN","ECXUTL2",148,0)
+ ; ECXPREFX = prefix for provider data (optional)
+"RTN","ECXUTL2",149,0)
+ ; defaults to "2" if not specified otherwise
+"RTN","ECXUTL2",150,0)
+ ; output
+"RTN","ECXUTL2",151,0)
+ ; ECXPRIME = pc team ien^prefix_pc provider ien^pc provider person
+"RTN","ECXUTL2",152,0)
+ ;class^pc provider npi^prefix_assoc pc provider ien^assoc pc provider
+"RTN","ECXUTL2",153,0)
+ ;person class^assoc pc provider npi
+"RTN","ECXUTL2",154,0)
+ N ECPTTM,ECPTPR,ECCLAS,ECPRIME,ECASPR,ECCLAS2
+"RTN","ECXUTL2",155,0)
+ S:'$D(ECXPREFX) ECXPREFX=2 S:(+ECXPREFX=0) ECXPREFX=2
+"RTN","ECXUTL2",156,0)
+ ;get pc team data
+"RTN","ECXUTL2",157,0)
+ S ECPTTM=+$$OUTPTTM^SDUTL3(ECXDFN,ECXDATE) S:ECPTTM=0 ECPTTM=""
+"RTN","ECXUTL2",158,0)
+ ;get primary pc provider data
+"RTN","ECXUTL2",159,0)
+ S ECPTPR=+$$OUTPTPR^SDUTL3(ECXDFN,ECXDATE)
+"RTN","ECXUTL2",160,0)
+ S ECCLAS="" I ECPTPR>0 S ECCLAS=$$PRVCLASS^ECXUTL(ECPTPR,ECXDATE)
+"RTN","ECXUTL2",161,0)
+ N ECXUSRTN S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECPTPR,ECXDATE)
+"RTN","ECXUTL2",162,0)
+ S:+ECXUSRTN'>0 ECXUSRTN="" S ECPTNPI=$P(ECXUSRTN,U)
+"RTN","ECXUTL2",163,0)
+ S:ECPTPR=0 ECPTPR="" S:ECPTPR]"" ECPTPR=ECXPREFX_ECPTPR
+"RTN","ECXUTL2",164,0)
+ ;assoc pc provider call ok if routine scapmca from patch177 is present
+"RTN","ECXUTL2",165,0)
+ S ECASPR=""
+"RTN","ECXUTL2",166,0)
+ S X="SCAPMCA" X ^%ZOSF("TEST") I $T D
+"RTN","ECXUTL2",167,0)
+ .S ECASPR=+$$OUTPTAP^SDUTL3(ECXDFN,ECXDATE)
+"RTN","ECXUTL2",168,0)
+ S ECCLAS2="" I ECASPR>0 S ECCLAS2=$$PRVCLASS^ECXUTL(ECASPR,ECXDATE)
+"RTN","ECXUTL2",169,0)
+ N ECXUSRTN S ECXUSRTN=$$NPI^XUSNPI("Individual_ID",ECASPR,ECXDATE)
+"RTN","ECXUTL2",170,0)
+ S:+ECXUSRTN'>0 ECXUSRTN="" S ECASNPI=$P(ECXUSRTN,U)
+"RTN","ECXUTL2",171,0)
+ S:ECASPR=0 ECASPR="" S:ECASPR]"" ECASPR=ECXPREFX_ECASPR
+"RTN","ECXUTL2",172,0)
+ ;assemble
+"RTN","ECXUTL2",173,0)
+ S ECXPRIME=ECPTTM_U_ECPTPR_U_ECCLAS_U_ECPTNPI_U_ECASPR_U_ECCLAS2_U_ECASNPI
+"RTN","ECXUTL2",174,0)
+ Q ECXPRIME
+"RTN","ECXUTL2",175,0)
+INP(ECXDFN,ECXDATE) ; check for inpatient status
+"RTN","ECXUTL2",176,0)
+ ; input
+"RTN","ECXUTL2",177,0)
+ ; ECXDFN = file #2 ien (required)
+"RTN","ECXUTL2",178,0)
+ ; ECXDATE = date of interest (required)
+"RTN","ECXUTL2",179,0)
+ ; output
+"RTN","ECXUTL2",180,0)
+ ; ECXINP = patient status^movment # (file #405 ien)
+"RTN","ECXUTL2",181,0)
+ ; current treat. spec. (file #42.4 ien)^admission date/time^
+"RTN","ECXUTL2",182,0)
+ ; current ward (file #42 ien)^discharge date/time^
+"RTN","ECXUTL2",183,0)
+ ; ward provider^attending phys.^ward (file #44 ien);facility
+"RTN","ECXUTL2",184,0)
+ ; (file #40.8 ien);dss dept^dom
+"RTN","ECXUTL2",185,0)
+ ; where patient status = I for inpatient
+"RTN","ECXUTL2",186,0)
+ ; = O for outpatient
+"RTN","ECXUTL2",187,0)
+ N DFN,DSSDEPT,ECA,ECADM,ECMN,ECTS,ECWARD,ECDC,ECXINP,ECXPRO
+"RTN","ECXUTL2",188,0)
+ N ECXATP,ECXDD,ECXDOM,ECXPROF,ECXPWP,ECXWW,FAC,VAIP,WRD,ECXPWPPC
+"RTN","ECXUTL2",189,0)
+ N ECXATPPC
+"RTN","ECXUTL2",190,0)
+ D FIELD^DID(405,.19,,"SPECIFIER","ECXDD")
+"RTN","ECXUTL2",191,0)
+ S ECXPROF=$E(+$P(ECXDD("SPECIFIER"),"P",2)) K ECXDD
+"RTN","ECXUTL2",192,0)
+ ;- Inpat/outpat indicator (ECA) initially set to "O" (outpatient)
+"RTN","ECXUTL2",193,0)
+ S DFN=ECXDFN,ECA="O"
+"RTN","ECXUTL2",194,0)
+ S (DSSDEPT,ECMN,ECTS,ECADM,ECWARD,ECDC,ECXATP,ECXPWP,ECXWW,WRD,FAC,ECXPWPPC,ECXATPPC)=""
+"RTN","ECXUTL2",195,0)
+ S VAIP("D")=ECXDATE D IN5^VADPT
+"RTN","ECXUTL2",196,0)
+ S ECMN=$G(VAIP(1))
+"RTN","ECXUTL2",197,0)
+ I ECMN D
+"RTN","ECXUTL2",198,0)
+ .S ECTS=+$P($G(^DIC(45.7,+VAIP(8),0)),U,2) S:ECTS=0 ECTS=""
+"RTN","ECXUTL2",199,0)
+ .;- Get inpat/outpat indicator
+"RTN","ECXUTL2",200,0)
+ .S ECA=$$INOUTP^ECXUTL4(ECTS)
+"RTN","ECXUTL2",201,0)
+ .S ECADM=+$G(VAIP(13,1)) S:ECADM=0 ECADM=""
+"RTN","ECXUTL2",202,0)
+ .S ECWARD=+$G(VAIP(5)) S:ECWARD=0 ECWARD=""
+"RTN","ECXUTL2",203,0)
+ .I ECWARD D
+"RTN","ECXUTL2",204,0)
+ ..S WRD=+$P($G(^DIC(42,+ECWARD,44)),U)
+"RTN","ECXUTL2",205,0)
+ ..S FAC=$P($G(^DIC(42,+ECWARD,0)),U,11)
+"RTN","ECXUTL2",206,0)
+ ..S DSSDEPT=$P($G(^ECX(727.4,ECWARD,0)),U,2)
+"RTN","ECXUTL2",207,0)
+ .S ECXWW=WRD_";"_FAC_";"_DSSDEPT,ECDC=+$G(VAIP(17,1)) S:ECDC=0 ECDC=""
+"RTN","ECXUTL2",208,0)
+ .S ECXPWP=+VAIP(7) S:ECXPWP=0 ECXPWP=""
+"RTN","ECXUTL2",209,0)
+ .S ECXATP=+VAIP(18) S:ECXATP=0 ECXATP=""
+"RTN","ECXUTL2",210,0)
+ .S ECXPWPPC=$$PRVCLASS^ECXUTL(ECXPWP,ECADM)
+"RTN","ECXUTL2",211,0)
+ .S ECXATPPC=$$PRVCLASS^ECXUTL(ECXATP,ECADM)
+"RTN","ECXUTL2",212,0)
+ .;prefix file #200 iens
+"RTN","ECXUTL2",213,0)
+ .S:ECXPWP ECXPWP=ECXPROF_ECXPWP S:ECXATP ECXATP=ECXPROF_ECXATP
+"RTN","ECXUTL2",214,0)
+ S ECXDOM=$P($G(^ECX(727.831,+ECTS,0)),U,2)
+"RTN","ECXUTL2",215,0)
+ S ECXINP=ECA_U_ECMN_U_ECTS_U_ECADM_U_ECWARD_U_ECDC_U_ECXPWP_U_ECXATP_U_ECXWW_U_ECXDOM_U_ECXPWPPC_U_ECXATPPC
+"RTN","ECXUTL2",216,0)
+ Q ECXINP
+"RTN","ECXUTL2",217,0)
+VISN19(ECXDFN,ECXPAYOR,ECXSAI) ;visn 19 sharing agreement data
+"RTN","ECXUTL2",218,0)
+ ; input ECXDFN = patient file ien
+"RTN","ECXUTL2",219,0)
+ ; output ECXPAYOR, ECXSAI (passed by reference)
+"RTN","ECXUTL2",220,0)
+ N JJ,ALIAS,INSUR,DIC,DIQ,DA,DR,ECXARY,ECXERR,ECXDA
+"RTN","ECXUTL2",221,0)
+ S (ECXPAYOR,ECXSAI)=""
+"RTN","ECXUTL2",222,0)
+ D GETS^DIQ(2,ECXDFN,"1*,","I","ECXARY","ECXERR")
+"RTN","ECXUTL2",223,0)
+ I $D(ECXERR) Q
+"RTN","ECXUTL2",224,0)
+ S JJ=0 F S JJ=$O(ECXARY(2.01,JJ)) Q:JJ="" D I ECXPAYOR]"" Q
+"RTN","ECXUTL2",225,0)
+ . S ALIAS=$G(ECXARY(2.01,JJ,.01,"I"))
+"RTN","ECXUTL2",226,0)
+ . S ECXPAYOR=$S(ALIAS="SHARING AGREEMENT":"A",ALIAS="TRICARE":"B",ALIAS="CAT C":"C",ALIAS="CATEGORY C":"C",ALIAS="CHAMPVA":"D",ALIAS="CHAMPUS":"E",1:"")
+"RTN","ECXUTL2",227,0)
+ . W !,$G(CNT)+1
+"RTN","ECXUTL2",228,0)
+ . W !,"The value of ECXPAYOR is: ",ECXPAYOR
+"RTN","ECXUTL2",229,0)
+ ;K ECXARY,ECXERR
+"RTN","ECXUTL2",230,0)
+ I ECXPAYOR]"" D GETS^DIQ(2,ECXDFN,".3121*,","I","ECXARY","ECXERR") D
+"RTN","ECXUTL2",231,0)
+ . I $D(ECXERR) Q
+"RTN","ECXUTL2",232,0)
+ . S JJ=0,ECXDA=$O(ECXARY(2.312,JJ)) I ECXDA="" Q
+"RTN","ECXUTL2",233,0)
+ . S DA=$G(ECXARY(2.312,ECXDA,.01,"I")) I DA="" Q
+"RTN","ECXUTL2",234,0)
+ . S INSUR=$$GET1^DIQ(36,DA,".01","I","","ECXERR")
+"RTN","ECXUTL2",235,0)
+ . I '$D(ECXERR) S ECXSAI=$E(ECXARY(2.312,ECXDA,.01,"I"),1,11)
+"RTN","ECXUTL2",236,0)
+ Q
+"RTN","ECXUTL3")
+0^5^B94009566^B63750846
+"RTN","ECXUTL3",1,0)
+ECXUTL3 ;ALB/GTS - Utilities for DSS Extracts ;4/8/13 16:07
+"RTN","ECXUTL3",2,0)
+ ;;3.0;DSS EXTRACTS;**11,24,32,33,35,37,39,42,46,92,105,120,144**;Dec 22,1997;Build 9
+"RTN","ECXUTL3",3,0)
+ ;
+"RTN","ECXUTL3",4,0)
+OUTPTTM(ECXDFN,ECXDT) ;* Return PC Team from PCMM files or DPT
+"RTN","ECXUTL3",5,0)
+ ; Variables -
+"RTN","ECXUTL3",6,0)
+ ; ECXDFN - IEN from Patient file (Required)
+"RTN","ECXUTL3",7,0)
+ ; ECXDT - Relevant Date for Primary Care Team
+"RTN","ECXUTL3",8,0)
+ ; (Defaults to DT)
+"RTN","ECXUTL3",9,0)
+ ;
+"RTN","ECXUTL3",10,0)
+ ; Returned: ECXTM -
+"RTN","ECXUTL3",11,0)
+ ; Pointer to team file (#404.51)
+"RTN","ECXUTL3",12,0)
+ ; or, if error or none defined, returns 0
+"RTN","ECXUTL3",13,0)
+ ;
+"RTN","ECXUTL3",14,0)
+ Q:'$G(ECXDFN) 0 ;** Quit if ECXDFN not defined
+"RTN","ECXUTL3",15,0)
+ N ECXTM
+"RTN","ECXUTL3",16,0)
+ S:'$D(ECXDT) ECXDT=DT
+"RTN","ECXUTL3",17,0)
+ I $T(OUTPTTM^SDUTL3)[",SCDATE" D
+"RTN","ECXUTL3",18,0)
+ .S ECXTM=+$$OUTPTTM^SDUTL3(ECXDFN,ECXDT)
+"RTN","ECXUTL3",19,0)
+ I $T(OUTPTTM^SDUTL3)'[",SCDATE" D
+"RTN","ECXUTL3",20,0)
+ .S ECXTM=+$$OUTPTTM^SDUTL3(ECXDFN)
+"RTN","ECXUTL3",21,0)
+ I ECXTM=0 D
+"RTN","ECXUTL3",22,0)
+ .S ECXTM=+$P($G(^DPT(+ECXDFN,"PC")),U,2)
+"RTN","ECXUTL3",23,0)
+ Q ECXTM
+"RTN","ECXUTL3",24,0)
+ ;
+"RTN","ECXUTL3",25,0)
+OUTPTPR(ECXDFN,ECXDT) ;* Return PC Provider from PCMM files or DPT
+"RTN","ECXUTL3",26,0)
+ ; Variables -
+"RTN","ECXUTL3",27,0)
+ ; ECXDFN - IEN from Patient file (Required)
+"RTN","ECXUTL3",28,0)
+ ; ECXDT - Relevant Date for Primary Care Provider
+"RTN","ECXUTL3",29,0)
+ ; (Defaults to DT)
+"RTN","ECXUTL3",30,0)
+ ;
+"RTN","ECXUTL3",31,0)
+ ; Returned: ECXPR -
+"RTN","ECXUTL3",32,0)
+ ; Pointer to file #200
+"RTN","ECXUTL3",33,0)
+ ; or, if error or none defined, returns a 0
+"RTN","ECXUTL3",34,0)
+ ;
+"RTN","ECXUTL3",35,0)
+ Q:'$G(ECXDFN) 0 ;** Quit if ECXDFN not defined
+"RTN","ECXUTL3",36,0)
+ N ECXPR
+"RTN","ECXUTL3",37,0)
+ S:'$D(ECXDT) ECXDT=DT
+"RTN","ECXUTL3",38,0)
+ I $T(OUTPTPR^SDUTL3)[",SCDATE" D
+"RTN","ECXUTL3",39,0)
+ .S ECXPR=+$$OUTPTPR^SDUTL3(ECXDFN,ECXDT)
+"RTN","ECXUTL3",40,0)
+ I $T(OUTPTPR^SDUTL3)'[",SCDATE" D
+"RTN","ECXUTL3",41,0)
+ .S ECXPR=+$$OUTPTPR^SDUTL3(ECXDFN)
+"RTN","ECXUTL3",42,0)
+ I ECXPR=0 D
+"RTN","ECXUTL3",43,0)
+ .S ECXPR=+$G(^DPT(+ECXDFN,"PC"))
+"RTN","ECXUTL3",44,0)
+ Q ECXPR
+"RTN","ECXUTL3",45,0)
+ ;
+"RTN","ECXUTL3",46,0)
+PAT(ECXDFN,ECXDATE,ECXDATA,ECXPAT) ;Return basic patient data for extract
+"RTN","ECXUTL3",47,0)
+ ; Will not return data associated with test patients (SSN begin w 00000)
+"RTN","ECXUTL3",48,0)
+ ; Variables -
+"RTN","ECXUTL3",49,0)
+ ; Input ECXDFN - Patient internal entry number, DFN file#2; required
+"RTN","ECXUTL3",50,0)
+ ; ECXDATE- Date used to get specific data from GETSTAT^DGMSTAPI
+"RTN","ECXUTL3",51,0)
+ ; for MST. If no date, defaults to today's date,
+"RTN","ECXUTL3",52,0)
+ ; standard FM format, optional
+"RTN","ECXUTL3",53,0)
+ ; ECXDATA- Code indicating which data to return, optional.
+"RTN","ECXUTL3",54,0)
+ ; If code not specified then returns all. Codes are:
+"RTN","ECXUTL3",55,0)
+ ; 1 - DEM^VADPT (demographic data)
+"RTN","ECXUTL3",56,0)
+ ; 2 - ADD^VADPT (current address)
+"RTN","ECXUTL3",57,0)
+ ; 3 - ELIG^VADPT (eligibility & enrollment location)
+"RTN","ECXUTL3",58,0)
+ ; 4 - OPD^VADPT (other patient data)
+"RTN","ECXUTL3",59,0)
+ ; 5 - SVC^VADPT & GETSTAT^DGMSTAPI (service & MST inf)
+"RTN","ECXUTL3",60,0)
+ ; ECXPAT(- Passed by reference; required
+"RTN","ECXUTL3",61,0)
+ ;
+"RTN","ECXUTL3",62,0)
+ ; Output:
+"RTN","ECXUTL3",63,0)
+ ; ECXPAT 0 error or test patient no data in ECXPAT array
+"RTN","ECXUTL3",64,0)
+ ; 1 data returned in ECXPAT array
+"RTN","ECXUTL3",65,0)
+ ; ECXPAT( Local array with patient data.
+"RTN","ECXUTL3",66,0)
+ ;
+"RTN","ECXUTL3",67,0)
+ N SSN,I,ECXCOD,ECXDAT,DFN,VAPA,VADM,VAEL,VAPD,VASV,STR,ECXAR,DIC,DIQ,RCNUM,RCVAL,COLMETH
+"RTN","ECXUTL3",68,0)
+ N DA,DR,PELG,MELIG,ZIP,MPI
+"RTN","ECXUTL3",69,0)
+ I ECXDFN="" Q 0
+"RTN","ECXUTL3",70,0)
+ S SSN=$$GET1^DIQ(2,ECXDFN,.09,"I"),DFN=ECXDFN,ECXPAT=0
+"RTN","ECXUTL3",71,0)
+ I $E(SSN,1,3)="000"!(SSN="") K ECXPAT Q 0 ;test patient
+"RTN","ECXUTL3",72,0)
+ ;test patient extended checks; mtl extract excluded
+"RTN","ECXUTL3",73,0)
+ I $G(ECHEAD)'="MTL",'$$SSN^ECXUTL5(SSN) K ECXPAT Q 0
+"RTN","ECXUTL3",74,0)
+ S STR="NAME;SSN;DOB;SEX;RACE;RELIGION;STATE;COUNTY;ZIP;SC%;MEANS;ELIG;"
+"RTN","ECXUTL3",75,0)
+ S STR=STR_"EMPLOY;AO STAT;IR STAT;EC STAT;POW STAT;POW LOC;MST STAT;"
+"RTN","ECXUTL3",76,0)
+ S STR=STR_"ENROLL LOC;MPI;VIETNAM;POS;MARITAL;CL STAT" ;144 Camp Lejeune Status
+"RTN","ECXUTL3",77,0)
+ ;initialize return array values
+"RTN","ECXUTL3",78,0)
+ F I=1:1 S ECXDAT=$P(STR,";",I) Q:ECXDAT="" S ECXPAT(ECXDAT)=""
+"RTN","ECXUTL3",79,0)
+ F I=1:1:$L(ECXDATA,";") S ECXDAT=$P(ECXDATA,";",I) I ECXDAT'="" D
+"RTN","ECXUTL3",80,0)
+ . S ECXCOD(ECXDAT)=""
+"RTN","ECXUTL3",81,0)
+ ;
+"RTN","ECXUTL3",82,0)
+ ;- Get ICN if MPI installed
+"RTN","ECXUTL3",83,0)
+ S X="MPIF001" X ^%ZOSF("TEST") I $T D
+"RTN","ECXUTL3",84,0)
+ .;
+"RTN","ECXUTL3",85,0)
+ .;- Get 1st piece (either ICN # or -1 if error)
+"RTN","ECXUTL3",86,0)
+ . S MPI=+$$GETICN^MPIF001(DFN)
+"RTN","ECXUTL3",87,0)
+ .;
+"RTN","ECXUTL3",88,0)
+ .;- If error, set to null
+"RTN","ECXUTL3",89,0)
+ . S ECXPAT("MPI")=$S(MPI>0:MPI,1:"")
+"RTN","ECXUTL3",90,0)
+ D ;get demographic data
+"RTN","ECXUTL3",91,0)
+ . I ECXDATA'="",'$D(ECXCOD(1)) Q
+"RTN","ECXUTL3",92,0)
+ . D DEM^VADPT
+"RTN","ECXUTL3",93,0)
+ . S ECXPAT("NAME")=$E($P(VADM(1),",")_" ",1,4)
+"RTN","ECXUTL3",94,0)
+ . S ECXPAT("SSN")=$P(VADM(2),U),ECXPAT("MARITAL")=$P(VADM(10),U)
+"RTN","ECXUTL3",95,0)
+ . S ECXPAT("DOB")=$$ECXDOB^ECXUTL($P(VADM(3),U))
+"RTN","ECXUTL3",96,0)
+ . S ECXPAT("SEX")=$P(VADM(5),U),ECXPAT("RELIGION")=$P(VADM(9),U)
+"RTN","ECXUTL3",97,0)
+ . S DIC=10,DR=2,DA=+VADM(8),DIQ="ECXAR",DIQ(0)="I" D EN^DIQ1
+"RTN","ECXUTL3",98,0)
+ . S ECXPAT("RACE")=$G(ECXAR(10,DA,DR,"I")),ECXPAT=1
+"RTN","ECXUTL3",99,0)
+ . ;add new race and ethnicity fields for FY2003
+"RTN","ECXUTL3",100,0)
+ . S (ECXPAT("ETHNIC"),ECXPAT("RACE1"))=""
+"RTN","ECXUTL3",101,0)
+ . S X="DGUTL4" X ^%ZOSF("TEST") I $T D
+"RTN","ECXUTL3",102,0)
+ .. S COLMETH=$$PTR2CODE^DGUTL4($G(VADM(11,1,1)),3,4) I COLMETH="S" D
+"RTN","ECXUTL3",103,0)
+ ... S ECXPAT("ETHNIC")=$$PTR2CODE^DGUTL4(+$G(VADM(11,1)),2,4)
+"RTN","ECXUTL3",104,0)
+ .. S (RCVAL,RCNUM)=""
+"RTN","ECXUTL3",105,0)
+ .. F S RCNUM=$O(VADM(12,RCNUM)) Q:RCNUM="" Q:RCVAL="C" S COLMETH=$$PTR2CODE^DGUTL4(+$G(VADM(12,RCNUM,1)),3,4) I COLMETH="S" D
+"RTN","ECXUTL3",106,0)
+ ... S RCVAL=$$PTR2CODE^DGUTL4(+$G(VADM(12,RCNUM)),1,4)
+"RTN","ECXUTL3",107,0)
+ ... I RCVAL="C" S ECXPAT("RACE1")=RCVAL Q
+"RTN","ECXUTL3",108,0)
+ ... S ECXPAT("RACE1")=ECXPAT("RACE1")_RCVAL
+"RTN","ECXUTL3",109,0)
+ .I ECXPAT("RACE1")="" S ECXPAT("RACE1")=$$CHECKRC(+VADM(8)) ;144 If RACE1 is null, check value in RACE field
+"RTN","ECXUTL3",110,0)
+ D ;get address information
+"RTN","ECXUTL3",111,0)
+ . I ECXDATA'="",'$D(ECXCOD(2)) Q
+"RTN","ECXUTL3",112,0)
+ . D ADD^VADPT
+"RTN","ECXUTL3",113,0)
+ . S DIC=5,DR=2,DA=+VAPA(5),DIQ="ECXAR",DIQ(0)="I" D EN^DIQ1
+"RTN","ECXUTL3",114,0)
+ . S ECXPAT("STATE")=$G(ECXAR(5,DA,DR,"I"))
+"RTN","ECXUTL3",115,0)
+ . S DIC=5,DA=+VAPA(5),DR=3,DR(5.01)=2,DA(5.01)=+VAPA(7),DIQ="ECXAR"
+"RTN","ECXUTL3",116,0)
+ . S DIQ(0)="I" D EN^DIQ1
+"RTN","ECXUTL3",117,0)
+ . S ECXPAT("COUNTY")=$G(ECXAR(5.01,DA(5.01),2,"I"))
+"RTN","ECXUTL3",118,0)
+ . S ECXPAT("ZIP")=$P(VAPA(11),U,2)
+"RTN","ECXUTL3",119,0)
+ . S ECXPAT("COUNTRY")=$$GET1^DIQ(779.004,+$P($G(VAPA(25)),U),.01)
+"RTN","ECXUTL3",120,0)
+ . S ECXPAT=1
+"RTN","ECXUTL3",121,0)
+ D ;get eligibility information
+"RTN","ECXUTL3",122,0)
+ . I ECXDATA'="",'$D(ECXCOD(3)) Q
+"RTN","ECXUTL3",123,0)
+ . D ELIG^VADPT
+"RTN","ECXUTL3",124,0)
+ . S PELG=$P(VAEL(1),U),MELIG=$S(PELG="":"",1:$$GET1^DIQ(8,PELG,8,"I"))
+"RTN","ECXUTL3",125,0)
+ . S ECXPAT("POS")=$P($G(^DIC(21,+VAEL(2),0)),U,3)
+"RTN","ECXUTL3",126,0)
+ . S ECXPAT("SC STAT")=$S(+VAEL(3):"Y",+VAEL(3)=0:"N",1:"")
+"RTN","ECXUTL3",127,0)
+ . S ECXPAT("SC%")=$P(VAEL(3),U,2)
+"RTN","ECXUTL3",128,0)
+ . S ECXPAT("VET")=$S(VAEL(4):"Y",VAEL(4)=0:"N",1:"")
+"RTN","ECXUTL3",129,0)
+ . S ECXPAT("MEANS")=$P(VAEL(9),U),ECXPAT=1
+"RTN","ECXUTL3",130,0)
+ . S ECXPAT("ELIG")=$$ELIG(MELIG,ECXPAT("SC%"))
+"RTN","ECXUTL3",131,0)
+ . ;get enrollment location
+"RTN","ECXUTL3",132,0)
+ . S DIC=2,DR=27.02,DA=ECXDFN,DIQ="ECXAR",DIQ(0)="I" D EN^DIQ1
+"RTN","ECXUTL3",133,0)
+ . S ECXDAT=$G(ECXAR(2,ECXDFN,DR,"I")) I ECXDAT K ECXAR D
+"RTN","ECXUTL3",134,0)
+ . . S DIC=4,DA=ECXDAT,DR=99,DIQ="ECXAR",DIQ(0)="I" D EN^DIQ1
+"RTN","ECXUTL3",135,0)
+ . . S ECXPAT("ENROLL LOC")=ECXAR(4,ECXDAT,DR,"I")
+"RTN","ECXUTL3",136,0)
+ . ;get Emergency Response Indicator (FEMA)
+"RTN","ECXUTL3",137,0)
+ . S ECXPAT("ERI")=$$GET1^DIQ(2,ECXDFN,.181,"I")
+"RTN","ECXUTL3",138,0)
+ D ;get other patient information
+"RTN","ECXUTL3",139,0)
+ . I ECXDATA'="",'$D(ECXCOD(4)) Q
+"RTN","ECXUTL3",140,0)
+ . D OPD^VADPT
+"RTN","ECXUTL3",141,0)
+ . S ECXPAT("EMPLOY")=$P(VAPD(7),U),ECXPAT=1
+"RTN","ECXUTL3",142,0)
+ D ;get service information
+"RTN","ECXUTL3",143,0)
+ . I ECXDATA'="",'$D(ECXCOD(5)) Q
+"RTN","ECXUTL3",144,0)
+ . D SVC^VADPT
+"RTN","ECXUTL3",145,0)
+ . S ECXPAT("VIETNAM")=$S(VASV(1):"Y",VASV(2)=0:"N",1:"U")
+"RTN","ECXUTL3",146,0)
+ . S ECXPAT("AO STAT")=$S(VASV(2):"Y",VASV(2)=0:"N",1:"U")
+"RTN","ECXUTL3",147,0)
+ . S ECXPAT("IR STAT")=$S(VASV(3):"Y",VASV(3)=0:"N",1:"U")
+"RTN","ECXUTL3",148,0)
+ . S ECXPAT("EC STAT")=$$GET1^DIQ(2,ECXDFN,.322013,"I")
+"RTN","ECXUTL3",149,0)
+ . S ECXPAT("POW STAT")=$S(VASV(4):"Y",VASV(4)=0:"N",1:"U")
+"RTN","ECXUTL3",150,0)
+ . S ECXPAT("POW LOC")=$P(VASV(4,3),U),ECXPAT=1
+"RTN","ECXUTL3",151,0)
+ . S ECXPAT("PHI")=$S(VASV(9)=1:"Y",VASV(9)=0:"N",1:"")
+"RTN","ECXUTL3",152,0)
+ . S ECXPAT("CL STAT")="" ;144 Set to null until Camp Lejeune is added to SVC^VADPT call
+"RTN","ECXUTL3",153,0)
+ . ;- Agent Orange Location (K=Korean DMZ,V=Vietnam)
+"RTN","ECXUTL3",154,0)
+ . S ECXPAT("AOL")=$P($G(VASV(2,5)),U)
+"RTN","ECXUTL3",155,0)
+ . ;get patient OEF/OIF status and date of return
+"RTN","ECXUTL3",156,0)
+ . D OEFDATA^ECXUTL4
+"RTN","ECXUTL3",157,0)
+ . ;
+"RTN","ECXUTL3",158,0)
+ . ;get patient current MST status
+"RTN","ECXUTL3",159,0)
+ . I ECXDATE'="",ECXDATE'["." S ECXDATE=ECXDATE+.9
+"RTN","ECXUTL3",160,0)
+ . S X="DGMSTAPI" X ^%ZOSF("TEST") I $T D
+"RTN","ECXUTL3",161,0)
+ . . S ECXDAT=$$GETSTAT^DGMSTAPI(DFN,ECXDATE)
+"RTN","ECXUTL3",162,0)
+ . . S ECXPAT("MST STAT")=$S(+ECXDAT>0:$P(ECXDAT,U,2),1:"")
+"RTN","ECXUTL3",163,0)
+ I 'ECXPAT K ECXPAT Q 0
+"RTN","ECXUTL3",164,0)
+ Q 1
+"RTN","ECXUTL3",165,0)
+ ;
+"RTN","ECXUTL3",166,0)
+ELIG(ECXELIG,ECXSVCP) ;Converts veteran eligibility code to NPCD code
+"RTN","ECXUTL3",167,0)
+ ; Variables -
+"RTN","ECXUTL3",168,0)
+ ; Input ECXELIG - Pointer to MAS ELIGIBILITY CODE file #8.1
+"RTN","ECXUTL3",169,0)
+ ; ECXSVCP - Number value rep. service connected percentage.
+"RTN","ECXUTL3",170,0)
+ ;
+"RTN","ECXUTL3",171,0)
+ ; Output:
+"RTN","ECXUTL3",172,0)
+ ; ECXNCPD NPCD Eligibility Code
+"RTN","ECXUTL3",173,0)
+ ;
+"RTN","ECXUTL3",174,0)
+ N TEXT,IEN,SCPER,FND,NPCD,I,ECXBG,ECXEN,ECXNPCD
+"RTN","ECXUTL3",175,0)
+ I ECXELIG="" Q ""
+"RTN","ECXUTL3",176,0)
+ F I=1:1 S TEXT=$P($T(ELGTXT+I),";",3,999) Q:TEXT="END" D I $D(NPCD) Q
+"RTN","ECXUTL3",177,0)
+ . S IEN=$P(TEXT,";"),SCPER=$P(TEXT,";",2)
+"RTN","ECXUTL3",178,0)
+ . I ECXELIG=IEN D
+"RTN","ECXUTL3",179,0)
+ . . I SCPER="" S NPCD=$P(TEXT,";",3) Q
+"RTN","ECXUTL3",180,0)
+ . . S ECXBG=$S($E(SCPER)="<":0,$E(SCPER)=">":$P(SCPER,">",2)+1,SCPER["-":+SCPER,1:"")
+"RTN","ECXUTL3",181,0)
+ . . S ECXEN=$S($E(SCPER)="<":$P(SCPER,"<",2),$E(SCPER)=">":100,SCPER["-":$P(SCPER,"-",2),1:"")
+"RTN","ECXUTL3",182,0)
+ . . I ECXSVCP'<ECXBG,ECXSVCP'>ECXEN S NPCD=$P(TEXT,";",3)
+"RTN","ECXUTL3",183,0)
+ S ECXNPCD=$G(NPCD)
+"RTN","ECXUTL3",184,0)
+ Q ECXNPCD
+"RTN","ECXUTL3",185,0)
+ELGTXT ;Eligibility codes
+"RTN","ECXUTL3",186,0)
+ ;;1;>49;10;SC 50-100%
+"RTN","ECXUTL3",187,0)
+ ;;2;;20;Aid & Attendance
+"RTN","ECXUTL3",188,0)
+ ;;15;;21;Housebound
+"RTN","ECXUTL3",189,0)
+ ;;16;;22;Mexican Border War
+"RTN","ECXUTL3",190,0)
+ ;;17;;23;WWI
+"RTN","ECXUTL3",191,0)
+ ;;18;;24;POW
+"RTN","ECXUTL3",192,0)
+ ;;3;40-49;30;SC 40-49%
+"RTN","ECXUTL3",193,0)
+ ;;3;30-39;31;SC 30-39%
+"RTN","ECXUTL3",194,0)
+ ;;3;20-29;32;SC 20-29%
+"RTN","ECXUTL3",195,0)
+ ;;3;10-19;33;SC 10-19%
+"RTN","ECXUTL3",196,0)
+ ;;3;<10;34;SC less than 10%
+"RTN","ECXUTL3",197,0)
+ ;;4;;40;NSC - VA Pension
+"RTN","ECXUTL3",198,0)
+ ;;5;;50;NSC
+"RTN","ECXUTL3",199,0)
+ ;;21;;60;Catastrophic Disability
+"RTN","ECXUTL3",200,0)
+ ;;12;;101;CHAMPVA
+"RTN","ECXUTL3",201,0)
+ ;;13;;102;Collateral of Veteran
+"RTN","ECXUTL3",202,0)
+ ;;14;;103;Employee
+"RTN","ECXUTL3",203,0)
+ ;;6;;104;Other Federal Agency
+"RTN","ECXUTL3",204,0)
+ ;;7;;105;Allied Veteran
+"RTN","ECXUTL3",205,0)
+ ;;8;;106;Humanitarian Emergency
+"RTN","ECXUTL3",206,0)
+ ;;9;;107;Sharing Agreement
+"RTN","ECXUTL3",207,0)
+ ;;10;;108;Reimbursable Insurance
+"RTN","ECXUTL3",208,0)
+ ;;19;;109;TRICARE/CHAMPUS
+"RTN","ECXUTL3",209,0)
+ ;;22;;25;Purple Heart Recipient
+"RTN","ECXUTL3",210,0)
+ ;;END
+"RTN","ECXUTL3",211,0)
+ ;
+"RTN","ECXUTL3",212,0)
+CPT(ECXCPT,ECXMOD,ECXQUA) ;Returns a str with CPT code and modifier codes
+"RTN","ECXUTL3",213,0)
+ ;Return string is composed of a 5 character CPT code 2 character quantity
+"RTN","ECXUTL3",214,0)
+ ;plus up to 5 modifier codes, 2 characters each.
+"RTN","ECXUTL3",215,0)
+ ; Variables -
+"RTN","ECXUTL3",216,0)
+ ; Input ECXCPT - Pointer value to the CPT file (#81)
+"RTN","ECXUTL3",217,0)
+ ; ECXMOD - A string with pointer values to the CPT
+"RTN","ECXUTL3",218,0)
+ ; MODIFIER file (#81.3) separated by ";"
+"RTN","ECXUTL3",219,0)
+ ; ECXQUA - Number of time this procedure performed
+"RTN","ECXUTL3",220,0)
+ ;
+"RTN","ECXUTL3",221,0)
+ ; Output:
+"RTN","ECXUTL3",222,0)
+ ; CPTMOD - String of up to 17 characters, 5 character CPT
+"RTN","ECXUTL3",223,0)
+ ; code 2 character qty plus up to 5 2-character
+"RTN","ECXUTL3",224,0)
+ ; code modifiers.
+"RTN","ECXUTL3",225,0)
+ ;
+"RTN","ECXUTL3",226,0)
+ N CPT,MOD,I,CPTMOD
+"RTN","ECXUTL3",227,0)
+ S ECXQUA=$G(ECXQUA,"01"),ECXMOD=$G(ECXMOD)
+"RTN","ECXUTL3",228,0)
+ S:$L(ECXQUA)'=2 ECXQUA="0"_ECXQUA
+"RTN","ECXUTL3",229,0)
+ S CPT=$$CPT^ICPTCOD(ECXCPT,"") I +CPT=-1 Q ""
+"RTN","ECXUTL3",230,0)
+ S CPT=$P(CPT,U,2)_ECXQUA
+"RTN","ECXUTL3",231,0)
+ F I=1:1:99 I $P(ECXMOD,";",I)'="" D
+"RTN","ECXUTL3",232,0)
+ . S MOD=$$MOD^ICPTMOD($P(ECXMOD,";",I),"I","")
+"RTN","ECXUTL3",233,0)
+ . I +MOD>0,$P(MOD,U,2)'="99" S CPT=CPT_$P(MOD,U,2)
+"RTN","ECXUTL3",234,0)
+ S CPTMOD=$TR($E(CPT,1,17)," ")
+"RTN","ECXUTL3",235,0)
+ Q CPTMOD
+"RTN","ECXUTL3",236,0)
+ ;
+"RTN","ECXUTL3",237,0)
+CPTOUT(ECXCPT) ;output transform for CPT code plus modifiers
+"RTN","ECXUTL3",238,0)
+ ;input ECXCPT - character string of CPT code plus modifiers (required)
+"RTN","ECXUTL3",239,0)
+ ;
+"RTN","ECXUTL3",240,0)
+ N J,CPTX,MOD,MODS,MODX,CPTMOD
+"RTN","ECXUTL3",241,0)
+ Q:$G(ECXCPT)="" ""
+"RTN","ECXUTL3",242,0)
+ S (CPTMOD,MODX)=""
+"RTN","ECXUTL3",243,0)
+ S CPTX="("_+$E(ECXCPT,6,7)_") "_$E(ECXCPT,1,5),MODS=$E(ECXCPT,8,17)
+"RTN","ECXUTL3",244,0)
+ F J=1:2:9 S MOD=$E(MODS,J,J+1) Q:MOD="" D
+"RTN","ECXUTL3",245,0)
+ .I J>1 S MODX=MODX_", "_MOD Q
+"RTN","ECXUTL3",246,0)
+ .S MODX=MODX_"-"_MOD
+"RTN","ECXUTL3",247,0)
+ S:$L(CPTX)>3 CPTMOD=CPTMOD_CPTX_MODX
+"RTN","ECXUTL3",248,0)
+ Q CPTMOD
+"RTN","ECXUTL3",249,0)
+ ;
+"RTN","ECXUTL3",250,0)
+CHECKRC(RACEIEN) ;144 API added to check RACE for non-stardard values that can be converted. If the value can be converted then it will be stored in RACE1 upon return
+"RTN","ECXUTL3",251,0)
+ N NAME,DIC,X,Y,PTFVAL
+"RTN","ECXUTL3",252,0)
+ S NAME=$$PTR2TEXT^DGUTL4(RACEIEN)
+"RTN","ECXUTL3",253,0)
+ S PTFVAL=""
+"RTN","ECXUTL3",254,0)
+ I NAME="AMER INDIAN OR ALASKAN NATIVE"!(NAME="AMERICAN INDIAN")!(NAME="AMERICAN INDIAN/ALASKAN NATIVE")!(NAME="AMERICAN INDIAN OR ALASKAN NATIVE") S X="AMERICAN INDIAN OR ALASKA NATIVE"
+"RTN","ECXUTL3",255,0)
+ I NAME="AMERICAN INDIAN/ALASKA NATIVE"!(NAME="AMERICAN INDIAN/ALASKAN")!(NAME="AMERICAN INDIANT OR ALASKA NATIVE") S X="AMERICAN INDIAN OR ALASKA NATIVE"
+"RTN","ECXUTL3",256,0)
+ I NAME="BLACK"!(NAME="BLACK NOT OF HISP ORIG")!(NAME="BLACK, NON HISPANIC")!(NAME="BLACK, NOT OF HISPANIC ORIGIN") S X="BLACK OR AFRICAN AMERICAN"
+"RTN","ECXUTL3",257,0)
+ I NAME="BLACK,NOT OF HISPANIC ORIGIN"!(NAME="HISPANIC BLACK")!(NAME="HISPANIC, BLACK")!(NAME="HISPANIC,BLACK") S X="BLACK OR AFRICAN AMERICAN"
+"RTN","ECXUTL3",258,0)
+ I NAME="WHITE NOT OF HISP ORIG"!(NAME="WHITE, NON HISPANIC")!(NAME="WHITE, NOT OF HISPANIC")!(NAME="WHITE, NOT OF HISPANIC ORIGIN")!(NAME="WHITE,NOT OF HISPANIC ORIGIN") S X="WHITE"
+"RTN","ECXUTL3",259,0)
+ I NAME="CAUCASIAN"!(NAME="CAUCASIAN, NOT OF HISPANIC ORIGIN")!(NAME="HISPANIC WHITE")!(NAME="HISPANIC, WHITE")!(NAME="HISPANIC,WHITE") S X="WHITE"
+"RTN","ECXUTL3",260,0)
+ I NAME="PACIFIC ISLANDER" S X="NATIVE HAWAIIAN OR OTHER PACIFIC ISLANDER"
+"RTN","ECXUTL3",261,0)
+ S DIC(0)="MQ",DIC=10 D ^DIC ;Find standard race in RACE file
+"RTN","ECXUTL3",262,0)
+ I Y S PTFVAL=$$PTR2CODE^DGUTL4(+Y,1,4) ;If found, get PTF value to return
+"RTN","ECXUTL3",263,0)
+ Q PTFVAL
+"TEMP","ECX4CHAR",0)
+3131201^3131101^National Clinic File Gold listing
+"TEMP","ECX4CHAR","402A")
+PROV A V01 402 TOGUS ME
+"TEMP","ECX4CHAR","402B")
+PROV B V01 402 TOGUS ME
+"TEMP","ECX4CHAR","402C")
+PROV C V01 402 TOGUS ME
+"TEMP","ECX4CHAR","402D")
+PROV D V01 402 TOGUS ME
+"TEMP","ECX4CHAR","402E")
+PROV E V01 402 TOGUS ME
+"TEMP","ECX4CHAR","402F")
+PROV F V01 402 TOGUS ME
+"TEMP","ECX4CHAR","402G")
+PROV G V01 402 TOGUS ME
+"TEMP","ECX4CHAR","402H")
+PROV H V01 402 TOGUS ME
+"TEMP","ECX4CHAR","402I")
+PROV I V01 402 TOGUS ME
+"TEMP","ECX4CHAR","402J")
+PROV J V01 402 TOGUS ME
+"TEMP","ECX4CHAR","402K")
+PROV K V01 402 TOGUS ME
+"TEMP","ECX4CHAR","405A")
+PROV A V01 405 WHITE RIVER JUNCTION VT
+"TEMP","ECX4CHAR","405B")
+PROV B V01 405 WHITE RIVER JUNCTION VT
+"TEMP","ECX4CHAR","405C")
+PROV C V01 405 WHITE RIVER JUNCTION VT
+"TEMP","ECX4CHAR","405D")
+PROV D V01 405 WHITE RIVER JUNCTION VT
+"TEMP","ECX4CHAR","405E")
+PROV E V01 405 WHITE RIVER JUNCTION VT
+"TEMP","ECX4CHAR","405F")
+PROV F V01 405 WHITE RIVER JUNCTION VT
+"TEMP","ECX4CHAR","405G")
+PROV G V01 405 WHITE RIVER JUNCTION VT
+"TEMP","ECX4CHAR","405H")
+PROV H V01 405 WHITE RIVER JUNCTION VT
+"TEMP","ECX4CHAR","405I")
+PROV I V01 405 WHITE RIVER JUNCTION VT
+"TEMP","ECX4CHAR","405J")
+PROV J V01 405 WHITE RIVER JUNCTION VT
+"TEMP","ECX4CHAR","405K")
+PROV K V01 405 WHITE RIVER JUNCTION VT
+"TEMP","ECX4CHAR","436A")
+PROV A V19 436 FORT HARRISON MT
+"TEMP","ECX4CHAR","436B")
+PROV B V19 436 FORT HARRISON MT
+"TEMP","ECX4CHAR","436C")
+PROV C V19 436 FORT HARRISON MT
+"TEMP","ECX4CHAR","436D")
+PROV D V19 436 FORT HARRISON MT
+"TEMP","ECX4CHAR","436E")
+PROV E V19 436 FORT HARRISON MT
+"TEMP","ECX4CHAR","436F")
+PROV F V19 436 FORT HARRISON MT
+"TEMP","ECX4CHAR","436G")
+PROV G V19 436 FORT HARRISON MT
+"TEMP","ECX4CHAR","436H")
+PROV H V19 436 FORT HARRISON MT
+"TEMP","ECX4CHAR","436I")
+PROV I V19 436 FORT HARRISON MT
+"TEMP","ECX4CHAR","436J")
+PROV J V19 436 FORT HARRISON MT
+"TEMP","ECX4CHAR","436K")
+PROV K V19 436 FORT HARRISON MT
+"TEMP","ECX4CHAR","437A")
+PROV A V23 437 FARGO ND
+"TEMP","ECX4CHAR","437B")
+PROV B V23 437 FARGO ND
+"TEMP","ECX4CHAR","437C")
+PROV C V23 437 FARGO ND
+"TEMP","ECX4CHAR","437D")
+PROV D V23 437 FARGO ND
+"TEMP","ECX4CHAR","437E")
+PROV E V23 437 FARGO ND
+"TEMP","ECX4CHAR","437F")
+PROV F V23 437 FARGO ND
+"TEMP","ECX4CHAR","437G")
+PROV G V23 437 FARGO ND
+"TEMP","ECX4CHAR","437H")
+PROV H V23 437 FARGO ND
+"TEMP","ECX4CHAR","437I")
+PROV I V23 437 FARGO ND
+"TEMP","ECX4CHAR","437J")
+PROV J V23 437 FARGO ND
+"TEMP","ECX4CHAR","437K")
+PROV K V23 437 FARGO ND
+"TEMP","ECX4CHAR","438A")
+PROV A V23 438 SIOUX FALLS SD
+"TEMP","ECX4CHAR","438B")
+PROV B V23 438 SIOUX FALLS SD
+"TEMP","ECX4CHAR","438C")
+PROV C V23 438 SIOUX FALLS SD
+"TEMP","ECX4CHAR","438D")
+PROV D V23 438 SIOUX FALLS SD
+"TEMP","ECX4CHAR","438E")
+PROV E V23 438 SIOUX FALLS SD
+"TEMP","ECX4CHAR","438F")
+PROV F V23 438 SIOUX FALLS SD
+"TEMP","ECX4CHAR","438G")
+PROV G V23 438 SIOUX FALLS SD
+"TEMP","ECX4CHAR","438H")
+PROV H V23 438 SIOUX FALLS SD
+"TEMP","ECX4CHAR","438I")
+PROV I V23 438 SIOUX FALLS SD
+"TEMP","ECX4CHAR","438J")
+PROV J V23 438 SIOUX FALLS SD
+"TEMP","ECX4CHAR","438K")
+PROV K V23 438 SIOUX FALLS SD
+"TEMP","ECX4CHAR","442A")
+PROV A V19 442 CHEYENNE WY
+"TEMP","ECX4CHAR","442B")
+PROV B V19 442 CHEYENNE WY
+"TEMP","ECX4CHAR","442C")
+PROV C V19 442 CHEYENNE WY
+"TEMP","ECX4CHAR","442D")
+PROV D V19 442 CHEYENNE WY
+"TEMP","ECX4CHAR","442E")
+PROV E V19 442 CHEYENNE WY
+"TEMP","ECX4CHAR","442F")
+PROV F V19 442 CHEYENNE WY
+"TEMP","ECX4CHAR","442G")
+PROV G V19 442 CHEYENNE WY
+"TEMP","ECX4CHAR","442H")
+PROV H V19 442 CHEYENNE WY
+"TEMP","ECX4CHAR","442I")
+PROV I V19 442 CHEYENNE WY
+"TEMP","ECX4CHAR","442J")
+PROV J V19 442 CHEYENNE WY
+"TEMP","ECX4CHAR","442K")
+PROV K V19 442 CHEYENNE WY
+"TEMP","ECX4CHAR","459A")
+PROV A V21 459 HONOLULU HI
+"TEMP","ECX4CHAR","459B")
+PROV B V21 459 HONOLULU HI
+"TEMP","ECX4CHAR","459C")
+PROV C V21 459 HONOLULU HI
+"TEMP","ECX4CHAR","459D")
+PROV D V21 459 HONOLULU HI
+"TEMP","ECX4CHAR","459E")
+PROV E V21 459 HONOLULU HI
+"TEMP","ECX4CHAR","459F")
+PROV F V21 459 HONOLULU HI
+"TEMP","ECX4CHAR","459G")
+PROV G V21 459 HONOLULU HI
+"TEMP","ECX4CHAR","459H")
+PROV H V21 459 HONOLULU HI
+"TEMP","ECX4CHAR","459I")
+PROV I V21 459 HONOLULU HI
+"TEMP","ECX4CHAR","459J")
+PROV J V21 459 HONOLULU HI
+"TEMP","ECX4CHAR","459K")
+PROV K V21 459 HONOLULU HI
+"TEMP","ECX4CHAR","460A")
+PROV A V04 460 WILMINGTON DE
+"TEMP","ECX4CHAR","460B")
+PROV B V04 460 WILMINGTON DE
+"TEMP","ECX4CHAR","460C")
+PROV C V04 460 WILMINGTON DE
+"TEMP","ECX4CHAR","460D")
+PROV D V04 460 WILMINGTON DE
+"TEMP","ECX4CHAR","460E")
+PROV E V04 460 WILMINGTON DE
+"TEMP","ECX4CHAR","460F")
+PROV F V04 460 WILMINGTON DE
+"TEMP","ECX4CHAR","460G")
+PROV G V04 460 WILMINGTON DE
+"TEMP","ECX4CHAR","460H")
+PROV H V04 460 WILMINGTON DE
+"TEMP","ECX4CHAR","460I")
+PROV I V04 460 WILMINGTON DE
+"TEMP","ECX4CHAR","460J")
+PROV J V04 460 WILMINGTON DE
+"TEMP","ECX4CHAR","460K")
+PROV K V04 460 WILMINGTON DE
+"TEMP","ECX4CHAR","463A")
+PROV A V20 463 ANCHORAGE AK
+"TEMP","ECX4CHAR","463B")
+PROV B V20 463 ANCHORAGE AK
+"TEMP","ECX4CHAR","463C")
+PROV C V20 463 ANCHORAGE AK
+"TEMP","ECX4CHAR","463D")
+PROV D V20 463 ANCHORAGE AK
+"TEMP","ECX4CHAR","463E")
+PROV E V20 463 ANCHORAGE AK
+"TEMP","ECX4CHAR","463F")
+PROV F V20 463 ANCHORAGE AK
+"TEMP","ECX4CHAR","463G")
+PROV G V20 463 ANCHORAGE AK
+"TEMP","ECX4CHAR","463H")
+PROV H V20 463 ANCHORAGE AK
+"TEMP","ECX4CHAR","463I")
+PROV I V20 463 ANCHORAGE AK
+"TEMP","ECX4CHAR","463J")
+PROV J V20 463 ANCHORAGE AK
+"TEMP","ECX4CHAR","463K")
+PROV K V20 463 ANCHORAGE AK
+"TEMP","ECX4CHAR","502A")
+PROV A V16 502 ALEXANDRIA LA
+"TEMP","ECX4CHAR","502B")
+PROV B V16 502 ALEXANDRIA LA
+"TEMP","ECX4CHAR","502C")
+PROV C V16 502 ALEXANDRIA LA
+"TEMP","ECX4CHAR","502D")
+PROV D V16 502 ALEXANDRIA LA
+"TEMP","ECX4CHAR","502E")
+PROV E V16 502 ALEXANDRIA LA
+"TEMP","ECX4CHAR","502F")
+PROV F V16 502 ALEXANDRIA LA
+"TEMP","ECX4CHAR","502G")
+PROV G V16 502 ALEXANDRIA LA
+"TEMP","ECX4CHAR","502H")
+PROV H V16 502 ALEXANDRIA LA
+"TEMP","ECX4CHAR","502I")
+PROV I V16 502 ALEXANDRIA LA
+"TEMP","ECX4CHAR","502J")
+PROV J V16 502 ALEXANDRIA LA
+"TEMP","ECX4CHAR","502K")
+PROV K V16 502 ALEXANDRIA LA
+"TEMP","ECX4CHAR","503A")
+PROV A V04 503 ALTOONA PA
+"TEMP","ECX4CHAR","503B")
+PROV B V04 503 ALTOONA PA
+"TEMP","ECX4CHAR","503C")
+PROV C V04 503 ALTOONA PA
+"TEMP","ECX4CHAR","503D")
+PROV D V04 503 ALTOONA PA
+"TEMP","ECX4CHAR","503E")
+PROV E V04 503 ALTOONA PA
+"TEMP","ECX4CHAR","503F")
+PROV F V04 503 ALTOONA PA
+"TEMP","ECX4CHAR","503G")
+PROV G V04 503 ALTOONA PA
+"TEMP","ECX4CHAR","503H")
+PROV H V04 503 ALTOONA PA
+"TEMP","ECX4CHAR","503I")
+PROV I V04 503 ALTOONA PA
+"TEMP","ECX4CHAR","503J")
+PROV J V04 503 ALTOONA PA
+"TEMP","ECX4CHAR","503K")
+PROV K V04 503 ALTOONA PA
+"TEMP","ECX4CHAR","504A")
+PROV A V18 504 AMARILLO TX
+"TEMP","ECX4CHAR","504B")
+PROV B V18 504 AMARILLO TX
+"TEMP","ECX4CHAR","504C")
+PROV C V18 504 AMARILLO TX
+"TEMP","ECX4CHAR","504D")
+PROV D V18 504 AMARILLO TX
+"TEMP","ECX4CHAR","504E")
+PROV E V18 504 AMARILLO TX
+"TEMP","ECX4CHAR","504F")
+PROV F V18 504 AMARILLO TX
+"TEMP","ECX4CHAR","504G")
+PROV G V18 504 AMARILLO TX
+"TEMP","ECX4CHAR","504H")
+PROV H V18 504 AMARILLO TX
+"TEMP","ECX4CHAR","504I")
+PROV I V18 504 AMARILLO TX
+"TEMP","ECX4CHAR","504J")
+PROV J V18 504 AMARILLO TX
+"TEMP","ECX4CHAR","504K")
+PROV K V18 504 AMARILLO TX
+"TEMP","ECX4CHAR","506A")
+PROV A V11 506 ANN ARBOR MI
+"TEMP","ECX4CHAR","506B")
+PROV B V11 506 ANN ARBOR MI
+"TEMP","ECX4CHAR","506C")
+PROV C V11 506 ANN ARBOR MI
+"TEMP","ECX4CHAR","506D")
+PROV D V11 506 ANN ARBOR MI
+"TEMP","ECX4CHAR","506E")
+PROV E V11 506 ANN ARBOR MI
+"TEMP","ECX4CHAR","506F")
+PROV F V11 506 ANN ARBOR MI
+"TEMP","ECX4CHAR","506G")
+PROV G V11 506 ANN ARBOR MI
+"TEMP","ECX4CHAR","506H")
+PROV H V11 506 ANN ARBOR MI
+"TEMP","ECX4CHAR","506I")
+PROV I V11 506 ANN ARBOR MI
+"TEMP","ECX4CHAR","506J")
+PROV J V11 506 ANN ARBOR MI
+"TEMP","ECX4CHAR","506K")
+PROV K V11 506 ANN ARBOR MI
+"TEMP","ECX4CHAR","508A")
+PROV A V07 508 ATLANTA GA
+"TEMP","ECX4CHAR","508B")
+PROV B V07 508 ATLANTA GA
+"TEMP","ECX4CHAR","508C")
+PROV C V07 508 ATLANTA GA
+"TEMP","ECX4CHAR","508D")
+PROV D V07 508 ATLANTA GA
+"TEMP","ECX4CHAR","508E")
+PROV E V07 508 ATLANTA GA
+"TEMP","ECX4CHAR","508F")
+PROV F V07 508 ATLANTA GA
+"TEMP","ECX4CHAR","508G")
+PROV G V07 508 ATLANTA GA
+"TEMP","ECX4CHAR","508H")
+PROV H V07 508 ATLANTA GA
+"TEMP","ECX4CHAR","508I")
+PROV I V07 508 ATLANTA GA
+"TEMP","ECX4CHAR","508J")
+PROV J V07 508 ATLANTA GA
+"TEMP","ECX4CHAR","508K")
+PROV K V07 508 ATLANTA GA
+"TEMP","ECX4CHAR","509A")
+PROV A V07 509 AUGUSTA GA
+"TEMP","ECX4CHAR","509B")
+PROV B V07 509 AUGUSTA GA
+"TEMP","ECX4CHAR","509C")
+PROV C V07 509 AUGUSTA GA
+"TEMP","ECX4CHAR","509D")
+PROV D V07 509 AUGUSTA GA
+"TEMP","ECX4CHAR","509E")
+PROV E V07 509 AUGUSTA GA
+"TEMP","ECX4CHAR","509F")
+PROV F V07 509 AUGUSTA GA
+"TEMP","ECX4CHAR","509G")
+PROV G V07 509 AUGUSTA GA
+"TEMP","ECX4CHAR","509H")
+PROV H V07 509 AUGUSTA GA
+"TEMP","ECX4CHAR","509I")
+PROV I V07 509 AUGUSTA GA
+"TEMP","ECX4CHAR","509J")
+PROV J V07 509 AUGUSTA GA
+"TEMP","ECX4CHAR","509K")
+PROV K V07 509 AUGUSTA GA
+"TEMP","ECX4CHAR","512A")
+PROV A V05 512 MARYLAND HCS
+"TEMP","ECX4CHAR","512B")
+PROV B V05 512 MARYLAND HCS
+"TEMP","ECX4CHAR","512C")
+PROV C V05 512 MARYLAND HCS
+"TEMP","ECX4CHAR","512D")
+PROV D V05 512 MARYLAND HCS
+"TEMP","ECX4CHAR","512E")
+PROV E V05 512 MARYLAND HCS
+"TEMP","ECX4CHAR","512F")
+PROV F V05 512 MARYLAND HCS
+"TEMP","ECX4CHAR","512G")
+PROV G V05 512 MARYLAND HCS
+"TEMP","ECX4CHAR","512H")
+PROV H V05 512 MARYLAND HCS
+"TEMP","ECX4CHAR","512I")
+PROV I V05 512 MARYLAND HCS
+"TEMP","ECX4CHAR","512J")
+PROV J V05 512 MARYLAND HCS
+"TEMP","ECX4CHAR","512K")
+PROV K V05 512 MARYLAND HCS
+"TEMP","ECX4CHAR","515A")
+PROV A V11 515 BATTLE CREEK MI
+"TEMP","ECX4CHAR","515B")
+PROV B V11 515 BATTLE CREEK MI
+"TEMP","ECX4CHAR","515C")
+PROV C V11 515 BATTLE CREEK MI
+"TEMP","ECX4CHAR","515D")
+PROV D V11 515 BATTLE CREEK MI
+"TEMP","ECX4CHAR","515E")
+PROV E V11 515 BATTLE CREEK MI
+"TEMP","ECX4CHAR","515F")
+PROV F V11 515 BATTLE CREEK MI
+"TEMP","ECX4CHAR","515G")
+PROV G V11 515 BATTLE CREEK MI
+"TEMP","ECX4CHAR","515H")
+PROV H V11 515 BATTLE CREEK MI
+"TEMP","ECX4CHAR","515I")
+PROV I V11 515 BATTLE CREEK MI
+"TEMP","ECX4CHAR","515J")
+PROV J V11 515 BATTLE CREEK MI
+"TEMP","ECX4CHAR","515K")
+PROV K V11 515 BATTLE CREEK MI
+"TEMP","ECX4CHAR","516A")
+PROV A V08 516 BAY PINES FL
+"TEMP","ECX4CHAR","516B")
+PROV B V08 516 BAY PINES FL
+"TEMP","ECX4CHAR","516C")
+PROV C V08 516 BAY PINES FL
+"TEMP","ECX4CHAR","516D")
+PROV D V08 516 BAY PINES FL
+"TEMP","ECX4CHAR","516E")
+PROV E V08 516 BAY PINES FL
+"TEMP","ECX4CHAR","516F")
+PROV F V08 516 BAY PINES FL
+"TEMP","ECX4CHAR","516G")
+PROV G V08 516 BAY PINES FL
+"TEMP","ECX4CHAR","516H")
+PROV H V08 516 BAY PINES FL
+"TEMP","ECX4CHAR","516I")
+PROV I V08 516 BAY PINES FL
+"TEMP","ECX4CHAR","516J")
+PROV J V08 516 BAY PINES FL
+"TEMP","ECX4CHAR","516K")
+PROV K V08 516 BAY PINES FL
+"TEMP","ECX4CHAR","517A")
+PROV A V06 517 BECKLEY WV
+"TEMP","ECX4CHAR","517B")
+PROV B V06 517 BECKLEY WV
+"TEMP","ECX4CHAR","517C")
+PROV C V06 517 BECKLEY WV
+"TEMP","ECX4CHAR","517D")
+PROV D V06 517 BECKLEY WV
+"TEMP","ECX4CHAR","517E")
+PROV E V06 517 BECKLEY WV
+"TEMP","ECX4CHAR","517F")
+PROV F V06 517 BECKLEY WV
+"TEMP","ECX4CHAR","517G")
+PROV G V06 517 BECKLEY WV
+"TEMP","ECX4CHAR","517H")
+PROV H V06 517 BECKLEY WV
+"TEMP","ECX4CHAR","517I")
+PROV I V06 517 BECKLEY WV
+"TEMP","ECX4CHAR","517J")
+PROV J V06 517 BECKLEY WV
+"TEMP","ECX4CHAR","517K")
+PROV K V06 517 BECKLEY WV
+"TEMP","ECX4CHAR","518A")
+PROV A V01 518 BEDFORD MA
+"TEMP","ECX4CHAR","518B")
+PROV B V01 518 BEDFORD MA
+"TEMP","ECX4CHAR","518C")
+PROV C V01 518 BEDFORD MA
+"TEMP","ECX4CHAR","518D")
+PROV D V01 518 BEDFORD MA
+"TEMP","ECX4CHAR","518E")
+PROV E V01 518 BEDFORD MA
+"TEMP","ECX4CHAR","518F")
+PROV F V01 518 BEDFORD MA
+"TEMP","ECX4CHAR","518G")
+PROV G V01 518 BEDFORD MA
+"TEMP","ECX4CHAR","518H")
+PROV H V01 518 BEDFORD MA
+"TEMP","ECX4CHAR","518I")
+PROV I V01 518 BEDFORD MA
+"TEMP","ECX4CHAR","518J")
+PROV J V01 518 BEDFORD MA
+"TEMP","ECX4CHAR","518K")
+PROV K V01 518 BEDFORD MA
+"TEMP","ECX4CHAR","519A")
+PROV A V18 519 BIG SPRINGS TX
+"TEMP","ECX4CHAR","519B")
+PROV B V18 519 BIG SPRINGS TX
+"TEMP","ECX4CHAR","519C")
+PROV C V18 519 BIG SPRINGS TX
+"TEMP","ECX4CHAR","519D")
+PROV D V18 519 BIG SPRINGS TX
+"TEMP","ECX4CHAR","519E")
+PROV E V18 519 BIG SPRINGS TX
+"TEMP","ECX4CHAR","519F")
+PROV F V18 519 BIG SPRINGS TX
+"TEMP","ECX4CHAR","519G")
+PROV G V18 519 BIG SPRINGS TX
+"TEMP","ECX4CHAR","519H")
+PROV H V18 519 BIG SPRINGS TX
+"TEMP","ECX4CHAR","519I")
+PROV I V18 519 BIG SPRINGS TX
+"TEMP","ECX4CHAR","519J")
+PROV J V18 519 BIG SPRINGS TX
+"TEMP","ECX4CHAR","519K")
+PROV K V18 519 BIG SPRINGS TX
+"TEMP","ECX4CHAR","520A")
+PROV A V16 520 BILOXI MS
+"TEMP","ECX4CHAR","520B")
+PROV B V16 520 BILOXI MS
+"TEMP","ECX4CHAR","520C")
+PROV C V16 520 BILOXI MS
+"TEMP","ECX4CHAR","520D")
+PROV D V16 520 BILOXI MS
+"TEMP","ECX4CHAR","520E")
+PROV E V16 520 BILOXI MS
+"TEMP","ECX4CHAR","520F")
+PROV F V16 520 BILOXI MS
+"TEMP","ECX4CHAR","520G")
+PROV G V16 520 BILOXI MS
+"TEMP","ECX4CHAR","520H")
+PROV H V16 520 BILOXI MS
+"TEMP","ECX4CHAR","520I")
+PROV I V16 520 BILOXI MS
+"TEMP","ECX4CHAR","520J")
+PROV J V16 520 BILOXI MS
+"TEMP","ECX4CHAR","520K")
+PROV K V16 520 BILOXI MS
+"TEMP","ECX4CHAR","521A")
+PROV A V07 521 BIRMINGHAM AL
+"TEMP","ECX4CHAR","521B")
+PROV B V07 521 BIRMINGHAM AL
+"TEMP","ECX4CHAR","521C")
+PROV C V07 521 BIRMINGHAM AL
+"TEMP","ECX4CHAR","521D")
+PROV D V07 521 BIRMINGHAM AL
+"TEMP","ECX4CHAR","521E")
+PROV E V07 521 BIRMINGHAM AL
+"TEMP","ECX4CHAR","521F")
+PROV F V07 521 BIRMINGHAM AL
+"TEMP","ECX4CHAR","521G")
+PROV G V07 521 BIRMINGHAM AL
+"TEMP","ECX4CHAR","521H")
+PROV H V07 521 BIRMINGHAM AL
+"TEMP","ECX4CHAR","521I")
+PROV I V07 521 BIRMINGHAM AL
+"TEMP","ECX4CHAR","521J")
+PROV J V07 521 BIRMINGHAM AL
+"TEMP","ECX4CHAR","521K")
+PROV K V07 521 BIRMINGHAM AL
+"TEMP","ECX4CHAR","523A")
+PROV A V01 523 VA BOSTON HCS
+"TEMP","ECX4CHAR","523B")
+PROV B V01 523 VA BOSTON HCS
+"TEMP","ECX4CHAR","523C")
+PROV C V01 523 VA BOSTON HCS
+"TEMP","ECX4CHAR","523D")
+PROV D V01 523 VA BOSTON HCS
+"TEMP","ECX4CHAR","523E")
+PROV E V01 523 VA BOSTON HCS
+"TEMP","ECX4CHAR","523F")
+PROV F V01 523 VA BOSTON HCS
+"TEMP","ECX4CHAR","523G")
+PROV G V01 523 VA BOSTON HCS
+"TEMP","ECX4CHAR","523H")
+PROV H V01 523 VA BOSTON HCS
+"TEMP","ECX4CHAR","523I")
+PROV I V01 523 VA BOSTON HCS
+"TEMP","ECX4CHAR","523J")
+PROV J V01 523 VA BOSTON HCS
+"TEMP","ECX4CHAR","523K")
+PROV K V01 523 VA BOSTON HCS
+"TEMP","ECX4CHAR","526A")
+PROV A V03 526 BRONX NY
+"TEMP","ECX4CHAR","526B")
+PROV B V03 526 BRONX NY
+"TEMP","ECX4CHAR","526C")
+PROV C V03 526 BRONX NY
+"TEMP","ECX4CHAR","526D")
+PROV D V03 526 BRONX NY
+"TEMP","ECX4CHAR","526E")
+PROV E V03 526 BRONX NY
+"TEMP","ECX4CHAR","526F")
+PROV F V03 526 BRONX NY
+"TEMP","ECX4CHAR","526G")
+PROV G V03 526 BRONX NY
+"TEMP","ECX4CHAR","526H")
+PROV H V03 526 BRONX NY
+"TEMP","ECX4CHAR","526I")
+PROV I V03 526 BRONX NY
+"TEMP","ECX4CHAR","526J")
+PROV J V03 526 BRONX NY
+"TEMP","ECX4CHAR","526K")
+PROV K V03 526 BRONX NY
+"TEMP","ECX4CHAR","528A")
+PROV A V02 528 WESTERN NEW YORK HCS
+"TEMP","ECX4CHAR","528B")
+PROV B V02 528 WESTERN NEW YORK HCS
+"TEMP","ECX4CHAR","528C")
+PROV C V02 528 WESTERN NEW YORK HCS
+"TEMP","ECX4CHAR","528D")
+PROV D V02 528 WESTERN NEW YORK HCS
+"TEMP","ECX4CHAR","528E")
+PROV E V02 528 WESTERN NEW YORK HCS
+"TEMP","ECX4CHAR","528F")
+PROV F V02 528 WESTERN NEW YORK HCS
+"TEMP","ECX4CHAR","528G")
+PROV G V02 528 WESTERN NEW YORK HCS
+"TEMP","ECX4CHAR","528H")
+PROV H V02 528 WESTERN NEW YORK HCS
+"TEMP","ECX4CHAR","528I")
+PROV I V02 528 WESTERN NEW YORK HCS
+"TEMP","ECX4CHAR","528J")
+PROV J V02 528 WESTERN NEW YORK HCS
+"TEMP","ECX4CHAR","528K")
+PROV K V02 528 WESTERN NEW YORK HCS
+"TEMP","ECX4CHAR","529A")
+PROV A V04 529 BUTLER PA
+"TEMP","ECX4CHAR","529B")
+PROV B V04 529 BUTLER PA
+"TEMP","ECX4CHAR","529C")
+PROV C V04 529 BUTLER PA
+"TEMP","ECX4CHAR","529D")
+PROV D V04 529 BUTLER PA
+"TEMP","ECX4CHAR","529E")
+PROV E V04 529 BUTLER PA
+"TEMP","ECX4CHAR","529F")
+PROV F V04 529 BUTLER PA
+"TEMP","ECX4CHAR","529G")
+PROV G V04 529 BUTLER PA
+"TEMP","ECX4CHAR","529H")
+PROV H V04 529 BUTLER PA
+"TEMP","ECX4CHAR","529I")
+PROV I V04 529 BUTLER PA
+"TEMP","ECX4CHAR","529J")
+PROV J V04 529 BUTLER PA
+"TEMP","ECX4CHAR","529K")
+PROV K V04 529 BUTLER PA
+"TEMP","ECX4CHAR","531A")
+PROV A V20 531 BOISE ID
+"TEMP","ECX4CHAR","531B")
+PROV B V20 531 BOISE ID
+"TEMP","ECX4CHAR","531C")
+PROV C V20 531 BOISE ID
+"TEMP","ECX4CHAR","531D")
+PROV D V20 531 BOISE ID
+"TEMP","ECX4CHAR","531E")
+PROV E V20 531 BOISE ID
+"TEMP","ECX4CHAR","531F")
+PROV F V20 531 BOISE ID
+"TEMP","ECX4CHAR","531G")
+PROV G V20 531 BOISE ID
+"TEMP","ECX4CHAR","531H")
+PROV H V20 531 BOISE ID
+"TEMP","ECX4CHAR","531I")
+PROV I V20 531 BOISE ID
+"TEMP","ECX4CHAR","531J")
+PROV J V20 531 BOISE ID
+"TEMP","ECX4CHAR","531K")
+PROV K V20 531 BOISE ID
+"TEMP","ECX4CHAR","534A")
+PROV A V07 534 CHARLESTON SC
+"TEMP","ECX4CHAR","534B")
+PROV B V07 534 CHARLESTON SC
+"TEMP","ECX4CHAR","534C")
+PROV C V07 534 CHARLESTON SC
+"TEMP","ECX4CHAR","534D")
+PROV D V07 534 CHARLESTON SC
+"TEMP","ECX4CHAR","534E")
+PROV E V07 534 CHARLESTON SC
+"TEMP","ECX4CHAR","534F")
+PROV F V07 534 CHARLESTON SC
+"TEMP","ECX4CHAR","534G")
+PROV G V07 534 CHARLESTON SC
+"TEMP","ECX4CHAR","534H")
+PROV H V07 534 CHARLESTON SC
+"TEMP","ECX4CHAR","534I")
+PROV I V07 534 CHARLESTON SC
+"TEMP","ECX4CHAR","534J")
+PROV J V07 534 CHARLESTON SC
+"TEMP","ECX4CHAR","534K")
+PROV K V07 534 CHARLESTON SC
+"TEMP","ECX4CHAR","538A")
+PROV A V10 538 CHILLICOTHE OH
+"TEMP","ECX4CHAR","538B")
+PROV B V10 538 CHILLICOTHE OH
+"TEMP","ECX4CHAR","538C")
+PROV C V10 538 CHILLICOTHE OH
+"TEMP","ECX4CHAR","538D")
+PROV D V10 538 CHILLICOTHE OH
+"TEMP","ECX4CHAR","538E")
+PROV E V10 538 CHILLICOTHE OH
+"TEMP","ECX4CHAR","538F")
+PROV F V10 538 CHILLICOTHE OH
+"TEMP","ECX4CHAR","538G")
+PROV G V10 538 CHILLICOTHE OH
+"TEMP","ECX4CHAR","538H")
+PROV H V10 538 CHILLICOTHE OH
+"TEMP","ECX4CHAR","538I")
+PROV I V10 538 CHILLICOTHE OH
+"TEMP","ECX4CHAR","538J")
+PROV J V10 538 CHILLICOTHE OH
+"TEMP","ECX4CHAR","538K")
+PROV K V10 538 CHILLICOTHE OH
+"TEMP","ECX4CHAR","539A")
+PROV A V10 539 CINCINNATI OH
+"TEMP","ECX4CHAR","539B")
+PROV B V10 539 CINCINNATI OH
+"TEMP","ECX4CHAR","539C")
+PROV C V10 539 CINCINNATI OH
+"TEMP","ECX4CHAR","539D")
+PROV D V10 539 CINCINNATI OH
+"TEMP","ECX4CHAR","539E")
+PROV E V10 539 CINCINNATI OH
+"TEMP","ECX4CHAR","539F")
+PROV F V10 539 CINCINNATI OH
+"TEMP","ECX4CHAR","539G")
+PROV G V10 539 CINCINNATI OH
+"TEMP","ECX4CHAR","539H")
+PROV H V10 539 CINCINNATI OH
+"TEMP","ECX4CHAR","539I")
+PROV I V10 539 CINCINNATI OH
+"TEMP","ECX4CHAR","539J")
+PROV J V10 539 CINCINNATI OH
+"TEMP","ECX4CHAR","539K")
+PROV K V10 539 CINCINNATI OH
+"TEMP","ECX4CHAR","540A")
+PROV A V04 540 CLARKBURG WV
+"TEMP","ECX4CHAR","540B")
+PROV B V04 540 CLARKBURG WV
+"TEMP","ECX4CHAR","540C")
+PROV C V04 540 CLARKBURG WV
+"TEMP","ECX4CHAR","540D")
+PROV D V04 540 CLARKBURG WV
+"TEMP","ECX4CHAR","540E")
+PROV E V04 540 CLARKBURG WV
+"TEMP","ECX4CHAR","540F")
+PROV F V04 540 CLARKBURG WV
+"TEMP","ECX4CHAR","540G")
+PROV G V04 540 CLARKBURG WV
+"TEMP","ECX4CHAR","540H")
+PROV H V04 540 CLARKBURG WV
+"TEMP","ECX4CHAR","540I")
+PROV I V04 540 CLARKBURG WV
+"TEMP","ECX4CHAR","540J")
+PROV J V04 540 CLARKBURG WV
+"TEMP","ECX4CHAR","540K")
+PROV K V04 540 CLARKBURG WV
+"TEMP","ECX4CHAR","541A")
+PROV A V10 541 CLEVELAND OH
+"TEMP","ECX4CHAR","541B")
+PROV B V10 541 CLEVELAND OH
+"TEMP","ECX4CHAR","541C")
+PROV C V10 541 CLEVELAND OH
+"TEMP","ECX4CHAR","541D")
+PROV D V10 541 CLEVELAND OH
+"TEMP","ECX4CHAR","541E")
+PROV E V10 541 CLEVELAND OH
+"TEMP","ECX4CHAR","541F")
+PROV F V10 541 CLEVELAND OH
+"TEMP","ECX4CHAR","541G")
+PROV G V10 541 CLEVELAND OH
+"TEMP","ECX4CHAR","541H")
+PROV H V10 541 CLEVELAND OH
+"TEMP","ECX4CHAR","541I")
+PROV I V10 541 CLEVELAND OH
+"TEMP","ECX4CHAR","541J")
+PROV J V10 541 CLEVELAND OH
+"TEMP","ECX4CHAR","541K")
+PROV K V10 541 CLEVELAND OH
+"TEMP","ECX4CHAR","542A")
+PROV A V04 542 COATESVILLE PA
+"TEMP","ECX4CHAR","542B")
+PROV B V04 542 COATESVILLE PA
+"TEMP","ECX4CHAR","542C")
+PROV C V04 542 COATESVILLE PA
+"TEMP","ECX4CHAR","542D")
+PROV D V04 542 COATESVILLE PA
+"TEMP","ECX4CHAR","542E")
+PROV E V04 542 COATESVILLE PA
+"TEMP","ECX4CHAR","542F")
+PROV F V04 542 COATESVILLE PA
+"TEMP","ECX4CHAR","542G")
+PROV G V04 542 COATESVILLE PA
+"TEMP","ECX4CHAR","542H")
+PROV H V04 542 COATESVILLE PA
+"TEMP","ECX4CHAR","542I")
+PROV I V04 542 COATESVILLE PA
+"TEMP","ECX4CHAR","542J")
+PROV J V04 542 COATESVILLE PA
+"TEMP","ECX4CHAR","542K")
+PROV K V04 542 COATESVILLE PA
+"TEMP","ECX4CHAR","544A")
+PROV A V07 544 COLUMBIA SC
+"TEMP","ECX4CHAR","544B")
+PROV B V07 544 COLUMBIA SC
+"TEMP","ECX4CHAR","544C")
+PROV C V07 544 COLUMBIA SC
+"TEMP","ECX4CHAR","544D")
+PROV D V07 544 COLUMBIA SC
+"TEMP","ECX4CHAR","544E")
+PROV E V07 544 COLUMBIA SC
+"TEMP","ECX4CHAR","544F")
+PROV F V07 544 COLUMBIA SC
+"TEMP","ECX4CHAR","544G")
+PROV G V07 544 COLUMBIA SC
+"TEMP","ECX4CHAR","544H")
+PROV H V07 544 COLUMBIA SC
+"TEMP","ECX4CHAR","544I")
+PROV I V07 544 COLUMBIA SC
+"TEMP","ECX4CHAR","544J")
+PROV J V07 544 COLUMBIA SC
+"TEMP","ECX4CHAR","544K")
+PROV K V07 544 COLUMBIA SC
+"TEMP","ECX4CHAR","546A")
+PROV A V08 546 MIAMI FL
+"TEMP","ECX4CHAR","546B")
+PROV B V08 546 MIAMI FL
+"TEMP","ECX4CHAR","546C")
+PROV C V08 546 MIAMI FL
+"TEMP","ECX4CHAR","546D")
+PROV D V08 546 MIAMI FL
+"TEMP","ECX4CHAR","546E")
+PROV E V08 546 MIAMI FL
+"TEMP","ECX4CHAR","546F")
+PROV F V08 546 MIAMI FL
+"TEMP","ECX4CHAR","546G")
+PROV G V08 546 MIAMI FL
+"TEMP","ECX4CHAR","546H")
+PROV H V08 546 MIAMI FL
+"TEMP","ECX4CHAR","546I")
+PROV I V08 546 MIAMI FL
+"TEMP","ECX4CHAR","546J")
+PROV J V08 546 MIAMI FL
+"TEMP","ECX4CHAR","546K")
+PROV K V08 546 MIAMI FL
+"TEMP","ECX4CHAR","548A")
+PROV A V08 548 WEST PALM BEACH FL
+"TEMP","ECX4CHAR","548B")
+PROV B V08 548 WEST PALM BEACH FL
+"TEMP","ECX4CHAR","548C")
+PROV C V08 548 WEST PALM BEACH FL
+"TEMP","ECX4CHAR","548D")
+PROV D V08 548 WEST PALM BEACH FL
+"TEMP","ECX4CHAR","548E")
+PROV E V08 548 WEST PALM BEACH FL
+"TEMP","ECX4CHAR","548F")
+PROV F V08 548 WEST PALM BEACH FL
+"TEMP","ECX4CHAR","548G")
+PROV G V08 548 WEST PALM BEACH FL
+"TEMP","ECX4CHAR","548H")
+PROV H V08 548 WEST PALM BEACH FL
+"TEMP","ECX4CHAR","548I")
+PROV I V08 548 WEST PALM BEACH FL
+"TEMP","ECX4CHAR","548J")
+PROV J V08 548 WEST PALM BEACH FL
+"TEMP","ECX4CHAR","548K")
+PROV K V08 548 WEST PALM BEACH FL
+"TEMP","ECX4CHAR","549A")
+PROV A V17 549 NORTH TEXAS HCS
+"TEMP","ECX4CHAR","549B")
+PROV B V17 549 NORTH TEXAS HCS
+"TEMP","ECX4CHAR","549C")
+PROV C V17 549 NORTH TEXAS HCS
+"TEMP","ECX4CHAR","549D")
+PROV D V17 549 NORTH TEXAS HCS
+"TEMP","ECX4CHAR","549E")
+PROV E V17 549 NORTH TEXAS HCS
+"TEMP","ECX4CHAR","549F")
+PROV F V17 549 NORTH TEXAS HCS
+"TEMP","ECX4CHAR","549G")
+PROV G V17 549 NORTH TEXAS HCS
+"TEMP","ECX4CHAR","549H")
+PROV H V17 549 NORTH TEXAS HCS
+"TEMP","ECX4CHAR","549I")
+PROV I V17 549 NORTH TEXAS HCS
+"TEMP","ECX4CHAR","549J")
+PROV J V17 549 NORTH TEXAS HCS
+"TEMP","ECX4CHAR","549K")
+PROV K V17 549 NORTH TEXAS HCS
+"TEMP","ECX4CHAR","550A")
+PROV A V11 550 DANVILLE IL
+"TEMP","ECX4CHAR","550B")
+PROV B V11 550 DANVILLE IL
+"TEMP","ECX4CHAR","550C")
+PROV C V11 550 DANVILLE IL
+"TEMP","ECX4CHAR","550D")
+PROV D V11 550 DANVILLE IL
+"TEMP","ECX4CHAR","550E")
+PROV E V11 550 DANVILLE IL
+"TEMP","ECX4CHAR","550F")
+PROV F V11 550 DANVILLE IL
+"TEMP","ECX4CHAR","550G")
+PROV G V11 550 DANVILLE IL
+"TEMP","ECX4CHAR","550H")
+PROV H V11 550 DANVILLE IL
+"TEMP","ECX4CHAR","550I")
+PROV I V11 550 DANVILLE IL
+"TEMP","ECX4CHAR","550J")
+PROV J V11 550 DANVILLE IL
+"TEMP","ECX4CHAR","550K")
+PROV K V11 550 DANVILLE IL
+"TEMP","ECX4CHAR","552A")
+PROV A V10 552 DAYTON OH
+"TEMP","ECX4CHAR","552B")
+PROV B V10 552 DAYTON OH
+"TEMP","ECX4CHAR","552C")
+PROV C V10 552 DAYTON OH
+"TEMP","ECX4CHAR","552D")
+PROV D V10 552 DAYTON OH
+"TEMP","ECX4CHAR","552E")
+PROV E V10 552 DAYTON OH
+"TEMP","ECX4CHAR","552F")
+PROV F V10 552 DAYTON OH
+"TEMP","ECX4CHAR","552G")
+PROV G V10 552 DAYTON OH
+"TEMP","ECX4CHAR","552H")
+PROV H V10 552 DAYTON OH
+"TEMP","ECX4CHAR","552I")
+PROV I V10 552 DAYTON OH
+"TEMP","ECX4CHAR","552J")
+PROV J V10 552 DAYTON OH
+"TEMP","ECX4CHAR","552K")
+PROV K V10 552 DAYTON OH
+"TEMP","ECX4CHAR","553A")
+PROV A V11 553 JOHN D. DINGELL VAMC
+"TEMP","ECX4CHAR","553B")
+PROV B V11 553 JOHN D. DINGELL VAMC
+"TEMP","ECX4CHAR","553C")
+PROV C V11 553 JOHN D. DINGELL VAMC
+"TEMP","ECX4CHAR","553D")
+PROV D V11 553 JOHN D. DINGELL VAMC
+"TEMP","ECX4CHAR","553E")
+PROV E V11 553 JOHN D. DINGELL VAMC
+"TEMP","ECX4CHAR","553F")
+PROV F V11 553 JOHN D. DINGELL VAMC
+"TEMP","ECX4CHAR","553G")
+PROV G V11 553 JOHN D. DINGELL VAMC
+"TEMP","ECX4CHAR","553H")
+PROV H V11 553 JOHN D. DINGELL VAMC
+"TEMP","ECX4CHAR","553I")
+PROV I V11 553 JOHN D. DINGELL VAMC
+"TEMP","ECX4CHAR","553J")
+PROV J V11 553 JOHN D. DINGELL VAMC
+"TEMP","ECX4CHAR","553K")
+PROV K V11 553 JOHN D. DINGELL VAMC
+"TEMP","ECX4CHAR","554A")
+PROV A V19 554 DENVER CO
+"TEMP","ECX4CHAR","554B")
+PROV B V19 554 DENVER CO
+"TEMP","ECX4CHAR","554C")
+PROV C V19 554 DENVER CO
+"TEMP","ECX4CHAR","554D")
+PROV D V19 554 DENVER CO
+"TEMP","ECX4CHAR","554E")
+PROV E V19 554 DENVER CO
+"TEMP","ECX4CHAR","554F")
+PROV F V19 554 DENVER CO
+"TEMP","ECX4CHAR","554G")
+PROV G V19 554 DENVER CO
+"TEMP","ECX4CHAR","554H")
+PROV H V19 554 DENVER CO
+"TEMP","ECX4CHAR","554I")
+PROV I V19 554 DENVER CO
+"TEMP","ECX4CHAR","554J")
+PROV J V19 554 DENVER CO
+"TEMP","ECX4CHAR","554K")
+PROV K V19 554 DENVER CO
+"TEMP","ECX4CHAR","556A")
+PROV A V12 556 NORTH CHICAGO
+"TEMP","ECX4CHAR","556B")
+PROV B V12 556 NORTH CHICAGO
+"TEMP","ECX4CHAR","556C")
+PROV C V12 556 NORTH CHICAGO
+"TEMP","ECX4CHAR","556D")
+PROV D V12 556 NORTH CHICAGO
+"TEMP","ECX4CHAR","556E")
+PROV E V12 556 NORTH CHICAGO
+"TEMP","ECX4CHAR","556F")
+PROV F V12 556 NORTH CHICAGO
+"TEMP","ECX4CHAR","556G")
+PROV G V12 556 NORTH CHICAGO
+"TEMP","ECX4CHAR","556H")
+PROV H V12 556 NORTH CHICAGO
+"TEMP","ECX4CHAR","556I")
+PROV I V12 556 NORTH CHICAGO
+"TEMP","ECX4CHAR","556J")
+PROV J V12 556 NORTH CHICAGO
+"TEMP","ECX4CHAR","556K")
+PROV K V12 556 NORTH CHICAGO
+"TEMP","ECX4CHAR","557A")
+PROV A V07 557 DUBLIN GA
+"TEMP","ECX4CHAR","557B")
+PROV B V07 557 DUBLIN GA
+"TEMP","ECX4CHAR","557C")
+PROV C V07 557 DUBLIN GA
+"TEMP","ECX4CHAR","557D")
+PROV D V07 557 DUBLIN GA
+"TEMP","ECX4CHAR","557E")
+PROV E V07 557 DUBLIN GA
+"TEMP","ECX4CHAR","557F")
+PROV F V07 557 DUBLIN GA
+"TEMP","ECX4CHAR","557G")
+PROV G V07 557 DUBLIN GA
+"TEMP","ECX4CHAR","557H")
+PROV H V07 557 DUBLIN GA
+"TEMP","ECX4CHAR","557I")
+PROV I V07 557 DUBLIN GA
+"TEMP","ECX4CHAR","557J")
+PROV J V07 557 DUBLIN GA
+"TEMP","ECX4CHAR","557K")
+PROV K V07 557 DUBLIN GA
+"TEMP","ECX4CHAR","558A")
+PROV A V06 558 DURHAM NC
+"TEMP","ECX4CHAR","558B")
+PROV B V06 558 DURHAM NC
+"TEMP","ECX4CHAR","558C")
+PROV C V06 558 DURHAM NC
+"TEMP","ECX4CHAR","558D")
+PROV D V06 558 DURHAM NC
+"TEMP","ECX4CHAR","558E")
+PROV E V06 558 DURHAM NC
+"TEMP","ECX4CHAR","558F")
+PROV F V06 558 DURHAM NC
+"TEMP","ECX4CHAR","558G")
+PROV G V06 558 DURHAM NC
+"TEMP","ECX4CHAR","558H")
+PROV H V06 558 DURHAM NC
+"TEMP","ECX4CHAR","558I")
+PROV I V06 558 DURHAM NC
+"TEMP","ECX4CHAR","558J")
+PROV J V06 558 DURHAM NC
+"TEMP","ECX4CHAR","558K")
+PROV K V06 558 DURHAM NC
+"TEMP","ECX4CHAR","561A")
+PROV A V03 561 NEW JERSEY HCS
+"TEMP","ECX4CHAR","561B")
+PROV B V03 561 NEW JERSEY HCS
+"TEMP","ECX4CHAR","561C")
+PROV C V03 561 NEW JERSEY HCS
+"TEMP","ECX4CHAR","561D")
+PROV D V03 561 NEW JERSEY HCS
+"TEMP","ECX4CHAR","561E")
+PROV E V03 561 NEW JERSEY HCS
+"TEMP","ECX4CHAR","561F")
+PROV F V03 561 NEW JERSEY HCS
+"TEMP","ECX4CHAR","561G")
+PROV G V03 561 NEW JERSEY HCS
+"TEMP","ECX4CHAR","561H")
+PROV H V03 561 NEW JERSEY HCS
+"TEMP","ECX4CHAR","561I")
+PROV I V03 561 NEW JERSEY HCS
+"TEMP","ECX4CHAR","561J")
+PROV J V03 561 NEW JERSEY HCS
+"TEMP","ECX4CHAR","561K")
+PROV K V03 561 NEW JERSEY HCS
+"TEMP","ECX4CHAR","562A")
+PROV A V04 562 ERIE PA
+"TEMP","ECX4CHAR","562B")
+PROV B V04 562 ERIE PA
+"TEMP","ECX4CHAR","562C")
+PROV C V04 562 ERIE PA
+"TEMP","ECX4CHAR","562D")
+PROV D V04 562 ERIE PA
+"TEMP","ECX4CHAR","562E")
+PROV E V04 562 ERIE PA
+"TEMP","ECX4CHAR","562F")
+PROV F V04 562 ERIE PA
+"TEMP","ECX4CHAR","562G")
+PROV G V04 562 ERIE PA
+"TEMP","ECX4CHAR","562H")
+PROV H V04 562 ERIE PA
+"TEMP","ECX4CHAR","562I")
+PROV I V04 562 ERIE PA
+"TEMP","ECX4CHAR","562J")
+PROV J V04 562 ERIE PA
+"TEMP","ECX4CHAR","562K")
+PROV K V04 562 ERIE PA
+"TEMP","ECX4CHAR","564A")
+PROV A V16 564 FAYETTEVILLE AR
+"TEMP","ECX4CHAR","564B")
+PROV B V16 564 FAYETTEVILLE AR
+"TEMP","ECX4CHAR","564C")
+PROV C V16 564 FAYETTEVILLE AR
+"TEMP","ECX4CHAR","564D")
+PROV D V16 564 FAYETTEVILLE AR
+"TEMP","ECX4CHAR","564E")
+PROV E V16 564 FAYETTEVILLE AR
+"TEMP","ECX4CHAR","564F")
+PROV F V16 564 FAYETTEVILLE AR
+"TEMP","ECX4CHAR","564G")
+PROV G V16 564 FAYETTEVILLE AR
+"TEMP","ECX4CHAR","564H")
+PROV H V16 564 FAYETTEVILLE AR
+"TEMP","ECX4CHAR","564I")
+PROV I V16 564 FAYETTEVILLE AR
+"TEMP","ECX4CHAR","564J")
+PROV J V16 564 FAYETTEVILLE AR
+"TEMP","ECX4CHAR","564K")
+PROV K V16 564 FAYETTEVILLE AR
+"TEMP","ECX4CHAR","565A")
+PROV A V06 565 FAYETTEVILL NC
+"TEMP","ECX4CHAR","565B")
+PROV B V06 565 FAYETTEVILL NC
+"TEMP","ECX4CHAR","565C")
+PROV C V06 565 FAYETTEVILL NC
+"TEMP","ECX4CHAR","565D")
+PROV D V06 565 FAYETTEVILL NC
+"TEMP","ECX4CHAR","565E")
+PROV E V06 565 FAYETTEVILL NC
+"TEMP","ECX4CHAR","565F")
+PROV F V06 565 FAYETTEVILL NC
+"TEMP","ECX4CHAR","565G")
+PROV G V06 565 FAYETTEVILL NC
+"TEMP","ECX4CHAR","565H")
+PROV H V06 565 FAYETTEVILL NC
+"TEMP","ECX4CHAR","565I")
+PROV I V06 565 FAYETTEVILL NC
+"TEMP","ECX4CHAR","565J")
+PROV J V06 565 FAYETTEVILL NC
+"TEMP","ECX4CHAR","565K")
+PROV K V06 565 FAYETTEVILL NC
+"TEMP","ECX4CHAR","568A")
+PROV A V23 568 BLACK HILLS HCS
+"TEMP","ECX4CHAR","568B")
+PROV B V23 568 BLACK HILLS HCS
+"TEMP","ECX4CHAR","568C")
+PROV C V23 568 BLACK HILLS HCS
+"TEMP","ECX4CHAR","568D")
+PROV D V23 568 BLACK HILLS HCS
+"TEMP","ECX4CHAR","568E")
+PROV E V23 568 BLACK HILLS HCS
+"TEMP","ECX4CHAR","568F")
+PROV F V23 568 BLACK HILLS HCS
+"TEMP","ECX4CHAR","568G")
+PROV G V23 568 BLACK HILLS HCS
+"TEMP","ECX4CHAR","568H")
+PROV H V23 568 BLACK HILLS HCS
+"TEMP","ECX4CHAR","568I")
+PROV I V23 568 BLACK HILLS HCS
+"TEMP","ECX4CHAR","568J")
+PROV J V23 568 BLACK HILLS HCS
+"TEMP","ECX4CHAR","568K")
+PROV K V23 568 BLACK HILLS HCS
+"TEMP","ECX4CHAR","570A")
+PROV A V21 570 FRESNO CA
+"TEMP","ECX4CHAR","570B")
+PROV B V21 570 FRESNO CA
+"TEMP","ECX4CHAR","570C")
+PROV C V21 570 FRESNO CA
+"TEMP","ECX4CHAR","570D")
+PROV D V21 570 FRESNO CA
+"TEMP","ECX4CHAR","570E")
+PROV E V21 570 FRESNO CA
+"TEMP","ECX4CHAR","570F")
+PROV F V21 570 FRESNO CA
+"TEMP","ECX4CHAR","570G")
+PROV G V21 570 FRESNO CA
+"TEMP","ECX4CHAR","570H")
+PROV H V21 570 FRESNO CA
+"TEMP","ECX4CHAR","570I")
+PROV I V21 570 FRESNO CA
+"TEMP","ECX4CHAR","570J")
+PROV J V21 570 FRESNO CA
+"TEMP","ECX4CHAR","570K")
+PROV K V21 570 FRESNO CA
+"TEMP","ECX4CHAR","573A")
+PROV A V08 573 N. FLA/S. GA HCS
+"TEMP","ECX4CHAR","573B")
+PROV B V08 573 N. FLA/S. GA HCS
+"TEMP","ECX4CHAR","573C")
+PROV C V08 573 N. FLA/S. GA HCS
+"TEMP","ECX4CHAR","573D")
+PROV D V08 573 N. FLA/S. GA HCS
+"TEMP","ECX4CHAR","573E")
+PROV E V08 573 N. FLA/S. GA HCS
+"TEMP","ECX4CHAR","573F")
+PROV F V08 573 N. FLA/S. GA HCS
+"TEMP","ECX4CHAR","573G")
+PROV G V08 573 N. FLA/S. GA HCS
+"TEMP","ECX4CHAR","573H")
+PROV H V08 573 N. FLA/S. GA HCS
+"TEMP","ECX4CHAR","573I")
+PROV I V08 573 N. FLA/S. GA HCS
+"TEMP","ECX4CHAR","573J")
+PROV J V08 573 N. FLA/S. GA HCS
+"TEMP","ECX4CHAR","573K")
+PROV K V08 573 N. FLA/S. GA HCS
+"TEMP","ECX4CHAR","573L")
+PROV L V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573M")
+PROV M V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573N")
+PROV N V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573O")
+PROV O V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573P")
+PROV P V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573Q")
+PROV Q V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573R")
+PROV R V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573S")
+PROV S V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573T")
+PROV T V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573U")
+PROV U V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573V")
+PROV V V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573W")
+PROV W V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573X")
+PROV X V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573Y")
+PROV Y V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","573Z")
+PROV Z V08 573 N.FLA/S.GA HCS
+"TEMP","ECX4CHAR","575A")
+PROV A V19 575 GRAND JUNCTION CO
+"TEMP","ECX4CHAR","575B")
+PROV B V19 575 GRAND JUNCTION CO
+"TEMP","ECX4CHAR","575C")
+PROV C V19 575 GRAND JUNCTION CO
+"TEMP","ECX4CHAR","575D")
+PROV D V19 575 GRAND JUNCTION CO
+"TEMP","ECX4CHAR","575E")
+PROV E V19 575 GRAND JUNCTION CO
+"TEMP","ECX4CHAR","575F")
+PROV F V19 575 GRAND JUNCTION CO
+"TEMP","ECX4CHAR","575G")
+PROV G V19 575 GRAND JUNCTION CO
+"TEMP","ECX4CHAR","575H")
+PROV H V19 575 GRAND JUNCTION CO
+"TEMP","ECX4CHAR","575I")
+PROV I V19 575 GRAND JUNCTION CO
+"TEMP","ECX4CHAR","575J")
+PROV J V19 575 GRAND JUNCTION CO
+"TEMP","ECX4CHAR","575K")
+PROV K V19 575 GRAND JUNCTION CO
+"TEMP","ECX4CHAR","578A")
+PROV A V12 578 HINES IL
+"TEMP","ECX4CHAR","578B")
+PROV B V12 578 HINES IL
+"TEMP","ECX4CHAR","578C")
+PROV C V12 578 HINES IL
+"TEMP","ECX4CHAR","578D")
+PROV D V12 578 HINES IL
+"TEMP","ECX4CHAR","578E")
+PROV E V12 578 HINES IL
+"TEMP","ECX4CHAR","578F")
+PROV F V12 578 HINES IL
+"TEMP","ECX4CHAR","578G")
+PROV G V12 578 HINES IL
+"TEMP","ECX4CHAR","578H")
+PROV H V12 578 HINES IL
+"TEMP","ECX4CHAR","578I")
+PROV I V12 578 HINES IL
+"TEMP","ECX4CHAR","578J")
+PROV J V12 578 HINES IL
+"TEMP","ECX4CHAR","578K")
+PROV K V12 578 HINES IL
+"TEMP","ECX4CHAR","580A")
+PROV A V16 580 HOUSTON TX
+"TEMP","ECX4CHAR","580B")
+PROV B V16 580 HOUSTON TX
+"TEMP","ECX4CHAR","580C")
+PROV C V16 580 HOUSTON TX
+"TEMP","ECX4CHAR","580D")
+PROV D V16 580 HOUSTON TX
+"TEMP","ECX4CHAR","580E")
+PROV E V16 580 HOUSTON TX
+"TEMP","ECX4CHAR","580F")
+PROV F V16 580 HOUSTON TX
+"TEMP","ECX4CHAR","580G")
+PROV G V16 580 HOUSTON TX
+"TEMP","ECX4CHAR","580H")
+PROV H V16 580 HOUSTON TX
+"TEMP","ECX4CHAR","580I")
+PROV I V16 580 HOUSTON TX
+"TEMP","ECX4CHAR","580J")
+PROV J V16 580 HOUSTON TX
+"TEMP","ECX4CHAR","580K")
+PROV K V16 580 HOUSTON TX
+"TEMP","ECX4CHAR","581A")
+PROV A V09 581 HUNTINGTON WV
+"TEMP","ECX4CHAR","581B")
+PROV B V09 581 HUNTINGTON WV
+"TEMP","ECX4CHAR","581C")
+PROV C V09 581 HUNTINGTON WV
+"TEMP","ECX4CHAR","581D")
+PROV D V09 581 HUNTINGTON WV
+"TEMP","ECX4CHAR","581E")
+PROV E V09 581 HUNTINGTON WV
+"TEMP","ECX4CHAR","581F")
+PROV F V09 581 HUNTINGTON WV
+"TEMP","ECX4CHAR","581G")
+PROV G V09 581 HUNTINGTON WV
+"TEMP","ECX4CHAR","581H")
+PROV H V09 581 HUNTINGTON WV
+"TEMP","ECX4CHAR","581I")
+PROV I V09 581 HUNTINGTON WV
+"TEMP","ECX4CHAR","581J")
+PROV J V09 581 HUNTINGTON WV
+"TEMP","ECX4CHAR","581K")
+PROV K V09 581 HUNTINGTON WV
+"TEMP","ECX4CHAR","583A")
+PROV A V11 583 INDIANAPOLIS IN
+"TEMP","ECX4CHAR","583B")
+PROV B V11 583 INDIANAPOLIS IN
+"TEMP","ECX4CHAR","583C")
+PROV C V11 583 INDIANAPOLIS IN
+"TEMP","ECX4CHAR","583D")
+PROV D V11 583 INDIANAPOLIS IN
+"TEMP","ECX4CHAR","583E")
+PROV E V11 583 INDIANAPOLIS IN
+"TEMP","ECX4CHAR","583F")
+PROV F V11 583 INDIANAPOLIS IN
+"TEMP","ECX4CHAR","583G")
+PROV G V11 583 INDIANAPOLIS IN
+"TEMP","ECX4CHAR","583H")
+PROV H V11 583 INDIANAPOLIS IN
+"TEMP","ECX4CHAR","583I")
+PROV I V11 583 INDIANAPOLIS IN
+"TEMP","ECX4CHAR","583J")
+PROV J V11 583 INDIANAPOLIS IN
+"TEMP","ECX4CHAR","583K")
+PROV K V11 583 INDIANAPOLIS IN
+"TEMP","ECX4CHAR","585A")
+PROV A V12 585 IRON MOUNTAIN MI
+"TEMP","ECX4CHAR","585B")
+PROV B V12 585 IRON MOUNTAIN MI
+"TEMP","ECX4CHAR","585C")
+PROV C V12 585 IRON MOUNTAIN MI
+"TEMP","ECX4CHAR","585D")
+PROV D V12 585 IRON MOUNTAIN MI
+"TEMP","ECX4CHAR","585E")
+PROV E V12 585 IRON MOUNTAIN MI
+"TEMP","ECX4CHAR","585F")
+PROV F V12 585 IRON MOUNTAIN MI
+"TEMP","ECX4CHAR","585G")
+PROV G V12 585 IRON MOUNTAIN MI
+"TEMP","ECX4CHAR","585H")
+PROV H V12 585 IRON MOUNTAIN MI
+"TEMP","ECX4CHAR","585I")
+PROV I V12 585 IRON MOUNTAIN MI
+"TEMP","ECX4CHAR","585J")
+PROV J V12 585 IRON MOUNTAIN MI
+"TEMP","ECX4CHAR","585K")
+PROV K V12 585 IRON MOUNTAIN MI
+"TEMP","ECX4CHAR","586A")
+PROV A V16 586 JACKSON MS
+"TEMP","ECX4CHAR","586B")
+PROV B V16 586 JACKSON MS
+"TEMP","ECX4CHAR","586C")
+PROV C V16 586 JACKSON MS
+"TEMP","ECX4CHAR","586D")
+PROV D V16 586 JACKSON MS
+"TEMP","ECX4CHAR","586E")
+PROV E V16 586 JACKSON MS
+"TEMP","ECX4CHAR","586F")
+PROV F V16 586 JACKSON MS
+"TEMP","ECX4CHAR","586G")
+PROV G V16 586 JACKSON MS
+"TEMP","ECX4CHAR","586H")
+PROV H V16 586 JACKSON MS
+"TEMP","ECX4CHAR","586I")
+PROV I V16 586 JACKSON MS
+"TEMP","ECX4CHAR","586J")
+PROV J V16 586 JACKSON MS
+"TEMP","ECX4CHAR","586K")
+PROV K V16 586 JACKSON MS
+"TEMP","ECX4CHAR","589A")
+PROV A V15 589 KANSAS CITY MO
+"TEMP","ECX4CHAR","589B")
+PROV B V15 589 KANSAS CITY MO
+"TEMP","ECX4CHAR","589C")
+PROV C V15 589 KANSAS CITY MO
+"TEMP","ECX4CHAR","589D")
+PROV D V15 589 KANSAS CITY MO
+"TEMP","ECX4CHAR","589E")
+PROV E V15 589 KANSAS CITY MO
+"TEMP","ECX4CHAR","589F")
+PROV F V15 589 KANSAS CITY MO
+"TEMP","ECX4CHAR","589G")
+PROV G V15 589 KANSAS CITY MO
+"TEMP","ECX4CHAR","589H")
+PROV H V15 589 KANSAS CITY MO
+"TEMP","ECX4CHAR","589I")
+PROV I V15 589 KANSAS CITY MO
+"TEMP","ECX4CHAR","589J")
+PROV J V15 589 KANSAS CITY MO
+"TEMP","ECX4CHAR","589K")
+PROV K V15 589 KANSAS CITY MO
+"TEMP","ECX4CHAR","590A")
+PROV A V06 590 HAMPTON VA
+"TEMP","ECX4CHAR","590B")
+PROV B V06 590 HAMPTON VA
+"TEMP","ECX4CHAR","590C")
+PROV C V06 590 HAMPTON VA
+"TEMP","ECX4CHAR","590D")
+PROV D V06 590 HAMPTON VA
+"TEMP","ECX4CHAR","590E")
+PROV E V06 590 HAMPTON VA
+"TEMP","ECX4CHAR","590F")
+PROV F V06 590 HAMPTON VA
+"TEMP","ECX4CHAR","590G")
+PROV G V06 590 HAMPTON VA
+"TEMP","ECX4CHAR","590H")
+PROV H V06 590 HAMPTON VA
+"TEMP","ECX4CHAR","590I")
+PROV I V06 590 HAMPTON VA
+"TEMP","ECX4CHAR","590J")
+PROV J V06 590 HAMPTON VA
+"TEMP","ECX4CHAR","590K")
+PROV K V06 590 HAMPTON VA
+"TEMP","ECX4CHAR","593A")
+PROV A V22 593 LAS VEGAS NV
+"TEMP","ECX4CHAR","593B")
+PROV B V22 593 LAS VEGAS NV
+"TEMP","ECX4CHAR","593C")
+PROV C V22 593 LAS VEGAS NV
+"TEMP","ECX4CHAR","593D")
+PROV D V22 593 LAS VEGAS NV
+"TEMP","ECX4CHAR","593E")
+PROV E V22 593 LAS VEGAS NV
+"TEMP","ECX4CHAR","593F")
+PROV F V22 593 LAS VEGAS NV
+"TEMP","ECX4CHAR","593G")
+PROV G V22 593 LAS VEGAS NV
+"TEMP","ECX4CHAR","593H")
+PROV H V22 593 LAS VEGAS NV
+"TEMP","ECX4CHAR","593I")
+PROV I V22 593 LAS VEGAS NV
+"TEMP","ECX4CHAR","593J")
+PROV J V22 593 LAS VEGAS NV
+"TEMP","ECX4CHAR","593K")
+PROV K V22 593 LAS VEGAS NV
+"TEMP","ECX4CHAR","595A")
+PROV A V04 595 LEBANON PA
+"TEMP","ECX4CHAR","595B")
+PROV B V04 595 LEBANON PA
+"TEMP","ECX4CHAR","595C")
+PROV C V04 595 LEBANON PA
+"TEMP","ECX4CHAR","595D")
+PROV D V04 595 LEBANON PA
+"TEMP","ECX4CHAR","595E")
+PROV E V04 595 LEBANON PA
+"TEMP","ECX4CHAR","595F")
+PROV F V04 595 LEBANON PA
+"TEMP","ECX4CHAR","595G")
+PROV G V04 595 LEBANON PA
+"TEMP","ECX4CHAR","595H")
+PROV H V04 595 LEBANON PA
+"TEMP","ECX4CHAR","595I")
+PROV I V04 595 LEBANON PA
+"TEMP","ECX4CHAR","595J")
+PROV J V04 595 LEBANON PA
+"TEMP","ECX4CHAR","595K")
+PROV K V04 595 LEBANON PA
+"TEMP","ECX4CHAR","596A")
+PROV A V09 596 LEXINGTON KY
+"TEMP","ECX4CHAR","596B")
+PROV B V09 596 LEXINGTON KY
+"TEMP","ECX4CHAR","596C")
+PROV C V09 596 LEXINGTON KY
+"TEMP","ECX4CHAR","596D")
+PROV D V09 596 LEXINGTON KY
+"TEMP","ECX4CHAR","596E")
+PROV E V09 596 LEXINGTON KY
+"TEMP","ECX4CHAR","596F")
+PROV F V09 596 LEXINGTON KY
+"TEMP","ECX4CHAR","596G")
+PROV G V09 596 LEXINGTON KY
+"TEMP","ECX4CHAR","596H")
+PROV H V09 596 LEXINGTON KY
+"TEMP","ECX4CHAR","596I")
+PROV I V09 596 LEXINGTON KY
+"TEMP","ECX4CHAR","596J")
+PROV J V09 596 LEXINGTON KY
+"TEMP","ECX4CHAR","596K")
+PROV K V09 596 LEXINGTON KY
+"TEMP","ECX4CHAR","598A")
+PROV A V16 598 CENTRAL ARKANSAS VHS
+"TEMP","ECX4CHAR","598B")
+PROV B V16 598 CENTRAL ARKANSAS VHS
+"TEMP","ECX4CHAR","598C")
+PROV C V16 598 CENTRAL ARKANSAS VHS
+"TEMP","ECX4CHAR","598D")
+PROV D V16 598 CENTRAL ARKANSAS VHS
+"TEMP","ECX4CHAR","598E")
+PROV E V16 598 CENTRAL ARKANSAS VHS
+"TEMP","ECX4CHAR","598F")
+PROV F V16 598 CENTRAL ARKANSAS VHS
+"TEMP","ECX4CHAR","598G")
+PROV G V16 598 CENTRAL ARKANSAS VHS
+"TEMP","ECX4CHAR","598H")
+PROV H V16 598 CENTRAL ARKANSAS VHS
+"TEMP","ECX4CHAR","598I")
+PROV I V16 598 CENTRAL ARKANSAS VHS
+"TEMP","ECX4CHAR","598J")
+PROV J V16 598 CENTRAL ARKANSAS VHS
+"TEMP","ECX4CHAR","598K")
+PROV K V16 598 CENTRAL ARKANSAS VHS
+"TEMP","ECX4CHAR","600A")
+PROV A V22 600 LONG BEACH CA
+"TEMP","ECX4CHAR","600B")
+PROV B V22 600 LONG BEACH CA
+"TEMP","ECX4CHAR","600C")
+PROV C V22 600 LONG BEACH CA
+"TEMP","ECX4CHAR","600D")
+PROV D V22 600 LONG BEACH CA
+"TEMP","ECX4CHAR","600E")
+PROV E V22 600 LONG BEACH CA
+"TEMP","ECX4CHAR","600F")
+PROV F V22 600 LONG BEACH CA
+"TEMP","ECX4CHAR","600G")
+PROV G V22 600 LONG BEACH CA
+"TEMP","ECX4CHAR","600H")
+PROV H V22 600 LONG BEACH CA
+"TEMP","ECX4CHAR","600I")
+PROV I V22 600 LONG BEACH CA
+"TEMP","ECX4CHAR","600J")
+PROV J V22 600 LONG BEACH CA
+"TEMP","ECX4CHAR","600K")
+PROV K V22 600 LONG BEACH CA
+"TEMP","ECX4CHAR","603A")
+PROV A V09 603 LOUISVILLE KY
+"TEMP","ECX4CHAR","603B")
+PROV B V09 603 LOUISVILLE KY
+"TEMP","ECX4CHAR","603C")
+PROV C V09 603 LOUISVILLE KY
+"TEMP","ECX4CHAR","603D")
+PROV D V09 603 LOUISVILLE KY
+"TEMP","ECX4CHAR","603E")
+PROV E V09 603 LOUISVILLE KY
+"TEMP","ECX4CHAR","603F")
+PROV F V09 603 LOUISVILLE KY
+"TEMP","ECX4CHAR","603G")
+PROV G V09 603 LOUISVILLE KY
+"TEMP","ECX4CHAR","603H")
+PROV H V09 603 LOUISVILLE KY
+"TEMP","ECX4CHAR","603I")
+PROV I V09 603 LOUISVILLE KY
+"TEMP","ECX4CHAR","603J")
+PROV J V09 603 LOUISVILLE KY
+"TEMP","ECX4CHAR","603K")
+PROV K V09 603 LOUISVILLE KY
+"TEMP","ECX4CHAR","605A")
+PROV A V22 605 LOMA LINDA CA
+"TEMP","ECX4CHAR","605B")
+PROV B V22 605 LOMA LINDA CA
+"TEMP","ECX4CHAR","605C")
+PROV C V22 605 LOMA LINDA CA
+"TEMP","ECX4CHAR","605D")
+PROV D V22 605 LOMA LINDA CA
+"TEMP","ECX4CHAR","605E")
+PROV E V22 605 LOMA LINDA CA
+"TEMP","ECX4CHAR","605F")
+PROV F V22 605 LOMA LINDA CA
+"TEMP","ECX4CHAR","605G")
+PROV G V22 605 LOMA LINDA CA
+"TEMP","ECX4CHAR","605H")
+PROV H V22 605 LOMA LINDA CA
+"TEMP","ECX4CHAR","605I")
+PROV I V22 605 LOMA LINDA CA
+"TEMP","ECX4CHAR","605J")
+PROV J V22 605 LOMA LINDA CA
+"TEMP","ECX4CHAR","605K")
+PROV K V22 605 LOMA LINDA CA
+"TEMP","ECX4CHAR","607A")
+PROV A V12 607 MADISON WI
+"TEMP","ECX4CHAR","607B")
+PROV B V12 607 MADISON WI
+"TEMP","ECX4CHAR","607C")
+PROV C V12 607 MADISON WI
+"TEMP","ECX4CHAR","607D")
+PROV D V12 607 MADISON WI
+"TEMP","ECX4CHAR","607E")
+PROV E V12 607 MADISON WI
+"TEMP","ECX4CHAR","607F")
+PROV F V12 607 MADISON WI
+"TEMP","ECX4CHAR","607G")
+PROV G V12 607 MADISON WI
+"TEMP","ECX4CHAR","607H")
+PROV H V12 607 MADISON WI
+"TEMP","ECX4CHAR","607I")
+PROV I V12 607 MADISON WI
+"TEMP","ECX4CHAR","607J")
+PROV J V12 607 MADISON WI
+"TEMP","ECX4CHAR","607K")
+PROV K V12 607 MADISON WI
+"TEMP","ECX4CHAR","608A")
+PROV A V01 608 MANCHESTER NH
+"TEMP","ECX4CHAR","608B")
+PROV B V01 608 MANCHESTER NH
+"TEMP","ECX4CHAR","608C")
+PROV C V01 608 MANCHESTER NH
+"TEMP","ECX4CHAR","608D")
+PROV D V01 608 MANCHESTER NH
+"TEMP","ECX4CHAR","608E")
+PROV E V01 608 MANCHESTER NH
+"TEMP","ECX4CHAR","608F")
+PROV F V01 608 MANCHESTER NH
+"TEMP","ECX4CHAR","608G")
+PROV G V01 608 MANCHESTER NH
+"TEMP","ECX4CHAR","608H")
+PROV H V01 608 MANCHESTER NH
+"TEMP","ECX4CHAR","608I")
+PROV I V01 608 MANCHESTER NH
+"TEMP","ECX4CHAR","608J")
+PROV J V01 608 MANCHESTER NH
+"TEMP","ECX4CHAR","608K")
+PROV K V01 608 MANCHESTER NH
+"TEMP","ECX4CHAR","610A")
+PROV A V11 610 NORTHERN INDIANA HCS
+"TEMP","ECX4CHAR","610B")
+PROV B V11 610 NORTHERN INDIANA HCS
+"TEMP","ECX4CHAR","610C")
+PROV C V11 610 NORTHERN INDIANA HCS
+"TEMP","ECX4CHAR","610D")
+PROV D V11 610 NORTHERN INDIANA HCS
+"TEMP","ECX4CHAR","610E")
+PROV E V11 610 NORTHERN INDIANA HCS
+"TEMP","ECX4CHAR","610F")
+PROV F V11 610 NORTHERN INDIANA HCS
+"TEMP","ECX4CHAR","610G")
+PROV G V11 610 NORTHERN INDIANA HCS
+"TEMP","ECX4CHAR","610H")
+PROV H V11 610 NORTHERN INDIANA HCS
+"TEMP","ECX4CHAR","610I")
+PROV I V11 610 NORTHERN INDIANA HCS
+"TEMP","ECX4CHAR","610J")
+PROV J V11 610 NORTHERN INDIANA HCS
+"TEMP","ECX4CHAR","610K")
+PROV K V11 610 NORTHERN INDIANA HCS
+"TEMP","ECX4CHAR","612A")
+PROV A V21 612 MARTINEZ CA
+"TEMP","ECX4CHAR","612B")
+PROV B V21 612 MARTINEZ CA
+"TEMP","ECX4CHAR","612C")
+PROV C V21 612 MARTINEZ CA
+"TEMP","ECX4CHAR","612D")
+PROV D V21 612 MARTINEZ CA
+"TEMP","ECX4CHAR","612E")
+PROV E V21 612 MARTINEZ CA
+"TEMP","ECX4CHAR","612F")
+PROV F V21 612 MARTINEZ CA
+"TEMP","ECX4CHAR","612G")
+PROV G V21 612 MARTINEZ CA
+"TEMP","ECX4CHAR","612H")
+PROV H V21 612 MARTINEZ CA
+"TEMP","ECX4CHAR","612I")
+PROV I V21 612 MARTINEZ CA
+"TEMP","ECX4CHAR","612J")
+PROV J V21 612 MARTINEZ CA
+"TEMP","ECX4CHAR","612K")
+PROV K V21 612 MARTINEZ CA
+"TEMP","ECX4CHAR","613A")
+PROV A V05 613 MARTINSBURG WV
+"TEMP","ECX4CHAR","613B")
+PROV B V05 613 MARTINSBURG WV
+"TEMP","ECX4CHAR","613C")
+PROV C V05 613 MARTINSBURG WV
+"TEMP","ECX4CHAR","613D")
+PROV D V05 613 MARTINSBURG WV
+"TEMP","ECX4CHAR","613E")
+PROV E V05 613 MARTINSBURG WV
+"TEMP","ECX4CHAR","613F")
+PROV F V05 613 MARTINSBURG WV
+"TEMP","ECX4CHAR","613G")
+PROV G V05 613 MARTINSBURG WV
+"TEMP","ECX4CHAR","613H")
+PROV H V05 613 MARTINSBURG WV
+"TEMP","ECX4CHAR","613I")
+PROV I V05 613 MARTINSBURG WV
+"TEMP","ECX4CHAR","613J")
+PROV J V05 613 MARTINSBURG WV
+"TEMP","ECX4CHAR","613K")
+PROV K V05 613 MARTINSBURG WV
+"TEMP","ECX4CHAR","614A")
+PROV A V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614B")
+PROV B V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614C")
+PROV C V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614D")
+PROV D V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614E")
+PROV E V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614F")
+PROV F V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614G")
+PROV G V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614H")
+PROV H V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614I")
+PROV I V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614J")
+PROV J V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614K")
+PROV K V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614L")
+PROV L V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614M")
+PROV M V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614N")
+PROV N V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614O")
+PROV O V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614P")
+PROV P V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614Q")
+PROV Q V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614R")
+PROV R V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614S")
+PROV S V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","614T")
+PROV T V09 614 MEMPHIS TN
+"TEMP","ECX4CHAR","618A")
+PROV A V23 618 MINNEAPOLIS MN
+"TEMP","ECX4CHAR","618B")
+PROV B V23 618 MINNEAPOLIS MN
+"TEMP","ECX4CHAR","618C")
+PROV C V23 618 MINNEAPOLIS MN
+"TEMP","ECX4CHAR","618D")
+PROV D V23 618 MINNEAPOLIS MN
+"TEMP","ECX4CHAR","618E")
+PROV E V23 618 MINNEAPOLIS MN
+"TEMP","ECX4CHAR","618F")
+PROV F V23 618 MINNEAPOLIS MN
+"TEMP","ECX4CHAR","618G")
+PROV G V23 618 MINNEAPOLIS MN
+"TEMP","ECX4CHAR","618H")
+PROV H V23 618 MINNEAPOLIS MN
+"TEMP","ECX4CHAR","618I")
+PROV I V23 618 MINNEAPOLIS MN
+"TEMP","ECX4CHAR","618J")
+PROV J V23 618 MINNEAPOLIS MN
+"TEMP","ECX4CHAR","618K")
+PROV K V23 618 MINNEAPOLIS MN
+"TEMP","ECX4CHAR","619A")
+PROV A V07 619 CENTRAL ALABAMA VA HCS
+"TEMP","ECX4CHAR","619B")
+PROV B V07 619 CENTRAL ALABAMA VA HCS
+"TEMP","ECX4CHAR","619C")
+PROV C V07 619 CENTRAL ALABAMA VA HCS
+"TEMP","ECX4CHAR","619D")
+PROV D V07 619 CENTRAL ALABAMA VA HCS
+"TEMP","ECX4CHAR","619E")
+PROV E V07 619 CENTRAL ALABAMA VA HCS
+"TEMP","ECX4CHAR","619F")
+PROV F V07 619 CENTRAL ALABAMA VA HCS
+"TEMP","ECX4CHAR","619G")
+PROV G V07 619 CENTRAL ALABAMA VA HCS
+"TEMP","ECX4CHAR","619H")
+PROV H V07 619 CENTRAL ALABAMA VA HCS
+"TEMP","ECX4CHAR","619I")
+PROV I V07 619 CENTRAL ALABAMA VA HCS
+"TEMP","ECX4CHAR","619J")
+PROV J V07 619 CENTRAL ALABAMA VA HCS
+"TEMP","ECX4CHAR","619K")
+PROV K V07 619 CENTRAL ALABAMA VA HCS
+"TEMP","ECX4CHAR","620A")
+PROV A V03 620 MONTROSE NY
+"TEMP","ECX4CHAR","620B")
+PROV B V03 620 MONTROSE NY
+"TEMP","ECX4CHAR","620C")
+PROV C V03 620 MONTROSE NY
+"TEMP","ECX4CHAR","620D")
+PROV D V03 620 MONTROSE NY
+"TEMP","ECX4CHAR","620E")
+PROV E V03 620 MONTROSE NY
+"TEMP","ECX4CHAR","620F")
+PROV F V03 620 MONTROSE NY
+"TEMP","ECX4CHAR","620G")
+PROV G V03 620 MONTROSE NY
+"TEMP","ECX4CHAR","620H")
+PROV H V03 620 MONTROSE NY
+"TEMP","ECX4CHAR","620I")
+PROV I V03 620 MONTROSE NY
+"TEMP","ECX4CHAR","620J")
+PROV J V03 620 MONTROSE NY
+"TEMP","ECX4CHAR","620K")
+PROV K V03 620 MONTROSE NY
+"TEMP","ECX4CHAR","621A")
+PROV A V09 621 MOUNTAIN HOME TN
+"TEMP","ECX4CHAR","621B")
+PROV B V09 621 MOUNTAIN HOME TN
+"TEMP","ECX4CHAR","621C")
+PROV C V09 621 MOUNTAIN HOME TN
+"TEMP","ECX4CHAR","621D")
+PROV D V09 621 MOUNTAIN HOME TN
+"TEMP","ECX4CHAR","621E")
+PROV E V09 621 MOUNTAIN HOME TN
+"TEMP","ECX4CHAR","621F")
+PROV F V09 621 MOUNTAIN HOME TN
+"TEMP","ECX4CHAR","621G")
+PROV G V09 621 MOUNTAIN HOME TN
+"TEMP","ECX4CHAR","621H")
+PROV H V09 621 MOUNTAIN HOME TN
+"TEMP","ECX4CHAR","621I")
+PROV I V09 621 MOUNTAIN HOME TN
+"TEMP","ECX4CHAR","621J")
+PROV J V09 621 MOUNTAIN HOME TN
+"TEMP","ECX4CHAR","621K")
+PROV K V09 621 MOUNTAIN HOME TN
+"TEMP","ECX4CHAR","623A")
+PROV A V16 623 MUSKOGEE OK
+"TEMP","ECX4CHAR","623B")
+PROV B V16 623 MUSKOGEE OK
+"TEMP","ECX4CHAR","623C")
+PROV C V16 623 MUSKOGEE OK
+"TEMP","ECX4CHAR","623D")
+PROV D V16 623 MUSKOGEE OK
+"TEMP","ECX4CHAR","623E")
+PROV E V16 623 MUSKOGEE OK
+"TEMP","ECX4CHAR","623F")
+PROV F V16 623 MUSKOGEE OK
+"TEMP","ECX4CHAR","623G")
+PROV G V16 623 MUSKOGEE OK
+"TEMP","ECX4CHAR","623H")
+PROV H V16 623 MUSKOGEE OK
+"TEMP","ECX4CHAR","623I")
+PROV I V16 623 MUSKOGEE OK
+"TEMP","ECX4CHAR","623J")
+PROV J V16 623 MUSKOGEE OK
+"TEMP","ECX4CHAR","623K")
+PROV K V16 623 MUSKOGEE OK
+"TEMP","ECX4CHAR","626A")
+PROV A V09 626 NASHVILLE TN
+"TEMP","ECX4CHAR","626B")
+PROV B V09 626 NASHVILLE TN
+"TEMP","ECX4CHAR","626C")
+PROV C V09 626 NASHVILLE TN
+"TEMP","ECX4CHAR","626D")
+PROV D V09 626 NASHVILLE TN
+"TEMP","ECX4CHAR","626E")
+PROV E V09 626 NASHVILLE TN
+"TEMP","ECX4CHAR","626F")
+PROV F V09 626 NASHVILLE TN
+"TEMP","ECX4CHAR","626G")
+PROV G V09 626 NASHVILLE TN
+"TEMP","ECX4CHAR","626H")
+PROV H V09 626 NASHVILLE TN
+"TEMP","ECX4CHAR","626I")
+PROV I V09 626 NASHVILLE TN
+"TEMP","ECX4CHAR","626J")
+PROV J V09 626 NASHVILLE TN
+"TEMP","ECX4CHAR","626K")
+PROV K V09 626 NASHVILLE TN
+"TEMP","ECX4CHAR","629A")
+PROV A V16 629 NEW ORLEANS LA
+"TEMP","ECX4CHAR","629B")
+PROV B V16 629 NEW ORLEANS LA
+"TEMP","ECX4CHAR","629C")
+PROV C V16 629 NEW ORLEANS LA
+"TEMP","ECX4CHAR","629D")
+PROV D V16 629 NEW ORLEANS LA
+"TEMP","ECX4CHAR","629E")
+PROV E V16 629 NEW ORLEANS LA
+"TEMP","ECX4CHAR","629F")
+PROV F V16 629 NEW ORLEANS LA
+"TEMP","ECX4CHAR","629G")
+PROV G V16 629 NEW ORLEANS LA
+"TEMP","ECX4CHAR","629H")
+PROV H V16 629 NEW ORLEANS LA
+"TEMP","ECX4CHAR","629I")
+PROV I V16 629 NEW ORLEANS LA
+"TEMP","ECX4CHAR","629J")
+PROV J V16 629 NEW ORLEANS LA
+"TEMP","ECX4CHAR","629K")
+PROV K V16 629 NEW ORLEANS LA
+"TEMP","ECX4CHAR","630A")
+PROV A V03 630 NEW YORK HARBOR HCS
+"TEMP","ECX4CHAR","630B")
+PROV B V03 630 NEW YORK HARBOR HCS
+"TEMP","ECX4CHAR","630C")
+PROV C V03 630 NEW YORK HARBOR HCS
+"TEMP","ECX4CHAR","630D")
+PROV D V03 630 NEW YORK HARBOR HCS
+"TEMP","ECX4CHAR","630E")
+PROV E V03 630 NEW YORK HARBOR HCS
+"TEMP","ECX4CHAR","630F")
+PROV F V03 630 NEW YORK HARBOR HCS
+"TEMP","ECX4CHAR","630G")
+PROV G V03 630 NEW YORK HARBOR HCS
+"TEMP","ECX4CHAR","630H")
+PROV H V03 630 NEW YORK HARBOR HCS
+"TEMP","ECX4CHAR","630I")
+PROV I V03 630 NEW YORK HARBOR HCS
+"TEMP","ECX4CHAR","630J")
+PROV J V03 630 NEW YORK HARBOR HCS
+"TEMP","ECX4CHAR","630K")
+PROV K V03 630 NEW YORK HARBOR HCS
+"TEMP","ECX4CHAR","631A")
+PROV A V01 631 NORTHAMPTON MA
+"TEMP","ECX4CHAR","631B")
+PROV B V01 631 NORTHAMPTON MA
+"TEMP","ECX4CHAR","631C")
+PROV C V01 631 NORTHAMPTON MA
+"TEMP","ECX4CHAR","631D")
+PROV D V01 631 NORTHAMPTON MA
+"TEMP","ECX4CHAR","631E")
+PROV E V01 631 NORTHAMPTON MA
+"TEMP","ECX4CHAR","631F")
+PROV F V01 631 NORTHAMPTON MA
+"TEMP","ECX4CHAR","631G")
+PROV G V01 631 NORTHAMPTON MA
+"TEMP","ECX4CHAR","631H")
+PROV H V01 631 NORTHAMPTON MA
+"TEMP","ECX4CHAR","631I")
+PROV I V01 631 NORTHAMPTON MA
+"TEMP","ECX4CHAR","631J")
+PROV J V01 631 NORTHAMPTON MA
+"TEMP","ECX4CHAR","631K")
+PROV K V01 631 NORTHAMPTON MA
+"TEMP","ECX4CHAR","632A")
+PROV A V03 632 NORTHPORT NY
+"TEMP","ECX4CHAR","632B")
+PROV B V03 632 NORTHPORT NY
+"TEMP","ECX4CHAR","632C")
+PROV C V03 632 NORTHPORT NY
+"TEMP","ECX4CHAR","632D")
+PROV D V03 632 NORTHPORT NY
+"TEMP","ECX4CHAR","632E")
+PROV E V03 632 NORTHPORT NY
+"TEMP","ECX4CHAR","632F")
+PROV F V03 632 NORTHPORT NY
+"TEMP","ECX4CHAR","632G")
+PROV G V03 632 NORTHPORT NY
+"TEMP","ECX4CHAR","632H")
+PROV H V03 632 NORTHPORT NY
+"TEMP","ECX4CHAR","632I")
+PROV I V03 632 NORTHPORT NY
+"TEMP","ECX4CHAR","632J")
+PROV J V03 632 NORTHPORT NY
+"TEMP","ECX4CHAR","632K")
+PROV K V03 632 NORTHPORT NY
+"TEMP","ECX4CHAR","635A")
+PROV A V16 635 OKLAHOMA CITY OK
+"TEMP","ECX4CHAR","635B")
+PROV B V16 635 OKLAHOMA CITY OK
+"TEMP","ECX4CHAR","635C")
+PROV C V16 635 OKLAHOMA CITY OK
+"TEMP","ECX4CHAR","635D")
+PROV D V16 635 OKLAHOMA CITY OK
+"TEMP","ECX4CHAR","635E")
+PROV E V16 635 OKLAHOMA CITY OK
+"TEMP","ECX4CHAR","635F")
+PROV F V16 635 OKLAHOMA CITY OK
+"TEMP","ECX4CHAR","635G")
+PROV G V16 635 OKLAHOMA CITY OK
+"TEMP","ECX4CHAR","635H")
+PROV H V16 635 OKLAHOMA CITY OK
+"TEMP","ECX4CHAR","635I")
+PROV I V16 635 OKLAHOMA CITY OK
+"TEMP","ECX4CHAR","635J")
+PROV J V16 635 OKLAHOMA CITY OK
+"TEMP","ECX4CHAR","635K")
+PROV K V16 635 OKLAHOMA CITY OK
+"TEMP","ECX4CHAR","636A")
+PROV A V23 636 OMAHA NE
+"TEMP","ECX4CHAR","636B")
+PROV B V23 636 OMAHA NE
+"TEMP","ECX4CHAR","636C")
+PROV C V23 636 OMAHA NE
+"TEMP","ECX4CHAR","636D")
+PROV D V23 636 OMAHA NE
+"TEMP","ECX4CHAR","636E")
+PROV E V23 636 OMAHA NE
+"TEMP","ECX4CHAR","636F")
+PROV F V23 636 OMAHA NE
+"TEMP","ECX4CHAR","636G")
+PROV G V23 636 OMAHA NE
+"TEMP","ECX4CHAR","636H")
+PROV H V23 636 OMAHA NE
+"TEMP","ECX4CHAR","636I")
+PROV I V23 636 OMAHA NE
+"TEMP","ECX4CHAR","636J")
+PROV J V23 636 OMAHA NE
+"TEMP","ECX4CHAR","636K")
+PROV K V23 636 OMAHA NE
+"TEMP","ECX4CHAR","637A")
+PROV A V06 637 ASHEVILLE NC
+"TEMP","ECX4CHAR","637B")
+PROV B V06 637 ASHEVILLE NC
+"TEMP","ECX4CHAR","637C")
+PROV C V06 637 ASHEVILLE NC
+"TEMP","ECX4CHAR","637D")
+PROV D V06 637 ASHEVILLE NC
+"TEMP","ECX4CHAR","637E")
+PROV E V06 637 ASHEVILLE NC
+"TEMP","ECX4CHAR","637F")
+PROV F V06 637 ASHEVILLE NC
+"TEMP","ECX4CHAR","637G")
+PROV G V06 637 ASHEVILLE NC
+"TEMP","ECX4CHAR","637H")
+PROV H V06 637 ASHEVILLE NC
+"TEMP","ECX4CHAR","637I")
+PROV I V06 637 ASHEVILLE NC
+"TEMP","ECX4CHAR","637J")
+PROV J V06 637 ASHEVILLE NC
+"TEMP","ECX4CHAR","637K")
+PROV K V06 637 ASHEVILLE NC
+"TEMP","ECX4CHAR","640A")
+PROV A V21 640 PALO ALTO HCS
+"TEMP","ECX4CHAR","640B")
+PROV B V21 640 PALO ALTO HCS
+"TEMP","ECX4CHAR","640C")
+PROV C V21 640 PALO ALTO HCS
+"TEMP","ECX4CHAR","640D")
+PROV D V21 640 PALO ALTO HCS
+"TEMP","ECX4CHAR","640E")
+PROV E V21 640 PALO ALTO HCS
+"TEMP","ECX4CHAR","640F")
+PROV F V21 640 PALO ALTO HCS
+"TEMP","ECX4CHAR","640G")
+PROV G V21 640 PALO ALTO HCS
+"TEMP","ECX4CHAR","640H")
+PROV H V21 640 PALO ALTO HCS
+"TEMP","ECX4CHAR","640I")
+PROV I V21 640 PALO ALTO HCS
+"TEMP","ECX4CHAR","640J")
+PROV J V21 640 PALO ALTO HCS
+"TEMP","ECX4CHAR","640K")
+PROV K V21 640 PALO ALTO HCS
+"TEMP","ECX4CHAR","642A")
+PROV A V04 642 PHILADELPHIA PA
+"TEMP","ECX4CHAR","642B")
+PROV B V04 642 PHILADELPHIA PA
+"TEMP","ECX4CHAR","642C")
+PROV C V04 642 PHILADELPHIA PA
+"TEMP","ECX4CHAR","642D")
+PROV D V04 642 PHILADELPHIA PA
+"TEMP","ECX4CHAR","642E")
+PROV E V04 642 PHILADELPHIA PA
+"TEMP","ECX4CHAR","642F")
+PROV F V04 642 PHILADELPHIA PA
+"TEMP","ECX4CHAR","642G")
+PROV G V04 642 PHILADELPHIA PA
+"TEMP","ECX4CHAR","642H")
+PROV H V04 642 PHILADELPHIA PA
+"TEMP","ECX4CHAR","642I")
+PROV I V04 642 PHILADELPHIA PA
+"TEMP","ECX4CHAR","642J")
+PROV J V04 642 PHILADELPHIA PA
+"TEMP","ECX4CHAR","642K")
+PROV K V04 642 PHILADELPHIA PA
+"TEMP","ECX4CHAR","644A")
+PROV A V18 644 PHOENIX AZ
+"TEMP","ECX4CHAR","644B")
+PROV B V18 644 PHOENIX AZ
+"TEMP","ECX4CHAR","644C")
+PROV C V18 644 PHOENIX AZ
+"TEMP","ECX4CHAR","644D")
+PROV D V18 644 PHOENIX AZ
+"TEMP","ECX4CHAR","644E")
+PROV E V18 644 PHOENIX AZ
+"TEMP","ECX4CHAR","644F")
+PROV F V18 644 PHOENIX AZ
+"TEMP","ECX4CHAR","644G")
+PROV G V18 644 PHOENIX AZ
+"TEMP","ECX4CHAR","644H")
+PROV H V18 644 PHOENIX AZ
+"TEMP","ECX4CHAR","644I")
+PROV I V18 644 PHOENIX AZ
+"TEMP","ECX4CHAR","644J")
+PROV J V18 644 PHOENIX AZ
+"TEMP","ECX4CHAR","644K")
+PROV K V18 644 PHOENIX AZ
+"TEMP","ECX4CHAR","646A")
+PROV A V04 646 PITTSBURGH HCS
+"TEMP","ECX4CHAR","646B")
+PROV B V04 646 PITTSBURGH HCS
+"TEMP","ECX4CHAR","646C")
+PROV C V04 646 PITTSBURGH HCS
+"TEMP","ECX4CHAR","646D")
+PROV D V04 646 PITTSBURGH HCS
+"TEMP","ECX4CHAR","646E")
+PROV E V04 646 PITTSBURGH HCS
+"TEMP","ECX4CHAR","646F")
+PROV F V04 646 PITTSBURGH HCS
+"TEMP","ECX4CHAR","646G")
+PROV G V04 646 PITTSBURGH HCS
+"TEMP","ECX4CHAR","646H")
+PROV H V04 646 PITTSBURGH HCS
+"TEMP","ECX4CHAR","646I")
+PROV I V04 646 PITTSBURGH HCS
+"TEMP","ECX4CHAR","646J")
+PROV J V04 646 PITTSBURGH HCS
+"TEMP","ECX4CHAR","646K")
+PROV K V04 646 PITTSBURGH HCS
+"TEMP","ECX4CHAR","648A")
+PROV A V20 648 PORTLAND OR
+"TEMP","ECX4CHAR","648B")
+PROV B V20 648 PORTLAND OR
+"TEMP","ECX4CHAR","648C")
+PROV C V20 648 PORTLAND OR
+"TEMP","ECX4CHAR","648D")
+PROV D V20 648 PORTLAND OR
+"TEMP","ECX4CHAR","648E")
+PROV E V20 648 PORTLAND OR
+"TEMP","ECX4CHAR","648F")
+PROV F V20 648 PORTLAND OR
+"TEMP","ECX4CHAR","648G")
+PROV G V20 648 PORTLAND OR
+"TEMP","ECX4CHAR","648H")
+PROV H V20 648 PORTLAND OR
+"TEMP","ECX4CHAR","648I")
+PROV I V20 648 PORTLAND OR
+"TEMP","ECX4CHAR","648J")
+PROV J V20 648 PORTLAND OR
+"TEMP","ECX4CHAR","648K")
+PROV K V20 648 PORTLAND OR
+"TEMP","ECX4CHAR","649A")
+PROV A V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649B")
+PROV B V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649C")
+PROV C V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649D")
+PROV D V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649E")
+PROV E V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649F")
+PROV F V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649G")
+PROV G V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649H")
+PROV H V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649I")
+PROV I V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649J")
+PROV J V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649K")
+PROV K V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649L")
+PROV L V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649M")
+PROV M V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649N")
+PROV N V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649O")
+PROV O V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649P")
+PROV P V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649Q")
+PROV Q V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649R")
+PROV R V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649S")
+PROV S V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649T")
+PROV T V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649U")
+PROV U V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649V")
+PROV V V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649W")
+PROV W V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649X")
+PROV X V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649Y")
+PROV Y V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","649Z")
+PROV Z V18 649 PRESCOTT AZ
+"TEMP","ECX4CHAR","650A")
+PROV A V01 650 PROVIDENCE RI
+"TEMP","ECX4CHAR","650B")
+PROV B V01 650 PROVIDENCE RI
+"TEMP","ECX4CHAR","650C")
+PROV C V01 650 PROVIDENCE RI
+"TEMP","ECX4CHAR","650D")
+PROV D V01 650 PROVIDENCE RI
+"TEMP","ECX4CHAR","650E")
+PROV E V01 650 PROVIDENCE RI
+"TEMP","ECX4CHAR","650F")
+PROV F V01 650 PROVIDENCE RI
+"TEMP","ECX4CHAR","650G")
+PROV G V01 650 PROVIDENCE RI
+"TEMP","ECX4CHAR","650H")
+PROV H V01 650 PROVIDENCE RI
+"TEMP","ECX4CHAR","650I")
+PROV I V01 650 PROVIDENCE RI
+"TEMP","ECX4CHAR","650J")
+PROV J V01 650 PROVIDENCE RI
+"TEMP","ECX4CHAR","650K")
+PROV K V01 650 PROVIDENCE RI
+"TEMP","ECX4CHAR","652A")
+PROV A V06 652 RICHMOND VA
+"TEMP","ECX4CHAR","652B")
+PROV B V06 652 RICHMOND VA
+"TEMP","ECX4CHAR","652C")
+PROV C V06 652 RICHMOND VA
+"TEMP","ECX4CHAR","652D")
+PROV D V06 652 RICHMOND VA
+"TEMP","ECX4CHAR","652E")
+PROV E V06 652 RICHMOND VA
+"TEMP","ECX4CHAR","652F")
+PROV F V06 652 RICHMOND VA
+"TEMP","ECX4CHAR","652G")
+PROV G V06 652 RICHMOND VA
+"TEMP","ECX4CHAR","652H")
+PROV H V06 652 RICHMOND VA
+"TEMP","ECX4CHAR","652I")
+PROV I V06 652 RICHMOND VA
+"TEMP","ECX4CHAR","652J")
+PROV J V06 652 RICHMOND VA
+"TEMP","ECX4CHAR","652K")
+PROV K V06 652 RICHMOND VA
+"TEMP","ECX4CHAR","653A")
+PROV A V20 653 VA ROSEBURG HCS
+"TEMP","ECX4CHAR","653B")
+PROV B V20 653 VA ROSEBURG HCS
+"TEMP","ECX4CHAR","653C")
+PROV C V20 653 VA ROSEBURG HCS
+"TEMP","ECX4CHAR","653D")
+PROV D V20 653 VA ROSEBURG HCS
+"TEMP","ECX4CHAR","653E")
+PROV E V20 653 VA ROSEBURG HCS
+"TEMP","ECX4CHAR","653F")
+PROV F V20 653 VA ROSEBURG HCS
+"TEMP","ECX4CHAR","653G")
+PROV G V20 653 VA ROSEBURG HCS
+"TEMP","ECX4CHAR","653H")
+PROV H V20 653 VA ROSEBURG HCS
+"TEMP","ECX4CHAR","653I")
+PROV I V20 653 VA ROSEBURG HCS
+"TEMP","ECX4CHAR","653J")
+PROV J V20 653 VA ROSEBURG HCS
+"TEMP","ECX4CHAR","653K")
+PROV K V20 653 VA ROSEBURG HCS
+"TEMP","ECX4CHAR","654A")
+PROV A V21 654 RENO NV
+"TEMP","ECX4CHAR","654B")
+PROV B V21 654 RENO NV
+"TEMP","ECX4CHAR","654C")
+PROV C V21 654 RENO NV
+"TEMP","ECX4CHAR","654D")
+PROV D V21 654 RENO NV
+"TEMP","ECX4CHAR","654E")
+PROV E V21 654 RENO NV
+"TEMP","ECX4CHAR","654F")
+PROV F V21 654 RENO NV
+"TEMP","ECX4CHAR","654G")
+PROV G V21 654 RENO NV
+"TEMP","ECX4CHAR","654H")
+PROV H V21 654 RENO NV
+"TEMP","ECX4CHAR","654I")
+PROV I V21 654 RENO NV
+"TEMP","ECX4CHAR","654J")
+PROV J V21 654 RENO NV
+"TEMP","ECX4CHAR","654K")
+PROV K V21 654 RENO NV
+"TEMP","ECX4CHAR","655A")
+PROV A V11 655 SAGINAW MI
+"TEMP","ECX4CHAR","655B")
+PROV B V11 655 SAGINAW MI
+"TEMP","ECX4CHAR","655C")
+PROV C V11 655 SAGINAW MI
+"TEMP","ECX4CHAR","655D")
+PROV D V11 655 SAGINAW MI
+"TEMP","ECX4CHAR","655E")
+PROV E V11 655 SAGINAW MI
+"TEMP","ECX4CHAR","655F")
+PROV F V11 655 SAGINAW MI
+"TEMP","ECX4CHAR","655G")
+PROV G V11 655 SAGINAW MI
+"TEMP","ECX4CHAR","655H")
+PROV H V11 655 SAGINAW MI
+"TEMP","ECX4CHAR","655I")
+PROV I V11 655 SAGINAW MI
+"TEMP","ECX4CHAR","655J")
+PROV J V11 655 SAGINAW MI
+"TEMP","ECX4CHAR","655K")
+PROV K V11 655 SAGINAW MI
+"TEMP","ECX4CHAR","656A")
+PROV A V23 656 ST. CLOUD MN
+"TEMP","ECX4CHAR","656B")
+PROV B V23 656 ST. CLOUD MN
+"TEMP","ECX4CHAR","656C")
+PROV C V23 656 ST. CLOUD MN
+"TEMP","ECX4CHAR","656D")
+PROV D V23 656 ST. CLOUD MN
+"TEMP","ECX4CHAR","656E")
+PROV E V23 656 ST. CLOUD MN
+"TEMP","ECX4CHAR","656F")
+PROV F V23 656 ST. CLOUD MN
+"TEMP","ECX4CHAR","656G")
+PROV G V23 656 ST. CLOUD MN
+"TEMP","ECX4CHAR","656H")
+PROV H V23 656 ST. CLOUD MN
+"TEMP","ECX4CHAR","656I")
+PROV I V23 656 ST. CLOUD MN
+"TEMP","ECX4CHAR","656J")
+PROV J V23 656 ST. CLOUD MN
+"TEMP","ECX4CHAR","656K")
+PROV K V23 656 ST. CLOUD MN
+"TEMP","ECX4CHAR","657A")
+PROV A V15 657 ST. LOUIS MO
+"TEMP","ECX4CHAR","657B")
+PROV B V15 657 ST. LOUIS MO
+"TEMP","ECX4CHAR","657C")
+PROV C V15 657 ST. LOUIS MO
+"TEMP","ECX4CHAR","657D")
+PROV D V15 657 ST. LOUIS MO
+"TEMP","ECX4CHAR","657E")
+PROV E V15 657 ST. LOUIS MO
+"TEMP","ECX4CHAR","657F")
+PROV F V15 657 ST. LOUIS MO
+"TEMP","ECX4CHAR","657G")
+PROV G V15 657 ST. LOUIS MO
+"TEMP","ECX4CHAR","657H")
+PROV H V15 657 ST. LOUIS MO
+"TEMP","ECX4CHAR","657I")
+PROV I V15 657 ST. LOUIS MO
+"TEMP","ECX4CHAR","657J")
+PROV J V15 657 ST. LOUIS MO
+"TEMP","ECX4CHAR","657K")
+PROV K V15 657 ST. LOUIS MO
+"TEMP","ECX4CHAR","658A")
+PROV A V06 658 SALEM VA
+"TEMP","ECX4CHAR","658B")
+PROV B V06 658 SALEM VA
+"TEMP","ECX4CHAR","658C")
+PROV C V06 658 SALEM VA
+"TEMP","ECX4CHAR","658D")
+PROV D V06 658 SALEM VA
+"TEMP","ECX4CHAR","658E")
+PROV E V06 658 SALEM VA
+"TEMP","ECX4CHAR","658F")
+PROV F V06 658 SALEM VA
+"TEMP","ECX4CHAR","658G")
+PROV G V06 658 SALEM VA
+"TEMP","ECX4CHAR","658H")
+PROV H V06 658 SALEM VA
+"TEMP","ECX4CHAR","658I")
+PROV I V06 658 SALEM VA
+"TEMP","ECX4CHAR","658J")
+PROV J V06 658 SALEM VA
+"TEMP","ECX4CHAR","658K")
+PROV K V06 658 SALEM VA
+"TEMP","ECX4CHAR","659A")
+PROV A V06 659 SALISBURY NC
+"TEMP","ECX4CHAR","659B")
+PROV B V06 659 SALISBURY NC
+"TEMP","ECX4CHAR","659C")
+PROV C V06 659 SALISBURY NC
+"TEMP","ECX4CHAR","659D")
+PROV D V06 659 SALISBURY NC
+"TEMP","ECX4CHAR","659E")
+PROV E V06 659 SALISBURY NC
+"TEMP","ECX4CHAR","659F")
+PROV F V06 659 SALISBURY NC
+"TEMP","ECX4CHAR","659G")
+PROV G V06 659 SALISBURY NC
+"TEMP","ECX4CHAR","659H")
+PROV H V06 659 SALISBURY NC
+"TEMP","ECX4CHAR","659I")
+PROV I V06 659 SALISBURY NC
+"TEMP","ECX4CHAR","659J")
+PROV J V06 659 SALISBURY NC
+"TEMP","ECX4CHAR","659K")
+PROV K V06 659 SALISBURY NC
+"TEMP","ECX4CHAR","660A")
+PROV A V19 660 SALT LAKE CITY UT
+"TEMP","ECX4CHAR","660B")
+PROV B V19 660 SALT LAKE CITY UT
+"TEMP","ECX4CHAR","660C")
+PROV C V19 660 SALT LAKE CITY UT
+"TEMP","ECX4CHAR","660D")
+PROV D V19 660 SALT LAKE CITY UT
+"TEMP","ECX4CHAR","660E")
+PROV E V19 660 SALT LAKE CITY UT
+"TEMP","ECX4CHAR","660F")
+PROV F V19 660 SALT LAKE CITY UT
+"TEMP","ECX4CHAR","660G")
+PROV G V19 660 SALT LAKE CITY UT
+"TEMP","ECX4CHAR","660H")
+PROV H V19 660 SALT LAKE CITY UT
+"TEMP","ECX4CHAR","660I")
+PROV I V19 660 SALT LAKE CITY UT
+"TEMP","ECX4CHAR","660J")
+PROV J V19 660 SALT LAKE CITY UT
+"TEMP","ECX4CHAR","660K")
+PROV K V19 660 SALT LAKE CITY UT
+"TEMP","ECX4CHAR","662A")
+PROV A V21 662 SAN FRANCISCO CA
+"TEMP","ECX4CHAR","662B")
+PROV B V21 662 SAN FRANCISCO CA
+"TEMP","ECX4CHAR","662C")
+PROV C V21 662 SAN FRANCISCO CA
+"TEMP","ECX4CHAR","662D")
+PROV D V21 662 SAN FRANCISCO CA
+"TEMP","ECX4CHAR","662E")
+PROV E V21 662 SAN FRANCISCO CA
+"TEMP","ECX4CHAR","662F")
+PROV F V21 662 SAN FRANCISCO CA
+"TEMP","ECX4CHAR","662G")
+PROV G V21 662 SAN FRANCISCO CA
+"TEMP","ECX4CHAR","662H")
+PROV H V21 662 SAN FRANCISCO CA
+"TEMP","ECX4CHAR","662I")
+PROV I V21 662 SAN FRANCISCO CA
+"TEMP","ECX4CHAR","662J")
+PROV J V21 662 SAN FRANCISCO CA
+"TEMP","ECX4CHAR","662K")
+PROV K V21 662 SAN FRANCISCO CA
+"TEMP","ECX4CHAR","663A")
+PROV A V20 663 PUGET SOUND HCS
+"TEMP","ECX4CHAR","663B")
+PROV B V20 663 PUGET SOUND HCS
+"TEMP","ECX4CHAR","663C")
+PROV C V20 663 PUGET SOUND HCS
+"TEMP","ECX4CHAR","663D")
+PROV D V20 663 PUGET SOUND HCS
+"TEMP","ECX4CHAR","663E")
+PROV E V20 663 PUGET SOUND HCS
+"TEMP","ECX4CHAR","663F")
+PROV F V20 663 PUGET SOUND HCS
+"TEMP","ECX4CHAR","663G")
+PROV G V20 663 PUGET SOUND HCS
+"TEMP","ECX4CHAR","663H")
+PROV H V20 663 PUGET SOUND HCS
+"TEMP","ECX4CHAR","663I")
+PROV I V20 663 PUGET SOUND HCS
+"TEMP","ECX4CHAR","663J")
+PROV J V20 663 PUGET SOUND HCS
+"TEMP","ECX4CHAR","663K")
+PROV K V20 663 PUGET SOUND HCS
+"TEMP","ECX4CHAR","664A")
+PROV A V22 664 SAN DIEGO CA
+"TEMP","ECX4CHAR","664B")
+PROV B V22 664 SAN DIEGO CA
+"TEMP","ECX4CHAR","664C")
+PROV C V22 664 SAN DIEGO CA
+"TEMP","ECX4CHAR","664D")
+PROV D V22 664 SAN DIEGO CA
+"TEMP","ECX4CHAR","664E")
+PROV E V22 664 SAN DIEGO CA
+"TEMP","ECX4CHAR","664F")
+PROV F V22 664 SAN DIEGO CA
+"TEMP","ECX4CHAR","664G")
+PROV G V22 664 SAN DIEGO CA
+"TEMP","ECX4CHAR","664H")
+PROV H V22 664 SAN DIEGO CA
+"TEMP","ECX4CHAR","664I")
+PROV I V22 664 SAN DIEGO CA
+"TEMP","ECX4CHAR","664J")
+PROV J V22 664 SAN DIEGO CA
+"TEMP","ECX4CHAR","664K")
+PROV K V22 664 SAN DIEGO CA
+"TEMP","ECX4CHAR","666A")
+PROV A V19 666 SHERIDAN WY
+"TEMP","ECX4CHAR","666B")
+PROV B V19 666 SHERIDAN WY
+"TEMP","ECX4CHAR","666C")
+PROV C V19 666 SHERIDAN WY
+"TEMP","ECX4CHAR","666D")
+PROV D V19 666 SHERIDAN WY
+"TEMP","ECX4CHAR","666E")
+PROV E V19 666 SHERIDAN WY
+"TEMP","ECX4CHAR","666F")
+PROV F V19 666 SHERIDAN WY
+"TEMP","ECX4CHAR","666G")
+PROV G V19 666 SHERIDAN WY
+"TEMP","ECX4CHAR","666H")
+PROV H V19 666 SHERIDAN WY
+"TEMP","ECX4CHAR","666I")
+PROV I V19 666 SHERIDAN WY
+"TEMP","ECX4CHAR","666J")
+PROV J V19 666 SHERIDAN WY
+"TEMP","ECX4CHAR","666K")
+PROV K V19 666 SHERIDAN WY
+"TEMP","ECX4CHAR","667A")
+PROV A V16 667 SHREVEPORT LA
+"TEMP","ECX4CHAR","667B")
+PROV B V16 667 SHREVEPORT LA
+"TEMP","ECX4CHAR","667C")
+PROV C V16 667 SHREVEPORT LA
+"TEMP","ECX4CHAR","667D")
+PROV D V16 667 SHREVEPORT LA
+"TEMP","ECX4CHAR","667E")
+PROV E V16 667 SHREVEPORT LA
+"TEMP","ECX4CHAR","667F")
+PROV F V16 667 SHREVEPORT LA
+"TEMP","ECX4CHAR","667G")
+PROV G V16 667 SHREVEPORT LA
+"TEMP","ECX4CHAR","667H")
+PROV H V16 667 SHREVEPORT LA
+"TEMP","ECX4CHAR","667I")
+PROV I V16 667 SHREVEPORT LA
+"TEMP","ECX4CHAR","667J")
+PROV J V16 667 SHREVEPORT LA
+"TEMP","ECX4CHAR","667K")
+PROV K V16 667 SHREVEPORT LA
+"TEMP","ECX4CHAR","668A")
+PROV A V20 668 SPOKANE WA
+"TEMP","ECX4CHAR","668B")
+PROV B V20 668 SPOKANE WA
+"TEMP","ECX4CHAR","668C")
+PROV C V20 668 SPOKANE WA
+"TEMP","ECX4CHAR","668D")
+PROV D V20 668 SPOKANE WA
+"TEMP","ECX4CHAR","668E")
+PROV E V20 668 SPOKANE WA
+"TEMP","ECX4CHAR","668F")
+PROV F V20 668 SPOKANE WA
+"TEMP","ECX4CHAR","668G")
+PROV G V20 668 SPOKANE WA
+"TEMP","ECX4CHAR","668H")
+PROV H V20 668 SPOKANE WA
+"TEMP","ECX4CHAR","668I")
+PROV I V20 668 SPOKANE WA
+"TEMP","ECX4CHAR","668J")
+PROV J V20 668 SPOKANE WA
+"TEMP","ECX4CHAR","668K")
+PROV K V20 668 SPOKANE WA
+"TEMP","ECX4CHAR","671A")
+PROV A V17 671 SOUTH TEXAS VETERANS
+"TEMP","ECX4CHAR","671B")
+PROV B V17 671 SOUTH TEXAS VETERANS
+"TEMP","ECX4CHAR","671C")
+PROV C V17 671 SOUTH TEXAS VETERANS
+"TEMP","ECX4CHAR","671D")
+PROV D V17 671 SOUTH TEXAS VETERANS
+"TEMP","ECX4CHAR","671E")
+PROV E V17 671 SOUTH TEXAS VETERANS
+"TEMP","ECX4CHAR","671F")
+PROV F V17 671 SOUTH TEXAS VETERANS
+"TEMP","ECX4CHAR","671G")
+PROV G V17 671 SOUTH TEXAS VETERANS
+"TEMP","ECX4CHAR","671H")
+PROV H V17 671 SOUTH TEXAS VETERANS
+"TEMP","ECX4CHAR","671I")
+PROV I V17 671 SOUTH TEXAS VETERANS
+"TEMP","ECX4CHAR","671J")
+PROV J V17 671 SOUTH TEXAS VETERANS
+"TEMP","ECX4CHAR","671K")
+PROV K V17 671 SOUTH TEXAS VETERANS
+"TEMP","ECX4CHAR","672A")
+PROV A V08 672 SAN JUAN PR
+"TEMP","ECX4CHAR","672B")
+PROV B V08 672 SAN JUAN PR
+"TEMP","ECX4CHAR","672C")
+PROV C V08 672 SAN JUAN PR
+"TEMP","ECX4CHAR","672D")
+PROV D V08 672 SAN JUAN PR
+"TEMP","ECX4CHAR","672E")
+PROV E V08 672 SAN JUAN PR
+"TEMP","ECX4CHAR","672F")
+PROV F V08 672 SAN JUAN PR
+"TEMP","ECX4CHAR","672G")
+PROV G V08 672 SAN JUAN PR
+"TEMP","ECX4CHAR","672H")
+PROV H V08 672 SAN JUAN PR
+"TEMP","ECX4CHAR","672I")
+PROV I V08 672 SAN JUAN PR
+"TEMP","ECX4CHAR","672J")
+PROV J V08 672 SAN JUAN PR
+"TEMP","ECX4CHAR","672K")
+PROV K V08 672 SAN JUAN PR
+"TEMP","ECX4CHAR","673A")
+PROV A V08 673 TAMPA FL
+"TEMP","ECX4CHAR","673B")
+PROV B V08 673 TAMPA FL
+"TEMP","ECX4CHAR","673C")
+PROV C V08 673 TAMPA FL
+"TEMP","ECX4CHAR","673D")
+PROV D V08 673 TAMPA FL
+"TEMP","ECX4CHAR","673E")
+PROV E V08 673 TAMPA FL
+"TEMP","ECX4CHAR","673F")
+PROV F V08 673 TAMPA FL
+"TEMP","ECX4CHAR","673G")
+PROV G V08 673 TAMPA FL
+"TEMP","ECX4CHAR","673H")
+PROV H V08 673 TAMPA FL
+"TEMP","ECX4CHAR","673I")
+PROV I V08 673 TAMPA FL
+"TEMP","ECX4CHAR","673J")
+PROV J V08 673 TAMPA FL
+"TEMP","ECX4CHAR","673K")
+PROV K V08 673 TAMPA FL
+"TEMP","ECX4CHAR","674A")
+PROV A V17 674 CENTRAL TEXAS HCS
+"TEMP","ECX4CHAR","674B")
+PROV B V17 674 CENTRAL TEXAS HCS
+"TEMP","ECX4CHAR","674C")
+PROV C V17 674 CENTRAL TEXAS HCS
+"TEMP","ECX4CHAR","674D")
+PROV D V17 674 CENTRAL TEXAS HCS
+"TEMP","ECX4CHAR","674E")
+PROV E V17 674 CENTRAL TEXAS HCS
+"TEMP","ECX4CHAR","674F")
+PROV F V17 674 CENTRAL TEXAS HCS
+"TEMP","ECX4CHAR","674G")
+PROV G V17 674 CENTRAL TEXAS HCS
+"TEMP","ECX4CHAR","674H")
+PROV H V17 674 CENTRAL TEXAS HCS
+"TEMP","ECX4CHAR","674I")
+PROV I V17 674 CENTRAL TEXAS HCS
+"TEMP","ECX4CHAR","674J")
+PROV J V17 674 CENTRAL TEXAS HCS
+"TEMP","ECX4CHAR","674K")
+PROV K V17 674 CENTRAL TEXAS HCS
+"TEMP","ECX4CHAR","676A")
+PROV A V12 676 TOMAH WI
+"TEMP","ECX4CHAR","676B")
+PROV B V12 676 TOMAH WI
+"TEMP","ECX4CHAR","676C")
+PROV C V12 676 TOMAH WI
+"TEMP","ECX4CHAR","676D")
+PROV D V12 676 TOMAH WI
+"TEMP","ECX4CHAR","676E")
+PROV E V12 676 TOMAH WI
+"TEMP","ECX4CHAR","676F")
+PROV F V12 676 TOMAH WI
+"TEMP","ECX4CHAR","676G")
+PROV G V12 676 TOMAH WI
+"TEMP","ECX4CHAR","676H")
+PROV H V12 676 TOMAH WI
+"TEMP","ECX4CHAR","676I")
+PROV I V12 676 TOMAH WI
+"TEMP","ECX4CHAR","676J")
+PROV J V12 676 TOMAH WI
+"TEMP","ECX4CHAR","676K")
+PROV K V12 676 TOMAH WI
+"TEMP","ECX4CHAR","678A")
+PROV A V18 678 TUCSON AZ
+"TEMP","ECX4CHAR","678B")
+PROV B V18 678 TUCSON AZ
+"TEMP","ECX4CHAR","678C")
+PROV C V18 678 TUCSON AZ
+"TEMP","ECX4CHAR","678D")
+PROV D V18 678 TUCSON AZ
+"TEMP","ECX4CHAR","678E")
+PROV E V18 678 TUCSON AZ
+"TEMP","ECX4CHAR","678F")
+PROV F V18 678 TUCSON AZ
+"TEMP","ECX4CHAR","678G")
+PROV G V18 678 TUCSON AZ
+"TEMP","ECX4CHAR","678H")
+PROV H V18 678 TUCSON AZ
+"TEMP","ECX4CHAR","678I")
+PROV I V18 678 TUCSON AZ
+"TEMP","ECX4CHAR","678J")
+PROV J V18 678 TUCSON AZ
+"TEMP","ECX4CHAR","678K")
+PROV K V18 678 TUCSON AZ
+"TEMP","ECX4CHAR","679A")
+PROV A V07 679 TUSCALOOSA AL
+"TEMP","ECX4CHAR","679B")
+PROV B V07 679 TUSCALOOSA AL
+"TEMP","ECX4CHAR","679C")
+PROV C V07 679 TUSCALOOSA AL
+"TEMP","ECX4CHAR","679D")
+PROV D V07 679 TUSCALOOSA AL
+"TEMP","ECX4CHAR","679E")
+PROV E V07 679 TUSCALOOSA AL
+"TEMP","ECX4CHAR","679F")
+PROV F V07 679 TUSCALOOSA AL
+"TEMP","ECX4CHAR","679G")
+PROV G V07 679 TUSCALOOSA AL
+"TEMP","ECX4CHAR","679H")
+PROV H V07 679 TUSCALOOSA AL
+"TEMP","ECX4CHAR","679I")
+PROV I V07 679 TUSCALOOSA AL
+"TEMP","ECX4CHAR","679J")
+PROV J V07 679 TUSCALOOSA AL
+"TEMP","ECX4CHAR","679K")
+PROV K V07 679 TUSCALOOSA AL
+"TEMP","ECX4CHAR","687A")
+PROV A V20 687 WALLA WALLA WA
+"TEMP","ECX4CHAR","687B")
+PROV B V20 687 WALLA WALLA WA
+"TEMP","ECX4CHAR","687C")
+PROV C V20 687 WALLA WALLA WA
+"TEMP","ECX4CHAR","687D")
+PROV D V20 687 WALLA WALLA WA
+"TEMP","ECX4CHAR","687E")
+PROV E V20 687 WALLA WALLA WA
+"TEMP","ECX4CHAR","687F")
+PROV F V20 687 WALLA WALLA WA
+"TEMP","ECX4CHAR","687G")
+PROV G V20 687 WALLA WALLA WA
+"TEMP","ECX4CHAR","687H")
+PROV H V20 687 WALLA WALLA WA
+"TEMP","ECX4CHAR","687I")
+PROV I V20 687 WALLA WALLA WA
+"TEMP","ECX4CHAR","687J")
+PROV J V20 687 WALLA WALLA WA
+"TEMP","ECX4CHAR","687K")
+PROV K V20 687 WALLA WALLA WA
+"TEMP","ECX4CHAR","688A")
+PROV A V05 688 WASHINGTON DC
+"TEMP","ECX4CHAR","688B")
+PROV B V05 688 WASHINGTON DC
+"TEMP","ECX4CHAR","688C")
+PROV C V05 688 WASHINGTON DC
+"TEMP","ECX4CHAR","688D")
+PROV D V05 688 WASHINGTON DC
+"TEMP","ECX4CHAR","688E")
+PROV E V05 688 WASHINGTON DC
+"TEMP","ECX4CHAR","688F")
+PROV F V05 688 WASHINGTON DC
+"TEMP","ECX4CHAR","688G")
+PROV G V05 688 WASHINGTON DC
+"TEMP","ECX4CHAR","688H")
+PROV H V05 688 WASHINGTON DC
+"TEMP","ECX4CHAR","688I")
+PROV I V05 688 WASHINGTON DC
+"TEMP","ECX4CHAR","688J")
+PROV J V05 688 WASHINGTON DC
+"TEMP","ECX4CHAR","688K")
+PROV K V05 688 WASHINGTON DC
+"TEMP","ECX4CHAR","689A")
+PROV A V01 689 CONNECTICUT HCS
+"TEMP","ECX4CHAR","689B")
+PROV A V01 689 CONNECTICUT HCS
+"TEMP","ECX4CHAR","689C")
+PROV A V01 689 CONNECTICUT HCS
+"TEMP","ECX4CHAR","689D")
+PROV A V01 689 CONNECTICUT HCS
+"TEMP","ECX4CHAR","689E")
+PROV A V01 689 CONNECTICUT HCS
+"TEMP","ECX4CHAR","689F")
+PROV A V01 689 CONNECTICUT HCS
+"TEMP","ECX4CHAR","689G")
+PROV A V01 689 CONNECTICUT HCS
+"TEMP","ECX4CHAR","689H")
+PROV A V01 689 CONNECTICUT HCS
+"TEMP","ECX4CHAR","689I")
+PROV A V01 689 CONNECTICUT HCS
+"TEMP","ECX4CHAR","689J")
+PROV A V01 689 CONNECTICUT HCS
+"TEMP","ECX4CHAR","689K")
+PROV A V01 689 CONNECTICUT HCS
+"TEMP","ECX4CHAR","691A")
+PROV A V22 691 WEST LA
+"TEMP","ECX4CHAR","691B")
+PROV B V22 691 WEST LA
+"TEMP","ECX4CHAR","691C")
+PROV C V22 691 WEST LA
+"TEMP","ECX4CHAR","691D")
+PROV D V22 691 WEST LA
+"TEMP","ECX4CHAR","691E")
+PROV E V22 691 WEST LA
+"TEMP","ECX4CHAR","691F")
+PROV F V22 691 WEST LA
+"TEMP","ECX4CHAR","691G")
+PROV G V22 691 WEST LA
+"TEMP","ECX4CHAR","691H")
+PROV H V22 691 WEST LA
+"TEMP","ECX4CHAR","691I")
+PROV I V22 691 WEST LA
+"TEMP","ECX4CHAR","691J")
+PROV J V22 691 WEST LA
+"TEMP","ECX4CHAR","691K")
+PROV K V22 691 WEST LA
+"TEMP","ECX4CHAR","692A")
+PROV A V20 692 WHITE CITY
+"TEMP","ECX4CHAR","692B")
+PROV B V20 692 WHITE CITY
+"TEMP","ECX4CHAR","692C")
+PROV C V20 692 WHITE CITY
+"TEMP","ECX4CHAR","692D")
+PROV D V20 692 WHITE CITY
+"TEMP","ECX4CHAR","692E")
+PROV E V20 692 WHITE CITY
+"TEMP","ECX4CHAR","692F")
+PROV F V20 692 WHITE CITY
+"TEMP","ECX4CHAR","692G")
+PROV G V20 692 WHITE CITY
+"TEMP","ECX4CHAR","692H")
+PROV H V20 692 WHITE CITY
+"TEMP","ECX4CHAR","692I")
+PROV I V20 692 WHITE CITY
+"TEMP","ECX4CHAR","692J")
+PROV J V20 692 WHITE CITY
+"TEMP","ECX4CHAR","692K")
+PROV K V20 692 WHITE CITY
+"TEMP","ECX4CHAR","693A")
+PROV A V04 693 WILKES-BARRE PA
+"TEMP","ECX4CHAR","693B")
+PROV B V04 693 WILKES-BARRE PA
+"TEMP","ECX4CHAR","693C")
+PROV C V04 693 WILKES-BARRE PA
+"TEMP","ECX4CHAR","693D")
+PROV D V04 693 WILKES-BARRE PA
+"TEMP","ECX4CHAR","693E")
+PROV E V04 693 WILKES-BARRE PA
+"TEMP","ECX4CHAR","693F")
+PROV F V04 693 WILKES-BARRE PA
+"TEMP","ECX4CHAR","693G")
+PROV G V04 693 WILKES-BARRE PA
+"TEMP","ECX4CHAR","693H")
+PROV H V04 693 WILKES-BARRE PA
+"TEMP","ECX4CHAR","693I")
+PROV I V04 693 WILKES-BARRE PA
+"TEMP","ECX4CHAR","693J")
+PROV J V04 693 WILKES-BARRE PA
+"TEMP","ECX4CHAR","693K")
+PROV K V04 693 WILKES-BARRE PA
+"TEMP","ECX4CHAR","695A")
+PROV A V12 695 MILWAUKEE WI
+"TEMP","ECX4CHAR","695B")
+PROV B V12 695 MILWAUKEE WI
+"TEMP","ECX4CHAR","695C")
+PROV C V12 695 MILWAUKEE WI
+"TEMP","ECX4CHAR","695D")
+PROV D V12 695 MILWAUKEE WI
+"TEMP","ECX4CHAR","695E")
+PROV E V12 695 MILWAUKEE WI
+"TEMP","ECX4CHAR","695F")
+PROV F V12 695 MILWAUKEE WI
+"TEMP","ECX4CHAR","695G")
+PROV G V12 695 MILWAUKEE WI
+"TEMP","ECX4CHAR","695H")
+PROV H V12 695 MILWAUKEE WI
+"TEMP","ECX4CHAR","695I")
+PROV I V12 695 MILWAUKEE WI
+"TEMP","ECX4CHAR","695J")
+PROV J V12 695 MILWAUKEE WI
+"TEMP","ECX4CHAR","695K")
+PROV K V12 695 MILWAUKEE WI
+"TEMP","ECX4CHAR","756A")
+PROV A V18 756 EL PASO OPC
+"TEMP","ECX4CHAR","756B")
+PROV B V18 756 EL PASO OPC
+"TEMP","ECX4CHAR","756C")
+PROV C V18 756 EL PASO OPC
+"TEMP","ECX4CHAR","756D")
+PROV D V18 756 EL PASO OPC
+"TEMP","ECX4CHAR","756E")
+PROV E V18 756 EL PASO OPC
+"TEMP","ECX4CHAR","756F")
+PROV F V18 756 EL PASO OPC
+"TEMP","ECX4CHAR","756G")
+PROV G V18 756 EL PASO OPC
+"TEMP","ECX4CHAR","756H")
+PROV H V18 756 EL PASO OPC
+"TEMP","ECX4CHAR","756I")
+PROV I V18 756 EL PASO OPC
+"TEMP","ECX4CHAR","756J")
+PROV J V18 756 EL PASO OPC
+"TEMP","ECX4CHAR","756K")
+PROV K V18 756 EL PASO OPC
+"TEMP","ECX4CHAR","757A")
+PROV A V10 757 COLUMBUS,OH OPC
+"TEMP","ECX4CHAR","757B")
+PROV B V10 757 COLUMBUS,OH OPC
+"TEMP","ECX4CHAR","757C")
+PROV C V10 757 COLUMBUS,OH OPC
+"TEMP","ECX4CHAR","757D")
+PROV D V10 757 COLUMBUS,OH OPC
+"TEMP","ECX4CHAR","757E")
+PROV E V10 757 COLUMBUS,OH OPC
+"TEMP","ECX4CHAR","757F")
+PROV F V10 757 COLUMBUS,OH OPC
+"TEMP","ECX4CHAR","757G")
+PROV G V10 757 COLUMBUS,OH OPC
+"TEMP","ECX4CHAR","757H")
+PROV H V10 757 COLUMBUS,OH OPC
+"TEMP","ECX4CHAR","757I")
+PROV I V10 757 COLUMBUS,OH OPC
+"TEMP","ECX4CHAR","757J")
+PROV J V10 757 COLUMBUS,OH OPC
+"TEMP","ECX4CHAR","757K")
+PROV K V10 757 COLUMBUS,OH OPC
+"TEMP","ECX4CHAR","AAAA")
+General Purpose 1 - assign own use
+"TEMP","ECX4CHAR","ABCD")
+Locally Defined A
+"TEMP","ECX4CHAR","ABLU")
+Blue Team A
+"TEMP","ECX4CHAR","ACBC")
+CBC A
+"TEMP","ECX4CHAR","ACPX")
+C & P clinic profile A
+"TEMP","ECX4CHAR","ACUP")
+Acupuncture
+"TEMP","ECX4CHAR","AETC")
+Ambulatory Evaluation and Treatment Center
+"TEMP","ECX4CHAR","AFCC")
+AFC Clinic
+"TEMP","ECX4CHAR","AGRP")
+A GROUP
+"TEMP","ECX4CHAR","AGTO")
+Agent Orange
+"TEMP","ECX4CHAR","AMSP")
+Antimicrb Stwrdshp Pharmacist
+"TEMP","ECX4CHAR","ANUR")
+RN managed clinic A
+"TEMP","ECX4CHAR","AOTH")
+A Other
+"TEMP","ECX4CHAR","APRI")
+A Primary Care
+"TEMP","ECX4CHAR","ARED")
+Red Team A
+"TEMP","ECX4CHAR","ASAT")
+Satellite A
+"TEMP","ECX4CHAR","ASOR")
+Ambulatory Surgery Performed in an OR
+"TEMP","ECX4CHAR","ASOT")
+Ambulatory Surgery Performed in Area Other than OR
+"TEMP","ECX4CHAR","ATEM")
+A Team
+"TEMP","ECX4CHAR","AYEL")
+Yellow Team A
+"TEMP","ECX4CHAR","BARA")
+Bar 203-450 Audio
+"TEMP","ECX4CHAR","BBBB")
+General Purpose 2 - assign own use
+"TEMP","ECX4CHAR","BBLU")
+Blue Team B
+"TEMP","ECX4CHAR","BCBC")
+CBC B
+"TEMP","ECX4CHAR","BCDE")
+Locally Defined B
+"TEMP","ECX4CHAR","BCPX")
+C & P clinic profile B
+"TEMP","ECX4CHAR","BGRP")
+B GROUP
+"TEMP","ECX4CHAR","BIOF")
+Biofeedback
+"TEMP","ECX4CHAR","BLUA")
+PRIMARY CARE BLUE A
+"TEMP","ECX4CHAR","BLUB")
+PRIMARY CARE BLUE B
+"TEMP","ECX4CHAR","BLUC")
+PRIMARY CARE BLUE C
+"TEMP","ECX4CHAR","BLUD")
+PRIMARY CARE BLUE D
+"TEMP","ECX4CHAR","BLUE")
+PRIMARY CARE BLUE E
+"TEMP","ECX4CHAR","BLUF")
+PRIMARY CARE BLUE F
+"TEMP","ECX4CHAR","BLUG")
+PRIMARY CARE BLUE G
+"TEMP","ECX4CHAR","BLUH")
+PRIMARY CARE BLUE H
+"TEMP","ECX4CHAR","BLUI")
+PRIMARY CARE BLUE I
+"TEMP","ECX4CHAR","BLUJ")
+PRIMARY CARE BLUE J
+"TEMP","ECX4CHAR","BLUK")
+PRIMARY CARE BLUE K
+"TEMP","ECX4CHAR","BLUL")
+PRIMARY CARE BLUE L
+"TEMP","ECX4CHAR","BLUM")
+PRIMARY CARE BLUE M
+"TEMP","ECX4CHAR","BLUN")
+PRIMARY CARE BLUE N
+"TEMP","ECX4CHAR","BLUO")
+PRIMARY CARE BLUE O
+"TEMP","ECX4CHAR","BLUP")
+PRIMARY CARE BLUE P
+"TEMP","ECX4CHAR","BLUQ")
+PRIMARY CARE BLUE Q
+"TEMP","ECX4CHAR","BLUR")
+PRIMARY CARE BLUE R
+"TEMP","ECX4CHAR","BLUS")
+PRIMARY CARE BLUE S
+"TEMP","ECX4CHAR","BLUT")
+PRIMARY CARE BLUE T
+"TEMP","ECX4CHAR","BLUU")
+PRIMARY CARE BLUE U
+"TEMP","ECX4CHAR","BLUV")
+PRIMARY CARE BLUE V
+"TEMP","ECX4CHAR","BLUW")
+PRIMARY CARE BLUE W
+"TEMP","ECX4CHAR","BLUX")
+PRIMARY CARE BLUE X
+"TEMP","ECX4CHAR","BLUY")
+PRIMARY CARE BLUE Y
+"TEMP","ECX4CHAR","BLUZ")
+PRIMARY CARE BLUE Z
+"TEMP","ECX4CHAR","BNUR")
+RN managed clinic B
+"TEMP","ECX4CHAR","BOTH")
+B Other
+"TEMP","ECX4CHAR","BPRI")
+B Primary Care
+"TEMP","ECX4CHAR","BRED")
+Red Team B
+"TEMP","ECX4CHAR","BSAT")
+Satellite B
+"TEMP","ECX4CHAR","BTEM")
+B Team
+"TEMP","ECX4CHAR","BYEL")
+Yellow Team B
+"TEMP","ECX4CHAR","CASE")
+Case Management
+"TEMP","ECX4CHAR","CBHT")
+Cognitive Behavioral Therapy
+"TEMP","ECX4CHAR","CBLU")
+Blue Team C
+"TEMP","ECX4CHAR","CBOA")
+CBOC KEY A
+"TEMP","ECX4CHAR","CBOB")
+CBOC KEY B
+"TEMP","ECX4CHAR","CBOC")
+CBOC KEY C
+"TEMP","ECX4CHAR","CBOD")
+CBOC KEY D
+"TEMP","ECX4CHAR","CBOE")
+CBOC KEY E
+"TEMP","ECX4CHAR","CBOF")
+CBOC KEY F
+"TEMP","ECX4CHAR","CBOG")
+CBOC KEY G
+"TEMP","ECX4CHAR","CBOH")
+CBOC KEY H
+"TEMP","ECX4CHAR","CBOI")
+CBOC KEY I
+"TEMP","ECX4CHAR","CBOJ")
+CBOC KEY J
+"TEMP","ECX4CHAR","CBOK")
+CBOC KEY K
+"TEMP","ECX4CHAR","CBOL")
+CBOC KEY L
+"TEMP","ECX4CHAR","CBOM")
+CBOC KEY M
+"TEMP","ECX4CHAR","CBON")
+CBOC KEY N
+"TEMP","ECX4CHAR","CBOO")
+CBOC KEY O
+"TEMP","ECX4CHAR","CBOP")
+CBOC KEY P
+"TEMP","ECX4CHAR","CBOQ")
+CBOC KEY Q
+"TEMP","ECX4CHAR","CBOR")
+CBOC KEY R
+"TEMP","ECX4CHAR","CBOS")
+CBOC KEY S
+"TEMP","ECX4CHAR","CBOT")
+CBOC KEY T
+"TEMP","ECX4CHAR","CBOU")
+CBOC KEY U
+"TEMP","ECX4CHAR","CBOV")
+CBOC KEY V
+"TEMP","ECX4CHAR","CBOW")
+CBOC KEY W
+"TEMP","ECX4CHAR","CBOX")
+CBOC KEY X
+"TEMP","ECX4CHAR","CBOY")
+CBOC KEY Y
+"TEMP","ECX4CHAR","CBOZ")
+CBOC KEY Z
+"TEMP","ECX4CHAR","CCBC")
+CBC C
+"TEMP","ECX4CHAR","CCPH")
+Critical Care Pharmacist
+"TEMP","ECX4CHAR","CCPX")
+C & P clinic profile C
+"TEMP","ECX4CHAR","CD00")
+Cardiac Disease Non-Specified Provider
+"TEMP","ECX4CHAR","CDAC")
+Cardiac Disease V1 CCS
+"TEMP","ECX4CHAR","CDBC")
+Cardiac Disease V2 CCS
+"TEMP","ECX4CHAR","CDCC")
+CARDIAC DISEASE CC TEAM
+"TEMP","ECX4CHAR","CDDC")
+Cardiac Disease V4 CCS
+"TEMP","ECX4CHAR","CDEC")
+Cardiac Disease V5 CCS
+"TEMP","ECX4CHAR","CDED")
+Cardiac Disease Education (CHF, etc)
+"TEMP","ECX4CHAR","CDEF")
+Locally Defined C
+"TEMP","ECX4CHAR","CDFC")
+Cardiac Disease V6 CCS
+"TEMP","ECX4CHAR","CDGC")
+Cardiac Disease V7 CCS
+"TEMP","ECX4CHAR","CDHC")
+Cardiac Disease V8 CCS
+"TEMP","ECX4CHAR","CDJC")
+Cardiac Disease V9 CCS
+"TEMP","ECX4CHAR","CDKC")
+Cardiac Disease V10 CCS
+"TEMP","ECX4CHAR","CDLC")
+Cardiac Disease V11 CCS
+"TEMP","ECX4CHAR","CDMC")
+Cardiac Disease V12 CCS
+"TEMP","ECX4CHAR","CDNC")
+Cardiac Disease V23 CCS
+"TEMP","ECX4CHAR","CDNP")
+Cardiac Disease Nurse Practitioner
+"TEMP","ECX4CHAR","CDPA")
+Cardiac Disease Physician Assistant
+"TEMP","ECX4CHAR","CDPC")
+Cardiac Disease V15 CCS
+"TEMP","ECX4CHAR","CDPH")
+Cardiac Disease Pharmacist
+"TEMP","ECX4CHAR","CDPT")
+Cardiac Disease Physical Therapist
+"TEMP","ECX4CHAR","CDQC")
+Cardiac Disease V16 CCS
+"TEMP","ECX4CHAR","CDRC")
+Cardiac Disease V17 CCS
+"TEMP","ECX4CHAR","CDRD")
+Cardiac Disease Registered Dietician
+"TEMP","ECX4CHAR","CDRN")
+Cardiac Disease Registered Nurse
+"TEMP","ECX4CHAR","CDSC")
+Cardiac Disease V18 CCS
+"TEMP","ECX4CHAR","CDSW")
+Cardiac Disease Social Worker
+"TEMP","ECX4CHAR","CDTC")
+Cardiac Disease V19 CCS
+"TEMP","ECX4CHAR","CDUC")
+Cardiac Disease V20 CCS
+"TEMP","ECX4CHAR","CDVC")
+Cardiac Disease V21 CCS
+"TEMP","ECX4CHAR","CDWC")
+Cardiac Disease V22 CCS
+"TEMP","ECX4CHAR","CG00")
+Coag Management Non-Specified Provider
+"TEMP","ECX4CHAR","CGAC")
+Coagulation Management V1 CCS
+"TEMP","ECX4CHAR","CGBC")
+Coagulation Management V2 CCS
+"TEMP","ECX4CHAR","CGCC")
+COAG MANAGEMENT CC TEAM
+"TEMP","ECX4CHAR","CGDC")
+Coagulation Management V4 CCS
+"TEMP","ECX4CHAR","CGEC")
+Coagulation Management V5 CCS
+"TEMP","ECX4CHAR","CGFC")
+Coagulation Management V6 CCCS
+"TEMP","ECX4CHAR","CGGC")
+Coagulation Management V7 CCS
+"TEMP","ECX4CHAR","CGHC")
+Coagulation Management V8 CCS
+"TEMP","ECX4CHAR","CGJC")
+Coagulation Management V9 CCS
+"TEMP","ECX4CHAR","CGKC")
+Coagulation Management V10 CCS
+"TEMP","ECX4CHAR","CGLC")
+Coagulation Management V11 CCS
+"TEMP","ECX4CHAR","CGMC")
+Coagulation Management V12 CCS
+"TEMP","ECX4CHAR","CGNC")
+Coagulation Management V23 CCS
+"TEMP","ECX4CHAR","CGNP")
+Coag Management Nurse Practitioner
+"TEMP","ECX4CHAR","CGPA")
+Coag Management Physician Assistant
+"TEMP","ECX4CHAR","CGPC")
+Coagulation Management V15 CCS
+"TEMP","ECX4CHAR","CGPH")
+CntrlzAnticoagMgmt Pharmacist
+"TEMP","ECX4CHAR","CGPT")
+Coag Management Physical Therapist
+"TEMP","ECX4CHAR","CGQC")
+Coagulation Management V16 CCS
+"TEMP","ECX4CHAR","CGRC")
+Homeless CRRCs
+"TEMP","ECX4CHAR","CGRD")
+Coag Management Registered Dietician
+"TEMP","ECX4CHAR","CGRN")
+Coag Management Registered Nurse
+"TEMP","ECX4CHAR","CGRP")
+Caregiver Support Program
+"TEMP","ECX4CHAR","CGSC")
+Coagulation Management V18 CCS
+"TEMP","ECX4CHAR","CGSW")
+Coag Management Social Worker
+"TEMP","ECX4CHAR","CGTC")
+Coagulation Management V19 CCS
+"TEMP","ECX4CHAR","CGUC")
+Coagulation Management V20 CCS
+"TEMP","ECX4CHAR","CGVC")
+Coagulation Management V21 CCS
+"TEMP","ECX4CHAR","CGWC")
+Coagulation Management V22 CCS
+"TEMP","ECX4CHAR","CHAP")
+Chaplain
+"TEMP","ECX4CHAR","CHOL")
+Cholesterol Education - Double Provider
+"TEMP","ECX4CHAR","CLNS")
+Clinical Nurse Specialist
+"TEMP","ECX4CHAR","CMIO")
+CMI - Chronically Mentally Ill
+"TEMP","ECX4CHAR","CNSA")
+CLINICAL NURSE SPECIALIST A
+"TEMP","ECX4CHAR","CNSB")
+CLINICAL NURSE SPECIALIST B
+"TEMP","ECX4CHAR","CNSC")
+CLINICAL NURSE SPECIALIST C
+"TEMP","ECX4CHAR","CNSD")
+CLINICAL NURSE SPECIALIST D
+"TEMP","ECX4CHAR","CNSE")
+CLINICAL NURSE SPECIALIST E
+"TEMP","ECX4CHAR","CNSF")
+CLINICAL NURSE SPECIALIST F
+"TEMP","ECX4CHAR","CNSG")
+CLINICAL NURSE SPECIALIST G
+"TEMP","ECX4CHAR","CNSH")
+CLINICAL NURSE SPECIALIST H
+"TEMP","ECX4CHAR","CNSI")
+CLINICAL NURSE SPECIALIST I
+"TEMP","ECX4CHAR","CNSJ")
+CLINICAL NURSE SPECIALIST J
+"TEMP","ECX4CHAR","CNSK")
+CLINICAL NURSE SPECIALIST K
+"TEMP","ECX4CHAR","CNSL")
+CLINICAL NURSE SPECIALIST L
+"TEMP","ECX4CHAR","CNSM")
+CLINICAL NURSE SPECIALIST M
+"TEMP","ECX4CHAR","CNSN")
+CLINICAL NURSE SPECIALIST N
+"TEMP","ECX4CHAR","CNSO")
+CLINICAL NURSE SPECIALIST O
+"TEMP","ECX4CHAR","CNSP")
+CLINICAL NURSE SPECIALIST P
+"TEMP","ECX4CHAR","CNSQ")
+CLINICAL NURSE SPECIALIST Q
+"TEMP","ECX4CHAR","CNSR")
+CLINICAL NURSE SPECIALIST R
+"TEMP","ECX4CHAR","CNSS")
+CLINICAL NURSE SPECIALIST S
+"TEMP","ECX4CHAR","CNST")
+CLINICAL NURSE SPECIALIST T
+"TEMP","ECX4CHAR","CNSU")
+CLINICAL NURSE SPECIALIST U
+"TEMP","ECX4CHAR","CNSV")
+CLINICAL NURSE SPECIALIST V
+"TEMP","ECX4CHAR","CNSW")
+CLINICAL NURSE SPECIALIST W
+"TEMP","ECX4CHAR","CNSX")
+CLINICAL NURSE SPECIALIST X
+"TEMP","ECX4CHAR","CNSY")
+CLINICAL NURSE SPECIALIST Y
+"TEMP","ECX4CHAR","CNSZ")
+E-Consult
+"TEMP","ECX4CHAR","CNUR")
+RN managed clinic C
+"TEMP","ECX4CHAR","COLL")
+Collateral
+"TEMP","ECX4CHAR","COMN")
+Community Nursing Home
+"TEMP","ECX4CHAR","CONS")
+Consultation
+"TEMP","ECX4CHAR","COOR")
+Coordinator
+"TEMP","ECX4CHAR","COTH")
+C Other
+"TEMP","ECX4CHAR","CPEX")
+Compensation and Pension Examination
+"TEMP","ECX4CHAR","CPRA")
+PRIMARY CARE COPPER A
+"TEMP","ECX4CHAR","CPRB")
+PRIMARY CARE COPPER B
+"TEMP","ECX4CHAR","CPRC")
+PRIMARY CARE COPPER C
+"TEMP","ECX4CHAR","CPRD")
+PRIMARY CARE COPPER D
+"TEMP","ECX4CHAR","CPRE")
+PRIMARY CARE COPPER E
+"TEMP","ECX4CHAR","CPRF")
+PRIMARY CARE COPPER F
+"TEMP","ECX4CHAR","CPRG")
+PRIMARY CARE COPPER G
+"TEMP","ECX4CHAR","CPRH")
+PRIMARY CARE COPPER H
+"TEMP","ECX4CHAR","CPRI")
+C Primary Care
+"TEMP","ECX4CHAR","CPRJ")
+PRIMARY CARE COPPER J
+"TEMP","ECX4CHAR","CPRK")
+PRIMARY CARE COPPER K
+"TEMP","ECX4CHAR","CPRL")
+PRIMARY CARE COPPER L
+"TEMP","ECX4CHAR","CPRM")
+PRIMARY CARE COPPER M
+"TEMP","ECX4CHAR","CPRN")
+PRIMARY CARE COPPER N
+"TEMP","ECX4CHAR","CPRO")
+PRIMARY CARE COPPER O
+"TEMP","ECX4CHAR","CPRP")
+PRIMARY CARE COPPER P
+"TEMP","ECX4CHAR","CPRQ")
+PRIMARY CARE COPPER Q
+"TEMP","ECX4CHAR","CPRR")
+PRIMARY CARE COPPER R
+"TEMP","ECX4CHAR","CPRS")
+PRIMARY CARE COPPER S
+"TEMP","ECX4CHAR","CPRT")
+PRIMARY CARE COPPER T
+"TEMP","ECX4CHAR","CPRU")
+PRIMARY CARE COPPER U
+"TEMP","ECX4CHAR","CPRV")
+PRIMARY CARE COPPER V
+"TEMP","ECX4CHAR","CPRW")
+PRIMARY CARE COPPER W
+"TEMP","ECX4CHAR","CPRX")
+PRIMARY CARE COPPER X
+"TEMP","ECX4CHAR","CPRY")
+SCAN Mini-Spec Clinic
+"TEMP","ECX4CHAR","CPRZ")
+SCAN-ECHO
+"TEMP","ECX4CHAR","CPXA")
+COMP & PENS A
+"TEMP","ECX4CHAR","CPXB")
+COMP & PENS B
+"TEMP","ECX4CHAR","CPXC")
+COMP & PENS C
+"TEMP","ECX4CHAR","CPXD")
+COMP & PENS D
+"TEMP","ECX4CHAR","CPXE")
+COMP & PENS E
+"TEMP","ECX4CHAR","CPXF")
+COMP & PENS F
+"TEMP","ECX4CHAR","CPXG")
+COMP & PENS G
+"TEMP","ECX4CHAR","CPXH")
+COMP & PENS H
+"TEMP","ECX4CHAR","CPXI")
+COMP & PENS I
+"TEMP","ECX4CHAR","CPXJ")
+COMP & PENS J
+"TEMP","ECX4CHAR","CPXK")
+COMP & PENS K
+"TEMP","ECX4CHAR","CPXL")
+COMP & PENS L
+"TEMP","ECX4CHAR","CPXM")
+COMP & PENS M
+"TEMP","ECX4CHAR","CPXN")
+COMP & PENS N
+"TEMP","ECX4CHAR","CPXO")
+COMP & PENS O
+"TEMP","ECX4CHAR","CPXP")
+COMP & PENS P
+"TEMP","ECX4CHAR","CPXQ")
+COMP & PENS Q
+"TEMP","ECX4CHAR","CPXR")
+COMP & PENS R
+"TEMP","ECX4CHAR","CPXS")
+COMP & PENS S
+"TEMP","ECX4CHAR","CPXT")
+COMP & PENS T
+"TEMP","ECX4CHAR","CPXU")
+COMP & PENS U
+"TEMP","ECX4CHAR","CPXV")
+COMP & PENS V
+"TEMP","ECX4CHAR","CPXW")
+COMP & PENS W
+"TEMP","ECX4CHAR","CPXX")
+COMP & PENS X
+"TEMP","ECX4CHAR","CPXY")
+COMP & PENS Y
+"TEMP","ECX4CHAR","CPXZ")
+COMP & PENS Z
+"TEMP","ECX4CHAR","CRED")
+Red Team C
+"TEMP","ECX4CHAR","CRRC")
+Cardiovascular Risk Reduction Pharmacist
+"TEMP","ECX4CHAR","CSAT")
+Satellite C
+"TEMP","ECX4CHAR","CSCC")
+CnsltSprtClinc CreatvArtsFestvl
+"TEMP","ECX4CHAR","CSCF")
+CnsltSprtClinc GolfPgm
+"TEMP","ECX4CHAR","CSCG")
+CnsltSprtClinc GldnAgGms
+"TEMP","ECX4CHAR","CSCL")
+CnsltSprtClinc WellnessPgm
+"TEMP","ECX4CHAR","CSCN")
+CnsltSprtClinc WintrSprtClinc
+"TEMP","ECX4CHAR","CSCS")
+CnsltSprtClinc SummrClinc
+"TEMP","ECX4CHAR","CSCT")
+CnsltSprtClinc TEE Trnmt
+"TEMP","ECX4CHAR","CSCW")
+CnsltSprtClinc WhlchrGms
+"TEMP","ECX4CHAR","CTEM")
+C Team
+"TEMP","ECX4CHAR","CYEL")
+Yellow Team C
+"TEMP","ECX4CHAR","DBLU")
+Blue Team D
+"TEMP","ECX4CHAR","DCBC")
+CBC D
+"TEMP","ECX4CHAR","DCPX")
+C & P clinic profile D
+"TEMP","ECX4CHAR","DE00")
+Dementia Non-Specified Provider
+"TEMP","ECX4CHAR","DEAC")
+Dementia V1 CCS
+"TEMP","ECX4CHAR","DEBC")
+Dementia V2 CCS
+"TEMP","ECX4CHAR","DECC")
+DEMENTIA CC TEAM
+"TEMP","ECX4CHAR","DEDC")
+Dementia V4 CCS
+"TEMP","ECX4CHAR","DEEC")
+Dementia V5 CCS
+"TEMP","ECX4CHAR","DEFC")
+Dementia V6 CCS
+"TEMP","ECX4CHAR","DEFG")
+Locally Defined D
+"TEMP","ECX4CHAR","DEGC")
+Dementia V7 CCS
+"TEMP","ECX4CHAR","DEHC")
+Dementia V8 CCS
+"TEMP","ECX4CHAR","DEJC")
+Dementia V9 CCS
+"TEMP","ECX4CHAR","DEKC")
+Dementia V10 CCS
+"TEMP","ECX4CHAR","DELC")
+Dementia V11 CCS
+"TEMP","ECX4CHAR","DEMC")
+Dementia V12 CCS
+"TEMP","ECX4CHAR","DEMT")
+Dementia-MH Therapist
+"TEMP","ECX4CHAR","DENC")
+Dementia V23 CCS
+"TEMP","ECX4CHAR","DENP")
+Dementia Nurse Practitioner
+"TEMP","ECX4CHAR","DEPA")
+Dementia Physician Assistant
+"TEMP","ECX4CHAR","DEPC")
+Dementia V15 CCS
+"TEMP","ECX4CHAR","DEPH")
+Dementia Pharmacist
+"TEMP","ECX4CHAR","DEPS")
+Dementia-Psychologist
+"TEMP","ECX4CHAR","DEPT")
+Dementia Physical Therapist
+"TEMP","ECX4CHAR","DEQC")
+Dementia V16 CCS
+"TEMP","ECX4CHAR","DERC")
+Dementia V17 CCS
+"TEMP","ECX4CHAR","DERD")
+Dementia Registered Dietician
+"TEMP","ECX4CHAR","DERN")
+Dementia Registered Nurse
+"TEMP","ECX4CHAR","DESC")
+Dementia V18 CCS
+"TEMP","ECX4CHAR","DESW")
+Dementia Social Worker
+"TEMP","ECX4CHAR","DETC")
+Dementia V19 CCS
+"TEMP","ECX4CHAR","DEUC")
+Dementia V20 CCS
+"TEMP","ECX4CHAR","DEVC")
+Dementia V21 CCS
+"TEMP","ECX4CHAR","DEWC")
+Dementia V22 CCS
+"TEMP","ECX4CHAR","DGRP")
+D GROUP
+"TEMP","ECX4CHAR","DIAB")
+Diabetes Education
+"TEMP","ECX4CHAR","DIAG")
+Diagnostic Procedures
+"TEMP","ECX4CHAR","DM00")
+Diabetes Mellitus Non-Specified Provider
+"TEMP","ECX4CHAR","DMAC")
+Diabetes Mellitus V1 CCS
+"TEMP","ECX4CHAR","DMBC")
+Diabetes Mellitus V2 CCS
+"TEMP","ECX4CHAR","DMCC")
+DIABETES MELLITUS CC TEAM
+"TEMP","ECX4CHAR","DMDC")
+Diabetes Mellitus V4 CCS
+"TEMP","ECX4CHAR","DMEC")
+Diabetes Mellitus V5 CCS
+"TEMP","ECX4CHAR","DMFC")
+Diabetes Mellitus V6 CCS
+"TEMP","ECX4CHAR","DMGC")
+Diabetes Mellitus V7 CCS
+"TEMP","ECX4CHAR","DMHC")
+Diabetes Mellitus V8 CCS
+"TEMP","ECX4CHAR","DMJC")
+Diabetes Mellitus V9 CCS
+"TEMP","ECX4CHAR","DMKC")
+Diabetes Mellitus V10 CCS
+"TEMP","ECX4CHAR","DMLC")
+Diabetes Mellitus V11 CCS
+"TEMP","ECX4CHAR","DMMC")
+Diabetes Mellitus V12 CCS
+"TEMP","ECX4CHAR","DMNC")
+Diabetes Mellitus V23 CCS
+"TEMP","ECX4CHAR","DMNP")
+Diabetes Mellitus Nurse Practitioner
+"TEMP","ECX4CHAR","DMPA")
+Diabetes Mellitus Physician Assistant
+"TEMP","ECX4CHAR","DMPC")
+Diabetes Mellitus V15 CCS
+"TEMP","ECX4CHAR","DMPH")
+Diabetes Mellitus Pharmacist
+"TEMP","ECX4CHAR","DMPT")
+Diabetes Mellitus Physical Therapist
+"TEMP","ECX4CHAR","DMQC")
+Diabetes Mellitus V16 CCS
+"TEMP","ECX4CHAR","DMRC")
+Diabetes Mellitus V17 CCS
+"TEMP","ECX4CHAR","DMRD")
+Diabetes Mellitus Registered Dietician
+"TEMP","ECX4CHAR","DMRN")
+Diabetes Mellitus Registered Nurse
+"TEMP","ECX4CHAR","DMSC")
+Diabetes Mellitus V18 CCS
+"TEMP","ECX4CHAR","DMSW")
+Diabetes Mellitus Social Worker
+"TEMP","ECX4CHAR","DMTC")
+Diabetes Mellitus V19 CCS
+"TEMP","ECX4CHAR","DMUC")
+Diabetes Mellitus V20 CCS
+"TEMP","ECX4CHAR","DMVC")
+Diabetes Mellitus V21 CCS
+"TEMP","ECX4CHAR","DMWC")
+Diabetes Mellitus V22 CCS
+"TEMP","ECX4CHAR","DNUR")
+RN managed clinic D
+"TEMP","ECX4CHAR","DOMI")
+Domicilliary
+"TEMP","ECX4CHAR","DOTH")
+D Other
+"TEMP","ECX4CHAR","DPGP")
+Double Provider - Group of Patients
+"TEMP","ECX4CHAR","DPIN")
+Double Provider - Individual Patient
+"TEMP","ECX4CHAR","DPRI")
+D Primary Care
+"TEMP","ECX4CHAR","DPRO")
+Dental Procedure
+"TEMP","ECX4CHAR","DRED")
+Red Team D
+"TEMP","ECX4CHAR","DRPH")
+Dermatology Pharmacist
+"TEMP","ECX4CHAR","DSAT")
+Satellite D
+"TEMP","ECX4CHAR","DTEM")
+D Team
+"TEMP","ECX4CHAR","DTMV")
+Diet Tech-MOVE
+"TEMP","ECX4CHAR","DYEL")
+Yellow Team D
+"TEMP","ECX4CHAR","EAPO")
+Employee Assistance
+"TEMP","ECX4CHAR","EBLU")
+Blue Team E
+"TEMP","ECX4CHAR","ECBC")
+CBC E
+"TEMP","ECX4CHAR","ECOE")
+Epilepsy Center of Excellence
+"TEMP","ECX4CHAR","ECOP")
+E-Cnslt Pharmacist
+"TEMP","ECX4CHAR","ECPX")
+C & P clinic profile E
+"TEMP","ECX4CHAR","EDPH")
+Emergency Department Pharmacist
+"TEMP","ECX4CHAR","EDUC")
+Education - non-MD
+"TEMP","ECX4CHAR","EFGH")
+Locally Defined E
+"TEMP","ECX4CHAR","ENUR")
+RN managed clinic E
+"TEMP","ECX4CHAR","EOTH")
+E Other
+"TEMP","ECX4CHAR","EPRI")
+E Primary Care
+"TEMP","ECX4CHAR","EQTH")
+Equine Therapy
+"TEMP","ECX4CHAR","ERED")
+Red Team E
+"TEMP","ECX4CHAR","ESAT")
+Satellite E
+"TEMP","ECX4CHAR","ESPH")
+ESA Pharmacist
+"TEMP","ECX4CHAR","ETEM")
+E Team
+"TEMP","ECX4CHAR","EXPX")
+Exposure Radiation
+"TEMP","ECX4CHAR","EYEL")
+Yellow Team E
+"TEMP","ECX4CHAR","FAMI")
+Family
+"TEMP","ECX4CHAR","FBLU")
+Blue Team F
+"TEMP","ECX4CHAR","FCAP")
+FCA 205-460 Pool
+"TEMP","ECX4CHAR","FCBC")
+CBC F
+"TEMP","ECX4CHAR","FCPX")
+C & P clinic profile F
+"TEMP","ECX4CHAR","FDLA")
+VL CATEGORY 4 A
+"TEMP","ECX4CHAR","FDLB")
+VL CATEGORY 4 B
+"TEMP","ECX4CHAR","FDLC")
+VL CATEGORY 4 C
+"TEMP","ECX4CHAR","FDLD")
+VL CATEGORY 4 D
+"TEMP","ECX4CHAR","FEEA")
+FEE PROVIDER VL5 A
+"TEMP","ECX4CHAR","FEEB")
+FEE PROVIDER VL5 B
+"TEMP","ECX4CHAR","FEEC")
+FEE PROVIDER VL5 C
+"TEMP","ECX4CHAR","FEED")
+FEE PROVIDER VL5 D
+"TEMP","ECX4CHAR","FEEE")
+FEE PROVIDER VL5 E
+"TEMP","ECX4CHAR","FEEF")
+FEE PROVIDER VL5 F
+"TEMP","ECX4CHAR","FEEG")
+FEE PROVIDER VL5 G
+"TEMP","ECX4CHAR","FEEH")
+FEE PROVIDER VL5 H
+"TEMP","ECX4CHAR","FEEI")
+FEE PROVIDER VL5 I
+"TEMP","ECX4CHAR","FEEJ")
+FEE PROVIDER VL5 J
+"TEMP","ECX4CHAR","FEEK")
+FEE PROVIDER VL5 K
+"TEMP","ECX4CHAR","FEEL")
+FEE PROVIDER VL5 L
+"TEMP","ECX4CHAR","FEEM")
+FEE PROVIDER VL5 M
+"TEMP","ECX4CHAR","FEEN")
+FEE PROVIDER VL5 N
+"TEMP","ECX4CHAR","FEEO")
+FEE PROVIDER VL5 O
+"TEMP","ECX4CHAR","FEEP")
+FEE PROVIDER VL5 P
+"TEMP","ECX4CHAR","FEEQ")
+FEE PROVIDER VL5 Q
+"TEMP","ECX4CHAR","FEER")
+FEE PROVIDER VL5 R
+"TEMP","ECX4CHAR","FEES")
+FEE PROVIDER VL5 S
+"TEMP","ECX4CHAR","FEET")
+FEE PROVIDER VL5 T
+"TEMP","ECX4CHAR","FEEU")
+FEE PROVIDER VL5 U
+"TEMP","ECX4CHAR","FEEV")
+FEE PROVIDER VL5 V
+"TEMP","ECX4CHAR","FEEW")
+FEE PROVIDER VL5 W
+"TEMP","ECX4CHAR","FEEX")
+FEE PROVIDER VL5 X
+"TEMP","ECX4CHAR","FEEY")
+FEE PROVIDER VL5 Y
+"TEMP","ECX4CHAR","FEEZ")
+FEE PROVIDER VL5 Z
+"TEMP","ECX4CHAR","FGHI")
+Locally Defined F
+"TEMP","ECX4CHAR","FLUI")
+Flu Injection
+"TEMP","ECX4CHAR","FNUR")
+RN managed clinic F
+"TEMP","ECX4CHAR","FOLU")
+Follow-up
+"TEMP","ECX4CHAR","FOST")
+Foster Care Clinic
+"TEMP","ECX4CHAR","FOTH")
+F Other
+"TEMP","ECX4CHAR","FPRI")
+F Primary Care
+"TEMP","ECX4CHAR","FRED")
+Red Team F
+"TEMP","ECX4CHAR","FSAT")
+Satellite F
+"TEMP","ECX4CHAR","FTEM")
+F Team
+"TEMP","ECX4CHAR","FYEL")
+Yellow Team F
+"TEMP","ECX4CHAR","GBLU")
+Blue Team G
+"TEMP","ECX4CHAR","GCBC")
+CBC G
+"TEMP","ECX4CHAR","GCPX")
+C & P clinic profile G
+"TEMP","ECX4CHAR","GERI")
+GERIATRICS
+"TEMP","ECX4CHAR","GERP")
+Geriatric Pharmacist
+"TEMP","ECX4CHAR","GHIJ")
+Locally Defined G
+"TEMP","ECX4CHAR","GIMA")
+Guided Imagery
+"TEMP","ECX4CHAR","GIPR")
+GI Procedure
+"TEMP","ECX4CHAR","GLCM")
+Glucometer
+"TEMP","ECX4CHAR","GLDA")
+PRIMARY CARE GOLD A
+"TEMP","ECX4CHAR","GLDB")
+PRIMARY CARE GOLD B
+"TEMP","ECX4CHAR","GLDC")
+PRIMARY CARE GOLD C
+"TEMP","ECX4CHAR","GLDD")
+PRIMARY CARE GOLD D
+"TEMP","ECX4CHAR","GLDE")
+PRIMARY CARE GOLD E
+"TEMP","ECX4CHAR","GLDF")
+PRIMARY CARE GOLD F
+"TEMP","ECX4CHAR","GLDG")
+PRIMARY CARE GOLD G
+"TEMP","ECX4CHAR","GLDH")
+PRIMARY CARE GOLD H
+"TEMP","ECX4CHAR","GLDI")
+PRIMARY CARE GOLD I
+"TEMP","ECX4CHAR","GLDJ")
+PRIMARY CARE GOLD J
+"TEMP","ECX4CHAR","GLDK")
+PRIMARY CARE GOLD K
+"TEMP","ECX4CHAR","GLDL")
+PRIMARY CARE GOLD L
+"TEMP","ECX4CHAR","GLDM")
+PRIMARY CARE GOLD M
+"TEMP","ECX4CHAR","GLDN")
+PRIMARY CARE GOLD N
+"TEMP","ECX4CHAR","GLDO")
+PRIMARY CARE GOLD O
+"TEMP","ECX4CHAR","GLDP")
+PRIMARY CARE GOLD P
+"TEMP","ECX4CHAR","GLDQ")
+PRIMARY CARE GOLD Q
+"TEMP","ECX4CHAR","GLDR")
+PRIMARY CARE GOLD R
+"TEMP","ECX4CHAR","GLDS")
+PRIMARY CARE GOLD S
+"TEMP","ECX4CHAR","GLDT")
+PRIMARY CARE GOLD T
+"TEMP","ECX4CHAR","GLDU")
+PRIMARY CARE GOLD U
+"TEMP","ECX4CHAR","GLDV")
+PRIMARY CARE GOLD V
+"TEMP","ECX4CHAR","GLDW")
+PRIMARY CARE GOLD W
+"TEMP","ECX4CHAR","GLDX")
+PRIMARY CARE GOLD X
+"TEMP","ECX4CHAR","GLDY")
+PRIMARY CARE GOLD Y
+"TEMP","ECX4CHAR","GLDZ")
+PRIMARY CARE GOLD Z
+"TEMP","ECX4CHAR","GMED")
+Medic
+"TEMP","ECX4CHAR","GNUR")
+RN managed clinic G
+"TEMP","ECX4CHAR","GOTH")
+G Other
+"TEMP","ECX4CHAR","GPRI")
+G Primary Care
+"TEMP","ECX4CHAR","GRED")
+Red Team G
+"TEMP","ECX4CHAR","GRNA")
+PRIMARY CARE GREEN A
+"TEMP","ECX4CHAR","GRNB")
+PRIMARY CARE GREEN B
+"TEMP","ECX4CHAR","GRNC")
+PRIMARY CARE GREEN C
+"TEMP","ECX4CHAR","GRND")
+PRIMARY CARE GREEN D
+"TEMP","ECX4CHAR","GRNE")
+PRIMARY CARE GREEN E
+"TEMP","ECX4CHAR","GRNF")
+PRIMARY CARE GREEN F
+"TEMP","ECX4CHAR","GRNG")
+PRIMARY CARE GREEN G
+"TEMP","ECX4CHAR","GRNH")
+PRIMARY CARE GREEN H
+"TEMP","ECX4CHAR","GRNI")
+PRIMARY CARE GREEN I
+"TEMP","ECX4CHAR","GRNJ")
+PRIMARY CARE GREEN J
+"TEMP","ECX4CHAR","GRNK")
+PRIMARY CARE GREEN K
+"TEMP","ECX4CHAR","GRNL")
+PRIMARY CARE GREEN L
+"TEMP","ECX4CHAR","GRNM")
+PRIMARY CARE GREEN M
+"TEMP","ECX4CHAR","GRNN")
+PRIMARY CARE GREEN N
+"TEMP","ECX4CHAR","GRNO")
+PRIMARY CARE GREEN O
+"TEMP","ECX4CHAR","GRNP")
+PRIMARY CARE GREEN P
+"TEMP","ECX4CHAR","GRNQ")
+PRIMARY CARE GREEN Q
+"TEMP","ECX4CHAR","GRNR")
+PRIMARY CARE GREEN R
+"TEMP","ECX4CHAR","GRNS")
+PRIMARY CARE GREEN S
+"TEMP","ECX4CHAR","GRNT")
+PRIMARY CARE GREEN T
+"TEMP","ECX4CHAR","GRNU")
+PRIMARY CARE GREEN U
+"TEMP","ECX4CHAR","GRNV")
+PRIMARY CARE GREEN V
+"TEMP","ECX4CHAR","GRNW")
+PRIMARY CARE GREEN W
+"TEMP","ECX4CHAR","GRNX")
+PRIMARY CARE GREEN X
+"TEMP","ECX4CHAR","GRNY")
+PRIMARY CARE GREEN Y
+"TEMP","ECX4CHAR","GRNZ")
+PRIMARY CARE GREEN Z
+"TEMP","ECX4CHAR","GRPA")
+GROUP A
+"TEMP","ECX4CHAR","GRPB")
+GROUP B
+"TEMP","ECX4CHAR","GRPC")
+GROUP C
+"TEMP","ECX4CHAR","GRPD")
+GROUP D
+"TEMP","ECX4CHAR","GSAT")
+Satellite G
+"TEMP","ECX4CHAR","GTEM")
+G Team
+"TEMP","ECX4CHAR","GULF")
+Persian Gulf War
+"TEMP","ECX4CHAR","GYEL")
+Yellow Team G
+"TEMP","ECX4CHAR","HBLU")
+Blue Team H
+"TEMP","ECX4CHAR","HBPC")
+HOME BASED PRIMARY CARE
+"TEMP","ECX4CHAR","HCBC")
+CBC H
+"TEMP","ECX4CHAR","HCHV")
+HCHV in 501 Stop
+"TEMP","ECX4CHAR","HCPX")
+C & P clinic profile H
+"TEMP","ECX4CHAR","HDDC")
+Hypertension V4 CCS
+"TEMP","ECX4CHAR","HDEC")
+Hypertension V5 CCS
+"TEMP","ECX4CHAR","HDGC")
+Hypertension V7 CCS
+"TEMP","ECX4CHAR","HDHC")
+Hypertension V8 CCS
+"TEMP","ECX4CHAR","HDJC")
+Hypertension V9 CCS
+"TEMP","ECX4CHAR","HDKC")
+Hypertension V10 CCS
+"TEMP","ECX4CHAR","HDLC")
+Hypertension V11 CCS
+"TEMP","ECX4CHAR","HDMC")
+Hypertension V12 CCS
+"TEMP","ECX4CHAR","HDNC")
+Hypertension V23 CCS
+"TEMP","ECX4CHAR","HDPC")
+Hypertension V15 CCS
+"TEMP","ECX4CHAR","HDQC")
+Hypertension V16 CCS
+"TEMP","ECX4CHAR","HDRC")
+Hypertension V17 CCS
+"TEMP","ECX4CHAR","HEMP")
+Hematology Procedure
+"TEMP","ECX4CHAR","HEPC")
+Hepatitis C Pharmacist
+"TEMP","ECX4CHAR","HIJK")
+Locally Defined H
+"TEMP","ECX4CHAR","HIVD")
+HIV Pharmacist
+"TEMP","ECX4CHAR","HNUR")
+RN managed clinic H
+"TEMP","ECX4CHAR","HOME")
+Residential Screening
+"TEMP","ECX4CHAR","HOTH")
+H Other
+"TEMP","ECX4CHAR","HPRI")
+H Primary Care
+"TEMP","ECX4CHAR","HRED")
+Red Team H
+"TEMP","ECX4CHAR","HSAT")
+Satellite H
+"TEMP","ECX4CHAR","HT00")
+Hypertension Non-Specified Provider
+"TEMP","ECX4CHAR","HTAC")
+Hypertension V1 CCS
+"TEMP","ECX4CHAR","HTBC")
+Hypertension V2 CCS
+"TEMP","ECX4CHAR","HTCC")
+HYPERTENSION CC TEAM
+"TEMP","ECX4CHAR","HTEM")
+H Team
+"TEMP","ECX4CHAR","HTFC")
+Hypertension V6 CCS
+"TEMP","ECX4CHAR","HTNP")
+Hypertension Nurse Practitioner
+"TEMP","ECX4CHAR","HTPA")
+Hypertension Physician Assistant
+"TEMP","ECX4CHAR","HTPH")
+Hypertension Pharmacist
+"TEMP","ECX4CHAR","HTPT")
+Hypertension Physical Therapist
+"TEMP","ECX4CHAR","HTRD")
+Hypertension Registered Dietician
+"TEMP","ECX4CHAR","HTRN")
+Hypertension Registered Nurse
+"TEMP","ECX4CHAR","HTSC")
+Hypertension V18 CCS
+"TEMP","ECX4CHAR","HTSW")
+Hypertension Social Worker
+"TEMP","ECX4CHAR","HTTC")
+Hypertension V19 CCS
+"TEMP","ECX4CHAR","HTUC")
+Hypertension V20 CCS
+"TEMP","ECX4CHAR","HTVC")
+Hypertension V21 CCS
+"TEMP","ECX4CHAR","HTWC")
+Hypertension V22 CCS
+"TEMP","ECX4CHAR","HYEL")
+Yellow Team H
+"TEMP","ECX4CHAR","HYPN")
+Hypnotherapy
+"TEMP","ECX4CHAR","IACT")
+Feeder key inactive before start of current year
+"TEMP","ECX4CHAR","IBLU")
+BLUE TEAM I
+"TEMP","ECX4CHAR","ICBC")
+CBC I
+"TEMP","ECX4CHAR","ICPX")
+C&P CLINIC PROFILE I
+"TEMP","ECX4CHAR","ID00")
+Infectious Disease Non-Specified Provider
+"TEMP","ECX4CHAR","IDAC")
+Infectious Disease V1 CCS
+"TEMP","ECX4CHAR","IDBC")
+Infectious Disease V2 CCS
+"TEMP","ECX4CHAR","IDCC")
+INFECTIOUS DISEASE CC TEAM
+"TEMP","ECX4CHAR","IDDC")
+Infectious Disease V4 CCS
+"TEMP","ECX4CHAR","IDEC")
+Infectious Disease V5 CCS
+"TEMP","ECX4CHAR","IDFC")
+Infectious Disease V6 CCS
+"TEMP","ECX4CHAR","IDGC")
+Infectious Disease V7 CCS
+"TEMP","ECX4CHAR","IDHC")
+Infectious Disease V8 CCS
+"TEMP","ECX4CHAR","IDJC")
+Infectious Disease V9 CCS
+"TEMP","ECX4CHAR","IDKC")
+Infectious Disease V10 CCS
+"TEMP","ECX4CHAR","IDLC")
+Infectious Disease V11 CCS
+"TEMP","ECX4CHAR","IDMC")
+Infectious Disease V12 CCS
+"TEMP","ECX4CHAR","IDNC")
+Infectious Disease V23 CCS
+"TEMP","ECX4CHAR","IDNP")
+Infectious Disease Nurse Practitioner
+"TEMP","ECX4CHAR","IDPA")
+Infectious Disease Physician Assistant
+"TEMP","ECX4CHAR","IDPC")
+Infectious Disease V15 CCS
+"TEMP","ECX4CHAR","IDPH")
+Infectious Disease Pharmacist
+"TEMP","ECX4CHAR","IDPT")
+Infectious Disease Physical Therapist
+"TEMP","ECX4CHAR","IDQC")
+Infectious Disease V16 CCS
+"TEMP","ECX4CHAR","IDRC")
+Infectious Disease V17 CCS
+"TEMP","ECX4CHAR","IDRD")
+Infectious Disease Registered Dietician
+"TEMP","ECX4CHAR","IDRN")
+Infectious Disease Registered Nurse
+"TEMP","ECX4CHAR","IDSC")
+Infectious Disease V18 CCS
+"TEMP","ECX4CHAR","IDSW")
+Infectious Disease Social Worker
+"TEMP","ECX4CHAR","IDTC")
+Infectious Disease V19 CCS
+"TEMP","ECX4CHAR","IDUC")
+Infectious Disease V20 CCS
+"TEMP","ECX4CHAR","IDVC")
+Infectious Disease V21 CCS
+"TEMP","ECX4CHAR","IDWC")
+Infectious Disease V22 CCS
+"TEMP","ECX4CHAR","IJKL")
+Locally Defined I
+"TEMP","ECX4CHAR","IMPH")
+Internal Medicine Pharmacist
+"TEMP","ECX4CHAR","INJX")
+Injection
+"TEMP","ECX4CHAR","INPT")
+Inpatient
+"TEMP","ECX4CHAR","INTE")
+Intern
+"TEMP","ECX4CHAR","INUR")
+RN I
+"TEMP","ECX4CHAR","INVA")
+Invasive Procedure
+"TEMP","ECX4CHAR","IOTH")
+I Other
+"TEMP","ECX4CHAR","IPRI")
+I Primary Care
+"TEMP","ECX4CHAR","IRED")
+RED TEAM I
+"TEMP","ECX4CHAR","ISAT")
+Satellite I
+"TEMP","ECX4CHAR","ITEM")
+I Team
+"TEMP","ECX4CHAR","IVRX")
+IV Drugs/Meds
+"TEMP","ECX4CHAR","IYEL")
+YELLOW TEAM I
+"TEMP","ECX4CHAR","JBLU")
+BLUE TEAM J
+"TEMP","ECX4CHAR","JCBC")
+CBC J
+"TEMP","ECX4CHAR","JCPX")
+C&P CLINIC PROFILE J
+"TEMP","ECX4CHAR","JKLM")
+Locally Defined J
+"TEMP","ECX4CHAR","JNUR")
+RN J
+"TEMP","ECX4CHAR","JOTH")
+J Other
+"TEMP","ECX4CHAR","JPRI")
+J Primary Care
+"TEMP","ECX4CHAR","JRED")
+RED TEAM J
+"TEMP","ECX4CHAR","JSAT")
+Satellite J
+"TEMP","ECX4CHAR","JTEM")
+J Team
+"TEMP","ECX4CHAR","JYEL")
+YELLOW TEAM J
+"TEMP","ECX4CHAR","KBLU")
+BLUE TEAM K
+"TEMP","ECX4CHAR","KCBC")
+CBC K
+"TEMP","ECX4CHAR","KCPX")
+C&P CLINIC PROFILE K
+"TEMP","ECX4CHAR","KLMN")
+Locally Defined K
+"TEMP","ECX4CHAR","KNUR")
+RN K
+"TEMP","ECX4CHAR","KORE")
+Korean War
+"TEMP","ECX4CHAR","KOTH")
+K Other
+"TEMP","ECX4CHAR","KPRI")
+K Primary Care
+"TEMP","ECX4CHAR","KRED")
+RED TEAM K
+"TEMP","ECX4CHAR","KSAT")
+Satellite K
+"TEMP","ECX4CHAR","KTEM")
+K Team
+"TEMP","ECX4CHAR","KTGR")
+KT Group
+"TEMP","ECX4CHAR","KTIN")
+KT Individual
+"TEMP","ECX4CHAR","KYEL")
+YELLOW TEAM K
+"TEMP","ECX4CHAR","LBLU")
+BLUE TEAM L
+"TEMP","ECX4CHAR","LCBC")
+CBC L
+"TEMP","ECX4CHAR","LCPX")
+C&P CLINIC PROFILE L
+"TEMP","ECX4CHAR","LIPD")
+LIPID
+"TEMP","ECX4CHAR","LMNO")
+Locally Defined L
+"TEMP","ECX4CHAR","LNUR")
+RN L
+"TEMP","ECX4CHAR","LOTH")
+L Other
+"TEMP","ECX4CHAR","LPNA")
+LICENSED PRACTICAL NURSE A
+"TEMP","ECX4CHAR","LPNB")
+LICENSED PRACTICAL NURSE B
+"TEMP","ECX4CHAR","LPNC")
+LICENSED PRACTICAL NURSE C
+"TEMP","ECX4CHAR","LPND")
+LICENSED PRACTICAL NURSE D
+"TEMP","ECX4CHAR","LPNE")
+LICENSED PRACTICAL NURSE E
+"TEMP","ECX4CHAR","LPNF")
+LICENSED PRACTICAL NURSE F
+"TEMP","ECX4CHAR","LPNG")
+LICENSED PRACTICAL NURSE G
+"TEMP","ECX4CHAR","LPNH")
+LICENSED PRACTICAL NURSE H
+"TEMP","ECX4CHAR","LPNI")
+LICENSED PRACTICAL NURSE I
+"TEMP","ECX4CHAR","LPNJ")
+LICENSED PRACTICAL NURSE J
+"TEMP","ECX4CHAR","LPNK")
+LICENSED PRACTICAL NURSE K
+"TEMP","ECX4CHAR","LPNL")
+LICENSED PRACTICAL NURSE L
+"TEMP","ECX4CHAR","LPNM")
+LICENSED PRACTICAL NURSE M
+"TEMP","ECX4CHAR","LPNN")
+LICENSED PRACTICAL NURSE N
+"TEMP","ECX4CHAR","LPNO")
+LICENSED PRACTICAL NURSE O
+"TEMP","ECX4CHAR","LPNP")
+LICENSED PRACTICAL NURSE P
+"TEMP","ECX4CHAR","LPNQ")
+LICENSED PRACTICAL NURSE Q
+"TEMP","ECX4CHAR","LPNR")
+LICENSED PRACTICAL NURSE R
+"TEMP","ECX4CHAR","LPNS")
+LICENSED PRACTICAL NURSE S
+"TEMP","ECX4CHAR","LPNT")
+LICENSED PRACTICAL NURSE T
+"TEMP","ECX4CHAR","LPNU")
+LICENSED PRACTICAL NURSE U
+"TEMP","ECX4CHAR","LPNV")
+LICENSED PRACTICAL NURSE V
+"TEMP","ECX4CHAR","LPNW")
+LICENSED PRACTICAL NURSE W
+"TEMP","ECX4CHAR","LPNX")
+LICENSED PRACTICAL NURSE X
+"TEMP","ECX4CHAR","LPNY")
+LICENSED PRACTICAL NURSE Y
+"TEMP","ECX4CHAR","LPNZ")
+LICENSED PRACTICAL NURSE Z
+"TEMP","ECX4CHAR","LPRI")
+L Primary Care
+"TEMP","ECX4CHAR","LRED")
+RED TEAM L
+"TEMP","ECX4CHAR","LSAT")
+Satellite L
+"TEMP","ECX4CHAR","LTEM")
+L Team
+"TEMP","ECX4CHAR","LVL1")
+LEVEL 1
+"TEMP","ECX4CHAR","LVL2")
+LEVEL 2
+"TEMP","ECX4CHAR","LVL3")
+LEVEL 3
+"TEMP","ECX4CHAR","LVL4")
+LEVEL 4
+"TEMP","ECX4CHAR","LVL5")
+LEVEL 5
+"TEMP","ECX4CHAR","LYEL")
+YELLOW TEAM L
+"TEMP","ECX4CHAR","MANT")
+Mantram Repetition
+"TEMP","ECX4CHAR","MATG")
+MAT Group
+"TEMP","ECX4CHAR","MATI")
+MAT Individual
+"TEMP","ECX4CHAR","MBLU")
+BLUE TEAM M
+"TEMP","ECX4CHAR","MBSR")
+Mindfulness-Based Stress Reduction
+"TEMP","ECX4CHAR","MCBC")
+CBC M
+"TEMP","ECX4CHAR","MCPX")
+C&P CLINIC PROFILE M
+"TEMP","ECX4CHAR","MDPA")
+Physician Assistant
+"TEMP","ECX4CHAR","MDTN")
+Meditation
+"TEMP","ECX4CHAR","MDXA")
+PHYSICIAN EXTENDER A
+"TEMP","ECX4CHAR","MDXB")
+PHYSICIAN EXTENDER B
+"TEMP","ECX4CHAR","MDXC")
+PHYSICIAN EXTENDER C
+"TEMP","ECX4CHAR","MDXD")
+PHYSICIAN EXTENDER D
+"TEMP","ECX4CHAR","MDXE")
+PHYSICIAN EXTENDER E
+"TEMP","ECX4CHAR","MDXF")
+PHYSICIAN EXTENDER F
+"TEMP","ECX4CHAR","MDXG")
+PHYSICIAN EXTENDER G
+"TEMP","ECX4CHAR","MDXH")
+PHYSICIAN EXTENDER H
+"TEMP","ECX4CHAR","MDXI")
+PHYSICIAN EXTENDER I
+"TEMP","ECX4CHAR","MDXJ")
+PHYSICIAN EXTENDER J
+"TEMP","ECX4CHAR","MDXK")
+PHYSICIAN EXTENDER K
+"TEMP","ECX4CHAR","MDXL")
+PHYSICIAN EXTENDER L
+"TEMP","ECX4CHAR","MDXM")
+PHYSICIAN EXTENDER M
+"TEMP","ECX4CHAR","MDXN")
+PHYSICIAN EXTENDER N
+"TEMP","ECX4CHAR","MDXO")
+PHYSICIAN EXTENDER O
+"TEMP","ECX4CHAR","MDXP")
+PHYSICIAN EXTENDER P
+"TEMP","ECX4CHAR","MDXQ")
+PHYSICIAN EXTENDER Q
+"TEMP","ECX4CHAR","MDXR")
+PHYSICIAN EXTENDER R
+"TEMP","ECX4CHAR","MDXS")
+PHYSICIAN EXTENDER S
+"TEMP","ECX4CHAR","MDXT")
+PHYSICIAN EXTENDER T
+"TEMP","ECX4CHAR","MDXU")
+PHYSICIAN EXTENDER U
+"TEMP","ECX4CHAR","MDXV")
+PHYSICIAN EXTENDER V
+"TEMP","ECX4CHAR","MDXW")
+PHYSICIAN EXTENDER W
+"TEMP","ECX4CHAR","MDXX")
+PHYSICIAN EXTENDER X
+"TEMP","ECX4CHAR","MDXY")
+PHYSICIAN EXTENDER Y
+"TEMP","ECX4CHAR","MDXZ")
+PHYSICIAN EXTENDER Z
+"TEMP","ECX4CHAR","MH00")
+Mental Health Non-Specified Provider
+"TEMP","ECX4CHAR","MHAC")
+Mental Health V1 CCS
+"TEMP","ECX4CHAR","MHBC")
+Mental Health V2 CCS
+"TEMP","ECX4CHAR","MHCC")
+MENTAL HEALTH CC TEAM
+"TEMP","ECX4CHAR","MHDC")
+Mental Health V4 CCS
+"TEMP","ECX4CHAR","MHEC")
+Mental Health V5 CCS
+"TEMP","ECX4CHAR","MHFC")
+Mental Health V6 CCS
+"TEMP","ECX4CHAR","MHGC")
+Mental Health V7 CCS
+"TEMP","ECX4CHAR","MHHC")
+Mental Health V8 CCS
+"TEMP","ECX4CHAR","MHJC")
+Mental Health V9 CCS
+"TEMP","ECX4CHAR","MHKC")
+Mental Health V10 CCS
+"TEMP","ECX4CHAR","MHLC")
+Mental Health V11 CCS
+"TEMP","ECX4CHAR","MHMC")
+Mental Health V12 CCS
+"TEMP","ECX4CHAR","MHMT")
+Mental Health-MH Therapist
+"TEMP","ECX4CHAR","MHNC")
+Mental Health V23 CCS
+"TEMP","ECX4CHAR","MHNP")
+Mental Health Nurse Practitioner
+"TEMP","ECX4CHAR","MHPA")
+Mental Health Physician Assistant
+"TEMP","ECX4CHAR","MHPC")
+Mental Health V15 CCS
+"TEMP","ECX4CHAR","MHPH")
+Mental Health Pharmacist
+"TEMP","ECX4CHAR","MHPS")
+Mental Health-Psychologist
+"TEMP","ECX4CHAR","MHPT")
+Mental Health Physical Therapist
+"TEMP","ECX4CHAR","MHQC")
+Mental Health V16 CCS
+"TEMP","ECX4CHAR","MHRC")
+Mental Health V17 CCS
+"TEMP","ECX4CHAR","MHRD")
+Mental Health Registered Dietician
+"TEMP","ECX4CHAR","MHRN")
+Mental Health Registered Nurse
+"TEMP","ECX4CHAR","MHSC")
+Mental Health V18 CCS
+"TEMP","ECX4CHAR","MHSW")
+Mental Health Social Worker
+"TEMP","ECX4CHAR","MHTC")
+Mental Health V19 CCS
+"TEMP","ECX4CHAR","MHUC")
+Mental Health V20 CCS
+"TEMP","ECX4CHAR","MHVC")
+Mental Health V21 CCS
+"TEMP","ECX4CHAR","MHWC")
+Mental Health V22 CCS
+"TEMP","ECX4CHAR","MICM")
+MH INTENSIVE CASE MGMT
+"TEMP","ECX4CHAR","MISC")
+Miscellaneous Procedure
+"TEMP","ECX4CHAR","MM00")
+Multiple Co-Morbidities Non-Specified Provider
+"TEMP","ECX4CHAR","MMCC")
+Multiple Co-Morbidities CC Team
+"TEMP","ECX4CHAR","MMMT")
+Multiple CoMorbidities-MH Therapist
+"TEMP","ECX4CHAR","MMNP")
+Multiple Co-Morbidities Nurse Practitioner
+"TEMP","ECX4CHAR","MMPA")
+Multiple Co-Morbidities Physician Assistant
+"TEMP","ECX4CHAR","MMPH")
+Multiple Co-Morbidities Pharmacist
+"TEMP","ECX4CHAR","MMPS")
+Multiple CoMorbidities-Psychologist
+"TEMP","ECX4CHAR","MMPT")
+Multiple Co-Morbidities Physical Therapist
+"TEMP","ECX4CHAR","MMRD")
+Multiple Co-Morbidities Registered Dietician
+"TEMP","ECX4CHAR","MMRN")
+Multiple Co-Morbidities Registered Nurse
+"TEMP","ECX4CHAR","MMSW")
+Multiple Co-Morbidities Social Worker
+"TEMP","ECX4CHAR","MNHM")
+Main Health Maintenance
+"TEMP","ECX4CHAR","MNOP")
+Locally Defined M
+"TEMP","ECX4CHAR","MNUR")
+RN M
+"TEMP","ECX4CHAR","MOTH")
+M Other
+"TEMP","ECX4CHAR","MPAA")
+PHYSICIAN ASSISTANT A
+"TEMP","ECX4CHAR","MPAB")
+PHYSICIAN ASSISTANT B
+"TEMP","ECX4CHAR","MPAC")
+PHYSICIAN ASSISTANT C
+"TEMP","ECX4CHAR","MPAD")
+PHYSICIAN ASSISTANT D
+"TEMP","ECX4CHAR","MPAE")
+PHYSICIAN ASSISTANT E
+"TEMP","ECX4CHAR","MPAF")
+PHYSICIAN ASSISTANT F
+"TEMP","ECX4CHAR","MPAG")
+PHYSICIAN ASSISTANT G
+"TEMP","ECX4CHAR","MPAH")
+PHYSICIAN ASSISTANT H
+"TEMP","ECX4CHAR","MPAI")
+PHYSICIAN ASSISTANT I
+"TEMP","ECX4CHAR","MPAJ")
+PHYSICIAN ASSISTANT J
+"TEMP","ECX4CHAR","MPAK")
+PHYSICIAN ASSISTANT K
+"TEMP","ECX4CHAR","MPAL")
+PHYSICIAN ASSISTANT L
+"TEMP","ECX4CHAR","MPAM")
+PHYSICIAN ASSISTANT M
+"TEMP","ECX4CHAR","MPAN")
+PHYSICIAN ASSISTANT N
+"TEMP","ECX4CHAR","MPAO")
+PHYSICIAN ASSISTANT O
+"TEMP","ECX4CHAR","MPAP")
+PHYSICIAN ASSISTANT P
+"TEMP","ECX4CHAR","MPAQ")
+PHYSICIAN ASSISTANT Q
+"TEMP","ECX4CHAR","MPAR")
+PHYSICIAN ASSISTANT R
+"TEMP","ECX4CHAR","MPAS")
+PHYSICIAN ASSISTANT S
+"TEMP","ECX4CHAR","MPAT")
+PHYSICIAN ASSISTANT T
+"TEMP","ECX4CHAR","MPAU")
+PHYSICIAN ASSISTANT U
+"TEMP","ECX4CHAR","MPAV")
+PHYSICIAN ASSISTANT V
+"TEMP","ECX4CHAR","MPAW")
+PHYSICIAN ASSISTANT W
+"TEMP","ECX4CHAR","MPAX")
+PHYSICIAN ASSISTANT X
+"TEMP","ECX4CHAR","MPAY")
+PHYSICIAN ASSISTANT Y
+"TEMP","ECX4CHAR","MPAZ")
+PHYSICIAN ASSISTANT Z
+"TEMP","ECX4CHAR","MPRI")
+M Primary Care
+"TEMP","ECX4CHAR","MREC")
+Medication Reconciliation Pharmacist
+"TEMP","ECX4CHAR","MRED")
+RED TEAM M
+"TEMP","ECX4CHAR","MSAT")
+Satellite M
+"TEMP","ECX4CHAR","MSCE")
+MS Center of Excellence
+"TEMP","ECX4CHAR","MSGT")
+Massage therapy
+"TEMP","ECX4CHAR","MTEM")
+M Team
+"TEMP","ECX4CHAR","MTFN")
+MTF LIAISON BY NURSE
+"TEMP","ECX4CHAR","MTFS")
+MTF LIAISON BY SW
+"TEMP","ECX4CHAR","MTMP")
+Medication Therapy Management Pharmacist
+"TEMP","ECX4CHAR","MVDT")
+MOVE DIETARY TECHNICIAN
+"TEMP","ECX4CHAR","MVKT")
+MOVE KINESIOTHERAPIST
+"TEMP","ECX4CHAR","MVLP")
+MOVE LICENSED PRACTICAL NURSE
+"TEMP","ECX4CHAR","MVMD")
+MOVE PHYSICIAN
+"TEMP","ECX4CHAR","MVNP")
+MOVE NURSE PRACTITIONER
+"TEMP","ECX4CHAR","MVOO")
+MOVE NON-SPECIFIED PROVIDER
+"TEMP","ECX4CHAR","MVOT")
+MOVE OCCUPATIONAL THERAPIST
+"TEMP","ECX4CHAR","MVPA")
+MOVE PHYSICIAN ASSISTANT
+"TEMP","ECX4CHAR","MVPH")
+MOVE PHARMACIST
+"TEMP","ECX4CHAR","MVPT")
+MOVE PHYSICAL THERAPIST
+"TEMP","ECX4CHAR","MVPY")
+MOVE PSYCHOLOGIST
+"TEMP","ECX4CHAR","MVRD")
+MOVE REGISTERED DIETITIAN
+"TEMP","ECX4CHAR","MVRN")
+MOVE REGISTERED NURSE
+"TEMP","ECX4CHAR","MVRT")
+MOVE RECREATION THERAPIST
+"TEMP","ECX4CHAR","MVSW")
+MOVE SOCIAL WORKER
+"TEMP","ECX4CHAR","MYEL")
+YELLOW TEAM M
+"TEMP","ECX4CHAR","NAHL")
+Native American healing
+"TEMP","ECX4CHAR","NASA")
+NURSE ASSISTANT A
+"TEMP","ECX4CHAR","NASB")
+NURSE ASSISTANT B
+"TEMP","ECX4CHAR","NASC")
+NURSE ASSISTANT C
+"TEMP","ECX4CHAR","NASD")
+NURSE ASSISTANT D
+"TEMP","ECX4CHAR","NASE")
+NURSE ASSISTANT E
+"TEMP","ECX4CHAR","NASF")
+NURSE ASSISTANT F
+"TEMP","ECX4CHAR","NASG")
+NURSE ASSISTANT G
+"TEMP","ECX4CHAR","NASH")
+NURSE ASSISTANT H
+"TEMP","ECX4CHAR","NASI")
+NURSE ASSISTANT I
+"TEMP","ECX4CHAR","NASJ")
+NURSE ASSISTANT J
+"TEMP","ECX4CHAR","NASK")
+NURSE ASSISTANT K
+"TEMP","ECX4CHAR","NASL")
+NURSE ASSISTANT L
+"TEMP","ECX4CHAR","NASM")
+NURSE ASSISTANT M
+"TEMP","ECX4CHAR","NASN")
+NURSE ASSISTANT N
+"TEMP","ECX4CHAR","NASO")
+NURSE ASSISTANT O
+"TEMP","ECX4CHAR","NASP")
+NURSE ASSISTANT P
+"TEMP","ECX4CHAR","NASQ")
+NURSE ASSISTANT Q
+"TEMP","ECX4CHAR","NASR")
+NURSE ASSISTANT R
+"TEMP","ECX4CHAR","NASS")
+Nurse Assistant
+"TEMP","ECX4CHAR","NAST")
+NURSE ASSISTANT T
+"TEMP","ECX4CHAR","NASU")
+NURSE ASSISTANT U
+"TEMP","ECX4CHAR","NASV")
+NURSE ASSISTANT V
+"TEMP","ECX4CHAR","NASW")
+NURSE ASSISTANT W
+"TEMP","ECX4CHAR","NASX")
+NURSE ASSISTANT X
+"TEMP","ECX4CHAR","NASY")
+NURSE ASSISTANT Y
+"TEMP","ECX4CHAR","NASZ")
+NURSE ASSISTANT Z
+"TEMP","ECX4CHAR","NBLU")
+BLUE TEAM N
+"TEMP","ECX4CHAR","NCBC")
+CBC N
+"TEMP","ECX4CHAR","NCCH")
+Nat'lCallCtrforHomelessVets
+"TEMP","ECX4CHAR","NCPX")
+C&P CLINIC PROFILE N
+"TEMP","ECX4CHAR","NDTR")
+Nutrition Diet Tech Registered
+"TEMP","ECX4CHAR","NEUR")
+Neurology Pharmacist
+"TEMP","ECX4CHAR","NFPA")
+Non-Formulary/Prior Approval Pharmacist
+"TEMP","ECX4CHAR","NILC")
+NonInstitutional LTC
+"TEMP","ECX4CHAR","NNUR")
+RN N
+"TEMP","ECX4CHAR","NONC")
+Noncount for DSS (usually point to Stats;AC6)
+"TEMP","ECX4CHAR","NOPQ")
+Locally Defined N
+"TEMP","ECX4CHAR","NOTH")
+N Other
+"TEMP","ECX4CHAR","NPRA")
+NURSE PRACTITIONER A
+"TEMP","ECX4CHAR","NPRB")
+NURSE PRACTITIONER B
+"TEMP","ECX4CHAR","NPRC")
+NURSE PRACTITIONER C
+"TEMP","ECX4CHAR","NPRD")
+NURSE PRACTITIONER D
+"TEMP","ECX4CHAR","NPRE")
+NURSE PRACTITIONER E
+"TEMP","ECX4CHAR","NPRF")
+NURSE PRACTITIONER F
+"TEMP","ECX4CHAR","NPRG")
+NURSE PRACTITIONER G
+"TEMP","ECX4CHAR","NPRH")
+NURSE PRACTITIONER H
+"TEMP","ECX4CHAR","NPRI")
+N Primary Care
+"TEMP","ECX4CHAR","NPRJ")
+NURSE PRACTITIONER J
+"TEMP","ECX4CHAR","NPRK")
+NURSE PRACTITIONER K
+"TEMP","ECX4CHAR","NPRL")
+NURSE PRACTITIONER L
+"TEMP","ECX4CHAR","NPRM")
+NURSE PRACTITIONER M
+"TEMP","ECX4CHAR","NPRN")
+Nurse Practitioner
+"TEMP","ECX4CHAR","NPRO")
+NURSE PRACTITIONER O
+"TEMP","ECX4CHAR","NPRP")
+NURSE PRACTITIONER P
+"TEMP","ECX4CHAR","NPRQ")
+NURSE PRACTITIONER Q
+"TEMP","ECX4CHAR","NPRR")
+NURSE PRACTITIONER R
+"TEMP","ECX4CHAR","NPRS")
+NURSE PRACTITIONER S
+"TEMP","ECX4CHAR","NPRT")
+NURSE PRACTITIONER T
+"TEMP","ECX4CHAR","NPRU")
+NURSE PRACTITIONER U
+"TEMP","ECX4CHAR","NPRV")
+NURSE PRACTITIONER V
+"TEMP","ECX4CHAR","NPRW")
+NURSE PRACTITIONER W
+"TEMP","ECX4CHAR","NPRX")
+NURSE PRACTITIONER X
+"TEMP","ECX4CHAR","NPRY")
+NURSE PRACTITIONER Y
+"TEMP","ECX4CHAR","NPRZ")
+NURSE PRACTITIONER Z
+"TEMP","ECX4CHAR","NRED")
+RED TEAM N
+"TEMP","ECX4CHAR","NSAT")
+Satellite N
+"TEMP","ECX4CHAR","NSPH")
+Nutritional Support Pharmacist
+"TEMP","ECX4CHAR","NTEM")
+N Team
+"TEMP","ECX4CHAR","NUCL")
+Nuclear Medicine Pharmacist
+"TEMP","ECX4CHAR","NUDT")
+Nutrition Diet Tech
+"TEMP","ECX4CHAR","NUMV")
+Nutritionist-MOVE
+"TEMP","ECX4CHAR","NURA")
+NURSE A
+"TEMP","ECX4CHAR","NURB")
+NURSE B
+"TEMP","ECX4CHAR","NURC")
+NURSE C
+"TEMP","ECX4CHAR","NURD")
+NURSE D
+"TEMP","ECX4CHAR","NURE")
+NURSE E
+"TEMP","ECX4CHAR","NURF")
+NURSE F
+"TEMP","ECX4CHAR","NURG")
+NURSE G
+"TEMP","ECX4CHAR","NURH")
+NURSE H
+"TEMP","ECX4CHAR","NURI")
+NURSE I
+"TEMP","ECX4CHAR","NURJ")
+NURSE J
+"TEMP","ECX4CHAR","NURK")
+NURSE K
+"TEMP","ECX4CHAR","NURL")
+NURSE L
+"TEMP","ECX4CHAR","NURM")
+NURSE M
+"TEMP","ECX4CHAR","NURN")
+NURSE N
+"TEMP","ECX4CHAR","NURO")
+NURSE O
+"TEMP","ECX4CHAR","NURP")
+NURSE P
+"TEMP","ECX4CHAR","NURQ")
+NURSE Q
+"TEMP","ECX4CHAR","NURR")
+NURSE R
+"TEMP","ECX4CHAR","NURS")
+Nurse
+"TEMP","ECX4CHAR","NURT")
+NURSE T
+"TEMP","ECX4CHAR","NURU")
+NURSE U
+"TEMP","ECX4CHAR","NURV")
+NURSE V
+"TEMP","ECX4CHAR","NURW")
+NURSE W
+"TEMP","ECX4CHAR","NURX")
+NURSE X
+"TEMP","ECX4CHAR","NURY")
+NURSE Y
+"TEMP","ECX4CHAR","NURZ")
+NURSE Z
+"TEMP","ECX4CHAR","NUTR")
+Nutrition Staff
+"TEMP","ECX4CHAR","NYEL")
+YELLOW TEAM N
+"TEMP","ECX4CHAR","OBLU")
+BLUE TEAM O
+"TEMP","ECX4CHAR","OCBC")
+CBC O
+"TEMP","ECX4CHAR","OCPX")
+C&P CLINIC PROFILE O
+"TEMP","ECX4CHAR","OEFN")
+OEF/OIF CSMG BY NURSE
+"TEMP","ECX4CHAR","OEFS")
+OEF/OIF CSMG BY SOCIAL WORKER
+"TEMP","ECX4CHAR","OFFF")
+Off
+"TEMP","ECX4CHAR","ONCO")
+Oncology Pharmacist
+"TEMP","ECX4CHAR","ONNN")
+On
+"TEMP","ECX4CHAR","ONUR")
+RN O
+"TEMP","ECX4CHAR","OOTH")
+O Other
+"TEMP","ECX4CHAR","OPFT")
+O&P FITTER
+"TEMP","ECX4CHAR","OPOR")
+O&P ORTHOTIST
+"TEMP","ECX4CHAR","OPPE")
+O&P PEDORTHIST
+"TEMP","ECX4CHAR","OPPO")
+O&P PROSTH/ORTH(DUAL)
+"TEMP","ECX4CHAR","OPPR")
+O&P PROSTHETIST
+"TEMP","ECX4CHAR","OPQR")
+Locally Defined O
+"TEMP","ECX4CHAR","OPRI")
+O Primary Care
+"TEMP","ECX4CHAR","OPTC")
+Ophthalmology Technician
+"TEMP","ECX4CHAR","OPTH")
+Ophthalmology Pharmacist
+"TEMP","ECX4CHAR","ORED")
+RED TEAM O
+"TEMP","ECX4CHAR","OSAT")
+Satellite O
+"TEMP","ECX4CHAR","OTEM")
+O Team
+"TEMP","ECX4CHAR","OTGR")
+OT Group
+"TEMP","ECX4CHAR","OTHA")
+Other 1
+"TEMP","ECX4CHAR","OTHB")
+Other 2
+"TEMP","ECX4CHAR","OTHC")
+Other 3
+"TEMP","ECX4CHAR","OTHD")
+Other 4
+"TEMP","ECX4CHAR","OTHE")
+Other 5
+"TEMP","ECX4CHAR","OTHF")
+Other 6
+"TEMP","ECX4CHAR","OTHG")
+Other 7
+"TEMP","ECX4CHAR","OTHH")
+OTHER 8
+"TEMP","ECX4CHAR","OTHI")
+OTHER 9
+"TEMP","ECX4CHAR","OTHJ")
+OTHER 10
+"TEMP","ECX4CHAR","OTHK")
+OTHER 11
+"TEMP","ECX4CHAR","OTHL")
+OTHER 12
+"TEMP","ECX4CHAR","OTHM")
+OTHER 13
+"TEMP","ECX4CHAR","OTHN")
+OTHER 14
+"TEMP","ECX4CHAR","OTHO")
+OTHER 15
+"TEMP","ECX4CHAR","OTHP")
+OTHER 16
+"TEMP","ECX4CHAR","OTHQ")
+OTHER 17
+"TEMP","ECX4CHAR","OTHR")
+OTHER 18
+"TEMP","ECX4CHAR","OTHS")
+OTHER 19
+"TEMP","ECX4CHAR","OTHT")
+OTHER 20
+"TEMP","ECX4CHAR","OTHU")
+OTHER 21
+"TEMP","ECX4CHAR","OTHV")
+OTHER 22
+"TEMP","ECX4CHAR","OTHW")
+OTHER 23
+"TEMP","ECX4CHAR","OTHX")
+OTHER 24
+"TEMP","ECX4CHAR","OTHY")
+OTHER 25
+"TEMP","ECX4CHAR","OTHZ")
+OTHER 26
+"TEMP","ECX4CHAR","OTIN")
+OT Individual
+"TEMP","ECX4CHAR","OUTP")
+Outpatient
+"TEMP","ECX4CHAR","OYEL")
+YELLOW TEAM O
+"TEMP","ECX4CHAR","PACP")
+PACT Anticoag Tm Pharmacist
+"TEMP","ECX4CHAR","PACT")
+Patient Aligned Care Team
+"TEMP","ECX4CHAR","PADR")
+PADRECC
+"TEMP","ECX4CHAR","PBED")
+Pre Bed Care
+"TEMP","ECX4CHAR","PBLU")
+BLUE TEAM P
+"TEMP","ECX4CHAR","PCBC")
+CBC P
+"TEMP","ECX4CHAR","PCCP")
+PHARMACY CALL CTR PHARMACIST
+"TEMP","ECX4CHAR","PCPX")
+C&P CLINIC PROFILE P
+"TEMP","ECX4CHAR","PD00")
+Pulmonary Disease Non-Specified Provider
+"TEMP","ECX4CHAR","PDAC")
+Pulmonary Disease V1 CCS
+"TEMP","ECX4CHAR","PDBC")
+Pulmonary Disease V2 CCS
+"TEMP","ECX4CHAR","PDCC")
+PULMONARY DISEASE CC TEAM
+"TEMP","ECX4CHAR","PDDC")
+Pulmonary Disease V4 CCS
+"TEMP","ECX4CHAR","PDEC")
+Pulmonary Disease V5 CCS
+"TEMP","ECX4CHAR","PDFC")
+Pulmonary Disease V6 CCS
+"TEMP","ECX4CHAR","PDGC")
+Pulmonary Disease V7 CCS
+"TEMP","ECX4CHAR","PDHC")
+Pulmonary Disease V8 CCS
+"TEMP","ECX4CHAR","PDIA")
+PILOT DIALYSIS
+"TEMP","ECX4CHAR","PDJC")
+Pulmonary Disease V9 CCS
+"TEMP","ECX4CHAR","PDKC")
+Pulmonary Disease V10 CCS
+"TEMP","ECX4CHAR","PDLC")
+Pulmonary Disease V11 CCS
+"TEMP","ECX4CHAR","PDMC")
+Pulmonary Disease V12 CCS
+"TEMP","ECX4CHAR","PDNC")
+Pulmonary Disease V23 CCS
+"TEMP","ECX4CHAR","PDNP")
+Pulmonary Disease Nurse Practitioner
+"TEMP","ECX4CHAR","PDPA")
+Pulmonary Disease Physician Assistant
+"TEMP","ECX4CHAR","PDPC")
+Pulmonary Disease V15 CCS
+"TEMP","ECX4CHAR","PDPH")
+Pulmonary Disease Pharmacist
+"TEMP","ECX4CHAR","PDPT")
+Pulmonary Disease Physical Therapist
+"TEMP","ECX4CHAR","PDQC")
+Pulmonary Disease V16 CCS
+"TEMP","ECX4CHAR","PDRC")
+Pulmonary Disease V17 CCS
+"TEMP","ECX4CHAR","PDRD")
+Pulmonary Disease Registered Dietician
+"TEMP","ECX4CHAR","PDRN")
+Pulmonary Disease Registered Nurse
+"TEMP","ECX4CHAR","PDSC")
+Pulmonary Disease V18 CCS
+"TEMP","ECX4CHAR","PDSW")
+Pulmonary Disease Social Worker
+"TEMP","ECX4CHAR","PDTC")
+Pulmonary Disease V19 CCS
+"TEMP","ECX4CHAR","PDUC")
+Pulmonary Disease V20 CCS
+"TEMP","ECX4CHAR","PDVC")
+Pulmonary Disease V21 CCS
+"TEMP","ECX4CHAR","PDWC")
+Pulmonary Disease V22 CCS
+"TEMP","ECX4CHAR","PGEN")
+Pharmacogenomics Pharmacist
+"TEMP","ECX4CHAR","PHRM")
+Clinical Pharmacy
+"TEMP","ECX4CHAR","PILA")
+Pilates
+"TEMP","ECX4CHAR","PIMI")
+Polytrauma Integ Med Init
+"TEMP","ECX4CHAR","PKPH")
+Pharmacokinetics Pharmacist
+"TEMP","ECX4CHAR","PL00")
+Palliative Non-Specified Provider
+"TEMP","ECX4CHAR","PLCC")
+Palliative CC Team
+"TEMP","ECX4CHAR","PLCH")
+PALLIATIVE CHAPLAIN
+"TEMP","ECX4CHAR","PLMT")
+Palliative Care-MH Therapist
+"TEMP","ECX4CHAR","PLNP")
+Palliative Nurse Practitioner
+"TEMP","ECX4CHAR","PLPA")
+Palliative Physician Assistant
+"TEMP","ECX4CHAR","PLPH")
+Palliative Pharmacist
+"TEMP","ECX4CHAR","PLPS")
+Palliative Care-Psychologist
+"TEMP","ECX4CHAR","PLPT")
+Palliative Physical Therapist
+"TEMP","ECX4CHAR","PLRD")
+Palliative Registered Dietician
+"TEMP","ECX4CHAR","PLRN")
+Palliative Registered Nurse
+"TEMP","ECX4CHAR","PLSW")
+Palliative Social Worker
+"TEMP","ECX4CHAR","PLTA")
+PRIMARY CARE PLATINUM A
+"TEMP","ECX4CHAR","PLTB")
+PRIMARY CARE PLATINUM B
+"TEMP","ECX4CHAR","PLTC")
+PRIMARY CARE PLATINUM C
+"TEMP","ECX4CHAR","PLTD")
+PRIMARY CARE PLATINUM D
+"TEMP","ECX4CHAR","PLTE")
+PRIMARY CARE PLATINUM E
+"TEMP","ECX4CHAR","PLTF")
+PRIMARY CARE PLATINUM F
+"TEMP","ECX4CHAR","PLTG")
+PRIMARY CARE PLATINUM G
+"TEMP","ECX4CHAR","PLTH")
+PRIMARY CARE PLATINUM H
+"TEMP","ECX4CHAR","PLTI")
+PRIMARY CARE PLATINUM I
+"TEMP","ECX4CHAR","PLTJ")
+PRIMARY CARE PLATINUM J
+"TEMP","ECX4CHAR","PLTK")
+PRIMARY CARE PLATINUM K
+"TEMP","ECX4CHAR","PLTL")
+PRIMARY CARE PLATINUM L
+"TEMP","ECX4CHAR","PLTM")
+PRIMARY CARE PLATINUM M
+"TEMP","ECX4CHAR","PLTN")
+PRIMARY CARE PLATINUM N
+"TEMP","ECX4CHAR","PLTO")
+PRIMARY CARE PLATINUM O
+"TEMP","ECX4CHAR","PLTP")
+PRIMARY CARE PLATINUM P
+"TEMP","ECX4CHAR","PLTQ")
+PRIMARY CARE PLATINUM Q
+"TEMP","ECX4CHAR","PLTR")
+Polytrauma PRC
+"TEMP","ECX4CHAR","PLTS")
+PRIMARY CARE PLATINUM S
+"TEMP","ECX4CHAR","PLTT")
+PRIMARY CARE PLATINUM T
+"TEMP","ECX4CHAR","PLTU")
+PRIMARY CARE PLATINUM U
+"TEMP","ECX4CHAR","PLTV")
+TBI CVT Telehealth Eval
+"TEMP","ECX4CHAR","PLTW")
+PRIMARY CARE PLATINUM W
+"TEMP","ECX4CHAR","PLTX")
+PRIMARY CARE PLATINUM X
+"TEMP","ECX4CHAR","PLTY")
+PRIMARY CARE PLATINUM Y
+"TEMP","ECX4CHAR","PLTZ")
+PRIMARY CARE PLATINUM Z
+"TEMP","ECX4CHAR","PN00")
+Pain Management Non-Specified Provider
+"TEMP","ECX4CHAR","PNAC")
+Pain Management V1 CCS
+"TEMP","ECX4CHAR","PNBC")
+Pain Management V2 CCS
+"TEMP","ECX4CHAR","PNCC")
+PAIN MANAGEMENT CC TEAM
+"TEMP","ECX4CHAR","PNDC")
+Pain Management V4 CCS
+"TEMP","ECX4CHAR","PNEC")
+Pain Management V5 CCS
+"TEMP","ECX4CHAR","PNFC")
+Pain Management V6 CCS
+"TEMP","ECX4CHAR","PNGC")
+Pain Management V7 CCS
+"TEMP","ECX4CHAR","PNHC")
+Pain Management V8 CCS
+"TEMP","ECX4CHAR","PNJC")
+Pain Management V9 CCS
+"TEMP","ECX4CHAR","PNKC")
+Pain Management V10 CCS
+"TEMP","ECX4CHAR","PNLC")
+Pain Management V11 CCS
+"TEMP","ECX4CHAR","PNMC")
+Pain Management V12 CCS
+"TEMP","ECX4CHAR","PNNC")
+Pain Management V23 CCS
+"TEMP","ECX4CHAR","PNNP")
+Pain Management Nurse Practitioner
+"TEMP","ECX4CHAR","PNPA")
+Pain Management Physician Assistant
+"TEMP","ECX4CHAR","PNPC")
+Pain Management V15 CCS
+"TEMP","ECX4CHAR","PNPH")
+Pain Management Pharmacist
+"TEMP","ECX4CHAR","PNPT")
+Pain Management Physical Therapist
+"TEMP","ECX4CHAR","PNQC")
+Pain Management V16 CCS
+"TEMP","ECX4CHAR","PNRC")
+Pain Management V17 CCS
+"TEMP","ECX4CHAR","PNRD")
+Pain Management Registered Dietician
+"TEMP","ECX4CHAR","PNRN")
+Pain Management Registered Nurse
+"TEMP","ECX4CHAR","PNSC")
+Pain Management V18 CCS
+"TEMP","ECX4CHAR","PNSW")
+Pain Management Social Worker
+"TEMP","ECX4CHAR","PNTC")
+Pain Management V19 CCS
+"TEMP","ECX4CHAR","PNUC")
+Pain Management V20 CCS
+"TEMP","ECX4CHAR","PNUR")
+RN P
+"TEMP","ECX4CHAR","PNVC")
+Pain Management V21 CCS
+"TEMP","ECX4CHAR","PNWC")
+Pain Management V22 CCS
+"TEMP","ECX4CHAR","POLY")
+POLYTRAUMA
+"TEMP","ECX4CHAR","POTH")
+P Other
+"TEMP","ECX4CHAR","POWO")
+Men POWs
+"TEMP","ECX4CHAR","POWW")
+Women POWs
+"TEMP","ECX4CHAR","PPRI")
+P Primary Care
+"TEMP","ECX4CHAR","PQRS")
+Locally Defined P
+"TEMP","ECX4CHAR","PRED")
+RED TEAM P
+"TEMP","ECX4CHAR","PREV")
+Prevention
+"TEMP","ECX4CHAR","PRIA")
+Primary Care Team 1
+"TEMP","ECX4CHAR","PRIB")
+Primary Care Team 2
+"TEMP","ECX4CHAR","PRIC")
+Primary Care Team 3
+"TEMP","ECX4CHAR","PRID")
+Primary Care Team 4
+"TEMP","ECX4CHAR","PRIE")
+Primary Care Team 5
+"TEMP","ECX4CHAR","PRIF")
+PRIMARY CARE TEAM 6
+"TEMP","ECX4CHAR","PRIG")
+PRIMARY CARE TEAM 7
+"TEMP","ECX4CHAR","PRIH")
+PRIMARY CARE TEAM 8
+"TEMP","ECX4CHAR","PRII")
+PRIMARY CARE TEAM 9
+"TEMP","ECX4CHAR","PRIJ")
+PRIMARY CARE TEAM 10
+"TEMP","ECX4CHAR","PRIK")
+PRIMARY CARE TEAM 11
+"TEMP","ECX4CHAR","PRIL")
+PRIMARY CARE TEAM 12
+"TEMP","ECX4CHAR","PRIM")
+PRIMARY CARE TEAM 13
+"TEMP","ECX4CHAR","PRIN")
+PRIMARY CARE TEAM 14
+"TEMP","ECX4CHAR","PRIO")
+PRIMARY CARE TEAM 15
+"TEMP","ECX4CHAR","PRIP")
+PRIMARY CARE TEAM 16
+"TEMP","ECX4CHAR","PRIQ")
+PRIMARY CARE TEAM 17
+"TEMP","ECX4CHAR","PRIR")
+PRIMARY CARE TEAM 18
+"TEMP","ECX4CHAR","PRIS")
+PRIMARY CARE TEAM 19
+"TEMP","ECX4CHAR","PRIT")
+PRIMARY CARE TEAM 20
+"TEMP","ECX4CHAR","PRIU")
+PRIMARY CARE TEAM 21
+"TEMP","ECX4CHAR","PRIV")
+PRIMARY CARE TEAM 22
+"TEMP","ECX4CHAR","PRIW")
+PRIMARY CARE TEAM 23
+"TEMP","ECX4CHAR","PRIX")
+PRIMARY CARE TEAM 24
+"TEMP","ECX4CHAR","PRIY")
+PRIMARY CARE TEAM 25
+"TEMP","ECX4CHAR","PRIZ")
+PRIMARY CARE TEAM 26
+"TEMP","ECX4CHAR","PROC")
+Procedure
+"TEMP","ECX4CHAR","PROP")
+Preoperative
+"TEMP","ECX4CHAR","PSAT")
+Satellite P
+"TEMP","ECX4CHAR","PSOA")
+PSYCHOLOGIST A
+"TEMP","ECX4CHAR","PSOB")
+PSYCHOLOGIST B
+"TEMP","ECX4CHAR","PSOC")
+PSYCHOLOGIST C
+"TEMP","ECX4CHAR","PSOD")
+PSYCHOLOGIST D
+"TEMP","ECX4CHAR","PSOE")
+PSYCHOLOGIST E
+"TEMP","ECX4CHAR","PSYC")
+Psychologist
+"TEMP","ECX4CHAR","PTEM")
+P Team
+"TEMP","ECX4CHAR","PTGR")
+PT Group
+"TEMP","ECX4CHAR","PTIN")
+PT Individual
+"TEMP","ECX4CHAR","PTPH")
+Polytrauma Pharmacist
+"TEMP","ECX4CHAR","PYEL")
+YELLOW TEAM P
+"TEMP","ECX4CHAR","QBLU")
+BLUE TEAM Q
+"TEMP","ECX4CHAR","QCBC")
+CBC Q
+"TEMP","ECX4CHAR","QCPX")
+C&P CLINIC PROFILE Q
+"TEMP","ECX4CHAR","QNUR")
+RN Q
+"TEMP","ECX4CHAR","QOTH")
+Q Other
+"TEMP","ECX4CHAR","QPRI")
+Q Primary Care
+"TEMP","ECX4CHAR","QRED")
+RED TEAM Q
+"TEMP","ECX4CHAR","QRST")
+Locally Defined Q
+"TEMP","ECX4CHAR","QSAT")
+Satellite Q
+"TEMP","ECX4CHAR","QTEM")
+Q Team
+"TEMP","ECX4CHAR","QYEL")
+YELLOW TEAM Q
+"TEMP","ECX4CHAR","RBLU")
+BLUE TEAM R
+"TEMP","ECX4CHAR","RCBC")
+CBC R
+"TEMP","ECX4CHAR","RCPX")
+C&P CLINIC PROFILE R
+"TEMP","ECX4CHAR","RDMV")
+Registered Dietitian-MOVE
+"TEMP","ECX4CHAR","RDNU")
+Nutrition Registered Dietitian
+"TEMP","ECX4CHAR","RECR")
+Recreation Therapy
+"TEMP","ECX4CHAR","REDA")
+PRIMARY CARE RED A
+"TEMP","ECX4CHAR","REDB")
+PRIMARY CARE RED B
+"TEMP","ECX4CHAR","REDC")
+PRIMARY CARE RED C
+"TEMP","ECX4CHAR","REDD")
+PRIMARY CARE RED D
+"TEMP","ECX4CHAR","REDE")
+PRIMARY CARE RED E
+"TEMP","ECX4CHAR","REDF")
+PRIMARY CARE RED F
+"TEMP","ECX4CHAR","REDG")
+PRIMARY CARE RED G
+"TEMP","ECX4CHAR","REDH")
+PRIMARY CARE RED H
+"TEMP","ECX4CHAR","REDI")
+PRIMARY CARE RED I
+"TEMP","ECX4CHAR","REDJ")
+PRIMARY CARE RED J
+"TEMP","ECX4CHAR","REDK")
+PRIMARY CARE RED K
+"TEMP","ECX4CHAR","REDL")
+PRIMARY CARE RED L
+"TEMP","ECX4CHAR","REDM")
+PRIMARY CARE RED M
+"TEMP","ECX4CHAR","REDN")
+PRIMARY CARE RED N
+"TEMP","ECX4CHAR","REDO")
+PRIMARY CARE RED O
+"TEMP","ECX4CHAR","REDP")
+PRIMARY CARE RED P
+"TEMP","ECX4CHAR","REDQ")
+PRIMARY CARE RED Q
+"TEMP","ECX4CHAR","REDR")
+PRIMARY CARE RED R
+"TEMP","ECX4CHAR","REDS")
+PRIMARY CARE RED S
+"TEMP","ECX4CHAR","REDT")
+PRIMARY CARE RED T
+"TEMP","ECX4CHAR","REDU")
+PRIMARY CARE RED U
+"TEMP","ECX4CHAR","REDV")
+PRIMARY CARE RED V
+"TEMP","ECX4CHAR","REDW")
+PRIMARY CARE RED W
+"TEMP","ECX4CHAR","REDX")
+PRIMARY CARE RED X
+"TEMP","ECX4CHAR","REDY")
+PRIMARY CARE RED Y
+"TEMP","ECX4CHAR","REDZ")
+PRIMARY CARE RED Z
+"TEMP","ECX4CHAR","REHA")
+Rehabilitation
+"TEMP","ECX4CHAR","REIK")
+REIKI ALTERNATIVE THERAPY
+"TEMP","ECX4CHAR","RENL")
+RENAL
+"TEMP","ECX4CHAR","REPE")
+Repeat
+"TEMP","ECX4CHAR","RESI")
+Residential Clinic
+"TEMP","ECX4CHAR","RFLX")
+Reflexology
+"TEMP","ECX4CHAR","RH00")
+Rehabilitation Non-Specified Provider
+"TEMP","ECX4CHAR","RHAC")
+Rehabilitation V1 CCS
+"TEMP","ECX4CHAR","RHBC")
+Rehabilitation V2 CCS
+"TEMP","ECX4CHAR","RHCC")
+REHABILITATION CC TEAM
+"TEMP","ECX4CHAR","RHDC")
+Rehabilitation V4 CCS
+"TEMP","ECX4CHAR","RHEC")
+Rehabilitation V5 CCS
+"TEMP","ECX4CHAR","RHFC")
+Rehabilitation V6 CCS
+"TEMP","ECX4CHAR","RHGC")
+Rehabilitation V7 CCS
+"TEMP","ECX4CHAR","RHHC")
+Rehabilitation V8 CCS
+"TEMP","ECX4CHAR","RHJC")
+Rehabilitation V9 CCS
+"TEMP","ECX4CHAR","RHKC")
+Rehabilitation V10 CCS
+"TEMP","ECX4CHAR","RHLC")
+Rehabilitation V11 CCS
+"TEMP","ECX4CHAR","RHMC")
+Rehabilitation V12 CCS
+"TEMP","ECX4CHAR","RHNC")
+Rehabilitation V23 CCS
+"TEMP","ECX4CHAR","RHNP")
+Rehabilitation Nurse Practitioner
+"TEMP","ECX4CHAR","RHPA")
+Rehabilitation Physician Assistant
+"TEMP","ECX4CHAR","RHPC")
+Rehabilitation V15 CCS
+"TEMP","ECX4CHAR","RHPH")
+Rehabilitation Pharmacist
+"TEMP","ECX4CHAR","RHPT")
+Rehabilitation Physical Therapist
+"TEMP","ECX4CHAR","RHQC")
+Rehabilitation V16 CCS
+"TEMP","ECX4CHAR","RHRC")
+Rehabilitation V17 CCS
+"TEMP","ECX4CHAR","RHRD")
+Rehabilitation Registered Dietician
+"TEMP","ECX4CHAR","RHRN")
+Rehabilitation Registered Nurse
+"TEMP","ECX4CHAR","RHSC")
+Rehabilitation V18 CCS
+"TEMP","ECX4CHAR","RHSW")
+Rehabilitation Social Worker
+"TEMP","ECX4CHAR","RHTC")
+Rehabilitation V19 CCS
+"TEMP","ECX4CHAR","RHUC")
+Rehabilitation V20 CCS
+"TEMP","ECX4CHAR","RHUM")
+Rheumatology Pharmacist
+"TEMP","ECX4CHAR","RHVC")
+Rehabilitation V21 CCS
+"TEMP","ECX4CHAR","RHWC")
+Rehabilitation V22 CCS
+"TEMP","ECX4CHAR","RLXT")
+Relaxation techniques
+"TEMP","ECX4CHAR","RNNA")
+REGISTERED NURSE A
+"TEMP","ECX4CHAR","RNNB")
+REGISTERED NURSE B
+"TEMP","ECX4CHAR","RNNC")
+REGISTERED NURSE C
+"TEMP","ECX4CHAR","RNND")
+REGISTERED NURSE D
+"TEMP","ECX4CHAR","RNNE")
+REGISTERED NURSE E
+"TEMP","ECX4CHAR","RNNF")
+REGISTERED NURSE F
+"TEMP","ECX4CHAR","RNNG")
+REGISTERED NURSE G
+"TEMP","ECX4CHAR","RNNH")
+REGISTERED NURSE H
+"TEMP","ECX4CHAR","RNNI")
+REGISTERED NURSE I
+"TEMP","ECX4CHAR","RNNJ")
+REGISTERED NURSE J
+"TEMP","ECX4CHAR","RNNK")
+REGISTERED NURSE K
+"TEMP","ECX4CHAR","RNNL")
+REGISTERED NURSE L
+"TEMP","ECX4CHAR","RNNM")
+REGISTERED NURSE M
+"TEMP","ECX4CHAR","RNNN")
+REGISTERED NURSE N
+"TEMP","ECX4CHAR","RNNO")
+REGISTERED NURSE O
+"TEMP","ECX4CHAR","RNNP")
+REGISTERED NURSE P
+"TEMP","ECX4CHAR","RNNQ")
+REGISTERED NURSE Q
+"TEMP","ECX4CHAR","RNNR")
+REGISTERED NURSE R
+"TEMP","ECX4CHAR","RNNS")
+REGISTERED NURSE S
+"TEMP","ECX4CHAR","RNNT")
+REGISTERED NURSE T
+"TEMP","ECX4CHAR","RNNU")
+REGISTERED NURSE U
+"TEMP","ECX4CHAR","RNNV")
+REGISTERED NURSE V
+"TEMP","ECX4CHAR","RNNW")
+REGISTERED NURSE W
+"TEMP","ECX4CHAR","RNNX")
+REGISTERED NURSE X
+"TEMP","ECX4CHAR","RNNY")
+REGISTERED NURSE Y
+"TEMP","ECX4CHAR","RNNZ")
+REGISTERED NURSE Z
+"TEMP","ECX4CHAR","RNUR")
+RN R
+"TEMP","ECX4CHAR","ROTH")
+R Other
+"TEMP","ECX4CHAR","RPRI")
+R Primary Care
+"TEMP","ECX4CHAR","RRED")
+RED TEAM R
+"TEMP","ECX4CHAR","RSAT")
+Satellite R
+"TEMP","ECX4CHAR","RSCH")
+Research Activities
+"TEMP","ECX4CHAR","RSTU")
+Locally Defined R
+"TEMP","ECX4CHAR","RTEM")
+R Team
+"TEMP","ECX4CHAR","RV15")
+RVU 15 MINUTES HIGHER THAN MATRIX
+"TEMP","ECX4CHAR","RV20")
+RVU 20 MINUTES HIGHER THAN MATRIX
+"TEMP","ECX4CHAR","RV30")
+RVU 30 MINUTES HIGHER THAN MATRIX
+"TEMP","ECX4CHAR","RV45")
+RVU 45 MINUTES HIGHER THAN MATRIX
+"TEMP","ECX4CHAR","RV60")
+RVU 60 MINUTES HIGHER THAN MATRIX
+"TEMP","ECX4CHAR","RXMN")
+Medication (such as Coumadin) Monitoring
+"TEMP","ECX4CHAR","RYEL")
+YELLOW TEAM R
+"TEMP","ECX4CHAR","SATA")
+Satellite Clinic A
+"TEMP","ECX4CHAR","SATB")
+Satellite Clinic B
+"TEMP","ECX4CHAR","SATC")
+SATELLITE CLINIC C
+"TEMP","ECX4CHAR","SATD")
+SATELLITE CLINIC D
+"TEMP","ECX4CHAR","SATE")
+SATELLITE CLINIC E
+"TEMP","ECX4CHAR","SATF")
+SATELLITE CLINIC F
+"TEMP","ECX4CHAR","SATG")
+SATELLITE CLINIC G
+"TEMP","ECX4CHAR","SATH")
+SATELLITE CLINIC H
+"TEMP","ECX4CHAR","SATI")
+SATELLITE CLINIC I
+"TEMP","ECX4CHAR","SATJ")
+SATELLITE CLINIC J
+"TEMP","ECX4CHAR","SATK")
+SATELLITE CLINIC K
+"TEMP","ECX4CHAR","SATL")
+SATELLITE CLINIC L
+"TEMP","ECX4CHAR","SATM")
+SATELLITE CLINIC M
+"TEMP","ECX4CHAR","SATN")
+SATELLITE CLINIC N
+"TEMP","ECX4CHAR","SATO")
+SATELLITE CLINIC O
+"TEMP","ECX4CHAR","SATP")
+Substance Abuse Treatment Program
+"TEMP","ECX4CHAR","SATQ")
+SATELLITE CLINIC Q
+"TEMP","ECX4CHAR","SATR")
+SATELLITE CLINIC R
+"TEMP","ECX4CHAR","SATS")
+SATELLITE CLINIC S
+"TEMP","ECX4CHAR","SATT")
+SATELLITE CLINIC T
+"TEMP","ECX4CHAR","SATU")
+SATELLITE CLINIC U
+"TEMP","ECX4CHAR","SATV")
+SATELLITE CLINIC V
+"TEMP","ECX4CHAR","SATW")
+SATELLITE CLINIC W
+"TEMP","ECX4CHAR","SATX")
+SATELLITE CLINIC X
+"TEMP","ECX4CHAR","SATY")
+SATELLITE CLINIC Y
+"TEMP","ECX4CHAR","SATZ")
+SATELLITE CLINIC Z
+"TEMP","ECX4CHAR","SBLU")
+BLUE TEAM S
+"TEMP","ECX4CHAR","SC00")
+SCI Non-Specified Provider
+"TEMP","ECX4CHAR","SCAC")
+Spinal Cord Injured V1 CCS
+"TEMP","ECX4CHAR","SCBC")
+CBC S
+"TEMP","ECX4CHAR","SCCC")
+SCI CC TEAM
+"TEMP","ECX4CHAR","SCDC")
+Spinal Cord Injured V4 CCS
+"TEMP","ECX4CHAR","SCEC")
+Spinal Cord Injured V5 CCS
+"TEMP","ECX4CHAR","SCFC")
+Spinal Cord Injured V6 CCS
+"TEMP","ECX4CHAR","SCGC")
+Spinal Cord Injured V7 CCS
+"TEMP","ECX4CHAR","SCHC")
+Spinal Cord Injured V8 CCS
+"TEMP","ECX4CHAR","SCJC")
+Spinal Cord Injured V9 CCS
+"TEMP","ECX4CHAR","SCKC")
+Spinal Cord Injured V10 CCS
+"TEMP","ECX4CHAR","SCLC")
+Spinal Cord Injured V11 CCS
+"TEMP","ECX4CHAR","SCMC")
+Spinal Cord Injured V12 CCS
+"TEMP","ECX4CHAR","SCNC")
+Spinal Cord Injured V23 CCS
+"TEMP","ECX4CHAR","SCNP")
+SCI Nurse Practitioner
+"TEMP","ECX4CHAR","SCPA")
+SCI Physician Assistant
+"TEMP","ECX4CHAR","SCPC")
+Spinal Cord Injured V15 CCS
+"TEMP","ECX4CHAR","SCPH")
+SCI Pharmacist
+"TEMP","ECX4CHAR","SCPT")
+SCI Physical Therapist
+"TEMP","ECX4CHAR","SCPX")
+C&P CLINIC PROFILE S
+"TEMP","ECX4CHAR","SCQC")
+Spinal Cord Injured V16 CCS
+"TEMP","ECX4CHAR","SCRD")
+SCI Registered Dietician
+"TEMP","ECX4CHAR","SCRE")
+Screening
+"TEMP","ECX4CHAR","SCRN")
+SCI Registered Nurse
+"TEMP","ECX4CHAR","SCSC")
+Spinal Cord Injured V18 CCS
+"TEMP","ECX4CHAR","SCSW")
+SCI Social Worker
+"TEMP","ECX4CHAR","SCTC")
+Spinal Cord Injured V19 CCS
+"TEMP","ECX4CHAR","SCUC")
+Spinal Cord Injured V20 CCS
+"TEMP","ECX4CHAR","SCVT")
+Service Connected
+"TEMP","ECX4CHAR","SCWC")
+Spinal Cord Injured V22 CCS
+"TEMP","ECX4CHAR","SIGO")
+Single
+"TEMP","ECX4CHAR","SMOP")
+Smk Cessation Pharmacist
+"TEMP","ECX4CHAR","SNRC")
+Spinal Cord Injured V17 CCS
+"TEMP","ECX4CHAR","SNUR")
+RN S
+"TEMP","ECX4CHAR","SNVC")
+Spinal Cord Injured V21 CCS
+"TEMP","ECX4CHAR","SOCW")
+Social Worker
+"TEMP","ECX4CHAR","SOTH")
+S Other
+"TEMP","ECX4CHAR","SPAP")
+SpcltyCare Anticoag Pharmacist
+"TEMP","ECX4CHAR","SPCH")
+Specialty Care Pharmacist
+"TEMP","ECX4CHAR","SPEC")
+Special
+"TEMP","ECX4CHAR","SPGP")
+Single Provider - Group of Patients
+"TEMP","ECX4CHAR","SPIN")
+Single Provider - Individual Patient
+"TEMP","ECX4CHAR","SPRI")
+S Primary Care
+"TEMP","ECX4CHAR","SRED")
+RED TEAM S
+"TEMP","ECX4CHAR","SSAT")
+Satellite S
+"TEMP","ECX4CHAR","SSFU")
+Stop Smoke Follow-up - Individual Patient
+"TEMP","ECX4CHAR","SSGD")
+Stop Smoking Group Double Provider
+"TEMP","ECX4CHAR","STAT")
+Point to Statistics in DSS
+"TEMP","ECX4CHAR","STEM")
+S Team
+"TEMP","ECX4CHAR","STRU")
+Structure Learning - Group of Patients
+"TEMP","ECX4CHAR","STUD")
+Student Provider - Individual Patient
+"TEMP","ECX4CHAR","STUV")
+Locally Defined S
+"TEMP","ECX4CHAR","SUPH")
+Surgery/Anesthesia/OR Pharmacist
+"TEMP","ECX4CHAR","SVRA")
+PRIMARY CARE SILVER A
+"TEMP","ECX4CHAR","SVRB")
+PRIMARY CARE SILVER B
+"TEMP","ECX4CHAR","SVRC")
+PRIMARY CARE SILVER C
+"TEMP","ECX4CHAR","SVRD")
+PRIMARY CARE SILVER D
+"TEMP","ECX4CHAR","SVRE")
+PRIMARY CARE SILVER E
+"TEMP","ECX4CHAR","SVRF")
+PRIMARY CARE SILVER F
+"TEMP","ECX4CHAR","SVRG")
+PRIMARY CARE SILVER G
+"TEMP","ECX4CHAR","SVRH")
+PRIMARY CARE SILVER H
+"TEMP","ECX4CHAR","SVRI")
+PRIMARY CARE SILVER I
+"TEMP","ECX4CHAR","SVRJ")
+PRIMARY CARE SILVER J
+"TEMP","ECX4CHAR","SVRK")
+PRIMARY CARE SILVER K
+"TEMP","ECX4CHAR","SVRL")
+PRIMARY CARE SILVER L
+"TEMP","ECX4CHAR","SVRM")
+PRIMARY CARE SILVER M
+"TEMP","ECX4CHAR","SVRN")
+PRIMARY CARE SILVER N
+"TEMP","ECX4CHAR","SVRO")
+PRIMARY CARE SILVER O
+"TEMP","ECX4CHAR","SVRP")
+PRIMARY CARE SILVER P
+"TEMP","ECX4CHAR","SVRQ")
+PRIMARY CARE SILVER Q
+"TEMP","ECX4CHAR","SVRR")
+PRIMARY CARE SILVER R
+"TEMP","ECX4CHAR","SVRS")
+PRIMARY CARE SILVER S
+"TEMP","ECX4CHAR","SVRT")
+PRIMARY CARE SILVER T
+"TEMP","ECX4CHAR","SVRU")
+PRIMARY CARE SILVER U
+"TEMP","ECX4CHAR","SVRV")
+PRIMARY CARE SILVER V
+"TEMP","ECX4CHAR","SVRW")
+PRIMARY CARE SILVER W
+"TEMP","ECX4CHAR","SVRX")
+PRIMARY CARE SILVER X
+"TEMP","ECX4CHAR","SVRY")
+PRIMARY CARE SILVER Y
+"TEMP","ECX4CHAR","SVRZ")
+PRIMARY CARE SILVER Z
+"TEMP","ECX4CHAR","SYEL")
+YELLOW TEAM S
+"TEMP","ECX4CHAR","TAIC")
+Tai chi
+"TEMP","ECX4CHAR","TBLU")
+BLUE TEAM T
+"TEMP","ECX4CHAR","TCBC")
+CBC T
+"TEMP","ECX4CHAR","TCPX")
+C&P CLINIC PROFILE T
+"TEMP","ECX4CHAR","TDIS")
+Thought Disorder - Group of Patients
+"TEMP","ECX4CHAR","TECH")
+Technician
+"TEMP","ECX4CHAR","TENS")
+TENS Clinic in PM&R
+"TEMP","ECX4CHAR","TNUR")
+RN T
+"TEMP","ECX4CHAR","TOTH")
+T Other
+"TEMP","ECX4CHAR","TPGP")
+Three or More Providers - Group of Patients
+"TEMP","ECX4CHAR","TPHT")
+Therapeutic or healing touch
+"TEMP","ECX4CHAR","TPIN")
+Three or More Providers - Individual Patient
+"TEMP","ECX4CHAR","TPRI")
+T Primary Care
+"TEMP","ECX4CHAR","TRAN")
+Pre- and Post-Transplant Clinical Activities
+"TEMP","ECX4CHAR","TRED")
+RED TEAM T
+"TEMP","ECX4CHAR","TSAT")
+Satellite T
+"TEMP","ECX4CHAR","TTEM")
+T Team
+"TEMP","ECX4CHAR","TUVW")
+Locally Defined T
+"TEMP","ECX4CHAR","TYEL")
+YELLOW TEAM T
+"TEMP","ECX4CHAR","UBLU")
+BLUE TEAM U
+"TEMP","ECX4CHAR","UCBC")
+CBC U
+"TEMP","ECX4CHAR","UCPX")
+C&P CLINIC PROFILE U
+"TEMP","ECX4CHAR","UNSC")
+Unscheduled Clinic
+"TEMP","ECX4CHAR","UNUR")
+RN U
+"TEMP","ECX4CHAR","UOTH")
+U Other
+"TEMP","ECX4CHAR","UPRI")
+U Primary Care
+"TEMP","ECX4CHAR","URED")
+RED TEAM U
+"TEMP","ECX4CHAR","USAT")
+Satellite U
+"TEMP","ECX4CHAR","UTEM")
+U Team
+"TEMP","ECX4CHAR","UVWX")
+Locally Defined U
+"TEMP","ECX4CHAR","UYEL")
+YELLOW TEAM U
+"TEMP","ECX4CHAR","VBLU")
+BLUE TEAM V
+"TEMP","ECX4CHAR","VCBC")
+CBC V
+"TEMP","ECX4CHAR","VCPX")
+C&P CLINIC PROFILE V
+"TEMP","ECX4CHAR","VDHC")
+VET DIRECTED HOME CARE
+"TEMP","ECX4CHAR","VGCH")
+CVT GRP CHAPLAIN
+"TEMP","ECX4CHAR","VGCP")
+CVT GRP CLINICAL PHARMACIST
+"TEMP","ECX4CHAR","VGMD")
+CVT GRP PHYSICIAN
+"TEMP","ECX4CHAR","VGNP")
+CVT GRP NURS PRACT
+"TEMP","ECX4CHAR","VGOT")
+CVT GRP OCCUP THER
+"TEMP","ECX4CHAR","VGPO")
+CVT GRP PSYCHOLOGIST
+"TEMP","ECX4CHAR","VGPT")
+CVT GRP PHYS THER
+"TEMP","ECX4CHAR","VGRD")
+CVT GRP REGISTERED DIETICIAN
+"TEMP","ECX4CHAR","VGRN")
+CVT GRP REG NURS
+"TEMP","ECX4CHAR","VGRT")
+CVT GRP REC THER
+"TEMP","ECX4CHAR","VGSW")
+CVT GRP SOC WRK
+"TEMP","ECX4CHAR","VIET")
+Vietnam War
+"TEMP","ECX4CHAR","VITL")
+VITAL Initiative
+"TEMP","ECX4CHAR","VL1A")
+VL CATEGORY 1 A
+"TEMP","ECX4CHAR","VL1B")
+VL CATEGORY 1 B
+"TEMP","ECX4CHAR","VL1C")
+VL CATEGORY 1 C
+"TEMP","ECX4CHAR","VL1D")
+VL CATEGORY 1 D
+"TEMP","ECX4CHAR","VL2A")
+VL CATEGORY 2 A
+"TEMP","ECX4CHAR","VL2B")
+VL CATEGORY 2 B
+"TEMP","ECX4CHAR","VL2C")
+VL CATEGORY 2 C
+"TEMP","ECX4CHAR","VL2D")
+VL CATEGORY 2 D
+"TEMP","ECX4CHAR","VL4A")
+VL CATEGORY 4 A
+"TEMP","ECX4CHAR","VL4B")
+VL CATEGORY 4 B
+"TEMP","ECX4CHAR","VL4C")
+VL CATEGORY 4 C
+"TEMP","ECX4CHAR","VL4D")
+VL CATEGORY 4 D
+"TEMP","ECX4CHAR","VL5A")
+VL CATEGORY 5 A
+"TEMP","ECX4CHAR","VL5B")
+VL CATEGORY 5 B
+"TEMP","ECX4CHAR","VL5C")
+VL CATEGORY 5 C
+"TEMP","ECX4CHAR","VL5D")
+VL CATEGORY 5 D
+"TEMP","ECX4CHAR","VNUR")
+RN V
+"TEMP","ECX4CHAR","VOTH")
+V Other
+"TEMP","ECX4CHAR","VPRI")
+V Primary Care
+"TEMP","ECX4CHAR","VRED")
+RED TEAM V
+"TEMP","ECX4CHAR","VSAT")
+Satellite V
+"TEMP","ECX4CHAR","VTEM")
+V Team
+"TEMP","ECX4CHAR","VWXY")
+Locally Defined V
+"TEMP","ECX4CHAR","VYEL")
+YELLOW TEAM V
+"TEMP","ECX4CHAR","WBLU")
+BLUE TEAM W
+"TEMP","ECX4CHAR","WC00")
+Wound Care Non-Specified Provider
+"TEMP","ECX4CHAR","WCAC")
+Wound Care V1 CCS
+"TEMP","ECX4CHAR","WCBC")
+CBC W
+"TEMP","ECX4CHAR","WCCC")
+WOUND CARE CC TEAM
+"TEMP","ECX4CHAR","WCDC")
+Wound Care V4 CCS
+"TEMP","ECX4CHAR","WCEC")
+Wound Care V5 CCS
+"TEMP","ECX4CHAR","WCFC")
+Wound Care V6 CCS
+"TEMP","ECX4CHAR","WCGC")
+Wound Care V7 CCS
+"TEMP","ECX4CHAR","WCHC")
+Wound Care V8 CCS
+"TEMP","ECX4CHAR","WCHR")
+Wheelchair
+"TEMP","ECX4CHAR","WCJC")
+Wound Care V9 CCS
+"TEMP","ECX4CHAR","WCKC")
+Wound Care V10 CCS
+"TEMP","ECX4CHAR","WCLC")
+Wound Care V11 CCS
+"TEMP","ECX4CHAR","WCMC")
+Wound Care V12 CCS
+"TEMP","ECX4CHAR","WCNC")
+VITAL Initiative (temp)
+"TEMP","ECX4CHAR","WCNP")
+Wound Care Nurse Practitioner
+"TEMP","ECX4CHAR","WCPA")
+Wound Care Physician Assistant
+"TEMP","ECX4CHAR","WCPC")
+Wound Care V15 CCS
+"TEMP","ECX4CHAR","WCPH")
+Wound Care Pharmacist
+"TEMP","ECX4CHAR","WCPT")
+Wound Care Physical Therapist
+"TEMP","ECX4CHAR","WCPX")
+C&P CLINIC PROFILE W
+"TEMP","ECX4CHAR","WCQC")
+Wound Care V16 CCS
+"TEMP","ECX4CHAR","WCRC")
+Wound Care V17 CCS
+"TEMP","ECX4CHAR","WCRD")
+Wound Care Registered Dietician
+"TEMP","ECX4CHAR","WCRN")
+Wound Care Registered Nurse
+"TEMP","ECX4CHAR","WCSC")
+Wound Care V18 CCS
+"TEMP","ECX4CHAR","WCSW")
+Wound Care Social Worker
+"TEMP","ECX4CHAR","WCTC")
+Wound Care V19 CCS
+"TEMP","ECX4CHAR","WCUC")
+Wound Care V20 CCS
+"TEMP","ECX4CHAR","WCVC")
+Wound Care V21 CCS
+"TEMP","ECX4CHAR","WCWC")
+Wound Care V22 CCS
+"TEMP","ECX4CHAR","WMPH")
+Women's Health Pharmacist
+"TEMP","ECX4CHAR","WNUR")
+RN W
+"TEMP","ECX4CHAR","WOTH")
+W Other
+"TEMP","ECX4CHAR","WPRI")
+W Primary Care
+"TEMP","ECX4CHAR","WRED")
+RED TEAM W
+"TEMP","ECX4CHAR","WSAT")
+Satellite W
+"TEMP","ECX4CHAR","WTEM")
+W Team
+"TEMP","ECX4CHAR","WXYZ")
+Locally Defined W
+"TEMP","ECX4CHAR","WYEL")
+YELLOW TEAM W
+"TEMP","ECX4CHAR","XBLU")
+BLUE TEAM X
+"TEMP","ECX4CHAR","XCBC")
+CBC X
+"TEMP","ECX4CHAR","XCPX")
+C&P CLINIC PROFILE X
+"TEMP","ECX4CHAR","XNUR")
+RN X
+"TEMP","ECX4CHAR","XOTH")
+X Other
+"TEMP","ECX4CHAR","XPRI")
+X Primary Care
+"TEMP","ECX4CHAR","XREC")
+Feeder key to create more complete encounter
+"TEMP","ECX4CHAR","XRED")
+RED TEAM X
+"TEMP","ECX4CHAR","XSAT")
+Satellite X
+"TEMP","ECX4CHAR","XTEM")
+X Team
+"TEMP","ECX4CHAR","XXXX")
+General Purpose 3 - assign own use
+"TEMP","ECX4CHAR","XYEL")
+YELLOW TEAM X
+"TEMP","ECX4CHAR","XYZA")
+Locally Defined X
+"TEMP","ECX4CHAR","YBLU")
+BLUE TEAM Y
+"TEMP","ECX4CHAR","YCBC")
+CBC Y
+"TEMP","ECX4CHAR","YCPX")
+C&P CLINIC PROFILE Y
+"TEMP","ECX4CHAR","YELA")
+PRIMARY CARE YELLOW A
+"TEMP","ECX4CHAR","YELB")
+PRIMARY CARE YELLOW B
+"TEMP","ECX4CHAR","YELC")
+PRIMARY CARE YELLOW C
+"TEMP","ECX4CHAR","YELD")
+PRIMARY CARE YELLOW D
+"TEMP","ECX4CHAR","YELE")
+PRIMARY CARE YELLOW E
+"TEMP","ECX4CHAR","YELF")
+PRIMARY CARE YELLOW F
+"TEMP","ECX4CHAR","YELG")
+PRIMARY CARE YELLOW G
+"TEMP","ECX4CHAR","YELH")
+PRIMARY CARE YELLOW H
+"TEMP","ECX4CHAR","YELI")
+PRIMARY CARE YELLOW I
+"TEMP","ECX4CHAR","YELJ")
+PRIMARY CARE YELLOW J
+"TEMP","ECX4CHAR","YELK")
+PRIMARY CARE YELLOW K
+"TEMP","ECX4CHAR","YELL")
+PRIMARY CARE YELLOW L
+"TEMP","ECX4CHAR","YELM")
+PRIMARY CARE YELLOW M
+"TEMP","ECX4CHAR","YELN")
+PRIMARY CARE YELLOW N
+"TEMP","ECX4CHAR","YELO")
+PRIMARY CARE YELLOW O
+"TEMP","ECX4CHAR","YELP")
+PRIMARY CARE YELLOW P
+"TEMP","ECX4CHAR","YELQ")
+PRIMARY CARE YELLOW Q
+"TEMP","ECX4CHAR","YELR")
+PRIMARY CARE YELLOW R
+"TEMP","ECX4CHAR","YELS")
+PRIMARY CARE YELLOW S
+"TEMP","ECX4CHAR","YELT")
+PRIMARY CARE YELLOW T
+"TEMP","ECX4CHAR","YELU")
+PRIMARY CARE YELLOW U
+"TEMP","ECX4CHAR","YELV")
+PRIMARY CARE YELLOW V
+"TEMP","ECX4CHAR","YELW")
+PRIMARY CARE YELLOW W
+"TEMP","ECX4CHAR","YELX")
+PRIMARY CARE YELLOW X
+"TEMP","ECX4CHAR","YELY")
+PRIMARY CARE YELLOW Y
+"TEMP","ECX4CHAR","YELZ")
+PRIMARY CARE YELLOW Z
+"TEMP","ECX4CHAR","YNUR")
+RN Y
+"TEMP","ECX4CHAR","YOGA")
+Yoga
+"TEMP","ECX4CHAR","YOTH")
+Y Other
+"TEMP","ECX4CHAR","YPRI")
+Y Primary Care
+"TEMP","ECX4CHAR","YRED")
+RED TEAM Y
+"TEMP","ECX4CHAR","YSAT")
+Satellite Y
+"TEMP","ECX4CHAR","YTEM")
+Y Team
+"TEMP","ECX4CHAR","YYEL")
+YELLOW TEAM Y
+"TEMP","ECX4CHAR","YYYY")
+General Purpose 4 - assign own use
+"TEMP","ECX4CHAR","YZAB")
+Locally Defined Y
+"TEMP","ECX4CHAR","ZABC")
+Locally Defined Z
+"TEMP","ECX4CHAR","ZBLU")
+BLUE TEAM Z
+"TEMP","ECX4CHAR","ZCBC")
+CBC Z
+"TEMP","ECX4CHAR","ZCPX")
+C&P CLINIC PROFILE Z
+"TEMP","ECX4CHAR","ZNUR")
+RN Z
+"TEMP","ECX4CHAR","ZOTH")
+Z Other
+"TEMP","ECX4CHAR","ZPRI")
+Z Primary Care
+"TEMP","ECX4CHAR","ZRED")
+RED TEAM Z
+"TEMP","ECX4CHAR","ZSAT")
+Satellite Z
+"TEMP","ECX4CHAR","ZTEM")
+Z Team
+"TEMP","ECX4CHAR","ZYEL")
+YELLOW TEAM Z
+"TEMP","ECX4CHAR","ZZZZ")
+No Longer Active
+"UP",728.441,728.4412,-1)
+728.441^1
+"UP",728.441,728.4412,0)
+728.4412
+"VER")
+8.0^22.0
+"^DD",727.802,727.802,65,0)
+RACE 1^F^^1;29^K:$L(X)>6!($L(X)<1) X
+"^DD",727.802,727.802,65,.1)
+Race 1
+"^DD",727.802,727.802,65,3)
+Answer must be 1-6 characters in length.
+"^DD",727.802,727.802,65,21,0)
+^.001^1^1^3130219^^^^
+"^DD",727.802,727.802,65,21,1,0)
+Self-reported by patient as recorded in VistA patient file.
+"^DD",727.802,727.802,65,23,0)
+^^17^17^3130219^
+"^DD",727.802,727.802,65,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field
+"^DD",727.802,727.802,65,23,2,0)
+(#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file
+"^DD",727.802,727.802,65,23,3,0)
+(#10) pointed to by the RACE INFORMATION field (#.01) of the
+"^DD",727.802,727.802,65,23,4,0)
+RACE INFORMATION subfile (#2.02) of the PATIENT file (#2).
+"^DD",727.802,727.802,65,23,5,0)
+
+"^DD",727.802,727.802,65,23,6,0)
+Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)
+"^DD",727.802,727.802,65,23,7,0)
+where the METHOD OF COLLECTION field (#.02) is set to 1
+"^DD",727.802,727.802,65,23,8,0)
+(SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race
+"^DD",727.802,727.802,65,23,9,0)
+entries can be included. If any of the RACE INFORMATION values returned is
+"^DD",727.802,727.802,65,23,10,0)
+"C" (DECLINED TO ANSWER), that will be the only value included in the
+"^DD",727.802,727.802,65,23,11,0)
+RACE1 field.
+"^DD",727.802,727.802,65,23,12,0)
+
+"^DD",727.802,727.802,65,23,13,0)
+If the RACE 1 field is null after checking the RACE INFORMATION values
+"^DD",727.802,727.802,65,23,14,0)
+then the patient's historical RACE data will be checked to see if it
+"^DD",727.802,727.802,65,23,15,0)
+contains one of the twenty six non-standard race values that are
+"^DD",727.802,727.802,65,23,16,0)
+convertible to standard race values. If so, the race value will be
+"^DD",727.802,727.802,65,23,17,0)
+converted to the standard value and stored in the RACE 1 field.
+"^DD",727.802,727.802,65,"DT")
+3020828
+"^DD",727.802,727.802,94,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^2;13^Q
+"^DD",727.802,727.802,94,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.802,727.802,94,21,0)
+^.001^2^2^3130503^^
+"^DD",727.802,727.802,94,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.802,727.802,94,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.802,727.802,94,23,0)
+^.001^3^3^3130503^^
+"^DD",727.802,727.802,94,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.802,727.802,94,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.802,727.802,94,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.802,727.802,94,"DT")
+3130308
+"^DD",727.802,727.802,95,0)
+ENCOUNTER CAMP LEJEUNE^S^Y:YES;N:NO;^2;14^Q
+"^DD",727.802,727.802,95,3)
+Indicate if this encounter is related to exposure at Camp Lejeune.
+"^DD",727.802,727.802,95,21,0)
+^.001^3^3^3130503^^^^
+"^DD",727.802,727.802,95,21,1,0)
+Indicates if episode of care is related to exposure to contaminated water
+"^DD",727.802,727.802,95,21,2,0)
+while stationed at Camp Lejeune, NC between January 1, 1957 and December
+"^DD",727.802,727.802,95,21,3,0)
+31, 1987.
+"^DD",727.802,727.802,95,23,0)
+^^3^3^3130503^
+"^DD",727.802,727.802,95,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.802,727.802,95,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI
+"^DD",727.802,727.802,95,23,3,0)
+returns the encounter Camp Lejeune data from the VISIT file (#9000010).
+"^DD",727.802,727.802,95,"DT")
+3130308
+"^DD",727.802,727.802,96,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^2;15^Q
+"^DD",727.802,727.802,96,3)
+Is this Encounter Service Connected?
+"^DD",727.802,727.802,96,21,0)
+^.001^2^2^3130503^^^
+"^DD",727.802,727.802,96,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.802,727.802,96,21,2,0)
+Connected.
+"^DD",727.802,727.802,96,23,0)
+^^4^4^3130503^
+"^DD",727.802,727.802,96,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.802,727.802,96,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.802,727.802,96,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.802,727.802,96,23,4,0)
+(#9000010).
+"^DD",727.802,727.802,96,"DT")
+3130310
+"^DD",727.809,727.809,18,0)
+DEA, SPECIAL HDLG^S^I:INVESTIGATIONAL;1:SCHEDULE 1 ITEM;2:SCHEDULE 2 ITEM;3:SCHEDULE 3 ITEM;4:SCHEDULE 4 ITEM;5:SCHEDULE 5 ITEM;^0;19^Q
+"^DD",727.809,727.809,18,.1)
+
+"^DD",727.809,727.809,18,3)
+Enter I if the drug is investigational or 1-5 depending on the drug's schedule.
+"^DD",727.809,727.809,18,21,0)
+^.001^1^1^3130726^^^^
+"^DD",727.809,727.809,18,21,1,0)
+Indicates if the drug in this record is Investigational, or Schedule 1-5.
+"^DD",727.809,727.809,18,23,0)
+^^3^3^3130726^
+"^DD",727.809,727.809,18,23,1,0)
+Derived from the DEA, SPECIAL HDLG field (#3) in the DRUG file (#50). If
+"^DD",727.809,727.809,18,23,2,0)
+the field contains a "1","2","3","4" or "5" (DRUG SCHEDULE) it will be set
+"^DD",727.809,727.809,18,23,3,0)
+to that number. Otherwise, if it contains an I, it will be set to I.
+"^DD",727.809,727.809,18,"DT")
+3130531
+"^DD",727.809,727.809,61,0)
+RACE 1^F^^2;5^K:$L(X)>6!($L(X)<1) X
+"^DD",727.809,727.809,61,.1)
+Race 1
+"^DD",727.809,727.809,61,3)
+Answer must be 1-6 characters in length.
+"^DD",727.809,727.809,61,21,0)
+^.001^1^1^3130219^^^^
+"^DD",727.809,727.809,61,21,1,0)
+Self-reported by patient as recorded in VistA patient file.
+"^DD",727.809,727.809,61,23,0)
+^^17^17^3130219^
+"^DD",727.809,727.809,61,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field
+"^DD",727.809,727.809,61,23,2,0)
+(#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file
+"^DD",727.809,727.809,61,23,3,0)
+(#10) pointed to by the RACE INFORMATION field (#.01) of the
+"^DD",727.809,727.809,61,23,4,0)
+RACE INFORMATION subfile (#2.02) of the PATIENT file (#2).
+"^DD",727.809,727.809,61,23,5,0)
+
+"^DD",727.809,727.809,61,23,6,0)
+Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)
+"^DD",727.809,727.809,61,23,7,0)
+where the METHOD OF COLLECTION field (#.02) is set to 1
+"^DD",727.809,727.809,61,23,8,0)
+(SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race
+"^DD",727.809,727.809,61,23,9,0)
+entries can be included. If any of the RACE INFORMATION values returned is
+"^DD",727.809,727.809,61,23,10,0)
+"C" (DECLINED TO ANSWER), that will be the only value included in the
+"^DD",727.809,727.809,61,23,11,0)
+RACE1 field.
+"^DD",727.809,727.809,61,23,12,0)
+
+"^DD",727.809,727.809,61,23,13,0)
+If the RACE 1 field is null after checking the RACE INFORMATION values
+"^DD",727.809,727.809,61,23,14,0)
+then the patient's historical RACE data will be checked to see if it
+"^DD",727.809,727.809,61,23,15,0)
+contains one of the twenty six non-standard race values that are
+"^DD",727.809,727.809,61,23,16,0)
+convertible to standard race values. If so, the race value will be
+"^DD",727.809,727.809,61,23,17,0)
+converted to the standard value and stored in the RACE 1 field.
+"^DD",727.809,727.809,61,"DT")
+3020829
+"^DD",727.809,727.809,62,0)
+PLACEHOLDER^P50'^PSDRUG(^2;6^Q
+"^DD",727.809,727.809,62,.1)
+
+"^DD",727.809,727.809,62,3)
+Enter the drug dispensed via BCMA.
+"^DD",727.809,727.809,62,21,0)
+^^1^1^3130507^
+"^DD",727.809,727.809,62,21,1,0)
+Currently NULL. This field is not currently used.
+"^DD",727.809,727.809,62,23,0)
+^.001^1^1^3130507^^
+"^DD",727.809,727.809,62,23,1,0)
+Currently NULL.
+"^DD",727.809,727.809,62,"DT")
+3130405
+"^DD",727.809,727.809,63,0)
+PLACEHOLDER^NJ5,2^^2;7^K:+X'=X!(X>50)!(X<0)!(X?.E1"."3N.N) X
+"^DD",727.809,727.809,63,.1)
+
+"^DD",727.809,727.809,63,3)
+Type a Number between 0 and 50, 2 Decimal Digits.
+"^DD",727.809,727.809,63,21,0)
+^^1^1^3130507^
+"^DD",727.809,727.809,63,21,1,0)
+Currently NULL. This field is not currently used.
+"^DD",727.809,727.809,63,23,0)
+^.001^1^1^3130507^^
+"^DD",727.809,727.809,63,23,1,0)
+Currently NULL.
+"^DD",727.809,727.809,63,"DT")
+3130405
+"^DD",727.809,727.809,64,0)
+PLACEHOLDER^F^^2;8^K:$L(X)>40!($L(X)<1) X
+"^DD",727.809,727.809,64,.1)
+
+"^DD",727.809,727.809,64,3)
+Answer must be 1-40 characters in length.
+"^DD",727.809,727.809,64,21,0)
+^^1^1^3130507^
+"^DD",727.809,727.809,64,21,1,0)
+Currently NULL. This field is not currently used.
+"^DD",727.809,727.809,64,23,0)
+^.001^1^1^3130507^^
+"^DD",727.809,727.809,64,23,1,0)
+Currently NULL.
+"^DD",727.809,727.809,64,"DT")
+3130405
+"^DD",727.809,727.809,65,0)
+PLACEHOLDER^F^^2;9^K:$L(X)>1!($L(X)<1) X
+"^DD",727.809,727.809,65,.1)
+
+"^DD",727.809,727.809,65,3)
+Answer must be 1 character in length.
+"^DD",727.809,727.809,65,21,0)
+^^1^1^3130507^
+"^DD",727.809,727.809,65,21,1,0)
+Currently NULL. This field is not currently used.
+"^DD",727.809,727.809,65,23,0)
+^.001^1^1^3130507^^
+"^DD",727.809,727.809,65,23,1,0)
+Currently NULL.
+"^DD",727.809,727.809,65,"DT")
+3130405
+"^DD",727.809,727.809,84,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^2;28^Q
+"^DD",727.809,727.809,84,3)
+Is this Encounter Service Connected?
+"^DD",727.809,727.809,84,21,0)
+^.001^2^2^3130514^^^^
+"^DD",727.809,727.809,84,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.809,727.809,84,21,2,0)
+Connected.
+"^DD",727.809,727.809,84,23,0)
+^^4^4^3130514^
+"^DD",727.809,727.809,84,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.809,727.809,84,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.809,727.809,84,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.809,727.809,84,23,4,0)
+(#9000010).
+"^DD",727.809,727.809,84,"DT")
+3130310
+"^DD",727.809,727.809,85,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^2;29^Q
+"^DD",727.809,727.809,85,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.809,727.809,85,21,0)
+^^2^2^3130507^
+"^DD",727.809,727.809,85,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.809,727.809,85,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.809,727.809,85,23,0)
+^^3^3^3130507^
+"^DD",727.809,727.809,85,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.809,727.809,85,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.809,727.809,85,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.809,727.809,85,"DT")
+3130310
+"^DD",727.809,727.809,86,0)
+ENCOUNTER CAMP LEJEUNE^S^Y:YES;N:NO;^2;30^Q
+"^DD",727.809,727.809,86,3)
+Indicate if this encounter is related to exposure at Camp Lejeune.
+"^DD",727.809,727.809,86,21,0)
+^^3^3^3130507^
+"^DD",727.809,727.809,86,21,1,0)
+Indicates if episode of care is related to exposure to contaminated water
+"^DD",727.809,727.809,86,21,2,0)
+while stationed at Camp Lejeune, NC between January 1, 1957 and December
+"^DD",727.809,727.809,86,21,3,0)
+31, 1987.
+"^DD",727.809,727.809,86,23,0)
+^^3^3^3130507^
+"^DD",727.809,727.809,86,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.809,727.809,86,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI
+"^DD",727.809,727.809,86,23,3,0)
+returns the encounter Camp Lejeune data from the VISIT file (#9000010).
+"^DD",727.809,727.809,86,"DT")
+3130310
+"^DD",727.81,727.81,28,0)
+DEA, SPECIAL HDLG^S^I:INVESTIGATIONAL;1:SCHEDULE 1 ITEM;2:SCHEDULE 2 ITEM;3:SCHEDULE 3 ITEM;4:SCHEDULE 4 ITEM;5:SCHEDULE 5 ITEM;^0;29^Q
+"^DD",727.81,727.81,28,.1)
+DEA Special Handling
+"^DD",727.81,727.81,28,3)
+Enter I if the drug is investigational or 1-5 depending on the Drug's Schedule Item.
+"^DD",727.81,727.81,28,21,0)
+^.001^1^1^3130726^^^^
+"^DD",727.81,727.81,28,21,1,0)
+Indicates if the drug in this record is Investigational, or Schedule 1-5.
+"^DD",727.81,727.81,28,23,0)
+^^3^3^3130726^
+"^DD",727.81,727.81,28,23,1,0)
+Derived from the DEA, SPECIAL HDLG field (#3) in the DRUG file (#50). If
+"^DD",727.81,727.81,28,23,2,0)
+the field contains a "1","2","3","4" or "5" (DRUG SCHEDULE) it will be set
+"^DD",727.81,727.81,28,23,3,0)
+to that number. Otherwise, if it contains an I, it will be set to I.
+"^DD",727.81,727.81,28,"DT")
+3120304
+"^DD",727.81,727.81,72,0)
+RACE 1^F^^1;39^K:$L(X)>6!($L(X)<1) X
+"^DD",727.81,727.81,72,.1)
+Race 1
+"^DD",727.81,727.81,72,3)
+Answer must be 1-6 characters in length.
+"^DD",727.81,727.81,72,21,0)
+^^1^1^3130702^
+"^DD",727.81,727.81,72,21,1,0)
+Self-reported by patient as recorded in VistA patient file.
+"^DD",727.81,727.81,72,23,0)
+^.001^17^17^3130702^^
+"^DD",727.81,727.81,72,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field
+"^DD",727.81,727.81,72,23,2,0)
+(#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file
+"^DD",727.81,727.81,72,23,3,0)
+(#10) pointed to by the RACE INFORMATION field (#.01) of the
+"^DD",727.81,727.81,72,23,4,0)
+RACE INFORMATION subfile (#2.02) of the PATIENT file (#2).
+"^DD",727.81,727.81,72,23,5,0)
+
+"^DD",727.81,727.81,72,23,6,0)
+Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)
+"^DD",727.81,727.81,72,23,7,0)
+where the METHOD OF COLLECTION field (#.02) is set to 1
+"^DD",727.81,727.81,72,23,8,0)
+(SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race
+"^DD",727.81,727.81,72,23,9,0)
+entries can be included. If any of the RACE INFORMATION values returned is
+"^DD",727.81,727.81,72,23,10,0)
+"C" (DECLINED TO ANSWER), that will be the only value included in the
+"^DD",727.81,727.81,72,23,11,0)
+RACE1 field.
+"^DD",727.81,727.81,72,23,12,0)
+
+"^DD",727.81,727.81,72,23,13,0)
+If the RACE 1 field is null after checking the RACE INFORMATION values
+"^DD",727.81,727.81,72,23,14,0)
+then the patient's historical RACE data will be checked to see if it
+"^DD",727.81,727.81,72,23,15,0)
+contains one of the twenty six non-standard race values that are
+"^DD",727.81,727.81,72,23,16,0)
+convertible to standard race values. If so, the race value will be
+"^DD",727.81,727.81,72,23,17,0)
+converted to the standard value and stored in the RACE 1 field.
+"^DD",727.81,727.81,72,"DT")
+3020828
+"^DD",727.81,727.81,99,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^2;24^Q
+"^DD",727.81,727.81,99,3)
+Is this Encounter Service Connected?
+"^DD",727.81,727.81,99,21,0)
+^.001^2^2^3130514^^^
+"^DD",727.81,727.81,99,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.81,727.81,99,21,2,0)
+Connected.
+"^DD",727.81,727.81,99,23,0)
+^^4^4^3130514^
+"^DD",727.81,727.81,99,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.81,727.81,99,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.81,727.81,99,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.81,727.81,99,23,4,0)
+(#9000010).
+"^DD",727.81,727.81,99,"DT")
+3130309
+"^DD",727.81,727.81,100,0)
+VIETNAM^S^Y:YES;N:NO;U:UNKNOWN;^2;25^Q
+"^DD",727.81,727.81,100,3)
+Select the appropriate Vietnam service status for this patient.
+"^DD",727.81,727.81,100,21,0)
+^.001^1^1^3130507^^^^
+"^DD",727.81,727.81,100,21,1,0)
+Indicates if patient is a Vietnam era veteran.
+"^DD",727.81,727.81,100,23,0)
+^^3^3^3130507^
+"^DD",727.81,727.81,100,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)
+"^DD",727.81,727.81,100,23,2,0)
+in the PRESCRIPTION EXTRACT file (#727.81), VIETNAM data is derived from
+"^DD",727.81,727.81,100,23,3,0)
+the VIETNAM SERVICE INDICATED? field (#.32101) in the PATIENT file (#2).
+"^DD",727.81,727.81,100,"DT")
+3130309
+"^DD",727.81,727.81,101,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^2;26^Q
+"^DD",727.81,727.81,101,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.81,727.81,101,21,0)
+^^2^2^3130507^
+"^DD",727.81,727.81,101,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.81,727.81,101,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.81,727.81,101,23,0)
+^^3^3^3130507^
+"^DD",727.81,727.81,101,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.81,727.81,101,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.81,727.81,101,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.81,727.81,101,"DT")
+3130309
+"^DD",727.81,727.81,102,0)
+ENCOUNTER CAMP LEJEUNE^S^Y:YES;N:NO;^2;27^Q
+"^DD",727.81,727.81,102,3)
+Indicate if this encounter is related to exposure at Camp Lejeune.
+"^DD",727.81,727.81,102,21,0)
+^^3^3^3130507^
+"^DD",727.81,727.81,102,21,1,0)
+Indicates if episode of care is related to exposure to contaminated water
+"^DD",727.81,727.81,102,21,2,0)
+while stationed at Camp Lejeune, NC between January 1, 1957 and December
+"^DD",727.81,727.81,102,21,3,0)
+31, 1987.
+"^DD",727.81,727.81,102,23,0)
+^^3^3^3130507^
+"^DD",727.81,727.81,102,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.81,727.81,102,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI
+"^DD",727.81,727.81,102,23,3,0)
+returns the encounter Camp Lejeune data from the VISIT file (#9000010).
+"^DD",727.81,727.81,102,"DT")
+3130309
+"^DD",727.811,727.811,60,0)
+RACE 1^F^^1;24^K:$L(X)>6!($L(X)<1) X
+"^DD",727.811,727.811,60,.1)
+Race 1
+"^DD",727.811,727.811,60,3)
+Answer must be 1-6 characters in length.
+"^DD",727.811,727.811,60,21,0)
+^.001^1^1^3130513^^^^
+"^DD",727.811,727.811,60,21,1,0)
+Self-reported by patient as recorded in VistA patient file.
+"^DD",727.811,727.811,60,23,0)
+^.001^17^17^3130513^^
+"^DD",727.811,727.811,60,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field
+"^DD",727.811,727.811,60,23,2,0)
+(#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file
+"^DD",727.811,727.811,60,23,3,0)
+(#10) pointed to by the RACE INFORMATION field (#.01) of the
+"^DD",727.811,727.811,60,23,4,0)
+RACE INFORMATION subfile (#2.02) of the PATIENT file (#2).
+"^DD",727.811,727.811,60,23,5,0)
+
+"^DD",727.811,727.811,60,23,6,0)
+Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)
+"^DD",727.811,727.811,60,23,7,0)
+where the METHOD OF COLLECTION field (#.02) is set to 1
+"^DD",727.811,727.811,60,23,8,0)
+(SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race
+"^DD",727.811,727.811,60,23,9,0)
+entries can be included. If any of the RACE INFORMATION values returned is
+"^DD",727.811,727.811,60,23,10,0)
+"C" (DECLINED TO ANSWER), that will be the only value included in the
+"^DD",727.811,727.811,60,23,11,0)
+RACE1 field.
+"^DD",727.811,727.811,60,23,12,0)
+
+"^DD",727.811,727.811,60,23,13,0)
+If the RACE 1 field is null after checking the RACE INFORMATION values
+"^DD",727.811,727.811,60,23,14,0)
+then the patient's historical RACE data will be checked to see if it
+"^DD",727.811,727.811,60,23,15,0)
+contains one of the twenty six non-standard race values that are
+"^DD",727.811,727.811,60,23,16,0)
+convertible to standard race values. If so, the race value will be
+"^DD",727.811,727.811,60,23,17,0)
+converted to the standard value and stored in the RACE 1 field.
+"^DD",727.811,727.811,60,"DT")
+3020829
+"^DD",727.811,727.811,100,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^2;27^Q
+"^DD",727.811,727.811,100,3)
+Is this Encounter Service Connected?
+"^DD",727.811,727.811,100,21,0)
+^.001^2^2^3130513^^^^
+"^DD",727.811,727.811,100,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.811,727.811,100,21,2,0)
+Connected.
+"^DD",727.811,727.811,100,23,0)
+^^4^4^3130513^
+"^DD",727.811,727.811,100,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.811,727.811,100,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.811,727.811,100,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.811,727.811,100,23,4,0)
+(#9000010).
+"^DD",727.811,727.811,100,"DT")
+3080512
+"^DD",727.811,727.811,121,0)
+DATE OF BIRTH^FO^^3;15^K:$L(X)>8!($L(X)<8) X
+"^DD",727.811,727.811,121,2)
+S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)
+"^DD",727.811,727.811,121,2.1)
+S Y=$$ECXDATEX^ECXUTL(Y)
+"^DD",727.811,727.811,121,3)
+Answer must be 8 characters in length.
+"^DD",727.811,727.811,121,21,0)
+^.001^1^1^3130827^^^^
+"^DD",727.811,727.811,121,21,1,0)
+Patient's date of birth.
+"^DD",727.811,727.811,121,23,0)
+^^7^7^3130827^
+"^DD",727.811,727.811,121,23,1,0)
+Data source:
+"^DD",727.811,727.811,121,23,2,0)
+
+"^DD",727.811,727.811,121,23,3,0)
+SURGERY file (#130); PATIENT field (#.01) then to PATIENT file (#2);
+"^DD",727.811,727.811,121,23,4,0)
+DATE OF BIRTH field (#.03)
+"^DD",727.811,727.811,121,23,5,0)
+
+"^DD",727.811,727.811,121,23,6,0)
+Date of Birth is returned through the supported call DEM^VADPT. It is then
+"^DD",727.811,727.811,121,23,7,0)
+represented by an 8-character numeric string in the YYYYMMDD format.
+"^DD",727.811,727.811,121,"DT")
+3130206
+"^DD",727.811,727.811,122,0)
+VIETNAM^S^Y:YES;N:NO;U:UNKNOWN;^3;16^Q
+"^DD",727.811,727.811,122,3)
+Select the appropriate Vietnam service status for this patient.
+"^DD",727.811,727.811,122,21,0)
+^.001^1^1^3130507^^^
+"^DD",727.811,727.811,122,21,1,0)
+Indicates if patient is a Vietnam era veteran.
+"^DD",727.811,727.811,122,23,0)
+^^3^3^3130507^
+"^DD",727.811,727.811,122,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)
+"^DD",727.811,727.811,122,23,2,0)
+in the SURGERY EXTRACT file (#727.811), VIETNAM data is derived from the
+"^DD",727.811,727.811,122,23,3,0)
+VIETNAM SERVICE INDICATED? field (#.32101) in the PATIENT file (#2).
+"^DD",727.811,727.811,122,"DT")
+3130309
+"^DD",727.811,727.811,123,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^3;17^Q
+"^DD",727.811,727.811,123,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.811,727.811,123,21,0)
+^^2^2^3130507^
+"^DD",727.811,727.811,123,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.811,727.811,123,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.811,727.811,123,23,0)
+^^3^3^3130507^
+"^DD",727.811,727.811,123,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.811,727.811,123,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.811,727.811,123,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.811,727.811,123,"DT")
+3130309
+"^DD",727.811,727.811,124,0)
+ENCOUNTER CAMP LEJEUNE^S^Y:YES;N:NO;^3;18^Q
+"^DD",727.811,727.811,124,3)
+Indicate if this encounter is related to exposure at Camp Lejeune.
+"^DD",727.811,727.811,124,21,0)
+^^3^3^3130507^
+"^DD",727.811,727.811,124,21,1,0)
+Indicates if episode of care is related to exposure to contaminated water
+"^DD",727.811,727.811,124,21,2,0)
+while stationed at Camp Lejeune, NC between January 1, 1957 and December
+"^DD",727.811,727.811,124,21,3,0)
+31, 1987.
+"^DD",727.811,727.811,124,23,0)
+^^3^3^3130507^
+"^DD",727.811,727.811,124,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.811,727.811,124,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI
+"^DD",727.811,727.811,124,23,3,0)
+returns the encounter Camp Lejeune data from the VISIT file (#9000010).
+"^DD",727.811,727.811,124,"DT")
+3130309
+"^DD",727.811,727.811,125,0)
+CONCURRENT CASE^S^C:CONCURRENT CASE;^3;19^Q
+"^DD",727.811,727.811,125,3)
+Indicate if this record has a Concurrent Case.
+"^DD",727.811,727.811,125,21,0)
+^^5^5^3130513^
+"^DD",727.811,727.811,125,21,1,0)
+An additional operative procedure performed by a different surgical team
+"^DD",727.811,727.811,125,21,2,0)
+(i.e., a different specialty/service) under the same anesthetic which has
+"^DD",727.811,727.811,125,21,3,0)
+a CPT code different from that of the Principle Operative Procedure (e.g.,
+"^DD",727.811,727.811,125,21,4,0)
+fixation of a femur fracture in a patient undergoing a laparotomy for
+"^DD",727.811,727.811,125,21,5,0)
+trauma).
+"^DD",727.811,727.811,125,23,0)
+^.001^3^3^3130513^^^^
+"^DD",727.811,727.811,125,23,1,0)
+This field is determined by using the CONCURRENT CASE field (#35) of the
+"^DD",727.811,727.811,125,23,2,0)
+SURGERY file (#130). If there is a value in that field, this field is set
+"^DD",727.811,727.811,125,23,3,0)
+to "C" to indicate a concurrent case exists.
+"^DD",727.811,727.811,125,"DT")
+3130412
+"^DD",727.811,727.811,126,0)
+PRINCIPLE POSTOP ICD-10 CODE^F^^3;20^K:$L(X)>8!($L(X)<1) X
+"^DD",727.811,727.811,126,3)
+Answer must be 1-8 characters in length.
+"^DD",727.811,727.811,126,21,0)
+^.001^1^1^3130806^^
+"^DD",727.811,727.811,126,21,1,0)
+The post-op diagnosis for the Principle Procedure.
+"^DD",727.811,727.811,126,23,0)
+^.001^4^4^3130806^^
+"^DD",727.811,727.811,126,23,1,0)
+Once available, the ICD10 data will be retrieved from the supported API
+"^DD",727.811,727.811,126,23,2,0)
+and stored in this field. This field is added in anticipation of the
+"^DD",727.811,727.811,126,23,3,0)
+release of ICD10 and the file will be updated at the time the software is
+"^DD",727.811,727.811,126,23,4,0)
+updated to retrieve the ICD10 information.
+"^DD",727.811,727.811,126,"DT")
+3130309
+"^DD",727.811,727.811,127,0)
+OTHER POSTOP ICD-10 CODE #1^F^^3;21^K:$L(X)>8!($L(X)<1) X
+"^DD",727.811,727.811,127,3)
+Answer must be 1-8 characters in length.
+"^DD",727.811,727.811,127,21,0)
+^.001^1^1^3130806^^^
+"^DD",727.811,727.811,127,21,1,0)
+The first associated diagnosis for the Principle Procedure.
+"^DD",727.811,727.811,127,23,0)
+^.001^4^4^3130806^^
+"^DD",727.811,727.811,127,23,1,0)
+Once available, the ICD10 data will be retrieved from the supported API
+"^DD",727.811,727.811,127,23,2,0)
+and stored in this field. This field is added in anticipation of the
+"^DD",727.811,727.811,127,23,3,0)
+release of ICD10 and the file will be updated at the time the software is
+"^DD",727.811,727.811,127,23,4,0)
+updated to retrieve the ICD10 information.
+"^DD",727.811,727.811,127,"DT")
+3130309
+"^DD",727.811,727.811,128,0)
+OTHER POSTOP ICD-10 CODE #2^F^^3;22^K:$L(X)>8!($L(X)<1) X
+"^DD",727.811,727.811,128,3)
+Answer must be 1-8 characters in length.
+"^DD",727.811,727.811,128,21,0)
+^.001^1^1^3130513^^
+"^DD",727.811,727.811,128,21,1,0)
+The second associated diagnosis for the Principle Procedure.
+"^DD",727.811,727.811,128,23,0)
+^^4^4^3130513^
+"^DD",727.811,727.811,128,23,1,0)
+Once available, the ICD10 data will be retrieved from the supported API
+"^DD",727.811,727.811,128,23,2,0)
+and stored in this field. This field is added in anticipation of the
+"^DD",727.811,727.811,128,23,3,0)
+release of ICD10 and the file will be updated at the time the software is
+"^DD",727.811,727.811,128,23,4,0)
+updated to retrieve the ICD10 information.
+"^DD",727.811,727.811,128,"DT")
+3130309
+"^DD",727.811,727.811,129,0)
+OTHER POSTOP ICD-10 CODE #3^F^^3;23^K:$L(X)>8!($L(X)<1) X
+"^DD",727.811,727.811,129,3)
+Answer must be 1-8 characters in length.
+"^DD",727.811,727.811,129,21,0)
+^.001^1^1^3130513^^
+"^DD",727.811,727.811,129,21,1,0)
+The third associated diagnosis for the Principle Procedure.
+"^DD",727.811,727.811,129,23,0)
+^^4^4^3130513^
+"^DD",727.811,727.811,129,23,1,0)
+Once available, the ICD10 data will be retrieved from the supported API
+"^DD",727.811,727.811,129,23,2,0)
+and stored in this field. This field is added in anticipation of the
+"^DD",727.811,727.811,129,23,3,0)
+release of ICD10 and the file will be updated at the time the software is
+"^DD",727.811,727.811,129,23,4,0)
+updated to retrieve the ICD10 information.
+"^DD",727.811,727.811,129,"DT")
+3130310
+"^DD",727.811,727.811,130,0)
+OTHER POSTOP ICD-10 CODE #4^F^^3;24^K:$L(X)>8!($L(X)<1) X
+"^DD",727.811,727.811,130,3)
+Answer must be 1-8 characters in length.
+"^DD",727.811,727.811,130,21,0)
+^.001^1^1^3130513^^
+"^DD",727.811,727.811,130,21,1,0)
+The fourth associated diagnosis for the Principle Procedure.
+"^DD",727.811,727.811,130,23,0)
+^^4^4^3130513^
+"^DD",727.811,727.811,130,23,1,0)
+Once available, the ICD10 data will be retrieved from the supported API
+"^DD",727.811,727.811,130,23,2,0)
+and stored in this field. This field is added in anticipation of the
+"^DD",727.811,727.811,130,23,3,0)
+release of ICD10 and the file will be updated at the time the software is
+"^DD",727.811,727.811,130,23,4,0)
+updated to retrieve the ICD10 information.
+"^DD",727.811,727.811,130,"DT")
+3130310
+"^DD",727.811,727.811,131,0)
+OTHER POSTOP ICD-10 CODE #5^F^^3;25^K:$L(X)>8!($L(X)<1) X
+"^DD",727.811,727.811,131,3)
+Answer must be 1-8 characters in length.
+"^DD",727.811,727.811,131,21,0)
+^.001^1^1^3130513^^
+"^DD",727.811,727.811,131,21,1,0)
+The fifth associated diagnosis for the Principle Procedure.
+"^DD",727.811,727.811,131,23,0)
+^^4^4^3130513^
+"^DD",727.811,727.811,131,23,1,0)
+Once available, the ICD10 data will be retrieved from the supported API
+"^DD",727.811,727.811,131,23,2,0)
+and stored in this field. This field is added in anticipation of the
+"^DD",727.811,727.811,131,23,3,0)
+release of ICD10 and the file will be updated at the time the software is
+"^DD",727.811,727.811,131,23,4,0)
+updated to retrieve the ICD10 information.
+"^DD",727.811,727.811,131,"DT")
+3130310
+"^DD",727.813,727.813,48,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^2;4^Q
+"^DD",727.813,727.813,48,3)
+Is this Encounter Service Connected?
+"^DD",727.813,727.813,48,21,0)
+^.001^2^2^3130514^^^^
+"^DD",727.813,727.813,48,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.813,727.813,48,21,2,0)
+Connected.
+"^DD",727.813,727.813,48,23,0)
+^^4^4^3130514^
+"^DD",727.813,727.813,48,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.813,727.813,48,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.813,727.813,48,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.813,727.813,48,23,4,0)
+(#9000010).
+"^DD",727.813,727.813,48,"DT")
+3130309
+"^DD",727.813,727.813,49,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^2;5^Q
+"^DD",727.813,727.813,49,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.813,727.813,49,21,0)
+^^2^2^3130507^
+"^DD",727.813,727.813,49,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.813,727.813,49,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.813,727.813,49,23,0)
+^^3^3^3130507^
+"^DD",727.813,727.813,49,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.813,727.813,49,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.813,727.813,49,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.813,727.813,49,"DT")
+3130309
+"^DD",727.814,727.814,50,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^2;1^Q
+"^DD",727.814,727.814,50,3)
+Is this Encounter Service Connected?
+"^DD",727.814,727.814,50,21,0)
+^.001^2^2^3130514^^^
+"^DD",727.814,727.814,50,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.814,727.814,50,21,2,0)
+Connected.
+"^DD",727.814,727.814,50,23,0)
+^^4^4^3130514^
+"^DD",727.814,727.814,50,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.814,727.814,50,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.814,727.814,50,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.814,727.814,50,23,4,0)
+(#9000010).
+"^DD",727.814,727.814,50,"DT")
+3130309
+"^DD",727.814,727.814,51,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^2;2^Q
+"^DD",727.814,727.814,51,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.814,727.814,51,21,0)
+^.001^2^2^3130507^^
+"^DD",727.814,727.814,51,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.814,727.814,51,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.814,727.814,51,23,0)
+^^3^3^3130507^
+"^DD",727.814,727.814,51,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.814,727.814,51,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.814,727.814,51,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.814,727.814,51,"DT")
+3130309
+"^DD",727.814,727.814,52,0)
+ENCOUNTER CAMP LEJEUNE^S^Y:YES;N:NO;^2;3^Q
+"^DD",727.814,727.814,52,3)
+Indicate if this encounter is related to exposure at Camp Lejeune.
+"^DD",727.814,727.814,52,21,0)
+^^3^3^3130507^
+"^DD",727.814,727.814,52,21,1,0)
+Indicates if episode of care is related to exposure to contaminated water
+"^DD",727.814,727.814,52,21,2,0)
+while stationed at Camp Lejeune, NC between January 1, 1957 and December
+"^DD",727.814,727.814,52,21,3,0)
+31, 1987.
+"^DD",727.814,727.814,52,23,0)
+^^3^3^3130507^
+"^DD",727.814,727.814,52,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.814,727.814,52,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI
+"^DD",727.814,727.814,52,23,3,0)
+returns the encounter Camp Lejeune data from the VISIT file (#9000010).
+"^DD",727.814,727.814,52,"DT")
+3130309
+"^DD",727.815,727.815,73,0)
+RACE 1^F^^1;32^K:$L(X)>6!($L(X)<1) X
+"^DD",727.815,727.815,73,3)
+Answer must be 1-6 characters in length.
+"^DD",727.815,727.815,73,21,0)
+^.001^1^1^3130219^^^^
+"^DD",727.815,727.815,73,21,1,0)
+Self-reported by patient as recorded in VistA patient file.
+"^DD",727.815,727.815,73,23,0)
+^^17^17^3130219^
+"^DD",727.815,727.815,73,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field
+"^DD",727.815,727.815,73,23,2,0)
+(#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file
+"^DD",727.815,727.815,73,23,3,0)
+(#10) pointed to by the RACE INFORMATION field (#.01) of the
+"^DD",727.815,727.815,73,23,4,0)
+RACE INFORMATION subfile (#2.02) of the PATIENT file (#2).
+"^DD",727.815,727.815,73,23,5,0)
+
+"^DD",727.815,727.815,73,23,6,0)
+Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)
+"^DD",727.815,727.815,73,23,7,0)
+where the METHOD OF COLLECTION field (#.02) is set to 1
+"^DD",727.815,727.815,73,23,8,0)
+(SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race
+"^DD",727.815,727.815,73,23,9,0)
+entries can be included. If any of the RACE INFORMATION values returned is
+"^DD",727.815,727.815,73,23,10,0)
+"C" (DECLINED TO ANSWER), that will be the only value included in the
+"^DD",727.815,727.815,73,23,11,0)
+RACE1 field.
+"^DD",727.815,727.815,73,23,12,0)
+
+"^DD",727.815,727.815,73,23,13,0)
+If the RACE 1 field is null after checking the RACE INFORMATION values
+"^DD",727.815,727.815,73,23,14,0)
+then the patient's historical RACE data will be checked to see if it
+"^DD",727.815,727.815,73,23,15,0)
+contains one of the twenty six non-standard race values that are
+"^DD",727.815,727.815,73,23,16,0)
+convertible to standard race values. If so, the race value will be
+"^DD",727.815,727.815,73,23,17,0)
+converted to the standard value and stored in the RACE 1 field.
+"^DD",727.815,727.815,73,"DT")
+3021210
+"^DD",727.815,727.815,111,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^3;1^Q
+"^DD",727.815,727.815,111,3)
+Is this Encounter Service Connected?
+"^DD",727.815,727.815,111,21,0)
+^^2^2^3130514^
+"^DD",727.815,727.815,111,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.815,727.815,111,21,2,0)
+Connected.
+"^DD",727.815,727.815,111,23,0)
+^.001^4^4^3130514^^
+"^DD",727.815,727.815,111,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.815,727.815,111,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.815,727.815,111,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.815,727.815,111,23,4,0)
+(#9000010).
+"^DD",727.815,727.815,111,"DT")
+3130308
+"^DD",727.815,727.815,112,0)
+VIETNAM^S^Y:YES;N:NO;U:UNKNOWN;^3;2^Q
+"^DD",727.815,727.815,112,3)
+Select the appropriate Vietnam service status for this patient.
+"^DD",727.815,727.815,112,21,0)
+1^.001^1^1^3130507^^^
+"^DD",727.815,727.815,112,21,1,0)
+Indicates if patient is a Vietnam era veteran.
+"^DD",727.815,727.815,112,23,0)
+^.001^4^4^3130507^^
+"^DD",727.815,727.815,112,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)
+"^DD",727.815,727.815,112,23,2,0)
+in the EVENT CAPTURE LOCAL EXTRACT file (#727.815), VIETNAM data is
+"^DD",727.815,727.815,112,23,3,0)
+derived from the VIETNAM SERVICE INDICATED? field (#.32101) in the PATIENT
+"^DD",727.815,727.815,112,23,4,0)
+file (#2).
+"^DD",727.815,727.815,112,"DT")
+3130308
+"^DD",727.815,727.815,113,0)
+PROVIDER #6^F^^3;3^K:$L(X)>11!($L(X)<2) X
+"^DD",727.815,727.815,113,3)
+Answer must be 2-11 characters in length.
+"^DD",727.815,727.815,113,21,0)
+^^3^3^3130521^
+"^DD",727.815,727.815,113,21,1,0)
+The sixth provider associated with the patient encounter. It represents
+"^DD",727.815,727.815,113,21,2,0)
+an assisting Provider who performed the procedure associated with the
+"^DD",727.815,727.815,113,21,3,0)
+Event Capture patient record.
+"^DD",727.815,727.815,113,23,0)
+^^7^7^3130521^
+"^DD",727.815,727.815,113,23,1,0)
+Data is derived by returning a local array (sixth node) of the
+"^DD",727.815,727.815,113,23,2,0)
+$$GETPRV^ECPRVMUT API (DBIA #4460) that returns the PROVIDER
+"^DD",727.815,727.815,113,23,3,0)
+multiple (#42) from the EVENT CAPTURE PATIENT File (#721).
+"^DD",727.815,727.815,113,23,4,0)
+
+"^DD",727.815,727.815,113,23,5,0)
+The PROVIDER #6 is the value of a "2" prefixed to the pointer value to
+"^DD",727.815,727.815,113,23,6,0)
+indicate that the source file is "200". For example, if the IEN of the
+"^DD",727.815,727.815,113,23,7,0)
+provider in file #200 is 98765, the value that will be stored is 298765.
+"^DD",727.815,727.815,113,"DT")
+3130312
+"^DD",727.815,727.815,114,0)
+PROVIDER #6 PERSON CLASS^F^^3;4^K:$L(X)>7!($L(X)<7) X
+"^DD",727.815,727.815,114,3)
+Answer must be 7 characters in length.
+"^DD",727.815,727.815,114,21,0)
+^.001^2^2^3130521^^^^
+"^DD",727.815,727.815,114,21,1,0)
+This is the VA code of the Person Class of the sixth assisting provider
+"^DD",727.815,727.815,114,21,2,0)
+as of the date of this record.
+"^DD",727.815,727.815,114,23,0)
+^^4^4^3130521^
+"^DD",727.815,727.815,114,23,1,0)
+Derived by calling $$PRVCLASS^ECXUTL(IEN,DATE), where IEN is the IEN of
+"^DD",727.815,727.815,114,23,2,0)
+the NEW PERSON (#200) File. Copied from field VA CODE (#5) of the PERSON
+"^DD",727.815,727.815,114,23,3,0)
+CLASS (#8932.1) file, as pointed to by the Person Class (#.01) field of
+"^DD",727.815,727.815,114,23,4,0)
+the PERSON CLASS (#8932.1) multiple of the NEW PERSON (#200) file.
+"^DD",727.815,727.815,114,"DT")
+3130312
+"^DD",727.815,727.815,115,0)
+PROVIDER #6 NPI^F^^3;5^K:$L(X)>10!($L(X)<1) X
+"^DD",727.815,727.815,115,3)
+Answer must be 1-10 characters in length.
+"^DD",727.815,727.815,115,21,0)
+^^2^2^3130521^
+"^DD",727.815,727.815,115,21,1,0)
+A standard unique life-long identifier of the sixth assisting provider
+"^DD",727.815,727.815,115,21,2,0)
+of health care services.
+"^DD",727.815,727.815,115,23,0)
+^^2^2^3130521^
+"^DD",727.815,727.815,115,23,1,0)
+The qualified identifier is retrieved via the supporting Kernel API:
+"^DD",727.815,727.815,115,23,2,0)
+$$NPI^XUSNPI.
+"^DD",727.815,727.815,115,"DT")
+3130310
+"^DD",727.815,727.815,116,0)
+PROVIDER #7^F^^3;6^K:$L(X)>11!($L(X)<2) X
+"^DD",727.815,727.815,116,3)
+Answer must be 2-11 characters in length.
+"^DD",727.815,727.815,116,21,0)
+^^3^3^3130521^
+"^DD",727.815,727.815,116,21,1,0)
+The seventh provider associated with the patient encounter. It represents
+"^DD",727.815,727.815,116,21,2,0)
+an assisting Provider who performed the procedure associated with the
+"^DD",727.815,727.815,116,21,3,0)
+Event Capture patient record.
+"^DD",727.815,727.815,116,23,0)
+^^7^7^3130521^
+"^DD",727.815,727.815,116,23,1,0)
+Data is derived by returning a local array (seventh node) of the
+"^DD",727.815,727.815,116,23,2,0)
+$$GETPRV^ECPRVMUT API (DBIA #4460) that returns the PROVIDER
+"^DD",727.815,727.815,116,23,3,0)
+multiple (#42) from the EVENT CAPTURE PATIENT File (#721).
+"^DD",727.815,727.815,116,23,4,0)
+
+"^DD",727.815,727.815,116,23,5,0)
+The PROVIDER #7 is the value of a "2" prefixed to the pointer value to
+"^DD",727.815,727.815,116,23,6,0)
+indicate that the source file is "200". For example, if the IEN of the
+"^DD",727.815,727.815,116,23,7,0)
+provider in file #200 is 98765, the value that will be stored is 298765.
+"^DD",727.815,727.815,116,"DT")
+3130312
+"^DD",727.815,727.815,117,0)
+PROVIDER #7 PERSON CLASS^F^^3;7^K:$L(X)>7!($L(X)<7) X
+"^DD",727.815,727.815,117,3)
+Answer must be 7 characters in length.
+"^DD",727.815,727.815,117,21,0)
+^.001^2^2^3130521^^^
+"^DD",727.815,727.815,117,21,1,0)
+This is the VA code of the Person Class of the seventh assisting provider
+"^DD",727.815,727.815,117,21,2,0)
+as of the date of this record.
+"^DD",727.815,727.815,117,23,0)
+^^4^4^3130521^
+"^DD",727.815,727.815,117,23,1,0)
+Derived by calling $$PRVCLASS^ECXUTL(IEN,DATE), where IEN is the IEN of
+"^DD",727.815,727.815,117,23,2,0)
+the NEW PERSON (#200) File. Copied from field VA CODE (#5) of the PERSON
+"^DD",727.815,727.815,117,23,3,0)
+CLASS (#8932.1) file, as pointed to by the Person Class (#.01) field of
+"^DD",727.815,727.815,117,23,4,0)
+the PERSON CLASS (#8932.1) multiple of the NEW PERSON (#200) file.
+"^DD",727.815,727.815,117,"DT")
+3130312
+"^DD",727.815,727.815,118,0)
+PROVIDER #7 NPI^F^^3;8^K:$L(X)>10!($L(X)<1) X
+"^DD",727.815,727.815,118,3)
+Answer must be 1-10 characters in length.
+"^DD",727.815,727.815,118,21,0)
+^^2^2^3130521^
+"^DD",727.815,727.815,118,21,1,0)
+A standard unique life-long identifier of the seventh assisting provider
+"^DD",727.815,727.815,118,21,2,0)
+of health care services.
+"^DD",727.815,727.815,118,23,0)
+^.001^2^2^3130521^^^
+"^DD",727.815,727.815,118,23,1,0)
+The qualified identifier is retrieved via the supporting Kernel API:
+"^DD",727.815,727.815,118,23,2,0)
+$$NPI^XUSNPI.
+"^DD",727.815,727.815,118,"DT")
+3130310
+"^DD",727.815,727.815,119,0)
+4CHAR^F^^3;9^K:$L(X)>4!($L(X)<4) X
+"^DD",727.815,727.815,119,3)
+Answer must be 4 characters in length.
+"^DD",727.815,727.815,119,21,0)
+^.001^2^2^3130522^^^^
+"^DD",727.815,727.815,119,21,1,0)
+A 4-character code value of the associated clinic as specified from the
+"^DD",727.815,727.815,119,21,2,0)
+DSS Clinics and Stop Code Worksheet File.
+"^DD",727.815,727.815,119,23,0)
+^^5^5^3130522^
+"^DD",727.815,727.815,119,23,1,0)
+4CHAR is determined by using the CLINIC IEN field (#120) of this file to
+"^DD",727.815,727.815,119,23,2,0)
+retrieve the NATIONAL CODE field (#7) from the CLINICS AND STOP CODES file
+"^DD",727.815,727.815,119,23,3,0)
+(#728.44). The NATIONAL CODE (#7) field points to the NATIONAL CLINIC
+"^DD",727.815,727.815,119,23,4,0)
+(#728.441) file. This field is a copy of the CODE (#.01) field of the
+"^DD",727.815,727.815,119,23,5,0)
+NATIONAL CLINIC file (#728.441).
+"^DD",727.815,727.815,119,"DT")
+3130521
+"^DD",727.815,727.815,120,0)
+CLINIC IEN^*P44'O^SC(^3;10^S DIC("S")="I $P(^(0),""^"",3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
+"^DD",727.815,727.815,120,2)
+S Y(0)=Y S X=Y(0),X=X S Y=X
+"^DD",727.815,727.815,120,2.1)
+INTERNAL(CLINIC IEN)
+"^DD",727.815,727.815,120,3)
+Enter the clinic associated with this Event Capture record.
+"^DD",727.815,727.815,120,12)
+Allows selection of Clinic entries only.
+"^DD",727.815,727.815,120,12.1)
+S DIC("S")="I $P(^(0),""^"",3)=""C"""
+"^DD",727.815,727.815,120,21,0)
+^.001^1^1^3130522^^^^
+"^DD",727.815,727.815,120,21,1,0)
+The Associated Clinic of the Event Capture (EC) Procedure.
+"^DD",727.815,727.815,120,23,0)
+^^4^4^3130522^
+"^DD",727.815,727.815,120,23,1,0)
+CLINIC IEN is retrieved from the ASSOCIATED CLINIC field (#26) of the
+"^DD",727.815,727.815,120,23,2,0)
+EVENT CAPTURE PATIENT file (#721). The value stored here is a copy of the
+"^DD",727.815,727.815,120,23,3,0)
+value stored in the ASSOCIATED CLINIC field (#26) of the EVENT CAPTURE
+"^DD",727.815,727.815,120,23,4,0)
+PATIENT file (#721).
+"^DD",727.815,727.815,120,"DT")
+3130522
+"^DD",727.815,727.815,121,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^3;11^Q
+"^DD",727.815,727.815,121,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.815,727.815,121,21,0)
+^^2^2^3130507^
+"^DD",727.815,727.815,121,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.815,727.815,121,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.815,727.815,121,23,0)
+^^3^3^3130507^
+"^DD",727.815,727.815,121,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.815,727.815,121,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.815,727.815,121,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.815,727.815,121,"DT")
+3130310
+"^DD",727.815,727.815,122,0)
+ENCOUNTER CAMP LEJEUNE^S^Y:YES;N:NO;^3;12^Q
+"^DD",727.815,727.815,122,3)
+Indicate if this encounter is related to exposure at Camp Lejeune.
+"^DD",727.815,727.815,122,21,0)
+^^3^3^3130507^
+"^DD",727.815,727.815,122,21,1,0)
+Indicates if episode of care is related to exposure to contaminated water
+"^DD",727.815,727.815,122,21,2,0)
+while stationed at Camp Lejeune, NC between January 1, 1957 and December
+"^DD",727.815,727.815,122,21,3,0)
+31, 1987.
+"^DD",727.815,727.815,122,23,0)
+^^3^3^3130507^
+"^DD",727.815,727.815,122,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.815,727.815,122,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI
+"^DD",727.815,727.815,122,23,3,0)
+returns the encounter Camp Lejeune data from the VISIT file (#9000010).
+"^DD",727.815,727.815,122,"DT")
+3130310
+"^DD",727.819,727.819,17,0)
+DEA, SPECIAL HDLG^S^I:INVESTIGATIONAL;1:SCHEDULE 1 ITEM;2:SCHEDULE 2 ITEM;3:SCHEDULE 3 ITEM;4:SCHEDULE 4 ITEM;5:SCHEDULE 5 ITEM;^0;17^Q
+"^DD",727.819,727.819,17,.1)
+DEA Special Handling
+"^DD",727.819,727.819,17,3)
+Enter I if the drug is investigational or 1-5 depending on the Drug's Schedule Item.
+"^DD",727.819,727.819,17,21,0)
+^.001^1^1^3130821^^^^
+"^DD",727.819,727.819,17,21,1,0)
+Indicates if the drug in this record is Investigational, or Schedule 1-5.
+"^DD",727.819,727.819,17,23,0)
+^.001^3^3^3130821^^
+"^DD",727.819,727.819,17,23,1,0)
+Derived from the DEA, SPECIAL HDLG field (#3) in the DRUG file (#50). If
+"^DD",727.819,727.819,17,23,2,0)
+the field contains a "1","2","3","4" or "5" (DRUG SCHEDULE) it will be set
+"^DD",727.819,727.819,17,23,3,0)
+to that number. Otherwise, if it contains an I, it will be set to I.
+"^DD",727.819,727.819,17,"DT")
+3120304
+"^DD",727.819,727.819,66,0)
+RACE 1^F^^2;3^K:$L(X)>6!($L(X)<1) X
+"^DD",727.819,727.819,66,.1)
+Race 1
+"^DD",727.819,727.819,66,3)
+Answer must be 1-6 characters in length.
+"^DD",727.819,727.819,66,21,0)
+^.001^1^1^3130515^^^^
+"^DD",727.819,727.819,66,21,1,0)
+Self-reported by patient as recorded in VistA patient file.
+"^DD",727.819,727.819,66,23,0)
+^^17^17^3130515^
+"^DD",727.819,727.819,66,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field
+"^DD",727.819,727.819,66,23,2,0)
+(#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file
+"^DD",727.819,727.819,66,23,3,0)
+(#10) pointed to by the RACE INFORMATION field (#.01) of the
+"^DD",727.819,727.819,66,23,4,0)
+RACE INFORMATION subfile (#2.02) of the PATIENT file (#2).
+"^DD",727.819,727.819,66,23,5,0)
+
+"^DD",727.819,727.819,66,23,6,0)
+Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)
+"^DD",727.819,727.819,66,23,7,0)
+where the METHOD OF COLLECTION field (#.02) is set to 1
+"^DD",727.819,727.819,66,23,8,0)
+(SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race
+"^DD",727.819,727.819,66,23,9,0)
+entries can be included. If any of the RACE INFORMATION values returned is
+"^DD",727.819,727.819,66,23,10,0)
+"C" (DECLINED TO ANSWER), that will be the only value included in the
+"^DD",727.819,727.819,66,23,11,0)
+RACE1 field.
+"^DD",727.819,727.819,66,23,12,0)
+
+"^DD",727.819,727.819,66,23,13,0)
+If the RACE 1 field is null after checking the RACE INFORMATION values
+"^DD",727.819,727.819,66,23,14,0)
+then the patient's historical RACE data will be checked to see if it
+"^DD",727.819,727.819,66,23,15,0)
+contains one of the twenty six non-standard race values that are
+"^DD",727.819,727.819,66,23,16,0)
+convertible to standard race values. If so, the race value will be
+"^DD",727.819,727.819,66,23,17,0)
+converted to the standard value and stored in the RACE 1 field.
+"^DD",727.819,727.819,66,"DT")
+3020828
+"^DD",727.819,727.819,67,0)
+PLACEHOLDER^P50'^PSDRUG(^2;4^Q
+"^DD",727.819,727.819,67,.1)
+
+"^DD",727.819,727.819,67,3)
+Enter drug dispensed.
+"^DD",727.819,727.819,67,21,0)
+^.001^1^1^3130903^^^
+"^DD",727.819,727.819,67,21,1,0)
+Currently NULL. This field is not currently used.
+"^DD",727.819,727.819,67,23,0)
+^^1^1^3130903^
+"^DD",727.819,727.819,67,23,1,0)
+Currently NULL.
+"^DD",727.819,727.819,67,"DT")
+3130405
+"^DD",727.819,727.819,68,0)
+PLACEHOLDER^NJ5,2^^2;5^K:+X'=X!(X>50)!(X<0)!(X?.E1"."3N.N) X
+"^DD",727.819,727.819,68,.1)
+
+"^DD",727.819,727.819,68,3)
+Type a Number between 0 and 50, 2 Decimal Digits.
+"^DD",727.819,727.819,68,21,0)
+^^1^1^3130515^
+"^DD",727.819,727.819,68,21,1,0)
+Currently NULL. This field is not currently used.
+"^DD",727.819,727.819,68,23,0)
+^^1^1^3130515^
+"^DD",727.819,727.819,68,23,1,0)
+Currently NULL.
+"^DD",727.819,727.819,68,"DT")
+3130405
+"^DD",727.819,727.819,69,0)
+PLACEHOLDER^F^^2;6^K:$L(X)>40!($L(X)<1) X
+"^DD",727.819,727.819,69,.1)
+
+"^DD",727.819,727.819,69,3)
+Answer must be 1-40 characters in length.
+"^DD",727.819,727.819,69,21,0)
+^.001^1^1^3130515^^^
+"^DD",727.819,727.819,69,21,1,0)
+Currently NULL. This field is not currently used.
+"^DD",727.819,727.819,69,23,0)
+^^1^1^3130515^
+"^DD",727.819,727.819,69,23,1,0)
+Currently NULL.
+"^DD",727.819,727.819,69,"DT")
+3130405
+"^DD",727.819,727.819,70,0)
+PLACEHOLDER^S^Y:YES;N:NO;^2;7^Q
+"^DD",727.819,727.819,70,.1)
+
+"^DD",727.819,727.819,70,3)
+Indicate if patient is in the ICU.
+"^DD",727.819,727.819,70,21,0)
+^.001^1^1^3130515^^
+"^DD",727.819,727.819,70,21,1,0)
+Currently NULL. This field is not currently used.
+"^DD",727.819,727.819,70,23,0)
+^^1^1^3130515^
+"^DD",727.819,727.819,70,23,1,0)
+Currently NULL.
+"^DD",727.819,727.819,70,"DT")
+3130515
+"^DD",727.819,727.819,89,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^2;26^Q
+"^DD",727.819,727.819,89,3)
+Is this Encounter Service Connected?
+"^DD",727.819,727.819,89,21,0)
+^.001^2^2^3130514^^^
+"^DD",727.819,727.819,89,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.819,727.819,89,21,2,0)
+Connected.
+"^DD",727.819,727.819,89,23,0)
+^^4^4^3130514^
+"^DD",727.819,727.819,89,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.819,727.819,89,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.819,727.819,89,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.819,727.819,89,23,4,0)
+(#9000010).
+"^DD",727.819,727.819,89,"DT")
+3130311
+"^DD",727.819,727.819,90,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^2;27^Q
+"^DD",727.819,727.819,90,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.819,727.819,90,21,0)
+^^2^2^3130507^
+"^DD",727.819,727.819,90,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.819,727.819,90,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.819,727.819,90,23,0)
+^^3^3^3130507^
+"^DD",727.819,727.819,90,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.819,727.819,90,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.819,727.819,90,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.819,727.819,90,"DT")
+3130309
+"^DD",727.819,727.819,91,0)
+ENCOUNTER CAMP LEJEUNE^S^Y:YES;N:NO;^2;28^Q
+"^DD",727.819,727.819,91,3)
+Indicate if this encounter is related to exposure at Camp Lejeune.
+"^DD",727.819,727.819,91,21,0)
+^^3^3^3130507^
+"^DD",727.819,727.819,91,21,1,0)
+Indicates if episode of care is related to exposure to contaminated water
+"^DD",727.819,727.819,91,21,2,0)
+while stationed at Camp Lejeune, NC between January 1, 1957 and December
+"^DD",727.819,727.819,91,21,3,0)
+31, 1987.
+"^DD",727.819,727.819,91,23,0)
+^^3^3^3130507^
+"^DD",727.819,727.819,91,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.819,727.819,91,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI
+"^DD",727.819,727.819,91,23,3,0)
+returns the encounter Camp Lejeune data from the VISIT file (#9000010).
+"^DD",727.819,727.819,91,"DT")
+3130309
+"^DD",727.824,727.824,33,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^1;14^Q
+"^DD",727.824,727.824,33,3)
+Is this Encounter Service Connected?
+"^DD",727.824,727.824,33,21,0)
+^.001^2^2^3130514^^^
+"^DD",727.824,727.824,33,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.824,727.824,33,21,2,0)
+Connected.
+"^DD",727.824,727.824,33,23,0)
+^^4^4^3130514^
+"^DD",727.824,727.824,33,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.824,727.824,33,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.824,727.824,33,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.824,727.824,33,23,4,0)
+(#9000010).
+"^DD",727.824,727.824,33,"DT")
+3130309
+"^DD",727.824,727.824,34,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^1;15^Q
+"^DD",727.824,727.824,34,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.824,727.824,34,21,0)
+^^2^2^3130507^
+"^DD",727.824,727.824,34,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.824,727.824,34,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.824,727.824,34,23,0)
+^^3^3^3130507^
+"^DD",727.824,727.824,34,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.824,727.824,34,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.824,727.824,34,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.824,727.824,34,"DT")
+3130309
+"^DD",727.824,727.824,35,0)
+ENCOUNTER CAMP LEJEUNE^S^Y:YES;N:NO;^1;16^Q
+"^DD",727.824,727.824,35,3)
+Indicate if this encounter is related to exposure at Camp Lejeune.
+"^DD",727.824,727.824,35,21,0)
+^^3^3^3130507^
+"^DD",727.824,727.824,35,21,1,0)
+Indicates if episode of care is related to exposure to contaminated water
+"^DD",727.824,727.824,35,21,2,0)
+while stationed at Camp Lejeune, NC between January 1, 1957 and December
+"^DD",727.824,727.824,35,21,3,0)
+31, 1987.
+"^DD",727.824,727.824,35,23,0)
+^^3^3^3130507^
+"^DD",727.824,727.824,35,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.824,727.824,35,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI
+"^DD",727.824,727.824,35,23,3,0)
+returns the encounter Camp Lejeune data from the VISIT file (#9000010).
+"^DD",727.824,727.824,35,"DT")
+3130309
+"^DD",727.825,727.825,73,0)
+RACE 1^F^^1;32^K:$L(X)>6!($L(X)<1) X
+"^DD",727.825,727.825,73,.1)
+Race 1
+"^DD",727.825,727.825,73,3)
+Answer must be 1-6 characters in length.
+"^DD",727.825,727.825,73,21,0)
+^.001^1^1^3130219^^^^
+"^DD",727.825,727.825,73,21,1,0)
+Self-reported by patient as recorded in VistA patient file.
+"^DD",727.825,727.825,73,23,0)
+^^17^17^3130219^
+"^DD",727.825,727.825,73,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field
+"^DD",727.825,727.825,73,23,2,0)
+(#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file
+"^DD",727.825,727.825,73,23,3,0)
+(#10) pointed to by the RACE INFORMATION field (#.01) of the
+"^DD",727.825,727.825,73,23,4,0)
+RACE INFORMATION subfile (#2.02) of the PATIENT file (#2).
+"^DD",727.825,727.825,73,23,5,0)
+
+"^DD",727.825,727.825,73,23,6,0)
+Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)
+"^DD",727.825,727.825,73,23,7,0)
+where the METHOD OF COLLECTION field (#.02) is set to 1
+"^DD",727.825,727.825,73,23,8,0)
+(SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race
+"^DD",727.825,727.825,73,23,9,0)
+entries can be included. If any of the RACE INFORMATION values returned is
+"^DD",727.825,727.825,73,23,10,0)
+"C" (DECLINED TO ANSWER), that will be the only value included in the
+"^DD",727.825,727.825,73,23,11,0)
+RACE1 field.
+"^DD",727.825,727.825,73,23,12,0)
+
+"^DD",727.825,727.825,73,23,13,0)
+If the RACE 1 field is null after checking the RACE INFORMATION values
+"^DD",727.825,727.825,73,23,14,0)
+then the patient's historical RACE data will be checked to see if it
+"^DD",727.825,727.825,73,23,15,0)
+contains one of the twenty six non-standard race values that are
+"^DD",727.825,727.825,73,23,16,0)
+convertible to standard race values. If so, the race value will be
+"^DD",727.825,727.825,73,23,17,0)
+converted to the standard value and stored in the RACE 1 field.
+"^DD",727.825,727.825,73,"DT")
+3020828
+"^DD",727.825,727.825,111,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^3;2^Q
+"^DD",727.825,727.825,111,3)
+Is this Encounter Service Connected?
+"^DD",727.825,727.825,111,21,0)
+^.001^2^2^3130522^^^^
+"^DD",727.825,727.825,111,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.825,727.825,111,21,2,0)
+Connected.
+"^DD",727.825,727.825,111,23,0)
+^.001^4^4^3130522^^
+"^DD",727.825,727.825,111,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.825,727.825,111,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.825,727.825,111,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.825,727.825,111,23,4,0)
+(#9000010).
+"^DD",727.825,727.825,111,"DT")
+3130308
+"^DD",727.825,727.825,112,0)
+VIETNAM^S^Y:YES;N:NO;U:UNKNOWN;^3;3^Q
+"^DD",727.825,727.825,112,3)
+Select the appropriate Vietnam service status for this patient.
+"^DD",727.825,727.825,112,21,0)
+^.001^1^1^3130522^^^^
+"^DD",727.825,727.825,112,21,1,0)
+Indicates if patient is a Vietnam era veteran.
+"^DD",727.825,727.825,112,23,0)
+^.001^3^3^3130522^^
+"^DD",727.825,727.825,112,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)
+"^DD",727.825,727.825,112,23,2,0)
+in the QUASAR EXTRACT file (#727.825), VIETNAM data is derived from the
+"^DD",727.825,727.825,112,23,3,0)
+VIETNAM SERVICE INDICATED? field (#.32101) in the PATIENT file (#2).
+"^DD",727.825,727.825,112,"DT")
+3130304
+"^DD",727.825,727.825,113,0)
+PROVIDER #6^F^^3;4^K:$L(X)>11!($L(X)<2) X
+"^DD",727.825,727.825,113,3)
+Answer must be 2-11 characters in length.
+"^DD",727.825,727.825,113,21,0)
+^.001^3^3^3130806^^^^
+"^DD",727.825,727.825,113,21,1,0)
+The sixth provider associated with the patient encounter. It represents
+"^DD",727.825,727.825,113,21,2,0)
+an assisting Provider who performed the procedure associated with the A&SP
+"^DD",727.825,727.825,113,21,3,0)
+Clinic Visit record.
+"^DD",727.825,727.825,113,23,0)
+^.001^4^4^3130806^^^
+"^DD",727.825,727.825,113,23,1,0)
+A character string of format "2"_IEN, where IEN is the internal entry
+"^DD",727.825,727.825,113,23,2,0)
+number for the Provider in the NEW PERSON file (#200). Data is pulled
+"^DD",727.825,727.825,113,23,3,0)
+from the fifth (#2.7) SECONDARY PROVIDER multiple in the A&SP CLINIC
+"^DD",727.825,727.825,113,23,4,0)
+VISIT file (#509850.6).
+"^DD",727.825,727.825,113,"DT")
+3130312
+"^DD",727.825,727.825,114,0)
+PROVIDER #6 PERSON CLASS^F^^3;5^K:$L(X)>7!($L(X)<7) X
+"^DD",727.825,727.825,114,3)
+Answer must be 7 characters in length.
+"^DD",727.825,727.825,114,21,0)
+^.001^2^2^3130806^^^^
+"^DD",727.825,727.825,114,21,1,0)
+This is the VA code of the Person Class of the sixth assisting Provider
+"^DD",727.825,727.825,114,21,2,0)
+as of the date of this record.
+"^DD",727.825,727.825,114,23,0)
+^.001^4^4^3130806^^
+"^DD",727.825,727.825,114,23,1,0)
+Derived by calling $$PRVCLASS^ECXUTL(IEN,DATE), where IEN is the IEN of
+"^DD",727.825,727.825,114,23,2,0)
+the NEW PERSON (#200) File. Copied from field VA CODE (#5) of the PERSON
+"^DD",727.825,727.825,114,23,3,0)
+CLASS (#8932.1) file, as pointed to by the Person Class (#.01) field of
+"^DD",727.825,727.825,114,23,4,0)
+the PERSON CLASS (#8932.1) multiple of the NEW PERSON (#200) file.
+"^DD",727.825,727.825,114,"DT")
+3130312
+"^DD",727.825,727.825,115,0)
+PROVIDER #6 NPI^F^^3;6^K:$L(X)>10!($L(X)<10) X
+"^DD",727.825,727.825,115,3)
+Answer must be 10 characters in length.
+"^DD",727.825,727.825,115,21,0)
+^.001^2^2^3130806^^^
+"^DD",727.825,727.825,115,21,1,0)
+A standard unique life-long identifier of the sixth assisting provider
+"^DD",727.825,727.825,115,21,2,0)
+of health care service.
+"^DD",727.825,727.825,115,23,0)
+^.001^1^1^3130806^^^^
+"^DD",727.825,727.825,115,23,1,0)
+The NPI is retrieved via the supporting Kernel API: $$NPI^XUSNPI.
+"^DD",727.825,727.825,115,"DT")
+3130403
+"^DD",727.825,727.825,116,0)
+PROVIDER #7^F^^3;7^K:$L(X)>11!($L(X)<2) X
+"^DD",727.825,727.825,116,3)
+Answer must be 2-11 characters in length.
+"^DD",727.825,727.825,116,21,0)
+^.001^3^3^3130522^^^^
+"^DD",727.825,727.825,116,21,1,0)
+The seventh provider associated with the patient encounter. It represents
+"^DD",727.825,727.825,116,21,2,0)
+an assisting Provider who performed the procedure associated with the A&SP
+"^DD",727.825,727.825,116,21,3,0)
+Clinic Visit record.
+"^DD",727.825,727.825,116,23,0)
+^.001^4^4^3130522^^
+"^DD",727.825,727.825,116,23,1,0)
+A character string of format "2"_IEN, where IEN is the internal entry
+"^DD",727.825,727.825,116,23,2,0)
+number for the Provider in the NEW PERSON file (#200). Data is pulled
+"^DD",727.825,727.825,116,23,3,0)
+from the sixth (#2.7) SECONDARY PROVIDER multiple in the A&SP CLINIC
+"^DD",727.825,727.825,116,23,4,0)
+VISIT file (#509850.6).
+"^DD",727.825,727.825,116,"DT")
+3130312
+"^DD",727.825,727.825,117,0)
+PROVIDER #7 PERSON CLASS^F^^3;8^K:$L(X)>7!($L(X)<7) X
+"^DD",727.825,727.825,117,3)
+Answer must be 7 characters in length.
+"^DD",727.825,727.825,117,21,0)
+^.001^2^2^3130522^^^
+"^DD",727.825,727.825,117,21,1,0)
+This is the VA code of the Person Class of the seventh assisting Provider
+"^DD",727.825,727.825,117,21,2,0)
+as of the date of this record.
+"^DD",727.825,727.825,117,23,0)
+^^4^4^3130522^
+"^DD",727.825,727.825,117,23,1,0)
+Derived by calling $$PRVCLASS^ECXUTL(IEN,DATE), where IEN is the IEN of
+"^DD",727.825,727.825,117,23,2,0)
+the NEW PERSON (#200) File. Copied from field VA CODE (#5) of the PERSON
+"^DD",727.825,727.825,117,23,3,0)
+CLASS (#8932.1) file, as pointed to by the Person Class (#.01) field of
+"^DD",727.825,727.825,117,23,4,0)
+the PERSON CLASS (#8932.1) multiple of the NEW PERSON (#200) file.
+"^DD",727.825,727.825,117,"DT")
+3130312
+"^DD",727.825,727.825,118,0)
+PROVIDER #7 NPI^F^^3;9^K:$L(X)>10!($L(X)<10) X
+"^DD",727.825,727.825,118,3)
+Answer must be 10 characters in length.
+"^DD",727.825,727.825,118,21,0)
+^^2^2^3130522^
+"^DD",727.825,727.825,118,21,1,0)
+A standard unique life-long identifier of the seventh assisting provider
+"^DD",727.825,727.825,118,21,2,0)
+of health care service.
+"^DD",727.825,727.825,118,23,0)
+^.001^1^1^3130522^^^
+"^DD",727.825,727.825,118,23,1,0)
+The NPI is retrieved via the supporting Kernel API: $$NPI^XUSNPI.
+"^DD",727.825,727.825,118,"DT")
+3130403
+"^DD",727.825,727.825,119,0)
+4CHAR^F^^3;10^K:$L(X)>4!($L(X)<1) X
+"^DD",727.825,727.825,119,3)
+Answer must be 1-4 characters in length.
+"^DD",727.825,727.825,119,21,0)
+^.001^2^2^3130522^^
+"^DD",727.825,727.825,119,21,1,0)
+A 4-character code value of the associated clinic as specified from the
+"^DD",727.825,727.825,119,21,2,0)
+DSS Clinics and Stop Code Worksheet File.
+"^DD",727.825,727.825,119,23,0)
+^^5^5^3130522^
+"^DD",727.825,727.825,119,23,1,0)
+4CHAR is determined by using the CLINIC IEN field (#120) of this file to
+"^DD",727.825,727.825,119,23,2,0)
+retrieve the NATIONAL CODE field (#7) from the CLINICS AND STOP CODES file
+"^DD",727.825,727.825,119,23,3,0)
+(#728.44). The NATIONAL CODE (#7) field points to the NATIONAL CLINIC
+"^DD",727.825,727.825,119,23,4,0)
+(#728.441) file. This field is a copy of the CODE (#.01) field of the
+"^DD",727.825,727.825,119,23,5,0)
+NATIONAL CLINIC file (#728.441).
+"^DD",727.825,727.825,119,"DT")
+3130310
+"^DD",727.825,727.825,120,0)
+CLINIC IEN^*P44'O^SC(^3;11^S DIC("S")="I $P(^(0),""^"",3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
+"^DD",727.825,727.825,120,2)
+S Y(0)=Y S X=Y(0),X=X S Y=X
+"^DD",727.825,727.825,120,2.1)
+INTERNAL(CLINIC IEN)
+"^DD",727.825,727.825,120,3)
+Enter the clinic associated with this A&SP clinic visit.
+"^DD",727.825,727.825,120,12)
+Allows selection of Clinic entries only.
+"^DD",727.825,727.825,120,12.1)
+S DIC("S")="I $P(^(0),""^"",3)=""C"""
+"^DD",727.825,727.825,120,21,0)
+^^1^1^3130522^
+"^DD",727.825,727.825,120,21,1,0)
+The Clinic Location of the A&SP clinic visit record.
+"^DD",727.825,727.825,120,23,0)
+^^4^4^3130522^
+"^DD",727.825,727.825,120,23,1,0)
+CLINIC IEN is retrieved from the CLINIC LOCATION field (#2.6) of the
+"^DD",727.825,727.825,120,23,2,0)
+A&SP CLINIC VISIT file (#509850.6). The value stored here is a copy of the
+"^DD",727.825,727.825,120,23,3,0)
+value stored in the CLINIC LOCATION field (#2.6) of the A&SP CLINIC VISIT
+"^DD",727.825,727.825,120,23,4,0)
+file (#509850.6).
+"^DD",727.825,727.825,120,"DT")
+3130522
+"^DD",727.825,727.825,121,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^3;12^Q
+"^DD",727.825,727.825,121,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.825,727.825,121,21,0)
+^^2^2^3130507^
+"^DD",727.825,727.825,121,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.825,727.825,121,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.825,727.825,121,23,0)
+^^3^3^3130507^
+"^DD",727.825,727.825,121,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.825,727.825,121,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.825,727.825,121,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.825,727.825,121,"DT")
+3130310
+"^DD",727.825,727.825,122,0)
+ENCOUNTER CAMP LEJEUNE^S^Y:YES;N:NO;^3;13^Q
+"^DD",727.825,727.825,122,3)
+Indicate if this encounter is related to exposure at Camp Lejeune.
+"^DD",727.825,727.825,122,21,0)
+^^3^3^3130507^
+"^DD",727.825,727.825,122,21,1,0)
+Indicates if episode of care is related to exposure to contaminated water
+"^DD",727.825,727.825,122,21,2,0)
+while stationed at Camp Lejeune, NC between January 1, 1957 and December
+"^DD",727.825,727.825,122,21,3,0)
+31, 1987.
+"^DD",727.825,727.825,122,23,0)
+^^3^3^3130507^
+"^DD",727.825,727.825,122,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.825,727.825,122,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI
+"^DD",727.825,727.825,122,23,3,0)
+returns the encounter Camp Lejeune data from the VISIT file (#9000010).
+"^DD",727.825,727.825,122,"DT")
+3130310
+"^DD",727.826,727.826,66,0)
+RACE 1^F^^1;34^K:$L(X)>6!($L(X)<1) X
+"^DD",727.826,727.826,66,.1)
+Race 1
+"^DD",727.826,727.826,66,3)
+Answer must be 1-6 characters in length.
+"^DD",727.826,727.826,66,21,0)
+^.001^1^1^3130219^^^
+"^DD",727.826,727.826,66,21,1,0)
+Self-reported by patient as recorded in VistA patient file.
+"^DD",727.826,727.826,66,23,0)
+^^17^17^3130219^
+"^DD",727.826,727.826,66,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field
+"^DD",727.826,727.826,66,23,2,0)
+(#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file
+"^DD",727.826,727.826,66,23,3,0)
+(#10) pointed to by the RACE INFORMATION field (#.01) of the
+"^DD",727.826,727.826,66,23,4,0)
+RACE INFORMATION subfile (#2.02) of the PATIENT file (#2).
+"^DD",727.826,727.826,66,23,5,0)
+
+"^DD",727.826,727.826,66,23,6,0)
+Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)
+"^DD",727.826,727.826,66,23,7,0)
+where the METHOD OF COLLECTION field (#.02) is set to 1
+"^DD",727.826,727.826,66,23,8,0)
+(SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race
+"^DD",727.826,727.826,66,23,9,0)
+entries can be included. If any of the RACE INFORMATION values returned is
+"^DD",727.826,727.826,66,23,10,0)
+"C" (DECLINED TO ANSWER), that will be the only value included in the
+"^DD",727.826,727.826,66,23,11,0)
+RACE1 field.
+"^DD",727.826,727.826,66,23,12,0)
+
+"^DD",727.826,727.826,66,23,13,0)
+If the RACE 1 field is null after checking the RACE INFORMATION values
+"^DD",727.826,727.826,66,23,14,0)
+then the patient's historical RACE data will be checked to see if it
+"^DD",727.826,727.826,66,23,15,0)
+contains one of the twenty six non-standard race values that are
+"^DD",727.826,727.826,66,23,16,0)
+convertible to standard race values. If so, the race value will be
+"^DD",727.826,727.826,66,23,17,0)
+converted to the standard value and stored in the RACE 1 field.
+"^DD",727.826,727.826,66,"DT")
+3020829
+"^DD",727.826,727.826,97,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^2;17^Q
+"^DD",727.826,727.826,97,3)
+Is this Encounter Service Connected?
+"^DD",727.826,727.826,97,21,0)
+^.001^2^2^3130514^^^
+"^DD",727.826,727.826,97,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.826,727.826,97,21,2,0)
+Connected.
+"^DD",727.826,727.826,97,23,0)
+^^4^4^3130514^
+"^DD",727.826,727.826,97,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.826,727.826,97,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.826,727.826,97,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.826,727.826,97,23,4,0)
+(#9000010).
+"^DD",727.826,727.826,97,"DT")
+3130309
+"^DD",727.826,727.826,98,0)
+VIETNAM^S^Y:YES;N:NO;U:UNKNOWN;^2;18^Q
+"^DD",727.826,727.826,98,3)
+Select the appropriate Vietnam service status for this patient.
+"^DD",727.826,727.826,98,21,0)
+^.001^1^1^3130507^^^
+"^DD",727.826,727.826,98,21,1,0)
+Indicates if patient is a Vietnam era veteran.
+"^DD",727.826,727.826,98,23,0)
+^^3^3^3130507^
+"^DD",727.826,727.826,98,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)
+"^DD",727.826,727.826,98,23,2,0)
+in the PROSTHETICS EXTRACT file (#727.826), VIETNAM data is derived from
+"^DD",727.826,727.826,98,23,3,0)
+the VIETNAM SERVICE INDICATED? field (#.32101) in the PATIENT file (#2).
+"^DD",727.826,727.826,98,"DT")
+3130309
+"^DD",727.826,727.826,99,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^2;19^Q
+"^DD",727.826,727.826,99,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.826,727.826,99,21,0)
+^^2^2^3130507^
+"^DD",727.826,727.826,99,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.826,727.826,99,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.826,727.826,99,23,0)
+^^3^3^3130507^
+"^DD",727.826,727.826,99,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.826,727.826,99,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.826,727.826,99,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.826,727.826,99,"DT")
+3130309
+"^DD",727.826,727.826,100,0)
+ENCOUNTER CAMP LEJEUNE^S^Y:YES;N:NO;^2;20^Q
+"^DD",727.826,727.826,100,3)
+Indicate if this encounter is related to exposure at Camp Lejeune.
+"^DD",727.826,727.826,100,21,0)
+^^3^3^3130507^
+"^DD",727.826,727.826,100,21,1,0)
+Indicates if episode of care is related to exposure to contaminated water
+"^DD",727.826,727.826,100,21,2,0)
+while stationed at Camp Lejeune, NC between January 1, 1957 and December
+"^DD",727.826,727.826,100,21,3,0)
+31, 1987.
+"^DD",727.826,727.826,100,23,0)
+^^3^3^3130507^
+"^DD",727.826,727.826,100,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.826,727.826,100,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI
+"^DD",727.826,727.826,100,23,3,0)
+returns the encounter Camp Lejeune data from the VISIT file (#9000010).
+"^DD",727.826,727.826,100,"DT")
+3130309
+"^DD",727.827,727.827,74,0)
+RACE 1^F^^2;14^K:$L(X)>6!($L(X)<1) X
+"^DD",727.827,727.827,74,.1)
+Race 1
+"^DD",727.827,727.827,74,3)
+Answer must be 1-6 characters in length.
+"^DD",727.827,727.827,74,21,0)
+^.001^1^1^3130219^^^
+"^DD",727.827,727.827,74,21,1,0)
+Self-reported by patient as recorded in VistA patient file.
+"^DD",727.827,727.827,74,23,0)
+^^17^17^3130219^
+"^DD",727.827,727.827,74,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field
+"^DD",727.827,727.827,74,23,2,0)
+(#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file
+"^DD",727.827,727.827,74,23,3,0)
+(#10) pointed to by the RACE INFORMATION field (#.01) of the
+"^DD",727.827,727.827,74,23,4,0)
+RACE INFORMATION subfile (#2.02) of the PATIENT file (#2).
+"^DD",727.827,727.827,74,23,5,0)
+
+"^DD",727.827,727.827,74,23,6,0)
+Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)
+"^DD",727.827,727.827,74,23,7,0)
+where the METHOD OF COLLECTION field (#.02) is set to 1
+"^DD",727.827,727.827,74,23,8,0)
+(SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race
+"^DD",727.827,727.827,74,23,9,0)
+entries can be included. If any of the RACE INFORMATION values returned is
+"^DD",727.827,727.827,74,23,10,0)
+"C" (DECLINED TO ANSWER), that will be the only value included in the
+"^DD",727.827,727.827,74,23,11,0)
+RACE1 field.
+"^DD",727.827,727.827,74,23,12,0)
+
+"^DD",727.827,727.827,74,23,13,0)
+If the RACE 1 field is null after checking the RACE INFORMATION values
+"^DD",727.827,727.827,74,23,14,0)
+then the patient's historical RACE data will be checked to see if it
+"^DD",727.827,727.827,74,23,15,0)
+contains one of the twenty six non-standard race values that are
+"^DD",727.827,727.827,74,23,16,0)
+convertible to standard race values. If so, the race value will be
+"^DD",727.827,727.827,74,23,17,0)
+converted to the standard value and stored in the RACE 1 field.
+"^DD",727.827,727.827,74,"DT")
+3020828
+"^DD",727.827,727.827,117,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^3;25^Q
+"^DD",727.827,727.827,117,3)
+Is this Encounter Service Connected?
+"^DD",727.827,727.827,117,21,0)
+^.001^2^2^3130514^^^^
+"^DD",727.827,727.827,117,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.827,727.827,117,21,2,0)
+Connected.
+"^DD",727.827,727.827,117,23,0)
+^^4^4^3130514^
+"^DD",727.827,727.827,117,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.827,727.827,117,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.827,727.827,117,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.827,727.827,117,23,4,0)
+(#9000010).
+"^DD",727.827,727.827,117,"DT")
+3130308
+"^DD",727.827,727.827,118,0)
+VIETNAM^S^Y:YES;N:NO;U:UNKNOWN;^3;26^Q
+"^DD",727.827,727.827,118,3)
+Select the appropriate Vietnam service status for this patient.
+"^DD",727.827,727.827,118,21,0)
+^.001^1^1^3130507^^^
+"^DD",727.827,727.827,118,21,1,0)
+Indicates if patient is a Vietnam era veteran.
+"^DD",727.827,727.827,118,23,0)
+^^3^3^3130507^
+"^DD",727.827,727.827,118,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)
+"^DD",727.827,727.827,118,23,2,0)
+in this file, VIETNAM data is derived from the VIETNAM SERVICE INDICATED?
+"^DD",727.827,727.827,118,23,3,0)
+field (#.32101) in the PATIENT file (#2).
+"^DD",727.827,727.827,118,"DT")
+3130308
+"^DD",727.827,727.827,119,0)
+SECONDARY PROVIDER #6^F^^3;27^K:$L(X)>11!($L(X)<2) X
+"^DD",727.827,727.827,119,3)
+Answer must be 2-11 characters in length.
+"^DD",727.827,727.827,119,21,0)
+^.001^1^1^3130806^^^
+"^DD",727.827,727.827,119,21,1,0)
+This is the sixth assisting provider associated with this clinic visit.
+"^DD",727.827,727.827,119,23,0)
+^.001^5^5^3130806^^^^
+"^DD",727.827,727.827,119,23,1,0)
+Data is derived by making a call to the ENCEVENT^PXAPI (DBIA1889-F) API
+"^DD",727.827,727.827,119,23,2,0)
+using the clinic encounter, returning the secondary provider IEN.
+"^DD",727.827,727.827,119,23,3,0)
+
+"^DD",727.827,727.827,119,23,4,0)
+A character string of format "2"_IEN, where IEN is the internal entry
+"^DD",727.827,727.827,119,23,5,0)
+number for the secondary provider in the NEW PERSON file (#200).
+"^DD",727.827,727.827,119,"DT")
+3130312
+"^DD",727.827,727.827,120,0)
+SECONDARY PROVIDER #6 PC^F^^3;28^K:$L(X)>7!($L(X)<7) X
+"^DD",727.827,727.827,120,3)
+Answer must be 7 characters in length.
+"^DD",727.827,727.827,120,21,0)
+^.001^2^2^3130806^^^
+"^DD",727.827,727.827,120,21,1,0)
+The VA code of the Person Class of the sixth assisting provider as of the
+"^DD",727.827,727.827,120,21,2,0)
+date of this record.
+"^DD",727.827,727.827,120,23,0)
+^.001^4^4^3130806^^^
+"^DD",727.827,727.827,120,23,1,0)
+Derived by calling $$PRVCLASS^ECXUTL(IEN,DATE), where IEN is the IEN of
+"^DD",727.827,727.827,120,23,2,0)
+the NEW PERSON (#200) File. Copied from field VA CODE (#5) of the PERSON
+"^DD",727.827,727.827,120,23,3,0)
+CLASS (#8932.1) file, as pointed to by the Person Class (#.01) field of
+"^DD",727.827,727.827,120,23,4,0)
+the PERSON CLASS (#8932.1) multiple of the NEW PERSON (#200) file.
+"^DD",727.827,727.827,120,"DT")
+3130312
+"^DD",727.827,727.827,121,0)
+SECONDARY PROVIDER #6 NPI^F^^3;29^K:$L(X)>10!($L(X)<10) X
+"^DD",727.827,727.827,121,3)
+Answer must be 10 characters in length.
+"^DD",727.827,727.827,121,21,0)
+^.001^2^2^3130806^^^
+"^DD",727.827,727.827,121,21,1,0)
+A standard unique life-long identifier of the sixth assisting provider
+"^DD",727.827,727.827,121,21,2,0)
+associated with this clinic visit.
+"^DD",727.827,727.827,121,23,0)
+^.001^1^1^3130806^^^
+"^DD",727.827,727.827,121,23,1,0)
+The NPI is retrieved via the supporting Kernel API: $$NPI^XUSNPI.
+"^DD",727.827,727.827,121,"DT")
+3130312
+"^DD",727.827,727.827,122,0)
+SECONDARY PROVIDER #7^F^^4;1^K:$L(X)>11!($L(X)<2) X
+"^DD",727.827,727.827,122,3)
+Answer must be 2-11 characters in length.
+"^DD",727.827,727.827,122,21,0)
+^^1^1^3130523^
+"^DD",727.827,727.827,122,21,1,0)
+This is the seventh assisting provider associated with this clinic visit.
+"^DD",727.827,727.827,122,23,0)
+^.001^5^5^3130523^^^
+"^DD",727.827,727.827,122,23,1,0)
+Data is derived by making a call to the ENCEVENT^PXAPI (DBIA1889-F) API
+"^DD",727.827,727.827,122,23,2,0)
+using the clinic encounter, returning the secondary provider IEN.
+"^DD",727.827,727.827,122,23,3,0)
+
+"^DD",727.827,727.827,122,23,4,0)
+A character string of format "2"_IEN, where IEN is the internal entry
+"^DD",727.827,727.827,122,23,5,0)
+number for the secondary provider in the NEW PERSON file (#200).
+"^DD",727.827,727.827,122,"DT")
+3130312
+"^DD",727.827,727.827,123,0)
+SECONDARY PROVIDER #7 PC^F^^4;2^K:$L(X)>7!($L(X)<7) X
+"^DD",727.827,727.827,123,3)
+Answer must be 7 characters in length.
+"^DD",727.827,727.827,123,21,0)
+^.001^2^2^3130403^^
+"^DD",727.827,727.827,123,21,1,0)
+The VA code of the Person Class of the seventh assisting provider as of
+"^DD",727.827,727.827,123,21,2,0)
+the date of this record.
+"^DD",727.827,727.827,123,23,0)
+^.001^4^4^3130403^^
+"^DD",727.827,727.827,123,23,1,0)
+Derived by calling $$PRVCLASS^ECXUTL(IEN,DATE), where IEN is the IEN of
+"^DD",727.827,727.827,123,23,2,0)
+the NEW PERSON (#200) File. Copied from field VA CODE (#5) of the PERSON
+"^DD",727.827,727.827,123,23,3,0)
+CLASS (#8932.1) file, as pointed to by the Person Class (#.01) field of
+"^DD",727.827,727.827,123,23,4,0)
+the PERSON CLASS (#8932.1) multiple of the NEW PERSON (#200) file.
+"^DD",727.827,727.827,123,"DT")
+3130312
+"^DD",727.827,727.827,124,0)
+SECONDARY PROVIDER #7 NPI^F^^4;3^K:$L(X)>10!($L(X)<10) X
+"^DD",727.827,727.827,124,3)
+Answer must be 10 characters in length.
+"^DD",727.827,727.827,124,21,0)
+^.001^2^2^3130403^^
+"^DD",727.827,727.827,124,21,1,0)
+A standard unique life-long identifier of the seventh assisting provider
+"^DD",727.827,727.827,124,21,2,0)
+associated with this clinic visit.
+"^DD",727.827,727.827,124,23,0)
+^.001^1^1^3130403^^
+"^DD",727.827,727.827,124,23,1,0)
+The NPI is retrieved via the supporting Kernel API: $$NPI^XUSNPI.
+"^DD",727.827,727.827,124,"DT")
+3130312
+"^DD",727.827,727.827,125,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^4;4^Q
+"^DD",727.827,727.827,125,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.827,727.827,125,21,0)
+^^2^2^3130507^
+"^DD",727.827,727.827,125,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.827,727.827,125,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.827,727.827,125,23,0)
+^^3^3^3130507^
+"^DD",727.827,727.827,125,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.827,727.827,125,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.827,727.827,125,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.827,727.827,125,"DT")
+3130322
+"^DD",727.827,727.827,126,0)
+ENCOUNTER CAMP LEJEUNE^S^Y:YES;N:NO;^4;5^Q
+"^DD",727.827,727.827,126,3)
+Indicate if this encounter is related to exposure at Camp Lejeune.
+"^DD",727.827,727.827,126,21,0)
+^^3^3^3130507^
+"^DD",727.827,727.827,126,21,1,0)
+Indicates if episode of care is related to exposure to contaminated water
+"^DD",727.827,727.827,126,21,2,0)
+while stationed at Camp Lejeune, NC between January 1, 1957 and December
+"^DD",727.827,727.827,126,21,3,0)
+31, 1987.
+"^DD",727.827,727.827,126,23,0)
+^^3^3^3130507^
+"^DD",727.827,727.827,126,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.827,727.827,126,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI
+"^DD",727.827,727.827,126,23,3,0)
+returns the encounter Camp Lejeune data from the VISIT file (#9000010).
+"^DD",727.827,727.827,126,"DT")
+3130322
+"^DD",727.829,727.829,31,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^1;3^Q
+"^DD",727.829,727.829,31,3)
+Is this Encounter Service Connected?
+"^DD",727.829,727.829,31,21,0)
+^.001^2^2^3130517^^^
+"^DD",727.829,727.829,31,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.829,727.829,31,21,2,0)
+Connected.
+"^DD",727.829,727.829,31,23,0)
+^.001^4^4^3130517^^
+"^DD",727.829,727.829,31,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.829,727.829,31,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.829,727.829,31,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.829,727.829,31,23,4,0)
+(#9000010).
+"^DD",727.829,727.829,31,"DT")
+3130309
+"^DD",727.832,727.832,19,0)
+RACE 1^F^^0;20^K:$L(X)>6!($L(X)<1) X
+"^DD",727.832,727.832,19,3)
+Answer must be 1-6 characters in length.
+"^DD",727.832,727.832,19,21,0)
+^.001^1^1^3130219^^^
+"^DD",727.832,727.832,19,21,1,0)
+Self-reported by patient as recorded in VistA patient file.
+"^DD",727.832,727.832,19,23,0)
+^^17^17^3130219^
+"^DD",727.832,727.832,19,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field
+"^DD",727.832,727.832,19,23,2,0)
+(#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file
+"^DD",727.832,727.832,19,23,3,0)
+(#10) pointed to by the RACE INFORMATION field (#.01) of the
+"^DD",727.832,727.832,19,23,4,0)
+RACE INFORMATION subfile (#2.02) of the PATIENT file (#2).
+"^DD",727.832,727.832,19,23,5,0)
+
+"^DD",727.832,727.832,19,23,6,0)
+Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)
+"^DD",727.832,727.832,19,23,7,0)
+where the METHOD OF COLLECTION field (#.02) is set to 1
+"^DD",727.832,727.832,19,23,8,0)
+(SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race
+"^DD",727.832,727.832,19,23,9,0)
+entries can be included. If any of the RACE INFORMATION values returned is
+"^DD",727.832,727.832,19,23,10,0)
+"C" (DECLINED TO ANSWER), that will be the only value included in the
+"^DD",727.832,727.832,19,23,11,0)
+RACE1 field.
+"^DD",727.832,727.832,19,23,12,0)
+
+"^DD",727.832,727.832,19,23,13,0)
+If the RACE 1 field is null after checking the RACE INFORMATION values
+"^DD",727.832,727.832,19,23,14,0)
+then the patient's historical RACE data will be checked to see if it
+"^DD",727.832,727.832,19,23,15,0)
+contains one of the twenty six non-standard race values that are
+"^DD",727.832,727.832,19,23,16,0)
+convertible to standard race values. If so, the race value will be
+"^DD",727.832,727.832,19,23,17,0)
+converted to the standard value and stored in the RACE 1 field.
+"^DD",727.832,727.832,19,"DT")
+3060504
+"^DD",727.833,727.833,30,0)
+COMPONENT DOSE ORDERED^F^^1;6^K:$L(X)>30!($L(X)<1) X
+"^DD",727.833,727.833,30,3)
+Answer must be 1-30 characters in length.
+"^DD",727.833,727.833,30,21,0)
+^.001^3^3^3130502^^^
+"^DD",727.833,727.833,30,21,1,0)
+COMPONENT DOSE ORDERED contains either the dispensed drug, IV additive,
+"^DD",727.833,727.833,30,21,2,0)
+or IV solution dose ordered, to which, this medication was administered
+"^DD",727.833,727.833,30,21,3,0)
+for this patient.
+"^DD",727.833,727.833,30,23,0)
+^.001^2^2^3130502^^
+"^DD",727.833,727.833,30,23,1,0)
+Its value is free text derived from the DOSE ORDERED (#.02) field of the
+"^DD",727.833,727.833,30,23,2,0)
+subfile #.5, #.6, #.7 multiples of the BCMA MEDICATION LOG (#53.79) file.
+"^DD",727.833,727.833,30,"DT")
+3130502
+"^DD",727.833,727.833,31,0)
+COMPONENT DOSE GIVEN^F^^1;7^K:$L(X)>30!($L(X)<1) X
+"^DD",727.833,727.833,31,3)
+Answer must be 1-30 characters in length.
+"^DD",727.833,727.833,31,21,0)
+^.001^3^3^3130502^^^
+"^DD",727.833,727.833,31,21,1,0)
+The COMPONENT DOSE GIVEN contains either the dispensed drug, IV additive,
+"^DD",727.833,727.833,31,21,2,0)
+or IV solutions dose given, to which, this medication was administered
+"^DD",727.833,727.833,31,21,3,0)
+for this patient.
+"^DD",727.833,727.833,31,23,0)
+^.001^3^3^3130502^^
+"^DD",727.833,727.833,31,23,1,0)
+This field's value is free text derived from the DOSE GIVEN (#.03) field
+"^DD",727.833,727.833,31,23,2,0)
+of the subfile #.5, #.6, #.7 multiples of the BCMA MEDICATION LOG
+"^DD",727.833,727.833,31,23,3,0)
+(#53.79) file.
+"^DD",727.833,727.833,31,"DT")
+3130502
+"^DD",727.833,727.833,44,0)
+DEA, SPECIAL HDLG^S^I:Investigational;1:SCHEDULE 1 ITEM;2:SCHEDULE 2 ITEM;3:SCHEDULE 3 ITEM;4:SCHEDULE 4 ITEM;5:SCHEDULE 5 ITEM;^2;8^Q
+"^DD",727.833,727.833,44,3)
+Enter I if the drug is investigational or 1-5 depending on the drug's schedule item.
+"^DD",727.833,727.833,44,21,0)
+^.001^1^1^3130725^^^^
+"^DD",727.833,727.833,44,21,1,0)
+Indicates if the drug in this record is Investigational, or Schedule 1-5.
+"^DD",727.833,727.833,44,23,0)
+^^3^3^3130725^
+"^DD",727.833,727.833,44,23,1,0)
+Derived from the DEA, SPECIAL HDLG field (#3) in the DRUG file (#50). If
+"^DD",727.833,727.833,44,23,2,0)
+the field contains a "1","2","3","4" or "5" (DRUG SCHEDULE) it will be set
+"^DD",727.833,727.833,44,23,3,0)
+to that number. Otherwise, if it contains an I, it will be set to I.
+"^DD",727.833,727.833,44,"DT")
+3130531
+"^DD",727.833,727.833,49,0)
+ENCOUNTER NUMBER^F^^2;13^K:$L(X)>17!($L(X)<1) X
+"^DD",727.833,727.833,49,3)
+Answer must be 1-17 characters in length.
+"^DD",727.833,727.833,49,21,0)
+^.001^1^1^3130502^^^^
+"^DD",727.833,727.833,49,21,1,0)
+The unique number assigned for DSS.
+"^DD",727.833,727.833,49,23,0)
+^.001^4^4^3130502^^^^
+"^DD",727.833,727.833,49,23,1,0)
+This field is determined by a call to $$ENCNUM^ECXUTL4. Within this call
+"^DD",727.833,727.833,49,23,2,0)
+the inpatient/outpatient status, SSN, admit/visit date, treating
+"^DD",727.833,727.833,49,23,3,0)
+specialty, observation patient indicator, and DSS Identifier or feeder key
+"^DD",727.833,727.833,49,23,4,0)
+values of the record are used to create a unique encounter number.
+"^DD",727.833,727.833,49,"DT")
+3130502
+"^DD",727.833,727.833,58,0)
+RACE 1^F^^2;22^K:$L(X)>6!($L(X)<1) X
+"^DD",727.833,727.833,58,3)
+Answer must be 1-6 characters in length.
+"^DD",727.833,727.833,58,21,0)
+^.001^1^1^3130806^^^^
+"^DD",727.833,727.833,58,21,1,0)
+Self-reported by patient as recorded in VistA patient file.
+"^DD",727.833,727.833,58,23,0)
+^^17^17^3130806^
+"^DD",727.833,727.833,58,23,1,0)
+Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field
+"^DD",727.833,727.833,58,23,2,0)
+(#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file
+"^DD",727.833,727.833,58,23,3,0)
+(#10) pointed to by the RACE INFORMATION field (#.01) of the
+"^DD",727.833,727.833,58,23,4,0)
+RACE INFORMATION subfile (#2.02) of the PATIENT file (#2).
+"^DD",727.833,727.833,58,23,5,0)
+
+"^DD",727.833,727.833,58,23,6,0)
+Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)
+"^DD",727.833,727.833,58,23,7,0)
+where the METHOD OF COLLECTION field (#.02) is set to 1
+"^DD",727.833,727.833,58,23,8,0)
+(SELF-IDENTIFICATION), will be included in the RACE 1 field. Up to 6 race
+"^DD",727.833,727.833,58,23,9,0)
+entries can be included. If any of the RACE INFORMATION values returned is
+"^DD",727.833,727.833,58,23,10,0)
+"C" (DECLINED TO ANSWER), that will be the only value included in the
+"^DD",727.833,727.833,58,23,11,0)
+RACE1 field.
+"^DD",727.833,727.833,58,23,12,0)
+
+"^DD",727.833,727.833,58,23,13,0)
+If the RACE 1 field is null after checking the RACE INFORMATION values
+"^DD",727.833,727.833,58,23,14,0)
+then the patient's historical RACE data will be checked to see if it
+"^DD",727.833,727.833,58,23,15,0)
+contains one of the twenty six non-standard race values that are
+"^DD",727.833,727.833,58,23,16,0)
+convertible to standard race values. If so, the race value will be
+"^DD",727.833,727.833,58,23,17,0)
+converted to the standard value and stored in the RACE 1 field.
+"^DD",727.833,727.833,58,"DT")
+3120427
+"^DD",727.833,727.833,81,0)
+ENCOUNTER SC^S^Y:YES;N:NO;^3;11^Q
+"^DD",727.833,727.833,81,3)
+Is this Encounter Service Connected?
+"^DD",727.833,727.833,81,21,0)
+^.001^2^2^3130520^^^^
+"^DD",727.833,727.833,81,21,1,0)
+Indicates if treatment provided during this patient encounter is Service
+"^DD",727.833,727.833,81,21,2,0)
+Connected.
+"^DD",727.833,727.833,81,23,0)
+^.001^4^4^3130520^^
+"^DD",727.833,727.833,81,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.833,727.833,81,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. This call returns visit
+"^DD",727.833,727.833,81,23,3,0)
+data, including the SERVICE CONNECTED field (#80001) in the VISIT file
+"^DD",727.833,727.833,81,23,4,0)
+(#9000010).
+"^DD",727.833,727.833,81,"DT")
+3130308
+"^DD",727.833,727.833,82,0)
+IV ADDITIVE COST^NJ10,4^^3;12^K:+X'=X!(X>10000)!(X<0)!(X?.E1"."5N.N) X
+"^DD",727.833,727.833,82,3)
+Type a number between 0 and 10000, 4 decimal digits.
+"^DD",727.833,727.833,82,21,0)
+^^1^1^3130809^
+"^DD",727.833,727.833,82,21,1,0)
+VA pharmacy supply cost, in dollars, of the IV Additive dispensed.
+"^DD",727.833,727.833,82,23,0)
+^.001^3^3^3130809^^^^
+"^DD",727.833,727.833,82,23,1,0)
+This field is calculated by multiplying the DOSES GIVEN field (#.03) of
+"^DD",727.833,727.833,82,23,2,0)
+the ADDITIVES subfield (#.6) from the BCMA MEDICATION LOG file (#53.79) by
+"^DD",727.833,727.833,82,23,3,0)
+AVERAGE DRUG COST PER UNIT field (#7) of the IV ADDITIVES file (#52.6).
+"^DD",727.833,727.833,82,"DT")
+3130308
+"^DD",727.833,727.833,83,0)
+IV SOLUTION COST^NJ10,4^^3;13^K:+X'=X!(X>10000)!(X<0)!(X?.E1"."5N.N) X
+"^DD",727.833,727.833,83,3)
+Type a number between 0 and 10000, 4 decimal digits.
+"^DD",727.833,727.833,83,21,0)
+^^1^1^3130809^
+"^DD",727.833,727.833,83,21,1,0)
+VA pharmacy supply cost, in dollars, of the IV Solution dispensed.
+"^DD",727.833,727.833,83,23,0)
+^.001^3^3^3130809^^^^
+"^DD",727.833,727.833,83,23,1,0)
+This field is calculated by multiplying the DOSES GIVEN field (#.03) of
+"^DD",727.833,727.833,83,23,2,0)
+the SOLUTIONS subfield (#.7) from the BCMA MEDICATION LOG file (#53.79) by
+"^DD",727.833,727.833,83,23,3,0)
+AVERAGE DRUG COST PER UNIT field (#7) of the IV SOLUTIONS file (#52.7).
+"^DD",727.833,727.833,83,"DT")
+3130807
+"^DD",727.833,727.833,84,0)
+DRUG COST^NJ10,4^^3;14^K:+X'=X!(X>10000)!(X<0)!(X?.E1"."5N.N) X
+"^DD",727.833,727.833,84,3)
+Type a number between 0 and 10000, 4 decimal digits.
+"^DD",727.833,727.833,84,21,0)
+^^1^1^3130809^
+"^DD",727.833,727.833,84,21,1,0)
+VA pharmacy supply cost, in dollars, of the Drug dispensed.
+"^DD",727.833,727.833,84,23,0)
+^.001^5^5^3130809^^^^
+"^DD",727.833,727.833,84,23,1,0)
+This field is calculated by multiplying the DOSES GIVEN field (#.03) of
+"^DD",727.833,727.833,84,23,2,0)
+the DISPENSE DRUG subfield (#.5) from the BCMA MEDICATION LOG file
+"^DD",727.833,727.833,84,23,3,0)
+(#53.79) by UNIT OF ADMINISTRATION field (#.04) of the DISPENSE DRUG
+"^DD",727.833,727.833,84,23,4,0)
+subfield (#.5) from the BCMA MEDICATION LOG file (#53.79) by PRICE PER
+"^DD",727.833,727.833,84,23,5,0)
+DISPENSE UNIT field (#16) of the DRUG file (#50).
+"^DD",727.833,727.833,84,"DT")
+3130308
+"^DD",727.833,727.833,85,0)
+CAMP LEJEUNE STATUS^S^Y:YES;N:NO;^3;15^Q
+"^DD",727.833,727.833,85,3)
+Indicate Camp Lejeune status for the patient.
+"^DD",727.833,727.833,85,21,0)
+^.001^2^2^3130806^^
+"^DD",727.833,727.833,85,21,1,0)
+Indicates if patient was exposed to contaminated water while stationed at
+"^DD",727.833,727.833,85,21,2,0)
+Camp Lejeune, NC between January 1, 1957 and December 31, 1987.
+"^DD",727.833,727.833,85,23,0)
+^.001^3^3^3130806^^
+"^DD",727.833,727.833,85,23,1,0)
+Using the patient's DFN, a call is made to PAT^ECXUTL3, which in turn
+"^DD",727.833,727.833,85,23,2,0)
+calls SVC^VADPT. This call returns all service related information for a
+"^DD",727.833,727.833,85,23,3,0)
+patient, including their Camp Lejeune status.
+"^DD",727.833,727.833,85,"DT")
+3130308
+"^DD",727.833,727.833,86,0)
+ENCOUNTER CAMP LEJEUNE^S^Y:YES;N:NO;^3;16^Q
+"^DD",727.833,727.833,86,3)
+Indicate if this encounter is related to exposure at Camp Lejeune.
+"^DD",727.833,727.833,86,21,0)
+^.001^3^3^3130806^^
+"^DD",727.833,727.833,86,21,1,0)
+Indicates if episode of care is related to exposure to contaminated water
+"^DD",727.833,727.833,86,21,2,0)
+while stationed at Camp Lejeune, NC between January 1, 1957 and December
+"^DD",727.833,727.833,86,21,3,0)
+31, 1987.
+"^DD",727.833,727.833,86,23,0)
+^.001^3^3^3130806^^
+"^DD",727.833,727.833,86,23,1,0)
+Using a pointer to the VISIT file (#9000010) a call is made to API
+"^DD",727.833,727.833,86,23,2,0)
+VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI
+"^DD",727.833,727.833,86,23,3,0)
+returns the encounter Camp Lejeune data from the VISIT file (#9000010).
+"^DD",727.833,727.833,86,"DT")
+3130308
+"^DD",728.44,728.44,7,0)
+NATIONAL CODE^R*P728.441'^ECX(728.441,^0;8^S DIC("S")="I $P($G(^(2)),U)=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
+"^DD",728.44,728.44,7,3)
+Enter the appropriate national code.
+"^DD",728.44,728.44,7,12)
+Invalid code. Only active codes can be entered.
+"^DD",728.44,728.44,7,12.1)
+S DIC("S")="I $P($G(^(2)),U)="""""
+"^DD",728.44,728.44,7,21,0)
+^^4^4^3130509^
+"^DD",728.44,728.44,7,21,1,0)
+The NATIONAL CODE is a four character code that is optionally used to
+"^DD",728.44,728.44,7,21,2,0)
+build part of the DSS Feeder Key field in the DSS Clinic (CLI) Extract.
+"^DD",728.44,728.44,7,21,3,0)
+If used, the four character code helps describe/identify the clinic the
+"^DD",728.44,728.44,7,21,4,0)
+CLI Extract record is for.
+"^DD",728.44,728.44,7,23,0)
+^.001^4^4^3130509^^
+"^DD",728.44,728.44,7,23,1,0)
+When the ACTION TO SEND field (#5) is set to code 4 then the NATIONAL
+"^DD",728.44,728.44,7,23,2,0)
+CODE (#7) field will be used to build the DSS feeder key for the Clinic
+"^DD",728.44,728.44,7,23,3,0)
+(CLI) extract. This four character code is a standardized code used to
+"^DD",728.44,728.44,7,23,4,0)
+identify the clinic associated with the CLI extract record.
+"^DD",728.44,728.44,7,"DT")
+3130508
+"^DD",728.44,728.44,12,0)
+RECORD LAST SYNCHED^D^^0;13^S %DT="EX" D ^%DT S X=Y K:Y<1 X
+"^DD",728.44,728.44,12,1,0)
+^.1
+"^DD",728.44,728.44,12,1,1,0)
+728.44^C
+"^DD",728.44,728.44,12,1,1,1)
+S ^ECX(728.44,"C",$E(X,1,30),DA)=""
+"^DD",728.44,728.44,12,1,1,2)
+K ^ECX(728.44,"C",$E(X,1,30),DA)
+"^DD",728.44,728.44,12,1,1,"%D",0)
+^.101^1^1^3130502^^^
+"^DD",728.44,728.44,12,1,1,"%D",1,0)
+Identifies the date the record was last synched.
+"^DD",728.44,728.44,12,1,1,"DT")
+3130228
+"^DD",728.44,728.44,12,3)
+Enter the date this record was last synchronized.
+"^DD",728.44,728.44,12,21,0)
+^.001^1^1^3130806^^^^
+"^DD",728.44,728.44,12,21,1,0)
+This is the date the entry in this file was last synched.
+"^DD",728.44,728.44,12,23,0)
+^.001^8^8^3130806^^
+"^DD",728.44,728.44,12,23,1,0)
+The fields in this record are copied from the matching clinic entry in the
+"^DD",728.44,728.44,12,23,2,0)
+HOSPITAL LOCATION (#44) file. When the site runs the Create DSS Clinic
+"^DD",728.44,728.44,12,23,3,0)
+Stop Code File option [ECXSCLIST] to synchronize entries in this file,
+"^DD",728.44,728.44,12,23,4,0)
+this field is set to today's date, indicating the last time this process
+"^DD",728.44,728.44,12,23,5,0)
+was completed.
+"^DD",728.44,728.44,12,23,6,0)
+
+"^DD",728.44,728.44,12,23,7,0)
+This field will always store the date the synchronization was last
+"^DD",728.44,728.44,12,23,8,0)
+completed.
+"^DD",728.44,728.44,12,"DT")
+3130502
+"^DD",728.441,728.441,2,0)
+LONG DESCRIPTION^728.4412^^1;0
+"^DD",728.441,728.441,2,21,0)
+^.001^3^3^3130502^^^^
+"^DD",728.441,728.441,2,21,1,0)
+The long description for the type of clinic represented by this code.
+"^DD",728.441,728.441,2,21,2,0)
+This description may be used to provide guidance in assigning
+"^DD",728.441,728.441,2,21,3,0)
+national codes to clinics.
+"^DD",728.441,728.441,3,0)
+INACTIVATION DATE^DI^^2;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X
+"^DD",728.441,728.441,3,3)
+Enter the date that the national clinic code was inactivated.
+"^DD",728.441,728.441,3,21,0)
+^.001^1^1^3130204^^^^
+"^DD",728.441,728.441,3,21,1,0)
+This field contains the date when the NATIONAL CLINIC code was inactivated.
+"^DD",728.441,728.441,3,"DT")
+3130204
+"^DD",728.441,728.4412,0)
+LONG DESCRIPTION SUB-FIELD^^.01^1
+"^DD",728.441,728.4412,0,"NM","LONG DESCRIPTION")
+
+"^DD",728.441,728.4412,0,"UP")
+728.441
+"^DD",728.441,728.4412,.01,0)
+LONG DESCRIPTION^W^^0;1^Q
+"^DD",728.441,728.4412,.01,3)
+Enter the full description for this national clinic code.
+"^DD",728.441,728.4412,.01,21,0)
+^.001^3^3^3130502^^^^
+"^DD",728.441,728.4412,.01,21,1,0)
+The long description for the type of clinic represented by this code.
+"^DD",728.441,728.4412,.01,21,2,0)
+This description may be used to provide guidance in assigning
+"^DD",728.441,728.4412,.01,21,3,0)
+national codes to clinics.
+"^DD",728.441,728.4412,.01,"DT")
+2940310
+"BLD",8267,6)
+^131
+**END**
+**END**
diff --git a/Packages/DSS Extracts/Patches/ECX_3.0_144/ECX-3_SEQ-131_PAT-144.TXT b/Packages/DSS Extracts/Patches/ECX_3.0_144/ECX-3_SEQ-131_PAT-144.TXT
new file mode 100644
index 0000000..7f49e59
--- /dev/null
+++ b/Packages/DSS Extracts/Patches/ECX_3.0_144/ECX-3_SEQ-131_PAT-144.TXT
@@ -0,0 +1,532 @@
+$TXT Created by NABER,DAVID at DEVVCC.FO-ALBANY.DOMAIN.EXT (KIDS) on Tuesday, 09/03/13 at 14:44
+=============================================================================
+Run Date: OCT 29, 2013 Designation: ECX*3*144
+Package : ECX - DSS EXTRACTS Priority: EMERGENCY
+Version : 3 SEQ #131 Status: Released
+ Compliance Date: NOV 05, 2013
+=============================================================================
+
+Associated patches: (v)ECX*3*100 <<= must be installed BEFORE `ECX*3*144'
+ (v)ECX*3*123 <<= must be installed BEFORE `ECX*3*144'
+ (v)ECX*3*137 <<= must be installed BEFORE `ECX*3*144'
+ (v)ECX*3*142 <<= must be installed BEFORE `ECX*3*144'
+ (v)ECX*3*143 <<= must be installed BEFORE `ECX*3*144'
+
+Subject: DSS FY 2014 ANNUAL SUSTAINMENT
+
+Category:
+ - Routine
+ - Data Dictionary
+ - Sort Template
+ - Enhancement ()
+
+Description:
+============
+
+ ***********************************************************************
+ ** This patch is being released with an Emergency status because of **
+ ** the shortened compliance date and must be installed in all **
+ ** systems no later than the compliance requirement date. This patch **
+ ** must be installed on or before 11/05/13 so that the October DSS **
+ ** Extracts can be generated using the updated Fiscal Year 14 logic. **
+ ** Failure to comply with the installation date will cause delays in **
+ ** extracting and reporting data. **
+ ***********************************************************************
+
+ The DSS FY14 Extract Enhancements shall provide the means of exporting
+ data from selected VistA software modules and transmitting it to a DSS
+ database residing at the AITC (Austin Information Technology Center). This
+ transfer is accomplished through a set of extract routines, intermediate
+ files, and transmission routines. Data from VistA packages is stored by
+ the extract routines in the intermediate files, where it is temporarily
+ available for local use and auditing. The data is then transmitted to the
+ AITC, where it is formatted and uploaded into commercial software.
+
+ Included in the DSS FY14 scope are:
+ o DSS Extract field additions and modifications
+ o DSS menu additions and modifications
+ o New DSS reports and report modifications
+ o Changes related to user, technical, or business
+ documentation.
+
+ Components Sent With Patch
+ --------------------------
+
+ The following is a list of files included in this patch:
+
+ UP SEND DATA
+ DATE SEC. COMES SITE RSLV
+ FILE # NAME DD CODE W/FILE DATA PTS
+ ------------------------------------------------------------------------
+ 727.802 ADMISSION EXTRACT YES NO NO
+ 727.809 UNIT DOSE LOCAL EXTRACT YES NO NO
+ 727.81 PRESCRIPTION EXTRACT YES NO NO
+ 727.811 SURGERY EXTRACT YES NO NO
+ 727.813 LABORATORY EXTRACT YES NO NO
+ 727.814 RADIOLOGY EXTRACT YES NO NO
+ 727.815 EVENT CAPTURE LOCAL EXTRACT YES NO NO
+ 727.819 IV DETAIL EXTRACT YES NO NO
+ 727.824 LAB RESULTS EXTRACT YES NO NO
+ 727.825 QUASAR EXTRACT YES NO NO
+ 727.826 PROSTHETICS EXTRACT YES NO NO
+ 727.827 CLINIC EXTRACT YES NO NO
+ 727.829 BLOOD BANK EXTRACT YES NO NO
+ 727.832 NUTRITION EXTRACT YES NO NO
+ 727.833 BCMA EXTRACT YES NO NO
+ 728.44 CLINICS AND STOP CODES YES NO NO
+ 728.441 NATIONAL CLINIC YES NO NO
+
+ The following is a list of product features for this release:
+ =============================================================
+ 1. Lock down of the NATIONAL CLINIC file (#728.441). User
+ additions/edits are no longer allowed.
+
+ 2. DATE OF BIRTH field (#121) in the SURGERY EXTRACT file (#727.811)
+ file has been updated to match the DATE OF BIRTH field description in
+ other extract files
+
+ 3. Add a new field called 4CHAR to the ECS and ECQ extracts.
+
+ 4. Convert non-standard race values to their standardized equivalent and
+ store in the RACE 1 field for affected extract files when no RACE 1
+ information is available. Conversion is based on a matrix of
+ non-standard values provided by the VHA Office of Informatics and
+ Analytics (OIA) Health Information Governance Office (HIG) VHA Data
+ Quality Program.
+
+ 5. Correct solutions cost logic on the IVP extract.
+
+ 6. Modify the clinic worksheet options so the create and unreviewed
+ report options are now separated. Running one option will no longer
+ force the other action to occur. When running any clinic worksheet
+ report, the user will be informed of the last run date for the create
+ option. The report will now indicate "last approved" date instead of
+ "last reviewed" date. The report will now include the print date.
+
+ 7. The PRO extract audit report will now include the NPPD Entry Date.
+
+ 8. The Clinic Review Report will now allow the user to export active
+ clinics, inactive clinics or unreviewed clinics in addition to the
+ previously existing choice of all clinics.
+
+ 9. Onscreen instructions for capturing exportable data have been
+ updated to account for the use of reflections terminal emulators.
+
+ 10. Add an Unusual Cost Report for Pharmacy extracts. This report may be
+ output in a caret delimited format for exporting.
+
+ 11. Add BCM as a selection in the Pharmacy Unusual Volume Report. Also,
+ allow the report to be output in a caret delimited format for
+ exporting.
+
+ 12. Modify the DSS Identifier Non-Conforming Clinics report to display the
+ associated 4 character code.
+
+ 13. Modify the DSS Clinic & Stop Codes Validity Report to validate and
+ report any inactive 4 character code.
+
+ 14. Correct the IV solutions cost logic on the Pharmacy Unusual Volume
+ Report.
+
+ 15. Add a new field VIETNAM to the CLI, ECS, ECQ, PRO, PRE and SUR
+ extracts.
+
+ 16. Add a new field ENCOUNTER SC to the ADM, BCM, CLI, ECS, ECQ, IVP,
+ LAB, LAR, LBB, PRE, PRO, RAD and UDP extracts. Modified existing
+ ENCOUNTER SC field in the SUR extract.
+
+ 17. Add new fields PROVIDER #6, PROVIDER #6 NPI, PROVIDER #6 PERSON
+ CLASS, PROVIDER #7, PROVIDER #7 NPI and PROVIDER #7 PERSON CLASS to
+ the ECQ and ECS extracts.
+
+ 18. Add new fields SECONDARY PROVIDER #6, SECONDARY PROVIDER #6 PC,
+ SECONDARY PROVIDER #6 NPI, SECONDARY PROVIDER #7, SECONDARY
+ PROVIDER #7 PC, and SECONDARY PROVIDER #7 NPI to the CLI extract.
+
+ 19. Add new fields IV ADDITIVE COST, IV SOLUTION COST, and DRUG COST
+ to the BCM extract.
+
+ 20. Modify package extracts option so that the user may re-run an
+ extract without IRM/IT assistance when the extract system indicates
+ the extract is already running or when re-running the same date
+ range.
+
+ 21. Modify logic for the DEA, SPECIAL HDLG field to now include schedules
+ 1-5, in addition to investigational status (denoted by an "I") for the
+ UDP and BCM extracts. Drug schedules take precedence over
+ investigational status when both are associated with the drug. Rename
+ the INVESTIGATIONAL field in both extracts to DEA, SPECIAL HDLG.
+
+
+ 22. Exportability of the DSS Identifier Non-Conforming Report. Report
+ can now be displayed in a caret delimited format.
+
+ 23. Exportability of the DSS Clinics and Stop Codes Validity Report.
+ Report can now be displayed in a caret delimited format.
+
+ 24. Exportability of the Cost by PSAS HCPC Report. Report can now be
+ displayed in a caret delimited format.
+
+ 25. Exportability of the Prosthetics (PRO) YTD HCPCS Report. Report can
+ now be displayed in a caret delimited format.
+
+ 26. Exportability of the Prosthetics Extract Unusual Cost Report. Report
+ can now be displayed in a caret delimited format.
+
+ 27. Exportability of the Prosthetics (PRO) YTD Laboratory Report. Report
+ can now be displayed in a caret delimited format.
+
+ 28. Exportability of the Pharmacy Extracts Incomplete Feeder Key Report.
+ Report can now be displayed in a caret delimited format.
+
+ 29. Exportability of the Pharmacy Extracts Unusual Volume Report. Report
+ can now be displayed in a caret delimited format.
+
+ 30. Exportability of the Lab Results DSS LOINC Code Report. Report can
+ now be displayed in a caret delimited format.
+
+ 31. Exportability of the Event Capture (ECS) Extract Audit. Report can
+ now be displayed in a caret delimited format.
+
+ 32. Exportability of the Prosthetics (PRO) Extract Audit. Report can now
+ be displayed in a caret delimited format.
+
+ 33. Modify the extract transmission process so that any field that
+ contains a tilde (~) character will have the tilde removed.
+
+ 34. Add a new field called CONCURRENT CASE to the SUR extract.
+
+ 35. Rename fields BCMA Drug Dispensed, BCMA Dose Given, BCMA Unit of
+ Administration, and BCMA ICU Flag to PLACEHOLDER in the IVP and UDP
+ extracts.
+
+ 36. Add new field CAMP LEJEUNE STATUS to the ADM, BCM, CLI, ECS, ECQ, IVP,
+ LAB, LAR, PRE, PRO, RAD, SUR, and UDP extracts.
+
+ 37. Add new field ENCOUNTER CAMP LEJEUNE to the ADM, BCM, CLI, ECS, ECQ,
+ IVP, LAR, PRE, PRO, RAD, SUR, and UDP extracts.
+
+ 38. Create new option called Delete Extract Files. The purging of extract
+ holding files and the deletion of extract files has been separated
+ into two different options. The previous option, Purge Data from
+ Extract files has been renamed to Purge Extract Holding Files.
+
+ 39. Add new field CLINIC IEN to the ECS and ECQ extracts.
+
+ 40. Add new field RECORD LAST SYNCHED to the CLINICS AND STOP CODES
+ file (#728.44). This field will hold the date the Create DSS
+ Clinic Stop Code File option is run.
+
+ 41. Add new fields PRINCIPLE POSTOP ICD-10 CODE, OTHER POSTOP ICD-10
+ CODE #1, OTHER POSTOP ICD-10 CODE #2, OTHER POSTOP ICD-10 CODE #3,
+ OTHER POSTOP ICD-10 CODE #4 and OTHER POSTOP ICD-10 CODE #5 to the
+ SUR extract.
+
+ 42. Allow fiscal year logic to be applied to reports so that user may
+ select to run either the previous or the current fiscal year logic
+ within a report. For this year, only the IVP portion of the Pharmacy
+ Unusual Volume report will be affected.
+
+ Security Key
+ ------------
+ ECX DSS TEST
+
+ The purpose of this key is to allow future fiscal year extracts to be run
+ by test sites only.
+
+ Sort Template
+ --------------
+ ECX CLINIC CODE
+
+ Template sorts so that only active entries are displayed.
+
+ The following is a list of options included in this patch:
+
+ Option Name Type New/Modified
+ ------------------ ---- ------------
+ ECXDELEF Run Routine Modified
+ ECXPURG Run Routine Modified
+ ECX PHA COST Run Routine New
+
+ Documentation Retrieval:
+ ------------------------
+ Updated documentation describing the new functionality introduced by this
+ patch is available.
+
+ The preferred method is to FTP the files from download.vista.domain.ext.
+ This transmits the files from the first available FTP server. Sites may
+ also elect to retrieve documentation directly from a specific server as
+ follows:
+
+ Albany ftp.fo-albany.domain.ext <ftp://ftp.fo-albany.domain.ext>
+ Hines ftp.fo-hines.domain.ext <ftp://ftp.fo-hines.domain.ext>
+ Salt Lake City ftp.fo-slc.domain.ext <ftp://ftp.fo-slc.domain.ext>
+
+
+ The documentation, including User and Technical manuals will be in the
+ form of Adobe Acrobat files.
+
+ Documentation can also be found on the System Design and Development Web
+ page at: http://www4.domain.ext/vdl/application.asp?appid=35
+
+ Below is a list of the files related to this patch that will be needed and
+ available via the FTP sites listed above.
+
+ File Description File Name FTP Mode
+ -----------------------------------------------------------------------
+ User Manual DSS_3_FY2014_UM.pdf Binary
+ Technical Manual DSS_3_FY2014_TM.pdf Binary
+ Medical Records Data Definitions Guide DSS_3_FY2014_DD.pdf Binary
+ Release Notes DSS_3_FY2014_RN.pdf Binary
+
+
+ Test Sites:
+ -----------
+ Boston
+ Cheyenne
+ Little Rock
+ North Texas
+
+ INSTALLATION:
+ =============
+
+ If installed during the normal workday, it is recommended that the
+ following selection(s) in the OPTION (#19) file, and all of their
+ descendants be disabled to prevent possible conflicts while running the
+ KIDS Install. Other VISTA users will not be affected.
+
+ Extract Manager's Options [ECXMGR]
+
+
+ Install Time - less than 5 minutes (unless otherwise indicated)
+
+ ***********************************************************
+
+ 1. LOAD TRANSPORT GLOBAL
+ ---------------------
+ Choose the PackMan message containing this patch and invoke the
+ INSTALL/CHECK MESSAGE PackMan option.
+
+ 2. START UP KIDS
+ -------------
+ Start up the Kernel Installation and Distribution System Menu
+ [XPD MAIN]:
+
+ Edits and Distribution ...
+ Utilities ...
+ Installation ...
+
+ Select Kernel Installation & Distribution System Option: INStallation
+ ---
+ Load a Distribution
+ Print Transport Global
+ Compare Transport Global to Current System
+ Verify Checksums in Transport Global
+ Install Package(s)
+ Restart Install of Package(s)
+ Unload a Distribution
+ Backup a Transport Global
+
+ Select Installation Option:
+
+ 3. Select Installation Option:
+ --------------------------
+ NOTE: The following are OPTIONAL (When prompted for the INSTALL
+ NAME, enter ECX*3.0*144):
+
+ a. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will
+ not backup any other changes such as DD's or templates.
+ b. Compare Transport Global to Current System - This option
+ will allow you to view all changes that will be made when
+ this patch is installed. It compares all components of this
+ patch (routines, DD's, templates, etc.).
+ c. Verify Checksums in Transport Global - This option will
+ allow you to ensure the integrity of the routines that are
+ in the transport global.
+
+ 4. Select Installation Option: Install Package(s)
+ ----------------
+ **This is the step to start the installation of this KIDS patch:
+
+ a. Choose the Install Package(s) option to start the patch
+ install. Enter ECX*3.0*144 when prompted for a build name.
+ b. When prompted 'Want KIDS to INHIBIT LOGONs during the
+ install? YES//' answer NO (unless otherwise indicated).
+ c. When prompted 'Want to DISABLE Scheduled Options, Menu
+ Options, and Protocols? YES//' hit '<return>'. YES (unless
+ otherwise indicated).
+
+ d. When prompted 'Enter options you wish to mark as 'Out Of
+ Order':' Enter the following options:
+
+ Extract Manager's Options [ECXMGR]
+
+ e. When prompted 'Enter protocols you wish to mark as 'Out Of
+ Order':' press <return>.
+
+ f. If prompted 'Delay Install (Minutes): (0-60): 0//'
+ answer "0" (unless otherwise indicated).
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;3.0;DSS EXTRACTS;**[Patch List]**;Dec 22, 1997;Build 9
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: ECX3P144
+ Before: n/a After: B63166716 **144**
+Routine Name: ECXADM
+ Before: B52630295 After: B59038752 **1,4,11,8,13,24,33,39,46,71,
+ 84,92,107,105,120,127,132,136,
+ 144**
+Routine Name: ECXAECS
+ Before: B40379474 After: B50961338 **8,33,123,144**
+Routine Name: ECXAPHA
+ Before: B35967865 After: B62748333 **40,49,66,104,109,113,136,144**
+Routine Name: ECXAPHA2
+ Before: B28836077 After: B51669266 **40,49,84,104,105,113,136,143,144**
+Routine Name: ECXAPHAP
+ Before: n/a After: B37750813 **40,49,66,104,109,113,136,144**
+Routine Name: ECXAPHP2
+ Before: n/a After: B29677445 **40,49,84,104,105,113,136,143,144**
+Routine Name: ECXAPRO
+ Before: B50281259 After: B58811063 **9,21,33,36,132,137,144**
+Routine Name: ECXAPRO1
+ Before: B15242720 After: B20521932 **9,21,132,144**
+Routine Name: ECXAPRO2
+ Before: B19164691 After: B27501495 **9,21,39,144**
+Routine Name: ECXBCM
+ Before: B71824253 After: B87281360 **107,127,132,136,143,144**
+Routine Name: ECXCPRO
+ Before: B32166082 After: B35725966 **21,24,33,84,137,144**
+Routine Name: ECXCPRO1
+ Before: B13012758 After: B17918535 **21,84,132,144**
+Routine Name: ECXDRUG1
+ Before: B33255159 After: B44065149 **40,68,144**
+Routine Name: ECXDRUG2
+ Before: B17371737 After: B17542635 **40,68,84,105,111,144**
+Routine Name: ECXEC
+ Before: B61924291 After: B75634343 **11,8,13,24,27,33,39,46,49,
+ 71,89,92,105,120,127,132,136,
+ 144**
+Routine Name: ECXKILL
+ Before: B9492478 After: B9656369 **9,8,21,24,31,39,49,84,89,105,
+ 112,127,132,136,144**
+Routine Name: ECXKILL1
+ Before: B13723476 After: B14673623 **39,46,89,120,127,132,136,144**
+Routine Name: ECXLABN
+ Before: B44530777 After: B46690965 **1,11,8,13,28,24,30,31,32,33,
+ 39,42,46,70,71,80,92,107,105,
+ 112,127,132,144**
+Routine Name: ECXLABR
+ Before: B21203653 After: B22824878 **8,24,33,37,39,46,71,80,107,
+ 105,112,127,144**
+Routine Name: ECXLARPT
+ Before: B22212471 After: B29347556 **112,120,144**
+Routine Name: ECXLBB
+ Before: B51392005 After: B52423335 **78,84,90,92,104,105,102,120,
+ 127,144**
+Routine Name: ECXLBB1
+ Before: B27049597 After: B27728068 **105,102,120,127,144**
+Routine Name: ECXLPRO
+ Before: B25310596 After: B29349856 **21,24,36,84,144**
+Routine Name: ECXLPRO1
+ Before: B8515235 After: B11630599 **21,84,144**
+Routine Name: ECXOPRX
+ Before: B60339399 After: B64829942 **10,11,8,13,24,30,33,38,39,
+ 46,49,71,81,84,92,105,112,120,
+ 127,136,144**
+Routine Name: ECXOPRX1
+ Before: B9265203 After: B9994734 **92,107,105,120,127,144**
+Routine Name: ECXPIVD2
+ Before: B9098930 After: B9468858 **105,120,127,144**
+Routine Name: ECXPIVDN
+ Before: B58842000 After: B58898409 **10,11,8,13,24,33,39,46,49,
+ 71,84,96,92,107,105,112,120,
+ 127,136,143,144**
+Routine Name: ECXPRO
+ Before: B42025638 After: B45721055 **9,13,15,21,24,33,39,46,71,
+ 92,105,120,127,132,136,144**
+Routine Name: ECXPROCT
+ Before: B21321082 After: B24695240 **71,100,144**
+Routine Name: ECXPURG
+ Before: B23816296 After: B27702088 **9,24,33,35,49,102,112,144**
+Routine Name: ECXPURG1
+ Before: B36829694 After: B38351530 **2,9,8,24,49,102,112,144**
+Routine Name: ECXQSR
+ Before: B49856684 After: B61223139 **11,8,13,26,24,34,33,35,39,
+ 43,46,49,64,71,84,92,106,105,
+ 120,124,127,132,136,144**
+Routine Name: ECXQSR1
+ Before: B13899890 After: B16250505 **105,120,127,132,136,144**
+Routine Name: ECXRAD
+ Before: B39628286 After: B44395156 **11,8,13,16,24,33,39,46,71,
+ 84,92,105,120,127,136,144**
+Routine Name: ECXSCLD
+ Before:B204371648 After:B220306894 **2,8,24,30,71,80,105,112,120,
+ 126,132,136,142,144**
+Routine Name: ECXSCLD1
+ Before: B4160258 After: B14959984 **132,136,144**
+Routine Name: ECXSCRP
+ Before: B21952351 After: B30491382 **57,58,120,126,144**
+Routine Name: ECXSCX1
+ Before: B78250876 After: B90609071 **8,28,24,27,29,30,31,33,84,
+ 92,105,127,132,144**
+Routine Name: ECXSCX2
+ Before: B9043953 After: B9845162 **39,46,49,71,84,92,105,120,127,144**
+Routine Name: ECXSCX3
+ Before: B12749405 After: B21200160 **120,144**
+Routine Name: ECXSCXN
+ Before: B73018945 After: B86877891 **24,27,29,30,31,32,33,39,46,
+ 49,52,71,84,92,107,105,120,124,
+ 127,132,136,144**
+Routine Name: ECXSCXN1
+ Before: B14855625 After: B17063992 **71,105,127,132,136,144**
+Routine Name: ECXSTOP
+ Before: B11137426 After: B13978412 **120,126,144**
+Routine Name: ECXSURG
+ Before: B72092726 After: B76612966 **1,11,8,13,25,24,33,39,41,42,
+ 46,50,71,84,92,99,105,112,128,
+ 127,132,144**
+Routine Name: ECXSURG1
+ Before: B19369745 After: B21879740 **105,112,120,127,132,144**
+Routine Name: ECXTRAC
+ Before: B56593271 After: B97271442 **9,8,14,24,30,33,49,84,105,144**
+Routine Name: ECXTRANS
+ Before: B59690762 After: B59881332 **2,9,12,8,13,14,23,24,33,49,
+ 54,75,71,144**
+Routine Name: ECXUD
+ Before: B58470506 After: B62950781 **10,8,24,33,39,46,49,71,84,
+ 92,107,105,120,127,144**
+Routine Name: ECXUPRO
+ Before: B23782854 After: B27534272 **49,111,144**
+Routine Name: ECXUPRO1
+ Before: B7105553 After: B7760162 **49,111,132,137,144**
+Routine Name: ECXUTL
+ Before: B53983584 After: B53992756 **1,5,8,84,90,127,144**
+Routine Name: ECXUTL1
+ Before: B41491361 After: B85232307 **9,49,136,144**
+Routine Name: ECXUTL2
+ Before: B71508218 After: B72234767 **8,13,23,24,33,35,39,46,71,
+ 84,92,105,112,120,127,144**
+Routine Name: ECXUTL3
+ Before: B63750846 After: B94009566 **11,24,32,33,35,37,39,42,46,
+ 92,105,120,144**
+
+Routine list of preceding patches: 100, 123, 137, 142, 143
+
+=============================================================================
+User Information:
+Entered By : NABER,DAVID A Date Entered : JAN 16, 2013
+Completed By: SBERRO,SANDRA Date Completed: OCT 21, 2013
+Released By : VASSAR,CAROL Date Released : OCT 29, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/Dietetics/Patches/FH_5.5_26/.gitignore b/Packages/Dietetics/Patches/FH_5.5_26/.gitignore
new file mode 100644
index 0000000..4f637a0
--- /dev/null
+++ b/Packages/Dietetics/Patches/FH_5.5_26/.gitignore
@@ -0,0 +1 @@
+FH-5P5_SEQ-27_PAT-26.KID
diff --git a/Packages/Dietetics/Patches/FH_5.5_30/FH-5P5_SEQ-35_PAT-30.KIDS b/Packages/Dietetics/Patches/FH_5.5_30/FH-5P5_SEQ-35_PAT-30.KIDS
new file mode 100644
index 0000000..2fab92c
--- /dev/null
+++ b/Packages/Dietetics/Patches/FH_5.5_30/FH-5P5_SEQ-35_PAT-30.KIDS
@@ -0,0 +1,530 @@
+Released FH*5.5*30 SEQ #35
+Extracted from mail message
+**KIDS**:FH*5.5*30^
+
+**INSTALL NAME**
+FH*5.5*30
+"BLD",8906,0)
+FH*5.5*30^DIETETICS^0^3130708^y
+"BLD",8906,1,0)
+^^7^7^3130708^
+"BLD",8906,1,1,0)
+This patch addresses the following issues:
+"BLD",8906,1,2,0)
+1. When the user decides to sort the Nutrition Status Average Report by
+"BLD",8906,1,3,0)
+the Clinician, the report is using the CLINICIAN (# 1) field rather than
+"BLD",8906,1,4,0)
+the CLINICIAN(S) (# 112) of the NUTRITION LOCATION (# 119.6) file.
+"BLD",8906,1,5,0)
+
+"BLD",8906,1,6,0)
+2. Routine FHASN71 will be updated to include Integration Agreements in
+"BLD",8906,1,7,0)
+its comments section.
+"BLD",8906,4,0)
+^9.64PA^^
+"BLD",8906,6.3)
+4
+"BLD",8906,"ABPKG")
+n
+"BLD",8906,"KRN",0)
+^9.67PA^779.2^20
+"BLD",8906,"KRN",.4,0)
+.4
+"BLD",8906,"KRN",.401,0)
+.401
+"BLD",8906,"KRN",.402,0)
+.402
+"BLD",8906,"KRN",.403,0)
+.403
+"BLD",8906,"KRN",.5,0)
+.5
+"BLD",8906,"KRN",.84,0)
+.84
+"BLD",8906,"KRN",3.6,0)
+3.6
+"BLD",8906,"KRN",3.8,0)
+3.8
+"BLD",8906,"KRN",9.2,0)
+9.2
+"BLD",8906,"KRN",9.8,0)
+9.8
+"BLD",8906,"KRN",9.8,"NM",0)
+^9.68A^1^1
+"BLD",8906,"KRN",9.8,"NM",1,0)
+FHASN71^^0^B23883807
+"BLD",8906,"KRN",9.8,"NM","B","FHASN71",1)
+
+"BLD",8906,"KRN",19,0)
+19
+"BLD",8906,"KRN",19.1,0)
+19.1
+"BLD",8906,"KRN",101,0)
+101
+"BLD",8906,"KRN",409.61,0)
+409.61
+"BLD",8906,"KRN",771,0)
+771
+"BLD",8906,"KRN",779.2,0)
+779.2
+"BLD",8906,"KRN",870,0)
+870
+"BLD",8906,"KRN",8989.51,0)
+8989.51
+"BLD",8906,"KRN",8989.52,0)
+8989.52
+"BLD",8906,"KRN",8994,0)
+8994
+"BLD",8906,"KRN","B",.4,.4)
+
+"BLD",8906,"KRN","B",.401,.401)
+
+"BLD",8906,"KRN","B",.402,.402)
+
+"BLD",8906,"KRN","B",.403,.403)
+
+"BLD",8906,"KRN","B",.5,.5)
+
+"BLD",8906,"KRN","B",.84,.84)
+
+"BLD",8906,"KRN","B",3.6,3.6)
+
+"BLD",8906,"KRN","B",3.8,3.8)
+
+"BLD",8906,"KRN","B",9.2,9.2)
+
+"BLD",8906,"KRN","B",9.8,9.8)
+
+"BLD",8906,"KRN","B",19,19)
+
+"BLD",8906,"KRN","B",19.1,19.1)
+
+"BLD",8906,"KRN","B",101,101)
+
+"BLD",8906,"KRN","B",409.61,409.61)
+
+"BLD",8906,"KRN","B",771,771)
+
+"BLD",8906,"KRN","B",779.2,779.2)
+
+"BLD",8906,"KRN","B",870,870)
+
+"BLD",8906,"KRN","B",8989.51,8989.51)
+
+"BLD",8906,"KRN","B",8989.52,8989.52)
+
+"BLD",8906,"KRN","B",8994,8994)
+
+"BLD",8906,"QUES",0)
+^9.62^^
+"BLD",8906,"REQB",0)
+^9.611^^
+"MBREQ")
+0
+"PKG",122,-1)
+1^1
+"PKG",122,0)
+DIETETICS^FH^Dietetics System
+"PKG",122,20,0)
+^9.402P^^
+"PKG",122,22,0)
+^9.49I^1^1
+"PKG",122,22,1,0)
+5.5^3050202^3050308^33227
+"PKG",122,22,1,"PAH",1,0)
+30^3130708
+"PKG",122,22,1,"PAH",1,1,0)
+^^7^7^3130708
+"PKG",122,22,1,"PAH",1,1,1,0)
+This patch addresses the following issues:
+"PKG",122,22,1,"PAH",1,1,2,0)
+1. When the user decides to sort the Nutrition Status Average Report by
+"PKG",122,22,1,"PAH",1,1,3,0)
+the Clinician, the report is using the CLINICIAN (# 1) field rather than
+"PKG",122,22,1,"PAH",1,1,4,0)
+the CLINICIAN(S) (# 112) of the NUTRITION LOCATION (# 119.6) file.
+"PKG",122,22,1,"PAH",1,1,5,0)
+
+"PKG",122,22,1,"PAH",1,1,6,0)
+2. Routine FHASN71 will be updated to include Integration Agreements in
+"PKG",122,22,1,"PAH",1,1,7,0)
+its comments section.
+"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","FHASN71")
+0^1^B23883807^B18147254
+"RTN","FHASN71",1,0)
+FHASN71 ; HISC/NCA - Print Status Average (cont.) ;9/28/95 10:52
+"RTN","FHASN71",2,0)
+ ;;5.5;DIETETICS;**30**;Jan 28, 2005;Build 4
+"RTN","FHASN71",3,0)
+ ;IA # 1071 - DGPMSTAT
+"RTN","FHASN71",4,0)
+ ;IA # 1096 - PATIENT MOVEMENT file cross reference
+"RTN","FHASN71",5,0)
+ ;IA # 2056 - Data Base Server API: Data Retriever Utilities
+"RTN","FHASN71",6,0)
+ ;IA # 2090 - ACCESS TO PATIENT MOVEMENT DATA
+"RTN","FHASN71",7,0)
+Q0 ; Process Screening all patients
+"RTN","FHASN71",8,0)
+ K CLIN,DWRD,LIST,LST,NAME,S,WARD,WC,WLCN,WRD,X,X1
+"RTN","FHASN71",9,0)
+ S TOT=""
+"RTN","FHASN71",10,0)
+ ;Build lists of MAS wards, ward names, ward clinicians, clinician names
+"RTN","FHASN71",11,0)
+ ;DWRD - Array MAS Wards
+"RTN","FHASN71",12,0)
+ ;FHWN - Array Ward Names
+"RTN","FHASN71",13,0)
+ ;FHWC - Array Ward Clinicains
+"RTN","FHASN71",14,0)
+ ;FHWCN - Array Ward Clinican Names
+"RTN","FHASN71",15,0)
+ F WRD=0:0 S WRD=$O(^FH(119.6,WRD)) Q:WRD<1 D
+"RTN","FHASN71",16,0)
+ . F LST=0:0 S LST=$O(^FH(119.6,WRD,"W",LST)) Q:LST<1 D
+"RTN","FHASN71",17,0)
+ . . S X=+$G(^(LST,0))
+"RTN","FHASN71",18,0)
+ . . S:'$D(DWRD(X)) DWRD(X)=WRD
+"RTN","FHASN71",19,0)
+ . S FHWN(WRD)=$P($G(^FH(119.6,WRD,0)),U)
+"RTN","FHASN71",20,0)
+ . F WC=0:0 S WC=$O(^FH(119.6,WRD,2,WC)) Q:WC<1 D
+"RTN","FHASN71",21,0)
+ . . S CLIN=+$G(^FH(119.6,WRD,2,WC,0))
+"RTN","FHASN71",22,0)
+ . . S LIST(WRD,CLIN)=""
+"RTN","FHASN71",23,0)
+ . . I '$D(FHWCN(CLIN)) S FHWCN(CLIN)=$$GET1^DIQ(200,CLIN_",",.01)
+"RTN","FHASN71",24,0)
+ . . S LIST(WRD,CLIN)=""
+"RTN","FHASN71",25,0)
+ . S (X,X1)=""
+"RTN","FHASN71",26,0)
+ . F S X=$O(LIST(WRD,X)) Q:X="" S X1=X1_X_"|"
+"RTN","FHASN71",27,0)
+ . I X1'="" S FHWC(WRD)=X1
+"RTN","FHASN71",28,0)
+ . K CLIN,LIST,WC,X,X1
+"RTN","FHASN71",29,0)
+ ;Process all persons in the NUTRITION PERSON file
+"RTN","FHASN71",30,0)
+ F FHDFN=0:0 S FHDFN=$O(^FHPT(FHDFN)) Q:FHDFN<1 I $D(^FHPT(FHDFN,0)) K N S ND=0 D TS,CALC
+"RTN","FHASN71",31,0)
+ ;Build sort array, print summary
+"RTN","FHASN71",32,0)
+ D BSA,PS
+"RTN","FHASN71",33,0)
+ ;Variable clean up and exit
+"RTN","FHASN71",34,0)
+ K ^TMP($J)
+"RTN","FHASN71",35,0)
+ ;D KILL^XUSCLEAN
+"RTN","FHASN71",36,0)
+ Q
+"RTN","FHASN71",37,0)
+TS ; Tabulate status
+"RTN","FHASN71",38,0)
+ D PATNAME^FHOMUTL I DFN="" Q
+"RTN","FHASN71",39,0)
+ S DGT=EDT+1,DGT=DGT+.0000001
+"RTN","FHASN71",40,0)
+ S (DGA1,DG1,DGXFR0)=""
+"RTN","FHASN71",41,0)
+ D ^DGPMSTAT
+"RTN","FHASN71",42,0)
+ Q:DGA1=""!(DG1="")
+"RTN","FHASN71",43,0)
+ S ADM=DGA1,XX=$G(^DGPM(ADM,0))
+"RTN","FHASN71",44,0)
+ S DISC=$P(XX,"^",17)
+"RTN","FHASN71",45,0)
+ S:DISC'="" DISC=$P($G(^DGPM(DISC,0)),"^",1)
+"RTN","FHASN71",46,0)
+ Q:'$D(^FHPT(FHDFN,"A",ADM,0))
+"RTN","FHASN71",47,0)
+ S MW1=$S($P(DG1,"^",1):$P(DG1,"^",1),1:0)
+"RTN","FHASN71",48,0)
+ S W1=$S($D(DWRD(+MW1)):$G(DWRD(+MW1)),1:0)
+"RTN","FHASN71",49,0)
+ I '$D(^FH(119.6,+W1,0)) S MWRD=$P($G(^DIC(42,+MW1,0)),"^",1) S DW1=$O(^FH(119.6,"B",MWRD,0)) Q:DW1<1 S W1=+DW1
+"RTN","FHASN71",50,0)
+ S WD=$G(FHWC(+W1)) S:'WD WD=0
+"RTN","FHASN71",51,0)
+ I '$D(^FHPT(FHDFN,"S",0)) D UC Q
+"RTN","FHASN71",52,0)
+ D NS I '$D(^TMP($J,"FHNS")) D UC Q
+"RTN","FHASN71",53,0)
+ S NX="" F X4=0:0 S X4=$O(^TMP($J,"FHNS",X4)) Q:X4<1 S X5=$G(^(X4,0)),NX=X4 D CHK
+"RTN","FHASN71",54,0)
+ Q
+"RTN","FHASN71",55,0)
+CHK ; Check if inpatient with ADM
+"RTN","FHASN71",56,0)
+ I $P(X5,"^",1)<$S($D(^FHPT(FHDFN,"A",ADM,0)):$P(^(0),"^",1),1:9999999) D Q
+"RTN","FHASN71",57,0)
+ . D GADM
+"RTN","FHASN71",58,0)
+ . I '$D(^FHPT(FHDFN,"A",ADM,0)) D UC Q
+"RTN","FHASN71",59,0)
+ . I $P(X5,"^",1)<$S($D(^FHPT(FHDFN,"A",ADM,0)):$P(^(0),"^",1),1:9999999) D UC Q
+"RTN","FHASN71",60,0)
+ I DISC,$P(X5,"^",1)>DISC D GADM Q:'$D(^FHPT(FHDFN,"A",ADM,0)) Q:DISC&($P(X5,"^",1)>DISC)
+"RTN","FHASN71",61,0)
+ S S1=$P(X5,"^",2),D1=$P(X5,"^",3)_"|"
+"RTN","FHASN71",62,0)
+ S W1=$S($P(X5,"^",6)'="":$P(X5,"^",6),1:W1)
+"RTN","FHASN71",63,0)
+ S:'W1 W1=0
+"RTN","FHASN71",64,0)
+ S WD=$G(FHWC(+W1))
+"RTN","FHASN71",65,0)
+ S:'WD WD=0
+"RTN","FHASN71",66,0)
+ I S1,S1<5 D SC Q
+"RTN","FHASN71",67,0)
+UC ; Unclassified
+"RTN","FHASN71",68,0)
+ S S1=5
+"RTN","FHASN71",69,0)
+SC ; Set Classification
+"RTN","FHASN71",70,0)
+ S X=$S(SRT="W":W1,1:WD)
+"RTN","FHASN71",71,0)
+ S:'$D(N(X)) N(X)=""
+"RTN","FHASN71",72,0)
+ S $P(N(X),U,S1)=$P(N(X),U,S1)+1
+"RTN","FHASN71",73,0)
+ S ND=ND+1
+"RTN","FHASN71",74,0)
+ Q
+"RTN","FHASN71",75,0)
+GADM ; Get ADM for patient
+"RTN","FHASN71",76,0)
+ D PATNAME^FHOMUTL I DFN="" Q
+"RTN","FHASN71",77,0)
+ S NX=$O(^DGPM("ATID1",DFN,NX)) Q:NX="" S ADM=+$O(^(NX,0)),XX=$G(^DGPM(ADM,0)),DISC=$P(XX,"^",17) S:DISC'="" DISC=$P($G(^DGPM(DISC,0)),"^",1)
+"RTN","FHASN71",78,0)
+ Q:'$D(^FHPT(FHDFN,"A",ADM,0)) Q:$P(X5,"^",1)<$S($D(^FHPT(FHDFN,"A",ADM,0)):$P(^(0),"^",1),1:9999999)
+"RTN","FHASN71",79,0)
+ S W1=$S($P(XX,"^",6):$P(XX,"^",6),1:0),WD=$G(FHWC(+W1)) S:'WD WD=0
+"RTN","FHASN71",80,0)
+ Q
+"RTN","FHASN71",81,0)
+NS ; Nutrition Status in inverse date order
+"RTN","FHASN71",82,0)
+ K ^TMP($J,"FHNS") S FHX1=9999999-(EDT+.3),FHX2=9999999-(SDT+.0001),ZZ=""
+"RTN","FHASN71",83,0)
+ F XX=FHX1:0 S XX=$O(^FHPT(FHDFN,"S",XX)) Q:XX<1!(XX>FHX2) S X=$G(^(XX,0)) D STOR
+"RTN","FHASN71",84,0)
+ I '$D(^TMP($J,"FHNS")) S XX=FHX1,FHX1=$O(^FHPT(FHDFN,"S",FHX1)) Q:FHX1="" S X=$G(^(FHX1,0)) D STOR
+"RTN","FHASN71",85,0)
+ Q
+"RTN","FHASN71",86,0)
+STOR ; Store Nutrition Status by inverse date
+"RTN","FHASN71",87,0)
+ I ZZ'=($P(X,"^",1)\1) S ^TMP($J,"FHNS",XX,0)=X
+"RTN","FHASN71",88,0)
+ S ZZ=$P(X,"^",1)\1
+"RTN","FHASN71",89,0)
+ Q
+"RTN","FHASN71",90,0)
+CALC ;Calculate Average
+"RTN","FHASN71",91,0)
+ I $G(N(0))'="" S L=0 D C1
+"RTN","FHASN71",92,0)
+ I SRT="W" F L=0:0 S L=$O(N(L)) Q:L<1 D C1
+"RTN","FHASN71",93,0)
+ I SRT="C" S L="" F S L=$O(N(L)) Q:L="" D C1
+"RTN","FHASN71",94,0)
+ Q
+"RTN","FHASN71",95,0)
+C1 ;Calculate Averages continued
+"RTN","FHASN71",96,0)
+ F K=1:1:5 D
+"RTN","FHASN71",97,0)
+ . S X=$S(ND:$P(N(L),U,K)/ND,1:"")
+"RTN","FHASN71",98,0)
+ . S X=$J(X,0,0)
+"RTN","FHASN71",99,0)
+ . S:'$D(S(L)) S(L)=""
+"RTN","FHASN71",100,0)
+ . S $P(S(L),U,K)=$P(S(L),U,K)+X
+"RTN","FHASN71",101,0)
+ . S $P(S(L),U,6)=$P(S(L),U,6)+X
+"RTN","FHASN71",102,0)
+ . S $P(TOT,U,K)=$P(TOT,U,K)+X
+"RTN","FHASN71",103,0)
+ . S $P(TOT,U,6)=$P(TOT,U,6)+X
+"RTN","FHASN71",104,0)
+ Q
+"RTN","FHASN71",105,0)
+BSA ;Build sort array
+"RTN","FHASN71",106,0)
+ ;SA - Sort Array
+"RTN","FHASN71",107,0)
+ ;SN - Sort Name
+"RTN","FHASN71",108,0)
+ K SA,SN
+"RTN","FHASN71",109,0)
+ S W1=""
+"RTN","FHASN71",110,0)
+ F S W1=$O(S(W1)) Q:W1="" D
+"RTN","FHASN71",111,0)
+ . I W1=0 Q
+"RTN","FHASN71",112,0)
+ . I SRT="W" S SN=$G(FHWN(W1))
+"RTN","FHASN71",113,0)
+ . I SRT="C" D
+"RTN","FHASN71",114,0)
+ . . S X=$P(W1,"|"),SN=$G(FHWCN(X))
+"RTN","FHASN71",115,0)
+ . . F X=2:1 S X1=$P($G(W1),"|",X) Q:X1="" S SN=SN_" - "_$G(FHWCN(X1))
+"RTN","FHASN71",116,0)
+ . S SN=SN_"~"_W1
+"RTN","FHASN71",117,0)
+ . S SA(SN)=""
+"RTN","FHASN71",118,0)
+ K SN
+"RTN","FHASN71",119,0)
+ Q
+"RTN","FHASN71",120,0)
+PS ; Print summary
+"RTN","FHASN71",121,0)
+ S DTP=SDT D DTP^FH S DTE=DTP_" to " S DTP=EDT D DTP^FH S DTE=DTE_DTP
+"RTN","FHASN71",122,0)
+ D NOW^%DTC S (NOW,DTP)=% D DTP^FH S PG=0,LN="",$P(LN,"-",100)="" D HDR
+"RTN","FHASN71",123,0)
+ S X="" F S X=$O(SA(X)) Q:X="" D
+"RTN","FHASN71",124,0)
+ . S NAME=$P(X,"~")
+"RTN","FHASN71",125,0)
+ . S W1=$P(X,"~",2)
+"RTN","FHASN71",126,0)
+ . S D1=S(W1)
+"RTN","FHASN71",127,0)
+ . D PSD
+"RTN","FHASN71",128,0)
+ I $G(S(0))'="" S NAME="UNKNOWN",D1=$G(S(0)) D PSD
+"RTN","FHASN71",129,0)
+ S NAME="Grand Total",D1=TOT W !?16,LN D PSD
+"RTN","FHASN71",130,0)
+ W !
+"RTN","FHASN71",131,0)
+ Q
+"RTN","FHASN71",132,0)
+PSD ;Print summary detail
+"RTN","FHASN71",133,0)
+ D:$Y>(IOSL-8) HDR
+"RTN","FHASN71",134,0)
+ W !?16,NAME
+"RTN","FHASN71",135,0)
+ I NAME[" - " W !
+"RTN","FHASN71",136,0)
+ W ?48
+"RTN","FHASN71",137,0)
+ S D3=$P(D1,U,6)
+"RTN","FHASN71",138,0)
+ F K=1:1:5 D
+"RTN","FHASN71",139,0)
+ . S D2=$P(D1,U,K)
+"RTN","FHASN71",140,0)
+ . W $S(D2:$J(D2,7),1:$J("",7))
+"RTN","FHASN71",141,0)
+ . S D2=$S(D3:D2/D3*100,1:"")
+"RTN","FHASN71",142,0)
+ . W $S(D2:$J(D2,5,0),1:$J("",5))
+"RTN","FHASN71",143,0)
+ W $S(D3:$J(D3,7),1:$J("",7))
+"RTN","FHASN71",144,0)
+ Q
+"RTN","FHASN71",145,0)
+HDR ;Report Page Header
+"RTN","FHASN71",146,0)
+ W:'($E(IOST,1,2)'="C-"&'PG) @IOF S PG=PG+1 W !?16,DTP,!!?42,"N U T R I T I O N S T A T U S A V E R A G E",?109,"Page ",PG
+"RTN","FHASN71",147,0)
+ W !!?(132-$L(DTE)\2),DTE
+"RTN","FHASN71",148,0)
+ W !!?16,$S(SRT="C":"CLINICIAN",1:"WARD"),?54,"I % II % III % IV % UNC % TOTAL",!?16,LN,!
+"RTN","FHASN71",149,0)
+ Q
+"VER")
+8.0^22.0
+"BLD",8906,6)
+^35
+**END**
+**END**
diff --git a/Packages/Dietetics/Patches/FH_5.5_30/FH-5P5_SEQ-35_PAT-30.TXT b/Packages/Dietetics/Patches/FH_5.5_30/FH-5P5_SEQ-35_PAT-30.TXT
new file mode 100644
index 0000000..9e1814e
--- /dev/null
+++ b/Packages/Dietetics/Patches/FH_5.5_30/FH-5P5_SEQ-35_PAT-30.TXT
@@ -0,0 +1,148 @@
+$TXT Created by UNDERHILL,GARDNER at DAYT17.FO-BAYPINES.DOMAIN.EXT (KIDS) on Monday, 07/08/13 at 13:02
+=============================================================================
+Run Date: NOV 27, 2013 Designation: FH*5.5*30
+Package : FH - DIETETICS Priority: Mandatory
+Version : 5.5 SEQ #35 Status: Released
+ Compliance Date: DEC 28, 2013
+=============================================================================
+
+
+Subject: ISSUES WITH NUTRITION STATUS AVERAGE REPORT
+
+Category:
+ - Routine
+
+Description:
+============
+
+ This patch addresses the following issues:
+
+ 1. When the user decides to sort the Nutrition Status Average Report by
+ the Clinician, the report is using the CLINICIAN (# 1) field rather
+ than the CLINICIAN(S) (# 112) of the NUTRITION LOCATION (# 119.6) file.
+
+ 2. Routine FHASN71 will be updated to include Integration Agreements in
+ its comments section.
+
+ ASSOCIATED NSR:
+ ===============
+ N/A
+
+ PARTICIPATING TEST SITES:
+ =========================
+ Indianapolis, IN.
+ Upstate New York
+ New Jersey
+
+ ASSOCIATED REMEDY TICKETS:
+ ==========================
+ 1. HD000000511977 - Nutrition Status Average Report - Updated for
+ CLINICIAN(S)
+
+ 2. HD000000536685 - Routine FHASN71 needs integration agreements
+
+ REMEDY TICKET OVERVIEW:
+ =======================
+ 1. HD0000000511977
+
+ Problem:
+ --------
+ The user can choose to sort the Nutrition Status Average Report by
+ either the Ward the patients are admitted to or the Clinicians assigned
+ to the ward the patients are admitted to. When sorting by the
+ Clinician, the Nutrition Status Average Report sorts using the
+ CLINICIAN (#1) field of the NUTRITION LOCATION (#119.6) file rather
+ than the correct CLINICIAN(S) (#112) field. The sorted report will be
+ incorrect.
+
+ Resolution:
+ -----------
+ Revise the Nutrition Status Average Report to use the CLINICIAN(S)
+ (#112) field of the NUTRITION LOCATION (#119.6) file when the user
+ chooses to sort by clinician.
+
+ 2. HD0000000536685
+
+ Problem:
+ --------
+ Routine FHASN71 is a very old routine that makes a number of direct
+ global reads of ^DGPM(D0,0) and ^DGPM("ATID1" index without integration
+ agreements. Routine FHASN71 also makes use of the DGPMSTAT API without
+ the integration agreement.
+
+ Resolution:
+ -----------
+ The following integration agreements were added to routine FHASN71:
+ IA # 1071 - DGPMSTAT
+ Supported usage
+ IA # 2056 - Data Base Server API: Data Retriever Utilities
+ Supported usage
+
+ The following integration agreements were modified and added to routine
+ FHASN71:
+ IA # 1096 - PATIENT MOVEMENT file cross reference
+ Controlled Subscription usage
+ Dietetics added as a subscribing package 10/12/2012.
+ IA # 2090 - ACCESS TO PATIENT MOVEMENT DATA
+ Controlled Subscription usage
+ Global references added 10/12/2012
+ ^DGPM(D0,0)
+ .01 DATE/TIME 0;1 Direct Global Read & w/FileMan
+ .17 DISCHARGE/CHECK-OUT MOVEMENT 0;17 Direct Global Read & w/FileMan
+
+ ===================== INSTALLATION INSTRUCTIONS =====================
+
+ Installation will take less than 2 minutes. Users may be on the
+ system.
+
+ 1. Use the INSTALL/CHECK MESSAGE option on the PackMan menu.
+
+ 2. From the Kernel Installation & Distribution System menu, select
+ the Installation menu.
+
+ 3. From this menu, you may select to use the following options
+ (when prompted for INSTALL NAME, enter FH*5.5*30)
+
+ a. Backup a Transport Global - this option will create a backup
+ message of any routines exported with the patch. It will NOT
+ backup any other changes such as DDs or templates.
+
+ b. Compare Transport Global to Current System - this option will
+ allow you to view all changes that will be made when the patch
+ is installed. It compares all components of the patch (routines,
+ DDs, templates, etc.).
+
+ c. Verify Checksums in Transport Global - this option will ensure
+ the integrity of the routines that are in the transport global.
+
+ 4. Use the Install Package(s) option and select the package FH*5.5*30
+
+ 5. When prompted "Want KIDS to INHIBIT LOGONs during the install?
+ NO//" respond NO.
+
+ 6. When prompted "Want to DISABLE Scheduled Options, Menu Options, and
+ Protocols? NO//" respond NO.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;5.5;DIETETICS;**[Patch List]**;Jan 28, 2005;Build 4
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: FHASN71
+ Before: B18147254 After: B23883807 **30**
+
+=============================================================================
+User Information:
+Entered By : UNDERHILL,GARDNER D Date Entered : OCT 27, 2011
+Completed By: DUCKWORTH,TIM Date Completed: NOV 20, 2013
+Released By : KREUZ,SHERI B Date Released : NOV 27, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/Fee Basis/Patches/FB_3.5_118/.gitignore b/Packages/Fee Basis/Patches/FB_3.5_118/.gitignore
new file mode 100644
index 0000000..4b28587
--- /dev/null
+++ b/Packages/Fee Basis/Patches/FB_3.5_118/.gitignore
@@ -0,0 +1 @@
+FEE3_5P118.KID
diff --git a/Packages/Fee Basis/Patches/FB_3.5_120/.gitignore b/Packages/Fee Basis/Patches/FB_3.5_120/.gitignore
new file mode 100644
index 0000000..e7687da
--- /dev/null
+++ b/Packages/Fee Basis/Patches/FB_3.5_120/.gitignore
@@ -0,0 +1 @@
+FEE3_5P120.KID
diff --git a/Packages/Fee Basis/Patches/FB_3.5_145/.gitignore b/Packages/Fee Basis/Patches/FB_3.5_145/.gitignore
new file mode 100644
index 0000000..35e003f
--- /dev/null
+++ b/Packages/Fee Basis/Patches/FB_3.5_145/.gitignore
@@ -0,0 +1 @@
+FEE3_5P145.KID
diff --git a/Packages/Imaging/Patches/MAG_3.0_118/.gitignore b/Packages/Imaging/Patches/MAG_3.0_118/.gitignore
new file mode 100644
index 0000000..1406daa
--- /dev/null
+++ b/Packages/Imaging/Patches/MAG_3.0_118/.gitignore
@@ -0,0 +1 @@
+MAG3_0P118.KIDs
diff --git a/Packages/Imaging/Patches/MAG_3.0_133/MAG-3_SEQ-94_PAT-133.TXT b/Packages/Imaging/Patches/MAG_3.0_133/MAG-3_SEQ-94_PAT-133.TXT
new file mode 100644
index 0000000..05bb51f
--- /dev/null
+++ b/Packages/Imaging/Patches/MAG_3.0_133/MAG-3_SEQ-94_PAT-133.TXT
@@ -0,0 +1,460 @@
+
+=============================================================================
+Run Date: OCT 21, 2013 Designation: MAG*3*133
+Package : MAG - IMAGING Priority: Mandatory
+Version : 3 SEQ #94 Status: Released
+ Compliance Date: NOV 25, 2013
+=============================================================================
+
+Associated patches: (v)MAG*3*120 <<= must be installed BEFORE `MAG*3*133'
+
+Subject: VISTARAD MAINTENANCE VIII
+
+Category:
+ - Routine
+ - Other
+
+Description:
+============
+
+ MAG*3.0*133 VistARad Maintanence VII will address maintenance items and
+ Remedy tickets that were reported in the Remedy Action Request system.
+
+ MAG*3.0*133 addresses the following issues:
+ - Memory Leak issue when accessing certain exams
+ - Fixes a hanging protocol issue when opening certain XA studies
+ - For Indian Health Services only: corrects the display of the
+ medical record number and patient age when displayed on the VistARad
+ title bars.
+ - Provides a user preference to display larger thumbnails on the
+ Preview window and re-formats the Preview window display
+ - Provides a feature that allows a user to reset VistARad windows
+ positions
+ - Hidden message box for VistA password expirations
+ - Kodak (CareStream) CR images not opening properly due to a hanging
+ protocol issue CT dose reports that do not render correctly if
+ utilizing the old Group 6000 overlays
+ - Images with VOI/LUT data fail to load when remotely accessed through
+ the VIX.
+ - Exams that include scanned documents (which do not load in
+ VistARad) now will provide explanatory information regarding the files
+ that do not load when accessed remotely via the VIX.
+
+ NOTE All sites running VistA Imaging 3.0 must install the KIDS portion
+ of this patch. At sites that have implemented VistARad, installation of
+ both the KIDS and the client software is required. The MAG*3.0*133 KIDS
+ is backwards-compatible with the MAG*3.0*120 client software;
+ installation of the client software may be phased in according to each
+ site's needs.
+
+ Distribution of the Software:
+ =============================
+ The patch can be downloaded from:
+ ftp.imaging.domain.ext/Software/Released_Software/Mag3_0P###
+ This document includes installation instructions.
+
+ NOTE: You can find last-minute information about this patch in its
+ readme file. If present, this file will also be located in the patch
+ distribution directories.
+
+ Patch Contents:
+ ===============
+ This patch includes the following files:
+
+ Software
+ File Description File Name FTP
+ Mode
+ --------------------------------------------------------------------------
+ MAG*3.0*133 KIDS MAG3_0P133.KID ASCII
+ VistARad client installation file MAG3_0P133_VRAD_setup.exe Binary
+
+ Documentation
+ All documentation should be downloaded in the Binary format
+
+ File Description File Name
+ --------------------------------------------------------------------------
+ MAG*3.0*133 Patch Description MAG3_0P133_Patch_Description.pdf
+ Technical Manual change pages MAG3_0P133_TM.pdf
+ VistARad User Guide MAG_VistARad_User_Guide.pdf
+ VistARad Quick Reference Guide MAG_Vrad_Quick_Ref.pdf
+ VistARad Quick Start Guide MAG_vrad_QSG.pdf
+ VistARad Shortcut Keys MAG_Vrad_Shortcuts.pdf
+
+
+ Associated Patches:
+ ===================
+ All released VistA Imaging patches are required and must be installed on
+ the VistA system before MAG*3.0*133 can be installed. The KIDS files of
+ the following VistA Imaging patches must be installed on the VistA system
+ in this order:
+
+ MAG*3.0*120
+
+ For a list of all released Imaging (MAG) patches, refer to the
+ patch_list.txt file, which is available on the Imaging FTP server. To
+ locate the file, go to ftp://ftp.imaging.domain.ext. Then, navigate to
+ the \Docs\Imaging_Docs_Latest folder.
+
+ Test Sites:
+ ===========
+ The following sites are test sites for this patch:
+
+ Cleveland, OH (Large)
+ Columbia, SC (Large)
+ Mountain Home, TN (Medium)
+ Oklahoma City, OK (Large)
+
+ Remedy Help Calls:
+ ==================
+
+ 1. 207691, 590741, 601910, 605562, 614787
+
+ Problem:
+ ========
+ CT dose report images do not render when using the old version Group 6000
+ overlays.
+
+ Resolution:
+ ==========
+ The program was modified to be able to manage and display both old and
+ new versions of Group 6000 overlay data.
+
+ 2. 385648
+
+ Problem:
+ ========
+ Thumbnail images on the Preview window are too small.
+
+ Resolution:
+ ===========
+ The default size for the thumbnail image on the Preview window's list
+ view was increased. In addition, a user preference was created to allow
+ each user to select from a choice of larger sizes that are now available.
+
+ 3. 419152, 535982, 600443
+
+ Problem:
+ ========
+ VistARad is failing to open all images from an XA study due to an issue
+ with the XA hanging protocol when both single-frame and multi-frame image
+ objects exist in the study.
+
+ Resolution:
+ ===========
+ The program's hanging protocol processing logic was fixed to correctly
+ manage studies having interleaved multi-frame and single frame images.
+
+ 4. 518326, 713116, 784423, 712501
+
+ Problem:
+ ========
+ When opening images from certain Kodak (CareStream) CR modality
+ versions, the images are not correctly grouped in the display viewports.
+
+ Resolution:
+ ===========
+ The program was modified to prevent identifying these images as scout
+ images so that the images would be grouped appropriately.
+
+ 5. 613696
+
+ Problem:
+ ========
+ A memory leak occurs when loading images having VOI/LUTs. This may lead
+ to a crash after loading numerous such exams during a reading session.
+
+ Resolution:
+ ===========
+ The program was modified to eliminate the memory leak.
+
+ 6. 709885
+
+ Problem:
+ ========
+ Sometimes the remembered screen position for certain of VistARad's
+ ancillary windows is lost, resulting in the window failing to display on
+ any of the available screens.
+
+ Solution:
+ =========
+ A new menu option, Customize | Reset VistARad Windows, was created to
+ allow the user to restore all the ancillary windows to a default screen
+ position from which the user can re-position the windows to preferred
+ locations and sizes.
+
+ 7. 730931, 797181
+
+ Problem:
+ ========
+ The VistARad client is improperly displaying patient demographic
+ information for IHS patients: the Medical Record Number (MRN) is
+ incorrectly formatted; and, patient age for patients born after
+ 12/31/1999 is incorrect.
+
+ Resolution:
+ ===========
+ The program was modified to not always assume that a patient's
+ identifying number is a social security number so that the MRN can be
+ displayed without hyphens breaking it apart. The logic for calculating
+ patient age was corrected to always use the four-digit year.
+
+ 8. 754317
+
+ Problem:
+ ========
+ VistARad is displaying some MR exams by breaking some series into
+ individual images. This produces many extraneous thumbnail entries on
+ the Preview window.
+
+ Resolution:
+ ===========
+ The program was modified to prevent identifying these images as scout
+ images so that the images would be grouped appropriately, and not
+ generate extraneous thumbnails on the Preview window.
+
+ 9. 754321
+
+ Problem:
+ ========
+ The Contrast or dose fields are not visible when the radiologists pull up
+ orders in VistARad.
+
+ Resolution:
+ ===========
+ When the radiologist displays the requisition or report, the medications
+ and radiopharmaceuticals dosing data are now displayed.
+
+ 10. 760101
+
+ Problem:
+ ========
+ The Message box containing the VistA password expiration message is
+ hidden behind the Broker Login window.
+
+ Resolution:
+ ===========
+ A program setting was changed so that when the message box is displayed
+ it is forced on top of any other window so a user will see it.
+
+ 11. 769112, 791998
+
+ Problem:
+ ========
+ Images with VOI/LUT data fail to load when remotely accessed through the
+ VIX.
+
+ Resolution:
+ ===========
+ The image processing logic employed for remotely accessed images was
+ re-factored to unify it with the logic that is employed for locally
+ accessed images having VOI/LUT data. This allowed the sequence of steps
+ for the loading and pre-processing logic to follow identical pathways
+ through the image retrieval operations for both local and remote images.
+
+ 12. 771016
+
+ Problem:
+ ========
+ After opening remotely accessed exams that include scanned documents
+ (most of which are not supported by VistARad), a message window displays
+ stating that "some images failed to load". This message is misleading,
+ since the actual images from the study do load correctly, and only the
+ scanned document(s) are not loaded.
+
+ Resolution:
+ ===========
+ The message box that is displayed now will provide explanatory
+ information regarding the files that do not load so that the clinician
+ can determine whether the failed objects may include images, or may be
+ scanned documents. It further reminds the user that scanned documents
+ may be viewed in the VistA Imaging Display Client, if needed.
+
+ Note: This new behavior will not occur until modifications to the VIX
+ software that are part of MAG*3.0*138 Telepathology Worklist, have been
+ installed. However, the implementation is back-compatible with the
+ currently-deployed VIX software so that the existing functionality will
+ be observed until such time as the newer VIX version is deployed.
+
+ New Service Requests:
+ =====================
+ There are no New Service Requests addressed in this patch.
+
+ Patient Safety Issues:
+ ======================
+ There are no Patient Safety Issue (PSI) reports associated with this
+ patch.
+
+ Data Dictionaries:
+ ==================
+ There are no new or modified files or fields in this patch.
+
+ Security Keys:
+ ==============
+ There are no new or modified security keys in this patch.
+
+
+ REMOTE PROCEDURES:
+ ==================
+ There are no new or modified remote procedure calls in this patch.
+
+
+ Menu Options
+ ============
+ There are no new or modified menu options in this patch.
+
+ Templates:
+ ==========
+ There are no new or modified templates in this patch.
+
+ Installation
+ ============
+
+ This patch may be loaded while the VistA Imaging system is active.
+ However, all radiologists that would be performing interpretations should
+ be logged off the system during the KIDS install; non-radiologists need
+ not be logged off. The KIDS installation will take less than one minute.
+
+ Installing the KIDS Package
+
+ 1 Access the Kernel Installation and Distribution System Menu [XPD MAIN].
+ 2 Run the Installation option [XPD INSTALLATION MENU].
+ 3 Load the KIDS file by performing the following steps.
+ a. Run the Load a Distribution option [XPD LOAD DISTRIBUTION] to
+ load the KIDS distribution.
+ b. When prompted, enter the path and file name (MAG3_0P133.KID) of
+ the Patch 133 KIDS file that you downloaded from the Imaging FTP
+ server.
+ c. When prompted to continue with the load, enter YES. A
+ Distribution OK! message will be displayed when the load is
+ complete.
+ 4 After loading the KIDS file, use the following options to verify
+ the contents of the patch and to back up any affected routines.
+
+ Verify Checksums in Transport Global [XPD PRINT CHECKSUM]- run
+ this option to verify the integrity of the routines in the patch.
+ Compare Transport Global to Current System [XPD COMPARE TO
+ SYSTEM] - run this option to view all changes that will be made when
+ the patch is installed. All components (routines, options, and so
+ on) in the patch will be compared.
+ Backup a Transport Global [XPD BACKUP] - run this option to create a
+ backup message of any routines exported with the patch. It will NOT
+ back up any of the other changes.
+ 5 After performing the load and any optional verification steps, perform
+ the following steps to install the KIDS file:
+ a. Run the Install Package(s) [XPD INSTALL BUILD] option.
+ b. When prompted for the install name, enter MAG*3.0*133
+ c. Answer NO to the following prompts:
+
+ Want KIDS to INHIBIT LOGONs during the install? No//NO
+ Want to DISABLE Scheduled Options, Menu Options, and Protocols? No//NO
+
+ 6 When installation is finished, an Install Complete message will
+ be displayed.
+
+ The sample installation below illustrates the installation of the
+ MAG*3.0*133 KIDS.
+
+ Select Installation Option: INstall Package(s)
+ Select INSTALL NAME: MAG*3.0*133 7/16/13 at 12:47:12
+ => Version 3.0 Patch 133 - VistARad Maintenance - 07/08/2013 04:48
+
+ This Distribution was loaded on Jul 16, 2013 at 12:47:12 with header of
+ Version 3.0 Patch 133 - VistARad Maintenance - 07/08/2013 04:48PM
+ ;Created on Jul 08, 2013 at 16:48:34
+ It consisted of the following Install(s):
+ MAG*3.0*133
+ Checking Install for Package MAG*3.0*133
+ Will first run the Environment Check Routine, MAGJMN1
+
+
+ Wait for Background Compile program to stop;
+ this might take up to a few minutes..
+
+ Background Compile Stopped; proceeding with install.
+
+
+ Install Questions for MAG*3.0*133
+
+
+
+ Want KIDS to INHIBIT LOGONs during the install? NO//
+ Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO//
+
+ Enter the Device you want to print the Install messages.
+ You can queue the install by enter a 'Q' at the device prompt.
+ Enter a '^' to abort the install.
+
+ DEVICE: HOME// HERE
+ Complete MAG*3.0*133
+
+ Install Started for MAG*3.0*133 :
+ Jul 16, 2013 at 12:49:12
+
+ Build Distribution Date: Jul 08, 2013
+
+ Installing Routines:
+ Jul 16, 2013 at 12:49:12
+
+ Running Post-Install Routine: POSTINST^MAGJMN1... Enabling background
+ compile .
+
+ Background Compile Enabled.
+
+
+ Updating Routine file...
+
+ Updating KIDS files...
+
+ MAG*3.0*133 Installed.
+ Jul 16, 2013 at 12:49:15
+
+
+ Install Message sent
+
+ Install Completed
+
+ VistARad Workstation Installation:
+ ==================================
+ For details on the VistARad Workstation Installation process, refer to
+ the MAG3_0P133_Patch_Description.pdf document distributed with the patch.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+;;3.0;IMAGING;**[Patch List]**;Mar 19, 2002;Build 5393;Sep 09, 2013
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: MAGJEX1
+ Before: B73006273 After: B73078692 **16,22,18,65,101,115,104,120,133**
+Routine Name: MAGJMN1
+ Before:B106024345 After: B98640707 **16,9,22,18,65,76,101,90,115,
+ 120,133**
+Routine Name: MAGJRPT
+ Before: B78502597 After:B103626332 **18,101,120,133**
+Routine Name: MAGJTU4V
+ Before: B5203794 After: B5405270 **90,115,120,133**
+Routine Name: MAGJUPD1
+ Before: B61960961 After: B64000428 **16,22,18,76,101,120,133**
+Routine Name: MAGJUTL1
+ Before: B69694036 After: B71279028 **22,18,65,76,101,133**
+Routine Name: MAGJUTL3
+ Before:B130108028 After:B139481284 **16,9,22,18,65,76,101,90,120,133**
+Routine Name: MAGJUTL5
+ Before: B38114169 After: B38140374 **65,76,101,90,115,104,120,133**
+
+Routine list of preceding patches: 120
+
+=============================================================================
+User Information:
+Entered By : KAREDDY,VIJENDER Date Entered : NOV 04, 2011
+Completed By: MASSEY,DAVID Date Completed: OCT 21, 2013
+Released By : HAAS,CHRISTINE T Date Released : OCT 21, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/Imaging/Patches/MAG_3.0_133/MAG3_0P133.KIDs b/Packages/Imaging/Patches/MAG_3.0_133/MAG3_0P133.KIDs
new file mode 100644
index 0000000..b6a74bc
--- /dev/null
+++ b/Packages/Imaging/Patches/MAG_3.0_133/MAG3_0P133.KIDs
@@ -0,0 +1,3588 @@
+KIDS Distribution saved on Sep 09, 2013 at 14:28:28
+Version 3.0 Patch 133 - VistARad Maintenance - 09/09/2013 02:28PM
+**KIDS**:MAG*3.0*133^
+
+**INSTALL NAME**
+MAG*3.0*133
+"BLD",3463,0)
+MAG*3.0*133^IMAGING^0^3130909^y
+"BLD",3463,1,0)
+^^12^12^3130909
+"BLD",3463,1,1,0)
+Version 3.0 Patch 133 - VistARad Maintenance
+"BLD",3463,1,2,0)
+
+"BLD",3463,1,3,0)
+
+"BLD",3463,1,4,0)
+Routines:
+"BLD",3463,1,5,0)
+MAGJEX1 new value = 73078692
+"BLD",3463,1,6,0)
+MAGJMN1 new value = 98640707
+"BLD",3463,1,7,0)
+MAGJRPT new value = 103626332
+"BLD",3463,1,8,0)
+MAGJTU4V new value = 5405270
+"BLD",3463,1,9,0)
+MAGJUPD1 new value = 64000428
+"BLD",3463,1,10,0)
+MAGJUTL1 new value = 71279028
+"BLD",3463,1,11,0)
+MAGJUTL3 new value = 139481284
+"BLD",3463,1,12,0)
+MAGJUTL5 new value = 38140374
+"BLD",3463,4,0)
+^9.64PA^^0
+"BLD",3463,6.3)
+V3.0p133Build5393_T3
+"BLD",3463,"ABNS",0)
+^9.66A^^
+"BLD",3463,"ABPKG")
+n^n^G.IMAGING DEVELOPMENT TEAM at DOMAIN.EXT
+"BLD",3463,"INID")
+n^n^n
+"BLD",3463,"INIT")
+POSTINST^MAGJMN1
+"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^8^8
+"BLD",3463,"KRN",9.8,"NM",1,0)
+MAGJEX1^^0^B73078692
+"BLD",3463,"KRN",9.8,"NM",2,0)
+MAGJMN1^^0^B98640707
+"BLD",3463,"KRN",9.8,"NM",3,0)
+MAGJRPT^^0^B103626332
+"BLD",3463,"KRN",9.8,"NM",4,0)
+MAGJTU4V^^0^B5405270
+"BLD",3463,"KRN",9.8,"NM",5,0)
+MAGJUPD1^^0^B64000428
+"BLD",3463,"KRN",9.8,"NM",6,0)
+MAGJUTL1^^0^B71279028
+"BLD",3463,"KRN",9.8,"NM",7,0)
+MAGJUTL3^^0^B139481284
+"BLD",3463,"KRN",9.8,"NM",8,0)
+MAGJUTL5^^0^B38140374
+"BLD",3463,"KRN",9.8,"NM","B","MAGJEX1",1)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGJMN1",2)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGJRPT",3)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGJTU4V",4)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGJUPD1",5)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGJUTL1",6)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGJUTL3",7)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGJUTL5",8)
+
+"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,"PRE")
+MAGJMN1
+"BLD",3463,"REQB",0)
+^9.611^1^1
+"BLD",3463,"REQB",1,0)
+MAG*3.0*120^2
+"BLD",3463,"REQB","B","MAG*3.0*120",1)
+
+"INIT")
+POSTINST^MAGJMN1
+"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)
+133^3130909^.5
+"PKG",454,22,1,"PAH",1,1,0)
+^9.49011^11^11^3130909
+"PKG",454,22,1,"PAH",1,1,1,0)
+Routines for Patch 133, Test Build 3.
+"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)
+MAGJEX1 value = 73078692
+"PKG",454,22,1,"PAH",1,1,5,0)
+MAGJMN1 value = 98640707
+"PKG",454,22,1,"PAH",1,1,6,0)
+MAGJRPT value = 103626332
+"PKG",454,22,1,"PAH",1,1,7,0)
+MAGJTU4V value = 5405270
+"PKG",454,22,1,"PAH",1,1,8,0)
+MAGJUPD1 value = 64000428
+"PKG",454,22,1,"PAH",1,1,9,0)
+MAGJUTL1 value = 71279028
+"PKG",454,22,1,"PAH",1,1,10,0)
+MAGJUTL3 value = 139481284
+"PKG",454,22,1,"PAH",1,1,11,0)
+MAGJUTL5 value = 38140374
+"PRE")
+MAGJMN1
+"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")
+8
+"RTN","MAGJEX1")
+0^1^B73078692
+"RTN","MAGJEX1",1,0)
+MAGJEX1 ;WIRMFO/JHC - VistARad RPC calls ; 25 Mar 2013 5:22 PM
+"RTN","MAGJEX1",2,0)
+ ;;3.0;IMAGING;**16,22,18,65,101,115,104,120,133**;Mar 19, 2002;Build 5393;Sep 09, 2013
+"RTN","MAGJEX1",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGJEX1",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJEX1",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGJEX1",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGJEX1",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGJEX1",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGJEX1",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGJEX1",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGJEX1",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGJEX1",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGJEX1",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGJEX1",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGJEX1",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGJEX1",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJEX1",17,0)
+ ;;
+"RTN","MAGJEX1",18,0)
+ Q
+"RTN","MAGJEX1",19,0)
+ ;
+"RTN","MAGJEX1",20,0)
+ ;
+"RTN","MAGJEX1",21,0)
+ERR N ERR S ERR=$$EC^%ZOSV S @MAGGRY@(0)="0^4~"_ERR
+"RTN","MAGJEX1",22,0)
+ D @^%ZOSF("ERRTN")
+"RTN","MAGJEX1",23,0)
+ Q:$Q 1 Q
+"RTN","MAGJEX1",24,0)
+ ;
+"RTN","MAGJEX1",25,0)
+ ;***** Open an exam.
+"RTN","MAGJEX1",26,0)
+ ; RPC: MAGJ RADCASEIMAGES
+"RTN","MAGJEX1",27,0)
+ ;
+"RTN","MAGJEX1",28,0)
+OPENCASE(MAGGRY,DATA) ;
+"RTN","MAGJEX1",29,0)
+ ; MAGGRY holds $NA reference to ^TMP for rpc return
+"RTN","MAGJEX1",30,0)
+ ; all ref's to MAGGRY use subscript indirection
+"RTN","MAGJEX1",31,0)
+ ; input in DATA:
+"RTN","MAGJEX1",32,0)
+ ; OPEN_FLAG ^ RADFN^RADTI^RACNI^RARPT ^ PSINDGET ^ <unused> ^ USETGA
+"RTN","MAGJEX1",33,0)
+ ; OPEN_FLAG = 0: Open, view only
+"RTN","MAGJEX1",34,0)
+ ; 1: Open, lock the case for status update
+"RTN","MAGJEX1",35,0)
+ ; 2: Open, Reserve for Interpretation
+"RTN","MAGJEX1",36,0)
+ ; VIX: Fetching metadata only; Jukebox retrieval occurs (P115 & earlier)
+"RTN","MAGJEX1",37,0)
+ ; VIX-Metadata: Fetching metadata only; no JB Retrieval (P104,ff)
+"RTN","MAGJEX1",38,0)
+ ; VIX-Open: Fetching metadata with JB Retrieval (P104,ff)
+"RTN","MAGJEX1",39,0)
+ ; RADFN^RADTI^RACNI^RARPT = Exam ID string, specifies case of interest
+"RTN","MAGJEX1",40,0)
+ ; PSINDGET= Presentation State indicators of interest to client
+"RTN","MAGJEX1",41,0)
+ ; K/I/U for Key Image/ Interpretation/ User PS types
+"RTN","MAGJEX1",42,0)
+ ; USETGA = 1: Open TGA (downsampled) file; 0: Open BIG file
+"RTN","MAGJEX1",43,0)
+ ;
+"RTN","MAGJEX1",44,0)
+ ; Details of Reply message are below tag OPENCASZ
+"RTN","MAGJEX1",45,0)
+ ;
+"RTN","MAGJEX1",46,0)
+ N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGJEX1"
+"RTN","MAGJEX1",47,0)
+ N RARPT,RADFN,RADTI,RACNI,RADIV
+"RTN","MAGJEX1",48,0)
+ N DAYCASE,CURCASE,REPLY,CT,MAGS,STARTNOD,LOCKED,DATAOUT,RADATA,RIST,MDL
+"RTN","MAGJEX1",49,0)
+ N IMAG,MAGXX,MAGFILE,MAGFILE1,MAGFILE2,MAGFILE3,MAGLST,MAGOBJT,MODALITY
+"RTN","MAGJEX1",50,0)
+ N MAGSTRT,MAGEND,CURPATHS
+"RTN","MAGJEX1",51,0)
+ N MIXEDUP,VIEWOK,USETGA,USELORES,IMGST,REMOTE,DIQUIET
+"RTN","MAGJEX1",52,0)
+ N LOGDATA,MODIF,EXCAT,RADATA2,PSIND,RACPT,RASTCAT,RASTORD,ACQSITE,ALTPATH,PROCDT
+"RTN","MAGJEX1",53,0)
+ N YNMAMMO,YNREVANN,PSINDGET,JBDISABLE,STANUM
+"RTN","MAGJEX1",54,0)
+ S DIQUIET=1 D DT^DICRW
+"RTN","MAGJEX1",55,0)
+ S (CT,MIXEDUP)=0,MODALITY="",DATAOUT="",DAYCASE="",MAGLST="MAGJOPENCASE",(ACQSITE,ALTPATH,PROCDT,STANUM)=""
+"RTN","MAGJEX1",56,0)
+ S VIEWOK=1
+"RTN","MAGJEX1",57,0)
+ K MAGGRY S MAGGRY=$NA(^TMP($J,MAGLST)),STARTNOD=0 K @MAGGRY ; assign MAGGRY value
+"RTN","MAGJEX1",58,0)
+ S CURCASE=$P(DATA,U),RARPT=+$P(DATA,U,5),PSINDGET=+$P(DATA,U,6)
+"RTN","MAGJEX1",59,0)
+ S PSIND="" I PSINDGET]"" F I="K","I","U" I $F(PSINDGET,I) S PSIND(I)=""
+"RTN","MAGJEX1",60,0)
+ S USETGA=+$P(DATA,U,8)
+"RTN","MAGJEX1",61,0)
+ S RADFN=$P(DATA,U,2),RADTI=$P(DATA,U,3),RACNI=$P(DATA,U,4)
+"RTN","MAGJEX1",62,0)
+ I RADFN,RADTI,RACNI D GETEXAM2^MAGJUTL1(RADFN,RADTI,RACNI,"",.X)
+"RTN","MAGJEX1",63,0)
+ I 'X S REPLY="4~Request Contains Invalid Case Pointer ("_RADFN_U_RADTI_U_RACNI_U_RARPT_")." G OPENCASZ
+"RTN","MAGJEX1",64,0)
+ S RADATA=$G(^TMP($J,"MAGRAEX",1,1)),RADATA2=$G(^(2))
+"RTN","MAGJEX1",65,0)
+ K ^TMP($J,"MAGRAEX")
+"RTN","MAGJEX1",66,0)
+ S RADIV=$P(RADATA2,U,5),MODIF=$P(RADATA2,U,8),RASTCAT=$P(RADATA2,U,11),RASTORD=$P(RADATA,U,15)
+"RTN","MAGJEX1",67,0)
+ S RARPT=+$P(RADATA,U,10),DAYCASE=$P(RADATA,U,12),RACPT=$P(RADATA,U,17)
+"RTN","MAGJEX1",68,0)
+ I 'RARPT!'$D(^RARPT(RARPT,2005)) S REPLY="4~This exam has no report entry for associating images; no images can be accessed." G OPENCASZ
+"RTN","MAGJEX1",69,0)
+ D CKINTEG^MAGJRPT(.X,RADFN,RADTI,RACNI,RARPT,RADATA)
+"RTN","MAGJEX1",70,0)
+ I X]"" S MIXEDUP=1,MIXEDUP("REPLY")=X ; DB corruption
+"RTN","MAGJEX1",71,0)
+ S REPLY="4~Attempting to open/display case #"_DAYCASE
+"RTN","MAGJEX1",72,0)
+ S JBDISABLE=0
+"RTN","MAGJEX1",73,0)
+ I CURCASE="VIX-Metadata" S JBDISABLE=1 ; metadata only, do not trigger JB fetches
+"RTN","MAGJEX1",74,0)
+ ;
+"RTN","MAGJEX1",75,0)
+ ; Note in several reply messages below the use of "2~"
+"RTN","MAGJEX1",76,0)
+ ; This value triggers specific behaviors in vrad client and VIX
+"RTN","MAGJEX1",77,0)
+ ; -- client displays an Information message box
+"RTN","MAGJEX1",78,0)
+ ; -- VIX 'tags' the exam to refresh the file list metadata from the source
+"RTN","MAGJEX1",79,0)
+ ; on any subsequent access for this exam
+"RTN","MAGJEX1",80,0)
+ ; These respective behaviours are mutually appropriate for both parts of
+"RTN","MAGJEX1",81,0)
+ ; the system for all the messages involved; avoid using "2~" unless the
+"RTN","MAGJEX1",82,0)
+ ; same functionality applies for any given new functionality
+"RTN","MAGJEX1",83,0)
+ ;
+"RTN","MAGJEX1",84,0)
+ S IMGST=$$JBFETCH^MAGJUTL2(RARPT,.MAGS,USETGA,JBDISABLE) ; open only if NOT on JB
+"RTN","MAGJEX1",85,0)
+ I +IMGST D G OPENCASZ ; some images are on JB
+"RTN","MAGJEX1",86,0)
+ . I $D(MAGS("OFFLN")) N T,TT S T="",TT="" D
+"RTN","MAGJEX1",87,0)
+ . . F S T=$O(MAGS("OFFLN",T)) Q:T="" S TT=TT_$S(TT="":"",1:", ")_T
+"RTN","MAGJEX1",88,0)
+ . . S REPLY="2~Case #"_DAYCASE_"--Images for this exam are stored OFF-LINE. To view these images, contact your Imaging Coordinator, and request mounting of the following platters: "_TT
+"RTN","MAGJEX1",89,0)
+ . E I JBDISABLE S REPLY="2~Case #"_DAYCASE_"--"_+IMGST_" Images are on Jukebox."
+"RTN","MAGJEX1",90,0)
+ . E S REPLY="2~Case #"_DAYCASE_"--"_+IMGST_" Images have been requested from Jukebox; try again later."
+"RTN","MAGJEX1",91,0)
+ I '$P(IMGST,U,2) S REPLY="2~No Images exist for Case #"_DAYCASE_"." G OPENCASZ
+"RTN","MAGJEX1",92,0)
+ S USELORES=+$P(IMGST,U,3)_U_$P(IMGST,U,2)
+"RTN","MAGJEX1",93,0)
+ S MAGSTRT=1,MAGEND=MAGS D IMGLOOP^MAGJEX1B
+"RTN","MAGJEX1",94,0)
+ ;
+"RTN","MAGJEX1",95,0)
+ I ACQSITE="" S ACQSITE=RADIV
+"RTN","MAGJEX1",96,0)
+ ;
+"RTN","MAGJEX1",97,0)
+ ; Conditionally support revising an unlocked exam's annotations as a function
+"RTN","MAGJEX1",98,0)
+ ; of exam status and credentials of (current & original) interpreter (P101).
+"RTN","MAGJEX1",99,0)
+ S YNREVANN=$$ZRUREVAN^MAGJUTL4(RADFN,RADTI,RACNI)
+"RTN","MAGJEX1",100,0)
+ ;
+"RTN","MAGJEX1",101,0)
+ ; Return flag to allow display of disclaimer text if ExamType="Mammogram".
+"RTN","MAGJEX1",102,0)
+ ; Note the VRad client may override based on image metadata (P101).
+"RTN","MAGJEX1",103,0)
+ S YNMAMMO=$$ZRUMAMMO^MAGJUTL4(RACPT)
+"RTN","MAGJEX1",104,0)
+ ;
+"RTN","MAGJEX1",105,0)
+ ;
+"RTN","MAGJEX1",106,0)
+ S REPLY="0~Images for Case #"_DAYCASE
+"RTN","MAGJEX1",107,0)
+ ;
+"RTN","MAGJEX1",108,0)
+OPENCASZ I 'CT,(REPLY["Attempting") S REPLY="4~Unable to retrieve images for Case #"_DAYCASE_"."
+"RTN","MAGJEX1",109,0)
+ ;
+"RTN","MAGJEX1",110,0)
+ ; Contents of successful reply = 4 pipe-delimited ("|") pieces:
+"RTN","MAGJEX1",111,0)
+ ; 1: # Image nodes ^ Reply Msg Type ~ Reply Msg display text
+"RTN","MAGJEX1",112,0)
+ ; 2: RADFN^RADTI^RACNI^RARPT --> Exam ID String
+"RTN","MAGJEX1",113,0)
+ ; 3: Pt Name ^ CASE # ^ Proc. Name ^ Exam Date ^ Time ^ Modality ^
+"RTN","MAGJEX1",114,0)
+ ; SSN ^ <unused> ^ LOCKED Status ^ Modifier ^ Exam Status Category
+"RTN","MAGJEX1",115,0)
+ ; 4: Is Radiologist? ^ Alt_Path Flag ^ Acquisition Site ^ Procedure Date ^
+"RTN","MAGJEX1",116,0)
+ ; Revise Annotations? ^ Mammography? ^ Station Number
+"RTN","MAGJEX1",117,0)
+ ;
+"RTN","MAGJEX1",118,0)
+ S REMOTE=+MAGJOB("REMOTE")
+"RTN","MAGJEX1",119,0)
+ S LOCKED=0
+"RTN","MAGJEX1",120,0)
+ I MIXEDUP D
+"RTN","MAGJEX1",121,0)
+ . N IMIX,XDFN,XPTS S VIEWOK=$S($D(MAGJOB("KEYS","MAGJ SEE BAD IMAGES")):1,1:0)
+"RTN","MAGJEX1",122,0)
+ . I MIXEDUP>1 D
+"RTN","MAGJEX1",123,0)
+ . . S XPTS="",XDFN=0 F IMIX=0:1 S XDFN=$O(MIXEDUP(XDFN)) Q:'XDFN S XPTS=XPTS_$S(IMIX:" and ",1:" ")_$$PNAM(XDFN)
+"RTN","MAGJEX1",124,0)
+ . . S XPTS=$S(IMIX=1:" ",1:"s ")_XPTS
+"RTN","MAGJEX1",125,0)
+ . . S REPLY=(7-VIEWOK)_"~This exam is registered for "_$$PNAM(RADFN)_"; however, it is linked to images for patient"_XPTS_". This is a serious problem--immediately report it to Radiology management and Imaging support staff!"
+"RTN","MAGJEX1",126,0)
+ . E S REPLY=(7-VIEWOK)_"~"_MIXEDUP("REPLY")
+"RTN","MAGJEX1",127,0)
+ . I CURCASE S REPLY=REPLY_" The exam is NOT Locked." S CURCASE=0
+"RTN","MAGJEX1",128,0)
+ I CT D
+"RTN","MAGJEX1",129,0)
+ . S RIST=$S(+MAGJOB("USER",1):1,1:0),EXCAT=""
+"RTN","MAGJEX1",130,0)
+ . S LOGDATA=RADFN_U_+$P(MAGS(1),U,4)_U_+MAGS_U_REMOTE ; for Img Access log
+"RTN","MAGJEX1",131,0)
+ . I CURCASE D
+"RTN","MAGJEX1",132,0)
+ . . I $G(MAGJOB("CONSOLIDATED")),'$D(MAGJOB("DIVSCRN",RADIV)) D S CURCASE=0 Q
+"RTN","MAGJEX1",133,0)
+ . . . S REPLY="5~Exam is for Station #"_$$STATN(RADIV)_"; you are logged on to #"_$$STATN(DUZ(2))_". Exam is NOT Locked."
+"RTN","MAGJEX1",134,0)
+ . . S XX=$P(^RADPT(RADFN,"DT",RADTI,"P",RACNI,0),U,3)
+"RTN","MAGJEX1",135,0)
+ . . I '$D(^RA(72,"AVC","E",XX)) D S CURCASE=0 Q
+"RTN","MAGJEX1",136,0)
+ . . . D LOCKACT^MAGJEX1A(RARPT,DAYCASE,100,.RESULT) ; between reserve and now, exam may have been Taken & Updated
+"RTN","MAGJEX1",137,0)
+ . . . I +RESULT(1)!+RESULT(2) D LOCKACT^MAGJEX1A(RARPT,DAYCASE,101,.RESULT) ; so, cancel any lock/reserve
+"RTN","MAGJEX1",138,0)
+ . . . S REPLY="5~For Case #"_DAYCASE_", current Status is "_$P(^RA(72,XX,0),U)_"; Lock or Reserve NOT allowed."
+"RTN","MAGJEX1",139,0)
+ . . E S EXCAT="E"
+"RTN","MAGJEX1",140,0)
+ . . I RIST,'USELORES D ; lock only for Current Case, Radiologist, & Full Res images
+"RTN","MAGJEX1",141,0)
+ . . . ; save data needed to later log Interpreted event
+"RTN","MAGJEX1",142,0)
+ . . . D LOCKACT^MAGJEX1A(RARPT,DAYCASE,CURCASE,.RESULT,.REPLY,LOGDATA)
+"RTN","MAGJEX1",143,0)
+ . . . S LOCKED=$S(+RESULT:1,+$P(RESULT,U,2):2,1:0)
+"RTN","MAGJEX1",144,0)
+ . I EXCAT="" D
+"RTN","MAGJEX1",145,0)
+ . . I RASTORD=9 S EXCAT="C" Q ; Complete
+"RTN","MAGJEX1",146,0)
+ . . E S EXCAT=RASTCAT
+"RTN","MAGJEX1",147,0)
+ . . I EXCAT="D"!(EXCAT="T") S EXCAT="I" ; just display one value meaning Interpreted
+"RTN","MAGJEX1",148,0)
+ . S DATAOUT=$P(RADATA,U,4)_U_DAYCASE_U_$P(RADATA,U,9)
+"RTN","MAGJEX1",149,0)
+ . S X=$P(RADATA,U,6),T=$L(X," "),X=$P(X," ",1,T-1)_U_$P(X," ",T)
+"RTN","MAGJEX1",150,0)
+ . S DATAOUT=DATAOUT_U_X
+"RTN","MAGJEX1",151,0)
+ . S DATAOUT=DATAOUT_U_MODALITY_U_$P(RADATA,U,5)_U_U_LOCKED
+"RTN","MAGJEX1",152,0)
+ . S DATAOUT=DATAOUT_U_MODIF_U_EXCAT_U_"|"_RIST_U_ALTPATH_U_ACQSITE_U_PROCDT_U_YNREVANN_U_YNMAMMO_U_STANUM
+"RTN","MAGJEX1",153,0)
+ . I USELORES D
+"RTN","MAGJEX1",154,0)
+ . . I +USELORES=+$P(USELORES,U,2) S X="All"
+"RTN","MAGJEX1",155,0)
+ . . E S X=+USELORES_" of "_+$P(USELORES,U,2)
+"RTN","MAGJEX1",156,0)
+ . . I $E(REPLY,1,8)="0~Images" S REPLY="3~"
+"RTN","MAGJEX1",157,0)
+ . . E S REPLY=REPLY_" -- "
+"RTN","MAGJEX1",158,0)
+ . . S REPLY=REPLY_"Note: "_X_" images for Case #"_DAYCASE_" are REDUCED RESOLUTION images, using parameters set by your site Imaging Manager; to view full-resolution images, disable the Reduced Resolution option setting. Exam NOT Locked."
+"RTN","MAGJEX1",159,0)
+ S @MAGGRY@(STARTNOD)=CT_U_REPLY_"|"_RADFN_U_RADTI_U_RACNI_U_RARPT_"|"_DATAOUT
+"RTN","MAGJEX1",160,0)
+ ; if mixedup & not have keys to see images, delete image refs
+"RTN","MAGJEX1",161,0)
+ ; & send only reply msg
+"RTN","MAGJEX1",162,0)
+ I MIXEDUP,('VIEWOK) S CT=0 K @MAGGRY S @MAGGRY@(0)=CT_U_REPLY
+"RTN","MAGJEX1",163,0)
+ E S $P(@MAGGRY@(0),U)=CT+STARTNOD
+"RTN","MAGJEX1",164,0)
+ I CT,(LOCKED'=2),(CURCASE'["VIX") D LOG^MAGJUTL3("VR-VW",LOGDATA,$$PSETLST(RADFN,RADTI,RACNI)) ; Image access log
+"RTN","MAGJEX1",165,0)
+ Q
+"RTN","MAGJEX1",166,0)
+ ;
+"RTN","MAGJEX1",167,0)
+PSETLST(RADFN,RADTI,RACNI) ; Return list of Printset Case #'s for exam
+"RTN","MAGJEX1",168,0)
+ N I,MAGPSET,PSETLST,RAPRTSET,X
+"RTN","MAGJEX1",169,0)
+ S PSETLST="" ; initialize return value
+"RTN","MAGJEX1",170,0)
+ I +$G(RADFN),+$G(RADTI),+$G(RACNI) D
+"RTN","MAGJEX1",171,0)
+ . D EN2^RAUTL20(.MAGPSET)
+"RTN","MAGJEX1",172,0)
+ . Q:'RAPRTSET ; variable set by above call; stop if not a printset
+"RTN","MAGJEX1",173,0)
+ . S X=""
+"RTN","MAGJEX1",174,0)
+ . F I=0:1 S X=$O(MAGPSET(X)) Q:'X S PSETLST=PSETLST_$S(I:U,1:"")_$P(MAGPSET(X),U)
+"RTN","MAGJEX1",175,0)
+ Q:$Q PSETLST Q
+"RTN","MAGJEX1",176,0)
+ ;
+"RTN","MAGJEX1",177,0)
+PNAM(X) ; return pt name for input DFN
+"RTN","MAGJEX1",178,0)
+ I X S X=$G(^DPT(+X,0)) I X]"" S X=$P(X,U)
+"RTN","MAGJEX1",179,0)
+ E S X="UNKNOWN"
+"RTN","MAGJEX1",180,0)
+ Q X
+"RTN","MAGJEX1",181,0)
+ ;
+"RTN","MAGJEX1",182,0)
+STATN(X) ; get station #, else return input value
+"RTN","MAGJEX1",183,0)
+ N T
+"RTN","MAGJEX1",184,0)
+ I X]"" D GETS^DIQ(4,X,99,"","T") S T=$G(T(4,X_",",99,"E")) I T]"" S X=T
+"RTN","MAGJEX1",185,0)
+ Q X
+"RTN","MAGJEX1",186,0)
+ ;
+"RTN","MAGJEX1",187,0)
+END Q ;
+"RTN","MAGJEX1",188,0)
+ ;
+"RTN","MAGJMN1")
+0^2^B98640707
+"RTN","MAGJMN1",1,0)
+MAGJMN1 ;WIRMFO/JHC - VRad Maint functions ; 3 May 2013 12:14 PM
+"RTN","MAGJMN1",2,0)
+ ;;3.0;IMAGING;**16,9,22,18,65,76,101,90,115,120,133**;Mar 19, 2002;Build 5393;Sep 09, 2013
+"RTN","MAGJMN1",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGJMN1",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJMN1",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGJMN1",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGJMN1",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGJMN1",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGJMN1",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGJMN1",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGJMN1",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGJMN1",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGJMN1",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGJMN1",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGJMN1",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGJMN1",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJMN1",17,0)
+ ;;
+"RTN","MAGJMN1",18,0)
+ENVCHK ; "Environment Check" for KIDS Install
+"RTN","MAGJMN1",19,0)
+ I 'XPDENV Q ; Proceed only if in Install phase
+"RTN","MAGJMN1",20,0)
+ N MAGJKIDS S MAGJKIDS=1
+"RTN","MAGJMN1",21,0)
+ D BGCSTOP
+"RTN","MAGJMN1",22,0)
+ Q
+"RTN","MAGJMN1",23,0)
+ ;
+"RTN","MAGJMN1",24,0)
+SVRLIST ;
+"RTN","MAGJMN1",25,0)
+ W @IOF,!!?10,"Enter/Edit VistARad Exams List Definition",!!
+"RTN","MAGJMN1",26,0)
+ N MAGIEN
+"RTN","MAGJMN1",27,0)
+ K DIC S (DIC,DLAYGO)=2006.631,DIC(0)="ALMEQ"
+"RTN","MAGJMN1",28,0)
+ D ^DIC I Y=-1 K DIC,DA,DR,DIE,DLAYGO Q
+"RTN","MAGJMN1",29,0)
+ S X=$P(@(DIC_+Y_",0)"),U,2)
+"RTN","MAGJMN1",30,0)
+ I X>9000 W !!,$C(7),"You may not edit System-Supplied files!" H 3 G SVRLIST
+"RTN","MAGJMN1",31,0)
+ S DIE=2006.631,DA=+Y,DR="[MAGJ LIST EDIT]"
+"RTN","MAGJMN1",32,0)
+ S MAGIEN=DA
+"RTN","MAGJMN1",33,0)
+ D ^DIE I '$D(DA) G SVRLIST
+"RTN","MAGJMN1",34,0)
+ D ENSRCH
+"RTN","MAGJMN1",35,0)
+ D BLDDEF(MAGIEN)
+"RTN","MAGJMN1",36,0)
+ S $P(^MAG(2006.631,MAGIEN,0),U,5)=$$NOW^XLFDT()
+"RTN","MAGJMN1",37,0)
+ W !!,"List Definition complete!" R X:2
+"RTN","MAGJMN1",38,0)
+ G SVRLIST
+"RTN","MAGJMN1",39,0)
+ Q
+"RTN","MAGJMN1",40,0)
+ENSRCH ; Invoke Search for 2006.631 def'n
+"RTN","MAGJMN1",41,0)
+ N GREF,GLIN,GO,CT,DIARI,DIC,FNOD,TNOD,NCOND,NODE0
+"RTN","MAGJMN1",42,0)
+ ; GREF holds indirect ref to store search logic data:
+"RTN","MAGJMN1",43,0)
+ ; @GREF@(3, ff -- conditional elements (fields/logic)
+"RTN","MAGJMN1",44,0)
+ ; @GREF@(4, ff -- composite elements (ANDed conditions)
+"RTN","MAGJMN1",45,0)
+ ; @GREF@(5, ff -- Human-readable search text
+"RTN","MAGJMN1",46,0)
+ ; GLIN holds indirect ref to retrieve search logic data from ^DIBT
+"RTN","MAGJMN1",47,0)
+ ; @GLIN@("DC", ff -- conditional elements
+"RTN","MAGJMN1",48,0)
+ ; @GLIN@("DL", ff -- composite elements
+"RTN","MAGJMN1",49,0)
+ ; @GLIN@("O", ff -- readable text
+"RTN","MAGJMN1",50,0)
+ S GREF=$NA(^MAG(2006.631,MAGIEN,"DEF"))
+"RTN","MAGJMN1",51,0)
+ S GO=1 I $D(@GREF@(5,1)) D ; show current logic
+"RTN","MAGJMN1",52,0)
+ . W ! D DISPSRCH(GREF)
+"RTN","MAGJMN1",53,0)
+ . S X=$$YN("Do you want to delete or re-enter the search logic?","NO")
+"RTN","MAGJMN1",54,0)
+ . I X'="Y" S GO=0 Q
+"RTN","MAGJMN1",55,0)
+ . W !!?7,"Re-entering the search logic requires first deleting the current",!?7,"definition, then entering the new definition from scratch."
+"RTN","MAGJMN1",56,0)
+ . S X=$$YN("Are you sure you want to continue?","NO")
+"RTN","MAGJMN1",57,0)
+ . I X'="Y" S GO=0 Q
+"RTN","MAGJMN1",58,0)
+ I 'GO Q
+"RTN","MAGJMN1",59,0)
+ W !!?7,"Now enter search logic for this List. To do this, the program"
+"RTN","MAGJMN1",60,0)
+ W !?7,"will prompt you just as if you were going to run a Fileman Search."
+"RTN","MAGJMN1",61,0)
+ W !?7,"When prompted STORE RESULTS OF SEARCH IN TEMPLATE:, answer with 'TEMP'"
+"RTN","MAGJMN1",62,0)
+ W !?7,"If prompted ... OK TO PURGE? NO// answer 'YES'; don't bother specifying"
+"RTN","MAGJMN1",63,0)
+ W !?7,"output print fields, but just RETURN through all the prompts to"
+"RTN","MAGJMN1",64,0)
+ W !?7,"complete the process. The search definition will be saved as part"
+"RTN","MAGJMN1",65,0)
+ W !?7,"of this List definition; you will test it out by running it from "
+"RTN","MAGJMN1",66,0)
+ W !?7,"the workstation. If you need to modify the search logic, you will"
+"RTN","MAGJMN1",67,0)
+ W !?7,"have to re-enter it in its entirety."
+"RTN","MAGJMN1",68,0)
+ W !!?7,"NOTES: EXAM LOCK INDICATOR will not work for search logic;"
+"RTN","MAGJMN1",69,0)
+ W !?14,"REMOTE CACHE INDICATOR only works for Null/Not Null logic."
+"RTN","MAGJMN1",70,0)
+ S DIC=2006.634 D EN^DIS ; call Fman Search Logic routine. It will store search logic in ^DIBT
+"RTN","MAGJMN1",71,0)
+ ; 2006.634 is intentional--don't change this!
+"RTN","MAGJMN1",72,0)
+ I '$G(DIARI) W !!," Search logic NOT updated" D Q
+"RTN","MAGJMN1",73,0)
+ . Q:'$D(@GREF@(5,1)) ; if no logic had existed, quit
+"RTN","MAGJMN1",74,0)
+ . S X=$$YN("Do you want to DELETE the search logic?","NO")
+"RTN","MAGJMN1",75,0)
+ . I X="Y" K @GREF@(3) K ^(4),^(5) W " -- Deleted!"
+"RTN","MAGJMN1",76,0)
+ K @GREF@(3) K ^(4),^(5)
+"RTN","MAGJMN1",77,0)
+ S GLIN=$NA(^DIBT(DIARI)) ; Copy logic to 2006.631 DEF nodes
+"RTN","MAGJMN1",78,0)
+ S FNOD="DC",TNOD=3,CT=0 ; "DC" data--straight copy
+"RTN","MAGJMN1",79,0)
+ S T=0 F S T=$O(@GLIN@(FNOD,T)) Q:T="" S X=^(T),CT=CT+1, at GREF@(TNOD,T)=X
+"RTN","MAGJMN1",80,0)
+ S @GREF@(TNOD,0)=CT
+"RTN","MAGJMN1",81,0)
+ S FNOD="DL",TNOD=4,CT=0 ; "DL" data--copy depends on storage scheme in DIBT:
+"RTN","MAGJMN1",82,0)
+ ;Zero node null -- straight copy
+"RTN","MAGJMN1",83,0)
+ ; Else 1) either only one condition is defined;
+"RTN","MAGJMN1",84,0)
+ ; or, 2) the zero-node condition is ANDed with all defined conditions
+"RTN","MAGJMN1",85,0)
+ ; Case 2: Var A -- Pre-pend zero node, then dup zero node
+"RTN","MAGJMN1",86,0)
+ ; Var B -- Pre-pend zero node
+"RTN","MAGJMN1",87,0)
+ S NCOND=+$G(@GLIN@(FNOD))
+"RTN","MAGJMN1",88,0)
+ I $G(@GLIN@(FNOD,0))]"" S NODE0=^(0) D
+"RTN","MAGJMN1",89,0)
+ . S T=0 F S T=$O(@GLIN@(FNOD,T)) Q:T="" S X=^(T) I X]"" S CT=CT+1, at GREF@(TNOD,CT)=NODE0_X
+"RTN","MAGJMN1",90,0)
+ . I CT'=NCOND S CT=CT+1, at GREF@(TNOD,CT)=NODE0_$S(CT=1:"",1:"^")
+"RTN","MAGJMN1",91,0)
+ E D
+"RTN","MAGJMN1",92,0)
+ . S T=0 F S T=$O(@GLIN@(FNOD,T)) Q:T="" S X=^(T) I X]"" S CT=CT+1, at GREF@(TNOD,CT)=X
+"RTN","MAGJMN1",93,0)
+ S @GREF@(TNOD,0)=CT
+"RTN","MAGJMN1",94,0)
+ ; readable text--straight copy
+"RTN","MAGJMN1",95,0)
+ S TNOD=5,T=0 F S T=$O(@GLIN@("O",T)) Q:T="" S @GREF@(TNOD,T)=^(T,0)
+"RTN","MAGJMN1",96,0)
+ Q
+"RTN","MAGJMN1",97,0)
+ ;
+"RTN","MAGJMN1",98,0)
+BLDDEF(LSTID) ; build DEF nodes for Column/Sort defs
+"RTN","MAGJMN1",99,0)
+ N X,QX,SS,STR,LSTHDR,T,T0,T8,T6,HASCASE,XT,HASDATE,HASNIMG,HASPRIO,HASLOCK,LISTYPE
+"RTN","MAGJMN1",100,0)
+ S SS=0,HASCASE=0,HASDATE=0,HASNIMG=0,HASPRIO=0,HASLOCK=0
+"RTN","MAGJMN1",101,0)
+ S LISTYPE=$P($G(^MAG(2006.631,LSTID,0)),U,3)
+"RTN","MAGJMN1",102,0)
+ ; columns/hdrs: Order in T array by the Relative Column Order
+"RTN","MAGJMN1",103,0)
+ F S SS=$O(^MAG(2006.631,LSTID,1,SS)) D Q:'SS
+"RTN","MAGJMN1",104,0)
+ . I 'SS D Q
+"RTN","MAGJMN1",105,0)
+ . . I 'HASCASE S X=1 D BLDDEF2(X) ; Force CASE#
+"RTN","MAGJMN1",106,0)
+ . . I 'HASDATE S X=7 D BLDDEF2(X) ; DATE/TIME
+"RTN","MAGJMN1",107,0)
+ . . I 'HASNIMG S X=9 D BLDDEF2(X) ; NUMBER IMAGES
+"RTN","MAGJMN1",108,0)
+ . . Q:LISTYPE'="U" ; force below only if for an Unread list
+"RTN","MAGJMN1",109,0)
+ . . I 'HASLOCK S X=2 D BLDDEF2(X) ; EXAM LOCK IND.
+"RTN","MAGJMN1",110,0)
+ . . I 'HASPRIO S X=5 D BLDDEF2(X) ; PRIORITY
+"RTN","MAGJMN1",111,0)
+ . E S X=^MAG(2006.631,LSTID,1,SS,0)
+"RTN","MAGJMN1",112,0)
+ . D BLDDEF2(X)
+"RTN","MAGJMN1",113,0)
+ ; go thru T to build ordered field sequence for output columns
+"RTN","MAGJMN1",114,0)
+ S QX="T",STR="",LSTHDR=""
+"RTN","MAGJMN1",115,0)
+ F S QX=$Q(@QX) Q:QX="" S X=@QX D
+"RTN","MAGJMN1",116,0)
+ . S STR=STR_$S(STR="":"",1:U)_$P(X,U)
+"RTN","MAGJMN1",117,0)
+ . S LSTHDR=LSTHDR_$S(LSTHDR="":"",1:U)_$P(X,U,2)
+"RTN","MAGJMN1",118,0)
+ S ^MAG(2006.631,LSTID,"DEF",.5)=LSTHDR,^(1)=STR
+"RTN","MAGJMN1",119,0)
+ ; Sort values:
+"RTN","MAGJMN1",120,0)
+ S SS=0,STR=""
+"RTN","MAGJMN1",121,0)
+ F S SS=$O(^MAG(2006.631,LSTID,2,SS)) Q:'SS S X=^(SS,0) D
+"RTN","MAGJMN1",122,0)
+ . S X=+X_$S($P(X,U,2):"-",1:"")
+"RTN","MAGJMN1",123,0)
+ . S STR=STR_$S(STR="":"",1:U)_X
+"RTN","MAGJMN1",124,0)
+ S ^MAG(2006.631,LSTID,"DEF",2)=STR
+"RTN","MAGJMN1",125,0)
+ S $P(^MAG(2006.631,LSTID,"DEF",0),U)=$$NOW^XLFDT()
+"RTN","MAGJMN1",126,0)
+ Q
+"RTN","MAGJMN1",127,0)
+ ;
+"RTN","MAGJMN1",128,0)
+BLDDEF2(X) ;
+"RTN","MAGJMN1",129,0)
+ S X=+X_$S($P(X,U,2):";"_+$P(X,U,2),1:"")
+"RTN","MAGJMN1",130,0)
+ I 'HASCASE S HASCASE=(+X=1)
+"RTN","MAGJMN1",131,0)
+ I 'HASDATE S HASDATE=(+X=7)
+"RTN","MAGJMN1",132,0)
+ I 'HASNIMG S HASNIMG=(+X=9)
+"RTN","MAGJMN1",133,0)
+ I 'HASLOCK S HASLOCK=(+X=2)
+"RTN","MAGJMN1",134,0)
+ I 'HASPRIO S HASPRIO=(+X=5)
+"RTN","MAGJMN1",135,0)
+ S T0=^MAG(2006.63,+X,0),T6=+$P(T0,U,6) S:'T6 T6=99
+"RTN","MAGJMN1",136,0)
+ S T8=$P(T0,U,8) I T8]"" S T8="~"_T8
+"RTN","MAGJMN1",137,0)
+ S XT=$S($P(T0,U,3)]"":$P(T0,U,3),1:$P(T0,U,2))_T8
+"RTN","MAGJMN1",138,0)
+ S $P(XT,"~",3)=+X
+"RTN","MAGJMN1",139,0)
+ S T(T6,+X)=X_U_XT
+"RTN","MAGJMN1",140,0)
+ Q
+"RTN","MAGJMN1",141,0)
+ ;
+"RTN","MAGJMN1",142,0)
+POSTINST ; Patch installation inits, etc.
+"RTN","MAGJMN1",143,0)
+ ; D BLDALL ; update list definitions <*> Use any time fields are added
+"RTN","MAGJMN1",144,0)
+ D BGCSTRT ; re-start background compile
+"RTN","MAGJMN1",145,0)
+ D POST ; install message, etc.
+"RTN","MAGJMN1",146,0)
+ Q
+"RTN","MAGJMN1",147,0)
+ ;
+"RTN","MAGJMN1",148,0)
+BLDALL ; Create "DEF" nodes, Button labels List Def'ns
+"RTN","MAGJMN1",149,0)
+ ; Updates all lists after s/w update list defs are installed
+"RTN","MAGJMN1",150,0)
+ N SS,LSTDAT,LSTNUM,BUTTON,LSTTYP
+"RTN","MAGJMN1",151,0)
+ S SS=0
+"RTN","MAGJMN1",152,0)
+ F S SS=$O(^MAG(2006.631,SS)) Q:'SS S LSTDAT=$G(^(SS,0)) I LSTDAT]"" D
+"RTN","MAGJMN1",153,0)
+ . S LSTNUM=$P(LSTDAT,U,2),BUTTON=$P(LSTDAT,U,7),LSTTYP=$P(LSTDAT,U,3)
+"RTN","MAGJMN1",154,0)
+ . I LSTNUM>9900!$P(LSTDAT,U,6) D BLDDEF(SS) ; build DEF nodes for System Lists & any Enabled lists
+"RTN","MAGJMN1",155,0)
+ . I BUTTON="",(LSTTYP]"") D ; Create Button Labels if needed
+"RTN","MAGJMN1",156,0)
+ . . S BUTTON=$S(LSTTYP="U":"Unread #",LSTTYP="R":"Recent #",LSTTYP="A":"All Active #",LSTTYP="P":"Pending #",1:"List #")_LSTNUM
+"RTN","MAGJMN1",157,0)
+ . . S $P(^MAG(2006.631,SS,0),U,7)=BUTTON
+"RTN","MAGJMN1",158,0)
+ Q
+"RTN","MAGJMN1",159,0)
+ ;
+"RTN","MAGJMN1",160,0)
+POST ; Install msg
+"RTN","MAGJMN1",161,0)
+ D INS^MAGQBUT4(XPDNM,DUZ,$$NOW^XLFDT,XPDA)
+"RTN","MAGJMN1",162,0)
+ Q
+"RTN","MAGJMN1",163,0)
+ ;
+"RTN","MAGJMN1",164,0)
+YN(MSG,DFLT) ; get Yes/No reply
+"RTN","MAGJMN1",165,0)
+ N X I $G(DFLT)="" S DFLT="N"
+"RTN","MAGJMN1",166,0)
+ W !
+"RTN","MAGJMN1",167,0)
+ S DFLT=$E(DFLT),DFLT=$S(DFLT="N":"NO",1:"YES")
+"RTN","MAGJMN1",168,0)
+YN1 W !,MSG_" "_DFLT_"// "
+"RTN","MAGJMN1",169,0)
+ R X:DTIME S:X="" X=DFLT S X=$E(X),X=$TR(X,"ynYN","YNYN")
+"RTN","MAGJMN1",170,0)
+ I "YN"'[X W " ??? Enter YES or NO",! G YN1
+"RTN","MAGJMN1",171,0)
+ Q X
+"RTN","MAGJMN1",172,0)
+ ;
+"RTN","MAGJMN1",173,0)
+LSTINQ ; Inq/Disp list def'n
+"RTN","MAGJMN1",174,0)
+ N GREF,MAGIEN
+"RTN","MAGJMN1",175,0)
+ W !!?15,"Display VistARad Exams List Definition",!!
+"RTN","MAGJMN1",176,0)
+ N MAGIEN
+"RTN","MAGJMN1",177,0)
+ S DIC=2006.631,DIC(0)="AMEQ"
+"RTN","MAGJMN1",178,0)
+ D ^DIC I Y=-1 K DIC,DA,DR Q
+"RTN","MAGJMN1",179,0)
+ K DR S DA=+Y,MAGIEN=DA
+"RTN","MAGJMN1",180,0)
+ S GREF=$NA(^MAG(2006.631,MAGIEN,"DEF"))
+"RTN","MAGJMN1",181,0)
+ W ! D EN^DIQ
+"RTN","MAGJMN1",182,0)
+ R !,"Enter RETURN to display the Search Logic: ",X:DTIME W !
+"RTN","MAGJMN1",183,0)
+ D DISPSRCH(GREF)
+"RTN","MAGJMN1",184,0)
+ G LSTINQ
+"RTN","MAGJMN1",185,0)
+ Q
+"RTN","MAGJMN1",186,0)
+ ;
+"RTN","MAGJMN1",187,0)
+DISPSRCH(GREF) ; GREF holds indirect ref for global holding search logic data
+"RTN","MAGJMN1",188,0)
+ I $D(@GREF@(5,1)) W !,"List Exams where:",! D
+"RTN","MAGJMN1",189,0)
+ . F I=1:1 Q:'$D(@GREF@(5,I)) W !?3,^(I)
+"RTN","MAGJMN1",190,0)
+ E W !?3,"NO Search Logic defined!"
+"RTN","MAGJMN1",191,0)
+ Q
+"RTN","MAGJMN1",192,0)
+ ;
+"RTN","MAGJMN1",193,0)
+VRSIT ;
+"RTN","MAGJMN1",194,0)
+ W @IOF,!!?10,"Enter/Edit VistARad Site Parameters",!!
+"RTN","MAGJMN1",195,0)
+ S DIC=2006.69,DIC(0)="ALMEQ"
+"RTN","MAGJMN1",196,0)
+ I '$D(^MAG(DIC,1)) S DLAYGO=DIC
+"RTN","MAGJMN1",197,0)
+ D ^DIC I Y=-1 K DIC,DA,DR,DIE,DLAYGO Q
+"RTN","MAGJMN1",198,0)
+ S DIE=2006.69,DA=+Y,DR=".01:20"
+"RTN","MAGJMN1",199,0)
+ D ^DIE
+"RTN","MAGJMN1",200,0)
+ K DIC,DA,DR,DIE,DLAYGO
+"RTN","MAGJMN1",201,0)
+ N PLACE S DA=""
+"RTN","MAGJMN1",202,0)
+ S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGJMN1",203,0)
+ S:PLACE DA=PLACE
+"RTN","MAGJMN1",204,0)
+ I DA D
+"RTN","MAGJMN1",205,0)
+ . W !!,"Editing VistARad Timeout for division #",DUZ(2),!
+"RTN","MAGJMN1",206,0)
+ . S DIE=2006.1,DR="123" D ^DIE
+"RTN","MAGJMN1",207,0)
+ K DA,DR,DIE
+"RTN","MAGJMN1",208,0)
+ Q
+"RTN","MAGJMN1",209,0)
+ ;
+"RTN","MAGJMN1",210,0)
+ ;+++++ OPTION: MAGJ E/E DEFAULT USER PROFILES
+"RTN","MAGJMN1",211,0)
+ ;
+"RTN","MAGJMN1",212,0)
+ ; FileMan ^DIE call to enter/edit IMAGING SITE PARAMETERS File (#2006.1),
+"RTN","MAGJMN1",213,0)
+ ; fields #202: DEFAULT VISTARAD USERPREF RAD and
+"RTN","MAGJMN1",214,0)
+ ; #203: DEFAULT VISTARAD USERPREF NON.
+"RTN","MAGJMN1",215,0)
+ ;
+"RTN","MAGJMN1",216,0)
+ ; These fields point to entries in the MAGJ USER DATA File (#2006.68), and
+"RTN","MAGJMN1",217,0)
+ ; allow the VistARad client to initialize new VistARad users to the settings
+"RTN","MAGJMN1",218,0)
+ ; held by the appropriate default user type ("Radiologist", "Non-rad'ist").
+"RTN","MAGJMN1",219,0)
+ ;
+"RTN","MAGJMN1",220,0)
+EEPRO ;
+"RTN","MAGJMN1",221,0)
+ ;
+"RTN","MAGJMN1",222,0)
+ ;--- Get IEN of IMAGING SITE PARAMETERS File.
+"RTN","MAGJMN1",223,0)
+ N FIELD,SITEPIEN S SITEPIEN=+$$IMGSIT^MAGJUTL1(DUZ(2),1)
+"RTN","MAGJMN1",224,0)
+ F FIELD=202,203 D
+"RTN","MAGJMN1",225,0)
+ . ;
+"RTN","MAGJMN1",226,0)
+ . ;--- Report field being edited.
+"RTN","MAGJMN1",227,0)
+ . N PROMPT S PROMPT=$S(FIELD=202:"RADIOLOGIST",FIELD=203:"NON-RADIOLOGIST")
+"RTN","MAGJMN1",228,0)
+ . W !!,"Editing default "_PROMPT_" profile ...",!
+"RTN","MAGJMN1",229,0)
+ . N DA,DIE,DR
+"RTN","MAGJMN1",230,0)
+ . S DIE=2006.1,DR=FIELD,DA=SITEPIEN D ^DIE
+"RTN","MAGJMN1",231,0)
+ . Q
+"RTN","MAGJMN1",232,0)
+ Q
+"RTN","MAGJMN1",233,0)
+EEPREF ;
+"RTN","MAGJMN1",234,0)
+ W @IOF,!!?10,"Enter/Edit VistARad Prefetch Logic",!!
+"RTN","MAGJMN1",235,0)
+ N MAGIEN
+"RTN","MAGJMN1",236,0)
+ K DIC S (DIC,DLAYGO)=2006.65,DIC(0)="ALMEQ"
+"RTN","MAGJMN1",237,0)
+ D ^DIC I Y=-1 K DIC,DIE,DR,DLAYGO Q
+"RTN","MAGJMN1",238,0)
+ S DIE=2006.65,DA=+Y,DR="[MAGJ PRIOR EDIT]"
+"RTN","MAGJMN1",239,0)
+ S MAGIEN=DA
+"RTN","MAGJMN1",240,0)
+ D ^DIE I '$D(DA) G EEPREF
+"RTN","MAGJMN1",241,0)
+ G EEPREF
+"RTN","MAGJMN1",242,0)
+ Q
+"RTN","MAGJMN1",243,0)
+INPREF ; Inquire VRad PreFetch
+"RTN","MAGJMN1",244,0)
+ W @IOF,!!?10,"Inquire VistARad Prefetch Logic",!!
+"RTN","MAGJMN1",245,0)
+ N MAGIEN,BY,FR,TO
+"RTN","MAGJMN1",246,0)
+ S DIC=2006.65,DIC(0)="AMEQ"
+"RTN","MAGJMN1",247,0)
+ D ^DIC I Y=-1 K DIC Q
+"RTN","MAGJMN1",248,0)
+ S DA=+Y,(FR,TO)=$P(Y,U,2),MAGIEN=DA,L=0
+"RTN","MAGJMN1",249,0)
+ S BY="[MAGJ PRIOR SORT]",DIS(0)="I D0=MAGIEN"
+"RTN","MAGJMN1",250,0)
+ D EN^DIP
+"RTN","MAGJMN1",251,0)
+ R !,"Enter RETURN to continue: ",X:DTIME W !
+"RTN","MAGJMN1",252,0)
+ G INPREF
+"RTN","MAGJMN1",253,0)
+ Q
+"RTN","MAGJMN1",254,0)
+PRPREF ;Print VRad Prefetch
+"RTN","MAGJMN1",255,0)
+ N BY
+"RTN","MAGJMN1",256,0)
+ W !! S DIC=2006.65,L=0,BY="[MAGJ PRIOR SORT]"
+"RTN","MAGJMN1",257,0)
+ D EN1^DIP
+"RTN","MAGJMN1",258,0)
+ R !,"Enter RETURN to continue: ",X:DTIME W !
+"RTN","MAGJMN1",259,0)
+ Q
+"RTN","MAGJMN1",260,0)
+ ;
+"RTN","MAGJMN1",261,0)
+BGCSTOP ; Stop Background Compile program
+"RTN","MAGJMN1",262,0)
+ N MAGCSTRT,GO,NTRY,RETRY,X
+"RTN","MAGJMN1",263,0)
+ S MAGCSTRT=0,GO=1
+"RTN","MAGJMN1",264,0)
+ S X=$G(^MAG(2006.69,1,0))
+"RTN","MAGJMN1",265,0)
+ I X]"",+$P(X,U,8) D ; Background compile switch; skip if already false
+"RTN","MAGJMN1",266,0)
+ . S ^MAG(2006.69,"BGSTOP")=X ; save current settings for restore later
+"RTN","MAGJMN1",267,0)
+ . S MAGCSTRT=1
+"RTN","MAGJMN1",268,0)
+ . S $P(X,U,8)=0
+"RTN","MAGJMN1",269,0)
+ . S ^MAG(2006.69,1,0)=X ; disable compile
+"RTN","MAGJMN1",270,0)
+ . W !!,*7,"Wait for Background Compile program to stop;"
+"RTN","MAGJMN1",271,0)
+ . W !," this might take up to a few minutes."
+"RTN","MAGJMN1",272,0)
+ . S NTRY=60
+"RTN","MAGJMN1",273,0)
+ . F I=1:1:NTRY W "." L +^XTMP("MAGJ2","BKGND2","RUN"):3 I Q ; process maintains lock while running
+"RTN","MAGJMN1",274,0)
+ . I D
+"RTN","MAGJMN1",275,0)
+ . . L -^XTMP("MAGJ2","BKGND2","RUN")
+"RTN","MAGJMN1",276,0)
+ . . W !!,"Background Compile Stopped"
+"RTN","MAGJMN1",277,0)
+ . . I +$G(MAGJKIDS) W "; proceeding with install.",! H 2
+"RTN","MAGJMN1",278,0)
+ . E D
+"RTN","MAGJMN1",279,0)
+ . . S X=$$YN("Background Compile NOT Stopped -- Try again?","Y")
+"RTN","MAGJMN1",280,0)
+ . . S RETRY=("Y"[X),GO=0
+"RTN","MAGJMN1",281,0)
+ . . S ^MAG(2006.69,1,0)=^MAG(2006.69,"BGSTOP") K ^MAG(2006.69,"BGSTOP")
+"RTN","MAGJMN1",282,0)
+ I 'GO G BGCSTOP:RETRY
+"RTN","MAGJMN1",283,0)
+ I 'GO,+$G(MAGJKIDS) W !!,*7," * * * Exiting out of patch installation * * * ",! H 3 S XPDQUIT=1
+"RTN","MAGJMN1",284,0)
+ Q
+"RTN","MAGJMN1",285,0)
+BGCSTRT ; re-enable Background Compile
+"RTN","MAGJMN1",286,0)
+ I $D(^MAG(2006.69,"BGSTOP")) S X=^("BGSTOP") W " ... Enabling background compile ."
+"RTN","MAGJMN1",287,0)
+ E Q
+"RTN","MAGJMN1",288,0)
+ S ^MAG(2006.69,1,0)=X
+"RTN","MAGJMN1",289,0)
+ K ^MAG(2006.69,"BGSTOP")
+"RTN","MAGJMN1",290,0)
+ W !!,"Background Compile Enabled.",! H 3
+"RTN","MAGJMN1",291,0)
+ Q
+"RTN","MAGJMN1",292,0)
+ ;
+"RTN","MAGJMN1",293,0)
+END ;
+"RTN","MAGJRPT")
+0^3^B103626332
+"RTN","MAGJRPT",1,0)
+MAGJRPT ;WIRMFO/JHC - Display Rad reports ; 3 Jul 2013 10:48 AM
+"RTN","MAGJRPT",2,0)
+ ;;3.0;IMAGING;**18,101,120,133**;Mar 19, 2002;Build 5393;Sep 09, 2013
+"RTN","MAGJRPT",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGJRPT",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJRPT",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGJRPT",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGJRPT",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGJRPT",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGJRPT",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGJRPT",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGJRPT",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGJRPT",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGJRPT",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGJRPT",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGJRPT",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGJRPT",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJRPT",17,0)
+ ;;
+"RTN","MAGJRPT",18,0)
+ ; Subroutines for fetching Exam Info for VistaRad Workstation
+"RTN","MAGJRPT",19,0)
+ ; RADRPT: Display Radiology Report -- RPC Call: MAGJ EXAM REPORT
+"RTN","MAGJRPT",20,0)
+ ; ORD: Display Radiology Requisition -- RPC Call: MAGJ RADORDERDISP
+"RTN","MAGJRPT",21,0)
+ ;
+"RTN","MAGJRPT",22,0)
+ Q
+"RTN","MAGJRPT",23,0)
+ORD(MAGRPTY,DATA) ; Radiology Order Display
+"RTN","MAGJRPT",24,0)
+ ; RPC Call: MAGJ RADORDERDISP
+"RTN","MAGJRPT",25,0)
+ ; MAGRPTY holds indirect reference to returned data
+"RTN","MAGJRPT",26,0)
+ ;
+"RTN","MAGJRPT",27,0)
+ S MAGRPTY=$NA(^TMP($J,"WSDAT")) K @MAGRPTY
+"RTN","MAGJRPT",28,0)
+ N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGJRPT"
+"RTN","MAGJRPT",29,0)
+ N RARPT,RADFN,RADTI,RACNI,RAPGE,RAX,RAOIFN
+"RTN","MAGJRPT",30,0)
+ N REPLY,POP,DFN,COMPLIC,XX,HDR,MAGRET,REQONLY,TMPDATA
+"RTN","MAGJRPT",31,0)
+ N MEDS,RDIOPHARM
+"RTN","MAGJRPT",32,0)
+ S REPLY="0^4~Attempting to display order info"
+"RTN","MAGJRPT",33,0)
+ D OPENDEV
+"RTN","MAGJRPT",34,0)
+ I POP S REPLY="0^4~Unable to open device 'IMAGING WORKSTATION'" G ORDZ
+"RTN","MAGJRPT",35,0)
+ S RADFN=$P(DATA,U),RADTI=$P(DATA,U,2),RACNI=$P(DATA,U,3)
+"RTN","MAGJRPT",36,0)
+ S RARPT=+$P(DATA,U,4),REQONLY=+$P(DATA,U,5)
+"RTN","MAGJRPT",37,0)
+ I RADFN,RADTI,RACNI
+"RTN","MAGJRPT",38,0)
+ E S REPLY="0^4~Request Contains Invalid Case Pointer ("_RADFN_" "_RADTI_" "_RACNI_" "_RARPT_")." G ORDZ
+"RTN","MAGJRPT",39,0)
+ S RAOIFN=$P($G(^RADPT(RADFN,"DT",RADTI,"P",RACNI,0)),U,11)
+"RTN","MAGJRPT",40,0)
+ I RAOIFN,$D(^RAO(75.1,RAOIFN,0))
+"RTN","MAGJRPT",41,0)
+ E S REPLY="0^2~Order Information is NOT Available for this exam." G ORDZ
+"RTN","MAGJRPT",42,0)
+ ; Check for Database integrity problems ONLY if Req was explicitly
+"RTN","MAGJRPT",43,0)
+ ; requested (No check for Auto_Display of Req, cuz Exam Open does ck)
+"RTN","MAGJRPT",44,0)
+ D GETEXAM2^MAGJUTL1(RADFN,RADTI,RACNI,"",.MAGRET)
+"RTN","MAGJRPT",45,0)
+ S RADATA=$G(^TMP($J,"MAGRAEX",1,1)),XX=$G(^(2)),HDR=""
+"RTN","MAGJRPT",46,0)
+ S COMPLIC=$P(XX,U,4) ; Complications text
+"RTN","MAGJRPT",47,0)
+ S MEDS=$P(XX,U,14),RDIOPHARM=$P(XX,U,15) ; Medications & RadioPharm indicators
+"RTN","MAGJRPT",48,0)
+ F I=4,12,9 S HDR=HDR_$P(RADATA,U,I)_" " ; PtName, Case #, Procedure
+"RTN","MAGJRPT",49,0)
+ I REQONLY D CKINTEG(.REPLY,RADFN,RADTI,RACNI,RARPT,RADATA) I REPLY]"" S REPLY="0^7~"_REPLY G ORDZ ; Database integrity problems
+"RTN","MAGJRPT",50,0)
+ S TMPDATA=MAGRPTY_"~"_RADTI_"~"_RACNI
+"RTN","MAGJRPT",51,0)
+ S RAX="",RAPGE=0 D ^RAORD5
+"RTN","MAGJRPT",52,0)
+ S MAGRPTY=$P(TMPDATA,"~"),RADTI=$P(TMPDATA,"~",2),RACNI=$P(TMPDATA,"~",3)
+"RTN","MAGJRPT",53,0)
+ D:IO'=IO(0) ^%ZISC
+"RTN","MAGJRPT",54,0)
+ S @MAGRPTY@(1)="REQ: "_HDR
+"RTN","MAGJRPT",55,0)
+ D COMMENTS(RADFN,RADTI,RACNI,MAGRPTY,2,COMPLIC,MEDS,RDIOPHARM)
+"RTN","MAGJRPT",56,0)
+ D TIUNOTE(RARPT,MAGRPTY,10000) ; append TIU note to reply at node 10000
+"RTN","MAGJRPT",57,0)
+ S REPLY="1^OK"
+"RTN","MAGJRPT",58,0)
+ K ^TMP($J,"MAGRAEX")
+"RTN","MAGJRPT",59,0)
+ORDZ S @MAGRPTY@(0)=REPLY
+"RTN","MAGJRPT",60,0)
+ Q
+"RTN","MAGJRPT",61,0)
+ ;
+"RTN","MAGJRPT",62,0)
+COMMENTS(RADFN,RADTI,RACNI,MAGRPTY,DNODE,COMPLIC,MEDS,RDIOPHARM) ; add Complications & Tech Comments to output report
+"RTN","MAGJRPT",63,0)
+ ; Add Medications and Radiopharmaceuticals information to output
+"RTN","MAGJRPT",64,0)
+ ; RADFN, RADTI, & RACNI identify exam
+"RTN","MAGJRPT",65,0)
+ ; MAGRPTY is indirect reference wher output lines are to be stored
+"RTN","MAGJRPT",66,0)
+ ; DNODE holds reference for starting node for lines of output
+"RTN","MAGJRPT",67,0)
+ ; COMPLIC passes in complications data reference
+"RTN","MAGJRPT",68,0)
+ ; MEDS passes in Medications indicator
+"RTN","MAGJRPT",69,0)
+ ; RDIOPHARM passes in Radiopharmaceuticals reference
+"RTN","MAGJRPT",70,0)
+ ;
+"RTN","MAGJRPT",71,0)
+ I +MAGJOB("USER",1) ; Radiologist
+"RTN","MAGJRPT",72,0)
+ E I $D(^VA(200,"ARC","T",+DUZ)) ; Rad Tech
+"RTN","MAGJRPT",73,0)
+ E Q ; Don't display for any other user type
+"RTN","MAGJRPT",74,0)
+ N QTMP,CT,XX S CT=0
+"RTN","MAGJRPT",75,0)
+ S @MAGRPTY@(DNODE)=" ",CT=CT+.01, at MAGRPTY@(DNODE+CT)="Complications: "_$S(COMPLIC:$P($G(^RA(78.1,+COMPLIC,0)),U),1:"")
+"RTN","MAGJRPT",76,0)
+ S X=$P(COMPLIC,"~",2)
+"RTN","MAGJRPT",77,0)
+ I X S CT=CT+.01, at MAGRPTY@(DNODE+CT)=" "_$P($G(^RADPT(RADFN,"DT",RADTI,"P",RACNI,"COMP")),U)
+"RTN","MAGJRPT",78,0)
+ K ^TMP($J,"RAE2") D SVTCOM^RAUTL11(RADFN,RADTI,RACNI)
+"RTN","MAGJRPT",79,0)
+ S QTMP="^TMP($J,""RAE2"")"
+"RTN","MAGJRPT",80,0)
+ F S QTMP=$Q(@QTMP) Q:QTMP="" Q:QTMP'["RAE2" I QTMP["TCOM" D
+"RTN","MAGJRPT",81,0)
+ . S XX=@(QTMP) N HI,TXT,LINE1 S LINE1=0
+"RTN","MAGJRPT",82,0)
+ . F Q:XX="" S HI=$L(XX) S:HI>63 HI=63 F I=HI:-1:0 S:'I XX="" I HI<63!($E(XX,I)=" ") D Q
+"RTN","MAGJRPT",83,0)
+ . . S TXT=$S('LINE1:"Tech Comments: ",1:" ")_$E(XX,1,I),XX=$E(XX,I+1,999),LINE1=1
+"RTN","MAGJRPT",84,0)
+ . . I XX]"" F I=1:1:999 I $E(XX,I)'=" " S XX=$E(XX,I,999) Q
+"RTN","MAGJRPT",85,0)
+ . . S CT=CT+.01, at MAGRPTY@(DNODE+CT)=TXT
+"RTN","MAGJRPT",86,0)
+ K ^TMP($J,"RAE2")
+"RTN","MAGJRPT",87,0)
+ I +$G(MEDS) D
+"RTN","MAGJRPT",88,0)
+ . N REF,RAUTOE,RAACNT
+"RTN","MAGJRPT",89,0)
+ . K ^TMP($J,"RA AUTOE")
+"RTN","MAGJRPT",90,0)
+ . S REF=RACNI_","_RADTI_","_RADFN_","
+"RTN","MAGJRPT",91,0)
+ . S RAUTOE="" ; if defined, directs output to ^TMP
+"RTN","MAGJRPT",92,0)
+ . S RAACNT=1000 ; init counter for output to ^TMP
+"RTN","MAGJRPT",93,0)
+ . D PHARM^RARTUTL(REF) ; get Medications data ; ICR #5946 (Private)
+"RTN","MAGJRPT",94,0)
+ . D PHARMAS("Medications",1001)
+"RTN","MAGJRPT",95,0)
+ I +$G(RDIOPHARM) D
+"RTN","MAGJRPT",96,0)
+ . N RAUTOE,RAACNT
+"RTN","MAGJRPT",97,0)
+ . K ^TMP($J,"RA AUTOE")
+"RTN","MAGJRPT",98,0)
+ . S RAUTOE="" ; if defined, directs output to ^TMP
+"RTN","MAGJRPT",99,0)
+ . S RAACNT=1000 ; init counter for output to ^TMP
+"RTN","MAGJRPT",100,0)
+ . D RDIO^RARTUTL(RDIOPHARM) ; get Radiopharm data ; ICR #5946 (Private)
+"RTN","MAGJRPT",101,0)
+ . D PHARMAS("Radiopharmaceuticals",1001)
+"RTN","MAGJRPT",102,0)
+ I +$G(MEDS)!+$G(RDIOPHARM) D
+"RTN","MAGJRPT",103,0)
+ . S CT=CT+.001, at MAGRPTY@(DNODE+CT)=" "_$TR($J(" ",66)," ","_")
+"RTN","MAGJRPT",104,0)
+ . S CT=CT+.001, at MAGRPTY@(DNODE+CT)=" "
+"RTN","MAGJRPT",105,0)
+ K ^TMP($J,"RA AUTOE")
+"RTN","MAGJRPT",106,0)
+ Q
+"RTN","MAGJRPT",107,0)
+ ;
+"RTN","MAGJRPT",108,0)
+PHARMAS(TITLE,NODE) ; output lines of pharma data
+"RTN","MAGJRPT",109,0)
+ N LINE
+"RTN","MAGJRPT",110,0)
+ I $D(^TMP($J,"RA AUTOE",NODE)) D
+"RTN","MAGJRPT",111,0)
+ . S CT=CT+.001, at MAGRPTY@(DNODE+CT)=" "
+"RTN","MAGJRPT",112,0)
+ . S CT=CT+.001, at MAGRPTY@(DNODE+CT)=" ------------ "_TITLE_" ------------"
+"RTN","MAGJRPT",113,0)
+ . S CT=CT+.001, at MAGRPTY@(DNODE+CT)=" "
+"RTN","MAGJRPT",114,0)
+ . F S LINE=^TMP($J,"RA AUTOE",NODE) D S NODE=$O(^TMP($J,"RA AUTOE",NODE)) Q:'NODE
+"RTN","MAGJRPT",115,0)
+ . . S CT=CT+.001, at MAGRPTY@(DNODE+CT)=LINE
+"RTN","MAGJRPT",116,0)
+ . Q
+"RTN","MAGJRPT",117,0)
+ Q
+"RTN","MAGJRPT",118,0)
+ ;
+"RTN","MAGJRPT",119,0)
+TIUNOTE(RARPT,MAGRPTY,DNODE) ; FUT-70/IHS append Rad TIU Notes to report
+"RTN","MAGJRPT",120,0)
+ ; 1/2011--only works at IHS where TIU notes may exist for Radiology exams
+"RTN","MAGJRPT",121,0)
+ ; test for this by presence of DOCTEXT^BEHOTIU
+"RTN","MAGJRPT",122,0)
+ ; RARPT--exam pointer
+"RTN","MAGJRPT",123,0)
+ ; MAGRPTY--indirect reference to output file
+"RTN","MAGJRPT",124,0)
+ ; DNODE--starting node for lines of output
+"RTN","MAGJRPT",125,0)
+ ;
+"RTN","MAGJRPT",126,0)
+ N CT,QTMP,TEXT,XX
+"RTN","MAGJRPT",127,0)
+ I RARPT,$L(MAGRPTY),DNODE,$L($T(DOCTEXT^BEHOTIU)) D
+"RTN","MAGJRPT",128,0)
+ . D DOCTEXT^BEHOTIU("TEXT",RARPT_";RARPT(")
+"RTN","MAGJRPT",129,0)
+ . I $D(TEXT) D
+"RTN","MAGJRPT",130,0)
+ . . S CT=0,QTMP="TEXT"
+"RTN","MAGJRPT",131,0)
+ . . S @MAGRPTY@(DNODE)=" "
+"RTN","MAGJRPT",132,0)
+ . . F S QTMP=$Q(@QTMP) Q:QTMP="" S XX=@(QTMP) S CT=CT+.01, at MAGRPTY@(DNODE+CT)=XX
+"RTN","MAGJRPT",133,0)
+ Q
+"RTN","MAGJRPT",134,0)
+ ;
+"RTN","MAGJRPT",135,0)
+OPENDEV ;
+"RTN","MAGJRPT",136,0)
+ N IOP,%ZIS
+"RTN","MAGJRPT",137,0)
+ S IOP="IMAGING WORKSTATION",%ZIS=0 D ^%ZIS
+"RTN","MAGJRPT",138,0)
+ I POP
+"RTN","MAGJRPT",139,0)
+ E U IO
+"RTN","MAGJRPT",140,0)
+ Q
+"RTN","MAGJRPT",141,0)
+ ;
+"RTN","MAGJRPT",142,0)
+RADRPT(MAGRPTY,DATA) ; Display rad report; 1st must pass integrity checks
+"RTN","MAGJRPT",143,0)
+ ; Note: adds an additional line of output for the Report Window header
+"RTN","MAGJRPT",144,0)
+ ; RPC is MAGJ EXAM REPORT
+"RTN","MAGJRPT",145,0)
+ ;
+"RTN","MAGJRPT",146,0)
+ ; MAGRPTY holds $NA reference to return message; references to it use subscript indirection
+"RTN","MAGJRPT",147,0)
+ ;
+"RTN","MAGJRPT",148,0)
+ S MAGRPTY=$NA(^TMP($J,"MAGJRADRPT")) K @MAGRPTY
+"RTN","MAGJRPT",149,0)
+ N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGJRPT"
+"RTN","MAGJRPT",150,0)
+ N RARPT,RADATA,MAGDFN,MAGDTI,MAGCNI,X,MAGRET,HDR,REPLY,MAGPRC,COMPLIC,DNODE
+"RTN","MAGJRPT",151,0)
+ N MEDS,RDIOPHARM
+"RTN","MAGJRPT",152,0)
+ S MAGDFN=$P(DATA,U),MAGDTI=$P(DATA,U,2),MAGCNI=$P(DATA,U,3),RARPT=+$P(DATA,U,4)
+"RTN","MAGJRPT",153,0)
+ I '(MAGDFN&MAGDTI&MAGCNI) D G RPTZ
+"RTN","MAGJRPT",154,0)
+ . S REPLY="0^4~Request Contains Invalid Case Pointer ("_MAGDFN_" "_MAGDTI_" "_MAGCNI_")."
+"RTN","MAGJRPT",155,0)
+ D GETEXAM2^MAGJUTL1(MAGDFN,MAGDTI,MAGCNI,"",.MAGRET)
+"RTN","MAGJRPT",156,0)
+ S RADATA=$G(^TMP($J,"MAGRAEX",1,1)),XX=$G(^(2)),HDR=""
+"RTN","MAGJRPT",157,0)
+ S COMPLIC=$P(XX,U,4) ; Complications text
+"RTN","MAGJRPT",158,0)
+ S MEDS=$P(XX,U,14),RDIOPHARM=$P(XX,U,15) ; Medications & RadioPharm indicators
+"RTN","MAGJRPT",159,0)
+ F I=4,12,9 S HDR=HDR_$P(RADATA,U,I)_" "
+"RTN","MAGJRPT",160,0)
+ D CKINTEG(.REPLY,MAGDFN,MAGDTI,MAGCNI,RARPT,RADATA)
+"RTN","MAGJRPT",161,0)
+ I REPLY]"" S REPLY="0^7~"_REPLY G RPTZ ; DB integ problem
+"RTN","MAGJRPT",162,0)
+ D EN3^RAO7PC3(MAGDFN_"^"_MAGDTI_"^"_MAGCNI)
+"RTN","MAGJRPT",163,0)
+ I '$D(^TMP($J,"RAE3")) S REPLY="0^4~No report on file." G RPTZ
+"RTN","MAGJRPT",164,0)
+ D COMMENTS(MAGDFN,MAGDTI,MAGCNI,MAGRPTY,2,COMPLIC,MEDS,RDIOPHARM)
+"RTN","MAGJRPT",165,0)
+ S MAGPRC=$O(^TMP($J,"RAE3",MAGDFN,MAGCNI,"")),I=0,DNODE=2
+"RTN","MAGJRPT",166,0)
+ F S I=$O(^TMP($J,"RAE3",MAGDFN,MAGCNI,MAGPRC,I)) Q:'I D
+"RTN","MAGJRPT",167,0)
+ . S DNODE=DNODE+1
+"RTN","MAGJRPT",168,0)
+ . S @MAGRPTY@(DNODE)=$G(^TMP($J,"RAE3",MAGDFN,MAGCNI,MAGPRC,I))
+"RTN","MAGJRPT",169,0)
+ F I=1:1:4 S DNODE=DNODE+1, at MAGRPTY@(DNODE)=$S(I'=3:"",1:"** END REPORT "_$$FMTE^XLFDT($$NOW^XLFDT,"1P")_" **")
+"RTN","MAGJRPT",170,0)
+ D TIUNOTE(RARPT,MAGRPTY,10000) ; append TIU note to reply at node 10000
+"RTN","MAGJRPT",171,0)
+ S REPLY="1^1~Radiology Report"
+"RTN","MAGJRPT",172,0)
+RPTZ S @MAGRPTY@(0)=REPLY
+"RTN","MAGJRPT",173,0)
+ I +$G(@MAGRPTY@(0)) S @MAGRPTY@(1)="RPT: "_HDR ; if a report exists, add header line to output
+"RTN","MAGJRPT",174,0)
+ K ^TMP($J,"MAGRAEX"),^("RAE3")
+"RTN","MAGJRPT",175,0)
+ Q
+"RTN","MAGJRPT",176,0)
+ ;
+"RTN","MAGJRPT",177,0)
+CKINTEG(REPLY,RADFN,RADTI,RACNI,RARPT,RADATA) ; check integrity between Exam, Report, and Image Group Headers
+"RTN","MAGJRPT",178,0)
+ ; This subroutine is used by other vrad programs
+"RTN","MAGJRPT",179,0)
+ ;
+"RTN","MAGJRPT",180,0)
+ N IEN,MAGIEN,MIXEDUP,X,CKDFN,CKACN
+"RTN","MAGJRPT",181,0)
+ S MIXEDUP=0,REPLY=""
+"RTN","MAGJRPT",182,0)
+ I RARPT D G CK2:MIXEDUP
+"RTN","MAGJRPT",183,0)
+ . S X=$G(^RARPT(RARPT,0)),CKDFN=$P(X,U,2),CKACN=$P(X,U,4)
+"RTN","MAGJRPT",184,0)
+ . I CKDFN'=RADFN S MIXEDUP=1_U_+CKDFN Q
+"RTN","MAGJRPT",185,0)
+ . I $G(RADATA)]"" D
+"RTN","MAGJRPT",186,0)
+ . . I $P(RADATA,U,8)'=CKACN D
+"RTN","MAGJRPT",187,0)
+ . . . N MAGPSET,RAPRTSET,ACN,OK S OK=0
+"RTN","MAGJRPT",188,0)
+ . . . S RAPRTSET=0 D EN2^RAUTL20(.MAGPSET) I RAPRTSET D
+"RTN","MAGJRPT",189,0)
+ . . . . N I,T ; P133 mod for MAGPSET Data ex.--Old= 256^154^190^4 SSAN= 660-080504-256^154^190^4
+"RTN","MAGJRPT",190,0)
+ . . . . S I=0 F S I=$O(MAGPSET(I)) Q:'I S T=$P(MAGPSET(I),U) I $P(T,"-",$L(T,"-"))=CKACN S OK=1 Q
+"RTN","MAGJRPT",191,0)
+ . . . I 'OK S MIXEDUP=5_U_CKACN_U_$P(RADATA,U,8)
+"RTN","MAGJRPT",192,0)
+ I $D(^RARPT(+RARPT,2005)) S IEN=0 D G CK2:MIXEDUP
+"RTN","MAGJRPT",193,0)
+ . F S IEN=$O(^RARPT(RARPT,2005,IEN)) Q:'IEN S MAGIEN=+$G(^(IEN,0)) D Q:MIXEDUP
+"RTN","MAGJRPT",194,0)
+ . . S X=$P($G(^MAG(2005,MAGIEN,0)),U,7) I X'=RADFN S MIXEDUP=2_U_+X Q
+"RTN","MAGJRPT",195,0)
+ . . S X=$P($G(^MAG(2005,MAGIEN,2)),U,7) I X'=RARPT S MIXEDUP=3_U_+X Q
+"RTN","MAGJRPT",196,0)
+CK2 I 'MIXEDUP Q ; no problems detected
+"RTN","MAGJRPT",197,0)
+ I +MIXEDUP=1!(+MIXEDUP=2) D Q
+"RTN","MAGJRPT",198,0)
+ . S X=$$PNAM^MAGJEX1($P(MIXEDUP,U,2))
+"RTN","MAGJRPT",199,0)
+ . I +MIXEDUP=1 S REPLY="The Exam file for this exam has patient "_$$PNAM^MAGJEX1(RADFN)_"; the corresponding Report file has patient "_X_". This is a serious problem--immediately report it to Radiology management and Imaging support!"
+"RTN","MAGJRPT",200,0)
+ . I +MIXEDUP=2 S REPLY="This exam is registered for "_$$PNAM^MAGJEX1(RADFN)_"; however, it is linked to images for patient "_X_". This is a serious problem--immediately report it to Radiology management and Imaging support staff!"
+"RTN","MAGJRPT",201,0)
+ I +MIXEDUP=3 D Q
+"RTN","MAGJRPT",202,0)
+ . N T S T=$P(MIXEDUP,U,2) S:'T T="Missing Link"
+"RTN","MAGJRPT",203,0)
+ . S REPLY="This exam is linked to Report entry #"_RARPT_", but some of its images may be linked to Report entry #"_T_". This is a potentially serious problem--immediately report it to Radiology management and Imaging support staff!"
+"RTN","MAGJRPT",204,0)
+ I +MIXEDUP=4 D Q
+"RTN","MAGJRPT",205,0)
+ . N T S T=$P(MIXEDUP,U,2) S:'T T="Missing Reference"
+"RTN","MAGJRPT",206,0)
+ . S X=" ("_RARPT_" and "_T_" )"
+"RTN","MAGJRPT",207,0)
+ . S REPLY="This exam has problems in the Radiology Report file, with two different report entries referenced"_X_". This is a potentially serious problem--immediately report it to Radiology management and Imaging support staff!"
+"RTN","MAGJRPT",208,0)
+ I +MIXEDUP=5 D Q
+"RTN","MAGJRPT",209,0)
+ . N T S X=$P(MIXEDUP,U,2) S:X="" X="Missing"
+"RTN","MAGJRPT",210,0)
+ . S T=$P(MIXEDUP,U,3) S:T="" T="Missing"
+"RTN","MAGJRPT",211,0)
+ . S X=" ("_X_" and "_T_") "
+"RTN","MAGJRPT",212,0)
+ . S REPLY="This exam has problems in the Radiology files, with two different Case Numbers referenced"_X_". This is a potentially serious problem--immediately report it to Radiology management and Imaging support staff!"
+"RTN","MAGJRPT",213,0)
+ Q
+"RTN","MAGJRPT",214,0)
+ ;
+"RTN","MAGJRPT",215,0)
+ERR ;
+"RTN","MAGJRPT",216,0)
+ S @MAGRPTY@(0)="0^ERROR "_$$EC^%ZOSV
+"RTN","MAGJRPT",217,0)
+ D @^%ZOSF("ERRTN")
+"RTN","MAGJRPT",218,0)
+ Q:$Q 1 Q
+"RTN","MAGJRPT",219,0)
+END ;
+"RTN","MAGJTU4V")
+0^4^B5405270
+"RTN","MAGJTU4V",1,0)
+MAGJTU4V ;WOIFO/MAT - VERSION CONTROL (VISTARAD) ; 9 Sep 2013 11:22 AM
+"RTN","MAGJTU4V",2,0)
+ ;;3.0;IMAGING;**90,115,120,133**;Mar 19, 2002;Build 5393;Sep 09, 2013
+"RTN","MAGJTU4V",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGJTU4V",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJTU4V",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGJTU4V",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGJTU4V",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGJTU4V",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGJTU4V",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGJTU4V",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGJTU4V",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGJTU4V",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGJTU4V",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGJTU4V",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGJTU4V",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGJTU4V",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJTU4V",17,0)
+ ;;
+"RTN","MAGJTU4V",18,0)
+ ; This routine contains the version control code and data specific
+"RTN","MAGJTU4V",19,0)
+ ; to the VistARad application. DO NOT ADD ANYTHING ELSE!
+"RTN","MAGJTU4V",20,0)
+ Q
+"RTN","MAGJTU4V",21,0)
+ ;
+"RTN","MAGJTU4V",22,0)
+CLVERCT ;***** VERSION CONTROL TABLE FOR THE VistARad CLIENTS
+"RTN","MAGJTU4V",23,0)
+ ;;==================================================================
+"RTN","MAGJTU4V",24,0)
+ ;;| Version |Build|Seq #| Comment |
+"RTN","MAGJTU4V",25,0)
+ ;;|---------+-----+------------------------------------------------|
+"RTN","MAGJTU4V",26,0)
+ ;;| 3.0.133 | 3 | ?? | Sep 2013 <*> Projected Seq # & Release |
+"RTN","MAGJTU4V",27,0)
+ ;;| 3.0.120 | 8 | 81 | Jul 2012 |
+"RTN","MAGJTU4V",28,0)
+ ;;| 3.0.115 | 4 | 73 | Mar 2011 |
+"RTN","MAGJTU4V",29,0)
+ ;;| 3.0.90 | 9 | 66 | Aug 2010 |
+"RTN","MAGJTU4V",30,0)
+ ;;| 3.0.101 | 10 | 61 | Feb 2010 |
+"RTN","MAGJTU4V",31,0)
+ ;;==================================================================
+"RTN","MAGJTU4V",32,0)
+ ;
+"RTN","MAGJTU4V",33,0)
+ ; Each row of the version control table contains the version and
+"RTN","MAGJTU4V",34,0)
+ ; build number of a supported client. Released patches must also
+"RTN","MAGJTU4V",35,0)
+ ; indicate the sequential numbers.
+"RTN","MAGJTU4V",36,0)
+ ;
+"RTN","MAGJTU4V",37,0)
+ ; Sort order of the rows does not matter. However, the reversed
+"RTN","MAGJTU4V",38,0)
+ ; order of patch sequential numbers is recommended.
+"RTN","MAGJTU4V",39,0)
+ ;
+"RTN","MAGJTU4V",40,0)
+ Q
+"RTN","MAGJTU4V",41,0)
+ ;
+"RTN","MAGJTU4V",42,0)
+ ;***** ADDS A CLIENT-SPECIFIC WARNING (IF NECESSARY)
+"RTN","MAGJTU4V",43,0)
+ ;
+"RTN","MAGJTU4V",44,0)
+ ; .MAGBUF Reference to a local array that the warning text
+"RTN","MAGJTU4V",45,0)
+ ; is returned to. It is appended to the RPC result
+"RTN","MAGJTU4V",46,0)
+ ; array by the caller (WARNING^MAGGTU41).
+"RTN","MAGJTU4V",47,0)
+ ;
+"RTN","MAGJTU4V",48,0)
+ ; CLVER Client application version (Major.Minor.Patch.Build)
+"RTN","MAGJTU4V",49,0)
+ ;
+"RTN","MAGJTU4V",50,0)
+ ; CVRC Version check code returned by the $$CHKVER1^MAGGTU41
+"RTN","MAGJTU4V",51,0)
+ ;
+"RTN","MAGJTU4V",52,0)
+ ; Notes
+"RTN","MAGJTU4V",53,0)
+ ; =====
+"RTN","MAGJTU4V",54,0)
+ ;
+"RTN","MAGJTU4V",55,0)
+ ; If the RPC result array already contains an error message that
+"RTN","MAGJTU4V",56,0)
+ ; will terminate the client, application, this procedure is not
+"RTN","MAGJTU4V",57,0)
+ ; called.
+"RTN","MAGJTU4V",58,0)
+ ;
+"RTN","MAGJTU4V",59,0)
+WARNING(MAGBUF,CLVER,CVRC) ;
+"RTN","MAGJTU4V",60,0)
+ Q
+"RTN","MAGJUPD1")
+0^5^B64000428
+"RTN","MAGJUPD1",1,0)
+MAGJUPD1 ;WOIFO/JHC - VistARad Update Exam Status ; 25 Mar 2013 5:22 PM
+"RTN","MAGJUPD1",2,0)
+ ;;3.0;IMAGING;**16,22,18,76,101,120,133**;Mar 19, 2002;Build 5393;Sep 09, 2013
+"RTN","MAGJUPD1",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGJUPD1",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJUPD1",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGJUPD1",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGJUPD1",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGJUPD1",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGJUPD1",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGJUPD1",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGJUPD1",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGJUPD1",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGJUPD1",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGJUPD1",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGJUPD1",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGJUPD1",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJUPD1",17,0)
+ ;;
+"RTN","MAGJUPD1",18,0)
+ Q
+"RTN","MAGJUPD1",19,0)
+ ; Subroutines for RPC's to update Exam Status to "Interpreted", and
+"RTN","MAGJUPD1",20,0)
+ ; for "Closing" a case that is open on the DX Workstation
+"RTN","MAGJUPD1",21,0)
+ ;
+"RTN","MAGJUPD1",22,0)
+ERR N ERR S ERR=$$EC^%ZOSV S @MAGGRY@(0)="0^Server Program Error: "_ERR
+"RTN","MAGJUPD1",23,0)
+ D @^%ZOSF("ERRTN")
+"RTN","MAGJUPD1",24,0)
+ Q:$Q 1 Q
+"RTN","MAGJUPD1",25,0)
+ ;
+"RTN","MAGJUPD1",26,0)
+STATUS(MAGGRY,PARAMS,DATA) ; rpc: MAGJ RADSTATUSUPDATE
+"RTN","MAGJUPD1",27,0)
+ ; Update Exam Status to "Interpreted" and/or Close the exam
+"RTN","MAGJUPD1",28,0)
+ ; Only updates the Status if the current value is "Examined"
+"RTN","MAGJUPD1",29,0)
+ ; This routine defines variables needed for calling the Radiology
+"RTN","MAGJUPD1",30,0)
+ ; package routine UP1^RAUTL1, for filing Status updates
+"RTN","MAGJUPD1",31,0)
+ ;
+"RTN","MAGJUPD1",32,0)
+ ; PARAMS = UPDFLAG ^ RADFN ^ RADTI ^ RACNI ^ RARPT ^ UPDPSKEY
+"RTN","MAGJUPD1",33,0)
+ ; UPDFLAG = 1/0 -- 1 to perform update; else no update made
+"RTN","MAGJUPD1",34,0)
+ ; RARPT = ptr to Rad Exam Report file
+"RTN","MAGJUPD1",35,0)
+ ; RADFN,RADTI,RACNI = pointers to Rad Patient File for the exam
+"RTN","MAGJUPD1",36,0)
+ ; UPDPSKEY = 1/0 -- 1 to update Presentation State &/or Key Image data
+"RTN","MAGJUPD1",37,0)
+ ; = 2 -- update PS data with NO lock in place--Resident workflow, or Sec Key Override
+"RTN","MAGJUPD1",38,0)
+ ; DATA = optional array containing prezentation state data; see SAVKPS^MAGJUPD2 for description
+"RTN","MAGJUPD1",39,0)
+ ; MAGGRY = return results in @MAGGRY
+"RTN","MAGJUPD1",40,0)
+ ;
+"RTN","MAGJUPD1",41,0)
+ N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGJUPD1"
+"RTN","MAGJUPD1",42,0)
+ N RARPT,RADFN,RADTI,RACNI,RAEXT,RACNE,RADTE,RAINT,RAMDV,DIQUIET
+"RTN","MAGJUPD1",43,0)
+ N RAONLINE,ZTQUEUED,RAOR,RASN,RASTI,RAPRTSET,LOGDATA,RSL,TIMESTMP
+"RTN","MAGJUPD1",44,0)
+ N UPDPSKEY,MAGRET,MAGLST,REPLY,UPDFLAG,RADATA,RIST,MAGPSET,RACNILST,ACNLST
+"RTN","MAGJUPD1",45,0)
+ N PSETLST
+"RTN","MAGJUPD1",46,0)
+ S MAGLST="MAGJUPDATE"
+"RTN","MAGJUPD1",47,0)
+ K MAGGRY S MAGGRY=$NA(^TMP($J,MAGLST)) K @MAGGRY ; assign MAGGRY value
+"RTN","MAGJUPD1",48,0)
+ S DIQUIET=1 D DT^DICRW
+"RTN","MAGJUPD1",49,0)
+ S TIMESTMP=$$NOW^XLFDT()
+"RTN","MAGJUPD1",50,0)
+ S UPDFLAG=$P(PARAMS,U),RADFN=$P(PARAMS,U,2),RADTI=$P(PARAMS,U,3),RACNI=$P(PARAMS,U,4),RARPT=$P(PARAMS,U,5),UPDPSKEY=+$P(PARAMS,U,6)
+"RTN","MAGJUPD1",51,0)
+ S REPLY="0^4~Closing case with"_$S(UPDFLAG:"",1:" NO")_" Status Update"
+"RTN","MAGJUPD1",52,0)
+ S RAPRTSET=0
+"RTN","MAGJUPD1",53,0)
+ I RADFN,RADTI,RACNI
+"RTN","MAGJUPD1",54,0)
+ E S REPLY="0^4~Request Contains Invalid Case Pointer ("_RARPT_")" G STATUSZ
+"RTN","MAGJUPD1",55,0)
+ D GETEXAM2^MAGJUTL1(RADFN,RADTI,RACNI,0,.MAGRET)
+"RTN","MAGJUPD1",56,0)
+ I 'MAGRET S REPLY="0^4~Current Case Not Accessible for Updating" G STATUSZ
+"RTN","MAGJUPD1",57,0)
+ ; 1 RADFN RADTI RACNI RANME RASSN <--Contents of RADATA,
+"RTN","MAGJUPD1",58,0)
+ ; 6 RADATE RADTE RACN RAPRC RARPT from GETEXAM
+"RTN","MAGJUPD1",59,0)
+ ;11 RAST DAYCASE RAELOC RASTP RASTORD
+"RTN","MAGJUPD1",60,0)
+ ;16 RADTPRT
+"RTN","MAGJUPD1",61,0)
+ S RADATA=$G(^TMP($J,"MAGRAEX",1,1))
+"RTN","MAGJUPD1",62,0)
+ S RAEXT=$P(RADATA,U,12),RACNE=$P(RAEXT,"-",$L(RAEXT,"-")),RADTE=$P(RADATA,U,7) ; p133: $L for SSAN or old Acn
+"RTN","MAGJUPD1",63,0)
+ S RAINT=RADTI_"-"_RACNI
+"RTN","MAGJUPD1",64,0)
+ I UPDPSKEY=2 D G STATUSZ ; P101 update annotations only, if authorized (Resident workflow, or Sec Key Override)
+"RTN","MAGJUPD1",65,0)
+ . I +MAGJOB("USER",1),'UPDFLAG,($D(DATA)>9) S REPLY="0^1~Case #"_RAEXT_" Closed; No Status Update; annotation updates performed."
+"RTN","MAGJUPD1",66,0)
+ . E S UPDPSKEY=0,REPLY="0^4~Invalid request to update annotations for Case #"_RAEXT_"."
+"RTN","MAGJUPD1",67,0)
+ D CLOSE(.RSL,RADFN_U_RADTI_U_RACNI_U_U_1,.LOGDATA) ; unlock the case
+"RTN","MAGJUPD1",68,0)
+ ; proceed only if case was locked by this user
+"RTN","MAGJUPD1",69,0)
+ ; if it was not Locked, then do NOT update PS, Key Images
+"RTN","MAGJUPD1",70,0)
+ I 'RSL S REPLY=RSL,UPDPSKEY=0 G STATUSZ
+"RTN","MAGJUPD1",71,0)
+ I 'UPDFLAG S REPLY="0^1~Case #"_RAEXT_" Closed; No Status Update performed" G STATUSZ
+"RTN","MAGJUPD1",72,0)
+ S RIST=$P(RSL,U,2) ; CLOSE reports back the type of radiologist
+"RTN","MAGJUPD1",73,0)
+ ; now we know this user had locked the case, & wants to do Status update
+"RTN","MAGJUPD1",74,0)
+ D EN2^RAUTL20(.MAGPSET) ; get info re rad PrintSet
+"RTN","MAGJUPD1",75,0)
+ ; Note--above call also sets variable RAPRTSET
+"RTN","MAGJUPD1",76,0)
+ ;
+"RTN","MAGJUPD1",77,0)
+ ; IF exam is not "Examined", and not "Cancelled" and past "Waiting"
+"RTN","MAGJUPD1",78,0)
+ ; then assume it has already been updated via another pathway,
+"RTN","MAGJUPD1",79,0)
+ ; either as printset member (via code below--see PRTSET note...),
+"RTN","MAGJUPD1",80,0)
+ ; or from a voice-dictation or terminal session by the radiologist
+"RTN","MAGJUPD1",81,0)
+ ; For these cases, no warning msg is sent
+"RTN","MAGJUPD1",82,0)
+ ; Else, update not allowed, so give warning msg
+"RTN","MAGJUPD1",83,0)
+ ; Note that when the Exam was OPENed, it must have had status "Examined"
+"RTN","MAGJUPD1",84,0)
+ I '$D(^RA(72,"AVC","E",$P(RADATA,U,11))) D G STATUSX:(+$P(REPLY,U,2)=1),STATUSZ ; Current Status MUST be "Examined" Category
+"RTN","MAGJUPD1",85,0)
+ . I $P(RADATA,U,15)>2 D ; assume update has otherwise been done, eg voice dictation or manual entry in Vista
+"RTN","MAGJUPD1",86,0)
+ . . S RACNILST=RACNI,RASTI=$P(RADATA,U,11) ; need for code at tag statusx
+"RTN","MAGJUPD1",87,0)
+ . . I RAPRTSET S REPLY="0^1~Printset Exams with Case #"_RAEXT_" have been updated"
+"RTN","MAGJUPD1",88,0)
+ . . E S REPLY="0^1~No Update done for Case #"_RAEXT_"--current status is "_$P(RADATA,U,14)
+"RTN","MAGJUPD1",89,0)
+ . E S REPLY="0^3~No Update Allowed for Case #"_RAEXT_"--current status is "_$P(RADATA,U,14)
+"RTN","MAGJUPD1",90,0)
+ ;
+"RTN","MAGJUPD1",91,0)
+ ; now ready to update exam status
+"RTN","MAGJUPD1",92,0)
+ S RAMDV=$P(^RADPT(RADFN,"DT",RADTI,0),U,3)
+"RTN","MAGJUPD1",93,0)
+ S RAMDV=$TR(^RA(79,RAMDV,.1),"YyNn","1100")
+"RTN","MAGJUPD1",94,0)
+ ;
+"RTN","MAGJUPD1",95,0)
+ ; Update interpreting radiologist field in Rad file
+"RTN","MAGJUPD1",96,0)
+ I RIST D I RACNILST="" G STATUSZ
+"RTN","MAGJUPD1",97,0)
+ . N SAVRACNI,RTN S RACNILST=""
+"RTN","MAGJUPD1",98,0)
+ . ; PRTSET note: if exam is part of Rad Print-Set, then update all exams of printset
+"RTN","MAGJUPD1",99,0)
+ . I RAPRTSET D
+"RTN","MAGJUPD1",100,0)
+ . . S ACNLST="",SAVRACNI=RACNI,X=0
+"RTN","MAGJUPD1",101,0)
+ . . N T ; P133 mod for MAGPSET Data ex.--Old= 256^154^190^4 SSAN= 660-080504-256^154^190^4
+"RTN","MAGJUPD1",102,0)
+ . . F I=0:1 S X=$O(MAGPSET(X)) Q:'X S RACNILST=RACNILST_$S(I:U,1:"")_X,T=$P(MAGPSET(X),U) S:RACNE'=$P(T,"-",($L(T,"-"))) ACNLST=ACNLST_", "_$S($L(T,"-")=1:"-",1:"")_T
+"RTN","MAGJUPD1",103,0)
+ . E S RACNILST=RACNI
+"RTN","MAGJUPD1",104,0)
+ . F I=1:1:$L(RACNILST,U) S RACNI=$P(RACNILST,U,I) I RACNI D I RACNILST="" Q
+"RTN","MAGJUPD1",105,0)
+ . . S DA(2)=RADFN,DA(1)=RADTI,DA=RACNI
+"RTN","MAGJUPD1",106,0)
+ . . D STUFPHY^RARIC1(DUZ,RIST,.RTN)
+"RTN","MAGJUPD1",107,0)
+ . . I 'RTN S REPLY="0^4~Unable to update Interpreting Radiologist: "_RTN_"." S RACNILST=""
+"RTN","MAGJUPD1",108,0)
+ . I RAPRTSET S RACNI=SAVRACNI
+"RTN","MAGJUPD1",109,0)
+ S RAONLINE=1,ZTQUEUED=1 D UP1^RAUTL1 ; Suppress msgs, do Status update
+"RTN","MAGJUPD1",110,0)
+ ;<*> K RAONLINE,ZTQUEUED D UP1^RAUTL1 ; <*> Testing Only: ENABLE msgs
+"RTN","MAGJUPD1",111,0)
+ I RAOR<0 S REPLY="0^3~Exam Status for Case #"_RAEXT_" CANNOT be updated; current status remains: "_$S($G(RASN)]"":RASN,1:"Unknown")
+"RTN","MAGJUPD1",112,0)
+ I G STATUSZ
+"RTN","MAGJUPD1",113,0)
+ ;
+"RTN","MAGJUPD1",114,0)
+ S REPLY="0^1~For Case #"_$S($G(ACNLST)]"":"s ",1:"")_RAEXT_$S(RAPRTSET:ACNLST,1:"")_", Exam Status updated to "_RASN
+"RTN","MAGJUPD1",115,0)
+ ;
+"RTN","MAGJUPD1",116,0)
+STATUSX ; Newly Interpreted exam:
+"RTN","MAGJUPD1",117,0)
+ ; Log the Interpreted event; Printset logging includes all printset members
+"RTN","MAGJUPD1",118,0)
+ S PSETLST=""
+"RTN","MAGJUPD1",119,0)
+ I RAPRTSET S X="" D
+"RTN","MAGJUPD1",120,0)
+ . F I=0:1 S X=$O(MAGPSET(X)) Q:'X S PSETLST=PSETLST_$S(I:U,1:"")_$P(MAGPSET(X),U)
+"RTN","MAGJUPD1",121,0)
+ D LOG^MAGJUTL3("VR-INT",LOGDATA,PSETLST)
+"RTN","MAGJUPD1",122,0)
+ ; Update Recent Exams List
+"RTN","MAGJUPD1",123,0)
+ G STATUSZ:'$P(^MAG(2006.69,1,0),U,8) ; no bkgnd compile enabled
+"RTN","MAGJUPD1",124,0)
+ L +^XTMP("MAGJ2","RECENT"):5
+"RTN","MAGJUPD1",125,0)
+ E G STATUSZ
+"RTN","MAGJUPD1",126,0)
+ N INDX F I=1:1:$L(RACNILST,U) S RACNI=$P(RACNILST,U,I) I RACNI D
+"RTN","MAGJUPD1",127,0)
+ . S INDX=+$G(^XTMP("MAGJ2","RECENT",0))+1,$P(^(0),U)=INDX,^(INDX)=RADFN_U_RADTI_U_RACNI_U_RASTI
+"RTN","MAGJUPD1",128,0)
+ L -^XTMP("MAGJ2","RECENT")
+"RTN","MAGJUPD1",129,0)
+STATUSZ ;
+"RTN","MAGJUPD1",130,0)
+ ; store PS, Key Image data
+"RTN","MAGJUPD1",131,0)
+ I UPDPSKEY,($D(DATA)>9) D
+"RTN","MAGJUPD1",132,0)
+ . D SAVKPS^MAGJUPD2(RARPT,UPDPSKEY,.DATA,.X)
+"RTN","MAGJUPD1",133,0)
+ . S REPLY=REPLY_$P(X,"~",2,99)
+"RTN","MAGJUPD1",134,0)
+ S @MAGGRY@(0)=REPLY
+"RTN","MAGJUPD1",135,0)
+ K ^TMP($J,"MAGRAEX"),^("RAE1")
+"RTN","MAGJUPD1",136,0)
+ Q
+"RTN","MAGJUPD1",137,0)
+ ;
+"RTN","MAGJUPD1",138,0)
+CLOSE(RSL,PARAMS,LOGDATA) ; Close/unlock a case
+"RTN","MAGJUPD1",139,0)
+ ; Input: PARAMS = DFN ^ DTI ^ CNI ^ RPT ^ UPDFLAG
+"RTN","MAGJUPD1",140,0)
+ ;
+"RTN","MAGJUPD1",141,0)
+ ; DFN,DTI,CNI,RPT = pointers to Rad File for the exam
+"RTN","MAGJUPD1",142,0)
+ ; UPDFLAG = 1/0 -- 1 indicates CLOSE was called from subroutine
+"RTN","MAGJUPD1",143,0)
+ ; STATUS, above (which has already called GETEXAM)
+"RTN","MAGJUPD1",144,0)
+ ; RSL = return result of the Close
+"RTN","MAGJUPD1",145,0)
+ ; This subroutine may be called directly (to close a case without
+"RTN","MAGJUPD1",146,0)
+ ; doing a status update), or is called from tag STATUS, above, when
+"RTN","MAGJUPD1",147,0)
+ ; also doing a status update
+"RTN","MAGJUPD1",148,0)
+ ;
+"RTN","MAGJUPD1",149,0)
+ N $ETRAP,$ESTACK S $ETRAP="D ERR^MAGJUPD1"
+"RTN","MAGJUPD1",150,0)
+ N RPT,DFN,DTI,CNI,MAGRET,REPLY,RARPT,UPDFLAG,RIST,DAYCASE,NLOCKS,MYLOCK
+"RTN","MAGJUPD1",151,0)
+ S DFN=$P(PARAMS,U),DTI=$P(PARAMS,U,2),CNI=$P(PARAMS,U,3),RPT=$P(PARAMS,U,4),UPDFLAG=$P(PARAMS,U,5)
+"RTN","MAGJUPD1",152,0)
+ S LOGDATA=""
+"RTN","MAGJUPD1",153,0)
+ I $P($G(^MAG(2006.69,1,0)),U,4)
+"RTN","MAGJUPD1",154,0)
+ E S REPLY=$S(UPDFLAG:"0^3~Updates not allowed at this site--no action taken",1:"") G CLOSEZ ; Status Update NOT Enabled
+"RTN","MAGJUPD1",155,0)
+ S RIST=+MAGJOB("USER",1) I RIST
+"RTN","MAGJUPD1",156,0)
+ E S REPLY=$S(UPDFLAG:"0^3~Update allowed only by a radiologist--no action taken",1:"") G CLOSEZ ; need only unlock a radiologist
+"RTN","MAGJUPD1",157,0)
+ I DFN,DTI,CNI
+"RTN","MAGJUPD1",158,0)
+ E S REPLY="0^4~Request Contains Invalid Case Pointer ("_RPT_")--no action taken" G CLOSEZ
+"RTN","MAGJUPD1",159,0)
+ ;
+"RTN","MAGJUPD1",160,0)
+ I 'UPDFLAG N RADATA D I 'MAGRET G CLOSEZ
+"RTN","MAGJUPD1",161,0)
+ . D GETEXAM2^MAGJUTL1(DFN,DTI,CNI,0,.MAGRET)
+"RTN","MAGJUPD1",162,0)
+ . I 'MAGRET S REPLY="0^4~No Current Case accessible to close--no action taken"
+"RTN","MAGJUPD1",163,0)
+ . E S RADATA=$G(^TMP($J,"MAGRAEX",1,1))
+"RTN","MAGJUPD1",164,0)
+ S RARPT=$P(RADATA,U,10),DAYCASE=$P(RADATA,U,12)
+"RTN","MAGJUPD1",165,0)
+ I RARPT,DAYCASE
+"RTN","MAGJUPD1",166,0)
+ E S REPLY="0^4~Current Case not accessible to close--no action taken" G CLOSEZ
+"RTN","MAGJUPD1",167,0)
+ ;
+"RTN","MAGJUPD1",168,0)
+ D LOCKACT^MAGJEX1A(RARPT,DAYCASE,101,,.MYLOCK)
+"RTN","MAGJUPD1",169,0)
+ S LOGDATA=$P(MYLOCK(1),"|",2)
+"RTN","MAGJUPD1",170,0)
+ I 'MYLOCK(1) S X=$P(MYLOCK(1),U,4) D S LOGDATA="" G CLOSEZ
+"RTN","MAGJUPD1",171,0)
+ . I UPDFLAG S REPLY="0^1~Case #"_DAYCASE_$S(X]"":" locked by "_X,1:" not locked by "_$P(MAGJOB("USER",1),U,2))_"--No Status update performed"
+"RTN","MAGJUPD1",172,0)
+ . E S REPLY="0^1~ " ; case wasn't opened by this R'ist; nothing to do
+"RTN","MAGJUPD1",173,0)
+ ;
+"RTN","MAGJUPD1",174,0)
+ I UPDFLAG S REPLY=1_U_RIST
+"RTN","MAGJUPD1",175,0)
+ E S REPLY="0^1~Case #"_DAYCASE_$S(+MYLOCK(1):" unlocked",+MYLOCK(2):" reserve cancelled",1:" closed")_"--No Status Update performed."
+"RTN","MAGJUPD1",176,0)
+CLOSEZ S RSL=REPLY
+"RTN","MAGJUPD1",177,0)
+ Q
+"RTN","MAGJUPD1",178,0)
+ ;
+"RTN","MAGJUPD1",179,0)
+END Q ;
+"RTN","MAGJUTL1")
+0^6^B71279028
+"RTN","MAGJUTL1",1,0)
+MAGJUTL1 ;WIRMFO/JHC VistARad subroutines for RPC calls ; 3 Jul 2013 10:48 AM
+"RTN","MAGJUTL1",2,0)
+ ;;3.0;IMAGING;**22,18,65,76,101,133**;Mar 19, 2002;Build 5393;Sep 09, 2013
+"RTN","MAGJUTL1",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGJUTL1",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJUTL1",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGJUTL1",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGJUTL1",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGJUTL1",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGJUTL1",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGJUTL1",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGJUTL1",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGJUTL1",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGJUTL1",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGJUTL1",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGJUTL1",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGJUTL1",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJUTL1",17,0)
+ ;;
+"RTN","MAGJUTL1",18,0)
+ Q
+"RTN","MAGJUTL1",19,0)
+ ;<*>Notes on possible changes to ^RAO7PC1/1A for fetching rad pkg data:
+"RTN","MAGJUTL1",20,0)
+ ; 1) Return also: Exam Status IEN, Order Request Urgency, & Pre-Op Date
+"RTN","MAGJUTL1",21,0)
+ ; 2) Allow to retrieve one specific exam; e.g. modify SETDATA^RAO7PC1A
+"RTN","MAGJUTL1",22,0)
+ ; to act as a true subrtn, W/ params for RADFN, RADTI, & RACNI--if
+"RTN","MAGJUTL1",23,0)
+ ; passed, then only the one exam would be returned
+"RTN","MAGJUTL1",24,0)
+ ;
+"RTN","MAGJUTL1",25,0)
+GETEXAM3(DFN,BEGDT,ENDT,MAGRACNT,MAGRET,MORE,LIMEXAMS) ; Get data for all exams for a
+"RTN","MAGJUTL1",26,0)
+ ; pt within a date range
+"RTN","MAGJUTL1",27,0)
+ ; limit to LIMEXAMS entries--note, only PREFETCH & Auto-route Priors use this
+"RTN","MAGJUTL1",28,0)
+ ; Input:
+"RTN","MAGJUTL1",29,0)
+ ; DFN -- Patient DFN
+"RTN","MAGJUTL1",30,0)
+ ; BEGDT -- Opt, earliest date desired
+"RTN","MAGJUTL1",31,0)
+ ; ENDT -- Opt, latest date desired
+"RTN","MAGJUTL1",32,0)
+ ; MAGRACNT -- Opt, pass by ref to init counter to ref return data in ^TMP (see GETEXSET)
+"RTN","MAGJUTL1",33,0)
+ ; MORE -- Opt, If True, check for additional exams for pt
+"RTN","MAGJUTL1",34,0)
+ ; LIMEXAMS -- Opt, limit # exams to return
+"RTN","MAGJUTL1",35,0)
+ ; Return:
+"RTN","MAGJUTL1",36,0)
+ ; MAGRACNT -- highest counter for return data
+"RTN","MAGJUTL1",37,0)
+ ; MAGRET -- 1/0: exam was/not found
+"RTN","MAGJUTL1",38,0)
+ ; MORE -- more exams exist for pt on & B4 this date
+"RTN","MAGJUTL1",39,0)
+ ; ^TMP -- data returned (see GETEXSET)
+"RTN","MAGJUTL1",40,0)
+ ;
+"RTN","MAGJUTL1",41,0)
+ I '$D(DT) N DIQUIET S DIQUIET=1 D DT^DICRW
+"RTN","MAGJUTL1",42,0)
+ S LIMEXAMS=+$G(LIMEXAMS)
+"RTN","MAGJUTL1",43,0)
+ S:$G(BEGDT)="" BEGDT=2010101 S:$G(ENDT)="" ENDT=DT ; default all dates
+"RTN","MAGJUTL1",44,0)
+ N MORECHK S MORECHK=+$G(MORE)
+"RTN","MAGJUTL1",45,0)
+ S MAGRACNT=+$G(MAGRACNT),MAGRET=0,MORE=0 ; Init return data
+"RTN","MAGJUTL1",46,0)
+ I BEGDT>ENDT S X=ENDT,ENDT=BEGDT,BEGDT=X
+"RTN","MAGJUTL1",47,0)
+ I '(DFN&BEGDT&ENDT) Q
+"RTN","MAGJUTL1",48,0)
+ K ^TMP($J,"RAE1") D EN1^RAO7PC1(DFN,BEGDT,ENDT,LIMEXAMS)
+"RTN","MAGJUTL1",49,0)
+ N EXID,TMP,EX1,EX2 S EXID=0
+"RTN","MAGJUTL1",50,0)
+ F MAGRET=0:1 S EXID=$O(^TMP($J,"RAE1",DFN,EXID)) Q:'EXID S TMP($P(EXID,"-"),$P(EXID,"-",2))=EXID
+"RTN","MAGJUTL1",51,0)
+ S (EX1,EX2)=""
+"RTN","MAGJUTL1",52,0)
+ F S EX1=$O(TMP(EX1)) Q:'EX1 F S EX2=$O(TMP(EX1,EX2)) Q:'EX2 D GETEXSET(DFN,TMP(EX1,EX2),"")
+"RTN","MAGJUTL1",53,0)
+ K ^TMP($J,"RAE1")
+"RTN","MAGJUTL1",54,0)
+ I 'MORECHK Q ; all done; else indicate if pt has more exams
+"RTN","MAGJUTL1",55,0)
+ N DTI,CNI,STS,DTCHK
+"RTN","MAGJUTL1",56,0)
+ I 'MAGRET S DTI=9999999.9999-BEGDT,CNI=0 ; no exam found in orig dt range
+"RTN","MAGJUTL1",57,0)
+ E S X=^TMP($J,"MAGRAEX",MAGRACNT,1),DTI=$P(X,U,2),CNI=$P(X,U,3) ; last exam processed
+"RTN","MAGJUTL1",58,0)
+ ; loop thru addl exams til find one that is NOT Cancelled
+"RTN","MAGJUTL1",59,0)
+MORE1 F S CNI=$O(^RADPT(DFN,"DT",DTI,"P",CNI)) Q:'CNI S STS=$P($G(^(CNI,0)),U,3) I STS]"" D Q:MORE
+"RTN","MAGJUTL1",60,0)
+ . Q:($P($G(^RA(72,STS,0)),U,3)=0) ; Canceled--keep looking
+"RTN","MAGJUTL1",61,0)
+ . S DTCHK=9999999.9999-DTI D EN1^RAO7PC1(DFN,DTCHK,DTCHK,1) ; verify there is at least one "good" exam for this date (Remedy #200480)
+"RTN","MAGJUTL1",62,0)
+ . I +$O(^TMP($J,"RAE1",DFN,0)) S MORE=1
+"RTN","MAGJUTL1",63,0)
+ . K ^TMP($J,"RAE1")
+"RTN","MAGJUTL1",64,0)
+ I 'MORE S DTI=$O(^RADPT(DFN,"DT",DTI)),CNI=0 G MORE1:DTI
+"RTN","MAGJUTL1",65,0)
+ I MORE S MORE=9999999.9999-DTI\1
+"RTN","MAGJUTL1",66,0)
+ Q
+"RTN","MAGJUTL1",67,0)
+ ;
+"RTN","MAGJUTL1",68,0)
+GETEXAM2(DFN,DTI,CNI,MAGRACNT,MAGRET) ; Fetch data for one exam
+"RTN","MAGJUTL1",69,0)
+ ;Input:
+"RTN","MAGJUTL1",70,0)
+ ; DFN -- Pt DFN
+"RTN","MAGJUTL1",71,0)
+ ; DTI -- Internal Date pointer to Rad exam
+"RTN","MAGJUTL1",72,0)
+ ; CNI -- Case pointer to Rad exam
+"RTN","MAGJUTL1",73,0)
+ ; MAGRACNT -- Opt, pass by ref to init counter for return data in ^TMP (see GETEXSET)
+"RTN","MAGJUTL1",74,0)
+ ; Return:
+"RTN","MAGJUTL1",75,0)
+ ; MAGRACNT -- highest counter for return data
+"RTN","MAGJUTL1",76,0)
+ ; MAGRET -- 1/0: exam was/not found
+"RTN","MAGJUTL1",77,0)
+ ; ^TMP -- data returned (see GETEXSET)
+"RTN","MAGJUTL1",78,0)
+ ;
+"RTN","MAGJUTL1",79,0)
+ ; This subroutine calls RAO7PC1A directly to fetch exam data
+"RTN","MAGJUTL1",80,0)
+ ; which is returned in ^TMP($J,"RAE1",DFN,DTI_"-"_CNI).
+"RTN","MAGJUTL1",81,0)
+ ; RAO7PC1A currently returns ALL exams filed under one DTI,
+"RTN","MAGJUTL1",82,0)
+ ; but this subroutine returns the single exam for the input DTI, CNI
+"RTN","MAGJUTL1",83,0)
+ ;
+"RTN","MAGJUTL1",84,0)
+ N RADFN,RACNT,RAIBDT,RAEXN,RAXIT ; Vars input to RAO7PC1A
+"RTN","MAGJUTL1",85,0)
+ S RADFN=DFN,RACNT=0,RAIBDT=DTI,RAEXN=0,RAXIT=0
+"RTN","MAGJUTL1",86,0)
+ ; other Vars set by RAO7PC1A:
+"RTN","MAGJUTL1",87,0)
+ N RABNOR,RACSE,RADIAG,RANO,RAPRC,RAREX,RARPT,RARPTST,RASTNM,RAXAM,RAXID
+"RTN","MAGJUTL1",88,0)
+ N RABNORMR,RACPT
+"RTN","MAGJUTL1",89,0)
+ S MAGRACNT=+$G(MAGRACNT)
+"RTN","MAGJUTL1",90,0)
+ K ^TMP($J,"RAE1") D SETDATA^RAO7PC1A
+"RTN","MAGJUTL1",91,0)
+ S MAGRET=RACNT Q:'RACNT ; no exams found
+"RTN","MAGJUTL1",92,0)
+ D GETEXSET(DFN,DTI_"-"_CNI,.X)
+"RTN","MAGJUTL1",93,0)
+ I 'X S MAGRET=0 ; no exam for this CNI
+"RTN","MAGJUTL1",94,0)
+ K ^TMP($J,"RAE1")
+"RTN","MAGJUTL1",95,0)
+ Q
+"RTN","MAGJUTL1",96,0)
+ ;
+"RTN","MAGJUTL1",97,0)
+GETEXSET(RADFN,EXID,MAGRET) ;
+"RTN","MAGJUTL1",98,0)
+ ; Used by GETEXAM* subroutines above to set up rad data for vrad
+"RTN","MAGJUTL1",99,0)
+ ; Input:
+"RTN","MAGJUTL1",100,0)
+ ; RADFN -- Pt DFN
+"RTN","MAGJUTL1",101,0)
+ ; EXID --- RADTI_"-"_RACNI, pointers to Rad exam
+"RTN","MAGJUTL1",102,0)
+ ; Output:
+"RTN","MAGJUTL1",103,0)
+ ; MAGRET- 1/0: an exam was/was not filed
+"RTN","MAGJUTL1",104,0)
+ ; ^TMP($J,"MAGRAEX",MAGRACNT)=Data String (see code at end)
+"RTN","MAGJUTL1",105,0)
+ ; MAGRACNT described in above subroutines
+"RTN","MAGJUTL1",106,0)
+ ;
+"RTN","MAGJUTL1",107,0)
+ N RACN,RACNI,RADATA,RADATE,RADTE,RADTI,RADTPRT,RAELOC,RANME
+"RTN","MAGJUTL1",108,0)
+ N RAPRC,RARPT,RASSN,RAST,RASTORD,RASTP,RASTNM,RACPT,IMTYPABB,PROCMOD
+"RTN","MAGJUTL1",109,0)
+ N DAYCASE,REQLOC,REQLOCN,REQLOCA,REQLOCT,RIST,RIST1,RIST2,COMPLIC
+"RTN","MAGJUTL1",110,0)
+ N RADIV,RISTISME,REQWARD,RASTCAT,CPTMOD,LRFLAG,MODTXT,LONGACN,TECH
+"RTN","MAGJUTL1",111,0)
+ N MEDS,RDIOPHARM
+"RTN","MAGJUTL1",112,0)
+ S MAGRET=0,RADTI=$P(EXID,"-"),RACNI=$P(EXID,"-",2)
+"RTN","MAGJUTL1",113,0)
+ Q:'(RADTI&RACNI)
+"RTN","MAGJUTL1",114,0)
+ S RADIV=""
+"RTN","MAGJUTL1",115,0)
+ S RADATA=$G(^TMP($J,"RAE1",RADFN,EXID))
+"RTN","MAGJUTL1",116,0)
+ Q:RADATA="" ; no exam for this EXID
+"RTN","MAGJUTL1",117,0)
+ S RARPT=$P(RADATA,U,5)
+"RTN","MAGJUTL1",118,0)
+ S X=$P(RADATA,U,6),RASTORD=$P(X,"~"),RASTNM=$P(X,"~",2)
+"RTN","MAGJUTL1",119,0)
+ S X=^RADPT(RADFN,"DT",RADTI,"P",RACNI,0),COMPLIC=$D(^("COMP")),PROCMOD=$D(^("M")),CPTMOD=$D(^("CMOD")),TECH=$D(^("TC")),MEDS=$D(^("RX")) ; ICR #1172 (Private)
+"RTN","MAGJUTL1",120,0)
+ S RAST=$P(X,U,3),REQLOC=$P(X,U,22),RIST1=$P(X,U,12),RIST2=$P(X,U,15),COMPLIC=$P(X,U,16)_"~"_COMPLIC
+"RTN","MAGJUTL1",121,0)
+ S REQWARD=$P(X,U,6),LONGACN=$P(X,U,31),RDIOPHARM=$P(X,U,28) ; ICR #1172 (Private)
+"RTN","MAGJUTL1",122,0)
+ N CT,MODS,IEN,TT ; Process Proc/CPT Modifier info
+"RTN","MAGJUTL1",123,0)
+ S CT=0
+"RTN","MAGJUTL1",124,0)
+ I PROCMOD D
+"RTN","MAGJUTL1",125,0)
+ . S IEN=0
+"RTN","MAGJUTL1",126,0)
+ . F S IEN=$O(^RADPT(RADFN,"DT",RADTI,"P",RACNI,"M",IEN)) Q:'IEN S X=$P($G(^(IEN,0)),U) I X D
+"RTN","MAGJUTL1",127,0)
+ . . S X=$P($G(^RAMIS(71.2,X,0)),U) Q:X="" S X=$$TRIM(X)
+"RTN","MAGJUTL1",128,0)
+ . . S X=$S(X="BILATERAL EXAM":"BILAT",1:X)
+"RTN","MAGJUTL1",129,0)
+ . . S CT=CT+1,MODS(CT)=X
+"RTN","MAGJUTL1",130,0)
+ I CPTMOD D
+"RTN","MAGJUTL1",131,0)
+ . S IEN=0
+"RTN","MAGJUTL1",132,0)
+ . F S IEN=$O(^RADPT(RADFN,"DT",RADTI,"P",RACNI,"CMOD",IEN)) Q:'IEN S X=$P($G(^(IEN,0)),U) I X D
+"RTN","MAGJUTL1",133,0)
+ . . S X=$P($$MOD^ICPTMOD(X,"I"),U,3) Q:X="" S X=$$TRIM(X)
+"RTN","MAGJUTL1",134,0)
+ . . S X=$S(X="LEFT SIDE":"LEFT",X="RIGHT SIDE":"RIGHT",X="BILATERAL PROCEDURE":"BILAT",1:X)
+"RTN","MAGJUTL1",135,0)
+ . . S CT=CT+1,MODS(CT)=X
+"RTN","MAGJUTL1",136,0)
+ S MODTXT="",LRFLAG=0 K TT
+"RTN","MAGJUTL1",137,0)
+ I CT F I=1:1:CT S X=MODS(I) D
+"RTN","MAGJUTL1",138,0)
+ . ; eliminate redundant values for L/R/Bilat (TT), & track L/R for prior matching (LRFLAG)
+"RTN","MAGJUTL1",139,0)
+ . S T=(X="LEFT") I T,$D(TT(1)) Q ; already got it
+"RTN","MAGJUTL1",140,0)
+ . I 'T S T=(X="RIGHT") I T S T=2 I T,$D(TT(2)) Q ; ditto
+"RTN","MAGJUTL1",141,0)
+ . I 'T S T=(X="BILAT") I T S T=3 I T,$D(TT(3)) Q ; ditto
+"RTN","MAGJUTL1",142,0)
+ . I T S TT(T)="",MODTXT=X_$S(MODTXT="":"",1:";")_MODTXT ; force L/R/Bilat to left end of string ..
+"RTN","MAGJUTL1",143,0)
+ . E S MODTXT=MODTXT_$S(MODTXT="":"",1:";")_X ; .. so is easier to spot in displayed column
+"RTN","MAGJUTL1",144,0)
+ . I 'LRFLAG S:T LRFLAG=T
+"RTN","MAGJUTL1",145,0)
+ . E I T S:(LRFLAG'=T) LRFLAG=3 ; L&R or Bilat--ignore result
+"RTN","MAGJUTL1",146,0)
+ S LRFLAG=$S(LRFLAG=1:"L",LRFLAG=2:"R",1:"") ; Left/Right indicator
+"RTN","MAGJUTL1",147,0)
+ I 'TECH S TECH=""
+"RTN","MAGJUTL1",148,0)
+ E D
+"RTN","MAGJUTL1",149,0)
+ . S IEN=0,TECH="" N T
+"RTN","MAGJUTL1",150,0)
+ . F S IEN=$O(^RADPT(RADFN,"DT",RADTI,"P",RACNI,"TC",IEN)) Q:'IEN S X=$P($G(^(IEN,0)),U) I X S T(X)=""
+"RTN","MAGJUTL1",151,0)
+ . I $D(T) S T="" F S T=$O(T(T)) Q:T="" S X=$P($G(^VA(200,T,0)),U,2) I X]"" S TECH=TECH_$S(TECH="":"",1:"~")_X
+"RTN","MAGJUTL1",152,0)
+ S RADIV=$P(^RADPT(RADFN,"DT",RADTI,0),U,3)
+"RTN","MAGJUTL1",153,0)
+ K DIC,DR,DA,DIQ
+"RTN","MAGJUTL1",154,0)
+ I 'REQLOC S (REQLOCN,REQLOCT,REQLOCA)=""
+"RTN","MAGJUTL1",155,0)
+ E D
+"RTN","MAGJUTL1",156,0)
+ . S X=$G(^SC(REQLOC,0)),REQLOCN=$P(X,U),REQLOCA=$P(X,U,2)
+"RTN","MAGJUTL1",157,0)
+ . S:REQLOCA="" REQLOCA=REQLOCN
+"RTN","MAGJUTL1",158,0)
+ . S DIC="44",DR="2",DA=REQLOC,DIQ="REQLOCT" D EN^DIQ1 K DIC,DR,DA,DIQ
+"RTN","MAGJUTL1",159,0)
+ . S REQLOCT=REQLOCT(44,REQLOC,2)
+"RTN","MAGJUTL1",160,0)
+ I REQWARD]"" S DIC="42",DR=".01",DA=REQWARD,DIQ="REQWARD" D EN^DIQ1 K DIC,DR,DA,DIQ S REQWARD=REQWARD(42,REQWARD,.01)
+"RTN","MAGJUTL1",161,0)
+ S X=$$RIST(RIST1,RIST2),RIST=$P(X,U),RISTISME=$P(X,U,2)
+"RTN","MAGJUTL1",162,0)
+ S RADTE=9999999.9999-RADTI,(RADTPRT,Y)=RADTE D D^RAUTL S RADATE=Y
+"RTN","MAGJUTL1",163,0)
+ S RADTPRT=$E(RADTPRT,4,5)_"/"_$E(RADTPRT,6,7)_"/"_$E(RADTPRT,2,3)
+"RTN","MAGJUTL1",164,0)
+ S RAPRC=$E($P(RADATA,U),1,40),RACN=$P(RADATA,U,2),RAELOC=$P(RADATA,U,7)
+"RTN","MAGJUTL1",165,0)
+ S IMTYPABB=$P($P(RADATA,U,8),"~"),RACPT=$P(RADATA,U,10)
+"RTN","MAGJUTL1",166,0)
+ S DAYCASE=$E(RADTE,4,7)_$E(RADTE,2,3)_"-"_RACN
+"RTN","MAGJUTL1",167,0)
+ I LONGACN]"" S DAYCASE=LONGACN
+"RTN","MAGJUTL1",168,0)
+ S RASTP=RASTNM,RASTCAT=""
+"RTN","MAGJUTL1",169,0)
+ I RAST S RASTCAT=$P($G(^RA(72,RAST,0)),U,9)
+"RTN","MAGJUTL1",170,0)
+ S RANME=$P(^DPT(RADFN,0),U)
+"RTN","MAGJUTL1",171,0)
+ S DFN=RADFN D PID^VADPT6 S RASSN=$S(VAERR:"Unknown",1:VA("PID"))
+"RTN","MAGJUTL1",172,0)
+ K VA("PID"),VA("BID"),VAERR
+"RTN","MAGJUTL1",173,0)
+ S MAGRACNT=$G(MAGRACNT)+1
+"RTN","MAGJUTL1",174,0)
+ I MAGRACNT=1 K ^TMP($J,"MAGRAEX")
+"RTN","MAGJUTL1",175,0)
+ S ^TMP($J,"MAGRAEX",MAGRACNT,1)=RADFN_U_RADTI_U_RACNI_U_$E(RANME,1,30)_U_RASSN_U_RADATE_U_RADTE_U_RACN_U_$E(RAPRC,1,35)_U_RARPT_U_RAST_U_DAYCASE_U_RAELOC_U_RASTP_U_RASTORD_U_RADTPRT_U_RACPT_U_IMTYPABB
+"RTN","MAGJUTL1",176,0)
+ S ^TMP($J,"MAGRAEX",MAGRACNT,2)=REQLOCA_U_$E(REQLOCN,1,25)_U_RIST_U_COMPLIC_U_RADIV_U_$P($$IMGSIT(RADIV),U,2)_U_RISTISME_U_MODTXT_U_REQLOCT_U_REQWARD_U_RASTCAT_U_LRFLAG_U_TECH_U_MEDS_U_RDIOPHARM
+"RTN","MAGJUTL1",177,0)
+ S MAGRET=1
+"RTN","MAGJUTL1",178,0)
+ Q
+"RTN","MAGJUTL1",179,0)
+ ;
+"RTN","MAGJUTL1",180,0)
+RIST(RIST1,RIST2) ; return Interp Radiologist info
+"RTN","MAGJUTL1",181,0)
+ S RIST1=$G(RIST1),RIST2=$G(RIST2)
+"RTN","MAGJUTL1",182,0)
+ N RIST,RISTISME
+"RTN","MAGJUTL1",183,0)
+ S (RIST,RISTISME)=""
+"RTN","MAGJUTL1",184,0)
+ I RIST1!RIST2 D
+"RTN","MAGJUTL1",185,0)
+ . I RIST1 S RISTISME=RIST1 S RIST=$$USERINF^MAGJUTL3(RIST1,1)
+"RTN","MAGJUTL1",186,0)
+ . I RIST2 S RISTISME=$S('RISTISME:RIST2,1:RISTISME_"~"_RIST2) S RIST2=$$USERINF^MAGJUTL3(RIST2,1)
+"RTN","MAGJUTL1",187,0)
+ . I RIST]"" S RIST=RIST_$S(RIST2]"":"/"_RIST2,1:"")
+"RTN","MAGJUTL1",188,0)
+ . E S RIST=RIST2
+"RTN","MAGJUTL1",189,0)
+ Q RIST_U_RISTISME
+"RTN","MAGJUTL1",190,0)
+ ;
+"RTN","MAGJUTL1",191,0)
+IMGSIT(DIV,DFLT) ; Return Imaging Site code for input Division
+"RTN","MAGJUTL1",192,0)
+ ; From 2006.1: IEN ^ Site Code ^ Parent_DIV
+"RTN","MAGJUTL1",193,0)
+ I DIV]"" D
+"RTN","MAGJUTL1",194,0)
+ . N IEN I $D(^MAG(2006.1,"B",DIV)) S IEN=$O(^(DIV,"")) I IEN
+"RTN","MAGJUTL1",195,0)
+ . E I $G(DFLT) S IEN=$O(^MAG(2006.1,0)) ; Dflt to 1st if requested
+"RTN","MAGJUTL1",196,0)
+ . E S X="" Q
+"RTN","MAGJUTL1",197,0)
+ . S X=^MAG(2006.1,IEN,0),X=IEN_U_$P(X,U,9)_U_$P(X,U)
+"RTN","MAGJUTL1",198,0)
+ Q X
+"RTN","MAGJUTL1",199,0)
+ ;
+"RTN","MAGJUTL1",200,0)
+TRIM(X) ; Trim trailing spaces from X
+"RTN","MAGJUTL1",201,0)
+ I $G(X)]"" D
+"RTN","MAGJUTL1",202,0)
+ . F I=$L(X):-1:0 I $E(X,I)'=" " Q
+"RTN","MAGJUTL1",203,0)
+ . I I S X=$E(X,1,I)
+"RTN","MAGJUTL1",204,0)
+ . E S X=""
+"RTN","MAGJUTL1",205,0)
+ Q:$Q X Q
+"RTN","MAGJUTL1",206,0)
+ ;
+"RTN","MAGJUTL1",207,0)
+END Q ;
+"RTN","MAGJUTL3")
+0^7^B139481284
+"RTN","MAGJUTL3",1,0)
+MAGJUTL3 ;WIRMFO/JHC - VistARad subrtns & RPCs ; 29 Mar 2013 5:02 PM
+"RTN","MAGJUTL3",2,0)
+ ;;3.0;IMAGING;**16,9,22,18,65,76,101,90,120,133**;Mar 19, 2002;Build 5393;Sep 09, 2013
+"RTN","MAGJUTL3",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGJUTL3",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJUTL3",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGJUTL3",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGJUTL3",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGJUTL3",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGJUTL3",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGJUTL3",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGJUTL3",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGJUTL3",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGJUTL3",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGJUTL3",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGJUTL3",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGJUTL3",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJUTL3",17,0)
+ ;;
+"RTN","MAGJUTL3",18,0)
+ Q
+"RTN","MAGJUTL3",19,0)
+ ;RPC Entry points:
+"RTN","MAGJUTL3",20,0)
+ ; LISTINF--Custom list info
+"RTN","MAGJUTL3",21,0)
+ ; LOGOFF--update session file
+"RTN","MAGJUTL3",22,0)
+ ; CACHEQ--init session data
+"RTN","MAGJUTL3",23,0)
+ ; PINF1--Patient info
+"RTN","MAGJUTL3",24,0)
+ ; USERINF2--P18 inits for the session
+"RTN","MAGJUTL3",25,0)
+ ;Subrtn EPs:
+"RTN","MAGJUTL3",26,0)
+ ; LOG--Upd image access log
+"RTN","MAGJUTL3",27,0)
+ ; MAGJOBNC--inits for non-client sessions
+"RTN","MAGJUTL3",28,0)
+ ; USERKEYS--user key info
+"RTN","MAGJUTL3",29,0)
+ ; USERINF--user info
+"RTN","MAGJUTL3",30,0)
+ ;
+"RTN","MAGJUTL3",31,0)
+LISTINF(MAGGRY) ; RPC: MAGJ CUSTOM LISTS
+"RTN","MAGJUTL3",32,0)
+ ; get Exam List data
+"RTN","MAGJUTL3",33,0)
+ ; Return in ^TMP($J,"MAGJLSTINF",0:N)
+"RTN","MAGJUTL3",34,0)
+ ; 0)= # Entries below (0:n)
+"RTN","MAGJUTL3",35,0)
+ ; 1:n)= Button Label^List #^Button Hints^List Type
+"RTN","MAGJUTL3",36,0)
+ ;
+"RTN","MAGJUTL3",37,0)
+ ; MAGGRY holds $NA ref to ^TMP for return message
+"RTN","MAGJUTL3",38,0)
+ ; all refs to MAGGRY use SS indirection
+"RTN","MAGJUTL3",39,0)
+ ;
+"RTN","MAGJUTL3",40,0)
+ ; GLB has $NA ref to ^MAG(2006.631), Custom Lists
+"RTN","MAGJUTL3",41,0)
+ ; refs to GLB use SS indirection to get data from this file
+"RTN","MAGJUTL3",42,0)
+ ;
+"RTN","MAGJUTL3",43,0)
+ S X="ERR1^MAGJUTL3",@^%ZOSF("TRAP")
+"RTN","MAGJUTL3",44,0)
+ N D0,GLB,INF,MAGLST,NAM,T
+"RTN","MAGJUTL3",45,0)
+ S MAGLST="MAGJLSTINF"
+"RTN","MAGJUTL3",46,0)
+ K MAGGRY S MAGGRY=$NA(^TMP($J,MAGLST)) K @MAGGRY S @MAGGRY@(0)=0
+"RTN","MAGJUTL3",47,0)
+ S GLB=$NA(^MAG(2006.631)),NAM=""
+"RTN","MAGJUTL3",48,0)
+ F S NAM=$O(@GLB@("B",NAM)) Q:NAM="" S D0="" D
+"RTN","MAGJUTL3",49,0)
+ . S D0=$O(@GLB@("B",NAM,D0)) Q:'D0 D
+"RTN","MAGJUTL3",50,0)
+ . . S X=$G(@GLB@(D0,0)) Q:($P(X,U,2)>9000)!'$P(X,U,6) ; List Active & User-defined
+"RTN","MAGJUTL3",51,0)
+ . . S INF="" F I=1:1 S T=$P("7^2^1^3",U,I) Q:T="" S Y=$P(X,U,T) Q:Y="" S $P(INF,U,I)=Y
+"RTN","MAGJUTL3",52,0)
+ . . Q:T'="" ; req'd fields not all there
+"RTN","MAGJUTL3",53,0)
+ . . S T=@MAGGRY@(0)+1,^(0)=T,^(T)=INF ; add entry to reply
+"RTN","MAGJUTL3",54,0)
+ Q
+"RTN","MAGJUTL3",55,0)
+ ;
+"RTN","MAGJUTL3",56,0)
+LOG(ACTION,LOGDATA,PSETLST) ; Log exam access
+"RTN","MAGJUTL3",57,0)
+ ; ACTION --- Action code string passed in (e.g. VR-VW for vrad view)
+"RTN","MAGJUTL3",58,0)
+ ; LOGDATA - ^-delimited fields--see code immediately below
+"RTN","MAGJUTL3",59,0)
+ ; PSETLST -- For Printset exams, has list of Rad Case Numbers included
+"RTN","MAGJUTL3",60,0)
+ ;
+"RTN","MAGJUTL3",61,0)
+ N PTCT,TXT,RADFN,MAGIEN,NIMGS,REMOTE,PRTSET
+"RTN","MAGJUTL3",62,0)
+ S RADFN=$P(LOGDATA,U),MAGIEN=$P(LOGDATA,U,2),NIMGS=$P(LOGDATA,U,3),REMOTE=$P(LOGDATA,U,4)
+"RTN","MAGJUTL3",63,0)
+ ;
+"RTN","MAGJUTL3",64,0)
+ ; For Printset, append string to TXT
+"RTN","MAGJUTL3",65,0)
+ ; string= "|VR-PRINTSET~"_CaseNum_~x~y ; x = nth; y = total PrtSet members
+"RTN","MAGJUTL3",66,0)
+ ;
+"RTN","MAGJUTL3",67,0)
+ S PSETLST=$G(PSETLST)
+"RTN","MAGJUTL3",68,0)
+ S PRTSET=$L(PSETLST,U)
+"RTN","MAGJUTL3",69,0)
+ I PRTSET>1 D
+"RTN","MAGJUTL3",70,0)
+ . N I,T F I=1:1:PRTSET S T=$P(PSETLST,U,I),T=$P(T,"-",$L(T,"-")),PRTSET(I)="VR-PRINTSET~"_T_"~"_I_"~"_PRTSET
+"RTN","MAGJUTL3",71,0)
+ I ACTION="" S ACTION="UNKNOWN" ; Should never happen
+"RTN","MAGJUTL3",72,0)
+ S PTCT=RADFN'=$G(MAGJOB("LASTPT",ACTION))
+"RTN","MAGJUTL3",73,0)
+ I PTCT S MAGJOB("LASTPT",ACTION)=RADFN
+"RTN","MAGJUTL3",74,0)
+ S TXT=ACTION_U_RADFN_U_MAGIEN_U_U_U_NIMGS
+"RTN","MAGJUTL3",75,0)
+ S TXT=TXT_U_PTCT_U_$S(+MAGJOB("USER",1):1,1:0)_U_REMOTE
+"RTN","MAGJUTL3",76,0)
+ ;
+"RTN","MAGJUTL3",77,0)
+ ;=== Log to Imaging Windows Sessions file (#2006.82).
+"RTN","MAGJUTL3",78,0)
+ ; for PRTSET members 2 to N (prevent double-counting):
+"RTN","MAGJUTL3",79,0)
+ ; set NIMGS = 0
+"RTN","MAGJUTL3",80,0)
+ ; set PTCT to FALSE
+"RTN","MAGJUTL3",81,0)
+ ;
+"RTN","MAGJUTL3",82,0)
+ I PRTSET>1 N I F I=1:1:PRTSET D
+"RTN","MAGJUTL3",83,0)
+ . I I>1 S $P(TXT,U,6)=0,$P(TXT,U,7)=0
+"RTN","MAGJUTL3",84,0)
+ . D ACTION^MAGGTAU(TXT_"|"_PRTSET(I),1)
+"RTN","MAGJUTL3",85,0)
+ E D ACTION^MAGGTAU(TXT,1)
+"RTN","MAGJUTL3",86,0)
+ ;
+"RTN","MAGJUTL3",87,0)
+ ;=== Log to Mag Log
+"RTN","MAGJUTL3",88,0)
+ ; For Printset, add string to new Param-7 prior to calling ENTRY...
+"RTN","MAGJUTL3",89,0)
+ ; string= s/a above, but no pipe char.
+"RTN","MAGJUTL3",90,0)
+ ; for PRTSET members 2 to N set NIMGS = 0 to not double-count
+"RTN","MAGJUTL3",91,0)
+ ;
+"RTN","MAGJUTL3",92,0)
+ I REMOTE S ACTION=ACTION_"/REM"
+"RTN","MAGJUTL3",93,0)
+ I PRTSET>1 N I F I=1:1:PRTSET D
+"RTN","MAGJUTL3",94,0)
+ . I I>1 S NIMGS=0
+"RTN","MAGJUTL3",95,0)
+ . D ENTRY^MAGLOG(ACTION,+DUZ,MAGIEN,"VRAD:"_MAGJOB("VRVERSION"),RADFN,NIMGS,PRTSET(I))
+"RTN","MAGJUTL3",96,0)
+ E D ENTRY^MAGLOG(ACTION,+DUZ,MAGIEN,"VRAD:"_MAGJOB("VRVERSION"),RADFN,NIMGS)
+"RTN","MAGJUTL3",97,0)
+ Q
+"RTN","MAGJUTL3",98,0)
+ ;
+"RTN","MAGJUTL3",99,0)
+LOGOFF(MAGGRY,DATA) ; RPC: MAGJ LOGOFF
+"RTN","MAGJUTL3",100,0)
+ ;
+"RTN","MAGJUTL3",101,0)
+ ;=== Update Imaging Windows Sessions file: logoff time & session entry closed.
+"RTN","MAGJUTL3",102,0)
+ D LOGOFF^MAGGTAU(.MAGGRY)
+"RTN","MAGJUTL3",103,0)
+ Q
+"RTN","MAGJUTL3",104,0)
+ ;
+"RTN","MAGJUTL3",105,0)
+CACHEQ(MAGGRY,DATA) ; RPC: MAGJ CACHELOCATION
+"RTN","MAGJUTL3",106,0)
+ ; some logon inits & get alternate paths for Remote Reading
+"RTN","MAGJUTL3",107,0)
+ ; input in DATA:
+"RTN","MAGJUTL3",108,0)
+ ; - WSLOC = WS Loc'n
+"RTN","MAGJUTL3",109,0)
+ ; - VRADVER = Client Vs -- p32 ONLY
+"RTN","MAGJUTL3",110,0)
+ ; - OSVER = Client OS Vs -- p32 ONLY
+"RTN","MAGJUTL3",111,0)
+ ; Return in ^TMP($J,"MAGJCACHE",0:N) (@MAGGRY)
+"RTN","MAGJUTL3",112,0)
+ ; 0)= # Entries below (0:n)
+"RTN","MAGJUTL3",113,0)
+ ; 1:n)= PhysName^Subdirectory^HashFlag^Username^Password^AltPath_IEN
+"RTN","MAGJUTL3",114,0)
+ ;
+"RTN","MAGJUTL3",115,0)
+ ; MAGGRY holds $NA reference to ^TMP for return message
+"RTN","MAGJUTL3",116,0)
+ ; refs to MAGGRY use SS indirection
+"RTN","MAGJUTL3",117,0)
+ ;
+"RTN","MAGJUTL3",118,0)
+ ; Also builds local array: p32/p18 compatibility: Some of this is moved to userinf2 below
+"RTN","MAGJUTL3",119,0)
+ ; MAGJOB("LOC",NetworkLocnIEN)=Site Abbrev
+"RTN","MAGJUTL3",120,0)
+ ; ("REMOTE")=1/0 (T/F for "User is Remote")
+"RTN","MAGJUTL3",121,0)
+ ; ("REMOTESCREEN")=0/1 (init User-switchable Remote Screening--P18 use only)
+"RTN","MAGJUTL3",122,0)
+ ; ("WSLOC")=WS Loc'n String
+"RTN","MAGJUTL3",123,0)
+ ; ("WSLOCTYP")=WS Loc'n Type
+"RTN","MAGJUTL3",124,0)
+ ; ("WSNAME")=WS ID
+"RTN","MAGJUTL3",125,0)
+ ; ("VRVERSION")=VRAD Vs
+"RTN","MAGJUTL3",126,0)
+ ; ("OSVER")=O/S Vs
+"RTN","MAGJUTL3",127,0)
+ ; ("ALTPATH")=1/0 ^ 1/0 (T/F Alt Paths are defined
+"RTN","MAGJUTL3",128,0)
+ ; ^ Alt Paths Enabled/Disabled for most recent exam)
+"RTN","MAGJUTL3",129,0)
+ ;
+"RTN","MAGJUTL3",130,0)
+ S X="ERR1^MAGJUTL3",@^%ZOSF("TRAP")
+"RTN","MAGJUTL3",131,0)
+ ;
+"RTN","MAGJUTL3",132,0)
+ N I,MAGLST,REPLY,TMP,WSLOC,XX,VRADVER,OSVER,DIQUIET,ALTIEN
+"RTN","MAGJUTL3",133,0)
+ S DIQUIET=1 D DT^DICRW
+"RTN","MAGJUTL3",134,0)
+ S REPLY=0,MAGLST="MAGJCACHE"
+"RTN","MAGJUTL3",135,0)
+ K MAGGRY S MAGGRY=$NA(^TMP($J,MAGLST)) K @MAGGRY
+"RTN","MAGJUTL3",136,0)
+ S WSLOC=$$UPCASE($P(DATA,U)),VRADVER=$P(DATA,U,2),OSVER=$P(DATA,U,3)
+"RTN","MAGJUTL3",137,0)
+ I '$D(MAGJOB("OSVER")) D ; ID p32 initialization
+"RTN","MAGJUTL3",138,0)
+ . S MAGJOB("OSVER")=$S(OSVER]"":OSVER,1:"UNK")
+"RTN","MAGJUTL3",139,0)
+ . S MAGJOB("VRVERSION")=$S(VRADVER]"":VRADVER,1:"UNK")
+"RTN","MAGJUTL3",140,0)
+ . D MAGJOB ; p32 init of VRAD
+"RTN","MAGJUTL3",141,0)
+ ; get alt paths location info
+"RTN","MAGJUTL3",142,0)
+ S MAGJOB("WSLOC")=WSLOC,MAGJOB("REMOTE")=0
+"RTN","MAGJUTL3",143,0)
+ S MAGJOB("REMOTESCREEN")=+$P($G(^MAG(2006.69,1,0)),U,10)
+"RTN","MAGJUTL3",144,0)
+ I WSLOC]"" D
+"RTN","MAGJUTL3",145,0)
+ . S X=$P($G(^MAG(2006.1,+MAGJOB("SITEP"),0)),U,9)
+"RTN","MAGJUTL3",146,0)
+ . I X]"",(X'=WSLOC) S MAGJOB("REMOTE")=1
+"RTN","MAGJUTL3",147,0)
+ . E Q
+"RTN","MAGJUTL3",148,0)
+ . D LIST^MAGBRTLD(WSLOC,.TMP)
+"RTN","MAGJUTL3",149,0)
+ . I TMP S REPLY=TMP,MAGJOB("ALTPATH")=$G(MAGJOB("ALTPATH"),"1^1") F I=1:1:TMP D
+"RTN","MAGJUTL3",150,0)
+ . . S ALTIEN=$P(TMP(I),U,7)
+"RTN","MAGJUTL3",151,0)
+ . . S XX=$P(TMP(I),U,1,5),X=$P(XX,U,3),$P(XX,U,3)=$S(X="Y":1,1:0)
+"RTN","MAGJUTL3",152,0)
+ . . S X=$P(XX,U,4),$P(XX,U,4)=$P(XX,U,5),$P(XX,U,5)=X,$P(XX,U,6)=ALTIEN
+"RTN","MAGJUTL3",153,0)
+ . . S @MAGGRY@(I)=XX,MAGJOB("LOC",ALTIEN)=$P(TMP(I),U,6)
+"RTN","MAGJUTL3",154,0)
+ I '$D(MAGJOB("ALTPATH")) S MAGJOB("ALTPATH")="0^0"
+"RTN","MAGJUTL3",155,0)
+ S @MAGGRY@(0)=REPLY
+"RTN","MAGJUTL3",156,0)
+CACHEQZ Q
+"RTN","MAGJUTL3",157,0)
+ ;
+"RTN","MAGJUTL3",158,0)
+MAGJOBNC ; EP for Prefetch/Bkgnd calls (NOT a Vrad Client)
+"RTN","MAGJUTL3",159,0)
+ N NOTCLIEN S NOTCLIEN=1
+"RTN","MAGJUTL3",160,0)
+ D MAGJOB
+"RTN","MAGJUTL3",161,0)
+ Q
+"RTN","MAGJUTL3",162,0)
+ ;
+"RTN","MAGJUTL3",163,0)
+MAGJOB ; Init magjob array
+"RTN","MAGJUTL3",164,0)
+ N T,RIST
+"RTN","MAGJUTL3",165,0)
+ I $G(MAGJOB("VRVERSION")) S X=MAGJOB("VRVERSION")
+"RTN","MAGJUTL3",166,0)
+ E S X="" ; non-client processes assume post-P32 logic
+"RTN","MAGJUTL3",167,0)
+ S MAGJOB("P32")=(X="3.0.41.17") ; P32 Client?
+"RTN","MAGJUTL3",168,0)
+ I MAGJOB("P32") D P32STOP^MAGJUTL5(.X) S MAGJOB("P32STOP")=X ; STOP support when P76 releases
+"RTN","MAGJUTL3",169,0)
+ D USERKEYS
+"RTN","MAGJUTL3",170,0)
+ S MAGJOB("CONSOLIDATED")=($G(^MAG(2006.1,"CONSOLIDATED"))="YES")
+"RTN","MAGJUTL3",171,0)
+ S MAGJOB("SITEP")=$$IMGSIT^MAGJUTL1(DUZ(2),1) ; Site Param ien
+"RTN","MAGJUTL3",172,0)
+ S RIST="" F X="S","R" I $D(^VA(200,"ARC",X,DUZ)) S RIST=X Q
+"RTN","MAGJUTL3",173,0)
+ S RIST=$S(RIST="S":15,RIST="R":12,1:0) ; Staff/Resident/Non rist
+"RTN","MAGJUTL3",174,0)
+ S MAGJOB("USER",1)=RIST_U_$$USERINF(+DUZ,".01;1") ; RIST_Type^NAME^INI
+"RTN","MAGJUTL3",175,0)
+ S X=$P($G(IO("CLNM")),"."),MAGJOB("WSNAME")=$S(X]"":X,1:"VistaradWS")
+"RTN","MAGJUTL3",176,0)
+ K MAGJOB("DIVSCRN") I MAGJOB("CONSOLIDATED") D
+"RTN","MAGJUTL3",177,0)
+ . ; include logon DIV, other DIVs to screen Unread Lists & Locking
+"RTN","MAGJUTL3",178,0)
+ . I $G(DUZ(2))]"" S MAGJOB("DIVSCRN",DUZ(2))=""
+"RTN","MAGJUTL3",179,0)
+ . S DIV=""
+"RTN","MAGJUTL3",180,0)
+ . I DUZ(2)'=$P(MAGJOB("SITEP"),U,3) D ; Assoc DIV
+"RTN","MAGJUTL3",181,0)
+ . . S IEN=$O(^MAG(2006.1,+MAGJOB("SITEP"),"INSTS","B",DUZ(2),0))
+"RTN","MAGJUTL3",182,0)
+ . . I IEN F S DIV=$O(^MAG(2006.1,+MAGJOB("SITEP"),"INSTS",IEN,201,"B",DIV)) Q:'DIV S MAGJOB("DIVSCRN",DIV)=""
+"RTN","MAGJUTL3",183,0)
+ . E D ; Parent DIV
+"RTN","MAGJUTL3",184,0)
+ . . F S DIV=$O(^MAG(2006.1,+MAGJOB("SITEP"),201,"B",DIV)) Q:'DIV S MAGJOB("DIVSCRN",DIV)=""
+"RTN","MAGJUTL3",185,0)
+ S MAGJOB("WSLOCTYP")=$S(+MAGJOB("USER",1):"RAD",1:"Non-Rad") ; USer is Rist/Not
+"RTN","MAGJUTL3",186,0)
+ I '$D(MAGJOB("WRKSIEN")) D
+"RTN","MAGJUTL3",187,0)
+ . Q:+$G(NOTCLIEN) ; proceed only if Vrad Client is attached
+"RTN","MAGJUTL3",188,0)
+ . S X=MAGJOB("WSNAME")
+"RTN","MAGJUTL3",189,0)
+ . S $P(X,U,4)=MAGJOB("WSLOCTYP")
+"RTN","MAGJUTL3",190,0)
+ . S $P(X,U,8)=1 ; StartupMode=Normal.
+"RTN","MAGJUTL3",191,0)
+ . S $P(X,U,9)=MAGJOB("OSVER")
+"RTN","MAGJUTL3",192,0)
+ . S $P(X,U,10)=MAGJOB("VRVERSION")
+"RTN","MAGJUTL3",193,0)
+ . S $P(X,U,17)=MAGJOB("VRBLDDTTM")
+"RTN","MAGJUTL3",194,0)
+ . D UPD^MAGGTAU(.Y,X)
+"RTN","MAGJUTL3",195,0)
+ . D REMLOCK^MAGJEX1B ; put here to only run 1x/ login
+"RTN","MAGJUTL3",196,0)
+ Q
+"RTN","MAGJUTL3",197,0)
+ ;
+"RTN","MAGJUTL3",198,0)
+USERINF(DUZ,FLDS) ; get data from user file
+"RTN","MAGJUTL3",199,0)
+ I FLDS=""!'DUZ Q ""
+"RTN","MAGJUTL3",200,0)
+ N I,RSL,T S RSL=""
+"RTN","MAGJUTL3",201,0)
+ D GETS^DIQ(200,+DUZ,FLDS,"E","T")
+"RTN","MAGJUTL3",202,0)
+ S T=+DUZ_","
+"RTN","MAGJUTL3",203,0)
+ F I=1:1:$L(FLDS,";") S RSL=RSL_$S(RSL="":"",1:U)_T(200,T,$P(FLDS,";",I),"E")
+"RTN","MAGJUTL3",204,0)
+ Q RSL
+"RTN","MAGJUTL3",205,0)
+ ;
+"RTN","MAGJUTL3",206,0)
+USERKEYS ; Store Security Keys in MagJob
+"RTN","MAGJUTL3",207,0)
+ N I,X,Y
+"RTN","MAGJUTL3",208,0)
+ N MAGKS ; keys to send to XUS KEY CHECK
+"RTN","MAGJUTL3",209,0)
+ N MAGKG ; returned
+"RTN","MAGJUTL3",210,0)
+ K MAGJOB("KEYS")
+"RTN","MAGJUTL3",211,0)
+ S X="MAGJ",I=0
+"RTN","MAGJUTL3",212,0)
+ F S X=$O(^XUSEC(X)) Q:$E(X,1,4)'="MAGJ" D
+"RTN","MAGJUTL3",213,0)
+ . S I=I+1,MAGKS(I)=X
+"RTN","MAGJUTL3",214,0)
+ I '$D(MAGKS) Q
+"RTN","MAGJUTL3",215,0)
+ D OWNSKEY^XUSRB(.MAGKG,.MAGKS)
+"RTN","MAGJUTL3",216,0)
+ S I=0 F S I=$O(MAGKG(I)) Q:'I I MAGKG(I) S MAGJOB("KEYS",MAGKS(I))=""
+"RTN","MAGJUTL3",217,0)
+ Q
+"RTN","MAGJUTL3",218,0)
+ ;
+"RTN","MAGJUTL3",219,0)
+PINF1(MAGGRY,MAGDFN) ;RPC Call MAGJ PT INFO -- Get pt info
+"RTN","MAGJUTL3",220,0)
+ N AGE,DFN,DOB,MAGSSN,X
+"RTN","MAGJUTL3",221,0)
+ S X="ERR3^MAGJUTL3",@^%ZOSF("TRAP")
+"RTN","MAGJUTL3",222,0)
+ S (AGE,MAGSSN)=""
+"RTN","MAGJUTL3",223,0)
+ D INFO^MAGGTPT1(.MAGGRY,MAGDFN_"^1^^^1") ; 1=Don't log to session file; 4-digit yr
+"RTN","MAGJUTL3",224,0)
+ I +MAGGRY D
+"RTN","MAGJUTL3",225,0)
+ . ; calculate Age & SSN/MRN display strings
+"RTN","MAGJUTL3",226,0)
+ . S DOB=$P(MAGGRY,U,5)
+"RTN","MAGJUTL3",227,0)
+ . I DOB D DT^DILF("",DOB,.X,"") S AGE=$$AGECALC(X)
+"RTN","MAGJUTL3",228,0)
+ . S DFN=MAGDFN D PID^VADPT6 S MAGSSN=$S(VAERR:"Unknown",1:VA("PID")) ; IA #10062 (Supported)
+"RTN","MAGJUTL3",229,0)
+ . K VA("PID"),VA("BID"),VAERR
+"RTN","MAGJUTL3",230,0)
+ S MAGGRY=MAGGRY_"|"_AGE_U_MAGSSN
+"RTN","MAGJUTL3",231,0)
+ Q
+"RTN","MAGJUTL3",232,0)
+ ;
+"RTN","MAGJUTL3",233,0)
+AGECALC(DOB) ; calculate age from DOB til now
+"RTN","MAGJUTL3",234,0)
+ ; format for age-appropriate display
+"RTN","MAGJUTL3",235,0)
+ ; Input DOB in Fileman format
+"RTN","MAGJUTL3",236,0)
+ ; Note: assumes a previously validated date is passed in
+"RTN","MAGJUTL3",237,0)
+ N AGE,NDAYS,X,X1,X2
+"RTN","MAGJUTL3",238,0)
+ S AGE="unknown"
+"RTN","MAGJUTL3",239,0)
+ I DOB?7N1"."0.N S DOB=$E(DOB,1,7) ; strip off time value
+"RTN","MAGJUTL3",240,0)
+ I DOB?7N D
+"RTN","MAGJUTL3",241,0)
+ . D NOW^%DTC S X1=X K %I
+"RTN","MAGJUTL3",242,0)
+ . s X2=DOB D ^%DTC S NDAYS=X
+"RTN","MAGJUTL3",243,0)
+ . I NDAYS<0 Q ; * Invalid DOB later than today --> Unknown
+"RTN","MAGJUTL3",244,0)
+ . I NDAYS<32 S AGE=NDAYS_"d" Q ; days
+"RTN","MAGJUTL3",245,0)
+ . I NDAYS<365 S AGE=$J(NDAYS\30.5,0,0)_"m" Q ; months
+"RTN","MAGJUTL3",246,0)
+ . I NDAYS=365 S AGE="1y 0m" Q ; special case
+"RTN","MAGJUTL3",247,0)
+ . S AGE=NDAYS\365.25_"y" ; years
+"RTN","MAGJUTL3",248,0)
+ . I AGE<16 S AGE=AGE_" "_(($J(NDAYS#365.25,0,0))\30.5)_"m" Q ; years & months
+"RTN","MAGJUTL3",249,0)
+ Q AGE
+"RTN","MAGJUTL3",250,0)
+ ;
+"RTN","MAGJUTL3",251,0)
+ ;+++++ INITIALIZE SESSION (VERSION CHK, DISPLAY RES CHK, COLLECT USER INFO).
+"RTN","MAGJUTL3",252,0)
+ ; RPC: MAGJ USER2
+"RTN","MAGJUTL3",253,0)
+ ;
+"RTN","MAGJUTL3",254,0)
+ ; MAGGRY Reference to a variable naming the global to store returned data
+"RTN","MAGJUTL3",255,0)
+ ;
+"RTN","MAGJUTL3",256,0)
+ ; DATA Information about the client and its workstation.
+"RTN","MAGJUTL3",257,0)
+ ; ^01: MAMMORES -- Screen resolution of main viewer display:
+"RTN","MAGJUTL3",258,0)
+ ;
+"RTN","MAGJUTL3",259,0)
+ ; format is X_"x"_Y_","_ColorType (e.g., 2048x2580,GRAY)
+"RTN","MAGJUTL3",260,0)
+ ; where X,Y are resolutions & ColorType={GRAY, COLOR}.
+"RTN","MAGJUTL3",261,0)
+ ;
+"RTN","MAGJUTL3",262,0)
+ ; ^02: Client Vs ....... Client software version for checking.
+"RTN","MAGJUTL3",263,0)
+ ; ^03: Client O/S Vs ... Client OS version for logging.
+"RTN","MAGJUTL3",264,0)
+ ; ^04: ClientBuildDayTime ..... for logging.
+"RTN","MAGJUTL3",265,0)
+ ;
+"RTN","MAGJUTL3",266,0)
+ ; Return Values
+"RTN","MAGJUTL3",267,0)
+ ; =============
+"RTN","MAGJUTL3",268,0)
+ ;
+"RTN","MAGJUTL3",269,0)
+ ; ^(0)
+"RTN","MAGJUTL3",270,0)
+ ; |01
+"RTN","MAGJUTL3",271,0)
+ ; ^01: 1/0 -- Success/Fail flag for version check.
+"RTN","MAGJUTL3",272,0)
+ ; ^02:
+"RTN","MAGJUTL3",273,0)
+ ; ~01: code ... 4=fail.
+"RTN","MAGJUTL3",274,0)
+ ; ~02: Msg .... Message to display if fail.
+"RTN","MAGJUTL3",275,0)
+ ; |02
+"RTN","MAGJUTL3",276,0)
+ ; ^01: DUZ
+"RTN","MAGJUTL3",277,0)
+ ; ^02: NAME
+"RTN","MAGJUTL3",278,0)
+ ; ^03: INITIALS
+"RTN","MAGJUTL3",279,0)
+ ; ^04: REQFLAG .... 1/0 Enable/Disable Requisition for non-rad staff
+"RTN","MAGJUTL3",280,0)
+ ; ^05: SVERSION ... VistARad Server Version
+"RTN","MAGJUTL3",281,0)
+ ; ---- Patch MAG*3*101 ----
+"RTN","MAGJUTL3",282,0)
+ ; ^06: DICTPREF ... 1/0 ENA DICT PREF-YES ALL LOCKED (File 2006.69,13)
+"RTN","MAGJUTL3",283,0)
+ ; ---- Patch MAG*3*90 ----
+"RTN","MAGJUTL3",284,0)
+ ; ^07: SSN
+"RTN","MAGJUTL3",285,0)
+ ; ^08: UserLocalStationNumber
+"RTN","MAGJUTL3",286,0)
+ ; ^09: LocalPrimaryDivision
+"RTN","MAGJUTL3",287,0)
+ ; ^10: PrimarySiteStationNumber
+"RTN","MAGJUTL3",288,0)
+ ; ^11: SiteServiceURL
+"RTN","MAGJUTL3",289,0)
+ ; ^12: SiteCode
+"RTN","MAGJUTL3",290,0)
+ ; ^(1)
+"RTN","MAGJUTL3",291,0)
+ ; ^01: UserName ... Network UserName
+"RTN","MAGJUTL3",292,0)
+ ; ^02: PSW ........ Network Password
+"RTN","MAGJUTL3",293,0)
+ ; ^03: UserType ... 3=Staff R'ist, 2=Resident R'ist, 1=Rad Tech, 0=Non-Rad
+"RTN","MAGJUTL3",294,0)
+ ; ^04: SYSADMIN ... 1/0 1=user has System User privileges
+"RTN","MAGJUTL3",295,0)
+ ; ^05: Production account? 1/0 1=yes
+"RTN","MAGJUTL3",296,0)
+ ;
+"RTN","MAGJUTL3",297,0)
+ ; ^(2:N) Security Keys
+"RTN","MAGJUTL3",298,0)
+ ; ^(N+1:M) Mammography display message data
+"RTN","MAGJUTL3",299,0)
+ ;
+"RTN","MAGJUTL3",300,0)
+USERINF2(MAGGRY,DATA) ; RPC: MAGJ USER2--get user info
+"RTN","MAGJUTL3",301,0)
+ S X="ERR2^MAGJUTL3",@^%ZOSF("TRAP")
+"RTN","MAGJUTL3",302,0)
+ K MAGGRY S MAGGRY(0)="",MAGGRY(1)=""
+"RTN","MAGJUTL3",303,0)
+ I +$G(DUZ)=0 S MAGGRY(0)="0^4~DUZ Undefined, Null or Zero|" Q
+"RTN","MAGJUTL3",304,0)
+ N I,J,K,Y,REQFLAG,VRADVER,OSVER,RADTECH,PLACE,REPLY,DICTPREF,MAMMORES,ICNT,MSG
+"RTN","MAGJUTL3",305,0)
+ S MAMMORES=$P(DATA,U),VRADVER=$P(DATA,U,2),OSVER=$P(DATA,U,3)
+"RTN","MAGJUTL3",306,0)
+ D CHKVER^MAGJUTL5(.REPLY,VRADVER,.PLACE,.SVERSION)
+"RTN","MAGJUTL3",307,0)
+ I 'REPLY S MAGGRY(0)=REPLY_"|^^^^",MAGGRY(1)="^^^" G USERIN2Z ; Version check or PLACE failed
+"RTN","MAGJUTL3",308,0)
+ S RADTECH=""
+"RTN","MAGJUTL3",309,0)
+ S MAGJOB("OSVER")=$S(OSVER]"":OSVER,1:"UNK") ; IDs P18 initialization; cf cacheq ep above
+"RTN","MAGJUTL3",310,0)
+ S MAGJOB("VRVERSION")=$S(VRADVER]"":VRADVER,1:"UNK")
+"RTN","MAGJUTL3",311,0)
+ S MAGJOB("VRBLDDTTM")=$P(DATA,U,4)
+"RTN","MAGJUTL3",312,0)
+ S MAGJOB("VSVERSION")=SVERSION
+"RTN","MAGJUTL3",313,0)
+ D MAGJOB
+"RTN","MAGJUTL3",314,0)
+ ;
+"RTN","MAGJUTL3",315,0)
+ ;=== Enable/Disable Requisition if not a radiology user
+"RTN","MAGJUTL3",316,0)
+ S REQFLAG=1
+"RTN","MAGJUTL3",317,0)
+ I 'MAGJOB("USER",1) D ; not a rist
+"RTN","MAGJUTL3",318,0)
+ . I $D(^VA(200,"ARC","T",+DUZ)) S RADTECH=1 Q ; Rad Tech OK
+"RTN","MAGJUTL3",319,0)
+ . S X=+$P($G(^MAG(2006.69,1,0)),U,16)
+"RTN","MAGJUTL3",320,0)
+ . I X S REQFLAG=0 ; Disable Req
+"RTN","MAGJUTL3",321,0)
+ S DICTPREF=+$P($G(^MAG(2006.69,1,0)),U,17)
+"RTN","MAGJUTL3",322,0)
+ S MAGGRY(0)=REPLY_"|"_DUZ_U_$$GET1^DIQ(200,DUZ_",",.01)_U_$$GET1^DIQ(200,DUZ_",",1)_U_REQFLAG_U_SVERSION_U_DICTPREF
+"RTN","MAGJUTL3",323,0)
+ ;
+"RTN","MAGJUTL3",324,0)
+ ;=== Add "^"-pieces 7:12 for ViX (MAG*3*90).
+"RTN","MAGJUTL3",325,0)
+ S MAGGRY(0)=MAGGRY(0)_U_$$GET1^DIQ(200,DUZ_",",9) ;...SSN
+"RTN","MAGJUTL3",326,0)
+ S MAGGRY(0)=MAGGRY(0)_U_$$GET1^DIQ(4,DUZ(2),99,"E") ;.UserLocalStationNumber
+"RTN","MAGJUTL3",327,0)
+ S MAGGRY(0)=MAGGRY(0)_U_$P($$SITE^VASITE(),U,3) ;.......LocalPrimaryDivision
+"RTN","MAGJUTL3",328,0)
+ S MAGGRY(0)=MAGGRY(0)_U_$P($$SITE^VASITE(),U,3) ;.....PrimarySiteStationNumber
+"RTN","MAGJUTL3",329,0)
+ ;
+"RTN","MAGJUTL3",330,0)
+ ;=== Lookup SiteServiceURL.
+"RTN","MAGJUTL3",331,0)
+ N SSUNC,VIXPTR
+"RTN","MAGJUTL3",332,0)
+ S VIXPTR=$P($G(^MAG(2006.1,+MAGJOB("SITEP"),"NET")),"^",5)
+"RTN","MAGJUTL3",333,0)
+ ;
+"RTN","MAGJUTL3",334,0)
+ ;=== Return UNC only if OpStatus is 'online'.
+"RTN","MAGJUTL3",335,0)
+ I VIXPTR,+$P($G(^MAG(2005.2,VIXPTR,0)),"^",6) D
+"RTN","MAGJUTL3",336,0)
+ . S SSUNC=$P($G(^MAG(2005.2,VIXPTR,0)),"^",2)
+"RTN","MAGJUTL3",337,0)
+ S MAGGRY(0)=MAGGRY(0)_U_$G(SSUNC) ;...................SiteServiceURL
+"RTN","MAGJUTL3",338,0)
+ S MAGGRY(0)=MAGGRY(0)_U_$P(MAGJOB("SITEP"),U,2) ;.....SiteCode
+"RTN","MAGJUTL3",339,0)
+ ;
+"RTN","MAGJUTL3",340,0)
+ ;=== Network UserName and PSW
+"RTN","MAGJUTL3",341,0)
+ S MAGGRY(1)=$P($G(^MAG(2006.1,PLACE,"NET")),U,1,2)
+"RTN","MAGJUTL3",342,0)
+ S X=+MAGJOB("USER",1),X=$S(X=15:3,X=12:2,+RADTECH:1,1:0)
+"RTN","MAGJUTL3",343,0)
+ S MAGGRY(1)=MAGGRY(1)_U_X_U_$D(MAGJOB("KEYS","MAGJ SYSTEM USER"))
+"RTN","MAGJUTL3",344,0)
+ S MAGGRY(1)=MAGGRY(1)_U_$S($L($T(PROD^XUPROD)):+$$PROD^XUPROD,1:0)
+"RTN","MAGJUTL3",345,0)
+ S MAGGRY(2)="*KEYS",X="" F ICNT=3:1 S X=$O(MAGJOB("KEYS",X)) Q:X="" S MAGGRY(ICNT)=X
+"RTN","MAGJUTL3",346,0)
+ S MAGGRY(ICNT)="*END"
+"RTN","MAGJUTL3",347,0)
+ S ICNT=ICNT+1,MAGGRY(ICNT)="*MAMMO"
+"RTN","MAGJUTL3",348,0)
+ S MSG=$$MAMMOCHK(MAMMORES)
+"RTN","MAGJUTL3",349,0)
+ I MSG]"" S ICNT=ICNT+1,MAGGRY(ICNT)=MSG
+"RTN","MAGJUTL3",350,0)
+ S ICNT=ICNT+1,MAGGRY(ICNT)="*END"
+"RTN","MAGJUTL3",351,0)
+USERIN2Z Q
+"RTN","MAGJUTL3",352,0)
+ ;
+"RTN","MAGJUTL3",353,0)
+MAMMOCHK(X) ; P133--now ignoring screen resolution, etc.
+"RTN","MAGJUTL3",354,0)
+ ; note--as of ??/12 there are other sized displaysapproved for mammo
+"RTN","MAGJUTL3",355,0)
+ ; now returns just a single disclaimer message, regardless of display
+"RTN","MAGJUTL3",356,0)
+ ; keeping this structure for possible change in the future
+"RTN","MAGJUTL3",357,0)
+ N MSG
+"RTN","MAGJUTL3",358,0)
+ S MSG="Primary diagnostic interpretation of mammography images may only be performed on medical devices that are cleared for that intended use, and that use display hardware conforming to technical specifications set by the FDA."
+"RTN","MAGJUTL3",359,0)
+ Q:$Q MSG Q
+"RTN","MAGJUTL3",360,0)
+ ;
+"RTN","MAGJUTL3",361,0)
+UPCASE(X) ; strip spaces, and cx to uppercase
+"RTN","MAGJUTL3",362,0)
+ Q $TR(X,"abcdefghijklmnopqrstuvwxyz ","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
+"RTN","MAGJUTL3",363,0)
+ ;
+"RTN","MAGJUTL3",364,0)
+ERR1 N ERR S ERR=$$EC^%ZOSV S @MAGGRY@(0)="0^4~"_ERR G ERR
+"RTN","MAGJUTL3",365,0)
+ERR2 N ERR S ERR=$$EC^%ZOSV S MAGGRY(0)="0^4~"_ERR G ERR
+"RTN","MAGJUTL3",366,0)
+ERR3 N ERR S ERR=$$EC^%ZOSV S MAGGRY="0^4~"_ERR
+"RTN","MAGJUTL3",367,0)
+ERR D @^%ZOSF("ERRTN")
+"RTN","MAGJUTL3",368,0)
+ Q:$Q 1 Q
+"RTN","MAGJUTL3",369,0)
+ ;
+"RTN","MAGJUTL3",370,0)
+END Q ;
+"RTN","MAGJUTL5")
+0^8^B38140374
+"RTN","MAGJUTL5",1,0)
+MAGJUTL5 ;WOIFO/JHC - VistARad RPCs ; 9 Sep 2013 11:22 AM
+"RTN","MAGJUTL5",2,0)
+ ;;3.0;IMAGING;**65,76,101,90,115,104,120,133**;Mar 19, 2002;Build 5393;Sep 09, 2013
+"RTN","MAGJUTL5",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGJUTL5",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJUTL5",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGJUTL5",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGJUTL5",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGJUTL5",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGJUTL5",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGJUTL5",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGJUTL5",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGJUTL5",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGJUTL5",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGJUTL5",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGJUTL5",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGJUTL5",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGJUTL5",17,0)
+ ;;
+"RTN","MAGJUTL5",18,0)
+ Q
+"RTN","MAGJUTL5",19,0)
+ ; adapted from MAGGTU4
+"RTN","MAGJUTL5",20,0)
+GETVER(SVRVER,SVRTVER,ALLOWCL,VIXVER) ;
+"RTN","MAGJUTL5",21,0)
+ ; The Server Version SVRVER is hardcoded to match the Client
+"RTN","MAGJUTL5",22,0)
+ ; so this Routine must be edited/distributed with a new Client
+"RTN","MAGJUTL5",23,0)
+ ; released Client will have the T version that the server expects
+"RTN","MAGJUTL5",24,0)
+ ;
+"RTN","MAGJUTL5",25,0)
+ ;--- Synchronize the below information with that in MAGJTU4V.
+"RTN","MAGJUTL5",26,0)
+ ;
+"RTN","MAGJUTL5",27,0)
+ S SVRVER="3.0.133",SVRTVER=3 ; <*> Edit this line for each patch/T-version
+"RTN","MAGJUTL5",28,0)
+ ;
+"RTN","MAGJUTL5",29,0)
+ S ALLOWCL="|3.0.120|" ; back-compatible with prior client
+"RTN","MAGJUTL5",30,0)
+ ;
+"RTN","MAGJUTL5",31,0)
+ S VIXVER=""
+"RTN","MAGJUTL5",32,0)
+ ; VIX may present versions different from vrad Client/Server versions; this would
+"RTN","MAGJUTL5",33,0)
+ ; happen if M-only changes are made to vrad Server code as part of a VIX patch
+"RTN","MAGJUTL5",34,0)
+ ; to support updated VIX-related functionality. VIXVERS contains the version numbers
+"RTN","MAGJUTL5",35,0)
+ ; that are to be supported in this fashion; related M changes need to be back-compatible
+"RTN","MAGJUTL5",36,0)
+ ; with prior vrad versions' behavior in the interface
+"RTN","MAGJUTL5",37,0)
+ N T,VIXVERS
+"RTN","MAGJUTL5",38,0)
+ S VIXVERS="|3.0.104|" ; keep compatible with P115 & P90 <*> edit as needed for patches
+"RTN","MAGJUTL5",39,0)
+ S T=$G(MAGJOB("VIX"))
+"RTN","MAGJUTL5",40,0)
+ I T,VIXVERS[("|"_T_"|") S ALLOWCL=ALLOWCL_T_"|",VIXVER=T
+"RTN","MAGJUTL5",41,0)
+ Q
+"RTN","MAGJUTL5",42,0)
+ ;
+"RTN","MAGJUTL5",43,0)
+CHKVER(MAGRY,CLVER,PLC,SVERSION) ;
+"RTN","MAGJUTL5",44,0)
+ ; Input CLVER is the version of the Client
+"RTN","MAGJUTL5",45,0)
+ ; format: Major.Minor.Patch.Build# [|VIX] -- eg 3.0.115.4|VIX
+"RTN","MAGJUTL5",46,0)
+ ; Build # = T-version; VIX string only appears if a VIX session
+"RTN","MAGJUTL5",47,0)
+ ; 3 possible return codes in MAGRY:
+"RTN","MAGJUTL5",48,0)
+ ; 2^n~msg : Client displays a message and continues
+"RTN","MAGJUTL5",49,0)
+ ; 1^1~msg : Client continues without displaying a message
+"RTN","MAGJUTL5",50,0)
+ ; 0^n~msg : Client displays a message then Aborts
+"RTN","MAGJUTL5",51,0)
+ ; PLC returns 2006.1 pointer
+"RTN","MAGJUTL5",52,0)
+ ;
+"RTN","MAGJUTL5",53,0)
+ S CLVER=$G(CLVER),PLC="",MAGRY=""
+"RTN","MAGJUTL5",54,0)
+ N SV,ST,CV,CT,CP,ALLOWV,TESTFLAG,SVSTAT,VIXVER
+"RTN","MAGJUTL5",55,0)
+ ; SVERSION = Full Server Version -> (3.0.18.132 or 3.0.18); test has 4, release has 3 parts
+"RTN","MAGJUTL5",56,0)
+ ; SV = Server Version -> (3.0.18); only 1st 3 parts
+"RTN","MAGJUTL5",57,0)
+ ; ST = Server T Version -> defined to always match client part-4
+"RTN","MAGJUTL5",58,0)
+ ; CV = Client Version, w/out build #
+"RTN","MAGJUTL5",59,0)
+ ; CT = Client T Version alone
+"RTN","MAGJUTL5",60,0)
+ ; CP = Client Patch alone
+"RTN","MAGJUTL5",61,0)
+ ; ALLOWV = Hard coded string of allowed clients for this KIDS.
+"RTN","MAGJUTL5",62,0)
+ ; TESTFLAG = 1/0 -- 1=Test vs of server code; 0=Release vs
+"RTN","MAGJUTL5",63,0)
+ ; get VIX version if a VIX session
+"RTN","MAGJUTL5",64,0)
+ I $P(CLVER,"|",2)["VIX" S MAGJOB("VIX")=$P(CLVER,"|") ; VIX facade version
+"RTN","MAGJUTL5",65,0)
+ ;
+"RTN","MAGJUTL5",66,0)
+ I $G(DUZ(2)) S PLC=$$PLACE^MAGBAPI(DUZ(2))
+"RTN","MAGJUTL5",67,0)
+ ; Quit if we don't have a valid DUZ(2) or valid PLACE: ^MAG(2006.1,PLC)
+"RTN","MAGJUTL5",68,0)
+ I 'PLC S MAGRY="0^4~Error verifying Imaging Site (Place) -- Contact Imaging support." Q
+"RTN","MAGJUTL5",69,0)
+ ;
+"RTN","MAGJUTL5",70,0)
+ D GETVER(.SV,.ST,.ALLOWV,.VIXVER)
+"RTN","MAGJUTL5",71,0)
+ S CLVER=$P(CLVER,"|")
+"RTN","MAGJUTL5",72,0)
+ S CV=$P(CLVER,".",1,3),CT=+$P(CLVER,".",4),CP=+$P(CLVER,".",3)
+"RTN","MAGJUTL5",73,0)
+ ;
+"RTN","MAGJUTL5",74,0)
+ D VERSTAT(.SVSTAT,SV)
+"RTN","MAGJUTL5",75,0)
+ I 'SVSTAT S MAGRY=SVSTAT Q ; KIDS status for this version indeterminate
+"RTN","MAGJUTL5",76,0)
+ S TESTFLAG=(+SVSTAT=1)
+"RTN","MAGJUTL5",77,0)
+ S SVERSION=SV
+"RTN","MAGJUTL5",78,0)
+ I TESTFLAG S SVERSION=SV_"."_ST
+"RTN","MAGJUTL5",79,0)
+ ; Check Version differences:
+"RTN","MAGJUTL5",80,0)
+ I (CV'=SV) D Q
+"RTN","MAGJUTL5",81,0)
+ . I '(ALLOWV[("|"_CV_"|")) D Q
+"RTN","MAGJUTL5",82,0)
+ . . S MAGRY="0^4~VistARad Workstation software version "_CLVER_" is not compatible with the VistA server version "_SVERSION_". Contact Imaging support. (CNA)"
+"RTN","MAGJUTL5",83,0)
+ . ; Warn the Client (unless VIX), allow to continue
+"RTN","MAGJUTL5",84,0)
+ . I TESTFLAG S MAGRY="2^3~VistARad Workstation software version "_CLVER_" is running with VistA server TEST Version "_SVERSION_" -- VistARad will Continue, but contact Imaging Support if problems occur. (Pdif)"
+"RTN","MAGJUTL5",85,0)
+ . E I VIXVER]"" S MAGRY="1^1~VIX software vs. "_CLVER_" is running with VistA server vs. "_SVERSION_". (VIXdif)"
+"RTN","MAGJUTL5",86,0)
+ . E S MAGRY="2^3~VistARad Workstation software version "_CLVER_" is running with VistA server Version "_SVERSION_" -- VistARad will Continue, but contact Imaging Support to install Released Version. (RPdif)"
+"RTN","MAGJUTL5",87,0)
+ . Q
+"RTN","MAGJUTL5",88,0)
+ ; Versions are the Same: If T versions are not, warn the Client if needed.
+"RTN","MAGJUTL5",89,0)
+ ; Released Client (of any version) will have the T version that the server
+"RTN","MAGJUTL5",90,0)
+ ; expects, and no warning will be displayed.
+"RTN","MAGJUTL5",91,0)
+ I CT,(CT'=ST) D Q
+"RTN","MAGJUTL5",92,0)
+ . I TESTFLAG S MAGRY="2^3~VistARad Workstation software vs. "_CLVER_" is running with VistA server TEST vs. "_SVERSION_" -- VistARad will Continue, but contact Imaging Support " D
+"RTN","MAGJUTL5",93,0)
+ . . I CT<ST S MAGRY=MAGRY_"to install updated client software. (Tdif-1)"
+"RTN","MAGJUTL5",94,0)
+ . . E S MAGRY=MAGRY_"to update the Server software. (Tdif-2)"
+"RTN","MAGJUTL5",95,0)
+ . E S MAGRY="2^3~VistARad Workstation software vs. "_CLVER_" is running with VistA server vs. "_SVERSION_" -- VistARad will Continue, but contact Imaging Support to install Released Version. (RVdif)"
+"RTN","MAGJUTL5",96,0)
+ . Q
+"RTN","MAGJUTL5",97,0)
+ ; Client and Server Versions are the same
+"RTN","MAGJUTL5",98,0)
+ S MAGRY="1^1~Version Check OK. Server: "_SVERSION_" Client: "_CLVER Q
+"RTN","MAGJUTL5",99,0)
+ Q
+"RTN","MAGJUTL5",100,0)
+ ;
+"RTN","MAGJUTL5",101,0)
+P32STOP(RET) ; logic to indicate P32 should no longer function, once the RELEASED P76 is installed
+"RTN","MAGJUTL5",102,0)
+ ; This is invoked from magjutl3, P76 version, if a P32 client is launched
+"RTN","MAGJUTL5",103,0)
+ ; RET=1/0 ^ text -- 0 = OK to run P32; 1 = Not OK
+"RTN","MAGJUTL5",104,0)
+ N SV,ST,ALLOWV,SVSTAT,RELEASED
+"RTN","MAGJUTL5",105,0)
+ S RET="0^P32 supported" ; init return to allow p32 to function
+"RTN","MAGJUTL5",106,0)
+ D GETVER(.SV,.ST,.ALLOWV)
+"RTN","MAGJUTL5",107,0)
+ D VERSTAT(.SVSTAT,SV)
+"RTN","MAGJUTL5",108,0)
+ I 'SVSTAT S RET="0^Error, but on side of caution, allow running." Q ; KIDS status for this version indeterminate
+"RTN","MAGJUTL5",109,0)
+ S RELEASED=(+SVSTAT=2)
+"RTN","MAGJUTL5",110,0)
+ I RELEASED!(SV'="3.0.76") S RET="1^P32 support over" ; don't allow P32 to function
+"RTN","MAGJUTL5",111,0)
+ Q
+"RTN","MAGJUTL5",112,0)
+ ;
+"RTN","MAGJUTL5",113,0)
+VERSTAT(MAGRY,MAGVER) ;
+"RTN","MAGJUTL5",114,0)
+ ; Returns the status of an Imaging Version
+"RTN","MAGJUTL5",115,0)
+ ; Input:
+"RTN","MAGJUTL5",116,0)
+ ; MAGVER - Version number in format MAG*3.0*59 or 3.0.59
+"RTN","MAGJUTL5",117,0)
+ ; Return: MAGRY = 0/1/2 -- see below; 0: abort; else, OK to proceed
+"RTN","MAGJUTL5",118,0)
+ ;
+"RTN","MAGJUTL5",119,0)
+ N VERI,TVER,MAGERR
+"RTN","MAGJUTL5",120,0)
+ I +MAGVER S MAGVER="MAG*"_$P(MAGVER,".",1,2)_"*"_$P(MAGVER,".",3)
+"RTN","MAGJUTL5",121,0)
+ S VERI=$$FIND1^DIC(9.6,"","O",MAGVER,"","","MAGERR")
+"RTN","MAGJUTL5",122,0)
+ I 'VERI S MAGRY="0^4~There is No KIDs Install record."
+"RTN","MAGJUTL5",123,0)
+ E D
+"RTN","MAGJUTL5",124,0)
+ . S TVER=$$GET1^DIQ(9.6,VERI_",","ALPHA/BETA TESTING")
+"RTN","MAGJUTL5",125,0)
+ . I TVER="YES" S MAGRY="1^Alpha/Beta Version"
+"RTN","MAGJUTL5",126,0)
+ . E I TVER="NO" S MAGRY="2^Released Version"
+"RTN","MAGJUTL5",127,0)
+ . E S MAGRY="0^4~KIDs Install Status is unknown--contact Customer Support."
+"RTN","MAGJUTL5",128,0)
+ Q ;
+"RTN","MAGJUTL5",129,0)
+END ;
+"VER")
+8.0^22.0
+**END**
+**END**
diff --git a/Packages/Imaging/Patches/MAG_3.0_135/MAG-3_SEQ-95_PAT-135.TXT b/Packages/Imaging/Patches/MAG_3.0_135/MAG-3_SEQ-95_PAT-135.TXT
new file mode 100644
index 0000000..2b97a6a
--- /dev/null
+++ b/Packages/Imaging/Patches/MAG_3.0_135/MAG-3_SEQ-95_PAT-135.TXT
@@ -0,0 +1,525 @@
+
+=============================================================================
+Run Date: OCT 24, 2013 Designation: MAG*3*135
+Package : MAG - IMAGING Priority: Mandatory
+Version : 3 SEQ #95 Status: Released
+ Compliance Date: DEC 09, 2013
+=============================================================================
+
+Associated patches: (v)MAG*3*121 <<= must be installed BEFORE `MAG*3*135'
+
+Subject: NETWORK LATENCY AND QUEUE MANAGEMENT ISSUES
+
+Category:
+ - Routine
+ - Data Dictionary
+ - Other
+
+Description:
+============
+
+ Due to a recent increase in network latency incidents resulting in OS
+ timeouts or I/O errors, MAG*3.0*135 is necessary to address
+ these situations where the BP storage applications halt, the queue counts
+ go negative, and the operator cannot get to the failed queue details to
+ determine what the problem is. Fixing all three BP applications is the
+ strategy utilized to harden the BP against network timeouts and to make
+ the BP applications more tolerant of different storage configurations.
+
+ Network latency incidents have been exacerbated by:
+ 1. Import API Active X control introduced by Patch MAG*3.0*121 (released
+ 3/23/12), which causes a MAGImportXcontrol1.ocx error on the BP.
+
+ 2. Problems exhibiting more visibly through the new Remote Data Processing
+ Center (RDPC) architecture.
+ 3. CRISP-related security changes, which have decreased sites access to
+ the hospital database, thereby limiting their ability to resolve their
+ own problems or facilitate Clin3 to do the same.
+
+ 4. Sites are becoming increasingly challenged by the lack of storage
+ space, which raises the level of exposure to known issues with
+ deployed software:
+ * For integrated sites only, the BP Verifier may check data integrity
+ for the incorrect site after access/verify codes are edited at one
+ of the sites.
+ * The BP Purge does not differentiate between a regular image and a
+ photo ID when removing image files from the Tier 1 storage . Photo
+ IDs have been implemented at some sites, such as Cleveland, as
+ Photo ID object types rather than setting the Type Index as
+ expected by the software. This can have a high impact on negative
+ results from a purge and can cause thousands of entries in the
+ JBTOHD (Jukebox to Hard disk) queue every day. The JBTOHD task
+ populates the VistA Imaging shares with images that have been
+ deleted from the Tier 1 shares through the Purge function.
+
+ This patch provides new Queue Manager menu options that enable users to
+ select the queues they want to display in the Queue Manager window and
+ thus prevent large arrays causing timeouts or out of memory errors. Using
+ the new Queue Manager menu options, users can elect to display all queues
+ or a specific queue type.
+
+ Changes were made to the terminology of RAID and Magnetic storage to Tier
+ 1 storage and the term Jukebox and Archive storage to Tier 2 storage.
+
+ MAG*3.0*135 enables sites to configure the Tier 2 storage reserve. The
+ value of 5 percent is not configurable and not compatible with some of
+ the current storage technologies, Grid in particular.
+
+ This patch resolves the issue related to transmitting the Monthly Site
+ Usage report, which some sites were experiencing. The method used to
+ generate the scheduled Imaging Monthly Site Usage report was revised.
+
+ MAG*3.0*135 provides support for Windows 2008 Server. The installation
+ program of the storage applications sets the menu options and shortcuts
+ of the storage applications to run in administrator mode. The storage
+ applications must run in administrator mode on Windows 2008 so they can
+ have read/write/delete access to the storage shares.
+
+ The BP Verifier can now be used to recover Tier 1 storage network
+ references. The site can restore a RAID share by way of a backup tape or
+ Robocopy, set the Current Tier 1 Write location to that share, and run
+ the BP verifier over a broad enough Image IEN range to include the images
+ on that share.
+
+ MAG*3.0*135 now enables sites to manage the Purge Retention days for
+ Advanced Directives in addition to Photo IDs.
+
+ MAG*3.0*135 provides an Archive Appliance (AA) Offline Platter utility,
+ which is used for processing of offline platter reports and updating the
+ VistA database. The AA Offline Platter utility enables the tracking of
+ images that are stored on platters that have been removed from the
+ jukebox, or when platters are re-introduced to the jukebox inventory.
+
+
+ Patch Components
+ ================
+
+ Software
+ File Description File Name FTP
+ Mode
+ --------------------------------------------------------------------------
+ MAG3_0P135 KIDS MAG3_0P135.KID ASCII
+ Installation file for BP Queue MAG3_0P135_BPSetup.exe Binary
+ Processor, Verifier and
+ Purge client software
+
+ Documentation
+ All documentation should be downloaded in the Binary format
+
+ File Description File Name
+ --------------------------------------------------------------------------
+ MAG*3.0*135 Patch Description MAG3_0P135_Patch_Description.pdf
+ VistA Imaging System Background MAG_BP_User_Manual.pdf
+ Processor User Manual
+ VistA Imaging Technical MAG3_0P135_Technical_Manual_Change.pdf
+ Manual Change Pages
+ VistA Imaging Installation MAG3_0P135_Installation_Guide_Changes.pdf
+ Guide Change Pages
+ Platter Reporting on PAA Platter Reporting on PAA.PPT
+
+ Test Sites
+ ==========
+ Atlanta, GA - Large
+ VA Heartland West - Kansas City, MO - Integrated
+ VISN 2 - VA Western NY HCS (Buffalo, Batavia, Canandaigua, Syracuse,
+ Bath, Albany) - Integrated
+
+
+ Files & Fields Associated
+ =========================
+ The following files were modified
+
+ File Field
+ ==========================================================================
+ IMAGE (#2005) STATUS (#113)
+ IMAGE AUDIT (#2005.1) STATUS (#113)
+ NETWORK OCATION (#2005.2) STORAGE TYPE (#6)
+ IMAGING SITE PARAMETERS (#2006.1) DICOM GATEWAY ACCESS CODE (#124)
+ DICOM GATEWAY VERIFY CODE (#125)
+
+ The following new field was added
+
+ File Field
+ ==========================================================================
+ IMAGING SITE PARAMETERS (#2006.1) TIER 2 RESERVE (#11.5)
+
+
+ Forms Associated
+ ================
+ No forms have been added or modified.
+
+ Mail Groups Associated
+ ======================
+ No mail groups have been added or modified.
+
+
+ Options Associated
+ ==================
+ The following menu was modified:
+
+ Track Offline Jukebox Images [MAG JB OFFLINE]
+
+ Protocols Associated
+ ====================
+ No protocols have been added or modified.
+
+ Remote Procedures
+ =================
+ The following new remote procedure is included in theis patch
+
+ MAGQ LOGV
+
+ Security Keys Associated
+ ========================
+ No security keys have been added or modified.
+
+ Templates Associated
+ ====================
+ No templates have been added or modified.
+
+ New Service Requests (NSRs)
+ ===========================
+ There are no New Service Requests associated with this patch.
+
+ Patient Safety Issues (PSIs)
+ ============================
+ There are no Patient Safety Issues associated with this patch.
+
+ Remedy Ticket(s) & Overview
+ ===========================
+ This patch addresses the following Remedy Tickets:
+
+ 1. 496758 - Automatic login fails at consolidated sites
+
+ Problem
+ =======
+ Auto-logins and Scheduled BP Verifiers are not functioning at consolidated
+ sites. The access and verify codes used for automatic logins are stored
+ in these fields of the IMAGING SITE PARAMETERS file (#2006.1): DICOM
+ GATEWAY ACCESS CODE (#2006.1, 124) and DICOM GATEWAY VERIFY CODE (#2006.1,
+ 125). Editing the values of the access and verify codes for the service
+ account for one site, updates the values for the service accounts of all
+ sites. As a result, when there is a host or network failure, the automatic
+ logins fail and the BP requires manual intervention.
+
+ Resolution
+ ==========
+ This patch resolves the issue by modifying the data dictionary, input
+ transformation of the IMAGING SITE PARAMETERS file (#2006.1) to ensure
+ that that editing the values of one service account does not update the
+ values of all service accounts.
+
+ 2. 511475 Photo IDs were purged as if they are full diagnostic or
+ administrative images
+
+ Problem
+ =======
+ The BP Purge application only recognizes one of the two ways in which the
+ database identifies patient photos. This resulted in photos being purged
+ incorrectly.
+
+ Resolution
+ ==========
+ This version recognizes both ways in which the database identifies
+ patient photos
+
+ 3. 501172, 505170, 527346, 601767, 615316, 619086 - The BP Queue
+ Management does not load when the volume of data in the queues is
+ large
+
+ Problem
+ =======
+ When queue counts exceed a certain threshold, the Queue Manager times out
+ before displaying the queues. If a failed queue falls behind, the
+ operator has no access to any queues, including the failed Import queues,
+ to identify the problems and re-queue the failed studies.
+
+ Resolution
+ ==========
+ This patch resolves the issue by modifying the interface to the Queue
+ Manager to load the Queue Manager Tree view incrementally rather than all
+ at once to prevent memory errors and timeouts. It also provides a submenu
+ that enables operators to display individual queue types, such as the
+ Import queue, preventing Queue Manager timeouts when the queue counts
+ exceed the threshold.
+
+ 4. 501706, 592201, 592407 - Queue counts go negative or will not
+ decrement
+
+ Problem
+ =======
+ The operator needs to use the Refresh Queue Counts menu option to
+ re-synchronize the queue counts as the software does not accurately
+ decrement the EVAL queues or the JUKEBOX queues. This results in false
+ positives in the automated mail alert subsystem. Having a system that
+ broadcasts false positives for queue counts effectively disables the
+ messaging system.
+
+ Resolution
+ ==========
+ This patch resolves the problem by revising the JUKEBOX and EVAL de-queue
+ code so that the decrement is accurate.
+
+ 5. 504648, 623042, 623676, 624452, 624495, 625355, 625368, 626184 - Import
+ OCX raises an error when the BP has an extended I/O event
+
+ Problem
+ =======
+ The OCX has a separate Broker session that is not supported by periodic
+ RPC calls. The timeouts result in the BP stopping and critical processing
+ of iMED consents.
+
+ Resolution
+ ==========
+ This patch resolves the problem by revising the OCX so it uses the same
+ broker session that the BP allocation uses. It also implements error
+ trapping, logging, and auto-connect in conjunction with all I/O calls.
+
+ 6. 609411,757628,757632,757645,757706,757790,757895,758508,758733,758796,
+ 759263,760520,761798,764979 - Problems transmitting the Monthly Site
+ Usage Report (MAG Enterprise issue with the Background Processor
+ routine MAGQBUT1)
+
+ Problem
+ =======
+ When the name of the site in the INSTITUTION file (#4) exceeds 22
+ characters, the Subject heading of the scheduled Imaging Monthly Site
+ Usage Report exceeds 60 characters and the report cannot be transmitted.
+
+ Resolution
+ ==========
+ This patch resolves the problem. The method used to generate the
+ scheduled Imaging Monthly Site Usage report was revised. It now allows
+ only 60 characters in the Subject heading of the report.
+
+ 7. 709354, 709367, 745160, 758077, 794927 - AA Offline Platter Reports
+
+ Problem
+ =======
+ Sites using the new archive appliances (AA) that run on the ASTI/Plasmon
+ Archive Appliance (PAA) system needed a utility to track the platter
+ status of images on platters that were removed from the Jukebox. The Mag
+ Utility 'Offline Jukebox Images', which provides this functionality for
+ older model jukeboxes, can only be used with the report format from the
+ DiskXtender jukebox management (DEX) system and not with the PAA system.
+
+ Resolution
+ ==========
+ The AA Offline Platter utility, which is distributed with this patch,
+ enables sites to utilize the archive appliances platter reports to track
+ the status of images located on platters that were removed from the
+ Jukebox. The utility updates the platter status of the image files in the
+ VistA database. For more information about the utility, see the section
+ AA Offline Platter Utility.
+
+ 8. 781887, 795508, 801936 - Issues when watermarking images for Rescinded
+ Advance Directive
+
+ Problem
+ =======
+ When creating a new watermarked image for a Rescinded Advance Directive,
+ the incorrect date was used as the value for PROCEDURE/EXAM DATE TIME
+ field (#15).
+
+ Resolution
+ ==========
+ The issue was due to an error when the Import API created a new image
+ entry. The Import API put a date in the PROCEDURE/EXAM DATE TIME field
+ (#15) of the IMAGE File (#2005). For Rescinded Advance Directives the
+ Import API incorrectly used the value of the ENTRY DATE/TIME field
+ (#1201) instead of the value from the REFERENCE DATE field (#1301). This
+ patch resolves the issue.
+
+ 9. 823711 - Enhancement related to Advance Directives being taken off-line
+
+ Problem
+ =======
+ Advance Directive image files were not immediately and readily available
+ when the platters on which they were stored were taken off-line to free
+ more space.
+
+ Resolution
+ ==========
+ This patch cannot resolve the need for sites take Tier 2 storage platters
+ off-line when Tier 2 storage is needed for newly acquired images. Sites
+ can manage the Purge Retention days with this patch and it is recommended
+ that sites change the retention days for Photo IDs and Advanced
+ Directives to a minimum of 10 years (3650 days). Sites will continue to
+ be able to refresh Tier 1 storage and keep the Advanced Directives
+ available through this configuration addition. See Purge Parameter
+ Retention days and how it Applies to Advance Directives in the VistA
+ Imaging Background Processor User Manual.
+
+ Installation
+ ============
+
+ This patch is to be installed on the VistA System and on the servers
+ running the Background Processor (BP) Queue Processor.
+
+ NOTE: All sites running VistA Imaging 3.0 must install the KIDS portion
+ of this patch.
+
+ This patch may be loaded while VistA Imaging System is active.
+ Installation will take less than one minute.
+
+ NOTE: The KIDS file should be installed first. The Background Processor
+ clients for patch MAG*3.0*135 will not run if the updated MAGQBUT4
+ routine (for version checking) is not in VistA.
+
+ Installation Prerequisites
+
+ Before installing this patch, download the MAG*3.0*135 files from the
+ Imaging FTP site to a local storage location.
+
+ Verify that the patches listed in the Required Patches section on have
+ been installed.
+
+ Important - Any Background Processor that is running must be stopped
+ (applications are closed) prior to the installation of the KIDS and
+ Client software. Any image capture application (Clinical Capture and
+ DICOM Gateway processing) can continue.
+
+
+ VistA System (KIDS) Installation
+
+ To install the KIDS package:
+ 1. Access the Kernel Installation and Distribution System Menu [XPD MAIN].
+ 2. Run the Installation option [XPD INSTALLATION MENU].
+ 3. Load the KIDS file by performing the following steps.
+ a. Run the Load a Distribution option [XPD LOAD DISTRIBUTION] to
+ load the KIDS distribution.
+ b. When prompted, enter the path and file name (MAG3_0P135.KID) of
+ the MAG*3.0*135 KIDS file that you downloaded from the Imaging FTP
+ server.
+ c. When prompted to continue with the load, enter YES. A
+ Distribution OK! message will be displayed when the load is
+ complete.
+ 4. After loading the KIDS file, use the following options to verify the
+ contents of the patch and to back up any affected routines.
+ a. Verify Checksums in Transport Global [XPD PRINT CHECKSUM]- Run this
+ option to verify the integrity of the routines in the patch.
+ b. Compare Transport Global to Current System [XPD COMPARE TO SYSTEM] -
+ Run this option to see all changes that will be made when the patch
+ is installed. Running the option compares all KIDS components
+ (routines, options, and so on).
+ c. Backup a Transport Global [XPD BACKUP] - Run this option to create a
+ backup message of any routines exported with the patch. Running the
+ option does NOT back up any of the other changes.
+ 5. After performing the load and any optional verification steps, install
+ the KIDS file as follows:
+ a. Run the Install Package(s) [XPD INSTALL BUILD] option.
+ b. When prompted for the install name, enter MAG*3.0*135.
+ c. Answer NO to the following prompts:
+
+ Want KIDS to INHIBIT LOGONs during the install? No//
+ Want to DISABLE Scheduled Options, Menu Options, and Protocols? No//
+
+ When installation is finished, an Install Complete message will be
+ displayed.
+
+ Sample KIDS Installation
+ Select Installation Option: 6 Install Package(s)
+ Select INSTALL NAME: MAG*3.0*135 7/2/12 at 15:53:04
+ => VistA Imaging V3.0 - Patch 135 - 07/02/2012 11:21AM ;Created o
+
+ This Distribution was loaded on Jul 02, 2012 at 15:53:04 with header of
+ VistA Imaging V3.0 - Patch 135 - 7/02/2012 11:21AM ;Created
+ on Jul 0 2, 2012 at 11:21:28
+ It consisted of the following Install(s):
+ MAG*3.0*135
+ Checking Install for Package MAG*3.0*135
+
+ Install Questions for MAG*3.0*135
+
+ Want KIDS to INHIBIT LOGONs during the install? NO//
+ Want to DISABLE Scheduled Options, Menu Options, and Protocols? NO//
+
+ Enter the Device you want to print the Install messages.
+ You can queue the install by enter a 'Q' at the device prompt.
+ Enter a '^' to abort the install.
+
+ DEVICE: HOME// HERE
+
+
+ Install Started for MAG*3.0*135 :
+ Jul 02, 2012 at 15:53:30
+
+ Build Distribution Date: Jul 02, 2012
+
+ Installing Routines:.......
+ Jul 02, 2012 at 15:53:31
+
+ Running Pre-Install Routine: PRE^MAGIP135.
+
+ Removing 'AC' trigger for Field 124: Jul 02, 2012 at 15:53:31
+
+ Removing 'AD' trigger for Field 125: Jul 02, 2012 at 15:53:31
+
+ Running Post-Install Routine: POST^MAGIP135.
+
+ Post Install Mail Message: Jul 02, 2012 at 15:53:31
+
+ Updating Routine file......
+
+ Updating KIDS files.......
+
+ MAG*3.0*135 Installed.
+ Jul 02, 2012 at 15:53:31
+
+
+ Background Processor Installation Instructions
+ ==============================================
+
+ Refer to the MAG3_0P135_Patch_Description.pdf document distributed with
+ the patch for a pre-installation checklist and client installation
+ instructions.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+;;3.0;IMAGING;**[Patch List]**;Mar 19, 2002;Build 5238;Jul 17, 2013
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: MAGBRTE4
+ Before: B72404251 After: B73500112 **11,30,51,85,54,39,135**
+Routine Name: MAGGSIU4
+ Before: B78099135 After: B81149201 **121,135**
+Routine Name: MAGGSIU5
+ Before: B37701586 After: B39649203 **121,135**
+Routine Name: MAGIP135
+ Before: n/a After: B19945197 **135**
+Routine Name: MAGQBPG1
+ Before: B77258360 After:B112714429 **7,8,20,81,39,135**
+Routine Name: MAGQBPG2
+ Before: B21016522 After: B21657260 **8,20,39,135**
+Routine Name: MAGQBPRG
+ Before: B56526255 After: B59523068 **7,3,8,20,81,39,135**
+Routine Name: MAGQBTM
+ Before: B81984703 After: B85282923 **1,7,8,20,81,39,135**
+Routine Name: MAGQBUT1
+ Before:B115897109 After:B117993666 **7,8,20,81,39,135**
+Routine Name: MAGQBUT4
+ Before: B92803022 After: B92803022 **7,8,48,20,81,39,121,135**
+Routine Name: MAGQE3
+ Before: B75156361 After: B76069024 **27,29,30,20,46,135**
+Routine Name: MAGSDOFF
+ Before: n/a After: B63243612 **135**
+Routine Name: MAGSDOFL
+ Before: B58680175 After: B62340218 **18,98,135**
+
+Routine list of preceding patches: 46, 98, 121
+
+=============================================================================
+User Information:
+Entered By : CASUGAY,ELSIE G Date Entered : MAY 04, 2012
+Completed By: MASSEY,DAVID Date Completed: OCT 24, 2013
+Released By : BOSAK,GREG Date Released : OCT 24, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/Imaging/Patches/MAG_3.0_135/MAG3_0P135.KIDs b/Packages/Imaging/Patches/MAG_3.0_135/MAG3_0P135.KIDs
new file mode 100644
index 0000000..6950d4b
--- /dev/null
+++ b/Packages/Imaging/Patches/MAG_3.0_135/MAG3_0P135.KIDs
@@ -0,0 +1,7010 @@
+KIDS Distribution saved on Jul 17, 2013 at 15:23:31
+VistA Imaging V3.0 - Patch 135 - 07/17/2013 15:23PM
+**KIDS**:MAG*3.0*135^
+
+**INSTALL NAME**
+MAG*3.0*135
+"BLD",3463,0)
+MAG*3.0*135^IMAGING^0^3130717^y
+"BLD",3463,1,0)
+^^20^20^3130717^
+"BLD",3463,1,1,0)
+Version 3.0 Patch 135 - BP Maintenance Patch
+"BLD",3463,1,2,0)
+
+"BLD",3463,1,3,0)
+
+"BLD",3463,1,4,0)
+Routines:
+"BLD",3463,1,5,0)
+MAGBRTE4 new value = 73500112
+"BLD",3463,1,6,0)
+MAGGSIU4 new value = 81149201
+"BLD",3463,1,7,0)
+MAGGSIU5 new value = 39649203
+"BLD",3463,1,8,0)
+MAGIP135 new value = 19945197
+"BLD",3463,1,9,0)
+MAGQBPG1 new value = 112714429
+"BLD",3463,1,10,0)
+MAGQBPG2 new value = 21657260
+"BLD",3463,1,11,0)
+MAGQBPRG new value = 59523068
+"BLD",3463,1,12,0)
+MAGQBTM new value = 85282923
+"BLD",3463,1,13,0)
+MAGQBUT1 new value = 117993666
+"BLD",3463,1,14,0)
+MAGQBUT4 new value = 92803022
+"BLD",3463,1,15,0)
+MAGQE3 new value = 76069024
+"BLD",3463,1,16,0)
+MAGSDOFF new value = 63243612
+"BLD",3463,1,17,0)
+MAGSDOFL new value = 62340218
+"BLD",3463,1,18,0)
+
+"BLD",3463,1,19,0)
+Please note that routine MAGIP135 is deleted after the KIDS Build is
+"BLD",3463,1,20,0)
+installed.
+"BLD",3463,4,0)
+^9.64PA^2006.1^4
+"BLD",3463,6.3)
+V3.0p135Build5238_T10
+"BLD",3463,4,2005,0)
+2005
+"BLD",3463,4,2005,2,0)
+^9.641^2005^1
+"BLD",3463,4,2005,2,2005,0)
+IMAGE (File-top level)
+"BLD",3463,4,2005,2,2005,1,0)
+^9.6411^113^1
+"BLD",3463,4,2005,2,2005,1,113,0)
+STATUS
+"BLD",3463,4,2005,222)
+y^y^p^^^^n^^n
+"BLD",3463,4,2005,224)
+
+"BLD",3463,4,2005.1,0)
+2005.1
+"BLD",3463,4,2005.1,2,0)
+^9.641^2005.1^1
+"BLD",3463,4,2005.1,2,2005.1,0)
+IMAGE AUDIT (File-top level)
+"BLD",3463,4,2005.1,2,2005.1,1,0)
+^9.6411^113^1
+"BLD",3463,4,2005.1,2,2005.1,1,113,0)
+STATUS
+"BLD",3463,4,2005.1,222)
+y^y^p^^^^n^^n
+"BLD",3463,4,2005.1,224)
+
+"BLD",3463,4,2005.2,0)
+2005.2
+"BLD",3463,4,2005.2,2,0)
+^9.641^2005.2^1
+"BLD",3463,4,2005.2,2,2005.2,0)
+NETWORK LOCATION (File-top level)
+"BLD",3463,4,2005.2,2,2005.2,1,0)
+^9.6411^6^1
+"BLD",3463,4,2005.2,2,2005.2,1,6,0)
+STORAGE TYPE
+"BLD",3463,4,2005.2,222)
+y^y^p^^^^n^^n
+"BLD",3463,4,2005.2,224)
+
+"BLD",3463,4,2006.1,0)
+2006.1
+"BLD",3463,4,2006.1,2,0)
+^9.641^2006.1^1
+"BLD",3463,4,2006.1,2,2006.1,0)
+IMAGING SITE PARAMETERS (File-top level)
+"BLD",3463,4,2006.1,2,2006.1,1,0)
+^9.6411^11.5^1
+"BLD",3463,4,2006.1,2,2006.1,1,11.5,0)
+TIER 2 RESERVE
+"BLD",3463,4,2006.1,222)
+y^y^p^^^^n^^n
+"BLD",3463,4,2006.1,224)
+
+"BLD",3463,4,"APDD",2006.1,2006.1)
+
+"BLD",3463,4,"APDD",2005,2005)
+
+"BLD",3463,4,"APDD",2005,2005,113)
+
+"BLD",3463,4,"APDD",2005.1,2005.1)
+
+"BLD",3463,4,"APDD",2005.1,2005.1,113)
+
+"BLD",3463,4,"APDD",2005.2,2005.2)
+
+"BLD",3463,4,"APDD",2005.2,2005.2,6)
+
+"BLD",3463,4,"APDD",2006.1,2006.1)
+
+"BLD",3463,4,"APDD",2006.1,2006.1,11.5)
+
+"BLD",3463,4,"B",2005,2005)
+
+"BLD",3463,4,"B",2005.1,2005.1)
+
+"BLD",3463,4,"B",2005.2,2005.2)
+
+"BLD",3463,4,"B",2006.1,2006.1)
+
+"BLD",3463,"ABNS",0)
+^9.66A^^
+"BLD",3463,"ABPKG")
+n^n^G.IMAGING DEVELOPMENT TEAM at DOMAIN.EXT
+"BLD",3463,"INI")
+PRE^MAGIP135
+"BLD",3463,"INID")
+n^y^y
+"BLD",3463,"INIT")
+POST^MAGIP135
+"BLD",3463,"KRN",0)
+^9.67PA^8994^19
+"BLD",3463,"KRN",.4,0)
+.4
+"BLD",3463,"KRN",.4,"NM",0)
+^9.68A^^
+"BLD",3463,"KRN",.401,0)
+.401
+"BLD",3463,"KRN",.401,"NM",0)
+^9.68A^^
+"BLD",3463,"KRN",.402,0)
+.402
+"BLD",3463,"KRN",.402,"NM",0)
+^9.68A^^
+"BLD",3463,"KRN",.403,0)
+.403
+"BLD",3463,"KRN",.5,0)
+.5
+"BLD",3463,"KRN",.84,0)
+.84
+"BLD",3463,"KRN",.84,"NM",0)
+^9.68A^^
+"BLD",3463,"KRN",3.6,0)
+3.6
+"BLD",3463,"KRN",3.8,0)
+3.8
+"BLD",3463,"KRN",3.8,"NM",0)
+^9.68A^^
+"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^12^12
+"BLD",3463,"KRN",9.8,"NM",1,0)
+MAGBRTE4^^0^B73500112
+"BLD",3463,"KRN",9.8,"NM",2,0)
+MAGGSIU4^^0^B81149201
+"BLD",3463,"KRN",9.8,"NM",3,0)
+MAGGSIU5^^0^B39649203
+"BLD",3463,"KRN",9.8,"NM",4,0)
+MAGQBPG1^^0^B112714429
+"BLD",3463,"KRN",9.8,"NM",5,0)
+MAGQBPG2^^0^B21657260
+"BLD",3463,"KRN",9.8,"NM",6,0)
+MAGQBPRG^^0^B59523068
+"BLD",3463,"KRN",9.8,"NM",7,0)
+MAGQBTM^^0^B85282923
+"BLD",3463,"KRN",9.8,"NM",8,0)
+MAGQBUT1^^0^B117993666
+"BLD",3463,"KRN",9.8,"NM",9,0)
+MAGQBUT4^^0^B92803022
+"BLD",3463,"KRN",9.8,"NM",10,0)
+MAGQE3^^0^B76069024
+"BLD",3463,"KRN",9.8,"NM",11,0)
+MAGSDOFF^^0^B63243612
+"BLD",3463,"KRN",9.8,"NM",12,0)
+MAGSDOFL^^0^B62340218
+"BLD",3463,"KRN",9.8,"NM","B","MAGBRTE4",1)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGGSIU4",2)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGGSIU5",3)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGQBPG1",4)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGQBPG2",5)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGQBPRG",6)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGQBTM",7)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGQBUT1",8)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGQBUT4",9)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGQE3",10)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGSDOFF",11)
+
+"BLD",3463,"KRN",9.8,"NM","B","MAGSDOFL",12)
+
+"BLD",3463,"KRN",19,0)
+19
+"BLD",3463,"KRN",19,"NM",0)
+^9.68A^1^1
+"BLD",3463,"KRN",19,"NM",1,0)
+MAG JB OFFLINE^^0
+"BLD",3463,"KRN",19,"NM","B","MAG JB OFFLINE",1)
+
+"BLD",3463,"KRN",19.1,0)
+19.1
+"BLD",3463,"KRN",19.1,"NM",0)
+^9.68A^^
+"BLD",3463,"KRN",101,0)
+101
+"BLD",3463,"KRN",101,"NM",0)
+^9.68A^^
+"BLD",3463,"KRN",409.61,0)
+409.61
+"BLD",3463,"KRN",771,0)
+771
+"BLD",3463,"KRN",771,"NM",0)
+^9.68A^^
+"BLD",3463,"KRN",870,0)
+870
+"BLD",3463,"KRN",870,"NM",0)
+^9.68A^^
+"BLD",3463,"KRN",8989.51,0)
+8989.51
+"BLD",3463,"KRN",8989.51,"NM",0)
+^9.68A^^
+"BLD",3463,"KRN",8989.52,0)
+8989.52
+"BLD",3463,"KRN",8994,0)
+8994
+"BLD",3463,"KRN",8994,"NM",0)
+^9.68A^1^1
+"BLD",3463,"KRN",8994,"NM",1,0)
+MAGQ LOGV^^0
+"BLD",3463,"KRN",8994,"NM","B","MAGQ LOGV",1)
+
+"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*121^2
+"BLD",3463,"REQB","B","MAG*3.0*121",1)
+
+"FIA",2005)
+IMAGE
+"FIA",2005,0)
+^MAG(2005,
+"FIA",2005,0,0)
+2005I
+"FIA",2005,0,1)
+y^y^p^^^^n^^n
+"FIA",2005,0,10)
+
+"FIA",2005,0,11)
+
+"FIA",2005,0,"RLRO")
+
+"FIA",2005,2005)
+1
+"FIA",2005,2005,113)
+
+"FIA",2005.1)
+IMAGE AUDIT
+"FIA",2005.1,0)
+^MAG(2005.1,
+"FIA",2005.1,0,0)
+2005.1I
+"FIA",2005.1,0,1)
+y^y^p^^^^n^^n
+"FIA",2005.1,0,10)
+
+"FIA",2005.1,0,11)
+
+"FIA",2005.1,0,"RLRO")
+
+"FIA",2005.1,2005.1)
+1
+"FIA",2005.1,2005.1,113)
+
+"FIA",2005.2)
+NETWORK LOCATION
+"FIA",2005.2,0)
+^MAG(2005.2,
+"FIA",2005.2,0,0)
+2005.2
+"FIA",2005.2,0,1)
+y^y^p^^^^n^^n
+"FIA",2005.2,0,10)
+
+"FIA",2005.2,0,11)
+
+"FIA",2005.2,0,"RLRO")
+
+"FIA",2005.2,2005.2)
+1
+"FIA",2005.2,2005.2,6)
+
+"FIA",2006.1)
+IMAGING SITE PARAMETERS
+"FIA",2006.1,0)
+^MAG(2006.1,
+"FIA",2006.1,0,0)
+2006.1P
+"FIA",2006.1,0,1)
+y^y^p^^^^n^^n
+"FIA",2006.1,0,10)
+
+"FIA",2006.1,0,11)
+
+"FIA",2006.1,0,"RLRO")
+
+"FIA",2006.1,2006.1)
+1
+"FIA",2006.1,2006.1,11.5)
+
+"INI")
+PRE^MAGIP135
+"INIT")
+POST^MAGIP135
+"IX",2005,2005,"AGPD",0)
+2005^AGPD^Deleted group members^R^^R^IR^I^2005^^^^^S
+"IX",2005,2005,"AGPD",.1,0)
+^^11^11^3081219^
+"IX",2005,2005,"AGPD",.1,1,0)
+This cross-reference lets the user easily get the
+"IX",2005,2005,"AGPD",.1,2,0)
+list of deleted members of the group. It has the
+"IX",2005,2005,"AGPD",.1,3,0)
+following structure:
+"IX",2005,2005,"AGPD",.1,4,0)
+
+"IX",2005,2005,"AGPD",.1,5,0)
+ ^MAG(2005,"AGPD",GroupIEN,DeletedMemberIEN)=""
+"IX",2005,2005,"AGPD",.1,6,0)
+
+"IX",2005,2005,"AGPD",.1,7,0)
+This cross-reference will be used after the IMAGE
+"IX",2005,2005,"AGPD",.1,8,0)
+AUDIT file (#2005.1) is eliminated and deleted
+"IX",2005,2005,"AGPD",.1,9,0)
+image entries are merged into the file #2005.
+"IX",2005,2005,"AGPD",.1,10,0)
+
+"IX",2005,2005,"AGPD",.1,11,0)
+Added by the patch MAG*3*93.
+"IX",2005,2005,"AGPD",1)
+S ^MAG(2005,"AGPD",X(1),DA)=""
+"IX",2005,2005,"AGPD",1.4)
+S X=($G(X2(2))=12)
+"IX",2005,2005,"AGPD",2)
+K ^MAG(2005,"AGPD",X(1),DA)
+"IX",2005,2005,"AGPD",2.5)
+K ^MAG(2005,"AGPD")
+"IX",2005,2005,"AGPD",11.1,0)
+^.114IA^2^2
+"IX",2005,2005,"AGPD",11.1,1,0)
+1^F^2005^14^^1^F
+"IX",2005,2005,"AGPD",11.1,2,0)
+2^F^2005^113^^^
+"IX",2005,2005,"AUDIT100",0)
+2005^AUDIT100^Tracks changes of image fields^MU^^R^I^I^2005^^^^^A
+"IX",2005,2005,"AUDIT100",.1,0)
+^^5^5^3080626^
+"IX",2005,2005,"AUDIT100",.1,1,0)
+When values of the referenced fields are updated,
+"IX",2005,2005,"AUDIT100",.1,2,0)
+this "index" saves the old values to the AUDIT
+"IX",2005,2005,"AUDIT100",.1,3,0)
+multiple (99).
+"IX",2005,2005,"AUDIT100",.1,4,0)
+
+"IX",2005,2005,"AUDIT100",.1,5,0)
+Added by the patch MAG*3*93.
+"IX",2005,2005,"AUDIT100",1)
+D AUDIT^MAGUXRF(2005,DA_",",";110;112;113;113.3",2005.099,.X1,.X2)
+"IX",2005,2005,"AUDIT100",1.4)
+
+"IX",2005,2005,"AUDIT100",2)
+Q
+"IX",2005,2005,"AUDIT100",11.1,0)
+^.114IA^5^5
+"IX",2005,2005,"AUDIT100",11.1,1,0)
+1^F^2005^.01^^^
+"IX",2005,2005,"AUDIT100",11.1,1,3)
+
+"IX",2005,2005,"AUDIT100",11.1,2,0)
+2^F^2005^110^^^
+"IX",2005,2005,"AUDIT100",11.1,2,3)
+
+"IX",2005,2005,"AUDIT100",11.1,3,0)
+3^F^2005^112^^^
+"IX",2005,2005,"AUDIT100",11.1,3,3)
+
+"IX",2005,2005,"AUDIT100",11.1,4,0)
+4^F^2005^113^^^
+"IX",2005,2005,"AUDIT100",11.1,4,3)
+
+"IX",2005,2005,"AUDIT100",11.1,5,0)
+5^F^2005^113.3^^^
+"IX",2005,2005,"AUDIT100",11.1,5,3)
+
+"IX",2005.1,2005.1,"AUDIT100",0)
+2005.1^AUDIT100^Tracks changes of image fields^MU^^R^I^I^2005.1^^^^^A
+"IX",2005.1,2005.1,"AUDIT100",.1,0)
+^^5^5^3080626^
+"IX",2005.1,2005.1,"AUDIT100",.1,1,0)
+When values of the referenced fields are updated,
+"IX",2005.1,2005.1,"AUDIT100",.1,2,0)
+this "index" saves the old values to the AUDIT
+"IX",2005.1,2005.1,"AUDIT100",.1,3,0)
+multiple (99).
+"IX",2005.1,2005.1,"AUDIT100",.1,4,0)
+
+"IX",2005.1,2005.1,"AUDIT100",.1,5,0)
+Added by the patch MAG*3*93.
+"IX",2005.1,2005.1,"AUDIT100",1)
+D AUDIT^MAGUXRF(2005.1,DA_",",";110;112;113;113.3",2005.199,.X1,.X2)
+"IX",2005.1,2005.1,"AUDIT100",1.4)
+
+"IX",2005.1,2005.1,"AUDIT100",2)
+Q
+"IX",2005.1,2005.1,"AUDIT100",11.1,0)
+^.114IA^5^5
+"IX",2005.1,2005.1,"AUDIT100",11.1,1,0)
+1^F^2005.1^.01^^^
+"IX",2005.1,2005.1,"AUDIT100",11.1,1,3)
+
+"IX",2005.1,2005.1,"AUDIT100",11.1,2,0)
+2^F^2005.1^110^^^
+"IX",2005.1,2005.1,"AUDIT100",11.1,2,3)
+
+"IX",2005.1,2005.1,"AUDIT100",11.1,3,0)
+3^F^2005.1^112^^^
+"IX",2005.1,2005.1,"AUDIT100",11.1,3,3)
+
+"IX",2005.1,2005.1,"AUDIT100",11.1,4,0)
+4^F^2005.1^113^^^
+"IX",2005.1,2005.1,"AUDIT100",11.1,4,3)
+
+"IX",2005.1,2005.1,"AUDIT100",11.1,5,0)
+5^F^2005.1^113.3^^^
+"IX",2005.1,2005.1,"AUDIT100",11.1,5,3)
+
+"IX",2005.2,2005.2,"F",0)
+2005.2^F^Place and Storage type index^R^^R^IR^I^2005.2^^^^^LS
+"IX",2005.2,2005.2,"F",1)
+S ^MAG(2005.2,"F",X(1),X(2),DA)=""
+"IX",2005.2,2005.2,"F",2)
+K ^MAG(2005.2,"F",X(1),X(2),DA)
+"IX",2005.2,2005.2,"F",2.5)
+K ^MAG(2005.2,"F")
+"IX",2005.2,2005.2,"F",11.1,0)
+^.114IA^2^2
+"IX",2005.2,2005.2,"F",11.1,1,0)
+1^F^2005.2^.04^^1^F
+"IX",2005.2,2005.2,"F",11.1,1,3)
+
+"IX",2005.2,2005.2,"F",11.1,2,0)
+2^F^2005.2^6^^2^F
+"IX",2005.2,2005.2,"F",11.1,2,3)
+
+"KRN",19,123457,-1)
+0^1
+"KRN",19,123457,0)
+MAG JB OFFLINE^Track Offline Jukebox Images^^R^^^^^^^^IMAGING
+"KRN",19,123457,1,0)
+^19.06^3^3^3130220^^^
+"KRN",19,123457,1,1,0)
+Menu option to keep track of images for DEX & AA jukebox platters
+"KRN",19,123457,1,2,0)
+that have been removed. Use this option when removing full jukebox
+"KRN",19,123457,1,3,0)
+platters and when those platters are placed back on-line.
+"KRN",19,123457,25)
+ENTRY^MAGSDOFL
+"KRN",19,123457,"U")
+TRACK OFFLINE JUKEBOX IMAGES
+"KRN",8994,123458,-1)
+0^1
+"KRN",8994,123458,0)
+MAGQ LOGV^ELOGRV^MAGQBPG1^2^R
+"KRN",8994,123458,1,0)
+^^4^4^3130321^
+"KRN",8994,123458,1,1,0)
+This provides a method of capturing errors logged during the BP Verifier
+"KRN",8994,123458,1,2,0)
+process. This function provides a list which can be examined at a later
+"KRN",8994,123458,1,3,0)
+date and will be rolled into verifier log file on the BP Server or network
+"KRN",8994,123458,1,4,0)
+log file share.
+"KRN",8994,123458,2,0)
+^8994.02A^2^2
+"KRN",8994,123458,2,1,0)
+NULL^^^0
+"KRN",8994,123458,2,1,1,0)
+^^1^1^3130321^
+"KRN",8994,123458,2,1,1,1,0)
+No input parameter is defined.
+"KRN",8994,123458,2,2,0)
+LIMIT^1^5^1^1
+"KRN",8994,123458,2,2,1,0)
+^8994.021^1^1^3130325^^
+"KRN",8994,123458,2,2,1,1,0)
+This value is used to control the array size.
+"KRN",8994,123458,2,"B","LIMIT",2)
+
+"KRN",8994,123458,2,"B","NULL",1)
+
+"KRN",8994,123458,2,"PARAMSEQ",1,2)
+
+"KRN",8994,123458,3,0)
+^^3^3^3130321^
+"KRN",8994,123458,3,1,0)
+This is a list of the corrupt nodes being killed by the BP Verifier
+"KRN",8994,123458,3,2,0)
+application. It may be also be used for other means of reporting
+"KRN",8994,123458,3,3,0)
+host side information.
+"MBREQ")
+0
+"ORD",16,8994)
+8994;16;1;;;;;;;RPCDEL^XPDIA1
+"ORD",16,8994,0)
+REMOTE PROCEDURE
+"ORD",18,19)
+19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
+"ORD",18,19,0)
+OPTION
+"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)
+135^3130717^.5
+"PKG",454,22,1,"PAH",1,1,0)
+^9.49011^19^19^3130717
+"PKG",454,22,1,"PAH",1,1,1,0)
+Routines for Patch 135, Test Build 10.
+"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)
+MAGBRTE4 value = 15105909
+"PKG",454,22,1,"PAH",1,1,5,0)
+MAGGSIU4 value = 13652811
+"PKG",454,22,1,"PAH",1,1,6,0)
+MAGGSIU5 value = 8305153
+"PKG",454,22,1,"PAH",1,1,7,0)
+MAGIP135 value = 7151218
+"PKG",454,22,1,"PAH",1,1,8,0)
+MAGQBPG1 value = 22947623
+"PKG",454,22,1,"PAH",1,1,9,0)
+MAGQBPG2 value = 7983035
+"PKG",454,22,1,"PAH",1,1,10,0)
+MAGQBPRG value = 12188271
+"PKG",454,22,1,"PAH",1,1,11,0)
+MAGQBTM value = 16822600
+"PKG",454,22,1,"PAH",1,1,12,0)
+MAGQBUT1 value = 23584558
+"PKG",454,22,1,"PAH",1,1,13,0)
+MAGQBUT4 value = 13069038
+"PKG",454,22,1,"PAH",1,1,14,0)
+MAGQE3 value = 15906384
+"PKG",454,22,1,"PAH",1,1,15,0)
+MAGSDOFF value = 11766065
+"PKG",454,22,1,"PAH",1,1,16,0)
+MAGSDOFL value = 13348358
+"PKG",454,22,1,"PAH",1,1,17,0)
+
+"PKG",454,22,1,"PAH",1,1,18,0)
+Please note that routine MAGIP135 is deleted after the KIDS Build is
+"PKG",454,22,1,"PAH",1,1,19,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")
+13
+"RTN","MAGBRTE4")
+0^1^B73500112
+"RTN","MAGBRTE4",1,0)
+MAGBRTE4 ;WOIFO/EdM - Process Routing Rule Evaluation Queue ; 27 Jun 2012 5:45 PM
+"RTN","MAGBRTE4",2,0)
+ ;;3.0;IMAGING;**11,30,51,85,54,39,135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGBRTE4",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGBRTE4",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGBRTE4",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGBRTE4",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGBRTE4",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGBRTE4",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGBRTE4",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGBRTE4",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGBRTE4",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGBRTE4",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGBRTE4",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGBRTE4",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGBRTE4",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGBRTE4",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGBRTE4",17,0)
+ ;;
+"RTN","MAGBRTE4",18,0)
+ Q
+"RTN","MAGBRTE4",19,0)
+ ;
+"RTN","MAGBRTE4",20,0)
+EVAL ;
+"RTN","MAGBRTE4",21,0)
+ N ACTIVE ;--- Switch that controls start/stop queue processor
+"RTN","MAGBRTE4",22,0)
+ N ANY ;------ Flag: processed any rule
+"RTN","MAGBRTE4",23,0)
+ N CONS ;----- Switch that indicates whether or not site has "consolidated" code
+"RTN","MAGBRTE4",24,0)
+ N KEYWORD ;-- Array with all keywords
+"RTN","MAGBRTE4",25,0)
+ N MAGFILE1 ;- Name of file
+"RTN","MAGBRTE4",26,0)
+ N XMSG ;----- Message counter
+"RTN","MAGBRTE4",27,0)
+ ;
+"RTN","MAGBRTE4",28,0)
+ F I="MAGEVAL","MAGEVALSTUDY" K ^XTMP(I,ZTSK)
+"RTN","MAGBRTE4",29,0)
+ D LOG^MAGBRTE5("Started at "_$H)
+"RTN","MAGBRTE4",30,0)
+ S XMSG=1,CONS=$$CONSOLID^MAGBAPI()
+"RTN","MAGBRTE4",31,0)
+ S PLACE=$S(CONS:$O(^MAG(2006.1,"B",LOCATION,"")),1:1)
+"RTN","MAGBRTE4",32,0)
+ L +^MAGDICOM(2006.563,1,"EVAL",LOCATION):0 E D Q
+"RTN","MAGBRTE4",33,0)
+ . D LOG^MAGBRTE5("A rule evaluator is already running for "_$$GET1^DIQ(4,LOCATION,.01))
+"RTN","MAGBRTE4",34,0)
+ . Q
+"RTN","MAGBRTE4",35,0)
+ S ^MAGDICOM(2006.563,1,"EVAL")=1
+"RTN","MAGBRTE4",36,0)
+ ;
+"RTN","MAGBRTE4",37,0)
+ S I="" F S I=$O(RULES(I)) Q:I="" D
+"RTN","MAGBRTE4",38,0)
+ . N D0,D1,D2,L,Q1
+"RTN","MAGBRTE4",39,0)
+ . S X=RULES(I),D0=$P(X,"^",1),Q1=$P(X,"^",2),L=$L(X,"^")
+"RTN","MAGBRTE4",40,0)
+ . I L=3 S RULE(D0,Q1)=$P(X,"^",3) Q
+"RTN","MAGBRTE4",41,0)
+ . I Q1="ACTION" S RULE(D0,Q1,$P(X,"^",3))=$P(X,"^",4,L) Q
+"RTN","MAGBRTE4",42,0)
+ . I Q1'="CONDITION" D LOG^MAGBRTE5("Rule "_D0_" has a qualifier """_Q1_""".") Q
+"RTN","MAGBRTE4",43,0)
+ . I L=5 S RULE(D0,Q1,$P(X,"^",3),$P(X,"^",4))=$P(X,"^",5) Q
+"RTN","MAGBRTE4",44,0)
+ . S RULE(D0,Q1,$P(X,"^",3),$P(X,"^",4),$P(X,"^",6),$P(X,"^",5))=$P(X,"^",7)
+"RTN","MAGBRTE4",45,0)
+ . Q
+"RTN","MAGBRTE4",46,0)
+ K RULES
+"RTN","MAGBRTE4",47,0)
+ ;
+"RTN","MAGBRTE4",48,0)
+ S ACTIVE=1 F D Q:'ACTIVE
+"RTN","MAGBRTE4",49,0)
+ . S ANY=0
+"RTN","MAGBRTE4",50,0)
+ . S ACTIVE=+$G(^MAGDICOM(2006.563,1,"EVAL")) I 'ACTIVE D Q
+"RTN","MAGBRTE4",51,0)
+ . . D LOG^MAGBRTE5("Stopped at "_$H)
+"RTN","MAGBRTE4",52,0)
+ . . Q
+"RTN","MAGBRTE4",53,0)
+ . D
+"RTN","MAGBRTE4",54,0)
+ . . N IMAGE,QPTR,QPTR2,STATUS,X
+"RTN","MAGBRTE4",55,0)
+ . . D:'CONS ADD^MAGBAPI(0,"EVAL")
+"RTN","MAGBRTE4",56,0)
+ . . D:CONS ADD^MAGBAPI(0,"EVAL",PLACE)
+"RTN","MAGBRTE4",57,0)
+ . . S QPTR2=$O(^MAGQUEUE(2006.031,"B","EVAL",""))
+"RTN","MAGBRTE4",58,0)
+ . . S QPTR=$S(QPTR2:$P(^MAGQUEUE(2006.031,QPTR2,0),"^",2),1:"")
+"RTN","MAGBRTE4",59,0)
+ . . ; Get next queue pointer value
+"RTN","MAGBRTE4",60,0)
+ . . S:'CONS QPTR=$O(^MAGQUEUE(2006.03,"B","EVAL",QPTR))
+"RTN","MAGBRTE4",61,0)
+ . . S:CONS QPTR=$O(^MAGQUEUE(2006.03,"C",PLACE,"EVAL",QPTR))
+"RTN","MAGBRTE4",62,0)
+ . . I QPTR="" Q ; Nothing to do
+"RTN","MAGBRTE4",63,0)
+ . . ;
+"RTN","MAGBRTE4",64,0)
+ . . S X=$G(^MAGQUEUE(2006.03,QPTR,0))
+"RTN","MAGBRTE4",65,0)
+ . . ; After an error, sometimes the entry is purged,
+"RTN","MAGBRTE4",66,0)
+ . . ; but the cross reference is still present.
+"RTN","MAGBRTE4",67,0)
+ . . ; In such a case, remove the cross reference.
+"RTN","MAGBRTE4",68,0)
+ . . I X="" D Q
+"RTN","MAGBRTE4",69,0)
+ . . . K:'CONS ^MAGQUEUE(2006.03,"B","EVAL",QPTR)
+"RTN","MAGBRTE4",70,0)
+ . . . K:CONS ^MAGQUEUE(2006.03,"C",PLACE,"EVAL",QPTR)
+"RTN","MAGBRTE4",71,0)
+ . . . Q
+"RTN","MAGBRTE4",72,0)
+ . . ;
+"RTN","MAGBRTE4",73,0)
+ . . S IMAGE=$P(X,"^",7),ANY=1
+"RTN","MAGBRTE4",74,0)
+ . . I IMAGE,$D(^MAG(2005,IMAGE,0)) D
+"RTN","MAGBRTE4",75,0)
+ . . . S STATUS=$$RULES() Q:STATUS'<0
+"RTN","MAGBRTE4",76,0)
+ . . . I STATUS["NO NETWORK LOCATION" D Q
+"RTN","MAGBRTE4",77,0)
+ . . . . D LOG^MAGBRTE5("Image "_IMAGE_" has no files associated with it")
+"RTN","MAGBRTE4",78,0)
+ . . . . Q
+"RTN","MAGBRTE4",79,0)
+ . . . D LOG^MAGBRTE5("*** EVAL queue error: "_STATUS_" ***")
+"RTN","MAGBRTE4",80,0)
+ . . . Q
+"RTN","MAGBRTE4",81,0)
+ . . D:'CONS ADD^MAGBAPI(-1,"EVAL")
+"RTN","MAGBRTE4",82,0)
+ . . D:CONS ADD^MAGBAPI(-1,"EVAL",PLACE)
+"RTN","MAGBRTE4",83,0)
+ . . D DQUE^MAGQBUT2(QPTR)
+"RTN","MAGBRTE4",84,0)
+ . . Q
+"RTN","MAGBRTE4",85,0)
+ . H:'ANY 1
+"RTN","MAGBRTE4",86,0)
+ . D:'$D(^XTMP("MAGEVAL",ZTSK)) XTINIT^MAGDRPC5,LOG^MAGBRTE5("^XTMP was cleaned up.")
+"RTN","MAGBRTE4",87,0)
+ . Q
+"RTN","MAGBRTE4",88,0)
+ L -^MAGDICOM(2006.563,1,"EVAL",LOCATION)
+"RTN","MAGBRTE4",89,0)
+ Q
+"RTN","MAGBRTE4",90,0)
+ ;
+"RTN","MAGBRTE4",91,0)
+RULES() ; To be called from above
+"RTN","MAGBRTE4",92,0)
+ ; IMAGE ;---- IEN for image (2005)
+"RTN","MAGBRTE4",93,0)
+ ; LOCATION ;- Location from which queue entry originates
+"RTN","MAGBRTE4",94,0)
+ N ACTION ;--- Action to be taken (SEND)
+"RTN","MAGBRTE4",95,0)
+ N C ;-------- Loop-variable for looping through parameters and conditions
+"RTN","MAGBRTE4",96,0)
+ N D ;-------- Data type
+"RTN","MAGBRTE4",97,0)
+ N DS ;------- Data type enclosed in space-characters
+"RTN","MAGBRTE4",98,0)
+ N F ;-------- ...
+"RTN","MAGBRTE4",99,0)
+ N METMSG ;--- Message to be issued when rule is evaluated
+"RTN","MAGBRTE4",100,0)
+ N O ;-------- Operator
+"RTN","MAGBRTE4",101,0)
+ N OK ;------- Flag: indicates whether or not rule is met
+"RTN","MAGBRTE4",102,0)
+ N RDT ;------ Current date (don't use DT, process might run over midnight)
+"RTN","MAGBRTE4",103,0)
+ N STUDYUID ;- Study UID
+"RTN","MAGBRTE4",104,0)
+ N V ;-------- Value for property as specified in rule
+"RTN","MAGBRTE4",105,0)
+ N VAL ;------ Actual value of property
+"RTN","MAGBRTE4",106,0)
+ N VRS ;------ String of Queue Entry numbers when rule(s) are met
+"RTN","MAGBRTE4",107,0)
+ N X ;-------- Scratch variable
+"RTN","MAGBRTE4",108,0)
+ ;
+"RTN","MAGBRTE4",109,0)
+ S VRS=""
+"RTN","MAGBRTE4",110,0)
+ ;
+"RTN","MAGBRTE4",111,0)
+ D KEYWORD^MAGBRTK
+"RTN","MAGBRTE4",112,0)
+ ;
+"RTN","MAGBRTE4",113,0)
+ D FILEFIND^MAGDFB(IMAGE,"FULL",0,0,.MAGFILE1)
+"RTN","MAGBRTE4",114,0)
+ Q:MAGFILE1<0 MAGFILE1
+"RTN","MAGBRTE4",115,0)
+ ;
+"RTN","MAGBRTE4",116,0)
+ S STUDYUID=$P($G(^MAG(2005,IMAGE,"PACS")),"^",1)
+"RTN","MAGBRTE4",117,0)
+ S X=$P($G(^MAG(2005,IMAGE,0)),"^",10)
+"RTN","MAGBRTE4",118,0)
+ S:X STUDYUID=$P($G(^MAG(2005,X,"PACS")),"^",1)
+"RTN","MAGBRTE4",119,0)
+ ;
+"RTN","MAGBRTE4",120,0)
+ S RULE=0 F S RULE=$O(RULE(RULE)) Q:'RULE D
+"RTN","MAGBRTE4",121,0)
+ . S METMSG=$G(RULE(RULE,"ACTION"))
+"RTN","MAGBRTE4",122,0)
+ . S X=" (",C=0 F S C=$O(RULE(RULE,"ACTION",C)) Q:'C D
+"RTN","MAGBRTE4",123,0)
+ . . S METMSG=METMSG_X_$G(RULE(RULE,"ACTION",C)),X=", "
+"RTN","MAGBRTE4",124,0)
+ . . Q
+"RTN","MAGBRTE4",125,0)
+ . S:X'=" (" METMSG=METMSG_")"
+"RTN","MAGBRTE4",126,0)
+ . S:METMSG="" METMSG="Rule #"_RULE
+"RTN","MAGBRTE4",127,0)
+ . S OK=$G(^XTMP("MAGEVALSTUDY",ZTSK,STUDYUID,RULE))
+"RTN","MAGBRTE4",128,0)
+ . I OK="" S OK=1,C=0 F S C=$O(RULE(RULE,"CONDITION",C)) Q:'C D Q:'OK
+"RTN","MAGBRTE4",129,0)
+ . . S F=$G(RULE(RULE,"CONDITION",C,"KW")) Q:F=""
+"RTN","MAGBRTE4",130,0)
+ . . S X=$G(KEYWORD("CONDITION",F),"^DICOM^MAGBRTE3(F,""OUT"",.VAL)")
+"RTN","MAGBRTE4",131,0)
+ . . K VAL D @$P(X,"^",2,9)
+"RTN","MAGBRTE4",132,0)
+ . . ; If the field is not defined, the test passes...
+"RTN","MAGBRTE4",133,0)
+ . . Q:$D(VAL)'=1 ; We won't deal with multiple values just yet...
+"RTN","MAGBRTE4",134,0)
+ . . ;
+"RTN","MAGBRTE4",135,0)
+ . . S V=$G(RULE(RULE,"CONDITION",C,"VA"))
+"RTN","MAGBRTE4",136,0)
+ . . S D=$G(RULE(RULE,"CONDITION",C,"DT"))
+"RTN","MAGBRTE4",137,0)
+ . . S O=$G(RULE(RULE,"CONDITION",C,"OP"))
+"RTN","MAGBRTE4",138,0)
+ . . S:D="" D="S"
+"RTN","MAGBRTE4",139,0)
+ . . S DS=" "_D_" "
+"RTN","MAGBRTE4",140,0)
+ . . D:" S CS DS IS LO LT OB OW PN SH ST "[DS
+"RTN","MAGBRTE4",141,0)
+ . . . N WILD ;-- Wildcard to be matched
+"RTN","MAGBRTE4",142,0)
+ . . . S WILD=$$WLDMATCH^MAGBRTE5(VAL,V)
+"RTN","MAGBRTE4",143,0)
+ . . . I O="=",'WILD S OK=0 Q
+"RTN","MAGBRTE4",144,0)
+ . . . I O="!=",WILD S OK=0 Q
+"RTN","MAGBRTE4",145,0)
+ . . . Q
+"RTN","MAGBRTE4",146,0)
+ . . D:" DT DA TM "[DS
+"RTN","MAGBRTE4",147,0)
+ . . . Q:O'="=" ; Only "within range" comparisons allowed currently
+"RTN","MAGBRTE4",148,0)
+ . . . ;
+"RTN","MAGBRTE4",149,0)
+ . . . N A ;--- Flag: indicates whether at least one time-frame matches
+"RTN","MAGBRTE4",150,0)
+ . . . N B ;--- Begin date/time
+"RTN","MAGBRTE4",151,0)
+ . . . N E ;--- End date/time
+"RTN","MAGBRTE4",152,0)
+ . . . N I ;--- Loopcounter
+"RTN","MAGBRTE4",153,0)
+ . . . N M ;--- Date/time mask
+"RTN","MAGBRTE4",154,0)
+ . . . N N ;--- Loopcounter (time-frames)
+"RTN","MAGBRTE4",155,0)
+ . . . N %T ;-- FileMan internal variable
+"RTN","MAGBRTE4",156,0)
+ . . . N VV ;-- Actual value
+"RTN","MAGBRTE4",157,0)
+ . . . N WD ;-- Weekday
+"RTN","MAGBRTE4",158,0)
+ . . . N X1 ;-- FileMan API parameter value -- date
+"RTN","MAGBRTE4",159,0)
+ . . . N X2 ;-- FileMan API parameter value -- date
+"RTN","MAGBRTE4",160,0)
+ . . . ;
+"RTN","MAGBRTE4",161,0)
+ . . . ; convert the literal date/time field into the format for comparison
+"RTN","MAGBRTE4",162,0)
+ . . . S VV=VAL
+"RTN","MAGBRTE4",163,0)
+ . . . ;
+"RTN","MAGBRTE4",164,0)
+ . . . S (A,N)=0 F S N=$O(RULE(RULE,"CONDITION",C,"VA",N)) Q:'N D
+"RTN","MAGBRTE4",165,0)
+ . . . . N T,VB,VC,VE
+"RTN","MAGBRTE4",166,0)
+ . . . . S M=$G(RULE(RULE,"CONDITION",C,"VA",N,"M"))
+"RTN","MAGBRTE4",167,0)
+ . . . . S B=$G(RULE(RULE,"CONDITION",C,"VA",N,"B"))
+"RTN","MAGBRTE4",168,0)
+ . . . . S E=$G(RULE(RULE,"CONDITION",C,"VA",N,"E"))
+"RTN","MAGBRTE4",169,0)
+ . . . . S T=1
+"RTN","MAGBRTE4",170,0)
+ . . . . I $E(M,1,3)="HOL" S:$$GET1^DIQ(40.5,+$E(VV,5,11),.01)="" T=0 ; IA 10038
+"RTN","MAGBRTE4",171,0)
+ . . . . I $E(M,1,3)="DDD",$E(B,1,3)'=$E(VAL,1,3) S T=0
+"RTN","MAGBRTE4",172,0)
+ . . . . S (VB,VC,VE)=""
+"RTN","MAGBRTE4",173,0)
+ . . . . F I=4:1:$L(M) S:$E(M,I)?1U VC=VC_$E(VV,I),VB=VB_$E(B,I),VE=VE_$E(E,I)
+"RTN","MAGBRTE4",174,0)
+ . . . . S:VB>VC T=0
+"RTN","MAGBRTE4",175,0)
+ . . . . S:VE<VC T=0
+"RTN","MAGBRTE4",176,0)
+ . . . . S:T A=1
+"RTN","MAGBRTE4",177,0)
+ . . . . Q
+"RTN","MAGBRTE4",178,0)
+ . . . S:'A OK=0
+"RTN","MAGBRTE4",179,0)
+ . . . Q
+"RTN","MAGBRTE4",180,0)
+ . . Q
+"RTN","MAGBRTE4",181,0)
+ . S ^XTMP("MAGEVALSTUDY",ZTSK,STUDYUID,RULE)=OK
+"RTN","MAGBRTE4",182,0)
+ . S METMSG(OK,METMSG)=""
+"RTN","MAGBRTE4",183,0)
+ . S RDT=$$NOW^XLFDT()\1
+"RTN","MAGBRTE4",184,0)
+ . Q:'OK
+"RTN","MAGBRTE4",185,0)
+ . S ACTION=$G(RULE(RULE,"ACTION"))
+"RTN","MAGBRTE4",186,0)
+ . Q:ACTION=""
+"RTN","MAGBRTE4",187,0)
+ . I ACTION="SEND" D Q
+"RTN","MAGBRTE4",188,0)
+ . . N D,PRI,X
+"RTN","MAGBRTE4",189,0)
+ . . S X=$G(RULE(RULE,"ACTION",1))
+"RTN","MAGBRTE4",190,0)
+ . . I X="" S METMSG(0,"No location for rule "_RULE)="" Q
+"RTN","MAGBRTE4",191,0)
+ . . D VALDEST^MAGDRPC1(.D,X)
+"RTN","MAGBRTE4",192,0)
+ . . I D<0 S METMSG(0,"Cannot find location """_X_""".")="" Q
+"RTN","MAGBRTE4",193,0)
+ . . S PRI=$$PRI($G(RULE(RULE,"PRIORITY")),IMAGE)
+"RTN","MAGBRTE4",194,0)
+ . . S VRS=$$VRS^MAGBRTE5(VRS,$$SEND^MAGBRTE5(IMAGE,D,PRI,1,LOCATION))
+"RTN","MAGBRTE4",195,0)
+ . . Q
+"RTN","MAGBRTE4",196,0)
+ . I ACTION="DICOM" D Q
+"RTN","MAGBRTE4",197,0)
+ . . N D,PRI,X
+"RTN","MAGBRTE4",198,0)
+ . . S X=$G(RULE(RULE,"ACTION",1))
+"RTN","MAGBRTE4",199,0)
+ . . I X="" S METMSG(0,"No location for rule "_RULE)="" Q
+"RTN","MAGBRTE4",200,0)
+ . . S D=$O(^MAG(2006.587,"B",X,""))
+"RTN","MAGBRTE4",201,0)
+ . . I D="" S METMSG(0,"Cannot find location """_X_""".")="" Q
+"RTN","MAGBRTE4",202,0)
+ . . S PRI=$$PRI($G(RULE(RULE,"PRIORITY")),IMAGE)
+"RTN","MAGBRTE4",203,0)
+ . . S VRS=$$VRS^MAGBRTE5(VRS,$$SEND^MAGBRTE5(IMAGE,D,PRI,2,LOCATION))
+"RTN","MAGBRTE4",204,0)
+ . . Q
+"RTN","MAGBRTE4",205,0)
+ . I ACTION="BALANCE" D BALANCE^MAGBRTE5(IMAGE,.RULE) Q
+"RTN","MAGBRTE4",206,0)
+ . ;
+"RTN","MAGBRTE4",207,0)
+ . ; Other actions to be inserted here...
+"RTN","MAGBRTE4",208,0)
+ . ;
+"RTN","MAGBRTE4",209,0)
+ . Q
+"RTN","MAGBRTE4",210,0)
+ ;
+"RTN","MAGBRTE4",211,0)
+ ; Note: we may have:
+"RTN","MAGBRTE4",212,0)
+ ; Rule 1: If CR, send to XXX
+"RTN","MAGBRTE4",213,0)
+ ; Rule 2: If CT, send to XXX
+"RTN","MAGBRTE4",214,0)
+ ; For a CR, this would cause an entry of
+"RTN","MAGBRTE4",215,0)
+ ; METMSG(0,"SEND(XXX)") for rule 2
+"RTN","MAGBRTE4",216,0)
+ ; and an entry of
+"RTN","MAGBRTE4",217,0)
+ ; METMSG(1,"SEND(XXX)") for rule 1
+"RTN","MAGBRTE4",218,0)
+ ; and for a CT it would be the other way around.
+"RTN","MAGBRTE4",219,0)
+ ; So, first remove all "failed" entries that were successful
+"RTN","MAGBRTE4",220,0)
+ ; for a different rule.
+"RTN","MAGBRTE4",221,0)
+ ;
+"RTN","MAGBRTE4",222,0)
+ S X="" F S X=$O(METMSG(1,X)) Q:X="" D
+"RTN","MAGBRTE4",223,0)
+ . D LOG^MAGBRTE5("Image "_IMAGE_": "_X)
+"RTN","MAGBRTE4",224,0)
+ . K METMSG(0,X)
+"RTN","MAGBRTE4",225,0)
+ . Q
+"RTN","MAGBRTE4",226,0)
+ S X="" F S X=$O(METMSG(0,X)) Q:X="" D
+"RTN","MAGBRTE4",227,0)
+ . D LOG^MAGBRTE5("Image "_IMAGE_": Do not "_X)
+"RTN","MAGBRTE4",228,0)
+ . Q
+"RTN","MAGBRTE4",229,0)
+ Q VRS
+"RTN","MAGBRTE4",230,0)
+ ;
+"RTN","MAGBRTE4",231,0)
+ ;
+"RTN","MAGBRTE4",232,0)
+PRI(PRI,IMAGE) N C,D0,D1,D2,O,P,R,X
+"RTN","MAGBRTE4",233,0)
+ S PRI=$S(PRI="HIGH":750,PRI="NORMAL":500,PRI="LOW":250,1:500)
+"RTN","MAGBRTE4",234,0)
+ S X=$G(^MAG(2005,IMAGE,2))
+"RTN","MAGBRTE4",235,0)
+ S P=$P(X,"^",6) Q:P'=74 PRI
+"RTN","MAGBRTE4",236,0)
+ S R=$P(X,"^",7) Q:'R PRI
+"RTN","MAGBRTE4",237,0)
+ S C=$P($G(^RARPT(R,0)),"^",1) Q:C="" PRI ; IA 1171
+"RTN","MAGBRTE4",238,0)
+ S D0=$O(^RADPT("ADC",C,"")) Q:'D0 PRI ; IA 1172
+"RTN","MAGBRTE4",239,0)
+ S D1=$O(^RADPT("ADC",C,D0,"")) Q:'D1 PRI ; IA 1172
+"RTN","MAGBRTE4",240,0)
+ S D2=$O(^RADPT("ADC",C,D0,D1,"")) Q:'D2 PRI ; IA 1172
+"RTN","MAGBRTE4",241,0)
+ S O=$P($G(^RADPT(D0,"DT",D1,"P",D2,0)),"^",11) Q:'O PRI ; IA 1172
+"RTN","MAGBRTE4",242,0)
+ S X=$P($G(^RAO(75.1,O,0)),"^",6) ; IA 3074
+"RTN","MAGBRTE4",243,0)
+ Q PRI+$S(X=1:20,X=2:10,1:0)
+"RTN","MAGBRTE4",244,0)
+ ;
+"RTN","MAGGSIU4")
+0^2^B81149201
+"RTN","MAGGSIU4",1,0)
+MAGGSIU4 ;WOIFO/NST/GEK - Utilities for Image Import API ; 16 Apr 2013 8:49 AM
+"RTN","MAGGSIU4",2,0)
+ ;;3.0;IMAGING;**121,135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGGSIU4",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGGSIU4",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGGSIU4",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGGSIU4",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGGSIU4",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGGSIU4",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGGSIU4",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGGSIU4",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGGSIU4",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGGSIU4",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGGSIU4",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGGSIU4",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGGSIU4",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGGSIU4",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGGSIU4",17,0)
+ ;;
+"RTN","MAGGSIU4",18,0)
+ Q
+"RTN","MAGGSIU4",19,0)
+ ; ----- Rescind images attached to a TIU note
+"RTN","MAGGSIU4",20,0)
+ ; RESCIND(MAGRY,TIUDA)
+"RTN","MAGGSIU4",21,0)
+ ;
+"RTN","MAGGSIU4",22,0)
+ ; Input Parameters
+"RTN","MAGGSIU4",23,0)
+ ; ================
+"RTN","MAGGSIU4",24,0)
+ ; TIUDA = IEN of TIU note in TIU DOCUMENT file (#8925)
+"RTN","MAGGSIU4",25,0)
+ ;
+"RTN","MAGGSIU4",26,0)
+ ; Return Values
+"RTN","MAGGSIU4",27,0)
+ ; =============
+"RTN","MAGGSIU4",28,0)
+ ; if error found during execution
+"RTN","MAGGSIU4",29,0)
+ ; MAGRY(0) = 0^Error message"
+"RTN","MAGGSIU4",30,0)
+ ; MAGRU(1..N) = messages describing the Error.
+"RTN","MAGGSIU4",31,0)
+ ;
+"RTN","MAGGSIU4",32,0)
+ ; if success
+"RTN","MAGGSIU4",33,0)
+ ; MAGRY(0) = 1^Success
+"RTN","MAGGSIU4",34,0)
+ ; .. for each image queued we have 3 lines of info.
+"RTN","MAGGSIU4",35,0)
+ ; MAGRY(x) = Image(1..n): Tracking ID: TRKID
+"RTN","MAGGSIU4",36,0)
+ ; MAGRY(x+1) = Image(1..n): Queue: QUENUMBER
+"RTN","MAGGSIU4",37,0)
+ ; MAGRY(x+2) = Image(1..n): Image: MAGDA
+"RTN","MAGGSIU4",38,0)
+ ;
+"RTN","MAGGSIU4",39,0)
+ ; if First image success, and subsequent image problem we Return
+"RTN","MAGGSIU4",40,0)
+ ; MAGRY(0) = 2^Warning message
+"RTN","MAGGSIU4",41,0)
+ ; for each successfully Queued image queued we have 3 lines of info as above
+"RTN","MAGGSIU4",42,0)
+ ; for any image that was a problem deleting (unlikely) we have MAGDA and
+"RTN","MAGGSIU4",43,0)
+ ; error messages. The Image is changed to status of "Needs Review",
+"RTN","MAGGSIU4",44,0)
+ ; so it is blocked from view.
+"RTN","MAGGSIU4",45,0)
+ ; MAGRY(x) = Image(n): Image: MAGDA
+"RTN","MAGGSIU4",46,0)
+ ; MAGRY(x+1) =
+"RTN","MAGGSIU4",47,0)
+ ;
+"RTN","MAGGSIU4",48,0)
+ ;
+"RTN","MAGGSIU4",49,0)
+ ; Tracking ID is a field in each file:
+"RTN","MAGGSIU4",50,0)
+ ; IMAGE File (#2005) (Field #108) (index "ATRKID")
+"RTN","MAGGSIU4",51,0)
+ ; IMAGING WINDOWS SESSION File (#2006.82) (Field #8) (index "E")
+"RTN","MAGGSIU4",52,0)
+ ; ACQUISITION SESSION FILE File(#2006.041)(Field #.02) (index "C")
+"RTN","MAGGSIU4",53,0)
+ ;
+"RTN","MAGGSIU4",54,0)
+RESCIND(MAGRY,TIUDA) ; Main entry point to rescind images attached to a TIU note
+"RTN","MAGGSIU4",55,0)
+ N IMGLIST,MAGA,QUECT
+"RTN","MAGGSIU4",56,0)
+ N MAGIEN,REASON,REASDA,MERR
+"RTN","MAGGSIU4",57,0)
+ N I,I2,S,ICT,N0,N2,N40,MPOS
+"RTN","MAGGSIU4",58,0)
+ N $ETRAP,$ESTACK S $ETRAP="D ERRA^MAGGTERR"
+"RTN","MAGGSIU4",59,0)
+ K MAGRY
+"RTN","MAGGSIU4",60,0)
+ ; check TIUDA
+"RTN","MAGGSIU4",61,0)
+ I '$G(TIUDA) S MAGRY(0)="0^TIU Note is not valid: "_TIUDA Q
+"RTN","MAGGSIU4",62,0)
+ I '$D(^TIU(8925,TIUDA)) S MAGRY(0)="0^TIU Note does not exist: "_TIUDA Q
+"RTN","MAGGSIU4",63,0)
+ ;
+"RTN","MAGGSIU4",64,0)
+ ; Does Note have any Images? Quit if No.
+"RTN","MAGGSIU4",65,0)
+ D GETILST^TIUSRVPL(.MAGA,TIUDA)
+"RTN","MAGGSIU4",66,0)
+ I '$D(MAGA) S MAGRY(0)="1^No images found for TIU Note: "_TIUDA Q ; no images found
+"RTN","MAGGSIU4",67,0)
+ ;
+"RTN","MAGGSIU4",68,0)
+ ; Set the Reason text and Reason DA
+"RTN","MAGGSIU4",69,0)
+ S REASON="Rescinded TIU Note"
+"RTN","MAGGSIU4",70,0)
+ S REASDA=$O(^MAG(2005.88,"B",REASON,""))
+"RTN","MAGGSIU4",71,0)
+ ;
+"RTN","MAGGSIU4",72,0)
+ S MAGRY(0)="0^Processing Rescind request..."
+"RTN","MAGGSIU4",73,0)
+ D IMAGES^MAGGNTI(.IMGLIST,TIUDA) ; Get a list with images linked to TIU note
+"RTN","MAGGSIU4",74,0)
+ ; format of result to IMAGES:
+"RTN","MAGGSIU4",75,0)
+ ; XX(1)="B2^20175^<FULL UNC PATCH to Full Res Image>^<FULL UNC PATCH to Abstract>
+"RTN","MAGGSIU4",76,0)
+ ; we know there are images (from above) so a '0^' means an error in this situation.
+"RTN","MAGGSIU4",77,0)
+ I '$P(IMGLIST(0),"^",1) D Q ;
+"RTN","MAGGSIU4",78,0)
+ . S MAGRY(0)="0^Error building Image list for TIU Note: "_TIUDA
+"RTN","MAGGSIU4",79,0)
+ . S MAGRY($O(MAGRY(""),-1)+1)=IMGLIST(0)
+"RTN","MAGGSIU4",80,0)
+ . D MAILERR("",TIUDA,.MAGRY) Q
+"RTN","MAGGSIU4",81,0)
+ . Q
+"RTN","MAGGSIU4",82,0)
+ ;
+"RTN","MAGGSIU4",83,0)
+ S I=0,ICT=0,QUECT=0,MERR=""
+"RTN","MAGGSIU4",84,0)
+ ; we are setting an Import Queue for each image attached to the Note.
+"RTN","MAGGSIU4",85,0)
+ F S I=$O(IMGLIST(I)) Q:I="" D I $L(MERR) S MAGRY(0)=MERR Q
+"RTN","MAGGSIU4",86,0)
+ . S ICT=ICT+1 ; Image Counter.
+"RTN","MAGGSIU4",87,0)
+ . ; example: (1)="B2^19412^c:\image\Q...\QRT00000019412.JPG^c:\image\Q...\QRT00000019412.ABS
+"RTN","MAGGSIU4",88,0)
+ . S MAGIEN=$P(IMGLIST(I),U,2)
+"RTN","MAGGSIU4",89,0)
+ . K MAGRY2
+"RTN","MAGGSIU4",90,0)
+ . D RSND1^MAGGSIU5(.MAGRY2,MAGIEN,TIUDA,REASON)
+"RTN","MAGGSIU4",91,0)
+ . ;
+"RTN","MAGGSIU4",92,0)
+ . ; We need to build MAGRY with MAGRY2 from each image.
+"RTN","MAGGSIU4",93,0)
+ . S I2="" F S I2=$O(MAGRY2(I2)) Q:(I2="") D
+"RTN","MAGGSIU4",94,0)
+ . . S MAGRY($O(MAGRY(""),-1)+1)="Image("_ICT_") "_MAGRY2(I2)
+"RTN","MAGGSIU4",95,0)
+ . . Q
+"RTN","MAGGSIU4",96,0)
+ . ; add the Image IEN to Result Array.
+"RTN","MAGGSIU4",97,0)
+ . S MAGRY($O(MAGRY(""),-1)+1)="Image("_ICT_") IEN: "_MAGIEN
+"RTN","MAGGSIU4",98,0)
+ . ; if success MAGRY2(0)= QueNumber ^Data has been Queued.
+"RTN","MAGGSIU4",99,0)
+ . I MAGRY2(0)>0 S QUECT=QUECT+1
+"RTN","MAGGSIU4",100,0)
+ . I 'MAGRY2(0) D ;
+"RTN","MAGGSIU4",101,0)
+ . . ; If Error after calling RSND1, then if Image ISN'T Deleted, we
+"RTN","MAGGSIU4",102,0)
+ . . ; want to change it's status to 'Needs Review' to block it from view.
+"RTN","MAGGSIU4",103,0)
+ . . D SETSTAT(MAGIEN,11,REASDA)
+"RTN","MAGGSIU4",104,0)
+ . . ;
+"RTN","MAGGSIU4",105,0)
+ . . ; if this is first image, we Quit the process.
+"RTN","MAGGSIU4",106,0)
+ . . I ICT=1 S MERR=MAGRY2(0) Q
+"RTN","MAGGSIU4",107,0)
+ . . ; if this is image other than first, we return Warning.
+"RTN","MAGGSIU4",108,0)
+ . . S MAGRY(0)="2^Warning while creating Import Queue"
+"RTN","MAGGSIU4",109,0)
+ . . Q
+"RTN","MAGGSIU4",110,0)
+ . Q
+"RTN","MAGGSIU4",111,0)
+ ; add TIUDA to the result Array.
+"RTN","MAGGSIU4",112,0)
+ S MAGRY($O(MAGRY(""),-1)+1)="TIU Note: "_TIUDA
+"RTN","MAGGSIU4",113,0)
+ ; Call MAILERR if needed i.e if MAGRY(0)=0 OR 2 .
+"RTN","MAGGSIU4",114,0)
+ I $L(MERR)!(+MAGRY(0)=2) D MAILERR("","",.MAGRY) Q
+"RTN","MAGGSIU4",115,0)
+ ; Here. Image has been queued. If Group, check for QUECT not equal Image Count.
+"RTN","MAGGSIU4",116,0)
+ S MPOS="" I QUECT>1 S MPOS="s"
+"RTN","MAGGSIU4",117,0)
+ S MAGRY(0)="1^"_QUECT_" Image"_MPOS_" Queued for RESCINDED watermark"
+"RTN","MAGGSIU4",118,0)
+ ; if only some of images queued for watermark, change status in
+"RTN","MAGGSIU4",119,0)
+ ; (0) node to warning '2' and add a line of text.
+"RTN","MAGGSIU4",120,0)
+ I QUECT<ICT D
+"RTN","MAGGSIU4",121,0)
+ . S $P(MAGRY(0),"^",1)="2"
+"RTN","MAGGSIU4",122,0)
+ . S MAGRY($O(MAGRY(""),-1)+1)="Warning : Only "_QUECT_" of "_ICT_" images were Queued for Watermark"
+"RTN","MAGGSIU4",123,0)
+ Q
+"RTN","MAGGSIU4",124,0)
+ ;
+"RTN","MAGGSIU4",125,0)
+ ; -------- TRKID() Returns Unique Tracking ID for Import API --------
+"RTN","MAGGSIU4",126,0)
+ ; Imaging is now a 'user' of the Import API. This API call will
+"RTN","MAGGSIU4",127,0)
+ ; guarantee a unique Imaging Tracking ID number for Rescind "MAGRSND"
+"RTN","MAGGSIU4",128,0)
+ ; to be used when Imaging Calls the Import API.
+"RTN","MAGGSIU4",129,0)
+ ; ; e.g. MAGRSND;3110222.080459.344
+"RTN","MAGGSIU4",130,0)
+TRKID() ; Returns a new unique Import API tracking id
+"RTN","MAGGSIU4",131,0)
+ N TKI,EDT
+"RTN","MAGGSIU4",132,0)
+ ; Set the required 0 node of XTMP.
+"RTN","MAGGSIU4",133,0)
+ S EDT=$$FMADD^XLFDT(DT,30)
+"RTN","MAGGSIU4",134,0)
+ I $P($G(^XTMP("MAGTRKID",0)),"^",1)<EDT S $P(^XTMP("MAGTRKID",0),"^",1,2)=EDT_"^"_DT
+"RTN","MAGGSIU4",135,0)
+ ;
+"RTN","MAGGSIU4",136,0)
+ ; Need to use LOCKs and daily counter to assure we have unique TRKID
+"RTN","MAGGSIU4",137,0)
+ ; Lock it, increment today's counter, use increment, update counter and UnLock it for next.
+"RTN","MAGGSIU4",138,0)
+ L +^XTMP("MAGTRKID"):4 E Q 0
+"RTN","MAGGSIU4",139,0)
+ S TKI=$G(^XTMP("MAGTRKID",DT))+1
+"RTN","MAGGSIU4",140,0)
+ S ^XTMP("MAGTRKID",DT)=TKI
+"RTN","MAGGSIU4",141,0)
+ L -^XTMP("MAGTRKID")
+"RTN","MAGGSIU4",142,0)
+ ;
+"RTN","MAGGSIU4",143,0)
+ Q "MAGRSND;"_$$NOW^XLFDT_"."_TKI
+"RTN","MAGGSIU4",144,0)
+ ;
+"RTN","MAGGSIU4",145,0)
+ ;
+"RTN","MAGGSIU4",146,0)
+ ; -------- STATCB(STATARR) -----------
+"RTN","MAGGSIU4",147,0)
+ ; TAG^ROUTINE Receives the status array of the Import Process.
+"RTN","MAGGSIU4",148,0)
+ ; This is the Imaging Callback function required by the Import API.
+"RTN","MAGGSIU4",149,0)
+ ; This Status Callback is for the RESCIND Import function.
+"RTN","MAGGSIU4",150,0)
+ ; STATARR is the status array of the Import Process
+"RTN","MAGGSIU4",151,0)
+ ; ; STATARR is the format
+"RTN","MAGGSIU4",152,0)
+ ; (0)=0|1|2 0=Error, 1=Success, 2=Warning
+"RTN","MAGGSIU4",153,0)
+ ; (1)=Tracking ID
+"RTN","MAGGSIU4",154,0)
+ ; (2)=Queue Number
+"RTN","MAGGSIU4",155,0)
+ ; (3..n)= any extra messages describing error or warning.
+"RTN","MAGGSIU4",156,0)
+ ;
+"RTN","MAGGSIU4",157,0)
+STATCB(STATARR) ; CALLBACK function for IAPI Status array for Rescinded Import.
+"RTN","MAGGSIU4",158,0)
+ ; Tracking of Rescinded Image through IMAGE ACCESS LOG (#2006.95)
+"RTN","MAGGSIU4",159,0)
+ ; For Rescinded Images : Set Delete Queue with File Name(s)
+"RTN","MAGGSIU4",160,0)
+ ; i.e. the Image Entry in 2005 is already deleted, now delete the Image Files
+"RTN","MAGGSIU4",161,0)
+ ; Email Status of Rescind to Mail Group. Success, Warning or Error.
+"RTN","MAGGSIU4",162,0)
+ ;
+"RTN","MAGGSIU4",163,0)
+ N IDATA,TRKID,I,SESS,SDATA
+"RTN","MAGGSIU4",164,0)
+ N MAGDUZ,MAGO,MAGDFN,MAGAD
+"RTN","MAGGSIU4",165,0)
+ N STATUS ;Status of the Rescinded Import
+"RTN","MAGGSIU4",166,0)
+ S STATUS=+$P($G(STATARR(0)),"^",1)
+"RTN","MAGGSIU4",167,0)
+ S TRKID=$G(STATARR(1))
+"RTN","MAGGSIU4",168,0)
+ I $L(TRKID) D
+"RTN","MAGGSIU4",169,0)
+ . S SESS=$$SES4TRK^MAGGSIU3(TRKID)
+"RTN","MAGGSIU4",170,0)
+ . I $L(SESS) D ; Create Entry in IMAGE ACCESS LOG file (#2006.95)
+"RTN","MAGGSIU4",171,0)
+ . . S SDATA=$G(^MAG(2006.82,SESS,0))
+"RTN","MAGGSIU4",172,0)
+ . . S MAGDUZ=$P(SDATA,"^",2),MAGO=$P(SDATA,"^",7),MAGDFN=$P(SDATA,"^",6)
+"RTN","MAGGSIU4",173,0)
+ . . ; set the Additional info (MAGAD) to the (0) node message or warning.
+"RTN","MAGGSIU4",174,0)
+ . . ; get out "^" for storage.
+"RTN","MAGGSIU4",175,0)
+ . . S MAGAD=$TR(STATARR(0),"^","~")
+"RTN","MAGGSIU4",176,0)
+ . . ; Parameters needed: (MAGAD optional)
+"RTN","MAGGSIU4",177,0)
+ . . ; ENTRY^MAGLOG(MAGIMT ,MAGDUZ ,MAGO ,MAGPACK, MAGDFN ,MAGCT,MAGAD)
+"RTN","MAGGSIU4",178,0)
+ . . D ENTRY^MAGLOG("RESCIND",MAGDUZ,MAGO,"IAPI",MAGDFN,1,MAGAD)
+"RTN","MAGGSIU4",179,0)
+ . . Q
+"RTN","MAGGSIU4",180,0)
+ . ; If there are Rescinded image files, we get a list of the files we need
+"RTN","MAGGSIU4",181,0)
+ . ; to set Delete Queues for. i.e. this is Abs, Full, Big and Alt (Alt is TXT File).
+"RTN","MAGGSIU4",182,0)
+ . ; In the Session File we saved the Place. Place is needed for the Delete function.
+"RTN","MAGGSIU4",183,0)
+ . ; So we get data from Session File (#2006.82) for the files to delete.
+"RTN","MAGGSIU4",184,0)
+ . D GETIAPID^MAGGSIUI(.IDATA,TRKID) ; Data from (#2006.82) Session File.
+"RTN","MAGGSIU4",185,0)
+ . ;135T5 Topeka issue: Only Delete Images if Rescind is Successful.
+"RTN","MAGGSIU4",186,0)
+ . I STATUS S I=0 F S I=$O(STATARR(I)) Q:'I D ;
+"RTN","MAGGSIU4",187,0)
+ . . I $P(STATARR(I),"^",1)="RESCINDED IMAGE FILE" D DELFILES(.IDATA)
+"RTN","MAGGSIU4",188,0)
+ . . Q
+"RTN","MAGGSIU4",189,0)
+ . Q
+"RTN","MAGGSIU4",190,0)
+ ; Mail Status.
+"RTN","MAGGSIU4",191,0)
+ D MAILSTAT(.STATARR)
+"RTN","MAGGSIU4",192,0)
+ Q
+"RTN","MAGGSIU4",193,0)
+ ; -------- Notifies user of problems of the Rescind/Watermark attempt.
+"RTN","MAGGSIU4",194,0)
+ ; IEN : IMAGE File (#2005)
+"RTN","MAGGSIU4",195,0)
+ ; TIUDA : TIU DOCUMENT File (#8925)
+"RTN","MAGGSIU4",196,0)
+ ; STARR : Status array to send in message.
+"RTN","MAGGSIU4",197,0)
+MAILERR(IEN,TIUDA,STARR) ; Notifies user of problems.
+"RTN","MAGGSIU4",198,0)
+ ; IEN = IEN of the image in IMAGE file (#2005)
+"RTN","MAGGSIU4",199,0)
+ ; TIUDA = IEN of Note in TIU DOCUMENT File (#8925)
+"RTN","MAGGSIU4",200,0)
+ ; Only add IEN, TIUDA if requested.
+"RTN","MAGGSIU4",201,0)
+ I $G(IEN) S STARR($O(STARR(""),-1)+1)="Image IEN: "_$G(IEN)
+"RTN","MAGGSIU4",202,0)
+ I $G(TIUDA) S STARR($O(STARR(""),-1)+1)="TIU Note: "_$G(TIUDA)
+"RTN","MAGGSIU4",203,0)
+ D MAILSTAT(.STARR)
+"RTN","MAGGSIU4",204,0)
+ Q
+"RTN","MAGGSIU4",205,0)
+ ;
+"RTN","MAGGSIU4",206,0)
+ ; ----- MAILSTAT - Mail Msgs from RESCIND Function.--------
+"RTN","MAGGSIU4",207,0)
+ ; STATARR : Status Array to send to G.MAG SERVER mail group.
+"RTN","MAGGSIU4",208,0)
+ ;
+"RTN","MAGGSIU4",209,0)
+MAILSTAT(STATARR) ;Status Callback (called by the import API)
+"RTN","MAGGSIU4",210,0)
+ ;
+"RTN","MAGGSIU4",211,0)
+ N I,MARR,CT
+"RTN","MAGGSIU4",212,0)
+ N XMDUZ,XMSUB,XMTEXT,XMY
+"RTN","MAGGSIU4",213,0)
+ ; 0 = error, 2 = Warning, 1 = Success.
+"RTN","MAGGSIU4",214,0)
+ ; [ ] do we Always send email, Success or Not. ?
+"RTN","MAGGSIU4",215,0)
+ ; or only sending Error and Warning, because too many emails ?
+"RTN","MAGGSIU4",216,0)
+ ; I $P(STATARR(0),"^",1)'=1 D ;
+"RTN","MAGGSIU4",217,0)
+ D ; For now, Always send email, Success or Not.
+"RTN","MAGGSIU4",218,0)
+ . ; send email to G.MAG SERVER and current user.
+"RTN","MAGGSIU4",219,0)
+ . ;Send to:
+"RTN","MAGGSIU4",220,0)
+ . S XMY("G.MAG SERVER")=""
+"RTN","MAGGSIU4",221,0)
+ . S XMDUZ=DUZ ; Current User could be TIU User. Send DUZ also.
+"RTN","MAGGSIU4",222,0)
+ . S XMSUB="Import API Report"
+"RTN","MAGGSIU4",223,0)
+ . S XMTEXT="MARR("
+"RTN","MAGGSIU4",224,0)
+ . ; XMD needs array to start with 1
+"RTN","MAGGSIU4",225,0)
+ . S CT=0,I=""
+"RTN","MAGGSIU4",226,0)
+ . F S I=$O(STATARR(I)) Q:I="" D
+"RTN","MAGGSIU4",227,0)
+ . . S CT=CT+1,MARR(CT)=I_") "_STATARR(I)
+"RTN","MAGGSIU4",228,0)
+ . . Q
+"RTN","MAGGSIU4",229,0)
+ . S CT=CT+1,MARR(CT)=" "
+"RTN","MAGGSIU4",230,0)
+ . S CT=CT+1,MARR(CT)=" The preceding array was generated by"
+"RTN","MAGGSIU4",231,0)
+ . S CT=CT+1,MARR(CT)=" the VistA Imaging Import API while "
+"RTN","MAGGSIU4",232,0)
+ . S CT=CT+1,MARR(CT)=" processing a 'RESCIND' Image action."
+"RTN","MAGGSIU4",233,0)
+ . D ^XMD
+"RTN","MAGGSIU4",234,0)
+ . Q
+"RTN","MAGGSIU4",235,0)
+ Q
+"RTN","MAGGSIU4",236,0)
+ ; ----- Set Status of Image and Status Reason.
+"RTN","MAGGSIU4",237,0)
+ ; MAGIEN = Internal entry number IMAGE File (#2005)
+"RTN","MAGGSIU4",238,0)
+ ; STAT = Internal value for STATUS Field (#113)
+"RTN","MAGGSIU4",239,0)
+ ; REASDA = Internal value for STATUS REASON Field (#113.3)
+"RTN","MAGGSIU4",240,0)
+ ;
+"RTN","MAGGSIU4",241,0)
+SETSTAT(MAGIEN,STAT,REASDA) ;
+"RTN","MAGGSIU4",242,0)
+ N MAGFDA,MAGERR,IENC,MSG
+"RTN","MAGGSIU4",243,0)
+ S IENC=MAGIEN_","
+"RTN","MAGGSIU4",244,0)
+ S MAGFDA(2005,IENC,113)=STAT
+"RTN","MAGGSIU4",245,0)
+ ; This is computed: 113.1)=DT Status Date
+"RTN","MAGGSIU4",246,0)
+ ; This is computed:,113.2)=DUZ
+"RTN","MAGGSIU4",247,0)
+ I $G(REASDA) S MAGFDA(2005,IENC,113.3)=REASDA
+"RTN","MAGGSIU4",248,0)
+ D UPDATE^DIE("S","MAGFDA","","MAGERR")
+"RTN","MAGGSIU4",249,0)
+ I $D(MAGERR) D
+"RTN","MAGGSIU4",250,0)
+ . D RTRNERR(.MSG)
+"RTN","MAGGSIU4",251,0)
+ . S MAGRY($O(MAGRY(""),-1)+1)="Failed to Set Status: "_MSG
+"RTN","MAGGSIU4",252,0)
+ . Q
+"RTN","MAGGSIU4",253,0)
+ Q
+"RTN","MAGGSIU4",254,0)
+ ;
+"RTN","MAGGSIU4",255,0)
+ ; ----- RTRNERR Catch FM error during processing of Rescind Image.
+"RTN","MAGGSIU4",256,0)
+ ; Return the Error from FM Call in ETXT.
+"RTN","MAGGSIU4",257,0)
+RTRNERR(ETXT) ; There was error from UPDATE^DIE quit with error text
+"RTN","MAGGSIU4",258,0)
+ S ETXT="0^ERROR "_MAGERR("DIERR",1,"TEXT",1)
+"RTN","MAGGSIU4",259,0)
+ Q
+"RTN","MAGGSIU4",260,0)
+ ; -------- DELETE - Delete Image entry. Rescind Function.--------
+"RTN","MAGGSIU4",261,0)
+ ; IEN : IMAGE FILE (#2005) Internal entry Number
+"RTN","MAGGSIU4",262,0)
+ ; REASON : Free text for (#30.2) DELETED REASON [3F] ^
+"RTN","MAGGSIU4",263,0)
+DELETE(IEN,REASON) ; Delete Image by IEN
+"RTN","MAGGSIU4",264,0)
+ N RSLT,IENDF
+"RTN","MAGGSIU4",265,0)
+ L +^MAG(2005,IEN):4
+"RTN","MAGGSIU4",266,0)
+ E Q "0^Image ID# "_IEN_" is Locked. Delete is Canceled"
+"RTN","MAGGSIU4",267,0)
+ ; the call to DELETE has 3rd param =0 this means do not Set the Delete Queue to
+"RTN","MAGGSIU4",268,0)
+ ; delete the file from Share. We will set the Delete Queue to delete the file
+"RTN","MAGGSIU4",269,0)
+ ; from share after the successful watermarking process.
+"RTN","MAGGSIU4",270,0)
+ ; gek 121T2 This is the IEN + the Force Delete Flag. User won't need MAG DELETE key.
+"RTN","MAGGSIU4",271,0)
+ S IENDF=IEN_"^"_1
+"RTN","MAGGSIU4",272,0)
+ ; '0' in 3rd param : this is a flag to tell function to NOT queue images for delete by
+"RTN","MAGGSIU4",273,0)
+ ; the BP yet.
+"RTN","MAGGSIU4",274,0)
+ D DELETE^MAGGTID(.RSLT,IENDF,0,1,REASON)
+"RTN","MAGGSIU4",275,0)
+ L -^MAG(2005,IEN)
+"RTN","MAGGSIU4",276,0)
+ Q RSLT(0)
+"RTN","MAGGSIU4",277,0)
+ ;
+"RTN","MAGGSIU4",278,0)
+ ; -------- DELFILES(IDATA) After a Rescind Action.
+"RTN","MAGGSIU4",279,0)
+ ; IDATA : has filenames and file places, format is :
+"RTN","MAGGSIU4",280,0)
+ ; "FullFile^AbsFile^BigFile|FullPlace^AbsPlace^BigPlace"
+"RTN","MAGGSIU4",281,0)
+ ;
+"RTN","MAGGSIU4",282,0)
+ ; from the Status Callback call, if successful import and watermark, then we
+"RTN","MAGGSIU4",283,0)
+ ; delete the Image Files associated with the Image that was Rescinded.
+"RTN","MAGGSIU4",284,0)
+DELFILES(IDATA) ;This will format the data for the call to set the Delete Queue.
+"RTN","MAGGSIU4",285,0)
+ N RSN1,RSN2,I,RSNF
+"RTN","MAGGSIU4",286,0)
+ N MAGPLC,MAGFILE2,X,X2,ALTEXT,ALTPATH
+"RTN","MAGGSIU4",287,0)
+ ; Only 1 image is in a Rescind Import.
+"RTN","MAGGSIU4",288,0)
+ ; example :
+"RTN","MAGGSIU4",289,0)
+ ; ..IMAGE,1)=20467~c:\image\SLA0\00\00\02\04\SLA00000020467.TIF~c:\image\SLA0\00\00\02\04\SLA00000020467.ABS~|1~1~1
+"RTN","MAGGSIU4",290,0)
+ ; RSNF= c:\image...\SLA00000020467.TIF~c:\image...\SLA00000020467.ABS~
+"RTN","MAGGSIU4",291,0)
+ ; RSN2=1~1~1
+"RTN","MAGGSIU4",292,0)
+ S RSN1=$P($G(IDATA("IMAGE",1)),"|",1)
+"RTN","MAGGSIU4",293,0)
+ S RSNF=$P(RSN1,"~",2,4)
+"RTN","MAGGSIU4",294,0)
+ S RSN2=$P($G(IDATA("IMAGE",1)),"|",2)
+"RTN","MAGGSIU4",295,0)
+ F I=1,2,3 D
+"RTN","MAGGSIU4",296,0)
+ . ; Send the Full Path and Place : for Full, Abs, Big.
+"RTN","MAGGSIU4",297,0)
+ . ; Don't set null values in the Queue
+"RTN","MAGGSIU4",298,0)
+ . I ($P(RSNF,"~",I)="")!($P(RSN2,"~",I)="") Q
+"RTN","MAGGSIU4",299,0)
+ . S X=$$DELETE^MAGBAPI($P(RSNF,"~",I),$P(RSN2,"~",I))
+"RTN","MAGGSIU4",300,0)
+ . Q
+"RTN","MAGGSIU4",301,0)
+ ;Delete any other ALTernate files. ( TXT)
+"RTN","MAGGSIU4",302,0)
+ ; -- code from MAGGTID, Can't call MAGGTID, because the 2005 entry is gone.
+"RTN","MAGGSIU4",303,0)
+ ; (gek 3/31/03) Since ALT files are (for now) always on same server as Full
+"RTN","MAGGSIU4",304,0)
+ ; We only attempt to delete them here (If we have a path to FullRes on Magnetic)
+"RTN","MAGGSIU4",305,0)
+ ;
+"RTN","MAGGSIU4",306,0)
+ S MAGFILE2=$P(RSNF,"~",1),MAGPLC=$P(RSN2,"~",1)
+"RTN","MAGGSIU4",307,0)
+ S X2=0
+"RTN","MAGGSIU4",308,0)
+ ; Don't set null values in the Queue
+"RTN","MAGGSIU4",309,0)
+ I (MAGFILE2="")!(MAGPLC="") Q
+"RTN","MAGGSIU4",310,0)
+ F S X2=$O(^MAG(2006.1,MAGPLC,2,X2)) Q:'X2 D
+"RTN","MAGGSIU4",311,0)
+ . S ALTEXT=^MAG(2006.1,MAGPLC,2,X2,0)
+"RTN","MAGGSIU4",312,0)
+ . S ALTPATH=$P(MAGFILE2,".")_"."_ALTEXT
+"RTN","MAGGSIU4",313,0)
+ . S X=$$DELETE^MAGBAPI(ALTPATH,MAGPLC)
+"RTN","MAGGSIU4",314,0)
+ . Q
+"RTN","MAGGSIU4",315,0)
+ Q
+"RTN","MAGGSIU5")
+0^3^B39649203
+"RTN","MAGGSIU5",1,0)
+MAGGSIU5 ;WOIFO/GEK - Utilities for Image Import API ; 11 Jun 2013 5:37 PM
+"RTN","MAGGSIU5",2,0)
+ ;;3.0;IMAGING;**121,135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGGSIU5",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGGSIU5",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGGSIU5",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGGSIU5",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGGSIU5",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGGSIU5",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGGSIU5",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGGSIU5",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGGSIU5",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGGSIU5",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGGSIU5",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGGSIU5",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGGSIU5",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGGSIU5",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGGSIU5",17,0)
+ ;;
+"RTN","MAGGSIU5",18,0)
+ Q
+"RTN","MAGGSIU5",19,0)
+ ; ----- RSND1 ----- Rescind One Image
+"RTN","MAGGSIU5",20,0)
+ ; This routine is called by other Imaging routines to Rescind One Image.
+"RTN","MAGGSIU5",21,0)
+ ;
+"RTN","MAGGSIU5",22,0)
+ ; Input Parameters
+"RTN","MAGGSIU5",23,0)
+ ; ================
+"RTN","MAGGSIU5",24,0)
+ ; MAGIEN = IEN of Image entry in IMAGE (#2005) File
+"RTN","MAGGSIU5",25,0)
+ ; TIUDA = IEN of TIU note in TIU DOCUMENT file (#8925)
+"RTN","MAGGSIU5",26,0)
+ ; DELREAS = Free text of Deleted Reason
+"RTN","MAGGSIU5",27,0)
+ ;
+"RTN","MAGGSIU5",28,0)
+ ; MAGIEN and TIUDA are required.
+"RTN","MAGGSIU5",29,0)
+ ; We verify that the Image entry MAGIEN, points to TIUDA.
+"RTN","MAGGSIU5",30,0)
+ ; We also call the Integrity Check for the image, and we do not
+"RTN","MAGGSIU5",31,0)
+ ; process a Rescind Action if the IQ Check fails.
+"RTN","MAGGSIU5",32,0)
+ ;
+"RTN","MAGGSIU5",33,0)
+ ; Return Values
+"RTN","MAGGSIU5",34,0)
+ ; =============
+"RTN","MAGGSIU5",35,0)
+ ; Results are passed back in the MAGRY Array
+"RTN","MAGGSIU5",36,0)
+ ; if error found during execution
+"RTN","MAGGSIU5",37,0)
+ ; MAGRY(0) = 0^Error message"
+"RTN","MAGGSIU5",38,0)
+ ; MAGRY(1..N) = messages describing the Error.
+"RTN","MAGGSIU5",39,0)
+ ;
+"RTN","MAGGSIU5",40,0)
+ ; if success, the result array is same as Import API
+"RTN","MAGGSIU5",41,0)
+ ; MAGRY(0) = 1^Success
+"RTN","MAGGSIU5",42,0)
+ ; MAGRY(1) = TRKID - Tracking ID
+"RTN","MAGGSIU5",43,0)
+ ; MAGRY(2) = QUE - Queue Number from IMPORT QUEUE File(#2006.034)
+"RTN","MAGGSIU5",44,0)
+ ;
+"RTN","MAGGSIU5",45,0)
+ ; Tracking ID is a field in each of the following files:
+"RTN","MAGGSIU5",46,0)
+ ; IMAGE File (#2005) (Field #108) (index "ATRKID")
+"RTN","MAGGSIU5",47,0)
+ ; IMAGING WINDOWS SESSION File (#2006.82) (Field #8) (index "E")
+"RTN","MAGGSIU5",48,0)
+ ; ACQUISITION SESSION FILE File(#2006.041)(Field #.02) (index "C")
+"RTN","MAGGSIU5",49,0)
+ ;
+"RTN","MAGGSIU5",50,0)
+ ;
+"RTN","MAGGSIU5",51,0)
+RSND1(MAGRY,MAGIEN,TIUDA,DELREAS) ; Main entry point to rescind an Image
+"RTN","MAGGSIU5",52,0)
+ N QARR,TRKID,CALLBACK
+"RTN","MAGGSIU5",53,0)
+ N RSLT,REASON,REASDA,MAGTDAT
+"RTN","MAGGSIU5",54,0)
+ N I,QCT,N0,N2,N40,N100,MAGLT
+"RTN","MAGGSIU5",55,0)
+ N IMGSPLCS,MAGRQA
+"RTN","MAGGSIU5",56,0)
+ N MAGTMP,X
+"RTN","MAGGSIU5",57,0)
+ N $ETRAP,$ESTACK S $ETRAP="D ERRA^"_$T(+0)
+"RTN","MAGGSIU5",58,0)
+ ;
+"RTN","MAGGSIU5",59,0)
+ S MAGIEN=$G(MAGIEN),TIUDA=$G(TIUDA)
+"RTN","MAGGSIU5",60,0)
+ ; Quit if MAGIEN is deleted.
+"RTN","MAGGSIU5",61,0)
+ I $$ISDEL^MAGGI11(MAGIEN) D Q
+"RTN","MAGGSIU5",62,0)
+ . S MAGRY(0)="0^Image: "_MAGIEN_" is Deleted"
+"RTN","MAGGSIU5",63,0)
+ . Q
+"RTN","MAGGSIU5",64,0)
+ ; Check for TIUDA, and TIUDA, is same as Image Entry.
+"RTN","MAGGSIU5",65,0)
+ I 'TIUDA S MAGRY(0)="0^A TIU Note is required" Q
+"RTN","MAGGSIU5",66,0)
+ ; If Group Image, use Group (MAGTMP) for next check.
+"RTN","MAGGSIU5",67,0)
+ ; because the group image won't point to TIU, only Group Parent.
+"RTN","MAGGSIU5",68,0)
+ S MAGTMP=MAGIEN
+"RTN","MAGGSIU5",69,0)
+ I $P(^MAG(2005,MAGIEN,0),"^",10) S MAGTMP=$P(^MAG(2005,MAGIEN,0),"^",10)
+"RTN","MAGGSIU5",70,0)
+ I $$GET1^DIQ(2005,MAGTMP_",",17,"I")'=TIUDA D Q
+"RTN","MAGGSIU5",71,0)
+ . S MAGRY(0)="0^Mismatch between the TIU Note parameter and TIU Note linked to Image"
+"RTN","MAGGSIU5",72,0)
+ . S MAGRY(1)="TIU Note: "_TIUDA_" Image: "_MAGIEN
+"RTN","MAGGSIU5",73,0)
+ . Q
+"RTN","MAGGSIU5",74,0)
+ ; Run the Integrity Checker, quit if it finds problem
+"RTN","MAGGSIU5",75,0)
+ D CHK^MAGGSQI(.MAGRQA,MAGIEN) I 'MAGRQA(0) D Q
+"RTN","MAGGSIU5",76,0)
+ . S MAGRY(0)=MAGRQA(0)
+"RTN","MAGGSIU5",77,0)
+ . Q
+"RTN","MAGGSIU5",78,0)
+ ; Quit if Image is already Rescinded,
+"RTN","MAGGSIU5",79,0)
+ ; (checking Field # 115.2 LINKED TYPE)
+"RTN","MAGGSIU5",80,0)
+ S MAGLT=$$GET1^DIQ(2005,MAGIEN_",",115.2,"I") I MAGLT=1 D Q
+"RTN","MAGGSIU5",81,0)
+ . S MAGRY(0)="0^Image is already Rescinded."
+"RTN","MAGGSIU5",82,0)
+ . S MAGRY(1)="RESCIND Action is Canceled."
+"RTN","MAGGSIU5",83,0)
+ . Q
+"RTN","MAGGSIU5",84,0)
+ ;
+"RTN","MAGGSIU5",85,0)
+ S MAGRY(0)="0^Processing Rescind request..."
+"RTN","MAGGSIU5",86,0)
+ ;
+"RTN","MAGGSIU5",87,0)
+ S CALLBACK="STATCB^MAGGSIU4"
+"RTN","MAGGSIU5",88,0)
+ S REASON=$G(DELREAS,"Rescinded TIU Note")
+"RTN","MAGGSIU5",89,0)
+ S REASDA=$$FIND1^DIC(2005.88,"","X",REASON)
+"RTN","MAGGSIU5",90,0)
+ ; Get data for TIU Note.
+"RTN","MAGGSIU5",91,0)
+ D DATA^MAGGNTI(.MAGTDAT,TIUDA)
+"RTN","MAGGSIU5",92,0)
+ ;
+"RTN","MAGGSIU5",93,0)
+ ; IMGSPLCS : Image paths and Image places.
+"RTN","MAGGSIU5",94,0)
+ ; Get string of Full File Path's | File Places.
+"RTN","MAGGSIU5",95,0)
+ ; This is needed after success, to Delete the Files from Image Network.
+"RTN","MAGGSIU5",96,0)
+ ; i.e. Image Full Path^Abs full Path^Big full Path|Image Place^Abs Place^Big Place
+"RTN","MAGGSIU5",97,0)
+ S IMGSPLCS=$$IMGPLC(MAGIEN)
+"RTN","MAGGSIU5",98,0)
+ S I=0,QCT=0
+"RTN","MAGGSIU5",99,0)
+ ;
+"RTN","MAGGSIU5",100,0)
+ S N0=$G(^MAG(2005,MAGIEN,0))
+"RTN","MAGGSIU5",101,0)
+ S N2=$G(^MAG(2005,MAGIEN,2))
+"RTN","MAGGSIU5",102,0)
+ S N40=$G(^MAG(2005,MAGIEN,40))
+"RTN","MAGGSIU5",103,0)
+ S N100=$G(^MAG(2005,MAGIEN,100))
+"RTN","MAGGSIU5",104,0)
+ ;
+"RTN","MAGGSIU5",105,0)
+ ; We Delete the image entry first, then set the Import Queue.
+"RTN","MAGGSIU5",106,0)
+ S RSLT=$$DELETE^MAGGSIU4(MAGIEN,REASON)
+"RTN","MAGGSIU5",107,0)
+ ; Quit if we can't delete.
+"RTN","MAGGSIU5",108,0)
+ I $P(RSLT,"^",1)=0 D Q ;
+"RTN","MAGGSIU5",109,0)
+ . S MAGRY(0)=RSLT
+"RTN","MAGGSIU5",110,0)
+ . Q
+"RTN","MAGGSIU5",111,0)
+ ;
+"RTN","MAGGSIU5",112,0)
+ S TRKID=$$TRKID^MAGGSIU4() ; Get unique Import API tracking ID
+"RTN","MAGGSIU5",113,0)
+ I TRKID=0 S MAGRY(0)="0^Error generating a Tracking ID" Q
+"RTN","MAGGSIU5",114,0)
+ ;
+"RTN","MAGGSIU5",115,0)
+ ; Set up Import queue data
+"RTN","MAGGSIU5",116,0)
+ ;--
+"RTN","MAGGSIU5",117,0)
+ ; ACTION is the new Import Data Code. We'll send 'RESCIND' to the
+"RTN","MAGGSIU5",118,0)
+ ; Active X control for special processing.
+"RTN","MAGGSIU5",119,0)
+ S QCT=QCT+1,QARR(QCT)="ACTION^RESCIND"
+"RTN","MAGGSIU5",120,0)
+ S QCT=QCT+1,QARR(QCT)="PXIEN^"_TIUDA ; IEN of TIU note
+"RTN","MAGGSIU5",121,0)
+ S QCT=QCT+1,QARR(QCT)="TRKID^"_TRKID ; Import API Track ID
+"RTN","MAGGSIU5",122,0)
+ S QCT=QCT+1,QARR(QCT)="STSCB^"_CALLBACK ; Status call back routine
+"RTN","MAGGSIU5",123,0)
+ ; The format of 'IMAGE' Data for a Rescind is different than for
+"RTN","MAGGSIU5",124,0)
+ ; a Normal Image Import. This is by design so that the
+"RTN","MAGGSIU5",125,0)
+ ; old version of the IAPI (called by BP Patch 39 and before)
+"RTN","MAGGSIU5",126,0)
+ ; does not process this import.
+"RTN","MAGGSIU5",127,0)
+ S QCT=QCT+1,QARR(QCT)="IMAGE"_"^"_MAGIEN_"^"_IMGSPLCS
+"RTN","MAGGSIU5",128,0)
+ ;
+"RTN","MAGGSIU5",129,0)
+ ; Now, set the Required data (plus new data) then call MAGGSIUI the
+"RTN","MAGGSIU5",130,0)
+ ; same as always. It'll set an IMPORT QUEUE (#2006.034)
+"RTN","MAGGSIU5",131,0)
+ ; and track the data in the IMAGING WINDOWS SESSION file (#2006.82)
+"RTN","MAGGSIU5",132,0)
+ ; the same as all imports.
+"RTN","MAGGSIU5",133,0)
+ ;
+"RTN","MAGGSIU5",134,0)
+ S QCT=QCT+1,QARR(QCT)="PXPKG^8925"
+"RTN","MAGGSIU5",135,0)
+ ;;;S QCT=QCT+1,QARR(QCT)="PXDT^"_$P(MAGTDAT,"^",3) ;135 T6
+"RTN","MAGGSIU5",136,0)
+ S QCT=QCT+1,QARR(QCT)="PXDT^"_$P(N2,"^",5) ;135 T6
+"RTN","MAGGSIU5",137,0)
+ ; 135 T6 Remedy INC000000795508 instead of MAGTDAT^3 (Entry Date) we use Procedure Date/Time
+"RTN","MAGGSIU5",138,0)
+ ; from the Exiting Image Entry, which is the Reference Date of the TIU Note.
+"RTN","MAGGSIU5",139,0)
+ S QCT=QCT+1,QARR(QCT)="IDFN^"_$P(N0,"^",7)
+"RTN","MAGGSIU5",140,0)
+ ; P135T6 Set Acquisition Site the same as existing Image
+"RTN","MAGGSIU5",141,0)
+ ; if existing Acq Site is null, use DUZ(2)
+"RTN","MAGGSIU5",142,0)
+ S X=$P(N100,"^",3)
+"RTN","MAGGSIU5",143,0)
+ I X]"" S QCT=QCT+1,QARR(QCT)="ACQS^"_X
+"RTN","MAGGSIU5",144,0)
+ E S QCT=QCT+1,QARR(QCT)="ACQS^"_DUZ(2)
+"RTN","MAGGSIU5",145,0)
+ S QCT=QCT+1,QARR(QCT)="ACQD^"_"IAPI" ; This is the acquisition device. Import API.
+"RTN","MAGGSIU5",146,0)
+ S QCT=QCT+1,QARR(QCT)="GDESC^"_$E("RESCINDED "_$p(N2,"^",4),1,60)
+"RTN","MAGGSIU5",147,0)
+ ;gek/p121t2 Force IXTYPE to be ADVANCE DIRECTIVE to fix IMED issue of
+"RTN","MAGGSIU5",148,0)
+ ; indexing AD's as Miscelleneous Document.
+"RTN","MAGGSIU5",149,0)
+ S QCT=QCT+1,QARR(QCT)="IXTYPE^"_"ADVANCE DIRECTIVE" ;$P(N40,"^",3)
+"RTN","MAGGSIU5",150,0)
+ S QCT=QCT+1,QARR(QCT)="IXPROC^"_$P(N40,"^",4)
+"RTN","MAGGSIU5",151,0)
+ S QCT=QCT+1,QARR(QCT)="IXSPEC^"_$P(N40,"^",5)
+"RTN","MAGGSIU5",152,0)
+ S QCT=QCT+1,QARR(QCT)="IXORIGIN^"_$P(N40,"^",6)
+"RTN","MAGGSIU5",153,0)
+ ; To this point, all data in array will be passed back from OCX.
+"RTN","MAGGSIU5",154,0)
+ ; The data Below : will be validated in the call to REMOTE^MAGGSIUI, and stored in the Session
+"RTN","MAGGSIU5",155,0)
+ ; File, but won't be returned in the call to ADD^MAGGSIA. the old design of the IAPI prohibits
+"RTN","MAGGSIU5",156,0)
+ ; data except for the Import Codes known by IAPI. So in ADD^MAGGSIA1 before the call to UPDATE^DIC,
+"RTN","MAGGSIU5",157,0)
+ ; the data for these fields (for Rescinded Import) will need to be retrieved from the
+"RTN","MAGGSIU5",158,0)
+ ; Session file and added to the FDA array.
+"RTN","MAGGSIU5",159,0)
+ ;
+"RTN","MAGGSIU5",160,0)
+ ; PROCEDURE #6
+"RTN","MAGGSIU5",161,0)
+ ; CREATION DATE #110
+"RTN","MAGGSIU5",162,0)
+ ; LINKED IMAGE #115.1
+"RTN","MAGGSIU5",163,0)
+ ; LINKED TYPE #115.2
+"RTN","MAGGSIU5",164,0)
+ ; LINKED DATE #115.3 (DATE TIME)
+"RTN","MAGGSIU5",165,0)
+ ;
+"RTN","MAGGSIU5",166,0)
+ ; make sure the procedure field is not too long.
+"RTN","MAGGSIU5",167,0)
+ S QCT=QCT+1,QARR(QCT)="6^"_$E($P(N0,"^",8),1,10)
+"RTN","MAGGSIU5",168,0)
+ S QCT=QCT+1,QARR(QCT)="110^"_$P(N100,"^",6)
+"RTN","MAGGSIU5",169,0)
+ S QCT=QCT+1,QARR(QCT)="115.1^"_MAGIEN ;comment this out for testing.
+"RTN","MAGGSIU5",170,0)
+ S QCT=QCT+1,QARR(QCT)="115.2^"_"1" ; 1 = RESCIND
+"RTN","MAGGSIU5",171,0)
+ S QCT=QCT+1,QARR(QCT)="115.3^"_$$NOW^XLFDT
+"RTN","MAGGSIU5",172,0)
+ ;
+"RTN","MAGGSIU5",173,0)
+ K MAGRY
+"RTN","MAGGSIU5",174,0)
+ D REMOTE^MAGGSIUI(.MAGRY,.QARR)
+"RTN","MAGGSIU5",175,0)
+ I MAGRY(0) D
+"RTN","MAGGSIU5",176,0)
+ . S MAGRY($O(MAGRY(""),-1)+1)="TrkID: "_$G(TRKID)
+"RTN","MAGGSIU5",177,0)
+ . S MAGRY($O(MAGRY(""),-1)+1)="Queue: "_+MAGRY(0)
+"RTN","MAGGSIU5",178,0)
+ . Q
+"RTN","MAGGSIU5",179,0)
+ Q
+"RTN","MAGGSIU5",180,0)
+ ; ----- ERRA ---- Error trap
+"RTN","MAGGSIU5",181,0)
+ERRA ; Error Trap for RSND1 - Array Return - MAGRY
+"RTN","MAGGSIU5",182,0)
+ N ERR S ERR=$$EC^%ZOSV
+"RTN","MAGGSIU5",183,0)
+ S MAGRY(0)="0^"_ERR
+"RTN","MAGGSIU5",184,0)
+ S MAGRY($O(MAGRY(""),-1)+1)=ERR
+"RTN","MAGGSIU5",185,0)
+ D LOGERR^MAGGTERR(ERR)
+"RTN","MAGGSIU5",186,0)
+ D @^%ZOSF("ERRTN")
+"RTN","MAGGSIU5",187,0)
+ Q
+"RTN","MAGGSIU5",188,0)
+ ; ----- IMGPLC ---- internal call to return Image paths and places.
+"RTN","MAGGSIU5",189,0)
+ ; MAGIEN = IMAGE File (#2005) internal entry number.
+"RTN","MAGGSIU5",190,0)
+IMGPLC(MAGIEN) ; return a string of FullFile^AbsFile^BigFile|FullPlace^AbsPlace^BigPlace
+"RTN","MAGGSIU5",191,0)
+ ;
+"RTN","MAGGSIU5",192,0)
+ N MAGXX,MAGPLC,FPATH
+"RTN","MAGGSIU5",193,0)
+ N RFILE,RPLC
+"RTN","MAGGSIU5",194,0)
+ ; Here we 'New' the variables returned by MAGFILEB so they are cleared after this call.
+"RTN","MAGGSIU5",195,0)
+ N MAGFILE,MAGFILE1,MAGFILE2,MAGJBOL,MAGOFFLN
+"RTN","MAGGSIU5",196,0)
+ S RFILE="",RPLC=""
+"RTN","MAGGSIU5",197,0)
+ ; Get Full Path and Place
+"RTN","MAGGSIU5",198,0)
+ S MAGXX=MAGIEN,MAGPLC=$$DA2PLC^MAGBAPIP(MAGIEN,"F")
+"RTN","MAGGSIU5",199,0)
+ D VSTNOCP^MAGFILEB
+"RTN","MAGGSIU5",200,0)
+ S FPATH=$P(MAGFILE2,"~",1) I FPATH="-1" S FPATH=""
+"RTN","MAGGSIU5",201,0)
+ S RFILE=RFILE_"^"_FPATH,RPLC=RPLC_"^"_MAGPLC
+"RTN","MAGGSIU5",202,0)
+ ;
+"RTN","MAGGSIU5",203,0)
+ ; Get Abs Path and Place
+"RTN","MAGGSIU5",204,0)
+ S MAGXX=MAGIEN,MAGPLC=$$DA2PLC^MAGBAPIP(MAGIEN,"A")
+"RTN","MAGGSIU5",205,0)
+ D ABSNOCP^MAGFILEB
+"RTN","MAGGSIU5",206,0)
+ S FPATH=$P(MAGFILE2,"~",1) I FPATH="-1" S FPATH=""
+"RTN","MAGGSIU5",207,0)
+ S RFILE=RFILE_"^"_FPATH,RPLC=RPLC_"^"_MAGPLC
+"RTN","MAGGSIU5",208,0)
+ ;
+"RTN","MAGGSIU5",209,0)
+ ; Get Big Patch and Place
+"RTN","MAGGSIU5",210,0)
+ S MAGXX=MAGIEN,MAGPLC=$$DA2PLC^MAGBAPIP(MAGIEN,"B")
+"RTN","MAGGSIU5",211,0)
+ D BIGNOCP^MAGFILEB
+"RTN","MAGGSIU5",212,0)
+ S FPATH=$P(MAGFILE2,"~",1) I FPATH="-1" S FPATH=""
+"RTN","MAGGSIU5",213,0)
+ S RFILE=RFILE_"^"_FPATH,RPLC=RPLC_"^"_MAGPLC
+"RTN","MAGGSIU5",214,0)
+ ; get rid of first '^'
+"RTN","MAGGSIU5",215,0)
+ Q $E(RFILE,2,999)_"|"_$E(RPLC,2,999)
+"RTN","MAGIP135")
+0^^B19945197
+"RTN","MAGIP135",1,0)
+MAGIP135 ;PRE/Post init routine to queue site activity at install. ; 21 May 2013 11:42 AM
+"RTN","MAGIP135",2,0)
+ ;;3.0;IMAGING;**135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGIP135",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGIP135",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGIP135",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGIP135",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGIP135",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGIP135",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGIP135",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGIP135",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGIP135",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGIP135",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGIP135",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGIP135",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGIP135",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGIP135",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGIP135",17,0)
+ ;;
+"RTN","MAGIP135",18,0)
+ Q
+"RTN","MAGIP135",19,0)
+PRE ;
+"RTN","MAGIP135",20,0)
+ N FILE,FIELD,CROSSREF
+"RTN","MAGIP135",21,0)
+ D BMES^XPDUTL("Removing 'AC' trigger for Field 124: "_$$FMTE^XLFDT($$NOW^XLFDT))
+"RTN","MAGIP135",22,0)
+ S FILE="2006.1",FIELD="124",CROSSREF="1"
+"RTN","MAGIP135",23,0)
+ D DELIX^DDMOD(FILE,FIELD,CROSSREF,"","","")
+"RTN","MAGIP135",24,0)
+ D BMES^XPDUTL("Removing 'AD' trigger for Field 125: "_$$FMTE^XLFDT($$NOW^XLFDT))
+"RTN","MAGIP135",25,0)
+ S FILE="2006.1",FIELD="125",CROSSREF="1"
+"RTN","MAGIP135",26,0)
+ D DELIX^DDMOD(FILE,FIELD,CROSSREF,"","","")
+"RTN","MAGIP135",27,0)
+ ; Remove data dictionary definition so that the new definition installs cleanly
+"RTN","MAGIP135",28,0)
+ N DIK,DA,DIU
+"RTN","MAGIP135",29,0)
+ ; Output Transform for MAG -> Tier 1 , WORM -> Tier 2 ; CR 1232
+"RTN","MAGIP135",30,0)
+ S DIK="^DD(2005.2,",DA=6,DA(1)=2005.2 D ^DIK
+"RTN","MAGIP135",31,0)
+ ; Tier 2 storage reserve CR 1232
+"RTN","MAGIP135",32,0)
+ S DIK="^DD(2006.1,",DA=11.5,DA(1)=2006.1 D ^DIK
+"RTN","MAGIP135",33,0)
+ ; Image Never Existed Status added to field 113 in 2005
+"RTN","MAGIP135",34,0)
+ S DIK="^DD(2006.1,",DA=113,DA(1)=2005 D ^DIK
+"RTN","MAGIP135",35,0)
+ ; Image Never Existed Status added to field 113 in 2005.1
+"RTN","MAGIP135",36,0)
+ S DIK="^DD(2006.1,",DA=113,DA(1)=2005.1 D ^DIK
+"RTN","MAGIP135",37,0)
+ ; Remove options so new ones install cleanly
+"RTN","MAGIP135",38,0)
+ D RMOPT("MAG JB OFFLINE")
+"RTN","MAGIP135",39,0)
+ ; Remove option(s) so new one(s) install cleanly
+"RTN","MAGIP135",40,0)
+ D RMRPC("MAGQ LOGV")
+"RTN","MAGIP135",41,0)
+ Q
+"RTN","MAGIP135",42,0)
+RMOPT(NAME) ; Removing an OPTION from the OPTION File (#19)
+"RTN","MAGIP135",43,0)
+ N OPT
+"RTN","MAGIP135",44,0)
+ S OPT=$$FIND1^DIC(19,"","X",NAME,"","","")
+"RTN","MAGIP135",45,0)
+ D CLEAN^DILF
+"RTN","MAGIP135",46,0)
+ Q:'OPT
+"RTN","MAGIP135",47,0)
+ I NAME="MAG JB OFFLINE" D MAGSYS(NAME)
+"RTN","MAGIP135",48,0)
+ S DA=OPT,DIK="^DIC(19,"
+"RTN","MAGIP135",49,0)
+ D ^DIK
+"RTN","MAGIP135",50,0)
+ K DA,DIK
+"RTN","MAGIP135",51,0)
+ Q
+"RTN","MAGIP135",52,0)
+MAGSYS(NAME) ;
+"RTN","MAGIP135",53,0)
+ N MENU,ITEM,DA,DIK
+"RTN","MAGIP135",54,0)
+ Q:NAME=""
+"RTN","MAGIP135",55,0)
+ S MENU=+$$FIND1^DIC(19,"","X","MAG SYS MENU") Q:'+MENU
+"RTN","MAGIP135",56,0)
+ S ITEM=$$FIND1^DIC(19.01,","_MENU_",","B",NAME) Q:'+ITEM
+"RTN","MAGIP135",57,0)
+ S DA=ITEM,DA(1)=MENU,DIK="^DIC(19,"_DA(1)_",10," D ^DIK K DA,DIK
+"RTN","MAGIP135",58,0)
+ Q
+"RTN","MAGIP135",59,0)
+RMRPC(NAME) ; Removing an RPC in order to revise
+"RTN","MAGIP135",60,0)
+ N MW,RPC,MWE,DIERR,DA,DIK
+"RTN","MAGIP135",61,0)
+ S MW=$$FIND1^DIC(19,"","X","MAG WINDOWS","","","")
+"RTN","MAGIP135",62,0)
+ D CLEAN^DILF
+"RTN","MAGIP135",63,0)
+ S RPC=$$FIND1^DIC(8994,"","X",NAME,"","","")
+"RTN","MAGIP135",64,0)
+ D CLEAN^DILF
+"RTN","MAGIP135",65,0)
+ Q:'RPC
+"RTN","MAGIP135",66,0)
+ I MW D
+"RTN","MAGIP135",67,0)
+ . S MWE=$$FIND1^DIC(19.05,","_MW_",","X",NAME,"","","")
+"RTN","MAGIP135",68,0)
+ . D CLEAN^DILF
+"RTN","MAGIP135",69,0)
+ . Q:'MWE
+"RTN","MAGIP135",70,0)
+ . S DA=MWE,DA(1)=MW,DIK="^DIC(19,"_DA(1)_",""RPC"","
+"RTN","MAGIP135",71,0)
+ . D ^DIK
+"RTN","MAGIP135",72,0)
+ . K DA,DIK
+"RTN","MAGIP135",73,0)
+ . Q
+"RTN","MAGIP135",74,0)
+ S DA=RPC,DIK="^XWB(8994,"
+"RTN","MAGIP135",75,0)
+ D ^DIK
+"RTN","MAGIP135",76,0)
+ K DA,DIK
+"RTN","MAGIP135",77,0)
+ Q
+"RTN","MAGIP135",78,0)
+POST ;
+"RTN","MAGIP135",79,0)
+ D BMES^XPDUTL("Set default Tier 2 Reserve to 5 if not defined."_$$FMTE^XLFDT($$NOW^XLFDT))
+"RTN","MAGIP135",80,0)
+ N PL,OPT
+"RTN","MAGIP135",81,0)
+ S PL=0
+"RTN","MAGIP135",82,0)
+ F S PL=$O(^MAG(2006.1,PL)) Q:'PL D
+"RTN","MAGIP135",83,0)
+ . Q:$P($G(^MAG(2006.1,PL,1)),U,9)?1N.N ; Do not re-configure if a number value is set
+"RTN","MAGIP135",84,0)
+ . S $P(^MAG(2006.1,PL,1),U,9)=5
+"RTN","MAGIP135",85,0)
+ . Q
+"RTN","MAGIP135",86,0)
+ D BMES^XPDUTL("Updating the MAG SYS MENU. "_$$FMTE^XLFDT($$NOW^XLFDT))
+"RTN","MAGIP135",87,0)
+ S OPT=$$ADD^XPDMENU("MAG SYS MENU","MAG JB OFFLINE")
+"RTN","MAGIP135",88,0)
+ D BMES^XPDUTL("Updating MAG WINDOWS. "_$$FMTE^XLFDT($$NOW^XLFDT))
+"RTN","MAGIP135",89,0)
+ D ADDRPC^MAGQBUT4("MAGQ LOGV","MAG WINDOWS")
+"RTN","MAGIP135",90,0)
+ S OPT=$$ADD^XPDMENU("MAG SYS MENU","MAGQ LOGV")
+"RTN","MAGIP135",91,0)
+ D BMES^XPDUTL("Adding 'Image Never Existed' to the MAG REASON File "_$$FMTE^XLFDT($$NOW^XLFDT))
+"RTN","MAGIP135",92,0)
+ D ADDREAS ;Adds an entry to the MAG REASON File
+"RTN","MAGIP135",93,0)
+ D BMES^XPDUTL("Post Install Mail Message: "_$$FMTE^XLFDT($$NOW^XLFDT))
+"RTN","MAGIP135",94,0)
+ D INS^MAGQBUT4(XPDNM,DUZ,$$NOW^XLFDT,XPDA)
+"RTN","MAGIP135",95,0)
+ Q
+"RTN","MAGIP135",96,0)
+ ;+++++ Adds an entry to the MAG REASON File (#2005.88)
+"RTN","MAGIP135",97,0)
+ADDREAS ; Add new entry "Image Never Existed"
+"RTN","MAGIP135",98,0)
+ ; NAME - value for field (#.01) MAG REASON File (#2005.88)
+"RTN","MAGIP135",99,0)
+ N MAGFDA,MAGERR,MAGWP,REASON,MAGCODE
+"RTN","MAGIP135",100,0)
+ S REASON="Image Never Existed"
+"RTN","MAGIP135",101,0)
+ ; Quit if already exist.
+"RTN","MAGIP135",102,0)
+ I $D(^MAG(2005.88,"B",REASON)) Q
+"RTN","MAGIP135",103,0)
+ S MAGWP(1)="The Image File Never Existed. Copy to Server Failed." ;
+"RTN","MAGIP135",104,0)
+ S MAGFDA(2005.88,"+1,",.01)=REASON
+"RTN","MAGIP135",105,0)
+ S MAGFDA(2005.88,"+1,",.02)="S" ; This is a Status Reason
+"RTN","MAGIP135",106,0)
+ S MAGFDA(2005.88,"+1,",1)="MAGWP"
+"RTN","MAGIP135",107,0)
+ S MAGCODE=$P(^MAG(2005.88,0),"^",3)+1
+"RTN","MAGIP135",108,0)
+ S MAGFDA(2005.88,"+1,",.04)=MAGCODE
+"RTN","MAGIP135",109,0)
+ D UPDATE^DIE("","MAGFDA","","MAGERR")
+"RTN","MAGIP135",110,0)
+ I $D(MAGERR) D
+"RTN","MAGIP135",111,0)
+ . D BMES^MAGKIDS("Error creating new MAG REASON entry")
+"RTN","MAGIP135",112,0)
+ . Q
+"RTN","MAGIP135",113,0)
+ Q
+"RTN","MAGQBPG1")
+0^4^B112714429
+"RTN","MAGQBPG1",1,0)
+MAGQBPG1 ;WOIFO/RMP - REMOTE Task SERVER Program ; 02 Apr 2013 4:12 PM
+"RTN","MAGQBPG1",2,0)
+ ;;3.0;IMAGING;**7,8,20,81,39,135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGQBPG1",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGQBPG1",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQBPG1",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGQBPG1",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGQBPG1",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGQBPG1",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGQBPG1",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGQBPG1",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGQBPG1",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGQBPG1",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGQBPG1",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGQBPG1",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGQBPG1",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGQBPG1",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQBPG1",17,0)
+ ;;
+"RTN","MAGQBPG1",18,0)
+ Q
+"RTN","MAGQBPG1",19,0)
+ENTRY(RESULT,WSTAT,PROCESS) ;RPC[MAGQ JBS]
+"RTN","MAGQBPG1",20,0)
+ N X,SYSIEN,SYSNAME,ZNODE,NODE,INDX,CNT,PROC,%,QPTR,QCNT,SHARE,PLACE,SCANDATE
+"RTN","MAGQBPG1",21,0)
+ S SCANDATE=$$FMTE^XLFDT($$NOW^XLFDT)
+"RTN","MAGQBPG1",22,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPG1",23,0)
+ S (SYSIEN,CNT)=0,SYSNAME="",U="^",PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBPG1",24,0)
+ S SYSIEN=$O(^MAG(2006.8,"C",PLACE,WSTAT,"")) ;TRUE WORKSTATION NAME
+"RTN","MAGQBPG1",25,0)
+ I 'SYSIEN S SYSIEN=$O(^MAG(2006.8,"C",PLACE,$$UPPER^MAGQE4(WSTAT),""))
+"RTN","MAGQBPG1",26,0)
+ I 'SYSIEN D ;ATTEMPT TO FIND A MATCH FROM LOCAL NAME
+"RTN","MAGQBPG1",27,0)
+ . N TRY
+"RTN","MAGQBPG1",28,0)
+ . F TRY=1:1:$L(WSTAT,".") D Q:SYSIEN?1N.N
+"RTN","MAGQBPG1",29,0)
+ . . S SYSIEN=$O(^MAG(2006.8,"C",PLACE,$P(WSTAT,".",TRY),""))
+"RTN","MAGQBPG1",30,0)
+ . . I 'SYSIEN S SYSIEN=$O(^MAG(2006.8,"C",PLACE,$$UPPER^MAGQE4($P(WSTAT,".",TRY)),""))
+"RTN","MAGQBPG1",31,0)
+ I SYSIEN="" D Q
+"RTN","MAGQBPG1",32,0)
+ . S RESULT(0)="-1^This workstation is not currently setup as a Background Processor."
+"RTN","MAGQBPG1",33,0)
+ . Q
+"RTN","MAGQBPG1",34,0)
+ S NODE=^MAG(2006.8,SYSIEN,0)
+"RTN","MAGQBPG1",35,0)
+ S SYSNAME=$P(NODE,U)
+"RTN","MAGQBPG1",36,0)
+ I SYSNAME="" D Q
+"RTN","MAGQBPG1",37,0)
+ . S RESULT(0)="-1^This workstation is not currently setup as a Background Processor."
+"RTN","MAGQBPG1",38,0)
+ . Q
+"RTN","MAGQBPG1",39,0)
+ S RESULT(0)="0^BP List^PID: "_$$BASE^XLFUTL($J,10,16)_U_SYSNAME_U_WSTAT_U_$P(^MAG(2006.1,PLACE,0),U,2)
+"RTN","MAGQBPG1",40,0)
+ S (X,CNT)=0
+"RTN","MAGQBPG1",41,0)
+ F S X=$O(^MAG(2005.2,X)) Q:X'?1N.N S ZNODE=$G(^(X,0)) D
+"RTN","MAGQBPG1",42,0)
+ . Q:'$P(ZNODE,U,6) ;1=online
+"RTN","MAGQBPG1",43,0)
+ . Q:$E($P(ZNODE,U,2),1,2)'="\\"
+"RTN","MAGQBPG1",44,0)
+ . Q:$P(ZNODE,U,10)'=PLACE
+"RTN","MAGQBPG1",45,0)
+ . Q:(($P(ZNODE,U,7)'["WORM")&($P(ZNODE,U,7)'="RW"))
+"RTN","MAGQBPG1",46,0)
+ . S CNT=CNT+1,SHARE=$P(ZNODE,U,2)
+"RTN","MAGQBPG1",47,0)
+ . I $E(SHARE,$L(SHARE))="\" S SHARE=$E(SHARE,1,$L(SHARE)-1)
+"RTN","MAGQBPG1",48,0)
+ . S RESULT(CNT)=X_U_SHARE_U_$P(ZNODE,U,8)
+"RTN","MAGQBPG1",49,0)
+ Q
+"RTN","MAGQBPG1",50,0)
+SHR(RESULT) ; RPC[MAGQ SHARES]
+"RTN","MAGQBPG1",51,0)
+ N TMP,INDX,DATA,CNT,SHARE,CWL,VALUE,PLACE
+"RTN","MAGQBPG1",52,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPG1",53,0)
+ S (CNT,INDX)=0,U="^",PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBPG1",54,0)
+ S CWL=$$CWL^MAGBAPI(PLACE)
+"RTN","MAGQBPG1",55,0)
+ F S INDX=$O(^MAG(2005.2,INDX)) Q:INDX'?1N.N D
+"RTN","MAGQBPG1",56,0)
+ . S DATA=$G(^MAG(2005.2,INDX,0))
+"RTN","MAGQBPG1",57,0)
+ . Q:$P(DATA,U,6,7)'["1^MAG"
+"RTN","MAGQBPG1",58,0)
+ . Q:$P(DATA,U,9)="1" ;ROUTING SHARE
+"RTN","MAGQBPG1",59,0)
+ . Q:$P(DATA,U,2)[":"
+"RTN","MAGQBPG1",60,0)
+ . Q:$P(DATA,U,10)'=PLACE
+"RTN","MAGQBPG1",61,0)
+ . S SHARE=$P(DATA,U,2)
+"RTN","MAGQBPG1",62,0)
+ . Q:$E(SHARE,1,2)'="\\"
+"RTN","MAGQBPG1",63,0)
+ . I $E(SHARE,$L(SHARE))="\" S SHARE=$E(SHARE,1,$L(SHARE)-1)
+"RTN","MAGQBPG1",64,0)
+ . S SHARE=SHARE_U_$P(DATA,U,8)
+"RTN","MAGQBPG1",65,0)
+ . Q:$D(TMP(SHARE))
+"RTN","MAGQBPG1",66,0)
+ . S TMP(SHARE)=INDX
+"RTN","MAGQBPG1",67,0)
+ S INDX=""
+"RTN","MAGQBPG1",68,0)
+ F S INDX=$O(TMP(INDX)) Q:INDX="" D
+"RTN","MAGQBPG1",69,0)
+ . S RESULT(CNT)=TMP(INDX)_U_INDX,CNT=CNT+1
+"RTN","MAGQBPG1",70,0)
+ . S ^TMP("MAGQBP",$J,"SHRLST",CNT-1)=TMP(INDX)_U_INDX
+"RTN","MAGQBPG1",71,0)
+ K TMP
+"RTN","MAGQBPG1",72,0)
+ Q
+"RTN","MAGQBPG1",73,0)
+CNP2(RESULT,IEN,START,STOP,AUTO) ;[MAGQ JBSCN]
+"RTN","MAGQBPG1",74,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPG1",75,0)
+ N FNAME,PIECE,ZNODE,NODE2,BNODE,BNAME,PTR,HASH,TEMP,ORDER,RDATE,PLACE,OFFLINE,PLACEOK,GL,END,ACQSITE,MAGDA,SCANCNT,OFFCNT,ALTPLACE,CORREC
+"RTN","MAGQBPG1",76,0)
+ S (RESULT,GL)="",PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2))),(OFFLINE,PLACEOK,SCANCNT,ALTPLACE,OFFCNT)=0,CORREC=""
+"RTN","MAGQBPG1",77,0)
+ I AUTO D
+"RTN","MAGQBPG1",78,0)
+ . S (IEN,MAGDA)=+IEN
+"RTN","MAGQBPG1",79,0)
+ . S ORDER="R"
+"RTN","MAGQBPG1",80,0)
+ . I START="" S START=$S(IEN>0:IEN,1:$O(^MAG(2005,"A"),-1))
+"RTN","MAGQBPG1",81,0)
+ . S STOP=$O(^MAG(2005,0))
+"RTN","MAGQBPG1",82,0)
+ . Q
+"RTN","MAGQBPG1",83,0)
+ S:START="" START=$O(^MAG(2005,0)) S:STOP="" STOP=$O(^MAG(2005,"A"),-1)
+"RTN","MAGQBPG1",84,0)
+ S ORDER=$S(START>STOP:"R",1:"F")
+"RTN","MAGQBPG1",85,0)
+ I (IEN'?1N.N)!IEN=0 D I IEN="" S RESULT=0 Q
+"RTN","MAGQBPG1",86,0)
+ . I START=0 S IEN=START Q
+"RTN","MAGQBPG1",87,0)
+ . I ORDER="R" D
+"RTN","MAGQBPG1",88,0)
+ . . S I1=+$O(^MAG(2005," "),-1),I2=+$O(^MAG(2005.1," "),-1),END=$S(I1>I2:I1,1:I2)
+"RTN","MAGQBPG1",89,0)
+ . . S IEN=$S(START>END:START,1:START+1) Q
+"RTN","MAGQBPG1",90,0)
+ . E S (IEN,MAGDA)=START-1
+"RTN","MAGQBPG1",91,0)
+ . Q
+"RTN","MAGQBPG1",92,0)
+ S (IEN,MAGDA)=+IEN
+"RTN","MAGQBPG1",93,0)
+ F D SCAN^MAGQBPG1(.IEN,ORDER,.GL) D Q:(((ORDER="R")&(IEN<STOP))!((ORDER="F")&(IEN>STOP))!(('OFFLINE)&PLACEOK)!(CORREC]"")!('IEN)!(SCANCNT>249)!($P(RESULT,U,21)="DUPE")!'$G(ACQSITE))
+"RTN","MAGQBPG1",94,0)
+ . Q:'IEN
+"RTN","MAGQBPG1",95,0)
+ . S SCANCNT=SCANCNT+1,OFFLINE=0
+"RTN","MAGQBPG1",96,0)
+ . S ZNODE=$G(@(GL_IEN_",0)")),ACQSITE=$P($G(@(GL_IEN_",100)")),U,3)
+"RTN","MAGQBPG1",97,0)
+ . S NODE2=$G(@(GL_IEN_",2)"))
+"RTN","MAGQBPG1",98,0)
+ . I ((ZNODE']"")!($P(ZNODE,U,1,2)="^^"))!(NODE2']"")!(($P(NODE2,U,1,8)="^^^^^^^")&(($G(@(GL_IEN_",1)"))']""))) D KLOG(GL,IEN,.CORREC) Q
+"RTN","MAGQBPG1",99,0)
+ . I AUTO,$P(ZNODE,U,11)'="" D Q
+"RTN","MAGQBPG1",100,0)
+ . . S $P(RESULT,U,1)=0
+"RTN","MAGQBPG1",101,0)
+ . . S IEN=0
+"RTN","MAGQBPG1",102,0)
+ . . Q
+"RTN","MAGQBPG1",103,0)
+ . S PLACEOK=$S($$PLACE^MAGBAPI(+ACQSITE)=$$PLACE^MAGBAPI($G(DUZ(2))):1,1:"")
+"RTN","MAGQBPG1",104,0)
+ . I $P(ZNODE,U,2)'="" S OFFLINE=$$IMOFFLN^MAGFILEB($P(ZNODE,U,2)) ; Only check the offline status of image files
+"RTN","MAGQBPG1",105,0)
+ . I OFFLINE S OFFCNT=OFFCNT+1 Q
+"RTN","MAGQBPG1",106,0)
+ . I 'PLACEOK S ALTPLACE=ALTPLACE+1 Q
+"RTN","MAGQBPG1",107,0)
+ . I ($D(^MAG(2005.1,IEN,0))&$D(^MAG(2005,IEN,0))) D Q ; Image is duplicated in the Archive file
+"RTN","MAGQBPG1",108,0)
+ . . I $P(^MAG(2005,IEN,0),U,1,8)="^^^^^^^",+$P(^MAG(2005,IEN,0),U,9) D KLOG(GL,IEN,.CORREC) Q
+"RTN","MAGQBPG1",109,0)
+ . . S FDA(2005,IEN_",",13.5)="1" ; Set Dupe field in the Image File
+"RTN","MAGQBPG1",110,0)
+ . . S FDA(2005,IEN_",",13)="1" ; Set IQ field in the Image File
+"RTN","MAGQBPG1",111,0)
+ . . D FILE^DIE("I","FDA","MSG") K FDA,MSG
+"RTN","MAGQBPG1",112,0)
+ . . S FDA(2005.1,IEN_",",13.5)="1" ; Set the Dupe field in the archive file
+"RTN","MAGQBPG1",113,0)
+ . . S FDA(2005.1,IEN_",",13)="1" ; and set the IQ field in the archive file
+"RTN","MAGQBPG1",114,0)
+ . . D FILE^DIE("I","FDA","MSG") K FDA,MSG
+"RTN","MAGQBPG1",115,0)
+ . . S $P(RESULT,U,21)="DUPE"
+"RTN","MAGQBPG1",116,0)
+ . . S $P(RESULT,U)=IEN
+"RTN","MAGQBPG1",117,0)
+ . . I $P(ZNODE,U,2)=$P($G(^MAG(2005.1,IEN,0)),U,2) S $P(RESULT,U,2)=$P(ZNODE,U,2) D
+"RTN","MAGQBPG1",118,0)
+ . . . I $P(RESULT,U,2)="" S $P(RESULT,U,2)="No File Name" Q
+"RTN","MAGQBPG1",119,0)
+ . . E S $P(RESULT,U,2)=$P(ZNODE,U,2)_"/"_$P($G(^MAG(2005.1,IEN,0)),U,2) D
+"RTN","MAGQBPG1",120,0)
+ . . . I $P($P(RESULT,U,2),"/")="" S $P(RESULT,U,2)="No File Name"_$P(RESULT,U,2)
+"RTN","MAGQBPG1",121,0)
+ . . . I $P($P(RESULT,U,2),"/",2)="" S $P(RESULT,U,2)=$P(RESULT,U,2)_"No File Name"
+"RTN","MAGQBPG1",122,0)
+ . . . Q
+"RTN","MAGQBPG1",123,0)
+ . . Q
+"RTN","MAGQBPG1",124,0)
+ . E I $P(ZNODE,U,2)'="" S $P(@(GL_IEN_",0)"),U,12)="0"
+"RTN","MAGQBPG1",125,0)
+ . Q
+"RTN","MAGQBPG1",126,0)
+ S $P(RESULT,U,25)=OFFCNT
+"RTN","MAGQBPG1",127,0)
+ S $P(RESULT,U,26)=ALTPLACE
+"RTN","MAGQBPG1",128,0)
+ I CORREC]"" D Q
+"RTN","MAGQBPG1",129,0)
+ . S $P(RESULT,U,27)=CORREC
+"RTN","MAGQBPG1",130,0)
+ . D SCAN^MAGQBPG1(.IEN,ORDER,.GL)
+"RTN","MAGQBPG1",131,0)
+ . S $P(RESULT,U,24)=IEN
+"RTN","MAGQBPG1",132,0)
+ . Q
+"RTN","MAGQBPG1",133,0)
+ I $S('IEN:1,((ORDER="F")&(IEN>STOP)):1,(SCANCNT>249):1,((ORDER="R")&(IEN<STOP)):1,1:0) D Q
+"RTN","MAGQBPG1",134,0)
+ . S:SCANCNT>249 $P(RESULT,U,24)=IEN
+"RTN","MAGQBPG1",135,0)
+ . S $P(RESULT,U,1)=0
+"RTN","MAGQBPG1",136,0)
+ . Q
+"RTN","MAGQBPG1",137,0)
+ S FNAME=$P(ZNODE,U,2)
+"RTN","MAGQBPG1",138,0)
+ S $P(RESULT,U)=IEN
+"RTN","MAGQBPG1",139,0)
+ Q:($P(RESULT,U,21)="DUPE")
+"RTN","MAGQBPG1",140,0)
+ S $P(RESULT,U,19)=$P($P($G(@(GL_IEN_",2)")),U),".")
+"RTN","MAGQBPG1",141,0)
+ I $P(ZNODE,U,2)'="" D ;NON-GROUP PARENT
+"RTN","MAGQBPG1",142,0)
+ . S BNODE=$G(@(GL_IEN_",""FBIG"")"))
+"RTN","MAGQBPG1",143,0)
+ . I $P(ZNODE,U,5)?1N.N S $P(RESULT,U,3)=$P(ZNODE,U,5)
+"RTN","MAGQBPG1",144,0)
+ . S:$P(BNODE,U,2)?1N.N $P(RESULT,U,4)=$S($P(BNODE,U,3)'="":"["_$P(BNODE,U,3)_"]",1:"")_$P(BNODE,U,2)
+"RTN","MAGQBPG1",145,0)
+ . S:$P(ZNODE,U,3)?1N.N $P(RESULT,U,5)=$P(ZNODE,U,3)
+"RTN","MAGQBPG1",146,0)
+ . S:$P(ZNODE,U,4)?1N.N $P(RESULT,U,6)=$P(ZNODE,U,4)
+"RTN","MAGQBPG1",147,0)
+ . S:$P(BNODE,U)?1N.N $P(RESULT,U,7)=$S($P(BNODE,U,3)'="":"["_$P(BNODE,U,3)_"]",1:"")_$P(BNODE,U)
+"RTN","MAGQBPG1",148,0)
+ . S $P(RESULT,U,8)=$$CWL^MAGBAPI(PLACE)
+"RTN","MAGQBPG1",149,0)
+ . S $P(RESULT,U,2)=FNAME
+"RTN","MAGQBPG1",150,0)
+ . I $D(@(GL_IEN_",""FBIG"")")),'$P(BNODE,U),'$P(BNODE,U,2) S $P(RESULT,U,22)="EMPTY_FBIG"
+"RTN","MAGQBPG1",151,0)
+ . Q
+"RTN","MAGQBPG1",152,0)
+ I '$P($G(@(GL_IEN_",100)")),U,3) S $P(RESULT,U,23)=-1 ;"NO ACQ SITE VALUE"
+"RTN","MAGQBPG1",153,0)
+ I GL[("^MAG(2005.1,") S $P(RESULT,U,21)=$S($P($G(^MAG(2005.1,IEN,100)),U,8)=13:"NE",1:"ARCH")
+"RTN","MAGQBPG1",154,0)
+ E S $P(RESULT,U,12,17)=$$CHKIMG^MAGQBUT2(IEN)
+"RTN","MAGQBPG1",155,0)
+ Q
+"RTN","MAGQBPG1",156,0)
+JPUD(RESULT,JPTR,EXT,IEN) ; RPC[MAGQ JPUD]
+"RTN","MAGQBPG1",157,0)
+ N TYPE,PIECE,NODE,GL
+"RTN","MAGQBPG1",158,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP"),RESULT="0"
+"RTN","MAGQBPG1",159,0)
+ S TYPE=$$FTYPE^MAGQBPRG(EXT,IEN)
+"RTN","MAGQBPG1",160,0)
+ S PIECE=$S(TYPE="BIG":2,1:5)
+"RTN","MAGQBPG1",161,0)
+ S NODE=$S(TYPE="BIG":"FBIG",1:0)
+"RTN","MAGQBPG1",162,0)
+ I JPTR="0" D Q:(RESULT<0)
+"RTN","MAGQBPG1",163,0)
+ . S JPTR=""
+"RTN","MAGQBPG1",164,0)
+ . S GL=$S($D(^MAG(2005,IEN)):"^MAG(2005,",$D(^MAG(2005.1,IEN)):"^MAG(2005.1,",1:0)
+"RTN","MAGQBPG1",165,0)
+ . I GL=0 S RESULT="-1" Q
+"RTN","MAGQBPG1",166,0)
+ . I $D(^MAGQUEUE(2006.033,"B",$P($G(@(GL_IEN_",0)")),U,2))) D Q
+"RTN","MAGQBPG1",167,0)
+ . . S RESULT=-2 Q ;Don't clear the JB pointer if image is on an Offline Platter
+"RTN","MAGQBPG1",168,0)
+ . . Q
+"RTN","MAGQBPG1",169,0)
+ . Q
+"RTN","MAGQBPG1",170,0)
+ S:$D(^MAG(2005,IEN,NODE)) $P(^MAG(2005,IEN,NODE),U,PIECE)=JPTR
+"RTN","MAGQBPG1",171,0)
+ S:$D(^MAG(2005.1,IEN,NODE)) $P(^MAG(2005.1,IEN,NODE),U,PIECE)=JPTR
+"RTN","MAGQBPG1",172,0)
+ S RESULT="1"
+"RTN","MAGQBPG1",173,0)
+ Q
+"RTN","MAGQBPG1",174,0)
+VCUD(RESULT,VCPTR,EXT,IEN) ; RPC[MAGQ VCUD]
+"RTN","MAGQBPG1",175,0)
+ N TYPE,PIECE,NODE
+"RTN","MAGQBPG1",176,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP"),RESULT="0"
+"RTN","MAGQBPG1",177,0)
+ S TYPE=$$FTYPE^MAGQBPRG(EXT,IEN)
+"RTN","MAGQBPG1",178,0)
+ S PIECE=$S(TYPE="BIG":1,TYPE="ABS":4,1:3)
+"RTN","MAGQBPG1",179,0)
+ S NODE=$S(TYPE="BIG":"FBIG",1:0)
+"RTN","MAGQBPG1",180,0)
+ S:VCPTR="0" VCPTR=""
+"RTN","MAGQBPG1",181,0)
+ S:$D(^MAG(2005,IEN,NODE)) $P(^MAG(2005,IEN,NODE),U,PIECE)=VCPTR
+"RTN","MAGQBPG1",182,0)
+ S:$D(^MAG(2005.1,IEN,NODE)) $P(^MAG(2005.1,IEN,NODE),U,PIECE)=VCPTR
+"RTN","MAGQBPG1",183,0)
+ S RESULT="1"
+"RTN","MAGQBPG1",184,0)
+ Q
+"RTN","MAGQBPG1",185,0)
+DFNIQ(RESULT,INPUT,SEND,PLACE,APP) ;
+"RTN","MAGQBPG1",186,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPG1",187,0)
+ N LOC,CNT,Y,XMSUB
+"RTN","MAGQBPG1",188,0)
+ S U="^",RESULT="1"
+"RTN","MAGQBPG1",189,0)
+ S CNT=+$O(^TMP($J,"MAGQDFN",PLACE,APP,""),-1)
+"RTN","MAGQBPG1",190,0)
+ I CNT<2 D
+"RTN","MAGQBPG1",191,0)
+ . S LOC=$$KSP^XUPARAM("WHERE")
+"RTN","MAGQBPG1",192,0)
+ . S ^TMP($J,"MAGQDFN",PLACE,APP,1)=" SITE: "_LOC
+"RTN","MAGQBPG1",193,0)
+ . S ^TMP($J,"MAGQDFN",PLACE,APP,2)=" DATE: "_$$FMTE^XLFDT($$NOW^XLFDT)_" "_$G(^XMB("TIMEZONE"))
+"RTN","MAGQBPG1",194,0)
+ . S CNT=2 Q
+"RTN","MAGQBPG1",195,0)
+ I SEND="1" D
+"RTN","MAGQBPG1",196,0)
+ . S RESULT=$$SUBCHK^XMGAPI0(INPUT,0)
+"RTN","MAGQBPG1",197,0)
+ . Q:$P(RESULT,U)
+"RTN","MAGQBPG1",198,0)
+ . S XMSUB=INPUT
+"RTN","MAGQBPG1",199,0)
+ . N XMTEXT,INTERVAL,XMDUZ,XMZ
+"RTN","MAGQBPG1",200,0)
+ . S INTERVAL=$$GETMI^MAGQBUT5(XMSUB,PLACE)
+"RTN","MAGQBPG1",201,0)
+ . I $$FMADD^XLFDT(+$P(INTERVAL,"^",2),"",+$P(INTERVAL,U,1),"","")>$$NOW^XLFDT D Q
+"RTN","MAGQBPG1",202,0)
+ . . K ^TMP($J,"MAGQDFN",PLACE,APP) Q
+"RTN","MAGQBPG1",203,0)
+ . S XMTEXT="^TMP($J,""MAGQDFN"",PLACE,APP)"
+"RTN","MAGQBPG1",204,0)
+ . D:$$PROD^XUPROD("1") ADDMG^MAGQBUT5(INPUT,.XMY,PLACE)
+"RTN","MAGQBPG1",205,0)
+ . S XMY(DUZ)="",XMDUZ=DUZ,XMY(XMDUZ)=""
+"RTN","MAGQBPG1",206,0)
+ . S XMID=$G(DUZ) S:'XMID XMID=.5
+"RTN","MAGQBPG1",207,0)
+ . S XMINSTR("FLAGS")="I",XMINSTR("FROM")="VistA Imaging "_APP
+"RTN","MAGQBPG1",208,0)
+ . D SENDMSG^XMXAPI(XMID,XMSUB,XMTEXT,.XMY,.XMINSTR,.XMZ,)
+"RTN","MAGQBPG1",209,0)
+ . K ^TMP($J,"MAGQDFN",PLACE,APP)
+"RTN","MAGQBPG1",210,0)
+ . I $G(XMERR) M XMERR=^TMP("XMERR",$J) K XMERR
+"RTN","MAGQBPG1",211,0)
+ . K ^TMP($J,"MAGQDFN",PLACE,APP)
+"RTN","MAGQBPG1",212,0)
+ . D UDMI^MAGQBUT5(INPUT,PLACE) Q
+"RTN","MAGQBPG1",213,0)
+ E S CNT=CNT+1,^TMP($J,"MAGQDFN",PLACE,APP,CNT)=INPUT
+"RTN","MAGQBPG1",214,0)
+ S $P(RESULT,U)=$S($P(RESULT,U):"1",1:0)
+"RTN","MAGQBPG1",215,0)
+ K XMY,XMINSTR,XMID
+"RTN","MAGQBPG1",216,0)
+ Q
+"RTN","MAGQBPG1",217,0)
+SCAN(IEN,ORDER,GB) ; Find the next image spanning the Image and the Image Archive file
+"RTN","MAGQBPG1",218,0)
+ I IEN,GB="^MAG(2005,",$D(^MAG(2005.1,IEN)) D Q
+"RTN","MAGQBPG1",219,0)
+ . S IEN=IEN,GB="^MAG(2005.1," Q
+"RTN","MAGQBPG1",220,0)
+ N I1,I2
+"RTN","MAGQBPG1",221,0)
+ I $G(ORDER)="F" D
+"RTN","MAGQBPG1",222,0)
+ . S I1=$O(^MAG(2005,IEN)),I1=$S(I1:I1,1:"")
+"RTN","MAGQBPG1",223,0)
+ . S I2=$O(^MAG(2005.1,IEN)),I2=$S(I2:I2,1:"")
+"RTN","MAGQBPG1",224,0)
+ . I I1,'I2 S IEN=I1,GB="^MAG(2005," Q
+"RTN","MAGQBPG1",225,0)
+ . I I2,'I1 S IEN=I2,GB="^MAG(2005.1," Q
+"RTN","MAGQBPG1",226,0)
+ . S GB=$S(I1>I2:"^MAG(2005.1,",1:"^MAG(2005,")
+"RTN","MAGQBPG1",227,0)
+ . S IEN=$S(I1>I2:I2,1:I1)
+"RTN","MAGQBPG1",228,0)
+ . Q
+"RTN","MAGQBPG1",229,0)
+ E D ;Reverse
+"RTN","MAGQBPG1",230,0)
+ . S I1=$O(^MAG(2005,IEN),-1),I1=$S(I1:I1,1:"")
+"RTN","MAGQBPG1",231,0)
+ . S I2=$O(^MAG(2005.1,IEN),-1),I2=$S(I2:I2,1:"")
+"RTN","MAGQBPG1",232,0)
+ . I I1,'I2 S IEN=I1,GB="^MAG(2005," Q
+"RTN","MAGQBPG1",233,0)
+ . I I2,'I1 S IEN=I2,GB="^MAG(2005.1," Q
+"RTN","MAGQBPG1",234,0)
+ . S GB=$S(I1<I2:"^MAG(2005.1,",1:"^MAG(2005,")
+"RTN","MAGQBPG1",235,0)
+ . S IEN=$S(I1<I2:I2,1:I1)
+"RTN","MAGQBPG1",236,0)
+ . Q
+"RTN","MAGQBPG1",237,0)
+ S (IEN,MAGDA)=$S('IEN:"",1:IEN)
+"RTN","MAGQBPG1",238,0)
+ Q
+"RTN","MAGQBPG1",239,0)
+KLOG(GL,IEN,CORREC) ;
+"RTN","MAGQBPG1",240,0)
+ S CORREC=$P($P(GL,","),"^MAG(",2)_"~"_IEN
+"RTN","MAGQBPG1",241,0)
+ D LOGKILL(GL_IEN_")") ;Journal the nodes and content being killed
+"RTN","MAGQBPG1",242,0)
+ K @(GL_IEN_")")
+"RTN","MAGQBPG1",243,0)
+ Q
+"RTN","MAGQBPG1",244,0)
+LOGKILL(REC) ; Log the content into the ^TMP global error log rpc
+"RTN","MAGQBPG1",245,0)
+ N NODE,NODE1,NODE2,NODE3,TMP,TMP1
+"RTN","MAGQBPG1",246,0)
+ S NODE=""
+"RTN","MAGQBPG1",247,0)
+ F S NODE=$O(@REC@(NODE)) Q:NODE="" D
+"RTN","MAGQBPG1",248,0)
+ . S TMP=$G(@REC@(NODE)) I TMP]"" S TMP1=$P(REC,")")_","_NODE_")="_TMP D ELOGV(TMP1)
+"RTN","MAGQBPG1",249,0)
+ . S NODE1="" F S NODE1=$O(@REC@(NODE,NODE1)) Q:NODE1="" D
+"RTN","MAGQBPG1",250,0)
+ . . S TMP=$G(@REC@(NODE,NODE1)) I TMP]"" S TMP1=$P(REC,")")_","_NODE_","_NODE1_")="_TMP D ELOGV(TMP1)
+"RTN","MAGQBPG1",251,0)
+ . . S NODE2="" F S NODE2=$O(@REC@(NODE,NODE1,NODE2)) Q:NODE2="" D
+"RTN","MAGQBPG1",252,0)
+ . . . S TMP=$G(@REC@(NODE,NODE1,NODE2)) I TMP]"" S TMP1=$P(REC,")")_","_NODE_","_NODE1_","_NODE2_")"_"="_TMP D ELOGV(TMP1)
+"RTN","MAGQBPG1",253,0)
+ . . . S NODE3="" F S NODE3=$O(@REC@(NODE,NODE1,NODE2,NODE3)) Q:NODE3="" D
+"RTN","MAGQBPG1",254,0)
+ . . . . S TMP=$G(@REC@(NODE,NODE1,NODE2,NODE3)) S TMP1=$P(REC,")")_","_NODE_","_NODE1_","_NODE2_","_NODE3_")="_TMP D ELOGV(TMP1)
+"RTN","MAGQBPG1",255,0)
+ . . . . Q
+"RTN","MAGQBPG1",256,0)
+ . . . Q
+"RTN","MAGQBPG1",257,0)
+ . . Q
+"RTN","MAGQBPG1",258,0)
+ . Q
+"RTN","MAGQBPG1",259,0)
+ Q
+"RTN","MAGQBPG1",260,0)
+ELOGV(MESG,LIMIT) ;TMP Log
+"RTN","MAGQBPG1",261,0)
+ N INDX
+"RTN","MAGQBPG1",262,0)
+ N X S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPG1",263,0)
+ S INDX=+$O(^TMP("MAGQ",$J,"BPV",""),-1)+1
+"RTN","MAGQBPG1",264,0)
+ S ^TMP("MAGQ",$J,"BPV",INDX)=MESG
+"RTN","MAGQBPG1",265,0)
+ Q
+"RTN","MAGQBPG1",266,0)
+ELOGRV(RESULT,LIMIT) ; [MAGQ LOGV] Error log report and purge
+"RTN","MAGQBPG1",267,0)
+ ; Please test this
+"RTN","MAGQBPG1",268,0)
+ N FN,INDX,CNT
+"RTN","MAGQBPG1",269,0)
+ N X S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPG1",270,0)
+ S CNT=0,INDX=""
+"RTN","MAGQBPG1",271,0)
+ F S INDX=$O(^TMP("MAGQ",$J,"BPV",INDX)) Q:INDX'?1N.N Q:CNT=LIMIT D
+"RTN","MAGQBPG1",272,0)
+ . S CNT=CNT+1,RESULT(CNT)=^TMP("MAGQ",$J,"BPV",INDX)
+"RTN","MAGQBPG1",273,0)
+ . K ^TMP("MAGQ",$J,"BPV",INDX)
+"RTN","MAGQBPG1",274,0)
+ . Q
+"RTN","MAGQBPG1",275,0)
+ S RESULT(0)=CNT
+"RTN","MAGQBPG1",276,0)
+ S INDX=$O(^TMP("MAGQ",$J,"BPV",""))
+"RTN","MAGQBPG1",277,0)
+ I INDX?1N.N S RESULT(0)=RESULT(0)_U_"MORE"
+"RTN","MAGQBPG1",278,0)
+ Q
+"RTN","MAGQBPG2")
+0^5^B21657260
+"RTN","MAGQBPG2",1,0)
+MAGQBPG2 ;WCIOFO/RMP - Magnetic Server Purge processes ; 07 Jun 2013 9:55 AM
+"RTN","MAGQBPG2",2,0)
+ ;;3.0;IMAGING;**8,20,39,135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGQBPG2",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGQBPG2",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQBPG2",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGQBPG2",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGQBPG2",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGQBPG2",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGQBPG2",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGQBPG2",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGQBPG2",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGQBPG2",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGQBPG2",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGQBPG2",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGQBPG2",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGQBPG2",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQBPG2",17,0)
+ ;;
+"RTN","MAGQBPG2",18,0)
+ Q
+"RTN","MAGQBPG2",19,0)
+CNP(RESULT,IEN) ; [MAGQ PCHKN]
+"RTN","MAGQBPG2",20,0)
+ N FNAME,PIECE,ZNODE,BNODE,BNAME,PTR,HASH,X
+"RTN","MAGQBPG2",21,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPG2",22,0)
+ S IEN=+IEN,RESULT="^^^",U="^"
+"RTN","MAGQBPG2",23,0)
+ F S IEN=$O(^MAG(2005,IEN)) Q:IEN'?1N.N D Q:RESULT'="^^^"
+"RTN","MAGQBPG2",24,0)
+ . S ZNODE=$G(^MAG(2005,IEN,0))
+"RTN","MAGQBPG2",25,0)
+ . S FNAME=$P(ZNODE,U,2)
+"RTN","MAGQBPG2",26,0)
+ . I (FNAME["\")!(FNAME[":") D
+"RTN","MAGQBPG2",27,0)
+ . . S FNAME=$$FNX(FNAME)
+"RTN","MAGQBPG2",28,0)
+ . . S $P(^MAG(2005,IEN,0),U,2)=FNAME
+"RTN","MAGQBPG2",29,0)
+ . Q:$P(ZNODE,U,2)="" ;PROBABLE GROUP HEAD
+"RTN","MAGQBPG2",30,0)
+ . S BNODE=$G(^MAG(2005,IEN,"FBIG"))
+"RTN","MAGQBPG2",31,0)
+ . S PTR=$P(ZNODE,U,3) I PTR?1N.N D
+"RTN","MAGQBPG2",32,0)
+ . . S HASH=$P(^MAG(2005.2,PTR,0),U,8)
+"RTN","MAGQBPG2",33,0)
+ . . S $P(^MAG(2005,IEN,0),U,3)=$$SHNAM^MAGQBPRG($P(^MAG(2005.2,PTR,0),U,2),HASH)
+"RTN","MAGQBPG2",34,0)
+ . . S $P(RESULT,"^")=$$JBPATH^MAGQBPRG(FNAME,PTR)
+"RTN","MAGQBPG2",35,0)
+ . S PTR=$P(ZNODE,U,4) I PTR?1N.N D
+"RTN","MAGQBPG2",36,0)
+ . . S HASH=$P(^MAG(2005.2,PTR,0),U,8)
+"RTN","MAGQBPG2",37,0)
+ . . S $P(^MAG(2005,IEN,0),U,4)=$$SHNAM^MAGQBPRG($P(^MAG(2005.2,PTR,0),U,2),HASH)
+"RTN","MAGQBPG2",38,0)
+ . . S $P(RESULT,U,2)=$$JBPATH^MAGQBPRG($P(FNAME,".")_".ABS",PTR)
+"RTN","MAGQBPG2",39,0)
+ . S PTR=$P(BNODE,U) I PTR?1N.N D
+"RTN","MAGQBPG2",40,0)
+ . . S HASH=$P(^MAG(2005.2,PTR,0),U,8)
+"RTN","MAGQBPG2",41,0)
+ . . S $P(^MAG(2005,IEN,"FBIG"),U)=$$SHNAM^MAGQBPRG($P(^MAG(2005.2,PTR,0),U,2),HASH)
+"RTN","MAGQBPG2",42,0)
+ . . S BNAME=$P(FNAME,".")_".BIG"
+"RTN","MAGQBPG2",43,0)
+ . . S $P(RESULT,"^",3)=$$JBPATH^MAGQBPRG(BNAME,PTR)
+"RTN","MAGQBPG2",44,0)
+ . I RESULT'="^^^" S $P(RESULT,U,4)=IEN ;IEN
+"RTN","MAGQBPG2",45,0)
+ Q
+"RTN","MAGQBPG2",46,0)
+FNX(NAME) ;FIX FILENAME
+"RTN","MAGQBPG2",47,0)
+ I NAME[":" S NAME=$P(NAME,":",$L(NAME,":"))
+"RTN","MAGQBPG2",48,0)
+ I NAME["\" S NAME=$P(NAME,"\",$L(NAME,"\"))
+"RTN","MAGQBPG2",49,0)
+ Q NAME
+"RTN","MAGQBPG2",50,0)
+CNPT ;
+"RTN","MAGQBPG2",51,0)
+ N IEN,RESULT,%
+"RTN","MAGQBPG2",52,0)
+ S IEN=0
+"RTN","MAGQBPG2",53,0)
+ D NOW^%DTC
+"RTN","MAGQBPG2",54,0)
+ F D CNP(.RESULT,.IEN) W:RESULT[":" !,RESULT Q:IEN'?1N.N D
+"RTN","MAGQBPG2",55,0)
+ . S IEN=$P(RESULT,"^",4)
+"RTN","MAGQBPG2",56,0)
+ Q
+"RTN","MAGQBPG2",57,0)
+PGEPAR(RESULT) ; RPC[MAGQBP PARM]
+"RTN","MAGQBPG2",58,0)
+ ;; RECORD PurgeParam
+"RTN","MAGQBPG2",59,0)
+ ;; Status^ABS^FULL^BIG^FilePrefix^EXPRESSPURGE^PurgeBy^PhotoID^Minimum
+"RTN","MAGQBPG2",60,0)
+ ;; FULL:8,BIG:22,ABS:23,EXPRESSP:60.2,PURGEBY:60.1
+"RTN","MAGQBPG2",61,0)
+ N ABS,FULL,BIG,PREFIX,NODE3,EXPRESSP,PURGEBY,PREFIX,BIG,MINIMUM
+"RTN","MAGQBPG2",62,0)
+ N FILE,PLACE,FIELD,FLAGS,ARR,X,PHOTOID,TEMP
+"RTN","MAGQBPG2",63,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPG2",64,0)
+ S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBPG2",65,0)
+ S NODE3=$G(^MAG(2006.1,PLACE,3))
+"RTN","MAGQBPG2",66,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPG2",67,0)
+ S U="^"
+"RTN","MAGQBPG2",68,0)
+ S FILE=2006.1,FIELD="8;22;23;24;60.2;60.1",FLAGS="E"
+"RTN","MAGQBPG2",69,0)
+ D GETS^DIQ(FILE,PLACE,FIELD,FLAGS,"ARR","ERR")
+"RTN","MAGQBPG2",70,0)
+ S FULL=+ARR(2006.1,PLACE_",",8,"E")
+"RTN","MAGQBPG2",71,0)
+ S ABS=+ARR(2006.1,PLACE_",",23,"E")
+"RTN","MAGQBPG2",72,0)
+ S BIG=+ARR(2006.1,PLACE_",",22,"E")
+"RTN","MAGQBPG2",73,0)
+ S PHOTOID=+ARR(2006.1,PLACE_",",24,"E")
+"RTN","MAGQBPG2",74,0)
+ S EXPRESSP=ARR(2006.1,PLACE_",",60.2,"E")
+"RTN","MAGQBPG2",75,0)
+ S PREFIX=$$INIS(PLACE)
+"RTN","MAGQBPG2",76,0)
+ S PURGEBY=ARR(2006.1,PLACE_",",60.1,"E")
+"RTN","MAGQBPG2",77,0)
+ S:PURGEBY="" PURGEBY="DATE ACCESSED"
+"RTN","MAGQBPG2",78,0)
+ S MINIMUM=FULL F TEMP=ABS,BIG,PHOTOID S:MINIMUM>TEMP MINIMUM=TEMP
+"RTN","MAGQBPG2",79,0)
+ S RESULT="1"_U_ABS_U_FULL_U_BIG_U_PREFIX_U_EXPRESSP_U_PURGEBY_U_PHOTOID_U_MINIMUM
+"RTN","MAGQBPG2",80,0)
+ K ARR
+"RTN","MAGQBPG2",81,0)
+ Q
+"RTN","MAGQBPG2",82,0)
+ ;;
+"RTN","MAGQBPG2",83,0)
+PGEUD(RESULT,FILENAME,EXT,IEN,DEVICE) ; RPC[MAGQBP UPDATE]
+"RTN","MAGQBPG2",84,0)
+ N FTYPE,NODE,PIECE,PLACE,X
+"RTN","MAGQBPG2",85,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPG2",86,0)
+ S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBPG2",87,0)
+ S EXT=$$UPPER^MAGQE4(EXT)
+"RTN","MAGQBPG2",88,0)
+ S RESULT="0",FTYPE=$$FTYPE^MAGQBPRG(EXT,IEN)
+"RTN","MAGQBPG2",89,0)
+ S NODE=$S(FTYPE="BIG":"FBIG",1:0)
+"RTN","MAGQBPG2",90,0)
+ S:DEVICE="JB" PIECE=$S(FTYPE="ABS":5,FTYPE="BIG":2,FTYPE="FULL":5,FTYPE="PHOTOID":5,FTYPE="ADIRECT":5,1:0)
+"RTN","MAGQBPG2",91,0)
+ S:DEVICE="NET" PIECE=$S(EXT="ABS":4,FTYPE="BIG":1,FTYPE="FULL":3,FTYPE="PHOTOID":3,FTYPE="ADIRECT":3,1:0)
+"RTN","MAGQBPG2",92,0)
+ I PIECE=0 D ELOG^MAGQBPRG(NODE,FTYPE,"RAID pointer indeterminate") Q
+"RTN","MAGQBPG2",93,0)
+ S RESULT="1"
+"RTN","MAGQBPG2",94,0)
+ S:$D(^MAG(2005,IEN,NODE)) $P(^MAG(2005,IEN,NODE),U,PIECE)=""
+"RTN","MAGQBPG2",95,0)
+ S:$D(^MAG(2005.1,IEN,NODE)) $P(^MAG(2005.1,IEN,NODE),U,PIECE)=""
+"RTN","MAGQBPG2",96,0)
+ Q
+"RTN","MAGQBPG2",97,0)
+INIS(PLACE) ;
+"RTN","MAGQBPG2",98,0)
+ N ARRY,CNT,SUB,RESULT
+"RTN","MAGQBPG2",99,0)
+ S ARRY($P($G(^MAG(2006.1,PLACE,0)),"^",2))=""
+"RTN","MAGQBPG2",100,0)
+ S CNT=0
+"RTN","MAGQBPG2",101,0)
+ F S CNT=$O(^MAG(2006.1,PLACE,4,CNT)) Q:CNT'?1N.N D
+"RTN","MAGQBPG2",102,0)
+ . S ARRY(^MAG(2006.1,PLACE,4,CNT,0))=""
+"RTN","MAGQBPG2",103,0)
+ S (SUB,RESULT)=""
+"RTN","MAGQBPG2",104,0)
+ F S SUB=$O(ARRY(SUB)) Q:SUB="" D
+"RTN","MAGQBPG2",105,0)
+ . S RESULT=$S(RESULT="":SUB,1:(RESULT_","_SUB))
+"RTN","MAGQBPG2",106,0)
+ K ARRY
+"RTN","MAGQBPG2",107,0)
+ Q RESULT
+"RTN","MAGQBPRG")
+0^6^B59523068
+"RTN","MAGQBPRG",1,0)
+MAGQBPRG ;WOIOFO/RMP - Magnetic Server Purge processes ; 07 Jun 2013 9:53 AM
+"RTN","MAGQBPRG",2,0)
+ ;;3.0;IMAGING;**7,3,8,20,81,39,135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGQBPRG",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGQBPRG",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQBPRG",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGQBPRG",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGQBPRG",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGQBPRG",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGQBPRG",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGQBPRG",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGQBPRG",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGQBPRG",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGQBPRG",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGQBPRG",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGQBPRG",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGQBPRG",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQBPRG",17,0)
+ ;;
+"RTN","MAGQBPRG",18,0)
+ Q
+"RTN","MAGQBPRG",19,0)
+FILEREF(RESULT,FILEPATH,FNAM,EXT,NETLOC) ; RPC[MAGQBP FREF]
+"RTN","MAGQBPRG",20,0)
+ ;VALIDATES THAT THE FILEPATH IS CONSISTENT WITH VISTA MAGFILE REFERENCE
+"RTN","MAGQBPRG",21,0)
+ ;SET THE SECOND PIECE TO "PACS" IF IT REPRESENTS DICOM
+"RTN","MAGQBPRG",22,0)
+ ;VALIDATES THAT A JUKEBOX POINTER EXISTS
+"RTN","MAGQBPRG",23,0)
+ ;RESULT VALUES
+"RTN","MAGQBPRG",24,0)
+ ;PIECE 1:-3 = FOREIGN FILE, DO NOT PURGE
+"RTN","MAGQBPRG",25,0)
+ ; -2 = QUEUED FOR JUKEBOX COPY, DO NOT PURGE
+"RTN","MAGQBPRG",26,0)
+ ; -1 = DO NOT PURGE
+"RTN","MAGQBPRG",27,0)
+ ; **0 = PURGE('MAG 2005 ENTRY)!('JUKEBOX PTRS )
+"RTN","MAGQBPRG",28,0)
+ ; 1 = PURGE GIVEN NORMAL DATE CRITERIA (NDC) + CONFIRMED ON JB
+"RTN","MAGQBPRG",29,0)
+ ; **2 = PURGE GIVEN NDC IF TGA PRESENT
+"RTN","MAGQBPRG",30,0)
+ ; 3 = PURGE IF FILE IS AT ALTERNATE NETWORK LOCATION SITE
+"RTN","MAGQBPRG",31,0)
+ ; ELSE PURGE IF AGED & UPDATE FILE REFERENCES
+"RTN","MAGQBPRG",32,0)
+ ; **4 = (**NA**)AGE PURGE IF ON JUKEBOX, UPDATE FILE REFERENCES
+"RTN","MAGQBPRG",33,0)
+ ; ELSE UPDATE FILEREFENCES, QUEUE JUKEBOX COPY
+"RTN","MAGQBPRG",34,0)
+ ; 5 = PURGE IF AT ALTERNATE SITE,QUEUE JUKEBOX IF NOT ON JB
+"RTN","MAGQBPRG",35,0)
+ ; **6 = PURGE GIVEN NORMAL DATE CRITERIA
+"RTN","MAGQBPRG",36,0)
+ ;PIECE ** 2: FILETYPE
+"RTN","MAGQBPRG",37,0)
+ ; 0 = foreign
+"RTN","MAGQBPRG",38,0)
+ ; 1 = abstract
+"RTN","MAGQBPRG",39,0)
+ ; 2 = full
+"RTN","MAGQBPRG",40,0)
+ ; 3 = big
+"RTN","MAGQBPRG",41,0)
+ ; 4 = photo id
+"RTN","MAGQBPRG",42,0)
+ ; 5 = advance directive
+"RTN","MAGQBPRG",43,0)
+ ;PIECE 3: RECORD CATEGORY
+"RTN","MAGQBPRG",44,0)
+ ; 1 = 'NO 2005 ENTRY
+"RTN","MAGQBPRG",45,0)
+ ; **2 = RADIOLOGY HOLD
+"RTN","MAGQBPRG",46,0)
+ ; 3 = NO JUKEBOX/JUKEBOX PTRS
+"RTN","MAGQBPRG",47,0)
+ ; 4 = JUKEBOX - NO JUKEBOX PTRS (P/EXCEPT)ELSE QUEUE
+"RTN","MAGQBPRG",48,0)
+ ; 5 = JUKEBOX/JUKEBOX PTRS, NO CACHE PTRS,PURGE IF CONFIRMED
+"RTN","MAGQBPRG",49,0)
+ ; 6 = JUKEBOX/JUKEBOX PTRS, WRONG CACHE PTRS PURGE IF AT ALT
+"RTN","MAGQBPRG",50,0)
+ ; 7 = JUKEBOX/JUKEBOX PTRS, NO CACHE PTRS, FIX PTRS
+"RTN","MAGQBPRG",51,0)
+ ; 8 = JUKEBOX/JUKEBOX PTRS, CACHE PTRS, AGE (IF CONFIRMED)
+"RTN","MAGQBPRG",52,0)
+ ; 9 = RECORD NOT IN THE IMAGE FILE
+"RTN","MAGQBPRG",53,0)
+ ; 10 = FOREIGN IMAGE FILE
+"RTN","MAGQBPRG",54,0)
+ ; 11 = NOT AN IMAGE FILE
+"RTN","MAGQBPRG",55,0)
+ ; 12 = FILE LOCATION NOT VALID
+"RTN","MAGQBPRG",56,0)
+ ; 13 = DELETE 2005 ENTRY (LAST LOCATION REFERENCED)
+"RTN","MAGQBPRG",57,0)
+ ; 14 = Duplicate 2005/2005.1 entry
+"RTN","MAGQBPRG",58,0)
+ ; 15 = Foreign Place
+"RTN","MAGQBPRG",59,0)
+ ; 16 = Record in Archive file
+"RTN","MAGQBPRG",60,0)
+ ; 17 = Jukebox offline
+"RTN","MAGQBPRG",61,0)
+ N FILEXT,IEN,SITEID,MAGXX,MAGFILE,MAGFILE1,MAGFILE2,RIEN,ZNODE
+"RTN","MAGQBPRG",62,0)
+ N FTYPE,CPTR,JBPTR,CPOK,BNODE,ALTPATH,NMSPC,PLACE,XX,FT,MAGDA
+"RTN","MAGQBPRG",63,0)
+ N X S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPRG",64,0)
+ S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBPRG",65,0)
+ S U="^",(MAGFILE2,RESULT)=""
+"RTN","MAGQBPRG",66,0)
+ S FNAM=$$UPPER^MAGQE4(FNAM)
+"RTN","MAGQBPRG",67,0)
+ S EXT=$$UPPER^MAGQE4(EXT)
+"RTN","MAGQBPRG",68,0)
+ S ^TMP("MAGQ",$J,"PRG","LAST")=FILEPATH_U_FNAM_U_EXT_U_NETLOC
+"RTN","MAGQBPRG",69,0)
+ I FNAM'?1.5A1.13N1"."1.3E D Q ;LATER ADD EXT VERIFY USING 2005.02
+"RTN","MAGQBPRG",70,0)
+ . D ELOG(FNAM,FILEPATH,"Not a VistA Imaging file") S RESULT="-3^0^11" Q ;'IMAGE FILE
+"RTN","MAGQBPRG",71,0)
+ S SITEID=$$UPPER^MAGQE4($$INIS^MAGQBPG2(PLACE))
+"RTN","MAGQBPRG",72,0)
+ S NMSPC=$TR($P(FNAM,"."),"0123456789","")
+"RTN","MAGQBPRG",73,0)
+ S FILEPATH=$$UPPER^MAGQE4(FILEPATH)
+"RTN","MAGQBPRG",74,0)
+ I SITEID'[NMSPC D ELOG(FNAM,FILEPATH,"Foreign Image file") S RESULT="-3^0^10" Q ;FOREIGN FILE
+"RTN","MAGQBPRG",75,0)
+ S (IEN,MAGDA)=$O(^MAG(2005,"F",$P(FNAM,"."),""))
+"RTN","MAGQBPRG",76,0)
+ I 'IEN S IEN=$O(^MAG(2005.1,"F",$P(FNAM,"."),""))
+"RTN","MAGQBPRG",77,0)
+ ; Patch 39 - added logging
+"RTN","MAGQBPRG",78,0)
+ I 'IEN D Q
+"RTN","MAGQBPRG",79,0)
+ . D ELOG(FNAM,FILEPATH,"Record neither in 2005 nor 2005.1")
+"RTN","MAGQBPRG",80,0)
+ . S RESULT="-3^0^9^^^"_IEN
+"RTN","MAGQBPRG",81,0)
+ . Q
+"RTN","MAGQBPRG",82,0)
+ S FTYPE=$$FTYPE(EXT,IEN)
+"RTN","MAGQBPRG",83,0)
+ S FT=$S(FTYPE="ABS":"1",FTYPE="FULL":"2",FTYPE="BIG":"3",FTYPE="PHOTOID":"4",FTYPE="ADIRECT":"5",1:"2")
+"RTN","MAGQBPRG",84,0)
+ S JBPTR=$$JBPTR(IEN,FTYPE)
+"RTN","MAGQBPRG",85,0)
+ ;PURGE UNCONDITIONALLY IF NO 2005 or 2005.1 ENTRY
+"RTN","MAGQBPRG",86,0)
+ I '$D(^MAG(2005,IEN,0)) D Q
+"RTN","MAGQBPRG",87,0)
+ . I $D(^MAG(2005.1,IEN,0)) D Q
+"RTN","MAGQBPRG",88,0)
+ . . I ('JBPTR&($P($G(^MAG(2005.2,+$$JBPTR^MAGBAPI(PLACE),0)),U,6)="1")) D
+"RTN","MAGQBPRG",89,0)
+ . . . S XX=$$JUKEBOX^MAGBAPI(IEN,PLACE)
+"RTN","MAGQBPRG",90,0)
+ . . . S RESULT="-2^"_FT_"^9^^^"_IEN
+"RTN","MAGQBPRG",91,0)
+ . . . Q
+"RTN","MAGQBPRG",92,0)
+ . . E D
+"RTN","MAGQBPRG",93,0)
+ . . . I JBPTR S RESULT="5^"_FT_"^16^"_$$JBPATH(FNAM,JBPTR)_U_$$JBPATH(FNAM,JBPTR)_U_IEN
+"RTN","MAGQBPRG",94,0)
+ . . . E S RESULT="-1^"_FT_"^17"
+"RTN","MAGQBPRG",95,0)
+ . . . Q
+"RTN","MAGQBPRG",96,0)
+ . E S RESULT="1^"_FT_"^9^^^"_IEN
+"RTN","MAGQBPRG",97,0)
+ . Q
+"RTN","MAGQBPRG",98,0)
+ I PLACE'=$$PLACE^MAGBAPI(+$P($G(^MAG(2005,IEN,100)),U,3)) D Q
+"RTN","MAGQBPRG",99,0)
+ . S RESULT="-3^"_FT_"^15" Q ;Foreign Place
+"RTN","MAGQBPRG",100,0)
+ S ZNODE=^MAG(2005,IEN,0)
+"RTN","MAGQBPRG",101,0)
+ I $P(ZNODE,U,12)="1" S RESULT="-1^"_FT_"^14" Q ; Duplicate Image/Archive entry
+"RTN","MAGQBPRG",102,0)
+ S BNODE=$S(FTYPE="BIG":$G(^MAG(2005,IEN,"FBIG")),1:"")
+"RTN","MAGQBPRG",103,0)
+ ; NEXT PROCESS MAGNETIC PTR~LESS
+"RTN","MAGQBPRG",104,0)
+ S CPTR=$$CHKCP($S(FTYPE="BIG":BNODE,1:ZNODE),FTYPE,EXT)
+"RTN","MAGQBPRG",105,0)
+ I 'CPTR D Q
+"RTN","MAGQBPRG",106,0)
+ . D CPUPD(FTYPE,IEN,FILEPATH,FNAM,EXT)
+"RTN","MAGQBPRG",107,0)
+ . I 'JBPTR,$P($G(^MAG(2005.2,+$$JBPTR^MAGBAPI(PLACE),0)),U,6)="1" D
+"RTN","MAGQBPRG",108,0)
+ . . S XX=$$JUKEBOX^MAGBAPI(IEN,PLACE)
+"RTN","MAGQBPRG",109,0)
+ . S RESULT="-1^"_FT_"^7^^"_JBPTR_U_IEN ;$S(JBPTR:JBPTR,1:XX)_U_IEN
+"RTN","MAGQBPRG",110,0)
+ S CPOK=$S('CPTR:0,1:$$CPOK(FTYPE,.ALTPATH,FILEPATH,IEN,EXT))
+"RTN","MAGQBPRG",111,0)
+ S ALTPATH=ALTPATH_FNAM
+"RTN","MAGQBPRG",112,0)
+ I 'CPOK,JBPTR D Q
+"RTN","MAGQBPRG",113,0)
+ . S RESULT="3^"_FT_"^6^"_ALTPATH_U_$$JBPATH(FNAM,JBPTR)_U_IEN
+"RTN","MAGQBPRG",114,0)
+ I 'JBPTR D Q
+"RTN","MAGQBPRG",115,0)
+ . I $P($G(^MAG(2005.2,+$$JBPTR^MAGBAPI(PLACE),0)),U,6)="1" D
+"RTN","MAGQBPRG",116,0)
+ . . S XX=$$JUKEBOX^MAGBAPI(IEN,PLACE)
+"RTN","MAGQBPRG",117,0)
+ . . S RESULT="-1^"_FT_"^7^^"_JBPTR_U_IEN ;$S(JBPTR:JBPTR,1:XX)_U_IEN
+"RTN","MAGQBPRG",118,0)
+ . . Q
+"RTN","MAGQBPRG",119,0)
+ . E S RESULT="-1^"_FT_"^17"
+"RTN","MAGQBPRG",120,0)
+ . Q
+"RTN","MAGQBPRG",121,0)
+ S RESULT="1^"_FT_"^8^^"_$$JBPATH(FNAM,JBPTR)_U_IEN
+"RTN","MAGQBPRG",122,0)
+ Q
+"RTN","MAGQBPRG",123,0)
+ ;
+"RTN","MAGQBPRG",124,0)
+LASTNP(TYPE) ;
+"RTN","MAGQBPRG",125,0)
+ I TYPE="BIG" Q $S($P(ZNODE,U,3,4)="^":1,1:0)
+"RTN","MAGQBPRG",126,0)
+ I TYPE="ABS" Q $S((($P(ZNODE,U,3)="")&($P(BNODE,U)="")):1,1:0)
+"RTN","MAGQBPRG",127,0)
+ Q $S((($P(ZNODE,U,4)="")&($P(BNODE,U)="")):1,1:0)
+"RTN","MAGQBPRG",128,0)
+JBPATH(FN,NL) ;
+"RTN","MAGQBPRG",129,0)
+ Q $P($G(^MAG(2005.2,NL,0)),U,2)_$$DIRHASH^MAGFILEB(FN,NL)_FN
+"RTN","MAGQBPRG",130,0)
+FTYPE(FEXT,IEN) ;
+"RTN","MAGQBPRG",131,0)
+ ; Patch 39 : checking for ABS in FULL
+"RTN","MAGQBPRG",132,0)
+ N FILE
+"RTN","MAGQBPRG",133,0)
+ S FILE=$S($D(^MAG(2005,IEN,0)):"2005",1:"2005.1")
+"RTN","MAGQBPRG",134,0)
+ S FEXT=$$UPPER^MAGQE4(FEXT)
+"RTN","MAGQBPRG",135,0)
+ I "^ABS^"[("^"_FEXT_"^") Q "ABS"
+"RTN","MAGQBPRG",136,0)
+ I $P($G(^MAG(FILE,IEN,40)),U,3)=$O(^MAG(2005.83,"B","PHOTO ID","")) Q "PHOTOID"
+"RTN","MAGQBPRG",137,0)
+ I $P($G(^MAG(FILE,IEN,0)),U,6)=$O(^MAG(2005.02,"B","PATIENT PHOTO","")) Q "PHOTOID"
+"RTN","MAGQBPRG",138,0)
+ I $P($G(^MAG(FILE,IEN,40)),U,3)=$O(^MAG(2005.83,"B","ADVANCE DIRECTIVE","")) Q "ADIRECT"
+"RTN","MAGQBPRG",139,0)
+ I $$UPPER^MAGQE4($P($G(^MAG(FILE,IEN,0)),U,2))[".ABS" Q "FULL"
+"RTN","MAGQBPRG",140,0)
+ I "^BIG^"[("^"_FEXT_"^") Q "BIG"
+"RTN","MAGQBPRG",141,0)
+ I "^"_$P($G(^MAG(FILE,IEN,"FBIG")),U,3)_"^"[("^"_FEXT_"^") Q "BIG"
+"RTN","MAGQBPRG",142,0)
+ Q "FULL"
+"RTN","MAGQBPRG",143,0)
+CHKCP(NODE,TYPE,EXT) ;
+"RTN","MAGQBPRG",144,0)
+ N PIECE,CP
+"RTN","MAGQBPRG",145,0)
+ S PIECE=$S(TYPE="ABS":4,TYPE="BIG":1,TYPE="FULL":3,"^PHOTOID^ADIRECT^"[("^"_TYPE_"^"):3,1:0)
+"RTN","MAGQBPRG",146,0)
+ Q $P(NODE,U,PIECE)
+"RTN","MAGQBPRG",147,0)
+JBPTR(MAGIEN,TYPE) ;
+"RTN","MAGQBPRG",148,0)
+ N PTR
+"RTN","MAGQBPRG",149,0)
+ I TYPE="BIG" D
+"RTN","MAGQBPRG",150,0)
+ . S PTR=+$P($G(^MAG(2005,MAGIEN,"FBIG")),"^",2)
+"RTN","MAGQBPRG",151,0)
+ . S:'PTR PTR=+$P($G(^MAG(2005.1,MAGIEN,"FBIG")),"^",2)
+"RTN","MAGQBPRG",152,0)
+ E D
+"RTN","MAGQBPRG",153,0)
+ . S PTR=+$P($G(^MAG(2005,MAGIEN,0)),"^",5)
+"RTN","MAGQBPRG",154,0)
+ . S:'PTR PTR=+$P($G(^MAG(2005.1,MAGIEN,"FBIG")),"^",2)
+"RTN","MAGQBPRG",155,0)
+ Q $S($P($G(^MAG(2005.2,PTR,0)),U,6)=1:PTR,1:0)
+"RTN","MAGQBPRG",156,0)
+CPOK(TYPE,ALTPATH,FILEPATH,IEN,EXT) ;
+"RTN","MAGQBPRG",157,0)
+ ; Patch 39: initializing ALTPATH, checking nodes of either 2005 or 2005.1
+"RTN","MAGQBPRG",158,0)
+ N MAGXX,PIECE,NODE,LOC,FILE
+"RTN","MAGQBPRG",159,0)
+ S EXT=$$UPPER^MAGQE4(EXT)
+"RTN","MAGQBPRG",160,0)
+ S MAGXX=IEN
+"RTN","MAGQBPRG",161,0)
+ S ALTPATH=""
+"RTN","MAGQBPRG",162,0)
+ S PIECE=$S(TYPE="ABS":4,TYPE="BIG":1,TYPE="FULL":3,"^PHOTOID^ADIRECT^"[("^"_TYPE_"^"):3,1:0)
+"RTN","MAGQBPRG",163,0)
+ S NODE=$S(TYPE="BIG":"FBIG",1:0)
+"RTN","MAGQBPRG",164,0)
+ S FILE=$S($D(^MAG(2005,IEN,0)):"2005",1:"2005.1")
+"RTN","MAGQBPRG",165,0)
+ S LOC=$P($G(^MAG(FILE,IEN,NODE)),U,PIECE)
+"RTN","MAGQBPRG",166,0)
+ Q:'$D(^MAG(2005.2,+LOC,0)) 0
+"RTN","MAGQBPRG",167,0)
+ S ALTPATH=$$UPPER^MAGQE4($P($G(^MAG(2005.2,LOC,0)),U,2)_$$DIRHASH^MAGFILEB(FNAM,LOC))
+"RTN","MAGQBPRG",168,0)
+ Q $S(ALTPATH=FILEPATH:1,1:0)
+"RTN","MAGQBPRG",169,0)
+CPUPD(TYPE,IEN,FP,FN,EXT) ;
+"RTN","MAGQBPRG",170,0)
+ ; Patch 39 - Update : Error log type, and using FILE in case an Archive file
+"RTN","MAGQBPRG",171,0)
+ N PIECE,CP,NODE,LOC,FILE
+"RTN","MAGQBPRG",172,0)
+ S EXT=$S('$D(EXT):"",1:$$UPPER^MAGQE4(EXT))
+"RTN","MAGQBPRG",173,0)
+ S PIECE=$S(TYPE="ABS":4,TYPE="BIG":1,TYPE="FULL":3,"^PHOTOID^ADIRECT^"[("^"_TYPE_"^"):3,1:0)
+"RTN","MAGQBPRG",174,0)
+ S NODE=$S(TYPE="BIG":"FBIG",1:0)
+"RTN","MAGQBPRG",175,0)
+ S LOC=$$UNHASH(FN,FP)
+"RTN","MAGQBPRG",176,0)
+ I (PIECE=0)!(+LOC=0) D ELOG(FN,FP,"RAID pointer indeterminate") Q
+"RTN","MAGQBPRG",177,0)
+ S FILE=$S($D(^MAG(2005,IEN,0)):"2005",1:"2005.1")
+"RTN","MAGQBPRG",178,0)
+ S $P(^MAG(FILE,IEN,NODE),U,PIECE)=LOC
+"RTN","MAGQBPRG",179,0)
+ Q
+"RTN","MAGQBPRG",180,0)
+CUPD(RESULT,FILEPATH,FILENAME,EXT,IEN) ; RPC[MAGQ CUPDTE]
+"RTN","MAGQBPRG",181,0)
+ N TYPE ; called from the BP Purge
+"RTN","MAGQBPRG",182,0)
+ N X S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPRG",183,0)
+ S TYPE=$$FTYPE(EXT,IEN)
+"RTN","MAGQBPRG",184,0)
+ D CPUPD(TYPE,IEN,FILEPATH,FILENAME,EXT)
+"RTN","MAGQBPRG",185,0)
+ Q
+"RTN","MAGQBPRG",186,0)
+UNHASH(FN,FP) ; RETURN NETWORK LOCATION NUMBER
+"RTN","MAGQBPRG",187,0)
+ N SHARE,HASH
+"RTN","MAGQBPRG",188,0)
+ S SHARE=$S(FP[":":$P(FP,"\",1,2)_"\",1:$P(FP,"\",1,4)_"\")
+"RTN","MAGQBPRG",189,0)
+ S HASH=$S($P(FP,SHARE,2)["\":"Y",1:"")
+"RTN","MAGQBPRG",190,0)
+ Q $$SHNAM(SHARE,HASH)
+"RTN","MAGQBPRG",191,0)
+ELOG(FN,FP,MESSAGE) ;
+"RTN","MAGQBPRG",192,0)
+ N INDX
+"RTN","MAGQBPRG",193,0)
+ N X S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPRG",194,0)
+ S INDX=+$O(^TMP("MAGQ",$J,"PRG",99999),-1)+1
+"RTN","MAGQBPRG",195,0)
+ S ^TMP("MAGQ",$J,"PRG",INDX)=MESSAGE_"^"_FN_"^"_FP
+"RTN","MAGQBPRG",196,0)
+ Q
+"RTN","MAGQBPRG",197,0)
+ELOGR(RESULT,LIMIT) ;[MAGQ ELOGR] - Error log report and purge
+"RTN","MAGQBPRG",198,0)
+ ; Please test this
+"RTN","MAGQBPRG",199,0)
+ N FN,INDX,CNT
+"RTN","MAGQBPRG",200,0)
+ N X S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBPRG",201,0)
+ S CNT=0,INDX=""
+"RTN","MAGQBPRG",202,0)
+ F S INDX=$O(^TMP("MAGQ",$J,"PRG",INDX)) Q:INDX'?1N.N Q:CNT=LIMIT D
+"RTN","MAGQBPRG",203,0)
+ . S CNT=CNT+1,RESULT(CNT)=^TMP("MAGQ",$J,"PRG",INDX)
+"RTN","MAGQBPRG",204,0)
+ . K ^TMP("MAGQ",$J,"PRG",INDX)
+"RTN","MAGQBPRG",205,0)
+ . Q
+"RTN","MAGQBPRG",206,0)
+ S RESULT(0)=CNT
+"RTN","MAGQBPRG",207,0)
+ S INDX=$O(^TMP("MAGQ",$J,"PRG",""))
+"RTN","MAGQBPRG",208,0)
+ I INDX?1N.N S RESULT(0)=RESULT(0)_U_"MORE"
+"RTN","MAGQBPRG",209,0)
+ Q
+"RTN","MAGQBPRG",210,0)
+SHNAM(SHARE,HASH) ;
+"RTN","MAGQBPRG",211,0)
+ N NUM,ONLINE,ZNODE
+"RTN","MAGQBPRG",212,0)
+ S (NUM,ONLINE)=0
+"RTN","MAGQBPRG",213,0)
+ F S NUM=$O(^MAG(2005.2,"AC",SHARE,NUM)) Q:'NUM D Q:ONLINE
+"RTN","MAGQBPRG",214,0)
+ . S ZNODE=^MAG(2005.2,NUM,0)
+"RTN","MAGQBPRG",215,0)
+ . Q:($P(ZNODE,"^",6)'="1")
+"RTN","MAGQBPRG",216,0)
+ . Q:($P(ZNODE,"^",8)'=HASH)
+"RTN","MAGQBPRG",217,0)
+ . S ONLINE="1"
+"RTN","MAGQBPRG",218,0)
+ Q NUM
+"RTN","MAGQBTM")
+0^7^B85282923
+"RTN","MAGQBTM",1,0)
+MAGQBTM ;WOIFO/RMP/JL - REMOTE Task SERVER Program ; 26 Dec 2012 1:41 PM
+"RTN","MAGQBTM",2,0)
+ ;;3.0;IMAGING;**1,7,8,20,81,39,135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGQBTM",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGQBTM",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQBTM",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGQBTM",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGQBTM",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGQBTM",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGQBTM",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGQBTM",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGQBTM",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGQBTM",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGQBTM",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGQBTM",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGQBTM",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGQBTM",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQBTM",17,0)
+ ;;
+"RTN","MAGQBTM",18,0)
+ Q
+"RTN","MAGQBTM",19,0)
+ENTRY(RESULT,WSTAT,PROCESS) ; RPC[MAGQ ABP]
+"RTN","MAGQBTM",20,0)
+ N X,SYSIEN,SYSNAME,NODE,INDX,CNT,PROC,%,QPTR,QCNT,VERS,EXEDATE,WSOS,PLACE,VOK,EXDATE
+"RTN","MAGQBTM",21,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBTM",22,0)
+ S (SYSIEN,CNT)=0,SYSNAME="",PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2))),VOK=""
+"RTN","MAGQBTM",23,0)
+ S $P(RESULT(0),U,6)=$D(^XUSEC("MAG SYSTEM",DUZ))
+"RTN","MAGQBTM",24,0)
+ Q:'$P(RESULT(0),U,6)
+"RTN","MAGQBTM",25,0)
+ S VERS=$P(WSTAT,U,2)
+"RTN","MAGQBTM",26,0)
+ S WSTAT=$P(WSTAT,U)
+"RTN","MAGQBTM",27,0)
+ S SYSIEN=$O(^MAG(2006.8,"C",PLACE,WSTAT,""))
+"RTN","MAGQBTM",28,0)
+ I 'SYSIEN S SYSIEN=$O(^MAG(2006.8,"C",PLACE,$$UPPER^MAGQE4(WSTAT),""))
+"RTN","MAGQBTM",29,0)
+ I 'SYSIEN D
+"RTN","MAGQBTM",30,0)
+ . N TRY
+"RTN","MAGQBTM",31,0)
+ . F TRY=1:1:$L(WSTAT,".") D Q:SYSIEN?1.N
+"RTN","MAGQBTM",32,0)
+ . . S SYSIEN=$O(^MAG(2006.8,"C",PLACE,$P(WSTAT,".",TRY),""))
+"RTN","MAGQBTM",33,0)
+ . . I 'SYSIEN S SYSIEN=$O(^MAG(2006.8,"C",PLACE,$$UPPER^MAGQE4($P(WSTAT,".",TRY)),""))
+"RTN","MAGQBTM",34,0)
+ Q:SYSIEN=""
+"RTN","MAGQBTM",35,0)
+ S VERS=$P(VERS,".",1,2)_"P"_$P(VERS,".",3)
+"RTN","MAGQBTM",36,0)
+ D VOKR^MAGQBUT4(.VOK,VERS)
+"RTN","MAGQBTM",37,0)
+ Q:'$P(VOK,U)
+"RTN","MAGQBTM",38,0)
+ S NODE=^MAG(2006.8,SYSIEN,0)
+"RTN","MAGQBTM",39,0)
+ S SYSNAME=$P(NODE,U)
+"RTN","MAGQBTM",40,0)
+ I SYSNAME="" D Q
+"RTN","MAGQBTM",41,0)
+ . S $P(RESULT(0),U,1,2)="-1^No Background Processor parameters on system"
+"RTN","MAGQBTM",42,0)
+ I $P(NODE,U,12)'=1 D Q
+"RTN","MAGQBTM",43,0)
+ . S $P(RESULT(0),U,1,2)="-1^Not assigned as a Background Processor"
+"RTN","MAGQBTM",44,0)
+ F PROC="ABSTRACT;13","JUKEBOX;14","JBTOHD;15","DELETE;23","PREFET;16","GCC;18","IMPORT;17" D Q:$P(RESULT(0),U,1)="-1"
+"RTN","MAGQBTM",45,0)
+ . N PIECE,NAME
+"RTN","MAGQBTM",46,0)
+ . I $$UBPW^MAGQBUT1(SYSNAME,PROC) D Q
+"RTN","MAGQBTM",47,0)
+ . . S $P(RESULT(0),U,1,2)="-1^This BP: "_SYSNAME_" has a co-assigned queue: "_$P(PROC,";")
+"RTN","MAGQBTM",48,0)
+ . S NAME=$P(PROC,";")
+"RTN","MAGQBTM",49,0)
+ . S PIECE=$P(PROC,";",2)
+"RTN","MAGQBTM",50,0)
+ . I $P(NODE,U,PIECE)="1" D
+"RTN","MAGQBTM",51,0)
+ . . N QCNT,QPTR
+"RTN","MAGQBTM",52,0)
+ . . D ADD^MAGBAPI(0,NAME,PLACE)
+"RTN","MAGQBTM",53,0)
+ . . S QPTR=$O(^MAGQUEUE(2006.031,"C",PLACE,NAME,""))
+"RTN","MAGQBTM",54,0)
+ . . S QCNT=$P($G(^MAGQUEUE(2006.031,+QPTR,0)),U,3)
+"RTN","MAGQBTM",55,0)
+ . . S CNT=CNT+1
+"RTN","MAGQBTM",56,0)
+ . . S RESULT(CNT)=NAME_U_QCNT_U_(+$P($G(^MAGQUEUE(2006.031,+QPTR,0)),U,5)-QCNT)
+"RTN","MAGQBTM",57,0)
+ . . I +$P(RESULT(CNT),U,3)<0 D ; Refresh the queue count if negative
+"RTN","MAGQBTM",58,0)
+ . . . D QCNT^MAGQBUT4("",PLACE,NAME)
+"RTN","MAGQBTM",59,0)
+ . . . S RESULT(CNT)=NAME_U_QCNT_U_(+$P($G(^MAGQUEUE(2006.031,+QPTR,0)),U,5)-QCNT)
+"RTN","MAGQBTM",60,0)
+ . . . Q
+"RTN","MAGQBTM",61,0)
+ . . Q
+"RTN","MAGQBTM",62,0)
+ . Q
+"RTN","MAGQBTM",63,0)
+ Q:$P(RESULT(0),U,1)="-1"
+"RTN","MAGQBTM",64,0)
+ S $P(RESULT(0),U,1,5)="0^BP List^PID: "_$$BASE^XLFUTL($J,10,16)_"^"_SYSNAME_U_WSTAT
+"RTN","MAGQBTM",65,0)
+ Q
+"RTN","MAGQBTM",66,0)
+GETQUE(RESULT,ACTION) ; RPC[MAGQ GET]
+"RTN","MAGQBTM",67,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBTM",68,0)
+ N PLACE
+"RTN","MAGQBTM",69,0)
+ D @(ACTION_"(.RESULT)")
+"RTN","MAGQBTM",70,0)
+ I +RESULT<0 D ; Update queue status and increment the Queue pointer if the queue cannot be processed
+"RTN","MAGQBTM",71,0)
+ . N PLACE S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBTM",72,0)
+ . D QSTAT($P(RESULT,U,2),$P(RESULT,U,3),ACTION,.PLACE)
+"RTN","MAGQBTM",73,0)
+ . D QPTER(ACTION,$P(RESULT,U,2),.PLACE)
+"RTN","MAGQBTM",74,0)
+ . Q
+"RTN","MAGQBTM",75,0)
+ Q
+"RTN","MAGQBTM",76,0)
+ABSTRACT(RESULT) ;
+"RTN","MAGQBTM",77,0)
+ D DEQUEUE("ABSTRACT",.RESULT) Q
+"RTN","MAGQBTM",78,0)
+JUKEBOX(RESULT) ;
+"RTN","MAGQBTM",79,0)
+ D DEQUEUE("JUKEBOX",.RESULT) Q
+"RTN","MAGQBTM",80,0)
+JBTOHD(RESULT) ;
+"RTN","MAGQBTM",81,0)
+ D DEQUEUE("JBTOHD",.RESULT) Q
+"RTN","MAGQBTM",82,0)
+GCC(RESULT) ;
+"RTN","MAGQBTM",83,0)
+ D DEQUEUE("GCC",.RESULT) Q
+"RTN","MAGQBTM",84,0)
+DELETE(RESULT) ;
+"RTN","MAGQBTM",85,0)
+ D DEQUEUE("DELETE",.RESULT) Q
+"RTN","MAGQBTM",86,0)
+PREFET(RESULT) ;
+"RTN","MAGQBTM",87,0)
+ D DEQUEUE("PREFET",.RESULT) Q
+"RTN","MAGQBTM",88,0)
+IMPORT(RESULT) ;
+"RTN","MAGQBTM",89,0)
+ D DEQUEUE("IMPORT",.RESULT) Q
+"RTN","MAGQBTM",90,0)
+DEQUEUE(QUE,RESULT) ;
+"RTN","MAGQBTM",91,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBTM",92,0)
+ N QPTR,QPTR2,ROU,MAGIEN,ZNODE,MSG,IMQUE,PLACE
+"RTN","MAGQBTM",93,0)
+ S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBTM",94,0)
+ S QPTR2=$O(^MAGQUEUE(2006.031,"C",PLACE,QUE,""))
+"RTN","MAGQBTM",95,0)
+ S QPTR=$S(QPTR2:$P(^MAGQUEUE(2006.031,QPTR2,0),U,2),1:"")
+"RTN","MAGQBTM",96,0)
+ S QPTR=$O(^MAGQUEUE(2006.03,"C",PLACE,QUE,QPTR))
+"RTN","MAGQBTM",97,0)
+ I QPTR="" D Q
+"RTN","MAGQBTM",98,0)
+ . S RESULT="0"_U_QPTR2_U_"No "_QUE_" "_QPTR2_" to process."
+"RTN","MAGQBTM",99,0)
+ D QSTAT(QPTR,QUE_" in progress.",QUE,.PLACE)
+"RTN","MAGQBTM",100,0)
+ S ZNODE=$G(^MAGQUEUE(2006.03,QPTR,0))
+"RTN","MAGQBTM",101,0)
+ I ZNODE="" S RESULT=-101_U_QPTR_U_"Queue Record does not exist" Q
+"RTN","MAGQBTM",102,0)
+ I QUE="IMPORT" D ENTRY^MAGQBIM(QPTR,QUE,QPTR2,ZNODE,.RESULT) Q
+"RTN","MAGQBTM",103,0)
+ S MAGIEN=$P(ZNODE,"^",7)
+"RTN","MAGQBTM",104,0)
+ I ("^DELETE^JUKEBOX^")'[(U_QUE_U),(('(+MAGIEN))!('$D(^MAG(2005,+MAGIEN,0)))!($P(ZNODE,U)'=QUE)) D Q
+"RTN","MAGQBTM",105,0)
+ . I $D(^MAG(2005.1,+MAGIEN,0)) D
+"RTN","MAGQBTM",106,0)
+ . . S MSG="Image Record Deleted and in archive file."
+"RTN","MAGQBTM",107,0)
+ . E S MSG="No valid image file number to process."
+"RTN","MAGQBTM",108,0)
+ . S RESULT=-101_U_QPTR_U_MSG
+"RTN","MAGQBTM",109,0)
+ S ROU=$$RESET(QUE)
+"RTN","MAGQBTM",110,0)
+ I ROU="" S RESULT="-1"_U_QPTR_U_QUE_" Is an inactive process" Q
+"RTN","MAGQBTM",111,0)
+ D @("ENTRY^"_ROU_"(.RESULT,QPTR)")
+"RTN","MAGQBTM",112,0)
+ Q
+"RTN","MAGQBTM",113,0)
+QSTAT(QPTR,MESSAGE,ACTION,PLACE) ;Update the Queue status
+"RTN","MAGQBTM",114,0)
+ N ZNODE,MAGTIME
+"RTN","MAGQBTM",115,0)
+ Q:QPTR=""
+"RTN","MAGQBTM",116,0)
+ S MESSAGE=$TR(MESSAGE,":;<>.?/\'()*^%$#@!0123456789","")
+"RTN","MAGQBTM",117,0)
+ Q:'$D(^MAGQUEUE(2006.03,QPTR,0))
+"RTN","MAGQBTM",118,0)
+ S ZNODE=$G(^MAGQUEUE(2006.03,QPTR,0))
+"RTN","MAGQBTM",119,0)
+ S MAGTIME=$$NOW^XLFDT
+"RTN","MAGQBTM",120,0)
+ S:'$G(PLACE) PLACE=$$QPLACE(ZNODE,QPTR)
+"RTN","MAGQBTM",121,0)
+ Q:'PLACE
+"RTN","MAGQBTM",122,0)
+ I $P(ZNODE,U,5)]"" D
+"RTN","MAGQBTM",123,0)
+ . K ^MAGQUEUE(2006.03,"D",PLACE,$P(ZNODE,U),$E($P(ZNODE,U,5),1,30),QPTR) Q
+"RTN","MAGQBTM",124,0)
+ S ^MAGQUEUE(2006.03,"D",PLACE,$P(ZNODE,U),$E(MESSAGE,1,30),QPTR)=""
+"RTN","MAGQBTM",125,0)
+ S $P(^MAGQUEUE(2006.03,QPTR,0),U,5,6)=$P(MESSAGE,U)_U_MAGTIME
+"RTN","MAGQBTM",126,0)
+ I ACTION["IMPORT" D STAT^MAGQBIM($S($P(ZNODE,U,11)?1N.N:$P(ZNODE,U,11),1:QPTR),MAGTIME,MESSAGE)
+"RTN","MAGQBTM",127,0)
+ Q
+"RTN","MAGQBTM",128,0)
+QPLACE(QNODE,PTR) ; Seek alternate PLACE values and update the Queue
+"RTN","MAGQBTM",129,0)
+ N IEN,VALUE,ACQ
+"RTN","MAGQBTM",130,0)
+ S VALUE=""
+"RTN","MAGQBTM",131,0)
+ I +$P(QNODE,U,12) D Q VALUE
+"RTN","MAGQBTM",132,0)
+ . S VALUE=+$P(QNODE,U,12) Q
+"RTN","MAGQBTM",133,0)
+ S IEN=$P(QNODE,U,7) ; try the Image acquisition site
+"RTN","MAGQBTM",134,0)
+ I IEN?1N.N D
+"RTN","MAGQBTM",135,0)
+ . S ACQ=+$P($G(^MAG(2005,IEN,100)),U,3)
+"RTN","MAGQBTM",136,0)
+ . S:'ACQ ACQ=+$P($G(^MAG(2005.1,IEN,100)),U,3)
+"RTN","MAGQBTM",137,0)
+ . S:ACQ VALUE=$$PLACE^MAGBAPI(ACQ) Q
+"RTN","MAGQBTM",138,0)
+ S:'VALUE VALUE=$$PLACE^MAGBAPI(+$G(DUZ(2))) ; else the BP User
+"RTN","MAGQBTM",139,0)
+ S:VALUE $P(^MAGQUEUE(2006.03,PTR,0),U,12)=VALUE
+"RTN","MAGQBTM",140,0)
+ Q VALUE
+"RTN","MAGQBTM",141,0)
+QPTER(QUEUE,QPTR,PLACE) ; Conditionally advance the queue pointer & decrement the active queue count
+"RTN","MAGQBTM",142,0)
+ N QREC,PREV,PNODE
+"RTN","MAGQBTM",143,0)
+ I 'PLACE D Q:'PLACE
+"RTN","MAGQBTM",144,0)
+ . S PLACE=$P($G(^MAGQUEUE(2006.03,QPTR,0)),U,12)
+"RTN","MAGQBTM",145,0)
+ . S PLACE=$S(PLACE:PLACE,1:$$PLACE^MAGBAPI(+$G(DUZ(2))))
+"RTN","MAGQBTM",146,0)
+ . Q
+"RTN","MAGQBTM",147,0)
+ S QREC=$O(^MAGQUEUE(2006.031,"C",PLACE,QUEUE,""))
+"RTN","MAGQBTM",148,0)
+ S PREV=$S(QREC:$P(^MAGQUEUE(2006.031,QREC,0),U,2),1:"")
+"RTN","MAGQBTM",149,0)
+ I PREV'=QPTR D Q
+"RTN","MAGQBTM",150,0)
+ . D ADD^MAGBAPI(-1,QUEUE,PLACE)
+"RTN","MAGQBTM",151,0)
+ . L +^MAGQUEUE(2006.031,QREC,0):1E9
+"RTN","MAGQBTM",152,0)
+ . S $P(^MAGQUEUE(2006.031,QREC,0),U,2)=QPTR,$P(^MAGQUEUE(2006.031,QREC,0),U,6)=$$NOW^XLFDT
+"RTN","MAGQBTM",153,0)
+ . L -^MAGQUEUE(2006.031,QREC,0)
+"RTN","MAGQBTM",154,0)
+ . Q
+"RTN","MAGQBTM",155,0)
+ D ADD^MAGBAPI(0,QUEUE,PLACE) ; Else reset the active queue count
+"RTN","MAGQBTM",156,0)
+ Q
+"RTN","MAGQBTM",157,0)
+RESET(QUEUE) ; Set Routine parameter
+"RTN","MAGQBTM",158,0)
+ Q:QUEUE="ABSTRACT" "MAGQBAB"
+"RTN","MAGQBTM",159,0)
+ Q:QUEUE="JUKEBOX" "MAGQBJB"
+"RTN","MAGQBTM",160,0)
+ Q:QUEUE="JBTOHD" "MAGQBJH"
+"RTN","MAGQBTM",161,0)
+ Q:QUEUE="DELETE" "MAGQBD"
+"RTN","MAGQBTM",162,0)
+ Q:QUEUE="PREFET" "MAGQBJH"
+"RTN","MAGQBTM",163,0)
+ Q:QUEUE="IMPORT" "MAGQBIM"
+"RTN","MAGQBTM",164,0)
+ Q:QUEUE="GCC" "MAGQBGCC"
+"RTN","MAGQBTM",165,0)
+ Q ""
+"RTN","MAGQBTM",166,0)
+QUPDTE(RESULT,QPTR,UPDATE) ;RPC[MAGQ QUD]
+"RTN","MAGQBTM",167,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBTM",168,0)
+ N NODE,STAT,TYPE,VPTR,MPTR,IEN,IDFN,MSG,PLACE,DA
+"RTN","MAGQBTM",169,0)
+ S NODE=$G(^MAGQUEUE(2006.03,QPTR,0))
+"RTN","MAGQBTM",170,0)
+ S PLACE=$P(NODE,U,12)
+"RTN","MAGQBTM",171,0)
+ S RESULT="1^QUEUE UPDATE COMPLETE"
+"RTN","MAGQBTM",172,0)
+ S STAT=$P(UPDATE,U)
+"RTN","MAGQBTM",173,0)
+ S TYPE=$P(NODE,U)
+"RTN","MAGQBTM",174,0)
+ S MSG=$S($P(UPDATE,U,2)="":TYPE_" Process Error",1:$P(UPDATE,U,2))
+"RTN","MAGQBTM",175,0)
+ D QSTAT(QPTR,MSG,TYPE,.PLACE)
+"RTN","MAGQBTM",176,0)
+ D QPTER(TYPE,QPTR,PLACE)
+"RTN","MAGQBTM",177,0)
+ I STAT<0 Q
+"RTN","MAGQBTM",178,0)
+ I "^DELETE^"[("^"_TYPE_"^") D DQUE^MAGQBUT2(QPTR) Q
+"RTN","MAGQBTM",179,0)
+ I "^IMPORT^"[("^"_TYPE_"^") D DQUE^MAGQBUT2(QPTR) Q
+"RTN","MAGQBTM",180,0)
+ S VPTR=$P(UPDATE,U,3)
+"RTN","MAGQBTM",181,0)
+ I VPTR?1.N D
+"RTN","MAGQBTM",182,0)
+ . S MPTR=$P(NODE,U,7)
+"RTN","MAGQBTM",183,0)
+ . I "^ABSTRACT^"[("^"_TYPE_"^") D Q
+"RTN","MAGQBTM",184,0)
+ . . S $P(^MAG(2005,MPTR,0),U,4)=VPTR
+"RTN","MAGQBTM",185,0)
+ . . S X=$$JUKEBOX^MAGBAPI(MPTR,PLACE)
+"RTN","MAGQBTM",186,0)
+ . . D DQUE^MAGQBUT2(QPTR) Q
+"RTN","MAGQBTM",187,0)
+ . I ("^JBTOHD^"[("^"_TYPE_"^"))!("^PREFET^"[("^"_TYPE_"^")) D Q
+"RTN","MAGQBTM",188,0)
+ . . I "^FULL^"[$P(NODE,U,8) S $P(^MAG(2005,MPTR,0),U,3)=VPTR
+"RTN","MAGQBTM",189,0)
+ . . I "^ABSTRACT^"[$P(NODE,U,8) S $P(^MAG(2005,MPTR,0),U,4)=VPTR
+"RTN","MAGQBTM",190,0)
+ . . I "^BIG^"[$P(NODE,U,8) S $P(^MAG(2005,MPTR,"FBIG"),U)=VPTR
+"RTN","MAGQBTM",191,0)
+ . . D DQUE^MAGQBUT2(QPTR) Q
+"RTN","MAGQBTM",192,0)
+ . I "^JUKEBOX^"[("^"_TYPE_"^") D Q
+"RTN","MAGQBTM",193,0)
+ . . I $P(UPDATE,U,2)["BIG" D Q
+"RTN","MAGQBTM",194,0)
+ . . . S:$D(^MAG(2005,MPTR)) $P(^MAG(2005,MPTR,"FBIG"),U,2)=VPTR
+"RTN","MAGQBTM",195,0)
+ . . . S:$D(^MAG(2005.1,MPTR)) $P(^MAG(2005.1,MPTR,"FBIG"),U,2)=VPTR
+"RTN","MAGQBTM",196,0)
+ . . . D DQUE^MAGQBUT2(QPTR) Q
+"RTN","MAGQBTM",197,0)
+ . . E D
+"RTN","MAGQBTM",198,0)
+ . . . S:$D(^MAG(2005,MPTR)) $P(^MAG(2005,MPTR,0),U,5)=VPTR
+"RTN","MAGQBTM",199,0)
+ . . . S:$D(^MAG(2005.1,MPTR)) $P(^MAG(2005.1,MPTR,0),U,5)=VPTR
+"RTN","MAGQBTM",200,0)
+ . . . D DQUE^MAGQBUT2(QPTR) Q
+"RTN","MAGQBTM",201,0)
+ . . Q
+"RTN","MAGQBTM",202,0)
+ . I "^GCC^"[("^"_TYPE_"^") D Q
+"RTN","MAGQBTM",203,0)
+ . . S FDA(2005.01,"+1,"_MPTR_",",.01)=VPTR
+"RTN","MAGQBTM",204,0)
+ . . S FDA(2005.01,"+1,"_MPTR_",",1)=$$NOW^XLFDT
+"RTN","MAGQBTM",205,0)
+ . . S FDA(2005.01,"+1,"_MPTR_",",2)=$P($$TRIM^MAGQBUT4($P(UPDATE,U,2))," ")
+"RTN","MAGQBTM",206,0)
+ . . D UPDATE^DIE("U","FDA","","MAGIMP")
+"RTN","MAGQBTM",207,0)
+ . . K FDA
+"RTN","MAGQBTM",208,0)
+ . . S IDFN=$P(^MAG(2005,MPTR,0),U,7)
+"RTN","MAGQBTM",209,0)
+ . . D ENTRY^MAGLOG("EXPORT->"_$P($G(^MAG(2005.2,VPTR,0)),U,2),$P(NODE,U,2),MPTR,"Document Imaging",IDFN,0)
+"RTN","MAGQBTM",210,0)
+ . . D DQUE^MAGQBUT2(QPTR) Q
+"RTN","MAGQBTM",211,0)
+ . Q
+"RTN","MAGQBTM",212,0)
+ Q
+"RTN","MAGQBTM",213,0)
+REQUE(RESULT,QPTR) ;
+"RTN","MAGQBTM",214,0)
+ ; RPC[MAGQ REQ]
+"RTN","MAGQBTM",215,0)
+ N PROC,NODE,INDX,PARAM,OPDUZ,STATUS,TRACKID,PLACE,X
+"RTN","MAGQBTM",216,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBTM",217,0)
+ S INDX=$$TRIM^MAGQBUT4(QPTR),TRACKID=0
+"RTN","MAGQBTM",218,0)
+ S NODE=$G(^MAGQUEUE(2006.03,INDX,0))
+"RTN","MAGQBTM",219,0)
+ Q:NODE']""
+"RTN","MAGQBTM",220,0)
+ S PLACE=$P(NODE,U,12)
+"RTN","MAGQBTM",221,0)
+ Q:'PLACE
+"RTN","MAGQBTM",222,0)
+ S PROC=$P(NODE,U),STATUS=$P(NODE,U,5)
+"RTN","MAGQBTM",223,0)
+ I PROC'="IMPORT" D
+"RTN","MAGQBTM",224,0)
+ . D RQP(PROC,NODE,.PARAM)
+"RTN","MAGQBTM",225,0)
+ . D DQUE^MAGQBUT2(INDX)
+"RTN","MAGQBTM",226,0)
+ . S @("RESULT=$$"_PROC_"^MAGBAPI(PARAM,PLACE)")
+"RTN","MAGQBTM",227,0)
+ . Q
+"RTN","MAGQBTM",228,0)
+ E D Q ;IMPORT - Doesn't De-queue Import and Session file
+"RTN","MAGQBTM",229,0)
+ . S $P(PARAM,U,3)=+$P(NODE,U,9)+1
+"RTN","MAGQBTM",230,0)
+ . S $P(PARAM,U,4)=$S($P(NODE,U,11)?1N.N:$P(NODE,U,11),1:QPTR)
+"RTN","MAGQBTM",231,0)
+ . D TIDL^MAGQBIM($S($P(NODE,U,11)?1N.N:$P(NODE,U,11),1:QPTR),PROC,.TRACKID)
+"RTN","MAGQBTM",232,0)
+ . Q:TRACKID=0
+"RTN","MAGQBTM",233,0)
+ . S @("RESULT=$$"_PROC_"^MAGBAPI(PARAM,$P(NODE,U,10),TRACKID,PLACE)")
+"RTN","MAGQBTM",234,0)
+ . D DQUE^MAGQBUT2(INDX,"1")
+"RTN","MAGQBTM",235,0)
+ . Q
+"RTN","MAGQBTM",236,0)
+ Q
+"RTN","MAGQBTM",237,0)
+RQP(P,N,PAR) ;
+"RTN","MAGQBTM",238,0)
+ N P1,P2,P3,P4
+"RTN","MAGQBTM",239,0)
+ I ("^JBTOHD^PREFET^")[P S P1=$P(N,U,7),P2=$P(N,U,8),P3=+$P(N,U,9)+1,PAR=P1_U_P2_U_P3 Q
+"RTN","MAGQBTM",240,0)
+ I P["DELETE" S P1=$P(N,U,10),P2=+$P(N,U,9)+1,PAR=P2_U_P1 Q
+"RTN","MAGQBTM",241,0)
+ I P["GCC" D Q
+"RTN","MAGQBTM",242,0)
+ . S P1=$P(N,U,7),P2=$P(N,U,10),P3=$P(N,U,11),P4=$P(N,U,9)+1,PAR=P1_U_P2_U_P3_U_P4 Q
+"RTN","MAGQBTM",243,0)
+ S P1=$P(N,U,7)_"^^",P2=+$P(N,U,9)+1,PAR=P1_P2 ;JUKEBOX + ABSTRACT
+"RTN","MAGQBTM",244,0)
+ Q
+"RTN","MAGQBTM",245,0)
+ERR ;
+"RTN","MAGQBTM",246,0)
+ N ERRXX
+"RTN","MAGQBTM",247,0)
+ S ERRXX=$$EC^%ZOSV
+"RTN","MAGQBTM",248,0)
+ D ^%ZTER
+"RTN","MAGQBTM",249,0)
+ D ^XUSCLEAN
+"RTN","MAGQBTM",250,0)
+ Q
+"RTN","MAGQBUT1")
+0^8^B117993666
+"RTN","MAGQBUT1",1,0)
+MAGQBUT1 ;WOIFO/RP/PTW - Utilities for Background ; 23 May 2013 10:50 AM
+"RTN","MAGQBUT1",2,0)
+ ;;3.0;IMAGING;**7,8,20,81,39,135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGQBUT1",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGQBUT1",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQBUT1",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGQBUT1",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGQBUT1",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGQBUT1",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGQBUT1",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGQBUT1",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGQBUT1",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGQBUT1",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGQBUT1",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGQBUT1",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGQBUT1",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGQBUT1",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQBUT1",17,0)
+ ;;
+"RTN","MAGQBUT1",18,0)
+ Q
+"RTN","MAGQBUT1",19,0)
+UBPW(WS,ASSIGN) ; screen for duplicate assignments
+"RTN","MAGQBUT1",20,0)
+ N IEN,PLACE,PIECE,WSIEN,VALUE,DUP
+"RTN","MAGQBUT1",21,0)
+ S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBUT1",22,0)
+ S VALUE(1)=PLACE,VALUE(2)=WS
+"RTN","MAGQBUT1",23,0)
+ S WSIEN=$$FIND1^DIC(2006.8,"","QX",.VALUE,"D","","")
+"RTN","MAGQBUT1",24,0)
+ S PIECE=$P(ASSIGN,";",2)
+"RTN","MAGQBUT1",25,0)
+ S (DUP,IEN)=0
+"RTN","MAGQBUT1",26,0)
+ ;IF NOT ASSIGNED THEN QUIT
+"RTN","MAGQBUT1",27,0)
+ I '$P($G(^MAG(2006.8,WSIEN,0)),U,PIECE) K VALUE Q DUP
+"RTN","MAGQBUT1",28,0)
+ F S IEN=$O(^MAG(2006.8,IEN)) Q:'IEN D Q:DUP
+"RTN","MAGQBUT1",29,0)
+ . S ZNODE=^MAG(2006.8,IEN,0)
+"RTN","MAGQBUT1",30,0)
+ . Q:'$P(ZNODE,U,12) ; not a BP
+"RTN","MAGQBUT1",31,0)
+ . Q:$P(ZNODE,U,2)'=PLACE
+"RTN","MAGQBUT1",32,0)
+ . Q:$P(ZNODE,U)=WS
+"RTN","MAGQBUT1",33,0)
+ . S:+$P(ZNODE,U,PIECE) DUP=1
+"RTN","MAGQBUT1",34,0)
+ . Q
+"RTN","MAGQBUT1",35,0)
+ Q DUP
+"RTN","MAGQBUT1",36,0)
+BPPS(INPUT,WS,PROCESS) ;INPUT TRANSFORM FOR FILE 2006.8
+"RTN","MAGQBUT1",37,0)
+ N IEN,FND,WSNAME,WSNAME2,ZNODE,PIECE,MAGX,MAGY,PLACE
+"RTN","MAGQBUT1",38,0)
+ S U="^"
+"RTN","MAGQBUT1",39,0)
+ S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBUT1",40,0)
+ Q:'(+$P($G(^MAG(2006.8,WS,0)),U,12)) 0 ;NOT A BACKGROUND PROCESSOR
+"RTN","MAGQBUT1",41,0)
+ Q:'INPUT 1 ; Always allow unassigned
+"RTN","MAGQBUT1",42,0)
+ S WSNAME=$P($G(^MAG(2006.8,WS,0)),U) ;Workstation Name
+"RTN","MAGQBUT1",43,0)
+ Q:$L(WSNAME)<3 0 ;BP WS NOT PROPERLY INSTALLED
+"RTN","MAGQBUT1",44,0)
+ Q:$O(^MAG(2006.8,"C",PLACE,WSNAME,""))'?1N.N 1
+"RTN","MAGQBUT1",45,0)
+ S PIECE=$P($$GET1^DID(2006.8,PROCESS,"","GLOBAL SUBSCRIPT LOCATION"),";",2)
+"RTN","MAGQBUT1",46,0)
+ S IEN=0,WSNAME2="",FND=0
+"RTN","MAGQBUT1",47,0)
+ F S WSNAME2=$O(^MAG(2006.8,"C",PLACE,WSNAME2)) Q:WSNAME2="" D Q:FND
+"RTN","MAGQBUT1",48,0)
+ . Q:WSNAME2=WSNAME
+"RTN","MAGQBUT1",49,0)
+ . S IEN=$O(^MAG(2006.8,"C",PLACE,WSNAME2,"")) Q:IEN'?1N.N
+"RTN","MAGQBUT1",50,0)
+ . S ZNODE=$G(^MAG(2006.8,IEN,0))
+"RTN","MAGQBUT1",51,0)
+ . Q:$P(ZNODE,"^",12)'="1"
+"RTN","MAGQBUT1",52,0)
+ . S FND=$P(ZNODE,"^",PIECE)="1"
+"RTN","MAGQBUT1",53,0)
+ . Q
+"RTN","MAGQBUT1",54,0)
+ Q $S(FND="1":0,1:1)
+"RTN","MAGQBUT1",55,0)
+RSQUE(RESULT,IEN,QUEUE) ;[MAGQB RSQUE]
+"RTN","MAGQBUT1",56,0)
+ N PTR,PLACE
+"RTN","MAGQBUT1",57,0)
+ S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBUT1",58,0)
+ S PTR=$O(^MAGQUEUE(2006.031,"C",PLACE,QUEUE,""))
+"RTN","MAGQBUT1",59,0)
+ I $P(^MAGQUEUE(2006.031,PTR,0),"^")=QUEUE D
+"RTN","MAGQBUT1",60,0)
+ . S $P(^MAGQUEUE(2006.031,PTR,0),"^",2)=IEN
+"RTN","MAGQBUT1",61,0)
+ . Q
+"RTN","MAGQBUT1",62,0)
+ Q
+"RTN","MAGQBUT1",63,0)
+ICCL(SRVRCNT,NMESS,PLACE) ;UPDATE IMAGING DISTRIBUTION
+"RTN","MAGQBUT1",64,0)
+ N Y,LOC,INDEX,CNT,IEN,ARRAY,SUB1,SUB2,NAME
+"RTN","MAGQBUT1",65,0)
+ S Y=$$FMTE^XLFDT($$NOW^XLFDT)
+"RTN","MAGQBUT1",66,0)
+ S LOC=$$KSP^XUPARAM("WHERE")
+"RTN","MAGQBUT1",67,0)
+ S CNT=1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="SITE: "_LOC
+"RTN","MAGQBUT1",68,0)
+ S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="DATE: "_Y_" "_$G(^XMB("TIMEZONE"))
+"RTN","MAGQBUT1",69,0)
+ S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="SENDER: "_$$PLNM^MAGQBUT5(PLACE)_" Imaging Background Processor"
+"RTN","MAGQBUT1",70,0)
+ S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="Total Cache Free: "_$P(SRVRCNT,U,2)_" megabytes"
+"RTN","MAGQBUT1",71,0)
+ S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="Total Cache Available: "_$P(SRVRCNT,U,3)_" megabytes"
+"RTN","MAGQBUT1",72,0)
+ I $P(SRVRCNT,U,4) S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="An Automatic Purge process has been Activated. "
+"RTN","MAGQBUT1",73,0)
+ E S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="The Automatic Purge process is NOT configured. "
+"RTN","MAGQBUT1",74,0)
+ I $P(SRVRCNT,U,5)]"" S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="The Automatic Purge process is assigned to: "_$P(SRVRCNT,U,5)
+"RTN","MAGQBUT1",75,0)
+ E S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="The Automatic Purge process is NOT assigned to a BP server. "
+"RTN","MAGQBUT1",76,0)
+ S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="The "_$P(SRVRCNT,U)_" Imaging cache servers will"
+"RTN","MAGQBUT1",77,0)
+ S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="require operator intervention to ensure continued"
+"RTN","MAGQBUT1",78,0)
+ S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="availability. The following MAG SERVER members"
+"RTN","MAGQBUT1",79,0)
+ S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="are being notified: "
+"RTN","MAGQBUT1",80,0)
+ S INDEX=0,IEN=$$FIND1^DIC(3.8,"","MX","MAG SERVER","","","ERR")
+"RTN","MAGQBUT1",81,0)
+ Q:IEN'?1N.N
+"RTN","MAGQBUT1",82,0)
+ D GETS^DIQ(3.8,IEN_",","2*;11*;12*","","ARRAY")
+"RTN","MAGQBUT1",83,0)
+ S (SUB1,SUB2)=""
+"RTN","MAGQBUT1",84,0)
+ F S SUB1=$O(ARRAY(SUB1)) Q:SUB1="" D
+"RTN","MAGQBUT1",85,0)
+ . F S SUB2=$O(ARRAY(SUB1,SUB2)) Q:SUB2="" D
+"RTN","MAGQBUT1",86,0)
+ . . S NAME=$G(ARRAY(SUB1,SUB2,".01")) D:NAME'=""
+"RTN","MAGQBUT1",87,0)
+ . . . S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",8+CNT)=NAME
+"RTN","MAGQBUT1",88,0)
+ S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)="The next notifications will occur in: "
+"RTN","MAGQBUT1",89,0)
+ S CNT=CNT+1,^TMP($J,"MAGQ",PLACE,"BP",CNT)=NMESS
+"RTN","MAGQBUT1",90,0)
+ D MAILSHR(PLACE,"BP","Image Cache Critically Low at "_LOC)
+"RTN","MAGQBUT1",91,0)
+ S $P(^MAG(2006.1,$$PLACE^MAGBAPI($G(DUZ(2))),3),"^",11)=$$NOW^XLFDT
+"RTN","MAGQBUT1",92,0)
+ D UDMI^MAGQBUT5("Image Cache Critically Low at ",PLACE)
+"RTN","MAGQBUT1",93,0)
+ K ARRAY
+"RTN","MAGQBUT1",94,0)
+ Q
+"RTN","MAGQBUT1",95,0)
+MAILSHR(PLACE,APP,XMSUB) ;Shared Mail server code
+"RTN","MAGQBUT1",96,0)
+ N XMY,XMTEXT,XMID,XMZ
+"RTN","MAGQBUT1",97,0)
+ S XMTEXT="^TMP($J,""MAGQ"",PLACE,APP)"
+"RTN","MAGQBUT1",98,0)
+ S:$G(DUZ) XMY(DUZ)=""
+"RTN","MAGQBUT1",99,0)
+ D:$$PROD^XUPROD("1") ADDMG^MAGQBUT5(XMSUB,.XMY,PLACE)
+"RTN","MAGQBUT1",100,0)
+ S:$G(MAGDUZ) XMY(MAGDUZ)=""
+"RTN","MAGQBUT1",101,0)
+ S XMID=$G(DUZ) S:'XMID XMID=.5
+"RTN","MAGQBUT1",102,0)
+ S XMY(XMID)=""
+"RTN","MAGQBUT1",103,0)
+ N L1,L2,L3
+"RTN","MAGQBUT1",104,0)
+ S L2=$L($P(XMSUB,"^",2))
+"RTN","MAGQBUT1",105,0)
+ S L3=60-L2
+"RTN","MAGQBUT1",106,0)
+ S L1=$L($P(XMSUB,"^"))
+"RTN","MAGQBUT1",107,0)
+ I L2=0 S XMSUB=$E(XMSUB,1,60)
+"RTN","MAGQBUT1",108,0)
+ E S XMSUB=$E($P(XMSUB,"^"),1,L3-1)_"^"_$P(XMSUB,"^",2)
+"RTN","MAGQBUT1",109,0)
+ D SENDMSG^XMXAPI(XMID,XMSUB,XMTEXT,.XMY,,.XMZ,)
+"RTN","MAGQBUT1",110,0)
+ K ^TMP($J,"MAGQ",PLACE,APP)
+"RTN","MAGQBUT1",111,0)
+ I $G(XMERR) M XMERR=^TMP("XMERR",$J) K XMERR
+"RTN","MAGQBUT1",112,0)
+ Q
+"RTN","MAGQBUT1",113,0)
+ALLSERV(RESULT,GRP) ; BP Queue Processor
+"RTN","MAGQBUT1",114,0)
+ ; RPC[MAGQ ALL SERVER] used for ServerSize update/display function - reports network resources
+"RTN","MAGQBUT1",115,0)
+ ; Returns OnLine, network addressed, non-router, place related Magnetic shares
+"RTN","MAGQBUT1",116,0)
+ ; it returns the share designated as the current Write location in the (0) indice
+"RTN","MAGQBUT1",117,0)
+ ; it does not screen on READ-ONLY, and the list is group specific
+"RTN","MAGQBUT1",118,0)
+ ; the function could be replaced by a fileman call from the GUI
+"RTN","MAGQBUT1",119,0)
+ ; PHYSICAL REFERENCE^CWL or ien^FREE SPACE^TOTAL SPACE^NAME^GROUP^TYPE
+"RTN","MAGQBUT1",120,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBUT1",121,0)
+ N INDX,DATA,CNT,SHARE,CWL,VALUE,TMP,PLACE,CWG ;CWL=CURRENT WRITE LOCATION CWG=CURRENT WRITE GROUP
+"RTN","MAGQBUT1",122,0)
+ S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBUT1",123,0)
+ S CWG=$S($G(GRP)["ALL":"",1:$$CWG^MAGBAPI(PLACE))
+"RTN","MAGQBUT1",124,0)
+ D:CWG CWGIC(CWG) ;Remove all members that do not reference this group
+"RTN","MAGQBUT1",125,0)
+ S CWL=$$CWL^MAGBAPI(PLACE)
+"RTN","MAGQBUT1",126,0)
+ ; I CWL D ;First report Current Write Location data
+"RTN","MAGQBUT1",127,0)
+ ; . S DATA=$G(^MAG(2005.2,CWL,0))
+"RTN","MAGQBUT1",128,0)
+ ; . S SHARE=$P(DATA,U,2)
+"RTN","MAGQBUT1",129,0)
+ ; . S RESULT(0)=SHARE_U_CWL_U_+$P(DATA,U,5)_U_+$P(DATA,U,3)_U_$P(DATA,U)
+"RTN","MAGQBUT1",130,0)
+ ; . S RESULT(0)=RESULT(0)_U_$S($L($$GET1^DIQ(2005.2,CWL,31,"E","","")):$$GET1^DIQ(2005.2,CWL,31,"E","",""),1:"")
+"RTN","MAGQBUT1",131,0)
+ ; . S RESULT(0)=RESULT(0)_U_$$GET1^DIQ(2005.2,CWL,6,"I","","")
+"RTN","MAGQBUT1",132,0)
+ ; . Q
+"RTN","MAGQBUT1",133,0)
+ ; E S RESULT(0)="-1^The Current Write Location (CWL) is not currently set."
+"RTN","MAGQBUT1",134,0)
+ S INDX=0,U="^",CNT=1
+"RTN","MAGQBUT1",135,0)
+ K ^TMP("MAGQAS")
+"RTN","MAGQBUT1",136,0)
+ F S INDX=$O(^MAG(2005.2,INDX)) Q:INDX'?1N.N D
+"RTN","MAGQBUT1",137,0)
+ . S DATA=$G(^MAG(2005.2,INDX,0))
+"RTN","MAGQBUT1",138,0)
+ . Q:$P(DATA,U,6,7)'["1^MAG"
+"RTN","MAGQBUT1",139,0)
+ . Q:$P(DATA,U,2)[":"
+"RTN","MAGQBUT1",140,0)
+ . Q:($P(DATA,U,10)'=PLACE)
+"RTN","MAGQBUT1",141,0)
+ . Q:$P(DATA,U,9)="1" ;ROUTING SHARE
+"RTN","MAGQBUT1",142,0)
+ . S SHARE=$P(DATA,U,2)
+"RTN","MAGQBUT1",143,0)
+ . Q:$E(SHARE,1,2)'="\\"
+"RTN","MAGQBUT1",144,0)
+ . I $E(SHARE,$L(SHARE))="\" S SHARE=$E(SHARE,1,$L(SHARE)-1)
+"RTN","MAGQBUT1",145,0)
+ . S TMP(SHARE)=""
+"RTN","MAGQBUT1",146,0)
+ . I CWG,'$$GMEM(CWG,INDX) Q ;screen on Current Write Group also validate group member reference
+"RTN","MAGQBUT1",147,0)
+ . S VALUE=SHARE_U_INDX_U_+$P(DATA,U,5)_U_+$P(DATA,U,3)_U_$P(DATA,U)
+"RTN","MAGQBUT1",148,0)
+ . S VALUE=VALUE_U_$S($L($$GET1^DIQ(2005.2,INDX,31,"E","","")):$$GET1^DIQ(2005.2,INDX,31,"E","",""),1:"")
+"RTN","MAGQBUT1",149,0)
+ . S VALUE=VALUE_U_$$GET1^DIQ(2005.2,INDX,6,"E","","")
+"RTN","MAGQBUT1",150,0)
+ . I INDX=CWL D Q ;ELSE CONTINUE
+"RTN","MAGQBUT1",151,0)
+ . . S RESULT(0)=VALUE_U_$G(^TMP("MAGQ","WSUD"))
+"RTN","MAGQBUT1",152,0)
+ . . S ^TMP("MAGQAS",0)=VALUE ;1ST SHARE=CWL
+"RTN","MAGQBUT1",153,0)
+ . . Q
+"RTN","MAGQBUT1",154,0)
+ . S RESULT(CNT)=VALUE,CNT=CNT+1
+"RTN","MAGQBUT1",155,0)
+ . S ^TMP("MAGQAS",CNT-1)=VALUE
+"RTN","MAGQBUT1",156,0)
+ . Q
+"RTN","MAGQBUT1",157,0)
+ Q
+"RTN","MAGQBUT1",158,0)
+ALLSHR(RESULT,TYPE) ; RPC[MAGQBP ALL SHARES] - Used by BP Purge
+"RTN","MAGQBUT1",159,0)
+ ; screens off-line,read-only,routing share,non-mag,non-place,next group,current group,specific group(s)
+"RTN","MAGQBUT1",160,0)
+ N TMP,INDX,DATA,CNT,SHARE,CWL,VALUE,PLACE,NG,GRP ;CWL=CURRENT WRITE LOCATION
+"RTN","MAGQBUT1",161,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBUT1",162,0)
+ S (CNT,INDX)=0,U="^" S:'$D(TYPE) TYPE="ALL" ;calling routine will define TYPE, or set as ALL by default (no screen).
+"RTN","MAGQBUT1",163,0)
+ S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBUT1",164,0)
+ S CWL=$$CWL^MAGBAPI(PLACE)
+"RTN","MAGQBUT1",165,0)
+ S GRP=$$GRP^MAGQBUT(PLACE)
+"RTN","MAGQBUT1",166,0)
+ S NG=$$NXTGP^MAGQBUT(PLACE,GRP,"1") ; Next Purge capable group
+"RTN","MAGQBUT1",167,0)
+ F S INDX=$O(^MAG(2005.2,INDX)) Q:INDX'?1N.N D
+"RTN","MAGQBUT1",168,0)
+ . S DATA=$G(^MAG(2005.2,INDX,0))
+"RTN","MAGQBUT1",169,0)
+ . Q:$P(DATA,U,6,7)'["1^MAG"
+"RTN","MAGQBUT1",170,0)
+ . Q:$P(DATA,U,9)="1" ;ROUTING SHARE
+"RTN","MAGQBUT1",171,0)
+ . Q:$P(DATA,U,2)[":"
+"RTN","MAGQBUT1",172,0)
+ . Q:($P(DATA,U,10)'=PLACE)
+"RTN","MAGQBUT1",173,0)
+ . Q:($P($G(^MAG(2005.2,INDX,1)),U,6)="1") ;Read Only
+"RTN","MAGQBUT1",174,0)
+ . Q:(("^AUTO^NRG^"[("^"_TYPE_"^"))&($P($G(^MAG(2005.2,INDX,1)),U,8)'=NG)) ;NOT a member of the Next RAID Group
+"RTN","MAGQBUT1",175,0)
+ . Q:(("^CRG^"[("^"_TYPE_"^"))&($P($G(^MAG(2005.2,INDX,1)),U,8)'=GRP)) ;NOT a member of the Current RAID Group
+"RTN","MAGQBUT1",176,0)
+ . Q:((TYPE?1N.N)&($P($G(^MAG(2005.2,INDX,1)),U,8)'=TYPE)) ;NOT a member of the Specified RAID Group
+"RTN","MAGQBUT1",177,0)
+ . S SHARE=$$UPPER^MAGQE4($P(DATA,U,2))
+"RTN","MAGQBUT1",178,0)
+ . Q:$E(SHARE,1,2)'="\\"
+"RTN","MAGQBUT1",179,0)
+ . I $E(SHARE,$L(SHARE))="\" S SHARE=$E(SHARE,1,$L(SHARE)-1)
+"RTN","MAGQBUT1",180,0)
+ . Q:$D(TMP(SHARE))
+"RTN","MAGQBUT1",181,0)
+ . S TMP(SHARE)=""
+"RTN","MAGQBUT1",182,0)
+ . Q
+"RTN","MAGQBUT1",183,0)
+ S INDX=""
+"RTN","MAGQBUT1",184,0)
+ F S INDX=$O(TMP(INDX)) Q:INDX="" D
+"RTN","MAGQBUT1",185,0)
+ . S RESULT(CNT)=INDX,CNT=CNT+1
+"RTN","MAGQBUT1",186,0)
+ . Q
+"RTN","MAGQBUT1",187,0)
+ K TMP
+"RTN","MAGQBUT1",188,0)
+ Q
+"RTN","MAGQBUT1",189,0)
+FSUPDT(RESULT,IEN,SPACE,SIZE) ; File Server Update
+"RTN","MAGQBUT1",190,0)
+ ; RPC[MAGQ FS UPDATE]
+"RTN","MAGQBUT1",191,0)
+ ; Space is field #2 (Total Space)and is actually share size
+"RTN","MAGQBUT1",192,0)
+ ; Size is field #4 (Free Space)
+"RTN","MAGQBUT1",193,0)
+ N NODE,X,Y,INDEX,SHNAME,PLACE
+"RTN","MAGQBUT1",194,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBUT1",195,0)
+ S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBUT1",196,0)
+ K ^TMP("MAGQ","WSUD")
+"RTN","MAGQBUT1",197,0)
+ S ^TMP("MAGQ","WSUD",IEN)=$$FMTE^XLFDT($$NOW^XLFDT)_U_IEN_U_SPACE_U_SIZE
+"RTN","MAGQBUT1",198,0)
+ I $G(^MAG(2005.2,IEN,0))="" S RESULT="-1^No Network Location Entry" Q
+"RTN","MAGQBUT1",199,0)
+ S SHNAME=$P($G(^MAG(2005.2,IEN,0)),U,2)
+"RTN","MAGQBUT1",200,0)
+ D FSW(IEN,SPACE,SIZE) ;The next is to update redundant shares and should not be necessary
+"RTN","MAGQBUT1",201,0)
+ S INDEX=0 F S INDEX=$O(^MAG(2005.2,"AC",SHNAME,INDEX)) Q:'INDEX D
+"RTN","MAGQBUT1",202,0)
+ . Q:INDEX=IEN
+"RTN","MAGQBUT1",203,0)
+ . D FSW(INDEX,SPACE,SIZE)
+"RTN","MAGQBUT1",204,0)
+ . Q
+"RTN","MAGQBUT1",205,0)
+ S RESULT="1^Update Complete"
+"RTN","MAGQBUT1",206,0)
+ Q
+"RTN","MAGQBUT1",207,0)
+FSW(IX,SP,SZ) ;
+"RTN","MAGQBUT1",208,0)
+ S $P(^MAG(2005.2,IX,0),U,3)=+SP,$P(^MAG(2005.2,IX,0),U,5)=+SZ
+"RTN","MAGQBUT1",209,0)
+ Q
+"RTN","MAGQBUT1",210,0)
+QUEUER(QUE,FROM,TO) ;
+"RTN","MAGQBUT1",211,0)
+ N TYPE,INC,CNT,AR,TMP,PLACE,INST,MAGFILE
+"RTN","MAGQBUT1",212,0)
+ I $$GET1^DIQ(200,+$G(DUZ),.01)="" D Q
+"RTN","MAGQBUT1",213,0)
+ . W !,"You must have a valid User ID (DUZ) to use this function!"
+"RTN","MAGQBUT1",214,0)
+ . Q
+"RTN","MAGQBUT1",215,0)
+ I "^JBTOHD^PREFET^ABSTRACT^JUKEBOX^GCC^DELETE^EVAL^"'[QUE D Q
+"RTN","MAGQBUT1",216,0)
+ . W !,"Only JBTOHD, PREFET, ABSTRACT, JUKEBOX, DELETE, EVAL & GCC queues are valid!"
+"RTN","MAGQBUT1",217,0)
+ . W !,"Input values: ""Queue type"",""From Image IEN"",""To Image IEN"""
+"RTN","MAGQBUT1",218,0)
+ S CNT=0,PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2))),INST=$$GET1^DIQ(2006.1,PLACE,.01,"I")
+"RTN","MAGQBUT1",219,0)
+ F INC=FROM:1:TO D
+"RTN","MAGQBUT1",220,0)
+ . I ('$D(^MAG(2005,INC,0))&('$D(^MAG(2005.1,INC,0)))) Q
+"RTN","MAGQBUT1",221,0)
+ . I $D(^MAG(2005,INC,0)),$$PLACE^MAGBAPI(+$P($G(^MAG(2005,INC,100)),U,3))'=PLACE Q
+"RTN","MAGQBUT1",222,0)
+ . I $D(^MAG(2005.1,INC,0)),$$PLACE^MAGBAPI(+$P($G(^MAG(2005.1,INC,100)),U,3))'=PLACE Q
+"RTN","MAGQBUT1",223,0)
+ . I ($P($G(^MAG(2005,INC,0)),"^",2)="")&($P($G(^MAG(2005.1,INC,0)),"^",2)="") Q ;No full filename attribute
+"RTN","MAGQBUT1",224,0)
+ . I (+$P($G(^MAG(2005,INC,1,0)),"^",4)>0)!(+$P($G(^MAG(2005.1,INC,1,0)),"^",4)>0) Q ;GROUP PARENT
+"RTN","MAGQBUT1",225,0)
+ . I "^DELETE^"[QUE D Q
+"RTN","MAGQBUT1",226,0)
+ . . N MAGXX S MAGXX=INC D VSTNOCP^MAGFILEB I $E(MAGFILE,1,2)="-1" W !,"Image # "_INC Q
+"RTN","MAGQBUT1",227,0)
+ . . S MAGXX=INC D ABSNOCP^MAGFILEB I $E(MAGFILE,1,2)="-1" W !,"Image # "_INC Q
+"RTN","MAGQBUT1",228,0)
+ . . D IMAGEDEL^MAGGTID(.MAGFILE,INC,"","TESTING")
+"RTN","MAGQBUT1",229,0)
+ . . Q
+"RTN","MAGQBUT1",230,0)
+ . I "^ABSTRACT^"[QUE D Q
+"RTN","MAGQBUT1",231,0)
+ . . I $$ABSOK^MAGQBUT1(INC) D MAPI(QUE,INC,.CNT)
+"RTN","MAGQBUT1",232,0)
+ . . Q
+"RTN","MAGQBUT1",233,0)
+ . I "^JBTOHD^PREFET^"[QUE F TYPE="ABSTRACT","FULL","BIG" D
+"RTN","MAGQBUT1",234,0)
+ . . Q:(TYPE="BIG")&('$D(^MAG(2005,INC,"FBIG"))&'$D(^MAG(2005.1,INC,"FBIG")))
+"RTN","MAGQBUT1",235,0)
+ . . D MAPI(QUE,INC_"^"_TYPE,.CNT)
+"RTN","MAGQBUT1",236,0)
+ . . Q
+"RTN","MAGQBUT1",237,0)
+ . E D MAPI(QUE,INC,.CNT) ; JUKEBOX,EVAL,GCC
+"RTN","MAGQBUT1",238,0)
+ . Q
+"RTN","MAGQBUT1",239,0)
+ Q
+"RTN","MAGQBUT1",240,0)
+MAPI(TYP,PARAM,CNT) ;
+"RTN","MAGQBUT1",241,0)
+ N PLACE
+"RTN","MAGQBUT1",242,0)
+ S CNT=CNT+1,PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBUT1",243,0)
+ W !,CNT," TYPE: ",TYP,": ",PARAM_" QUEUE #: ",@("$$"_TYP_"^MAGBAPI(PARAM,PLACE)")
+"RTN","MAGQBUT1",244,0)
+ Q
+"RTN","MAGQBUT1",245,0)
+ABSOK(IEN) ; Verify that the Full Image Type is a supported by our ABSTRACT method
+"RTN","MAGQBUT1",246,0)
+ N TYPE,FILE,IFT ; Image file type
+"RTN","MAGQBUT1",247,0)
+ S FILE=$S($D(^MAG(2005,IEN)):$P($G(^MAG(2005,IEN,0)),U,2),$D(^MAG(2005.1,IEN)):$P($G(^MAG(2005.1,IEN,0)),U,2),1:"")
+"RTN","MAGQBUT1",248,0)
+ S TYPE=$P(FILE,".",2)
+"RTN","MAGQBUT1",249,0)
+ S IFT=$S($D(^MAG(2005.021,"B",TYPE)):$O(^MAG(2005.021,"B",TYPE,"")),1:"")
+"RTN","MAGQBUT1",250,0)
+ I (IFT']"")!($P($G(^MAG(2005.021,IFT,0)),U,5)'="1") D Q 0
+"RTN","MAGQBUT1",251,0)
+ . W !,"Abstract not supported IEN/TYPE: "_IEN_"/"_TYPE
+"RTN","MAGQBUT1",252,0)
+ Q $P($G(^MAG(2005.021,IFT,0)),U,5)
+"RTN","MAGQBUT1",253,0)
+BPQSL(RESULT,TYPE) ; Called from MAGQUEMAN.PAS and MagSiteParameters.PAS
+"RTN","MAGQBUT1",254,0)
+ ; RPC[MAGQB QSL]
+"RTN","MAGQBUT1",255,0)
+ N STATUS,CNT,IEN,CP,PLACE
+"RTN","MAGQBUT1",256,0)
+ S PLACE=$$PLACE^MAGBAPI(+$G(DUZ(2)))
+"RTN","MAGQBUT1",257,0)
+ S STATUS="",CNT=0
+"RTN","MAGQBUT1",258,0)
+ F S STATUS=$O(^MAGQUEUE(2006.03,"D",PLACE,TYPE,STATUS)) Q:STATUS="" D
+"RTN","MAGQBUT1",259,0)
+ . Q:+STATUS>0
+"RTN","MAGQBUT1",260,0)
+ . S IEN=$O(^MAGQUEUE(2006.03,"D",PLACE,TYPE,STATUS,""))
+"RTN","MAGQBUT1",261,0)
+ . S CP=$P(^MAGQUEUE(2006.031,$O(^MAGQUEUE(2006.031,"C",PLACE,TYPE,"")),0),"^",2)
+"RTN","MAGQBUT1",262,0)
+ . Q:IEN>(CP)
+"RTN","MAGQBUT1",263,0)
+ . S CNT=CNT+1,RESULT(CNT)=STATUS
+"RTN","MAGQBUT1",264,0)
+ . Q
+"RTN","MAGQBUT1",265,0)
+ Q
+"RTN","MAGQBUT1",266,0)
+CWGIC(CWG) ; Current RAID Group integrity check
+"RTN","MAGQBUT1",267,0)
+ N VALUE,IEN,MAGFDA,MSG
+"RTN","MAGQBUT1",268,0)
+ S VALUE=""
+"RTN","MAGQBUT1",269,0)
+ F S VALUE=$O(^MAG(2005.2,CWG,7,"B",VALUE)) Q:'VALUE D:($P($G(^MAG(2005.2,VALUE,1)),U,8)'=CWG)
+"RTN","MAGQBUT1",270,0)
+ . S IEN=$O(^MAG(2005.2,CWG,7,"B",VALUE,""))
+"RTN","MAGQBUT1",271,0)
+ . S MAGFDA(2005.22,IEN_","_CWG_",",.01)="@"
+"RTN","MAGQBUT1",272,0)
+ . D FILE^DIE("","MAGFDA","")
+"RTN","MAGQBUT1",273,0)
+ . K MAGFDA
+"RTN","MAGQBUT1",274,0)
+ . Q
+"RTN","MAGQBUT1",275,0)
+ Q
+"RTN","MAGQBUT1",276,0)
+GMEM(CWG,IEN) ; Update Current RAID Group
+"RTN","MAGQBUT1",277,0)
+ N GVAL
+"RTN","MAGQBUT1",278,0)
+ S GVAL=$P($G(^MAG(2005.2,IEN,1)),U,8)
+"RTN","MAGQBUT1",279,0)
+ I GVAL,'$D(^MAG(2005.2,GVAL,7,"B",IEN)) D
+"RTN","MAGQBUT1",280,0)
+ . N MAGFDA
+"RTN","MAGQBUT1",281,0)
+ . S MAGFDA(2005.22,"+1,"_GVAL_",",.01)=IEN
+"RTN","MAGQBUT1",282,0)
+ . D UPDATE^DIE("","MAGFDA","","")
+"RTN","MAGQBUT1",283,0)
+ . K MAGFDA
+"RTN","MAGQBUT1",284,0)
+ . Q
+"RTN","MAGQBUT1",285,0)
+ Q $S(GVAL'=CWG:0,1:1)
+"RTN","MAGQBUT4")
+0^9^B92803022
+"RTN","MAGQBUT4",1,0)
+MAGQBUT4 ;WOIFO/RMP - BP Utilities ; 27 Jun 2012 5:45 PM
+"RTN","MAGQBUT4",2,0)
+ ;;3.0;IMAGING;**7,8,48,20,81,39,121,135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGQBUT4",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGQBUT4",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQBUT4",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGQBUT4",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGQBUT4",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGQBUT4",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGQBUT4",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGQBUT4",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGQBUT4",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGQBUT4",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGQBUT4",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGQBUT4",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGQBUT4",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGQBUT4",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQBUT4",17,0)
+ ;;
+"RTN","MAGQBUT4",18,0)
+ ;
+"RTN","MAGQBUT4",19,0)
+ Q
+"RTN","MAGQBUT4",20,0)
+CONV(ARR,ICT) ;Convert any single node array to FM Style multiple
+"RTN","MAGQBUT4",21,0)
+ ; The node subscripts of ARR are ignored, and not retained
+"RTN","MAGQBUT4",22,0)
+ ; i.e. ARR(34)=8
+"RTN","MAGQBUT4",23,0)
+ ; ARR("BLUE")=9
+"RTN","MAGQBUT4",24,0)
+ ; ARR("D")=10
+"RTN","MAGQBUT4",25,0)
+ ; converts to
+"RTN","MAGQBUT4",26,0)
+ ; ARR(1,0)=8
+"RTN","MAGQBUT4",27,0)
+ ; ARR(2,0)=9
+"RTN","MAGQBUT4",28,0)
+ ; ARR(3,0)=10
+"RTN","MAGQBUT4",29,0)
+ N I,ARO
+"RTN","MAGQBUT4",30,0)
+ S ICT=0,I=""
+"RTN","MAGQBUT4",31,0)
+ F S I=$O(ARR(I)) Q:(I="") D
+"RTN","MAGQBUT4",32,0)
+ . S ICT=ICT+1
+"RTN","MAGQBUT4",33,0)
+ . S ARO(ICT,0)=ARR(I)
+"RTN","MAGQBUT4",34,0)
+ K ARR
+"RTN","MAGQBUT4",35,0)
+ M ARR=ARO
+"RTN","MAGQBUT4",36,0)
+ Q
+"RTN","MAGQBUT4",37,0)
+MRGMULT(ARR,RT,RTDSC,CT) ;Merge the FM formatted array into a FM File
+"RTN","MAGQBUT4",38,0)
+ ; multiple field.
+"RTN","MAGQBUT4",39,0)
+ ; This isn't for general consumption.
+"RTN","MAGQBUT4",40,0)
+ ; RT = FILE ROOT, RECORD NUMBER, NODE
+"RTN","MAGQBUT4",41,0)
+ ; i.e. "^MAG(2006.034,44,1," -> 44 is the IEN of MAG(2006.34
+"RTN","MAGQBUT4",42,0)
+ ; RTDSC is the 2nd piece of the 0 node of the multiple field.
+"RTN","MAGQBUT4",43,0)
+ S RT=$E(RT,1,$L(RT)-1)_")"
+"RTN","MAGQBUT4",44,0)
+ S @RT@(0)=U_RTDSC_U_CT_U_CT ; i.e. ^2006.341A^13^13
+"RTN","MAGQBUT4",45,0)
+ M @RT=ARR
+"RTN","MAGQBUT4",46,0)
+ Q
+"RTN","MAGQBUT4",47,0)
+DDLF(RESULTS,FILE,FIELD,FLAGS,ATTR) ;[MAG FLD ATT]
+"RTN","MAGQBUT4",48,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBUT4",49,0)
+ K X
+"RTN","MAGQBUT4",50,0)
+ N I
+"RTN","MAGQBUT4",51,0)
+ D FIELD^DID(FILE,FIELD,FLAGS,ATTR,"RESULTS","RESULTS")
+"RTN","MAGQBUT4",52,0)
+ S I=0 F S I=I+1 Q:'$D(RESULTS(ATTR,I)) M RESULTS(I)=RESULTS(ATTR,I)
+"RTN","MAGQBUT4",53,0)
+ Q
+"RTN","MAGQBUT4",54,0)
+DDFA(RESULTS) ;[MAG ATT LST]
+"RTN","MAGQBUT4",55,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBUT4",56,0)
+ K X
+"RTN","MAGQBUT4",57,0)
+ D FIELDLST^DID(RESULTS)
+"RTN","MAGQBUT4",58,0)
+ Q
+"RTN","MAGQBUT4",59,0)
+DVAL(RESULTS,FILE,IENS,FIELD,FLAGS,VALUE) ;[MAG FIELD VALIDATE]
+"RTN","MAGQBUT4",60,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBUT4",61,0)
+ K X
+"RTN","MAGQBUT4",62,0)
+ I FLAGS']"" S FLAGS="EHU"
+"RTN","MAGQBUT4",63,0)
+ D VAL^DIE(FILE,IENS,FIELD,FLAGS,VALUE,.RESULT,"","MSG")
+"RTN","MAGQBUT4",64,0)
+ I RESULT=U S RESULTS="-1^"_$G(MSG("DIERR","1","TEXT","1"))
+"RTN","MAGQBUT4",65,0)
+ E S RESULTS=1_U_RESULT_U_$G(RESULT(0))
+"RTN","MAGQBUT4",66,0)
+ Q
+"RTN","MAGQBUT4",67,0)
+KVAL(RESULTS,FLAGS,FDA) ;[MAG KEY VALIDATE]
+"RTN","MAGQBUT4",68,0)
+ N TMP,DDRFDA
+"RTN","MAGQBUT4",69,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBUT4",70,0)
+ K X
+"RTN","MAGQBUT4",71,0)
+ D FDASET(.FDA,.DDRFDA)
+"RTN","MAGQBUT4",72,0)
+ S TMP=$$KEYVAL^DIE(FLAGS,"DDRFDA","MSG")
+"RTN","MAGQBUT4",73,0)
+ S RESULTS=$S(TMP=1:1,1:"-1^"_$G(MSG("DIERR","1","TEXT","1")))
+"RTN","MAGQBUT4",74,0)
+ K DDRFDA,MSG
+"RTN","MAGQBUT4",75,0)
+ Q
+"RTN","MAGQBUT4",76,0)
+FDASET(DDRROOT,DDRFDA) ;
+"RTN","MAGQBUT4",77,0)
+ N DDRFILE,DDRIEN,DDRFIELD,DDRVAL,DDRERR,I
+"RTN","MAGQBUT4",78,0)
+ S I=0
+"RTN","MAGQBUT4",79,0)
+ F S I=$O(DDRROOT(I)) Q:'I S X=DDRROOT(I) D
+"RTN","MAGQBUT4",80,0)
+ . S DDRFILE=$P(X,U)
+"RTN","MAGQBUT4",81,0)
+ . S DDRFIELD=$P(X,U,2)
+"RTN","MAGQBUT4",82,0)
+ . S DDRIEN=$P(X,U,3)
+"RTN","MAGQBUT4",83,0)
+ . S DDRVAL=$P(X,U,4,99)
+"RTN","MAGQBUT4",84,0)
+ . D FDA^DILF(DDRFILE,DDRIEN_$S($E(DDRIEN,$L(DDRIEN))'=",":",",1:""),DDRFIELD,"",DDRVAL,"DDRFDA","DDRERR")
+"RTN","MAGQBUT4",85,0)
+ Q
+"RTN","MAGQBUT4",86,0)
+DHRPC(RESULTS,FNAME,FLOC) ;[MAG DIRHASH]
+"RTN","MAGQBUT4",87,0)
+ N TMP
+"RTN","MAGQBUT4",88,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBUT4",89,0)
+ K X
+"RTN","MAGQBUT4",90,0)
+ S TMP=$$DIRHASH^MAGFILEB(FNAME,FLOC)
+"RTN","MAGQBUT4",91,0)
+ S RESULTS=$S(TMP="":U,1:TMP)
+"RTN","MAGQBUT4",92,0)
+ Q
+"RTN","MAGQBUT4",93,0)
+GPACHX(PV) ; Get Package File Install History of Imaging
+"RTN","MAGQBUT4",94,0)
+ N I,LCNT,MSG,PKG
+"RTN","MAGQBUT4",95,0)
+ S LCNT=0
+"RTN","MAGQBUT4",96,0)
+ S PV(0)="Version^Install Date"
+"RTN","MAGQBUT4",97,0)
+ F PKG="IMAGING" D
+"RTN","MAGQBUT4",98,0)
+ . N J,K,L,VERS,DATE,X,Y
+"RTN","MAGQBUT4",99,0)
+ . S J=$O(^DIC(9.4,"B",PKG,"")) Q:'J
+"RTN","MAGQBUT4",100,0)
+ . S VERS="" F S VERS=$O(^DIC(9.4,J,22,"B",VERS)) Q:VERS="" D
+"RTN","MAGQBUT4",101,0)
+ . . N MSG,TAR
+"RTN","MAGQBUT4",102,0)
+ . . S K=$O(^DIC(9.4,J,22,"B",VERS,""))
+"RTN","MAGQBUT4",103,0)
+ . . D LIST^DIC(9.4901,","_K_","_J_",","@;.01;.02;.03","","","","","","","","TAR","MSG")
+"RTN","MAGQBUT4",104,0)
+ . . Q:$D(MSG("DIERR"))
+"RTN","MAGQBUT4",105,0)
+ . . S L=0 F S L=$O(TAR("DILIST","ID",L)) Q:'L D
+"RTN","MAGQBUT4",106,0)
+ . . . S LCNT=LCNT+1
+"RTN","MAGQBUT4",107,0)
+ . . . S PV(LCNT)=VERS_"P"_$P(TAR("DILIST","ID",L,".01"),"^",1)
+"RTN","MAGQBUT4",108,0)
+ . . . S X=$P($P(TAR("DILIST","ID",L,".02"),"^",1),"@",1)
+"RTN","MAGQBUT4",109,0)
+ . . . S PV(LCNT)=PV(LCNT)_"^"_$S(X["-1":"",1:X)
+"RTN","MAGQBUT4",110,0)
+ . . . Q
+"RTN","MAGQBUT4",111,0)
+ . . Q
+"RTN","MAGQBUT4",112,0)
+ . Q
+"RTN","MAGQBUT4",113,0)
+ Q
+"RTN","MAGQBUT4",114,0)
+ ;
+"RTN","MAGQBUT4",115,0)
+VOKR(RESULT,VER) ; RPC for VOK [MAGQ VOK]
+"RTN","MAGQBUT4",116,0)
+ N CVERS,PNUM,SLINE
+"RTN","MAGQBUT4",117,0)
+ S VER="3.0P"_($$TRIM($P(VER,"P",2)))
+"RTN","MAGQBUT4",118,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBUT4",119,0)
+ S SLINE=$T(+2)
+"RTN","MAGQBUT4",120,0)
+ S PNUM=$$TRIM($P(SLINE,"**",2)),PNUM=$$TRIM($P(PNUM,",",$L(PNUM,",")))
+"RTN","MAGQBUT4",121,0)
+ S CVERS=$$TRIM($P(SLINE,";",3))_"P"_PNUM
+"RTN","MAGQBUT4",122,0)
+ S RESULT=$S(CVERS=VER:1,1:0)_U_CVERS
+"RTN","MAGQBUT4",123,0)
+ Q
+"RTN","MAGQBUT4",124,0)
+ ;
+"RTN","MAGQBUT4",125,0)
+TRIM(X) ; remove both leading and trailing blanks
+"RTN","MAGQBUT4",126,0)
+ N I,J
+"RTN","MAGQBUT4",127,0)
+ F I=1:1:$L(X) Q:$E(X,I)'=" "
+"RTN","MAGQBUT4",128,0)
+ F J=$L(X):-1:I Q:$E(X,J)'=" "
+"RTN","MAGQBUT4",129,0)
+ Q $S($E(X,I,J)=" ":"",1:$E(X,I,J))
+"RTN","MAGQBUT4",130,0)
+ ;
+"RTN","MAGQBUT4",131,0)
+QCNT(RESULT,PLC,QUE) ; [MAGQ QCNT] Called from MagQueManSet.pas and MagSiteParameters.pas
+"RTN","MAGQBUT4",132,0)
+ N CNT,DA,CQ,IA,X
+"RTN","MAGQBUT4",133,0)
+ S X="ERR^MAGQBTM",@^%ZOSF("TRAP")
+"RTN","MAGQBUT4",134,0)
+ ;CQ=Current Queue Pointer(#2006.03)
+"RTN","MAGQBUT4",135,0)
+ ;QP=Queue file pointer(#2006.031)
+"RTN","MAGQBUT4",136,0)
+ ;CNT=Queue type total, IA=Not failed total
+"RTN","MAGQBUT4",137,0)
+ S IA="",RESULT=0
+"RTN","MAGQBUT4",138,0)
+ S (CNT,IA)=0,DA=""
+"RTN","MAGQBUT4",139,0)
+ S QP=$S($D(^MAGQUEUE(2006.031,"C",PLC,QUE)):$O(^MAGQUEUE(2006.031,"C",PLC,QUE,"")),1:"")
+"RTN","MAGQBUT4",140,0)
+ S CQ=$S('QP:0,1:$P($G(^MAGQUEUE(2006.031,QP,0)),U,2))
+"RTN","MAGQBUT4",141,0)
+ F S DA=$O(^MAGQUEUE(2006.03,"C",PLC,QUE,DA)) Q:'DA D
+"RTN","MAGQBUT4",142,0)
+ . I '$D(^MAGQUEUE(2006.03,DA,0)) K ^MAGQUEUE(2006.03,"C",PLC,QUE,DA) Q
+"RTN","MAGQBUT4",143,0)
+ . S CNT=CNT+1
+"RTN","MAGQBUT4",144,0)
+ . I CQ<DA S IA=IA+1
+"RTN","MAGQBUT4",145,0)
+ . Q
+"RTN","MAGQBUT4",146,0)
+ D QPUP(PLC,QUE,CNT,CQ,IA,QP) Q
+"RTN","MAGQBUT4",147,0)
+ Q
+"RTN","MAGQBUT4",148,0)
+ ;
+"RTN","MAGQBUT4",149,0)
+QPUP(PLC,QUE,CNT,CQ,IA,QP) ;
+"RTN","MAGQBUT4",150,0)
+ N IEN,DIC,VAL
+"RTN","MAGQBUT4",151,0)
+ K VAL
+"RTN","MAGQBUT4",152,0)
+ S VAL(1)=PLC,VAL(2)=QUE
+"RTN","MAGQBUT4",153,0)
+ S QP=$S(QP:QP,1:$$FIND1^DIC(2006.031,"","QX",.VAL,"C","",""))
+"RTN","MAGQBUT4",154,0)
+ ;I IEN>0 D Q:IEN
+"RTN","MAGQBUT4",155,0)
+ ;. S $P(^MAGQUEUE(2006.031,IEN,0),U,5)=CNT Q
+"RTN","MAGQBUT4",156,0)
+ I 'QP D Q
+"RTN","MAGQBUT4",157,0)
+ . K DIE,FDA
+"RTN","MAGQBUT4",158,0)
+ . S FDA(2006.031,"+1,",.01)=QUE
+"RTN","MAGQBUT4",159,0)
+ . S FDA(2006.031,"+1,",.04)=PLC
+"RTN","MAGQBUT4",160,0)
+ . S FDA(2006.031,"+1,",1)=CQ
+"RTN","MAGQBUT4",161,0)
+ . S FDA(2006.031,"+1,",2)=IA
+"RTN","MAGQBUT4",162,0)
+ . S FDA(2006.031,"+1,",3)=CNT
+"RTN","MAGQBUT4",163,0)
+ . D UPDATE^DIE("U","FDA","","MAGQUP")
+"RTN","MAGQBUT4",164,0)
+ . K DIE,FDA
+"RTN","MAGQBUT4",165,0)
+ E D
+"RTN","MAGQBUT4",166,0)
+ . K DIE,FDA
+"RTN","MAGQBUT4",167,0)
+ . S FDA(2006.031,QP_",",.01)=QUE
+"RTN","MAGQBUT4",168,0)
+ . S FDA(2006.031,QP_",",.04)=PLC
+"RTN","MAGQBUT4",169,0)
+ . S FDA(2006.031,QP_",",1)=CQ
+"RTN","MAGQBUT4",170,0)
+ . S FDA(2006.031,QP_",",2)=IA
+"RTN","MAGQBUT4",171,0)
+ . S FDA(2006.031,QP_",",3)=CNT
+"RTN","MAGQBUT4",172,0)
+ . D FILE^DIE("","FDA","MAGERR")
+"RTN","MAGQBUT4",173,0)
+ . K DIE,FDA
+"RTN","MAGQBUT4",174,0)
+ Q
+"RTN","MAGQBUT4",175,0)
+ ;
+"RTN","MAGQBUT4",176,0)
+CPUD ;
+"RTN","MAGQBUT4",177,0)
+ N PLC,INS,QUE
+"RTN","MAGQBUT4",178,0)
+ S (INS,PLC)=""
+"RTN","MAGQBUT4",179,0)
+ F S INS=$O(^MAG(2006.1,"B",INS)) Q:INS="" D
+"RTN","MAGQBUT4",180,0)
+ . S PLC=$O(^MAG(2006.1,"B",INS,""))
+"RTN","MAGQBUT4",181,0)
+ . S QUE="" F S QUE=$O(^MAGQUEUE(2006.031,"C",PLC,QUE)) Q:QUE="" D
+"RTN","MAGQBUT4",182,0)
+ . . D QCNT^MAGQBUT4("",PLC,QUE)
+"RTN","MAGQBUT4",183,0)
+ . . Q
+"RTN","MAGQBUT4",184,0)
+ . Q
+"RTN","MAGQBUT4",185,0)
+ Q
+"RTN","MAGQBUT4",186,0)
+CNL(GL,IEN,NLC) ; Check Network Location
+"RTN","MAGQBUT4",187,0)
+ N MAGREF,MAG0,MAG1,PLC
+"RTN","MAGQBUT4",188,0)
+ S NLC=NLC+1
+"RTN","MAGQBUT4",189,0)
+ I '$G(IEN) Q ""
+"RTN","MAGQBUT4",190,0)
+ S MAG0=$G(@(GL_IEN_",0)"))
+"RTN","MAGQBUT4",191,0)
+ S MAGREF=+$P(MAG0,"^",3) ; get file from raid
+"RTN","MAGQBUT4",192,0)
+ I MAGREF=0 S MAGREF=+$P(MAG0,"^",5) ; get file from jukebox
+"RTN","MAGQBUT4",193,0)
+ I 'MAGREF Q ""
+"RTN","MAGQBUT4",194,0)
+ I '$D(^MAG(2005.2,MAGREF,0)) Q ""
+"RTN","MAGQBUT4",195,0)
+ S PLC=$P($G(^MAG(2005.2,MAGREF,0)),U,10)
+"RTN","MAGQBUT4",196,0)
+ Q:'PLC ""
+"RTN","MAGQBUT4",197,0)
+ S PLC=$P($G(^MAG(2006.1,PLC,0)),U)
+"RTN","MAGQBUT4",198,0)
+ Q $S('PLC:"",1:PLC)
+"RTN","MAGQBUT4",199,0)
+CNSP(GL,IEN,NMSP,NSC) ; Check NameSPace
+"RTN","MAGQBUT4",200,0)
+ N NMSPC,MAG0,FNAM,INSTIEN
+"RTN","MAGQBUT4",201,0)
+ S NSC=NSC+1
+"RTN","MAGQBUT4",202,0)
+ S MAG0=$G(@(GL_IEN_",0)"))
+"RTN","MAGQBUT4",203,0)
+ S FNAM=$P(MAG0,U,2)
+"RTN","MAGQBUT4",204,0)
+ S NMSPC=$TR($P(FNAM,"."),"0123456789","")
+"RTN","MAGQBUT4",205,0)
+ Q:NMSPC="" ""
+"RTN","MAGQBUT4",206,0)
+ S INSTIEN=$S($D(NMSP(NMSPC)):$O(NMSP(NMSPC,"")),1:"")
+"RTN","MAGQBUT4",207,0)
+ Q INSTIEN
+"RTN","MAGQBUT4",208,0)
+NMSP(TMPA) ;
+"RTN","MAGQBUT4",209,0)
+ N IEN,INS,TMP,I,J
+"RTN","MAGQBUT4",210,0)
+ S INS="" F S INS=$O(^MAG(2006.1,"B",INS)) Q:INS="" S IEN="" D
+"RTN","MAGQBUT4",211,0)
+ . S IEN=$O(^MAG(2006.1,"B",INS,IEN)) Q:IEN="" D Q
+"RTN","MAGQBUT4",212,0)
+ . . S TMP=","_$$UPPER^MAGQE4($$INIS^MAGQBPG2(IEN))_"," D Q
+"RTN","MAGQBUT4",213,0)
+ . . . F I=2:1 S J=$P(TMP,",",I) Q:J="" S TMPA(J,INS)=""
+"RTN","MAGQBUT4",214,0)
+ . . . Q
+"RTN","MAGQBUT4",215,0)
+ S J="" F S J=$O(TMPA(J)) Q:J="" S INS=$O(TMPA(J,"")) K:($O(TMPA(J,INS))]"") TMPA(J)
+"RTN","MAGQBUT4",216,0)
+ Q
+"RTN","MAGQBUT4",217,0)
+CLRQ ; Clears the Queue file and Queue Pointer files
+"RTN","MAGQBUT4",218,0)
+ N DA,DIK,FILE,IEN
+"RTN","MAGQBUT4",219,0)
+ F FILE=2006.03,2006.031 D
+"RTN","MAGQBUT4",220,0)
+ . S IEN=0 F S IEN=$O(^MAGQUEUE(FILE,IEN)) Q:'IEN D
+"RTN","MAGQBUT4",221,0)
+ . . S DIK="^MAGQUEUE("_FILE_","
+"RTN","MAGQBUT4",222,0)
+ . . S DA=IEN,DA(1)=FILE D ^DIK
+"RTN","MAGQBUT4",223,0)
+ K DIK,DA
+"RTN","MAGQBUT4",224,0)
+ Q
+"RTN","MAGQBUT4",225,0)
+ ; We add RPC to MAG WINDOWS Option this way instead of sending Option : MAG WINDOWS
+"RTN","MAGQBUT4",226,0)
+ ; If we send MAG WINDOWS Option, the last one installed will overwrite others.
+"RTN","MAGQBUT4",227,0)
+ ; ADDRPC copied from Patch 51, added the call "D MES^XPDUTL(" instead of "W !"
+"RTN","MAGQBUT4",228,0)
+ADDRPC(RPCNAME,OPTNAME) ;
+"RTN","MAGQBUT4",229,0)
+ N DA,DIC
+"RTN","MAGQBUT4",230,0)
+ S DIC="^DIC(19,",DIC(0)="",X=OPTNAME D ^DIC
+"RTN","MAGQBUT4",231,0)
+ I Y<0 D Q
+"RTN","MAGQBUT4",232,0)
+ . D MES^XPDUTL("Cannot add RPC: """_RPCNAME_""" to Option: """_OPTNAME_""".")
+"RTN","MAGQBUT4",233,0)
+ . D MES^XPDUTL("Cannot find Option: """_OPTNAME_""".")
+"RTN","MAGQBUT4",234,0)
+ . Q
+"RTN","MAGQBUT4",235,0)
+ I '$D(^XWB(8994,"B",RPCNAME)) D Q
+"RTN","MAGQBUT4",236,0)
+ . D MES^XPDUTL("Cannot add RPC: """_RPCNAME_""" to Option: """_OPTNAME_""".")
+"RTN","MAGQBUT4",237,0)
+ . D MES^XPDUTL("Cannot find RPC: """_RPCNAME_""".")
+"RTN","MAGQBUT4",238,0)
+ . Q
+"RTN","MAGQBUT4",239,0)
+ S DA(1)=+Y
+"RTN","MAGQBUT4",240,0)
+ I $D(^DIC(19,+Y,"RPC","B",$O(^XWB(8994,"B",RPCNAME,"")))) D Q
+"RTN","MAGQBUT4",241,0)
+ . D MES^XPDUTL("Cannot add RPC: """_RPCNAME_""" to Option: """_OPTNAME_""".")
+"RTN","MAGQBUT4",242,0)
+ . D MES^XPDUTL("RPC: """_RPCNAME_""" is already a member of """_OPTNAME_""".")
+"RTN","MAGQBUT4",243,0)
+ . Q
+"RTN","MAGQBUT4",244,0)
+ S DIC=DIC_DA(1)_",""RPC"","
+"RTN","MAGQBUT4",245,0)
+ S DIC(0)="L",DLAYGO="19" ; LAYGO should be allowed here
+"RTN","MAGQBUT4",246,0)
+ S X=RPCNAME
+"RTN","MAGQBUT4",247,0)
+ D ^DIC
+"RTN","MAGQBUT4",248,0)
+ K DIC,D0,DLAYGO
+"RTN","MAGQBUT4",249,0)
+ I Y<0 D Q
+"RTN","MAGQBUT4",250,0)
+ . D MES^XPDUTL("Cannot add RPC: """_RPCNAME_""" to Option: """_OPTNAME_""".")
+"RTN","MAGQBUT4",251,0)
+ . D MES^XPDUTL("Cannot find RPC: """_RPCNAME_""".")
+"RTN","MAGQBUT4",252,0)
+ . Q
+"RTN","MAGQBUT4",253,0)
+ Q
+"RTN","MAGQBUT4",254,0)
+INS(XP,DUZ,DATE,IDA) ;
+"RTN","MAGQBUT4",255,0)
+ N CT,CNT,COM,D,D0,D1,D2,DDATE,DG,DIC,DICR,DIW,MAGMSG,ST,XMID,XMY,PLACE,XMSUB,XMZ
+"RTN","MAGQBUT4",256,0)
+ S PLACE=$O(^MAG(2006.1,"B",$$KSP^XUPARAM("INST"),""))
+"RTN","MAGQBUT4",257,0)
+ D GETENV^%ZOSV
+"RTN","MAGQBUT4",258,0)
+ S CNT=0
+"RTN","MAGQBUT4",259,0)
+ S CNT=CNT+1,MAGMSG(CNT)="PACKAGE INSTALL"
+"RTN","MAGQBUT4",260,0)
+ S CNT=CNT+1,MAGMSG(CNT)="SITE: "_$$KSP^XUPARAM("WHERE")
+"RTN","MAGQBUT4",261,0)
+ S CNT=CNT+1,MAGMSG(CNT)=" Production Account: "_$$PROD^XUPROD("1")
+"RTN","MAGQBUT4",262,0)
+ S CNT=CNT+1,MAGMSG(CNT)="PACKAGE: "_XP
+"RTN","MAGQBUT4",263,0)
+ S CNT=CNT+1,MAGMSG(CNT)="Version: "_$$VER^XPDUTL(XP)
+"RTN","MAGQBUT4",264,0)
+ S ST=$$GET1^DIQ(9.7,IDA,11,"I")
+"RTN","MAGQBUT4",265,0)
+ S CNT=CNT+1,MAGMSG(CNT)="Start time: "_$$FMTE^XLFDT(ST)
+"RTN","MAGQBUT4",266,0)
+ S CT=$$GET1^DIQ(9.7,IDA,17,"I") S:+CT'=CT CT=$$NOW^XLFDT
+"RTN","MAGQBUT4",267,0)
+ S CNT=CNT+1,MAGMSG(CNT)="Completion time: "_$$FMTE^XLFDT(CT)
+"RTN","MAGQBUT4",268,0)
+ S CNT=CNT+1,MAGMSG(CNT)="Run time: "_$$FMDIFF^XLFDT(CT,ST,3)
+"RTN","MAGQBUT4",269,0)
+ S CNT=CNT+1,MAGMSG(CNT)="Environment: "_Y
+"RTN","MAGQBUT4",270,0)
+ S COM=$$GET1^DIQ(9.7,IDA,6,"I")
+"RTN","MAGQBUT4",271,0)
+ S CNT=CNT+1,MAGMSG(CNT)="FILE COMMENT: "_COM
+"RTN","MAGQBUT4",272,0)
+ S CNT=CNT+1,MAGMSG(CNT)="DATE: "_DATE
+"RTN","MAGQBUT4",273,0)
+ S CNT=CNT+1,MAGMSG(CNT)="Installed by: "_$$GET1^DIQ(9.7,IDA,9,"E")
+"RTN","MAGQBUT4",274,0)
+ S CNT=CNT+1,MAGMSG(CNT)="Install Name: "_$$GET1^DIQ(9.7,IDA,.01,"E")
+"RTN","MAGQBUT4",275,0)
+ S DDATE=$$GET1^DIQ(9.7,IDA,51,"I")
+"RTN","MAGQBUT4",276,0)
+ S CNT=CNT+1,MAGMSG(CNT)="Distribution Date: "_$$FMTE^XLFDT(DDATE)
+"RTN","MAGQBUT4",277,0)
+ S XMSUB=XP_" INSTALLATION"
+"RTN","MAGQBUT4",278,0)
+ S XMID=$G(DUZ) S:'XMID XMID=.5
+"RTN","MAGQBUT4",279,0)
+ S XMY(XMID)=""
+"RTN","MAGQBUT4",280,0)
+ S:$G(MAGDUZ) XMY(MAGDUZ)=""
+"RTN","MAGQBUT4",281,0)
+ S XMSUB=$E(XMSUB,1,63)
+"RTN","MAGQBUT4",282,0)
+ D:$$PROD^XUPROD("1") ADDMG^MAGQBUT5(XMSUB,.XMY,PLACE)
+"RTN","MAGQBUT4",283,0)
+ D SENDMSG^XMXAPI(XMID,XMSUB,"MAGMSG",.XMY,,.XMZ,)
+"RTN","MAGQBUT4",284,0)
+ I $G(XMERR) M XMERR=^TMP("XMERR",$J) K XMERR
+"RTN","MAGQBUT4",285,0)
+ K MAGMSG
+"RTN","MAGQBUT4",286,0)
+ Q
+"RTN","MAGQBUT4",287,0)
+TEST ;
+"RTN","MAGQBUT4",288,0)
+ N FDA
+"RTN","MAGQBUT4",289,0)
+ S FDA(4)="2006.8^.01^+1,^BP1"
+"RTN","MAGQBUT4",290,0)
+ S FDA(1)="2006.8^.04^+1,^1"
+"RTN","MAGQBUT4",291,0)
+ S FDA(3)="2006.8^50^+1,^ISW-PRICER"
+"RTN","MAGQBUT4",292,0)
+ S FDA(2)="2006.8^11^+1,^1"
+"RTN","MAGQBUT4",293,0)
+ D KVAL(.RESULTS,"Q",.FDA)
+"RTN","MAGQBUT4",294,0)
+ W !,"RESULTS: "_RESULTS
+"RTN","MAGQBUT4",295,0)
+ Q
+"RTN","MAGQBUT4",296,0)
+ ;
+"RTN","MAGQE3")
+0^10^B76069024
+"RTN","MAGQE3",1,0)
+MAGQE3 ;WOIFO/RMP - Support for MAG Enterprise ; 25 Jun 2012 4:20 PM
+"RTN","MAGQE3",2,0)
+ ;;3.0;IMAGING;**27,29,30,20,46,135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGQE3",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGQE3",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQE3",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGQE3",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGQE3",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGQE3",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGQE3",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGQE3",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGQE3",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGQE3",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGQE3",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGQE3",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGQE3",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGQE3",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGQE3",17,0)
+ ;;
+"RTN","MAGQE3",18,0)
+ Q
+"RTN","MAGQE3",19,0)
+ ;
+"RTN","MAGQE3",20,0)
+COUNT(SDATE,EDATE,INST,AI,IQ,DUP,TIOP,TGPP,TIEDP,GRPPRNT,IMAGE,DELETED) ;
+"RTN","MAGQE3",21,0)
+ N CLIN,CONSENTS,CPTR,D0,DAT,DICOM,DOC,DOCGRP,DOCUMENT,ED0,I,IMPORT
+"RTN","MAGQE3",22,0)
+ N NAME,OTHER,PCE,PROC,SD0,TRK,ZNODE,CNODE
+"RTN","MAGQE3",23,0)
+ S SD0=$$SDATE^MAGQE1(SDATE,"F")
+"RTN","MAGQE3",24,0)
+ S ED0=$$SDATE^MAGQE1(EDATE,"R")
+"RTN","MAGQE3",25,0)
+ S D0="" F S D0=$O(^MAG(2005.02,"B","DOCUMENT",D0)) Q:D0="" D
+"RTN","MAGQE3",26,0)
+ . S:$G(^MAG(2005.02,D0,4))["TIF" DOC(D0)=""
+"RTN","MAGQE3",27,0)
+ . Q
+"RTN","MAGQE3",28,0)
+ S (CONSENTS,GRPPRNT,IMAGE,DELETED,DOCGRP,DOCUMENT,DUP,TIOP,TGPP,TIEDP)=0
+"RTN","MAGQE3",29,0)
+ S IQ="0^0^0"
+"RTN","MAGQE3",30,0)
+ S CPTR=$O(^MAG(2005.83,"B","CONSENT",""))
+"RTN","MAGQE3",31,0)
+ S D0=SD0 F S D0=$O(^MAG(2005,D0)) Q:'D0 Q:D0'<ED0 D
+"RTN","MAGQE3",32,0)
+ . S CNODE=$G(^MAG(2005,D0,100))
+"RTN","MAGQE3",33,0)
+ . S PCE=$P(CNODE,"^",3) Q:((PCE'=INST)&(AI'[("^"_PCE_"^")))
+"RTN","MAGQE3",34,0)
+ . S ZNODE=$G(^MAG(2005,D0,0))
+"RTN","MAGQE3",35,0)
+ . I $P(ZNODE,"^",2)="" S TGPP=TGPP+1 ;TOTAL FILE WIDE by Place
+"RTN","MAGQE3",36,0)
+ . E D
+"RTN","MAGQE3",37,0)
+ . . S TIOP=TIOP+1
+"RTN","MAGQE3",38,0)
+ . . S:($P(ZNODE,U,11)="") $P(IQ,U,1)=$P(IQ,U,1)+1
+"RTN","MAGQE3",39,0)
+ . . S:($P(ZNODE,U,11)="0") $P(IQ,U,2)=$P(IQ,U,2)+1
+"RTN","MAGQE3",40,0)
+ . . S:($P(ZNODE,U,11)="1") $P(IQ,U,3)=$P(IQ,U,3)+1
+"RTN","MAGQE3",41,0)
+ . . Q
+"RTN","MAGQE3",42,0)
+ . S X=$P($G(^MAG(2005,D0,2)),"^",1)\1 Q:'X Q:X<SDATE Q:X>EDATE
+"RTN","MAGQE3",43,0)
+ . S:$P(ZNODE,U,12) DUP=DUP+1
+"RTN","MAGQE3",44,0)
+ . S PCE=$P(CNODE,"^",5),TRK="" I PCE'="" D
+"RTN","MAGQE3",45,0)
+ . . S TRK=$P($G(^MAG(2006.04,$P(CNODE,U,4),0)),U)
+"RTN","MAGQE3",46,0)
+ . . S TRK=$S(TRK'="":TRK,1:"?") Q
+"RTN","MAGQE3",47,0)
+ . I $P(ZNODE,"^",2)="" D Q
+"RTN","MAGQE3",48,0)
+ . . S GRPPRNT=GRPPRNT+1
+"RTN","MAGQE3",49,0)
+ . . S PCE=$P(ZNODE,"^",8) S:PCE="" PCE="NIL"
+"RTN","MAGQE3",50,0)
+ . . S:$D(^MAG(2005,D0,"PACS")) DICOM(PCE,0)=$G(DICOM(PCE,0))+1
+"RTN","MAGQE3",51,0)
+ . . S PCE=$P(ZNODE,"^",6) I PCE,$D(DOC(PCE)) S DOCGRP=DOCGRP+1
+"RTN","MAGQE3",52,0)
+ . . S:TRK'="" IMPORT(TRK,0)=$G(IMPORT(TRK,0))+1
+"RTN","MAGQE3",53,0)
+ . . Q
+"RTN","MAGQE3",54,0)
+ . S:TRK'="" IMPORT(TRK)=$G(IMPORT(TRK))+1
+"RTN","MAGQE3",55,0)
+ . I CPTR,$P($G(^MAG(2005,D0,40)),"^",3)=CPTR S CONSENTS=CONSENTS+1
+"RTN","MAGQE3",56,0)
+ . E S PCE=$$UPPER^MAGQE4($P($G(^MAG(2005,D0,2)),"^",4)) S:PCE["CONSENT" OTHER(PCE)=$G(OTHER(PCE))+1
+"RTN","MAGQE3",57,0)
+ . S IMAGE=IMAGE+1
+"RTN","MAGQE3",58,0)
+ . S PCE=$P(ZNODE,"^",6) I PCE,$D(DOC(PCE)) S DOCUMENT=DOCUMENT+1
+"RTN","MAGQE3",59,0)
+ . S PCE=$P(ZNODE,"^",7) S:PCE="" PCE="NIL"
+"RTN","MAGQE3",60,0)
+ . S ^TMP($J,"MAGQ","ACQPAT",PCE)=""
+"RTN","MAGQE3",61,0)
+ . S ^TMP($J,"MAGQ","ALLPAT",PCE)=""
+"RTN","MAGQE3",62,0)
+ . S PCE=$P(ZNODE,"^",8) S:PCE="" PCE="NIL"
+"RTN","MAGQE3",63,0)
+ . I $D(^MAG(2005,D0,"PACS")) S DICOM(PCE)=$G(DICOM(PCE))+1
+"RTN","MAGQE3",64,0)
+ . E S CLIN(PCE)=$G(CLIN(PCE))+1
+"RTN","MAGQE3",65,0)
+ . Q
+"RTN","MAGQE3",66,0)
+ S NAME="" F S NAME=$O(DICOM(NAME)) Q:NAME="" D
+"RTN","MAGQE3",67,0)
+ . D:$E(NAME,1,4)="RAD "
+"RTN","MAGQE3",68,0)
+ . . Q:'$D(DICOM(NAME,0))
+"RTN","MAGQE3",69,0)
+ . . S I=$E(NAME,5,$L(NAME)) Q:I=""
+"RTN","MAGQE3",70,0)
+ . . Q:$D(DICOM(I,0))
+"RTN","MAGQE3",71,0)
+ . . S DICOM(I,0)=DICOM(NAME,0) K DICOM(NAME,0) Q
+"RTN","MAGQE3",72,0)
+ . S PROC=$O(^RAMIS(73.1,"B",NAME,"")) Q:'PROC
+"RTN","MAGQE3",73,0)
+ . S $P(DICOM(NAME),"^",2)=$P($G(^RAMIS(73.1,PROC,0)),"^",2) Q
+"RTN","MAGQE3",74,0)
+ S D0=SD0 F S D0=$O(^MAG(2005.1,D0)) Q:'D0 Q:D0'<ED0 D
+"RTN","MAGQE3",75,0)
+ . S PCE=$P($G(^MAG(2005.1,D0,100)),"^",3) Q:((PCE'=INST)&(AI'[("^"_PCE_"^")))
+"RTN","MAGQE3",76,0)
+ . S TIEDP=TIEDP+1
+"RTN","MAGQE3",77,0)
+ . S X=$P($G(^MAG(2005.1,D0,2)),"^",1)\1 Q:'X Q:X<SDATE Q:X>EDATE
+"RTN","MAGQE3",78,0)
+ . S DELETED=DELETED+1 Q
+"RTN","MAGQE3",79,0)
+ S I="" F S I=$O(DICOM(I)) Q:I="" D
+"RTN","MAGQE3",80,0)
+ . S X=" DICOM CAPTURE: "_I_"^"_$G(DICOM(I))
+"RTN","MAGQE3",81,0)
+ . S:$G(DICOM(I,0)) $P(X,"^",4)=DICOM(I,0)
+"RTN","MAGQE3",82,0)
+ . D MSG^MAGQE2(X) Q
+"RTN","MAGQE3",83,0)
+ S I="" F S I=$O(IMPORT(I)) Q:I="" D
+"RTN","MAGQE3",84,0)
+ . S X=" IMPORT API: "_I_"^"_IMPORT(I)
+"RTN","MAGQE3",85,0)
+ . S:$G(IMPORT(I,0)) X=X_"^"_IMPORT(I,0)
+"RTN","MAGQE3",86,0)
+ . D MSG^MAGQE2(X) Q
+"RTN","MAGQE3",87,0)
+ D LLOAD^MAGQE5(.CLIN,"CLIN CAPTURE:")
+"RTN","MAGQE3",88,0)
+ D MSG^MAGQE2("CONSENT FORMS: "_CONSENTS)
+"RTN","MAGQE3",89,0)
+ D LLOAD^MAGQE5(.OTHER,"OTHER CONSENTS:")
+"RTN","MAGQE3",90,0)
+ D MSG^MAGQE2("Document Images (TIF): "_DOCUMENT)
+"RTN","MAGQE3",91,0)
+ D MSG^MAGQE2("Document Groups (TIF): "_DOCGRP)
+"RTN","MAGQE3",92,0)
+ Q
+"RTN","MAGQE3",93,0)
+ ;
+"RTN","MAGQE3",94,0)
+ACT(D0,DIS,CAP,VD,VI,RES) ;
+"RTN","MAGQE3",95,0)
+ N ACT,AN,AN2,D1,IMG
+"RTN","MAGQE3",96,0)
+ S D1=0 F S D1=$O(^MAG(2006.82,D0,"ACT",D1)) Q:'D1 D
+"RTN","MAGQE3",97,0)
+ . S AN=^MAG(2006.82,D0,"ACT",D1,0)
+"RTN","MAGQE3",98,0)
+ . S ACT="^"_$P(AN,"^",1)_"^",AN2=+$P(AN,"^",2)
+"RTN","MAGQE3",99,0)
+ . Q:"^LOGON^LOGOFF^PAT^"[ACT
+"RTN","MAGQE3",100,0)
+ . I "^SC_BAD^SCR_OK^"[ACT D Q
+"RTN","MAGQE3",101,0)
+ . . S AN=$P(AN,"^",10,14) Q:AN=""
+"RTN","MAGQE3",102,0)
+ . . S RES(ACT,AN)=$G(RES(ACT,AN))+1 Q
+"RTN","MAGQE3",103,0)
+ . I "^CAP^IMG^"[ACT D Q
+"RTN","MAGQE3",104,0)
+ . . S IMG=+$P(AN,"^",3) Q:'IMG Q:$P($G(^MAG(2005,IMG,0)),"^",2)=""
+"RTN","MAGQE3",105,0)
+ . . I ACT="^CAP^" S CAP=CAP+1 Q
+"RTN","MAGQE3",106,0)
+ . . S DIS=DIS+1,^TMP($J,"MAGQ","DISPAT",AN2)="",^TMP($J,"MAGQ","ALLPAT",AN2)=""
+"RTN","MAGQE3",107,0)
+ . . Q
+"RTN","MAGQE3",108,0)
+ . I "^VR-VW^"[ACT D VRAD(.VD,AN) S ^TMP($J,"MAGQ","DISPAT",AN2)="",^TMP($J,"MAGQ","ALLPAT",AN2)="" Q
+"RTN","MAGQE3",109,0)
+ . I "^VR-INT^"[ACT D VRAD(.VI,AN) S ^TMP($J,"MAGQ","DISPAT",AN2)="",^TMP($J,"MAGQ","ALLPAT",AN2)="" Q
+"RTN","MAGQE3",110,0)
+ . Q
+"RTN","MAGQE3",111,0)
+ Q
+"RTN","MAGQE3",112,0)
+ ;
+"RTN","MAGQE3",113,0)
+VRAD(ARR,AN) ;
+"RTN","MAGQE3",114,0)
+ ;ARR=STUDIES^IMAGES^PATIENTS^User Type(Rad/Non-Rad)^Remotes(Remote/Local)^Modalities
+"RTN","MAGQE3",115,0)
+ N P,X
+"RTN","MAGQE3",116,0)
+ S $P(ARR,"^",1)=$P($G(ARR),"^",1)+1 ; Studies
+"RTN","MAGQE3",117,0)
+ S $P(ARR,"^",2)=$P($G(ARR),"^",2)+$P(AN,"^",6) ; Images
+"RTN","MAGQE3",118,0)
+ S $P(ARR,"^",3)=$P($G(ARR),"^",3)+$P(AN,"^",7) ; Patients
+"RTN","MAGQE3",119,0)
+ S P=$P(ARR,"^",4)
+"RTN","MAGQE3",120,0)
+ I +$P(AN,"^",8)=1 S $P(P,"/",1)=$P(P,"/",1)+1
+"RTN","MAGQE3",121,0)
+ E S $P(P,"/",2)=$P(P,"/",2)+1
+"RTN","MAGQE3",122,0)
+ S $P(ARR,"^",4)=P ; User Type
+"RTN","MAGQE3",123,0)
+ S P=$P(ARR,"^",5)
+"RTN","MAGQE3",124,0)
+ I +$P(AN,"^",9)=1 S $P(P,"/",1)=$P(P,"/",1)+1
+"RTN","MAGQE3",125,0)
+ E S $P(P,"/",2)=$P(P,"/",2)+1
+"RTN","MAGQE3",126,0)
+ S $P(ARR,"^",5)=P ; Remotes
+"RTN","MAGQE3",127,0)
+ S P=$P(AN,"^",4) S:P="" P="unknown"
+"RTN","MAGQE3",128,0)
+ S ARR(P)=$G(ARR(P))+1
+"RTN","MAGQE3",129,0)
+ S (P,X)="" F S P=$O(ARR(P)) Q:P="" S X=X_"/"_P_"="_ARR(P)
+"RTN","MAGQE3",130,0)
+ S $P(ARR,"^",6)=X ; Modalities
+"RTN","MAGQE3",131,0)
+ Q
+"RTN","MAGQE3",132,0)
+ ;
+"RTN","MAGQE3",133,0)
+GPACHX() ; Get Package File Install History of Imaging
+"RTN","MAGQE3",134,0)
+ N I,LCNT,MSG,PKG,PKT,PV
+"RTN","MAGQE3",135,0)
+ S LCNT=0
+"RTN","MAGQE3",136,0)
+ F PKG="IMAGING","MAGJ RADIOLOGY" D
+"RTN","MAGQE3",137,0)
+ . N J,K,L,PKNAM,VERS
+"RTN","MAGQE3",138,0)
+ . S J=$$FIND1^DIC(9.4,",","MX",PKG) Q:'J
+"RTN","MAGQE3",139,0)
+ . I PKG="MAGJ RADIOLOGY" D Q
+"RTN","MAGQE3",140,0)
+ . . N TAR
+"RTN","MAGQE3",141,0)
+ . . D LIST^DIC(9.49,","_J_",","@;.01;2;3","","","","","","","","TAR","MSG")
+"RTN","MAGQE3",142,0)
+ . . Q:$D(MSG("DIERR"))
+"RTN","MAGQE3",143,0)
+ . . S L=0 F S L=$O(TAR("DILIST","ID",L)) Q:'L D
+"RTN","MAGQE3",144,0)
+ . . . S LCNT=LCNT+1
+"RTN","MAGQE3",145,0)
+ . . . S PV(LCNT)=PKG_"^P"_$P(TAR("DILIST","ID",L,".01"),"^",1)
+"RTN","MAGQE3",146,0)
+ . . . S PV(LCNT)=PV(LCNT)_"^"_$P(TAR("DILIST","ID",L,"2"),"^",1)
+"RTN","MAGQE3",147,0)
+ . . . S PV(LCNT)=PV(LCNT)_"^"_$P(TAR("DILIST","ID",L,"3"),"^",1) Q
+"RTN","MAGQE3",148,0)
+ . . Q
+"RTN","MAGQE3",149,0)
+ . K PKT D LIST^DIC(9.49,","_J_",",.01,"","*","","","B","","","PKT","MSG")
+"RTN","MAGQE3",150,0)
+ . S VERS="" F S VERS=$O(PKT("DILIST",2,VERS)) Q:VERS="" S K=PKT("DILIST",2,VERS) D
+"RTN","MAGQE3",151,0)
+ . . K MSG
+"RTN","MAGQE3",152,0)
+ . . D LIST^DIC(9.4901,","_K_","_J_",","@;.01;.02;.03","","","","","","","","TAR","MSG")
+"RTN","MAGQE3",153,0)
+ . . Q:$D(MSG("DIERR"))
+"RTN","MAGQE3",154,0)
+ . . S L=0 F S L=$O(TAR("DILIST","ID",L)) Q:'L D
+"RTN","MAGQE3",155,0)
+ . . . S LCNT=LCNT+1
+"RTN","MAGQE3",156,0)
+ . . . S PV(LCNT)=PKG_"^"_VERS_"P"_$P(TAR("DILIST","ID",L,".01"),"^",1)
+"RTN","MAGQE3",157,0)
+ . . . S PV(LCNT)=PV(LCNT)_"^"_$P(TAR("DILIST","ID",L,".02"),"^",1)
+"RTN","MAGQE3",158,0)
+ . . . S PV(LCNT)=PV(LCNT)_"^"_$P(TAR("DILIST","ID",L,".03"),"^",1) Q
+"RTN","MAGQE3",159,0)
+ . . Q
+"RTN","MAGQE3",160,0)
+ . Q
+"RTN","MAGQE3",161,0)
+ S I="" F S I=$O(PV(I)) Q:I="" D
+"RTN","MAGQE3",162,0)
+ . D MSG^MAGQE2("IMAGING PACKAGE INSTALLATION HX: "_I_"^"_PV(I)) Q
+"RTN","MAGQE3",163,0)
+ Q
+"RTN","MAGQE3",164,0)
+ ;
+"RTN","MAGQE3",165,0)
+ADCNT(SDATE,EDATE,INST,AI) ;
+"RTN","MAGQE3",166,0)
+ ; SAC = Scanned, Administrative Closure SMC = Scanned, Manual Closure UMC = Unscanned, Manual Closure
+"RTN","MAGQE3",167,0)
+ N ARRY,D0,D1,DATE,DATES,DOC,HLOC,SAC,SCR,SMC,STAT,STATA,STATC,TITLE,TIUDA,UMC
+"RTN","MAGQE3",168,0)
+ S STATA="^",D0=0 F S D0=$O(^TIU(8925.6,"B","AMENDED",D0)) Q:'D0 D
+"RTN","MAGQE3",169,0)
+ . S STATA=STATA_D0_"^" Q
+"RTN","MAGQE3",170,0)
+ S STATC="^",D0=0 F S D0=$O(^TIU(8925.6,"B","COMPLETED",D0)) Q:'D0 D
+"RTN","MAGQE3",171,0)
+ . S STATC=STATC_D0_"^" Q
+"RTN","MAGQE3",172,0)
+ S DOC="ADVANCE DIRECTIVE"
+"RTN","MAGQE3",173,0)
+ S D0=0 F S D0=$O(^TIU(8925.1,"B",DOC,D0)) Q:'D0 D
+"RTN","MAGQE3",174,0)
+ . Q:$P($G(^TIU(8925.1,D0,0)),"^",4)'="DC"
+"RTN","MAGQE3",175,0)
+ . S D1=0 F S D1=$O(^TIU(8925.1,D0,10,"B",D1)) Q:'D1 D
+"RTN","MAGQE3",176,0)
+ . . S TITLE=$P($G(^TIU(8925.1,+D1,0)),"^",1) S:TITLE="" TITLE=" "
+"RTN","MAGQE3",177,0)
+ . . S ARRY(TITLE,D1)="" Q
+"RTN","MAGQE3",178,0)
+ . Q
+"RTN","MAGQE3",179,0)
+ S SCR="",(SAC,SMC,UMC)=0
+"RTN","MAGQE3",180,0)
+ S TITLE="" F S TITLE=$O(ARRY(TITLE)) Q:TITLE="" D
+"RTN","MAGQE3",181,0)
+ . S D1="" F S D1=$O(ARRY(TITLE,D1)) Q:D1="" D
+"RTN","MAGQE3",182,0)
+ . . S TIUDA=0 F S TIUDA=$O(^TIU(8925,"B",D1,TIUDA)) Q:'TIUDA D
+"RTN","MAGQE3",183,0)
+ . . . N MSG,TARGET
+"RTN","MAGQE3",184,0)
+ . . . S SCR="" ; INSTITUTION screen for consolidation sites only.
+"RTN","MAGQE3",185,0)
+ . . . D GETS^DIQ(8925,TIUDA,".05;1205;1501;1507;1603;1606;1613","IE","TARGET","MSG")
+"RTN","MAGQE3",186,0)
+ . . . Q:$D(MSG("DIERR"))
+"RTN","MAGQE3",187,0)
+ . . . I $$CONSOLID^MAGQE5() D Q:SCR
+"RTN","MAGQE3",188,0)
+ . . . . S HLOC=TARGET(8925,TIUDA_",",1205,"I") ; INSTITUTION screen - dependent upon TIU*1*113
+"RTN","MAGQE3",189,0)
+ . . . . I HLOC="" S SCR=1
+"RTN","MAGQE3",190,0)
+ . . . . E I (($P($G(^SC(HLOC,0)),"^",4)'=INST)&(AI'[("^"_$P($G(^SC(HLOC,0)),"^",4)_"^"))) S SCR=1
+"RTN","MAGQE3",191,0)
+ . . . . Q
+"RTN","MAGQE3",192,0)
+ . . . S STAT="^"_TARGET(8925,TIUDA_",",.05,"I")_"^"
+"RTN","MAGQE3",193,0)
+ . . . Q:STATA_STATC'[STAT
+"RTN","MAGQE3",194,0)
+ . . . I TARGET(8925,TIUDA_",",1613,"I")="S" D Q
+"RTN","MAGQE3",195,0)
+ . . . . Q:TARGET(8925,TIUDA_",",1606,"I")<SDATE
+"RTN","MAGQE3",196,0)
+ . . . . Q:$P(TARGET(8925,TIUDA_",",1606,"I"),".")>EDATE
+"RTN","MAGQE3",197,0)
+ . . . . S SAC=SAC+1,SAC(TITLE)=$G(SAC(TITLE))+1 Q
+"RTN","MAGQE3",198,0)
+ . . . I STATC[STAT D Q
+"RTN","MAGQE3",199,0)
+ . . . . S DATE=TARGET(8925,TIUDA_",",1507,"I")
+"RTN","MAGQE3",200,0)
+ . . . . S DATE=$S(DATE?1.N:DATE,1:+TARGET(8925,TIUDA_",",1501,"I"))
+"RTN","MAGQE3",201,0)
+ . . . . Q:DATE<SDATE
+"RTN","MAGQE3",202,0)
+ . . . . Q:$P(DATE,".")>EDATE
+"RTN","MAGQE3",203,0)
+ . . . . I $$SCAN(TIUDA) S SMC=SMC+1,SMC(TITLE)=$G(SMC(TITLE))+1 Q
+"RTN","MAGQE3",204,0)
+ . . . . S UMC=UMC+1,UMC(TITLE)=$G(UMC(TITLE))+1 Q
+"RTN","MAGQE3",205,0)
+ . . . I STATA[STAT D Q
+"RTN","MAGQE3",206,0)
+ . . . . Q:TARGET(8925,TIUDA_",",1603,"I")<SDATE
+"RTN","MAGQE3",207,0)
+ . . . . Q:$P(TARGET(8925,TIUDA_",",1603,"I"),".")>EDATE
+"RTN","MAGQE3",208,0)
+ . . . . I $$SCAN(TIUDA) S SMC=SMC+1,SMC(TITLE)=$G(SMC(TITLE))+1 Q
+"RTN","MAGQE3",209,0)
+ . . . . S UMC=UMC+1,UMC(TITLE)=$G(UMC(TITLE))+1 Q
+"RTN","MAGQE3",210,0)
+ . . . Q
+"RTN","MAGQE3",211,0)
+ . . Q
+"RTN","MAGQE3",212,0)
+ . Q
+"RTN","MAGQE3",213,0)
+ D MSG^MAGQE2(DOC_" SCANNED ADMINISTRATIVE CLOSURE: "_SAC)
+"RTN","MAGQE3",214,0)
+ S TITLE="" F S TITLE=$O(SAC(TITLE)) Q:TITLE="" D
+"RTN","MAGQE3",215,0)
+ . D MSG^MAGQE2(DOC_" - SAC - "_TITLE_": "_SAC(TITLE)) Q
+"RTN","MAGQE3",216,0)
+ D MSG^MAGQE2(DOC_" UNSCANNED MANUAL CLOSURE: "_UMC)
+"RTN","MAGQE3",217,0)
+ S TITLE="" F S TITLE=$O(UMC(TITLE)) Q:TITLE="" D
+"RTN","MAGQE3",218,0)
+ . D MSG^MAGQE2(DOC_" - UMC - "_TITLE_": "_UMC(TITLE)) Q
+"RTN","MAGQE3",219,0)
+ D MSG^MAGQE2(DOC_" SCANNED MANUAL CLOSURE: "_SMC)
+"RTN","MAGQE3",220,0)
+ S TITLE="" F S TITLE=$O(SMC(TITLE)) Q:TITLE="" D
+"RTN","MAGQE3",221,0)
+ . D MSG^MAGQE2(DOC_" - SMC - "_TITLE_": "_SMC(TITLE)) Q
+"RTN","MAGQE3",222,0)
+ Q
+"RTN","MAGQE3",223,0)
+ ;
+"RTN","MAGQE3",224,0)
+SCAN(IEN) ;
+"RTN","MAGQE3",225,0)
+ N LINK
+"RTN","MAGQE3",226,0)
+ S LINK=$O(^TIU(8925.91,"B",IEN,"")) Q:'LINK 0
+"RTN","MAGQE3",227,0)
+ Q $S($P($G(^TIU(8925.1,LINK,0)),"^",2)?1.N:0,1:1)
+"RTN","MAGQE3",228,0)
+ ;
+"RTN","MAGSDOFF")
+0^11^B63243612
+"RTN","MAGSDOFF",1,0)
+MAGSDOFF ; OI&T-Clin3/DWM - DEX & AA Track Offline Images ; 01/31/13
+"RTN","MAGSDOFF",2,0)
+ ;;3.0;IMAGING;**135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGSDOFF",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGSDOFF",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGSDOFF",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGSDOFF",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGSDOFF",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGSDOFF",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGSDOFF",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGSDOFF",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGSDOFF",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGSDOFF",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGSDOFF",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGSDOFF",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGSDOFF",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGSDOFF",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGSDOFF",17,0)
+ ;;
+"RTN","MAGSDOFF",18,0)
+ ; Process:
+"RTN","MAGSDOFF",19,0)
+ ; - validate mail group 'OFFLINE IMAGE TRACKERS'
+"RTN","MAGSDOFF",20,0)
+ ; - read and store platter report in ^TMP($J, global
+"RTN","MAGSDOFF",21,0)
+ ; - extract image file names into ^TMP($J,"PLATTER",
+"RTN","MAGSDOFF",22,0)
+ ; - import image file names into #2006.033 'OFFLINE IMAGES FILE'
+"RTN","MAGSDOFF",23,0)
+ ; - update original AA platter report to DEX format
+"RTN","MAGSDOFF",24,0)
+ ; Original AA platter report format:
+"RTN","MAGSDOFF",25,0)
+ ; "File Path","File ID","File Size","Migration ID",
+"RTN","MAGSDOFF",26,0)
+ ; "Migration Time",Status "
+"RTN","MAGSDOFF",27,0)
+ ; 'Split' files are added as duplicates but with their corresponding
+"RTN","MAGSDOFF",28,0)
+ ; platter name - this allows online/offline to work as needed.
+"RTN","MAGSDOFF",29,0)
+ Q
+"RTN","MAGSDOFF",30,0)
+EN ; entry point; called by ^MAGSDOFL; from option [MAG JB OFFLINE]
+"RTN","MAGSDOFF",31,0)
+ N FILE,PATH,Y,L,LN,N,XX,DIR,X,GRP,MAILCHK,I,MAGPLAT
+"RTN","MAGSDOFF",32,0)
+ K ^TMP($J),DIR
+"RTN","MAGSDOFF",33,0)
+ W !!,"AA Offline Platter Utility",! F I=1:1:26 W "-"
+"RTN","MAGSDOFF",34,0)
+ ;
+"RTN","MAGSDOFF",35,0)
+ ; validate mail group 'OFFLINE IMAGE TRACKERS'
+"RTN","MAGSDOFF",36,0)
+ S GRP="OFFLINE IMAGE TRACKERS"
+"RTN","MAGSDOFF",37,0)
+ W !!,"Validating mail group '"_GRP_"'..." H 2
+"RTN","MAGSDOFF",38,0)
+ S MAILCHK=$$MAIL(GRP) F I=1:1:$L(MAILCHK,U) W !,?7,$P(MAILCHK,U,I)
+"RTN","MAGSDOFF",39,0)
+ ;
+"RTN","MAGSDOFF",40,0)
+ ; ask directory & file name
+"RTN","MAGSDOFF",41,0)
+ D DIR
+"RTN","MAGSDOFF",42,0)
+ I '$D(PATH)!('$D(FILE)) Q
+"RTN","MAGSDOFF",43,0)
+ ;
+"RTN","MAGSDOFF",44,0)
+ ; $$FTG^%ZISH(): Load Host File into Global
+"RTN","MAGSDOFF",45,0)
+ W !!,"Extracting data from "_FILE_"..."
+"RTN","MAGSDOFF",46,0)
+ S Y=$$FTG^%ZISH(PATH,FILE,$NA(^TMP($J,0)),2)
+"RTN","MAGSDOFF",47,0)
+ I Y=0 D ERR(1,FILE,PATH) G EXIT
+"RTN","MAGSDOFF",48,0)
+ I '$D(^TMP($J)) D ERR(2,FILE) G EXIT
+"RTN","MAGSDOFF",49,0)
+ W "completed.",!
+"RTN","MAGSDOFF",50,0)
+ ;
+"RTN","MAGSDOFF",51,0)
+ ; extract image file name from data saved in ^TMP($J,
+"RTN","MAGSDOFF",52,0)
+ D PULL
+"RTN","MAGSDOFF",53,0)
+ I '$D(^TMP($J,"PLATTER")) D Q
+"RTN","MAGSDOFF",54,0)
+ . W !!,"No files to take offline - "
+"RTN","MAGSDOFF",55,0)
+ . W "platter report will not be modified",!! Q
+"RTN","MAGSDOFF",56,0)
+ ;
+"RTN","MAGSDOFF",57,0)
+ ; import image file names into #2006.033 'OFFLINE IMAGES FILE'
+"RTN","MAGSDOFF",58,0)
+ D OFF
+"RTN","MAGSDOFF",59,0)
+ I MAGPLAT="ERROR" D G EXIT
+"RTN","MAGSDOFF",60,0)
+ . W !!,"Unable to create unique report platter name 30 characters or less"
+"RTN","MAGSDOFF",61,0)
+ . Q
+"RTN","MAGSDOFF",62,0)
+ ; update platter report file in directory
+"RTN","MAGSDOFF",63,0)
+ D UPD
+"RTN","MAGSDOFF",64,0)
+ ;
+"RTN","MAGSDOFF",65,0)
+EXIT ;
+"RTN","MAGSDOFF",66,0)
+ ;
+"RTN","MAGSDOFF",67,0)
+ K ^TMP($J),FILE,PATH,MAGPLAT
+"RTN","MAGSDOFF",68,0)
+ Q
+"RTN","MAGSDOFF",69,0)
+ ;
+"RTN","MAGSDOFF",70,0)
+DIR ; ask path & file name
+"RTN","MAGSDOFF",71,0)
+ N DIR,Y,I
+"RTN","MAGSDOFF",72,0)
+ W ! S DIR(0)="F"
+"RTN","MAGSDOFF",73,0)
+ S DIR("A")="Enter File Directory ( example user$:[dir] ) "
+"RTN","MAGSDOFF",74,0)
+ D ^DIR Q:Y["^"!(Y=-1) S PATH=Y K DIR
+"RTN","MAGSDOFF",75,0)
+ S DIR(0)="F"
+"RTN","MAGSDOFF",76,0)
+ S DIR("A")="Enter File Name ( example aab42_134175.txt ) "
+"RTN","MAGSDOFF",77,0)
+ D ^DIR Q:Y["^"!(Y=-1) S FILE=Y K DIR
+"RTN","MAGSDOFF",78,0)
+ Q
+"RTN","MAGSDOFF",79,0)
+ ;
+"RTN","MAGSDOFF",80,0)
+PULL ; extract image file name from data saved in ^TMP($J,
+"RTN","MAGSDOFF",81,0)
+ ; build ^TMP($J,"PLATTER",L)=file_name
+"RTN","MAGSDOFF",82,0)
+ N L,LN,N,XX,CNT
+"RTN","MAGSDOFF",83,0)
+ W !,"Pulling image file names from report data",!
+"RTN","MAGSDOFF",84,0)
+ S (L,CNT)=0 F S L=$O(^TMP($J,L)) Q:'L D
+"RTN","MAGSDOFF",85,0)
+ . S LN=^TMP($J,L)
+"RTN","MAGSDOFF",86,0)
+ . ; pattern match example "bil0001.txt ..."
+"RTN","MAGSDOFF",87,0)
+ . I $P(LN," ",1)?.E1"."2.5AN D Q
+"RTN","MAGSDOFF",88,0)
+ .. S LN=$P(LN," ") D SET
+"RTN","MAGSDOFF",89,0)
+ .. Q
+"RTN","MAGSDOFF",90,0)
+ . ; pull name "default/xxx0/00/23/46/97/xxx00023469737.TIF",2028..."
+"RTN","MAGSDOFF",91,0)
+ . I LN["/" D
+"RTN","MAGSDOFF",92,0)
+ .. ; a few bogus lines may exist in report
+"RTN","MAGSDOFF",93,0)
+ .. Q:LN[".config_backup"!(LN["self_test")
+"RTN","MAGSDOFF",94,0)
+ .. S LN=$P(LN,"""",2)
+"RTN","MAGSDOFF",95,0)
+ .. F N=1:1 S XX=$P(LN,"/",N) Q:XX="" I XX?.E1"."2.5AN S LN=XX
+"RTN","MAGSDOFF",96,0)
+ .. D SET
+"RTN","MAGSDOFF",97,0)
+ .. Q
+"RTN","MAGSDOFF",98,0)
+ . Q
+"RTN","MAGSDOFF",99,0)
+ W !,"completed - "_CNT_" file names found.",!
+"RTN","MAGSDOFF",100,0)
+ Q
+"RTN","MAGSDOFF",101,0)
+ ;
+"RTN","MAGSDOFF",102,0)
+SET ; LN = image file name
+"RTN","MAGSDOFF",103,0)
+ S CNT=CNT+1 I CNT#500=0 W "."
+"RTN","MAGSDOFF",104,0)
+ S ^TMP($J,"PLATTER",CNT)=LN
+"RTN","MAGSDOFF",105,0)
+ Q
+"RTN","MAGSDOFF",106,0)
+ ;
+"RTN","MAGSDOFF",107,0)
+OFF ; import image file names into #2006.033 'OFFLINE IMAGES FILE'
+"RTN","MAGSDOFF",108,0)
+ N L,CNT,CNT1,MAGFL,MAGFDA,MAGIEN,LN
+"RTN","MAGSDOFF",109,0)
+ N DIERR,MRK,OIEN,RPT,DUP,MAGPLAT1,I
+"RTN","MAGSDOFF",110,0)
+ S (L,CNT,CNT1,DUP)=0,MAGFL=2006.033
+"RTN","MAGSDOFF",111,0)
+ ; platter name limited to 30 characters, and must be unique
+"RTN","MAGSDOFF",112,0)
+ S MAGPLAT=$P(FILE,".") S:$L(MAGPLAT)>30 MAGPLAT=$$PLAT(MAGPLAT)
+"RTN","MAGSDOFF",113,0)
+ Q:MAGPLAT="ERROR"
+"RTN","MAGSDOFF",114,0)
+ W !,"Updating the individual image files as 'offline'"
+"RTN","MAGSDOFF",115,0)
+ F S L=$O(^TMP($J,"PLATTER",L)) Q:'L D
+"RTN","MAGSDOFF",116,0)
+ . S LN=^TMP($J,"PLATTER",L)
+"RTN","MAGSDOFF",117,0)
+ . ;
+"RTN","MAGSDOFF",118,0)
+ . ; check for existing image file from same platter report
+"RTN","MAGSDOFF",119,0)
+ . I $D(^MAGQUEUE(2006.033,"B",LN)) S MRK=0 D Q:MRK
+"RTN","MAGSDOFF",120,0)
+ .. S OIEN="" F S OIEN=$O(^MAGQUEUE(2006.033,"B",LN,OIEN)) Q:'OIEN D
+"RTN","MAGSDOFF",121,0)
+ ... S RPT=$P(^MAGQUEUE(2006.033,OIEN,0),U,2)
+"RTN","MAGSDOFF",122,0)
+ ... ; file/platter entry already in #2006.033:
+"RTN","MAGSDOFF",123,0)
+ ... I RPT=MAGPLAT S MRK=1,DUP=DUP+1
+"RTN","MAGSDOFF",124,0)
+ ... Q
+"RTN","MAGSDOFF",125,0)
+ .. Q
+"RTN","MAGSDOFF",126,0)
+ . ;
+"RTN","MAGSDOFF",127,0)
+ . S CNT=CNT+1 I CNT#500=0 W "."
+"RTN","MAGSDOFF",128,0)
+ . ; using "+1," instead of "?+1," to allow duplicate "split" entries
+"RTN","MAGSDOFF",129,0)
+ . K MAGIEN S MAGIEN="+1,"
+"RTN","MAGSDOFF",130,0)
+ . S MAGFDA(MAGFL,MAGIEN,.01)=LN ; .01 FILENAME
+"RTN","MAGSDOFF",131,0)
+ . S MAGFDA(MAGFL,MAGIEN,1)=MAGPLAT ; 1 JUKEBOX PLATTER
+"RTN","MAGSDOFF",132,0)
+ . D UPDATE^DIE("E","MAGFDA","MAGIEN","MAGERR")
+"RTN","MAGSDOFF",133,0)
+ . ;
+"RTN","MAGSDOFF",134,0)
+ . ; check and process error msg if needed
+"RTN","MAGSDOFF",135,0)
+ . I '$D(DIERR) S CNT1=CNT1+1
+"RTN","MAGSDOFF",136,0)
+ . E D ERR(3,LN,"",.MAGERR) K MAGERR
+"RTN","MAGSDOFF",137,0)
+ . Q
+"RTN","MAGSDOFF",138,0)
+ W !,"Done - "_CNT1_" entries added to #2006.033"
+"RTN","MAGSDOFF",139,0)
+ ; "duplicates" could be 1. already in #2006.033 or an actual
+"RTN","MAGSDOFF",140,0)
+ ; file duplication on the platter report
+"RTN","MAGSDOFF",141,0)
+ I DUP W !,DUP_" duplicate(s) not added"
+"RTN","MAGSDOFF",142,0)
+ Q
+"RTN","MAGSDOFF",143,0)
+ ;
+"RTN","MAGSDOFF",144,0)
+UPD ; update platter report file in directory
+"RTN","MAGSDOFF",145,0)
+ N Y,LAST,LAST1
+"RTN","MAGSDOFF",146,0)
+ I MAGPLAT'=$P(FILE,".") W !!,"Creating new platter report "_MAGPLAT
+"RTN","MAGSDOFF",147,0)
+ E W !!,"Reformatting platter report "_MAGPLAT
+"RTN","MAGSDOFF",148,0)
+ I '$D(^TMP($J,"PLATTER")) D Q
+"RTN","MAGSDOFF",149,0)
+ . W !!,"No platter data available for updating of report!"
+"RTN","MAGSDOFF",150,0)
+ . Q
+"RTN","MAGSDOFF",151,0)
+ ; add platter name at top; add end statement
+"RTN","MAGSDOFF",152,0)
+ S ^TMP($J,"PLATTER",0)="Media """_MAGPLAT_"""" ;platter name
+"RTN","MAGSDOFF",153,0)
+ S LAST="",LAST=$O(^TMP($J,"PLATTER",LAST),-1),LAST1=LAST+1
+"RTN","MAGSDOFF",154,0)
+ S ^TMP($J,"PLATTER",LAST1)=LAST_" Files Listed"
+"RTN","MAGSDOFF",155,0)
+ ;
+"RTN","MAGSDOFF",156,0)
+ S FILE=MAGPLAT_".TXT",Y=$$GTF^%ZISH($NA(^TMP($J,"PLATTER",0)),3,PATH,FILE)
+"RTN","MAGSDOFF",157,0)
+ I 'Y W !!,"Unable to create/update platter report",! W PATH_FILE Q
+"RTN","MAGSDOFF",158,0)
+ W !,"Finished"
+"RTN","MAGSDOFF",159,0)
+ Q
+"RTN","MAGSDOFF",160,0)
+ ;
+"RTN","MAGSDOFF",161,0)
+PLAT(MAGPLAT) ; starting at 30 char length, whittle down until unique
+"RTN","MAGSDOFF",162,0)
+ N MAGPLAT30,I
+"RTN","MAGSDOFF",163,0)
+ W !,"Original report name is greater than the allowed 30 characters,"
+"RTN","MAGSDOFF",164,0)
+ W !,?5,"a new name for the report will be generated for #2006.033."
+"RTN","MAGSDOFF",165,0)
+ S MAGPLAT30=""
+"RTN","MAGSDOFF",166,0)
+ F I=30:-1:2 D:MAGPLAT30'=MAGPLAT
+"RTN","MAGSDOFF",167,0)
+ . S MAGPLAT30=$E(MAGPLAT,1,I) D
+"RTN","MAGSDOFF",168,0)
+ . ; check to see if platter name already exist
+"RTN","MAGSDOFF",169,0)
+ . Q:$D(^MAGQUEUE(2006.033,"C",MAGPLAT30))
+"RTN","MAGSDOFF",170,0)
+ . S MAGPLAT=MAGPLAT30
+"RTN","MAGSDOFF",171,0)
+ . Q
+"RTN","MAGSDOFF",172,0)
+ ; unable to create unique platter name
+"RTN","MAGSDOFF",173,0)
+ I MAGPLAT30'=MAGPLAT Q "ERROR"
+"RTN","MAGSDOFF",174,0)
+ ;
+"RTN","MAGSDOFF",175,0)
+ Q MAGPLAT
+"RTN","MAGSDOFF",176,0)
+ ;
+"RTN","MAGSDOFF",177,0)
+ERR(TY,T1,T2,T3) ; error messaging
+"RTN","MAGSDOFF",178,0)
+ Q:'TY
+"RTN","MAGSDOFF",179,0)
+ I TY=2 W !!,"Unable to pull data from "_T1 Q
+"RTN","MAGSDOFF",180,0)
+ I TY=3 D Q
+"RTN","MAGSDOFF",181,0)
+ . W !!,"Unable to add "_LN_" as an offline image",!
+"RTN","MAGSDOFF",182,0)
+ . D MSG^DIALOG("WE","",50,5,"T3") K T3
+"RTN","MAGSDOFF",183,0)
+ . Q
+"RTN","MAGSDOFF",184,0)
+ W !!,"Unable to access "_T2_T1
+"RTN","MAGSDOFF",185,0)
+ K TY,T1,T2
+"RTN","MAGSDOFF",186,0)
+ Q
+"RTN","MAGSDOFF",187,0)
+ ;
+"RTN","MAGSDOFF",188,0)
+MAIL(GRP) ; add "OFFLINE IMAGE TRACKERS" and/or active member
+"RTN","MAGSDOFF",189,0)
+ ; No update if group exist w/active local member
+"RTN","MAGSDOFF",190,0)
+ ; If no group add it, add DUZ as member and mag server
+"RTN","MAGSDOFF",191,0)
+ ; If group w/o active local member, add DUZ as member and mag server
+"RTN","MAGSDOFF",192,0)
+ ;
+"RTN","MAGSDOFF",193,0)
+ N CHKG,CHKM,Y,TYPE,INT,ENR,XMY,ORG,DESC,MAGMAIL,MAGSVR,GRPIEN,RES
+"RTN","MAGSDOFF",194,0)
+ I GRP="" Q "No action taken, mail group name required"
+"RTN","MAGSDOFF",195,0)
+ S CHKG=$D(^XMB(3.8,"B",GRP)),CHKM=$$GOTLOCAL^XMXAPIG(GRP)
+"RTN","MAGSDOFF",196,0)
+ S MAGMAIL="G.MAG SERVER" I $D(^XMB(3.8,"B",$P(MAGMAIL,".",2))) D
+"RTN","MAGSDOFF",197,0)
+ . S MAGSVR="",MAGSVR=$O(^XMB(3.8,"B",$P(MAGMAIL,".",2),MAGSVR))
+"RTN","MAGSDOFF",198,0)
+ ;
+"RTN","MAGSDOFF",199,0)
+ ; mail group exist w/active member
+"RTN","MAGSDOFF",200,0)
+ Q:CHKG&(CHKM) "Mail group '"_GRP_"' present with active member."
+"RTN","MAGSDOFF",201,0)
+ I '$D(DUZ) Q "No DUZ defined, unable to add/edit mail group."
+"RTN","MAGSDOFF",202,0)
+ ;
+"RTN","MAGSDOFF",203,0)
+ S (TYPE,ENR)=0,INT=1,ORG=DUZ,XMY(DUZ)=""
+"RTN","MAGSDOFF",204,0)
+ S DESC(1)="Mail group to send messages regarding accessing "
+"RTN","MAGSDOFF",205,0)
+ S DESC(1)=DESC(1)_"images on offline jukebox platters."
+"RTN","MAGSDOFF",206,0)
+ S Y=$$MG^XMBGRP(GRP,TYPE,ORG,ENR,.XMY,.DESC,INT)
+"RTN","MAGSDOFF",207,0)
+ I 'Y D Q RES(1)_U_RES(2)
+"RTN","MAGSDOFF",208,0)
+ . S RES(1)="Unable to add mail group '"_GRP_"', contact "
+"RTN","MAGSDOFF",209,0)
+ . S RES(2)="Support if further assistance is needed."
+"RTN","MAGSDOFF",210,0)
+ S GRPIEN=Y
+"RTN","MAGSDOFF",211,0)
+ ;
+"RTN","MAGSDOFF",212,0)
+ ; add 'MAG SERVER' as member group if not already there
+"RTN","MAGSDOFF",213,0)
+ S (RES(3),RES(4))=""
+"RTN","MAGSDOFF",214,0)
+ I $D(MAGSVR)&('$D(^XMB(3.8,GRPIEN,5,"B",MAGSVR))) D
+"RTN","MAGSDOFF",215,0)
+ . D ADDMBRS^XMXAPIG(DUZ,GRP,MAGMAIL)
+"RTN","MAGSDOFF",216,0)
+ . Q:'$D(^XMB(3.8,GRPIEN,5,"B",MAGSVR))
+"RTN","MAGSDOFF",217,0)
+ . S RES(3)="Added member group: '"_MAGMAIL_"' to mail group"
+"RTN","MAGSDOFF",218,0)
+ . S RES(4)=" '"_GRP_"'"
+"RTN","MAGSDOFF",219,0)
+ ;
+"RTN","MAGSDOFF",220,0)
+ ; "offline" group and members added
+"RTN","MAGSDOFF",221,0)
+ I 'CHKG D Q RES(1)_U_RES(2)_U_RES(3)
+"RTN","MAGSDOFF",222,0)
+ . S RES(1)="Mail group '"_GRP_"' created."
+"RTN","MAGSDOFF",223,0)
+ . S RES(2)="Added local user: '"_$P(^VA(200,DUZ,0),U)
+"RTN","MAGSDOFF",224,0)
+ . S RES(2)=RES(2)_"' to mail group"
+"RTN","MAGSDOFF",225,0)
+ ;
+"RTN","MAGSDOFF",226,0)
+ ; "offline" was present but w/o an active local user
+"RTN","MAGSDOFF",227,0)
+ S RES(1)="Added local user '"_$P(^VA(200,DUZ,0),U)
+"RTN","MAGSDOFF",228,0)
+ S RES(1)=RES(1)_"' to mail group '"_GRP_"'"
+"RTN","MAGSDOFF",229,0)
+ Q RES(1)_U_RES(3)_RES(4)
+"RTN","MAGSDOFF",230,0)
+ ;
+"RTN","MAGSDOFF",231,0)
+KILL ; remove before release
+"RTN","MAGSDOFF",232,0)
+ K ^MAGQUEUE(2006.033)
+"RTN","MAGSDOFF",233,0)
+ S ^MAGQUEUE(2006.033,0)="OFFLINE IMAGES^2006.033AO^"
+"RTN","MAGSDOFF",234,0)
+ Q
+"RTN","MAGSDOFL")
+0^12^B62340218
+"RTN","MAGSDOFL",1,0)
+MAGSDOFL ;WOIFO/SF - DEX & AA Track Offline Images ; 01/31/13
+"RTN","MAGSDOFL",2,0)
+ ;;3.0;IMAGING;**18,98,135**;Mar 19, 2002;Build 5238;Jul 17, 2013
+"RTN","MAGSDOFL",3,0)
+ ;; Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","MAGSDOFL",4,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGSDOFL",5,0)
+ ;; | Property of the US Government. |
+"RTN","MAGSDOFL",6,0)
+ ;; | No permission to copy or redistribute this software is given. |
+"RTN","MAGSDOFL",7,0)
+ ;; | Use of unreleased versions of this software requires the user |
+"RTN","MAGSDOFL",8,0)
+ ;; | to execute a written test agreement with the VistA Imaging |
+"RTN","MAGSDOFL",9,0)
+ ;; | Development Office of the Department of Veterans Affairs, |
+"RTN","MAGSDOFL",10,0)
+ ;; | telephone (301) 734-0100. |
+"RTN","MAGSDOFL",11,0)
+ ;; | The Food and Drug Administration classifies this software as |
+"RTN","MAGSDOFL",12,0)
+ ;; | a medical device. As such, it may not be changed in any way. |
+"RTN","MAGSDOFL",13,0)
+ ;; | Modifications to this software may result in an adulterated |
+"RTN","MAGSDOFL",14,0)
+ ;; | medical device under 21CFR820, the use of which is considered |
+"RTN","MAGSDOFL",15,0)
+ ;; | to be a violation of US Federal Statutes. |
+"RTN","MAGSDOFL",16,0)
+ ;; +---------------------------------------------------------------+
+"RTN","MAGSDOFL",17,0)
+ ;;
+"RTN","MAGSDOFL",18,0)
+ Q
+"RTN","MAGSDOFL",19,0)
+ENTRY ;Interactive entry here
+"RTN","MAGSDOFL",20,0)
+ I '$D(DUZ) W !,"Use the MAG JB OFFLINE menu option to run this application" Q
+"RTN","MAGSDOFL",21,0)
+ N BOLD,NORMAL,N,R
+"RTN","MAGSDOFL",22,0)
+ D SETUP W @IOF
+"RTN","MAGSDOFL",23,0)
+LOOP ; main menu loop
+"RTN","MAGSDOFL",24,0)
+ D SETUP
+"RTN","MAGSDOFL",25,0)
+ W !!,$P($T(OPTIONS),";",3),!
+"RTN","MAGSDOFL",26,0)
+ S N=0 F I=1:1 S X=$P($T(OPTIONS+I),";",3,999) Q:X="" D ; list options
+"RTN","MAGSDOFL",27,0)
+ . I $P(X,";")="" Q
+"RTN","MAGSDOFL",28,0)
+ . S N=N+1 W !,?2,$J(N,2),?6,$P(X,";")
+"RTN","MAGSDOFL",29,0)
+ . Q
+"RTN","MAGSDOFL",30,0)
+ ;
+"RTN","MAGSDOFL",31,0)
+AGAIN ;
+"RTN","MAGSDOFL",32,0)
+ W !!,?2,"OPTION: " R " ",R:DTIME Q:R=""!(R="^")
+"RTN","MAGSDOFL",33,0)
+ I R["?" D HELP2 G AGAIN
+"RTN","MAGSDOFL",34,0)
+ I R?1N.N,R>0,R'>N D G LOOP
+"RTN","MAGSDOFL",35,0)
+ . S N=0 F I=1:1 D Q:X="" I R=N D @($P(X,";",2)),RETURN Q
+"RTN","MAGSDOFL",36,0)
+ . . S X=$P($T(OPTIONS+I),";",3,999) Q:X=""
+"RTN","MAGSDOFL",37,0)
+ . . S N=N+1
+"RTN","MAGSDOFL",38,0)
+ . Q
+"RTN","MAGSDOFL",39,0)
+ W " ??? -- Invalid option. Try again." G AGAIN
+"RTN","MAGSDOFL",40,0)
+ ;
+"RTN","MAGSDOFL",41,0)
+SETUP ;
+"RTN","MAGSDOFL",42,0)
+ I ^%ZOSF("OS")?1"MSM".E S IOF="#"
+"RTN","MAGSDOFL",43,0)
+ E D HOME^%ZIS
+"RTN","MAGSDOFL",44,0)
+ S U="^"
+"RTN","MAGSDOFL",45,0)
+ S NORMAL=$C(27)_"[0;"_"44m" ; normal blue
+"RTN","MAGSDOFL",46,0)
+ S BOLD=$C(27)_"[1;"_"44m" ; bold blue
+"RTN","MAGSDOFL",47,0)
+ Q
+"RTN","MAGSDOFL",48,0)
+ ;
+"RTN","MAGSDOFL",49,0)
+RETURN ;
+"RTN","MAGSDOFL",50,0)
+ D SETUP
+"RTN","MAGSDOFL",51,0)
+ R !!,"Push <Enter> to continue...",X:DTIME
+"RTN","MAGSDOFL",52,0)
+ Q
+"RTN","MAGSDOFL",53,0)
+OFFLINE(MAGIN) ;Set images offline
+"RTN","MAGSDOFL",54,0)
+ N COUNT
+"RTN","MAGSDOFL",55,0)
+ASK1 I MAGIN="" R !!,"Enter file to read offline images from: ",X:DTIME
+"RTN","MAGSDOFL",56,0)
+ I X="" Q
+"RTN","MAGSDOFL",57,0)
+ I X="^" Q
+"RTN","MAGSDOFL",58,0)
+ I X["?" D HELP1 G ASK1
+"RTN","MAGSDOFL",59,0)
+ N IOP,MAGFDA,MAGFL
+"RTN","MAGSDOFL",60,0)
+ I MAGIN="" S MAGIN=X
+"RTN","MAGSDOFL",61,0)
+ S %ZIS="",%ZIS("HFSNAME")=MAGIN,%ZIS("HFSMODE")="R",IOP="HFS"
+"RTN","MAGSDOFL",62,0)
+ S X="ERROR^MAGSDOFL",@^%ZOSF("TRAP")
+"RTN","MAGSDOFL",63,0)
+ S MAGFL=2006.033
+"RTN","MAGSDOFL",64,0)
+ S COUNT=0
+"RTN","MAGSDOFL",65,0)
+ U IO(0) W !!,"Here goes nothing...",!
+"RTN","MAGSDOFL",66,0)
+ D ^%ZIS
+"RTN","MAGSDOFL",67,0)
+ F U IO R LN:5 Q:LN["Files Listed" D
+"RTN","MAGSDOFL",68,0)
+ . S COUNT=COUNT+1
+"RTN","MAGSDOFL",69,0)
+ . S LN=$$TRIM(LN)
+"RTN","MAGSDOFL",70,0)
+ . I LN["Media """ S MAGPLAT=$P(LN,"""",2) U IO(0) W !,MAGPLAT
+"RTN","MAGSDOFL",71,0)
+ . I COUNT#50=0 U IO(0) W "."
+"RTN","MAGSDOFL",72,0)
+ . S LN=$$FNAME(LN) Q:LN=""
+"RTN","MAGSDOFL",73,0)
+ . K MAGIEN S MAGIEN="?+1,"
+"RTN","MAGSDOFL",74,0)
+ . S MAGFDA(MAGFL,MAGIEN,.01)=LN
+"RTN","MAGSDOFL",75,0)
+ . S MAGFDA(MAGFL,MAGIEN,1)=MAGPLAT
+"RTN","MAGSDOFL",76,0)
+ . D UPDATE^DIE("","MAGFDA","MAGIEN","MAGERR")
+"RTN","MAGSDOFL",77,0)
+ . Q
+"RTN","MAGSDOFL",78,0)
+ W !,"Done."
+"RTN","MAGSDOFL",79,0)
+ Q
+"RTN","MAGSDOFL",80,0)
+LINE(OUT,LN,MAGPLAT) ;RPC - MAG UTIL JBOFFLN
+"RTN","MAGSDOFL",81,0)
+ ; LN := Process the line from JB platter/media report
+"RTN","MAGSDOFL",82,0)
+ ; MAGPLAT := platter name
+"RTN","MAGSDOFL",83,0)
+ ; OUT := return the result
+"RTN","MAGSDOFL",84,0)
+ ; e.g.: '0, Done'
+"RTN","MAGSDOFL",85,0)
+ ; '-1, Error message'
+"RTN","MAGSDOFL",86,0)
+ ;
+"RTN","MAGSDOFL",87,0)
+ N MAGFL,MAGIEN
+"RTN","MAGSDOFL",88,0)
+ S OUT(0)=0,MAGFL=2006.033 ;;JB offline file
+"RTN","MAGSDOFL",89,0)
+ I ($G(LN)="")!($G(MAGPLAT)="") S OUT(0)="-1,No text line value or specified platter" Q
+"RTN","MAGSDOFL",90,0)
+ S LN=$$TRIM(LN)
+"RTN","MAGSDOFL",91,0)
+ S LN=$$FNAME(LN) Q:LN=""
+"RTN","MAGSDOFL",92,0)
+ K MAGIEN S MAGIEN="?+1,"
+"RTN","MAGSDOFL",93,0)
+ S MAGFDA(MAGFL,MAGIEN,.01)=LN
+"RTN","MAGSDOFL",94,0)
+ S MAGFDA(MAGFL,MAGIEN,1)=MAGPLAT
+"RTN","MAGSDOFL",95,0)
+ D UPDATE^DIE("","MAGFDA","MAGIEN","MAGERR")
+"RTN","MAGSDOFL",96,0)
+ S OUT(0)="0,Done"
+"RTN","MAGSDOFL",97,0)
+ Q
+"RTN","MAGSDOFL",98,0)
+FNAME(LN) ;Find img file name
+"RTN","MAGSDOFL",99,0)
+ N XX ;OTG 4x or 5x
+"RTN","MAGSDOFL",100,0)
+ I LN["\" D Q XX
+"RTN","MAGSDOFL",101,0)
+ . F N=1:1 S XX=$P(LN,"\",N) Q:XX="" I XX?.E1"."2.5AN S LN=XX Q
+"RTN","MAGSDOFL",102,0)
+ ;OTG 3x
+"RTN","MAGSDOFL",103,0)
+ I $P(LN," ",1)'?.E1"."2.5AN Q ""
+"RTN","MAGSDOFL",104,0)
+ S LN=$P(LN," ")
+"RTN","MAGSDOFL",105,0)
+ Q LN
+"RTN","MAGSDOFL",106,0)
+ONLINE(MAGPLAT) ;Set images back online
+"RTN","MAGSDOFL",107,0)
+ ;
+"RTN","MAGSDOFL",108,0)
+ASK I MAGPLAT="" U IO(0) R !!,"Enter the name of the platter being inserted: ",X:DTIME
+"RTN","MAGSDOFL",109,0)
+ I X="" Q
+"RTN","MAGSDOFL",110,0)
+ I X="^" Q
+"RTN","MAGSDOFL",111,0)
+ I X["?" D HELP G ASK
+"RTN","MAGSDOFL",112,0)
+ N MAGENT
+"RTN","MAGSDOFL",113,0)
+ S MAGPLAT=X
+"RTN","MAGSDOFL",114,0)
+ I '$D(^MAGQUEUE(2006.033,"C",MAGPLAT)) W " Platter not on file..." Q
+"RTN","MAGSDOFL",115,0)
+ S DIK="^MAGQUEUE(2006.033,"
+"RTN","MAGSDOFL",116,0)
+ S MAGENT=""
+"RTN","MAGSDOFL",117,0)
+ F S MAGENT=$O(^MAGQUEUE(2006.033,"C",MAGPLAT,MAGENT)) Q:'MAGENT D
+"RTN","MAGSDOFL",118,0)
+ . S DA=MAGENT
+"RTN","MAGSDOFL",119,0)
+ . D ^DIK
+"RTN","MAGSDOFL",120,0)
+ . I $D(Y) U IO(0) W "."
+"RTN","MAGSDOFL",121,0)
+ . E U IO(0) W !,"Problem deleting entry# "_MAGENT
+"RTN","MAGSDOFL",122,0)
+ U IO(0) W !,"Done."
+"RTN","MAGSDOFL",123,0)
+ Q
+"RTN","MAGSDOFL",124,0)
+HELP ;List offline platters
+"RTN","MAGSDOFL",125,0)
+ U IO(0) W !,"Do you want to see a list of all offline platters? " R X:60
+"RTN","MAGSDOFL",126,0)
+ I "?"[$E(X) W !!,"Answer ""yes"" to see a list of platters currently marked offline"
+"RTN","MAGSDOFL",127,0)
+ I "?"[$E(X) W !,"Answer ""no"" to return",! G HELP
+"RTN","MAGSDOFL",128,0)
+ I "Yy"'[$E(X) Q
+"RTN","MAGSDOFL",129,0)
+LISTP S MAGPLAT=""
+"RTN","MAGSDOFL",130,0)
+ F S MAGPLAT=$O(^MAGQUEUE(2006.033,"C",MAGPLAT)) D Q:MAGPLAT=""
+"RTN","MAGSDOFL",131,0)
+ . U IO(0) W !,MAGPLAT
+"RTN","MAGSDOFL",132,0)
+ Q
+"RTN","MAGSDOFL",133,0)
+LISTOFL(OUT) ;RPC - MAG UTIL LSTOFLJB ;LIST OFFLINE JB PLATTER(S) ;;*98
+"RTN","MAGSDOFL",134,0)
+ N MAGPLAT,CNT S MAGPLAT="",OUT(1)="0"
+"RTN","MAGSDOFL",135,0)
+ F CNT=1:1 S MAGPLAT=$O(^MAGQUEUE(2006.033,"C",MAGPLAT)) Q:MAGPLAT="" S OUT(CNT)=MAGPLAT
+"RTN","MAGSDOFL",136,0)
+ Q
+"RTN","MAGSDOFL",137,0)
+BKONL(OUT,MAGPLAT) ;RPC - MAG UTIL BKONLJB ;Put images back online (Insert Jukebox Platter)
+"RTN","MAGSDOFL",138,0)
+ N DIK,CNT,DA,Y
+"RTN","MAGSDOFL",139,0)
+ S OUT(1)="0"
+"RTN","MAGSDOFL",140,0)
+ I $G(MAGPLAT)="" S OUT(1)="-1,No JB Platter specified" Q
+"RTN","MAGSDOFL",141,0)
+ I $O(^MAGQUEUE(2006.033,"C",MAGPLAT,0))="" S OUT(1)="-1,Platter not on file 2006.033 -"_MAGPLAT Q
+"RTN","MAGSDOFL",142,0)
+ S DIK="^MAGQUEUE(2006.033,",MAGENT=""
+"RTN","MAGSDOFL",143,0)
+ F CNT=0:1 S MAGENT=$O(^MAGQUEUE(2006.033,"C",MAGPLAT,MAGENT)) Q:'MAGENT D
+"RTN","MAGSDOFL",144,0)
+ . S DA=MAGENT D ^DIK
+"RTN","MAGSDOFL",145,0)
+ I $D(Y) S OUT(1)="0,Done "_CNT
+"RTN","MAGSDOFL",146,0)
+ Q
+"RTN","MAGSDOFL",147,0)
+GROUP ;Remove platters in group
+"RTN","MAGSDOFL",148,0)
+ N COUNT,MAGPLAT,PLAT,X,TOTAL,MAGIEN,CNT,IOP,MAGFDA,MAGFL,POP
+"RTN","MAGSDOFL",149,0)
+ASK3 R !!,"Enter 'DIR' file to read offline platter TXT from: ",X:$G(DTIME)
+"RTN","MAGSDOFL",150,0)
+ I X=""!(X="^") Q
+"RTN","MAGSDOFL",151,0)
+ I X["?" D HELP3 G ASK3
+"RTN","MAGSDOFL",152,0)
+ S MAGIN=X ;DIR filename
+"RTN","MAGSDOFL",153,0)
+ S %ZIS="",%ZIS("HFSNAME")=MAGIN,%ZIS("HFSMODE")="R",IOP="HFS"
+"RTN","MAGSDOFL",154,0)
+ S X="ERROR^MAGSDOFL",@^%ZOSF("TRAP")
+"RTN","MAGSDOFL",155,0)
+ D ^%ZIS
+"RTN","MAGSDOFL",156,0)
+ F U IO R MAGPLAT:30 Q:($G(MAGPLAT)="")!($G(MAGPLAT)["~end") I $L(MAGPLAT) S MAGPLAT(MAGPLAT)=0 U IO(0) W "|"
+"RTN","MAGSDOFL",157,0)
+ D ^%ZISC
+"RTN","MAGSDOFL",158,0)
+ S MAGFL=2006.033
+"RTN","MAGSDOFL",159,0)
+ U IO(0) W !!,"Here goes nothing...",!,"50 per '.'",!
+"RTN","MAGSDOFL",160,0)
+ S PLAT="" F CNT=0:1 S PLAT=$O(MAGPLAT(PLAT)) Q:PLAT="" U IO(0) W !,PLAT D
+"RTN","MAGSDOFL",161,0)
+ . S COUNT=0,%ZIS="",%ZIS("HFSNAME")=PLAT,%ZIS("HFSMODE")="R",IOP="HFS"
+"RTN","MAGSDOFL",162,0)
+ . S X="ERROR^MAGSDOFL",@^%ZOSF("TRAP")
+"RTN","MAGSDOFL",163,0)
+ . D ^%ZIS I POP W !,"Sorry, ",PLAT," not found, try later.",! Q
+"RTN","MAGSDOFL",164,0)
+ . F U IO R LN:5 D
+"RTN","MAGSDOFL",165,0)
+ . . S COUNT=COUNT+1,TOTAL=$G(TOTAL)+1
+"RTN","MAGSDOFL",166,0)
+ . . S LN=$$TRIM(LN)
+"RTN","MAGSDOFL",167,0)
+ . . I LN["Media """ S MAGPLAT=$P(LN,"""",2) U IO(0) W !,MAGPLAT
+"RTN","MAGSDOFL",168,0)
+ . . I COUNT#50=0 U IO(0) W "."
+"RTN","MAGSDOFL",169,0)
+ . . S LN=$$FNAME(LN) Q:LN=""
+"RTN","MAGSDOFL",170,0)
+ . . K MAGIEN S MAGIEN="?+1,"
+"RTN","MAGSDOFL",171,0)
+ . . S MAGFDA(MAGFL,MAGIEN,.01)=LN
+"RTN","MAGSDOFL",172,0)
+ . . S MAGFDA(MAGFL,MAGIEN,1)=MAGPLAT
+"RTN","MAGSDOFL",173,0)
+ . . D UPDATE^DIE("","MAGFDA","MAGIEN","MAGERR")
+"RTN","MAGSDOFL",174,0)
+ . . Q
+"RTN","MAGSDOFL",175,0)
+ . D ^%ZISC ;cls media report
+"RTN","MAGSDOFL",176,0)
+ . Q
+"RTN","MAGSDOFL",177,0)
+ U IO(0) W !,"Done (",CNT," platter(s), total files ",TOTAL," were marked offline.)",!
+"RTN","MAGSDOFL",178,0)
+ Q
+"RTN","MAGSDOFL",179,0)
+HELP1 ;Help for offline
+"RTN","MAGSDOFL",180,0)
+ W !,"Enter the name of the file created by the jukebox media file report"
+"RTN","MAGSDOFL",181,0)
+ Q
+"RTN","MAGSDOFL",182,0)
+HELP2 ;Help for OPTION prompt
+"RTN","MAGSDOFL",183,0)
+ W !,"Select option 1 if you are marking DEX images offline"
+"RTN","MAGSDOFL",184,0)
+ W !,"Select option 2 if you are marking images online"
+"RTN","MAGSDOFL",185,0)
+ W !,"Select option 3 if you want the listing of off-line platter(s)"
+"RTN","MAGSDOFL",186,0)
+ W !,"Select option 4 if you are taking the group of platters off-line"
+"RTN","MAGSDOFL",187,0)
+ W !,"Select option 5 if you are marking Archive Appliance (AA) images offline"
+"RTN","MAGSDOFL",188,0)
+ W !,"Type ""^"" to quit"
+"RTN","MAGSDOFL",189,0)
+ Q
+"RTN","MAGSDOFL",190,0)
+HELP3 ;Help for GROUP platters TXT
+"RTN","MAGSDOFL",191,0)
+ W !,"Enter the full file name that is grouped by the jukebox media TXT file report",!
+"RTN","MAGSDOFL",192,0)
+ W !,"For example: you do 'DIR JB*.TXT /B /S > [USER]DIR.TXT' ,append '~end' at end of file",!
+"RTN","MAGSDOFL",193,0)
+ W !,"Then use [USER]DIR.TXT as source file",!
+"RTN","MAGSDOFL",194,0)
+ Q
+"RTN","MAGSDOFL",195,0)
+ ;
+"RTN","MAGSDOFL",196,0)
+TRIM(X) ;
+"RTN","MAGSDOFL",197,0)
+ N I,J
+"RTN","MAGSDOFL",198,0)
+ F I=1:1:$L(X) Q:$E(X,I)'=" "
+"RTN","MAGSDOFL",199,0)
+ F J=$L(X):-1:I Q:$E(X,J)'=" "
+"RTN","MAGSDOFL",200,0)
+ Q $E(X,I,J)
+"RTN","MAGSDOFL",201,0)
+ERROR ;Trap Errors Here
+"RTN","MAGSDOFL",202,0)
+ D ^%ZISC
+"RTN","MAGSDOFL",203,0)
+ Q
+"RTN","MAGSDOFL",204,0)
+OPTIONS ; Offline Image Menu
+"RTN","MAGSDOFL",205,0)
+ ;;Take DEX images offline (Remove Jukebox Platter);OFFLINE("")
+"RTN","MAGSDOFL",206,0)
+ ;;Put images back online (Insert Jukebox Platter);ONLINE("")
+"RTN","MAGSDOFL",207,0)
+ ;;Take images offline (Group platters);GROUP
+"RTN","MAGSDOFL",208,0)
+ ;;List current offline Jukebox Platter;LISTP
+"RTN","MAGSDOFL",209,0)
+ ;;Take 'AA' Archive Appliance images offline (Remove Jukebox Platter);EN^MAGSDOFF
+"VER")
+8.0^22.0
+"^DD",2005,2005,113,0)
+STATUS^RS^1:Viewable;2:QA Reviewed;10:In Progress;11:Needs Review;12:Deleted;13:Image Never Existed;^100;8^Q
+"^DD",2005,2005,113,3)
+Select the current status of the image.
+"^DD",2005,2005,113,20,0)
+^.3LA^1^1
+"^DD",2005,2005,113,20,1,0)
+MAG*3*93
+"^DD",2005,2005,113,21,0)
+^.001^37^37^3130404^^^^
+"^DD",2005,2005,113,21,1,0)
+Viewable
+"^DD",2005,2005,113,21,2,0)
+
+"^DD",2005,2005,113,21,3,0)
+ By default, all images are viewable, and images
+"^DD",2005,2005,113,21,4,0)
+ with no status are considered viewable.
+"^DD",2005,2005,113,21,5,0)
+
+"^DD",2005,2005,113,21,6,0)
+QA Reviewed
+"^DD",2005,2005,113,21,7,0)
+
+"^DD",2005,2005,113,21,8,0)
+ A user has viewed the image and verified that
+"^DD",2005,2005,113,21,9,0)
+ the patient identifier and values of index
+"^DD",2005,2005,113,21,10,0)
+ fields are correct for this image.
+"^DD",2005,2005,113,21,11,0)
+
+"^DD",2005,2005,113,21,12,0)
+
+"^DD",2005,2005,113,21,13,0)
+In Progress
+"^DD",2005,2005,113,21,14,0)
+
+"^DD",2005,2005,113,21,15,0)
+ When capturing image groups, this status will
+"^DD",2005,2005,113,21,16,0)
+ indicate that the images are being added to the
+"^DD",2005,2005,113,21,17,0)
+ group of images. When the process is complete,
+"^DD",2005,2005,113,21,18,0)
+ the status will change to Viewable.
+"^DD",2005,2005,113,21,19,0)
+
+"^DD",2005,2005,113,21,20,0)
+Needs Review
+"^DD",2005,2005,113,21,21,0)
+
+"^DD",2005,2005,113,21,22,0)
+ Indicates that value(s) of the index fields or
+"^DD",2005,2005,113,21,23,0)
+ patient identifier have been found to be
+"^DD",2005,2005,113,21,24,0)
+ incorrect. VistA Imaging Display application
+"^DD",2005,2005,113,21,25,0)
+ will block images with this status from being
+"^DD",2005,2005,113,21,26,0)
+ viewed. The Image Edit utility can be used to
+"^DD",2005,2005,113,21,27,0)
+ modify the incorrect values of the index fields.
+"^DD",2005,2005,113,21,28,0)
+
+"^DD",2005,2005,113,21,29,0)
+Deleted
+"^DD",2005,2005,113,21,30,0)
+
+"^DD",2005,2005,113,21,31,0)
+ Marks the image as deleted.
+"^DD",2005,2005,113,21,32,0)
+
+"^DD",2005,2005,113,21,33,0)
+Image Never Existed
+"^DD",2005,2005,113,21,34,0)
+
+"^DD",2005,2005,113,21,35,0)
+ There was an Error while copying the Image to
+"^DD",2005,2005,113,21,36,0)
+ the Image Share. The Image entry is deleted
+"^DD",2005,2005,113,21,37,0)
+ and the status is set as Image Never Existed.
+"^DD",2005,2005,113,23,0)
+^.001^4^4^3130404^^^^
+"^DD",2005,2005,113,23,1,0)
+Use only positive canonic numbers for internal values.
+"^DD",2005,2005,113,23,2,0)
+
+"^DD",2005,2005,113,23,3,0)
+Added by the patch MAG*3*93.
+"^DD",2005,2005,113,23,4,0)
+Updated by the patch MAG*3*135
+"^DD",2005,2005,113,"DT")
+3130222
+"^DD",2005.1,2005.1,113,0)
+STATUS^S^1:Viewable;2:QA Reviewed;10:In Progress;11:Needs Review;12:Deleted;13:Image Never Existed;^100;8^Q
+"^DD",2005.1,2005.1,113,3)
+Select the current status of the image.
+"^DD",2005.1,2005.1,113,5,1,0)
+2005.1^.01^2
+"^DD",2005.1,2005.1,113,9)
+^
+"^DD",2005.1,2005.1,113,20,0)
+^.3LA^1^1
+"^DD",2005.1,2005.1,113,20,1,0)
+MAG*3*93
+"^DD",2005.1,2005.1,113,21,0)
+^.001^35^35^3130701^^^^
+"^DD",2005.1,2005.1,113,21,1,0)
+Viewable
+"^DD",2005.1,2005.1,113,21,2,0)
+
+"^DD",2005.1,2005.1,113,21,3,0)
+ By default, all images are viewable, and images
+"^DD",2005.1,2005.1,113,21,4,0)
+ with no status are considered viewable.
+"^DD",2005.1,2005.1,113,21,5,0)
+
+"^DD",2005.1,2005.1,113,21,6,0)
+QA Reviewed
+"^DD",2005.1,2005.1,113,21,7,0)
+
+"^DD",2005.1,2005.1,113,21,8,0)
+ A user has viewed the image and verified that
+"^DD",2005.1,2005.1,113,21,9,0)
+ the patient identifier and values of index
+"^DD",2005.1,2005.1,113,21,10,0)
+ index fields are correct for this image.
+"^DD",2005.1,2005.1,113,21,11,0)
+
+"^DD",2005.1,2005.1,113,21,12,0)
+In Progress
+"^DD",2005.1,2005.1,113,21,13,0)
+
+"^DD",2005.1,2005.1,113,21,14,0)
+ When capturing image groups, this status will
+"^DD",2005.1,2005.1,113,21,15,0)
+ indicate that the images are being added to the
+"^DD",2005.1,2005.1,113,21,16,0)
+ group of images. When the process is complete,
+"^DD",2005.1,2005.1,113,21,17,0)
+ the status will change to viewable.
+"^DD",2005.1,2005.1,113,21,18,0)
+
+"^DD",2005.1,2005.1,113,21,19,0)
+Needs Review
+"^DD",2005.1,2005.1,113,21,20,0)
+
+"^DD",2005.1,2005.1,113,21,21,0)
+ Indicates that the values(s) of the index fields or
+"^DD",2005.1,2005.1,113,21,22,0)
+ patient identifier have been found to be
+"^DD",2005.1,2005.1,113,21,23,0)
+ incorrect. The VistA Imaging Display application
+"^DD",2005.1,2005.1,113,21,24,0)
+ will block images with this status from being
+"^DD",2005.1,2005.1,113,21,25,0)
+ viewed. The Image Edit utility can be used to
+"^DD",2005.1,2005.1,113,21,26,0)
+ modify the incorrect value(s) of the index fields.
+"^DD",2005.1,2005.1,113,21,27,0)
+
+"^DD",2005.1,2005.1,113,21,28,0)
+Deleted
+"^DD",2005.1,2005.1,113,21,29,0)
+ Marks the image as deleted.
+"^DD",2005.1,2005.1,113,21,30,0)
+
+"^DD",2005.1,2005.1,113,21,31,0)
+Image Never Existed
+"^DD",2005.1,2005.1,113,21,32,0)
+ There was an Error while copying the Image to
+"^DD",2005.1,2005.1,113,21,33,0)
+ the Image Share. The Image entry is deleted
+"^DD",2005.1,2005.1,113,21,34,0)
+ and the status is set as Image Never Existed.
+"^DD",2005.1,2005.1,113,21,35,0)
+
+"^DD",2005.1,2005.1,113,23,0)
+^.001^1^1^3130701^^^^
+"^DD",2005.1,2005.1,113,23,1,0)
+Use only positive canonic numbers for internal values.
+"^DD",2005.1,2005.1,113,"DT")
+3130701
+"^DD",2005.2,2005.2,6,0)
+STORAGE TYPE^RSO^MAG:MAGNETIC;WORM-DG:WORM-DG;WORM-PDT:WORM-PDT;RW:READ/WRITE;WORM-OTG:WORM-OTG;EKG:MUSE-EKG;GCC:EXPORT;DGM:DIAGRAM;URL:URL;RTR:ROUTER;GRP:RAID-GROUP;^0;7^Q
+"^DD",2005.2,2005.2,6,1,0)
+^.1
+"^DD",2005.2,2005.2,6,1,1,0)
+2005.2^E
+"^DD",2005.2,2005.2,6,1,1,1)
+S ^MAG(2005.2,"E",$E(X,1,30),DA)=""
+"^DD",2005.2,2005.2,6,1,1,2)
+K ^MAG(2005.2,"E",$E(X,1,30),DA)
+"^DD",2005.2,2005.2,6,1,1,"%D",0)
+^.101^1^1^3030813^^
+"^DD",2005.2,2005.2,6,1,1,"%D",1,0)
+Storage Type cross reference
+"^DD",2005.2,2005.2,6,1,1,"DT")
+3000131
+"^DD",2005.2,2005.2,6,2)
+S Y(0)=Y S Y=$S(Y["MAG":"TIER 1",Y["WORM":"TIER 2",1:Y)
+"^DD",2005.2,2005.2,6,2.1)
+S Y=$S(Y["MAG":"TIER 1",Y["WORM":"TIER 2",1:Y)
+"^DD",2005.2,2005.2,6,3)
+Enter the type of storage for this network location.
+"^DD",2005.2,2005.2,6,21,0)
+^.001^18^18^3130110^^^^
+"^DD",2005.2,2005.2,6,21,1,0)
+This field describes the media type of this network location.
+"^DD",2005.2,2005.2,6,21,2,0)
+It should be MAGNETIC for a magnetic disk server.
+"^DD",2005.2,2005.2,6,21,3,0)
+
+"^DD",2005.2,2005.2,6,21,4,0)
+Jukeboxes should be WORM-DG for Data General Jukeboxes under
+"^DD",2005.2,2005.2,6,21,5,0)
+OpenNetware or WORM-PDT for Pegasus Jukeboxes or WORM-OTG for
+"^DD",2005.2,2005.2,6,21,6,0)
+OTG Disk Extender. WORM-DG and WORM-PDT are for backward
+"^DD",2005.2,2005.2,6,21,7,0)
+compatibility only. Note: WORM stands for Write Once, Read Many.
+"^DD",2005.2,2005.2,6,21,8,0)
+
+"^DD",2005.2,2005.2,6,21,9,0)
+The GCC type refers to the Generic Carbon Copy (GCC) utility.
+"^DD",2005.2,2005.2,6,21,10,0)
+
+"^DD",2005.2,2005.2,6,21,11,0)
+URL is used for Web based file access.
+"^DD",2005.2,2005.2,6,21,12,0)
+
+"^DD",2005.2,2005.2,6,21,13,0)
+Type 'RTR' should be used to identify network entries that are
+"^DD",2005.2,2005.2,6,21,14,0)
+used for Routing images.
+"^DD",2005.2,2005.2,6,21,15,0)
+
+"^DD",2005.2,2005.2,6,21,16,0)
+Type 'GRP' will identify a group entry and will allow sites to group
+"^DD",2005.2,2005.2,6,21,17,0)
+network locations. This functionality is useful for the Background
+"^DD",2005.2,2005.2,6,21,18,0)
+Processor and Verifier applications.
+"^DD",2005.2,2005.2,6,23,0)
+^^1^1^3130110^
+"^DD",2005.2,2005.2,6,23,1,0)
+The purpose of the Output Transform is to provide the user terminology consistent with modern network storage vernacular.
+"^DD",2005.2,2005.2,6,"DT")
+3121226
+"^DD",2006.1,2006.1,11.5,0)
+TIER 2 RESERVE^NJ2,0^^1;9^K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
+"^DD",2006.1,2006.1,11.5,3)
+Type a number between 0 and 50, 0 decimal digits.
+"^DD",2006.1,2006.1,11.5,21,0)
+^.001^6^6^3130124^^^^
+"^DD",2006.1,2006.1,11.5,21,1,0)
+This field allows sites to define a minimum percentage of free space
+"^DD",2006.1,2006.1,11.5,21,2,0)
+in the tier 2 storage device in order to prevent loss of cache space
+"^DD",2006.1,2006.1,11.5,21,3,0)
+for temporary storage. The default value is 5.
+"^DD",2006.1,2006.1,11.5,21,4,0)
+The Background Processor JUKEBOX queue will not write to the currently
+"^DD",2006.1,2006.1,11.5,21,5,0)
+designated tier 2 storage share if this percent storage capacity is not
+"^DD",2006.1,2006.1,11.5,21,6,0)
+available or accessible from the Background Processor application.
+"^DD",2006.1,2006.1,11.5,"DT")
+3130123
+**END**
+**END**
+
+
+****
+****
diff --git a/Packages/Inpatient Medications/Patches/PSJ_5.0_301/PSJ-5_SEQ-251_PAT-301.KIDS b/Packages/Inpatient Medications/Patches/PSJ_5.0_301/PSJ-5_SEQ-251_PAT-301.KIDS
new file mode 100644
index 0000000..3d48d02
--- /dev/null
+++ b/Packages/Inpatient Medications/Patches/PSJ_5.0_301/PSJ-5_SEQ-251_PAT-301.KIDS
@@ -0,0 +1,594 @@
+EMERGENCY Released PSJ*5*301 SEQ #251
+Extracted from mail message
+**KIDS**:PSJ*5.0*301^
+
+**INSTALL NAME**
+PSJ*5.0*301
+"BLD",9482,0)
+PSJ*5.0*301^INPATIENT MEDICATIONS^0^3130904^y
+"BLD",9482,1,0)
+^^11^11^3130904^
+"BLD",9482,1,1,0)
+This patch addresses an issue with the ACTION PROFILE #2 [PSJU AP-2]
+"BLD",9482,1,2,0)
+report introduced by PSJ*5*275.
+"BLD",9482,1,3,0)
+
+"BLD",9482,1,4,0)
+The change to the ACTION PROFILE #2 [PSJU AP-2] report in patch PSJ*5*275
+"BLD",9482,1,5,0)
+caused the report to only print the first patient found, regardless of
+"BLD",9482,1,6,0)
+how many patients should have printed, when the report was run by Ward or
+"BLD",9482,1,7,0)
+Ward Group.
+"BLD",9482,1,8,0)
+
+"BLD",9482,1,9,0)
+This patch corrects the report by ensuring all appropriate
+"BLD",9482,1,10,0)
+patients and their orders print on the report when the report is run by
+"BLD",9482,1,11,0)
+Ward or Ward Group.
+"BLD",9482,4,0)
+^9.64PA^^
+"BLD",9482,6.3)
+3
+"BLD",9482,"KRN",0)
+^9.67PA^779.2^20
+"BLD",9482,"KRN",.4,0)
+.4
+"BLD",9482,"KRN",.4,"NM",0)
+^9.68A^^0
+"BLD",9482,"KRN",.401,0)
+.401
+"BLD",9482,"KRN",.402,0)
+.402
+"BLD",9482,"KRN",.402,"NM",0)
+^9.68A^^0
+"BLD",9482,"KRN",.403,0)
+.403
+"BLD",9482,"KRN",.5,0)
+.5
+"BLD",9482,"KRN",.84,0)
+.84
+"BLD",9482,"KRN",3.6,0)
+3.6
+"BLD",9482,"KRN",3.8,0)
+3.8
+"BLD",9482,"KRN",3.8,"NM",0)
+^9.68A^^0
+"BLD",9482,"KRN",9.2,0)
+9.2
+"BLD",9482,"KRN",9.8,0)
+9.8
+"BLD",9482,"KRN",9.8,"NM",0)
+^9.68A^2^2
+"BLD",9482,"KRN",9.8,"NM",1,0)
+PSGCAPP^^0^B26437637
+"BLD",9482,"KRN",9.8,"NM",2,0)
+PSGCAP0^^0^B30223671
+"BLD",9482,"KRN",9.8,"NM","B","PSGCAP0",2)
+
+"BLD",9482,"KRN",9.8,"NM","B","PSGCAPP",1)
+
+"BLD",9482,"KRN",19,0)
+19
+"BLD",9482,"KRN",19,"NM",0)
+^9.68A^^0
+"BLD",9482,"KRN",19.1,0)
+19.1
+"BLD",9482,"KRN",19.1,"NM",0)
+^9.68A^^0
+"BLD",9482,"KRN",101,0)
+101
+"BLD",9482,"KRN",101,"NM",0)
+^9.68A^^0
+"BLD",9482,"KRN",409.61,0)
+409.61
+"BLD",9482,"KRN",409.61,"NM",0)
+^9.68A^^0
+"BLD",9482,"KRN",771,0)
+771
+"BLD",9482,"KRN",779.2,0)
+779.2
+"BLD",9482,"KRN",870,0)
+870
+"BLD",9482,"KRN",8989.51,0)
+8989.51
+"BLD",9482,"KRN",8989.52,0)
+8989.52
+"BLD",9482,"KRN",8994,0)
+8994
+"BLD",9482,"KRN","B",.4,.4)
+
+"BLD",9482,"KRN","B",.401,.401)
+
+"BLD",9482,"KRN","B",.402,.402)
+
+"BLD",9482,"KRN","B",.403,.403)
+
+"BLD",9482,"KRN","B",.5,.5)
+
+"BLD",9482,"KRN","B",.84,.84)
+
+"BLD",9482,"KRN","B",3.6,3.6)
+
+"BLD",9482,"KRN","B",3.8,3.8)
+
+"BLD",9482,"KRN","B",9.2,9.2)
+
+"BLD",9482,"KRN","B",9.8,9.8)
+
+"BLD",9482,"KRN","B",19,19)
+
+"BLD",9482,"KRN","B",19.1,19.1)
+
+"BLD",9482,"KRN","B",101,101)
+
+"BLD",9482,"KRN","B",409.61,409.61)
+
+"BLD",9482,"KRN","B",771,771)
+
+"BLD",9482,"KRN","B",779.2,779.2)
+
+"BLD",9482,"KRN","B",870,870)
+
+"BLD",9482,"KRN","B",8989.51,8989.51)
+
+"BLD",9482,"KRN","B",8989.52,8989.52)
+
+"BLD",9482,"KRN","B",8994,8994)
+
+"BLD",9482,"QDEF")
+^^^^NO^^^^^^NO
+"BLD",9482,"QUES",0)
+^9.62^^
+"BLD",9482,"REQB",0)
+^9.611^1^1
+"BLD",9482,"REQB",1,0)
+PSJ*5.0*275^2
+"BLD",9482,"REQB","B","PSJ*5.0*275",1)
+
+"MBREQ")
+0
+"PKG",471,-1)
+1^1
+"PKG",471,0)
+INPATIENT MEDICATIONS^PSJ^UNIT DOSE AND IVS
+"PKG",471,20,0)
+^9.402P^^
+"PKG",471,22,0)
+^9.49I^1^1
+"PKG",471,22,1,0)
+5.0^2971215^2990325^66481
+"PKG",471,22,1,"PAH",1,0)
+301^3130904
+"PKG",471,22,1,"PAH",1,1,0)
+^^11^11^3130904
+"PKG",471,22,1,"PAH",1,1,1,0)
+This patch addresses an issue with the ACTION PROFILE #2 [PSJU AP-2]
+"PKG",471,22,1,"PAH",1,1,2,0)
+report introduced by PSJ*5*275.
+"PKG",471,22,1,"PAH",1,1,3,0)
+
+"PKG",471,22,1,"PAH",1,1,4,0)
+The change to the ACTION PROFILE #2 [PSJU AP-2] report in patch PSJ*5*275
+"PKG",471,22,1,"PAH",1,1,5,0)
+caused the report to only print the first patient found, regardless of
+"PKG",471,22,1,"PAH",1,1,6,0)
+how many patients should have printed, when the report was run by Ward or
+"PKG",471,22,1,"PAH",1,1,7,0)
+Ward Group.
+"PKG",471,22,1,"PAH",1,1,8,0)
+
+"PKG",471,22,1,"PAH",1,1,9,0)
+This patch corrects the report by ensuring all appropriate
+"PKG",471,22,1,"PAH",1,1,10,0)
+patients and their orders print on the report when the report is run by
+"PKG",471,22,1,"PAH",1,1,11,0)
+Ward or Ward Group.
+"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","PSGCAP0")
+0^2^B30223671^B23579520
+"RTN","PSGCAP0",1,0)
+PSGCAP0 ;BIR/CML3-ACTION PROFILE ;12 Mar 98 / 9:30 AM
+"RTN","PSGCAP0",2,0)
+ ;;5.0;INPATIENT MEDICATIONS;**8,58,111,149,275,301**;16 DEC 97;Build 3
+"RTN","PSGCAP0",3,0)
+ ;
+"RTN","PSGCAP0",4,0)
+ ; Reference to ^PS(55 is supported by DBIA# 2191
+"RTN","PSGCAP0",5,0)
+ ; Reference to ^PSDRUG is supported by DBIA# 2192
+"RTN","PSGCAP0",6,0)
+ ;
+"RTN","PSGCAP0",7,0)
+GOD ; gather order data
+"RTN","PSGCAP0",8,0)
+ S ND=$G(^PS(55,PSGP,5,PSJJORD,0)),ND2=$G(^(2)),SI=$P($G(^(6)),"^"),DRG=$G(^(.2)) ;WS=$S(DRG&PSGAPWD:$D(^PSI(58.1,"D",+DRG,PSGAPWD)),1:0)
+"RTN","PSGCAP0",9,0)
+ S X=$$NFWS^PSJUTL1(PSGP,PSJJORD_"U",PSGAPWD) S NF=$P(X,U),WS=$P(X,U,2),SM=$S('$P(X,U,3):0,$P(X,U,4):1,1:2)
+"RTN","PSGCAP0",10,0)
+ N X,PSG
+"RTN","PSGCAP0",11,0)
+ D DRGDISP^PSJLMUT1(PSGP,PSJJORD_"U",20,0,.PSG,1)
+"RTN","PSGCAP0",12,0)
+ S DRG=PSG(1),DRG=$S(DRG["NOT FOUND":"z",1:DRG) ;SM=$S('$P(ND,"^",5):0,$P(ND,"^",6):1,1:2)
+"RTN","PSGCAP0",13,0)
+ S ST=$S($P(ND,U,27)="R"&($P(ND,U,9)="A"):"R",1:$P(ND,U,9)),ND=$P(ND,"^",7)
+"RTN","PSGCAP0",14,0)
+ N DDRG S (X,DCU)=0 F S X=$O(^PS(55,PSGP,5,PSJJORD,1,X)) Q:'X S DDRG=^(X,0),DCU=DCU+($P($G(^PSDRUG(+DDRG,660)),"^",6)*($S($P(DDRG,"^",2):$P(DDRG,"^",2),1:1)))
+"RTN","PSGCAP0",15,0)
+ ;
+"RTN","PSGCAP0",16,0)
+ ; PSJ*5*275 get clinic
+"RTN","PSGCAP0",17,0)
+ ;S PSGAPWDN="zz"
+"RTN","PSGCAP0",18,0)
+ N PSJCLN,CLINSORT S PSJCLN=$$CLINIC^PSJO1(PSGP,PSJJORD_"U")
+"RTN","PSGCAP0",19,0)
+ ; When run by Clinic, if patient also has Inpatient orders, make sure those orders have a corresponding patient node in ^TMP
+"RTN","PSGCAP0",20,0)
+ I PSJCLN="",($G(PSGSS)["C"),$G(PSJPWD),($G(PSJPWDN)]"") N PSGAPWDN,PSGAPWD S PSGAPWD=PSJPWD,PSGAPWDN=PSJPWDN D
+"RTN","PSGCAP0",21,0)
+ .S ^TMP($J,S1,PSGAPWDN,PN)=$P(PSJPSEX,"^",2)_"^"_$E($P(PSJPDOB,"^",2),1,10)_";"_PSJPAGE_"^"_VA("PID")_"^"_PSJPDX_"^"_$S(PSJPRB]"":PSJPRB,1:"*NF*")_"^"_$E($P(PSJPAD,"^",2),1,10)_"^"_$E($P(PSJPTD,"^",2),1,10)
+"RTN","PSGCAP0",22,0)
+ .S ^TMP($J,S1,PSGAPWDN,PN)=^(PN)_"^"_PSJPWT_"^"_PSJPWTD_"^"_PSJPHT_"^"_PSJPHTD_"^"_$P(PSGP(0),"^")
+"RTN","PSGCAP0",23,0)
+ I (PSJCLN]"") S CLINSORT=$$CLINSORT^PSJO1($G(ST)) I CLINSORT N:($G(PSGSS)'["C") PSGAPWDN S PSGAPWDN="zz"_U_PSJCLN_U_CLINSORT_U_ST
+"RTN","PSGCAP0",24,0)
+ ;
+"RTN","PSGCAP0",25,0)
+ S SD=$P(ND2,"^",2),FD=$P(ND2,"^",4) F X="SD","FD" S @X=$E($$ENDTC^PSGMI(@X),1,5)
+"RTN","PSGCAP0",26,0)
+ ;
+"RTN","PSGCAP0",27,0)
+ S Y=SI S:Y]"" Y=$$ENSET^PSGSICHK(Y)
+"RTN","PSGCAP0",28,0)
+ S PSGAPWDN=$S($P($G(PSGAPWDN),"^")="zz"&($P($G(PSGAPWDN),"^",2)'=""):PSGAPWDN,$G(PSGAPWD)="zz":"zz",$G(PSGAPWDN):PSGAPWDN,'$G(PSGAPWDN)&($G(PSJPWDN)'=""):PSJPWDN,1:"zz")
+"RTN","PSGCAP0",29,0)
+ S ^TMP($J,S1,PSGAPWDN,PN,ND_"^"_DRG,PSJJORD)=ST_"^"_SD_"^"_FD_"^"_WS_"^"_SM_"^"_NF_"^"_DCU_"^"_DRG S:Y]"" ^(PSJJORD,1)=Y Q
+"RTN","PSGCAP0",30,0)
+ ;
+"RTN","PSGCAP0",31,0)
+PAT ;
+"RTN","PSGCAP0",32,0)
+ D PSJAC2^PSJAC(1),NOW^%DTC S PSGDT=%,PN=$E($P(PSGP(0),"^"),1,20)_"^"_PSGP
+"RTN","PSGCAP0",33,0)
+ S S1="zz" I PSGAPS="T",PSJPWD,PSJPRB]"",$D(^PS(57.7,PSJPWD,1,+$O(^PS(57.7,"AWRT",PSJPWD,PSJPRB,0)),0)),$P(^(0),"^")]"" S S1=$P(^(0),"^")
+"RTN","PSGCAP0",34,0)
+ I PSGAPS="P",PSJPTSP,$D(^VA(200,PSJPTSP,0)),$P(^(0),"^")]"" S S1=$P(^(0),"^")
+"RTN","PSGCAP0",35,0)
+ S:PSGMTYPE[1 PSGMTYPE="2,3,4,5,6"
+"RTN","PSGCAP0",36,0)
+ I PSGMTYPE[2 D
+"RTN","PSGCAP0",37,0)
+ . F STRT=PSGAPSD-.0001:0 S STRT=$O(^PS(55,PSGP,5,"AUS",STRT)) Q:$S('STRT:1,PSGAPO="E":STRT>PSGAPFD,1:0) I STRT'=PSGAPSD F PSJJORD=0:0 S PSJJORD=$O(^PS(55,PSGP,5,"AUS",STRT,PSJJORD)) Q:'PSJJORD D GOD
+"RTN","PSGCAP0",38,0)
+ . S XTYPE=2,PST="S" D ^PSGCAPIV
+"RTN","PSGCAP0",39,0)
+ N XTYPE F XTYPE=3:1:6 I PSGMTYPE[XTYPE S PST=$S(XTYPE=3:"P",XTYPE=4:"A",XTYPE=5:"H",1:"C") D ^PSGCAPIV
+"RTN","PSGCAP0",40,0)
+ I PSGMTYPE[3 S XTYPE=3,PST="S" D ^PSGCAPIV ;* Find syringe type iv
+"RTN","PSGCAP0",41,0)
+ I $D(^TMP($J,S1,PSGAPWDN,PN)) S ^(PN)=$P(PSJPSEX,"^",2)_"^"_$E($P(PSJPDOB,"^",2),1,10)_";"_PSJPAGE_"^"_VA("PID")_"^"_PSJPDX_"^"_$S(PSJPRB]"":PSJPRB,1:"*NF*")_"^"_$E($P(PSJPAD,"^",2),1,10)_"^"_$E($P(PSJPTD,"^",2),1,10)
+"RTN","PSGCAP0",42,0)
+ I S ^TMP($J,S1,PSGAPWDN,PN)=^(PN)_"^"_PSJPWT_"^"_PSJPWTD_"^"_PSJPHT_"^"_PSJPHTD_"^"_$P(PSGP(0),"^")
+"RTN","PSGCAP0",43,0)
+ Q
+"RTN","PSGCAP0",44,0)
+ ;
+"RTN","PSGCAP0",45,0)
+ENQ ; queued entry point
+"RTN","PSGCAP0",46,0)
+ N ALFLG,DCU,DRGI,DRGN,DRGT,KKA,HT,HTD,ON,PST,PSIVUP,PSJORIFN,QST,WTD,XTYPE
+"RTN","PSGCAP0",47,0)
+ K ^TMP($J) S STT=PSGAPSD-.0001,PSJACNWP=1 D @("P"_PSGSS),^PSGCAPP D ^%ZISC
+"RTN","PSGCAP0",48,0)
+ Q
+"RTN","PSGCAP0",49,0)
+ ;
+"RTN","PSGCAP0",50,0)
+PG ;
+"RTN","PSGCAP0",51,0)
+ I PSGAPWD="zz" D CLIN Q
+"RTN","PSGCAP0",52,0)
+ F PSGAPWD=0:0 S PSGAPWD=$O(^PS(57.5,"AC",PSGAPWG,PSGAPWD)) Q:'PSGAPWD I $D(^DIC(42,PSGAPWD,0)),$P(^(0),"^")]"" S PSGAPWDN=$P(^(0),"^") D PW
+"RTN","PSGCAP0",53,0)
+ Q
+"RTN","PSGCAP0",54,0)
+ ;
+"RTN","PSGCAP0",55,0)
+PW ;
+"RTN","PSGCAP0",56,0)
+ F PSGP=0:0 S PSGP=$O(^DPT("CN",PSGAPWDN,PSGP)) Q:'PSGP D PAT
+"RTN","PSGCAP0",57,0)
+ Q
+"RTN","PSGCAP0",58,0)
+ ;
+"RTN","PSGCAP0",59,0)
+PP ;
+"RTN","PSGCAP0",60,0)
+ F PSGP=0:0 S PSGP=$O(PSGPAT(PSGP)) Q:'PSGP S PSGAPWDN=$P($G(^DPT(PSGP,.1)),"^") S:PSGAPWDN]"" PSGAPWD=+$O(^DIC(42,"B",PSGAPWDN,0)) S:PSGAPWDN="" PSGAPWDN="zz" D PAT
+"RTN","PSGCAP0",61,0)
+ Q
+"RTN","PSGCAP0",62,0)
+ ;
+"RTN","PSGCAP0",63,0)
+PL S CL="" F S CL=$O(^PS(57.8,"AD",CG,CL)) Q:CL="" D PC
+"RTN","PSGCAP0",64,0)
+ Q
+"RTN","PSGCAP0",65,0)
+PC S PSGAPWDN=$S($D(^SC(CL,0)):$P(^(0),"^"),1:"")
+"RTN","PSGCAP0",66,0)
+ S PSGP="" F S PSGP=$O(^PS(53.1,"AD",CL,PSGP)) Q:PSGP="" D PAT
+"RTN","PSGCAP0",67,0)
+ N INDEX,APSTOP
+"RTN","PSGCAP0",68,0)
+ F INDEX="AIVC","AUDC" S APSTOP=0 F S APSTOP=$O(^PS(55,INDEX,APSTOP)) Q:'APSTOP D
+"RTN","PSGCAP0",69,0)
+ . S DFN=0 F S DFN=$O(^PS(55,INDEX,APSTOP,CL,DFN)) Q:'DFN I '$D(^TMP("PSGAP0",$J,"OUTPT",DFN)) S PSGP=DFN,Q=APSTOP,PSGAPWD="zz" D PAT
+"RTN","PSGCAP0",70,0)
+ Q
+"RTN","PSGCAP0",71,0)
+CLIN ;
+"RTN","PSGCAP0",72,0)
+ N INDEX,APSTOP,CLIN
+"RTN","PSGCAP0",73,0)
+ F INDEX="AIVC","AUDC" S APSTOP=0 F S APSTOP=$O(^PS(55,INDEX,APSTOP)) Q:'APSTOP S CLIN=0 F S CLIN=$O(^PS(55,INDEX,APSTOP,CLIN)) Q:'CLIN D
+"RTN","PSGCAP0",74,0)
+ . S DFN=0 F S DFN=$O(^PS(55,INDEX,APSTOP,CLIN,DFN)) Q:'DFN I '$D(^TMP("PSGAP0",$J,"OUTPT",DFN)) S PSGP=DFN,Q=APSTOP,PSGAPWD="zz" D PAT
+"RTN","PSGCAP0",75,0)
+ Q
+"RTN","PSGCAP0",76,0)
+ ;
+"RTN","PSGCAP0",77,0)
+SETPI(PSGP) ; Set Patient Information for clinic orders when run by Ward
+"RTN","PSGCAP0",78,0)
+ N PSJCLPIN D PSJAC2^PSJAC(1)
+"RTN","PSGCAP0",79,0)
+ S PSJCLPIN=$P($G(PSJPSEX),"^",2)_"^"_$E($P($G(PSJPDOB),"^",2),1,10)_";"_$G(PSJPAGE)_"^"_$G(VA("PID"))_"^"_$G(PSJPDX)_"^"_$S($G(PSJPRB)]"":$G(PSJPRB),1:"*NF*")
+"RTN","PSGCAP0",80,0)
+ Q PSJCLPIN_"^"_$E($P($G(PSJPAD),"^",2),1,10)_"^"_$E($P(PSJPTD,"^",2),1,10)_"^"_PSJPWT_"^"_PSJPWTD_"^"_PSJPHT_"^"_PSJPHTD_"^"_$P(PSGP(0),"^")
+"RTN","PSGCAP0",81,0)
+ENOR ;
+"RTN","PSGCAP0",82,0)
+ D ENCV^PSGSETU I $D(XQUIT) Q
+"RTN","PSGCAP0",83,0)
+ S (DFN,PSGP)=+ORVP D ^PSJAC S PSGPAT=PSGP,PSGPAT(DFN)="",(PSGAP,PSGAPWD,PSGAPWG)=0,(PSGAPWDN,PSGAPWGN)="",PSGSS="P" D ORS^PSGCAP S PSJNKF=1 D DONE^PSGCAP Q
+"RTN","PSGCAPP")
+0^1^B26437637^B20267187
+"RTN","PSGCAPP",1,0)
+PSGCAPP ;BIR/CML3-PRINT DATA FOR ACTION PROFILE ;05 Oct 98 / 10:21 AM
+"RTN","PSGCAPP",2,0)
+ ;;5.0;INPATIENT MEDICATIONS;**8,20,60,111,149,169,275,301**;16 DEC 97;Build 3
+"RTN","PSGCAPP",3,0)
+LOOP ;
+"RTN","PSGCAPP",4,0)
+ N PSJCLIN1
+"RTN","PSGCAPP",5,0)
+ D NOW^%DTC S PSGDT=%,PSGPDT=$$ENDTC2^PSGMI(PSGDT),CML=IO'=IO(0)!($E(IOST,1,2)'="C-")
+"RTN","PSGCAPP",6,0)
+ U IO I '$D(^TMP($J)) D G DONE
+"RTN","PSGCAPP",7,0)
+ .W:$Y @IOF W !?26,"UNIT DOSE ACTION PROFILE #2",?62,PSGPDT,!?10,"NO ",$S(PSGAPO="E":"EXPIRING",1:"ACTIVE")," ORDERS FOUND FOR ",$S(PSGSS="G":"WARD GROUP: "_PSGAPWGN,PSGSS="W":"WARD: "_PSGAPWDN,1:"PATIENT(S) SELECTED"),"."
+"RTN","PSGCAPP",8,0)
+ S (LN,LINE,ALN,S1,WD,PN)="",$P(LN,"_",19)="",$P(LINE,"-",81)="",$P(ALN," -",18)="",ALN=ALN_" A C T I V E"_ALN
+"RTN","PSGCAPP",9,0)
+ S PSGVAMC=$$SITE^PSGMMAR2(80)
+"RTN","PSGCAPP",10,0)
+ F S (PS1,S1,PSJTEAM)=$O(^TMP($J,S1)) Q:S1=""!$D(PSJDLW) S:S1="zz" (PS1,PSJTEAM)="NOT FOUND" F S WD=$O(^TMP($J,S1,WD)) Q:WD=""!$D(PSJDLW) D
+"RTN","PSGCAPP",11,0)
+ . F S PN=$O(^TMP($J,S1,WD,PN)) Q:PN=""!$D(PSJDLW) S PI=$G(^(PN)) S:PI="" PI=$G(^TMP($J,S1,"zz",PN)) S:((PI="")&$P($G(PN),"^",2)) PI=$$SETPI^PSGCAP0($P(PN,"^",2)) D H1
+"RTN","PSGCAPP",12,0)
+ ;
+"RTN","PSGCAPP",13,0)
+DONE ;PSJ*5*149 Add WD1 to killed variables.
+"RTN","PSGCAPP",14,0)
+ W:CML&($Y) @IOF K AD,ALN,CML,DF,LINE,LN,MF,N,PG,PI,PPN,PS1,PSGPDT,RCT,RF,PID,TD,WD,PSJDLW,PSGVAMC,WD1,PSJCNTR,PSJAMO Q
+"RTN","PSGCAPP",15,0)
+ ;
+"RTN","PSGCAPP",16,0)
+H1 ; first header for patient
+"RTN","PSGCAPP",17,0)
+ ; PSJ*5*149 Use WD1 to preserve value of WD
+"RTN","PSGCAPP",18,0)
+ N WD1
+"RTN","PSGCAPP",19,0)
+ I $P(WD,"^")="zz",($P(WD,"^",2)]"") I ($P(WD,"^",2)'=$P($G(PSJCLIN1),"^",2)) S PSJCLIN1=WD D
+"RTN","PSGCAPP",20,0)
+ .N MIDLEN,SIDLEN S MIDLEN=$L($P(PSJCLIN1,"^",2)) S SIDLEN=((81-MIDLEN)\2)
+"RTN","PSGCAPP",21,0)
+ .S (LN,LINE,ALN)="",$P(LN,"_",(SIDLEN\2))="",$P(LINE,"-",81)="",$P(ALN," -",(SIDLEN\2))="",ALN=ALN_$P(PSJCLIN1,"^",2)_ALN
+"RTN","PSGCAPP",22,0)
+ I $G(WD)="zz" S WD1=WD N WD S WD="*NF*"
+"RTN","PSGCAPP",23,0)
+ D ^PSGCAPP0
+"RTN","PSGCAPP",24,0)
+ S WD=$G(WD1,WD)
+"RTN","PSGCAPP",25,0)
+END ;
+"RTN","PSGCAPP",26,0)
+ S (ON,DRG)="" F S DRG=$O(^TMP($J,S1,WD,PN,DRG)) Q:DRG="" F S ON=$O(^TMP($J,S1,WD,PN,DRG,ON)) Q:ON="" S ND=^(ON),SI=$G(^(ON,1)) D NP:$Y+12>IOSL Q:$D(PSJDLW) D ORDP
+"RTN","PSGCAPP",27,0)
+ ; Check for orders in other locations for the same patient; ensure all of one patient's orders display in the same section of the report
+"RTN","PSGCAPP",28,0)
+ N WD2,PN2,DRG2,ON2 S WD2="" F S WD2=$O(^TMP($J,S1,WD2)) Q:WD2="" I WD2'=WD S PN2="" F S PN2=$O(^TMP($J,S1,WD2,PN2)) Q:PN2="" I PN2=PN S (WD2(WD2),DRG2)="" F S DRG2=$O(^TMP($J,S1,WD2,PN2,DRG2)) Q:DRG2="" D
+"RTN","PSGCAPP",29,0)
+ .S ON2="" F S ON2=$O(^TMP($J,S1,WD2,PN2,DRG2,ON2)) Q:ON2="" N WD,DRG,ON S WD=WD2,DRG=DRG2,ON=ON2 S ND=^(ON),SI=$G(^(ON,1)) D NP Q:$D(PSJDLW) D ORDP
+"RTN","PSGCAPP",30,0)
+ ; Remove the previously printed orders from the 'other' locations so they are not printed again later
+"RTN","PSGCAPP",31,0)
+ N TMPWD S TMPWD="" F S TMPWD=$O(WD2(TMPWD)) Q:TMPWD="" K ^TMP($J,S1,TMPWD,PN)
+"RTN","PSGCAPP",32,0)
+ Q:$D(PSJDLW)
+"RTN","PSGCAPP",33,0)
+ I $D(^PS(53.1,"AC",PSGP)) W !!?13,"******** THIS PATIENT HAS NON-VERIFIED ORDERS. ********"
+"RTN","PSGCAPP",34,0)
+ S DF=1 W:'$D(PSJDLW) !!?16,LN,?40,LN_LN,!?16,"Date AND Time",?40,"PROVIDER'S SIGNATURE"
+"RTN","PSGCAPP",35,0)
+ D:$Y+10>IOSL NP1 W:'$D(PSJDLW) !!!?10,"MULTIDISCIPLINARY REVIEW",!?16,"(WHEN APPROPRIATE)",?40,LN_LN,!?40,"PHARMACIST'S SIGNATURE"
+"RTN","PSGCAPP",36,0)
+ D:$Y+6>IOSL NP1 W:'$D(PSJDLW) !!?40,LN_LN,!?40,"NURSE'S SIGNATURE"
+"RTN","PSGCAPP",37,0)
+ ; PSJ*5*169 Standardize AMO section to 10 lines.
+"RTN","PSGCAPP",38,0)
+ N PSJCNTR,PSJAMO
+"RTN","PSGCAPP",39,0)
+ I IOSL-$Y>10 D
+"RTN","PSGCAPP",40,0)
+ . W !!?3,"ADDITIONAL MEDICATION ORDERS:"
+"RTN","PSGCAPP",41,0)
+ . F PSJCNTR=1:1:10 W !!,LINE S PSJAMO=0 I $Y+9>IOSL S PSJAMO=1 D NP1
+"RTN","PSGCAPP",42,0)
+ I W:'$D(PSJDLW) !!?16,LN,?40,LN_LN,!?16,"Date AND Time",?40,"PROVIDER'S SIGNATURE",!
+"RTN","PSGCAPP",43,0)
+ E F Q=$Y+5:1:IOSL-1 W !
+"RTN","PSGCAPP",44,0)
+ W:'$D(PSJDLW) !?2,PPN,?40,PID,?78-$L(PDOB),PDOB Q
+"RTN","PSGCAPP",45,0)
+ ;
+"RTN","PSGCAPP",46,0)
+ORDP ;
+"RTN","PSGCAPP",47,0)
+ S N=N+1 I ON["V" D PRT^PSGCAPIV(ON) Q
+"RTN","PSGCAPP",48,0)
+ N X,PSG S PSGP=$P(PN,U,2)
+"RTN","PSGCAPP",49,0)
+ D DRGDISP^PSJLMUT1(+PSGP,+ON_"U",39,69,.PSG,0)
+"RTN","PSGCAPP",50,0)
+ S SM=$P(ND,"^",5),NF=$P(ND,"^",6),DCU=$P(ND,"^",7),DCU=$S($E(DCU)=".":"0"_DCU,'DCU:"0.00",1:DCU) W !,$J(N,3)
+"RTN","PSGCAPP",51,0)
+ W ?5,PSG(1),?46,$P(DRG,"^"),?49,$P(ND,"^",2),?55,$P(ND,"^",3),?61,$P(ND,"^") I NF!SM!$P(ND,"^",4) W ?65 W:NF "NF " W:$P(ND,"^",4) "WS " W:SM $E("HSM",SM,3)
+"RTN","PSGCAPP",52,0)
+ N X F X=1:0 S X=$O(PSG(X)) Q:'X W !?5,PSG(X)
+"RTN","PSGCAPP",53,0)
+ I SI]"" W !?8,"Special Instructions: " F X=1:1:$L(SI," ") S Y=$P(SI," ",X) W:$X+$L(Y)>78 !?31 W Y," "
+"RTN","PSGCAPP",54,0)
+ORDP1 ;*** Also being called from ^PSGCAPIV. PSJ*5*169 Don't allow RENEW on one-time orders.
+"RTN","PSGCAPP",55,0)
+ W !!?5,"__TAKE NO ACTION __DISCONTINUE "_$S($P(DRG,"^")="O"!($G(QST)="O"):" ",1:"__RENEW")_" COST/DOSE: ",DCU,!?2,"------------------------------------------------------------------------",! Q
+"RTN","PSGCAPP",56,0)
+ ;
+"RTN","PSGCAPP",57,0)
+NP ;
+"RTN","PSGCAPP",58,0)
+ W:'$D(PSJDLW) !!?16,LN,?40,LN_LN,!?16,"Date AND Time",?40,"PROVIDER'S SIGNATURE"
+"RTN","PSGCAPP",59,0)
+ ;
+"RTN","PSGCAPP",60,0)
+NP1 ;
+"RTN","PSGCAPP",61,0)
+ Q:$D(PSJDLW)
+"RTN","PSGCAPP",62,0)
+ I $E(IOST,1)="C" K DIR S DIR(0)="E" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S PSJDLW=1 Q
+"RTN","PSGCAPP",63,0)
+ F Q=$Y:1:IOSL-4 W !
+"RTN","PSGCAPP",64,0)
+ I '$G(PG),$P($G(PI),"^",3) S (N,DF)=0,PSEX=$P(PI,"^"),PDOB=$P(PI,"^",2),PID=$P(PI,"^",3),RB=$P(PI,"^",5),AD=$P(PI,"^",6),TD=$P(PI,"^",7),WT=$P(PI,"^",8),WTD=$P(PI,"^",9),HT=$P(PI,"^",10),HTD=$P(PI,"^",11),PPN=$P(PI,"^",12),PSGP=$P(PN,"^",2) D
+"RTN","PSGCAPP",65,0)
+ .S PAGE=$P(PDOB,";",2),PDOB=$P(PDOB,";"),PG=1
+"RTN","PSGCAPP",66,0)
+ ;* S PG=PG+1 W !?2,PPN,?40,PID,?78-$L(PDOB),PDOB W:$Y @IOF W !?28,"UNIT DOSE ACTION PROFILE #2",?73-$L(PG),"Page: "_PG,!?1,PPN,?40,PID,?60,PDOB I DF W !!,LINE Q
+"RTN","PSGCAPP",67,0)
+ S PG=$G(PG)+1 W !?2,PPN,?40,PID,?78-$L(PDOB),PDOB W:$Y @IOF
+"RTN","PSGCAPP",68,0)
+ W !?26,"UNIT DOSE ACTION PROFILE #2",?73-$L(PG),"Page: "_PG
+"RTN","PSGCAPP",69,0)
+ W !?+PSGVAMC,$P(PSGVAMC,U,2)
+"RTN","PSGCAPP",70,0)
+ W !?1,PPN,?40,PID,?60,PDOB
+"RTN","PSGCAPP",71,0)
+ I DF D Q
+"RTN","PSGCAPP",72,0)
+ . I $G(PSJAMO)=1 W !!,"ADDITIONAL MEDICATION ORDERS (CONTINUED):",! Q
+"RTN","PSGCAPP",73,0)
+ . W !!,LINE
+"RTN","PSGCAPP",74,0)
+ ; Make sure orders always have correct profile heading - ACTIVE for Inpatient orders, clinic name for Clinic Orders
+"RTN","PSGCAPP",75,0)
+ I ($$CLINIC^PSJO1($P(PN,"^",2),+ON_"U")]"") N ALN S ALN="" S $P(ALN," -",18)="",ALN=ALN_$$CLINIC^PSJO1($P(PN,"^",2),+ON_"U")_ALN
+"RTN","PSGCAPP",76,0)
+ I ($$CLINIC^PSJO1($P(PN,"^",2),+ON_"U")=""),$G(PSJPWD) N ALN S ALN="" S $P(ALN," -",18)="",ALN=ALN_" A C T I V E"_ALN
+"RTN","PSGCAPP",77,0)
+ W !!," No. Action",?16,"Drug",?46,"ST Start Stop Status/Info",!,ALN
+"RTN","PSGCAPP",78,0)
+ Q
+"VER")
+8.0^22.0
+"BLD",9482,6)
+^251
+**END**
+**END**
diff --git a/Packages/Inpatient Medications/Patches/PSJ_5.0_301/PSJ-5_SEQ-251_PAT-301.TXT b/Packages/Inpatient Medications/Patches/PSJ_5.0_301/PSJ-5_SEQ-251_PAT-301.TXT
new file mode 100644
index 0000000..30dfb5b
--- /dev/null
+++ b/Packages/Inpatient Medications/Patches/PSJ_5.0_301/PSJ-5_SEQ-251_PAT-301.TXT
@@ -0,0 +1,136 @@
+$TXT Created by CREMEANS,THERESA at MNTVBB.FO-ALBANY.DOMAIN.EXT (KIDS) on Wednesday, 09/04/13 at 16:40
+=============================================================================
+Run Date: OCT 22, 2013 Designation: PSJ*5*301
+Package : PSJ - INPATIENT MEDICATIONS Priority: EMERGENCY
+Version : 5 SEQ #251 Status: Released
+ Compliance Date: OCT 31, 2013
+=============================================================================
+
+Associated patches: (v)PSJ*5*275 <<= must be installed BEFORE `PSJ*5*301'
+
+Subject: ACTION PROFILE #2 PROBLEM
+
+Category:
+ - Routine
+ - PATCH FOR A PATCH
+
+Description:
+============
+
+ This patch addresses an issue with the ACTION PROFILE #2 [PSJU AP-2]
+ report introduced by PSJ*5*275.
+
+ The change to the ACTION PROFILE #2 [PSJU AP-2] report in patch PSJ*5*275
+ caused the report to only print the first patient found, regardless of
+ how many patients should have printed, when the report was run by Ward or
+ Ward Group.
+
+ This patch corrects the report by ensuring all appropriate patients and
+ their orders print on the report when the report is run by Ward or Ward
+ Group.
+
+ Note:
+ ----
+ Sites should ensure that the following patches are installed in this
+ order:
+
+ 1. PSJ*5.0*275
+ 2. PSJ*5.0*292
+ 3. PSJ*5.0*301
+
+ Associated NSR(s):
+ =================
+ N/A
+
+ Associated Remedy Tickets:
+ =========================
+ INC00000901088 - Patient medication report is not capturing all the data
+
+ Participating Test Sites:
+ ========================
+ Durham VAMC
+ Northern California HCS
+ Oklahoma City VAMC
+ Western New York HCS
+
+
+ Remedy Ticket Overview:
+ ======================
+ INC00000901088
+
+ Problem:
+ --------
+ The Unit Dose Action Profile #2 report is not showing all patient medications.
+ The report should be showing all patients and all medications, according to
+ the option chosen, for the given time period. Instead it is only showing the
+ first patient it comes to and nothing else.
+
+ Resolution:
+ -----------
+ Routines PSGCAPP and PSGCAP0 were modified to ensure all data for the given
+ time frame and option are displayed on the report.
+
+
+ Installation Instructions:
+ ==========================
+
+ ** Please note that sites should make sure that these patches are
+ installed in this order:
+
+ 1. PSJ*5.0*275
+ 2. PSJ*5.0*292
+ 3. PSJ*5.0*301
+
+ This patch may be installed while Pharmacy users are on the system.
+ Installation of this patch should take less than 5 minutes.
+
+ 1. Choose the PackMan message containing this patch.
+
+ 2. Choose the INSTALL/CHECK MESSAGE PackMan option.
+
+ 3. From the Kernel Installation and Distribution System Menu, select
+ the Installation Menu. From this menu, you may elect to use the
+ following option. When prompted for the INSTALL enter PSJ*5.0*301.
+
+ a. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DD's or templates.
+ b. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this patch
+ is installed. It compares all components of this patch
+ (routines, DD's, templates, etc.).
+
+ 4. From the Installation Menu, select the Install Package(s) option and
+ choose the patch to install.
+
+ 5. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
+ NO//', press <enter>.
+
+ 6. When prompted 'Want to DISABLE Scheduled Options, Menu Options,
+ and Protocols? NO//', press <enter>.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;5.0;INPATIENT MEDICATIONS;**[Patch List]**;16 DEC 97;Build 3
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: PSGCAP0
+ Before: B23579520 After: B30223671 **8,58,111,149,275,301**
+Routine Name: PSGCAPP
+ Before: B20267187 After: B26437637 **8,20,60,111,149,169,275,301**
+
+=============================================================================
+User Information:
+Entered By : CREMEANS,THERESA Date Entered : AUG 30, 2013
+Completed By: WERNER,GARY Date Completed: OCT 17, 2013
+Released By : MIAN,NAEEM Date Released : OCT 22, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_432/.gitignore b/Packages/Integrated Billing/Patches/IB_2.0_432/.gitignore
new file mode 100644
index 0000000..ce6a8ef
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_432/.gitignore
@@ -0,0 +1 @@
+IB-2_SEQ-421_PAT-432.KID
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_445/.gitignore b/Packages/Integrated Billing/Patches/IB_2.0_445/.gitignore
new file mode 100644
index 0000000..a0f6f27
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_445/.gitignore
@@ -0,0 +1 @@
+IBRC1101C.TXT
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_462/.gitignore b/Packages/Integrated Billing/Patches/IB_2.0_462/.gitignore
new file mode 100644
index 0000000..0cd63f5
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_462/.gitignore
@@ -0,0 +1 @@
+IBRC1110C.TXT
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_468/.gitignore b/Packages/Integrated Billing/Patches/IB_2.0_468/.gitignore
new file mode 100644
index 0000000..8c28506
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_468/.gitignore
@@ -0,0 +1 @@
+IBRC1201C.TXT
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_484/.gitignore b/Packages/Integrated Billing/Patches/IB_2.0_484/.gitignore
new file mode 100644
index 0000000..e9cd49b
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_484/.gitignore
@@ -0,0 +1 @@
+IBRC1210C.TXT
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_491/.gitignore b/Packages/Integrated Billing/Patches/IB_2.0_491/.gitignore
new file mode 100644
index 0000000..41f0e59
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_491/.gitignore
@@ -0,0 +1,2 @@
+IBRC1301C.TXT
+IBRC1301C.TXTs.TXT
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_508/.gitignore b/Packages/Integrated Billing/Patches/IB_2.0_508/.gitignore
new file mode 100644
index 0000000..24ef191
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_508/.gitignore
@@ -0,0 +1 @@
+IBRC1310C.TXT
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_508/IB-2_SEQ-460_PAT-508.KIDS b/Packages/Integrated Billing/Patches/IB_2.0_508/IB-2_SEQ-460_PAT-508.KIDS
new file mode 100644
index 0000000..6a0f6e1
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_508/IB-2_SEQ-460_PAT-508.KIDS
@@ -0,0 +1,730 @@
+Released IB*2*508 SEQ #460
+Extracted from mail message
+**KIDS**:IB*2.0*508^
+
+**INSTALL NAME**
+IB*2.0*508
+"BLD",9487,0)
+IB*2.0*508^INTEGRATED BILLING^0^3130918^y
+"BLD",9487,1,0)
+^^1^1^3130918^
+"BLD",9487,1,1,0)
+Reasonable Charges v3.13
+"BLD",9487,4,0)
+^9.64PA^^
+"BLD",9487,6)
+^440
+"BLD",9487,6.3)
+20
+"BLD",9487,"ABPKG")
+n
+"BLD",9487,"INIT")
+POST^IBYP508
+"BLD",9487,"KRN",0)
+^9.67PA^779.2^20
+"BLD",9487,"KRN",.4,0)
+.4
+"BLD",9487,"KRN",.401,0)
+.401
+"BLD",9487,"KRN",.402,0)
+.402
+"BLD",9487,"KRN",.403,0)
+.403
+"BLD",9487,"KRN",.5,0)
+.5
+"BLD",9487,"KRN",.84,0)
+.84
+"BLD",9487,"KRN",3.6,0)
+3.6
+"BLD",9487,"KRN",3.8,0)
+3.8
+"BLD",9487,"KRN",9.2,0)
+9.2
+"BLD",9487,"KRN",9.8,0)
+9.8
+"BLD",9487,"KRN",9.8,"NM",0)
+^9.68A^1^1
+"BLD",9487,"KRN",9.8,"NM",1,0)
+IBCRHBRV^^0^B48157732
+"BLD",9487,"KRN",9.8,"NM","B","IBCRHBRV",1)
+
+"BLD",9487,"KRN",19,0)
+19
+"BLD",9487,"KRN",19,"NM",0)
+^9.68A^^
+"BLD",9487,"KRN",19.1,0)
+19.1
+"BLD",9487,"KRN",101,0)
+101
+"BLD",9487,"KRN",409.61,0)
+409.61
+"BLD",9487,"KRN",771,0)
+771
+"BLD",9487,"KRN",779.2,0)
+779.2
+"BLD",9487,"KRN",870,0)
+870
+"BLD",9487,"KRN",8989.51,0)
+8989.51
+"BLD",9487,"KRN",8989.52,0)
+8989.52
+"BLD",9487,"KRN",8994,0)
+8994
+"BLD",9487,"KRN","B",.4,.4)
+
+"BLD",9487,"KRN","B",.401,.401)
+
+"BLD",9487,"KRN","B",.402,.402)
+
+"BLD",9487,"KRN","B",.403,.403)
+
+"BLD",9487,"KRN","B",.5,.5)
+
+"BLD",9487,"KRN","B",.84,.84)
+
+"BLD",9487,"KRN","B",3.6,3.6)
+
+"BLD",9487,"KRN","B",3.8,3.8)
+
+"BLD",9487,"KRN","B",9.2,9.2)
+
+"BLD",9487,"KRN","B",9.8,9.8)
+
+"BLD",9487,"KRN","B",19,19)
+
+"BLD",9487,"KRN","B",19.1,19.1)
+
+"BLD",9487,"KRN","B",101,101)
+
+"BLD",9487,"KRN","B",409.61,409.61)
+
+"BLD",9487,"KRN","B",771,771)
+
+"BLD",9487,"KRN","B",779.2,779.2)
+
+"BLD",9487,"KRN","B",870,870)
+
+"BLD",9487,"KRN","B",8989.51,8989.51)
+
+"BLD",9487,"KRN","B",8989.52,8989.52)
+
+"BLD",9487,"KRN","B",8994,8994)
+
+"BLD",9487,"QDEF")
+^^^^^^^^^^YES
+"BLD",9487,"QUES",0)
+^9.62^^
+"BLD",9487,"REQB",0)
+^9.611^1^1
+"BLD",9487,"REQB",1,0)
+IB*2.0*491^2
+"BLD",9487,"REQB","B","IB*2.0*491",1)
+
+"INIT")
+POST^IBYP508
+"MBREQ")
+0
+"PKG",200,-1)
+1^1
+"PKG",200,0)
+INTEGRATED BILLING^IB^INTEGRATED BILLING
+"PKG",200,20,0)
+^9.402P^1^1
+"PKG",200,20,1,0)
+2^^IBAXDR
+"PKG",200,20,1,1)
+
+"PKG",200,20,"B",2,1)
+
+"PKG",200,22,0)
+^9.49I^1^1
+"PKG",200,22,1,0)
+2.0^2940321^2990406^2447
+"PKG",200,22,1,"PAH",1,0)
+508^3130918
+"PKG",200,22,1,"PAH",1,1,0)
+^^1^1^3130918
+"PKG",200,22,1,"PAH",1,1,1,0)
+Reasonable Charges v3.13
+"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")
+YES
+"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","IBCRHBRV")
+0^1^B48157732^B47845055
+"RTN","IBCRHBRV",1,0)
+IBCRHBRV ;ALB/ARH - RATES: UPLOAD (RC) VERSION FUNCTIONS ; 14-FEB-01
+"RTN","IBCRHBRV",2,0)
+ ;;2.0;INTEGRATED BILLING;**148,169,245,270,285,298,325,334,355,360,365,382,390,408,412,423,427,439,445,462,468,484,491,508**;21-MAR-94;Build 20
+"RTN","IBCRHBRV",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","IBCRHBRV",4,0)
+ ;
+"RTN","IBCRHBRV",5,0)
+ ; RC functions related to Version. Update VLIST with new versions. Update FTYPE if new types of files.
+"RTN","IBCRHBRV",6,0)
+ ;
+"RTN","IBCRHBRV",7,0)
+SELVERS() ; get version to upload from user
+"RTN","IBCRHBRV",8,0)
+ N DIR,DIRUT,DTOUT,DUOUT,IBVLIST,IBQUIT,IBVERS,IBI,IBJ,IBX,X,Y
+"RTN","IBCRHBRV",9,0)
+ ;
+"RTN","IBCRHBRV",10,0)
+ S IBVLIST=$$VERSTR(),IBQUIT=0,IBVERS=0
+"RTN","IBCRHBRV",11,0)
+ ;
+"RTN","IBCRHBRV",12,0)
+ W !!,"Select the version of Reasonable Charges to upload."
+"RTN","IBCRHBRV",13,0)
+ S DIR("?",1)="Enter the code from the list corresponding to the version of Reasonable Charges"
+"RTN","IBCRHBRV",14,0)
+ S DIR("?",2)="to upload. There are no version 1.3, 2.2, or 2.10 (ten) RC charges." S DIR("?",3)=" "
+"RTN","IBCRHBRV",15,0)
+ S DIR("?",4)="Versions: "_IBVLIST S DIR("?",5)=" " S DIR("?")="Enter version number to upload."
+"RTN","IBCRHBRV",16,0)
+ ;
+"RTN","IBCRHBRV",17,0)
+ F IBI=1:1 D I +IBQUIT Q
+"RTN","IBCRHBRV",18,0)
+ . W !!,?5,"Select one of the following:",!
+"RTN","IBCRHBRV",19,0)
+ . F IBJ=1:1 S IBX=$P(IBVLIST,",",IBJ) Q:'IBX W !,?10,IBX,?20,"Reasonable Charges version ",IBX
+"RTN","IBCRHBRV",20,0)
+ . ;
+"RTN","IBCRHBRV",21,0)
+ . W ! S DIR("A")="Enter Version" S DIR(0)="FO^1:5" D ^DIR I $D(DIRUT) S IBQUIT=1
+"RTN","IBCRHBRV",22,0)
+ . I Y>0,(","_IBVLIST_",")[(","_Y_",") S IBVERS=Y,IBQUIT=1 W " Reasonable Charges version ",IBVERS
+"RTN","IBCRHBRV",23,0)
+ ;
+"RTN","IBCRHBRV",24,0)
+ Q IBVERS
+"RTN","IBCRHBRV",25,0)
+ ;
+"RTN","IBCRHBRV",26,0)
+VERSION() ; return currently loaded version of RC files (1, 1.1, ...)
+"RTN","IBCRHBRV",27,0)
+ N IBX S IBX=$G(^XTMP("IBCR RC SITE","VERSION"))
+"RTN","IBCRHBRV",28,0)
+ Q IBX
+"RTN","IBCRHBRV",29,0)
+ ;
+"RTN","IBCRHBRV",30,0)
+VERSDT(VERS) ; return Effective Date of a version of RC files, either version passed in or currently loaded version
+"RTN","IBCRHBRV",31,0)
+ N IBI,LINE,IBX S IBX="" S VERS=+$G(VERS) I 'VERS S VERS=$$VERSION
+"RTN","IBCRHBRV",32,0)
+ I +VERS F IBI=1:1 S LINE=$P($T(VLIST+IBI),";;",2,99) Q:'LINE I VERS=+LINE S IBX=$P(LINE,U,3)
+"RTN","IBCRHBRV",33,0)
+ Q IBX
+"RTN","IBCRHBRV",34,0)
+ ;
+"RTN","IBCRHBRV",35,0)
+VERSEDT(VERS) ; return Inactive Date of a version of RC files, either version passed in or currently loaded version
+"RTN","IBCRHBRV",36,0)
+ N IBI,LINE,IBX S IBX="" S VERS=+$G(VERS) I 'VERS S VERS=$$VERSION
+"RTN","IBCRHBRV",37,0)
+ I +VERS F IBI=1:1 S LINE=$P($T(VLIST+IBI),";;",2,99) Q:'LINE I VERS=+LINE S IBX=$P(LINE,U,4)
+"RTN","IBCRHBRV",38,0)
+ Q IBX
+"RTN","IBCRHBRV",39,0)
+ ;
+"RTN","IBCRHBRV",40,0)
+VERSALL() ; return all RC versions and corresponding effective date 'VERS;EFFDT^VERS;EFFDT^...'
+"RTN","IBCRHBRV",41,0)
+ N IBI,LINE,IBX,IBC S IBX="",IBC=""
+"RTN","IBCRHBRV",42,0)
+ F IBI=1:1 S LINE=$P($T(VLIST+IBI),";;",2,99) Q:'LINE S IBX=IBX_IBC_+LINE_";"_$P(LINE,U,3),IBC=U
+"RTN","IBCRHBRV",43,0)
+ Q IBX
+"RTN","IBCRHBRV",44,0)
+ ;
+"RTN","IBCRHBRV",45,0)
+VERSEND() ; return all RC versions and corresponding inactive date 'VERS;INACTIVE DT^VERS;INACTIVE DT^...'
+"RTN","IBCRHBRV",46,0)
+ N IBI,LINE,IBX,IBC S IBX="",IBC=""
+"RTN","IBCRHBRV",47,0)
+ F IBI=1:1 S LINE=$P($T(VLIST+IBI),";;",2,99) Q:'LINE I $P(LINE,U,4) S IBX=IBX_IBC_+LINE_";"_$P(LINE,U,4),IBC=U
+"RTN","IBCRHBRV",48,0)
+ Q IBX
+"RTN","IBCRHBRV",49,0)
+ ;
+"RTN","IBCRHBRV",50,0)
+VERSITE(SITE) ; returns the list of versions loaded for a particular site
+"RTN","IBCRHBRV",51,0)
+ ; *** uses 99201 in the RC PHYSICIAN set to check which versions/dates are loaded
+"RTN","IBCRHBRV",52,0)
+ ; *** so 99201 must have a pro charge in all versions, if not it must be replaced with an item that does
+"RTN","IBCRHBRV",53,0)
+ N IBCS,IBXRF,IBITM,IBVERS,IBCSFN,IBI,IBV,IBX,IBY,IBC
+"RTN","IBCRHBRV",54,0)
+ S IBVERS=$$VERSALL,IBITM=99201
+"RTN","IBCRHBRV",55,0)
+ ;
+"RTN","IBCRHBRV",56,0)
+ I $G(SITE)'="" S IBCS="RC-PHYSICIAN" F S IBCS=$O(^IBE(363.1,"B",IBCS)) Q:IBCS'["RC-PHYSICIAN" D
+"RTN","IBCRHBRV",57,0)
+ . S IBV=$L(IBCS," ") I $P(IBCS," ",IBV)'=SITE Q
+"RTN","IBCRHBRV",58,0)
+ . S IBCSFN=$O(^IBE(363.1,"B",IBCS,0)) Q:'IBCSFN S IBXRF="AIVDTS"_IBCSFN
+"RTN","IBCRHBRV",59,0)
+ . F IBI=1:1 S IBV=$P(IBVERS,U,IBI) Q:'IBV I $O(^IBA(363.2,IBXRF,IBITM,-$P(IBV,";",2),0)) S IBY(+IBV)=""
+"RTN","IBCRHBRV",60,0)
+ ;
+"RTN","IBCRHBRV",61,0)
+ S (IBX,IBC)="" F IBI=1:1 S IBV=+$P(IBVERS,U,IBI) Q:'IBV I $D(IBY(IBV)) S IBX=IBX_IBC_IBV S IBC=","
+"RTN","IBCRHBRV",62,0)
+ ;
+"RTN","IBCRHBRV",63,0)
+ Q IBX
+"RTN","IBCRHBRV",64,0)
+ ;
+"RTN","IBCRHBRV",65,0)
+MSGSITE(SITE) ; display a message indicating which versions are loaded for a site
+"RTN","IBCRHBRV",66,0)
+ N IBVERS Q:'$G(SITE)
+"RTN","IBCRHBRV",67,0)
+ S IBVERS=$$VERSITE(SITE)
+"RTN","IBCRHBRV",68,0)
+ I 'IBVERS W !!,?12,"There appear to be no RC charges already loaded for "_SITE_"."
+"RTN","IBCRHBRV",69,0)
+ I +IBVERS W !!,?12,"RC versions "_IBVERS_" appear to be already loaded for "_SITE_"."
+"RTN","IBCRHBRV",70,0)
+ Q
+"RTN","IBCRHBRV",71,0)
+ ;
+"RTN","IBCRHBRV",72,0)
+MSGVERS(SITE) ; check if versions are being loaded in the correct order, should be loaded in date order
+"RTN","IBCRHBRV",73,0)
+ ; - if loading a version that has already been loaded for the site
+"RTN","IBCRHBRV",74,0)
+ ; - if loading a version when any future versions have already been loaded for the site
+"RTN","IBCRHBRV",75,0)
+ ; - if loading a version when the last version has not yet been loaded for the site
+"RTN","IBCRHBRV",76,0)
+ ; *** uses 99201 in the RC PHYSICIAN set to check which versions/dates are loaded
+"RTN","IBCRHBRV",77,0)
+ ; *** so 99201 must have a pro charge in all versions, if not it must be replaced with an item that does
+"RTN","IBCRHBRV",78,0)
+ N IBVERS,IBVDTC,IBVERSIN,IBVERSC,IBVERSO,IBI,VERSTR Q:'$G(SITE)
+"RTN","IBCRHBRV",79,0)
+ ;
+"RTN","IBCRHBRV",80,0)
+ S IBVERS=$$VERSION Q:'IBVERS S IBVDTC=$$VERSDT,IBVERSIN=","_$$VERSITE(SITE)_",",IBVERSC=","_IBVERS_","
+"RTN","IBCRHBRV",81,0)
+ ;
+"RTN","IBCRHBRV",82,0)
+ ; check if loading a version that has already been loaded
+"RTN","IBCRHBRV",83,0)
+ I IBVERSIN[IBVERSC D
+"RTN","IBCRHBRV",84,0)
+ . W !!,?5,"*** It appears version RC v",IBVERS," has already been loaded for this site ***"
+"RTN","IBCRHBRV",85,0)
+ ;
+"RTN","IBCRHBRV",86,0)
+ ; check if loading a version when any future versions have already been loaded
+"RTN","IBCRHBRV",87,0)
+ S VERSTR=","_$$VERSTR()_",",VERSTR=$P(VERSTR,IBVERSC,2) ; all versions after current version
+"RTN","IBCRHBRV",88,0)
+ F IBI=1:1 S IBVERSO=$P(VERSTR,",",IBI) Q:'IBVERSO I IBVERSIN[(","_IBVERSO_",") D
+"RTN","IBCRHBRV",89,0)
+ . W !!,?5,">>> Currently trying to load RC v"_IBVERS_" but RC v"_IBVERSO_" appears to be already",!,?9,"loaded for this site. The versions should be loaded in date order."
+"RTN","IBCRHBRV",90,0)
+ ;
+"RTN","IBCRHBRV",91,0)
+ ; check if loading a version when the last version has not yet been loaded
+"RTN","IBCRHBRV",92,0)
+ S VERSTR=","_$$VERSTR(1)_",",VERSTR=$P(VERSTR,IBVERSC,2) ; all versions before current version, reverse order
+"RTN","IBCRHBRV",93,0)
+ S IBVERSO=$P(VERSTR,",",1) I +IBVERSO,IBVERSIN'[(","_IBVERSO_",") D
+"RTN","IBCRHBRV",94,0)
+ . W !!,?5,"*** Currently trying to load RC v"_IBVERS_" but RC v"_IBVERSO_" does not appear to be",!,?9,"loaded for this site. The versions should be loaded in date order."
+"RTN","IBCRHBRV",95,0)
+ . W !!,?5,">>> Continue only if there will never be a need to bill events before ",!,?9,$$FMTE^XLFDT(IBVDTC,2)," for this site. If RC v"_IBVERSO_" will be needed for this site then",!,?9,"load it first."
+"RTN","IBCRHBRV",96,0)
+ ;
+"RTN","IBCRHBRV",97,0)
+ Q
+"RTN","IBCRHBRV",98,0)
+ ;
+"RTN","IBCRHBRV",99,0)
+VERSTR(RVRS) ; returns string containing list of all Reasonable Charges versions with charges, separated by ","
+"RTN","IBCRHBRV",100,0)
+ ; RVRS - if set, returns the list of versions in reverse order
+"RTN","IBCRHBRV",101,0)
+ N IBI,LINE,IBS,IBR,IBC,IBX S (IBS,IBR,IBC,IBX)=""
+"RTN","IBCRHBRV",102,0)
+ F IBI=1:1 S LINE=$P($T(VLIST+IBI),";;",2,99) Q:'LINE S IBS=IBS_IBC_+LINE,IBR=+LINE_IBC_IBR S IBC=","
+"RTN","IBCRHBRV",103,0)
+ S IBX=IBS I +$G(RVRS) S IBX=IBR
+"RTN","IBCRHBRV",104,0)
+ Q IBX
+"RTN","IBCRHBRV",105,0)
+ ;
+"RTN","IBCRHBRV",106,0)
+ ;
+"RTN","IBCRHBRV",107,0)
+ ;
+"RTN","IBCRHBRV",108,0)
+ ;
+"RTN","IBCRHBRV",109,0)
+ ;
+"RTN","IBCRHBRV",110,0)
+ ; File Names: 'IBRCyymmx.TXT' w/ yymm - year month of version release (except v1)
+"RTN","IBCRHBRV",111,0)
+ ; 'IBRCyymm', file version identifier prefix, from VLIST text version description
+"RTN","IBCRHBRV",112,0)
+ ; x=A-I/F, single character file identifier, from FTYPE text file description
+"RTN","IBCRHBRV",113,0)
+ ;
+"RTN","IBCRHBRV",114,0)
+FILES(IBFILES,VERS) ; returns array of source Host Files and data for version requested, pass IBFILES by reference
+"RTN","IBCRHBRV",115,0)
+ N IBI,LINE,IBTYPE,IBFILE,IBNAME,IBDESC S VERS=+$G(VERS) I 'VERS S VERS=1
+"RTN","IBCRHBRV",116,0)
+ ;
+"RTN","IBCRHBRV",117,0)
+ ; get requested versions data
+"RTN","IBCRHBRV",118,0)
+ F IBI=1:1 S LINE=$P($T(VLIST+IBI),";;",2,99) Q:'LINE I VERS=+LINE S IBTYPE=$P(LINE,U,2),IBFILE=$P(LINE,U,5) Q
+"RTN","IBCRHBRV",119,0)
+ ;
+"RTN","IBCRHBRV",120,0)
+ ; get requested versions files
+"RTN","IBCRHBRV",121,0)
+ I +$G(IBTYPE) F IBI=1:1 S LINE=$P($T(@("FT"_IBTYPE)+IBI),";;",2,99) Q:LINE="" D
+"RTN","IBCRHBRV",122,0)
+ . S IBNAME=IBFILE_$P(LINE,":",1)_".TXT",IBDESC="RC v"_+VERS_" "_$P(LINE,":",2,99)
+"RTN","IBCRHBRV",123,0)
+ . S IBFILES(IBNAME)=IBDESC
+"RTN","IBCRHBRV",124,0)
+ Q
+"RTN","IBCRHBRV",125,0)
+ ;
+"RTN","IBCRHBRV",126,0)
+ ;
+"RTN","IBCRHBRV",127,0)
+ ; versions and their critical data, add new versions here
+"RTN","IBCRHBRV",128,0)
+VLIST ; version ^ file type/version ^ effective date ^ inactive date ^ file prefix
+"RTN","IBCRHBRV",129,0)
+ ;;1.0^1^2990901^3001101^IBRCV
+"RTN","IBCRHBRV",130,0)
+ ;;1.1^1^3001102^3010507^IBRC0011
+"RTN","IBCRHBRV",131,0)
+ ;;1.2^1^3010508^3030428^IBRC0105
+"RTN","IBCRHBRV",132,0)
+ ;;1.4^1^3030429^3031218^IBRC0304
+"RTN","IBCRHBRV",133,0)
+ ;;2.0^2^3031219^3040414^IBRC0312
+"RTN","IBCRHBRV",134,0)
+ ;;2.1^2^3040415^3041231^IBRC0404
+"RTN","IBCRHBRV",135,0)
+ ;;2.3^2^3050101^3050410^IBRC0501
+"RTN","IBCRHBRV",136,0)
+ ;;2.4^2^3050411^3050930^IBRC0504
+"RTN","IBCRHBRV",137,0)
+ ;;2.5^2^3051001^3051231^IBRC0510
+"RTN","IBCRHBRV",138,0)
+ ;;2.6^2^3060101^3060824^IBRC0601
+"RTN","IBCRHBRV",139,0)
+ ;;2.7^2^3060825^3060930^IBRC0608
+"RTN","IBCRHBRV",140,0)
+ ;;2.8^2^3061001^3061231^IBRC0610
+"RTN","IBCRHBRV",141,0)
+ ;;2.9^2^3070101^3070930^IBRC0701
+"RTN","IBCRHBRV",142,0)
+ ;;2.11^2^3071001^3071231^IBRC0710
+"RTN","IBCRHBRV",143,0)
+ ;;3.1^2^3080101^3080930^IBRC0801
+"RTN","IBCRHBRV",144,0)
+ ;;3.2^2^3081001^3081231^IBRC0810
+"RTN","IBCRHBRV",145,0)
+ ;;3.3^2^3090101^3090930^IBRC0901
+"RTN","IBCRHBRV",146,0)
+ ;;3.4^2^3091001^3091231^IBRC0910
+"RTN","IBCRHBRV",147,0)
+ ;;3.5^2^3100101^3100930^IBRC1001
+"RTN","IBCRHBRV",148,0)
+ ;;3.6^2^3101001^3101231^IBRC1010
+"RTN","IBCRHBRV",149,0)
+ ;;3.7^2^3110101^3110930^IBRC1101
+"RTN","IBCRHBRV",150,0)
+ ;;3.8^2^3111001^3111231^IBRC1110
+"RTN","IBCRHBRV",151,0)
+ ;;3.9^2^3120101^3120930^IBRC1201
+"RTN","IBCRHBRV",152,0)
+ ;;3.11^2^3121001^3121231^IBRC1210
+"RTN","IBCRHBRV",153,0)
+ ;;3.12^2^3130101^3130930^IBRC1301
+"RTN","IBCRHBRV",154,0)
+ ;;3.13^2^3131001^^IBRC1310
+"RTN","IBCRHBRV",155,0)
+ ;
+"RTN","IBCRHBRV",156,0)
+ ;
+"RTN","IBCRHBRV",157,0)
+ ;
+"RTN","IBCRHBRV",158,0)
+ ;
+"RTN","IBCRHBRV",159,0)
+ ;
+"RTN","IBCRHBRV",160,0)
+ ;
+"RTN","IBCRHBRV",161,0)
+ ;
+"RTN","IBCRHBRV",162,0)
+FTYPE ; file type/versions and relevant data
+"RTN","IBCRHBRV",163,0)
+ ; file identifer is used with XTMP subscript 'IBCR RC ' and routine label to parse file
+"RTN","IBCRHBRV",164,0)
+ ; file identifier : file name/description ^ file identifier ^ number of columns (for v2+)
+"RTN","IBCRHBRV",165,0)
+ ;
+"RTN","IBCRHBRV",166,0)
+FT1 ; Reasonable Charge File Type 1 files
+"RTN","IBCRHBRV",167,0)
+ ;;A:Inpatient Facility Charges^A
+"RTN","IBCRHBRV",168,0)
+ ;;B:Inpatient Facility Area Factors^B
+"RTN","IBCRHBRV",169,0)
+ ;;C:Outpatient Facility Charges^C
+"RTN","IBCRHBRV",170,0)
+ ;;D:Outpatient Facility Area Factors^D
+"RTN","IBCRHBRV",171,0)
+ ;;E:Physician Charges E^E
+"RTN","IBCRHBRV",172,0)
+ ;;F:Physician Charges F^F
+"RTN","IBCRHBRV",173,0)
+ ;;G:Physician Charges G^G
+"RTN","IBCRHBRV",174,0)
+ ;;H:Physician Area Factors^H
+"RTN","IBCRHBRV",175,0)
+ ;;I:Physician Unit Area Factors^I
+"RTN","IBCRHBRV",176,0)
+ ;;
+"RTN","IBCRHBRV",177,0)
+ ;
+"RTN","IBCRHBRV",178,0)
+FT2 ; Reasonable Charges File Type 2 files
+"RTN","IBCRHBRV",179,0)
+ ;;A:Inpatient Facility Charges^A^10
+"RTN","IBCRHBRV",180,0)
+ ;;B:Outpatient Facility Charges^B^14
+"RTN","IBCRHBRV",181,0)
+ ;;C:Professional Charges^C^23
+"RTN","IBCRHBRV",182,0)
+ ;;D:Service Category Codes^D^4
+"RTN","IBCRHBRV",183,0)
+ ;;E:Area Factors^E^41
+"RTN","IBCRHBRV",184,0)
+ ;;F:VA Sites and Zip Codes^F^4
+"RTN","IBCRHBRV",185,0)
+ ;;
+"RTN","IBYP508")
+0^^B8381759^n/a
+"RTN","IBYP508",1,0)
+IBYP508 ;ALB/CXW - IB*2.0*508 POST INIT: REASONABLE CHARGES V3.13; 16-SEP-2013
+"RTN","IBYP508",2,0)
+ ;;2.0;INTEGRATED BILLING;**508**;21-MAR-94;Build 20
+"RTN","IBYP508",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","IBYP508",4,0)
+ ;
+"RTN","IBYP508",5,0)
+ ;
+"RTN","IBYP508",6,0)
+ Q
+"RTN","IBYP508",7,0)
+ ;
+"RTN","IBYP508",8,0)
+POST ;
+"RTN","IBYP508",9,0)
+ N IBA
+"RTN","IBYP508",10,0)
+ S IBA(1)="",IBA(2)=" Reasonable Charges v3.13 Post-Install .....",IBA(3)="" D MES^XPDUTL(.IBA) K IBA
+"RTN","IBYP508",11,0)
+ ;
+"RTN","IBYP508",12,0)
+ D CHGINA("") ; inactivate all RC charges in #363.2
+"RTN","IBYP508",13,0)
+ ;
+"RTN","IBYP508",14,0)
+ S IBA(1)="",IBA(2)=" Reasonable Charges v3.13 Post-Install Complete",IBA(3)="" D MES^XPDUTL(.IBA) K IBA
+"RTN","IBYP508",15,0)
+ ;
+"RTN","IBYP508",16,0)
+ Q
+"RTN","IBYP508",17,0)
+ ;
+"RTN","IBYP508",18,0)
+ ;
+"RTN","IBYP508",19,0)
+ ;
+"RTN","IBYP508",20,0)
+CHGINA(VERS) ; inactive charges from previous versions of Reasonable Charges
+"RTN","IBYP508",21,0)
+ ; VERS = version to begin inactivations with (1, 1.1, 1.2, ...)
+"RTN","IBYP508",22,0)
+ ; - Inactive date added is the first RC Version Inactive date after the effective date of the charge
+"RTN","IBYP508",23,0)
+ ; - if the charge already has an inactive date less than the Version Inactive Date then no change is made
+"RTN","IBYP508",24,0)
+ ;
+"RTN","IBYP508",25,0)
+ N IBA,IBI,IBX,IBSTART,IBENDATE,IBCS,IBCS0,IBBR0,IBXRF,IBITM,IBNEF,IBCI,IBCI0,IBCIEF,IBCIIA,IBNEWIA
+"RTN","IBYP508",26,0)
+ N DD,DO,DLAYGO,DIC,DIE,DA,DR,X,Y,IBCNT S IBCNT=0
+"RTN","IBYP508",27,0)
+ ;
+"RTN","IBYP508",28,0)
+ S IBA(1)=" >> Inactivating Existing Reasonable Charges, Please Wait..." D MES^XPDUTL(.IBA) K IBA
+"RTN","IBYP508",29,0)
+ ;
+"RTN","IBYP508",30,0)
+ S IBSTART="" I $G(VERS)'="" S IBSTART=$$VERSDT^IBCRHBRV(VERS)
+"RTN","IBYP508",31,0)
+ S IBENDATE=$$VERSEND^IBCRHBRV
+"RTN","IBYP508",32,0)
+ ;
+"RTN","IBYP508",33,0)
+ S IBCS=0 F S IBCS=$O(^IBE(363.1,IBCS)) Q:'IBCS D
+"RTN","IBYP508",34,0)
+ . S IBCS0=$G(^IBE(363.1,IBCS,0)) Q:IBCS0=""
+"RTN","IBYP508",35,0)
+ . S IBBR0=$G(^IBE(363.3,+$P(IBCS0,U,2),0)) I $E(IBBR0,1,3)'="RC " Q
+"RTN","IBYP508",36,0)
+ . ;
+"RTN","IBYP508",37,0)
+ . S IBXRF="AIVDTS"_IBCS
+"RTN","IBYP508",38,0)
+ . S IBITM=0 F S IBITM=$O(^IBA(363.2,IBXRF,IBITM)) Q:'IBITM D
+"RTN","IBYP508",39,0)
+ .. S IBNEF="" F S IBNEF=$O(^IBA(363.2,IBXRF,IBITM,IBNEF)) Q:IBNEF="" Q:-IBNEF<IBSTART D
+"RTN","IBYP508",40,0)
+ ... ;
+"RTN","IBYP508",41,0)
+ ... S IBCI=0 F S IBCI=$O(^IBA(363.2,IBXRF,IBITM,IBNEF,IBCI)) Q:'IBCI D
+"RTN","IBYP508",42,0)
+ .... S IBCI0=$G(^IBA(363.2,IBCI,0)) Q:IBCI0=""
+"RTN","IBYP508",43,0)
+ .... S IBCIEF=$P(IBCI0,U,3),IBCIIA=$P(IBCI0,U,4),IBNEWIA=""
+"RTN","IBYP508",44,0)
+ .... ;
+"RTN","IBYP508",45,0)
+ .... F IBI=2:1 S IBX=+$P(IBENDATE,";",IBI) S IBNEWIA=IBX Q:'IBX Q:IBCIEF'>IBX
+"RTN","IBYP508",46,0)
+ .... ;
+"RTN","IBYP508",47,0)
+ .... I 'IBNEWIA Q
+"RTN","IBYP508",48,0)
+ .... I +IBCIIA,IBCIIA'>IBNEWIA Q
+"RTN","IBYP508",49,0)
+ .... ;
+"RTN","IBYP508",50,0)
+ .... S DR=".04///"_+IBNEWIA,DIE="^IBA(363.2,",DA=+IBCI D ^DIE K DIE,DIC,DA,DR,X,Y S IBCNT=IBCNT+1
+"RTN","IBYP508",51,0)
+ ;
+"RTN","IBYP508",52,0)
+ S IBA(1)=" Done. "_IBCNT_" existing charges inactivated " D MES^XPDUTL(.IBA) K IBA
+"RTN","IBYP508",53,0)
+ Q
+"RTN","IBYP508",54,0)
+ ;
+"RTN","IBYP508",55,0)
+ ;
+"RTN","IBYP508",56,0)
+ ;
+"RTN","IBYP508",57,0)
+MCCRUTL(X,P) ; returns IFN of item in 399.1 if Name is found and piece P is true
+"RTN","IBYP508",58,0)
+ N IBX,IBY S IBY=""
+"RTN","IBYP508",59,0)
+ I $G(X)'="" S IBX=0 F S IBX=$O(^DGCR(399.1,"B",X,IBX)) Q:'IBX I $P($G(^DGCR(399.1,IBX,0)),U,+$G(P)) S IBY=IBX
+"RTN","IBYP508",60,0)
+ Q IBY
+"RTN","IBYP508",61,0)
+ ;
+"RTN","IBYP508",62,0)
+MSG(X) ;
+"RTN","IBYP508",63,0)
+ N IBX S IBX=$O(IBA(999999),-1) S:'IBX IBX=1 S IBX=IBX+1
+"RTN","IBYP508",64,0)
+ S IBA(IBX)=$G(X)
+"RTN","IBYP508",65,0)
+ Q
+"VER")
+8.0^22.0
+"BLD",9487,6)
+^460
+**END**
+**END**
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_508/IB-2_SEQ-460_PAT-508.TXT b/Packages/Integrated Billing/Patches/IB_2.0_508/IB-2_SEQ-460_PAT-508.TXT
new file mode 100644
index 0000000..34be2ca
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_508/IB-2_SEQ-460_PAT-508.TXT
@@ -0,0 +1,665 @@
+$TXT Created by WANG,CHI at MNTVBB.FO-ALBANY.DOMAIN.EXT (KIDS) on Wednesday, 09/18/13 at 15:30
+=============================================================================
+Run Date: NOV 12, 2013 Designation: IB*2*508
+Package : IB - INTEGRATED BILLING Priority: Mandatory
+Version : 2 SEQ #460 Status: Released
+ Compliance Date: NOV 27, 2013
+=============================================================================
+
+Associated patches: (v)IB*2*491 <<= must be installed BEFORE `IB*2*508'
+
+Subject: REASONABLE CHARGES V3.13
+
+Category:
+ - Enhancement (Mandatory)
+ - Routine
+
+Description:
+============
+
+ *************************************************************************
+
+ Implementation of Reasonable Charges v3.13 is a two step process:
+
+ 1. Installation of this patch. This will inactivate Reasonable
+ Charges v3.12 charges with an inactive date of 09/30/13. (See
+ Installation Instructions.)
+
+ 2. Uploading the Reasonable Charges v3.13 charges. This will load new
+ charges with an effective date of 10/01/13 and needs to be done
+ immediately after the patch install.
+
+ PLEASE NOTE: If possible, it is recommended that you install the
+ LEXICON UTILITY patch LEX*2.0*93 - Code Set FY14 First Qtr Update patch
+ before this one.
+
+ PLEASE NOTE: There is a shortened Compliance Date for this patch.
+
+ *************************************************************************
+
+ Reasonable Charges version 3.13 is a charge update to the existing
+ Reasonable Charges billed to Third Party Payers. The primary update with
+ this patch is to the charges, which will be implemented when the new
+ RC v3.13 charges are uploaded (step 2).
+
+ This version of Reasonable Charges implements the following charge changes:
+ - Contains new DRG charges and new SNF charges.
+ - All charges have their effective date updated to 10/01/13.
+
+ Effective Date of Reasonable Charges v3.13 is 10/01/2013.
+
+ Inactive Date of Reasonable Charges v3.12 is 09/30/2013.
+
+ Reasonable Charges v3.12 loaded on your system will be inactivated with
+ an inactivation date of 09/30/2013 when this patch is installed.
+
+ Reasonable Charges v3.13 with an effective date of 10/01/13 will be
+ loaded on your system when the charges are uploaded as described below.
+
+ ASSOCIATED REMEDY TICKET:
+ =========================
+ 1. INC000000908438 Reasonable Charges V3.13
+
+ ASSOCIATED NSR(s):
+ ==================
+ N/A
+
+ PARTICIPATING TEST SITES:
+ =========================
+ Bay Pines VA Healthcare System
+ James A. Haley Veterans' Hospital - Tampa
+
+ REMEDY OVERVIEW:
+ ================
+ 1. INC000000908438 Reasonable Charges V3.13
+
+ Problem:
+ --------
+ Changes in the national DRG rates need to be distributed to all
+ hospitals so that proper billing can take place.
+
+ Resolution:
+ -----------
+ This patch updates the Reasonable Charges files and distributes
+ them with a new version number and a new effective date.
+
+ Technical Description
+ =====================
+ This patch exports 2 routines, one of which is the post-init (IBYP508).
+
+ The post-init will inactivate all existing Reasonable Charges defined in the
+ Charge Master. Reasonable Charges v3.12 will be inactivated with an
+ inactivation date of 09/30/13 when this patch is installed.
+
+ The following is an example of the post-init portion of the installation:
+
+ Reasonable Charges v3.13 Post-Install .....
+
+ >> Inactivating Existing Reasonable Charges, Please Wait...
+
+ Done. 46811 existing charges inactivated
+
+ Reasonable Charges v3.13 Post-Install Complete
+
+
+ Note: The actual number of charges inactivated will vary based on the
+ number of divisions billed at your site. This will also determine the
+ time required for the installation.
+
+ INSTALLATION INSTRUCTIONS
+ =========================
+ If installed during the normal workday, it is recommended that the
+ following selection(s) in the OPTION (#19) file be disabled to prevent
+ possible conflicts while running the KIDS Install. Other VISTA users will
+ not be affected.
+
+ Enter/Edit Billing Information [IB EDIT BILLING INFO]
+ Enter/Edit Charge Master [IBCR DISPLAY CHARGE MASTER]
+
+ Install Time - less than 30 minutes - but will vary from site to site
+ depending on the size of the Charge Item (#363.2) file - which is searched
+ for charges to inactivate in the Post-Init.
+
+ Loading the Charge Master with the new RC v3.13 charges is separate from
+ the patch installation and will take additional time per division.
+
+ 1. LOAD TRANSPORT GLOBAL
+ ---------------------
+ Choose the PackMan message containing this patch and invoke the
+ INSTALL/CHECK MESSAGE PackMan option.
+
+ 2. START UP KIDS
+ -------------
+ Start up the Kernel Installation and Distribution System Menu
+ [XPD MAIN]:
+
+ Edits and Distribution ...
+ Utilities ...
+ Installation ...
+ Select Kernel Installation & Distribution System Option: INStallation
+ ---
+ Load a Distribution
+ Print Transport Global
+ Compare Transport Global to Current System
+ Verify Checksums in Transport Global
+ Install Package(s)
+ Restart Install of Package(s)
+ Unload a Distribution
+ Backup a Transport Global
+
+ 3. Select Installation Option:
+ ---------------------------
+ NOTE: The following are OPTIONAL - (When prompted for the INSTALL
+ NAME, enter IB*2.0*508):
+
+ a. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DD's or templates.
+ b. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this patch
+ is installed. It compares all components of this patch
+ (routines, DD's, templates, etc.).
+ c. Verify Checksums in Transport Global - This option will allow
+ you to ensure the integrity of the routines that are in the
+ transport global.
+
+
+ 4. Select Installation Option: Install Package(s)
+ ------------------
+ **This is the step to start the installation of this KIDS patch:
+
+ a. Choose the Install Package(s) option to start the patch install.
+
+ b. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
+ NO//' answer NO
+
+ c. When prompted 'Want to DISABLE Scheduled Options, Menu Options,
+ and Protocols? YES//' answer YES
+
+ d. When prompted 'Enter options you wish to mark as 'Out Of
+ Order':' Enter the following options:
+
+ Enter/Edit Billing Information [IB EDIT BILLING INFO]
+ Enter/Edit Charge Master [IBCR DISPLAY CHARGE MASTER]
+
+ e. When prompted 'Enter protocols you wish to mark as 'Out Of
+ Order':' press <return>.
+
+ 5. CLEAN UP POST INIT ROUTINE
+ --------------------------
+ Optional - Once this patch has been successfully installed you may
+ delete the post init routine: IBYP508
+
+ 6. UPLOAD REASONABLE CHARGES V3.13
+ ------------------------------
+ Follow instructions below: RC v3.13 Upload Instructions
+
+ ********************** RC v3.13 Upload Instructions **********************
+
+ After patch installation, the Reasonable Charges v3.13 charges will need
+ to be loaded into the Charge Master for each division billed at the site.
+
+ The charges for each Division will require approximately 1.8 - 2.0 MB of
+ disk space. Other files will be searched, but the new charges will be
+ added to the Charge Item file (#363.2).
+
+
+ Files Required for Upload:
+ --------------------------
+ The charge files are available on the following CIO Field Offices'
+ Anonymous.Software directories. Use the appropriate FTP capability to
+ retrieve the files (ASCII).
+
+
+ OI FIELD OFFICE FTP ADDRESS DIRECTORY
+ =============== =========== =========
+ ALBANY ftp.fo-albany.domain.ext anonymous.software
+ HINES ftp.fo-hines.domain.ext anonymous.software
+ SALT LAKE ftp.fo-slc.domain.ext anonymous.software
+ FIRST AVAILABLE SERVER download.vista.domain.ext anonymous.software
+
+
+ The Reasonable Charge v3.13 Host Files, effective 10/01/13: (ASCII)
+ IBRC1310A.TXT Inpatient Facility Charges (DRG)
+ IBRC1310B.TXT Facility Charge (CPT)
+ IBRC1310C.TXT Physician Charges (CPT)
+ IBRC1310D.TXT Service Category Codes
+ IBRC1310E.TXT Area Factors
+ IBRC1310F.TXT Site Identification
+
+ Upload Instructions:
+ ====================
+
+ Step 1: Get Host Files
+ -----------------------
+ Retrieve the 6 Reasonable Charges v3.13 Host Files in ASCII format (see
+ previous section).
+
+ Step 2: Determine Divisions
+ ----------------------------
+ Use the Print Charge Master [IBCR REPORTS FOR CHARGE MASTER] option and
+ print the Billing Regions report to find which Billing Regions and
+ Divisions have charges loaded onto your system. These are the divisions
+ that will need new charges loaded.
+
+ Step 3: Begin Upload Process
+ -----------------------------
+ Use the Load Host File into Charge Master [IBCR HOST FILE LOAD] option
+ to load Reasonable Charges onto your system for every division for which
+ care is billed at your site. Carefully follow the instructions below, for
+ each Billing Region.
+
+ You will see the prompt:
+
+ Select one of the following:
+ 1.1 Load CMAC into XTMP
+ 1.2 Load AWP into XTMP
+ 1.3 Load RC into XTMP
+ 1.4 Load TP into XTMP
+ 2 Assign Charge Set
+ 3 Check Data Validity
+ 4 Load into Charge Master
+ 5 Delete XTMP files
+
+ Below, in more detail, the steps will guide you through the process of
+ selecting first 1.3, then 3, then 4, and waiting until 4 stops before
+ continuing on to the next division (and capturing or printing all output
+ for future reference).
+
+ Step 4: Load the Reasonable Charges
+ ------------------------------------
+ From the menu, select option 1.3 - Load RC into XTMP
+
+ This loads the Host Files into temporary storage and calculates charges
+ for individual Divisions.
+
+ - If there are no previously existing host files loaded, it will ask
+ which version of Reasonable Charges to load.
+ Select 3.13
+
+ - When loading Reasonable Charges v3.13 the IBRC1310x.TXT files may be
+ used for multiple divisions without reloading.
+
+ - If there exists any previously calculated charges (files) for a
+ division, they will be displayed, and you will get the prompt:
+
+ The above files already exist in XTMP.
+ Delete the above files and continue with upload?
+ Select Yes, to delete the previously calculated charges.
+
+ - If there exist any previously loaded host files for any RC version,
+ they will be displayed, and it will ask if they should be deleted.
+ Select No, if the files are IBRC1310x.TXT since these are the
+ correct files for v3.13, they may be re-used for multiple divisions.
+ Select Yes only if the files are from a different version.
+
+ - Select Division: Select the division number to load charges for.
+ This should correspond to the Divisions associated with the Billing
+ Regions determined previously. Once the correct division is
+ selected, answer Yes to Calculate Charges.
+
+ Step 5: Check Data Validity
+ ---------------------------
+ From the menu, select option 3 - Check Data Validity.
+ This is optional, but it is suggested that it be run at least once, for
+ the first division loaded.
+
+ The following Procedures are now inactive and will show as line errors on
+ this report, these may be ignored: C1879, C9366 and Q2046.
+
+ If the resulting report has any Line Data Errors, then check that the
+ latest version of CPT and DRG has been installed. The Error key at the end
+ of the report does not mean that errors have occurred. It simply provides
+ definitions of the types of errors that might occur. Check the individual
+ line items in the report to see if any of the listed errors have been
+ detected.
+
+ Step 6: Load into Charge Master
+ -------------------------------
+ From the menu, select option 4 - Load into Charge Master
+ Moves the charges calculated in selection 1.3 to permanent storage in the
+ Charge Master. The results report should match the examples below.
+
+ It is important that this option completes before continuing. Allow the
+ upload of a division's charges to finish before attempting to upload
+ another division. A summary report will be printed when the upload is
+ complete. This option uses the same temporary files to calculate the
+ charges for all divisions, therefore they must be calculated and loaded
+ serially.
+
+ Step 7: Repeat steps 4-6 for each Division needed
+ -------------------------------------------------
+ Steps 4-6 must be repeated for each division billed at your site. Refer
+ to the Divisions that already have charges assigned using the Billing
+ Region Report list determined previously.
+
+ In most cases, simply using the above options for loading Reasonable
+ Charges will result in the correct set up in the Charge Master.
+
+ - Option 1.3, to calculate charges for a division
+ - Option 4, to load those calculated charges into the Charge Master
+ permanent files.
+
+ However, if you are loading charges for a new site, or a site that may
+ have changed its division number, then extra care is needed to ensure
+ the setup of the Charge Master is correct. The following sections provide
+ examples of displays and reports for the upload.
+
+ ================= Reasonable Charges v3.13 Upload Details ================
+
+ The Charge Host Files should load with the following counts:
+
+ The following files were created in XTMP, they will be purged in 2 days:
+ ------------------------------------------------------------------------
+ IBRC1310A.TXT RC v3.13 Host File Upload, 9/17/13 at 17:31 by WANG,CHI 750
+ IBRC1310B.TXT RC v3.13 Host File Upload, 9/17/13 at 17:31 by WANG,CHI 6408
+ IBRC1310C.TXT RC v3.13 Host File Upload, 9/17/13 at 17:31 by WANG,CHI 17178
+ IBRC1310D.TXT RC v3.13 Host File Upload, 9/17/13 at 17:31 by WANG,CHI 30
+ IBRC1310E.TXT RC v3.13 Host File Upload, 9/17/13 at 17:31 by WANG,CHI 917
+ IBRC1310F.TXT RC v3.13 Host File Upload, 9/17/13 at 17:31 by WANG,CHI 1139
+
+ Any division that provides Inpatient Care should result in a summary with
+ the following counts:
+
+ IBCR UPLOAD RC 402 TOGUS, ME Count = 53002
+ IB Upload RC v3.13 402 TOGUS, ME, 9/18/13 at 15:37 by WANG,CHI
+
+ Subfile Item Count Charge Set
+ ------- ---- ----- -------------------------
+ 1 Inpt Fac 1 CPT 24 RC-INPT FAC PR 402
+ 2 Inpt Fac 2 CPT 6 RC-INPT FAC HR 402
+ 3 Inpt Fac 4 CPT 5 RC-INPT FAC ML 402
+ 4 Inpt Fac/Phys 1 CPT 3679 RC-INPT FAC PR 402
+ 5 Inpt PD Anc DRG 749 RC-INPT ANC 402
+ 6 Inpt PD Anc ICU DRG 749 RC-INPT ANC ICU 402
+ 7 Inpt PD R&B DRG 749 RC-INPT R&B 402
+ 8 Inpt PD R&B ICU DRG 749 RC-INPT R&B ICU 402
+ 9 Inpt Phys 1 CPT 7814 RC-PHYSICIAN INPT PR 402
+ 10 Inpt Phys 3 CPT 274 RC-PHYSICIAN INPT MN 402
+ 11 Opt Fac 1 CPT 6396 RC-OPT FAC PR 402
+ 12 Opt Fac 2 CPT 6 RC-OPT FAC HR 402
+ 13 Opt Fac 4 CPT 5 RC-OPT FAC ML 402
+ 14 Opt Fac/Phys 1 CPT 6187 RC-OPT FAC PR 402
+ 15 Opt PD PHosp MISCE 1 RC-OPT MISC 402
+ 16 Opt Phys 1 CPT 6205 RC-PHYSICIAN OPT PR 402
+ 17 Opt Phys 3 CPT 214 RC-PHYSICIAN OPT MN 402
+ 18 SNF Fac 1 CPT 6037 RC-SNF FAC PR 402
+ 19 SNF Fac 2 CPT 6 RC-SNF FAC HR 402
+ 20 SNF Fac 4 CPT 5 RC-SNF FAC ML 402
+ 21 SNF Fac/Phys 1 CPT 5030 RC-SNF FAC PR 402
+ 22 SNF PD INC BEDSE 2 RC-SNF INC 402
+ 23 SNF Phys 1 CPT 7836 RC-PHYSICIAN SNF PR 402
+ 24 SNF Phys 3 CPT 274 RC-PHYSICIAN SNF MN 402
+
+
+ IB Upload Summary Report of Charge Items Loaded into the Charge Master
+ --------------------------------------------------------------------------
+ IBCR UPLOAD RC 402 TOGUS, ME
+
+ Inpt Fac 1 24 of 24 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 24 entries added to the Charge Set RC-INPT FAC PR 402.
+
+
+ Inpt Fac 2 6 of 6 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 6 entries added to the Charge Set RC-INPT FAC HR 402.
+
+
+ Inpt Fac 4 5 of 5 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 5 entries added to the Charge Set RC-INPT FAC ML 402.
+
+
+ Inpt Fac/Phys 1 3679 of 3679 records checked, 0 duplicates, 0 with $=0
+ 1 line/data errors or warnings found for a .03% error rate.
+ 3678 entries added to the Charge Set RC-INPT FAC PR 402.
+
+ 39374 = C1879^3131001^^218.26^^ Line/Data Error: Not a valid active Item in source file
+
+ Inpt PD Anc 749 of 749 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 749 entries added to the Charge Set RC-INPT ANC 402.
+
+
+ Inpt PD Anc ICU 749 of 749 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 749 entries added to the Charge Set RC-INPT ANC ICU 402.
+
+
+ Inpt PD R&B 749 of 749 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 749 entries added to the Charge Set RC-INPT R&B 402.
+
+
+ Inpt PD R&B ICU 749 of 749 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 749 entries added to the Charge Set RC-INPT R&B ICU 402.
+
+
+ Inpt Phys 1 7814 of 7814 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 7814 entries added to the Charge Set RC-PHYSICIAN INPT PR 402.
+
+ Inpt Phys 3 274 of 274 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 274 entries added to the Charge Set RC-PHYSICIAN INPT MN 402.
+
+ Opt Fac 1 6396 of 6396 records checked, 0 duplicates, 0 with $=0
+ 2 line/data errors or warnings found for a .03% error rate.
+ 6394 entries added to the Charge Set RC-OPT FAC PR 402.
+
+ 14332 = C9366^3131001^^376.3^^ Line/Data Error: Not a valid active Item in source file
+ 15030 = Q2046^3131001^^1539.5^^ Line/Data Error: Not a valid active Item in source file
+
+ Opt Fac 2 6 of 6 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 6 entries added to the Charge Set RC-OPT FAC HR 402.
+
+
+ Opt Fac 4 5 of 5 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 5 entries added to the Charge Set RC-OPT FAC ML 402.
+
+
+ Opt Fac/Phys 1 6187 of 6187 records checked, 0 duplicates, 0 with $=0
+ 1 line/data errors or warnings found for a .02% error rate.
+ 6186 entries added to the Charge Set RC-OPT FAC PR 402.
+
+ 39376 = C1879^3131001^^218.26^^ Line/Data Error: Not a valid active Item in source file
+
+ Opt PD PHosp 1 of 1 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 1 entries added to the Charge Set RC-OPT MISC 402.
+
+
+ Opt Phys 1 6205 of 6205 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 6205 entries added to the Charge Set RC-PHYSICIAN OPT PR 402
+ .
+
+
+ Opt Phys 3 214 of 214 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 214 entries added to the Charge Set RC-PHYSICIAN OPT MN 402.
+
+
+ SNF Fac 1 6037 of 6037 records checked, 0 duplicates, 0 with $=0
+ 2 line/data errors or warnings found for a .03% error rate.
+ 6035 entries added to the Charge Set RC-SNF FAC PR 402.
+
+ 14331 = C9366^3131001^^376.3^^ Line/Data Error: Not a valid active Item in source file
+
+ 15029 = Q2046^3131001^^1539.5^^ Line/Data Error: Not a valid active Item in source file
+
+ SNF Fac 2 6 of 6 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 6 entries added to the Charge Set RC-SNF FAC HR 402.
+
+
+ SNF Fac 4 5 of 5 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 5 entries added to the Charge Set RC-SNF FAC ML 402.
+
+
+ SNF Fac/Phys 1 5030 of 5030 records checked, 0 duplicates, 0 with $=0
+ 1 line/data errors or warnings found for a .02% error rate.
+ 5029 entries added to the Charge Set RC-SNF FAC PR 402.
+
+ 39375 = C1879^3131001^^218.26^^ Line/Data Error: Not a valid active Item in source file
+
+ SNF PD INC 2 of 2 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 2 entries added to the Charge Set RC-SNF INC 402.
+
+
+ SNF Phys 1 7836 of 7836 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 7836 entries added to the Charge Set RC-PHYSICIAN SNF PR 402.
+
+
+ SNF Phys 3 274 of 274 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 274 entries added to the Charge Set RC-PHYSICIAN SNF MN 402.
+
+ Any Provider based division that provides Outpatient Care Only should
+ result in a summary with the following counts:
+
+ IBCR UPLOAD RC 402GE AUBURN, ME Count = 19014
+ IB Upload RC v3.13 402GE AUBURN, ME, 9/18/13 at 16:07 by WANG,CHI
+
+ Subfile Item Count Charge Set
+ ------- ---- ----- -------------------------
+ 1 Opt Fac 1 CPT 6396 RC-OPT FAC PR 402GE
+ 2 Opt Fac 2 CPT 6 RC-OPT FAC HR 402GE
+ 3 Opt Fac 4 CPT 5 RC-OPT FAC ML 402GE
+ 4 Opt Fac/Phys 1 CPT 6187 RC-OPT FAC PR 402GE
+ 5 Opt PD PHosp MISCE 1 RC-OPT MISC 402GE
+ 6 Opt Phys 1 CPT 6205 RC-PHYSICIAN OPT PR 402GE
+ 7 Opt Phys 3 CPT 214 RC-PHYSICIAN OPT MN 402GE
+
+
+ IB Upload Summary Report of Charge Items Loaded into the Charge Master
+ --------------------------------------------------------------------------
+ IBCR UPLOAD RC 402GE AUBURN, ME
+
+ Opt Fac 1 6396 of 6396 records checked, 0 duplicates, 0 with $=0
+ 2 line/data errors or warnings found for a .03% error rate.
+ 6394 entries added to the Charge Set RC-OPT FAC PR 402GE.
+
+ 5654 = C9366^3131001^^388.44^^ Line/Data Error: Not a valid active Item in source file
+ 6163 = Q2046^3131001^^1589.16^^ Line/Data Error: Not a valid active Item in source file
+
+ Opt Fac 2 6 of 6 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 6 entries added to the Charge Set RC-OPT FAC HR 402GE.
+
+
+ Opt Fac 4 5 of 5 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 5 entries added to the Charge Set RC-OPT FAC ML 402GE.
+
+
+ Opt Fac/Phys 1 6187 of 6187 records checked, 0 duplicates, 0 with $=0
+ 1 line/data errors or warnings found for a .02% error rate.
+ 6186 entries added to the Charge Set RC-OPT FAC PR 402GE.
+
+ 14113 = C1879^3131001^^191.69^^ Line/Data Error: Not a valid active Item in source file
+
+ Opt PD PHosp 1 of 1 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 1 entries added to the Charge Set RC-OPT MISC 402GE.
+
+
+ Opt Phys 1 6205 of 6205 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 6205 entries added to the Charge Set RC-PHYSICIAN OPT PR 402GE.
+
+
+ Opt Phys 3 214 of 214 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 214 entries added to the Charge Set RC-PHYSICIAN OPT MN 402GE.
+
+
+ Any division with Non-Provider Based Freestanding Care should result in a
+ summary with the following counts:
+
+ IBCR UPLOAD RC 402GA CARIBOU, ME Count = 17372
+ IB Upload RC v3.13 402GA CARIBOU, ME, 9/18/13 at 15:57 by WANG,CHI
+
+ Subfile Item Count Charge Set
+ ------- ---- ----- -------------------------
+ 1 FS Phys 1 CPT 16829 RC-PHYSICIAN FS PR 402GA
+ 2 FS Phys 3 CPT 274 RC-PHYSICIAN FS MN 402GA
+ 3 FS Phys/Add 00 1 CPT 2 RC-PHYSICIAN FS PR 402GA
+ 4 FS Phys/Opt 1 CPT 260 RC-PHYSICIAN FS PR 402GA
+ 5 FS Phys/Opt 4 CPT 5 RC-PHYSICIAN FS ML 402GA
+ 6 FS Phys/Opt TC 1 CPT 2 RC-PHYSICIAN FS PR 402GA
+
+
+ IB Upload Summary Report of Charge Items Loaded into the Charge Master
+ --------------------------------------------------------------------------
+ IBCR UPLOAD RC 402GA CARIBOU, ME
+
+ FS Phys 1 16829 of 16829 records checked, 0 duplicates, 0 with $=0
+ 2 line/data errors or warnings found for a .01% error rate.
+ 16827 entries added to the Charge Set RC-PHYSICIAN FS PR 402GA.
+
+ 11848 = C1879^3131001^^172.71^^ Line/Data Error: Not a valid active Item in source file
+ 16633 = Q2046^3131001^^2011.28^^ Line/Data Error: Not a valid active Item in source file
+
+ FS Phys 3 274 of 274 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 274 entries added to the Charge Set RC-PHYSICIAN FS MN 402GA.
+
+
+ FS Phys/Add 00 1 2 of 2 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 2 entries added to the Charge Set RC-PHYSICIAN FS PR 402GA.
+
+
+ FS Phys/Opt 1 260 of 260 records checked, 0 duplicates, 0 with $=0
+ 1 line/data errors or warnings found for a .38% error rate.
+ 259 entries added to the Charge Set RC-PHYSICIAN FS PR 402GA.
+
+ 185 = C9366^3131001^^370.23^^ Line/Data Error: Not a valid active Item in source file
+
+ FS Phys/Opt 4 5 of 5 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 5 entries added to the Charge Set RC-PHYSICIAN FS ML 402GA.
+
+
+ FS Phys/Opt TC 1 2 of 2 records checked, 0 duplicates, 0 with $=0
+ 0 line/data errors or warnings found for a 0% error rate.
+ 2 entries added to the Charge Set RC-PHYSICIAN FS PR 402GA.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;2.0;INTEGRATED BILLING;**[Patch List]**;21-MAR-94;Build 20
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: IBCRHBRV
+ Before: B47845055 After: B48157732 **148,169,245,270,285,298,325,
+ 334,355,360,365,382,390,408,
+ 412,423,427,439,445,462,468,
+ 484,491,508**
+Routine Name: IBYP508
+ Before: n/a After: B8381759 **508**
+
+Routine list of preceding patches: 491
+
+=============================================================================
+User Information:
+Entered By : WANG,CHI Date Entered : SEP 16, 2013
+Completed By: DAWSON,TIM Date Completed: NOV 04, 2013
+Released By : CAULFIELD,MARY Date Released : NOV 12, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310A.TXT b/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310A.TXT
new file mode 100644
index 0000000..6af7329
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310A.TXT
@@ -0,0 +1 @@
+Version 3.13 - Inpatient Facility Charge Table,,,,,,,,,,,,,,,,Item Code,Code Type,Description,Charge Type Indicator,Standard Room and Board Per Diem,Standard Ancillary Charge Per Diem,ICU Room and Board Per Diem,ICU Ancillary Charge Per Diem,Start Date001,DRG,HEART TRANSPLANT OR IMPLANT OF HEART ASSIST SYSTEM W MCC,S,"$3,316.73 ","$24,369.04 ","$6,424.89 ","$24,369.04 ",20131001002,DRG,HEART TRANSPLANT OR IMPLANT OF HEART ASSIST SYSTEM W/O MCC,S,"$3,169.70 ","$27,901.18 ","$6,352.76 ","$ [...]
\ No newline at end of file
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310B.TXT b/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310B.TXT
new file mode 100644
index 0000000..23107e4
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310B.TXT
@@ -0,0 +1 @@
+Version 3.13 Update - Outpatient Facility,,,,,,,,,,,,,,,,,,,,,,,,,,Item Code,Code Type,Description,Modifier,Service Category Code,Multiple Surgery Indicator,Primary/Pass-Through Indicator,Unit Charge,Base Charge,Unit Type,Inpatient Indicator,Skilled Nursing Facility Indicator,Start Date,End Date10021,CPT,FINE NEEDLE ASPIRATION W/O IMAGING GUIDANCE,,30,,,$677.58,$0.00,1,0,1,20131001,10022,CPT,FINE NEEDLE ASPIRATION WITH IMAGING GUIDANCE,,30,,,"$1,863.54",$0.00,1,0,1,20131001,10040,CPT,ACN [...]
\ No newline at end of file
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310C.TXT.sha1 b/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310C.TXT.sha1
new file mode 100644
index 0000000..e4cc588
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310C.TXT.sha1
@@ -0,0 +1 @@
+12a6493cd59881827b802fbd48b0c152ee5dc34a
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310D.TXT b/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310D.TXT
new file mode 100644
index 0000000..733019a
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310D.TXT
@@ -0,0 +1 @@
+Professional Services and Supplies Conversion Factors,,,,,,Service Category Code,Service Category Description,Conversion Factor,Area Factor Column Indicator1,Allergy Immunotherapy,$110.29,102,Allergy Testing,$94.41,113,Anesthesia,$127.75,124,Cardiovascular,$189.52,135,Chiropractor,$68.68,146,Consults,$96.16,157,Emergency Room Visits,$183.10,168,Hearing/Speech Exams,$94.45,179,Immunizations,$63.80,1810,Inpatient Visits,$94.30,1911,Maternity - Cesarean Deliveries,$92.21,2012,Maternity - No [...]
\ No newline at end of file
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310E.TXT b/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310E.TXT
new file mode 100644
index 0000000..6a083b6
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310E.TXT
@@ -0,0 +1 @@
+Area Factor Table,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,Physician Area Factor,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,ZIP Code,Inpatient Surgical R&B Area Factor,Inpatient Surgical Ancillary Area Factor,Inpatient Non- Surgical R&B Area Factor,Inpatient Non-Surgical Ancillary Area Factor,Skilled Nursing Area Factor,RBRVS Work Expense Area Factor,RBRVS Practice Expense Area Factor,RBRVS Total Units Area Factor,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,Ou [...]
\ No newline at end of file
diff --git a/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310F.TXT b/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310F.TXT
new file mode 100644
index 0000000..46d410e
--- /dev/null
+++ b/Packages/Integrated Billing/Patches/IB_2.0_508/IBRC1310F.TXT
@@ -0,0 +1 @@
+Sta #,VA Facility Location,ZIP 3,PBN,,,,,,,402,"TOGUS, ME",043,1,,,,,,,402GA,"CARIBOU, ME",047,3,,,,,,,402GB,"CALAIS, ME",046,3,,,,,,,402GC,"RUMFORD, ME",042,3,,,,,,,402GD,"SACO, ME",040,3,,,,,,,402GE,"AUBURN, ME",042,2,,,,,,,402HB,"BANGOR, ME",044,3,,,,,,,402HC,"PORTLAND, ME (MHORC)",041,2,,,,,,,405,"WHITE RIVER JCT, VT",050,1,,,,,,,405BU,"WHITE RIVER JCT, VT (SARRTP)",050,1,,,,,,,405GA,"BENNINGTON, VT",052,3,,,,,,,405GC,"BRATTLEBORO, VT",053,3,,,,,,,405HA,"SOUTH BURLINGTON, VT (ORC)", [...]
\ No newline at end of file
diff --git a/Packages/Lab Service/Patches/LR_5.2_334/.gitignore b/Packages/Lab Service/Patches/LR_5.2_334/.gitignore
new file mode 100644
index 0000000..b729f33
--- /dev/null
+++ b/Packages/Lab Service/Patches/LR_5.2_334/.gitignore
@@ -0,0 +1 @@
+LR_52_334.KIDs
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_51/.gitignore b/Packages/Lexicon Utility/Patches/LEX_2.0_51/.gitignore
new file mode 100644
index 0000000..8decd8d
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_51/.gitignore
@@ -0,0 +1 @@
+LEX_2_51.GBL
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_73/.gitignore b/Packages/Lexicon Utility/Patches/LEX_2.0_73/.gitignore
new file mode 100644
index 0000000..853ac38
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_73/.gitignore
@@ -0,0 +1 @@
+LEX_2_73.KID
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_74/.gitignore b/Packages/Lexicon Utility/Patches/LEX_2.0_74/.gitignore
new file mode 100644
index 0000000..b34f65c
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_74/.gitignore
@@ -0,0 +1 @@
+LEX_2_74.GBL
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_76/.gitignore b/Packages/Lexicon Utility/Patches/LEX_2.0_76/.gitignore
new file mode 100644
index 0000000..3e01f7f
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_76/.gitignore
@@ -0,0 +1 @@
+LEX_2_76.GBL
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_78/.gitignore b/Packages/Lexicon Utility/Patches/LEX_2.0_78/.gitignore
new file mode 100644
index 0000000..dbc1127
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_78/.gitignore
@@ -0,0 +1 @@
+LEX_2_78.GBL
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_79/.gitignore b/Packages/Lexicon Utility/Patches/LEX_2.0_79/.gitignore
new file mode 100644
index 0000000..bafec63
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_79/.gitignore
@@ -0,0 +1 @@
+LEX_2_79.GBL
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_82/.gitignore b/Packages/Lexicon Utility/Patches/LEX_2.0_82/.gitignore
new file mode 100644
index 0000000..832a56a
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_82/.gitignore
@@ -0,0 +1 @@
+LEX_2_82.GBLs
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_84/.gitignore b/Packages/Lexicon Utility/Patches/LEX_2.0_84/.gitignore
new file mode 100644
index 0000000..fba5fd7
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_84/.gitignore
@@ -0,0 +1 @@
+LEX_2_84.GBLs
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_89/.gitignore b/Packages/Lexicon Utility/Patches/LEX_2.0_89/.gitignore
new file mode 100644
index 0000000..2c3231d
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_89/.gitignore
@@ -0,0 +1 @@
+LEX_2_89.GBLs
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_90/.gitignore b/Packages/Lexicon Utility/Patches/LEX_2.0_90/.gitignore
new file mode 100644
index 0000000..5e2ae3b
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_90/.gitignore
@@ -0,0 +1 @@
+LEX_2_90.GBLs
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_93/.gitignore b/Packages/Lexicon Utility/Patches/LEX_2.0_93/.gitignore
new file mode 100644
index 0000000..7df9c66
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_93/.gitignore
@@ -0,0 +1 @@
+LEX_2_93.GBLs
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_93/LEX-2_SEQ-82_PAT-93.KIDS b/Packages/Lexicon Utility/Patches/LEX_2.0_93/LEX-2_SEQ-82_PAT-93.KIDS
new file mode 100644
index 0000000..239f188
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_93/LEX-2_SEQ-82_PAT-93.KIDS
@@ -0,0 +1,1470 @@
+Released LEX*2*93 SEQ #82
+Extracted from mail message
+**KIDS**:LEX*2.0*93^
+
+**INSTALL NAME**
+LEX*2.0*93
+"BLD",8169,0)
+LEX*2.0*93^LEXICON UTILITY^0^3130918^y
+"BLD",8169,1,0)
+^9.61A^2^2^3130911^^
+"BLD",8169,1,1,0)
+Please see the National Patch Module for details of the enhancements
+"BLD",8169,1,2,0)
+included in this patch.
+"BLD",8169,4,0)
+^9.64PA^^
+"BLD",8169,6.3)
+2
+"BLD",8169,"INIT")
+POST^LEX2093P
+"BLD",8169,"KRN",0)
+^9.67PA^779.2^20
+"BLD",8169,"KRN",.4,0)
+.4
+"BLD",8169,"KRN",.401,0)
+.401
+"BLD",8169,"KRN",.402,0)
+.402
+"BLD",8169,"KRN",.403,0)
+.403
+"BLD",8169,"KRN",.5,0)
+.5
+"BLD",8169,"KRN",.84,0)
+.84
+"BLD",8169,"KRN",3.6,0)
+3.6
+"BLD",8169,"KRN",3.8,0)
+3.8
+"BLD",8169,"KRN",9.2,0)
+9.2
+"BLD",8169,"KRN",9.8,0)
+9.8
+"BLD",8169,"KRN",9.8,"NM",0)
+^9.68A^3^3
+"BLD",8169,"KRN",9.8,"NM",1,0)
+LEX2093^^0^B170276146
+"BLD",8169,"KRN",9.8,"NM",2,0)
+LEX2093P^^0^B19845993
+"BLD",8169,"KRN",9.8,"NM",3,0)
+LEX2093A^^0^B35829700
+"BLD",8169,"KRN",9.8,"NM","B","LEX2093",1)
+
+"BLD",8169,"KRN",9.8,"NM","B","LEX2093A",3)
+
+"BLD",8169,"KRN",9.8,"NM","B","LEX2093P",2)
+
+"BLD",8169,"KRN",19,0)
+19
+"BLD",8169,"KRN",19.1,0)
+19.1
+"BLD",8169,"KRN",101,0)
+101
+"BLD",8169,"KRN",409.61,0)
+409.61
+"BLD",8169,"KRN",771,0)
+771
+"BLD",8169,"KRN",779.2,0)
+779.2
+"BLD",8169,"KRN",870,0)
+870
+"BLD",8169,"KRN",8989.51,0)
+8989.51
+"BLD",8169,"KRN",8989.52,0)
+8989.52
+"BLD",8169,"KRN",8994,0)
+8994
+"BLD",8169,"KRN","B",.4,.4)
+
+"BLD",8169,"KRN","B",.401,.401)
+
+"BLD",8169,"KRN","B",.402,.402)
+
+"BLD",8169,"KRN","B",.403,.403)
+
+"BLD",8169,"KRN","B",.5,.5)
+
+"BLD",8169,"KRN","B",.84,.84)
+
+"BLD",8169,"KRN","B",3.6,3.6)
+
+"BLD",8169,"KRN","B",3.8,3.8)
+
+"BLD",8169,"KRN","B",9.2,9.2)
+
+"BLD",8169,"KRN","B",9.8,9.8)
+
+"BLD",8169,"KRN","B",19,19)
+
+"BLD",8169,"KRN","B",19.1,19.1)
+
+"BLD",8169,"KRN","B",101,101)
+
+"BLD",8169,"KRN","B",409.61,409.61)
+
+"BLD",8169,"KRN","B",771,771)
+
+"BLD",8169,"KRN","B",779.2,779.2)
+
+"BLD",8169,"KRN","B",870,870)
+
+"BLD",8169,"KRN","B",8989.51,8989.51)
+
+"BLD",8169,"KRN","B",8989.52,8989.52)
+
+"BLD",8169,"KRN","B",8994,8994)
+
+"BLD",8169,"PRE")
+LEX2093
+"BLD",8169,"QDEF")
+^^^^NO^^^^^^NO
+"BLD",8169,"QUES",0)
+^9.62^^
+"BLD",8169,"REQB",0)
+^9.611^1^1
+"BLD",8169,"REQB",1,0)
+LEX*2.0*91^2
+"BLD",8169,"REQB","B","LEX*2.0*91",1)
+
+"INIT")
+POST^LEX2093P
+"MBREQ")
+0
+"PKG",574,-1)
+1^1
+"PKG",574,0)
+LEXICON UTILITY^LEX^Medical and Biomedical Terminology System.
+"PKG",574,20,0)
+^9.402P^^
+"PKG",574,22,0)
+^9.49I^1^1
+"PKG",574,22,1,0)
+2.0^2960915^2970127^1
+"PKG",574,22,1,"PAH",1,0)
+93^3130918
+"PKG",574,22,1,"PAH",1,1,0)
+^^2^2^3130918
+"PKG",574,22,1,"PAH",1,1,1,0)
+Please see the National Patch Module for details of the enhancements
+"PKG",574,22,1,"PAH",1,1,2,0)
+included in this patch.
+"PRE")
+LEX2093
+"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")
+3
+"RTN","LEX2093")
+0^1^B170276146^n/a
+"RTN","LEX2093",1,0)
+LEX2093 ;ISL/KER - LEX*2.0*93 Env Check ;09/18/2013
+"RTN","LEX2093",2,0)
+ ;;2.0;LEXICON UTILITY;**93**;Sep 23, 1996;Build 2
+"RTN","LEX2093",3,0)
+ ;
+"RTN","LEX2093",4,0)
+ ; Global Variables
+"RTN","LEX2093",5,0)
+ ; ^LEXM N/A
+"RTN","LEX2093",6,0)
+ ;
+"RTN","LEX2093",7,0)
+ ; External References
+"RTN","LEX2093",8,0)
+ ; FIND^DIC ICR 2051
+"RTN","LEX2093",9,0)
+ ; $$IENS^DILF ICR 2054
+"RTN","LEX2093",10,0)
+ ; EN^DIQ1 ICR 10015
+"RTN","LEX2093",11,0)
+ ; $$FMTE^XLFDT ICR 10103
+"RTN","LEX2093",12,0)
+ ; $$PATCH^XPDUTL ICR 10141
+"RTN","LEX2093",13,0)
+ ; $$VERSION^XPDUTL ICR 10141
+"RTN","LEX2093",14,0)
+ ; BMES^XPDUTL ICR 10141
+"RTN","LEX2093",15,0)
+ ; MES^XPDUTL ICR 10141
+"RTN","LEX2093",16,0)
+ ;
+"RTN","LEX2093",17,0)
+ ; Local Variables Killed by Kernel after Install
+"RTN","LEX2093",18,0)
+ ; XPDABORT,XPDDIQ,XPDQUIT
+"RTN","LEX2093",19,0)
+ ;
+"RTN","LEX2093",20,0)
+ ; see Kernel Developer Guide
+"RTN","LEX2093",21,0)
+ ; Chapter 14, KIDS Developer Tools
+"RTN","LEX2093",22,0)
+ ; Advanced Build Techniques
+"RTN","LEX2093",23,0)
+ ;
+"RTN","LEX2093",24,0)
+ ; The following sections must be updated with each patch
+"RTN","LEX2093",25,0)
+ ;
+"RTN","LEX2093",26,0)
+ ; IMP^LEX20nn Import names
+"RTN","LEX2093",27,0)
+ ;
+"RTN","LEX2093",28,0)
+ ; This section sets the following variables:
+"RTN","LEX2093",29,0)
+ ;
+"RTN","LEX2093",30,0)
+ ; LEXBUILD Build Name LEX*2.0*nn
+"RTN","LEX2093",31,0)
+ ; LEXPTYPE Patch Type Remedy or Quarterly
+"RTN","LEX2093",32,0)
+ ; LEXIGHF Name of Host File LEX_2_nn.GBL
+"RTN","LEX2093",33,0)
+ ; LEXLREV Revision Number nn
+"RTN","LEX2093",34,0)
+ ; LEXFY Fiscal Year FYnn
+"RTN","LEX2093",35,0)
+ ; LEXQTR Quarter 1st, 2nd, 3rd, or 4th
+"RTN","LEX2093",36,0)
+ ; LEXREQP(n) Required Patch Array
+"RTN","LEX2093",37,0)
+ ;
+"RTN","LEX2093",38,0)
+ ; GD^LEX20nn Global Data
+"RTN","LEX2093",39,0)
+ ;
+"RTN","LEX2093",40,0)
+ ; This is a listing of globals that this patch writes
+"RTN","LEX2093",41,0)
+ ; to, it contains a closed global root, a global ID,
+"RTN","LEX2093",42,0)
+ ; a global name and file numbers.
+"RTN","LEX2093",43,0)
+ ;
+"RTN","LEX2093",44,0)
+ ; IPL^LEX20nnP Informational Patch List
+"RTN","LEX2093",45,0)
+ ;
+"RTN","LEX2093",46,0)
+ ; This is a listing of informational patches that
+"RTN","LEX2093",47,0)
+ ; accompany this patch. It consist of a patch nane
+"RTN","LEX2093",48,0)
+ ; and a sequence number when available.
+"RTN","LEX2093",49,0)
+ ;
+"RTN","LEX2093",50,0)
+ENV ; Environment Check
+"RTN","LEX2093",51,0)
+ ;
+"RTN","LEX2093",52,0)
+ ; General
+"RTN","LEX2093",53,0)
+ ;
+"RTN","LEX2093",54,0)
+ N LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR,LEXG,LEXB,LEXE,LEXR,LEXSTR,LEXOK D IMP
+"RTN","LEX2093",55,0)
+ K XPDDIQ("XPZ1","B"),XPDDIQ("XPI1","B") S XPDDIQ("XPZ1","B")="NO",XPDDIQ("XPI1","B")="NO"
+"RTN","LEX2093",56,0)
+ S LEXSTR=$G(LEXPTYPE) S:$L($G(LEXFY))&($L($G(LEXQTR))) LEXSTR=LEXSTR_" for "_$G(LEXFY)_" "_$G(LEXQTR)_" Quarter"
+"RTN","LEX2093",57,0)
+ D BM(LEXSTR),M("")
+"RTN","LEX2093",58,0)
+ S U="^"
+"RTN","LEX2093",59,0)
+ ; No user
+"RTN","LEX2093",60,0)
+ D:+($$UR)'>0 ET("User not defined (DUZ)")
+"RTN","LEX2093",61,0)
+ ; No IO
+"RTN","LEX2093",62,0)
+ D:+($$SY)'>0 ET("Undefined IO variable(s)")
+"RTN","LEX2093",63,0)
+ I $D(LEXE) D ABRT Q
+"RTN","LEX2093",64,0)
+ ;
+"RTN","LEX2093",65,0)
+ ; Load Distribution
+"RTN","LEX2093",66,0)
+ ;
+"RTN","LEX2093",67,0)
+ ; XPDENV = 0 Environment Check during Load
+"RTN","LEX2093",68,0)
+ ;
+"RTN","LEX2093",69,0)
+ ; Check Version (2.0)
+"RTN","LEX2093",70,0)
+ I $$VERSION^XPDUTL("LEX")'="2.0" D D ABRT Q
+"RTN","LEX2093",71,0)
+ . D ET("Version 2.0 not found. Please install Lexicon Utility v 2.0")
+"RTN","LEX2093",72,0)
+ ;
+"RTN","LEX2093",73,0)
+ ; Check Implementation
+"RTN","LEX2093",74,0)
+ N LEXOK,LEXG,LEXR,LEXB S (LEXOK,LEXG,LEXR,LEXB)=1 S:$$PATCH^XPDUTL("LEX*2.0*80")>0 LEXOK=0,LEXG=0,LEXB=0
+"RTN","LEX2093",75,0)
+ S:$L($G(^ICD9(2,0)),"^")'>1 LEXOK=0,LEXG=0 S:$D(^LEX(757.03,1,2)) LEXOK=0,LEXG=0 S:$L($T(^ICD0IDX))'>0 LEXOK=0,LEXR=0
+"RTN","LEX2093",76,0)
+ S:$P($T(LEXAS+1^LEXAS),";",5)["," LEXOK=0,LEXR=0 S:$D(^ICD9(500001,0)) LEXOK=0,LEXG=0 I 'LEXOK D D ABRT Q
+"RTN","LEX2093",77,0)
+ . I LEXR'>0,LEXG'>0 D
+"RTN","LEX2093",78,0)
+ . . D ET(" This appears to be an ICD-10 environment. Routines and global are")
+"RTN","LEX2093",79,0)
+ . . D ET(" not valid for an ICD-9 legacy account. You cannot install this")
+"RTN","LEX2093",80,0)
+ . . D ET(" patch in an ICD-10 environment. Contact support for a solution")
+"RTN","LEX2093",81,0)
+ . I LEXR'>0,LEXG=1 D
+"RTN","LEX2093",82,0)
+ . . D ET(" This appears to be an ICD-10 environment. Routines are not valid")
+"RTN","LEX2093",83,0)
+ . . D ET(" for an ICD-9 legacy account. You cannot install this patch in")
+"RTN","LEX2093",84,0)
+ . . D ET(" an ICD-10 environment. Contact support for a solution.")
+"RTN","LEX2093",85,0)
+ . I LEXR=1,LEXG'>0 D
+"RTN","LEX2093",86,0)
+ . . D ET(" This appears to be an ICD-10 environment. Globals are not valid")
+"RTN","LEX2093",87,0)
+ . . D ET(" for an ICD-9 legacy account. You cannot install this patch in")
+"RTN","LEX2093",88,0)
+ . . D ET(" an ICD-10 environment. Contact support for a solution.")
+"RTN","LEX2093",89,0)
+ . I LEXB'>0 D ET(" "),ET(" NOTE: Patch LEX*2.0*80 has been installed.")
+"RTN","LEX2093",90,0)
+ N LEXOK,LEXG,LEXR,LEXB
+"RTN","LEX2093",91,0)
+ ; Check Required Patches
+"RTN","LEX2093",92,0)
+ D:$O(LEXREQP(0))'>0 IMP I $O(LEXREQP(0))>0 D
+"RTN","LEX2093",93,0)
+ . W ! N LEXPAT,LEXI,LEXPN,LEXP,LEXR,LEXC,LEXO,LEXC1,LEXC2,LEXC3,LEXC4,LEX
+"RTN","LEX2093",94,0)
+ . S (LEXR,LEXC)=0 S LEXC1=3,LEXC2=23,LEXC3=35,LEXC4=47
+"RTN","LEX2093",95,0)
+ . S LEXI=0 F S LEXI=$O(LEXREQP(LEXI)) Q:+LEXI'>0 D
+"RTN","LEX2093",96,0)
+ . . S LEXC=LEXC+1,LEXPAT=$G(LEXREQP(LEXI))
+"RTN","LEX2093",97,0)
+ . S LEXI=0 F S LEXI=$O(LEXREQP(LEXI)) Q:+LEXI'>0 D
+"RTN","LEX2093",98,0)
+ . . N LEXPAT,LEXREL,LEXINS,LEXCOM,LEXINE,LEXREQ,LEXTX S LEXREQ=$G(LEXREQP(LEXI))
+"RTN","LEX2093",99,0)
+ . . S LEXPAT=$P(LEXREQ,"^",1),LEXREL=$P(LEXREQ,"^",2),LEXCOM=$P(LEXREQ,"^",3)
+"RTN","LEX2093",100,0)
+ . . S LEXPN=$$INS(LEXPAT) S LEXINS=$$INSD(LEXPAT),LEXINE=$P(LEXINS,"^",2)
+"RTN","LEX2093",101,0)
+ . . I LEXI=1 D
+"RTN","LEX2093",102,0)
+ . . . W !,?LEXC1,"Checking for ",!
+"RTN","LEX2093",103,0)
+ . . . W !,?LEXC1,"Patch",?LEXC2,"Released",?LEXC3,"Installed",?LEXC4,"Content"
+"RTN","LEX2093",104,0)
+ . . S LEXTX=$J(" ",LEXC1)_LEXPAT
+"RTN","LEX2093",105,0)
+ . . S LEXTX=LEXTX_$J(" ",(LEXC2-$L(LEXTX)))
+"RTN","LEX2093",106,0)
+ . . S:LEXREL?7N LEXTX=LEXTX_$P($$FMTE^XLFDT(LEXREL,"5DZ"),"@",1)
+"RTN","LEX2093",107,0)
+ . . S LEXTX=LEXTX_$J(" ",(LEXC3-$L(LEXTX)))
+"RTN","LEX2093",108,0)
+ . . I +LEXPN>0 D
+"RTN","LEX2093",109,0)
+ . . . H 1 S LEXO=+($G(LEXO))+1 S:$L($G(LEXINE)) LEXTX=LEXTX_LEXINE
+"RTN","LEX2093",110,0)
+ . . . S LEXTX=LEXTX_$J(" ",(LEXC4-$L(LEXTX)))
+"RTN","LEX2093",111,0)
+ . . . S:$L(LEXCOM) LEXTX=LEXTX_LEXCOM
+"RTN","LEX2093",112,0)
+ . . D M(LEXTX)
+"RTN","LEX2093",113,0)
+ . . I +LEXPN'>0 D ET((" "_LEXPAT_" not found, please install "_LEXPAT_" before continuing"))
+"RTN","LEX2093",114,0)
+ . W:+($G(LEXO))'=LEXC !
+"RTN","LEX2093",115,0)
+ I $D(LEXE) D M(),ABRT Q
+"RTN","LEX2093",116,0)
+ S LEXG=$$RGBL
+"RTN","LEX2093",117,0)
+ I $D(LEXE)&(+LEXG=0) D ABRT Q
+"RTN","LEX2093",118,0)
+ I $D(LEXE)&(+LEXG<0) D ABRT Q
+"RTN","LEX2093",119,0)
+ I '$D(LEXFULL)&(+($G(XPDENV))'=1) D QUIT Q
+"RTN","LEX2093",120,0)
+ ;
+"RTN","LEX2093",121,0)
+ ; Install Package(s)
+"RTN","LEX2093",122,0)
+ ;
+"RTN","LEX2093",123,0)
+ ; XPDENV = 1 Environment Check during Install
+"RTN","LEX2093",124,0)
+ ;
+"RTN","LEX2093",125,0)
+ ; Check Data "is installed" or "is translated"
+"RTN","LEX2093",126,0)
+ N LEXIT S LEXIT=+($$CPD) I '$D(LEXFULL)&(LEXIT) D QUIT Q
+"RTN","LEX2093",127,0)
+ ; Checking Global "Write" Protection
+"RTN","LEX2093",128,0)
+ D:+($G(XPDENV))=1 GBLS I $D(LEXE) D ABRT Q
+"RTN","LEX2093",129,0)
+ ; Check Import Global Checksum
+"RTN","LEX2093",130,0)
+ D:+($G(XPDENV))=1 CS I $D(LEXE) D ABRT Q
+"RTN","LEX2093",131,0)
+ ;
+"RTN","LEX2093",132,0)
+ ; Quit, Exit or Abort
+"RTN","LEX2093",133,0)
+ ;
+"RTN","LEX2093",134,0)
+QUIT ; Quit Passed Environment Check
+"RTN","LEX2093",135,0)
+ K LEXFULL D OK
+"RTN","LEX2093",136,0)
+ Q
+"RTN","LEX2093",137,0)
+EXIT ; Exit Failed Environment Check
+"RTN","LEX2093",138,0)
+ D:$D(LEXE) ED S XPDQUIT=2 K LEXE,LEXFULL Q
+"RTN","LEX2093",139,0)
+ABRT ; Abort Failed Environment Check, KILL the distribution
+"RTN","LEX2093",140,0)
+ D:$D(LEXE) ED S XPDABORT=1,XPDQUIT=1 S:$L($G(LEXBUILD)) XPDQUIT(LEXBUILD)=1
+"RTN","LEX2093",141,0)
+ K LEXE,LEXFULL
+"RTN","LEX2093",142,0)
+ Q
+"RTN","LEX2093",143,0)
+T1 ; Environment Check #1 (for testing only)
+"RTN","LEX2093",144,0)
+ K XPDENV D ENV
+"RTN","LEX2093",145,0)
+ Q
+"RTN","LEX2093",146,0)
+T2 ; Environment Check #2 (for testing only)
+"RTN","LEX2093",147,0)
+ N XPDENV S XPDENV=1 D ENV
+"RTN","LEX2093",148,0)
+ Q
+"RTN","LEX2093",149,0)
+ ;
+"RTN","LEX2093",150,0)
+ ; Checks
+"RTN","LEX2093",151,0)
+ ;
+"RTN","LEX2093",152,0)
+GBLS ; Check Write access on globals
+"RTN","LEX2093",153,0)
+ N LEXB1,LEXB2,LEXE,LEXGBL,LEXRT,LEXT,LEXF,LEXI,LEXX,LEXOK,LEXCPD,LEXS,X S LEXOK=1
+"RTN","LEX2093",154,0)
+ D BM(" I will now check the protection on ^LEX, ^ICPT, ^ICD and ^DIC Globals.")
+"RTN","LEX2093",155,0)
+ D M(" If you get an ERROR, you will need to change the protection on these")
+"RTN","LEX2093",156,0)
+ D M(" globals to allow read/write as indicated:")
+"RTN","LEX2093",157,0)
+ D BM(" Owner Group World Network")
+"RTN","LEX2093",158,0)
+ D M(" Cache systems RWD RW RW RWD")
+"RTN","LEX2093",159,0)
+ D BM(" Checking:"),M(" ")
+"RTN","LEX2093",160,0)
+ S LEXCPD=$$CPD,LEXS="",X=1 F LEXI=1:1 D Q:'$L(LEXX)
+"RTN","LEX2093",161,0)
+ . S LEXX="" S LEXE="S LEXX=$T(GD+"_LEXI_")" X LEXE S LEXX=$$TRIM(LEXX) Q:'$L(LEXX) Q:'$L($TR(LEXX,";",""))
+"RTN","LEX2093",162,0)
+ . S LEXGBL=$P(LEXX,";",3) Q:+LEXCPD>0&(LEXGBL="^LEXM(0)") S LEXRT=$P(LEXX,";",4),LEXT=$P(LEXX,";",5),LEXF=$P(LEXX,";",6)
+"RTN","LEX2093",163,0)
+ . S (LEXB1,LEXB2)="",$P(LEXB1," ",(19-$L(LEXRT)))="",$P(LEXB2," ",(28-$L(LEXT)))=""
+"RTN","LEX2093",164,0)
+ . I '$D(@LEXGBL) D RGNF S LEXOK=0 D M((" <"_LEXRT_" not found>")) Q
+"RTN","LEX2093",165,0)
+ . D M((" "_LEXRT_LEXB1_LEXT_LEXB2_LEXF)) S @LEXGBL=$G(@LEXGBL) H 1
+"RTN","LEX2093",166,0)
+ D:LEXOK M(" --> ok") D:'LEXOK M(" ??") D M(" ")
+"RTN","LEX2093",167,0)
+ Q
+"RTN","LEX2093",168,0)
+RGBL(X) ; Check Write access on globals
+"RTN","LEX2093",169,0)
+ N LEXCPD,LEXS,LEXI,LEXX,LEXEC,LEXGBL,LEXRT,LEXT,LEXF,LEXB1,LEXB2
+"RTN","LEX2093",170,0)
+ S LEXCPD=$$CPD,LEXS="",X=1 F LEXI=1:1 D Q:'$L(LEXX)
+"RTN","LEX2093",171,0)
+ . S LEXX="" S LEXEC="S LEXX=$T(GD+"_LEXI_")" X LEXEC S LEXX=$$TRIM(LEXX) Q:'$L(LEXX) Q:'$L($TR(LEXX,";",""))
+"RTN","LEX2093",172,0)
+ . S LEXGBL=$P(LEXX,";",3) Q:+LEXCPD>0&(LEXGBL="^LEXM(0)") S LEXRT=$P(LEXX,";",4),LEXT=$P(LEXX,";",5),LEXF=$P(LEXX,";",6)
+"RTN","LEX2093",173,0)
+ . S (LEXB1,LEXB2)="",$P(LEXB1," ",(15-$L(LEXRT)))="",$P(LEXB2," ",(28-$L(LEXT)))=""
+"RTN","LEX2093",174,0)
+ . I '$D(@LEXGBL) S:LEXS'[LEXRT LEXS=LEXS_", "_LEXRT S X=-1 S:LEXGBL["LEXM("&(X=1) X=0
+"RTN","LEX2093",175,0)
+ I $L(LEXS),X'>0 D
+"RTN","LEX2093",176,0)
+ . S:LEXS[", " LEXS=$P(LEXS,", ",1,($L(LEXS,", ")-1))_" and "_$P(LEXS,", ",$L(LEXS,", "))
+"RTN","LEX2093",177,0)
+ . S:$E(LEXS,1,2)=", " LEXS=$E(LEXS,3,$L(LEXS)) S:$E(LEXS,1,7)[" and " LEXS=$P(LEXS," and ",2)
+"RTN","LEX2093",178,0)
+ . D:X=-1 ET(("Global"_$S(LEXS[", "!(LEXS[" and "):"s",1:"")_" "_LEXS_" either not found or incomplete."))
+"RTN","LEX2093",179,0)
+ . D:X=0 CM
+"RTN","LEX2093",180,0)
+ Q X
+"RTN","LEX2093",181,0)
+RGNF ; Required global not found
+"RTN","LEX2093",182,0)
+ N LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR D IMP
+"RTN","LEX2093",183,0)
+ D:$G(LEXGBL)["^LEX"&($G(LEXGBL)'["^LEXM") ET(""),ET("Required global "_$P($G(LEXGBL),"(",1)_" not found.")
+"RTN","LEX2093",184,0)
+ D:$G(LEXGBL)["^LEX"&($G(LEXGBL)["^LEXM") CM
+"RTN","LEX2093",185,0)
+ Q
+"RTN","LEX2093",186,0)
+INS(X) ; Installed
+"RTN","LEX2093",187,0)
+ N LEX,LEXP,LEXV,LEXI,LEXS S LEX=$P($G(X)," ",1) I $L(LEX,"*")=3 S X=$$PATCH^XPDUTL(LEX) Q X
+"RTN","LEX2093",188,0)
+ S LEXP=$$PKG^XPDUTL(LEX),LEXV=$$VER^XPDUTL(LEX),LEXI=$$VERSION^XPDUTL(LEXP)
+"RTN","LEX2093",189,0)
+ Q:+LEXV>0&(LEXV=LEXI) 1
+"RTN","LEX2093",190,0)
+ Q 0
+"RTN","LEX2093",191,0)
+INSD(X) ; Installed on
+"RTN","LEX2093",192,0)
+ N DA,LEX,LEXDA,LEXE,LEXI,LEXMSG,LEXNS,LEXOUT,LEXPI,LEXPN,LEXSCR,LEXVI,LEXVD,LEXVI,LEXVR S LEX=$G(X)
+"RTN","LEX2093",193,0)
+ S LEXNS=$$PKG^XPDUTL(LEX),LEXVR=$$VER^XPDUTL(LEX),LEXPN=$P(X,"*",3)
+"RTN","LEX2093",194,0)
+ Q:'$L(LEXNS) "" S LEXVR=+LEXVR Q:LEXVR'>0 "" S LEXPN=+LEXPN S:LEXVR'["." LEXVR=LEXVR_".0"
+"RTN","LEX2093",195,0)
+ S LEXSCR="I $G(^DIC(9.4,+($G(Y)),""VERSION""))="""_LEXVR_""""
+"RTN","LEX2093",196,0)
+ D FIND^DIC(9.4,,.01,"O",LEXNS,10,"C",LEXSCR,,"LEXOUT","LEXMSG")
+"RTN","LEX2093",197,0)
+ S LEXPI=$G(LEXOUT("DILIST",2,1)) K LEXOUT,LEXMSG Q:+LEXPI'>0 "" Q:'$D(@("^DIC(9.4,"_LEXPI_",22)")) ""
+"RTN","LEX2093",198,0)
+ K DA S DA(1)=LEXPI S LEXDA=$$IENS^DILF(.DA)
+"RTN","LEX2093",199,0)
+ D FIND^DIC(9.49,LEXDA,".01;1I;2I","O",LEXVR,10,"B",,,"LEXOUT","LEXMSG")
+"RTN","LEX2093",200,0)
+ S LEXVD=$G(LEXOUT("DILIST","ID",1,2)) I $E(LEXVD,1,7)?7N&(+LEXPN'>0) D Q X
+"RTN","LEX2093",201,0)
+ . S X=$E(LEXVD,1,7)_"^"_$TR($$FMTE^XLFDT($E(LEXVD,1,7),"5DZ"),"@"," ")
+"RTN","LEX2093",202,0)
+ S:$E(LEXVD,1,7)'?7N LEXVD=$G(LEXOUT("DILIST","ID",1,1)) I $E(LEXVD,1,7)?7N&(+LEXPN'>0) D Q X
+"RTN","LEX2093",203,0)
+ . S X=$E(LEXVD,1,7)_"^"_$TR($$FMTE^XLFDT($E(LEXVD,1,7),"5DZ"),"@"," ")
+"RTN","LEX2093",204,0)
+ Q:+LEXPN'>0 "" S LEXVI=$G(LEXOUT("DILIST",2,1)) K LEXOUT,LEXMSG
+"RTN","LEX2093",205,0)
+ Q:+LEXVI'>0 "" Q:'$D(@("^DIC(9.4,"_LEXPI_",22,"_LEXVI_",""PAH"")")) ""
+"RTN","LEX2093",206,0)
+ K DA S DA(2)=LEXPI,DA(1)=LEXVI S LEXDA=$$IENS^DILF(.DA)
+"RTN","LEX2093",207,0)
+ S LEXSCR="I $G(^DIC(9.4,"_LEXPI_",22,"_LEXVI_",""PAH"",+($G(Y)),0))[""SEQ #"""
+"RTN","LEX2093",208,0)
+ D FIND^DIC(9.4901,LEXDA,".01;.02I",,LEXPN,10,"B",LEXSCR,,"LEXOUT","LEXMSG")
+"RTN","LEX2093",209,0)
+ S LEXI=$G(LEXOUT("DILIST","ID",1,.02)) I '$L(LEXI) D
+"RTN","LEX2093",210,0)
+ . S LEXSCR="" D FIND^DIC(9.4901,LEXDA,".01;.02I",,LEXPN,10,"B",LEXSCR,,"LEXOUT","LEXMSG")
+"RTN","LEX2093",211,0)
+ . S LEXI=$G(LEXOUT("DILIST","ID",1,.02))
+"RTN","LEX2093",212,0)
+ Q:'$L(LEXI) "" Q:$P(LEXI,".",1)'?7N "" S LEXE=$TR($$FMTE^XLFDT(LEXI,"5DZ"),"@"," ")
+"RTN","LEX2093",213,0)
+ Q:'$L(LEXE) "" S X=LEXI_"^"_LEXE
+"RTN","LEX2093",214,0)
+ Q X
+"RTN","LEX2093",215,0)
+CHK ; Check the Checksum
+"RTN","LEX2093",216,0)
+ D CS I $D(LEXE) D ED Q
+"RTN","LEX2093",217,0)
+ D BM(" OK"),M(" ")
+"RTN","LEX2093",218,0)
+ Q
+"RTN","LEX2093",219,0)
+CS ; Checksum for import global
+"RTN","LEX2093",220,0)
+ K LEXE D BM(" Running checksum routine on the ^LEXM import global, please wait")
+"RTN","LEX2093",221,0)
+ N LEXCK,LEXND,LEXV S LEXCK=+($G(^LEXM(0,"CHECKSUM")))
+"RTN","LEX2093",222,0)
+ S LEXND=+($G(^LEXM(0,"NODES"))),LEXV=+($$VC(LEXCK,LEXND))
+"RTN","LEX2093",223,0)
+ D M(" ") D:LEXV>0 M(" Checksum is ok"),M(" ")
+"RTN","LEX2093",224,0)
+ D:LEXV=0 CM D:LEXV=-1 CW D:LEXV=-2 CU D:LEXV=-3 CF
+"RTN","LEX2093",225,0)
+ Q
+"RTN","LEX2093",226,0)
+VC(X,Y) ; Verify Checksum for import global
+"RTN","LEX2093",227,0)
+ N LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR Q:'$D(^LEXM) 0
+"RTN","LEX2093",228,0)
+ D IMP I $G(^LEXM(0,"BUILD"))'=$G(LEXBUILD) Q -1
+"RTN","LEX2093",229,0)
+ N LEXCK,LEXND,LEXCNT,LEXLC,LEXL,LEXS,LEXNC,LEXD,LEXN,LEXC,LEXGCS,LEXP,LEXT
+"RTN","LEX2093",230,0)
+ S LEXCK=+($G(X)),LEXND=+($G(Y))
+"RTN","LEX2093",231,0)
+ Q:LEXCK'>0!(LEXND'>0) -2
+"RTN","LEX2093",232,0)
+ S LEXL=64,(LEXCNT,LEXLC)=0,LEXS=(+(LEXND\LEXL))
+"RTN","LEX2093",233,0)
+ S:LEXS=0 LEXS=1 D:+($O(^LEXM(0)))>0 M("")
+"RTN","LEX2093",234,0)
+ S (LEXC,LEXN)="^LEXM",(LEXNC,LEXGCS)=0 W " "
+"RTN","LEX2093",235,0)
+ F S LEXN=$Q(@LEXN) Q:LEXN=""!(LEXN'[LEXC) D
+"RTN","LEX2093",236,0)
+ . Q:LEXN="^LEXM(0,""CHECKSUM"")"
+"RTN","LEX2093",237,0)
+ . Q:LEXN="^LEXM(0,""NODES"")"
+"RTN","LEX2093",238,0)
+ . S LEXCNT=LEXCNT+1
+"RTN","LEX2093",239,0)
+ . I LEXCNT'<LEXS S LEXLC=LEXLC+1 W:LEXLC'>LEXL "." S LEXCNT=0
+"RTN","LEX2093",240,0)
+ . S LEXNC=LEXNC+1,LEXD=@LEXN,LEXT=LEXN_"="_LEXD
+"RTN","LEX2093",241,0)
+ . F LEXP=1:1:$L(LEXT) S LEXGCS=$A(LEXT,LEXP)*LEXP+LEXGCS
+"RTN","LEX2093",242,0)
+ Q:LEXNC'=LEXND -3
+"RTN","LEX2093",243,0)
+ Q:LEXGCS'=LEXCK -3
+"RTN","LEX2093",244,0)
+ Q 1
+"RTN","LEX2093",245,0)
+SY(X) ; Check System variables
+"RTN","LEX2093",246,0)
+ Q:'$D(IO)!('$D(IOF))!('$D(IOM))!('$D(ION))!('$D(IOSL))!('$D(IOST)) 0
+"RTN","LEX2093",247,0)
+ Q 1
+"RTN","LEX2093",248,0)
+UR(X) ; Check User variables
+"RTN","LEX2093",249,0)
+ Q:'$L($G(DUZ(0))) 0
+"RTN","LEX2093",250,0)
+ Q:+($G(DUZ))=0!($$NOTDEF(+$G(DUZ))) 0
+"RTN","LEX2093",251,0)
+ Q 1
+"RTN","LEX2093",252,0)
+CPD(X) ; Check Current Patched Data is installed
+"RTN","LEX2093",253,0)
+ N INS S INS=1
+"RTN","LEX2093",254,0)
+ Q 0
+"RTN","LEX2093",255,0)
+ ;
+"RTN","LEX2093",256,0)
+ ; Error messages
+"RTN","LEX2093",257,0)
+ ;
+"RTN","LEX2093",258,0)
+CM ; Missing ^LEXM
+"RTN","LEX2093",259,0)
+ N LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR D IMP D ET(""),ET("Missing import global ^LEXM.") D CO
+"RTN","LEX2093",260,0)
+ Q
+"RTN","LEX2093",261,0)
+CW ; Wrong ^LEXM
+"RTN","LEX2093",262,0)
+ N LEXB,LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR D IMP S LEXB=$G(^LEXM(0,"BUILD")) D ET("")
+"RTN","LEX2093",263,0)
+ I $L(LEXBUILD),$L(LEXB),LEXBUILD'=LEXB D Q
+"RTN","LEX2093",264,0)
+ . D ET(("Incorrect import global ^LEXM found ("_LEXB_" global).")) D CKO
+"RTN","LEX2093",265,0)
+ D ET("Incorrect import global ^LEXM found.") D CKO
+"RTN","LEX2093",266,0)
+ Q
+"RTN","LEX2093",267,0)
+CU ; Unable to verify
+"RTN","LEX2093",268,0)
+ N LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR D IMP D ET(""),ET("Unable to verify checksum for import global ^LEXM (possibly corrupt).") D CKO
+"RTN","LEX2093",269,0)
+ Q
+"RTN","LEX2093",270,0)
+CF ; Failed checksum
+"RTN","LEX2093",271,0)
+ N LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR D IMP D ET("") D ET("Import global ^LEXM failed checksum.") D CKO
+"RTN","LEX2093",272,0)
+ Q
+"RTN","LEX2093",273,0)
+CO ; Obtain new global
+"RTN","LEX2093",274,0)
+ N LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR D IMP
+"RTN","LEX2093",275,0)
+ D ET(""),ET(" Please obtain a copy of the import global ^LEXM contained in the ")
+"RTN","LEX2093",276,0)
+ D ET((" global host file "_LEXIGHF_" before continuing with the "_LEXBUILD))
+"RTN","LEX2093",277,0)
+ D ET((" installation."))
+"RTN","LEX2093",278,0)
+ Q
+"RTN","LEX2093",279,0)
+TEST ;
+"RTN","LEX2093",280,0)
+ D CW,ED
+"RTN","LEX2093",281,0)
+ Q
+"RTN","LEX2093",282,0)
+CKO ; Kill and Obtain new global
+"RTN","LEX2093",283,0)
+ N LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR D IMP D ET("")
+"RTN","LEX2093",284,0)
+ D ET((" Use the entry point KALL^LEXXGI2 to safely KILL the existing "))
+"RTN","LEX2093",285,0)
+ D ET((" import global ^LEXM from your system. Then obtain a new copy"))
+"RTN","LEX2093",286,0)
+ D ET((" of ^LEXM contained in the global host file "_LEXIGHF_" before"))
+"RTN","LEX2093",287,0)
+ D ET((" continuing with the "_LEXBUILD_" installation."))
+"RTN","LEX2093",288,0)
+ Q
+"RTN","LEX2093",289,0)
+ET(X) ; Error Text
+"RTN","LEX2093",290,0)
+ N LEXI S LEXI=+($G(LEXE(0))),LEXI=LEXI+1,LEXE(LEXI)=" "_$G(X),LEXE(0)=LEXI
+"RTN","LEX2093",291,0)
+ Q
+"RTN","LEX2093",292,0)
+ED ; Error Display
+"RTN","LEX2093",293,0)
+ N LEXI S LEXI=0 F S LEXI=$O(LEXE(LEXI)) Q:+LEXI=0 D M(LEXE(LEXI))
+"RTN","LEX2093",294,0)
+ D M(" ") K LEXE Q
+"RTN","LEX2093",295,0)
+ ;
+"RTN","LEX2093",296,0)
+ ; Miscellaneous
+"RTN","LEX2093",297,0)
+ ;
+"RTN","LEX2093",298,0)
+NOTDEF(IEN) ; Check to see if user is defined
+"RTN","LEX2093",299,0)
+ N DA,DR,DIQ,LEX,DIC S DA=IEN,DR=.01,DIC=200,DIQ="LEX" D EN^DIQ1 Q '$D(LEX)
+"RTN","LEX2093",300,0)
+OK ; Environment is OK
+"RTN","LEX2093",301,0)
+ N LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR,LEXT
+"RTN","LEX2093",302,0)
+ D IMP S LEXT=" Environment "_$S($L(LEXBUILD):("for patch/build "_LEXBUILD_" "),1:"")_"is ok"
+"RTN","LEX2093",303,0)
+ D BM(LEXT),M(" ")
+"RTN","LEX2093",304,0)
+ Q
+"RTN","LEX2093",305,0)
+BM(X) ; Blank Line with Message
+"RTN","LEX2093",306,0)
+ S X=$G(X) S:$E(X,1)'=" " X=" "_X D BMES^XPDUTL(X) Q
+"RTN","LEX2093",307,0)
+M(X) ; Message
+"RTN","LEX2093",308,0)
+ S X=$G(X) S:$E(X,1)'=" " X=" "_X D MES^XPDUTL(X) Q
+"RTN","LEX2093",309,0)
+TRIM(X) ; Trim Spaces
+"RTN","LEX2093",310,0)
+ S X=$G(X) F Q:$E(X,1)'=" " S X=$E(X,2,$L(X))
+"RTN","LEX2093",311,0)
+ F Q:$E(X,$L(X))'=" " S X=$E(X,1,($L(X)-1))
+"RTN","LEX2093",312,0)
+ Q X
+"RTN","LEX2093",313,0)
+IMP ; Import names
+"RTN","LEX2093",314,0)
+ S LEXPTYPE="Code Set Remedy Ticket Fixes"
+"RTN","LEX2093",315,0)
+ S LEXPTYPE="Code Set Update"
+"RTN","LEX2093",316,0)
+ ; Revision
+"RTN","LEX2093",317,0)
+ S LEXLREV=93
+"RTN","LEX2093",318,0)
+ ; Required Builds Array
+"RTN","LEX2093",319,0)
+ ; LEX(1)=build SEQ #^released date^subject
+"RTN","LEX2093",320,0)
+ ; LEX(n)=build SEQ #^released date^subject
+"RTN","LEX2093",321,0)
+ S LEXREQP(1)="LEX*2.0*91 SEQ #81^3130702^Code Set FY13 4th Qtr"
+"RTN","LEX2093",322,0)
+ ; This Build Name
+"RTN","LEX2093",323,0)
+ S LEXBUILD="LEX*2.0*93"
+"RTN","LEX2093",324,0)
+ ; This Build's Export Global Host Filename
+"RTN","LEX2093",325,0)
+ S LEXIGHF="LEX_2_93.GBL"
+"RTN","LEX2093",326,0)
+ ; Fiscal Year
+"RTN","LEX2093",327,0)
+ S LEXFY="FY14"
+"RTN","LEX2093",328,0)
+ ; Quarter
+"RTN","LEX2093",329,0)
+ S LEXQTR="1st"
+"RTN","LEX2093",330,0)
+ Q
+"RTN","LEX2093",331,0)
+EF ; Exported Files
+"RTN","LEX2093",332,0)
+ ;;^LEX(757.01);^LEX(*;Lexicon;757-757.41
+"RTN","LEX2093",333,0)
+ ;;^LEXT(757.2);^LEXT(757.2);Lexicon Subsets/Defaults;757.2
+"RTN","LEX2093",334,0)
+ ;;
+"RTN","LEX2093",335,0)
+ ;;^ICPT(0);^ICPT(;CPT/HCPCS;81
+"RTN","LEX2093",336,0)
+ ;;^DIC(81.1,0);^DIC(81.1);CPT Category;81.1
+"RTN","LEX2093",337,0)
+ ;;^DIC(81.2,0);^DIC(81.2);CPT Copyright;81.2
+"RTN","LEX2093",338,0)
+ ;;^DIC(81.3,0);^DIC(81.3);CPT Modifier;81.3
+"RTN","LEX2093",339,0)
+ ;;
+"RTN","LEX2093",340,0)
+ ;;^ICD9(0);^ICD9(;ICD Diagnosis;80
+"RTN","LEX2093",341,0)
+ ;;^ICD0(0);^ICD0(;ICD Operation/Procedure;80.1
+"RTN","LEX2093",342,0)
+ ;;^ICD(0);^ICD(;DRG Grouper;80.2
+"RTN","LEX2093",343,0)
+ ;;^ICM(0);^ICM(;MAJOR DIAGNOSTIC CATEGORY;80.3
+"RTN","LEX2093",344,0)
+ Q
+"RTN","LEX2093",345,0)
+GD ; Global Data
+"RTN","LEX2093",346,0)
+ ;;^ICD0(0);^ICD0(;ICD Operation/Procedure;80.1
+"RTN","LEX2093",347,0)
+ ;;^ICPT(0);^ICPT(;CPT/HCPCS;81
+"RTN","LEX2093",348,0)
+ ;;^DIC(81.1,0);^DIC(81.1);CPT Category;81.1
+"RTN","LEX2093",349,0)
+ ;;^DIC(81.3,0);^DIC(81.3);CPT Modifier;81.3
+"RTN","LEX2093",350,0)
+ ;;^LEX(757.01);^LEX(*;Lexicon;757-757.41
+"RTN","LEX2093A")
+0^3^B35829700^n/a
+"RTN","LEX2093A",1,0)
+LEX2093A ;ISL/KER - LEX*2.0*93 Post Install ;09/18/2013
+"RTN","LEX2093A",2,0)
+ ;;2.0;LEXICON UTILITY;**93**;Sep 23, 1996;Build 2
+"RTN","LEX2093A",3,0)
+ ;
+"RTN","LEX2093A",4,0)
+ ; Global Variables
+"RTN","LEX2093A",5,0)
+ ; ^ICD0( ICR 4486
+"RTN","LEX2093A",6,0)
+ ;
+"RTN","LEX2093A",7,0)
+ ; External References
+"RTN","LEX2093A",8,0)
+ ; IX1^DIK ICR 10013
+"RTN","LEX2093A",9,0)
+ ;
+"RTN","LEX2093A",10,0)
+ Q
+"RTN","LEX2093A",11,0)
+POST ; Post-Install
+"RTN","LEX2093A",12,0)
+ N DA,DIK
+"RTN","LEX2093A",13,0)
+ S ^ICD0(1970,0)="00.96^^^INFUSION 4F-PCC^^^^^^^^3131001"
+"RTN","LEX2093A",14,0)
+ S ^ICD0(1970,1)="INFUSION OF 4-FACTOR PROTHROMBIN COMPLEX CONCENTRATE"
+"RTN","LEX2093A",15,0)
+ S ^ICD0(1970,66,0)="^80.166DA^1^1"
+"RTN","LEX2093A",16,0)
+ S ^ICD0(1970,66,1,0)="3131001^1"
+"RTN","LEX2093A",17,0)
+ S ^ICD0(1970,66,"B",3131001,1)=""
+"RTN","LEX2093A",18,0)
+ S ^ICD0(1970,67,0)="^80.167D^1^1"
+"RTN","LEX2093A",19,0)
+ S ^ICD0(1970,67,1,0)="3131001^INFUSION 4F-PCC"
+"RTN","LEX2093A",20,0)
+ S ^ICD0(1970,67,"B",3131001,1)=""
+"RTN","LEX2093A",21,0)
+ S ^ICD0(1970,68,0)="^80.168D^1^1"
+"RTN","LEX2093A",22,0)
+ S ^ICD0(1970,68,1,0)="3131001"
+"RTN","LEX2093A",23,0)
+ S ^ICD0(1970,68,1,1)="INFUSION OF 4-FACTOR PROTHROMBIN COMPLEX CONCENTRATE"
+"RTN","LEX2093A",24,0)
+ S ^ICD0(1970,68,"B",3131001,1)=""
+"RTN","LEX2093A",25,0)
+ S DA=1970,DIK="^ICD0(" D IX1^DIK
+"RTN","LEX2093A",26,0)
+ ;
+"RTN","LEX2093A",27,0)
+ S ^ICD0(1982,0)="14.81^O^^IMP EPIRETINAL PROSTH^^^^^^^^3131001"
+"RTN","LEX2093A",28,0)
+ S ^ICD0(1982,1)="IMPLANTATION OF EPIRETINAL VISUAL PROSTHESIS"
+"RTN","LEX2093A",29,0)
+ S ^ICD0(1982,2,0)="^80.171D^1^1"
+"RTN","LEX2093A",30,0)
+ S ^ICD0(1982,2,1,0)="3131001"
+"RTN","LEX2093A",31,0)
+ S ^ICD0(1982,2,1,1,0)="^80.1711P^3^3"
+"RTN","LEX2093A",32,0)
+ S ^ICD0(1982,2,1,1,1,0)="2"
+"RTN","LEX2093A",33,0)
+ S ^ICD0(1982,2,1,1,1,1,0)="^80.17111P^2^2"
+"RTN","LEX2093A",34,0)
+ S ^ICD0(1982,2,1,1,1,1,1,0)="116"
+"RTN","LEX2093A",35,0)
+ S ^ICD0(1982,2,1,1,1,1,2,0)="117"
+"RTN","LEX2093A",36,0)
+ S ^ICD0(1982,2,1,1,1,1,"B",116,1)=""
+"RTN","LEX2093A",37,0)
+ S ^ICD0(1982,2,1,1,1,1,"B",117,2)=""
+"RTN","LEX2093A",38,0)
+ S ^ICD0(1982,2,1,1,2,0)="21"
+"RTN","LEX2093A",39,0)
+ S ^ICD0(1982,2,1,1,2,1,0)="^80.17111P^3^3"
+"RTN","LEX2093A",40,0)
+ S ^ICD0(1982,2,1,1,2,1,1,0)="907"
+"RTN","LEX2093A",41,0)
+ S ^ICD0(1982,2,1,1,2,1,2,0)="908"
+"RTN","LEX2093A",42,0)
+ S ^ICD0(1982,2,1,1,2,1,3,0)="909"
+"RTN","LEX2093A",43,0)
+ S ^ICD0(1982,2,1,1,2,1,"B",907,1)=""
+"RTN","LEX2093A",44,0)
+ S ^ICD0(1982,2,1,1,2,1,"B",908,2)=""
+"RTN","LEX2093A",45,0)
+ S ^ICD0(1982,2,1,1,2,1,"B",909,3)=""
+"RTN","LEX2093A",46,0)
+ S ^ICD0(1982,2,1,1,3,0)="24"
+"RTN","LEX2093A",47,0)
+ S ^ICD0(1982,2,1,1,3,1,0)="^80.17111P^6^6"
+"RTN","LEX2093A",48,0)
+ S ^ICD0(1982,2,1,1,3,1,1,0)="957"
+"RTN","LEX2093A",49,0)
+ S ^ICD0(1982,2,1,1,3,1,2,0)="958"
+"RTN","LEX2093A",50,0)
+ S ^ICD0(1982,2,1,1,3,1,3,0)="959"
+"RTN","LEX2093A",51,0)
+ S ^ICD0(1982,2,1,1,3,1,4,0)="981"
+"RTN","LEX2093A",52,0)
+ S ^ICD0(1982,2,1,1,3,1,5,0)="982"
+"RTN","LEX2093A",53,0)
+ S ^ICD0(1982,2,1,1,3,1,6,0)="983"
+"RTN","LEX2093A",54,0)
+ S ^ICD0(1982,2,1,1,3,1,"B",957,1)=""
+"RTN","LEX2093A",55,0)
+ S ^ICD0(1982,2,1,1,3,1,"B",958,2)=""
+"RTN","LEX2093A",56,0)
+ S ^ICD0(1982,2,1,1,3,1,"B",959,3)=""
+"RTN","LEX2093A",57,0)
+ S ^ICD0(1982,2,1,1,3,1,"B",981,4)=""
+"RTN","LEX2093A",58,0)
+ S ^ICD0(1982,2,1,1,3,1,"B",982,5)=""
+"RTN","LEX2093A",59,0)
+ S ^ICD0(1982,2,1,1,3,1,"B",983,6)=""
+"RTN","LEX2093A",60,0)
+ S ^ICD0(1982,2,1,1,"B",2,1)=""
+"RTN","LEX2093A",61,0)
+ S ^ICD0(1982,2,1,1,"B",21,2)=""
+"RTN","LEX2093A",62,0)
+ S ^ICD0(1982,2,1,1,"B",24,3)=""
+"RTN","LEX2093A",63,0)
+ S ^ICD0(1982,2,"B",3131001,1)=""
+"RTN","LEX2093A",64,0)
+ S ^ICD0(1982,66,0)="^80.166DA^1^1"
+"RTN","LEX2093A",65,0)
+ S ^ICD0(1982,66,1,0)="3131001^1"
+"RTN","LEX2093A",66,0)
+ S ^ICD0(1982,66,"B",3131001,1)=""
+"RTN","LEX2093A",67,0)
+ S ^ICD0(1982,67,0)="^80.167D^1^1"
+"RTN","LEX2093A",68,0)
+ S ^ICD0(1982,67,1,0)="3131001^IMP EPIRETINAL PROSTH"
+"RTN","LEX2093A",69,0)
+ S ^ICD0(1982,67,"B",3131001,1)=""
+"RTN","LEX2093A",70,0)
+ S ^ICD0(1982,68,0)="^80.168D^1^1"
+"RTN","LEX2093A",71,0)
+ S ^ICD0(1982,68,1,0)="3131001"
+"RTN","LEX2093A",72,0)
+ S ^ICD0(1982,68,1,1)="IMPLANTATION OF EPIRETINAL VISUAL PROSTHESIS"
+"RTN","LEX2093A",73,0)
+ S ^ICD0(1982,68,"B",3131001,1)=""
+"RTN","LEX2093A",74,0)
+ S DA=1982,DIK="^ICD0(" D IX1^DIK
+"RTN","LEX2093A",75,0)
+ ;
+"RTN","LEX2093A",76,0)
+ S ^ICD0(2940,0)="14.82^O^^REM EPIRETINAL PROSTH^^^^^^^^3131001"
+"RTN","LEX2093A",77,0)
+ S ^ICD0(2940,1)="REMOVAL OF EPIRETINAL VISUAL PROSTHESIS"
+"RTN","LEX2093A",78,0)
+ S ^ICD0(2940,2,0)="^80.171D^1^1"
+"RTN","LEX2093A",79,0)
+ S ^ICD0(2940,2,1,0)="3131001"
+"RTN","LEX2093A",80,0)
+ S ^ICD0(2940,2,1,1,0)="^80.1711P^3^3"
+"RTN","LEX2093A",81,0)
+ S ^ICD0(2940,2,1,1,1,0)="2"
+"RTN","LEX2093A",82,0)
+ S ^ICD0(2940,2,1,1,1,1,0)="^80.17111P^2^2"
+"RTN","LEX2093A",83,0)
+ S ^ICD0(2940,2,1,1,1,1,1,0)="116"
+"RTN","LEX2093A",84,0)
+ S ^ICD0(2940,2,1,1,1,1,2,0)="117"
+"RTN","LEX2093A",85,0)
+ S ^ICD0(2940,2,1,1,1,1,"B",116,1)=""
+"RTN","LEX2093A",86,0)
+ S ^ICD0(2940,2,1,1,1,1,"B",117,2)=""
+"RTN","LEX2093A",87,0)
+ S ^ICD0(2940,2,1,1,2,0)="21"
+"RTN","LEX2093A",88,0)
+ S ^ICD0(2940,2,1,1,2,1,0)="^80.17111P^3^3"
+"RTN","LEX2093A",89,0)
+ S ^ICD0(2940,2,1,1,2,1,1,0)="907"
+"RTN","LEX2093A",90,0)
+ S ^ICD0(2940,2,1,1,2,1,2,0)="908"
+"RTN","LEX2093A",91,0)
+ S ^ICD0(2940,2,1,1,2,1,3,0)="909"
+"RTN","LEX2093A",92,0)
+ S ^ICD0(2940,2,1,1,2,1,"B",907,1)=""
+"RTN","LEX2093A",93,0)
+ S ^ICD0(2940,2,1,1,2,1,"B",908,2)=""
+"RTN","LEX2093A",94,0)
+ S ^ICD0(2940,2,1,1,2,1,"B",909,3)=""
+"RTN","LEX2093A",95,0)
+ S ^ICD0(2940,2,1,1,3,0)="24"
+"RTN","LEX2093A",96,0)
+ S ^ICD0(2940,2,1,1,3,1,0)="^80.17111P^6^6"
+"RTN","LEX2093A",97,0)
+ S ^ICD0(2940,2,1,1,3,1,1,0)="957"
+"RTN","LEX2093A",98,0)
+ S ^ICD0(2940,2,1,1,3,1,2,0)="958"
+"RTN","LEX2093A",99,0)
+ S ^ICD0(2940,2,1,1,3,1,3,0)="959"
+"RTN","LEX2093A",100,0)
+ S ^ICD0(2940,2,1,1,3,1,4,0)="981"
+"RTN","LEX2093A",101,0)
+ S ^ICD0(2940,2,1,1,3,1,5,0)="982"
+"RTN","LEX2093A",102,0)
+ S ^ICD0(2940,2,1,1,3,1,6,0)="983"
+"RTN","LEX2093A",103,0)
+ S ^ICD0(2940,2,1,1,3,1,"B",957,1)=""
+"RTN","LEX2093A",104,0)
+ S ^ICD0(2940,2,1,1,3,1,"B",958,2)=""
+"RTN","LEX2093A",105,0)
+ S ^ICD0(2940,2,1,1,3,1,"B",959,3)=""
+"RTN","LEX2093A",106,0)
+ S ^ICD0(2940,2,1,1,3,1,"B",981,4)=""
+"RTN","LEX2093A",107,0)
+ S ^ICD0(2940,2,1,1,3,1,"B",982,5)=""
+"RTN","LEX2093A",108,0)
+ S ^ICD0(2940,2,1,1,3,1,"B",983,6)=""
+"RTN","LEX2093A",109,0)
+ S ^ICD0(2940,2,1,1,"B",2,1)=""
+"RTN","LEX2093A",110,0)
+ S ^ICD0(2940,2,1,1,"B",21,2)=""
+"RTN","LEX2093A",111,0)
+ S ^ICD0(2940,2,1,1,"B",24,3)=""
+"RTN","LEX2093A",112,0)
+ S ^ICD0(2940,2,"B",3131001,1)=""
+"RTN","LEX2093A",113,0)
+ S ^ICD0(2940,66,0)="^80.166DA^1^1"
+"RTN","LEX2093A",114,0)
+ S ^ICD0(2940,66,1,0)="3131001^1"
+"RTN","LEX2093A",115,0)
+ S ^ICD0(2940,66,"B",3131001,1)=""
+"RTN","LEX2093A",116,0)
+ S ^ICD0(2940,67,0)="^80.167D^1^1"
+"RTN","LEX2093A",117,0)
+ S ^ICD0(2940,67,1,0)="3131001^REM EPIRETINAL PROSTH"
+"RTN","LEX2093A",118,0)
+ S ^ICD0(2940,67,"B",3131001,1)=""
+"RTN","LEX2093A",119,0)
+ S ^ICD0(2940,68,0)="^80.168D^1^1"
+"RTN","LEX2093A",120,0)
+ S ^ICD0(2940,68,1,0)="3131001"
+"RTN","LEX2093A",121,0)
+ S ^ICD0(2940,68,1,1)="REMOVAL OF EPIRETINAL VISUAL PROSTHESIS"
+"RTN","LEX2093A",122,0)
+ S ^ICD0(2940,68,"B",3131001,1)=""
+"RTN","LEX2093A",123,0)
+ S DA=2940,DIK="^ICD0(" D IX1^DIK
+"RTN","LEX2093A",124,0)
+ ;
+"RTN","LEX2093A",125,0)
+ S ^ICD0(2941,0)="14.83^O^^REV/REPL EPIRETINAL PROS^^^^^^^^3131001"
+"RTN","LEX2093A",126,0)
+ S ^ICD0(2941,1)="REVISION OR REPLACEMENT OF EPIRETINAL VISUAL PROSTHESIS"
+"RTN","LEX2093A",127,0)
+ S ^ICD0(2941,2,0)="^80.171D^1^1"
+"RTN","LEX2093A",128,0)
+ S ^ICD0(2941,2,1,0)="3131001"
+"RTN","LEX2093A",129,0)
+ S ^ICD0(2941,2,1,1,0)="^80.1711P^3^3"
+"RTN","LEX2093A",130,0)
+ S ^ICD0(2941,2,1,1,1,0)="2"
+"RTN","LEX2093A",131,0)
+ S ^ICD0(2941,2,1,1,1,1,0)="^80.17111P^2^2"
+"RTN","LEX2093A",132,0)
+ S ^ICD0(2941,2,1,1,1,1,1,0)="116"
+"RTN","LEX2093A",133,0)
+ S ^ICD0(2941,2,1,1,1,1,2,0)="117"
+"RTN","LEX2093A",134,0)
+ S ^ICD0(2941,2,1,1,1,1,"B",116,1)=""
+"RTN","LEX2093A",135,0)
+ S ^ICD0(2941,2,1,1,1,1,"B",117,2)=""
+"RTN","LEX2093A",136,0)
+ S ^ICD0(2941,2,1,1,2,0)="21"
+"RTN","LEX2093A",137,0)
+ S ^ICD0(2941,2,1,1,2,1,0)="^80.17111P^3^3"
+"RTN","LEX2093A",138,0)
+ S ^ICD0(2941,2,1,1,2,1,1,0)="907"
+"RTN","LEX2093A",139,0)
+ S ^ICD0(2941,2,1,1,2,1,2,0)="908"
+"RTN","LEX2093A",140,0)
+ S ^ICD0(2941,2,1,1,2,1,3,0)="909"
+"RTN","LEX2093A",141,0)
+ S ^ICD0(2941,2,1,1,2,1,"B",907,1)=""
+"RTN","LEX2093A",142,0)
+ S ^ICD0(2941,2,1,1,2,1,"B",908,2)=""
+"RTN","LEX2093A",143,0)
+ S ^ICD0(2941,2,1,1,2,1,"B",909,3)=""
+"RTN","LEX2093A",144,0)
+ S ^ICD0(2941,2,1,1,3,0)="24"
+"RTN","LEX2093A",145,0)
+ S ^ICD0(2941,2,1,1,3,1,0)="^80.17111P^6^6"
+"RTN","LEX2093A",146,0)
+ S ^ICD0(2941,2,1,1,3,1,1,0)="957"
+"RTN","LEX2093A",147,0)
+ S ^ICD0(2941,2,1,1,3,1,2,0)="958"
+"RTN","LEX2093A",148,0)
+ S ^ICD0(2941,2,1,1,3,1,3,0)="959"
+"RTN","LEX2093A",149,0)
+ S ^ICD0(2941,2,1,1,3,1,4,0)="981"
+"RTN","LEX2093A",150,0)
+ S ^ICD0(2941,2,1,1,3,1,5,0)="982"
+"RTN","LEX2093A",151,0)
+ S ^ICD0(2941,2,1,1,3,1,6,0)="983"
+"RTN","LEX2093A",152,0)
+ S ^ICD0(2941,2,1,1,3,1,"B",957,1)=""
+"RTN","LEX2093A",153,0)
+ S ^ICD0(2941,2,1,1,3,1,"B",958,2)=""
+"RTN","LEX2093A",154,0)
+ S ^ICD0(2941,2,1,1,3,1,"B",959,3)=""
+"RTN","LEX2093A",155,0)
+ S ^ICD0(2941,2,1,1,3,1,"B",981,4)=""
+"RTN","LEX2093A",156,0)
+ S ^ICD0(2941,2,1,1,3,1,"B",982,5)=""
+"RTN","LEX2093A",157,0)
+ S ^ICD0(2941,2,1,1,3,1,"B",983,6)=""
+"RTN","LEX2093A",158,0)
+ S ^ICD0(2941,2,1,1,"B",2,1)=""
+"RTN","LEX2093A",159,0)
+ S ^ICD0(2941,2,1,1,"B",21,2)=""
+"RTN","LEX2093A",160,0)
+ S ^ICD0(2941,2,1,1,"B",24,3)=""
+"RTN","LEX2093A",161,0)
+ S ^ICD0(2941,2,"B",3131001,1)=""
+"RTN","LEX2093A",162,0)
+ S ^ICD0(2941,66,0)="^80.166DA^1^1"
+"RTN","LEX2093A",163,0)
+ S ^ICD0(2941,66,1,0)="3131001^1"
+"RTN","LEX2093A",164,0)
+ S ^ICD0(2941,66,"B",3131001,1)=""
+"RTN","LEX2093A",165,0)
+ S ^ICD0(2941,67,0)="^80.167D^1^1"
+"RTN","LEX2093A",166,0)
+ S ^ICD0(2941,67,1,0)="3131001^REV/REPL EPIRETINAL PROS"
+"RTN","LEX2093A",167,0)
+ S ^ICD0(2941,67,"B",3131001,1)=""
+"RTN","LEX2093A",168,0)
+ S ^ICD0(2941,68,0)="^80.168D^1^1"
+"RTN","LEX2093A",169,0)
+ S ^ICD0(2941,68,1,0)="3131001"
+"RTN","LEX2093A",170,0)
+ S ^ICD0(2941,68,1,1)="REVISION OR REPLACEMENT OF EPIRETINAL VISUAL PROSTHESIS"
+"RTN","LEX2093A",171,0)
+ S ^ICD0(2941,68,"B",3131001,1)=""
+"RTN","LEX2093A",172,0)
+ S DA=2941,DIK="^ICD0(" D IX1^DIK
+"RTN","LEX2093A",173,0)
+ ;
+"RTN","LEX2093A",174,0)
+ Q
+"RTN","LEX2093P")
+0^2^B19845993^n/a
+"RTN","LEX2093P",1,0)
+LEX2093P ;ISL/KER - LEX*2.0*93 Pre/Post Install ;09/18/2013
+"RTN","LEX2093P",2,0)
+ ;;2.0;LEXICON UTILITY;**93**;Sep 23, 1996;Build 2
+"RTN","LEX2093P",3,0)
+ ;
+"RTN","LEX2093P",4,0)
+ ; Global Variables
+"RTN","LEX2093P",5,0)
+ ; ^LEXM( N/A
+"RTN","LEX2093P",6,0)
+ ;
+"RTN","LEX2093P",7,0)
+ ; External References
+"RTN","LEX2093P",8,0)
+ ; ^DIC ICR 10006
+"RTN","LEX2093P",9,0)
+ ; $$NOW^XLFDT ICR 10103
+"RTN","LEX2093P",10,0)
+ ; $$PKGPAT^XPDIP ICR 2067
+"RTN","LEX2093P",11,0)
+ ; MES^XPDUTL ICR 10141
+"RTN","LEX2093P",12,0)
+ ;
+"RTN","LEX2093P",13,0)
+ Q
+"RTN","LEX2093P",14,0)
+POST ; Post-Install
+"RTN","LEX2093P",15,0)
+ ;
+"RTN","LEX2093P",16,0)
+ ; From IMP in the Environment Check
+"RTN","LEX2093P",17,0)
+ ;
+"RTN","LEX2093P",18,0)
+ ; LEXBUILD Build Name - LEX*2.0*nn
+"RTN","LEX2093P",19,0)
+ ; LEXPTYPE Patch Type - Remedy or Quarterly
+"RTN","LEX2093P",20,0)
+ ; LEXFY Fiscal Year - FYnn
+"RTN","LEX2093P",21,0)
+ ; LEXQTR Quarter - 1st, 2nd, 3rd, or 4th
+"RTN","LEX2093P",22,0)
+ ; LEXIGHF Name of Host File - LEX_2_nn.GBL
+"RTN","LEX2093P",23,0)
+ ; LEXLREV Revision - nn
+"RTN","LEX2093P",24,0)
+ ; LEXREQP Required Builds - build;build;build
+"RTN","LEX2093P",25,0)
+ ;
+"RTN","LEX2093P",26,0)
+ ; Note: The section IPL (Informational Patch List) must
+"RTN","LEX2093P",27,0)
+ ; be updated with each patch
+"RTN","LEX2093P",28,0)
+ ;
+"RTN","LEX2093P",29,0)
+ N LEXEDT,LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR,LEXB,LEXCD,LEXSTR,LEXLAST,LEXOK,X,Y S LEXOK=0 D IMP
+"RTN","LEX2093P",30,0)
+ S LEXEDT=$G(^LEXM(0,"CREATED")) D:LEXOK>0 LOAD,CON,IP
+"RTN","LEX2093P",31,0)
+ Q
+"RTN","LEX2093P",32,0)
+LOAD ; Load Data
+"RTN","LEX2093P",33,0)
+ ;
+"RTN","LEX2093P",34,0)
+ ; LEXSHORT Send Short Message
+"RTN","LEX2093P",35,0)
+ ; LEXMSG Flag to send Message
+"RTN","LEX2093P",36,0)
+ ;
+"RTN","LEX2093P",37,0)
+ N LEXSHORT,LEXMSG S LEXSHORT="",LEXMSG=""
+"RTN","LEX2093P",38,0)
+ S LEXSTR=$G(LEXPTYPE) S:$L($G(LEXFY))&($L($G(LEXQTR))) LEXSTR=LEXSTR_" for "_$G(LEXFY)_" "_$G(LEXQTR)_" Quarter"
+"RTN","LEX2093P",39,0)
+ S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:$G(LEXBUILD)=""
+"RTN","LEX2093P",40,0)
+ D:LEXB=LEXBUILD EN^LEXXGI
+"RTN","LEX2093P",41,0)
+LQ ; Load Quit
+"RTN","LEX2093P",42,0)
+ D KLEXM
+"RTN","LEX2093P",43,0)
+ Q
+"RTN","LEX2093P",44,0)
+ ;
+"RTN","LEX2093P",45,0)
+KLEXM ; Subscripted Kill of ^LEXM
+"RTN","LEX2093P",46,0)
+ H 2 N DA S DA=0 F S DA=$O(^LEXM(DA)) Q:+DA=0 K ^LEXM(DA)
+"RTN","LEX2093P",47,0)
+ N LEX S LEX=$G(^LEXM(0,"PRO")) K ^LEXM(0)
+"RTN","LEX2093P",48,0)
+ Q
+"RTN","LEX2093P",49,0)
+ ;
+"RTN","LEX2093P",50,0)
+IP ; Informational Patches
+"RTN","LEX2093P",51,0)
+ N LEX,LEXP,LEXPS,LEXSQ,LEXT,LEXI,LEXE,LEXX,LEXC,LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR,LEXSUB,LEXOK D IMP S LEXSUB=""
+"RTN","LEX2093P",52,0)
+ I $G(LEXPTYPE)="Code Set Update",$G(LEXFY)["FY",$L($G(LEXQTR)) S LEXSUB="Code Set "_LEXFY_" "_LEXQTR_" Qtr Update"
+"RTN","LEX2093P",53,0)
+ S LEXC=0 F LEXI=1:1 D Q:'$L(LEXX)
+"RTN","LEX2093P",54,0)
+ . S LEXX="" S LEXE="S LEXX=$T(IPL+"_LEXI_")" X LEXE S:'$L($TR($G(LEXX),";","")) LEXX="" Q:'$L(LEXX) S LEXPS=$P(LEXX,";;",2) S:$L(LEXPS,"*")=3 LEXC=LEXC+1
+"RTN","LEX2093P",55,0)
+ I LEXC>0 S LEXT=" Informational Patch"_$S(+($G(LEXC))>1:"es",1:"") S:$L(LEXSUB) LEXT=LEXT_" for the "_LEXSUB S LEXT=LEXT_":" D MES^XPDUTL(LEXT)
+"RTN","LEX2093P",56,0)
+ S LEXC=0 F LEXI=1:1 D Q:'$L(LEXX)
+"RTN","LEX2093P",57,0)
+ . S LEXX="" S LEXE="S LEXX=$T(IPL+"_LEXI_")" X LEXE S:'$L($TR($G(LEXX),";","")) LEXX="" Q:'$L(LEXX) S LEXPS=$P(LEXX,";;",2) S:'$L(LEXPS) LEXX="" Q:'$L(LEXX)
+"RTN","LEX2093P",58,0)
+ . S LEXSQ=+($P(LEXX,";;",3)) S:+LEXSQ>0 LEXPS=LEXPS_" SEQ #"_LEXSQ S LEXC=LEXC+1 D:LEXC=1 MES^XPDUTL(" ")
+"RTN","LEX2093P",59,0)
+ . W:$D(LEXTEST) !,?5,LEXPS D:'$D(LEXTEST) IPU(LEXPS)
+"RTN","LEX2093P",60,0)
+ D:LEXC>0 MES^XPDUTL(" ") N LEXTEST
+"RTN","LEX2093P",61,0)
+ Q
+"RTN","LEX2093P",62,0)
+IPU(X) ; Patch Update
+"RTN","LEX2093P",63,0)
+ N LEXID,LEXOP,LEXPC,LEXPK,LEXPKI,LEXPN,LEXPTI,LEXSQ,LEXT,LEXVR,LEXVRI,LEXAR
+"RTN","LEX2093P",64,0)
+ S LEXPC=$G(X),LEXSQ=$P(LEXPC," ",2,299),LEXID=$P(LEXPC," ",1),LEXOP=""
+"RTN","LEX2093P",65,0)
+ S LEXPK=$S($P(LEXPC,"*",1)="ICD":"DRG GROUPER",$P(LEXPC,"*",1)="ICPT":"CPT/HCPCS CODES",$P(LEXPC,"*",1)="LEX":"LEXICON UTILITY",1:"") Q:'$L(LEXPK)
+"RTN","LEX2093P",66,0)
+ S LEXPKI=$$PIEN(LEXPK) Q:+LEXPKI'>0 S LEXVR=$P(LEXPC,"*",2) Q:'$L(LEXVR) Q:LEXVR'["." S LEXPN=$P(LEXPC,"*",3) Q:'$L(LEXPN) Q:+LEXPN'>0
+"RTN","LEX2093P",67,0)
+ S LEXAR=LEXPN_"^"_$$NOW^XLFDT_"^"_$G(DUZ)
+"RTN","LEX2093P",68,0)
+ I $L($G(LEXBUILD)) S LEXOP=$$PKGPAT^XPDIP(LEXPKI,LEXVR,.LEXAR)
+"RTN","LEX2093P",69,0)
+ S LEXVRI=$P(LEXOP,"^",1),LEXPTI=$P(LEXOP,"^",2)
+"RTN","LEX2093P",70,0)
+ S LEXT=" "_LEXID,LEXT=LEXT_$J(" ",(17-$L(LEXT)))_LEXSQ,LEXT=LEXT_$J(" ",(28-$L(LEXT)))_LEXPK
+"RTN","LEX2093P",71,0)
+ I $L(LEXOP),LEXPTI>0 S LEXT=LEXT_$J(" ",(46-$L(LEXT)))_"Patch History updated" D MES^XPDUTL(LEXT)
+"RTN","LEX2093P",72,0)
+ I $L(LEXOP),LEXPTI'>0 S LEXT=LEXT_$J(" ",(46-$L(LEXT)))_"Patch History not updated" D MES^XPDUTL(LEXT)
+"RTN","LEX2093P",73,0)
+ I '$L(LEXOP) D MES^XPDUTL(LEXT)
+"RTN","LEX2093P",74,0)
+ Q
+"RTN","LEX2093P",75,0)
+IPL ; Patch List ;;Patch;;Sequence #
+"RTN","LEX2093P",76,0)
+ ;;ICPT*6.0*65;;
+"RTN","LEX2093P",77,0)
+ ;;ICD*18.0*73;;
+"RTN","LEX2093P",78,0)
+ ;;;;;;
+"RTN","LEX2093P",79,0)
+PRE ; Pre-Install (N/A for this patch)
+"RTN","LEX2093P",80,0)
+ Q
+"RTN","LEX2093P",81,0)
+CON ; Conversion of data
+"RTN","LEX2093P",82,0)
+ D POST^LEX2093A
+"RTN","LEX2093P",83,0)
+ Q
+"RTN","LEX2093P",84,0)
+ ;
+"RTN","LEX2093P",85,0)
+ ; Miscellaneous
+"RTN","LEX2093P",86,0)
+PIEN(X) ; Package IEN
+"RTN","LEX2093P",87,0)
+ N DIC,DTOUT,DTOUT,Y S X=$G(X),DIC="^DIC(9.4,",DIC(0)="B" D ^DIC S X=+Y
+"RTN","LEX2093P",88,0)
+ Q X
+"RTN","LEX2093P",89,0)
+IMP ; Call IMP in Environment Check
+"RTN","LEX2093P",90,0)
+ K LEXBUILD,LEXFY,LEXIGHF,LEXLREV,LEXPTYPE,LEXQTR,LEXREQP N LEXF
+"RTN","LEX2093P",91,0)
+ S LEXF=$P($T(+1)," ",1) S:$E(LEXF,$L(LEXF))="P" LEXF=$E(LEXF,1,($L(LEXF)-1)) Q:'$L(LEXF)
+"RTN","LEX2093P",92,0)
+ S LEXF="IMP^"_LEXF Q:'$L($T(@LEXF)) D @LEXF S:$L(LEXBUILD) LEXOK=1
+"RTN","LEX2093P",93,0)
+ Q
+"VER")
+8.0^22.0
+"BLD",8169,6)
+^82
+**END**
+**END**
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_93/LEX-2_SEQ-82_PAT-93.TXT b/Packages/Lexicon Utility/Patches/LEX_2.0_93/LEX-2_SEQ-82_PAT-93.TXT
new file mode 100644
index 0000000..eb5aeb7
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_93/LEX-2_SEQ-82_PAT-93.TXT
@@ -0,0 +1,248 @@
+$TXT Created by ROWE,KIMBALL at LEXNXT.FO-BAYPINES.DOMAIN.EXT (KIDS) on Wednesday, 09/18/13 at 10:08
+=============================================================================
+Run Date: OCT 21, 2013 Designation: LEX*2*93
+Package : LEX - LEXICON UTILITY Priority: Mandatory
+Version : 2 SEQ #82 Status: Released
+ Compliance Date: OCT 28, 2013
+=============================================================================
+
+Associated patches: (v)LEX*2*91 <<= must be installed BEFORE `LEX*2*93'
+
+Subject: Code Set FY14 1st Qtr Update
+
+Category:
+ - Routine
+ - Data Dictionary
+ - Enhancement (Mandatory)
+ - Other
+
+Description:
+============
+
+ This patch contains the FY14 1st Quarter Code Set distribution with 8
+ changes effective Oct 1, 2013. This patch also contains 6 changes
+ from FY13 2nd Qtr (effective Jan 1, 2013) and 14331 SNOMED CT changes
+ (effective Jul 31, 2013). This patch installs the data for the
+ following Informational patches:
+
+ ICD*18.0*73
+ ICPT*6.0*65
+
+ This patch writes to the following files:
+
+ ICD OPERATION/PROCEDURES #80.1 ^ICD0( ICR 4486
+ CPT #81 ^ICPT( ICR 4489
+ CPT MODIFIER #81.3 ^DIC(81.3, ICR 4492
+ LEXICON files #757-757.41 ^LEX( N/A
+
+
+ ENHANCEMENTS
+ ============
+
+ FY14 1st Quarter Update
+
+ ICD Procedure Additions
+ -----------------------
+
+ Effective Oct 01, 2013 (4 Codes)
+ 00.96 14.81 14.82 14.83
+
+ CPT Procedure Additions
+ -----------------------
+
+ Effective Jan 01, 2013 (5 Codes)
+ 90673 90685 90686 90687 90688
+
+ HCPCS Procedure Additions
+ -------------------------
+
+ Effective Oct 01, 2013 (3 Codes)
+ C1204 C1841 C9132
+
+ HCPCS Procedure Inactivations
+ -----------------------------
+
+ Effective Jan 01, 2013 (1 Code)
+ C9366
+
+ CPT Modifier Additions
+ ----------------------
+
+ Effective Oct 01, 2013 (1 Code)
+ AO
+
+ SNOMED-CT Update
+ ----------------
+
+ SNOMED CT designation codes have been added to the EXPRESSIONS
+ file #757.01.
+
+
+ REMEDY TICKETS:
+ ==============
+
+ 865226 - Reactivated HCPCS codes L3660 and L3675
+ 856797 - Inactivate HCPCS code C9366 on Jan 2013 (Replaced by Q4131)
+ 872782 - Inactivate HCPCS code C9366 on Jan 2013 (Duplicate)
+ 878128 - Inactivate HCPCS code C9366 on Jan 2013 (Duplicate)
+ 902111 - Inactivate HCPCS code C9366 on Jan 2013 (Duplicate)
+ 907141 - Inactivate HCPCS code C9366 on Jan 2013 (Duplicate)
+ 878732 - Modifier 50 for CPT range 36222-36228
+ 900599 - Modifiers CH, CI, CJ, CK, CL, CM, and CN for HCPCS code G9186
+
+
+ FILE TRANSFER PROTOCOL (FTP) SOFTWARE RETRIEVAL:
+ ===============================================
+
+ Global Host File: LEX_2_93.GBL (ASCII)
+
+ The preferred method is to FTP the files from download.vista.domain.ext,
+ which will transmit the files from the first available FTP server.
+
+ The files may also be downloaded directly from a particular FTP
+ location at the following locations.
+
+ Hines ftp.fo-hines.domain.ext
+ Albany ftp.fo-albany.domain.ext
+ Salt Lake ftp.fo-slc.domain.ext
+
+ Files are available in the ANONYMOUS.SOFTWARE directory.
+
+ INSTALLATION INSTRUCTIONS
+ =========================
+
+ 1) Users may be on the system during the install of LEX*2.0*93.
+ It is recommended that this patch be installed during non-peak
+ hours. This patch should take from 24 to 57 minutes to install
+ depending on the system.
+
+ Create a backup 20 - 47 minutes
+ Load the Global .5 - 3 minutes
+ Kids Install 3 - 7 minutes
+ Total 24 - 57 minutes
+
+ 2) Create a backup of the following global files before continuing:
+
+ ICD Operation/Procedures #80.1 ^ICD0(
+ CPT/HCPCS Procedure #81 ^ICPT(
+ CPT Modifier #81.3 ^DIC(81.3,
+ Lexicon Files #757-757.41 ^LEX(
+
+ These backup files may get as large as 1.2 gigabytes. Make sure
+ space is available before proceeding. It should take from 20 to
+ 47 minutes to create the backup files.
+
+ Before you begin backing up the data in the ^LEX global, first
+ clear out the UNRESOLVED NARRATIVE file 757.06. This will
+ prevent the backup procedure from encountering a control character
+ and aborting in error. At the programmer prompt, issue the
+ following MUMPS command to remove the control characters:
+
+ >D CLR^LEXAR7
+
+ When you are creating a backup of non-subscripted globals, you are
+ saving the entire global. You should use the utility ^%GO for
+ non-subscripted globals, and when prompted for a global, enter
+ the global root (global name only, no open parenthesis, no file
+ number and no commas, as shown below). Examples:
+
+ Enter To create a Backup copy of:
+ ------ --------------------------
+ ^ICD0 ICD Operation/Procedures
+ ^ICPT CPT/HCPCS Procedure
+ ^LEX Lexicon Files
+
+ When you are creating a backup of a subscripted global, you are
+ saving a partial global (a file within a global). You should use
+ the utility ^%GOGEN, and when prompted for a global, enter the open
+ global reference (as shown below). Examples:
+
+ Enter To create a Backup copy of:
+ ------ --------------------------
+ ^DIC(81.3, CPT Modifier
+
+ 3) Install the data from the global host file LEX_2_93.GBL. This
+ file contains the Lexicon Utility's import global ^LEXM.
+
+ This global is approximately 12 megabytes in size. Make sure
+ there is sufficient space available to load this global with
+ journaling on. The loading of the global should take from
+ .5 to 3 minutes.
+
+ From the Programmer prompt, execute the following routine:
+
+ >D ^%GI
+
+ Global input
+
+ Device: VA5$:[ANONYMOUS.SOFTWARE]LEX_2_93.GBL
+ Parameters? "RS" =>
+ Globals were saved on 18 Sep 2013 10:02 AM Cache
+ with description: LEX*2.0*93/ICD*18.0*73/ICPT*6.0*65 Data
+
+ Input option: A
+ ^LEXM
+
+
+ 4) Set up user and IO variables (D ^XUP) for programmer access.
+
+ 5) Distribution Load:
+
+ Load the KIDS Distribution from the Packman Message using the
+ Packman function "Install/Check Message."
+
+ 6) KIDS Installation:
+
+ Install the patch using the KIDS Installation Menu action
+ "Install Package(s)" and the install name LEX*2.0*93.
+
+ Respond "NO" at the "Want KIDS to INHIBIT LOGONs during
+ the install?" prompt.
+
+ Respond "NO" at the "Want to DISABLE Scheduled Options,
+ Menu Options, and Protocols?" prompt.
+
+ The KIDs install should take from 3 to 7 minutes
+
+ 7) Cleanup
+
+ a) The Environment Check routine LEX2093 and the Post-Install
+ routines LEX2093P and LEX2093A should be deleted using the
+ KERNEL option 'Delete Routines' [XTRDEL] upon completion
+ of the installation.
+
+ NOTE: The installation of this patch should trigger an
+ update protocol and may spawn background tasks for
+ the Clinical Reminders or Consult packages. You
+ do not need to wait for these background jobs to
+ complete to delete the Environment Check and
+ Post-Install routines.
+
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;2.0;LEXICON UTILITY;**[Patch List]**;Sep 23, 1996;Build 2
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: LEX2093
+ Before: n/a After:B170276146 **93**
+Routine Name: LEX2093A
+ Before: n/a After: B35829700 **93**
+Routine Name: LEX2093P
+ Before: n/a After: B19845993 **93**
+
+=============================================================================
+User Information:
+Entered By : ROWE,KIMBALL Date Entered : JUN 19, 2013
+Completed By: CARTER,BRUCE C Date Completed: OCT 17, 2013
+Released By : SCHWARTZ,VIKIE Date Released : OCT 21, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/Lexicon Utility/Patches/LEX_2.0_93/LEX_2_93.GBLs.sha1 b/Packages/Lexicon Utility/Patches/LEX_2.0_93/LEX_2_93.GBLs.sha1
new file mode 100644
index 0000000..9427a8d
--- /dev/null
+++ b/Packages/Lexicon Utility/Patches/LEX_2.0_93/LEX_2_93.GBLs.sha1
@@ -0,0 +1 @@
+1a94bff524900841ff9a863e3aee3ea921047048
diff --git a/Packages/Mental Health/Patches/YS_5.01_103/.gitignore b/Packages/Mental Health/Patches/YS_5.01_103/.gitignore
new file mode 100644
index 0000000..de3a5ca
--- /dev/null
+++ b/Packages/Mental Health/Patches/YS_5.01_103/.gitignore
@@ -0,0 +1 @@
+YS_501_103.KID
diff --git a/Packages/Mental Health/Patches/YS_5.01_105/YS-5P01_SEQ-91_PAT-105.TXT b/Packages/Mental Health/Patches/YS_5.01_105/YS-5P01_SEQ-91_PAT-105.TXT
new file mode 100644
index 0000000..f7c1788
--- /dev/null
+++ b/Packages/Mental Health/Patches/YS_5.01_105/YS-5P01_SEQ-91_PAT-105.TXT
@@ -0,0 +1,645 @@
+
+=============================================================================
+Run Date: OCT 02, 2013 Designation: YS*5.01*105
+Package : YS - MENTAL HEALTH Priority: Mandatory
+Version : 5.01 SEQ #91 Status: Released
+ Compliance Date: NOV 02, 2013
+=============================================================================
+
+Associated patches: (v)YS*5.01*83 <<= must be installed BEFORE `YS*5.01*105'
+ (v)YS*5.01*103 <<= must be installed BEFORE `YS*5.01*105'
+
+Subject: ADD NEW INSTRUMENTS TO MENTAL HEALTH ASSISTANT
+
+Category:
+ - Enhancement (Mandatory)
+ - Data Dictionary
+ - Routine
+ - Other
+
+Description:
+============
+
+ The Outcomes Monitoring (OM) project's main focus in this patch is to add
+ new instruments to the Mental Health Assistant (MHA). Outcomes Monitoring
+ refers to the evaluation of the treatment provided patients in the
+ Veterans Health Administration (VHA). These new instruments will help
+ clinicians and administrators analyze the effectiveness of treatment, help
+ clarify diagnoses and provide empirical measures for treatment outcomes.
+
+ New Mental Health Instruments:
+ ==============================
+ The Acceptance and Action Questionnaire (AAQ-2) AAQ-2
+ Brief Addiction Monitor - Consumption Items BAM-C
+ Brief Addiction Monitor - IOP version BAM-IOP
+ Brief Addiction Monitor - Revised BAM-R
+ Barthel Index of Activities of Daily Living BARTHEL INDEX
+ Five Facet Mindfulness Questionnaire FFMQ
+ General Practitioner Assessment of Cognition GPCOG
+ Lawton-Brody Instrumental Activities of Daily Living Scale IADL
+ Millon Behavioral Medicine Diagnostic--Bariatric Norms
+ (This test is already in the package.) MBMD
+ Multidimensional Health Locus of Control: Form C MHLC-C
+ Mini-Cog MINICOG
+ Minnesota Multiphasic Personality Inventory-2-Restructured
+ Form MMPI-2-RF
+ Montreal Cognitive Assessment MOCA
+ Montreal Cognitive Assessment, Alternate 1 MOCA ALT 1
+ Montreal Cognitive Assessment, Alternate 2 MOCA ALT 2
+ NEO Personality Inventory-3 NEO-PI-3
+ PTSD Checklist Stressor Specific PCLS
+ Patient Health Questionnaire 15-Item Somatic Symptom
+ Severity Scale PHQ-15
+ Quality of Life Inventory QOLI
+ Status of Suicide Form SSF
+ Short Test of Mental Status STMS
+ Veterans Rand 12 Item Health Survey VR-12
+ Veteran Recovery Assessment VRA
+ World Health Organization Disability Assessment
+ Schedule 2.0 WHODAS 2
+
+ Inactivated Mental Health Instruments:
+ ======================================
+ PTSD Checklist Stressor Specific - PCL-SZ
+ After consultation with several Posttraumatic Stress Disorder (PTSD)
+ experts involved in performance measure, joint Veterans
+ Administration-Department of Defense (VA-DoD) initiatives, the National
+ Center for Posttraumatic Stress Disorder (NC-PTSD), and the Evidence-Based
+ Psychotherapy (EBP) dissemination project, the PTSD Checklist Stressor,
+ Specific (PCL-SZ) instrument released in Patch YS*5.01*103 is inactivated
+ because of its negative effects on the Evidence-Based Psychotherapy (EBP)
+ initiative.
+
+ MMPI 2 Short Form - MMP2S
+ This test is outdated and no longer supported by the test publisher. It
+ has been replaced by the new version, MMPI2-RF.
+
+ Millon Clinical Multiaxial Inventory-II - MCMI2
+ This test is outdated and no longer supported by the test publisher. It
+ has been replaced by the new version, MCMI3.
+
+
+ Files:
+ ======
+ The following files are re-released in this patch to support the new
+ instruments. All entries are exported with an internal entry number (IEN)
+ less than 100000, which are the 'national entries' of the files.
+
+ MH TESTS AND SURVEYS file (#601.71)
+
+ MH QUESTIONS file (#601.72)
+
+ MH INTRODUCTIONS file (#601.73)
+
+ MH RESPONSE TYPES file (#601.74)
+
+ MH CHOICES file (#601.75)
+
+ MH CHOICETYPES file (#601.751)
+ This file is re-introduced and the data is handled specifically in the
+ post-install portion of the build.
+
+ MH INSTRUMENT CONTENT file (#601.76)
+
+ MH SKIPPED QUESTIONS file (#601.79)
+
+ MH SECTIONS file (#601.81)
+
+ MH RULES file (#601.82)
+
+ MH INSTRUMENTRULES file (#601.83)
+
+ MH SCALEGROUPS file (#601.86)
+
+ MH SCALES file (#601.87)
+
+ MH DISPLAY file (#601.88)
+
+ MH CHOICEIDENTIFIERS file (#601.89)
+
+ MH SCORING KEYS file (#601.91)
+
+ MH REPORT file (#601.93)
+
+
+ Data Dictionary Changes:
+ ========================
+ MH TESTS AND SURVEYS file (#601.71)
+
+ The file DESCRIPTION was updated.
+
+ This file defines the interviews, surveys and tests available in the
+ Mental Health Assistant. Attributes of the instruments include authoring
+ credits, target populations, normative samples and copyright information.
+ Actions available including privileging, reporting of full item content
+ and transmission to the Mental Health National Database are also
+ specified.
+
+ Direct entry via FileMan is prohibited.
+
+
+ The NAME field (#.01) has an updated DESCRIPTION.
+
+ 601.71,.01 NAME 0;1 FREE TEXT (Required)
+
+ INPUT TRANSFORM: K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X
+ LAST EDITED: JUN 26, 2012
+ HELP-PROMPT: Answer must be 3-50 characters in length.
+ DESCRIPTION: Name of the interview, survey or test.
+ Often its abbreviation is used here, e.g.
+ "BDI2" instead of "Beck Depression
+ Inventory-2". Each entry has a unique
+ name.
+
+ CROSS-REFERENCE: 601.71^B^MUMPS
+ 1)= S ^YTT(601.71,"B",X,DA)=""
+ 2)= K ^YTT(601.71,"B",X,DA)
+
+ The PRINT TITLE field (#2) has an updated DESCRIPTION.
+
+ 601.71,2 PRINT TITLE 0;3 FREE TEXT
+
+ INPUT TRANSFORM: K:$L(X)>100!($L(X)<3) X
+ LAST EDITED: DEC 13, 2002
+ HELP-PROMPT: Answer must be 3-100 characters in
+ length.
+ DESCRIPTION: This is the full formal name of the
+ interview, survey or test. It is used on
+ printed reports.
+
+ The R PRIVILEGE field (#9) now allows up to 27 characters. The HELP-PROMPT
+ was updated. The TITLE and TECHNICAL DESCRIPTION values were added.
+
+ 601.71,9 R PRIVILEGE 2;1 FREE TEXT
+
+ REPORT PRIVILEGE
+ INPUT TRANSFORM: K:$L(X)>27!($L(X)<3) X
+ LAST EDITED: MAR 30, 2012
+ HELP-PROMPT: Answer must be 3-27 characters.
+ DESCRIPTION: A key name from the SECURITY KEY file
+ (#19.1). Only those users holding the
+ specified key can produce a report of the
+ instrument.
+
+ TECHNICAL DESCR: A free text name that must match a
+ SECURITY KEY
+
+ The REQUIRES LICENSE field (#11) has an updated DESCRIPTION and a
+ HELP-PROMPT was added.
+
+ 601.71,11 REQUIRES LICENSE 2;3 SET (Required)
+
+ 'Y' FOR Yes;
+ 'N' FOR No;
+ LAST EDITED: JAN 27, 2004
+ HELP-PROMPT: Indicate whether rights need to be
+ granted by a copyright holder.
+ DESCRIPTION: This indicates whether a copyright holder
+ must grant the rights to use this Mental
+ Health instrument.
+
+ The SUBMIT TO NATIONAL DATABASE field (#24) has an updated DESCRIPTION
+ and HELP-PROMPT. A TITLE value and TECHNICAL DESCRIPTION were added.
+
+ 601.71,24 SUBMIT TO NATIONAL DB 8;4 SET
+
+ SUBMIT TO NATIONAL DATABASE
+ 'Y' FOR Yes;
+ 'N' FOR No;
+ LAST EDITED: MAR 27, 2012
+ HELP-PROMPT: Indicate if the results are to be sent to
+ a national database.
+ DESCRIPTION: Boolean indicating to send results to the
+ national MHSHG database. Set only by
+ MHSHG.
+
+ TECHNICAL DESCR: If Yes, the results are to be transmitted
+ to a national database.
+
+ The GENERATE PNOTE field (#28) has a TITLE added.
+
+ 601.71,28 GENERATE PNOTE 8;8 SET
+
+ GENERATE PROGRESS NOTE
+ 'Y' FOR Yes;
+ 'N' FOR No;
+ LAST EDITED: MAR 21, 2012
+ HELP-PROMPT: Should the TIU note be created?
+ DESCRIPTION: Select No (or leave null) to stop MHA3
+ from generating a TIU note. Clinical
+ Reminders do not read this flag. TIU notes
+ are never generated for a test that has an
+ R_Privilege set.
+
+ The TIU TITLE field (#29) has an updated DESCRIPTION and a TECHNICAL
+ DESCRIPTION was added.
+
+ 601.71,29 TIU TITLE 8;9 POINTER TO TIU DOCUMENT
+ DEFINITION FILE (#8925.1)
+
+ LAST EDITED: JUN 28, 2010
+ HELP-PROMPT: Select the progress note title.
+ DESCRIPTION: Title of the TIU note used to identify the
+ progress note for this instrument.
+
+ TECHNICAL DESCR: MENTAL HEALTH DIAGNOSTIC STUDY NOTE is the
+ approved title for additional instruments.
+ Other titles need approval by the
+ Standards Group before they can be used.
+
+ The following four fields (#100.01, #100.02, #100.03 and #100.04) are
+ new. There are used to verify the workstation environment.
+
+ 601.71,100.01 YS_MHA_B.DLL VERSION VER;1 FREE TEXT
+
+ INPUT TRANSFORM:
+ K:$L(X)>12!($L(X)<7)!'(X?1.2N1"."1.2N1"."1.2N1"."1.3N) X
+ LAST EDITED: MAR 16, 2012
+ HELP-PROMPT: Answer must be 7-12 characters in length.
+ DESCRIPTION: Version number of YS_MHA_B.DLL from the
+ Host File System (HFS). It is used to
+ verify the software configuration on a
+ user's workstation.
+ It should only be edited by Mental Health
+ software.
+
+ TECHNICAL DESCR: File Version Number in the format
+ "nn.nn.nn.nnn"
+
+ 601.71,100.02 YS_MHA_B.DLL DATE/TIME VER;2 DATE
+
+ INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
+ LAST EDITED: MAR 16, 2012
+ HELP-PROMPT: Enter the date/time the file was modified
+ (time is optional).
+ DESCRIPTION: Modified date/time of YS_MHA_B.DLL from
+ the Host File System (HFS). It is used to
+ verify the software configuration on a
+ user's workstation. It should only be
+ edited by Mental Health software.
+
+ TECHNICAL DESCR: File Modified date/time from the Host File
+ System. Time is optional.
+
+ 601.71,100.03 YS_MHA_AUX.DLL VERSION VER;3 FREE TEXT
+
+ INPUT TRANSFORM:
+ K:$L(X)>12!($L(X)<7)!'(X?1.2N1"."1.2N1"."1.2N1"."1.3N) X
+ LAST EDITED: MAR 16, 2012
+ HELP-PROMPT: Answer must be 7-12 characters in length.
+ DESCRIPTION: Version number of YS_MHA_AUX.DLL from the
+ Host File System (HFS). It is used to
+ verify the software configuration on a
+ user's workstation.
+ It should only be edited by Mental Health
+ software.
+
+ TECHNICAL DESCR: File Version Number in the format
+ "nn.nn.nn.nnn"
+
+ 601.71,100.04 YS_MHA_AUX.DLL DATE/TIME VER;4 DATE
+
+ INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
+ LAST EDITED: MAR 16, 2012
+ HELP-PROMPT: Enter the date/time the file was modified
+ (time is optional).
+ DESCRIPTION: Modified date/time of YYS_MHA_AUX.DLL
+ from the Host File System (HFS). It is
+ used to verify the software configuration
+ on a user's workstation. It should only
+ be edited by Mental Health software.
+
+ TECHNICAL DESCR: File Modified date/time from the Host File
+ System. Time is optional.
+
+
+ MH CHOICETYPES file (#601.751)
+
+ In the CHOICETYPE field (#.01) a bogus value of '-1' was removed from the
+ fourth piece of the ^DD(601.751,.01,1,0) node. This value is visible using
+ the global lister only.
+
+ Before: ^DD(601.751,.01,1,0)="^.1^^-1"
+ After: ^DD(601.751,.01,1,0)="^.1"
+
+
+ MH SCALEGROUPS file (#601.86)
+ The ORDINATEMIN field (#5) definition now permits negative values. The
+ HELP-PROMPT was updated.
+
+ 601.86,5 ORDINATEMIN 0;6 NUMBER
+
+ INPUT TRANSFORM:
+ K:+X'=X!(X>9999)!(X<-9999)!(X?.E1"."1N.N) X
+ LAST EDITED: FEB 28, 2012
+ HELP-PROMPT: Type a number between -9999 and 9999, 0
+ decimal digits.
+ DESCRIPTION:
+ This is the ordinate minimum.
+
+
+ SECLUSION/RESTRAINT file (#615.2)
+ A spelling error was corrected in the PATIENT SEARCHED field (#.08).
+ Before: Was the Patinet Searched
+ After: Was the patient searched?
+
+ 615.2,.08 PATIENT SEARCHED 0;8 SET
+
+ Was the patient searched?
+ 'Y' FOR YES;
+ 'N' FOR NO;
+ LAST EDITED: MAR 27, 2012
+ DESCRIPTION: Question as to whether or not a patient
+ was searched for possible harmful objects
+ on his/her person.
+
+
+ Option:
+ =======
+ The MENU TEXT field (#1) of the [YS BROKER1] option in OPTION file (#19)
+ is re-named. This change is important because the version numbers listed
+ in the MENU TEXT value are used by the MHA graphical user interfaces
+ (GUIs) to determine if the GUI software invoked by the user is current.
+
+ Before patch: YS BROKER1 version 1.0.3.45~1.0.3.45~1.0.3.45
+ After patch: YS BROKER1 version 1.0.3.60~1.0.3.60~1.0.3.60
+
+ Data Changes:
+ =============
+ The following changes were made to existing file entries.
+
+ MH TESTS AND SURVEYS (601.71)
+ The value of the LAST EDIT DATE (Field #18) is modified for each
+ instrument. The first time a user logs into the MHA, the resource files
+ (rsc extension) on their workstation will be rebuilt for each instrument.
+ The user will see a progress bar while the files are rebuilt. It should
+ not take more than 1 or 2 minutes to rebuild.
+
+ The value of the WRITE FULL TEXT (Field #26) is set to YES for the
+ following active instruments:
+ ASI
+ DOMG
+ GAF
+ IEQ
+ MHLA
+ MHLB
+ PCLC
+ PCLM
+ RLOC
+ SAI
+
+ MH QUESTIONS (601.72)
+ Entries 3349, 3366, 5169 and 5410: QUESTION TEXT (Field #1)
+ Before: Feeling DISTANT OR CUT OFF from other people?
+ After: Feeling DISTANT or CUT OFF from other people?
+
+ Entry 3924: QUESTION TEXT (Field #1)
+ Before: Fecal Incontinence (occasional or more frequently over the past
+ week).
+ After: Fecal incontinence occasional or more frequently over the past
+ week.
+
+ MH CHOICES (601.75)
+ Entry 2914: CHOICE TEXT (Field #3)
+ Before: Maintains house alone or with occasional assistance (e.g. heavy
+ work domestic help.
+ After: Maintains house alone or with occasional assistance (e.g. heavy
+ work domestic help).
+
+ MH SCALEGROUPS (601.86)
+ Entry: 50: SCALEGROUP NAME (Field #2)
+ Before: Prevalence Scores
+ After: Management Guides
+
+ MH REPORT (601.93)
+ Entries: 11 and 38: RPT (Field #2)
+ Before: Feeling DISTANT OR CUT OFF from other people?
+ After: Feeling DISTANT or CUT OFF from other people?
+
+ Entry: 2 RPT (Field #2)
+ Before: Unable to bathe properly; e.g., difficulty adjusting .
+ After: Unable to bathe properly; (e.g., difficulty adjusting .
+
+ Before: Fecal Incontinence, (occasional or more over the past week).
+ After: Fecal incontinence, occasional or more over the past week.
+
+ MH INSTRUMENT (601)
+ ^YTT(601,241,"Q",9,"T",1,0)
+ Before: "LOSS OF INTEREST in activities that you used to enjoy?"
+ After: "LOSS of INTEREST in activities that you used to enjoy?"
+
+ ^YTT(601,241,"Q",10,"T",1,0)
+ Before: "Feeling DISTANT OR CUT OFF from other people?"
+ After: "Feeling DISTANT or CUT OFF from other people?"
+
+ ^YTT(601,242,"Q",9,"T",1,0)
+ Before: "LOSS OF INTEREST in activities that you used to enjoy?"
+ After: "LOSS of INTEREST in activities that you used to enjoy?"
+
+ ^YTT(601,242,"Q",10,"T",1,0)=
+ Before: "Feeling DISTANT OR CUT OFF from other people?"
+ After: "Feeling DISTANT or CUT OFF from other people?"
+
+ TEST SCALE NUMBER (Field #16) (multiple)
+ Entries 40 through 97 are added to the MBMD instrument.
+
+ Routine Deletions:
+ ==================
+ The following routines are no longer needed and deleted:
+ YSGAF3
+ YSKFASI3
+ YSKFASIK
+ YSKFASIP
+
+ Associated Remedy Ticket(s):
+ ============================
+ HD0000000290418 - The bariatric norm has been added to the MBMD (Millon
+ Behavioral Medicine Diagnostic).
+
+ HD0000000721216 - The scoring issue with two digit values is fixed in the
+ YS_MHA_AUX.dll file included in this patch.
+
+ HD0000000739365 - The BAI (Beck Anxiety Index) report display has been
+ changed to more clearly explain the results. (Patient Safety Issue 2299)
+
+ HD0000000738279 - The BDI2 (Beck Depression Inventory - Second Edition)
+ report display has been changed to more clearly explain the results. In
+ addition, the BSI (Beck Scale for Suicide Ideation) and the BHS (Beck
+ Hopelessness Scale) report displays have been changed to more clearly
+ explain the results.
+
+ HD0000000722890 - The problem with the ASI exam changing from Lite to
+ Full when edited has been fixed.
+
+ HD0000000537915 - The PHQ-2 (Patient Health Questionnaire-2) and PC
+ PTSD (Primary Care PTSD Screen) report displays have been changed to
+ include the verbiage requested.
+
+ HD0000000507076 - An <UNDEFINED> error occurred at BDI2+1^YTBI because
+ a global node was missing.
+
+ HD0000000754691, HD0000000779663, HD0000000805126, HD0000000824422 -
+ Instruments with more than 200 questions were not displaying completely
+ on workstations running Windows 7 operating system.
+
+
+ Patient Safety Issues (PSIs):
+ =============================
+ PSPO 2299 - The scoring for the Beck Anxiety Inventory (BAI) instrument
+ is causing confusion. There are 21 questions each with 4 choice numbers
+ ranging from 1 to 4. Some users who score it by hand count the choice
+ number as the score (i.e., choice 1 is worth 1 point and so on). However,
+ the score is the choice number minus 1 (i.e., choice 1 is worth no points,
+ choice 2 is worth 1 point and so on).
+
+ With this patch, the report for the BAI will clearly document the
+ patient's answers and their point value.
+
+
+
+ New Service Requests (NSRs):
+ ============================
+ N/A
+
+
+ Test Site(s):
+ =============
+ Boston HCS
+ Durham, NC VAMC
+ Upstate New York HCS (Albany, NY)
+
+
+ SOFTWARE RETRIEVAL:
+ ===================
+ The following software and documentation files are exported as part of this
+ patch:
+
+ File Name Contents Format
+ --------- -------- ------
+ YS_501_105.ZIP All software and Binary
+ manuals for this patch
+ ------------------------------------------------------------------
+ Software included in the YS_501_105.ZIP is as follows:
+
+ YS_501_105.KID MHA Server Components ASCII
+
+ YS_501_105_Setup.exe Mental Health Assistant Binary
+ This file is the complete
+ install for the Mental Health
+ Assistant GUI Version 1.0.3.66
+ YS_MHA.exe
+ YS_MHA_A.dll
+ YS_MHA_AUX.dll
+ borlndmm.dll
+
+ YS501105_MHA3_IG.PDF MHA3 Installation Guide Binary
+ YS501105_MHA3_IG.DOC MHA3 Installation Guide Binary
+ YS501105_MHA3_UM.PDF MHA3 User Manual Binary
+ YS501105_MHA3_UM.DOC MHA3 User Manual Binary
+ YS501105_MHA3_RN.PDF MHA3 Release Notes Binary
+ YS501105_MHA3_RN.DOC MHA3 Release Notes Binary
+
+ The software files are available on the following OI Field Offices'
+ ANONYMOUS.SOFTWARE directories.
+
+ All sites are encouraged to use their FTP capability to obtain these
+ files. Use the FTP address "download.vista.domain.ext" (without the
+ quotes) to connect to the first available FTP server where the files
+ are located.
+
+ OI FIELD OFFICE FTP ADDRESS DIRECTORY
+ =============== =========== =========
+ ALBANY ftp.fo-albany.domain.ext [ANONYMOUS.SOFTWARE]
+ HINES ftp.fo-hines.domain.ext [ANONYMOUS.SOFTWARE]
+ SALT LAKE ftp.fo-slc.domain.ext [ANONYMOUS.SOFTWARE]
+
+ Documentation can also be found on the VA Software Documentation
+ Library at: http://www4.domain.ext/vdl/
+
+
+ Installation Instructions:
+ ==========================
+ 1. Use the 'LOAD A DISTRIBUTION' option.
+ The Host File name is YS_501_105.KID.
+ Answer YES to the question: "Want to Continue with Load? YES//"
+
+ 2. The patch has now been loaded into a Transport global on your
+ system. You now need to install the Transport global.
+ [Optional] On the KIDS menu, under the 'Installation' menu, use the
+ following options:
+
+ Print Transport Global
+ Compare Transport Global to Current System
+ Verify Checksums in Transport Global
+ Backup a Transport Global
+
+ 3. Users may remain on the system, but installation should be done
+ during off-peak hours.
+
+ 4. Installation will take less than ten minutes.
+
+ 5. From the 'Installation Menu' of the KIDS menu, run the option
+ 'Install Package(s)' Select the package 'YS*5.01*105'
+ and proceed with install.
+
+ 6. Want KIDS to Rebuild Menu Trees Upon Completion of Install? NO//
+ Please answer according to your site's policy.
+
+ When prompted 'Want KIDS to INHIBIT LOGONs during the install//? NO',
+ respond NO.
+
+ When prompted 'Want to DISABLE Scheduled Options, Menu Options,
+ and Protocols? YES//', respond YES
+
+ Place the following options out of order:
+ YS BROKER1
+
+ 7. Please refer to the INSTALL WINDOWS ILLUSTRATION section of the
+ MENTAL HEALTH ASSISTANT VERSION 3 INSTALLATION GUIDE to install
+ the MHA graphical user interface files.
+
+ 8. Ensure that the option YS BROKER1 [YS BROKER1] is on the Mental
+ Health user's secondary menu, if it is not already there.
+
+ 9. Place the MHA3 application on the CPRS Tools menu, if it is not
+ already there. For instructions on how to add the MHA3 application
+ to the CPRS Tools menu, see the "Setting up VistA MHA3 on CPRS GUI
+ Tools Menu" section in the Installation Guide.
+
+ 10. Delete the YS105PRE routine when the installation is complete.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+;;5.01;MENTAL HEALTH;**[Patch List]**;Dec 30, 1994;Build 76
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: YS105PRE
+ Before: n/a After: B27488665 **105**
+Routine Name: YSGAF3
+Routine Name: YSKFASI3
+Routine Name: YSKFASIK
+Routine Name: YSKFASIP
+Routine Name: YTMBMD
+ Before: B20606864 After: B25599071 **76,83,105**
+Routine Name: YTMBMD1
+ Before: n/a After: B8510909 **105**
+Routine Name: YTMBMD2
+ Before: n/a After: B4080859 **105**
+
+Routine list of preceding patches: 83
+
+=============================================================================
+User Information:
+Entered By : TRAXLER,FRANK Date Entered : MAY 26, 2011
+Completed By: ORAZIO,LONGO Date Completed: SEP 10, 2013
+Released By : MONTGOMERY,ALAN Date Released : OCT 02, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/Mental Health/Patches/YS_5.01_96/.gitignore b/Packages/Mental Health/Patches/YS_5.01_96/.gitignore
new file mode 100644
index 0000000..ffc713d
--- /dev/null
+++ b/Packages/Mental Health/Patches/YS_5.01_96/.gitignore
@@ -0,0 +1 @@
+YS_501_96.KID
diff --git a/Packages/MultiBuilds/.gitignore b/Packages/MultiBuilds/.gitignore
new file mode 100644
index 0000000..c28dcc8
--- /dev/null
+++ b/Packages/MultiBuilds/.gitignore
@@ -0,0 +1,9 @@
+HIGH_RISK_MH_1_0.KIDs
+OR_PSJ_PXRM_28.KID
+LAB_LEDI_IV.KIDs
+BPS_1_10_PSO_IB_PRCA.KID
+BPS_1_11_PSO_IB_PSX.KID
+DG_53_P848.KID
+ARCH_PILOT_PROJECT_1_0.KID
+PRE_I_3_PHARMACY_BUILD.KID
+DG_53_P860.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_268/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_268/.gitignore
new file mode 100644
index 0000000..7ec9078
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_268/.gitignore
@@ -0,0 +1 @@
+NDF4P268.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_271/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_271/.gitignore
new file mode 100644
index 0000000..59d4d45
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_271/.gitignore
@@ -0,0 +1 @@
+NDF4P271.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_272/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_272/.gitignore
new file mode 100644
index 0000000..5db306b
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_272/.gitignore
@@ -0,0 +1 @@
+NDF4P272.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_274/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_274/.gitignore
new file mode 100644
index 0000000..dcef70a
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_274/.gitignore
@@ -0,0 +1 @@
+NDF4P274.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_277/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_277/.gitignore
new file mode 100644
index 0000000..8a6a533
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_277/.gitignore
@@ -0,0 +1 @@
+NDF4P277.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_278/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_278/.gitignore
new file mode 100644
index 0000000..29095d1
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_278/.gitignore
@@ -0,0 +1 @@
+NDF4P278.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_280/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_280/.gitignore
new file mode 100644
index 0000000..455692c
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_280/.gitignore
@@ -0,0 +1 @@
+NDF4P280.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_283/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_283/.gitignore
new file mode 100644
index 0000000..0df0f8b
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_283/.gitignore
@@ -0,0 +1 @@
+NDF4P283.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_286/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_286/.gitignore
new file mode 100644
index 0000000..de910f8
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_286/.gitignore
@@ -0,0 +1 @@
+NDF4P286.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_287/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_287/.gitignore
new file mode 100644
index 0000000..ff778c7
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_287/.gitignore
@@ -0,0 +1 @@
+NDF4P287.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_289/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_289/.gitignore
new file mode 100644
index 0000000..f3fd706
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_289/.gitignore
@@ -0,0 +1 @@
+NDF4P289.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_292/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_292/.gitignore
new file mode 100644
index 0000000..94bd838
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_292/.gitignore
@@ -0,0 +1 @@
+NDF4P292.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_293/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_293/.gitignore
new file mode 100644
index 0000000..f32f00d
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_293/.gitignore
@@ -0,0 +1 @@
+NDF4P293.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_300/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_300/.gitignore
new file mode 100644
index 0000000..4e6822a
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_300/.gitignore
@@ -0,0 +1 @@
+NDF4P300.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_303/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_303/.gitignore
new file mode 100644
index 0000000..1243435
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_303/.gitignore
@@ -0,0 +1 @@
+NDF4P303.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_306/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_306/.gitignore
new file mode 100644
index 0000000..80b90af
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_306/.gitignore
@@ -0,0 +1 @@
+NDF4P306.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_312/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_312/.gitignore
new file mode 100644
index 0000000..887c144
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_312/.gitignore
@@ -0,0 +1 @@
+NDF4P312.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_339/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_339/.gitignore
new file mode 100644
index 0000000..82d0f14
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_339/.gitignore
@@ -0,0 +1 @@
+NDF4P339.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_344/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_344/.gitignore
new file mode 100644
index 0000000..96c651e
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_344/.gitignore
@@ -0,0 +1 @@
+NDF4P344.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_347/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_347/.gitignore
new file mode 100644
index 0000000..209d7f0
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_347/.gitignore
@@ -0,0 +1 @@
+NDF4P347.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_350/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_350/.gitignore
new file mode 100644
index 0000000..1ab2639
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_350/.gitignore
@@ -0,0 +1 @@
+NDF4P350.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_353/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_353/.gitignore
new file mode 100644
index 0000000..a3690d2
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_353/.gitignore
@@ -0,0 +1 @@
+NDF4P353.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_356/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_356/.gitignore
new file mode 100644
index 0000000..ef7c113
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_356/.gitignore
@@ -0,0 +1 @@
+NDF4P356.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_359/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_359/.gitignore
new file mode 100644
index 0000000..b57fbcf
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_359/.gitignore
@@ -0,0 +1 @@
+NDF4P359.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_362/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_362/.gitignore
new file mode 100644
index 0000000..d607aec
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_362/.gitignore
@@ -0,0 +1 @@
+NDF4P362.KIDs
diff --git a/Packages/National Drug File/Patches/PSN_4.0_370/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_370/.gitignore
new file mode 100644
index 0000000..27d11dc
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_370/.gitignore
@@ -0,0 +1 @@
+NDF4P370.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_373/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_373/.gitignore
new file mode 100644
index 0000000..f3d9347
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_373/.gitignore
@@ -0,0 +1 @@
+NDF4P373.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_375/NDF4P375.KIDs b/Packages/National Drug File/Patches/PSN_4.0_375/NDF4P375.KIDs
new file mode 100644
index 0000000..635eb29
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_375/NDF4P375.KIDs
@@ -0,0 +1,356 @@
+KIDS Distribution saved on Oct 01, 2013 at 17:20:01
+PSN*4*375
+**KIDS**:PSN*4.0*375^
+
+**INSTALL NAME**
+PSN*4.0*375
+"BLD",1524,0)
+PSN*4.0*375^NATIONAL DRUG FILE^0^3131001^y
+"BLD",1524,1,0)
+^^17^17^3130807^^^^
+"BLD",1524,1,1,0)
+This patch provides updates to data in several of the files associated
+"BLD",1524,1,2,0)
+with the Patient Medication Instruction Sheet (PMI) portion of the
+"BLD",1524,1,3,0)
+National Drug File (NDF) application. The seven files are:
+"BLD",1524,1,4,0)
+ 50.621 PMI-ENGLISH
+"BLD",1524,1,5,0)
+ 50.622 PMI-SPANISH
+"BLD",1524,1,6,0)
+ 50.623 PMI MAP-ENGLISH
+"BLD",1524,1,7,0)
+ 50.624 PMI MAP-SPANISH
+"BLD",1524,1,8,0)
+ 50.625 WARNING LABEL-ENGLISH
+"BLD",1524,1,9,0)
+ 50.626 WARNING LABEL-SPANISH
+"BLD",1524,1,10,0)
+ 50.627 WARNING LABEL MAP
+"BLD",1524,1,11,0)
+
+"BLD",1524,1,12,0)
+The environment check routine for this patch checks to see that the
+"BLD",1524,1,13,0)
+installer is a valid user.
+"BLD",1524,1,14,0)
+The post-install routine for this patch deletes existing entries in these
+"BLD",1524,1,15,0)
+files, loads the new data, and rematches entries in the VA PRODUCT file
+"BLD",1524,1,16,0)
+(#50.68) to the proper PMIs.
+"BLD",1524,1,17,0)
+The source of the data for the PMIs is First Data Bank.
+"BLD",1524,4,0)
+^9.64PA^^
+"BLD",1524,6.3)
+75
+"BLD",1524,"ABPKG")
+n
+"BLD",1524,"INID")
+y^y
+"BLD",1524,"INIT")
+PSN375P
+"BLD",1524,"KRN",0)
+^9.67PA^9002226^21
+"BLD",1524,"KRN",.4,0)
+.4
+"BLD",1524,"KRN",.4,"NM",0)
+^9.68A^^
+"BLD",1524,"KRN",.401,0)
+.401
+"BLD",1524,"KRN",.402,0)
+.402
+"BLD",1524,"KRN",.403,0)
+.403
+"BLD",1524,"KRN",.5,0)
+.5
+"BLD",1524,"KRN",.84,0)
+.84
+"BLD",1524,"KRN",3.6,0)
+3.6
+"BLD",1524,"KRN",3.8,0)
+3.8
+"BLD",1524,"KRN",9.2,0)
+9.2
+"BLD",1524,"KRN",9.8,0)
+9.8
+"BLD",1524,"KRN",9.8,"NM",0)
+^9.68A^^0
+"BLD",1524,"KRN",19,0)
+19
+"BLD",1524,"KRN",19,"NM",0)
+^9.68A^^
+"BLD",1524,"KRN",19.1,0)
+19.1
+"BLD",1524,"KRN",19.1,"NM",0)
+^9.68A^^
+"BLD",1524,"KRN",101,0)
+101
+"BLD",1524,"KRN",101,"NM",0)
+^9.68A^^
+"BLD",1524,"KRN",409.61,0)
+409.61
+"BLD",1524,"KRN",771,0)
+771
+"BLD",1524,"KRN",779.2,0)
+779.2
+"BLD",1524,"KRN",870,0)
+870
+"BLD",1524,"KRN",8989.51,0)
+8989.51
+"BLD",1524,"KRN",8989.52,0)
+8989.52
+"BLD",1524,"KRN",8994,0)
+8994
+"BLD",1524,"KRN",9002226,0)
+9002226
+"BLD",1524,"KRN",9002226,"NM",0)
+^9.68A^^
+"BLD",1524,"KRN","B",.4,.4)
+
+"BLD",1524,"KRN","B",.401,.401)
+
+"BLD",1524,"KRN","B",.402,.402)
+
+"BLD",1524,"KRN","B",.403,.403)
+
+"BLD",1524,"KRN","B",.5,.5)
+
+"BLD",1524,"KRN","B",.84,.84)
+
+"BLD",1524,"KRN","B",3.6,3.6)
+
+"BLD",1524,"KRN","B",3.8,3.8)
+
+"BLD",1524,"KRN","B",9.2,9.2)
+
+"BLD",1524,"KRN","B",9.8,9.8)
+
+"BLD",1524,"KRN","B",19,19)
+
+"BLD",1524,"KRN","B",19.1,19.1)
+
+"BLD",1524,"KRN","B",101,101)
+
+"BLD",1524,"KRN","B",409.61,409.61)
+
+"BLD",1524,"KRN","B",771,771)
+
+"BLD",1524,"KRN","B",779.2,779.2)
+
+"BLD",1524,"KRN","B",870,870)
+
+"BLD",1524,"KRN","B",8989.51,8989.51)
+
+"BLD",1524,"KRN","B",8989.52,8989.52)
+
+"BLD",1524,"KRN","B",8994,8994)
+
+"BLD",1524,"KRN","B",9002226,9002226)
+
+"BLD",1524,"PRE")
+PSN375E
+"BLD",1524,"PRET")
+PSNPMI
+"BLD",1524,"QDEF")
+^^^^NO^^^^NO^^YES
+"BLD",1524,"QUES",0)
+^9.62^^
+"BLD",1524,"REQB",0)
+^9.611^1^1
+"BLD",1524,"REQB",1,0)
+PSN*4.0*373^1
+"BLD",1524,"REQB","B","PSN*4.0*373",1)
+
+"INIT")
+PSN375P
+"MBREQ")
+0
+"PKG",114,-1)
+1^1
+"PKG",114,0)
+NATIONAL DRUG FILE^PSN^This is the National Drug File Package V 4
+"PKG",114,20,0)
+^9.402P^^
+"PKG",114,22,0)
+^9.49I^1^1
+"PKG",114,22,1,0)
+4.0^3041105
+"PKG",114,22,1,"PAH",1,0)
+375^3131001
+"PKG",114,22,1,"PAH",1,1,0)
+^^17^17^3131001
+"PKG",114,22,1,"PAH",1,1,1,0)
+This patch provides updates to data in several of the files associated
+"PKG",114,22,1,"PAH",1,1,2,0)
+with the Patient Medication Instruction Sheet (PMI) portion of the
+"PKG",114,22,1,"PAH",1,1,3,0)
+National Drug File (NDF) application. The seven files are:
+"PKG",114,22,1,"PAH",1,1,4,0)
+ 50.621 PMI-ENGLISH
+"PKG",114,22,1,"PAH",1,1,5,0)
+ 50.622 PMI-SPANISH
+"PKG",114,22,1,"PAH",1,1,6,0)
+ 50.623 PMI MAP-ENGLISH
+"PKG",114,22,1,"PAH",1,1,7,0)
+ 50.624 PMI MAP-SPANISH
+"PKG",114,22,1,"PAH",1,1,8,0)
+ 50.625 WARNING LABEL-ENGLISH
+"PKG",114,22,1,"PAH",1,1,9,0)
+ 50.626 WARNING LABEL-SPANISH
+"PKG",114,22,1,"PAH",1,1,10,0)
+ 50.627 WARNING LABEL MAP
+"PKG",114,22,1,"PAH",1,1,11,0)
+
+"PKG",114,22,1,"PAH",1,1,12,0)
+The environment check routine for this patch checks to see that the
+"PKG",114,22,1,"PAH",1,1,13,0)
+installer is a valid user.
+"PKG",114,22,1,"PAH",1,1,14,0)
+The post-install routine for this patch deletes existing entries in these
+"PKG",114,22,1,"PAH",1,1,15,0)
+files, loads the new data, and rematches entries in the VA PRODUCT file
+"PKG",114,22,1,"PAH",1,1,16,0)
+(#50.68) to the proper PMIs.
+"PKG",114,22,1,"PAH",1,1,17,0)
+The source of the data for the PMIs is First Data Bank.
+"PRE")
+PSN375E
+"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")
+YES
+"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","PSN375E")
+0^^B217667
+"RTN","PSN375E",1,0)
+PSN375E ;BHM/DB-Environment Check for PMI data updates ; 01 Oct 2013 5:04 PM
+"RTN","PSN375E",2,0)
+ ;;4.0;NATIONAL DRUG FILE;**375**; 30 Oct 98;Build 75
+"RTN","PSN375E",3,0)
+ ;
+"RTN","PSN375E",4,0)
+ I $D(DUZ)#2 N DIC,X,Y S DIC=200,DIC(0)="N",X="`"_DUZ D ^DIC I Y>0
+"RTN","PSN375E",5,0)
+ E W !,"You must be a valid user."
+"RTN","PSN375E",6,0)
+ Q
+"RTN","PSN375P")
+0^^B1382804
+"RTN","PSN375P",1,0)
+PSN375P ;BIR/WRT-Unwind Transport Global and set pieces in VA PRODUCT file ; 01 Oct 2013 5:04 PM
+"RTN","PSN375P",2,0)
+ ;;4.0;NATIONAL DRUG FILE;**375**; 30 Oct 98;Build 75
+"RTN","PSN375P",3,0)
+ ;
+"RTN","PSN375P",4,0)
+BUILD ;GET PMIS INFO FROM TRANSPORT GLOBAL AND LOAD
+"RTN","PSN375P",5,0)
+ I '$D(XPDGREF) Q
+"RTN","PSN375P",6,0)
+ N DA,I,J,K,LINE,PSN,ROOT,X
+"RTN","PSN375P",7,0)
+ F PSN=50.621:.001:50.627 K ^PS(PSN)
+"RTN","PSN375P",8,0)
+ S ROOT=$NA(@XPDGREF@("DATA")),J=0
+"RTN","PSN375P",9,0)
+ K ^TMP($J)
+"RTN","PSN375P",10,0)
+ F S J=$O(@ROOT@(J)) Q:'J S LINE=^(J),K=$L(LINE,"|")-1 F I=1:1:K S X=$P(LINE,"|",I),^TMP($J,$P(X,"^"))=$P(X,"^",2,4)
+"RTN","PSN375P",11,0)
+ S DA=0 F S DA=$O(^PSNDF(50.68,DA)) Q:'DA S X=$P($G(^(DA,1)),"^",1,4) S:$D(^TMP($J,DA)) X=X_"^"_^(DA) S ^PSNDF(50.68,DA,1)=X
+"RTN","PSN375P",12,0)
+ K ^TMP($J)
+"RTN","PSN375P",13,0)
+ F PSN=50.621:.001:50.627 M ^PS(PSN)=@XPDGREF@(PSN)
+"RTN","PSN375P",14,0)
+ K DA,I,J,K,LINE,PSN,ROOT,X
+"RTN","PSN375P",15,0)
+ Q
+"TEMP",50.621,0)
+PMI-ENGLISH^50.621^^
+"TEMP",50.622,0)
+PMI-SPANISH^50.622^^
+"TEMP",50.623,0)
+PMI MAP-ENGLISH^50.623^^
+"TEMP",50.624,0)
+PMI MAP-SPANISH^50.624^^
+"TEMP",50.625,0)
+WARNING LABEL-ENGLISH^50.625^^
+"TEMP",50.626,0)
+WARNING LABEL-SPANISH^50.626^^
+"TEMP",50.627,0)
+WARNING LABEL MAP^50.627^^
+"VER")
+8.0^22.0
+**END**
+**END**
diff --git a/Packages/National Drug File/Patches/PSN_4.0_375/PSN-4_SEQ-361_PAT-375.TXT b/Packages/National Drug File/Patches/PSN_4.0_375/PSN-4_SEQ-361_PAT-375.TXT
new file mode 100644
index 0000000..9a5cf45
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_375/PSN-4_SEQ-361_PAT-375.TXT
@@ -0,0 +1,139 @@
+
+=============================================================================
+Run Date: OCT 15, 2013 Designation: PSN*4*375
+Package : PSN - NATIONAL DRUG FILE Priority: EMERGENCY
+Version : 4 SEQ #361 Status: Released
+ Compliance Date: OCT 19, 2013
+=============================================================================
+
+Associated patches: (v)PSN*4*373 <<= must be installed BEFORE `PSN*4*375'
+
+Subject: PMI UPDATE -OCTOBER 2013
+
+Category:
+ - Routine
+ - Other
+
+Description:
+============
+
+ IMPORTANT NOTE: As directed by the Secretary of the Department of Veterans
+ Affairs, this patch is being released with a 24 hour compliance date for
+ installation.
+
+ This patch provides updates to data in several of the files associated with the
+ Patient Medication Instruction Sheet (PMI) portion of the National Drug File
+ (NDF) application. The seven files are:
+ 50.621 PMI-ENGLISH
+ 50.622 PMI-SPANISH
+ 50.623 PMI MAP-ENGLISH
+ 50.624 PMI MAP-SPANISH
+ 50.625 WARNING LABEL-ENGLISH
+ 50.626 WARNING LABEL-SPANISH
+ 50.627 WARNING LABEL MAP
+
+ The environment check routine for this patch checks to see that the installer
+ is a valid user. The post-install routine for this patch deletes existing
+ entries in these files, loads the new data, and rematches entries in the VA
+ PRODUCT file (#50.68) to the proper PMIs. The source of the data for the PMIs
+ is First Data Bank. Medication instruction sheets contained in this patch were
+ created from the First Data Bank release dated 10/02/2013.
+
+
+ Associated Remedy Tickets:
+ ==========================
+ None
+
+ Test Sites:
+ ===========
+ N/A
+
+ Installation Instructions and Software Retrieval:
+ =================================================
+
+ This patch can be obtained from the ANONYMOUS.SOFTWARE directory at one of the
+ OI Field Offices. The preferred method is to FTP the file from
+ DOWNLOAD.VISTA.DOMAIN.EXT, which will transmit the file from the first
+ available server. Alternatively, sites may elect to retrieve the file from a
+ specific OI Field Office.
+
+ OI FIELD OFFICE FTP ADDRESS DIRECTORY
+ Albany FTP.FO-ALBANY.DOMAIN.EXT anonymous.software
+ Hines FTP.FO-HINES.DOMAIN.EXT anonymous.software
+ Salt Lake City FTP.FO-SLC.DOMAIN.EXT anonymous.software
+
+ The software distribution includes:
+
+ FILE NAME DESCRIPTION BLOCK SIZE
+
+ NDF4P375.KID KIDS Build 163310 blocks
+
+ Users may remain on the system while this patch is installed. Installation
+ (excluding the time required to download the file to your system) takes less
+ than ten minutes. This patch should be installed during non-peak requirement
+ hours. The Print a PMI Sheet [PSNPMIS PRINT], Patient Prescription Processing
+ [PSO LM BACKDOOR ORDERS], Release Medication [PSO RELEASE], and Reprint an
+ Outpatient Rx Label [PSO RXRPT] options should be placed out of order during
+ the installation.
+
+ 1. Retrieve the file NDF4P375.KID using one of the methods described
+ above.
+
+ 2. From the Kernel Installation & Distribution System menu, select
+ the Installation menu.
+
+ 3. From this menu, select the option Load a Distribution and select
+ NDF4P375.KID.
+
+ 4. From this menu, you may choose to use the option Verify Checksums in
+ Transport Global. When prompted, select PSN*4.0*375. All components
+ of this patch are new, so the option Backup a Transport Global and
+ the option Compare Transport Global to Current System do not have
+ to be invoked.
+
+ 5. Use the Install Package(s) option and select PSN*4.0*375.
+
+ 6. When prompted "Want KIDS to INHIBIT LOGONs during the install? NO//"
+ respond NO.
+
+ 7. When prompted "Want to DISABLE Scheduled Options, Menu Options, and
+ Protocols? YES//" respond YES. Select the following options
+ to disable.
+
+ Option Name Menu Text
+ ----------------------- ------------------------------
+ PSNPMIS PRINT Print a PMI Sheet
+ PSO LM BACKDOOR ORDERS Patient Prescription Processing
+ PSO RELEASE Release Medication
+ PSO RXRPT Reprint an Outpatient Rx Label
+
+ 8. Note: The environment check routine PSN375E and the post-install
+ routine PSN375P will be automatically deleted from your system upon
+ completion of the installation.
+
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+;;4.0;NATIONAL DRUG FILE;**[Patch List]**; 30 Oct 98;Build 75
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: PSN375E
+ Before: n/a After: B217667 **375**
+Routine Name: PSN375P
+ Before: n/a After: B1382804 **375**
+
+=============================================================================
+User Information:
+Entered By : ANWER,MOHAMED Date Entered : SEP 10, 2013
+Completed By: GREER,MIKE Date Completed: OCT 02, 2013
+Released By : MIAN,NAEEM Date Released : OCT 15, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/National Drug File/Patches/PSN_4.0_376/NDF4P376.KID b/Packages/National Drug File/Patches/PSN_4.0_376/NDF4P376.KID
new file mode 100644
index 0000000..3ac43e7
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_376/NDF4P376.KID
@@ -0,0 +1,52450 @@
+KIDS Distribution saved on Oct 03, 2013 at 16:57:22
+PSN*4*376
+**KIDS**:PSN*4.0*376^
+
+**INSTALL NAME**
+PSN*4.0*376
+"BLD",1525,0)
+PSN*4.0*376^NATIONAL DRUG FILE^0^3131003^y
+"BLD",1525,1,0)
+^^16^16^3130808^
+"BLD",1525,1,1,0)
+This patch provides updates to data in several of the files associated
+"BLD",1525,1,2,0)
+with the National Drug File (NDF) application.
+"BLD",1525,1,3,0)
+This patch generates four mail messages. All are sent from NDF MANAGER
+"BLD",1525,1,4,0)
+to members of the NDF DATA mail group, holders of the PSNMGR security
+"BLD",1525,1,5,0)
+key, and the person installing the patch. The first message, with the
+"BLD",1525,1,6,0)
+subject DATA UPDATE FOR NDF, lists new products, CMOP ID (if one exists),
+"BLD",1525,1,7,0)
+dispense units, and associated NDCs, products for which the national
+"BLD",1525,1,8,0)
+formulary indicator has changed, products that have been unmatched from
+"BLD",1525,1,9,0)
+CMOP, and products for which the national formulary restriction has
+"BLD",1525,1,10,0)
+changed. The second, with the subject UPDATED INTERACTIONS, lists
+"BLD",1525,1,11,0)
+interactions that have been added, edited, or inactivated. The third, with
+"BLD",1525,1,12,0)
+the subject DRUGS UNMATCHED FROM NATIONAL DRUG FILE, lists entries in the
+"BLD",1525,1,13,0)
+DRUG file (#50) which have been unmatched from NDF. The fourth, with the
+"BLD",1525,1,14,0)
+subject INTERACTIONS and ALLERGIES UPDATED, lists interactions and allergies
+"BLD",1525,1,15,0)
+which have been changed because they were created with ingredients that
+"BLD",1525,1,16,0)
+are no longer primary ingredients.
+"BLD",1525,4,0)
+^9.64PA^^0
+"BLD",1525,6.3)
+76
+"BLD",1525,"ABPKG")
+n
+"BLD",1525,"INID")
+y^y
+"BLD",1525,"INIT")
+PSN376D
+"BLD",1525,"KRN",0)
+^9.67PA^9002226^22
+"BLD",1525,"KRN",.4,0)
+.4
+"BLD",1525,"KRN",.4,"NM",0)
+^9.68A^^
+"BLD",1525,"KRN",.401,0)
+.401
+"BLD",1525,"KRN",.402,0)
+.402
+"BLD",1525,"KRN",.403,0)
+.403
+"BLD",1525,"KRN",.5,0)
+.5
+"BLD",1525,"KRN",.84,0)
+.84
+"BLD",1525,"KRN",3.6,0)
+3.6
+"BLD",1525,"KRN",3.8,0)
+3.8
+"BLD",1525,"KRN",9.2,0)
+9.2
+"BLD",1525,"KRN",9.8,0)
+9.8
+"BLD",1525,"KRN",9.8,"NM",0)
+^9.68A^^0
+"BLD",1525,"KRN",19,0)
+19
+"BLD",1525,"KRN",19.1,0)
+19.1
+"BLD",1525,"KRN",101,0)
+101
+"BLD",1525,"KRN",409.61,0)
+409.61
+"BLD",1525,"KRN",771,0)
+771
+"BLD",1525,"KRN",779.2,0)
+779.2
+"BLD",1525,"KRN",869.2,0)
+869.2
+"BLD",1525,"KRN",870,0)
+870
+"BLD",1525,"KRN",8989.51,0)
+8989.51
+"BLD",1525,"KRN",8989.52,0)
+8989.52
+"BLD",1525,"KRN",8994,0)
+8994
+"BLD",1525,"KRN",9002226,0)
+9002226
+"BLD",1525,"KRN","B",.4,.4)
+
+"BLD",1525,"KRN","B",.401,.401)
+
+"BLD",1525,"KRN","B",.402,.402)
+
+"BLD",1525,"KRN","B",.403,.403)
+
+"BLD",1525,"KRN","B",.5,.5)
+
+"BLD",1525,"KRN","B",.84,.84)
+
+"BLD",1525,"KRN","B",3.6,3.6)
+
+"BLD",1525,"KRN","B",3.8,3.8)
+
+"BLD",1525,"KRN","B",9.2,9.2)
+
+"BLD",1525,"KRN","B",9.8,9.8)
+
+"BLD",1525,"KRN","B",19,19)
+
+"BLD",1525,"KRN","B",19.1,19.1)
+
+"BLD",1525,"KRN","B",101,101)
+
+"BLD",1525,"KRN","B",409.61,409.61)
+
+"BLD",1525,"KRN","B",771,771)
+
+"BLD",1525,"KRN","B",779.2,779.2)
+
+"BLD",1525,"KRN","B",869.2,869.2)
+
+"BLD",1525,"KRN","B",870,870)
+
+"BLD",1525,"KRN","B",8989.51,8989.51)
+
+"BLD",1525,"KRN","B",8989.52,8989.52)
+
+"BLD",1525,"KRN","B",8994,8994)
+
+"BLD",1525,"KRN","B",9002226,9002226)
+
+"BLD",1525,"PRE")
+PSN376E
+"BLD",1525,"PRET")
+NDFPRE
+"BLD",1525,"QDEF")
+^^^^NO^^^^NO^^NO
+"BLD",1525,"QUES",0)
+^9.62^^
+"BLD",1525,"REQB",0)
+^9.611^1^1
+"BLD",1525,"REQB",1,0)
+PSN*4.0*375^1
+"BLD",1525,"REQB","B","PSN*4.0*375",1)
+
+"INIT")
+PSN376D
+"MBREQ")
+0
+"PKG",114,-1)
+1^1
+"PKG",114,0)
+NATIONAL DRUG FILE^PSN^This is the National Drug File Package V 4
+"PKG",114,20,0)
+^9.402P^^
+"PKG",114,22,0)
+^9.49I^1^1
+"PKG",114,22,1,0)
+4.0^3041105
+"PKG",114,22,1,"PAH",1,0)
+376^3131003
+"PKG",114,22,1,"PAH",1,1,0)
+^^16^16^3131003
+"PKG",114,22,1,"PAH",1,1,1,0)
+This patch provides updates to data in several of the files associated
+"PKG",114,22,1,"PAH",1,1,2,0)
+with the National Drug File (NDF) application.
+"PKG",114,22,1,"PAH",1,1,3,0)
+This patch generates four mail messages. All are sent from NDF MANAGER
+"PKG",114,22,1,"PAH",1,1,4,0)
+to members of the NDF DATA mail group, holders of the PSNMGR security
+"PKG",114,22,1,"PAH",1,1,5,0)
+key, and the person installing the patch. The first message, with the
+"PKG",114,22,1,"PAH",1,1,6,0)
+subject DATA UPDATE FOR NDF, lists new products, CMOP ID (if one exists),
+"PKG",114,22,1,"PAH",1,1,7,0)
+dispense units, and associated NDCs, products for which the national
+"PKG",114,22,1,"PAH",1,1,8,0)
+formulary indicator has changed, products that have been unmatched from
+"PKG",114,22,1,"PAH",1,1,9,0)
+CMOP, and products for which the national formulary restriction has
+"PKG",114,22,1,"PAH",1,1,10,0)
+changed. The second, with the subject UPDATED INTERACTIONS, lists
+"PKG",114,22,1,"PAH",1,1,11,0)
+interactions that have been added, edited, or inactivated. The third, with
+"PKG",114,22,1,"PAH",1,1,12,0)
+the subject DRUGS UNMATCHED FROM NATIONAL DRUG FILE, lists entries in the
+"PKG",114,22,1,"PAH",1,1,13,0)
+DRUG file (#50) which have been unmatched from NDF. The fourth, with the
+"PKG",114,22,1,"PAH",1,1,14,0)
+subject INTERACTIONS and ALLERGIES UPDATED, lists interactions and allergies
+"PKG",114,22,1,"PAH",1,1,15,0)
+which have been changed because they were created with ingredients that
+"PKG",114,22,1,"PAH",1,1,16,0)
+are no longer primary ingredients.
+"PRE")
+PSN376E
+"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","PSN376D")
+0^^B75477035
+"RTN","PSN376D",1,0)
+PSN376D ;BIR/DMA-post install routine to load data ; 02 Oct 2013 2:41 PM
+"RTN","PSN376D",2,0)
+ ;;4.0;NATIONAL DRUG FILE;**376**; 30 Oct 98;Build 76
+"RTN","PSN376D",3,0)
+ ;
+"RTN","PSN376D",4,0)
+ ; Reference to ^PSDRUG supported by DBIA #2192
+"RTN","PSN376D",5,0)
+ ; Reference to PSN^PSSHUIDG supported by DBIA #3621
+"RTN","PSN376D",6,0)
+ ; Reference to ^GMR(120.8) supported by DBIA #4606
+"RTN","PSN376D",7,0)
+ ;
+"RTN","PSN376D",8,0)
+ N CL,CLA,CMOP,CT,DA,DA1,DIA,DIC,DIE,DIK,DINUM,DR,FDA,FILE,FLDS,GE,GROOT,GROOT1,IENS,IN,INA,IND,INDX,INV,J,JJ,K,LI,LINE,NA,NAME,ND,NEW,NFI,POST,PR,PSN,PSN1,PSN11,PSN21,PSNDF,R1,ROOT,ROOT1,ROOT2,ROOT3,SUBS,VAC,VAIN,VAPN
+"RTN","PSN376D",9,0)
+ N X,XMDUZ,XMSUB,XMTEXT,XMY,XMZ,XUMF,TREC
+"RTN","PSN376D",10,0)
+ N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
+"RTN","PSN376D",11,0)
+ K ^TMP($J),^TMP("PSN",$J),^TMP("PSNN",$J)
+"RTN","PSN376D",12,0)
+ ;
+"RTN","PSN376D",13,0)
+ S PSNDF=1,XPDIDTOT=+$G(@XPDGREF@("TREC")),TREC=0
+"RTN","PSN376D",14,0)
+ S XUMF=1
+"RTN","PSN376D",15,0)
+ ;TO ALLOW ADDS TO 56 ,50.416,50.605,50.606, AND 50.6
+"RTN","PSN376D",16,0)
+ ;MORE ELEGANT CHANGE LATER
+"RTN","PSN376D",17,0)
+ ;
+"RTN","PSN376D",18,0)
+ S FILE=0,GROOT=$NA(@XPDGREF@("DATANT"))
+"RTN","PSN376D",19,0)
+ ;load new entries first
+"RTN","PSN376D",20,0)
+ F S FILE=$O(@GROOT@(FILE)) Q:'FILE S ROOT=$$ROOT^DILFD(FILE) I ROOT]"" S GROOT1=$NA(@GROOT@(FILE)) F JJ=1:2 Q:'$D(@GROOT1@(JJ)) S DIA=@GROOT1@(JJ),NEW=@GROOT1@(JJ+1) D
+"RTN","PSN376D",21,0)
+ .S DA=+DIA K FDA,IENS
+"RTN","PSN376D",22,0)
+ .I $$GET1^DIQ(FILE,DA,.01)]"" S FDA(FILE,DA_",",.01)=NEW D FILE^DIE("","FDA") Q
+"RTN","PSN376D",23,0)
+ .S DINUM=DA,X=NEW,DIC=ROOT,DIC(0)="L",DIC("DR")="S Y=0" K DD,DO D FILE^DICN
+"RTN","PSN376D",24,0)
+ .S TREC=TREC+1 I '(TREC#500) D UPDATE^XPDID(TREC)
+"RTN","PSN376D",25,0)
+ ;
+"RTN","PSN376D",26,0)
+ S FILE=0,GROOT=$NA(@XPDGREF@("DATAN"))
+"RTN","PSN376D",27,0)
+ ;load new multiple entries next
+"RTN","PSN376D",28,0)
+ F S FILE=$O(@GROOT@(FILE)) Q:'FILE S ROOT=$$ROOT^DILFD(FILE) I ROOT]"" S GROOT1=$NA(@GROOT@(FILE)) F JJ=1:2 Q:'$D(@GROOT1@(JJ)) S DIA=@GROOT1@(JJ),NEW=@GROOT1@(JJ+1) D
+"RTN","PSN376D",29,0)
+ .S IENS=$P(DIA,"^")_",",FLDS=$P(DIA,"^",3),ROOT=FILE K FDA,IEN
+"RTN","PSN376D",30,0)
+ .I FLDS["," D
+"RTN","PSN376D",31,0)
+ ..;it should, but
+"RTN","PSN376D",32,0)
+ ..S LI=$P(DIA,"^",3) F J=1:1:$L(LI,",")-1 S ROOT=+$P(^DD(ROOT,+$P(LI,",",J),0),"^",2)
+"RTN","PSN376D",33,0)
+ ..S LI=$P(DIA,"^"),IENS="" F J=$L(LI,","):-1:1 S IENS=IENS_$P(LI,",",J)_","
+"RTN","PSN376D",34,0)
+ ..S DA=+IENS
+"RTN","PSN376D",35,0)
+ .;I $$GET1^DIQ(ROOT,IENS,.01)]"" S FDA(ROOT,IENS,.01)=NEW D FILE^DIE("","FDA") Q
+"RTN","PSN376D",36,0)
+ .S FDA(ROOT,"+"_IENS,.01)=NEW,IEN(DA)=DA D UPDATE^DIE("","FDA","IEN")
+"RTN","PSN376D",37,0)
+ .S TREC=TREC+1 I '(TREC#500) D UPDATE^XPDID(TREC)
+"RTN","PSN376D",38,0)
+ .I FILE=50.68,$P(DIA,"^",3)="14,.01" S ^TMP("PSNN",$J,$P(DIA,"^"))=""
+"RTN","PSN376D",39,0)
+ ;
+"RTN","PSN376D",40,0)
+ S FILE=0,GROOT=$NA(@XPDGREF@("DATAO"))
+"RTN","PSN376D",41,0)
+ ;now load the rest of the data
+"RTN","PSN376D",42,0)
+ F S FILE=$O(@GROOT@(FILE)) Q:'FILE S ROOT=$$ROOT^DILFD(FILE) I ROOT]"" S GROOT1=$NA(@GROOT@(FILE)) F JJ=1:2 Q:'$D(@GROOT1@(JJ)) S DIA=@GROOT1@(JJ),NEW=@GROOT1@(JJ+1) D
+"RTN","PSN376D",43,0)
+ .S IENS=$P(DIA,"^")_",",FLDS=$P(DIA,"^",3),ROOT=FILE K FDA,IEN
+"RTN","PSN376D",44,0)
+ .I FLDS["," D
+"RTN","PSN376D",45,0)
+ ..S LI=$P(DIA,"^",3) F J=1:1:$L(LI,",")-1 S ROOT=+$P(^DD(ROOT,+$P(LI,",",J),0),"^",2)
+"RTN","PSN376D",46,0)
+ ..S LI=$P(DIA,"^"),IENS="" F J=$L(LI,","):-1:1 S IENS=IENS_$P(LI,",",J)_","
+"RTN","PSN376D",47,0)
+ ..S FLDS=$P(FLDS,",",$L(FLDS,","))
+"RTN","PSN376D",48,0)
+ .S FDA(ROOT,IENS,FLDS)=NEW D FILE^DIE("","FDA")
+"RTN","PSN376D",49,0)
+ .S TREC=TREC+1 I '(TREC#500) D UPDATE^XPDID(TREC)
+"RTN","PSN376D",50,0)
+ S JJ=0 F S JJ=$O(^TMP("PSNN",$J,JJ)) Q:'JJ S DA=$P(JJ,",",2),DA(1)=+JJ D ING^PSNXREF
+"RTN","PSN376D",51,0)
+ ;
+"RTN","PSN376D",52,0)
+ ;
+"RTN","PSN376D",53,0)
+WORD S ROOT1=$NA(@XPDGREF@("WORD")),CT=0,ROOT2=$NA(@ROOT1@(0))
+"RTN","PSN376D",54,0)
+ F S CT=$O(@ROOT2) Q:'CT S ROOT2=$NA(@ROOT1@(CT)),NAME=@ROOT2,ROOT3=$NA(@ROOT2@("D")) K @NAME M @NAME=@ROOT3
+"RTN","PSN376D",55,0)
+ ;
+"RTN","PSN376D",56,0)
+ ;
+"RTN","PSN376D",57,0)
+MESSAGE K ^TMP($J) M ^TMP($J)=@XPDGREF@("MESSAGE") K ^TMP($J,0)
+"RTN","PSN376D",58,0)
+ ;
+"RTN","PSN376D",59,0)
+GROUP K XMY S X=$G(@XPDGREF@("GROUP")) I X]"" S XMY("G."_X_"@"_^XMB("NETNAME"))=""
+"RTN","PSN376D",60,0)
+ S DA=0 F S DA=$O(^XUSEC("PSNMGR",DA)) Q:'DA S XMY(DA)=""
+"RTN","PSN376D",61,0)
+ I $D(DUZ) S XMY(DUZ)=""
+"RTN","PSN376D",62,0)
+ ;
+"RTN","PSN376D",63,0)
+ S XMSUB="DATA UPDATE FOR NDF"
+"RTN","PSN376D",64,0)
+ S XMDUZ="NDF MANAGER"
+"RTN","PSN376D",65,0)
+ S XMTEXT="^TMP($J," N DIFROM D ^XMD
+"RTN","PSN376D",66,0)
+ ;
+"RTN","PSN376D",67,0)
+ K ^TMP($J) M ^TMP($J)=@XPDGREF@("MESSAGE2") K ^TMP($J,0)
+"RTN","PSN376D",68,0)
+ ;
+"RTN","PSN376D",69,0)
+ K XMY S X=$G(@XPDGREF@("GROUP")) I X]"" S XMY("G."_X_"@"_^XMB("NETNAME"))=""
+"RTN","PSN376D",70,0)
+ S DA=0 F S DA=$O(^XUSEC("PSNMGR",DA)) Q:'DA S XMY(DA)=""
+"RTN","PSN376D",71,0)
+ I $D(DUZ) S XMY(DUZ)=""
+"RTN","PSN376D",72,0)
+ ;
+"RTN","PSN376D",73,0)
+ S XMSUB="UPDATED INTERACTIONS"
+"RTN","PSN376D",74,0)
+ S XMDUZ="NDF MANAGER"
+"RTN","PSN376D",75,0)
+ S XMTEXT="^TMP($J," N DIFROM D ^XMD
+"RTN","PSN376D",76,0)
+DRUGFILE ;
+"RTN","PSN376D",77,0)
+ ;NOW UPDATE LOCAL DRUG FILE
+"RTN","PSN376D",78,0)
+ K ^TMP($J)
+"RTN","PSN376D",79,0)
+ S PSN=$$PATCH^XPDUTL("PSS*1.0*34"),PSN1=$$PATCH^XPDUTL("PSS*1.0*42")
+"RTN","PSN376D",80,0)
+ S ROOT1=$NA(@XPDGREF@("GENERIC")),ROOT2=$NA(@XPDGREF@("PRODUCT")),ROOT3=$NA(@XPDGREF@("POE")),DA=0
+"RTN","PSN376D",81,0)
+ S DA=0 F S DA=$O(^PSDRUG(DA)) Q:'DA S X=$G(^PSDRUG(DA,0)) I X]"" S NA=$P(X,"^"),CLA=$P(X,"^",2),INV=$P(X,"^",3)["I",X=$G(^("ND")),IN=$P($G(^("I"),9999999),"^"),INA=IN'>DT,GE=+X,PR=+$P(X,"^",3),CMOP=$P(X,"^",10),VAPN=$P(X,"^",2) I GE I PR D
+"RTN","PSN376D",82,0)
+ .S VAIN=$P($G(^PSNDF(50.68,PR,7)),"^",3)
+"RTN","PSN376D",83,0)
+ .I $D(@ROOT1@(GE))!$D(@ROOT2@(PR))!VAIN S X="" S:CMOP]"" X=" (CMOP "_CMOP_")" S $E(X,30)=VAPN,$E(X,65)=$$FMTE^XLFDT(VAIN,5),INDX=$S(INA:"I",INV:"X",1:"A") S:IN=9999999 IN="" S ^TMP($J,INDX,NA_"^"_DA_"^"_IN,1)=X,^TMP($J,"^",DA)="" D
+"RTN","PSN376D",84,0)
+ ..S DIE="^PSDRUG(",DR="20////@;21////@;22////@;23////@;24////@;27////@;29////@;" D ^DIE K DIE,DR
+"RTN","PSN376D",85,0)
+ ..I PSN I $P($G(^PSDRUG(DA,"DOS")),"^")]""!$O(^("DOS1",0))!$O(^PSDRUG(DA,"DOS2",0)) D LOAD K ^PSDRUG(DA,"DOS"),^("DOS1"),^("DOS2")
+"RTN","PSN376D",86,0)
+ ..I $P($G(^PSDRUG(DA,3)),"^") S DIE=50,DR="213////0;" D ^DIE K DIE,DR I PSN1 S IND=$O(^PSDRUG(DA,4," "),-1),$P(^(IND,0),"^",6)="NDF Update"
+"RTN","PSN376D",87,0)
+ .I PSN,$D(@ROOT3@(PR)) K ^PSDRUG(DA,"DOS"),^("DOS1"),^("DOS2")
+"RTN","PSN376D",88,0)
+ .S ND=$G(^PSDRUG(DA,"ND")),PR=$P(ND,"^",3) I PR D
+"RTN","PSN376D",89,0)
+ ..S NFI=$P($G(^PSNDF(50.68,PR,5)),"^") I $P(ND,"^",11)'=NFI S DIE=50,DR="29////"_NFI_";" D ^DIE
+"RTN","PSN376D",90,0)
+ ..S VAC=$P($G(^PSNDF(50.68,PR,3)),"^") I VAC S VAC=$P(^PS(50.605,VAC,0),"^"),DIE=50,DR="2////"_VAC_";" D ^DIE
+"RTN","PSN376D",91,0)
+ ..I $P($G(^PSDRUG(DA,3)),"^"),'$P($G(^PSNDF(50.68,PR,1)),"^",3) S DIE=50,DR="213////0;" D ^DIE K DIE,DR S IND=$O(^PSDRUG(DA,4," "),-1),$P(^(IND,0),"^",6)="NDF Update"
+"RTN","PSN376D",92,0)
+ .S TREC=TREC+1 I '(TREC#500) D UPDATE^XPDID(TREC)
+"RTN","PSN376D",93,0)
+ ;
+"RTN","PSN376D",94,0)
+ K ^TMP("PSN",$J) S LINE=1 F INDX="A","X","I" D LOAD1
+"RTN","PSN376D",95,0)
+ S XMDUZ="NDF MANAGER",XMSUB="DRUGS UNMATCHED FROM NATIONAL DRUG FILE",XMTEXT="^TMP(""PSN"",$J,"
+"RTN","PSN376D",96,0)
+ K XMY S X=$G(@XPDGREF@("GROUP")) I X]"" S XMY("G."_X_"@"_^XMB("NETNAME"))=""
+"RTN","PSN376D",97,0)
+ S DA=0 F S DA=$O(^XUSEC("PSNMGR",DA)) Q:'DA S XMY(DA)=""
+"RTN","PSN376D",98,0)
+ I $D(DUZ) S XMY(DUZ)=""
+"RTN","PSN376D",99,0)
+ N DIFROM D ^XMD I $D(XMZ) S DA=XMZ,DIE=3.9,DR="1.7///P;" D ^DIE
+"RTN","PSN376D",100,0)
+ ;package specific post install
+"RTN","PSN376D",101,0)
+ I $D(@XPDGREF@("POST")) S POST=^("POST") S:POST'["^" POST="^"_POST I @("$T("_POST_")]]""""") D @POST
+"RTN","PSN376D",102,0)
+ ;
+"RTN","PSN376D",103,0)
+ ;call to HL7 drug update message
+"RTN","PSN376D",104,0)
+ I $T(PSN^PSSHUIDG)]"" I $O(^TMP($J,"^",0)) S ZTRTN="PSN^PSSHUIDG",ZTIO="",ZTDTH=$H,ZTDESC="DRUG UPDATE MESSAGE",ZTSAVE("^TMP($J,""^"",")="" D ^%ZTLOAD
+"RTN","PSN376D",105,0)
+ ;
+"RTN","PSN376D",106,0)
+REINDEX ;Make sure APC xref is correct
+"RTN","PSN376D",107,0)
+ I $T(EN2^GMRAUIX0)']"" G MORE
+"RTN","PSN376D",108,0)
+ N SUB,DA,DIK,GMRAIEN,CLASS
+"RTN","PSN376D",109,0)
+ S SUB=0 F S SUB=$O(^GMR(120.8,SUB)) Q:'+SUB I $D(^GMR(120.8,SUB,3)) D
+"RTN","PSN376D",110,0)
+ .S GMRAIEN=+$P($G(^GMR(120.8,SUB,0)),U) Q:'GMRAIEN
+"RTN","PSN376D",111,0)
+ .S CLASS="" F S CLASS=$O(^GMR(120.8,"APC",GMRAIEN,CLASS)) Q:CLASS="" K ^GMR(120.8,"APC",GMRAIEN,CLASS,SUB)
+"RTN","PSN376D",112,0)
+ .S DA(1)=SUB
+"RTN","PSN376D",113,0)
+ .S DIK="^GMR(120.8,DA(1),3,"
+"RTN","PSN376D",114,0)
+ .S DIK(1)=".01^ADRG3"
+"RTN","PSN376D",115,0)
+ .D ENALL^DIK ;Reset the drug class xref
+"RTN","PSN376D",116,0)
+ ;
+"RTN","PSN376D",117,0)
+MORE ;REINDEXING
+"RTN","PSN376D",118,0)
+ ;now the APD
+"RTN","PSN376D",119,0)
+ K ^PS(50.416,"APD") S DA=0 F S DA=$O(^PS(50.416,DA)),K=0 Q:'DA F S K=$O(^PS(50.416,DA,1,K)) Q:'K S X=^(K,0),^PS(50.416,"APD",X,DA)=""
+"RTN","PSN376D",120,0)
+ ;now the interactions
+"RTN","PSN376D",121,0)
+ K ^PS(56,"APD") S DA=0 F S DA=$O(^PS(56,DA)) Q:'DA K PSN1,PSN2 S PSN1=$P(^(DA,0),"^",2),PSN2=$P(^(0),"^",3) D
+"RTN","PSN376D",122,0)
+ .S NA="" F S NA=$O(^PS(50.416,PSN1,1,"B",NA)) Q:NA="" S PSN1(NA)=""
+"RTN","PSN376D",123,0)
+ .S PSN11=0 F S PSN11=$O(^PS(50.416,"APS",PSN1,PSN11)),NA="" Q:'PSN11 F S NA=$O(^PS(50.416,PSN11,1,"B",NA)) Q:NA="" S PSN1(NA)=""
+"RTN","PSN376D",124,0)
+ .S NA="" F S NA=$O(^PS(50.416,PSN2,1,"B",NA)) Q:NA="" S PSN2(NA)=""
+"RTN","PSN376D",125,0)
+ .S PSN21=0 F S PSN21=$O(^PS(50.416,"APS",PSN2,PSN21)),NA="" Q:'PSN21 F S NA=$O(^PS(50.416,PSN21,1,"B",NA)) Q:NA="" S PSN2(NA)=""
+"RTN","PSN376D",126,0)
+ .S PSN1="" F S PSN1=$O(PSN1(PSN1)),PSN2="" Q:PSN1="" F S PSN2=$O(PSN2(PSN2)) Q:PSN2="" S ^PS(56,"APD",PSN1,PSN2,DA)="",^PS(56,"APD",PSN2,PSN1,DA)=""
+"RTN","PSN376D",127,0)
+ ;
+"RTN","PSN376D",128,0)
+ D ^PSNCLEAN
+"RTN","PSN376D",129,0)
+ ;
+"RTN","PSN376D",130,0)
+QUIT ;
+"RTN","PSN376D",131,0)
+ D UPDATE^XPDID(XPDIDTOT)
+"RTN","PSN376D",132,0)
+ K CL,CLA,CMOP,CT,DA,DA1,DIA,DIC,DIE,DIK,DINUM,DR,FDA,FILE,FLDS,GE,GROOT,GROOT1,IENS,IN,INA,IND,INDX,INV,J,JJ,K,LI,LINE,NA,NAME,ND,NEW,NFI,POST,PR,PSN,PSN1,PSN11,PSN21,PSNDF,R1,ROOT,ROOT1,ROOT2,ROOT3,SUBS,VAC,VAIN,VAPN
+"RTN","PSN376D",133,0)
+ K X,XMDUZ,XMSUB,XMTEXT,XMY,XMZ,XUMF,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
+"RTN","PSN376D",134,0)
+ K ^TMP($J),^TMP("PSN",$J),^TMP("PSNN",$J)
+"RTN","PSN376D",135,0)
+ Q
+"RTN","PSN376D",136,0)
+ ;
+"RTN","PSN376D",137,0)
+LOAD ;GET DOSE STUFF
+"RTN","PSN376D",138,0)
+ S J=2,X=$G(^PSDRUG(DA,"DOS")) I $P(X,"^"),$D(^PS(50.607,+$P(X,"^",2),0)) S ^TMP($J,INDX,NA_"^"_DA_"^"_IN,J)=" STRENGTH: "_+X_"UNITS: "_$P(^PS(50.607,+$P(X,"^",2),0),"^"),J=J+1
+"RTN","PSN376D",139,0)
+ I $O(^PSDRUG(DA,"DOS1",0)) S ^TMP($J,INDX,NA_"^"_DA_"^"_IN,J)=" POSSIBLE DOSES",^(J+1)=" DISP UNITS/DOSE DOSE PACKAGE BCMA UNITS/DOSE",DA1=0,J=J+2 D
+"RTN","PSN376D",140,0)
+ .F S DA1=$O(^PSDRUG(DA,"DOS1",DA1)) Q:'DA1 S X=^(DA1,0),^TMP($J,INDX,NA_"^"_DA_"^"_IN,J)=" "_$J($P(X,"^"),4),$E(^(J),25)=$J($P(X,"^",2),4),$E(^(J),35)=$P(X,"^",3),$E(^(J),43)=$P(X,"^",4),J=J+1
+"RTN","PSN376D",141,0)
+ I $O(^PSDRUG(DA,"DOS2",0)) S ^TMP($J,INDX,NA_"^"_DA_"^"_IN,J)=" LOCAL POSSIBLE DOSES",^(J+1)=" DOSE PACKAGE BCMA UNITS/DOSE",DA1=0,J=J+2 D
+"RTN","PSN376D",142,0)
+ .F S DA1=$O(^PSDRUG(DA,"DOS2",DA1)) Q:'DA1 S X=^(DA1,0),^TMP($J,INDX,NA_"^"_DA_"^"_IN,J)=" "_$P(X,"^"),$E(^(J),55)=$P(X,"^",2),$E(^(J),71)=$P(X,"^",3),J=J+1
+"RTN","PSN376D",143,0)
+ Q
+"RTN","PSN376D",144,0)
+ ;
+"RTN","PSN376D",145,0)
+LOAD1 ;BUILD THE MESSAGE
+"RTN","PSN376D",146,0)
+ S ^TMP("PSN",$J,LINE,0)=" ",LINE=LINE+1
+"RTN","PSN376D",147,0)
+ S ^TMP("PSN",$J,LINE,0)="The following "_$S(INDX="A":"active",INDX="X":"investigational",1:"inactive")_" entries in your DRUG file (#50) have been",LINE=LINE+1
+"RTN","PSN376D",148,0)
+ S J=0 F S J=$O(@XPDGREF@("TEXT",J)) Q:'J S ^TMP("PSN",$J,LINE,0)=@XPDGREF@("TEXT",J),LINE=LINE+1
+"RTN","PSN376D",149,0)
+ ;I INDX'="I" S LINE=LINE-1,^(0)=$P(^TMP("PSN",$J,LINE-2,0),"IN"),^TMP("PSN",$J,LINE-1,0)=" "
+"RTN","PSN376D",150,0)
+ S NA="" I $O(^TMP($J,INDX,NA))="" S ^TMP("PSN",$J,LINE,0)=" NONE",LINE=LINE+1 Q
+"RTN","PSN376D",151,0)
+ F S NA=$O(^TMP($J,INDX,NA)) Q:NA="" S X=^(NA,1),^TMP("PSN",$J,LINE,0)=$P(NA,"^"),$E(^(0),55)=$P(NA,"^",2) S:INDX="I" $E(^(0),62)=$$FMTE^XLFDT($P(NA,"^",3),5) S LINE=LINE+1,^TMP("PSN",$J,LINE,0)=$P(X,"^"),LINE=LINE+1 S J=1 D
+"RTN","PSN376D",152,0)
+ .F S J=$O(^TMP($J,INDX,NA,J)) Q:'J S ^TMP("PSN",$J,LINE,0)=^(J),LINE=LINE+1
+"RTN","PSN376D",153,0)
+ Q
+"RTN","PSN376E")
+0^^B582702
+"RTN","PSN376E",1,0)
+PSN376E ;BIR/DMA-environment check for data updates ; 02 Oct 2013 2:41 PM
+"RTN","PSN376E",2,0)
+ ;;4.0;NATIONAL DRUG FILE;**376**; 30 Oct 98;Build 76
+"RTN","PSN376E",3,0)
+ ;
+"RTN","PSN376E",4,0)
+ I $D(DUZ)#2 N DIC,X,Y S DIC=200,DIC(0)="N",X="`"_DUZ D ^DIC I Y>0
+"RTN","PSN376E",5,0)
+ E W !!,"You must be a valid user." S XPDQUIT=2
+"RTN","PSN376E",6,0)
+ I $$PATCH^XPDUTL(XPDNM) W !!,"This patch has already been installed." S XPDQUIT=1 Q
+"RTN","PSN376E",7,0)
+ Q
+"TEMP","CLASS",0)
+CLASS CHANGES^5000.8P^^0
+"TEMP","CMOP",1727)
+
+"TEMP","CMOP",4544)
+
+"TEMP","CMOP",5060)
+
+"TEMP","CMOP",5979)
+
+"TEMP","CMOP",6299)
+
+"TEMP","CMOP",13393)
+
+"TEMP","CMOP",14322)
+
+"TEMP","CMOP",14324)
+
+"TEMP","CMOP",14666)
+
+"TEMP","CMOP",18203)
+
+"TEMP","CMOP",18600)
+
+"TEMP","CMOP",19301)
+
+"TEMP","CMOP",20788)
+
+"TEMP","CMOP",20853)
+
+"TEMP","CMOP",21052)
+
+"TEMP","CMOP",23311)
+
+"TEMP","CMOP",23852)
+
+"TEMP","CMOP",23855)
+
+"TEMP","DATAN",50.416,1)
+4878,1^3130913.141349^99.991,.01^358^A
+"TEMP","DATAN",50.416,2)
+3130913
+"TEMP","DATAN",50.416,3)
+4879,1^3130913.145758^99.991,.01^358^A
+"TEMP","DATAN",50.416,4)
+3130913
+"TEMP","DATAN",50.416,5)
+4880,1^3130920.144456^99.991,.01^358^A
+"TEMP","DATAN",50.416,6)
+3130920
+"TEMP","DATAN",50.416,7)
+4881,1^3130927.144438^99.991,.01^358^A
+"TEMP","DATAN",50.416,8)
+3130927
+"TEMP","DATAN",50.416,9)
+4882,1^3130927.144523^99.991,.01^358^A
+"TEMP","DATAN",50.416,10)
+3130927
+"TEMP","DATAN",50.6,1)
+4839,1^3130913.141318^99.991,.01^358^A
+"TEMP","DATAN",50.6,2)
+3130913
+"TEMP","DATAN",50.6,3)
+4840,1^3130917.095404^99.991,.01^358^A
+"TEMP","DATAN",50.6,4)
+3130917
+"TEMP","DATAN",50.6,5)
+4841,1^3130920.144455^99.991,.01^358^A
+"TEMP","DATAN",50.6,6)
+3130920
+"TEMP","DATAN",50.6,7)
+4842,1^3130920.145552^99.991,.01^358^A
+"TEMP","DATAN",50.6,8)
+3130920
+"TEMP","DATAN",50.6,9)
+4843,1^3130925.154505^99.991,.01^358^A
+"TEMP","DATAN",50.6,10)
+3130925
+"TEMP","DATAN",50.67,1)
+201945,1^3130912.063^6,.01^358^A
+"TEMP","DATAN",50.67,2)
+N/A
+"TEMP","DATAN",50.67,3)
+201946,1^3130912.063001^6,.01^358^A
+"TEMP","DATAN",50.67,4)
+N/A
+"TEMP","DATAN",50.67,5)
+201947,1^3130912.063002^6,.01^358^A
+"TEMP","DATAN",50.67,6)
+N/A
+"TEMP","DATAN",50.67,7)
+201948,1^3130912.063002^6,.01^358^A
+"TEMP","DATAN",50.67,8)
+N/A
+"TEMP","DATAN",50.67,9)
+201949,1^3130912.063002^6,.01^358^A
+"TEMP","DATAN",50.67,10)
+N/A
+"TEMP","DATAN",50.67,11)
+201950,1^3130912.063003^6,.01^358^A
+"TEMP","DATAN",50.67,12)
+N/A
+"TEMP","DATAN",50.67,13)
+201951,1^3130912.063004^6,.01^358^A
+"TEMP","DATAN",50.67,14)
+N/A
+"TEMP","DATAN",50.67,15)
+201952,1^3130912.063004^6,.01^358^A
+"TEMP","DATAN",50.67,16)
+N/A
+"TEMP","DATAN",50.67,17)
+201953,1^3130912.063005^6,.01^358^A
+"TEMP","DATAN",50.67,18)
+N/A
+"TEMP","DATAN",50.67,19)
+201954,1^3130912.063005^6,.01^358^A
+"TEMP","DATAN",50.67,20)
+N/A
+"TEMP","DATAN",50.67,21)
+201955,1^3130912.063007^6,.01^358^A
+"TEMP","DATAN",50.67,22)
+N/A
+"TEMP","DATAN",50.67,23)
+201956,1^3130912.063007^6,.01^358^A
+"TEMP","DATAN",50.67,24)
+N/A
+"TEMP","DATAN",50.67,25)
+201957,1^3130912.063008^6,.01^358^A
+"TEMP","DATAN",50.67,26)
+N/A
+"TEMP","DATAN",50.67,27)
+201958,1^3130912.063008^6,.01^358^A
+"TEMP","DATAN",50.67,28)
+N/A
+"TEMP","DATAN",50.67,29)
+201959,1^3130912.063008^6,.01^358^A
+"TEMP","DATAN",50.67,30)
+N/A
+"TEMP","DATAN",50.67,31)
+201960,1^3130912.063009^6,.01^358^A
+"TEMP","DATAN",50.67,32)
+N/A
+"TEMP","DATAN",50.67,33)
+201961,1^3130912.063009^6,.01^358^A
+"TEMP","DATAN",50.67,34)
+N/A
+"TEMP","DATAN",50.67,35)
+201962,1^3130912.06301^6,.01^358^A
+"TEMP","DATAN",50.67,36)
+N/A
+"TEMP","DATAN",50.67,37)
+201963,1^3130912.063013^6,.01^358^A
+"TEMP","DATAN",50.67,38)
+N/A
+"TEMP","DATAN",50.67,39)
+201964,1^3130912.063015^6,.01^358^A
+"TEMP","DATAN",50.67,40)
+N/A
+"TEMP","DATAN",50.67,41)
+201965,1^3130912.063015^6,.01^358^A
+"TEMP","DATAN",50.67,42)
+N/A
+"TEMP","DATAN",50.67,43)
+201966,1^3130912.063016^6,.01^358^A
+"TEMP","DATAN",50.67,44)
+N/A
+"TEMP","DATAN",50.67,45)
+201967,1^3130912.063017^6,.01^358^A
+"TEMP","DATAN",50.67,46)
+N/A
+"TEMP","DATAN",50.67,47)
+201968,1^3130912.063017^6,.01^358^A
+"TEMP","DATAN",50.67,48)
+N/A
+"TEMP","DATAN",50.67,49)
+201969,1^3130912.063017^6,.01^358^A
+"TEMP","DATAN",50.67,50)
+N/A
+"TEMP","DATAN",50.67,51)
+201970,1^3130912.063018^6,.01^358^A
+"TEMP","DATAN",50.67,52)
+N/A
+"TEMP","DATAN",50.67,53)
+201971,1^3130912.063018^6,.01^358^A
+"TEMP","DATAN",50.67,54)
+N/A
+"TEMP","DATAN",50.67,55)
+201972,1^3130912.063019^6,.01^358^A
+"TEMP","DATAN",50.67,56)
+N/A
+"TEMP","DATAN",50.67,57)
+201973,1^3130912.063019^6,.01^358^A
+"TEMP","DATAN",50.67,58)
+N/A
+"TEMP","DATAN",50.67,59)
+201974,1^3130912.063019^6,.01^358^A
+"TEMP","DATAN",50.67,60)
+N/A
+"TEMP","DATAN",50.67,61)
+201975,1^3130912.063027^6,.01^358^A
+"TEMP","DATAN",50.67,62)
+N/A
+"TEMP","DATAN",50.67,63)
+201976,1^3130912.063027^6,.01^358^A
+"TEMP","DATAN",50.67,64)
+N/A
+"TEMP","DATAN",50.67,65)
+201977,1^3130912.063027^6,.01^358^A
+"TEMP","DATAN",50.67,66)
+N/A
+"TEMP","DATAN",50.67,67)
+201978,1^3130912.063028^6,.01^358^A
+"TEMP","DATAN",50.67,68)
+N/A
+"TEMP","DATAN",50.67,69)
+201979,1^3130912.063029^6,.01^358^A
+"TEMP","DATAN",50.67,70)
+N/A
+"TEMP","DATAN",50.67,71)
+201980,1^3130912.063029^6,.01^358^A
+"TEMP","DATAN",50.67,72)
+N/A
+"TEMP","DATAN",50.67,73)
+201981,1^3130912.063029^6,.01^358^A
+"TEMP","DATAN",50.67,74)
+N/A
+"TEMP","DATAN",50.67,75)
+201982,1^3130912.063031^6,.01^358^A
+"TEMP","DATAN",50.67,76)
+N/A
+"TEMP","DATAN",50.67,77)
+201983,1^3130912.063032^6,.01^358^A
+"TEMP","DATAN",50.67,78)
+N/A
+"TEMP","DATAN",50.67,79)
+201984,1^3130912.063033^6,.01^358^A
+"TEMP","DATAN",50.67,80)
+N/A
+"TEMP","DATAN",50.67,81)
+201985,1^3130912.071921^6,.01^358^A
+"TEMP","DATAN",50.67,82)
+N/A
+"TEMP","DATAN",50.67,83)
+201986,1^3130912.071922^6,.01^358^A
+"TEMP","DATAN",50.67,84)
+N/A
+"TEMP","DATAN",50.67,85)
+201987,1^3130912.071922^6,.01^358^A
+"TEMP","DATAN",50.67,86)
+N/A
+"TEMP","DATAN",50.67,87)
+201988,1^3130912.071923^6,.01^358^A
+"TEMP","DATAN",50.67,88)
+N/A
+"TEMP","DATAN",50.67,89)
+201989,1^3130912.072018^6,.01^358^A
+"TEMP","DATAN",50.67,90)
+N/A
+"TEMP","DATAN",50.67,91)
+201990,1^3130912.072019^6,.01^358^A
+"TEMP","DATAN",50.67,92)
+N/A
+"TEMP","DATAN",50.67,93)
+201991,1^3130912.072614^6,.01^358^A
+"TEMP","DATAN",50.67,94)
+N/A
+"TEMP","DATAN",50.67,95)
+201992,1^3130912.072614^6,.01^358^A
+"TEMP","DATAN",50.67,96)
+N/A
+"TEMP","DATAN",50.67,97)
+201993,1^3130912.072644^6,.01^358^A
+"TEMP","DATAN",50.67,98)
+N/A
+"TEMP","DATAN",50.67,99)
+201994,1^3130912.072645^6,.01^358^A
+"TEMP","DATAN",50.67,100)
+N/A
+"TEMP","DATAN",50.67,101)
+201995,1^3130912.073434^6,.01^358^A
+"TEMP","DATAN",50.67,102)
+N/A
+"TEMP","DATAN",50.67,103)
+201996,1^3130912.073501^6,.01^358^A
+"TEMP","DATAN",50.67,104)
+N/A
+"TEMP","DATAN",50.67,105)
+201997,1^3130912.073503^6,.01^358^A
+"TEMP","DATAN",50.67,106)
+N/A
+"TEMP","DATAN",50.67,107)
+201998,1^3130912.073524^6,.01^358^A
+"TEMP","DATAN",50.67,108)
+N/A
+"TEMP","DATAN",50.67,109)
+201999,1^3130912.073603^6,.01^358^A
+"TEMP","DATAN",50.67,110)
+N/A
+"TEMP","DATAN",50.67,111)
+202000,1^3130912.073604^6,.01^358^A
+"TEMP","DATAN",50.67,112)
+N/A
+"TEMP","DATAN",50.67,113)
+202001,1^3130912.073604^6,.01^358^A
+"TEMP","DATAN",50.67,114)
+N/A
+"TEMP","DATAN",50.67,115)
+202002,1^3130912.073605^6,.01^358^A
+"TEMP","DATAN",50.67,116)
+N/A
+"TEMP","DATAN",50.67,117)
+202003,1^3130912.073628^6,.01^358^A
+"TEMP","DATAN",50.67,118)
+N/A
+"TEMP","DATAN",50.67,119)
+202004,1^3130912.073825^6,.01^358^A
+"TEMP","DATAN",50.67,120)
+N/A
+"TEMP","DATAN",50.67,121)
+202005,1^3130912.073826^6,.01^358^A
+"TEMP","DATAN",50.67,122)
+N/A
+"TEMP","DATAN",50.67,123)
+202006,1^3130912.073826^6,.01^358^A
+"TEMP","DATAN",50.67,124)
+N/A
+"TEMP","DATAN",50.67,125)
+202007,1^3130912.073827^6,.01^358^A
+"TEMP","DATAN",50.67,126)
+N/A
+"TEMP","DATAN",50.67,127)
+202008,1^3130912.073911^6,.01^358^A
+"TEMP","DATAN",50.67,128)
+N/A
+"TEMP","DATAN",50.67,129)
+202009,1^3130912.073912^6,.01^358^A
+"TEMP","DATAN",50.67,130)
+N/A
+"TEMP","DATAN",50.67,131)
+202010,1^3130912.073912^6,.01^358^A
+"TEMP","DATAN",50.67,132)
+N/A
+"TEMP","DATAN",50.67,133)
+202011,1^3130912.073913^6,.01^358^A
+"TEMP","DATAN",50.67,134)
+N/A
+"TEMP","DATAN",50.67,135)
+202012,1^3130912.073914^6,.01^358^A
+"TEMP","DATAN",50.67,136)
+N/A
+"TEMP","DATAN",50.67,137)
+202013,1^3130912.073915^6,.01^358^A
+"TEMP","DATAN",50.67,138)
+N/A
+"TEMP","DATAN",50.67,139)
+202014,1^3130912.073916^6,.01^358^A
+"TEMP","DATAN",50.67,140)
+N/A
+"TEMP","DATAN",50.67,141)
+202015,1^3130912.073916^6,.01^358^A
+"TEMP","DATAN",50.67,142)
+N/A
+"TEMP","DATAN",50.67,143)
+202016,1^3130912.074008^6,.01^358^A
+"TEMP","DATAN",50.67,144)
+N/A
+"TEMP","DATAN",50.67,145)
+202017,1^3130912.074703^6,.01^358^A
+"TEMP","DATAN",50.67,146)
+N/A
+"TEMP","DATAN",50.67,147)
+202018,1^3130912.074737^6,.01^358^A
+"TEMP","DATAN",50.67,148)
+N/A
+"TEMP","DATAN",50.67,149)
+202019,1^3130912.074737^6,.01^358^A
+"TEMP","DATAN",50.67,150)
+N/A
+"TEMP","DATAN",50.67,151)
+202020,1^3130912.074802^6,.01^358^A
+"TEMP","DATAN",50.67,152)
+N/A
+"TEMP","DATAN",50.67,153)
+202021,1^3130912.074829^6,.01^358^A
+"TEMP","DATAN",50.67,154)
+N/A
+"TEMP","DATAN",50.67,155)
+202022,1^3130912.07483^6,.01^358^A
+"TEMP","DATAN",50.67,156)
+N/A
+"TEMP","DATAN",50.67,157)
+202023,1^3130912.0749^6,.01^358^A
+"TEMP","DATAN",50.67,158)
+N/A
+"TEMP","DATAN",50.67,159)
+202024,1^3130912.074901^6,.01^358^A
+"TEMP","DATAN",50.67,160)
+N/A
+"TEMP","DATAN",50.67,161)
+202025,1^3130912.074938^6,.01^358^A
+"TEMP","DATAN",50.67,162)
+N/A
+"TEMP","DATAN",50.67,163)
+202026,1^3130912.075033^6,.01^358^A
+"TEMP","DATAN",50.67,164)
+N/A
+"TEMP","DATAN",50.67,165)
+202027,1^3130912.075034^6,.01^358^A
+"TEMP","DATAN",50.67,166)
+N/A
+"TEMP","DATAN",50.67,167)
+202028,1^3130912.075058^6,.01^358^A
+"TEMP","DATAN",50.67,168)
+N/A
+"TEMP","DATAN",50.67,169)
+202029,1^3130912.075136^6,.01^358^A
+"TEMP","DATAN",50.67,170)
+N/A
+"TEMP","DATAN",50.67,171)
+202030,1^3130912.075351^6,.01^358^A
+"TEMP","DATAN",50.67,172)
+N/A
+"TEMP","DATAN",50.67,173)
+202031,1^3130912.075454^6,.01^358^A
+"TEMP","DATAN",50.67,174)
+N/A
+"TEMP","DATAN",50.67,175)
+202032,1^3130912.075518^6,.01^358^A
+"TEMP","DATAN",50.67,176)
+N/A
+"TEMP","DATAN",50.67,177)
+202033,1^3130912.075518^6,.01^358^A
+"TEMP","DATAN",50.67,178)
+N/A
+"TEMP","DATAN",50.67,179)
+202034,1^3130912.07554^6,.01^358^A
+"TEMP","DATAN",50.67,180)
+N/A
+"TEMP","DATAN",50.67,181)
+202035,1^3130912.075541^6,.01^358^A
+"TEMP","DATAN",50.67,182)
+N/A
+"TEMP","DATAN",50.67,183)
+202036,1^3130912.075607^6,.01^358^A
+"TEMP","DATAN",50.67,184)
+N/A
+"TEMP","DATAN",50.67,185)
+202037,1^3130912.075607^6,.01^358^A
+"TEMP","DATAN",50.67,186)
+N/A
+"TEMP","DATAN",50.67,187)
+202038,1^3130912.075707^6,.01^358^A
+"TEMP","DATAN",50.67,188)
+N/A
+"TEMP","DATAN",50.67,189)
+202039,1^3130912.075707^6,.01^358^A
+"TEMP","DATAN",50.67,190)
+N/A
+"TEMP","DATAN",50.67,191)
+202040,1^3130912.075708^6,.01^358^A
+"TEMP","DATAN",50.67,192)
+N/A
+"TEMP","DATAN",50.67,193)
+202041,1^3130912.075708^6,.01^358^A
+"TEMP","DATAN",50.67,194)
+N/A
+"TEMP","DATAN",50.67,195)
+202042,1^3130912.075728^6,.01^358^A
+"TEMP","DATAN",50.67,196)
+N/A
+"TEMP","DATAN",50.67,197)
+202043,1^3130912.075747^6,.01^358^A
+"TEMP","DATAN",50.67,198)
+N/A
+"TEMP","DATAN",50.67,199)
+202044,1^3130912.075857^6,.01^358^A
+"TEMP","DATAN",50.67,200)
+N/A
+"TEMP","DATAN",50.67,201)
+202045,1^3130912.075857^6,.01^358^A
+"TEMP","DATAN",50.67,202)
+N/A
+"TEMP","DATAN",50.67,203)
+202046,1^3130912.082851^6,.01^358^A
+"TEMP","DATAN",50.67,204)
+N/A
+"TEMP","DATAN",50.67,205)
+202047,1^3130912.082936^6,.01^358^A
+"TEMP","DATAN",50.67,206)
+N/A
+"TEMP","DATAN",50.67,207)
+202048,1^3130912.082937^6,.01^358^A
+"TEMP","DATAN",50.67,208)
+N/A
+"TEMP","DATAN",50.67,209)
+202049,1^3130912.082958^6,.01^358^A
+"TEMP","DATAN",50.67,210)
+N/A
+"TEMP","DATAN",50.67,211)
+202050,1^3130912.083019^6,.01^358^A
+"TEMP","DATAN",50.67,212)
+N/A
+"TEMP","DATAN",50.67,213)
+202051,1^3130912.08302^6,.01^358^A
+"TEMP","DATAN",50.67,214)
+N/A
+"TEMP","DATAN",50.67,215)
+202052,1^3130912.083051^6,.01^358^A
+"TEMP","DATAN",50.67,216)
+N/A
+"TEMP","DATAN",50.67,217)
+202053,1^3130912.083335^6,.01^358^A
+"TEMP","DATAN",50.67,218)
+N/A
+"TEMP","DATAN",50.67,219)
+202054,1^3130912.084125^6,.01^358^A
+"TEMP","DATAN",50.67,220)
+N/A
+"TEMP","DATAN",50.67,221)
+202055,1^3130912.084126^6,.01^358^A
+"TEMP","DATAN",50.67,222)
+N/A
+"TEMP","DATAN",50.67,223)
+202056,1^3130912.084126^6,.01^358^A
+"TEMP","DATAN",50.67,224)
+N/A
+"TEMP","DATAN",50.67,225)
+202057,1^3130912.084126^6,.01^358^A
+"TEMP","DATAN",50.67,226)
+N/A
+"TEMP","DATAN",50.67,227)
+202058,1^3130912.090003^6,.01^358^A
+"TEMP","DATAN",50.67,228)
+N/A
+"TEMP","DATAN",50.67,229)
+202059,1^3130912.091656^6,.01^358^A
+"TEMP","DATAN",50.67,230)
+N/A
+"TEMP","DATAN",50.67,231)
+202060,1^3130912.121332^6,.01^358^A
+"TEMP","DATAN",50.67,232)
+N/A
+"TEMP","DATAN",50.67,233)
+202061,1^3130912.12145^6,.01^358^A
+"TEMP","DATAN",50.67,234)
+N/A
+"TEMP","DATAN",50.67,235)
+202062,1^3130913.150237^6,.01^358^A
+"TEMP","DATAN",50.67,236)
+N/A
+"TEMP","DATAN",50.67,237)
+202063,1^3130913.150654^6,.01^358^A
+"TEMP","DATAN",50.67,238)
+N/A
+"TEMP","DATAN",50.67,239)
+202064,1^3130913.150656^6,.01^358^A
+"TEMP","DATAN",50.67,240)
+N/A
+"TEMP","DATAN",50.67,241)
+202065,1^3130913.151105^6,.01^358^A
+"TEMP","DATAN",50.67,242)
+N/A
+"TEMP","DATAN",50.67,243)
+202066,1^3130916.0815^6,.01^358^A
+"TEMP","DATAN",50.67,244)
+N/A
+"TEMP","DATAN",50.67,245)
+202067,1^3130917.100224^6,.01^358^A
+"TEMP","DATAN",50.67,246)
+N/A
+"TEMP","DATAN",50.67,247)
+202068,1^3130917.100542^6,.01^358^A
+"TEMP","DATAN",50.67,248)
+N/A
+"TEMP","DATAN",50.67,249)
+202069,1^3130917.100806^6,.01^358^A
+"TEMP","DATAN",50.67,250)
+N/A
+"TEMP","DATAN",50.67,251)
+202070,1^3130917.100811^6,.01^358^A
+"TEMP","DATAN",50.67,252)
+N/A
+"TEMP","DATAN",50.67,253)
+202071,1^3130917.101027^6,.01^358^A
+"TEMP","DATAN",50.67,254)
+N/A
+"TEMP","DATAN",50.67,255)
+202072,1^3130917.102806^6,.01^358^A
+"TEMP","DATAN",50.67,256)
+N/A
+"TEMP","DATAN",50.67,257)
+202073,1^3130917.102806^6,.01^358^A
+"TEMP","DATAN",50.67,258)
+N/A
+"TEMP","DATAN",50.67,259)
+202074,1^3130917.121658^6,.01^358^A
+"TEMP","DATAN",50.67,260)
+N/A
+"TEMP","DATAN",50.67,261)
+202075,1^3130917.1217^6,.01^358^A
+"TEMP","DATAN",50.67,262)
+N/A
+"TEMP","DATAN",50.67,263)
+202076,1^3130917.16112^6,.01^358^A
+"TEMP","DATAN",50.67,264)
+N/A
+"TEMP","DATAN",50.67,265)
+202077,1^3130917.16151^6,.01^358^A
+"TEMP","DATAN",50.67,266)
+N/A
+"TEMP","DATAN",50.67,267)
+202078,1^3130917.161512^6,.01^358^A
+"TEMP","DATAN",50.67,268)
+N/A
+"TEMP","DATAN",50.67,269)
+202079,1^3130918.073613^6,.01^358^A
+"TEMP","DATAN",50.67,270)
+N/A
+"TEMP","DATAN",50.67,271)
+202080,1^3130918.073711^6,.01^358^A
+"TEMP","DATAN",50.67,272)
+N/A
+"TEMP","DATAN",50.67,273)
+202081,1^3130918.073809^6,.01^358^A
+"TEMP","DATAN",50.67,274)
+N/A
+"TEMP","DATAN",50.67,275)
+202082,1^3130918.08223^6,.01^358^A
+"TEMP","DATAN",50.67,276)
+N/A
+"TEMP","DATAN",50.67,277)
+202083,1^3130918.091812^6,.01^358^A
+"TEMP","DATAN",50.67,278)
+N/A
+"TEMP","DATAN",50.67,279)
+202084,1^3130918.09195^6,.01^358^A
+"TEMP","DATAN",50.67,280)
+N/A
+"TEMP","DATAN",50.67,281)
+202085,1^3130918.09242^6,.01^358^A
+"TEMP","DATAN",50.67,282)
+N/A
+"TEMP","DATAN",50.67,283)
+202086,1^3130918.092802^6,.01^358^A
+"TEMP","DATAN",50.67,284)
+N/A
+"TEMP","DATAN",50.67,285)
+202087,1^3130919.063004^6,.01^358^A
+"TEMP","DATAN",50.67,286)
+N/A
+"TEMP","DATAN",50.67,287)
+202088,1^3130919.063005^6,.01^358^A
+"TEMP","DATAN",50.67,288)
+N/A
+"TEMP","DATAN",50.67,289)
+202089,1^3130919.063005^6,.01^358^A
+"TEMP","DATAN",50.67,290)
+N/A
+"TEMP","DATAN",50.67,291)
+202090,1^3130919.063011^6,.01^358^A
+"TEMP","DATAN",50.67,292)
+N/A
+"TEMP","DATAN",50.67,293)
+202091,1^3130919.063011^6,.01^358^A
+"TEMP","DATAN",50.67,294)
+N/A
+"TEMP","DATAN",50.67,295)
+202092,1^3130919.063012^6,.01^358^A
+"TEMP","DATAN",50.67,296)
+N/A
+"TEMP","DATAN",50.67,297)
+202093,1^3130919.063012^6,.01^358^A
+"TEMP","DATAN",50.67,298)
+N/A
+"TEMP","DATAN",50.67,299)
+202094,1^3130919.063013^6,.01^358^A
+"TEMP","DATAN",50.67,300)
+N/A
+"TEMP","DATAN",50.67,301)
+202095,1^3130919.063013^6,.01^358^A
+"TEMP","DATAN",50.67,302)
+N/A
+"TEMP","DATAN",50.67,303)
+202096,1^3130919.063013^6,.01^358^A
+"TEMP","DATAN",50.67,304)
+N/A
+"TEMP","DATAN",50.67,305)
+202097,1^3130919.063014^6,.01^358^A
+"TEMP","DATAN",50.67,306)
+N/A
+"TEMP","DATAN",50.67,307)
+202098,1^3130919.063014^6,.01^358^A
+"TEMP","DATAN",50.67,308)
+N/A
+"TEMP","DATAN",50.67,309)
+202099,1^3130919.063016^6,.01^358^A
+"TEMP","DATAN",50.67,310)
+N/A
+"TEMP","DATAN",50.67,311)
+202100,1^3130919.063017^6,.01^358^A
+"TEMP","DATAN",50.67,312)
+N/A
+"TEMP","DATAN",50.67,313)
+202101,1^3130919.063018^6,.01^358^A
+"TEMP","DATAN",50.67,314)
+N/A
+"TEMP","DATAN",50.67,315)
+202102,1^3130919.063019^6,.01^358^A
+"TEMP","DATAN",50.67,316)
+N/A
+"TEMP","DATAN",50.67,317)
+202103,1^3130919.06302^6,.01^358^A
+"TEMP","DATAN",50.67,318)
+N/A
+"TEMP","DATAN",50.67,319)
+202104,1^3130919.063021^6,.01^358^A
+"TEMP","DATAN",50.67,320)
+N/A
+"TEMP","DATAN",50.67,321)
+202105,1^3130919.063021^6,.01^358^A
+"TEMP","DATAN",50.67,322)
+N/A
+"TEMP","DATAN",50.67,323)
+202106,1^3130919.063021^6,.01^358^A
+"TEMP","DATAN",50.67,324)
+N/A
+"TEMP","DATAN",50.67,325)
+202107,1^3130919.063022^6,.01^358^A
+"TEMP","DATAN",50.67,326)
+N/A
+"TEMP","DATAN",50.67,327)
+202108,1^3130919.063022^6,.01^358^A
+"TEMP","DATAN",50.67,328)
+N/A
+"TEMP","DATAN",50.67,329)
+202109,1^3130919.063023^6,.01^358^A
+"TEMP","DATAN",50.67,330)
+N/A
+"TEMP","DATAN",50.67,331)
+202110,1^3130919.063023^6,.01^358^A
+"TEMP","DATAN",50.67,332)
+N/A
+"TEMP","DATAN",50.67,333)
+202111,1^3130919.063024^6,.01^358^A
+"TEMP","DATAN",50.67,334)
+N/A
+"TEMP","DATAN",50.67,335)
+202112,1^3130919.063024^6,.01^358^A
+"TEMP","DATAN",50.67,336)
+N/A
+"TEMP","DATAN",50.67,337)
+202113,1^3130919.063025^6,.01^358^A
+"TEMP","DATAN",50.67,338)
+N/A
+"TEMP","DATAN",50.67,339)
+202114,1^3130919.063026^6,.01^358^A
+"TEMP","DATAN",50.67,340)
+N/A
+"TEMP","DATAN",50.67,341)
+202115,1^3130919.063026^6,.01^358^A
+"TEMP","DATAN",50.67,342)
+N/A
+"TEMP","DATAN",50.67,343)
+202116,1^3130919.063026^6,.01^358^A
+"TEMP","DATAN",50.67,344)
+N/A
+"TEMP","DATAN",50.67,345)
+202117,1^3130919.063027^6,.01^358^A
+"TEMP","DATAN",50.67,346)
+N/A
+"TEMP","DATAN",50.67,347)
+202118,1^3130919.063027^6,.01^358^A
+"TEMP","DATAN",50.67,348)
+N/A
+"TEMP","DATAN",50.67,349)
+202119,1^3130919.063029^6,.01^358^A
+"TEMP","DATAN",50.67,350)
+N/A
+"TEMP","DATAN",50.67,351)
+202120,1^3130919.063029^6,.01^358^A
+"TEMP","DATAN",50.67,352)
+N/A
+"TEMP","DATAN",50.67,353)
+202121,1^3130919.063031^6,.01^358^A
+"TEMP","DATAN",50.67,354)
+N/A
+"TEMP","DATAN",50.67,355)
+202122,1^3130919.063031^6,.01^358^A
+"TEMP","DATAN",50.67,356)
+N/A
+"TEMP","DATAN",50.67,357)
+202123,1^3130919.063031^6,.01^358^A
+"TEMP","DATAN",50.67,358)
+N/A
+"TEMP","DATAN",50.67,359)
+202124,1^3130919.063032^6,.01^358^A
+"TEMP","DATAN",50.67,360)
+N/A
+"TEMP","DATAN",50.67,361)
+202125,1^3130919.063032^6,.01^358^A
+"TEMP","DATAN",50.67,362)
+N/A
+"TEMP","DATAN",50.67,363)
+202126,1^3130919.063034^6,.01^358^A
+"TEMP","DATAN",50.67,364)
+N/A
+"TEMP","DATAN",50.67,365)
+202127,1^3130919.063034^6,.01^358^A
+"TEMP","DATAN",50.67,366)
+N/A
+"TEMP","DATAN",50.67,367)
+202128,1^3130919.063034^6,.01^358^A
+"TEMP","DATAN",50.67,368)
+N/A
+"TEMP","DATAN",50.67,369)
+202129,1^3130919.063035^6,.01^358^A
+"TEMP","DATAN",50.67,370)
+N/A
+"TEMP","DATAN",50.67,371)
+202130,1^3130919.063035^6,.01^358^A
+"TEMP","DATAN",50.67,372)
+N/A
+"TEMP","DATAN",50.67,373)
+202131,1^3130919.063035^6,.01^358^A
+"TEMP","DATAN",50.67,374)
+N/A
+"TEMP","DATAN",50.67,375)
+202132,1^3130919.063036^6,.01^358^A
+"TEMP","DATAN",50.67,376)
+N/A
+"TEMP","DATAN",50.67,377)
+202133,1^3130919.063036^6,.01^358^A
+"TEMP","DATAN",50.67,378)
+N/A
+"TEMP","DATAN",50.67,379)
+202134,1^3130919.063036^6,.01^358^A
+"TEMP","DATAN",50.67,380)
+N/A
+"TEMP","DATAN",50.67,381)
+202135,1^3130919.063037^6,.01^358^A
+"TEMP","DATAN",50.67,382)
+N/A
+"TEMP","DATAN",50.67,383)
+202136,1^3130919.063037^6,.01^358^A
+"TEMP","DATAN",50.67,384)
+N/A
+"TEMP","DATAN",50.67,385)
+202137,1^3130919.063038^6,.01^358^A
+"TEMP","DATAN",50.67,386)
+N/A
+"TEMP","DATAN",50.67,387)
+202138,1^3130919.063038^6,.01^358^A
+"TEMP","DATAN",50.67,388)
+N/A
+"TEMP","DATAN",50.67,389)
+202139,1^3130919.063039^6,.01^358^A
+"TEMP","DATAN",50.67,390)
+N/A
+"TEMP","DATAN",50.67,391)
+202140,1^3130919.063039^6,.01^358^A
+"TEMP","DATAN",50.67,392)
+N/A
+"TEMP","DATAN",50.67,393)
+202141,1^3130919.06304^6,.01^358^A
+"TEMP","DATAN",50.67,394)
+N/A
+"TEMP","DATAN",50.67,395)
+202142,1^3130919.06304^6,.01^358^A
+"TEMP","DATAN",50.67,396)
+N/A
+"TEMP","DATAN",50.67,397)
+202143,1^3130919.06304^6,.01^358^A
+"TEMP","DATAN",50.67,398)
+N/A
+"TEMP","DATAN",50.67,399)
+202144,1^3130919.063041^6,.01^358^A
+"TEMP","DATAN",50.67,400)
+N/A
+"TEMP","DATAN",50.67,401)
+202145,1^3130919.063041^6,.01^358^A
+"TEMP","DATAN",50.67,402)
+N/A
+"TEMP","DATAN",50.67,403)
+202146,1^3130919.063041^6,.01^358^A
+"TEMP","DATAN",50.67,404)
+N/A
+"TEMP","DATAN",50.67,405)
+202147,1^3130919.063042^6,.01^358^A
+"TEMP","DATAN",50.67,406)
+N/A
+"TEMP","DATAN",50.67,407)
+202148,1^3130919.063042^6,.01^358^A
+"TEMP","DATAN",50.67,408)
+N/A
+"TEMP","DATAN",50.67,409)
+202149,1^3130919.063042^6,.01^358^A
+"TEMP","DATAN",50.67,410)
+N/A
+"TEMP","DATAN",50.67,411)
+202150,1^3130919.063043^6,.01^358^A
+"TEMP","DATAN",50.67,412)
+N/A
+"TEMP","DATAN",50.67,413)
+202151,1^3130919.063043^6,.01^358^A
+"TEMP","DATAN",50.67,414)
+N/A
+"TEMP","DATAN",50.67,415)
+202152,1^3130919.063044^6,.01^358^A
+"TEMP","DATAN",50.67,416)
+N/A
+"TEMP","DATAN",50.67,417)
+202153,1^3130919.063044^6,.01^358^A
+"TEMP","DATAN",50.67,418)
+N/A
+"TEMP","DATAN",50.67,419)
+202154,1^3130919.063044^6,.01^358^A
+"TEMP","DATAN",50.67,420)
+N/A
+"TEMP","DATAN",50.67,421)
+202155,1^3130919.063045^6,.01^358^A
+"TEMP","DATAN",50.67,422)
+N/A
+"TEMP","DATAN",50.67,423)
+202156,1^3130919.063045^6,.01^358^A
+"TEMP","DATAN",50.67,424)
+N/A
+"TEMP","DATAN",50.67,425)
+202157,1^3130919.063046^6,.01^358^A
+"TEMP","DATAN",50.67,426)
+N/A
+"TEMP","DATAN",50.67,427)
+202158,1^3130919.063046^6,.01^358^A
+"TEMP","DATAN",50.67,428)
+N/A
+"TEMP","DATAN",50.67,429)
+202159,1^3130919.063046^6,.01^358^A
+"TEMP","DATAN",50.67,430)
+N/A
+"TEMP","DATAN",50.67,431)
+202160,1^3130919.063048^6,.01^358^A
+"TEMP","DATAN",50.67,432)
+N/A
+"TEMP","DATAN",50.67,433)
+202161,1^3130919.063049^6,.01^358^A
+"TEMP","DATAN",50.67,434)
+N/A
+"TEMP","DATAN",50.67,435)
+202162,1^3130919.06305^6,.01^358^A
+"TEMP","DATAN",50.67,436)
+N/A
+"TEMP","DATAN",50.67,437)
+202163,1^3130919.063051^6,.01^358^A
+"TEMP","DATAN",50.67,438)
+N/A
+"TEMP","DATAN",50.67,439)
+202164,1^3130919.063051^6,.01^358^A
+"TEMP","DATAN",50.67,440)
+N/A
+"TEMP","DATAN",50.67,441)
+202165,1^3130919.063051^6,.01^358^A
+"TEMP","DATAN",50.67,442)
+N/A
+"TEMP","DATAN",50.67,443)
+202166,1^3130919.063051^6,.01^358^A
+"TEMP","DATAN",50.67,444)
+N/A
+"TEMP","DATAN",50.67,445)
+202167,1^3130919.071527^6,.01^358^A
+"TEMP","DATAN",50.67,446)
+N/A
+"TEMP","DATAN",50.67,447)
+202168,1^3130919.071652^6,.01^358^A
+"TEMP","DATAN",50.67,448)
+N/A
+"TEMP","DATAN",50.67,449)
+202169,1^3130919.071653^6,.01^358^A
+"TEMP","DATAN",50.67,450)
+N/A
+"TEMP","DATAN",50.67,451)
+202170,1^3130919.071653^6,.01^358^A
+"TEMP","DATAN",50.67,452)
+N/A
+"TEMP","DATAN",50.67,453)
+202171,1^3130919.071727^6,.01^358^A
+"TEMP","DATAN",50.67,454)
+N/A
+"TEMP","DATAN",50.67,455)
+202172,1^3130919.071727^6,.01^358^A
+"TEMP","DATAN",50.67,456)
+N/A
+"TEMP","DATAN",50.67,457)
+202173,1^3130919.071801^6,.01^358^A
+"TEMP","DATAN",50.67,458)
+N/A
+"TEMP","DATAN",50.67,459)
+202174,1^3130919.071801^6,.01^358^A
+"TEMP","DATAN",50.67,460)
+N/A
+"TEMP","DATAN",50.67,461)
+202175,1^3130919.071825^6,.01^358^A
+"TEMP","DATAN",50.67,462)
+N/A
+"TEMP","DATAN",50.67,463)
+202176,1^3130919.071847^6,.01^358^A
+"TEMP","DATAN",50.67,464)
+N/A
+"TEMP","DATAN",50.67,465)
+202177,1^3130919.071919^6,.01^358^A
+"TEMP","DATAN",50.67,466)
+N/A
+"TEMP","DATAN",50.67,467)
+202178,1^3130919.072007^6,.01^358^A
+"TEMP","DATAN",50.67,468)
+N/A
+"TEMP","DATAN",50.67,469)
+202179,1^3130919.072008^6,.01^358^A
+"TEMP","DATAN",50.67,470)
+N/A
+"TEMP","DATAN",50.67,471)
+202180,1^3130919.072008^6,.01^358^A
+"TEMP","DATAN",50.67,472)
+N/A
+"TEMP","DATAN",50.67,473)
+202181,1^3130919.072039^6,.01^358^A
+"TEMP","DATAN",50.67,474)
+N/A
+"TEMP","DATAN",50.67,475)
+202182,1^3130919.072104^6,.01^358^A
+"TEMP","DATAN",50.67,476)
+N/A
+"TEMP","DATAN",50.67,477)
+202183,1^3130919.072129^6,.01^358^A
+"TEMP","DATAN",50.67,478)
+N/A
+"TEMP","DATAN",50.67,479)
+202184,1^3130919.07213^6,.01^358^A
+"TEMP","DATAN",50.67,480)
+N/A
+"TEMP","DATAN",50.67,481)
+202185,1^3130919.072154^6,.01^358^A
+"TEMP","DATAN",50.67,482)
+N/A
+"TEMP","DATAN",50.67,483)
+202186,1^3130919.072155^6,.01^358^A
+"TEMP","DATAN",50.67,484)
+N/A
+"TEMP","DATAN",50.67,485)
+202187,1^3130919.072155^6,.01^358^A
+"TEMP","DATAN",50.67,486)
+N/A
+"TEMP","DATAN",50.67,487)
+202188,1^3130919.072218^6,.01^358^A
+"TEMP","DATAN",50.67,488)
+N/A
+"TEMP","DATAN",50.67,489)
+202189,1^3130919.072219^6,.01^358^A
+"TEMP","DATAN",50.67,490)
+N/A
+"TEMP","DATAN",50.67,491)
+202190,1^3130919.07224^6,.01^358^A
+"TEMP","DATAN",50.67,492)
+N/A
+"TEMP","DATAN",50.67,493)
+202191,1^3130919.07224^6,.01^358^A
+"TEMP","DATAN",50.67,494)
+N/A
+"TEMP","DATAN",50.67,495)
+202192,1^3130919.072301^6,.01^358^A
+"TEMP","DATAN",50.67,496)
+N/A
+"TEMP","DATAN",50.67,497)
+202193,1^3130919.072322^6,.01^358^A
+"TEMP","DATAN",50.67,498)
+N/A
+"TEMP","DATAN",50.67,499)
+202194,1^3130919.074618^6,.01^358^A
+"TEMP","DATAN",50.67,500)
+N/A
+"TEMP","DATAN",50.67,501)
+202195,1^3130919.074755^6,.01^358^A
+"TEMP","DATAN",50.67,502)
+N/A
+"TEMP","DATAN",50.67,503)
+202196,1^3130919.075033^6,.01^358^A
+"TEMP","DATAN",50.67,504)
+N/A
+"TEMP","DATAN",50.67,505)
+202197,1^3130919.075104^6,.01^358^A
+"TEMP","DATAN",50.67,506)
+N/A
+"TEMP","DATAN",50.67,507)
+202198,1^3130919.075142^6,.01^358^A
+"TEMP","DATAN",50.67,508)
+N/A
+"TEMP","DATAN",50.67,509)
+202199,1^3130919.075243^6,.01^358^A
+"TEMP","DATAN",50.67,510)
+N/A
+"TEMP","DATAN",50.67,511)
+202200,1^3130919.075244^6,.01^358^A
+"TEMP","DATAN",50.67,512)
+N/A
+"TEMP","DATAN",50.67,513)
+202201,1^3130919.080138^6,.01^358^A
+"TEMP","DATAN",50.67,514)
+N/A
+"TEMP","DATAN",50.67,515)
+202202,1^3130919.080138^6,.01^358^A
+"TEMP","DATAN",50.67,516)
+N/A
+"TEMP","DATAN",50.67,517)
+202203,1^3130919.083137^6,.01^358^A
+"TEMP","DATAN",50.67,518)
+N/A
+"TEMP","DATAN",50.67,519)
+202204,1^3130919.083137^6,.01^358^A
+"TEMP","DATAN",50.67,520)
+N/A
+"TEMP","DATAN",50.67,521)
+202205,1^3130919.112423^6,.01^358^A
+"TEMP","DATAN",50.67,522)
+N/A
+"TEMP","DATAN",50.67,523)
+202206,1^3130919.112742^6,.01^358^A
+"TEMP","DATAN",50.67,524)
+N/A
+"TEMP","DATAN",50.67,525)
+202207,1^3130919.131051^6,.01^358^A
+"TEMP","DATAN",50.67,526)
+N/A
+"TEMP","DATAN",50.67,527)
+202208,1^3130919.131053^6,.01^358^A
+"TEMP","DATAN",50.67,528)
+N/A
+"TEMP","DATAN",50.67,529)
+202209,1^3130920.115726^6,.01^358^A
+"TEMP","DATAN",50.67,530)
+N/A
+"TEMP","DATAN",50.67,531)
+202210,1^3130920.144458^6,.01^358^A
+"TEMP","DATAN",50.67,532)
+N/A
+"TEMP","DATAN",50.67,533)
+202211,1^3130920.150357^6,.01^358^A
+"TEMP","DATAN",50.67,534)
+N/A
+"TEMP","DATAN",50.67,535)
+202212,1^3130923.154701^6,.01^358^A
+"TEMP","DATAN",50.67,536)
+N/A
+"TEMP","DATAN",50.67,537)
+202213,1^3130924.095926^6,.01^358^A
+"TEMP","DATAN",50.67,538)
+N/A
+"TEMP","DATAN",50.67,539)
+202214,1^3130924.100033^6,.01^358^A
+"TEMP","DATAN",50.67,540)
+N/A
+"TEMP","DATAN",50.67,541)
+202215,1^3130924.100247^6,.01^358^A
+"TEMP","DATAN",50.67,542)
+N/A
+"TEMP","DATAN",50.67,543)
+202216,1^3130924.100355^6,.01^358^A
+"TEMP","DATAN",50.67,544)
+N/A
+"TEMP","DATAN",50.67,545)
+202217,1^3130924.104118^6,.01^358^A
+"TEMP","DATAN",50.67,546)
+N/A
+"TEMP","DATAN",50.67,547)
+202218,1^3130925.154509^6,.01^358^A
+"TEMP","DATAN",50.67,548)
+N/A
+"TEMP","DATAN",50.67,549)
+202219,1^3130926.063^6,.01^358^A
+"TEMP","DATAN",50.67,550)
+N/A
+"TEMP","DATAN",50.67,551)
+202220,1^3130926.063002^6,.01^358^A
+"TEMP","DATAN",50.67,552)
+N/A
+"TEMP","DATAN",50.67,553)
+202221,1^3130926.063003^6,.01^358^A
+"TEMP","DATAN",50.67,554)
+N/A
+"TEMP","DATAN",50.67,555)
+202222,1^3130926.063003^6,.01^358^A
+"TEMP","DATAN",50.67,556)
+N/A
+"TEMP","DATAN",50.67,557)
+202223,1^3130926.063003^6,.01^358^A
+"TEMP","DATAN",50.67,558)
+N/A
+"TEMP","DATAN",50.67,559)
+202224,1^3130926.063004^6,.01^358^A
+"TEMP","DATAN",50.67,560)
+N/A
+"TEMP","DATAN",50.67,561)
+202225,1^3130926.063005^6,.01^358^A
+"TEMP","DATAN",50.67,562)
+N/A
+"TEMP","DATAN",50.67,563)
+202226,1^3130926.063005^6,.01^358^A
+"TEMP","DATAN",50.67,564)
+N/A
+"TEMP","DATAN",50.67,565)
+202227,1^3130926.063005^6,.01^358^A
+"TEMP","DATAN",50.67,566)
+N/A
+"TEMP","DATAN",50.67,567)
+202228,1^3130926.063006^6,.01^358^A
+"TEMP","DATAN",50.67,568)
+N/A
+"TEMP","DATAN",50.67,569)
+202229,1^3130926.063006^6,.01^358^A
+"TEMP","DATAN",50.67,570)
+N/A
+"TEMP","DATAN",50.67,571)
+202230,1^3130926.063007^6,.01^358^A
+"TEMP","DATAN",50.67,572)
+N/A
+"TEMP","DATAN",50.67,573)
+202231,1^3130926.063007^6,.01^358^A
+"TEMP","DATAN",50.67,574)
+N/A
+"TEMP","DATAN",50.67,575)
+202232,1^3130926.063008^6,.01^358^A
+"TEMP","DATAN",50.67,576)
+N/A
+"TEMP","DATAN",50.67,577)
+202233,1^3130926.063008^6,.01^358^A
+"TEMP","DATAN",50.67,578)
+N/A
+"TEMP","DATAN",50.67,579)
+202234,1^3130926.063009^6,.01^358^A
+"TEMP","DATAN",50.67,580)
+N/A
+"TEMP","DATAN",50.67,581)
+202235,1^3130926.063009^6,.01^358^A
+"TEMP","DATAN",50.67,582)
+N/A
+"TEMP","DATAN",50.67,583)
+202236,1^3130926.063009^6,.01^358^A
+"TEMP","DATAN",50.67,584)
+N/A
+"TEMP","DATAN",50.67,585)
+202237,1^3130926.06301^6,.01^358^A
+"TEMP","DATAN",50.67,586)
+N/A
+"TEMP","DATAN",50.67,587)
+202238,1^3130926.063011^6,.01^358^A
+"TEMP","DATAN",50.67,588)
+N/A
+"TEMP","DATAN",50.67,589)
+202239,1^3130926.063011^6,.01^358^A
+"TEMP","DATAN",50.67,590)
+N/A
+"TEMP","DATAN",50.67,591)
+202240,1^3130926.063012^6,.01^358^A
+"TEMP","DATAN",50.67,592)
+N/A
+"TEMP","DATAN",50.67,593)
+202241,1^3130926.063012^6,.01^358^A
+"TEMP","DATAN",50.67,594)
+N/A
+"TEMP","DATAN",50.67,595)
+202242,1^3130926.063013^6,.01^358^A
+"TEMP","DATAN",50.67,596)
+N/A
+"TEMP","DATAN",50.67,597)
+202243,1^3130926.063013^6,.01^358^A
+"TEMP","DATAN",50.67,598)
+N/A
+"TEMP","DATAN",50.67,599)
+202244,1^3130926.063013^6,.01^358^A
+"TEMP","DATAN",50.67,600)
+N/A
+"TEMP","DATAN",50.67,601)
+202245,1^3130926.063014^6,.01^358^A
+"TEMP","DATAN",50.67,602)
+N/A
+"TEMP","DATAN",50.67,603)
+202246,1^3130926.063014^6,.01^358^A
+"TEMP","DATAN",50.67,604)
+N/A
+"TEMP","DATAN",50.67,605)
+202247,1^3130926.063015^6,.01^358^A
+"TEMP","DATAN",50.67,606)
+N/A
+"TEMP","DATAN",50.67,607)
+202248,1^3130926.063015^6,.01^358^A
+"TEMP","DATAN",50.67,608)
+N/A
+"TEMP","DATAN",50.67,609)
+202249,1^3130926.063017^6,.01^358^A
+"TEMP","DATAN",50.67,610)
+N/A
+"TEMP","DATAN",50.67,611)
+202250,1^3130926.063018^6,.01^358^A
+"TEMP","DATAN",50.67,612)
+N/A
+"TEMP","DATAN",50.67,613)
+202251,1^3130926.063018^6,.01^358^A
+"TEMP","DATAN",50.67,614)
+N/A
+"TEMP","DATAN",50.67,615)
+202252,1^3130926.063018^6,.01^358^A
+"TEMP","DATAN",50.67,616)
+N/A
+"TEMP","DATAN",50.67,617)
+202253,1^3130926.063019^6,.01^358^A
+"TEMP","DATAN",50.67,618)
+N/A
+"TEMP","DATAN",50.67,619)
+202254,1^3130926.063019^6,.01^358^A
+"TEMP","DATAN",50.67,620)
+N/A
+"TEMP","DATAN",50.67,621)
+202255,1^3130926.063019^6,.01^358^A
+"TEMP","DATAN",50.67,622)
+N/A
+"TEMP","DATAN",50.67,623)
+202256,1^3130926.06302^6,.01^358^A
+"TEMP","DATAN",50.67,624)
+N/A
+"TEMP","DATAN",50.67,625)
+202257,1^3130926.06302^6,.01^358^A
+"TEMP","DATAN",50.67,626)
+N/A
+"TEMP","DATAN",50.67,627)
+202258,1^3130926.063021^6,.01^358^A
+"TEMP","DATAN",50.67,628)
+N/A
+"TEMP","DATAN",50.67,629)
+202259,1^3130926.063021^6,.01^358^A
+"TEMP","DATAN",50.67,630)
+N/A
+"TEMP","DATAN",50.67,631)
+202260,1^3130926.063021^6,.01^358^A
+"TEMP","DATAN",50.67,632)
+N/A
+"TEMP","DATAN",50.67,633)
+202261,1^3130926.063024^6,.01^358^A
+"TEMP","DATAN",50.67,634)
+N/A
+"TEMP","DATAN",50.67,635)
+202262,1^3130926.063024^6,.01^358^A
+"TEMP","DATAN",50.67,636)
+N/A
+"TEMP","DATAN",50.67,637)
+202263,1^3130926.063024^6,.01^358^A
+"TEMP","DATAN",50.67,638)
+N/A
+"TEMP","DATAN",50.67,639)
+202264,1^3130926.063025^6,.01^358^A
+"TEMP","DATAN",50.67,640)
+N/A
+"TEMP","DATAN",50.67,641)
+202265,1^3130926.063026^6,.01^358^A
+"TEMP","DATAN",50.67,642)
+N/A
+"TEMP","DATAN",50.67,643)
+202266,1^3130926.063026^6,.01^358^A
+"TEMP","DATAN",50.67,644)
+N/A
+"TEMP","DATAN",50.67,645)
+202267,1^3130926.063026^6,.01^358^A
+"TEMP","DATAN",50.67,646)
+N/A
+"TEMP","DATAN",50.67,647)
+202268,1^3130926.063027^6,.01^358^A
+"TEMP","DATAN",50.67,648)
+N/A
+"TEMP","DATAN",50.67,649)
+202269,1^3130926.063027^6,.01^358^A
+"TEMP","DATAN",50.67,650)
+N/A
+"TEMP","DATAN",50.67,651)
+202270,1^3130926.063027^6,.01^358^A
+"TEMP","DATAN",50.67,652)
+N/A
+"TEMP","DATAN",50.67,653)
+202271,1^3130926.063031^6,.01^358^A
+"TEMP","DATAN",50.67,654)
+N/A
+"TEMP","DATAN",50.67,655)
+202272,1^3130926.063031^6,.01^358^A
+"TEMP","DATAN",50.67,656)
+N/A
+"TEMP","DATAN",50.67,657)
+202273,1^3130926.063031^6,.01^358^A
+"TEMP","DATAN",50.67,658)
+N/A
+"TEMP","DATAN",50.67,659)
+202274,1^3130926.063033^6,.01^358^A
+"TEMP","DATAN",50.67,660)
+N/A
+"TEMP","DATAN",50.67,661)
+202275,1^3130926.063033^6,.01^358^A
+"TEMP","DATAN",50.67,662)
+N/A
+"TEMP","DATAN",50.67,663)
+202276,1^3130926.063034^6,.01^358^A
+"TEMP","DATAN",50.67,664)
+N/A
+"TEMP","DATAN",50.67,665)
+202277,1^3130926.063035^6,.01^358^A
+"TEMP","DATAN",50.67,666)
+N/A
+"TEMP","DATAN",50.67,667)
+202278,1^3130926.063035^6,.01^358^A
+"TEMP","DATAN",50.67,668)
+N/A
+"TEMP","DATAN",50.67,669)
+202279,1^3130926.063035^6,.01^358^A
+"TEMP","DATAN",50.67,670)
+N/A
+"TEMP","DATAN",50.67,671)
+202280,1^3130926.063037^6,.01^358^A
+"TEMP","DATAN",50.67,672)
+N/A
+"TEMP","DATAN",50.67,673)
+202281,1^3130926.063038^6,.01^358^A
+"TEMP","DATAN",50.67,674)
+N/A
+"TEMP","DATAN",50.67,675)
+202282,1^3130926.063039^6,.01^358^A
+"TEMP","DATAN",50.67,676)
+N/A
+"TEMP","DATAN",50.67,677)
+202283,1^3130926.063039^6,.01^358^A
+"TEMP","DATAN",50.67,678)
+N/A
+"TEMP","DATAN",50.67,679)
+202284,1^3130926.063039^6,.01^358^A
+"TEMP","DATAN",50.67,680)
+N/A
+"TEMP","DATAN",50.67,681)
+202285,1^3130926.092938^6,.01^358^A
+"TEMP","DATAN",50.67,682)
+N/A
+"TEMP","DATAN",50.67,683)
+202286,1^3130926.092938^6,.01^358^A
+"TEMP","DATAN",50.67,684)
+N/A
+"TEMP","DATAN",50.67,685)
+202287,1^3130926.093003^6,.01^358^A
+"TEMP","DATAN",50.67,686)
+N/A
+"TEMP","DATAN",50.67,687)
+202288,1^3130926.093003^6,.01^358^A
+"TEMP","DATAN",50.67,688)
+N/A
+"TEMP","DATAN",50.67,689)
+202289,1^3130926.093004^6,.01^358^A
+"TEMP","DATAN",50.67,690)
+N/A
+"TEMP","DATAN",50.67,691)
+202290,1^3130926.093004^6,.01^358^A
+"TEMP","DATAN",50.67,692)
+N/A
+"TEMP","DATAN",50.67,693)
+202291,1^3130926.093026^6,.01^358^A
+"TEMP","DATAN",50.67,694)
+N/A
+"TEMP","DATAN",50.67,695)
+202292,1^3130926.093049^6,.01^358^A
+"TEMP","DATAN",50.67,696)
+N/A
+"TEMP","DATAN",50.67,697)
+202293,1^3130926.093119^6,.01^358^A
+"TEMP","DATAN",50.67,698)
+N/A
+"TEMP","DATAN",50.67,699)
+202294,1^3130926.093157^6,.01^358^A
+"TEMP","DATAN",50.67,700)
+N/A
+"TEMP","DATAN",50.67,701)
+202295,1^3130926.093209^6,.01^358^A
+"TEMP","DATAN",50.67,702)
+N/A
+"TEMP","DATAN",50.67,703)
+202296,1^3130926.093238^6,.01^358^A
+"TEMP","DATAN",50.67,704)
+N/A
+"TEMP","DATAN",50.67,705)
+202297,1^3130926.093311^6,.01^358^A
+"TEMP","DATAN",50.67,706)
+N/A
+"TEMP","DATAN",50.67,707)
+202298,1^3130926.093412^6,.01^358^A
+"TEMP","DATAN",50.67,708)
+N/A
+"TEMP","DATAN",50.67,709)
+202299,1^3130926.093412^6,.01^358^A
+"TEMP","DATAN",50.67,710)
+N/A
+"TEMP","DATAN",50.67,711)
+202300,1^3130926.093413^6,.01^358^A
+"TEMP","DATAN",50.67,712)
+N/A
+"TEMP","DATAN",50.67,713)
+202301,1^3130926.093446^6,.01^358^A
+"TEMP","DATAN",50.67,714)
+N/A
+"TEMP","DATAN",50.67,715)
+202302,1^3130926.093447^6,.01^358^A
+"TEMP","DATAN",50.67,716)
+N/A
+"TEMP","DATAN",50.67,717)
+202303,1^3130926.093447^6,.01^358^A
+"TEMP","DATAN",50.67,718)
+N/A
+"TEMP","DATAN",50.67,719)
+202304,1^3130926.093626^6,.01^358^A
+"TEMP","DATAN",50.67,720)
+N/A
+"TEMP","DATAN",50.67,721)
+202305,1^3130926.100648^6,.01^358^A
+"TEMP","DATAN",50.67,722)
+N/A
+"TEMP","DATAN",50.67,723)
+202306,1^3130926.101543^6,.01^358^A
+"TEMP","DATAN",50.67,724)
+N/A
+"TEMP","DATAN",50.67,725)
+202307,1^3130926.103348^6,.01^358^A
+"TEMP","DATAN",50.67,726)
+N/A
+"TEMP","DATAN",50.67,727)
+202308,1^3130926.103514^6,.01^358^A
+"TEMP","DATAN",50.67,728)
+N/A
+"TEMP","DATAN",50.67,729)
+202309,1^3130926.103754^6,.01^358^A
+"TEMP","DATAN",50.67,730)
+N/A
+"TEMP","DATAN",50.67,731)
+202310,1^3130926.104638^6,.01^358^A
+"TEMP","DATAN",50.67,732)
+N/A
+"TEMP","DATAN",50.67,733)
+202311,1^3130926.105747^6,.01^358^A
+"TEMP","DATAN",50.67,734)
+N/A
+"TEMP","DATAN",50.67,735)
+202312,1^3130926.110656^6,.01^358^A
+"TEMP","DATAN",50.67,736)
+N/A
+"TEMP","DATAN",50.67,737)
+202313,1^3130926.121033^6,.01^358^A
+"TEMP","DATAN",50.67,738)
+N/A
+"TEMP","DATAN",50.67,739)
+202314,1^3130926.122952^6,.01^358^A
+"TEMP","DATAN",50.67,740)
+N/A
+"TEMP","DATAN",50.67,741)
+202315,1^3130926.123147^6,.01^358^A
+"TEMP","DATAN",50.67,742)
+N/A
+"TEMP","DATAN",50.67,743)
+202316,1^3130926.123149^6,.01^358^A
+"TEMP","DATAN",50.67,744)
+N/A
+"TEMP","DATAN",50.67,745)
+202317,1^3130926.123253^6,.01^358^A
+"TEMP","DATAN",50.67,746)
+N/A
+"TEMP","DATAN",50.67,747)
+202318,1^3130926.123255^6,.01^358^A
+"TEMP","DATAN",50.67,748)
+N/A
+"TEMP","DATAN",50.67,749)
+202319,1^3130926.123435^6,.01^358^A
+"TEMP","DATAN",50.67,750)
+N/A
+"TEMP","DATAN",50.67,751)
+202320,1^3130926.123654^6,.01^358^A
+"TEMP","DATAN",50.67,752)
+N/A
+"TEMP","DATAN",50.67,753)
+202321,1^3130926.123906^6,.01^358^A
+"TEMP","DATAN",50.67,754)
+N/A
+"TEMP","DATAN",50.67,755)
+202322,1^3130926.12411^6,.01^358^A
+"TEMP","DATAN",50.67,756)
+N/A
+"TEMP","DATAN",50.67,757)
+202323,1^3130926.124211^6,.01^358^A
+"TEMP","DATAN",50.67,758)
+N/A
+"TEMP","DATAN",50.67,759)
+202324,1^3130926.124403^6,.01^358^A
+"TEMP","DATAN",50.67,760)
+N/A
+"TEMP","DATAN",50.67,761)
+202325,1^3130926.124549^6,.01^358^A
+"TEMP","DATAN",50.67,762)
+N/A
+"TEMP","DATAN",50.67,763)
+202326,1^3130926.124638^6,.01^358^A
+"TEMP","DATAN",50.67,764)
+N/A
+"TEMP","DATAN",50.67,765)
+202327,1^3130926.124656^6,.01^358^A
+"TEMP","DATAN",50.67,766)
+N/A
+"TEMP","DATAN",50.67,767)
+202328,1^3130926.124715^6,.01^358^A
+"TEMP","DATAN",50.67,768)
+N/A
+"TEMP","DATAN",50.67,769)
+202329,1^3130927.142851^6,.01^358^A
+"TEMP","DATAN",50.67,770)
+N/A
+"TEMP","DATAN",50.67,771)
+202330,1^3130927.142946^6,.01^358^A
+"TEMP","DATAN",50.67,772)
+N/A
+"TEMP","DATAN",50.67,773)
+202331,1^3130927.152658^6,.01^358^A
+"TEMP","DATAN",50.67,774)
+N/A
+"TEMP","DATAN",50.67,775)
+202332,1^3131002.085738^6,.01^358^A
+"TEMP","DATAN",50.67,776)
+N/A
+"TEMP","DATAN",50.67,777)
+202333,1^3131003.063^6,.01^358^A
+"TEMP","DATAN",50.67,778)
+N/A
+"TEMP","DATAN",50.67,779)
+202334,1^3131003.063001^6,.01^358^A
+"TEMP","DATAN",50.67,780)
+N/A
+"TEMP","DATAN",50.67,781)
+202335,1^3131003.063002^6,.01^358^A
+"TEMP","DATAN",50.67,782)
+N/A
+"TEMP","DATAN",50.67,783)
+202336,1^3131003.063002^6,.01^358^A
+"TEMP","DATAN",50.67,784)
+N/A
+"TEMP","DATAN",50.67,785)
+202337,1^3131003.063002^6,.01^358^A
+"TEMP","DATAN",50.67,786)
+N/A
+"TEMP","DATAN",50.67,787)
+202338,1^3131003.063003^6,.01^358^A
+"TEMP","DATAN",50.67,788)
+N/A
+"TEMP","DATAN",50.67,789)
+202339,1^3131003.063003^6,.01^358^A
+"TEMP","DATAN",50.67,790)
+N/A
+"TEMP","DATAN",50.67,791)
+202340,1^3131003.063003^6,.01^358^A
+"TEMP","DATAN",50.67,792)
+N/A
+"TEMP","DATAN",50.67,793)
+202341,1^3131003.063004^6,.01^358^A
+"TEMP","DATAN",50.67,794)
+N/A
+"TEMP","DATAN",50.67,795)
+202342,1^3131003.063004^6,.01^358^A
+"TEMP","DATAN",50.67,796)
+N/A
+"TEMP","DATAN",50.67,797)
+202343,1^3131003.063005^6,.01^358^A
+"TEMP","DATAN",50.67,798)
+N/A
+"TEMP","DATAN",50.67,799)
+202344,1^3131003.063005^6,.01^358^A
+"TEMP","DATAN",50.67,800)
+N/A
+"TEMP","DATAN",50.67,801)
+202345,1^3131003.063005^6,.01^358^A
+"TEMP","DATAN",50.67,802)
+N/A
+"TEMP","DATAN",50.67,803)
+202346,1^3131003.063006^6,.01^358^A
+"TEMP","DATAN",50.67,804)
+N/A
+"TEMP","DATAN",50.67,805)
+202347,1^3131003.063006^6,.01^358^A
+"TEMP","DATAN",50.67,806)
+N/A
+"TEMP","DATAN",50.67,807)
+202348,1^3131003.063006^6,.01^358^A
+"TEMP","DATAN",50.67,808)
+N/A
+"TEMP","DATAN",50.67,809)
+202349,1^3131003.063007^6,.01^358^A
+"TEMP","DATAN",50.67,810)
+N/A
+"TEMP","DATAN",50.67,811)
+202350,1^3131003.063007^6,.01^358^A
+"TEMP","DATAN",50.67,812)
+N/A
+"TEMP","DATAN",50.67,813)
+202351,1^3131003.063007^6,.01^358^A
+"TEMP","DATAN",50.67,814)
+N/A
+"TEMP","DATAN",50.67,815)
+202352,1^3131003.063008^6,.01^358^A
+"TEMP","DATAN",50.67,816)
+N/A
+"TEMP","DATAN",50.67,817)
+202353,1^3131003.063008^6,.01^358^A
+"TEMP","DATAN",50.67,818)
+N/A
+"TEMP","DATAN",50.67,819)
+202354,1^3131003.063008^6,.01^358^A
+"TEMP","DATAN",50.67,820)
+N/A
+"TEMP","DATAN",50.67,821)
+202355,1^3131003.063009^6,.01^358^A
+"TEMP","DATAN",50.67,822)
+N/A
+"TEMP","DATAN",50.67,823)
+202356,1^3131003.063009^6,.01^358^A
+"TEMP","DATAN",50.67,824)
+N/A
+"TEMP","DATAN",50.67,825)
+202357,1^3131003.06301^6,.01^358^A
+"TEMP","DATAN",50.67,826)
+N/A
+"TEMP","DATAN",50.67,827)
+202358,1^3131003.06301^6,.01^358^A
+"TEMP","DATAN",50.67,828)
+N/A
+"TEMP","DATAN",50.67,829)
+202359,1^3131003.063012^6,.01^358^A
+"TEMP","DATAN",50.67,830)
+N/A
+"TEMP","DATAN",50.67,831)
+202360,1^3131003.063013^6,.01^358^A
+"TEMP","DATAN",50.67,832)
+N/A
+"TEMP","DATAN",50.67,833)
+202361,1^3131003.063013^6,.01^358^A
+"TEMP","DATAN",50.67,834)
+N/A
+"TEMP","DATAN",50.67,835)
+202362,1^3131003.063018^6,.01^358^A
+"TEMP","DATAN",50.67,836)
+N/A
+"TEMP","DATAN",50.67,837)
+202363,1^3131003.063018^6,.01^358^A
+"TEMP","DATAN",50.67,838)
+N/A
+"TEMP","DATAN",50.67,839)
+202364,1^3131003.063018^6,.01^358^A
+"TEMP","DATAN",50.67,840)
+N/A
+"TEMP","DATAN",50.67,841)
+202365,1^3131003.063022^6,.01^358^A
+"TEMP","DATAN",50.67,842)
+N/A
+"TEMP","DATAN",50.67,843)
+202366,1^3131003.063023^6,.01^358^A
+"TEMP","DATAN",50.67,844)
+N/A
+"TEMP","DATAN",50.67,845)
+202367,1^3131003.063024^6,.01^358^A
+"TEMP","DATAN",50.67,846)
+N/A
+"TEMP","DATAN",50.67,847)
+202368,1^3131003.063024^6,.01^358^A
+"TEMP","DATAN",50.67,848)
+N/A
+"TEMP","DATAN",50.67,849)
+202369,1^3131003.063025^6,.01^358^A
+"TEMP","DATAN",50.67,850)
+N/A
+"TEMP","DATAN",50.67,851)
+202370,1^3131003.063025^6,.01^358^A
+"TEMP","DATAN",50.67,852)
+N/A
+"TEMP","DATAN",50.67,853)
+202371,1^3131003.063025^6,.01^358^A
+"TEMP","DATAN",50.67,854)
+N/A
+"TEMP","DATAN",50.67,855)
+202372,1^3131003.063026^6,.01^358^A
+"TEMP","DATAN",50.67,856)
+N/A
+"TEMP","DATAN",50.67,857)
+202373,1^3131003.063026^6,.01^358^A
+"TEMP","DATAN",50.67,858)
+N/A
+"TEMP","DATAN",50.67,859)
+202374,1^3131003.063027^6,.01^358^A
+"TEMP","DATAN",50.67,860)
+N/A
+"TEMP","DATAN",50.67,861)
+202375,1^3131003.063027^6,.01^358^A
+"TEMP","DATAN",50.67,862)
+N/A
+"TEMP","DATAN",50.67,863)
+202376,1^3131003.063028^6,.01^358^A
+"TEMP","DATAN",50.67,864)
+N/A
+"TEMP","DATAN",50.67,865)
+202377,1^3131003.063031^6,.01^358^A
+"TEMP","DATAN",50.67,866)
+N/A
+"TEMP","DATAN",50.67,867)
+202378,1^3131003.063031^6,.01^358^A
+"TEMP","DATAN",50.67,868)
+N/A
+"TEMP","DATAN",50.67,869)
+202379,1^3131003.063033^6,.01^358^A
+"TEMP","DATAN",50.67,870)
+N/A
+"TEMP","DATAN",50.67,871)
+202380,1^3131003.063033^6,.01^358^A
+"TEMP","DATAN",50.67,872)
+N/A
+"TEMP","DATAN",50.67,873)
+202381,1^3131003.063034^6,.01^358^A
+"TEMP","DATAN",50.67,874)
+N/A
+"TEMP","DATAN",50.67,875)
+202382,1^3131003.063034^6,.01^358^A
+"TEMP","DATAN",50.67,876)
+N/A
+"TEMP","DATAN",50.67,877)
+202383,1^3131003.063034^6,.01^358^A
+"TEMP","DATAN",50.67,878)
+N/A
+"TEMP","DATAN",50.67,879)
+202384,1^3131003.063035^6,.01^358^A
+"TEMP","DATAN",50.67,880)
+N/A
+"TEMP","DATAN",50.67,881)
+202385,1^3131003.063035^6,.01^358^A
+"TEMP","DATAN",50.67,882)
+N/A
+"TEMP","DATAN",50.67,883)
+202386,1^3131003.063036^6,.01^358^A
+"TEMP","DATAN",50.67,884)
+N/A
+"TEMP","DATAN",50.67,885)
+202387,1^3131003.063036^6,.01^358^A
+"TEMP","DATAN",50.67,886)
+N/A
+"TEMP","DATAN",50.67,887)
+202388,1^3131003.063037^6,.01^358^A
+"TEMP","DATAN",50.67,888)
+N/A
+"TEMP","DATAN",50.68,1)
+4753,1161^3130913.141028^14,.01^358^A
+"TEMP","DATAN",50.68,2)
+1161
+"TEMP","DATAN",50.68,3)
+4754,1161^3130913.141136^14,.01^358^A
+"TEMP","DATAN",50.68,4)
+1161
+"TEMP","DATAN",50.68,5)
+7077,1016^3130913.141207^14,.01^358^A
+"TEMP","DATAN",50.68,6)
+1016
+"TEMP","DATAN",50.68,7)
+24151,1^3130913.150235^99.991,.01^358^A
+"TEMP","DATAN",50.68,8)
+3130913
+"TEMP","DATAN",50.68,9)
+24152,225^3130913.150649^14,.01^358^A
+"TEMP","DATAN",50.68,10)
+225
+"TEMP","DATAN",50.68,11)
+24152,1093^3130913.150649^14,.01^358^A
+"TEMP","DATAN",50.68,12)
+1093
+"TEMP","DATAN",50.68,13)
+24152,619^3130913.150651^14,.01^358^A
+"TEMP","DATAN",50.68,14)
+619
+"TEMP","DATAN",50.68,15)
+24152,1^3130913.150651^99.991,.01^358^A
+"TEMP","DATAN",50.68,16)
+3130913
+"TEMP","DATAN",50.68,17)
+24152,225^3130913.150653^14,.01^358^A
+"TEMP","DATAN",50.68,18)
+225
+"TEMP","DATAN",50.68,19)
+24152,1093^3130913.150653^14,.01^358^A
+"TEMP","DATAN",50.68,20)
+1093
+"TEMP","DATAN",50.68,21)
+24152,619^3130913.150653^14,.01^358^A
+"TEMP","DATAN",50.68,22)
+619
+"TEMP","DATAN",50.68,23)
+24153,3669^3130913.151103^14,.01^358^A
+"TEMP","DATAN",50.68,24)
+3669
+"TEMP","DATAN",50.68,25)
+24153,1^3130913.151103^99.991,.01^358^A
+"TEMP","DATAN",50.68,26)
+3130913
+"TEMP","DATAN",50.68,27)
+24153,3669^3130913.151104^14,.01^358^A
+"TEMP","DATAN",50.68,28)
+3669
+"TEMP","DATAN",50.68,29)
+23852,4085^3130917.075557^14,.01^358^A
+"TEMP","DATAN",50.68,30)
+4085
+"TEMP","DATAN",50.68,31)
+23855,4085^3130917.075624^14,.01^358^A
+"TEMP","DATAN",50.68,32)
+4085
+"TEMP","DATAN",50.68,33)
+5060,1161^3130917.080015^14,.01^358^A
+"TEMP","DATAN",50.68,34)
+1161
+"TEMP","DATAN",50.68,35)
+5060,187^3130917.080015^14,.01^358^A
+"TEMP","DATAN",50.68,36)
+187
+"TEMP","DATAN",50.68,37)
+14324,3572^3130917.080128^14,.01^358^A
+"TEMP","DATAN",50.68,38)
+3572
+"TEMP","DATAN",50.68,39)
+5979,1375^3130917.080237^14,.01^358^A
+"TEMP","DATAN",50.68,40)
+1375
+"TEMP","DATAN",50.68,41)
+14322,3235^3130917.080311^14,.01^358^A
+"TEMP","DATAN",50.68,42)
+3235
+"TEMP","DATAN",50.68,43)
+24154,1^3130917.100222^99.991,.01^358^A
+"TEMP","DATAN",50.68,44)
+3130917
+"TEMP","DATAN",50.68,45)
+24155,1^3130917.100534^99.991,.01^358^A
+"TEMP","DATAN",50.68,46)
+3130917
+"TEMP","DATAN",50.68,47)
+65,11^3130917.10065^14,.01^358^A
+"TEMP","DATAN",50.68,48)
+11
+"TEMP","DATAN",50.68,49)
+24156,1^3130917.100759^99.991,.01^358^A
+"TEMP","DATAN",50.68,50)
+3130917
+"TEMP","DATAN",50.68,51)
+24157,1^3130917.101025^99.991,.01^358^A
+"TEMP","DATAN",50.68,52)
+3130917
+"TEMP","DATAN",50.68,53)
+24158,1^3130917.1215^99.991,.01^358^A
+"TEMP","DATAN",50.68,54)
+3130917
+"TEMP","DATAN",50.68,55)
+24159,1028^3130917.121656^14,.01^358^A
+"TEMP","DATAN",50.68,56)
+1028
+"TEMP","DATAN",50.68,57)
+24159,1^3130917.121656^99.991,.01^358^A
+"TEMP","DATAN",50.68,58)
+3130917
+"TEMP","DATAN",50.68,59)
+24159,1028^3130917.121657^14,.01^358^A
+"TEMP","DATAN",50.68,60)
+1028
+"TEMP","DATAN",50.68,61)
+24160,1^3130917.145446^99.991,.01^358^A
+"TEMP","DATAN",50.68,62)
+3130917
+"TEMP","DATAN",50.68,63)
+24161,1^3130917.145741^99.991,.01^358^A
+"TEMP","DATAN",50.68,64)
+3130917
+"TEMP","DATAN",50.68,65)
+24162,1^3130917.150019^99.991,.01^358^A
+"TEMP","DATAN",50.68,66)
+3130917
+"TEMP","DATAN",50.68,67)
+24163,1^3130917.150203^99.991,.01^358^A
+"TEMP","DATAN",50.68,68)
+3130917
+"TEMP","DATAN",50.68,69)
+24164,4879^3130917.161116^14,.01^358^A
+"TEMP","DATAN",50.68,70)
+4879
+"TEMP","DATAN",50.68,71)
+24164,1^3130917.161116^99.991,.01^358^A
+"TEMP","DATAN",50.68,72)
+3130917
+"TEMP","DATAN",50.68,73)
+24164,4879^3130917.161119^14,.01^358^A
+"TEMP","DATAN",50.68,74)
+4879
+"TEMP","DATAN",50.68,75)
+24165,4865^3130917.161508^14,.01^358^A
+"TEMP","DATAN",50.68,76)
+4865
+"TEMP","DATAN",50.68,77)
+24165,2361^3130917.161508^14,.01^358^A
+"TEMP","DATAN",50.68,78)
+2361
+"TEMP","DATAN",50.68,79)
+24165,1^3130917.161508^99.991,.01^358^A
+"TEMP","DATAN",50.68,80)
+3130917
+"TEMP","DATAN",50.68,81)
+24165,4865^3130917.161509^14,.01^358^A
+"TEMP","DATAN",50.68,82)
+4865
+"TEMP","DATAN",50.68,83)
+24165,2361^3130917.161509^14,.01^358^A
+"TEMP","DATAN",50.68,84)
+2361
+"TEMP","DATAN",50.68,85)
+18071,251^3130917.16155^14,.01^358^A
+"TEMP","DATAN",50.68,86)
+251
+"TEMP","DATAN",50.68,87)
+18071,2599^3130917.16155^14,.01^358^A
+"TEMP","DATAN",50.68,88)
+2599
+"TEMP","DATAN",50.68,89)
+18071,250^3130917.16155^14,.01^358^A
+"TEMP","DATAN",50.68,90)
+250
+"TEMP","DATAN",50.68,91)
+18071,249^3130917.16155^14,.01^358^A
+"TEMP","DATAN",50.68,92)
+249
+"TEMP","DATAN",50.68,93)
+18071,243^3130917.16155^14,.01^358^A
+"TEMP","DATAN",50.68,94)
+243
+"TEMP","DATAN",50.68,95)
+18071,241^3130917.16155^14,.01^358^A
+"TEMP","DATAN",50.68,96)
+241
+"TEMP","DATAN",50.68,97)
+18071,3036^3130917.16155^14,.01^358^A
+"TEMP","DATAN",50.68,98)
+3036
+"TEMP","DATAN",50.68,99)
+24166,1^3130918.091201^99.991,.01^358^A
+"TEMP","DATAN",50.68,100)
+3130918
+"TEMP","DATAN",50.68,101)
+24167,4879^3130918.09181^14,.01^358^A
+"TEMP","DATAN",50.68,102)
+4879
+"TEMP","DATAN",50.68,103)
+24167,1^3130918.09181^99.991,.01^358^A
+"TEMP","DATAN",50.68,104)
+3130918
+"TEMP","DATAN",50.68,105)
+24167,4879^3130918.091811^14,.01^358^A
+"TEMP","DATAN",50.68,106)
+4879
+"TEMP","DATAN",50.68,107)
+24168,4879^3130918.091948^14,.01^358^A
+"TEMP","DATAN",50.68,108)
+4879
+"TEMP","DATAN",50.68,109)
+24168,1^3130918.091948^99.991,.01^358^A
+"TEMP","DATAN",50.68,110)
+3130918
+"TEMP","DATAN",50.68,111)
+24168,4879^3130918.091948^14,.01^358^A
+"TEMP","DATAN",50.68,112)
+4879
+"TEMP","DATAN",50.68,113)
+24169,4879^3130918.092419^14,.01^358^A
+"TEMP","DATAN",50.68,114)
+4879
+"TEMP","DATAN",50.68,115)
+24169,1^3130918.092419^99.991,.01^358^A
+"TEMP","DATAN",50.68,116)
+3130918
+"TEMP","DATAN",50.68,117)
+24169,4879^3130918.092419^14,.01^358^A
+"TEMP","DATAN",50.68,118)
+4879
+"TEMP","DATAN",50.68,119)
+24170,2120^3130918.0928^14,.01^358^A
+"TEMP","DATAN",50.68,120)
+2120
+"TEMP","DATAN",50.68,121)
+24170,204^3130918.0928^14,.01^358^A
+"TEMP","DATAN",50.68,122)
+204
+"TEMP","DATAN",50.68,123)
+24170,1^3130918.0928^99.991,.01^358^A
+"TEMP","DATAN",50.68,124)
+3130918
+"TEMP","DATAN",50.68,125)
+24170,2120^3130918.092801^14,.01^358^A
+"TEMP","DATAN",50.68,126)
+2120
+"TEMP","DATAN",50.68,127)
+24170,204^3130918.092801^14,.01^358^A
+"TEMP","DATAN",50.68,128)
+204
+"TEMP","DATAN",50.68,129)
+19301,2302^3130918.105642^14,.01^358^A
+"TEMP","DATAN",50.68,130)
+2302
+"TEMP","DATAN",50.68,131)
+19301,1161^3130918.105642^14,.01^358^A
+"TEMP","DATAN",50.68,132)
+1161
+"TEMP","DATAN",50.68,133)
+4544,130^3130918.105717^14,.01^358^A
+"TEMP","DATAN",50.68,134)
+130
+"TEMP","DATAN",50.68,135)
+4544,1113^3130918.105717^14,.01^358^A
+"TEMP","DATAN",50.68,136)
+1113
+"TEMP","DATAN",50.68,137)
+6299,1447^3130918.105804^14,.01^358^A
+"TEMP","DATAN",50.68,138)
+1447
+"TEMP","DATAN",50.68,139)
+1727,420^3130918.120956^14,.01^358^A
+"TEMP","DATAN",50.68,140)
+420
+"TEMP","DATAN",50.68,141)
+23311,2097^3130918.121156^14,.01^358^A
+"TEMP","DATAN",50.68,142)
+2097
+"TEMP","DATAN",50.68,143)
+24171,1^3130919.112414^99.991,.01^358^A
+"TEMP","DATAN",50.68,144)
+3130919
+"TEMP","DATAN",50.68,145)
+24172,1417^3130919.112739^14,.01^358^A
+"TEMP","DATAN",50.68,146)
+1417
+"TEMP","DATAN",50.68,147)
+24172,1^3130919.11274^99.991,.01^358^A
+"TEMP","DATAN",50.68,148)
+3130919
+"TEMP","DATAN",50.68,149)
+24172,1417^3130919.112741^14,.01^358^A
+"TEMP","DATAN",50.68,150)
+1417
+"TEMP","DATAN",50.68,151)
+24173,1471^3130919.131048^14,.01^358^A
+"TEMP","DATAN",50.68,152)
+1471
+"TEMP","DATAN",50.68,153)
+24173,2120^3130919.131048^14,.01^358^A
+"TEMP","DATAN",50.68,154)
+2120
+"TEMP","DATAN",50.68,155)
+24173,860^3130919.131048^14,.01^358^A
+"TEMP","DATAN",50.68,156)
+860
+"TEMP","DATAN",50.68,157)
+24173,2045^3130919.131049^14,.01^358^A
+"TEMP","DATAN",50.68,158)
+2045
+"TEMP","DATAN",50.68,159)
+24173,1^3130919.131049^99.991,.01^358^A
+"TEMP","DATAN",50.68,160)
+3130919
+"TEMP","DATAN",50.68,161)
+24173,1471^3130919.13105^14,.01^358^A
+"TEMP","DATAN",50.68,162)
+1471
+"TEMP","DATAN",50.68,163)
+24173,2120^3130919.13105^14,.01^358^A
+"TEMP","DATAN",50.68,164)
+2120
+"TEMP","DATAN",50.68,165)
+24173,860^3130919.13105^14,.01^358^A
+"TEMP","DATAN",50.68,166)
+860
+"TEMP","DATAN",50.68,167)
+24173,2045^3130919.13105^14,.01^358^A
+"TEMP","DATAN",50.68,168)
+2045
+"TEMP","DATAN",50.68,169)
+24174,2093^3130920.115723^14,.01^358^A
+"TEMP","DATAN",50.68,170)
+2093
+"TEMP","DATAN",50.68,171)
+24174,1^3130920.115724^99.991,.01^358^A
+"TEMP","DATAN",50.68,172)
+3130920
+"TEMP","DATAN",50.68,173)
+24174,2093^3130920.115725^14,.01^358^A
+"TEMP","DATAN",50.68,174)
+2093
+"TEMP","DATAN",50.68,175)
+24175,631^3130920.141828^14,.01^358^A
+"TEMP","DATAN",50.68,176)
+631
+"TEMP","DATAN",50.68,177)
+24175,1^3130920.141829^99.991,.01^358^A
+"TEMP","DATAN",50.68,178)
+3130920
+"TEMP","DATAN",50.68,179)
+24175,631^3130920.14183^14,.01^358^A
+"TEMP","DATAN",50.68,180)
+631
+"TEMP","DATAN",50.68,181)
+24176,4880^3130920.144457^14,.01^358^A
+"TEMP","DATAN",50.68,182)
+4880
+"TEMP","DATAN",50.68,183)
+24176,1^3130920.144457^99.991,.01^358^A
+"TEMP","DATAN",50.68,184)
+3130920
+"TEMP","DATAN",50.68,185)
+24176,4880^3130920.144457^14,.01^358^A
+"TEMP","DATAN",50.68,186)
+4880
+"TEMP","DATAN",50.68,187)
+19459,35^3130920.14471^14,.01^358^A
+"TEMP","DATAN",50.68,188)
+35
+"TEMP","DATAN",50.68,189)
+24177,1995^3130920.150356^14,.01^358^A
+"TEMP","DATAN",50.68,190)
+1995
+"TEMP","DATAN",50.68,191)
+24177,4191^3130920.150356^14,.01^358^A
+"TEMP","DATAN",50.68,192)
+4191
+"TEMP","DATAN",50.68,193)
+24177,1^3130920.150356^99.991,.01^358^A
+"TEMP","DATAN",50.68,194)
+3130920
+"TEMP","DATAN",50.68,195)
+24177,1995^3130920.150356^14,.01^358^A
+"TEMP","DATAN",50.68,196)
+1995
+"TEMP","DATAN",50.68,197)
+24177,4191^3130920.150356^14,.01^358^A
+"TEMP","DATAN",50.68,198)
+4191
+"TEMP","DATAN",50.68,199)
+24178,60^3130920.150506^14,.01^358^A
+"TEMP","DATAN",50.68,200)
+60
+"TEMP","DATAN",50.68,201)
+24178,1^3130920.150506^99.991,.01^358^A
+"TEMP","DATAN",50.68,202)
+3130920
+"TEMP","DATAN",50.68,203)
+24178,60^3130920.150507^14,.01^358^A
+"TEMP","DATAN",50.68,204)
+60
+"TEMP","DATAN",50.68,205)
+24179,60^3130920.151218^14,.01^358^A
+"TEMP","DATAN",50.68,206)
+60
+"TEMP","DATAN",50.68,207)
+24179,1^3130920.151218^99.991,.01^358^A
+"TEMP","DATAN",50.68,208)
+3130920
+"TEMP","DATAN",50.68,209)
+24179,60^3130920.151219^14,.01^358^A
+"TEMP","DATAN",50.68,210)
+60
+"TEMP","DATAN",50.68,211)
+24179,60^3130920.151437^14,.01^358^A
+"TEMP","DATAN",50.68,212)
+60
+"TEMP","DATAN",50.68,213)
+20735,1269^3130923.120632^14,.01^358^A
+"TEMP","DATAN",50.68,214)
+1269
+"TEMP","DATAN",50.68,215)
+20735,4472^3130923.120632^14,.01^358^A
+"TEMP","DATAN",50.68,216)
+4472
+"TEMP","DATAN",50.68,217)
+20735,4440^3130923.120632^14,.01^358^A
+"TEMP","DATAN",50.68,218)
+4440
+"TEMP","DATAN",50.68,219)
+20734,4472^3130923.120821^14,.01^358^A
+"TEMP","DATAN",50.68,220)
+4472
+"TEMP","DATAN",50.68,221)
+20734,1269^3130923.120821^14,.01^358^A
+"TEMP","DATAN",50.68,222)
+1269
+"TEMP","DATAN",50.68,223)
+20734,4440^3130923.120821^14,.01^358^A
+"TEMP","DATAN",50.68,224)
+4440
+"TEMP","DATAN",50.68,225)
+22089,4472^3130923.121013^14,.01^358^A
+"TEMP","DATAN",50.68,226)
+4472
+"TEMP","DATAN",50.68,227)
+22089,4440^3130923.121013^14,.01^358^A
+"TEMP","DATAN",50.68,228)
+4440
+"TEMP","DATAN",50.68,229)
+22089,1269^3130923.121013^14,.01^358^A
+"TEMP","DATAN",50.68,230)
+1269
+"TEMP","DATAN",50.68,231)
+23855,4085^3130923.132447^14,.01^358^A
+"TEMP","DATAN",50.68,232)
+4085
+"TEMP","DATAN",50.68,233)
+3521,800^3130923.134916^14,.01^358^A
+"TEMP","DATAN",50.68,234)
+800
+"TEMP","DATAN",50.68,235)
+1432,353^3130924.085541^14,.01^358^A
+"TEMP","DATAN",50.68,236)
+353
+"TEMP","DATAN",50.68,237)
+24180,1^3130924.094626^99.991,.01^358^A
+"TEMP","DATAN",50.68,238)
+3130924
+"TEMP","DATAN",50.68,239)
+24181,1^3130924.094845^99.991,.01^358^A
+"TEMP","DATAN",50.68,240)
+3130924
+"TEMP","DATAN",50.68,241)
+24182,135^3130924.095924^14,.01^358^A
+"TEMP","DATAN",50.68,242)
+135
+"TEMP","DATAN",50.68,243)
+24182,1^3130924.095924^99.991,.01^358^A
+"TEMP","DATAN",50.68,244)
+3130924
+"TEMP","DATAN",50.68,245)
+24182,135^3130924.095925^14,.01^358^A
+"TEMP","DATAN",50.68,246)
+135
+"TEMP","DATAN",50.68,247)
+24183,105^3130924.100031^14,.01^358^A
+"TEMP","DATAN",50.68,248)
+105
+"TEMP","DATAN",50.68,249)
+24183,1071^3130924.100031^14,.01^358^A
+"TEMP","DATAN",50.68,250)
+1071
+"TEMP","DATAN",50.68,251)
+24183,1^3130924.100031^99.991,.01^358^A
+"TEMP","DATAN",50.68,252)
+3130924
+"TEMP","DATAN",50.68,253)
+24183,105^3130924.100032^14,.01^358^A
+"TEMP","DATAN",50.68,254)
+105
+"TEMP","DATAN",50.68,255)
+24183,1071^3130924.100032^14,.01^358^A
+"TEMP","DATAN",50.68,256)
+1071
+"TEMP","DATAN",50.68,257)
+24184,1071^3130924.100245^14,.01^358^A
+"TEMP","DATAN",50.68,258)
+1071
+"TEMP","DATAN",50.68,259)
+24184,105^3130924.100245^14,.01^358^A
+"TEMP","DATAN",50.68,260)
+105
+"TEMP","DATAN",50.68,261)
+24184,1^3130924.100245^99.991,.01^358^A
+"TEMP","DATAN",50.68,262)
+3130924
+"TEMP","DATAN",50.68,263)
+24184,1071^3130924.100246^14,.01^358^A
+"TEMP","DATAN",50.68,264)
+1071
+"TEMP","DATAN",50.68,265)
+24184,105^3130924.100246^14,.01^358^A
+"TEMP","DATAN",50.68,266)
+105
+"TEMP","DATAN",50.68,267)
+24185,1071^3130924.100353^14,.01^358^A
+"TEMP","DATAN",50.68,268)
+1071
+"TEMP","DATAN",50.68,269)
+24185,105^3130924.100353^14,.01^358^A
+"TEMP","DATAN",50.68,270)
+105
+"TEMP","DATAN",50.68,271)
+24185,1^3130924.100353^99.991,.01^358^A
+"TEMP","DATAN",50.68,272)
+3130924
+"TEMP","DATAN",50.68,273)
+24185,1071^3130924.100354^14,.01^358^A
+"TEMP","DATAN",50.68,274)
+1071
+"TEMP","DATAN",50.68,275)
+24185,105^3130924.100354^14,.01^358^A
+"TEMP","DATAN",50.68,276)
+105
+"TEMP","DATAN",50.68,277)
+8222,1501^3130924.112427^14,.01^358^A
+"TEMP","DATAN",50.68,278)
+1501
+"TEMP","DATAN",50.68,279)
+2659,629^3130924.11324^14,.01^358^A
+"TEMP","DATAN",50.68,280)
+629
+"TEMP","DATAN",50.68,281)
+20916,4625^3130924.152125^14,.01^358^A
+"TEMP","DATAN",50.68,282)
+4625
+"TEMP","DATAN",50.68,283)
+20917,4625^3130924.152126^14,.01^358^A
+"TEMP","DATAN",50.68,284)
+4625
+"TEMP","DATAN",50.68,285)
+21696,4625^3130924.152127^14,.01^358^A
+"TEMP","DATAN",50.68,286)
+4625
+"TEMP","DATAN",50.68,287)
+20085,2126^3130924.152344^14,.01^358^A
+"TEMP","DATAN",50.68,288)
+2126
+"TEMP","DATAN",50.68,289)
+16001,2126^3130924.152345^14,.01^358^A
+"TEMP","DATAN",50.68,290)
+2126
+"TEMP","DATAN",50.68,291)
+22219,76^3130924.152522^14,.01^358^A
+"TEMP","DATAN",50.68,292)
+76
+"TEMP","DATAN",50.68,293)
+18281,3556^3130924.152727^14,.01^358^A
+"TEMP","DATAN",50.68,294)
+3556
+"TEMP","DATAN",50.68,295)
+18281,4430^3130924.152728^14,.01^358^A
+"TEMP","DATAN",50.68,296)
+4430
+"TEMP","DATAN",50.68,297)
+18282,4430^3130924.152729^14,.01^358^A
+"TEMP","DATAN",50.68,298)
+4430
+"TEMP","DATAN",50.68,299)
+18282,3556^3130924.152729^14,.01^358^A
+"TEMP","DATAN",50.68,300)
+3556
+"TEMP","DATAN",50.68,301)
+22958,4747^3130924.152908^14,.01^358^A
+"TEMP","DATAN",50.68,302)
+4747
+"TEMP","DATAN",50.68,303)
+22958,3556^3130924.152908^14,.01^358^A
+"TEMP","DATAN",50.68,304)
+3556
+"TEMP","DATAN",50.68,305)
+22959,4747^3130924.152909^14,.01^358^A
+"TEMP","DATAN",50.68,306)
+4747
+"TEMP","DATAN",50.68,307)
+22959,3556^3130924.152909^14,.01^358^A
+"TEMP","DATAN",50.68,308)
+3556
+"TEMP","DATAN",50.68,309)
+22960,4747^3130924.15291^14,.01^358^A
+"TEMP","DATAN",50.68,310)
+4747
+"TEMP","DATAN",50.68,311)
+22960,3556^3130924.15291^14,.01^358^A
+"TEMP","DATAN",50.68,312)
+3556
+"TEMP","DATAN",50.68,313)
+22028,4718^3130924.15315^14,.01^358^A
+"TEMP","DATAN",50.68,314)
+4718
+"TEMP","DATAN",50.68,315)
+22029,4718^3130924.153151^14,.01^358^A
+"TEMP","DATAN",50.68,316)
+4718
+"TEMP","DATAN",50.68,317)
+22030,4718^3130924.153152^14,.01^358^A
+"TEMP","DATAN",50.68,318)
+4718
+"TEMP","DATAN",50.68,319)
+22031,4718^3130924.153153^14,.01^358^A
+"TEMP","DATAN",50.68,320)
+4718
+"TEMP","DATAN",50.68,321)
+23307,4718^3130924.153154^14,.01^358^A
+"TEMP","DATAN",50.68,322)
+4718
+"TEMP","DATAN",50.68,323)
+23308,4718^3130924.153155^14,.01^358^A
+"TEMP","DATAN",50.68,324)
+4718
+"TEMP","DATAN",50.68,325)
+18083,1751^3130924.153554^14,.01^358^A
+"TEMP","DATAN",50.68,326)
+1751
+"TEMP","DATAN",50.68,327)
+18083,1905^3130924.153554^14,.01^358^A
+"TEMP","DATAN",50.68,328)
+1905
+"TEMP","DATAN",50.68,329)
+18083,35^3130924.153554^14,.01^358^A
+"TEMP","DATAN",50.68,330)
+35
+"TEMP","DATAN",50.68,331)
+18083,64^3130924.153554^14,.01^358^A
+"TEMP","DATAN",50.68,332)
+64
+"TEMP","DATAN",50.68,333)
+18083,63^3130924.153554^14,.01^358^A
+"TEMP","DATAN",50.68,334)
+63
+"TEMP","DATAN",50.68,335)
+18083,38^3130924.153554^14,.01^358^A
+"TEMP","DATAN",50.68,336)
+38
+"TEMP","DATAN",50.68,337)
+22959,4747^3130924.153602^14,.01^358^A
+"TEMP","DATAN",50.68,338)
+4747
+"TEMP","DATAN",50.68,339)
+22959,3556^3130924.153602^14,.01^358^A
+"TEMP","DATAN",50.68,340)
+3556
+"TEMP","DATAN",50.68,341)
+22960,4747^3130924.153603^14,.01^358^A
+"TEMP","DATAN",50.68,342)
+4747
+"TEMP","DATAN",50.68,343)
+22960,3556^3130924.153603^14,.01^358^A
+"TEMP","DATAN",50.68,344)
+3556
+"TEMP","DATAN",50.68,345)
+22958,4747^3130924.153604^14,.01^358^A
+"TEMP","DATAN",50.68,346)
+4747
+"TEMP","DATAN",50.68,347)
+22958,3556^3130924.153604^14,.01^358^A
+"TEMP","DATAN",50.68,348)
+3556
+"TEMP","DATAN",50.68,349)
+12794,3746^3130924.153811^14,.01^358^A
+"TEMP","DATAN",50.68,350)
+3746
+"TEMP","DATAN",50.68,351)
+12795,3746^3130924.153812^14,.01^358^A
+"TEMP","DATAN",50.68,352)
+3746
+"TEMP","DATAN",50.68,353)
+19298,3746^3130924.153813^14,.01^358^A
+"TEMP","DATAN",50.68,354)
+3746
+"TEMP","DATAN",50.68,355)
+22576,4765^3130924.154041^14,.01^358^A
+"TEMP","DATAN",50.68,356)
+4765
+"TEMP","DATAN",50.68,357)
+22577,4765^3130924.154042^14,.01^358^A
+"TEMP","DATAN",50.68,358)
+4765
+"TEMP","DATAN",50.68,359)
+22578,4765^3130924.154043^14,.01^358^A
+"TEMP","DATAN",50.68,360)
+4765
+"TEMP","DATAN",50.68,361)
+22647,4765^3130924.154043^14,.01^358^A
+"TEMP","DATAN",50.68,362)
+4765
+"TEMP","DATAN",50.68,363)
+17491,4262^3130924.154212^14,.01^358^A
+"TEMP","DATAN",50.68,364)
+4262
+"TEMP","DATAN",50.68,365)
+17492,4262^3130924.154213^14,.01^358^A
+"TEMP","DATAN",50.68,366)
+4262
+"TEMP","DATAN",50.68,367)
+17493,4262^3130924.154214^14,.01^358^A
+"TEMP","DATAN",50.68,368)
+4262
+"TEMP","DATAN",50.68,369)
+21470,76^3130924.154317^14,.01^358^A
+"TEMP","DATAN",50.68,370)
+76
+"TEMP","DATAN",50.68,371)
+24108,4583^3130924.160954^14,.01^358^A
+"TEMP","DATAN",50.68,372)
+4583
+"TEMP","DATAN",50.68,373)
+7971,1124^3130925.131343^14,.01^358^A
+"TEMP","DATAN",50.68,374)
+1124
+"TEMP","DATAN",50.68,375)
+24186,247^3130925.154506^14,.01^358^A
+"TEMP","DATAN",50.68,376)
+247
+"TEMP","DATAN",50.68,377)
+24186,255^3130925.154507^14,.01^358^A
+"TEMP","DATAN",50.68,378)
+255
+"TEMP","DATAN",50.68,379)
+24186,244^3130925.154507^14,.01^358^A
+"TEMP","DATAN",50.68,380)
+244
+"TEMP","DATAN",50.68,381)
+24186,1^3130925.154507^99.991,.01^358^A
+"TEMP","DATAN",50.68,382)
+3130925
+"TEMP","DATAN",50.68,383)
+24186,247^3130925.154508^14,.01^358^A
+"TEMP","DATAN",50.68,384)
+247
+"TEMP","DATAN",50.68,385)
+24186,255^3130925.154508^14,.01^358^A
+"TEMP","DATAN",50.68,386)
+255
+"TEMP","DATAN",50.68,387)
+24186,244^3130925.154508^14,.01^358^A
+"TEMP","DATAN",50.68,388)
+244
+"TEMP","DATAN",50.68,389)
+24187,4718^3130926.121029^14,.01^358^A
+"TEMP","DATAN",50.68,390)
+4718
+"TEMP","DATAN",50.68,391)
+24187,1^3130926.121031^99.991,.01^358^A
+"TEMP","DATAN",50.68,392)
+3130926
+"TEMP","DATAN",50.68,393)
+24187,4718^3130926.121032^14,.01^358^A
+"TEMP","DATAN",50.68,394)
+4718
+"TEMP","DATAN",50.68,395)
+24188,1^3130926.12295^99.991,.01^358^A
+"TEMP","DATAN",50.68,396)
+3130926
+"TEMP","DATAN",50.68,397)
+24189,1^3130926.123145^99.991,.01^358^A
+"TEMP","DATAN",50.68,398)
+3130926
+"TEMP","DATAN",50.68,399)
+24190,1^3130926.123251^99.991,.01^358^A
+"TEMP","DATAN",50.68,400)
+3130926
+"TEMP","DATAN",50.68,401)
+24191,2263^3130926.123431^14,.01^358^A
+"TEMP","DATAN",50.68,402)
+2263
+"TEMP","DATAN",50.68,403)
+24191,1^3130926.123433^99.991,.01^358^A
+"TEMP","DATAN",50.68,404)
+3130926
+"TEMP","DATAN",50.68,405)
+24191,2263^3130926.123433^14,.01^358^A
+"TEMP","DATAN",50.68,406)
+2263
+"TEMP","DATAN",50.68,407)
+24192,1149^3130926.123652^14,.01^358^A
+"TEMP","DATAN",50.68,408)
+1149
+"TEMP","DATAN",50.68,409)
+24192,1^3130926.123652^99.991,.01^358^A
+"TEMP","DATAN",50.68,410)
+3130926
+"TEMP","DATAN",50.68,411)
+24192,1149^3130926.123653^14,.01^358^A
+"TEMP","DATAN",50.68,412)
+1149
+"TEMP","DATAN",50.68,413)
+24193,1^3130926.123904^99.991,.01^358^A
+"TEMP","DATAN",50.68,414)
+3130926
+"TEMP","DATAN",50.68,415)
+24194,1161^3130926.124108^14,.01^358^A
+"TEMP","DATAN",50.68,416)
+1161
+"TEMP","DATAN",50.68,417)
+24194,1^3130926.124108^99.991,.01^358^A
+"TEMP","DATAN",50.68,418)
+3130926
+"TEMP","DATAN",50.68,419)
+24194,1161^3130926.124109^14,.01^358^A
+"TEMP","DATAN",50.68,420)
+1161
+"TEMP","DATAN",50.68,421)
+24195,1161^3130926.124209^14,.01^358^A
+"TEMP","DATAN",50.68,422)
+1161
+"TEMP","DATAN",50.68,423)
+24195,1^3130926.124209^99.991,.01^358^A
+"TEMP","DATAN",50.68,424)
+3130926
+"TEMP","DATAN",50.68,425)
+24195,1161^3130926.12421^14,.01^358^A
+"TEMP","DATAN",50.68,426)
+1161
+"TEMP","DATAN",50.68,427)
+24196,1698^3130926.1244^14,.01^358^A
+"TEMP","DATAN",50.68,428)
+1698
+"TEMP","DATAN",50.68,429)
+24196,536^3130926.1244^14,.01^358^A
+"TEMP","DATAN",50.68,430)
+536
+"TEMP","DATAN",50.68,431)
+24196,1199^3130926.124401^14,.01^358^A
+"TEMP","DATAN",50.68,432)
+1199
+"TEMP","DATAN",50.68,433)
+24196,1^3130926.124401^99.991,.01^358^A
+"TEMP","DATAN",50.68,434)
+3130926
+"TEMP","DATAN",50.68,435)
+24196,1698^3130926.124402^14,.01^358^A
+"TEMP","DATAN",50.68,436)
+1698
+"TEMP","DATAN",50.68,437)
+24196,536^3130926.124402^14,.01^358^A
+"TEMP","DATAN",50.68,438)
+536
+"TEMP","DATAN",50.68,439)
+24196,1199^3130926.124402^14,.01^358^A
+"TEMP","DATAN",50.68,440)
+1199
+"TEMP","DATAN",50.68,441)
+24197,3689^3130926.124547^14,.01^358^A
+"TEMP","DATAN",50.68,442)
+3689
+"TEMP","DATAN",50.68,443)
+24197,1^3130926.124547^99.991,.01^358^A
+"TEMP","DATAN",50.68,444)
+3130926
+"TEMP","DATAN",50.68,445)
+24197,3689^3130926.124548^14,.01^358^A
+"TEMP","DATAN",50.68,446)
+3689
+"TEMP","DATAN",50.68,447)
+24198,800^3130926.124636^14,.01^358^A
+"TEMP","DATAN",50.68,448)
+800
+"TEMP","DATAN",50.68,449)
+24198,1^3130926.124636^99.991,.01^358^A
+"TEMP","DATAN",50.68,450)
+3130926
+"TEMP","DATAN",50.68,451)
+24198,800^3130926.124637^14,.01^358^A
+"TEMP","DATAN",50.68,452)
+800
+"TEMP","DATAN",50.68,453)
+24199,3689^3130926.124654^14,.01^358^A
+"TEMP","DATAN",50.68,454)
+3689
+"TEMP","DATAN",50.68,455)
+24199,1^3130926.124654^99.991,.01^358^A
+"TEMP","DATAN",50.68,456)
+3130926
+"TEMP","DATAN",50.68,457)
+24199,3689^3130926.124655^14,.01^358^A
+"TEMP","DATAN",50.68,458)
+3689
+"TEMP","DATAN",50.68,459)
+24200,816^3130926.124713^14,.01^358^A
+"TEMP","DATAN",50.68,460)
+816
+"TEMP","DATAN",50.68,461)
+24200,1^3130926.124713^99.991,.01^358^A
+"TEMP","DATAN",50.68,462)
+3130926
+"TEMP","DATAN",50.68,463)
+24200,816^3130926.124714^14,.01^358^A
+"TEMP","DATAN",50.68,464)
+816
+"TEMP","DATAN",50.68,465)
+24201,1^3130927.142848^99.991,.01^358^A
+"TEMP","DATAN",50.68,466)
+3130927
+"TEMP","DATAN",50.68,467)
+24202,1^3130927.142944^99.991,.01^358^A
+"TEMP","DATAN",50.68,468)
+3130927
+"TEMP","DATAN",50.68,469)
+24202,4881^3130927.15161^14,.01^358^A
+"TEMP","DATAN",50.68,470)
+4881
+"TEMP","DATAN",50.68,471)
+24203,3289^3130927.152655^14,.01^358^A
+"TEMP","DATAN",50.68,472)
+3289
+"TEMP","DATAN",50.68,473)
+24203,4881^3130927.152655^14,.01^358^A
+"TEMP","DATAN",50.68,474)
+4881
+"TEMP","DATAN",50.68,475)
+24203,4882^3130927.152655^14,.01^358^A
+"TEMP","DATAN",50.68,476)
+4882
+"TEMP","DATAN",50.68,477)
+24203,789^3130927.152655^14,.01^358^A
+"TEMP","DATAN",50.68,478)
+789
+"TEMP","DATAN",50.68,479)
+24203,1^3130927.152656^99.991,.01^358^A
+"TEMP","DATAN",50.68,480)
+3130927
+"TEMP","DATAN",50.68,481)
+24203,3289^3130927.152657^14,.01^358^A
+"TEMP","DATAN",50.68,482)
+3289
+"TEMP","DATAN",50.68,483)
+24203,4881^3130927.152657^14,.01^358^A
+"TEMP","DATAN",50.68,484)
+4881
+"TEMP","DATAN",50.68,485)
+24203,4882^3130927.152657^14,.01^358^A
+"TEMP","DATAN",50.68,486)
+4882
+"TEMP","DATAN",50.68,487)
+24203,789^3130927.152657^14,.01^358^A
+"TEMP","DATAN",50.68,488)
+789
+"TEMP","DATAN",50.68,489)
+7640,1873^3130930.070737^14,.01^358^A
+"TEMP","DATAN",50.68,490)
+1873
+"TEMP","DATAN",50.68,491)
+24185,1071^3130930.112456^14,.01^358^A
+"TEMP","DATAN",50.68,492)
+1071
+"TEMP","DATAN",50.68,493)
+24185,105^3130930.112456^14,.01^358^A
+"TEMP","DATAN",50.68,494)
+105
+"TEMP","DATAN",50.68,495)
+24184,1071^3130930.112457^14,.01^358^A
+"TEMP","DATAN",50.68,496)
+1071
+"TEMP","DATAN",50.68,497)
+24184,105^3130930.112457^14,.01^358^A
+"TEMP","DATAN",50.68,498)
+105
+"TEMP","DATAN",50.68,499)
+24183,105^3130930.112458^14,.01^358^A
+"TEMP","DATAN",50.68,500)
+105
+"TEMP","DATAN",50.68,501)
+24183,1071^3130930.112458^14,.01^358^A
+"TEMP","DATAN",50.68,502)
+1071
+"TEMP","DATAN",50.68,503)
+22716,1071^3130930.112459^14,.01^358^A
+"TEMP","DATAN",50.68,504)
+1071
+"TEMP","DATAN",50.68,505)
+22716,105^3130930.112459^14,.01^358^A
+"TEMP","DATAN",50.68,506)
+105
+"TEMP","DATAN",50.68,507)
+24153,3669^3131001.070404^14,.01^358^A
+"TEMP","DATAN",50.68,508)
+3669
+"TEMP","DATAN",50.68,509)
+20102,589^3131001.075558^14,.01^358^A
+"TEMP","DATAN",50.68,510)
+589
+"TEMP","DATAN",50.68,511)
+1083,207^3131001.080028^14,.01^358^A
+"TEMP","DATAN",50.68,512)
+207
+"TEMP","DATAN",50.68,513)
+2708,632^3131001.132327^14,.01^358^A
+"TEMP","DATAN",50.68,514)
+632
+"TEMP","DATAN",50.68,515)
+2707,632^3131001.132644^14,.01^358^A
+"TEMP","DATAN",50.68,516)
+632
+"TEMP","DATAN",50.68,517)
+2709,632^3131001.132827^14,.01^358^A
+"TEMP","DATAN",50.68,518)
+632
+"TEMP","DATANT",50.416,1)
+4878^3130913.141349^.01^358^A
+"TEMP","DATANT",50.416,2)
+GADOTERATE
+"TEMP","DATANT",50.416,3)
+4879^3130913.145758^.01^358^A
+"TEMP","DATANT",50.416,4)
+GADOTERATE MEGLUMINE
+"TEMP","DATANT",50.416,5)
+4880^3130920.144456^.01^358^A
+"TEMP","DATANT",50.416,6)
+FERROUS BISGLYCINATE
+"TEMP","DATANT",50.416,7)
+4881^3130927.144438^.01^358^A
+"TEMP","DATANT",50.416,8)
+HYPOCHLOROUS ACID
+"TEMP","DATANT",50.416,9)
+4882^3130927.144523^.01^358^A
+"TEMP","DATANT",50.416,10)
+SODIUM MAGNESIUM FLUOROSILICATE
+"TEMP","DATANT",50.6,1)
+4839^3130913.141318^.01^358^A
+"TEMP","DATANT",50.6,2)
+GADOTERATE
+"TEMP","DATANT",50.6,3)
+4840^3130917.095404^.01^358^A
+"TEMP","DATANT",50.6,4)
+GADOTERATE MEGLUMINE
+"TEMP","DATANT",50.6,5)
+4841^3130920.144455^.01^358^A
+"TEMP","DATANT",50.6,6)
+FERROUS BISGLYCINATE
+"TEMP","DATANT",50.6,7)
+4842^3130920.145552^.01^358^A
+"TEMP","DATANT",50.6,8)
+SILVER/SODIUM ALGINATE
+"TEMP","DATANT",50.6,9)
+4843^3130925.154505^.01^358^A
+"TEMP","DATANT",50.6,10)
+CALCIUM/MAGNESIUM/VITAMIN D
+"TEMP","DATANT",50.609,1)
+5177^3130926.110656^.01^358^
+"TEMP","DATANT",50.609,2)
+6.82
+"TEMP","DATANT",50.67,1)
+201945^3130912.063^.01^358^A
+"TEMP","DATANT",50.67,2)
+201945
+"TEMP","DATANT",50.67,3)
+201946^3130912.063001^.01^358^A
+"TEMP","DATANT",50.67,4)
+201946
+"TEMP","DATANT",50.67,5)
+201947^3130912.063002^.01^358^A
+"TEMP","DATANT",50.67,6)
+201947
+"TEMP","DATANT",50.67,7)
+201948^3130912.063002^.01^358^A
+"TEMP","DATANT",50.67,8)
+201948
+"TEMP","DATANT",50.67,9)
+201949^3130912.063002^.01^358^A
+"TEMP","DATANT",50.67,10)
+201949
+"TEMP","DATANT",50.67,11)
+201950^3130912.063003^.01^358^A
+"TEMP","DATANT",50.67,12)
+201950
+"TEMP","DATANT",50.67,13)
+201951^3130912.063004^.01^358^A
+"TEMP","DATANT",50.67,14)
+201951
+"TEMP","DATANT",50.67,15)
+201952^3130912.063004^.01^358^A
+"TEMP","DATANT",50.67,16)
+201952
+"TEMP","DATANT",50.67,17)
+201953^3130912.063005^.01^358^A
+"TEMP","DATANT",50.67,18)
+201953
+"TEMP","DATANT",50.67,19)
+201954^3130912.063005^.01^358^A
+"TEMP","DATANT",50.67,20)
+201954
+"TEMP","DATANT",50.67,21)
+201955^3130912.063007^.01^358^A
+"TEMP","DATANT",50.67,22)
+201955
+"TEMP","DATANT",50.67,23)
+201956^3130912.063007^.01^358^A
+"TEMP","DATANT",50.67,24)
+201956
+"TEMP","DATANT",50.67,25)
+201957^3130912.063008^.01^358^A
+"TEMP","DATANT",50.67,26)
+201957
+"TEMP","DATANT",50.67,27)
+201958^3130912.063008^.01^358^A
+"TEMP","DATANT",50.67,28)
+201958
+"TEMP","DATANT",50.67,29)
+201959^3130912.063008^.01^358^A
+"TEMP","DATANT",50.67,30)
+201959
+"TEMP","DATANT",50.67,31)
+201960^3130912.063009^.01^358^A
+"TEMP","DATANT",50.67,32)
+201960
+"TEMP","DATANT",50.67,33)
+201961^3130912.063009^.01^358^A
+"TEMP","DATANT",50.67,34)
+201961
+"TEMP","DATANT",50.67,35)
+201962^3130912.06301^.01^358^A
+"TEMP","DATANT",50.67,36)
+201962
+"TEMP","DATANT",50.67,37)
+201963^3130912.063013^.01^358^A
+"TEMP","DATANT",50.67,38)
+201963
+"TEMP","DATANT",50.67,39)
+201964^3130912.063015^.01^358^A
+"TEMP","DATANT",50.67,40)
+201964
+"TEMP","DATANT",50.67,41)
+201965^3130912.063015^.01^358^A
+"TEMP","DATANT",50.67,42)
+201965
+"TEMP","DATANT",50.67,43)
+201966^3130912.063016^.01^358^A
+"TEMP","DATANT",50.67,44)
+201966
+"TEMP","DATANT",50.67,45)
+201967^3130912.063017^.01^358^A
+"TEMP","DATANT",50.67,46)
+201967
+"TEMP","DATANT",50.67,47)
+201968^3130912.063017^.01^358^A
+"TEMP","DATANT",50.67,48)
+201968
+"TEMP","DATANT",50.67,49)
+201969^3130912.063017^.01^358^A
+"TEMP","DATANT",50.67,50)
+201969
+"TEMP","DATANT",50.67,51)
+201970^3130912.063018^.01^358^A
+"TEMP","DATANT",50.67,52)
+201970
+"TEMP","DATANT",50.67,53)
+201971^3130912.063018^.01^358^A
+"TEMP","DATANT",50.67,54)
+201971
+"TEMP","DATANT",50.67,55)
+201972^3130912.063019^.01^358^A
+"TEMP","DATANT",50.67,56)
+201972
+"TEMP","DATANT",50.67,57)
+201973^3130912.063019^.01^358^A
+"TEMP","DATANT",50.67,58)
+201973
+"TEMP","DATANT",50.67,59)
+201974^3130912.063019^.01^358^A
+"TEMP","DATANT",50.67,60)
+201974
+"TEMP","DATANT",50.67,61)
+201975^3130912.063027^.01^358^A
+"TEMP","DATANT",50.67,62)
+201975
+"TEMP","DATANT",50.67,63)
+201976^3130912.063027^.01^358^A
+"TEMP","DATANT",50.67,64)
+201976
+"TEMP","DATANT",50.67,65)
+201977^3130912.063027^.01^358^A
+"TEMP","DATANT",50.67,66)
+201977
+"TEMP","DATANT",50.67,67)
+201978^3130912.063028^.01^358^A
+"TEMP","DATANT",50.67,68)
+201978
+"TEMP","DATANT",50.67,69)
+201979^3130912.063029^.01^358^A
+"TEMP","DATANT",50.67,70)
+201979
+"TEMP","DATANT",50.67,71)
+201980^3130912.063029^.01^358^A
+"TEMP","DATANT",50.67,72)
+201980
+"TEMP","DATANT",50.67,73)
+201981^3130912.063029^.01^358^A
+"TEMP","DATANT",50.67,74)
+201981
+"TEMP","DATANT",50.67,75)
+201982^3130912.063031^.01^358^A
+"TEMP","DATANT",50.67,76)
+201982
+"TEMP","DATANT",50.67,77)
+201983^3130912.063032^.01^358^A
+"TEMP","DATANT",50.67,78)
+201983
+"TEMP","DATANT",50.67,79)
+201984^3130912.063033^.01^358^A
+"TEMP","DATANT",50.67,80)
+201984
+"TEMP","DATANT",50.67,81)
+201985^3130912.071921^.01^358^A
+"TEMP","DATANT",50.67,82)
+201985
+"TEMP","DATANT",50.67,83)
+201986^3130912.071922^.01^358^A
+"TEMP","DATANT",50.67,84)
+201986
+"TEMP","DATANT",50.67,85)
+201987^3130912.071922^.01^358^A
+"TEMP","DATANT",50.67,86)
+201987
+"TEMP","DATANT",50.67,87)
+201988^3130912.071923^.01^358^A
+"TEMP","DATANT",50.67,88)
+201988
+"TEMP","DATANT",50.67,89)
+201989^3130912.072018^.01^358^A
+"TEMP","DATANT",50.67,90)
+201989
+"TEMP","DATANT",50.67,91)
+201990^3130912.072019^.01^358^A
+"TEMP","DATANT",50.67,92)
+201990
+"TEMP","DATANT",50.67,93)
+201991^3130912.072614^.01^358^A
+"TEMP","DATANT",50.67,94)
+201991
+"TEMP","DATANT",50.67,95)
+201992^3130912.072614^.01^358^A
+"TEMP","DATANT",50.67,96)
+201992
+"TEMP","DATANT",50.67,97)
+201993^3130912.072644^.01^358^A
+"TEMP","DATANT",50.67,98)
+201993
+"TEMP","DATANT",50.67,99)
+201994^3130912.072645^.01^358^A
+"TEMP","DATANT",50.67,100)
+201994
+"TEMP","DATANT",50.67,101)
+201995^3130912.073434^.01^358^A
+"TEMP","DATANT",50.67,102)
+201995
+"TEMP","DATANT",50.67,103)
+201996^3130912.073501^.01^358^A
+"TEMP","DATANT",50.67,104)
+201996
+"TEMP","DATANT",50.67,105)
+201997^3130912.073503^.01^358^A
+"TEMP","DATANT",50.67,106)
+201997
+"TEMP","DATANT",50.67,107)
+201998^3130912.073524^.01^358^A
+"TEMP","DATANT",50.67,108)
+201998
+"TEMP","DATANT",50.67,109)
+201999^3130912.073603^.01^358^A
+"TEMP","DATANT",50.67,110)
+201999
+"TEMP","DATANT",50.67,111)
+202000^3130912.073604^.01^358^A
+"TEMP","DATANT",50.67,112)
+202000
+"TEMP","DATANT",50.67,113)
+202001^3130912.073604^.01^358^A
+"TEMP","DATANT",50.67,114)
+202001
+"TEMP","DATANT",50.67,115)
+202002^3130912.073605^.01^358^A
+"TEMP","DATANT",50.67,116)
+202002
+"TEMP","DATANT",50.67,117)
+202003^3130912.073628^.01^358^A
+"TEMP","DATANT",50.67,118)
+202003
+"TEMP","DATANT",50.67,119)
+202004^3130912.073825^.01^358^A
+"TEMP","DATANT",50.67,120)
+202004
+"TEMP","DATANT",50.67,121)
+202005^3130912.073826^.01^358^A
+"TEMP","DATANT",50.67,122)
+202005
+"TEMP","DATANT",50.67,123)
+202006^3130912.073826^.01^358^A
+"TEMP","DATANT",50.67,124)
+202006
+"TEMP","DATANT",50.67,125)
+202007^3130912.073827^.01^358^A
+"TEMP","DATANT",50.67,126)
+202007
+"TEMP","DATANT",50.67,127)
+202008^3130912.073911^.01^358^A
+"TEMP","DATANT",50.67,128)
+202008
+"TEMP","DATANT",50.67,129)
+202009^3130912.073912^.01^358^A
+"TEMP","DATANT",50.67,130)
+202009
+"TEMP","DATANT",50.67,131)
+202010^3130912.073912^.01^358^A
+"TEMP","DATANT",50.67,132)
+202010
+"TEMP","DATANT",50.67,133)
+202011^3130912.073913^.01^358^A
+"TEMP","DATANT",50.67,134)
+202011
+"TEMP","DATANT",50.67,135)
+202012^3130912.073914^.01^358^A
+"TEMP","DATANT",50.67,136)
+202012
+"TEMP","DATANT",50.67,137)
+202013^3130912.073915^.01^358^A
+"TEMP","DATANT",50.67,138)
+202013
+"TEMP","DATANT",50.67,139)
+202014^3130912.073916^.01^358^A
+"TEMP","DATANT",50.67,140)
+202014
+"TEMP","DATANT",50.67,141)
+202015^3130912.073916^.01^358^A
+"TEMP","DATANT",50.67,142)
+202015
+"TEMP","DATANT",50.67,143)
+202016^3130912.074008^.01^358^A
+"TEMP","DATANT",50.67,144)
+202016
+"TEMP","DATANT",50.67,145)
+202017^3130912.074703^.01^358^A
+"TEMP","DATANT",50.67,146)
+202017
+"TEMP","DATANT",50.67,147)
+202018^3130912.074737^.01^358^A
+"TEMP","DATANT",50.67,148)
+202018
+"TEMP","DATANT",50.67,149)
+202019^3130912.074737^.01^358^A
+"TEMP","DATANT",50.67,150)
+202019
+"TEMP","DATANT",50.67,151)
+202020^3130912.074802^.01^358^A
+"TEMP","DATANT",50.67,152)
+202020
+"TEMP","DATANT",50.67,153)
+202021^3130912.074829^.01^358^A
+"TEMP","DATANT",50.67,154)
+202021
+"TEMP","DATANT",50.67,155)
+202022^3130912.07483^.01^358^A
+"TEMP","DATANT",50.67,156)
+202022
+"TEMP","DATANT",50.67,157)
+202023^3130912.0749^.01^358^A
+"TEMP","DATANT",50.67,158)
+202023
+"TEMP","DATANT",50.67,159)
+202024^3130912.074901^.01^358^A
+"TEMP","DATANT",50.67,160)
+202024
+"TEMP","DATANT",50.67,161)
+202025^3130912.074938^.01^358^A
+"TEMP","DATANT",50.67,162)
+202025
+"TEMP","DATANT",50.67,163)
+202026^3130912.075033^.01^358^A
+"TEMP","DATANT",50.67,164)
+202026
+"TEMP","DATANT",50.67,165)
+202027^3130912.075034^.01^358^A
+"TEMP","DATANT",50.67,166)
+202027
+"TEMP","DATANT",50.67,167)
+202028^3130912.075058^.01^358^A
+"TEMP","DATANT",50.67,168)
+202028
+"TEMP","DATANT",50.67,169)
+202029^3130912.075136^.01^358^A
+"TEMP","DATANT",50.67,170)
+202029
+"TEMP","DATANT",50.67,171)
+202030^3130912.075351^.01^358^A
+"TEMP","DATANT",50.67,172)
+202030
+"TEMP","DATANT",50.67,173)
+202031^3130912.075454^.01^358^A
+"TEMP","DATANT",50.67,174)
+202031
+"TEMP","DATANT",50.67,175)
+202032^3130912.075518^.01^358^A
+"TEMP","DATANT",50.67,176)
+202032
+"TEMP","DATANT",50.67,177)
+202033^3130912.075518^.01^358^A
+"TEMP","DATANT",50.67,178)
+202033
+"TEMP","DATANT",50.67,179)
+202034^3130912.07554^.01^358^A
+"TEMP","DATANT",50.67,180)
+202034
+"TEMP","DATANT",50.67,181)
+202035^3130912.075541^.01^358^A
+"TEMP","DATANT",50.67,182)
+202035
+"TEMP","DATANT",50.67,183)
+202036^3130912.075607^.01^358^A
+"TEMP","DATANT",50.67,184)
+202036
+"TEMP","DATANT",50.67,185)
+202037^3130912.075607^.01^358^A
+"TEMP","DATANT",50.67,186)
+202037
+"TEMP","DATANT",50.67,187)
+202038^3130912.075707^.01^358^A
+"TEMP","DATANT",50.67,188)
+202038
+"TEMP","DATANT",50.67,189)
+202039^3130912.075707^.01^358^A
+"TEMP","DATANT",50.67,190)
+202039
+"TEMP","DATANT",50.67,191)
+202040^3130912.075707^.01^358^A
+"TEMP","DATANT",50.67,192)
+202040
+"TEMP","DATANT",50.67,193)
+202041^3130912.075708^.01^358^A
+"TEMP","DATANT",50.67,194)
+202041
+"TEMP","DATANT",50.67,195)
+202042^3130912.075728^.01^358^A
+"TEMP","DATANT",50.67,196)
+202042
+"TEMP","DATANT",50.67,197)
+202043^3130912.075747^.01^358^A
+"TEMP","DATANT",50.67,198)
+202043
+"TEMP","DATANT",50.67,199)
+202044^3130912.075857^.01^358^A
+"TEMP","DATANT",50.67,200)
+202044
+"TEMP","DATANT",50.67,201)
+202045^3130912.075857^.01^358^A
+"TEMP","DATANT",50.67,202)
+202045
+"TEMP","DATANT",50.67,203)
+202046^3130912.082851^.01^358^A
+"TEMP","DATANT",50.67,204)
+202046
+"TEMP","DATANT",50.67,205)
+202047^3130912.082936^.01^358^A
+"TEMP","DATANT",50.67,206)
+202047
+"TEMP","DATANT",50.67,207)
+202048^3130912.082937^.01^358^A
+"TEMP","DATANT",50.67,208)
+202048
+"TEMP","DATANT",50.67,209)
+202049^3130912.082958^.01^358^A
+"TEMP","DATANT",50.67,210)
+202049
+"TEMP","DATANT",50.67,211)
+202050^3130912.083019^.01^358^A
+"TEMP","DATANT",50.67,212)
+202050
+"TEMP","DATANT",50.67,213)
+202051^3130912.08302^.01^358^A
+"TEMP","DATANT",50.67,214)
+202051
+"TEMP","DATANT",50.67,215)
+202052^3130912.083051^.01^358^A
+"TEMP","DATANT",50.67,216)
+202052
+"TEMP","DATANT",50.67,217)
+202053^3130912.083335^.01^358^A
+"TEMP","DATANT",50.67,218)
+202053
+"TEMP","DATANT",50.67,219)
+202054^3130912.084125^.01^358^A
+"TEMP","DATANT",50.67,220)
+202054
+"TEMP","DATANT",50.67,221)
+202055^3130912.084126^.01^358^A
+"TEMP","DATANT",50.67,222)
+202055
+"TEMP","DATANT",50.67,223)
+202056^3130912.084126^.01^358^A
+"TEMP","DATANT",50.67,224)
+202056
+"TEMP","DATANT",50.67,225)
+202057^3130912.084126^.01^358^A
+"TEMP","DATANT",50.67,226)
+202057
+"TEMP","DATANT",50.67,227)
+202058^3130912.090003^.01^358^A
+"TEMP","DATANT",50.67,228)
+202058
+"TEMP","DATANT",50.67,229)
+202059^3130912.091656^.01^358^A
+"TEMP","DATANT",50.67,230)
+202059
+"TEMP","DATANT",50.67,231)
+202060^3130912.121332^.01^358^A
+"TEMP","DATANT",50.67,232)
+202060
+"TEMP","DATANT",50.67,233)
+202061^3130912.12145^.01^358^A
+"TEMP","DATANT",50.67,234)
+202061
+"TEMP","DATANT",50.67,235)
+202062^3130913.150236^.01^358^A
+"TEMP","DATANT",50.67,236)
+202062
+"TEMP","DATANT",50.67,237)
+202063^3130913.150654^.01^358^A
+"TEMP","DATANT",50.67,238)
+202063
+"TEMP","DATANT",50.67,239)
+202064^3130913.150656^.01^358^A
+"TEMP","DATANT",50.67,240)
+202064
+"TEMP","DATANT",50.67,241)
+202065^3130913.151105^.01^358^A
+"TEMP","DATANT",50.67,242)
+202065
+"TEMP","DATANT",50.67,243)
+202066^3130916.081459^.01^358^A
+"TEMP","DATANT",50.67,244)
+202066
+"TEMP","DATANT",50.67,245)
+202067^3130917.100224^.01^358^A
+"TEMP","DATANT",50.67,246)
+202067
+"TEMP","DATANT",50.67,247)
+202068^3130917.100542^.01^358^A
+"TEMP","DATANT",50.67,248)
+202068
+"TEMP","DATANT",50.67,249)
+202069^3130917.100806^.01^358^A
+"TEMP","DATANT",50.67,250)
+202069
+"TEMP","DATANT",50.67,251)
+202070^3130917.100811^.01^358^A
+"TEMP","DATANT",50.67,252)
+202070
+"TEMP","DATANT",50.67,253)
+202071^3130917.101027^.01^358^A
+"TEMP","DATANT",50.67,254)
+202071
+"TEMP","DATANT",50.67,255)
+202072^3130917.102806^.01^358^A
+"TEMP","DATANT",50.67,256)
+202072
+"TEMP","DATANT",50.67,257)
+202073^3130917.102806^.01^358^A
+"TEMP","DATANT",50.67,258)
+202073
+"TEMP","DATANT",50.67,259)
+202074^3130917.121658^.01^358^A
+"TEMP","DATANT",50.67,260)
+202074
+"TEMP","DATANT",50.67,261)
+202075^3130917.1217^.01^358^A
+"TEMP","DATANT",50.67,262)
+202075
+"TEMP","DATANT",50.67,263)
+202076^3130917.16112^.01^358^A
+"TEMP","DATANT",50.67,264)
+202076
+"TEMP","DATANT",50.67,265)
+202077^3130917.16151^.01^358^A
+"TEMP","DATANT",50.67,266)
+202077
+"TEMP","DATANT",50.67,267)
+202078^3130917.161512^.01^358^A
+"TEMP","DATANT",50.67,268)
+202078
+"TEMP","DATANT",50.67,269)
+202079^3130918.073613^.01^358^A
+"TEMP","DATANT",50.67,270)
+202079
+"TEMP","DATANT",50.67,271)
+202080^3130918.073711^.01^358^A
+"TEMP","DATANT",50.67,272)
+202080
+"TEMP","DATANT",50.67,273)
+202081^3130918.073809^.01^358^A
+"TEMP","DATANT",50.67,274)
+202081
+"TEMP","DATANT",50.67,275)
+202082^3130918.08223^.01^358^A
+"TEMP","DATANT",50.67,276)
+202082
+"TEMP","DATANT",50.67,277)
+202083^3130918.091812^.01^358^A
+"TEMP","DATANT",50.67,278)
+202083
+"TEMP","DATANT",50.67,279)
+202084^3130918.09195^.01^358^A
+"TEMP","DATANT",50.67,280)
+202084
+"TEMP","DATANT",50.67,281)
+202085^3130918.09242^.01^358^A
+"TEMP","DATANT",50.67,282)
+202085
+"TEMP","DATANT",50.67,283)
+202086^3130918.092802^.01^358^A
+"TEMP","DATANT",50.67,284)
+202086
+"TEMP","DATANT",50.67,285)
+202087^3130919.063004^.01^358^A
+"TEMP","DATANT",50.67,286)
+202087
+"TEMP","DATANT",50.67,287)
+202088^3130919.063005^.01^358^A
+"TEMP","DATANT",50.67,288)
+202088
+"TEMP","DATANT",50.67,289)
+202089^3130919.063005^.01^358^A
+"TEMP","DATANT",50.67,290)
+202089
+"TEMP","DATANT",50.67,291)
+202090^3130919.063011^.01^358^A
+"TEMP","DATANT",50.67,292)
+202090
+"TEMP","DATANT",50.67,293)
+202091^3130919.063011^.01^358^A
+"TEMP","DATANT",50.67,294)
+202091
+"TEMP","DATANT",50.67,295)
+202092^3130919.063012^.01^358^A
+"TEMP","DATANT",50.67,296)
+202092
+"TEMP","DATANT",50.67,297)
+202093^3130919.063012^.01^358^A
+"TEMP","DATANT",50.67,298)
+202093
+"TEMP","DATANT",50.67,299)
+202094^3130919.063013^.01^358^A
+"TEMP","DATANT",50.67,300)
+202094
+"TEMP","DATANT",50.67,301)
+202095^3130919.063013^.01^358^A
+"TEMP","DATANT",50.67,302)
+202095
+"TEMP","DATANT",50.67,303)
+202096^3130919.063013^.01^358^A
+"TEMP","DATANT",50.67,304)
+202096
+"TEMP","DATANT",50.67,305)
+202097^3130919.063014^.01^358^A
+"TEMP","DATANT",50.67,306)
+202097
+"TEMP","DATANT",50.67,307)
+202098^3130919.063014^.01^358^A
+"TEMP","DATANT",50.67,308)
+202098
+"TEMP","DATANT",50.67,309)
+202099^3130919.063016^.01^358^A
+"TEMP","DATANT",50.67,310)
+202099
+"TEMP","DATANT",50.67,311)
+202100^3130919.063016^.01^358^A
+"TEMP","DATANT",50.67,312)
+202100
+"TEMP","DATANT",50.67,313)
+202101^3130919.063018^.01^358^A
+"TEMP","DATANT",50.67,314)
+202101
+"TEMP","DATANT",50.67,315)
+202102^3130919.063019^.01^358^A
+"TEMP","DATANT",50.67,316)
+202102
+"TEMP","DATANT",50.67,317)
+202103^3130919.06302^.01^358^A
+"TEMP","DATANT",50.67,318)
+202103
+"TEMP","DATANT",50.67,319)
+202104^3130919.063021^.01^358^A
+"TEMP","DATANT",50.67,320)
+202104
+"TEMP","DATANT",50.67,321)
+202105^3130919.063021^.01^358^A
+"TEMP","DATANT",50.67,322)
+202105
+"TEMP","DATANT",50.67,323)
+202106^3130919.063021^.01^358^A
+"TEMP","DATANT",50.67,324)
+202106
+"TEMP","DATANT",50.67,325)
+202107^3130919.063022^.01^358^A
+"TEMP","DATANT",50.67,326)
+202107
+"TEMP","DATANT",50.67,327)
+202108^3130919.063022^.01^358^A
+"TEMP","DATANT",50.67,328)
+202108
+"TEMP","DATANT",50.67,329)
+202109^3130919.063023^.01^358^A
+"TEMP","DATANT",50.67,330)
+202109
+"TEMP","DATANT",50.67,331)
+202110^3130919.063023^.01^358^A
+"TEMP","DATANT",50.67,332)
+202110
+"TEMP","DATANT",50.67,333)
+202111^3130919.063024^.01^358^A
+"TEMP","DATANT",50.67,334)
+202111
+"TEMP","DATANT",50.67,335)
+202112^3130919.063024^.01^358^A
+"TEMP","DATANT",50.67,336)
+202112
+"TEMP","DATANT",50.67,337)
+202113^3130919.063025^.01^358^A
+"TEMP","DATANT",50.67,338)
+202113
+"TEMP","DATANT",50.67,339)
+202114^3130919.063026^.01^358^A
+"TEMP","DATANT",50.67,340)
+202114
+"TEMP","DATANT",50.67,341)
+202115^3130919.063026^.01^358^A
+"TEMP","DATANT",50.67,342)
+202115
+"TEMP","DATANT",50.67,343)
+202116^3130919.063026^.01^358^A
+"TEMP","DATANT",50.67,344)
+202116
+"TEMP","DATANT",50.67,345)
+202117^3130919.063027^.01^358^A
+"TEMP","DATANT",50.67,346)
+202117
+"TEMP","DATANT",50.67,347)
+202118^3130919.063027^.01^358^A
+"TEMP","DATANT",50.67,348)
+202118
+"TEMP","DATANT",50.67,349)
+202119^3130919.063029^.01^358^A
+"TEMP","DATANT",50.67,350)
+202119
+"TEMP","DATANT",50.67,351)
+202120^3130919.063029^.01^358^A
+"TEMP","DATANT",50.67,352)
+202120
+"TEMP","DATANT",50.67,353)
+202121^3130919.063031^.01^358^A
+"TEMP","DATANT",50.67,354)
+202121
+"TEMP","DATANT",50.67,355)
+202122^3130919.063031^.01^358^A
+"TEMP","DATANT",50.67,356)
+202122
+"TEMP","DATANT",50.67,357)
+202123^3130919.063031^.01^358^A
+"TEMP","DATANT",50.67,358)
+202123
+"TEMP","DATANT",50.67,359)
+202124^3130919.063032^.01^358^A
+"TEMP","DATANT",50.67,360)
+202124
+"TEMP","DATANT",50.67,361)
+202125^3130919.063032^.01^358^A
+"TEMP","DATANT",50.67,362)
+202125
+"TEMP","DATANT",50.67,363)
+202126^3130919.063034^.01^358^A
+"TEMP","DATANT",50.67,364)
+202126
+"TEMP","DATANT",50.67,365)
+202127^3130919.063034^.01^358^A
+"TEMP","DATANT",50.67,366)
+202127
+"TEMP","DATANT",50.67,367)
+202128^3130919.063034^.01^358^A
+"TEMP","DATANT",50.67,368)
+202128
+"TEMP","DATANT",50.67,369)
+202129^3130919.063035^.01^358^A
+"TEMP","DATANT",50.67,370)
+202129
+"TEMP","DATANT",50.67,371)
+202130^3130919.063035^.01^358^A
+"TEMP","DATANT",50.67,372)
+202130
+"TEMP","DATANT",50.67,373)
+202131^3130919.063035^.01^358^A
+"TEMP","DATANT",50.67,374)
+202131
+"TEMP","DATANT",50.67,375)
+202132^3130919.063036^.01^358^A
+"TEMP","DATANT",50.67,376)
+202132
+"TEMP","DATANT",50.67,377)
+202133^3130919.063036^.01^358^A
+"TEMP","DATANT",50.67,378)
+202133
+"TEMP","DATANT",50.67,379)
+202134^3130919.063036^.01^358^A
+"TEMP","DATANT",50.67,380)
+202134
+"TEMP","DATANT",50.67,381)
+202135^3130919.063037^.01^358^A
+"TEMP","DATANT",50.67,382)
+202135
+"TEMP","DATANT",50.67,383)
+202136^3130919.063037^.01^358^A
+"TEMP","DATANT",50.67,384)
+202136
+"TEMP","DATANT",50.67,385)
+202137^3130919.063038^.01^358^A
+"TEMP","DATANT",50.67,386)
+202137
+"TEMP","DATANT",50.67,387)
+202138^3130919.063038^.01^358^A
+"TEMP","DATANT",50.67,388)
+202138
+"TEMP","DATANT",50.67,389)
+202139^3130919.063039^.01^358^A
+"TEMP","DATANT",50.67,390)
+202139
+"TEMP","DATANT",50.67,391)
+202140^3130919.063039^.01^358^A
+"TEMP","DATANT",50.67,392)
+202140
+"TEMP","DATANT",50.67,393)
+202141^3130919.06304^.01^358^A
+"TEMP","DATANT",50.67,394)
+202141
+"TEMP","DATANT",50.67,395)
+202142^3130919.06304^.01^358^A
+"TEMP","DATANT",50.67,396)
+202142
+"TEMP","DATANT",50.67,397)
+202143^3130919.06304^.01^358^A
+"TEMP","DATANT",50.67,398)
+202143
+"TEMP","DATANT",50.67,399)
+202144^3130919.063041^.01^358^A
+"TEMP","DATANT",50.67,400)
+202144
+"TEMP","DATANT",50.67,401)
+202145^3130919.063041^.01^358^A
+"TEMP","DATANT",50.67,402)
+202145
+"TEMP","DATANT",50.67,403)
+202146^3130919.063041^.01^358^A
+"TEMP","DATANT",50.67,404)
+202146
+"TEMP","DATANT",50.67,405)
+202147^3130919.063041^.01^358^A
+"TEMP","DATANT",50.67,406)
+202147
+"TEMP","DATANT",50.67,407)
+202148^3130919.063042^.01^358^A
+"TEMP","DATANT",50.67,408)
+202148
+"TEMP","DATANT",50.67,409)
+202149^3130919.063042^.01^358^A
+"TEMP","DATANT",50.67,410)
+202149
+"TEMP","DATANT",50.67,411)
+202150^3130919.063043^.01^358^A
+"TEMP","DATANT",50.67,412)
+202150
+"TEMP","DATANT",50.67,413)
+202151^3130919.063043^.01^358^A
+"TEMP","DATANT",50.67,414)
+202151
+"TEMP","DATANT",50.67,415)
+202152^3130919.063044^.01^358^A
+"TEMP","DATANT",50.67,416)
+202152
+"TEMP","DATANT",50.67,417)
+202153^3130919.063044^.01^358^A
+"TEMP","DATANT",50.67,418)
+202153
+"TEMP","DATANT",50.67,419)
+202154^3130919.063044^.01^358^A
+"TEMP","DATANT",50.67,420)
+202154
+"TEMP","DATANT",50.67,421)
+202155^3130919.063045^.01^358^A
+"TEMP","DATANT",50.67,422)
+202155
+"TEMP","DATANT",50.67,423)
+202156^3130919.063045^.01^358^A
+"TEMP","DATANT",50.67,424)
+202156
+"TEMP","DATANT",50.67,425)
+202157^3130919.063046^.01^358^A
+"TEMP","DATANT",50.67,426)
+202157
+"TEMP","DATANT",50.67,427)
+202158^3130919.063046^.01^358^A
+"TEMP","DATANT",50.67,428)
+202158
+"TEMP","DATANT",50.67,429)
+202159^3130919.063046^.01^358^A
+"TEMP","DATANT",50.67,430)
+202159
+"TEMP","DATANT",50.67,431)
+202160^3130919.063048^.01^358^A
+"TEMP","DATANT",50.67,432)
+202160
+"TEMP","DATANT",50.67,433)
+202161^3130919.063049^.01^358^A
+"TEMP","DATANT",50.67,434)
+202161
+"TEMP","DATANT",50.67,435)
+202162^3130919.06305^.01^358^A
+"TEMP","DATANT",50.67,436)
+202162
+"TEMP","DATANT",50.67,437)
+202163^3130919.063051^.01^358^A
+"TEMP","DATANT",50.67,438)
+202163
+"TEMP","DATANT",50.67,439)
+202164^3130919.063051^.01^358^A
+"TEMP","DATANT",50.67,440)
+202164
+"TEMP","DATANT",50.67,441)
+202165^3130919.063051^.01^358^A
+"TEMP","DATANT",50.67,442)
+202165
+"TEMP","DATANT",50.67,443)
+202166^3130919.063051^.01^358^A
+"TEMP","DATANT",50.67,444)
+202166
+"TEMP","DATANT",50.67,445)
+202167^3130919.071527^.01^358^A
+"TEMP","DATANT",50.67,446)
+202167
+"TEMP","DATANT",50.67,447)
+202168^3130919.071652^.01^358^A
+"TEMP","DATANT",50.67,448)
+202168
+"TEMP","DATANT",50.67,449)
+202169^3130919.071653^.01^358^A
+"TEMP","DATANT",50.67,450)
+202169
+"TEMP","DATANT",50.67,451)
+202170^3130919.071653^.01^358^A
+"TEMP","DATANT",50.67,452)
+202170
+"TEMP","DATANT",50.67,453)
+202171^3130919.071727^.01^358^A
+"TEMP","DATANT",50.67,454)
+202171
+"TEMP","DATANT",50.67,455)
+202172^3130919.071727^.01^358^A
+"TEMP","DATANT",50.67,456)
+202172
+"TEMP","DATANT",50.67,457)
+202173^3130919.071801^.01^358^A
+"TEMP","DATANT",50.67,458)
+202173
+"TEMP","DATANT",50.67,459)
+202174^3130919.071801^.01^358^A
+"TEMP","DATANT",50.67,460)
+202174
+"TEMP","DATANT",50.67,461)
+202175^3130919.071825^.01^358^A
+"TEMP","DATANT",50.67,462)
+202175
+"TEMP","DATANT",50.67,463)
+202176^3130919.071847^.01^358^A
+"TEMP","DATANT",50.67,464)
+202176
+"TEMP","DATANT",50.67,465)
+202177^3130919.071919^.01^358^A
+"TEMP","DATANT",50.67,466)
+202177
+"TEMP","DATANT",50.67,467)
+202178^3130919.072007^.01^358^A
+"TEMP","DATANT",50.67,468)
+202178
+"TEMP","DATANT",50.67,469)
+202179^3130919.072008^.01^358^A
+"TEMP","DATANT",50.67,470)
+202179
+"TEMP","DATANT",50.67,471)
+202180^3130919.072008^.01^358^A
+"TEMP","DATANT",50.67,472)
+202180
+"TEMP","DATANT",50.67,473)
+202181^3130919.072039^.01^358^A
+"TEMP","DATANT",50.67,474)
+202181
+"TEMP","DATANT",50.67,475)
+202182^3130919.072103^.01^358^A
+"TEMP","DATANT",50.67,476)
+202182
+"TEMP","DATANT",50.67,477)
+202183^3130919.072129^.01^358^A
+"TEMP","DATANT",50.67,478)
+202183
+"TEMP","DATANT",50.67,479)
+202184^3130919.07213^.01^358^A
+"TEMP","DATANT",50.67,480)
+202184
+"TEMP","DATANT",50.67,481)
+202185^3130919.072154^.01^358^A
+"TEMP","DATANT",50.67,482)
+202185
+"TEMP","DATANT",50.67,483)
+202186^3130919.072155^.01^358^A
+"TEMP","DATANT",50.67,484)
+202186
+"TEMP","DATANT",50.67,485)
+202187^3130919.072155^.01^358^A
+"TEMP","DATANT",50.67,486)
+202187
+"TEMP","DATANT",50.67,487)
+202188^3130919.072218^.01^358^A
+"TEMP","DATANT",50.67,488)
+202188
+"TEMP","DATANT",50.67,489)
+202189^3130919.072219^.01^358^A
+"TEMP","DATANT",50.67,490)
+202189
+"TEMP","DATANT",50.67,491)
+202190^3130919.07224^.01^358^A
+"TEMP","DATANT",50.67,492)
+202190
+"TEMP","DATANT",50.67,493)
+202191^3130919.07224^.01^358^A
+"TEMP","DATANT",50.67,494)
+202191
+"TEMP","DATANT",50.67,495)
+202192^3130919.072301^.01^358^A
+"TEMP","DATANT",50.67,496)
+202192
+"TEMP","DATANT",50.67,497)
+202193^3130919.072322^.01^358^A
+"TEMP","DATANT",50.67,498)
+202193
+"TEMP","DATANT",50.67,499)
+202194^3130919.074618^.01^358^A
+"TEMP","DATANT",50.67,500)
+202194
+"TEMP","DATANT",50.67,501)
+202195^3130919.074755^.01^358^A
+"TEMP","DATANT",50.67,502)
+202195
+"TEMP","DATANT",50.67,503)
+202196^3130919.075033^.01^358^A
+"TEMP","DATANT",50.67,504)
+202196
+"TEMP","DATANT",50.67,505)
+202197^3130919.075104^.01^358^A
+"TEMP","DATANT",50.67,506)
+202197
+"TEMP","DATANT",50.67,507)
+202198^3130919.075142^.01^358^A
+"TEMP","DATANT",50.67,508)
+202198
+"TEMP","DATANT",50.67,509)
+202199^3130919.075243^.01^358^A
+"TEMP","DATANT",50.67,510)
+202199
+"TEMP","DATANT",50.67,511)
+202200^3130919.075244^.01^358^A
+"TEMP","DATANT",50.67,512)
+202200
+"TEMP","DATANT",50.67,513)
+202201^3130919.080138^.01^358^A
+"TEMP","DATANT",50.67,514)
+202201
+"TEMP","DATANT",50.67,515)
+202202^3130919.080138^.01^358^A
+"TEMP","DATANT",50.67,516)
+202202
+"TEMP","DATANT",50.67,517)
+202203^3130919.083137^.01^358^A
+"TEMP","DATANT",50.67,518)
+202203
+"TEMP","DATANT",50.67,519)
+202204^3130919.083137^.01^358^A
+"TEMP","DATANT",50.67,520)
+202204
+"TEMP","DATANT",50.67,521)
+202205^3130919.112423^.01^358^A
+"TEMP","DATANT",50.67,522)
+202205
+"TEMP","DATANT",50.67,523)
+202206^3130919.112742^.01^358^A
+"TEMP","DATANT",50.67,524)
+202206
+"TEMP","DATANT",50.67,525)
+202207^3130919.131051^.01^358^A
+"TEMP","DATANT",50.67,526)
+202207
+"TEMP","DATANT",50.67,527)
+202208^3130919.131053^.01^358^A
+"TEMP","DATANT",50.67,528)
+202208
+"TEMP","DATANT",50.67,529)
+202209^3130920.115726^.01^358^A
+"TEMP","DATANT",50.67,530)
+202209
+"TEMP","DATANT",50.67,531)
+202210^3130920.144458^.01^358^A
+"TEMP","DATANT",50.67,532)
+202210
+"TEMP","DATANT",50.67,533)
+202211^3130920.150357^.01^358^A
+"TEMP","DATANT",50.67,534)
+202211
+"TEMP","DATANT",50.67,535)
+202212^3130923.154701^.01^358^A
+"TEMP","DATANT",50.67,536)
+202212
+"TEMP","DATANT",50.67,537)
+202213^3130924.095926^.01^358^A
+"TEMP","DATANT",50.67,538)
+202213
+"TEMP","DATANT",50.67,539)
+202214^3130924.100033^.01^358^A
+"TEMP","DATANT",50.67,540)
+202214
+"TEMP","DATANT",50.67,541)
+202215^3130924.100247^.01^358^A
+"TEMP","DATANT",50.67,542)
+202215
+"TEMP","DATANT",50.67,543)
+202216^3130924.100355^.01^358^A
+"TEMP","DATANT",50.67,544)
+202216
+"TEMP","DATANT",50.67,545)
+202217^3130924.104118^.01^358^A
+"TEMP","DATANT",50.67,546)
+202217
+"TEMP","DATANT",50.67,547)
+202218^3130925.154509^.01^358^A
+"TEMP","DATANT",50.67,548)
+202218
+"TEMP","DATANT",50.67,549)
+202219^3130926.063^.01^358^A
+"TEMP","DATANT",50.67,550)
+202219
+"TEMP","DATANT",50.67,551)
+202220^3130926.063002^.01^358^A
+"TEMP","DATANT",50.67,552)
+202220
+"TEMP","DATANT",50.67,553)
+202221^3130926.063003^.01^358^A
+"TEMP","DATANT",50.67,554)
+202221
+"TEMP","DATANT",50.67,555)
+202222^3130926.063003^.01^358^A
+"TEMP","DATANT",50.67,556)
+202222
+"TEMP","DATANT",50.67,557)
+202223^3130926.063003^.01^358^A
+"TEMP","DATANT",50.67,558)
+202223
+"TEMP","DATANT",50.67,559)
+202224^3130926.063004^.01^358^A
+"TEMP","DATANT",50.67,560)
+202224
+"TEMP","DATANT",50.67,561)
+202225^3130926.063005^.01^358^A
+"TEMP","DATANT",50.67,562)
+202225
+"TEMP","DATANT",50.67,563)
+202226^3130926.063005^.01^358^A
+"TEMP","DATANT",50.67,564)
+202226
+"TEMP","DATANT",50.67,565)
+202227^3130926.063005^.01^358^A
+"TEMP","DATANT",50.67,566)
+202227
+"TEMP","DATANT",50.67,567)
+202228^3130926.063006^.01^358^A
+"TEMP","DATANT",50.67,568)
+202228
+"TEMP","DATANT",50.67,569)
+202229^3130926.063006^.01^358^A
+"TEMP","DATANT",50.67,570)
+202229
+"TEMP","DATANT",50.67,571)
+202230^3130926.063007^.01^358^A
+"TEMP","DATANT",50.67,572)
+202230
+"TEMP","DATANT",50.67,573)
+202231^3130926.063007^.01^358^A
+"TEMP","DATANT",50.67,574)
+202231
+"TEMP","DATANT",50.67,575)
+202232^3130926.063008^.01^358^A
+"TEMP","DATANT",50.67,576)
+202232
+"TEMP","DATANT",50.67,577)
+202233^3130926.063008^.01^358^A
+"TEMP","DATANT",50.67,578)
+202233
+"TEMP","DATANT",50.67,579)
+202234^3130926.063009^.01^358^A
+"TEMP","DATANT",50.67,580)
+202234
+"TEMP","DATANT",50.67,581)
+202235^3130926.063009^.01^358^A
+"TEMP","DATANT",50.67,582)
+202235
+"TEMP","DATANT",50.67,583)
+202236^3130926.063009^.01^358^A
+"TEMP","DATANT",50.67,584)
+202236
+"TEMP","DATANT",50.67,585)
+202237^3130926.06301^.01^358^A
+"TEMP","DATANT",50.67,586)
+202237
+"TEMP","DATANT",50.67,587)
+202238^3130926.063011^.01^358^A
+"TEMP","DATANT",50.67,588)
+202238
+"TEMP","DATANT",50.67,589)
+202239^3130926.063011^.01^358^A
+"TEMP","DATANT",50.67,590)
+202239
+"TEMP","DATANT",50.67,591)
+202240^3130926.063012^.01^358^A
+"TEMP","DATANT",50.67,592)
+202240
+"TEMP","DATANT",50.67,593)
+202241^3130926.063012^.01^358^A
+"TEMP","DATANT",50.67,594)
+202241
+"TEMP","DATANT",50.67,595)
+202242^3130926.063013^.01^358^A
+"TEMP","DATANT",50.67,596)
+202242
+"TEMP","DATANT",50.67,597)
+202243^3130926.063013^.01^358^A
+"TEMP","DATANT",50.67,598)
+202243
+"TEMP","DATANT",50.67,599)
+202244^3130926.063013^.01^358^A
+"TEMP","DATANT",50.67,600)
+202244
+"TEMP","DATANT",50.67,601)
+202245^3130926.063014^.01^358^A
+"TEMP","DATANT",50.67,602)
+202245
+"TEMP","DATANT",50.67,603)
+202246^3130926.063014^.01^358^A
+"TEMP","DATANT",50.67,604)
+202246
+"TEMP","DATANT",50.67,605)
+202247^3130926.063015^.01^358^A
+"TEMP","DATANT",50.67,606)
+202247
+"TEMP","DATANT",50.67,607)
+202248^3130926.063015^.01^358^A
+"TEMP","DATANT",50.67,608)
+202248
+"TEMP","DATANT",50.67,609)
+202249^3130926.063017^.01^358^A
+"TEMP","DATANT",50.67,610)
+202249
+"TEMP","DATANT",50.67,611)
+202250^3130926.063018^.01^358^A
+"TEMP","DATANT",50.67,612)
+202250
+"TEMP","DATANT",50.67,613)
+202251^3130926.063018^.01^358^A
+"TEMP","DATANT",50.67,614)
+202251
+"TEMP","DATANT",50.67,615)
+202252^3130926.063018^.01^358^A
+"TEMP","DATANT",50.67,616)
+202252
+"TEMP","DATANT",50.67,617)
+202253^3130926.063019^.01^358^A
+"TEMP","DATANT",50.67,618)
+202253
+"TEMP","DATANT",50.67,619)
+202254^3130926.063019^.01^358^A
+"TEMP","DATANT",50.67,620)
+202254
+"TEMP","DATANT",50.67,621)
+202255^3130926.063019^.01^358^A
+"TEMP","DATANT",50.67,622)
+202255
+"TEMP","DATANT",50.67,623)
+202256^3130926.06302^.01^358^A
+"TEMP","DATANT",50.67,624)
+202256
+"TEMP","DATANT",50.67,625)
+202257^3130926.06302^.01^358^A
+"TEMP","DATANT",50.67,626)
+202257
+"TEMP","DATANT",50.67,627)
+202258^3130926.063021^.01^358^A
+"TEMP","DATANT",50.67,628)
+202258
+"TEMP","DATANT",50.67,629)
+202259^3130926.063021^.01^358^A
+"TEMP","DATANT",50.67,630)
+202259
+"TEMP","DATANT",50.67,631)
+202260^3130926.063021^.01^358^A
+"TEMP","DATANT",50.67,632)
+202260
+"TEMP","DATANT",50.67,633)
+202261^3130926.063024^.01^358^A
+"TEMP","DATANT",50.67,634)
+202261
+"TEMP","DATANT",50.67,635)
+202262^3130926.063024^.01^358^A
+"TEMP","DATANT",50.67,636)
+202262
+"TEMP","DATANT",50.67,637)
+202263^3130926.063024^.01^358^A
+"TEMP","DATANT",50.67,638)
+202263
+"TEMP","DATANT",50.67,639)
+202264^3130926.063025^.01^358^A
+"TEMP","DATANT",50.67,640)
+202264
+"TEMP","DATANT",50.67,641)
+202265^3130926.063026^.01^358^A
+"TEMP","DATANT",50.67,642)
+202265
+"TEMP","DATANT",50.67,643)
+202266^3130926.063026^.01^358^A
+"TEMP","DATANT",50.67,644)
+202266
+"TEMP","DATANT",50.67,645)
+202267^3130926.063026^.01^358^A
+"TEMP","DATANT",50.67,646)
+202267
+"TEMP","DATANT",50.67,647)
+202268^3130926.063027^.01^358^A
+"TEMP","DATANT",50.67,648)
+202268
+"TEMP","DATANT",50.67,649)
+202269^3130926.063027^.01^358^A
+"TEMP","DATANT",50.67,650)
+202269
+"TEMP","DATANT",50.67,651)
+202270^3130926.063027^.01^358^A
+"TEMP","DATANT",50.67,652)
+202270
+"TEMP","DATANT",50.67,653)
+202271^3130926.063031^.01^358^A
+"TEMP","DATANT",50.67,654)
+202271
+"TEMP","DATANT",50.67,655)
+202272^3130926.063031^.01^358^A
+"TEMP","DATANT",50.67,656)
+202272
+"TEMP","DATANT",50.67,657)
+202273^3130926.063031^.01^358^A
+"TEMP","DATANT",50.67,658)
+202273
+"TEMP","DATANT",50.67,659)
+202274^3130926.063033^.01^358^A
+"TEMP","DATANT",50.67,660)
+202274
+"TEMP","DATANT",50.67,661)
+202275^3130926.063033^.01^358^A
+"TEMP","DATANT",50.67,662)
+202275
+"TEMP","DATANT",50.67,663)
+202276^3130926.063034^.01^358^A
+"TEMP","DATANT",50.67,664)
+202276
+"TEMP","DATANT",50.67,665)
+202277^3130926.063035^.01^358^A
+"TEMP","DATANT",50.67,666)
+202277
+"TEMP","DATANT",50.67,667)
+202278^3130926.063035^.01^358^A
+"TEMP","DATANT",50.67,668)
+202278
+"TEMP","DATANT",50.67,669)
+202279^3130926.063035^.01^358^A
+"TEMP","DATANT",50.67,670)
+202279
+"TEMP","DATANT",50.67,671)
+202280^3130926.063037^.01^358^A
+"TEMP","DATANT",50.67,672)
+202280
+"TEMP","DATANT",50.67,673)
+202281^3130926.063038^.01^358^A
+"TEMP","DATANT",50.67,674)
+202281
+"TEMP","DATANT",50.67,675)
+202282^3130926.063039^.01^358^A
+"TEMP","DATANT",50.67,676)
+202282
+"TEMP","DATANT",50.67,677)
+202283^3130926.063039^.01^358^A
+"TEMP","DATANT",50.67,678)
+202283
+"TEMP","DATANT",50.67,679)
+202284^3130926.063039^.01^358^A
+"TEMP","DATANT",50.67,680)
+202284
+"TEMP","DATANT",50.67,681)
+202285^3130926.092938^.01^358^A
+"TEMP","DATANT",50.67,682)
+202285
+"TEMP","DATANT",50.67,683)
+202286^3130926.092938^.01^358^A
+"TEMP","DATANT",50.67,684)
+202286
+"TEMP","DATANT",50.67,685)
+202287^3130926.093003^.01^358^A
+"TEMP","DATANT",50.67,686)
+202287
+"TEMP","DATANT",50.67,687)
+202288^3130926.093003^.01^358^A
+"TEMP","DATANT",50.67,688)
+202288
+"TEMP","DATANT",50.67,689)
+202289^3130926.093004^.01^358^A
+"TEMP","DATANT",50.67,690)
+202289
+"TEMP","DATANT",50.67,691)
+202290^3130926.093004^.01^358^A
+"TEMP","DATANT",50.67,692)
+202290
+"TEMP","DATANT",50.67,693)
+202291^3130926.093026^.01^358^A
+"TEMP","DATANT",50.67,694)
+202291
+"TEMP","DATANT",50.67,695)
+202292^3130926.093049^.01^358^A
+"TEMP","DATANT",50.67,696)
+202292
+"TEMP","DATANT",50.67,697)
+202293^3130926.093119^.01^358^A
+"TEMP","DATANT",50.67,698)
+202293
+"TEMP","DATANT",50.67,699)
+202294^3130926.093157^.01^358^A
+"TEMP","DATANT",50.67,700)
+202294
+"TEMP","DATANT",50.67,701)
+202295^3130926.093209^.01^358^A
+"TEMP","DATANT",50.67,702)
+202295
+"TEMP","DATANT",50.67,703)
+202296^3130926.093238^.01^358^A
+"TEMP","DATANT",50.67,704)
+202296
+"TEMP","DATANT",50.67,705)
+202297^3130926.093311^.01^358^A
+"TEMP","DATANT",50.67,706)
+202297
+"TEMP","DATANT",50.67,707)
+202298^3130926.093412^.01^358^A
+"TEMP","DATANT",50.67,708)
+202298
+"TEMP","DATANT",50.67,709)
+202299^3130926.093412^.01^358^A
+"TEMP","DATANT",50.67,710)
+202299
+"TEMP","DATANT",50.67,711)
+202300^3130926.093413^.01^358^A
+"TEMP","DATANT",50.67,712)
+202300
+"TEMP","DATANT",50.67,713)
+202301^3130926.093446^.01^358^A
+"TEMP","DATANT",50.67,714)
+202301
+"TEMP","DATANT",50.67,715)
+202302^3130926.093447^.01^358^A
+"TEMP","DATANT",50.67,716)
+202302
+"TEMP","DATANT",50.67,717)
+202303^3130926.093447^.01^358^A
+"TEMP","DATANT",50.67,718)
+202303
+"TEMP","DATANT",50.67,719)
+202304^3130926.093626^.01^358^A
+"TEMP","DATANT",50.67,720)
+202304
+"TEMP","DATANT",50.67,721)
+202305^3130926.100648^.01^358^A
+"TEMP","DATANT",50.67,722)
+202305
+"TEMP","DATANT",50.67,723)
+202306^3130926.101543^.01^358^A
+"TEMP","DATANT",50.67,724)
+202306
+"TEMP","DATANT",50.67,725)
+202307^3130926.103348^.01^358^A
+"TEMP","DATANT",50.67,726)
+202307
+"TEMP","DATANT",50.67,727)
+202308^3130926.103514^.01^358^A
+"TEMP","DATANT",50.67,728)
+202308
+"TEMP","DATANT",50.67,729)
+202309^3130926.103754^.01^358^A
+"TEMP","DATANT",50.67,730)
+202309
+"TEMP","DATANT",50.67,731)
+202310^3130926.104638^.01^358^A
+"TEMP","DATANT",50.67,732)
+202310
+"TEMP","DATANT",50.67,733)
+202311^3130926.105747^.01^358^A
+"TEMP","DATANT",50.67,734)
+202311
+"TEMP","DATANT",50.67,735)
+202312^3130926.110656^.01^358^A
+"TEMP","DATANT",50.67,736)
+202312
+"TEMP","DATANT",50.67,737)
+202313^3130926.121033^.01^358^A
+"TEMP","DATANT",50.67,738)
+202313
+"TEMP","DATANT",50.67,739)
+202314^3130926.122952^.01^358^A
+"TEMP","DATANT",50.67,740)
+202314
+"TEMP","DATANT",50.67,741)
+202315^3130926.123147^.01^358^A
+"TEMP","DATANT",50.67,742)
+202315
+"TEMP","DATANT",50.67,743)
+202316^3130926.123149^.01^358^A
+"TEMP","DATANT",50.67,744)
+202316
+"TEMP","DATANT",50.67,745)
+202317^3130926.123253^.01^358^A
+"TEMP","DATANT",50.67,746)
+202317
+"TEMP","DATANT",50.67,747)
+202318^3130926.123255^.01^358^A
+"TEMP","DATANT",50.67,748)
+202318
+"TEMP","DATANT",50.67,749)
+202319^3130926.123435^.01^358^A
+"TEMP","DATANT",50.67,750)
+202319
+"TEMP","DATANT",50.67,751)
+202320^3130926.123654^.01^358^A
+"TEMP","DATANT",50.67,752)
+202320
+"TEMP","DATANT",50.67,753)
+202321^3130926.123906^.01^358^A
+"TEMP","DATANT",50.67,754)
+202321
+"TEMP","DATANT",50.67,755)
+202322^3130926.12411^.01^358^A
+"TEMP","DATANT",50.67,756)
+202322
+"TEMP","DATANT",50.67,757)
+202323^3130926.124211^.01^358^A
+"TEMP","DATANT",50.67,758)
+202323
+"TEMP","DATANT",50.67,759)
+202324^3130926.124403^.01^358^A
+"TEMP","DATANT",50.67,760)
+202324
+"TEMP","DATANT",50.67,761)
+202325^3130926.124549^.01^358^A
+"TEMP","DATANT",50.67,762)
+202325
+"TEMP","DATANT",50.67,763)
+202326^3130926.124638^.01^358^A
+"TEMP","DATANT",50.67,764)
+202326
+"TEMP","DATANT",50.67,765)
+202327^3130926.124656^.01^358^A
+"TEMP","DATANT",50.67,766)
+202327
+"TEMP","DATANT",50.67,767)
+202328^3130926.124715^.01^358^A
+"TEMP","DATANT",50.67,768)
+202328
+"TEMP","DATANT",50.67,769)
+202329^3130927.142851^.01^358^A
+"TEMP","DATANT",50.67,770)
+202329
+"TEMP","DATANT",50.67,771)
+202330^3130927.142946^.01^358^A
+"TEMP","DATANT",50.67,772)
+202330
+"TEMP","DATANT",50.67,773)
+202331^3130927.152658^.01^358^A
+"TEMP","DATANT",50.67,774)
+202331
+"TEMP","DATANT",50.67,775)
+202332^3131002.085738^.01^358^A
+"TEMP","DATANT",50.67,776)
+202332
+"TEMP","DATANT",50.67,777)
+202333^3131003.063^.01^358^A
+"TEMP","DATANT",50.67,778)
+202333
+"TEMP","DATANT",50.67,779)
+202334^3131003.063001^.01^358^A
+"TEMP","DATANT",50.67,780)
+202334
+"TEMP","DATANT",50.67,781)
+202335^3131003.063002^.01^358^A
+"TEMP","DATANT",50.67,782)
+202335
+"TEMP","DATANT",50.67,783)
+202336^3131003.063002^.01^358^A
+"TEMP","DATANT",50.67,784)
+202336
+"TEMP","DATANT",50.67,785)
+202337^3131003.063002^.01^358^A
+"TEMP","DATANT",50.67,786)
+202337
+"TEMP","DATANT",50.67,787)
+202338^3131003.063003^.01^358^A
+"TEMP","DATANT",50.67,788)
+202338
+"TEMP","DATANT",50.67,789)
+202339^3131003.063003^.01^358^A
+"TEMP","DATANT",50.67,790)
+202339
+"TEMP","DATANT",50.67,791)
+202340^3131003.063003^.01^358^A
+"TEMP","DATANT",50.67,792)
+202340
+"TEMP","DATANT",50.67,793)
+202341^3131003.063004^.01^358^A
+"TEMP","DATANT",50.67,794)
+202341
+"TEMP","DATANT",50.67,795)
+202342^3131003.063004^.01^358^A
+"TEMP","DATANT",50.67,796)
+202342
+"TEMP","DATANT",50.67,797)
+202343^3131003.063005^.01^358^A
+"TEMP","DATANT",50.67,798)
+202343
+"TEMP","DATANT",50.67,799)
+202344^3131003.063005^.01^358^A
+"TEMP","DATANT",50.67,800)
+202344
+"TEMP","DATANT",50.67,801)
+202345^3131003.063005^.01^358^A
+"TEMP","DATANT",50.67,802)
+202345
+"TEMP","DATANT",50.67,803)
+202346^3131003.063006^.01^358^A
+"TEMP","DATANT",50.67,804)
+202346
+"TEMP","DATANT",50.67,805)
+202347^3131003.063006^.01^358^A
+"TEMP","DATANT",50.67,806)
+202347
+"TEMP","DATANT",50.67,807)
+202348^3131003.063006^.01^358^A
+"TEMP","DATANT",50.67,808)
+202348
+"TEMP","DATANT",50.67,809)
+202349^3131003.063007^.01^358^A
+"TEMP","DATANT",50.67,810)
+202349
+"TEMP","DATANT",50.67,811)
+202350^3131003.063007^.01^358^A
+"TEMP","DATANT",50.67,812)
+202350
+"TEMP","DATANT",50.67,813)
+202351^3131003.063007^.01^358^A
+"TEMP","DATANT",50.67,814)
+202351
+"TEMP","DATANT",50.67,815)
+202352^3131003.063008^.01^358^A
+"TEMP","DATANT",50.67,816)
+202352
+"TEMP","DATANT",50.67,817)
+202353^3131003.063008^.01^358^A
+"TEMP","DATANT",50.67,818)
+202353
+"TEMP","DATANT",50.67,819)
+202354^3131003.063008^.01^358^A
+"TEMP","DATANT",50.67,820)
+202354
+"TEMP","DATANT",50.67,821)
+202355^3131003.063009^.01^358^A
+"TEMP","DATANT",50.67,822)
+202355
+"TEMP","DATANT",50.67,823)
+202356^3131003.063009^.01^358^A
+"TEMP","DATANT",50.67,824)
+202356
+"TEMP","DATANT",50.67,825)
+202357^3131003.06301^.01^358^A
+"TEMP","DATANT",50.67,826)
+202357
+"TEMP","DATANT",50.67,827)
+202358^3131003.06301^.01^358^A
+"TEMP","DATANT",50.67,828)
+202358
+"TEMP","DATANT",50.67,829)
+202359^3131003.063012^.01^358^A
+"TEMP","DATANT",50.67,830)
+202359
+"TEMP","DATANT",50.67,831)
+202360^3131003.063013^.01^358^A
+"TEMP","DATANT",50.67,832)
+202360
+"TEMP","DATANT",50.67,833)
+202361^3131003.063013^.01^358^A
+"TEMP","DATANT",50.67,834)
+202361
+"TEMP","DATANT",50.67,835)
+202362^3131003.063018^.01^358^A
+"TEMP","DATANT",50.67,836)
+202362
+"TEMP","DATANT",50.67,837)
+202363^3131003.063018^.01^358^A
+"TEMP","DATANT",50.67,838)
+202363
+"TEMP","DATANT",50.67,839)
+202364^3131003.063018^.01^358^A
+"TEMP","DATANT",50.67,840)
+202364
+"TEMP","DATANT",50.67,841)
+202365^3131003.063022^.01^358^A
+"TEMP","DATANT",50.67,842)
+202365
+"TEMP","DATANT",50.67,843)
+202366^3131003.063023^.01^358^A
+"TEMP","DATANT",50.67,844)
+202366
+"TEMP","DATANT",50.67,845)
+202367^3131003.063024^.01^358^A
+"TEMP","DATANT",50.67,846)
+202367
+"TEMP","DATANT",50.67,847)
+202368^3131003.063024^.01^358^A
+"TEMP","DATANT",50.67,848)
+202368
+"TEMP","DATANT",50.67,849)
+202369^3131003.063025^.01^358^A
+"TEMP","DATANT",50.67,850)
+202369
+"TEMP","DATANT",50.67,851)
+202370^3131003.063025^.01^358^A
+"TEMP","DATANT",50.67,852)
+202370
+"TEMP","DATANT",50.67,853)
+202371^3131003.063025^.01^358^A
+"TEMP","DATANT",50.67,854)
+202371
+"TEMP","DATANT",50.67,855)
+202372^3131003.063026^.01^358^A
+"TEMP","DATANT",50.67,856)
+202372
+"TEMP","DATANT",50.67,857)
+202373^3131003.063026^.01^358^A
+"TEMP","DATANT",50.67,858)
+202373
+"TEMP","DATANT",50.67,859)
+202374^3131003.063027^.01^358^A
+"TEMP","DATANT",50.67,860)
+202374
+"TEMP","DATANT",50.67,861)
+202375^3131003.063027^.01^358^A
+"TEMP","DATANT",50.67,862)
+202375
+"TEMP","DATANT",50.67,863)
+202376^3131003.063028^.01^358^A
+"TEMP","DATANT",50.67,864)
+202376
+"TEMP","DATANT",50.67,865)
+202377^3131003.063031^.01^358^A
+"TEMP","DATANT",50.67,866)
+202377
+"TEMP","DATANT",50.67,867)
+202378^3131003.063031^.01^358^A
+"TEMP","DATANT",50.67,868)
+202378
+"TEMP","DATANT",50.67,869)
+202379^3131003.063033^.01^358^A
+"TEMP","DATANT",50.67,870)
+202379
+"TEMP","DATANT",50.67,871)
+202380^3131003.063033^.01^358^A
+"TEMP","DATANT",50.67,872)
+202380
+"TEMP","DATANT",50.67,873)
+202381^3131003.063034^.01^358^A
+"TEMP","DATANT",50.67,874)
+202381
+"TEMP","DATANT",50.67,875)
+202382^3131003.063034^.01^358^A
+"TEMP","DATANT",50.67,876)
+202382
+"TEMP","DATANT",50.67,877)
+202383^3131003.063034^.01^358^A
+"TEMP","DATANT",50.67,878)
+202383
+"TEMP","DATANT",50.67,879)
+202384^3131003.063035^.01^358^A
+"TEMP","DATANT",50.67,880)
+202384
+"TEMP","DATANT",50.67,881)
+202385^3131003.063035^.01^358^A
+"TEMP","DATANT",50.67,882)
+202385
+"TEMP","DATANT",50.67,883)
+202386^3131003.063036^.01^358^A
+"TEMP","DATANT",50.67,884)
+202386
+"TEMP","DATANT",50.67,885)
+202387^3131003.063036^.01^358^A
+"TEMP","DATANT",50.67,886)
+202387
+"TEMP","DATANT",50.67,887)
+202388^3131003.063037^.01^358^A
+"TEMP","DATANT",50.67,888)
+202388
+"TEMP","DATANT",50.68,1)
+24151^3130913.150235^.01^358^A
+"TEMP","DATANT",50.68,2)
+SUCTION CANISTER 800ML DEVILBISS #DV7305D632
+"TEMP","DATANT",50.68,3)
+24152^3130913.150648^.01^358^A
+"TEMP","DATANT",50.68,4)
+LO MINASTRIN FE TAB,CHEWABLE,28
+"TEMP","DATANT",50.68,5)
+24153^3130913.151103^.01^358^A
+"TEMP","DATANT",50.68,6)
+BRIMONIDINE TARTRATE 0.33% GEL,TOP
+"TEMP","DATANT",50.68,7)
+24154^3130917.100222^.01^358^A
+"TEMP","DATANT",50.68,8)
+LARYNGECTOMY TUBE PROVOX #7609
+"TEMP","DATANT",50.68,9)
+24155^3130917.100534^.01^358^A
+"TEMP","DATANT",50.68,10)
+CATHETER,INTERMITTENT LOFRIC HYDRO-KIT 14FR ASTRATECH #9871440
+"TEMP","DATANT",50.68,11)
+24156^3130917.100759^.01^358^A
+"TEMP","DATANT",50.68,12)
+CATHETER,INTERMITTENT LOFRIC HYDRO-KIT 14FR ASTRATECH #9851440
+"TEMP","DATANT",50.68,13)
+24157^3130917.101025^.01^358^A
+"TEMP","DATANT",50.68,14)
+SYRINGE 3ML/NDL 23G 1.5IN
+"TEMP","DATANT",50.68,15)
+24158^3130917.1215^.01^358^A
+"TEMP","DATANT",50.68,16)
+BANDAGE,STRETCH,CURITY 2IN X 75IN STERILE K#2231
+"TEMP","DATANT",50.68,17)
+24159^3130917.121656^.01^358^A
+"TEMP","DATANT",50.68,18)
+UREA 30% FOAM,TOP
+"TEMP","DATANT",50.68,19)
+24160^3130917.145446^.01^358^A
+"TEMP","DATANT",50.68,20)
+CATHETER,SELF-CATH SOFT 10FR COLOPLAST #110
+"TEMP","DATANT",50.68,21)
+24161^3130917.145741^.01^358^A
+"TEMP","DATANT",50.68,22)
+CATHETER,SELF-CATH SOFT 14FR COLOPLAST #114
+"TEMP","DATANT",50.68,23)
+24162^3130917.150019^.01^358^A
+"TEMP","DATANT",50.68,24)
+CATHETER,SELF-CATH SOFT 12FR COLOPLAST #112
+"TEMP","DATANT",50.68,25)
+24163^3130917.150203^.01^358^A
+"TEMP","DATANT",50.68,26)
+CATHETER,SELF-CATH SOFT 16FR COLOPLAST #116
+"TEMP","DATANT",50.68,27)
+24164^3130917.161116^.01^358^A
+"TEMP","DATANT",50.68,28)
+GADOTERATE MEGLUMINE 0.5MMOL/ML INJ,SOLN
+"TEMP","DATANT",50.68,29)
+24165^3130917.161508^.01^358^A
+"TEMP","DATANT",50.68,30)
+INFLUENZA VACCINE,QUADRIVALENT,VIL,5ML
+"TEMP","DATANT",50.68,31)
+24166^3130918.091201^.01^358^A
+"TEMP","DATANT",50.68,32)
+FEEDING BAG W/PUMP SET COVIDIEN #773662
+"TEMP","DATANT",50.68,33)
+24167^3130918.09181^.01^358^A
+"TEMP","DATANT",50.68,34)
+GADOTERATE MEGLUMINE 0.5MMOL/ML INJ,SYRINGE,15ML
+"TEMP","DATANT",50.68,35)
+24168^3130918.091947^.01^358^A
+"TEMP","DATANT",50.68,36)
+GADOTERATE MEGLUMINE 0.5MMOL/ML INJ,SYRINGE,20ML
+"TEMP","DATANT",50.68,37)
+24169^3130918.092419^.01^358^A
+"TEMP","DATANT",50.68,38)
+GADOTERATE MEGLUMINE 0.5MMOL/ML INJ,SYRINGE,10ML
+"TEMP","DATANT",50.68,39)
+24170^3130918.0928^.01^358^A
+"TEMP","DATANT",50.68,40)
+CAPSAICIN 0.035% LOTION,TOP
+"TEMP","DATANT",50.68,41)
+24171^3130919.112414^.01^358^A
+"TEMP","DATANT",50.68,42)
+POUCH,DRAINABLE,MICROSKIN CYMED #78422
+"TEMP","DATANT",50.68,43)
+24172^3130919.112739^.01^358^A
+"TEMP","DATANT",50.68,44)
+OXYBUTYNIN CL 3% GEL,TOP
+"TEMP","DATANT",50.68,45)
+24173^3130919.131048^.01^358^A
+"TEMP","DATANT",50.68,46)
+CAPSAICIN/LIDOCAINE/MENTHOL/METHYL SALICYLATE CREAM,TOP
+"TEMP","DATANT",50.68,47)
+24174^3130920.115723^.01^358^A
+"TEMP","DATANT",50.68,48)
+CALCIUM 250MG (CA CITRATE-1187MG) TAB
+"TEMP","DATANT",50.68,49)
+24175^3130920.141828^.01^358^A
+"TEMP","DATANT",50.68,50)
+EPINEPHRINE (AUVI-Q 0.3) 0.3MG/0.3ML INJECTOR
+"TEMP","DATANT",50.68,51)
+24176^3130920.144457^.01^358^A
+"TEMP","DATANT",50.68,52)
+FERROUS BISGLYCINATE 90MG CAP,ORAL
+"TEMP","DATANT",50.68,53)
+24177^3130920.150356^.01^358^A
+"TEMP","DATANT",50.68,54)
+SILVER/SODIUM ALGINATE PWDR,TOP
+"TEMP","DATANT",50.68,55)
+24178^3130920.150506^.01^358^A
+"TEMP","DATANT",50.68,56)
+MAGNESIUM SO4 4GM/100ML INJ,BAG
+"TEMP","DATANT",50.68,57)
+24179^3130920.151218^.01^358^A
+"TEMP","DATANT",50.68,58)
+MAGNESIUM SO4 1GM/100ML INJ,BAG
+"TEMP","DATANT",50.68,59)
+24180^3130924.094626^.01^358^A
+"TEMP","DATANT",50.68,60)
+FEEDING BAG W/PUMP SET ENTERALITE INFINITY #INF1200
+"TEMP","DATANT",50.68,61)
+24181^3130924.094845^.01^358^A
+"TEMP","DATANT",50.68,62)
+FEEDING BAG W/PUMP SET ENTERALITE INFINITY #INF500
+"TEMP","DATANT",50.68,63)
+24182^3130924.095924^.01^358^A
+"TEMP","DATANT",50.68,64)
+VINCRISTINE SO4 LIPOSOME 0.16MG/ML INJ,KIT
+"TEMP","DATANT",50.68,65)
+24183^3130924.100031^.01^358^A
+"TEMP","DATANT",50.68,66)
+HYDROCODONE 2.5MG/ACETAMINOPHEN 108MG/5ML SOLN,ORAL,5ML
+"TEMP","DATANT",50.68,67)
+24184^3130924.100245^.01^358^A
+"TEMP","DATANT",50.68,68)
+HYDROCODONE 5MG/ACETAMINOPHEN 217MG/10ML SOLN,ORAL,10ML
+"TEMP","DATANT",50.68,69)
+24185^3130924.100353^.01^358^A
+"TEMP","DATANT",50.68,70)
+HYDROCODONE 7.5MG/ACETAMINOPHEN 325MG/15ML SOLN,ORAL,15ML
+"TEMP","DATANT",50.68,71)
+24186^3130925.154506^.01^358^A
+"TEMP","DATANT",50.68,72)
+CALCIUM 300MG/MAGNESIUM 20MG/VITAMIN D 200UNITS TAB,CHEWABLE
+"TEMP","DATANT",50.68,73)
+24187^3130926.121028^.01^358^A
+"TEMP","DATANT",50.68,74)
+LURASIDONE HCL 60MG TAB
+"TEMP","DATANT",50.68,75)
+24188^3130926.12295^.01^358^A
+"TEMP","DATANT",50.68,76)
+LANCET,GMATE 30G
+"TEMP","DATANT",50.68,77)
+24189^3130926.123145^.01^358^A
+"TEMP","DATANT",50.68,78)
+LANCET,GMATE DEVICE
+"TEMP","DATANT",50.68,79)
+24190^3130926.123251^.01^358^A
+"TEMP","DATANT",50.68,80)
+BOOST CALORIE SMART LIQUID
+"TEMP","DATANT",50.68,81)
+24191^3130926.123431^.01^358^A
+"TEMP","DATANT",50.68,82)
+BUPRENORPHINE 15MCG/HR PATCH
+"TEMP","DATANT",50.68,83)
+24192^3130926.123652^.01^358^A
+"TEMP","DATANT",50.68,84)
+TRETINOIN 0.075% CREAM,TOP
+"TEMP","DATANT",50.68,85)
+24193^3130926.123904^.01^358^A
+"TEMP","DATANT",50.68,86)
+GMATE GLUCOSE CONTROL SOLN
+"TEMP","DATANT",50.68,87)
+24194^3130926.124108^.01^358^A
+"TEMP","DATANT",50.68,88)
+BENZOYL PEROXIDE 9.5% FOAM,TOP
+"TEMP","DATANT",50.68,89)
+24195^3130926.124209^.01^358^A
+"TEMP","DATANT",50.68,90)
+BENZOYL PEROXIDE 5.5% FOAM,TOP
+"TEMP","DATANT",50.68,91)
+24196^3130926.1244^.01^358^A
+"TEMP","DATANT",50.68,92)
+ALOE/HC 1.9%/IODOQUINOL 1% CREAM,TOP,2GM
+"TEMP","DATANT",50.68,93)
+24197^3130926.124547^.01^358^A
+"TEMP","DATANT",50.68,94)
+FACTOR IX,RECOMBINANT 2000 UNIT/VIL INJ
+"TEMP","DATANT",50.68,95)
+24198^3130926.124636^.01^358^A
+"TEMP","DATANT",50.68,96)
+SULFACETAMIDE NA 10% SHAMPOO
+"TEMP","DATANT",50.68,97)
+24199^3130926.124654^.01^358^A
+"TEMP","DATANT",50.68,98)
+FACTOR IX,RECOMBINANT 3000 UNIT/VIL INJ
+"TEMP","DATANT",50.68,99)
+24200^3130926.124713^.01^358^A
+"TEMP","DATANT",50.68,100)
+SELENIUM SULFIDE 2.3% SHAMPOO
+"TEMP","DATANT",50.68,101)
+24201^3130927.142848^.01^358^A
+"TEMP","DATANT",50.68,102)
+BRIEF,PREVAIL YOUTH/SM FQP#PV-511
+"TEMP","DATANT",50.68,103)
+24202^3130927.142944^.01^358^A
+"TEMP","DATANT",50.68,104)
+MICROCYN SKIN & WOUND GEL,TOP
+"TEMP","DATANT",50.68,105)
+24203^3130927.152654^.01^358^A
+"TEMP","DATANT",50.68,106)
+AURSTAT ANTI-ITCH GEL,TOP
+"TEMP","DATANT",55.95,1)
+4391^3130912.063017^.01^358^A
+"TEMP","DATANT",55.95,2)
+BPI LABS, LLC
+"TEMP","DATANT",55.95,3)
+4392^3130919.063024^.01^358^A
+"TEMP","DATANT",55.95,4)
+BI-COASTAL PHAR
+"TEMP","DATANT",55.95,5)
+4393^3130919.063025^.01^358^A
+"TEMP","DATANT",55.95,6)
+CITRON PHARMA L
+"TEMP","DATANT",55.95,7)
+4394^3130919.063029^.01^358^A
+"TEMP","DATANT",55.95,8)
+AMERICAN PHARMA
+"TEMP","DATANT",55.95,9)
+4395^3130919.063031^.01^358^A
+"TEMP","DATANT",55.95,10)
+WESTPORT PHARMA
+"TEMP","DATANT",55.95,11)
+4396^3130919.080138^.01^358^A
+"TEMP","DATANT",55.95,12)
+PROTEIN SCIENCE
+"TEMP","DATANT",55.95,13)
+4397^3130920.153433^.01^358^A
+"TEMP","DATANT",55.95,14)
+TALON THERAPEUT
+"TEMP","DATANT",55.95,15)
+4398^3130924.152927^.01^358^A
+"TEMP","DATANT",55.95,16)
+PROSYNTHESIS
+"TEMP","DATANT",55.95,17)
+4399^3130926.105539^.01^358^A
+"TEMP","DATANT",55.95,18)
+ARTESA LABS, LL
+"TEMP","DATANT",56,1)
+9625^3130917.135846^.01^345^A
+"TEMP","DATANT",56,2)
+QUETIAPINE FUMARATE/TROLEANDOMYCIN
+"TEMP","DATANT",56,3)
+9626^3130917.145937^.01^345^A
+"TEMP","DATANT",56,4)
+BCG VACCINE/MYCOPHENOLATE
+"TEMP","DATANT",56,5)
+9627^3130917.145958^.01^345^A
+"TEMP","DATANT",56,6)
+INFLUENZA VIRUS,LIVE/MYCOPHENOLATE
+"TEMP","DATANT",56,7)
+9628^3130917.150006^.01^345^A
+"TEMP","DATANT",56,8)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/MYCOPHENOLATE
+"TEMP","DATANT",56,9)
+9629^3130917.150015^.01^345^A
+"TEMP","DATANT",56,10)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/MYCOPHENOLATE
+"TEMP","DATANT",56,11)
+9630^3130917.15002^.01^345^A
+"TEMP","DATANT",56,12)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/MYCOPHENOLATE
+"TEMP","DATANT",56,13)
+9631^3130917.150026^.01^345^A
+"TEMP","DATANT",56,14)
+MUMPS VIRUS VACCINE,LIVE/MYCOPHENOLATE
+"TEMP","DATANT",56,15)
+9632^3130917.150031^.01^345^A
+"TEMP","DATANT",56,16)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/MYCOPHENOLATE
+"TEMP","DATANT",56,17)
+9633^3130917.150038^.01^345^A
+"TEMP","DATANT",56,18)
+MYCOPHENOLATE/POLIOVIRUS VACCINE LIVE
+"TEMP","DATANT",56,19)
+9634^3130917.150043^.01^345^A
+"TEMP","DATANT",56,20)
+MYCOPHENOLATE/ROTAVIRUS
+"TEMP","DATANT",56,21)
+9635^3130917.150051^.01^345^A
+"TEMP","DATANT",56,22)
+MYCOPHENOLATE/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,23)
+9636^3130917.150057^.01^345^A
+"TEMP","DATANT",56,24)
+MYCOPHENOLATE/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,25)
+9637^3130917.150105^.01^345^A
+"TEMP","DATANT",56,26)
+MYCOPHENOLATE/VARICELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,27)
+9638^3130917.150114^.01^345^A
+"TEMP","DATANT",56,28)
+MYCOPHENOLATE/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,29)
+9639^3130917.150121^.01^345^A
+"TEMP","DATANT",56,30)
+MYCOPHENOLATE/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATANT",56,31)
+9640^3130917.15013^.01^345^A
+"TEMP","DATANT",56,32)
+BCG VACCINE/NATALIZUMAB
+"TEMP","DATANT",56,33)
+9641^3130917.150223^.01^345^A
+"TEMP","DATANT",56,34)
+INFLUENZA VIRUS,LIVE/NATALIZUMAB
+"TEMP","DATANT",56,35)
+9642^3130917.150231^.01^345^A
+"TEMP","DATANT",56,36)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/NATALIZUMAB
+"TEMP","DATANT",56,37)
+9643^3130917.150236^.01^345^A
+"TEMP","DATANT",56,38)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/NATALIZUMAB
+"TEMP","DATANT",56,39)
+9644^3130917.150252^.01^345^A
+"TEMP","DATANT",56,40)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/NATALIZUMAB
+"TEMP","DATANT",56,41)
+9645^3130917.1503^.01^345^A
+"TEMP","DATANT",56,42)
+MUMPS VIRUS VACCINE,LIVE/NATALIZUMAB
+"TEMP","DATANT",56,43)
+9646^3130917.150307^.01^345^A
+"TEMP","DATANT",56,44)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/NATALIZUMAB
+"TEMP","DATANT",56,45)
+9647^3130917.150314^.01^345^A
+"TEMP","DATANT",56,46)
+NATALIZUMAB/POLIOVIRUS VACCINE LIVE
+"TEMP","DATANT",56,47)
+9648^3130917.15032^.01^345^A
+"TEMP","DATANT",56,48)
+NATALIZUMAB/ROTAVIRUS
+"TEMP","DATANT",56,49)
+9649^3130917.150325^.01^345^A
+"TEMP","DATANT",56,50)
+NATALIZUMAB/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,51)
+9650^3130917.150332^.01^345^A
+"TEMP","DATANT",56,52)
+NATALIZUMAB/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,53)
+9651^3130917.150343^.01^345^A
+"TEMP","DATANT",56,54)
+NATALIZUMAB/VARICELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,55)
+9652^3130917.150352^.01^345^A
+"TEMP","DATANT",56,56)
+NATALIZUMAB/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,57)
+9653^3130917.150409^.01^345^A
+"TEMP","DATANT",56,58)
+NATALIZUMAB/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATANT",56,59)
+9654^3130917.1505^.01^345^A
+"TEMP","DATANT",56,60)
+BCG VACCINE/NELARABINE
+"TEMP","DATANT",56,61)
+9655^3130917.150508^.01^345^A
+"TEMP","DATANT",56,62)
+INFLUENZA VIRUS,LIVE/NELARABINE
+"TEMP","DATANT",56,63)
+9656^3130917.150513^.01^345^A
+"TEMP","DATANT",56,64)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/NELARABINE
+"TEMP","DATANT",56,65)
+9657^3130917.15052^.01^345^A
+"TEMP","DATANT",56,66)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/NELARABINE
+"TEMP","DATANT",56,67)
+9658^3130917.150525^.01^345^A
+"TEMP","DATANT",56,68)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/NELARABINE
+"TEMP","DATANT",56,69)
+9659^3130917.15053^.01^345^A
+"TEMP","DATANT",56,70)
+MUMPS VIRUS VACCINE,LIVE/NELARABINE
+"TEMP","DATANT",56,71)
+9660^3130917.15054^.01^345^A
+"TEMP","DATANT",56,72)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/NELARABINE
+"TEMP","DATANT",56,73)
+9661^3130917.150602^.01^345^A
+"TEMP","DATANT",56,74)
+NELARABINE/POLIOVIRUS VACCINE LIVE
+"TEMP","DATANT",56,75)
+9662^3130917.15061^.01^345^A
+"TEMP","DATANT",56,76)
+NELARABINE/ROTAVIRUS
+"TEMP","DATANT",56,77)
+9663^3130917.150619^.01^345^A
+"TEMP","DATANT",56,78)
+NELARABINE/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,79)
+9664^3130917.150631^.01^345^A
+"TEMP","DATANT",56,80)
+NELARABINE/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,81)
+9665^3130917.150644^.01^345^A
+"TEMP","DATANT",56,82)
+NELARABINE/VARICELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,83)
+9666^3130917.150651^.01^345^A
+"TEMP","DATANT",56,84)
+NELARABINE/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,85)
+9667^3130917.150656^.01^345^A
+"TEMP","DATANT",56,86)
+NELARABINE/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATANT",56,87)
+9668^3130917.150704^.01^345^A
+"TEMP","DATANT",56,88)
+BCG VACCINE/NILOTINIB
+"TEMP","DATANT",56,89)
+9669^3130917.15071^.01^345^A
+"TEMP","DATANT",56,90)
+INFLUENZA VIRUS,LIVE/NILOTINIB
+"TEMP","DATANT",56,91)
+9670^3130917.150715^.01^345^A
+"TEMP","DATANT",56,92)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/NILOTINIB
+"TEMP","DATANT",56,93)
+9671^3130917.150718^.01^345^A
+"TEMP","DATANT",56,94)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/NILOTINIB
+"TEMP","DATANT",56,95)
+9672^3130917.150724^.01^345^A
+"TEMP","DATANT",56,96)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/NILOTINIB
+"TEMP","DATANT",56,97)
+9673^3130917.150732^.01^345^A
+"TEMP","DATANT",56,98)
+MUMPS VIRUS VACCINE,LIVE/NILOTINIB
+"TEMP","DATANT",56,99)
+9674^3130917.15074^.01^345^A
+"TEMP","DATANT",56,100)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/NILOTINIB
+"TEMP","DATANT",56,101)
+9675^3130917.150745^.01^345^A
+"TEMP","DATANT",56,102)
+NILOTINIB/POLIOVIRUS VACCINE LIVE
+"TEMP","DATANT",56,103)
+9676^3130917.15075^.01^345^A
+"TEMP","DATANT",56,104)
+NILOTINIB/ROTAVIRUS
+"TEMP","DATANT",56,105)
+9677^3130917.150801^.01^345^A
+"TEMP","DATANT",56,106)
+NILOTINIB/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,107)
+9678^3130917.150807^.01^345^A
+"TEMP","DATANT",56,108)
+NILOTINIB/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,109)
+9679^3130917.150814^.01^345^A
+"TEMP","DATANT",56,110)
+NILOTINIB/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,111)
+9680^3130917.150819^.01^345^A
+"TEMP","DATANT",56,112)
+NILOTINIB/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATANT",56,113)
+9681^3130917.150845^.01^345^A
+"TEMP","DATANT",56,114)
+BCG VACCINE/OFATUMUMAB
+"TEMP","DATANT",56,115)
+9682^3130917.15085^.01^345^A
+"TEMP","DATANT",56,116)
+INFLUENZA VIRUS,LIVE/OFATUMUMAB
+"TEMP","DATANT",56,117)
+9683^3130917.150853^.01^345^A
+"TEMP","DATANT",56,118)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/OFATUMUMAB
+"TEMP","DATANT",56,119)
+9684^3130917.150857^.01^345^A
+"TEMP","DATANT",56,120)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/OFATUMUMAB
+"TEMP","DATANT",56,121)
+9685^3130917.150903^.01^345^A
+"TEMP","DATANT",56,122)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/OFATUMUMAB
+"TEMP","DATANT",56,123)
+9686^3130917.150909^.01^345^A
+"TEMP","DATANT",56,124)
+MUMPS VIRUS VACCINE,LIVE/OFATUMUMAB
+"TEMP","DATANT",56,125)
+9687^3130917.150914^.01^345^A
+"TEMP","DATANT",56,126)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/OFATUMUMAB
+"TEMP","DATANT",56,127)
+9688^3130917.150919^.01^345^A
+"TEMP","DATANT",56,128)
+OFATUMUMAB/POLIOVIRUS VACCINE LIVE
+"TEMP","DATANT",56,129)
+9689^3130917.150926^.01^345^A
+"TEMP","DATANT",56,130)
+OFATUMUMAB/ROTAVIRUS
+"TEMP","DATANT",56,131)
+9690^3130917.150933^.01^345^A
+"TEMP","DATANT",56,132)
+OFATUMUMAB/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,133)
+9691^3130917.150939^.01^345^A
+"TEMP","DATANT",56,134)
+OFATUMUMAB/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,135)
+9692^3130917.150947^.01^345^A
+"TEMP","DATANT",56,136)
+OFATUMUMAB/VARICELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,137)
+9693^3130917.150953^.01^345^A
+"TEMP","DATANT",56,138)
+OFATUMUMAB/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,139)
+9694^3130917.151^.01^345^A
+"TEMP","DATANT",56,140)
+OFATUMUMAB/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATANT",56,141)
+9695^3130917.15101^.01^345^A
+"TEMP","DATANT",56,142)
+BCG VACCINE/OXALIPLATIN
+"TEMP","DATANT",56,143)
+9696^3130917.151018^.01^345^A
+"TEMP","DATANT",56,144)
+INFLUENZA VIRUS,LIVE/OXALIPLATIN
+"TEMP","DATANT",56,145)
+9697^3130917.151025^.01^345^A
+"TEMP","DATANT",56,146)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/OXALIPLATIN
+"TEMP","DATANT",56,147)
+9698^3130917.151041^.01^345^A
+"TEMP","DATANT",56,148)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/OXALIPLATIN
+"TEMP","DATANT",56,149)
+9699^3130917.151048^.01^345^A
+"TEMP","DATANT",56,150)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/OXALIPLATIN
+"TEMP","DATANT",56,151)
+9700^3130917.151056^.01^345^A
+"TEMP","DATANT",56,152)
+MUMPS VIRUS VACCINE,LIVE/OXALIPLATIN
+"TEMP","DATANT",56,153)
+9701^3130917.151102^.01^345^A
+"TEMP","DATANT",56,154)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/OXALIPLATIN
+"TEMP","DATANT",56,155)
+9702^3130917.151129^.01^345^A
+"TEMP","DATANT",56,156)
+OXALIPLATIN/POLIOVIRUS VACCINE LIVE
+"TEMP","DATANT",56,157)
+9703^3130917.151136^.01^345^A
+"TEMP","DATANT",56,158)
+OXALIPLATIN/ROTAVIRUS
+"TEMP","DATANT",56,159)
+9704^3130917.151143^.01^345^A
+"TEMP","DATANT",56,160)
+OXALIPLATIN/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,161)
+9705^3130917.151151^.01^345^A
+"TEMP","DATANT",56,162)
+OXALIPLATIN/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,163)
+9706^3130917.151158^.01^345^A
+"TEMP","DATANT",56,164)
+OXALIPLATIN/VARICELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,165)
+9707^3130917.15121^.01^345^A
+"TEMP","DATANT",56,166)
+OXALIPLATIN/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,167)
+9708^3130917.151214^.01^345^A
+"TEMP","DATANT",56,168)
+OXALIPLATIN/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATANT",56,169)
+9709^3130917.151243^.01^345^A
+"TEMP","DATANT",56,170)
+BCG VACCINE/PACLITAXEL
+"TEMP","DATANT",56,171)
+9710^3130917.15125^.01^345^A
+"TEMP","DATANT",56,172)
+INFLUENZA VIRUS,LIVE/PACLITAXEL
+"TEMP","DATANT",56,173)
+9711^3130917.151256^.01^345^A
+"TEMP","DATANT",56,174)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PACLITAXEL
+"TEMP","DATANT",56,175)
+9712^3130917.151301^.01^345^A
+"TEMP","DATANT",56,176)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/PACLITAXEL
+"TEMP","DATANT",56,177)
+9713^3130917.151307^.01^345^A
+"TEMP","DATANT",56,178)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/PACLITAXEL
+"TEMP","DATANT",56,179)
+9714^3130917.151316^.01^345^A
+"TEMP","DATANT",56,180)
+MUMPS VIRUS VACCINE,LIVE/PACLITAXEL
+"TEMP","DATANT",56,181)
+9715^3130917.151321^.01^345^A
+"TEMP","DATANT",56,182)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/PACLITAXEL
+"TEMP","DATANT",56,183)
+9716^3130917.151327^.01^345^A
+"TEMP","DATANT",56,184)
+PACLITAXEL/POLIOVIRUS VACCINE LIVE
+"TEMP","DATANT",56,185)
+9717^3130917.151332^.01^345^A
+"TEMP","DATANT",56,186)
+PACLITAXEL/ROTAVIRUS
+"TEMP","DATANT",56,187)
+9718^3130917.151337^.01^345^A
+"TEMP","DATANT",56,188)
+PACLITAXEL/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,189)
+9719^3130917.151344^.01^345^A
+"TEMP","DATANT",56,190)
+PACLITAXEL/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,191)
+9720^3130917.151354^.01^345^A
+"TEMP","DATANT",56,192)
+PACLITAXEL/VARICELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,193)
+9721^3130917.1514^.01^345^A
+"TEMP","DATANT",56,194)
+PACLITAXEL/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,195)
+9722^3130917.151407^.01^345^A
+"TEMP","DATANT",56,196)
+PACLITAXEL/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATANT",56,197)
+9723^3130917.151423^.01^345^A
+"TEMP","DATANT",56,198)
+BCG VACCINE/PAZOPANIB
+"TEMP","DATANT",56,199)
+9724^3130917.151431^.01^345^A
+"TEMP","DATANT",56,200)
+INFLUENZA VIRUS,LIVE/PAZOPANIB
+"TEMP","DATANT",56,201)
+9725^3130917.151436^.01^345^A
+"TEMP","DATANT",56,202)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/PAZOPANIB
+"TEMP","DATANT",56,203)
+9726^3130917.151439^.01^345^A
+"TEMP","DATANT",56,204)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PAZOPANIB
+"TEMP","DATANT",56,205)
+9727^3130917.151443^.01^345^A
+"TEMP","DATANT",56,206)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/PAZOPANIB
+"TEMP","DATANT",56,207)
+9728^3130917.151449^.01^345^A
+"TEMP","DATANT",56,208)
+MUMPS VIRUS VACCINE,LIVE/PAZOPANIB
+"TEMP","DATANT",56,209)
+9729^3130917.151453^.01^345^A
+"TEMP","DATANT",56,210)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/PAZOPANIB
+"TEMP","DATANT",56,211)
+9730^3130917.151458^.01^345^A
+"TEMP","DATANT",56,212)
+PAZOPANIB/POLIOVIRUS VACCINE LIVE
+"TEMP","DATANT",56,213)
+9731^3130917.151503^.01^345^A
+"TEMP","DATANT",56,214)
+PAZOPANIB/ROTAVIRUS
+"TEMP","DATANT",56,215)
+9732^3130917.151517^.01^345^A
+"TEMP","DATANT",56,216)
+PAZOPANIB/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,217)
+9733^3130917.151524^.01^345^A
+"TEMP","DATANT",56,218)
+PAZOPANIB/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,219)
+9734^3130917.151529^.01^345^A
+"TEMP","DATANT",56,220)
+PAZOPANIB/VARICELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,221)
+9735^3130917.151537^.01^345^A
+"TEMP","DATANT",56,222)
+PAZOPANIB/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,223)
+9736^3130917.15154^.01^345^A
+"TEMP","DATANT",56,224)
+PAZOPANIB/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATANT",56,225)
+9737^3130917.15162^.01^345^A
+"TEMP","DATANT",56,226)
+BCG VACCINE/PEGASPARGASE
+"TEMP","DATANT",56,227)
+9738^3130917.151631^.01^345^A
+"TEMP","DATANT",56,228)
+INFLUENZA VIRUS,LIVE/PEGASPARGASE
+"TEMP","DATANT",56,229)
+9739^3130917.151636^.01^345^A
+"TEMP","DATANT",56,230)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/PEGASPARGASE
+"TEMP","DATANT",56,231)
+9740^3130917.151644^.01^345^A
+"TEMP","DATANT",56,232)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PEGASPARGASE
+"TEMP","DATANT",56,233)
+9741^3130917.15165^.01^345^A
+"TEMP","DATANT",56,234)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/PEGASPARGASE
+"TEMP","DATANT",56,235)
+9742^3130917.151657^.01^345^A
+"TEMP","DATANT",56,236)
+MUMPS VIRUS VACCINE,LIVE/PEGASPARGASE
+"TEMP","DATANT",56,237)
+9743^3130917.151705^.01^345^A
+"TEMP","DATANT",56,238)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/PEGASPARGASE
+"TEMP","DATANT",56,239)
+9744^3130917.151712^.01^345^A
+"TEMP","DATANT",56,240)
+PEGASPARGASE/POLIOVIRUS VACCINE LIVE
+"TEMP","DATANT",56,241)
+9745^3130917.151717^.01^345^A
+"TEMP","DATANT",56,242)
+PEGASPARGASE/ROTAVIRUS
+"TEMP","DATANT",56,243)
+9746^3130917.151733^.01^345^A
+"TEMP","DATANT",56,244)
+PEGASPARGASE/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,245)
+9747^3130917.151743^.01^345^A
+"TEMP","DATANT",56,246)
+PEGASPARGASE/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,247)
+9748^3130917.151749^.01^345^A
+"TEMP","DATANT",56,248)
+PEGASPARGASE/VARICELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,249)
+9749^3130917.151758^.01^345^A
+"TEMP","DATANT",56,250)
+PEGASPARGASE/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,251)
+9750^3130917.151804^.01^345^A
+"TEMP","DATANT",56,252)
+PEGASPARGASE/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATANT",56,253)
+9751^3130917.151846^.01^345^A
+"TEMP","DATANT",56,254)
+BCG VACCINE/PEMETREXED
+"TEMP","DATANT",56,255)
+9752^3130917.151906^.01^345^A
+"TEMP","DATANT",56,256)
+INFLUENZA VIRUS,LIVE/PEMETREXED
+"TEMP","DATANT",56,257)
+9753^3130917.151914^.01^345^A
+"TEMP","DATANT",56,258)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/PEMETREXED
+"TEMP","DATANT",56,259)
+9754^3130917.151918^.01^345^A
+"TEMP","DATANT",56,260)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PEMETREXED
+"TEMP","DATANT",56,261)
+9755^3130917.151922^.01^345^A
+"TEMP","DATANT",56,262)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/PEMETREXED
+"TEMP","DATANT",56,263)
+9756^3130917.151932^.01^345^A
+"TEMP","DATANT",56,264)
+MUMPS VIRUS VACCINE,LIVE/PEMETREXED
+"TEMP","DATANT",56,265)
+9757^3130917.151938^.01^345^A
+"TEMP","DATANT",56,266)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/PEMETREXED
+"TEMP","DATANT",56,267)
+9758^3130917.152318^.01^345^A
+"TEMP","DATANT",56,268)
+PEMETREXED/POLIOVIRUS VACCINE LIVE
+"TEMP","DATANT",56,269)
+9759^3130917.152327^.01^345^A
+"TEMP","DATANT",56,270)
+PEMETREXED/ROTAVIRUS
+"TEMP","DATANT",56,271)
+9760^3130917.152337^.01^345^A
+"TEMP","DATANT",56,272)
+PEMETREXED/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,273)
+9761^3130917.152344^.01^345^A
+"TEMP","DATANT",56,274)
+PEMETREXED/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,275)
+9762^3130917.152349^.01^345^A
+"TEMP","DATANT",56,276)
+PEMETREXED/VARICELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,277)
+9763^3130917.152358^.01^345^A
+"TEMP","DATANT",56,278)
+PEMETREXED/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,279)
+9764^3130917.152407^.01^345^A
+"TEMP","DATANT",56,280)
+PEMETREXED/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATANT",56,281)
+9765^3130917.154146^.01^345^A
+"TEMP","DATANT",56,282)
+BCG VACCINE/PENTOSTATIN
+"TEMP","DATANT",56,283)
+9766^3130917.154223^.01^345^A
+"TEMP","DATANT",56,284)
+INFLUENZA VIRUS,LIVE/PENTOSTATIN
+"TEMP","DATANT",56,285)
+9767^3130917.154416^.01^345^A
+"TEMP","DATANT",56,286)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/PENTOSTATIN
+"TEMP","DATANT",56,287)
+9768^3130917.154421^.01^345^A
+"TEMP","DATANT",56,288)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PENTOSTATIN
+"TEMP","DATANT",56,289)
+9769^3130917.154427^.01^345^A
+"TEMP","DATANT",56,290)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/PENTOSTATIN
+"TEMP","DATANT",56,291)
+9770^3130917.154433^.01^345^A
+"TEMP","DATANT",56,292)
+MUMPS VIRUS VACCINE,LIVE/PENTOSTATIN
+"TEMP","DATANT",56,293)
+9771^3130917.15444^.01^345^A
+"TEMP","DATANT",56,294)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/PENTOSTATIN
+"TEMP","DATANT",56,295)
+9772^3130917.154449^.01^345^A
+"TEMP","DATANT",56,296)
+PENTOSTATIN/POLIOVIRUS VACCINE LIVE
+"TEMP","DATANT",56,297)
+9773^3130917.154456^.01^345^A
+"TEMP","DATANT",56,298)
+PENTOSTATIN/ROTAVIRUS
+"TEMP","DATANT",56,299)
+9774^3130917.154511^.01^345^A
+"TEMP","DATANT",56,300)
+PENTOSTATIN/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,301)
+9775^3130917.154516^.01^345^A
+"TEMP","DATANT",56,302)
+PENTOSTATIN/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,303)
+9776^3130917.154523^.01^345^A
+"TEMP","DATANT",56,304)
+PENTOSTATIN/VARICELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,305)
+9777^3130917.154537^.01^345^A
+"TEMP","DATANT",56,306)
+PENTOSTATIN/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,307)
+9778^3130917.154545^.01^345^A
+"TEMP","DATANT",56,308)
+PENTOSTATIN/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATANT",56,309)
+9779^3130917.161217^.01^345^A
+"TEMP","DATANT",56,310)
+BCG VACCINE/PLICAMYCIN
+"TEMP","DATANT",56,311)
+9780^3130917.161225^.01^345^A
+"TEMP","DATANT",56,312)
+INFLUENZA VIRUS,LIVE/PLICAMYCIN
+"TEMP","DATANT",56,313)
+9781^3130917.161231^.01^345^A
+"TEMP","DATANT",56,314)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/PLICAMYCIN
+"TEMP","DATANT",56,315)
+9782^3130917.161236^.01^345^A
+"TEMP","DATANT",56,316)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PLICAMYCIN
+"TEMP","DATANT",56,317)
+9783^3130917.161241^.01^345^A
+"TEMP","DATANT",56,318)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/PLICAMYCIN
+"TEMP","DATANT",56,319)
+9784^3130917.161247^.01^345^A
+"TEMP","DATANT",56,320)
+MUMPS VIRUS VACCINE,LIVE/PLICAMYCIN
+"TEMP","DATANT",56,321)
+9785^3130917.161253^.01^345^A
+"TEMP","DATANT",56,322)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/PLICAMYCIN
+"TEMP","DATANT",56,323)
+9786^3130917.161259^.01^345^A
+"TEMP","DATANT",56,324)
+PLICAMYCIN/POLIOVIRUS VACCINE LIVE
+"TEMP","DATANT",56,325)
+9787^3130917.161307^.01^345^A
+"TEMP","DATANT",56,326)
+PLICAMYCIN/ROTAVIRUS
+"TEMP","DATANT",56,327)
+9788^3130917.161313^.01^345^A
+"TEMP","DATANT",56,328)
+PLICAMYCIN/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,329)
+9789^3130917.161322^.01^345^A
+"TEMP","DATANT",56,330)
+PLICAMYCIN/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,331)
+9790^3130917.161331^.01^345^A
+"TEMP","DATANT",56,332)
+PLICAMYCIN/VARICELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,333)
+9791^3130917.161337^.01^345^A
+"TEMP","DATANT",56,334)
+PLICAMYCIN/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,335)
+9792^3130917.161344^.01^345^A
+"TEMP","DATANT",56,336)
+PLICAMYCIN/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATANT",56,337)
+9793^3130917.161352^.01^345^A
+"TEMP","DATANT",56,338)
+BCG VACCINE/PRALATREXATE
+"TEMP","DATANT",56,339)
+9794^3130917.161359^.01^345^A
+"TEMP","DATANT",56,340)
+INFLUENZA VIRUS,LIVE/PRALATREXATE
+"TEMP","DATANT",56,341)
+9795^3130917.161429^.01^345^A
+"TEMP","DATANT",56,342)
+MEASLES VIRUS VACCINE,LIVE ATTENUATED/PRALATREXATE
+"TEMP","DATANT",56,343)
+9796^3130917.161435^.01^345^A
+"TEMP","DATANT",56,344)
+MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PRALATREXATE
+"TEMP","DATANT",56,345)
+9797^3130917.161438^.01^345^A
+"TEMP","DATANT",56,346)
+MEASLES/RUBELLA VIRUS VACCINE,LIVE/PRALATREXATE
+"TEMP","DATANT",56,347)
+9798^3130917.161447^.01^345^A
+"TEMP","DATANT",56,348)
+MUMPS VIRUS VACCINE,LIVE/PRALATREXATE
+"TEMP","DATANT",56,349)
+9799^3130917.161451^.01^345^A
+"TEMP","DATANT",56,350)
+MUMPS/RUBELLA VIRUS VACCINE,LIVE/PRALATREXATE
+"TEMP","DATANT",56,351)
+9800^3130917.161456^.01^345^A
+"TEMP","DATANT",56,352)
+POLIOVIRUS VACCINE LIVE/PRALATREXATE
+"TEMP","DATANT",56,353)
+9801^3130917.1615^.01^345^A
+"TEMP","DATANT",56,354)
+PRALATREXATE/ROTAVIRUS
+"TEMP","DATANT",56,355)
+9802^3130917.161508^.01^345^A
+"TEMP","DATANT",56,356)
+PRALATREXATE/RUBELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,357)
+9803^3130917.161514^.01^345^A
+"TEMP","DATANT",56,358)
+PRALATREXATE/TYPHOID VACCINE LIVE
+"TEMP","DATANT",56,359)
+9804^3130917.161521^.01^345^A
+"TEMP","DATANT",56,360)
+PRALATREXATE/VARICELLA VIRUS VACCINE,LIVE
+"TEMP","DATANT",56,361)
+9805^3130917.161527^.01^345^A
+"TEMP","DATANT",56,362)
+PRALATREXATE/YELLOW FEVER VACCINE
+"TEMP","DATANT",56,363)
+9806^3130917.161532^.01^345^A
+"TEMP","DATANT",56,364)
+PRALATREXATE/ZOSTER VACCINE LIVE (OKA/MERCK)
+"TEMP","DATAO",50.416,1)
+4878^3130913.141349^99.98^358^
+"TEMP","DATAO",50.416,2)
+1
+"TEMP","DATAO",50.416,3)
+4878^3130913.141349^99.99^358^
+"TEMP","DATAO",50.416,4)
+4032689
+"TEMP","DATAO",50.416,5)
+4878,1^3130913.141349^99.991,.02^358^
+"TEMP","DATAO",50.416,6)
+1
+"TEMP","DATAO",50.416,7)
+4879^3130913.145758^2^358^
+"TEMP","DATAO",50.416,8)
+4878
+"TEMP","DATAO",50.416,9)
+4879^3130913.145758^99.98^358^
+"TEMP","DATAO",50.416,10)
+1
+"TEMP","DATAO",50.416,11)
+4879^3130913.145758^99.99^358^
+"TEMP","DATAO",50.416,12)
+4032690
+"TEMP","DATAO",50.416,13)
+4879,1^3130913.145758^99.991,.02^358^
+"TEMP","DATAO",50.416,14)
+1
+"TEMP","DATAO",50.416,15)
+4880^3130920.144456^99.98^358^
+"TEMP","DATAO",50.416,16)
+1
+"TEMP","DATAO",50.416,17)
+4880^3130920.144456^99.99^358^
+"TEMP","DATAO",50.416,18)
+4032717
+"TEMP","DATAO",50.416,19)
+4880,1^3130920.144456^99.991,.02^358^
+"TEMP","DATAO",50.416,20)
+1
+"TEMP","DATAO",50.416,21)
+4881^3130927.144438^99.98^358^
+"TEMP","DATAO",50.416,22)
+1
+"TEMP","DATAO",50.416,23)
+4881^3130927.144438^99.99^358^
+"TEMP","DATAO",50.416,24)
+4032746
+"TEMP","DATAO",50.416,25)
+4881,1^3130927.144438^99.991,.02^358^
+"TEMP","DATAO",50.416,26)
+1
+"TEMP","DATAO",50.416,27)
+4882^3130927.144523^99.98^358^
+"TEMP","DATAO",50.416,28)
+1
+"TEMP","DATAO",50.416,29)
+4882^3130927.144523^99.99^358^
+"TEMP","DATAO",50.416,30)
+4032747
+"TEMP","DATAO",50.416,31)
+4882,1^3130927.144523^99.991,.02^358^
+"TEMP","DATAO",50.416,32)
+1
+"TEMP","DATAO",50.6,1)
+4839^3130913.141318^99.98^358^
+"TEMP","DATAO",50.6,2)
+1
+"TEMP","DATAO",50.6,3)
+4839^3130913.141318^99.99^358^
+"TEMP","DATAO",50.6,4)
+4032689
+"TEMP","DATAO",50.6,5)
+4839,1^3130913.141318^99.991,.02^358^
+"TEMP","DATAO",50.6,6)
+1
+"TEMP","DATAO",50.6,7)
+4840^3130917.095404^99.98^358^
+"TEMP","DATAO",50.6,8)
+1
+"TEMP","DATAO",50.6,9)
+4840^3130917.095404^99.99^358^
+"TEMP","DATAO",50.6,10)
+4032690
+"TEMP","DATAO",50.6,11)
+4840,1^3130917.095404^99.991,.02^358^
+"TEMP","DATAO",50.6,12)
+1
+"TEMP","DATAO",50.6,13)
+4841^3130920.144455^99.98^358^
+"TEMP","DATAO",50.6,14)
+1
+"TEMP","DATAO",50.6,15)
+4841^3130920.144455^99.99^358^
+"TEMP","DATAO",50.6,16)
+4032717
+"TEMP","DATAO",50.6,17)
+4841,1^3130920.144455^99.991,.02^358^
+"TEMP","DATAO",50.6,18)
+1
+"TEMP","DATAO",50.6,19)
+4842^3130920.145552^99.98^358^
+"TEMP","DATAO",50.6,20)
+1
+"TEMP","DATAO",50.6,21)
+4842^3130920.145552^99.99^358^
+"TEMP","DATAO",50.6,22)
+4032718
+"TEMP","DATAO",50.6,23)
+4842,1^3130920.145552^99.991,.02^358^
+"TEMP","DATAO",50.6,24)
+1
+"TEMP","DATAO",50.6,25)
+4843^3130925.154505^99.98^358^
+"TEMP","DATAO",50.6,26)
+1
+"TEMP","DATAO",50.6,27)
+4843^3130925.154505^99.99^358^
+"TEMP","DATAO",50.6,28)
+4032729
+"TEMP","DATAO",50.6,29)
+4843,1^3130925.154505^99.991,.02^358^
+"TEMP","DATAO",50.6,30)
+1
+"TEMP","DATAO",50.67,1)
+138143^3130911.153504^2^358^
+"TEMP","DATAO",50.67,2)
+87701-60549
+"TEMP","DATAO",50.67,3)
+138143^3130911.153504^5^358^
+"TEMP","DATAO",50.67,4)
+18102
+"TEMP","DATAO",50.67,5)
+138144^3130911.153506^2^358^
+"TEMP","DATAO",50.67,6)
+79854-50500
+"TEMP","DATAO",50.67,7)
+138144^3130911.153506^5^358^
+"TEMP","DATAO",50.67,8)
+18102
+"TEMP","DATAO",50.67,9)
+138145^3130911.153509^2^358^
+"TEMP","DATAO",50.67,10)
+79854-01245
+"TEMP","DATAO",50.67,11)
+138145^3130911.153509^5^358^
+"TEMP","DATAO",50.67,12)
+18102
+"TEMP","DATAO",50.67,13)
+138146^3130911.153511^5^358^
+"TEMP","DATAO",50.67,14)
+18102
+"TEMP","DATAO",50.67,15)
+138147^3130911.153514^5^358^
+"TEMP","DATAO",50.67,16)
+18102
+"TEMP","DATAO",50.67,17)
+97427^3130911.153516^5^358^
+"TEMP","DATAO",50.67,18)
+18102
+"TEMP","DATAO",50.67,19)
+138148^3130911.153518^2^358^
+"TEMP","DATAO",50.67,20)
+41163-26643
+"TEMP","DATAO",50.67,21)
+138148^3130911.153518^5^358^
+"TEMP","DATAO",50.67,22)
+18102
+"TEMP","DATAO",50.67,23)
+138149^3130911.153521^5^358^
+"TEMP","DATAO",50.67,24)
+18102
+"TEMP","DATAO",50.67,25)
+138150^3130911.153524^2^358^
+"TEMP","DATAO",50.67,26)
+11917-07621
+"TEMP","DATAO",50.67,27)
+138150^3130911.153524^5^358^
+"TEMP","DATAO",50.67,28)
+18102
+"TEMP","DATAO",50.67,29)
+138151^3130911.153526^5^358^
+"TEMP","DATAO",50.67,30)
+18102
+"TEMP","DATAO",50.67,31)
+138152^3130911.153529^2^358^
+"TEMP","DATAO",50.67,32)
+11917-05128
+"TEMP","DATAO",50.67,33)
+138152^3130911.153529^5^358^
+"TEMP","DATAO",50.67,34)
+18102
+"TEMP","DATAO",50.67,35)
+138153^3130911.153532^5^358^
+"TEMP","DATAO",50.67,36)
+18102
+"TEMP","DATAO",50.67,37)
+138154^3130911.153535^5^358^
+"TEMP","DATAO",50.67,38)
+18102
+"TEMP","DATAO",50.67,39)
+138155^3130911.153537^5^358^
+"TEMP","DATAO",50.67,40)
+18102
+"TEMP","DATAO",50.67,41)
+60242^3130911.155046^5^358^
+"TEMP","DATAO",50.67,42)
+16942
+"TEMP","DATAO",50.67,43)
+60254^3130911.155049^5^358^
+"TEMP","DATAO",50.67,44)
+16942
+"TEMP","DATAO",50.67,45)
+195033^3130911.155052^5^358^
+"TEMP","DATAO",50.67,46)
+16942
+"TEMP","DATAO",50.67,47)
+194256^3130911.155055^5^358^
+"TEMP","DATAO",50.67,48)
+16942
+"TEMP","DATAO",50.67,49)
+60285^3130911.155304^5^358^
+"TEMP","DATAO",50.67,50)
+16941
+"TEMP","DATAO",50.67,51)
+60296^3130911.155306^5^358^
+"TEMP","DATAO",50.67,52)
+16941
+"TEMP","DATAO",50.67,53)
+194257^3130911.155309^5^358^
+"TEMP","DATAO",50.67,54)
+16941
+"TEMP","DATAO",50.67,55)
+201945^3130912.063^1^358^
+"TEMP","DATAO",50.67,56)
+000002765801
+"TEMP","DATAO",50.67,57)
+201945^3130912.063^3^358^
+"TEMP","DATAO",50.67,58)
+3640
+"TEMP","DATAO",50.67,59)
+201945^3130912.063^4^358^
+"TEMP","DATAO",50.67,60)
+ZYPREXA RELPREVV
+"TEMP","DATAO",50.67,61)
+201945^3130912.063^5^358^
+"TEMP","DATAO",50.67,62)
+21421
+"TEMP","DATAO",50.67,63)
+201945^3130912.063^8^358^
+"TEMP","DATAO",50.67,64)
+4592
+"TEMP","DATAO",50.67,65)
+201945^3130912.063^9^358^
+"TEMP","DATAO",50.67,66)
+613
+"TEMP","DATAO",50.67,67)
+201945^3130912.063^10^358^
+"TEMP","DATAO",50.67,68)
+R
+"TEMP","DATAO",50.67,69)
+201946^3130912.063001^1^358^
+"TEMP","DATAO",50.67,70)
+000002765901
+"TEMP","DATAO",50.67,71)
+201946^3130912.063001^3^358^
+"TEMP","DATAO",50.67,72)
+3640
+"TEMP","DATAO",50.67,73)
+201946^3130912.063001^4^358^
+"TEMP","DATAO",50.67,74)
+ZYPREXA RELPREVV
+"TEMP","DATAO",50.67,75)
+201946^3130912.063001^5^358^
+"TEMP","DATAO",50.67,76)
+21419
+"TEMP","DATAO",50.67,77)
+201946^3130912.063001^8^358^
+"TEMP","DATAO",50.67,78)
+4592
+"TEMP","DATAO",50.67,79)
+201946^3130912.063001^9^358^
+"TEMP","DATAO",50.67,80)
+613
+"TEMP","DATAO",50.67,81)
+201946^3130912.063001^10^358^
+"TEMP","DATAO",50.67,82)
+R
+"TEMP","DATAO",50.67,83)
+201947^3130912.063002^1^358^
+"TEMP","DATAO",50.67,84)
+000002766001
+"TEMP","DATAO",50.67,85)
+201947^3130912.063002^3^358^
+"TEMP","DATAO",50.67,86)
+3640
+"TEMP","DATAO",50.67,87)
+201947^3130912.063002^4^358^
+"TEMP","DATAO",50.67,88)
+ZYPREXA RELPREVV
+"TEMP","DATAO",50.67,89)
+201947^3130912.063002^5^358^
+"TEMP","DATAO",50.67,90)
+21547
+"TEMP","DATAO",50.67,91)
+201947^3130912.063002^8^358^
+"TEMP","DATAO",50.67,92)
+4592
+"TEMP","DATAO",50.67,93)
+201947^3130912.063002^9^358^
+"TEMP","DATAO",50.67,94)
+613
+"TEMP","DATAO",50.67,95)
+201947^3130912.063002^10^358^
+"TEMP","DATAO",50.67,96)
+R
+"TEMP","DATAO",50.67,97)
+201948^3130912.063002^1^358^
+"TEMP","DATAO",50.67,98)
+000121077216
+"TEMP","DATAO",50.67,99)
+201948^3130912.063002^3^358^
+"TEMP","DATAO",50.67,100)
+3503
+"TEMP","DATAO",50.67,101)
+201948^3130912.063002^4^358^
+"TEMP","DATAO",50.67,102)
+HYDROCODONE-ACETAMINOPHEN
+"TEMP","DATAO",50.67,103)
+201948^3130912.063002^5^358^
+"TEMP","DATAO",50.67,104)
+22716
+"TEMP","DATAO",50.67,105)
+201948^3130912.063002^8^358^
+"TEMP","DATAO",50.67,106)
+4663
+"TEMP","DATAO",50.67,107)
+201948^3130912.063002^9^358^
+"TEMP","DATAO",50.67,108)
+491
+"TEMP","DATAO",50.67,109)
+201948^3130912.063002^10^358^
+"TEMP","DATAO",50.67,110)
+R
+"TEMP","DATAO",50.67,111)
+201949^3130912.063002^1^358^
+"TEMP","DATAO",50.67,112)
+000113075171
+"TEMP","DATAO",50.67,113)
+201949^3130912.063002^3^358^
+"TEMP","DATAO",50.67,114)
+3387
+"TEMP","DATAO",50.67,115)
+201949^3130912.063002^4^358^
+"TEMP","DATAO",50.67,116)
+PAIN RELIEF PM
+"TEMP","DATAO",50.67,117)
+201949^3130912.063002^5^358^
+"TEMP","DATAO",50.67,118)
+9770
+"TEMP","DATAO",50.67,119)
+201949^3130912.063002^8^358^
+"TEMP","DATAO",50.67,120)
+4616
+"TEMP","DATAO",50.67,121)
+201949^3130912.063002^9^358^
+"TEMP","DATAO",50.67,122)
+491
+"TEMP","DATAO",50.67,123)
+201949^3130912.063002^10^358^
+"TEMP","DATAO",50.67,124)
+O
+"TEMP","DATAO",50.67,125)
+201950^3130912.063003^1^358^
+"TEMP","DATAO",50.67,126)
+000121077204
+"TEMP","DATAO",50.67,127)
+201950^3130912.063003^3^358^
+"TEMP","DATAO",50.67,128)
+3503
+"TEMP","DATAO",50.67,129)
+201950^3130912.063003^4^358^
+"TEMP","DATAO",50.67,130)
+HYDROCODONE-ACETAMINOPHEN
+"TEMP","DATAO",50.67,131)
+201950^3130912.063003^5^358^
+"TEMP","DATAO",50.67,132)
+22716
+"TEMP","DATAO",50.67,133)
+201950^3130912.063003^8^358^
+"TEMP","DATAO",50.67,134)
+4677
+"TEMP","DATAO",50.67,135)
+201950^3130912.063003^9^358^
+"TEMP","DATAO",50.67,136)
+491
+"TEMP","DATAO",50.67,137)
+201950^3130912.063003^10^358^
+"TEMP","DATAO",50.67,138)
+R
+"TEMP","DATAO",50.67,139)
+201951^3130912.063004^1^358^
+"TEMP","DATAO",50.67,140)
+000363023206
+"TEMP","DATAO",50.67,141)
+201951^3130912.063004^3^358^
+"TEMP","DATAO",50.67,142)
+3395
+"TEMP","DATAO",50.67,143)
+201951^3130912.063004^4^358^
+"TEMP","DATAO",50.67,144)
+MUCUS RELIEF DM MAX
+"TEMP","DATAO",50.67,145)
+201951^3130912.063004^5^358^
+"TEMP","DATAO",50.67,146)
+4925
+"TEMP","DATAO",50.67,147)
+201951^3130912.063004^8^358^
+"TEMP","DATAO",50.67,148)
+4696
+"TEMP","DATAO",50.67,149)
+201951^3130912.063004^9^358^
+"TEMP","DATAO",50.67,150)
+491
+"TEMP","DATAO",50.67,151)
+201951^3130912.063004^10^358^
+"TEMP","DATAO",50.67,152)
+O
+"TEMP","DATAO",50.67,153)
+201952^3130912.063004^1^358^
+"TEMP","DATAO",50.67,154)
+000187560015
+"TEMP","DATAO",50.67,155)
+201952^3130912.063004^3^358^
+"TEMP","DATAO",50.67,156)
+116
+"TEMP","DATAO",50.67,157)
+201952^3130912.063004^4^358^
+"TEMP","DATAO",50.67,158)
+VISUDYNE
+"TEMP","DATAO",50.67,159)
+201952^3130912.063004^5^358^
+"TEMP","DATAO",50.67,160)
+14378
+"TEMP","DATAO",50.67,161)
+201952^3130912.063004^8^358^
+"TEMP","DATAO",50.67,162)
+4592
+"TEMP","DATAO",50.67,163)
+201952^3130912.063004^9^358^
+"TEMP","DATAO",50.67,164)
+613
+"TEMP","DATAO",50.67,165)
+201952^3130912.063004^10^358^
+"TEMP","DATAO",50.67,166)
+R
+"TEMP","DATAO",50.67,167)
+201953^3130912.063005^1^358^
+"TEMP","DATAO",50.67,168)
+000363062712
+"TEMP","DATAO",50.67,169)
+201953^3130912.063005^3^358^
+"TEMP","DATAO",50.67,170)
+3395
+"TEMP","DATAO",50.67,171)
+201953^3130912.063005^4^358^
+"TEMP","DATAO",50.67,172)
+SLEEP AID (DIPHENHYDRAMINE)
+"TEMP","DATAO",50.67,173)
+201953^3130912.063005^5^358^
+"TEMP","DATAO",50.67,174)
+1977
+"TEMP","DATAO",50.67,175)
+201953^3130912.063005^8^358^
+"TEMP","DATAO",50.67,176)
+4593
+"TEMP","DATAO",50.67,177)
+201953^3130912.063005^9^358^
+"TEMP","DATAO",50.67,178)
+491
+"TEMP","DATAO",50.67,179)
+201953^3130912.063005^10^358^
+"TEMP","DATAO",50.67,180)
+O
+"TEMP","DATAO",50.67,181)
+201954^3130912.063005^1^358^
+"TEMP","DATAO",50.67,182)
+000363023508
+"TEMP","DATAO",50.67,183)
+201954^3130912.063005^3^358^
+"TEMP","DATAO",50.67,184)
+3395
+"TEMP","DATAO",50.67,185)
+201954^3130912.063005^4^358^
+"TEMP","DATAO",50.67,186)
+WAL-NADOL PM
+"TEMP","DATAO",50.67,187)
+201954^3130912.063005^5^358^
+"TEMP","DATAO",50.67,188)
+9770
+"TEMP","DATAO",50.67,189)
+201954^3130912.063005^8^358^
+"TEMP","DATAO",50.67,190)
+4639
+"TEMP","DATAO",50.67,191)
+201954^3130912.063005^9^358^
+"TEMP","DATAO",50.67,192)
+491
+"TEMP","DATAO",50.67,193)
+201954^3130912.063005^10^358^
+"TEMP","DATAO",50.67,194)
+O
+"TEMP","DATAO",50.67,195)
+201955^3130912.063007^1^358^
+"TEMP","DATAO",50.67,196)
+011917013297
+"TEMP","DATAO",50.67,197)
+201955^3130912.063007^2^358^
+"TEMP","DATAO",50.67,198)
+11917-13297
+"TEMP","DATAO",50.67,199)
+201955^3130912.063007^3^358^
+"TEMP","DATAO",50.67,200)
+3395
+"TEMP","DATAO",50.67,201)
+201955^3130912.063007^4^358^
+"TEMP","DATAO",50.67,202)
+GLYCERIN (ADULT)
+"TEMP","DATAO",50.67,203)
+201955^3130912.063007^5^358^
+"TEMP","DATAO",50.67,204)
+4486
+"TEMP","DATAO",50.67,205)
+201955^3130912.063007^8^358^
+"TEMP","DATAO",50.67,206)
+4593
+"TEMP","DATAO",50.67,207)
+201955^3130912.063007^9^358^
+"TEMP","DATAO",50.67,208)
+257
+"TEMP","DATAO",50.67,209)
+201955^3130912.063007^10^358^
+"TEMP","DATAO",50.67,210)
+O
+"TEMP","DATAO",50.67,211)
+201956^3130912.063007^1^358^
+"TEMP","DATAO",50.67,212)
+011917013298
+"TEMP","DATAO",50.67,213)
+201956^3130912.063007^2^358^
+"TEMP","DATAO",50.67,214)
+11917-13298
+"TEMP","DATAO",50.67,215)
+201956^3130912.063007^3^358^
+"TEMP","DATAO",50.67,216)
+3395
+"TEMP","DATAO",50.67,217)
+201956^3130912.063007^4^358^
+"TEMP","DATAO",50.67,218)
+GLYCERIN (ADULT)
+"TEMP","DATAO",50.67,219)
+201956^3130912.063007^5^358^
+"TEMP","DATAO",50.67,220)
+4486
+"TEMP","DATAO",50.67,221)
+201956^3130912.063007^8^358^
+"TEMP","DATAO",50.67,222)
+4616
+"TEMP","DATAO",50.67,223)
+201956^3130912.063007^9^358^
+"TEMP","DATAO",50.67,224)
+257
+"TEMP","DATAO",50.67,225)
+201956^3130912.063007^10^358^
+"TEMP","DATAO",50.67,226)
+O
+"TEMP","DATAO",50.67,227)
+201957^3130912.063008^1^358^
+"TEMP","DATAO",50.67,228)
+011917015664
+"TEMP","DATAO",50.67,229)
+201957^3130912.063008^2^358^
+"TEMP","DATAO",50.67,230)
+11917-15664
+"TEMP","DATAO",50.67,231)
+201957^3130912.063008^3^358^
+"TEMP","DATAO",50.67,232)
+3395
+"TEMP","DATAO",50.67,233)
+201957^3130912.063008^4^358^
+"TEMP","DATAO",50.67,234)
+MELATONIN
+"TEMP","DATAO",50.67,235)
+201957^3130912.063008^5^358^
+"TEMP","DATAO",50.67,236)
+15643
+"TEMP","DATAO",50.67,237)
+201957^3130912.063008^8^358^
+"TEMP","DATAO",50.67,238)
+4638
+"TEMP","DATAO",50.67,239)
+201957^3130912.063008^9^358^
+"TEMP","DATAO",50.67,240)
+491
+"TEMP","DATAO",50.67,241)
+201957^3130912.063008^10^358^
+"TEMP","DATAO",50.67,242)
+O
+"TEMP","DATAO",50.67,243)
+201958^3130912.063008^1^358^
+"TEMP","DATAO",50.67,244)
+011917015912
+"TEMP","DATAO",50.67,245)
+201958^3130912.063008^2^358^
+"TEMP","DATAO",50.67,246)
+11917-15912
+"TEMP","DATAO",50.67,247)
+201958^3130912.063008^3^358^
+"TEMP","DATAO",50.67,248)
+3395
+"TEMP","DATAO",50.67,249)
+201958^3130912.063008^4^358^
+"TEMP","DATAO",50.67,250)
+COUGH DROPS
+"TEMP","DATAO",50.67,251)
+201958^3130912.063008^5^358^
+"TEMP","DATAO",50.67,252)
+18436
+"TEMP","DATAO",50.67,253)
+201958^3130912.063008^8^358^
+"TEMP","DATAO",50.67,254)
+4597
+"TEMP","DATAO",50.67,255)
+201958^3130912.063008^9^358^
+"TEMP","DATAO",50.67,256)
+48
+"TEMP","DATAO",50.67,257)
+201958^3130912.063008^10^358^
+"TEMP","DATAO",50.67,258)
+O
+"TEMP","DATAO",50.67,259)
+201959^3130912.063008^1^358^
+"TEMP","DATAO",50.67,260)
+011917015948
+"TEMP","DATAO",50.67,261)
+201959^3130912.063008^2^358^
+"TEMP","DATAO",50.67,262)
+11917-15948
+"TEMP","DATAO",50.67,263)
+201959^3130912.063008^3^358^
+"TEMP","DATAO",50.67,264)
+3395
+"TEMP","DATAO",50.67,265)
+201959^3130912.063008^4^358^
+"TEMP","DATAO",50.67,266)
+MUCUS RELIEF DM MAX
+"TEMP","DATAO",50.67,267)
+201959^3130912.063008^5^358^
+"TEMP","DATAO",50.67,268)
+4925
+"TEMP","DATAO",50.67,269)
+201959^3130912.063008^8^358^
+"TEMP","DATAO",50.67,270)
+4696
+"TEMP","DATAO",50.67,271)
+201959^3130912.063008^9^358^
+"TEMP","DATAO",50.67,272)
+491
+"TEMP","DATAO",50.67,273)
+201959^3130912.063008^10^358^
+"TEMP","DATAO",50.67,274)
+O
+"TEMP","DATAO",50.67,275)
+201960^3130912.063009^1^358^
+"TEMP","DATAO",50.67,276)
+011917015954
+"TEMP","DATAO",50.67,277)
+201960^3130912.063009^2^358^
+"TEMP","DATAO",50.67,278)
+11917-15954
+"TEMP","DATAO",50.67,279)
+201960^3130912.063009^3^358^
+"TEMP","DATAO",50.67,280)
+3395
+"TEMP","DATAO",50.67,281)
+201960^3130912.063009^4^358^
+"TEMP","DATAO",50.67,282)
+SLEEP AID (DIPHENHYDRAMINE)
+"TEMP","DATAO",50.67,283)
+201960^3130912.063009^5^358^
+"TEMP","DATAO",50.67,284)
+1977
+"TEMP","DATAO",50.67,285)
+201960^3130912.063009^8^358^
+"TEMP","DATAO",50.67,286)
+4593
+"TEMP","DATAO",50.67,287)
+201960^3130912.063009^9^358^
+"TEMP","DATAO",50.67,288)
+491
+"TEMP","DATAO",50.67,289)
+201960^3130912.063009^10^358^
+"TEMP","DATAO",50.67,290)
+O
+"TEMP","DATAO",50.67,291)
+201961^3130912.063009^1^358^
+"TEMP","DATAO",50.67,292)
+011917016035
+"TEMP","DATAO",50.67,293)
+201961^3130912.063009^2^358^
+"TEMP","DATAO",50.67,294)
+11917-16035
+"TEMP","DATAO",50.67,295)
+201961^3130912.063009^3^358^
+"TEMP","DATAO",50.67,296)
+3395
+"TEMP","DATAO",50.67,297)
+201961^3130912.063009^4^358^
+"TEMP","DATAO",50.67,298)
+WAL-NADOL PM
+"TEMP","DATAO",50.67,299)
+201961^3130912.063009^5^358^
+"TEMP","DATAO",50.67,300)
+9770
+"TEMP","DATAO",50.67,301)
+201961^3130912.063009^8^358^
+"TEMP","DATAO",50.67,302)
+4639
+"TEMP","DATAO",50.67,303)
+201961^3130912.063009^9^358^
+"TEMP","DATAO",50.67,304)
+491
+"TEMP","DATAO",50.67,305)
+201961^3130912.063009^10^358^
+"TEMP","DATAO",50.67,306)
+O
+"TEMP","DATAO",50.67,307)
+201962^3130912.06301^1^358^
+"TEMP","DATAO",50.67,308)
+021695021960
+"TEMP","DATAO",50.67,309)
+201962^3130912.06301^3^358^
+"TEMP","DATAO",50.67,310)
+3336
+"TEMP","DATAO",50.67,311)
+201962^3130912.06301^4^358^
+"TEMP","DATAO",50.67,312)
+DICYCLOMINE
+"TEMP","DATAO",50.67,313)
+201962^3130912.06301^5^358^
+"TEMP","DATAO",50.67,314)
+1997
+"TEMP","DATAO",50.67,315)
+201962^3130912.06301^8^358^
+"TEMP","DATAO",50.67,316)
+4595
+"TEMP","DATAO",50.67,317)
+201962^3130912.06301^9^358^
+"TEMP","DATAO",50.67,318)
+491
+"TEMP","DATAO",50.67,319)
+201962^3130912.06301^10^358^
+"TEMP","DATAO",50.67,320)
+R
+"TEMP","DATAO",50.67,321)
+201963^3130912.063013^1^358^
+"TEMP","DATAO",50.67,322)
+042794000308
+"TEMP","DATAO",50.67,323)
+201963^3130912.063013^3^358^
+"TEMP","DATAO",50.67,324)
+4276
+"TEMP","DATAO",50.67,325)
+201963^3130912.063013^4^358^
+"TEMP","DATAO",50.67,326)
+ADEFOVIR
+"TEMP","DATAO",50.67,327)
+201963^3130912.063013^5^358^
+"TEMP","DATAO",50.67,328)
+15948
+"TEMP","DATAO",50.67,329)
+201963^3130912.063013^8^358^
+"TEMP","DATAO",50.67,330)
+4597
+"TEMP","DATAO",50.67,331)
+201963^3130912.063013^9^358^
+"TEMP","DATAO",50.67,332)
+491
+"TEMP","DATAO",50.67,333)
+201963^3130912.063013^10^358^
+"TEMP","DATAO",50.67,334)
+R
+"TEMP","DATAO",50.67,335)
+201964^3130912.063015^1^358^
+"TEMP","DATAO",50.67,336)
+042367020207
+"TEMP","DATAO",50.67,337)
+201964^3130912.063015^3^358^
+"TEMP","DATAO",50.67,338)
+4126
+"TEMP","DATAO",50.67,339)
+201964^3130912.063015^4^358^
+"TEMP","DATAO",50.67,340)
+ARGATROBAN IN NACL (ISO-OS)
+"TEMP","DATAO",50.67,341)
+201964^3130912.063015^5^358^
+"TEMP","DATAO",50.67,342)
+23743
+"TEMP","DATAO",50.67,343)
+201964^3130912.063015^8^358^
+"TEMP","DATAO",50.67,344)
+4616
+"TEMP","DATAO",50.67,345)
+201964^3130912.063015^9^358^
+"TEMP","DATAO",50.67,346)
+613
+"TEMP","DATAO",50.67,347)
+201964^3130912.063015^10^358^
+"TEMP","DATAO",50.67,348)
+R
+"TEMP","DATAO",50.67,349)
+201965^3130912.063015^1^358^
+"TEMP","DATAO",50.67,350)
+042367020284
+"TEMP","DATAO",50.67,351)
+201965^3130912.063015^3^358^
+"TEMP","DATAO",50.67,352)
+4126
+"TEMP","DATAO",50.67,353)
+201965^3130912.063015^4^358^
+"TEMP","DATAO",50.67,354)
+ARGATROBAN IN NACL (ISO-OS)
+"TEMP","DATAO",50.67,355)
+201965^3130912.063015^5^358^
+"TEMP","DATAO",50.67,356)
+23743
+"TEMP","DATAO",50.67,357)
+201965^3130912.063015^8^358^
+"TEMP","DATAO",50.67,358)
+4616
+"TEMP","DATAO",50.67,359)
+201965^3130912.063015^9^358^
+"TEMP","DATAO",50.67,360)
+613
+"TEMP","DATAO",50.67,361)
+201965^3130912.063015^10^358^
+"TEMP","DATAO",50.67,362)
+R
+"TEMP","DATAO",50.67,363)
+201966^3130912.063016^1^358^
+"TEMP","DATAO",50.67,364)
+052569013319
+"TEMP","DATAO",50.67,365)
+201966^3130912.063016^2^358^
+"TEMP","DATAO",50.67,366)
+52569-13319
+"TEMP","DATAO",50.67,367)
+201966^3130912.063016^3^358^
+"TEMP","DATAO",50.67,368)
+2657
+"TEMP","DATAO",50.67,369)
+201966^3130912.063016^4^358^
+"TEMP","DATAO",50.67,370)
+NICOTINE
+"TEMP","DATAO",50.67,371)
+201966^3130912.063016^5^358^
+"TEMP","DATAO",50.67,372)
+9696
+"TEMP","DATAO",50.67,373)
+201966^3130912.063016^8^358^
+"TEMP","DATAO",50.67,374)
+4601
+"TEMP","DATAO",50.67,375)
+201966^3130912.063016^9^358^
+"TEMP","DATAO",50.67,376)
+492
+"TEMP","DATAO",50.67,377)
+201966^3130912.063016^10^358^
+"TEMP","DATAO",50.67,378)
+O
+"TEMP","DATAO",50.67,379)
+201967^3130912.063017^1^358^
+"TEMP","DATAO",50.67,380)
+054288120101
+"TEMP","DATAO",50.67,381)
+201967^3130912.063017^3^358^
+"TEMP","DATAO",50.67,382)
+4391
+"TEMP","DATAO",50.67,383)
+201967^3130912.063017^4^358^
+"TEMP","DATAO",50.67,384)
+CLONIDINE (BULK)
+"TEMP","DATAO",50.67,385)
+201967^3130912.063017^5^358^
+"TEMP","DATAO",50.67,386)
+14513
+"TEMP","DATAO",50.67,387)
+201967^3130912.063017^8^358^
+"TEMP","DATAO",50.67,388)
+4593
+"TEMP","DATAO",50.67,389)
+201967^3130912.063017^9^358^
+"TEMP","DATAO",50.67,390)
+257
+"TEMP","DATAO",50.67,391)
+201967^3130912.063017^10^358^
+"TEMP","DATAO",50.67,392)
+R
+"TEMP","DATAO",50.67,393)
+201968^3130912.063017^1^358^
+"TEMP","DATAO",50.67,394)
+054288120105
+"TEMP","DATAO",50.67,395)
+201968^3130912.063017^3^358^
+"TEMP","DATAO",50.67,396)
+4391
+"TEMP","DATAO",50.67,397)
+201968^3130912.063017^4^358^
+"TEMP","DATAO",50.67,398)
+CLONIDINE (BULK)
+"TEMP","DATAO",50.67,399)
+201968^3130912.063017^5^358^
+"TEMP","DATAO",50.67,400)
+14513
+"TEMP","DATAO",50.67,401)
+201968^3130912.063017^8^358^
+"TEMP","DATAO",50.67,402)
+4596
+"TEMP","DATAO",50.67,403)
+201968^3130912.063017^9^358^
+"TEMP","DATAO",50.67,404)
+257
+"TEMP","DATAO",50.67,405)
+201968^3130912.063017^10^358^
+"TEMP","DATAO",50.67,406)
+R
+"TEMP","DATAO",50.67,407)
+201969^3130912.063017^1^358^
+"TEMP","DATAO",50.67,408)
+054288120110
+"TEMP","DATAO",50.67,409)
+201969^3130912.063017^3^358^
+"TEMP","DATAO",50.67,410)
+4391
+"TEMP","DATAO",50.67,411)
+201969^3130912.063017^4^358^
+"TEMP","DATAO",50.67,412)
+CLONIDINE (BULK)
+"TEMP","DATAO",50.67,413)
+201969^3130912.063017^5^358^
+"TEMP","DATAO",50.67,414)
+14513
+"TEMP","DATAO",50.67,415)
+201969^3130912.063017^8^358^
+"TEMP","DATAO",50.67,416)
+4609
+"TEMP","DATAO",50.67,417)
+201969^3130912.063017^9^358^
+"TEMP","DATAO",50.67,418)
+257
+"TEMP","DATAO",50.67,419)
+201969^3130912.063017^10^358^
+"TEMP","DATAO",50.67,420)
+R
+"TEMP","DATAO",50.67,421)
+201970^3130912.063018^1^358^
+"TEMP","DATAO",50.67,422)
+054569490702
+"TEMP","DATAO",50.67,423)
+201970^3130912.063018^3^358^
+"TEMP","DATAO",50.67,424)
+3105
+"TEMP","DATAO",50.67,425)
+201970^3130912.063018^4^358^
+"TEMP","DATAO",50.67,426)
+ESTRADIOL
+"TEMP","DATAO",50.67,427)
+201970^3130912.063018^5^358^
+"TEMP","DATAO",50.67,428)
+1067
+"TEMP","DATAO",50.67,429)
+201970^3130912.063018^8^358^
+"TEMP","DATAO",50.67,430)
+4588
+"TEMP","DATAO",50.67,431)
+201970^3130912.063018^9^358^
+"TEMP","DATAO",50.67,432)
+491
+"TEMP","DATAO",50.67,433)
+201970^3130912.063018^10^358^
+"TEMP","DATAO",50.67,434)
+R
+"TEMP","DATAO",50.67,435)
+201971^3130912.063018^1^358^
+"TEMP","DATAO",50.67,436)
+054569641600
+"TEMP","DATAO",50.67,437)
+201971^3130912.063018^3^358^
+"TEMP","DATAO",50.67,438)
+3105
+"TEMP","DATAO",50.67,439)
+201971^3130912.063018^4^358^
+"TEMP","DATAO",50.67,440)
+RAMIPRIL
+"TEMP","DATAO",50.67,441)
+201971^3130912.063018^5^358^
+"TEMP","DATAO",50.67,442)
+8828
+"TEMP","DATAO",50.67,443)
+201971^3130912.063018^8^358^
+"TEMP","DATAO",50.67,444)
+4593
+"TEMP","DATAO",50.67,445)
+201971^3130912.063018^9^358^
+"TEMP","DATAO",50.67,446)
+491
+"TEMP","DATAO",50.67,447)
+201971^3130912.063018^10^358^
+"TEMP","DATAO",50.67,448)
+R
+"TEMP","DATAO",50.67,449)
+201972^3130912.063019^1^358^
+"TEMP","DATAO",50.67,450)
+055150017301
+"TEMP","DATAO",50.67,451)
+201972^3130912.063019^3^358^
+"TEMP","DATAO",50.67,452)
+4234
+"TEMP","DATAO",50.67,453)
+201972^3130912.063019^4^358^
+"TEMP","DATAO",50.67,454)
+SUMATRIPTAN SUCCINATE
+"TEMP","DATAO",50.67,455)
+201972^3130912.063019^5^358^
+"TEMP","DATAO",50.67,456)
+9859
+"TEMP","DATAO",50.67,457)
+201972^3130912.063019^8^358^
+"TEMP","DATAO",50.67,458)
+4574
+"TEMP","DATAO",50.67,459)
+201972^3130912.063019^9^358^
+"TEMP","DATAO",50.67,460)
+613
+"TEMP","DATAO",50.67,461)
+201972^3130912.063019^10^358^
+"TEMP","DATAO",50.67,462)
+R
+"TEMP","DATAO",50.67,463)
+201973^3130912.063019^1^358^
+"TEMP","DATAO",50.67,464)
+055812013501
+"TEMP","DATAO",50.67,465)
+201973^3130912.063019^3^358^
+"TEMP","DATAO",50.67,466)
+4377
+"TEMP","DATAO",50.67,467)
+201973^3130912.063019^4^358^
+"TEMP","DATAO",50.67,468)
+CAPSULE #0
+"TEMP","DATAO",50.67,469)
+201973^3130912.063019^5^358^
+"TEMP","DATAO",50.67,470)
+9150
+"TEMP","DATAO",50.67,471)
+201973^3130912.063019^8^358^
+"TEMP","DATAO",50.67,472)
+4609
+"TEMP","DATAO",50.67,473)
+201973^3130912.063019^9^358^
+"TEMP","DATAO",50.67,474)
+491
+"TEMP","DATAO",50.67,475)
+201973^3130912.063019^10^358^
+"TEMP","DATAO",50.67,476)
+R
+"TEMP","DATAO",50.67,477)
+201974^3130912.063019^1^358^
+"TEMP","DATAO",50.67,478)
+055812013502
+"TEMP","DATAO",50.67,479)
+201974^3130912.063019^3^358^
+"TEMP","DATAO",50.67,480)
+4377
+"TEMP","DATAO",50.67,481)
+201974^3130912.063019^4^358^
+"TEMP","DATAO",50.67,482)
+CAPSULE #0
+"TEMP","DATAO",50.67,483)
+201974^3130912.063019^5^358^
+"TEMP","DATAO",50.67,484)
+9150
+"TEMP","DATAO",50.67,485)
+201974^3130912.063019^8^358^
+"TEMP","DATAO",50.67,486)
+4655
+"TEMP","DATAO",50.67,487)
+201974^3130912.063019^9^358^
+"TEMP","DATAO",50.67,488)
+491
+"TEMP","DATAO",50.67,489)
+201974^3130912.063019^10^358^
+"TEMP","DATAO",50.67,490)
+R
+"TEMP","DATAO",50.67,491)
+201975^3130912.063027^1^358^
+"TEMP","DATAO",50.67,492)
+060505312003
+"TEMP","DATAO",50.67,493)
+201975^3130912.063027^3^358^
+"TEMP","DATAO",50.67,494)
+2595
+"TEMP","DATAO",50.67,495)
+201975^3130912.063027^4^358^
+"TEMP","DATAO",50.67,496)
+FENOFIBRATE MICRONIZED
+"TEMP","DATAO",50.67,497)
+201975^3130912.063027^5^358^
+"TEMP","DATAO",50.67,498)
+17335
+"TEMP","DATAO",50.67,499)
+201975^3130912.063027^8^358^
+"TEMP","DATAO",50.67,500)
+4597
+"TEMP","DATAO",50.67,501)
+201975^3130912.063027^9^358^
+"TEMP","DATAO",50.67,502)
+491
+"TEMP","DATAO",50.67,503)
+201975^3130912.063027^10^358^
+"TEMP","DATAO",50.67,504)
+R
+"TEMP","DATAO",50.67,505)
+201976^3130912.063027^1^358^
+"TEMP","DATAO",50.67,506)
+060505312103
+"TEMP","DATAO",50.67,507)
+201976^3130912.063027^3^358^
+"TEMP","DATAO",50.67,508)
+2595
+"TEMP","DATAO",50.67,509)
+201976^3130912.063027^4^358^
+"TEMP","DATAO",50.67,510)
+FENOFIBRATE MICRONIZED
+"TEMP","DATAO",50.67,511)
+201976^3130912.063027^5^358^
+"TEMP","DATAO",50.67,512)
+17334
+"TEMP","DATAO",50.67,513)
+201976^3130912.063027^8^358^
+"TEMP","DATAO",50.67,514)
+4597
+"TEMP","DATAO",50.67,515)
+201976^3130912.063027^9^358^
+"TEMP","DATAO",50.67,516)
+491
+"TEMP","DATAO",50.67,517)
+201976^3130912.063027^10^358^
+"TEMP","DATAO",50.67,518)
+R
+"TEMP","DATAO",50.67,519)
+201977^3130912.063027^1^358^
+"TEMP","DATAO",50.67,520)
+060505312109
+"TEMP","DATAO",50.67,521)
+201977^3130912.063027^3^358^
+"TEMP","DATAO",50.67,522)
+2595
+"TEMP","DATAO",50.67,523)
+201977^3130912.063027^4^358^
+"TEMP","DATAO",50.67,524)
+FENOFIBRATE MICRONIZED
+"TEMP","DATAO",50.67,525)
+201977^3130912.063027^5^358^
+"TEMP","DATAO",50.67,526)
+17334
+"TEMP","DATAO",50.67,527)
+201977^3130912.063027^8^358^
+"TEMP","DATAO",50.67,528)
+4588
+"TEMP","DATAO",50.67,529)
+201977^3130912.063027^9^358^
+"TEMP","DATAO",50.67,530)
+491
+"TEMP","DATAO",50.67,531)
+201977^3130912.063027^10^358^
+"TEMP","DATAO",50.67,532)
+R
+"TEMP","DATAO",50.67,533)
+201978^3130912.063028^1^358^
+"TEMP","DATAO",50.67,534)
+062011005001
+"TEMP","DATAO",50.67,535)
+201978^3130912.063028^3^358^
+"TEMP","DATAO",50.67,536)
+2657
+"TEMP","DATAO",50.67,537)
+201978^3130912.063028^4^358^
+"TEMP","DATAO",50.67,538)
+NICOTINE
+"TEMP","DATAO",50.67,539)
+201978^3130912.063028^5^358^
+"TEMP","DATAO",50.67,540)
+9696
+"TEMP","DATAO",50.67,541)
+201978^3130912.063028^8^358^
+"TEMP","DATAO",50.67,542)
+4601
+"TEMP","DATAO",50.67,543)
+201978^3130912.063028^9^358^
+"TEMP","DATAO",50.67,544)
+492
+"TEMP","DATAO",50.67,545)
+201978^3130912.063028^10^358^
+"TEMP","DATAO",50.67,546)
+O
+"TEMP","DATAO",50.67,547)
+201979^3130912.063029^1^358^
+"TEMP","DATAO",50.67,548)
+063304025505
+"TEMP","DATAO",50.67,549)
+201979^3130912.063029^3^358^
+"TEMP","DATAO",50.67,550)
+3343
+"TEMP","DATAO",50.67,551)
+201979^3130912.063029^4^358^
+"TEMP","DATAO",50.67,552)
+PIOGLITAZONE
+"TEMP","DATAO",50.67,553)
+201979^3130912.063029^5^358^
+"TEMP","DATAO",50.67,554)
+13713
+"TEMP","DATAO",50.67,555)
+201979^3130912.063029^8^358^
+"TEMP","DATAO",50.67,556)
+4596
+"TEMP","DATAO",50.67,557)
+201979^3130912.063029^9^358^
+"TEMP","DATAO",50.67,558)
+491
+"TEMP","DATAO",50.67,559)
+201979^3130912.063029^10^358^
+"TEMP","DATAO",50.67,560)
+R
+"TEMP","DATAO",50.67,561)
+201980^3130912.063029^1^358^
+"TEMP","DATAO",50.67,562)
+065862019405
+"TEMP","DATAO",50.67,563)
+201980^3130912.063029^3^358^
+"TEMP","DATAO",50.67,564)
+3046
+"TEMP","DATAO",50.67,565)
+201980^3130912.063029^4^358^
+"TEMP","DATAO",50.67,566)
+FLUOXETINE
+"TEMP","DATAO",50.67,567)
+201980^3130912.063029^5^358^
+"TEMP","DATAO",50.67,568)
+13742
+"TEMP","DATAO",50.67,569)
+201980^3130912.063029^8^358^
+"TEMP","DATAO",50.67,570)
+4596
+"TEMP","DATAO",50.67,571)
+201980^3130912.063029^9^358^
+"TEMP","DATAO",50.67,572)
+491
+"TEMP","DATAO",50.67,573)
+201980^3130912.063029^10^358^
+"TEMP","DATAO",50.67,574)
+R
+"TEMP","DATAO",50.67,575)
+201981^3130912.063029^1^358^
+"TEMP","DATAO",50.67,576)
+065862019499
+"TEMP","DATAO",50.67,577)
+201981^3130912.063029^3^358^
+"TEMP","DATAO",50.67,578)
+3046
+"TEMP","DATAO",50.67,579)
+201981^3130912.063029^4^358^
+"TEMP","DATAO",50.67,580)
+FLUOXETINE
+"TEMP","DATAO",50.67,581)
+201981^3130912.063029^5^358^
+"TEMP","DATAO",50.67,582)
+13742
+"TEMP","DATAO",50.67,583)
+201981^3130912.063029^8^358^
+"TEMP","DATAO",50.67,584)
+4609
+"TEMP","DATAO",50.67,585)
+201981^3130912.063029^9^358^
+"TEMP","DATAO",50.67,586)
+491
+"TEMP","DATAO",50.67,587)
+201981^3130912.063029^10^358^
+"TEMP","DATAO",50.67,588)
+R
+"TEMP","DATAO",50.67,589)
+201982^3130912.063031^1^358^
+"TEMP","DATAO",50.67,590)
+059746027901
+"TEMP","DATAO",50.67,591)
+201982^3130912.063031^3^358^
+"TEMP","DATAO",50.67,592)
+3647
+"TEMP","DATAO",50.67,593)
+201982^3130912.063031^4^358^
+"TEMP","DATAO",50.67,594)
+ESCITALOPRAM
+"TEMP","DATAO",50.67,595)
+201982^3130912.063031^5^358^
+"TEMP","DATAO",50.67,596)
+15942
+"TEMP","DATAO",50.67,597)
+201982^3130912.063031^8^358^
+"TEMP","DATAO",50.67,598)
+4593
+"TEMP","DATAO",50.67,599)
+201982^3130912.063031^9^358^
+"TEMP","DATAO",50.67,600)
+491
+"TEMP","DATAO",50.67,601)
+201982^3130912.063031^10^358^
+"TEMP","DATAO",50.67,602)
+R
+"TEMP","DATAO",50.67,603)
+201983^3130912.063032^1^358^
+"TEMP","DATAO",50.67,604)
+068258110103
+"TEMP","DATAO",50.67,605)
+201983^3130912.063032^3^358^
+"TEMP","DATAO",50.67,606)
+2853
+"TEMP","DATAO",50.67,607)
+201983^3130912.063032^4^358^
+"TEMP","DATAO",50.67,608)
+TERBINAFINE
+"TEMP","DATAO",50.67,609)
+201983^3130912.063032^5^358^
+"TEMP","DATAO",50.67,610)
+9895
+"TEMP","DATAO",50.67,611)
+201983^3130912.063032^8^358^
+"TEMP","DATAO",50.67,612)
+4597
+"TEMP","DATAO",50.67,613)
+201983^3130912.063032^9^358^
+"TEMP","DATAO",50.67,614)
+491
+"TEMP","DATAO",50.67,615)
+201983^3130912.063032^10^358^
+"TEMP","DATAO",50.67,616)
+R
+"TEMP","DATAO",50.67,617)
+201984^3130912.063033^1^358^
+"TEMP","DATAO",50.67,618)
+068645046859
+"TEMP","DATAO",50.67,619)
+201984^3130912.063033^3^358^
+"TEMP","DATAO",50.67,620)
+3578
+"TEMP","DATAO",50.67,621)
+201984^3130912.063033^4^358^
+"TEMP","DATAO",50.67,622)
+CARVEDILOL
+"TEMP","DATAO",50.67,623)
+201984^3130912.063033^5^358^
+"TEMP","DATAO",50.67,624)
+12721
+"TEMP","DATAO",50.67,625)
+201984^3130912.063033^8^358^
+"TEMP","DATAO",50.67,626)
+4595
+"TEMP","DATAO",50.67,627)
+201984^3130912.063033^9^358^
+"TEMP","DATAO",50.67,628)
+491
+"TEMP","DATAO",50.67,629)
+201984^3130912.063033^10^358^
+"TEMP","DATAO",50.67,630)
+R
+"TEMP","DATAO",50.67,631)
+201985^3130912.071921^1^358^
+"TEMP","DATAO",50.67,632)
+024658029205
+"TEMP","DATAO",50.67,633)
+201985^3130912.071921^3^358^
+"TEMP","DATAO",50.67,634)
+3646
+"TEMP","DATAO",50.67,635)
+201985^3130912.071921^4^358^
+"TEMP","DATAO",50.67,636)
+METFORMIN
+"TEMP","DATAO",50.67,637)
+201985^3130912.071921^5^358^
+"TEMP","DATAO",50.67,638)
+12976
+"TEMP","DATAO",50.67,639)
+201985^3130912.071921^8^358^
+"TEMP","DATAO",50.67,640)
+4596
+"TEMP","DATAO",50.67,641)
+201985^3130912.071921^9^358^
+"TEMP","DATAO",50.67,642)
+491
+"TEMP","DATAO",50.67,643)
+201985^3130912.071921^10^358^
+"TEMP","DATAO",50.67,644)
+R
+"TEMP","DATAO",50.67,645)
+201986^3130912.071922^1^358^
+"TEMP","DATAO",50.67,646)
+024658029218
+"TEMP","DATAO",50.67,647)
+201986^3130912.071922^3^358^
+"TEMP","DATAO",50.67,648)
+3646
+"TEMP","DATAO",50.67,649)
+201986^3130912.071922^4^358^
+"TEMP","DATAO",50.67,650)
+METFORMIN
+"TEMP","DATAO",50.67,651)
+201986^3130912.071922^5^358^
+"TEMP","DATAO",50.67,652)
+12976
+"TEMP","DATAO",50.67,653)
+201986^3130912.071922^8^358^
+"TEMP","DATAO",50.67,654)
+4640
+"TEMP","DATAO",50.67,655)
+201986^3130912.071922^9^358^
+"TEMP","DATAO",50.67,656)
+491
+"TEMP","DATAO",50.67,657)
+201986^3130912.071922^10^358^
+"TEMP","DATAO",50.67,658)
+R
+"TEMP","DATAO",50.67,659)
+201987^3130912.071922^1^358^
+"TEMP","DATAO",50.67,660)
+024658029260
+"TEMP","DATAO",50.67,661)
+201987^3130912.071922^3^358^
+"TEMP","DATAO",50.67,662)
+3646
+"TEMP","DATAO",50.67,663)
+201987^3130912.071922^4^358^
+"TEMP","DATAO",50.67,664)
+METFORMIN
+"TEMP","DATAO",50.67,665)
+201987^3130912.071922^5^358^
+"TEMP","DATAO",50.67,666)
+12976
+"TEMP","DATAO",50.67,667)
+201987^3130912.071922^8^358^
+"TEMP","DATAO",50.67,668)
+4595
+"TEMP","DATAO",50.67,669)
+201987^3130912.071922^9^358^
+"TEMP","DATAO",50.67,670)
+491
+"TEMP","DATAO",50.67,671)
+201987^3130912.071922^10^358^
+"TEMP","DATAO",50.67,672)
+R
+"TEMP","DATAO",50.67,673)
+201988^3130912.071923^1^358^
+"TEMP","DATAO",50.67,674)
+024658029290
+"TEMP","DATAO",50.67,675)
+201988^3130912.071923^3^358^
+"TEMP","DATAO",50.67,676)
+3646
+"TEMP","DATAO",50.67,677)
+201988^3130912.071923^4^358^
+"TEMP","DATAO",50.67,678)
+METFORMIN
+"TEMP","DATAO",50.67,679)
+201988^3130912.071923^5^358^
+"TEMP","DATAO",50.67,680)
+12976
+"TEMP","DATAO",50.67,681)
+201988^3130912.071923^8^358^
+"TEMP","DATAO",50.67,682)
+4588
+"TEMP","DATAO",50.67,683)
+201988^3130912.071923^9^358^
+"TEMP","DATAO",50.67,684)
+491
+"TEMP","DATAO",50.67,685)
+201988^3130912.071923^10^358^
+"TEMP","DATAO",50.67,686)
+R
+"TEMP","DATAO",50.67,687)
+201989^3130912.072018^1^358^
+"TEMP","DATAO",50.67,688)
+061442032101
+"TEMP","DATAO",50.67,689)
+201989^3130912.072018^3^358^
+"TEMP","DATAO",50.67,690)
+3933
+"TEMP","DATAO",50.67,691)
+201989^3130912.072018^4^358^
+"TEMP","DATAO",50.67,692)
+CLONIDINE
+"TEMP","DATAO",50.67,693)
+201989^3130912.072018^5^358^
+"TEMP","DATAO",50.67,694)
+1884
+"TEMP","DATAO",50.67,695)
+201989^3130912.072018^8^358^
+"TEMP","DATAO",50.67,696)
+4593
+"TEMP","DATAO",50.67,697)
+201989^3130912.072018^9^358^
+"TEMP","DATAO",50.67,698)
+491
+"TEMP","DATAO",50.67,699)
+201989^3130912.072018^10^358^
+"TEMP","DATAO",50.67,700)
+R
+"TEMP","DATAO",50.67,701)
+201990^3130912.072019^1^358^
+"TEMP","DATAO",50.67,702)
+061442032105
+"TEMP","DATAO",50.67,703)
+201990^3130912.072019^3^358^
+"TEMP","DATAO",50.67,704)
+3933
+"TEMP","DATAO",50.67,705)
+201990^3130912.072019^4^358^
+"TEMP","DATAO",50.67,706)
+CLONIDINE
+"TEMP","DATAO",50.67,707)
+201990^3130912.072019^5^358^
+"TEMP","DATAO",50.67,708)
+1884
+"TEMP","DATAO",50.67,709)
+201990^3130912.072019^8^358^
+"TEMP","DATAO",50.67,710)
+4596
+"TEMP","DATAO",50.67,711)
+201990^3130912.072019^9^358^
+"TEMP","DATAO",50.67,712)
+491
+"TEMP","DATAO",50.67,713)
+201990^3130912.072019^10^358^
+"TEMP","DATAO",50.67,714)
+R
+"TEMP","DATAO",50.67,715)
+201991^3130912.072614^1^358^
+"TEMP","DATAO",50.67,716)
+061442032201
+"TEMP","DATAO",50.67,717)
+201991^3130912.072614^3^358^
+"TEMP","DATAO",50.67,718)
+3933
+"TEMP","DATAO",50.67,719)
+201991^3130912.072614^4^358^
+"TEMP","DATAO",50.67,720)
+CLONIDINE
+"TEMP","DATAO",50.67,721)
+201991^3130912.072614^5^358^
+"TEMP","DATAO",50.67,722)
+1885
+"TEMP","DATAO",50.67,723)
+201991^3130912.072614^8^358^
+"TEMP","DATAO",50.67,724)
+4593
+"TEMP","DATAO",50.67,725)
+201991^3130912.072614^9^358^
+"TEMP","DATAO",50.67,726)
+491
+"TEMP","DATAO",50.67,727)
+201991^3130912.072614^10^358^
+"TEMP","DATAO",50.67,728)
+R
+"TEMP","DATAO",50.67,729)
+201992^3130912.072614^1^358^
+"TEMP","DATAO",50.67,730)
+061442032205
+"TEMP","DATAO",50.67,731)
+201992^3130912.072614^3^358^
+"TEMP","DATAO",50.67,732)
+3933
+"TEMP","DATAO",50.67,733)
+201992^3130912.072614^4^358^
+"TEMP","DATAO",50.67,734)
+CLONIDINE
+"TEMP","DATAO",50.67,735)
+201992^3130912.072614^5^358^
+"TEMP","DATAO",50.67,736)
+1885
+"TEMP","DATAO",50.67,737)
+201992^3130912.072614^8^358^
+"TEMP","DATAO",50.67,738)
+4596
+"TEMP","DATAO",50.67,739)
+201992^3130912.072614^9^358^
+"TEMP","DATAO",50.67,740)
+491
+"TEMP","DATAO",50.67,741)
+201992^3130912.072614^10^358^
+"TEMP","DATAO",50.67,742)
+R
+"TEMP","DATAO",50.67,743)
+201993^3130912.072644^1^358^
+"TEMP","DATAO",50.67,744)
+061442032301
+"TEMP","DATAO",50.67,745)
+201993^3130912.072644^3^358^
+"TEMP","DATAO",50.67,746)
+3933
+"TEMP","DATAO",50.67,747)
+201993^3130912.072644^4^358^
+"TEMP","DATAO",50.67,748)
+CLONIDINE
+"TEMP","DATAO",50.67,749)
+201993^3130912.072644^5^358^
+"TEMP","DATAO",50.67,750)
+1886
+"TEMP","DATAO",50.67,751)
+201993^3130912.072644^8^358^
+"TEMP","DATAO",50.67,752)
+4593
+"TEMP","DATAO",50.67,753)
+201993^3130912.072644^9^358^
+"TEMP","DATAO",50.67,754)
+491
+"TEMP","DATAO",50.67,755)
+201993^3130912.072644^10^358^
+"TEMP","DATAO",50.67,756)
+R
+"TEMP","DATAO",50.67,757)
+201994^3130912.072645^1^358^
+"TEMP","DATAO",50.67,758)
+061442032305
+"TEMP","DATAO",50.67,759)
+201994^3130912.072645^3^358^
+"TEMP","DATAO",50.67,760)
+3933
+"TEMP","DATAO",50.67,761)
+201994^3130912.072645^4^358^
+"TEMP","DATAO",50.67,762)
+CLONIDINE
+"TEMP","DATAO",50.67,763)
+201994^3130912.072645^5^358^
+"TEMP","DATAO",50.67,764)
+1886
+"TEMP","DATAO",50.67,765)
+201994^3130912.072645^8^358^
+"TEMP","DATAO",50.67,766)
+4596
+"TEMP","DATAO",50.67,767)
+201994^3130912.072645^9^358^
+"TEMP","DATAO",50.67,768)
+491
+"TEMP","DATAO",50.67,769)
+201994^3130912.072645^10^358^
+"TEMP","DATAO",50.67,770)
+R
+"TEMP","DATAO",50.67,771)
+201995^3130912.073434^1^358^
+"TEMP","DATAO",50.67,772)
+068645046954
+"TEMP","DATAO",50.67,773)
+201995^3130912.073434^3^358^
+"TEMP","DATAO",50.67,774)
+3578
+"TEMP","DATAO",50.67,775)
+201995^3130912.073434^4^358^
+"TEMP","DATAO",50.67,776)
+LISINOPRIL
+"TEMP","DATAO",50.67,777)
+201995^3130912.073434^5^358^
+"TEMP","DATAO",50.67,778)
+8117
+"TEMP","DATAO",50.67,779)
+201995^3130912.073434^8^358^
+"TEMP","DATAO",50.67,780)
+4597
+"TEMP","DATAO",50.67,781)
+201995^3130912.073434^9^358^
+"TEMP","DATAO",50.67,782)
+491
+"TEMP","DATAO",50.67,783)
+201995^3130912.073434^10^358^
+"TEMP","DATAO",50.67,784)
+R
+"TEMP","DATAO",50.67,785)
+201996^3130912.073501^1^358^
+"TEMP","DATAO",50.67,786)
+021695024660
+"TEMP","DATAO",50.67,787)
+201996^3130912.073501^3^358^
+"TEMP","DATAO",50.67,788)
+3336
+"TEMP","DATAO",50.67,789)
+201996^3130912.073501^4^358^
+"TEMP","DATAO",50.67,790)
+ALLOPURINOL
+"TEMP","DATAO",50.67,791)
+201996^3130912.073501^5^358^
+"TEMP","DATAO",50.67,792)
+2119
+"TEMP","DATAO",50.67,793)
+201996^3130912.073501^8^358^
+"TEMP","DATAO",50.67,794)
+4595
+"TEMP","DATAO",50.67,795)
+201996^3130912.073501^9^358^
+"TEMP","DATAO",50.67,796)
+491
+"TEMP","DATAO",50.67,797)
+201996^3130912.073501^10^358^
+"TEMP","DATAO",50.67,798)
+R
+"TEMP","DATAO",50.67,799)
+201997^3130912.073503^1^358^
+"TEMP","DATAO",50.67,800)
+021695024678
+"TEMP","DATAO",50.67,801)
+201997^3130912.073503^3^358^
+"TEMP","DATAO",50.67,802)
+3336
+"TEMP","DATAO",50.67,803)
+201997^3130912.073503^4^358^
+"TEMP","DATAO",50.67,804)
+ALLOPURINOL
+"TEMP","DATAO",50.67,805)
+201997^3130912.073503^5^358^
+"TEMP","DATAO",50.67,806)
+2119
+"TEMP","DATAO",50.67,807)
+201997^3130912.073503^8^358^
+"TEMP","DATAO",50.67,808)
+4640
+"TEMP","DATAO",50.67,809)
+201997^3130912.073503^9^358^
+"TEMP","DATAO",50.67,810)
+491
+"TEMP","DATAO",50.67,811)
+201997^3130912.073503^10^358^
+"TEMP","DATAO",50.67,812)
+R
+"TEMP","DATAO",50.67,813)
+201998^3130912.073524^1^358^
+"TEMP","DATAO",50.67,814)
+066336069420
+"TEMP","DATAO",50.67,815)
+201998^3130912.073524^3^358^
+"TEMP","DATAO",50.67,816)
+2853
+"TEMP","DATAO",50.67,817)
+201998^3130912.073524^4^358^
+"TEMP","DATAO",50.67,818)
+MECLIZINE
+"TEMP","DATAO",50.67,819)
+201998^3130912.073524^5^358^
+"TEMP","DATAO",50.67,820)
+1853
+"TEMP","DATAO",50.67,821)
+201998^3130912.073524^8^358^
+"TEMP","DATAO",50.67,822)
+4603
+"TEMP","DATAO",50.67,823)
+201998^3130912.073524^9^358^
+"TEMP","DATAO",50.67,824)
+491
+"TEMP","DATAO",50.67,825)
+201998^3130912.073524^10^358^
+"TEMP","DATAO",50.67,826)
+R
+"TEMP","DATAO",50.67,827)
+201999^3130912.073603^1^358^
+"TEMP","DATAO",50.67,828)
+000363019012
+"TEMP","DATAO",50.67,829)
+201999^3130912.073603^3^358^
+"TEMP","DATAO",50.67,830)
+3395
+"TEMP","DATAO",50.67,831)
+201999^3130912.073603^4^358^
+"TEMP","DATAO",50.67,832)
+WAL-DRYL ALLERGY
+"TEMP","DATAO",50.67,833)
+201999^3130912.073603^5^358^
+"TEMP","DATAO",50.67,834)
+1971
+"TEMP","DATAO",50.67,835)
+201999^3130912.073603^8^358^
+"TEMP","DATAO",50.67,836)
+4593
+"TEMP","DATAO",50.67,837)
+201999^3130912.073603^9^358^
+"TEMP","DATAO",50.67,838)
+491
+"TEMP","DATAO",50.67,839)
+201999^3130912.073603^10^358^
+"TEMP","DATAO",50.67,840)
+O
+"TEMP","DATAO",50.67,841)
+202000^3130912.073604^1^358^
+"TEMP","DATAO",50.67,842)
+000363019051
+"TEMP","DATAO",50.67,843)
+202000^3130912.073604^3^358^
+"TEMP","DATAO",50.67,844)
+3395
+"TEMP","DATAO",50.67,845)
+202000^3130912.073604^4^358^
+"TEMP","DATAO",50.67,846)
+WAL-DRYL ALLERGY
+"TEMP","DATAO",50.67,847)
+202000^3130912.073604^5^358^
+"TEMP","DATAO",50.67,848)
+1971
+"TEMP","DATAO",50.67,849)
+202000^3130912.073604^8^358^
+"TEMP","DATAO",50.67,850)
+4931
+"TEMP","DATAO",50.67,851)
+202000^3130912.073604^9^358^
+"TEMP","DATAO",50.67,852)
+491
+"TEMP","DATAO",50.67,853)
+202000^3130912.073604^10^358^
+"TEMP","DATAO",50.67,854)
+O
+"TEMP","DATAO",50.67,855)
+202001^3130912.073604^1^358^
+"TEMP","DATAO",50.67,856)
+011917015971
+"TEMP","DATAO",50.67,857)
+202001^3130912.073604^2^358^
+"TEMP","DATAO",50.67,858)
+11917-15971
+"TEMP","DATAO",50.67,859)
+202001^3130912.073604^3^358^
+"TEMP","DATAO",50.67,860)
+3395
+"TEMP","DATAO",50.67,861)
+202001^3130912.073604^4^358^
+"TEMP","DATAO",50.67,862)
+WAL-DRYL ALLERGY
+"TEMP","DATAO",50.67,863)
+202001^3130912.073604^5^358^
+"TEMP","DATAO",50.67,864)
+1971
+"TEMP","DATAO",50.67,865)
+202001^3130912.073604^8^358^
+"TEMP","DATAO",50.67,866)
+4593
+"TEMP","DATAO",50.67,867)
+202001^3130912.073604^9^358^
+"TEMP","DATAO",50.67,868)
+491
+"TEMP","DATAO",50.67,869)
+202001^3130912.073604^10^358^
+"TEMP","DATAO",50.67,870)
+O
+"TEMP","DATAO",50.67,871)
+202002^3130912.073605^1^358^
+"TEMP","DATAO",50.67,872)
+011917015975
+"TEMP","DATAO",50.67,873)
+202002^3130912.073605^2^358^
+"TEMP","DATAO",50.67,874)
+11917-15975
+"TEMP","DATAO",50.67,875)
+202002^3130912.073605^3^358^
+"TEMP","DATAO",50.67,876)
+3395
+"TEMP","DATAO",50.67,877)
+202002^3130912.073605^4^358^
+"TEMP","DATAO",50.67,878)
+WAL-DRYL ALLERGY
+"TEMP","DATAO",50.67,879)
+202002^3130912.073605^5^358^
+"TEMP","DATAO",50.67,880)
+1971
+"TEMP","DATAO",50.67,881)
+202002^3130912.073605^8^358^
+"TEMP","DATAO",50.67,882)
+4931
+"TEMP","DATAO",50.67,883)
+202002^3130912.073605^9^358^
+"TEMP","DATAO",50.67,884)
+491
+"TEMP","DATAO",50.67,885)
+202002^3130912.073605^10^358^
+"TEMP","DATAO",50.67,886)
+O
+"TEMP","DATAO",50.67,887)
+202003^3130912.073628^1^358^
+"TEMP","DATAO",50.67,888)
+054569304306
+"TEMP","DATAO",50.67,889)
+202003^3130912.073628^3^358^
+"TEMP","DATAO",50.67,890)
+3105
+"TEMP","DATAO",50.67,891)
+202003^3130912.073628^4^358^
+"TEMP","DATAO",50.67,892)
+PREDNISONE
+"TEMP","DATAO",50.67,893)
+202003^3130912.073628^5^358^
+"TEMP","DATAO",50.67,894)
+2033
+"TEMP","DATAO",50.67,895)
+202003^3130912.073628^8^358^
+"TEMP","DATAO",50.67,896)
+4600
+"TEMP","DATAO",50.67,897)
+202003^3130912.073628^9^358^
+"TEMP","DATAO",50.67,898)
+491
+"TEMP","DATAO",50.67,899)
+202003^3130912.073628^10^358^
+"TEMP","DATAO",50.67,900)
+R
+"TEMP","DATAO",50.67,901)
+202004^3130912.073825^1^358^
+"TEMP","DATAO",50.67,902)
+000363126294
+"TEMP","DATAO",50.67,903)
+202004^3130912.073825^3^358^
+"TEMP","DATAO",50.67,904)
+3395
+"TEMP","DATAO",50.67,905)
+202004^3130912.073825^4^358^
+"TEMP","DATAO",50.67,906)
+CHILDREN'S IBUPROFEN
+"TEMP","DATAO",50.67,907)
+202004^3130912.073825^5^358^
+"TEMP","DATAO",50.67,908)
+1828
+"TEMP","DATAO",50.67,909)
+202004^3130912.073825^8^358^
+"TEMP","DATAO",50.67,910)
+4677
+"TEMP","DATAO",50.67,911)
+202004^3130912.073825^9^358^
+"TEMP","DATAO",50.67,912)
+491
+"TEMP","DATAO",50.67,913)
+202004^3130912.073825^10^358^
+"TEMP","DATAO",50.67,914)
+O
+"TEMP","DATAO",50.67,915)
+202005^3130912.073826^1^358^
+"TEMP","DATAO",50.67,916)
+000363126394
+"TEMP","DATAO",50.67,917)
+202005^3130912.073826^3^358^
+"TEMP","DATAO",50.67,918)
+3395
+"TEMP","DATAO",50.67,919)
+202005^3130912.073826^4^358^
+"TEMP","DATAO",50.67,920)
+CHILDREN'S IBUPROFEN
+"TEMP","DATAO",50.67,921)
+202005^3130912.073826^5^358^
+"TEMP","DATAO",50.67,922)
+1828
+"TEMP","DATAO",50.67,923)
+202005^3130912.073826^8^358^
+"TEMP","DATAO",50.67,924)
+4677
+"TEMP","DATAO",50.67,925)
+202005^3130912.073826^9^358^
+"TEMP","DATAO",50.67,926)
+491
+"TEMP","DATAO",50.67,927)
+202005^3130912.073826^10^358^
+"TEMP","DATAO",50.67,928)
+O
+"TEMP","DATAO",50.67,929)
+202006^3130912.073826^1^358^
+"TEMP","DATAO",50.67,930)
+011917012090
+"TEMP","DATAO",50.67,931)
+202006^3130912.073826^2^358^
+"TEMP","DATAO",50.67,932)
+11917-12090
+"TEMP","DATAO",50.67,933)
+202006^3130912.073826^3^358^
+"TEMP","DATAO",50.67,934)
+3395
+"TEMP","DATAO",50.67,935)
+202006^3130912.073826^4^358^
+"TEMP","DATAO",50.67,936)
+CHILDREN'S IBUPROFEN
+"TEMP","DATAO",50.67,937)
+202006^3130912.073826^5^358^
+"TEMP","DATAO",50.67,938)
+1828
+"TEMP","DATAO",50.67,939)
+202006^3130912.073826^8^358^
+"TEMP","DATAO",50.67,940)
+4677
+"TEMP","DATAO",50.67,941)
+202006^3130912.073826^9^358^
+"TEMP","DATAO",50.67,942)
+491
+"TEMP","DATAO",50.67,943)
+202006^3130912.073826^10^358^
+"TEMP","DATAO",50.67,944)
+O
+"TEMP","DATAO",50.67,945)
+202007^3130912.073827^1^358^
+"TEMP","DATAO",50.67,946)
+011917012092
+"TEMP","DATAO",50.67,947)
+202007^3130912.073827^2^358^
+"TEMP","DATAO",50.67,948)
+11917-12092
+"TEMP","DATAO",50.67,949)
+202007^3130912.073827^3^358^
+"TEMP","DATAO",50.67,950)
+3395
+"TEMP","DATAO",50.67,951)
+202007^3130912.073827^4^358^
+"TEMP","DATAO",50.67,952)
+CHILDREN'S IBUPROFEN
+"TEMP","DATAO",50.67,953)
+202007^3130912.073827^5^358^
+"TEMP","DATAO",50.67,954)
+1828
+"TEMP","DATAO",50.67,955)
+202007^3130912.073827^8^358^
+"TEMP","DATAO",50.67,956)
+4677
+"TEMP","DATAO",50.67,957)
+202007^3130912.073827^9^358^
+"TEMP","DATAO",50.67,958)
+491
+"TEMP","DATAO",50.67,959)
+202007^3130912.073827^10^358^
+"TEMP","DATAO",50.67,960)
+O
+"TEMP","DATAO",50.67,961)
+202008^3130912.073911^1^358^
+"TEMP","DATAO",50.67,962)
+024658029005
+"TEMP","DATAO",50.67,963)
+202008^3130912.073911^3^358^
+"TEMP","DATAO",50.67,964)
+3646
+"TEMP","DATAO",50.67,965)
+202008^3130912.073911^4^358^
+"TEMP","DATAO",50.67,966)
+METFORMIN
+"TEMP","DATAO",50.67,967)
+202008^3130912.073911^5^358^
+"TEMP","DATAO",50.67,968)
+12369
+"TEMP","DATAO",50.67,969)
+202008^3130912.073911^8^358^
+"TEMP","DATAO",50.67,970)
+4596
+"TEMP","DATAO",50.67,971)
+202008^3130912.073911^9^358^
+"TEMP","DATAO",50.67,972)
+491
+"TEMP","DATAO",50.67,973)
+202008^3130912.073911^10^358^
+"TEMP","DATAO",50.67,974)
+R
+"TEMP","DATAO",50.67,975)
+202009^3130912.073912^1^358^
+"TEMP","DATAO",50.67,976)
+024658029012
+"TEMP","DATAO",50.67,977)
+202009^3130912.073912^3^358^
+"TEMP","DATAO",50.67,978)
+3646
+"TEMP","DATAO",50.67,979)
+202009^3130912.073912^4^358^
+"TEMP","DATAO",50.67,980)
+METFORMIN
+"TEMP","DATAO",50.67,981)
+202009^3130912.073912^5^358^
+"TEMP","DATAO",50.67,982)
+12369
+"TEMP","DATAO",50.67,983)
+202009^3130912.073912^8^358^
+"TEMP","DATAO",50.67,984)
+4594
+"TEMP","DATAO",50.67,985)
+202009^3130912.073912^9^358^
+"TEMP","DATAO",50.67,986)
+491
+"TEMP","DATAO",50.67,987)
+202009^3130912.073912^10^358^
+"TEMP","DATAO",50.67,988)
+R
+"TEMP","DATAO",50.67,989)
+202010^3130912.073912^1^358^
+"TEMP","DATAO",50.67,990)
+024658029018
+"TEMP","DATAO",50.67,991)
+202010^3130912.073912^3^358^
+"TEMP","DATAO",50.67,992)
+3646
+"TEMP","DATAO",50.67,993)
+202010^3130912.073912^4^358^
+"TEMP","DATAO",50.67,994)
+METFORMIN
+"TEMP","DATAO",50.67,995)
+202010^3130912.073912^5^358^
+"TEMP","DATAO",50.67,996)
+12369
+"TEMP","DATAO",50.67,997)
+202010^3130912.073912^8^358^
+"TEMP","DATAO",50.67,998)
+4640
+"TEMP","DATAO",50.67,999)
+202010^3130912.073912^9^358^
+"TEMP","DATAO",50.67,1000)
+491
+"TEMP","DATAO",50.67,1001)
+202010^3130912.073912^10^358^
+"TEMP","DATAO",50.67,1002)
+R
+"TEMP","DATAO",50.67,1003)
+202011^3130912.073913^1^358^
+"TEMP","DATAO",50.67,1004)
+024658029027
+"TEMP","DATAO",50.67,1005)
+202011^3130912.073913^3^358^
+"TEMP","DATAO",50.67,1006)
+3646
+"TEMP","DATAO",50.67,1007)
+202011^3130912.073913^4^358^
+"TEMP","DATAO",50.67,1008)
+METFORMIN
+"TEMP","DATAO",50.67,1009)
+202011^3130912.073913^5^358^
+"TEMP","DATAO",50.67,1010)
+12369
+"TEMP","DATAO",50.67,1011)
+202011^3130912.073913^8^358^
+"TEMP","DATAO",50.67,1012)
+4623
+"TEMP","DATAO",50.67,1013)
+202011^3130912.073913^9^358^
+"TEMP","DATAO",50.67,1014)
+491
+"TEMP","DATAO",50.67,1015)
+202011^3130912.073913^10^358^
+"TEMP","DATAO",50.67,1016)
+R
+"TEMP","DATAO",50.67,1017)
+202012^3130912.073914^1^358^
+"TEMP","DATAO",50.67,1018)
+024658029046
+"TEMP","DATAO",50.67,1019)
+202012^3130912.073914^3^358^
+"TEMP","DATAO",50.67,1020)
+3646
+"TEMP","DATAO",50.67,1021)
+202012^3130912.073914^4^358^
+"TEMP","DATAO",50.67,1022)
+METFORMIN
+"TEMP","DATAO",50.67,1023)
+202012^3130912.073914^5^358^
+"TEMP","DATAO",50.67,1024)
+12369
+"TEMP","DATAO",50.67,1025)
+202012^3130912.073914^8^358^
+"TEMP","DATAO",50.67,1026)
+4741
+"TEMP","DATAO",50.67,1027)
+202012^3130912.073914^9^358^
+"TEMP","DATAO",50.67,1028)
+491
+"TEMP","DATAO",50.67,1029)
+202012^3130912.073914^10^358^
+"TEMP","DATAO",50.67,1030)
+R
+"TEMP","DATAO",50.67,1031)
+202013^3130912.073915^1^358^
+"TEMP","DATAO",50.67,1032)
+024658029060
+"TEMP","DATAO",50.67,1033)
+202013^3130912.073915^3^358^
+"TEMP","DATAO",50.67,1034)
+3646
+"TEMP","DATAO",50.67,1035)
+202013^3130912.073915^4^358^
+"TEMP","DATAO",50.67,1036)
+METFORMIN
+"TEMP","DATAO",50.67,1037)
+202013^3130912.073915^5^358^
+"TEMP","DATAO",50.67,1038)
+12369
+"TEMP","DATAO",50.67,1039)
+202013^3130912.073915^8^358^
+"TEMP","DATAO",50.67,1040)
+4595
+"TEMP","DATAO",50.67,1041)
+202013^3130912.073915^9^358^
+"TEMP","DATAO",50.67,1042)
+491
+"TEMP","DATAO",50.67,1043)
+202013^3130912.073915^10^358^
+"TEMP","DATAO",50.67,1044)
+R
+"TEMP","DATAO",50.67,1045)
+202014^3130912.073916^1^358^
+"TEMP","DATAO",50.67,1046)
+024658029036
+"TEMP","DATAO",50.67,1047)
+202014^3130912.073916^3^358^
+"TEMP","DATAO",50.67,1048)
+3646
+"TEMP","DATAO",50.67,1049)
+202014^3130912.073916^4^358^
+"TEMP","DATAO",50.67,1050)
+METFORMIN
+"TEMP","DATAO",50.67,1051)
+202014^3130912.073916^5^358^
+"TEMP","DATAO",50.67,1052)
+12369
+"TEMP","DATAO",50.67,1053)
+202014^3130912.073916^8^358^
+"TEMP","DATAO",50.67,1054)
+4706
+"TEMP","DATAO",50.67,1055)
+202014^3130912.073916^9^358^
+"TEMP","DATAO",50.67,1056)
+491
+"TEMP","DATAO",50.67,1057)
+202014^3130912.073916^10^358^
+"TEMP","DATAO",50.67,1058)
+R
+"TEMP","DATAO",50.67,1059)
+202015^3130912.073916^1^358^
+"TEMP","DATAO",50.67,1060)
+024658029090
+"TEMP","DATAO",50.67,1061)
+202015^3130912.073916^3^358^
+"TEMP","DATAO",50.67,1062)
+3646
+"TEMP","DATAO",50.67,1063)
+202015^3130912.073916^4^358^
+"TEMP","DATAO",50.67,1064)
+METFORMIN
+"TEMP","DATAO",50.67,1065)
+202015^3130912.073916^5^358^
+"TEMP","DATAO",50.67,1066)
+12369
+"TEMP","DATAO",50.67,1067)
+202015^3130912.073916^8^358^
+"TEMP","DATAO",50.67,1068)
+4588
+"TEMP","DATAO",50.67,1069)
+202015^3130912.073916^9^358^
+"TEMP","DATAO",50.67,1070)
+491
+"TEMP","DATAO",50.67,1071)
+202015^3130912.073916^10^358^
+"TEMP","DATAO",50.67,1072)
+R
+"TEMP","DATAO",50.67,1073)
+202016^3130912.074008^1^358^
+"TEMP","DATAO",50.67,1074)
+068645047054
+"TEMP","DATAO",50.67,1075)
+202016^3130912.074008^3^358^
+"TEMP","DATAO",50.67,1076)
+3578
+"TEMP","DATAO",50.67,1077)
+202016^3130912.074008^4^358^
+"TEMP","DATAO",50.67,1078)
+SIMVASTATIN
+"TEMP","DATAO",50.67,1079)
+202016^3130912.074008^5^358^
+"TEMP","DATAO",50.67,1080)
+9743
+"TEMP","DATAO",50.67,1081)
+202016^3130912.074008^8^358^
+"TEMP","DATAO",50.67,1082)
+4597
+"TEMP","DATAO",50.67,1083)
+202016^3130912.074008^9^358^
+"TEMP","DATAO",50.67,1084)
+491
+"TEMP","DATAO",50.67,1085)
+202016^3130912.074008^10^358^
+"TEMP","DATAO",50.67,1086)
+R
+"TEMP","DATAO",50.67,1087)
+202017^3130912.074703^1^358^
+"TEMP","DATAO",50.67,1088)
+021695013205
+"TEMP","DATAO",50.67,1089)
+202017^3130912.074703^3^358^
+"TEMP","DATAO",50.67,1090)
+3336
+"TEMP","DATAO",50.67,1091)
+202017^3130912.074703^4^358^
+"TEMP","DATAO",50.67,1092)
+TRAMADOL
+"TEMP","DATAO",50.67,1093)
+202017^3130912.074703^5^358^
+"TEMP","DATAO",50.67,1094)
+12380
+"TEMP","DATAO",50.67,1095)
+202017^3130912.074703^8^358^
+"TEMP","DATAO",50.67,1096)
+4617
+"TEMP","DATAO",50.67,1097)
+202017^3130912.074703^9^358^
+"TEMP","DATAO",50.67,1098)
+491
+"TEMP","DATAO",50.67,1099)
+202017^3130912.074703^10^358^
+"TEMP","DATAO",50.67,1100)
+R
+"TEMP","DATAO",50.67,1101)
+202018^3130912.074737^1^358^
+"TEMP","DATAO",50.67,1102)
+065862060590
+"TEMP","DATAO",50.67,1103)
+202018^3130912.074737^3^358^
+"TEMP","DATAO",50.67,1104)
+3046
+"TEMP","DATAO",50.67,1105)
+202018^3130912.074737^4^358^
+"TEMP","DATAO",50.67,1106)
+PRAMIPEXOLE
+"TEMP","DATAO",50.67,1107)
+202018^3130912.074737^5^358^
+"TEMP","DATAO",50.67,1108)
+12726
+"TEMP","DATAO",50.67,1109)
+202018^3130912.074737^8^358^
+"TEMP","DATAO",50.67,1110)
+4588
+"TEMP","DATAO",50.67,1111)
+202018^3130912.074737^9^358^
+"TEMP","DATAO",50.67,1112)
+491
+"TEMP","DATAO",50.67,1113)
+202018^3130912.074737^10^358^
+"TEMP","DATAO",50.67,1114)
+R
+"TEMP","DATAO",50.67,1115)
+202019^3130912.074737^1^358^
+"TEMP","DATAO",50.67,1116)
+065862060599
+"TEMP","DATAO",50.67,1117)
+202019^3130912.074737^3^358^
+"TEMP","DATAO",50.67,1118)
+3046
+"TEMP","DATAO",50.67,1119)
+202019^3130912.074737^4^358^
+"TEMP","DATAO",50.67,1120)
+PRAMIPEXOLE
+"TEMP","DATAO",50.67,1121)
+202019^3130912.074737^5^358^
+"TEMP","DATAO",50.67,1122)
+12726
+"TEMP","DATAO",50.67,1123)
+202019^3130912.074737^8^358^
+"TEMP","DATAO",50.67,1124)
+4609
+"TEMP","DATAO",50.67,1125)
+202019^3130912.074737^9^358^
+"TEMP","DATAO",50.67,1126)
+491
+"TEMP","DATAO",50.67,1127)
+202019^3130912.074737^10^358^
+"TEMP","DATAO",50.67,1128)
+R
+"TEMP","DATAO",50.67,1129)
+202020^3130912.074802^1^358^
+"TEMP","DATAO",50.67,1130)
+068645047154
+"TEMP","DATAO",50.67,1131)
+202020^3130912.074802^3^358^
+"TEMP","DATAO",50.67,1132)
+3578
+"TEMP","DATAO",50.67,1133)
+202020^3130912.074802^4^358^
+"TEMP","DATAO",50.67,1134)
+SIMVASTATIN
+"TEMP","DATAO",50.67,1135)
+202020^3130912.074802^5^358^
+"TEMP","DATAO",50.67,1136)
+9744
+"TEMP","DATAO",50.67,1137)
+202020^3130912.074802^8^358^
+"TEMP","DATAO",50.67,1138)
+4597
+"TEMP","DATAO",50.67,1139)
+202020^3130912.074802^9^358^
+"TEMP","DATAO",50.67,1140)
+491
+"TEMP","DATAO",50.67,1141)
+202020^3130912.074802^10^358^
+"TEMP","DATAO",50.67,1142)
+R
+"TEMP","DATAO",50.67,1143)
+202021^3130912.074829^1^358^
+"TEMP","DATAO",50.67,1144)
+068084065701
+"TEMP","DATAO",50.67,1145)
+202021^3130912.074829^3^358^
+"TEMP","DATAO",50.67,1146)
+2830
+"TEMP","DATAO",50.67,1147)
+202021^3130912.074829^4^358^
+"TEMP","DATAO",50.67,1148)
+PANTOPRAZOLE
+"TEMP","DATAO",50.67,1149)
+202021^3130912.074829^5^358^
+"TEMP","DATAO",50.67,1150)
+16902
+"TEMP","DATAO",50.67,1151)
+202021^3130912.074829^8^358^
+"TEMP","DATAO",50.67,1152)
+4593
+"TEMP","DATAO",50.67,1153)
+202021^3130912.074829^9^358^
+"TEMP","DATAO",50.67,1154)
+974
+"TEMP","DATAO",50.67,1155)
+202021^3130912.074829^10^358^
+"TEMP","DATAO",50.67,1156)
+R
+"TEMP","DATAO",50.67,1157)
+202022^3130912.07483^1^358^
+"TEMP","DATAO",50.67,1158)
+068084065711
+"TEMP","DATAO",50.67,1159)
+202022^3130912.07483^3^358^
+"TEMP","DATAO",50.67,1160)
+2830
+"TEMP","DATAO",50.67,1161)
+202022^3130912.07483^4^358^
+"TEMP","DATAO",50.67,1162)
+PANTOPRAZOLE
+"TEMP","DATAO",50.67,1163)
+202022^3130912.07483^5^358^
+"TEMP","DATAO",50.67,1164)
+16902
+"TEMP","DATAO",50.67,1165)
+202022^3130912.07483^8^358^
+"TEMP","DATAO",50.67,1166)
+4592
+"TEMP","DATAO",50.67,1167)
+202022^3130912.07483^9^358^
+"TEMP","DATAO",50.67,1168)
+974
+"TEMP","DATAO",50.67,1169)
+202022^3130912.07483^10^358^
+"TEMP","DATAO",50.67,1170)
+R
+"TEMP","DATAO",50.67,1171)
+202023^3130912.0749^1^358^
+"TEMP","DATAO",50.67,1172)
+065862060690
+"TEMP","DATAO",50.67,1173)
+202023^3130912.0749^3^358^
+"TEMP","DATAO",50.67,1174)
+3046
+"TEMP","DATAO",50.67,1175)
+202023^3130912.0749^4^358^
+"TEMP","DATAO",50.67,1176)
+PRAMIPEXOLE
+"TEMP","DATAO",50.67,1177)
+202023^3130912.0749^5^358^
+"TEMP","DATAO",50.67,1178)
+12729
+"TEMP","DATAO",50.67,1179)
+202023^3130912.0749^8^358^
+"TEMP","DATAO",50.67,1180)
+4588
+"TEMP","DATAO",50.67,1181)
+202023^3130912.0749^9^358^
+"TEMP","DATAO",50.67,1182)
+491
+"TEMP","DATAO",50.67,1183)
+202023^3130912.0749^10^358^
+"TEMP","DATAO",50.67,1184)
+R
+"TEMP","DATAO",50.67,1185)
+202024^3130912.074901^1^358^
+"TEMP","DATAO",50.67,1186)
+065862060699
+"TEMP","DATAO",50.67,1187)
+202024^3130912.074901^3^358^
+"TEMP","DATAO",50.67,1188)
+3046
+"TEMP","DATAO",50.67,1189)
+202024^3130912.074901^4^358^
+"TEMP","DATAO",50.67,1190)
+PRAMIPEXOLE
+"TEMP","DATAO",50.67,1191)
+202024^3130912.074901^5^358^
+"TEMP","DATAO",50.67,1192)
+12729
+"TEMP","DATAO",50.67,1193)
+202024^3130912.074901^8^358^
+"TEMP","DATAO",50.67,1194)
+4609
+"TEMP","DATAO",50.67,1195)
+202024^3130912.074901^9^358^
+"TEMP","DATAO",50.67,1196)
+491
+"TEMP","DATAO",50.67,1197)
+202024^3130912.074901^10^358^
+"TEMP","DATAO",50.67,1198)
+R
+"TEMP","DATAO",50.67,1199)
+202025^3130912.074938^1^358^
+"TEMP","DATAO",50.67,1200)
+051991016806
+"TEMP","DATAO",50.67,1201)
+202025^3130912.074938^3^358^
+"TEMP","DATAO",50.67,1202)
+2533
+"TEMP","DATAO",50.67,1203)
+202025^3130912.074938^4^358^
+"TEMP","DATAO",50.67,1204)
+CILOSTAZOL
+"TEMP","DATAO",50.67,1205)
+202025^3130912.074938^5^358^
+"TEMP","DATAO",50.67,1206)
+13305
+"TEMP","DATAO",50.67,1207)
+202025^3130912.074938^8^358^
+"TEMP","DATAO",50.67,1208)
+4595
+"TEMP","DATAO",50.67,1209)
+202025^3130912.074938^9^358^
+"TEMP","DATAO",50.67,1210)
+491
+"TEMP","DATAO",50.67,1211)
+202025^3130912.074938^10^358^
+"TEMP","DATAO",50.67,1212)
+R
+"TEMP","DATAO",50.67,1213)
+202026^3130912.075033^1^358^
+"TEMP","DATAO",50.67,1214)
+060429012130
+"TEMP","DATAO",50.67,1215)
+202026^3130912.075033^3^358^
+"TEMP","DATAO",50.67,1216)
+3362
+"TEMP","DATAO",50.67,1217)
+202026^3130912.075033^4^358^
+"TEMP","DATAO",50.67,1218)
+VENLAFAXINE
+"TEMP","DATAO",50.67,1219)
+202026^3130912.075033^5^358^
+"TEMP","DATAO",50.67,1220)
+22897
+"TEMP","DATAO",50.67,1221)
+202026^3130912.075033^8^358^
+"TEMP","DATAO",50.67,1222)
+4597
+"TEMP","DATAO",50.67,1223)
+202026^3130912.075033^9^358^
+"TEMP","DATAO",50.67,1224)
+491
+"TEMP","DATAO",50.67,1225)
+202026^3130912.075033^10^358^
+"TEMP","DATAO",50.67,1226)
+R
+"TEMP","DATAO",50.67,1227)
+202027^3130912.075034^1^358^
+"TEMP","DATAO",50.67,1228)
+060429012190
+"TEMP","DATAO",50.67,1229)
+202027^3130912.075034^3^358^
+"TEMP","DATAO",50.67,1230)
+3362
+"TEMP","DATAO",50.67,1231)
+202027^3130912.075034^4^358^
+"TEMP","DATAO",50.67,1232)
+VENLAFAXINE
+"TEMP","DATAO",50.67,1233)
+202027^3130912.075034^5^358^
+"TEMP","DATAO",50.67,1234)
+22897
+"TEMP","DATAO",50.67,1235)
+202027^3130912.075034^8^358^
+"TEMP","DATAO",50.67,1236)
+4588
+"TEMP","DATAO",50.67,1237)
+202027^3130912.075034^9^358^
+"TEMP","DATAO",50.67,1238)
+491
+"TEMP","DATAO",50.67,1239)
+202027^3130912.075034^10^358^
+"TEMP","DATAO",50.67,1240)
+R
+"TEMP","DATAO",50.67,1241)
+202028^3130912.075058^1^358^
+"TEMP","DATAO",50.67,1242)
+068645047254
+"TEMP","DATAO",50.67,1243)
+202028^3130912.075058^3^358^
+"TEMP","DATAO",50.67,1244)
+3578
+"TEMP","DATAO",50.67,1245)
+202028^3130912.075058^4^358^
+"TEMP","DATAO",50.67,1246)
+SIMVASTATIN
+"TEMP","DATAO",50.67,1247)
+202028^3130912.075058^5^358^
+"TEMP","DATAO",50.67,1248)
+12914
+"TEMP","DATAO",50.67,1249)
+202028^3130912.075058^8^358^
+"TEMP","DATAO",50.67,1250)
+4597
+"TEMP","DATAO",50.67,1251)
+202028^3130912.075058^9^358^
+"TEMP","DATAO",50.67,1252)
+491
+"TEMP","DATAO",50.67,1253)
+202028^3130912.075058^10^358^
+"TEMP","DATAO",50.67,1254)
+R
+"TEMP","DATAO",50.67,1255)
+202029^3130912.075136^1^358^
+"TEMP","DATAO",50.67,1256)
+059746028001
+"TEMP","DATAO",50.67,1257)
+202029^3130912.075136^3^358^
+"TEMP","DATAO",50.67,1258)
+3647
+"TEMP","DATAO",50.67,1259)
+202029^3130912.075136^4^358^
+"TEMP","DATAO",50.67,1260)
+ESCITALOPRAM
+"TEMP","DATAO",50.67,1261)
+202029^3130912.075136^5^358^
+"TEMP","DATAO",50.67,1262)
+15944
+"TEMP","DATAO",50.67,1263)
+202029^3130912.075136^8^358^
+"TEMP","DATAO",50.67,1264)
+4593
+"TEMP","DATAO",50.67,1265)
+202029^3130912.075136^9^358^
+"TEMP","DATAO",50.67,1266)
+491
+"TEMP","DATAO",50.67,1267)
+202029^3130912.075136^10^358^
+"TEMP","DATAO",50.67,1268)
+R
+"TEMP","DATAO",50.67,1269)
+202030^3130912.075351^1^358^
+"TEMP","DATAO",50.67,1270)
+063323028635
+"TEMP","DATAO",50.67,1271)
+202030^3130912.075351^3^358^
+"TEMP","DATAO",50.67,1272)
+3231
+"TEMP","DATAO",50.67,1273)
+202030^3130912.075351^4^358^
+"TEMP","DATAO",50.67,1274)
+NAROPIN (PF)
+"TEMP","DATAO",50.67,1275)
+202030^3130912.075351^5^358^
+"TEMP","DATAO",50.67,1276)
+12643
+"TEMP","DATAO",50.67,1277)
+202030^3130912.075351^8^358^
+"TEMP","DATAO",50.67,1278)
+4597
+"TEMP","DATAO",50.67,1279)
+202030^3130912.075351^9^358^
+"TEMP","DATAO",50.67,1280)
+613
+"TEMP","DATAO",50.67,1281)
+202030^3130912.075351^10^358^
+"TEMP","DATAO",50.67,1282)
+R
+"TEMP","DATAO",50.67,1283)
+202031^3130912.075454^1^358^
+"TEMP","DATAO",50.67,1284)
+068645046754
+"TEMP","DATAO",50.67,1285)
+202031^3130912.075454^3^358^
+"TEMP","DATAO",50.67,1286)
+3578
+"TEMP","DATAO",50.67,1287)
+202031^3130912.075454^4^358^
+"TEMP","DATAO",50.67,1288)
+CITALOPRAM
+"TEMP","DATAO",50.67,1289)
+202031^3130912.075454^5^358^
+"TEMP","DATAO",50.67,1290)
+12928
+"TEMP","DATAO",50.67,1291)
+202031^3130912.075454^8^358^
+"TEMP","DATAO",50.67,1292)
+4597
+"TEMP","DATAO",50.67,1293)
+202031^3130912.075454^9^358^
+"TEMP","DATAO",50.67,1294)
+491
+"TEMP","DATAO",50.67,1295)
+202031^3130912.075454^10^358^
+"TEMP","DATAO",50.67,1296)
+R
+"TEMP","DATAO",50.67,1297)
+202032^3130912.075518^1^358^
+"TEMP","DATAO",50.67,1298)
+060429012230
+"TEMP","DATAO",50.67,1299)
+202032^3130912.075518^3^358^
+"TEMP","DATAO",50.67,1300)
+3362
+"TEMP","DATAO",50.67,1301)
+202032^3130912.075518^4^358^
+"TEMP","DATAO",50.67,1302)
+VENLAFAXINE
+"TEMP","DATAO",50.67,1303)
+202032^3130912.075518^5^358^
+"TEMP","DATAO",50.67,1304)
+22899
+"TEMP","DATAO",50.67,1305)
+202032^3130912.075518^8^358^
+"TEMP","DATAO",50.67,1306)
+4597
+"TEMP","DATAO",50.67,1307)
+202032^3130912.075518^9^358^
+"TEMP","DATAO",50.67,1308)
+491
+"TEMP","DATAO",50.67,1309)
+202032^3130912.075518^10^358^
+"TEMP","DATAO",50.67,1310)
+R
+"TEMP","DATAO",50.67,1311)
+202033^3130912.075518^1^358^
+"TEMP","DATAO",50.67,1312)
+060429012290
+"TEMP","DATAO",50.67,1313)
+202033^3130912.075518^3^358^
+"TEMP","DATAO",50.67,1314)
+3362
+"TEMP","DATAO",50.67,1315)
+202033^3130912.075518^4^358^
+"TEMP","DATAO",50.67,1316)
+VENLAFAXINE
+"TEMP","DATAO",50.67,1317)
+202033^3130912.075518^5^358^
+"TEMP","DATAO",50.67,1318)
+22899
+"TEMP","DATAO",50.67,1319)
+202033^3130912.075518^8^358^
+"TEMP","DATAO",50.67,1320)
+4588
+"TEMP","DATAO",50.67,1321)
+202033^3130912.075518^9^358^
+"TEMP","DATAO",50.67,1322)
+491
+"TEMP","DATAO",50.67,1323)
+202033^3130912.075518^10^358^
+"TEMP","DATAO",50.67,1324)
+R
+"TEMP","DATAO",50.67,1325)
+202034^3130912.07554^1^358^
+"TEMP","DATAO",50.67,1326)
+060429012330
+"TEMP","DATAO",50.67,1327)
+202034^3130912.07554^3^358^
+"TEMP","DATAO",50.67,1328)
+3362
+"TEMP","DATAO",50.67,1329)
+202034^3130912.07554^4^358^
+"TEMP","DATAO",50.67,1330)
+VENLAFAXINE
+"TEMP","DATAO",50.67,1331)
+202034^3130912.07554^5^358^
+"TEMP","DATAO",50.67,1332)
+22895
+"TEMP","DATAO",50.67,1333)
+202034^3130912.07554^8^358^
+"TEMP","DATAO",50.67,1334)
+4597
+"TEMP","DATAO",50.67,1335)
+202034^3130912.07554^9^358^
+"TEMP","DATAO",50.67,1336)
+491
+"TEMP","DATAO",50.67,1337)
+202034^3130912.07554^10^358^
+"TEMP","DATAO",50.67,1338)
+R
+"TEMP","DATAO",50.67,1339)
+202035^3130912.075541^1^358^
+"TEMP","DATAO",50.67,1340)
+060429012390
+"TEMP","DATAO",50.67,1341)
+202035^3130912.075541^3^358^
+"TEMP","DATAO",50.67,1342)
+3362
+"TEMP","DATAO",50.67,1343)
+202035^3130912.075541^4^358^
+"TEMP","DATAO",50.67,1344)
+VENLAFAXINE
+"TEMP","DATAO",50.67,1345)
+202035^3130912.075541^5^358^
+"TEMP","DATAO",50.67,1346)
+22895
+"TEMP","DATAO",50.67,1347)
+202035^3130912.075541^8^358^
+"TEMP","DATAO",50.67,1348)
+4588
+"TEMP","DATAO",50.67,1349)
+202035^3130912.075541^9^358^
+"TEMP","DATAO",50.67,1350)
+491
+"TEMP","DATAO",50.67,1351)
+202035^3130912.075541^10^358^
+"TEMP","DATAO",50.67,1352)
+R
+"TEMP","DATAO",50.67,1353)
+202036^3130912.075607^1^358^
+"TEMP","DATAO",50.67,1354)
+068084012601
+"TEMP","DATAO",50.67,1355)
+202036^3130912.075607^3^358^
+"TEMP","DATAO",50.67,1356)
+2830
+"TEMP","DATAO",50.67,1357)
+202036^3130912.075607^4^358^
+"TEMP","DATAO",50.67,1358)
+NEPHROCAPS
+"TEMP","DATAO",50.67,1359)
+202036^3130912.075607^5^358^
+"TEMP","DATAO",50.67,1360)
+1568
+"TEMP","DATAO",50.67,1361)
+202036^3130912.075607^8^358^
+"TEMP","DATAO",50.67,1362)
+4593
+"TEMP","DATAO",50.67,1363)
+202036^3130912.075607^9^358^
+"TEMP","DATAO",50.67,1364)
+974
+"TEMP","DATAO",50.67,1365)
+202036^3130912.075607^10^358^
+"TEMP","DATAO",50.67,1366)
+O
+"TEMP","DATAO",50.67,1367)
+202037^3130912.075607^1^358^
+"TEMP","DATAO",50.67,1368)
+068084012611
+"TEMP","DATAO",50.67,1369)
+202037^3130912.075607^3^358^
+"TEMP","DATAO",50.67,1370)
+2830
+"TEMP","DATAO",50.67,1371)
+202037^3130912.075607^4^358^
+"TEMP","DATAO",50.67,1372)
+NEPHROCAPS
+"TEMP","DATAO",50.67,1373)
+202037^3130912.075607^5^358^
+"TEMP","DATAO",50.67,1374)
+1568
+"TEMP","DATAO",50.67,1375)
+202037^3130912.075607^8^358^
+"TEMP","DATAO",50.67,1376)
+4592
+"TEMP","DATAO",50.67,1377)
+202037^3130912.075607^9^358^
+"TEMP","DATAO",50.67,1378)
+974
+"TEMP","DATAO",50.67,1379)
+202037^3130912.075607^10^358^
+"TEMP","DATAO",50.67,1380)
+O
+"TEMP","DATAO",50.67,1381)
+202038^3130912.075707^1^358^
+"TEMP","DATAO",50.67,1382)
+011917013900
+"TEMP","DATAO",50.67,1383)
+202038^3130912.075707^2^358^
+"TEMP","DATAO",50.67,1384)
+11917-13900
+"TEMP","DATAO",50.67,1385)
+202038^3130912.075707^3^358^
+"TEMP","DATAO",50.67,1386)
+3395
+"TEMP","DATAO",50.67,1387)
+202038^3130912.075707^4^358^
+"TEMP","DATAO",50.67,1388)
+GLUCOSAMINE-CHONDROITIN
+"TEMP","DATAO",50.67,1389)
+202038^3130912.075707^5^358^
+"TEMP","DATAO",50.67,1390)
+15953
+"TEMP","DATAO",50.67,1391)
+202038^3130912.075707^8^358^
+"TEMP","DATAO",50.67,1392)
+4595
+"TEMP","DATAO",50.67,1393)
+202038^3130912.075707^9^358^
+"TEMP","DATAO",50.67,1394)
+491
+"TEMP","DATAO",50.67,1395)
+202038^3130912.075707^10^358^
+"TEMP","DATAO",50.67,1396)
+O
+"TEMP","DATAO",50.67,1397)
+202039^3130912.075707^1^358^
+"TEMP","DATAO",50.67,1398)
+011917013901
+"TEMP","DATAO",50.67,1399)
+202039^3130912.075707^2^358^
+"TEMP","DATAO",50.67,1400)
+11917-13901
+"TEMP","DATAO",50.67,1401)
+202039^3130912.075707^3^358^
+"TEMP","DATAO",50.67,1402)
+3395
+"TEMP","DATAO",50.67,1403)
+202039^3130912.075707^4^358^
+"TEMP","DATAO",50.67,1404)
+GLUCOSAMINE-CHONDROITIN
+"TEMP","DATAO",50.67,1405)
+202039^3130912.075707^5^358^
+"TEMP","DATAO",50.67,1406)
+15953
+"TEMP","DATAO",50.67,1407)
+202039^3130912.075707^8^358^
+"TEMP","DATAO",50.67,1408)
+4594
+"TEMP","DATAO",50.67,1409)
+202039^3130912.075707^9^358^
+"TEMP","DATAO",50.67,1410)
+491
+"TEMP","DATAO",50.67,1411)
+202039^3130912.075707^10^358^
+"TEMP","DATAO",50.67,1412)
+O
+"TEMP","DATAO",50.67,1413)
+202040^3130912.075707^1^358^
+"TEMP","DATAO",50.67,1414)
+011917013902
+"TEMP","DATAO",50.67,1415)
+202040^3130912.075707^2^358^
+"TEMP","DATAO",50.67,1416)
+11917-13902
+"TEMP","DATAO",50.67,1417)
+202040^3130912.075707^3^358^
+"TEMP","DATAO",50.67,1418)
+3395
+"TEMP","DATAO",50.67,1419)
+202040^3130912.075707^4^358^
+"TEMP","DATAO",50.67,1420)
+GLUCOSAMINE-CHONDROITIN
+"TEMP","DATAO",50.67,1421)
+202040^3130912.075708^5^358^
+"TEMP","DATAO",50.67,1422)
+15953
+"TEMP","DATAO",50.67,1423)
+202040^3130912.075708^8^358^
+"TEMP","DATAO",50.67,1424)
+4640
+"TEMP","DATAO",50.67,1425)
+202040^3130912.075708^9^358^
+"TEMP","DATAO",50.67,1426)
+491
+"TEMP","DATAO",50.67,1427)
+202040^3130912.075708^10^358^
+"TEMP","DATAO",50.67,1428)
+O
+"TEMP","DATAO",50.67,1429)
+202041^3130912.075708^1^358^
+"TEMP","DATAO",50.67,1430)
+011917013903
+"TEMP","DATAO",50.67,1431)
+202041^3130912.075708^2^358^
+"TEMP","DATAO",50.67,1432)
+11917-13903
+"TEMP","DATAO",50.67,1433)
+202041^3130912.075708^3^358^
+"TEMP","DATAO",50.67,1434)
+3395
+"TEMP","DATAO",50.67,1435)
+202041^3130912.075708^4^358^
+"TEMP","DATAO",50.67,1436)
+GLUCOSAMINE-CHONDROITIN
+"TEMP","DATAO",50.67,1437)
+202041^3130912.075708^5^358^
+"TEMP","DATAO",50.67,1438)
+15953
+"TEMP","DATAO",50.67,1439)
+202041^3130912.075708^8^358^
+"TEMP","DATAO",50.67,1440)
+4638
+"TEMP","DATAO",50.67,1441)
+202041^3130912.075708^9^358^
+"TEMP","DATAO",50.67,1442)
+491
+"TEMP","DATAO",50.67,1443)
+202041^3130912.075708^10^358^
+"TEMP","DATAO",50.67,1444)
+O
+"TEMP","DATAO",50.67,1445)
+202042^3130912.075728^1^358^
+"TEMP","DATAO",50.67,1446)
+059746028101
+"TEMP","DATAO",50.67,1447)
+202042^3130912.075728^3^358^
+"TEMP","DATAO",50.67,1448)
+3647
+"TEMP","DATAO",50.67,1449)
+202042^3130912.075728^4^358^
+"TEMP","DATAO",50.67,1450)
+ESCITALOPRAM
+"TEMP","DATAO",50.67,1451)
+202042^3130912.075728^5^358^
+"TEMP","DATAO",50.67,1452)
+15946
+"TEMP","DATAO",50.67,1453)
+202042^3130912.075728^8^358^
+"TEMP","DATAO",50.67,1454)
+4593
+"TEMP","DATAO",50.67,1455)
+202042^3130912.075728^9^358^
+"TEMP","DATAO",50.67,1456)
+491
+"TEMP","DATAO",50.67,1457)
+202042^3130912.075728^10^358^
+"TEMP","DATAO",50.67,1458)
+R
+"TEMP","DATAO",50.67,1459)
+202043^3130912.075747^1^358^
+"TEMP","DATAO",50.67,1460)
+054569594101
+"TEMP","DATAO",50.67,1461)
+202043^3130912.075747^3^358^
+"TEMP","DATAO",50.67,1462)
+3105
+"TEMP","DATAO",50.67,1463)
+202043^3130912.075747^4^358^
+"TEMP","DATAO",50.67,1464)
+CYMBALTA
+"TEMP","DATAO",50.67,1465)
+202043^3130912.075747^5^358^
+"TEMP","DATAO",50.67,1466)
+22821
+"TEMP","DATAO",50.67,1467)
+202043^3130912.075747^8^358^
+"TEMP","DATAO",50.67,1468)
+4597
+"TEMP","DATAO",50.67,1469)
+202043^3130912.075747^9^358^
+"TEMP","DATAO",50.67,1470)
+491
+"TEMP","DATAO",50.67,1471)
+202043^3130912.075747^10^358^
+"TEMP","DATAO",50.67,1472)
+R
+"TEMP","DATAO",50.67,1473)
+202044^3130912.075857^1^358^
+"TEMP","DATAO",50.67,1474)
+027495001802
+"TEMP","DATAO",50.67,1475)
+202044^3130912.075857^3^358^
+"TEMP","DATAO",50.67,1476)
+4089
+"TEMP","DATAO",50.67,1477)
+202044^3130912.075857^4^358^
+"TEMP","DATAO",50.67,1478)
+TRANSANOSIL
+"TEMP","DATAO",50.67,1479)
+202044^3130912.075857^5^358^
+"TEMP","DATAO",50.67,1480)
+23730
+"TEMP","DATAO",50.67,1481)
+202044^3130912.075857^8^358^
+"TEMP","DATAO",50.67,1482)
+4595
+"TEMP","DATAO",50.67,1483)
+202044^3130912.075857^9^358^
+"TEMP","DATAO",50.67,1484)
+491
+"TEMP","DATAO",50.67,1485)
+202044^3130912.075857^10^358^
+"TEMP","DATAO",50.67,1486)
+O
+"TEMP","DATAO",50.67,1487)
+202045^3130912.075857^1^358^
+"TEMP","DATAO",50.67,1488)
+027495001804
+"TEMP","DATAO",50.67,1489)
+202045^3130912.075857^3^358^
+"TEMP","DATAO",50.67,1490)
+4089
+"TEMP","DATAO",50.67,1491)
+202045^3130912.075857^4^358^
+"TEMP","DATAO",50.67,1492)
+TRANSANOSIL
+"TEMP","DATAO",50.67,1493)
+202045^3130912.075857^5^358^
+"TEMP","DATAO",50.67,1494)
+23730
+"TEMP","DATAO",50.67,1495)
+202045^3130912.075857^8^358^
+"TEMP","DATAO",50.67,1496)
+4594
+"TEMP","DATAO",50.67,1497)
+202045^3130912.075857^9^358^
+"TEMP","DATAO",50.67,1498)
+491
+"TEMP","DATAO",50.67,1499)
+202045^3130912.075857^10^358^
+"TEMP","DATAO",50.67,1500)
+O
+"TEMP","DATAO",50.67,1501)
+202046^3130912.082851^1^358^
+"TEMP","DATAO",50.67,1502)
+036000003310
+"TEMP","DATAO",50.67,1503)
+202046^3130912.082851^3^358^
+"TEMP","DATAO",50.67,1504)
+3875
+"TEMP","DATAO",50.67,1505)
+202046^3130912.082851^4^358^
+"TEMP","DATAO",50.67,1506)
+METOPROLOL TARTRATE
+"TEMP","DATAO",50.67,1507)
+202046^3130912.082851^5^358^
+"TEMP","DATAO",50.67,1508)
+4057
+"TEMP","DATAO",50.67,1509)
+202046^3130912.082851^8^358^
+"TEMP","DATAO",50.67,1510)
+4617
+"TEMP","DATAO",50.67,1511)
+202046^3130912.082851^9^358^
+"TEMP","DATAO",50.67,1512)
+613
+"TEMP","DATAO",50.67,1513)
+202046^3130912.082851^10^358^
+"TEMP","DATAO",50.67,1514)
+R
+"TEMP","DATAO",50.67,1515)
+202047^3130912.082936^1^358^
+"TEMP","DATAO",50.67,1516)
+000641039137
+"TEMP","DATAO",50.67,1517)
+202047^3130912.082936^3^358^
+"TEMP","DATAO",50.67,1518)
+3414
+"TEMP","DATAO",50.67,1519)
+202047^3130912.082936^4^358^
+"TEMP","DATAO",50.67,1520)
+HEPARIN (PORCINE)
+"TEMP","DATAO",50.67,1521)
+202047^3130912.082936^5^358^
+"TEMP","DATAO",50.67,1522)
+752
+"TEMP","DATAO",50.67,1523)
+202047^3130912.082936^8^358^
+"TEMP","DATAO",50.67,1524)
+4592
+"TEMP","DATAO",50.67,1525)
+202047^3130912.082936^9^358^
+"TEMP","DATAO",50.67,1526)
+613
+"TEMP","DATAO",50.67,1527)
+202047^3130912.082936^10^358^
+"TEMP","DATAO",50.67,1528)
+R
+"TEMP","DATAO",50.67,1529)
+202048^3130912.082937^1^358^
+"TEMP","DATAO",50.67,1530)
+000641245030
+"TEMP","DATAO",50.67,1531)
+202048^3130912.082937^3^358^
+"TEMP","DATAO",50.67,1532)
+3414
+"TEMP","DATAO",50.67,1533)
+202048^3130912.082937^4^358^
+"TEMP","DATAO",50.67,1534)
+HEPARIN (PORCINE)
+"TEMP","DATAO",50.67,1535)
+202048^3130912.082937^5^358^
+"TEMP","DATAO",50.67,1536)
+752
+"TEMP","DATAO",50.67,1537)
+202048^3130912.082937^8^358^
+"TEMP","DATAO",50.67,1538)
+4597
+"TEMP","DATAO",50.67,1539)
+202048^3130912.082937^9^358^
+"TEMP","DATAO",50.67,1540)
+613
+"TEMP","DATAO",50.67,1541)
+202048^3130912.082937^10^358^
+"TEMP","DATAO",50.67,1542)
+R
+"TEMP","DATAO",50.67,1543)
+202049^3130912.082958^1^358^
+"TEMP","DATAO",50.67,1544)
+000641041037
+"TEMP","DATAO",50.67,1545)
+202049^3130912.082958^3^358^
+"TEMP","DATAO",50.67,1546)
+3414
+"TEMP","DATAO",50.67,1547)
+202049^3130912.082958^4^358^
+"TEMP","DATAO",50.67,1548)
+HEPARIN (PORCINE)
+"TEMP","DATAO",50.67,1549)
+202049^3130912.082958^5^358^
+"TEMP","DATAO",50.67,1550)
+739
+"TEMP","DATAO",50.67,1551)
+202049^3130912.082958^8^358^
+"TEMP","DATAO",50.67,1552)
+4592
+"TEMP","DATAO",50.67,1553)
+202049^3130912.082958^9^358^
+"TEMP","DATAO",50.67,1554)
+613
+"TEMP","DATAO",50.67,1555)
+202049^3130912.082958^10^358^
+"TEMP","DATAO",50.67,1556)
+R
+"TEMP","DATAO",50.67,1557)
+202050^3130912.083019^1^358^
+"TEMP","DATAO",50.67,1558)
+000641040037
+"TEMP","DATAO",50.67,1559)
+202050^3130912.083019^3^358^
+"TEMP","DATAO",50.67,1560)
+3414
+"TEMP","DATAO",50.67,1561)
+202050^3130912.083019^4^358^
+"TEMP","DATAO",50.67,1562)
+HEPARIN (PORCINE)
+"TEMP","DATAO",50.67,1563)
+202050^3130912.083019^5^358^
+"TEMP","DATAO",50.67,1564)
+753
+"TEMP","DATAO",50.67,1565)
+202050^3130912.083019^8^358^
+"TEMP","DATAO",50.67,1566)
+4592
+"TEMP","DATAO",50.67,1567)
+202050^3130912.083019^9^358^
+"TEMP","DATAO",50.67,1568)
+613
+"TEMP","DATAO",50.67,1569)
+202050^3130912.083019^10^358^
+"TEMP","DATAO",50.67,1570)
+R
+"TEMP","DATAO",50.67,1571)
+202051^3130912.08302^1^358^
+"TEMP","DATAO",50.67,1572)
+000641246030
+"TEMP","DATAO",50.67,1573)
+202051^3130912.08302^3^358^
+"TEMP","DATAO",50.67,1574)
+3414
+"TEMP","DATAO",50.67,1575)
+202051^3130912.08302^4^358^
+"TEMP","DATAO",50.67,1576)
+HEPARIN (PORCINE)
+"TEMP","DATAO",50.67,1577)
+202051^3130912.08302^5^358^
+"TEMP","DATAO",50.67,1578)
+753
+"TEMP","DATAO",50.67,1579)
+202051^3130912.08302^8^358^
+"TEMP","DATAO",50.67,1580)
+4598
+"TEMP","DATAO",50.67,1581)
+202051^3130912.08302^9^358^
+"TEMP","DATAO",50.67,1582)
+613
+"TEMP","DATAO",50.67,1583)
+202051^3130912.08302^10^358^
+"TEMP","DATAO",50.67,1584)
+R
+"TEMP","DATAO",50.67,1585)
+202052^3130912.083051^1^358^
+"TEMP","DATAO",50.67,1586)
+043598033011
+"TEMP","DATAO",50.67,1587)
+202052^3130912.083051^3^358^
+"TEMP","DATAO",50.67,1588)
+2860
+"TEMP","DATAO",50.67,1589)
+202052^3130912.083051^4^358^
+"TEMP","DATAO",50.67,1590)
+ZOLEDRONIC ACID
+"TEMP","DATAO",50.67,1591)
+202052^3130912.083051^5^358^
+"TEMP","DATAO",50.67,1592)
+23723
+"TEMP","DATAO",50.67,1593)
+202052^3130912.083051^8^358^
+"TEMP","DATAO",50.67,1594)
+4617
+"TEMP","DATAO",50.67,1595)
+202052^3130912.083051^9^358^
+"TEMP","DATAO",50.67,1596)
+613
+"TEMP","DATAO",50.67,1597)
+202052^3130912.083051^10^358^
+"TEMP","DATAO",50.67,1598)
+R
+"TEMP","DATAO",50.67,1599)
+202053^3130912.083335^1^358^
+"TEMP","DATAO",50.67,1600)
+073462015045
+"TEMP","DATAO",50.67,1601)
+202053^3130912.083335^2^358^
+"TEMP","DATAO",50.67,1602)
+73462-15045
+"TEMP","DATAO",50.67,1603)
+202053^3130912.083335^3^358^
+"TEMP","DATAO",50.67,1604)
+3563
+"TEMP","DATAO",50.67,1605)
+202053^3130912.083335^4^358^
+"TEMP","DATAO",50.67,1606)
+ZEASORB
+"TEMP","DATAO",50.67,1607)
+202053^3130912.083335^5^358^
+"TEMP","DATAO",50.67,1608)
+12773
+"TEMP","DATAO",50.67,1609)
+202053^3130912.083335^8^358^
+"TEMP","DATAO",50.67,1610)
+4699
+"TEMP","DATAO",50.67,1611)
+202053^3130912.083335^9^358^
+"TEMP","DATAO",50.67,1612)
+491
+"TEMP","DATAO",50.67,1613)
+202053^3130912.083335^10^358^
+"TEMP","DATAO",50.67,1614)
+O
+"TEMP","DATAO",50.67,1615)
+202054^3130912.084125^1^358^
+"TEMP","DATAO",50.67,1616)
+011523432202
+"TEMP","DATAO",50.67,1617)
+202054^3130912.084125^3^358^
+"TEMP","DATAO",50.67,1618)
+3453
+"TEMP","DATAO",50.67,1619)
+202054^3130912.084125^4^358^
+"TEMP","DATAO",50.67,1620)
+OXYTROL FOR WOMEN
+"TEMP","DATAO",50.67,1621)
+202054^3130912.084125^5^358^
+"TEMP","DATAO",50.67,1622)
+16372
+"TEMP","DATAO",50.67,1623)
+202054^3130912.084125^8^358^
+"TEMP","DATAO",50.67,1624)
+4605
+"TEMP","DATAO",50.67,1625)
+202054^3130912.084125^9^358^
+"TEMP","DATAO",50.67,1626)
+492
+"TEMP","DATAO",50.67,1627)
+202054^3130912.084125^10^358^
+"TEMP","DATAO",50.67,1628)
+O
+"TEMP","DATAO",50.67,1629)
+202055^3130912.084126^1^358^
+"TEMP","DATAO",50.67,1630)
+011523432204
+"TEMP","DATAO",50.67,1631)
+202055^3130912.084126^3^358^
+"TEMP","DATAO",50.67,1632)
+3453
+"TEMP","DATAO",50.67,1633)
+202055^3130912.084126^4^358^
+"TEMP","DATAO",50.67,1634)
+OXYTROL FOR WOMEN
+"TEMP","DATAO",50.67,1635)
+202055^3130912.084126^5^358^
+"TEMP","DATAO",50.67,1636)
+16372
+"TEMP","DATAO",50.67,1637)
+202055^3130912.084126^8^358^
+"TEMP","DATAO",50.67,1638)
+4615
+"TEMP","DATAO",50.67,1639)
+202055^3130912.084126^9^358^
+"TEMP","DATAO",50.67,1640)
+492
+"TEMP","DATAO",50.67,1641)
+202055^3130912.084126^10^358^
+"TEMP","DATAO",50.67,1642)
+O
+"TEMP","DATAO",50.67,1643)
+202056^3130912.084126^1^358^
+"TEMP","DATAO",50.67,1644)
+041100080982
+"TEMP","DATAO",50.67,1645)
+202056^3130912.084126^2^358^
+"TEMP","DATAO",50.67,1646)
+41100-80982
+"TEMP","DATAO",50.67,1647)
+202056^3130912.084126^3^358^
+"TEMP","DATAO",50.67,1648)
+3453
+"TEMP","DATAO",50.67,1649)
+202056^3130912.084126^4^358^
+"TEMP","DATAO",50.67,1650)
+OXYTROL FOR WOMEN
+"TEMP","DATAO",50.67,1651)
+202056^3130912.084126^5^358^
+"TEMP","DATAO",50.67,1652)
+16372
+"TEMP","DATAO",50.67,1653)
+202056^3130912.084126^8^358^
+"TEMP","DATAO",50.67,1654)
+4615
+"TEMP","DATAO",50.67,1655)
+202056^3130912.084126^9^358^
+"TEMP","DATAO",50.67,1656)
+492
+"TEMP","DATAO",50.67,1657)
+202056^3130912.084126^10^358^
+"TEMP","DATAO",50.67,1658)
+O
+"TEMP","DATAO",50.67,1659)
+202057^3130912.084126^1^358^
+"TEMP","DATAO",50.67,1660)
+041100080984
+"TEMP","DATAO",50.67,1661)
+202057^3130912.084126^2^358^
+"TEMP","DATAO",50.67,1662)
+41100-80984
+"TEMP","DATAO",50.67,1663)
+202057^3130912.084126^3^358^
+"TEMP","DATAO",50.67,1664)
+3453
+"TEMP","DATAO",50.67,1665)
+202057^3130912.084126^4^358^
+"TEMP","DATAO",50.67,1666)
+OXYTROL FOR WOMEN
+"TEMP","DATAO",50.67,1667)
+202057^3130912.084126^5^358^
+"TEMP","DATAO",50.67,1668)
+16372
+"TEMP","DATAO",50.67,1669)
+202057^3130912.084126^8^358^
+"TEMP","DATAO",50.67,1670)
+4605
+"TEMP","DATAO",50.67,1671)
+202057^3130912.084126^9^358^
+"TEMP","DATAO",50.67,1672)
+492
+"TEMP","DATAO",50.67,1673)
+202057^3130912.084126^10^358^
+"TEMP","DATAO",50.67,1674)
+O
+"TEMP","DATAO",50.67,1675)
+202058^3130912.090003^1^358^
+"TEMP","DATAO",50.67,1676)
+017856003615
+"TEMP","DATAO",50.67,1677)
+202058^3130912.090003^3^358^
+"TEMP","DATAO",50.67,1678)
+4245
+"TEMP","DATAO",50.67,1679)
+202058^3130912.090003^4^358^
+"TEMP","DATAO",50.67,1680)
+KALEXATE
+"TEMP","DATAO",50.67,1681)
+202058^3130912.090003^5^358^
+"TEMP","DATAO",50.67,1682)
+3705
+"TEMP","DATAO",50.67,1683)
+202058^3130912.090003^8^358^
+"TEMP","DATAO",50.67,1684)
+4592
+"TEMP","DATAO",50.67,1685)
+202058^3130912.090003^9^358^
+"TEMP","DATAO",50.67,1686)
+293
+"TEMP","DATAO",50.67,1687)
+202058^3130912.090003^10^358^
+"TEMP","DATAO",50.67,1688)
+R
+"TEMP","DATAO",50.67,1689)
+202059^3130912.091656^1^358^
+"TEMP","DATAO",50.67,1690)
+008080753901
+"TEMP","DATAO",50.67,1691)
+202059^3130912.091656^3^358^
+"TEMP","DATAO",50.67,1692)
+3426
+"TEMP","DATAO",50.67,1693)
+202059^3130912.091656^4^358^
+"TEMP","DATAO",50.67,1694)
+TELFA
+"TEMP","DATAO",50.67,1695)
+202059^3130912.091656^5^358^
+"TEMP","DATAO",50.67,1696)
+21317
+"TEMP","DATAO",50.67,1697)
+202059^3130912.091656^8^358^
+"TEMP","DATAO",50.67,1698)
+4660
+"TEMP","DATAO",50.67,1699)
+202059^3130912.091656^9^358^
+"TEMP","DATAO",50.67,1700)
+492
+"TEMP","DATAO",50.67,1701)
+202059^3130912.091656^10^358^
+"TEMP","DATAO",50.67,1702)
+O
+"TEMP","DATAO",50.67,1703)
+202060^3130912.121332^1^358^
+"TEMP","DATAO",50.67,1704)
+024987035410
+"TEMP","DATAO",50.67,1705)
+202060^3130912.121332^3^358^
+"TEMP","DATAO",50.67,1706)
+3579
+"TEMP","DATAO",50.67,1707)
+202060^3130912.121332^4^358^
+"TEMP","DATAO",50.67,1708)
+ZINACEF
+"TEMP","DATAO",50.67,1709)
+202060^3130912.121332^5^358^
+"TEMP","DATAO",50.67,1710)
+809
+"TEMP","DATAO",50.67,1711)
+202060^3130912.121332^8^358^
+"TEMP","DATAO",50.67,1712)
+4592
+"TEMP","DATAO",50.67,1713)
+202060^3130912.121332^9^358^
+"TEMP","DATAO",50.67,1714)
+613
+"TEMP","DATAO",50.67,1715)
+202060^3130912.121332^10^358^
+"TEMP","DATAO",50.67,1716)
+R
+"TEMP","DATAO",50.67,1717)
+202061^3130912.12145^1^358^
+"TEMP","DATAO",50.67,1718)
+024987035210
+"TEMP","DATAO",50.67,1719)
+202061^3130912.12145^3^358^
+"TEMP","DATAO",50.67,1720)
+3579
+"TEMP","DATAO",50.67,1721)
+202061^3130912.12145^4^358^
+"TEMP","DATAO",50.67,1722)
+ZINACEF
+"TEMP","DATAO",50.67,1723)
+202061^3130912.12145^5^358^
+"TEMP","DATAO",50.67,1724)
+808
+"TEMP","DATAO",50.67,1725)
+202061^3130912.12145^8^358^
+"TEMP","DATAO",50.67,1726)
+4592
+"TEMP","DATAO",50.67,1727)
+202061^3130912.12145^9^358^
+"TEMP","DATAO",50.67,1728)
+613
+"TEMP","DATAO",50.67,1729)
+202061^3130912.12145^10^358^
+"TEMP","DATAO",50.67,1730)
+R
+"TEMP","DATAO",50.67,1731)
+100338^3130913.050001^7^358^
+"TEMP","DATAO",50.67,1732)
+3130913
+"TEMP","DATAO",50.67,1733)
+83740^3130913.050023^7^358^
+"TEMP","DATAO",50.67,1734)
+3130913
+"TEMP","DATAO",50.67,1735)
+116850^3130913.050028^7^358^
+"TEMP","DATAO",50.67,1736)
+3130913
+"TEMP","DATAO",50.67,1737)
+195442^3130913.050034^7^358^
+"TEMP","DATAO",50.67,1738)
+3130913
+"TEMP","DATAO",50.67,1739)
+191473^3130913.050039^7^358^
+"TEMP","DATAO",50.67,1740)
+3130913
+"TEMP","DATAO",50.67,1741)
+176565^3130913.05013^7^358^
+"TEMP","DATAO",50.67,1742)
+3130913
+"TEMP","DATAO",50.67,1743)
+105986^3130913.050131^7^358^
+"TEMP","DATAO",50.67,1744)
+3130913
+"TEMP","DATAO",50.67,1745)
+190127^3130913.050131^4^358^
+"TEMP","DATAO",50.67,1746)
+CORICIDIN HBP COLD & FLU
+"TEMP","DATAO",50.67,1747)
+190127^3130913.050131^7^358^
+"TEMP","DATAO",50.67,1748)
+3130913
+"TEMP","DATAO",50.67,1749)
+167524^3130913.050141^4^358^
+"TEMP","DATAO",50.67,1750)
+CODEINE-GUAIFENESIN
+"TEMP","DATAO",50.67,1751)
+187888^3130913.050141^7^358^
+"TEMP","DATAO",50.67,1752)
+3130913
+"TEMP","DATAO",50.67,1753)
+167852^3130913.050147^7^358^
+"TEMP","DATAO",50.67,1754)
+3130913
+"TEMP","DATAO",50.67,1755)
+167833^3130913.050148^7^358^
+"TEMP","DATAO",50.67,1756)
+3130913
+"TEMP","DATAO",50.67,1757)
+186629^3130913.050148^7^358^
+"TEMP","DATAO",50.67,1758)
+3130913
+"TEMP","DATAO",50.67,1759)
+186464^3130913.050149^4^358^
+"TEMP","DATAO",50.67,1760)
+AMANTADINE HCL
+"TEMP","DATAO",50.67,1761)
+186464^3130913.050149^7^358^
+"TEMP","DATAO",50.67,1762)
+3130913
+"TEMP","DATAO",50.67,1763)
+186463^3130913.050149^4^358^
+"TEMP","DATAO",50.67,1764)
+AMANTADINE HCL
+"TEMP","DATAO",50.67,1765)
+186463^3130913.050149^7^358^
+"TEMP","DATAO",50.67,1766)
+3130913
+"TEMP","DATAO",50.67,1767)
+186244^3130913.05015^7^358^
+"TEMP","DATAO",50.67,1768)
+3130913
+"TEMP","DATAO",50.67,1769)
+186243^3130913.05015^7^358^
+"TEMP","DATAO",50.67,1770)
+3130913
+"TEMP","DATAO",50.67,1771)
+186242^3130913.050151^7^358^
+"TEMP","DATAO",50.67,1772)
+3130913
+"TEMP","DATAO",50.67,1773)
+186241^3130913.050151^7^358^
+"TEMP","DATAO",50.67,1774)
+3130913
+"TEMP","DATAO",50.67,1775)
+186240^3130913.050152^7^358^
+"TEMP","DATAO",50.67,1776)
+3130913
+"TEMP","DATAO",50.67,1777)
+186120^3130913.050152^7^358^
+"TEMP","DATAO",50.67,1778)
+3130913
+"TEMP","DATAO",50.67,1779)
+186119^3130913.050152^7^358^
+"TEMP","DATAO",50.67,1780)
+3130913
+"TEMP","DATAO",50.67,1781)
+186118^3130913.050153^7^358^
+"TEMP","DATAO",50.67,1782)
+3130913
+"TEMP","DATAO",50.67,1783)
+185257^3130913.050153^7^358^
+"TEMP","DATAO",50.67,1784)
+3130913
+"TEMP","DATAO",50.67,1785)
+185256^3130913.050154^7^358^
+"TEMP","DATAO",50.67,1786)
+3130913
+"TEMP","DATAO",50.67,1787)
+185129^3130913.050154^7^358^
+"TEMP","DATAO",50.67,1788)
+3130913
+"TEMP","DATAO",50.67,1789)
+185061^3130913.050155^7^358^
+"TEMP","DATAO",50.67,1790)
+3130913
+"TEMP","DATAO",50.67,1791)
+185060^3130913.050155^7^358^
+"TEMP","DATAO",50.67,1792)
+3130913
+"TEMP","DATAO",50.67,1793)
+149073^3130913.050156^7^358^
+"TEMP","DATAO",50.67,1794)
+3130913
+"TEMP","DATAO",50.67,1795)
+149072^3130913.050156^7^358^
+"TEMP","DATAO",50.67,1796)
+3130913
+"TEMP","DATAO",50.67,1797)
+149071^3130913.050157^7^358^
+"TEMP","DATAO",50.67,1798)
+3130913
+"TEMP","DATAO",50.67,1799)
+149070^3130913.050157^7^358^
+"TEMP","DATAO",50.67,1800)
+3130913
+"TEMP","DATAO",50.67,1801)
+149069^3130913.050157^7^358^
+"TEMP","DATAO",50.67,1802)
+3130913
+"TEMP","DATAO",50.67,1803)
+149068^3130913.050158^7^358^
+"TEMP","DATAO",50.67,1804)
+3130913
+"TEMP","DATAO",50.67,1805)
+149067^3130913.050158^7^358^
+"TEMP","DATAO",50.67,1806)
+3130913
+"TEMP","DATAO",50.67,1807)
+149066^3130913.050159^7^358^
+"TEMP","DATAO",50.67,1808)
+3130913
+"TEMP","DATAO",50.67,1809)
+148108^3130913.050159^7^358^
+"TEMP","DATAO",50.67,1810)
+3130913
+"TEMP","DATAO",50.67,1811)
+148107^3130913.0502^7^358^
+"TEMP","DATAO",50.67,1812)
+3130913
+"TEMP","DATAO",50.67,1813)
+148106^3130913.0502^7^358^
+"TEMP","DATAO",50.67,1814)
+3130913
+"TEMP","DATAO",50.67,1815)
+148489^3130913.050201^7^358^
+"TEMP","DATAO",50.67,1816)
+3130913
+"TEMP","DATAO",50.67,1817)
+148488^3130913.050201^7^358^
+"TEMP","DATAO",50.67,1818)
+3130913
+"TEMP","DATAO",50.67,1819)
+148487^3130913.050202^7^358^
+"TEMP","DATAO",50.67,1820)
+3130913
+"TEMP","DATAO",50.67,1821)
+148486^3130913.050202^7^358^
+"TEMP","DATAO",50.67,1822)
+3130913
+"TEMP","DATAO",50.67,1823)
+148485^3130913.050203^7^358^
+"TEMP","DATAO",50.67,1824)
+3130913
+"TEMP","DATAO",50.67,1825)
+112720^3130913.050203^7^358^
+"TEMP","DATAO",50.67,1826)
+3130913
+"TEMP","DATAO",50.67,1827)
+112719^3130913.050203^7^358^
+"TEMP","DATAO",50.67,1828)
+3130913
+"TEMP","DATAO",50.67,1829)
+112622^3130913.050204^7^358^
+"TEMP","DATAO",50.67,1830)
+3130913
+"TEMP","DATAO",50.67,1831)
+112621^3130913.050204^7^358^
+"TEMP","DATAO",50.67,1832)
+3130913
+"TEMP","DATAO",50.67,1833)
+112620^3130913.050205^7^358^
+"TEMP","DATAO",50.67,1834)
+3130913
+"TEMP","DATAO",50.67,1835)
+141084^3130913.050205^7^358^
+"TEMP","DATAO",50.67,1836)
+3130913
+"TEMP","DATAO",50.67,1837)
+141258^3130913.050206^7^358^
+"TEMP","DATAO",50.67,1838)
+3130913
+"TEMP","DATAO",50.67,1839)
+141560^3130913.050207^7^358^
+"TEMP","DATAO",50.67,1840)
+3130913
+"TEMP","DATAO",50.67,1841)
+141195^3130913.050207^7^358^
+"TEMP","DATAO",50.67,1842)
+3130913
+"TEMP","DATAO",50.67,1843)
+111825^3130913.050208^7^358^
+"TEMP","DATAO",50.67,1844)
+3130913
+"TEMP","DATAO",50.67,1845)
+165267^3130913.050208^7^358^
+"TEMP","DATAO",50.67,1846)
+3130913
+"TEMP","DATAO",50.67,1847)
+110791^3130913.050209^7^358^
+"TEMP","DATAO",50.67,1848)
+3130913
+"TEMP","DATAO",50.67,1849)
+110790^3130913.05021^7^358^
+"TEMP","DATAO",50.67,1850)
+3130913
+"TEMP","DATAO",50.67,1851)
+110789^3130913.05021^7^358^
+"TEMP","DATAO",50.67,1852)
+3130913
+"TEMP","DATAO",50.67,1853)
+110684^3130913.050211^7^358^
+"TEMP","DATAO",50.67,1854)
+3130913
+"TEMP","DATAO",50.67,1855)
+110683^3130913.050211^7^358^
+"TEMP","DATAO",50.67,1856)
+3130913
+"TEMP","DATAO",50.67,1857)
+170929^3130913.050212^7^358^
+"TEMP","DATAO",50.67,1858)
+3130913
+"TEMP","DATAO",50.67,1859)
+170928^3130913.050212^7^358^
+"TEMP","DATAO",50.67,1860)
+3130913
+"TEMP","DATAO",50.67,1861)
+170927^3130913.050213^7^358^
+"TEMP","DATAO",50.67,1862)
+3130913
+"TEMP","DATAO",50.67,1863)
+170408^3130913.050213^7^358^
+"TEMP","DATAO",50.67,1864)
+3130913
+"TEMP","DATAO",50.67,1865)
+170407^3130913.050214^7^358^
+"TEMP","DATAO",50.67,1866)
+3130913
+"TEMP","DATAO",50.67,1867)
+170406^3130913.050214^7^358^
+"TEMP","DATAO",50.67,1868)
+3130913
+"TEMP","DATAO",50.67,1869)
+170159^3130913.050214^7^358^
+"TEMP","DATAO",50.67,1870)
+3130913
+"TEMP","DATAO",50.67,1871)
+170158^3130913.050215^7^358^
+"TEMP","DATAO",50.67,1872)
+3130913
+"TEMP","DATAO",50.67,1873)
+170112^3130913.050215^7^358^
+"TEMP","DATAO",50.67,1874)
+3130913
+"TEMP","DATAO",50.67,1875)
+170111^3130913.050216^7^358^
+"TEMP","DATAO",50.67,1876)
+3130913
+"TEMP","DATAO",50.67,1877)
+169746^3130913.050216^7^358^
+"TEMP","DATAO",50.67,1878)
+3130913
+"TEMP","DATAO",50.67,1879)
+169268^3130913.050217^7^358^
+"TEMP","DATAO",50.67,1880)
+3130913
+"TEMP","DATAO",50.67,1881)
+163664^3130913.050217^7^358^
+"TEMP","DATAO",50.67,1882)
+3130913
+"TEMP","DATAO",50.67,1883)
+163663^3130913.050218^7^358^
+"TEMP","DATAO",50.67,1884)
+3130913
+"TEMP","DATAO",50.67,1885)
+163662^3130913.050218^7^358^
+"TEMP","DATAO",50.67,1886)
+3130913
+"TEMP","DATAO",50.67,1887)
+163661^3130913.050219^7^358^
+"TEMP","DATAO",50.67,1888)
+3130913
+"TEMP","DATAO",50.67,1889)
+163660^3130913.050219^7^358^
+"TEMP","DATAO",50.67,1890)
+3130913
+"TEMP","DATAO",50.67,1891)
+163659^3130913.050219^7^358^
+"TEMP","DATAO",50.67,1892)
+3130913
+"TEMP","DATAO",50.67,1893)
+163421^3130913.05022^7^358^
+"TEMP","DATAO",50.67,1894)
+3130913
+"TEMP","DATAO",50.67,1895)
+163420^3130913.05022^7^358^
+"TEMP","DATAO",50.67,1896)
+3130913
+"TEMP","DATAO",50.67,1897)
+163158^3130913.050221^7^358^
+"TEMP","DATAO",50.67,1898)
+3130913
+"TEMP","DATAO",50.67,1899)
+163157^3130913.050221^7^358^
+"TEMP","DATAO",50.67,1900)
+3130913
+"TEMP","DATAO",50.67,1901)
+163156^3130913.050222^7^358^
+"TEMP","DATAO",50.67,1902)
+3130913
+"TEMP","DATAO",50.67,1903)
+163155^3130913.050222^7^358^
+"TEMP","DATAO",50.67,1904)
+3130913
+"TEMP","DATAO",50.67,1905)
+163111^3130913.050223^7^358^
+"TEMP","DATAO",50.67,1906)
+3130913
+"TEMP","DATAO",50.67,1907)
+163110^3130913.050223^7^358^
+"TEMP","DATAO",50.67,1908)
+3130913
+"TEMP","DATAO",50.67,1909)
+163109^3130913.050223^7^358^
+"TEMP","DATAO",50.67,1910)
+3130913
+"TEMP","DATAO",50.67,1911)
+163108^3130913.050224^7^358^
+"TEMP","DATAO",50.67,1912)
+3130913
+"TEMP","DATAO",50.67,1913)
+146496^3130913.050224^7^358^
+"TEMP","DATAO",50.67,1914)
+3130913
+"TEMP","DATAO",50.67,1915)
+146198^3130913.050225^7^358^
+"TEMP","DATAO",50.67,1916)
+3130913
+"TEMP","DATAO",50.67,1917)
+146197^3130913.050225^7^358^
+"TEMP","DATAO",50.67,1918)
+3130913
+"TEMP","DATAO",50.67,1919)
+145683^3130913.050226^7^358^
+"TEMP","DATAO",50.67,1920)
+3130913
+"TEMP","DATAO",50.67,1921)
+145682^3130913.050226^7^358^
+"TEMP","DATAO",50.67,1922)
+3130913
+"TEMP","DATAO",50.67,1923)
+145471^3130913.050227^7^358^
+"TEMP","DATAO",50.67,1924)
+3130913
+"TEMP","DATAO",50.67,1925)
+145470^3130913.050227^7^358^
+"TEMP","DATAO",50.67,1926)
+3130913
+"TEMP","DATAO",50.67,1927)
+145469^3130913.050227^7^358^
+"TEMP","DATAO",50.67,1928)
+3130913
+"TEMP","DATAO",50.67,1929)
+145468^3130913.050228^7^358^
+"TEMP","DATAO",50.67,1930)
+3130913
+"TEMP","DATAO",50.67,1931)
+145467^3130913.050228^7^358^
+"TEMP","DATAO",50.67,1932)
+3130913
+"TEMP","DATAO",50.67,1933)
+145466^3130913.050229^7^358^
+"TEMP","DATAO",50.67,1934)
+3130913
+"TEMP","DATAO",50.67,1935)
+149552^3130913.05023^7^358^
+"TEMP","DATAO",50.67,1936)
+3130913
+"TEMP","DATAO",50.67,1937)
+149551^3130913.05023^7^358^
+"TEMP","DATAO",50.67,1938)
+3130913
+"TEMP","DATAO",50.67,1939)
+149550^3130913.05023^7^358^
+"TEMP","DATAO",50.67,1940)
+3130913
+"TEMP","DATAO",50.67,1941)
+149549^3130913.050231^7^358^
+"TEMP","DATAO",50.67,1942)
+3130913
+"TEMP","DATAO",50.67,1943)
+149548^3130913.050231^7^358^
+"TEMP","DATAO",50.67,1944)
+3130913
+"TEMP","DATAO",50.67,1945)
+149547^3130913.050232^7^358^
+"TEMP","DATAO",50.67,1946)
+3130913
+"TEMP","DATAO",50.67,1947)
+149546^3130913.050232^7^358^
+"TEMP","DATAO",50.67,1948)
+3130913
+"TEMP","DATAO",50.67,1949)
+146962^3130913.050233^7^358^
+"TEMP","DATAO",50.67,1950)
+3130913
+"TEMP","DATAO",50.67,1951)
+146961^3130913.050233^7^358^
+"TEMP","DATAO",50.67,1952)
+3130913
+"TEMP","DATAO",50.67,1953)
+146960^3130913.050233^7^358^
+"TEMP","DATAO",50.67,1954)
+3130913
+"TEMP","DATAO",50.67,1955)
+146831^3130913.050234^7^358^
+"TEMP","DATAO",50.67,1956)
+3130913
+"TEMP","DATAO",50.67,1957)
+146830^3130913.050234^7^358^
+"TEMP","DATAO",50.67,1958)
+3130913
+"TEMP","DATAO",50.67,1959)
+146779^3130913.050235^7^358^
+"TEMP","DATAO",50.67,1960)
+3130913
+"TEMP","DATAO",50.67,1961)
+146778^3130913.050235^7^358^
+"TEMP","DATAO",50.67,1962)
+3130913
+"TEMP","DATAO",50.67,1963)
+104906^3130913.050236^7^358^
+"TEMP","DATAO",50.67,1964)
+3130913
+"TEMP","DATAO",50.67,1965)
+146497^3130913.050236^7^358^
+"TEMP","DATAO",50.67,1966)
+3130913
+"TEMP","DATAO",50.67,1967)
+116117^3130913.050237^7^358^
+"TEMP","DATAO",50.67,1968)
+3130913
+"TEMP","DATAO",50.67,1969)
+114436^3130913.050237^7^358^
+"TEMP","DATAO",50.67,1970)
+3130913
+"TEMP","DATAO",50.67,1971)
+114784^3130913.050238^7^358^
+"TEMP","DATAO",50.67,1972)
+3130913
+"TEMP","DATAO",50.67,1973)
+150372^3130913.050238^7^358^
+"TEMP","DATAO",50.67,1974)
+3130913
+"TEMP","DATAO",50.67,1975)
+150371^3130913.050239^7^358^
+"TEMP","DATAO",50.67,1976)
+3130913
+"TEMP","DATAO",50.67,1977)
+114099^3130913.050239^7^358^
+"TEMP","DATAO",50.67,1978)
+3130913
+"TEMP","DATAO",50.67,1979)
+114024^3130913.050239^7^358^
+"TEMP","DATAO",50.67,1980)
+3130913
+"TEMP","DATAO",50.67,1981)
+114023^3130913.05024^7^358^
+"TEMP","DATAO",50.67,1982)
+3130913
+"TEMP","DATAO",50.67,1983)
+112727^3130913.05024^7^358^
+"TEMP","DATAO",50.67,1984)
+3130913
+"TEMP","DATAO",50.67,1985)
+112726^3130913.050241^7^358^
+"TEMP","DATAO",50.67,1986)
+3130913
+"TEMP","DATAO",50.67,1987)
+112725^3130913.050241^7^358^
+"TEMP","DATAO",50.67,1988)
+3130913
+"TEMP","DATAO",50.67,1989)
+112724^3130913.050242^7^358^
+"TEMP","DATAO",50.67,1990)
+3130913
+"TEMP","DATAO",50.67,1991)
+112723^3130913.050242^7^358^
+"TEMP","DATAO",50.67,1992)
+3130913
+"TEMP","DATAO",50.67,1993)
+112722^3130913.050242^7^358^
+"TEMP","DATAO",50.67,1994)
+3130913
+"TEMP","DATAO",50.67,1995)
+112721^3130913.050243^7^358^
+"TEMP","DATAO",50.67,1996)
+3130913
+"TEMP","DATAO",50.67,1997)
+169569^3130913.050243^7^358^
+"TEMP","DATAO",50.67,1998)
+3130913
+"TEMP","DATAO",50.67,1999)
+169568^3130913.050244^7^358^
+"TEMP","DATAO",50.67,2000)
+3130913
+"TEMP","DATAO",50.67,2001)
+169567^3130913.050244^7^358^
+"TEMP","DATAO",50.67,2002)
+3130913
+"TEMP","DATAO",50.67,2003)
+184517^3130913.050244^7^358^
+"TEMP","DATAO",50.67,2004)
+3130913
+"TEMP","DATAO",50.67,2005)
+184516^3130913.050245^7^358^
+"TEMP","DATAO",50.67,2006)
+3130913
+"TEMP","DATAO",50.67,2007)
+167362^3130913.050245^7^358^
+"TEMP","DATAO",50.67,2008)
+3130913
+"TEMP","DATAO",50.67,2009)
+167361^3130913.050246^7^358^
+"TEMP","DATAO",50.67,2010)
+3130913
+"TEMP","DATAO",50.67,2011)
+167360^3130913.050246^7^358^
+"TEMP","DATAO",50.67,2012)
+3130913
+"TEMP","DATAO",50.67,2013)
+173360^3130913.050247^7^358^
+"TEMP","DATAO",50.67,2014)
+3130913
+"TEMP","DATAO",50.67,2015)
+173359^3130913.050247^7^358^
+"TEMP","DATAO",50.67,2016)
+3130913
+"TEMP","DATAO",50.67,2017)
+173016^3130913.050248^7^358^
+"TEMP","DATAO",50.67,2018)
+3130913
+"TEMP","DATAO",50.67,2019)
+167353^3130913.050248^7^358^
+"TEMP","DATAO",50.67,2020)
+3130913
+"TEMP","DATAO",50.67,2021)
+124075^3130913.050249^7^358^
+"TEMP","DATAO",50.67,2022)
+3130913
+"TEMP","DATAO",50.67,2023)
+187971^3130913.050249^7^358^
+"TEMP","DATAO",50.67,2024)
+3130913
+"TEMP","DATAO",50.67,2025)
+187970^3130913.05025^7^358^
+"TEMP","DATAO",50.67,2026)
+3130913
+"TEMP","DATAO",50.67,2027)
+187957^3130913.05025^7^358^
+"TEMP","DATAO",50.67,2028)
+3130913
+"TEMP","DATAO",50.67,2029)
+187949^3130913.05025^7^358^
+"TEMP","DATAO",50.67,2030)
+3130913
+"TEMP","DATAO",50.67,2031)
+187948^3130913.050251^7^358^
+"TEMP","DATAO",50.67,2032)
+3130913
+"TEMP","DATAO",50.67,2033)
+187915^3130913.050251^7^358^
+"TEMP","DATAO",50.67,2034)
+3130913
+"TEMP","DATAO",50.67,2035)
+187914^3130913.050252^7^358^
+"TEMP","DATAO",50.67,2036)
+3130913
+"TEMP","DATAO",50.67,2037)
+188725^3130913.050252^7^358^
+"TEMP","DATAO",50.67,2038)
+3130913
+"TEMP","DATAO",50.67,2039)
+188528^3130913.050253^7^358^
+"TEMP","DATAO",50.67,2040)
+3130913
+"TEMP","DATAO",50.67,2041)
+188615^3130913.050253^7^358^
+"TEMP","DATAO",50.67,2042)
+3130913
+"TEMP","DATAO",50.67,2043)
+114288^3130913.050254^7^358^
+"TEMP","DATAO",50.67,2044)
+3130913
+"TEMP","DATAO",50.67,2045)
+106886^3130913.050254^7^358^
+"TEMP","DATAO",50.67,2046)
+3130913
+"TEMP","DATAO",50.67,2047)
+114379^3130913.050255^7^358^
+"TEMP","DATAO",50.67,2048)
+3130913
+"TEMP","DATAO",50.67,2049)
+114378^3130913.050255^7^358^
+"TEMP","DATAO",50.67,2050)
+3130913
+"TEMP","DATAO",50.67,2051)
+181112^3130913.050256^7^358^
+"TEMP","DATAO",50.67,2052)
+3130913
+"TEMP","DATAO",50.67,2053)
+180601^3130913.050256^7^358^
+"TEMP","DATAO",50.67,2054)
+3130913
+"TEMP","DATAO",50.67,2055)
+180600^3130913.050257^7^358^
+"TEMP","DATAO",50.67,2056)
+3130913
+"TEMP","DATAO",50.67,2057)
+180599^3130913.050257^7^358^
+"TEMP","DATAO",50.67,2058)
+3130913
+"TEMP","DATAO",50.67,2059)
+180598^3130913.050258^7^358^
+"TEMP","DATAO",50.67,2060)
+3130913
+"TEMP","DATAO",50.67,2061)
+180597^3130913.050258^7^358^
+"TEMP","DATAO",50.67,2062)
+3130913
+"TEMP","DATAO",50.67,2063)
+140807^3130913.050258^7^358^
+"TEMP","DATAO",50.67,2064)
+3130913
+"TEMP","DATAO",50.67,2065)
+140651^3130913.050259^7^358^
+"TEMP","DATAO",50.67,2066)
+3130913
+"TEMP","DATAO",50.67,2067)
+140650^3130913.050259^7^358^
+"TEMP","DATAO",50.67,2068)
+3130913
+"TEMP","DATAO",50.67,2069)
+140444^3130913.0503^7^358^
+"TEMP","DATAO",50.67,2070)
+3130913
+"TEMP","DATAO",50.67,2071)
+140443^3130913.0503^7^358^
+"TEMP","DATAO",50.67,2072)
+3130913
+"TEMP","DATAO",50.67,2073)
+140442^3130913.050301^7^358^
+"TEMP","DATAO",50.67,2074)
+3130913
+"TEMP","DATAO",50.67,2075)
+139553^3130913.050302^7^358^
+"TEMP","DATAO",50.67,2076)
+3130913
+"TEMP","DATAO",50.67,2077)
+139107^3130913.050302^7^358^
+"TEMP","DATAO",50.67,2078)
+3130913
+"TEMP","DATAO",50.67,2079)
+139106^3130913.050303^7^358^
+"TEMP","DATAO",50.67,2080)
+3130913
+"TEMP","DATAO",50.67,2081)
+138979^3130913.050303^7^358^
+"TEMP","DATAO",50.67,2082)
+3130913
+"TEMP","DATAO",50.67,2083)
+138978^3130913.050304^7^358^
+"TEMP","DATAO",50.67,2084)
+3130913
+"TEMP","DATAO",50.67,2085)
+167359^3130913.050304^7^358^
+"TEMP","DATAO",50.67,2086)
+3130913
+"TEMP","DATAO",50.67,2087)
+167358^3130913.050305^7^358^
+"TEMP","DATAO",50.67,2088)
+3130913
+"TEMP","DATAO",50.67,2089)
+167357^3130913.050305^7^358^
+"TEMP","DATAO",50.67,2090)
+3130913
+"TEMP","DATAO",50.67,2091)
+167356^3130913.050305^7^358^
+"TEMP","DATAO",50.67,2092)
+3130913
+"TEMP","DATAO",50.67,2093)
+167355^3130913.050306^7^358^
+"TEMP","DATAO",50.67,2094)
+3130913
+"TEMP","DATAO",50.67,2095)
+167354^3130913.050306^7^358^
+"TEMP","DATAO",50.67,2096)
+3130913
+"TEMP","DATAO",50.67,2097)
+159407^3130913.050307^7^358^
+"TEMP","DATAO",50.67,2098)
+3130913
+"TEMP","DATAO",50.67,2099)
+159335^3130913.050308^7^358^
+"TEMP","DATAO",50.67,2100)
+3130913
+"TEMP","DATAO",50.67,2101)
+159334^3130913.050308^7^358^
+"TEMP","DATAO",50.67,2102)
+3130913
+"TEMP","DATAO",50.67,2103)
+159018^3130913.050309^7^358^
+"TEMP","DATAO",50.67,2104)
+3130913
+"TEMP","DATAO",50.67,2105)
+159017^3130913.050309^7^358^
+"TEMP","DATAO",50.67,2106)
+3130913
+"TEMP","DATAO",50.67,2107)
+158974^3130913.05031^7^358^
+"TEMP","DATAO",50.67,2108)
+3130913
+"TEMP","DATAO",50.67,2109)
+158929^3130913.050311^7^358^
+"TEMP","DATAO",50.67,2110)
+3130913
+"TEMP","DATAO",50.67,2111)
+158928^3130913.050311^7^358^
+"TEMP","DATAO",50.67,2112)
+3130913
+"TEMP","DATAO",50.67,2113)
+158927^3130913.050312^7^358^
+"TEMP","DATAO",50.67,2114)
+3130913
+"TEMP","DATAO",50.67,2115)
+158926^3130913.050312^7^358^
+"TEMP","DATAO",50.67,2116)
+3130913
+"TEMP","DATAO",50.67,2117)
+187913^3130913.050313^7^358^
+"TEMP","DATAO",50.67,2118)
+3130913
+"TEMP","DATAO",50.67,2119)
+187883^3130913.050313^7^358^
+"TEMP","DATAO",50.67,2120)
+3130913
+"TEMP","DATAO",50.67,2121)
+187391^3130913.050314^7^358^
+"TEMP","DATAO",50.67,2122)
+3130913
+"TEMP","DATAO",50.67,2123)
+187390^3130913.050314^7^358^
+"TEMP","DATAO",50.67,2124)
+3130913
+"TEMP","DATAO",50.67,2125)
+186630^3130913.050314^7^358^
+"TEMP","DATAO",50.67,2126)
+3130913
+"TEMP","DATAO",50.67,2127)
+158012^3130913.050315^7^358^
+"TEMP","DATAO",50.67,2128)
+3130913
+"TEMP","DATAO",50.67,2129)
+158011^3130913.050315^7^358^
+"TEMP","DATAO",50.67,2130)
+3130913
+"TEMP","DATAO",50.67,2131)
+157922^3130913.050316^7^358^
+"TEMP","DATAO",50.67,2132)
+3130913
+"TEMP","DATAO",50.67,2133)
+157921^3130913.050316^7^358^
+"TEMP","DATAO",50.67,2134)
+3130913
+"TEMP","DATAO",50.67,2135)
+157920^3130913.050316^7^358^
+"TEMP","DATAO",50.67,2136)
+3130913
+"TEMP","DATAO",50.67,2137)
+157377^3130913.050317^7^358^
+"TEMP","DATAO",50.67,2138)
+3130913
+"TEMP","DATAO",50.67,2139)
+157376^3130913.050318^7^358^
+"TEMP","DATAO",50.67,2140)
+3130913
+"TEMP","DATAO",50.67,2141)
+157251^3130913.050318^7^358^
+"TEMP","DATAO",50.67,2142)
+3130913
+"TEMP","DATAO",50.67,2143)
+155733^3130913.050318^7^358^
+"TEMP","DATAO",50.67,2144)
+3130913
+"TEMP","DATAO",50.67,2145)
+155431^3130913.050319^7^358^
+"TEMP","DATAO",50.67,2146)
+3130913
+"TEMP","DATAO",50.67,2147)
+155430^3130913.05032^7^358^
+"TEMP","DATAO",50.67,2148)
+3130913
+"TEMP","DATAO",50.67,2149)
+169241^3130913.050321^7^358^
+"TEMP","DATAO",50.67,2150)
+3130913
+"TEMP","DATAO",50.67,2151)
+184945^3130913.050322^7^358^
+"TEMP","DATAO",50.67,2152)
+3130913
+"TEMP","DATAO",50.67,2153)
+184944^3130913.050322^7^358^
+"TEMP","DATAO",50.67,2154)
+3130913
+"TEMP","DATAO",50.67,2155)
+184943^3130913.050323^7^358^
+"TEMP","DATAO",50.67,2156)
+3130913
+"TEMP","DATAO",50.67,2157)
+184942^3130913.050324^7^358^
+"TEMP","DATAO",50.67,2158)
+3130913
+"TEMP","DATAO",50.67,2159)
+184941^3130913.050324^7^358^
+"TEMP","DATAO",50.67,2160)
+3130913
+"TEMP","DATAO",50.67,2161)
+184940^3130913.050325^7^358^
+"TEMP","DATAO",50.67,2162)
+3130913
+"TEMP","DATAO",50.67,2163)
+184939^3130913.050325^7^358^
+"TEMP","DATAO",50.67,2164)
+3130913
+"TEMP","DATAO",50.67,2165)
+181881^3130913.050326^7^358^
+"TEMP","DATAO",50.67,2166)
+3130913
+"TEMP","DATAO",50.67,2167)
+181880^3130913.050327^7^358^
+"TEMP","DATAO",50.67,2168)
+3130913
+"TEMP","DATAO",50.67,2169)
+181787^3130913.050327^7^358^
+"TEMP","DATAO",50.67,2170)
+3130913
+"TEMP","DATAO",50.67,2171)
+181786^3130913.050327^7^358^
+"TEMP","DATAO",50.67,2172)
+3130913
+"TEMP","DATAO",50.67,2173)
+159056^3130913.050328^7^358^
+"TEMP","DATAO",50.67,2174)
+3130913
+"TEMP","DATAO",50.67,2175)
+158884^3130913.050328^7^358^
+"TEMP","DATAO",50.67,2176)
+3130913
+"TEMP","DATAO",50.67,2177)
+106893^3130913.050329^7^358^
+"TEMP","DATAO",50.67,2178)
+3130913
+"TEMP","DATAO",50.67,2179)
+158802^3130913.050329^7^358^
+"TEMP","DATAO",50.67,2180)
+3130913
+"TEMP","DATAO",50.67,2181)
+158014^3130913.05033^7^358^
+"TEMP","DATAO",50.67,2182)
+3130913
+"TEMP","DATAO",50.67,2183)
+158013^3130913.05033^7^358^
+"TEMP","DATAO",50.67,2184)
+3130913
+"TEMP","DATAO",50.67,2185)
+130970^3130913.050331^7^358^
+"TEMP","DATAO",50.67,2186)
+3130913
+"TEMP","DATAO",50.67,2187)
+129660^3130913.050331^7^358^
+"TEMP","DATAO",50.67,2188)
+3130913
+"TEMP","DATAO",50.67,2189)
+129622^3130913.050331^7^358^
+"TEMP","DATAO",50.67,2190)
+3130913
+"TEMP","DATAO",50.67,2191)
+129489^3130913.050332^7^358^
+"TEMP","DATAO",50.67,2192)
+3130913
+"TEMP","DATAO",50.67,2193)
+129488^3130913.050332^7^358^
+"TEMP","DATAO",50.67,2194)
+3130913
+"TEMP","DATAO",50.67,2195)
+129487^3130913.050333^7^358^
+"TEMP","DATAO",50.67,2196)
+3130913
+"TEMP","DATAO",50.67,2197)
+129486^3130913.050333^7^358^
+"TEMP","DATAO",50.67,2198)
+3130913
+"TEMP","DATAO",50.67,2199)
+129270^3130913.050334^7^358^
+"TEMP","DATAO",50.67,2200)
+3130913
+"TEMP","DATAO",50.67,2201)
+155379^3130913.050334^7^358^
+"TEMP","DATAO",50.67,2202)
+3130913
+"TEMP","DATAO",50.67,2203)
+155378^3130913.050335^7^358^
+"TEMP","DATAO",50.67,2204)
+3130913
+"TEMP","DATAO",50.67,2205)
+155162^3130913.050335^7^358^
+"TEMP","DATAO",50.67,2206)
+3130913
+"TEMP","DATAO",50.67,2207)
+155189^3130913.050336^7^358^
+"TEMP","DATAO",50.67,2208)
+3130913
+"TEMP","DATAO",50.67,2209)
+155188^3130913.050336^7^358^
+"TEMP","DATAO",50.67,2210)
+3130913
+"TEMP","DATAO",50.67,2211)
+118550^3130913.050336^7^358^
+"TEMP","DATAO",50.67,2212)
+3130913
+"TEMP","DATAO",50.67,2213)
+118549^3130913.050337^7^358^
+"TEMP","DATAO",50.67,2214)
+3130913
+"TEMP","DATAO",50.67,2215)
+118548^3130913.050337^7^358^
+"TEMP","DATAO",50.67,2216)
+3130913
+"TEMP","DATAO",50.67,2217)
+118547^3130913.050338^7^358^
+"TEMP","DATAO",50.67,2218)
+3130913
+"TEMP","DATAO",50.67,2219)
+118546^3130913.050338^7^358^
+"TEMP","DATAO",50.67,2220)
+3130913
+"TEMP","DATAO",50.67,2221)
+118545^3130913.050339^7^358^
+"TEMP","DATAO",50.67,2222)
+3130913
+"TEMP","DATAO",50.67,2223)
+118544^3130913.050339^7^358^
+"TEMP","DATAO",50.67,2224)
+3130913
+"TEMP","DATAO",50.67,2225)
+118543^3130913.050339^7^358^
+"TEMP","DATAO",50.67,2226)
+3130913
+"TEMP","DATAO",50.67,2227)
+118259^3130913.05034^7^358^
+"TEMP","DATAO",50.67,2228)
+3130913
+"TEMP","DATAO",50.67,2229)
+162566^3130913.05034^7^358^
+"TEMP","DATAO",50.67,2230)
+3130913
+"TEMP","DATAO",50.67,2231)
+162565^3130913.050341^7^358^
+"TEMP","DATAO",50.67,2232)
+3130913
+"TEMP","DATAO",50.67,2233)
+162564^3130913.050341^7^358^
+"TEMP","DATAO",50.67,2234)
+3130913
+"TEMP","DATAO",50.67,2235)
+162563^3130913.050341^7^358^
+"TEMP","DATAO",50.67,2236)
+3130913
+"TEMP","DATAO",50.67,2237)
+162562^3130913.050342^7^358^
+"TEMP","DATAO",50.67,2238)
+3130913
+"TEMP","DATAO",50.67,2239)
+162273^3130913.050342^7^358^
+"TEMP","DATAO",50.67,2240)
+3130913
+"TEMP","DATAO",50.67,2241)
+162272^3130913.050343^7^358^
+"TEMP","DATAO",50.67,2242)
+3130913
+"TEMP","DATAO",50.67,2243)
+162271^3130913.050343^7^358^
+"TEMP","DATAO",50.67,2244)
+3130913
+"TEMP","DATAO",50.67,2245)
+162270^3130913.050344^7^358^
+"TEMP","DATAO",50.67,2246)
+3130913
+"TEMP","DATAO",50.67,2247)
+138977^3130913.050344^7^358^
+"TEMP","DATAO",50.67,2248)
+3130913
+"TEMP","DATAO",50.67,2249)
+138976^3130913.050344^7^358^
+"TEMP","DATAO",50.67,2250)
+3130913
+"TEMP","DATAO",50.67,2251)
+138765^3130913.050345^7^358^
+"TEMP","DATAO",50.67,2252)
+3130913
+"TEMP","DATAO",50.67,2253)
+138764^3130913.050345^7^358^
+"TEMP","DATAO",50.67,2254)
+3130913
+"TEMP","DATAO",50.67,2255)
+128892^3130913.050346^7^358^
+"TEMP","DATAO",50.67,2256)
+3130913
+"TEMP","DATAO",50.67,2257)
+128891^3130913.050346^7^358^
+"TEMP","DATAO",50.67,2258)
+3130913
+"TEMP","DATAO",50.67,2259)
+124624^3130913.050347^7^358^
+"TEMP","DATAO",50.67,2260)
+3130913
+"TEMP","DATAO",50.67,2261)
+190296^3130913.050347^7^358^
+"TEMP","DATAO",50.67,2262)
+3130913
+"TEMP","DATAO",50.67,2263)
+190295^3130913.050348^7^358^
+"TEMP","DATAO",50.67,2264)
+3130913
+"TEMP","DATAO",50.67,2265)
+189680^3130913.050348^7^358^
+"TEMP","DATAO",50.67,2266)
+3130913
+"TEMP","DATAO",50.67,2267)
+189679^3130913.050349^7^358^
+"TEMP","DATAO",50.67,2268)
+3130913
+"TEMP","DATAO",50.67,2269)
+189678^3130913.050349^7^358^
+"TEMP","DATAO",50.67,2270)
+3130913
+"TEMP","DATAO",50.67,2271)
+189677^3130913.050349^7^358^
+"TEMP","DATAO",50.67,2272)
+3130913
+"TEMP","DATAO",50.67,2273)
+189676^3130913.05035^7^358^
+"TEMP","DATAO",50.67,2274)
+3130913
+"TEMP","DATAO",50.67,2275)
+189675^3130913.05035^7^358^
+"TEMP","DATAO",50.67,2276)
+3130913
+"TEMP","DATAO",50.67,2277)
+188773^3130913.050351^7^358^
+"TEMP","DATAO",50.67,2278)
+3130913
+"TEMP","DATAO",50.67,2279)
+129226^3130913.050351^7^358^
+"TEMP","DATAO",50.67,2280)
+3130913
+"TEMP","DATAO",50.67,2281)
+129163^3130913.050352^7^358^
+"TEMP","DATAO",50.67,2282)
+3130913
+"TEMP","DATAO",50.67,2283)
+129162^3130913.050352^7^358^
+"TEMP","DATAO",50.67,2284)
+3130913
+"TEMP","DATAO",50.67,2285)
+128966^3130913.050352^7^358^
+"TEMP","DATAO",50.67,2286)
+3130913
+"TEMP","DATAO",50.67,2287)
+184515^3130913.050353^7^358^
+"TEMP","DATAO",50.67,2288)
+3130913
+"TEMP","DATAO",50.67,2289)
+149771^3130913.050354^7^358^
+"TEMP","DATAO",50.67,2290)
+3130913
+"TEMP","DATAO",50.67,2291)
+149770^3130913.050354^7^358^
+"TEMP","DATAO",50.67,2292)
+3130913
+"TEMP","DATAO",50.67,2293)
+149769^3130913.050355^7^358^
+"TEMP","DATAO",50.67,2294)
+3130913
+"TEMP","DATAO",50.67,2295)
+185284^3130913.050355^7^358^
+"TEMP","DATAO",50.67,2296)
+3130913
+"TEMP","DATAO",50.67,2297)
+185275^3130913.050356^7^358^
+"TEMP","DATAO",50.67,2298)
+3130913
+"TEMP","DATAO",50.67,2299)
+185274^3130913.050356^7^358^
+"TEMP","DATAO",50.67,2300)
+3130913
+"TEMP","DATAO",50.67,2301)
+110256^3130913.050357^7^358^
+"TEMP","DATAO",50.67,2302)
+3130913
+"TEMP","DATAO",50.67,2303)
+133507^3130913.050358^7^358^
+"TEMP","DATAO",50.67,2304)
+3130913
+"TEMP","DATAO",50.67,2305)
+133506^3130913.050358^7^358^
+"TEMP","DATAO",50.67,2306)
+3130913
+"TEMP","DATAO",50.67,2307)
+118258^3130913.050359^7^358^
+"TEMP","DATAO",50.67,2308)
+3130913
+"TEMP","DATAO",50.67,2309)
+118257^3130913.050359^7^358^
+"TEMP","DATAO",50.67,2310)
+3130913
+"TEMP","DATAO",50.67,2311)
+118256^3130913.050359^7^358^
+"TEMP","DATAO",50.67,2312)
+3130913
+"TEMP","DATAO",50.67,2313)
+116120^3130913.0504^7^358^
+"TEMP","DATAO",50.67,2314)
+3130913
+"TEMP","DATAO",50.67,2315)
+121805^3130913.0504^7^358^
+"TEMP","DATAO",50.67,2316)
+3130913
+"TEMP","DATAO",50.67,2317)
+121804^3130913.050401^7^358^
+"TEMP","DATAO",50.67,2318)
+3130913
+"TEMP","DATAO",50.67,2319)
+173015^3130913.050401^7^358^
+"TEMP","DATAO",50.67,2320)
+3130913
+"TEMP","DATAO",50.67,2321)
+173014^3130913.050402^7^358^
+"TEMP","DATAO",50.67,2322)
+3130913
+"TEMP","DATAO",50.67,2323)
+172793^3130913.050402^7^358^
+"TEMP","DATAO",50.67,2324)
+3130913
+"TEMP","DATAO",50.67,2325)
+172189^3130913.050403^7^358^
+"TEMP","DATAO",50.67,2326)
+3130913
+"TEMP","DATAO",50.67,2327)
+172188^3130913.050403^7^358^
+"TEMP","DATAO",50.67,2328)
+3130913
+"TEMP","DATAO",50.67,2329)
+172187^3130913.050404^7^358^
+"TEMP","DATAO",50.67,2330)
+3130913
+"TEMP","DATAO",50.67,2331)
+172186^3130913.050404^7^358^
+"TEMP","DATAO",50.67,2332)
+3130913
+"TEMP","DATAO",50.67,2333)
+172185^3130913.050405^7^358^
+"TEMP","DATAO",50.67,2334)
+3130913
+"TEMP","DATAO",50.67,2335)
+172184^3130913.050405^7^358^
+"TEMP","DATAO",50.67,2336)
+3130913
+"TEMP","DATAO",50.67,2337)
+172183^3130913.050405^7^358^
+"TEMP","DATAO",50.67,2338)
+3130913
+"TEMP","DATAO",50.67,2339)
+181541^3130913.050406^7^358^
+"TEMP","DATAO",50.67,2340)
+3130913
+"TEMP","DATAO",50.67,2341)
+181540^3130913.050406^7^358^
+"TEMP","DATAO",50.67,2342)
+3130913
+"TEMP","DATAO",50.67,2343)
+160960^3130913.050407^7^358^
+"TEMP","DATAO",50.67,2344)
+3130913
+"TEMP","DATAO",50.67,2345)
+160807^3130913.050407^7^358^
+"TEMP","DATAO",50.67,2346)
+3130913
+"TEMP","DATAO",50.67,2347)
+160806^3130913.050408^7^358^
+"TEMP","DATAO",50.67,2348)
+3130913
+"TEMP","DATAO",50.67,2349)
+160805^3130913.050408^7^358^
+"TEMP","DATAO",50.67,2350)
+3130913
+"TEMP","DATAO",50.67,2351)
+160804^3130913.050409^7^358^
+"TEMP","DATAO",50.67,2352)
+3130913
+"TEMP","DATAO",50.67,2353)
+150220^3130913.050409^7^358^
+"TEMP","DATAO",50.67,2354)
+3130913
+"TEMP","DATAO",50.67,2355)
+148223^3130913.050409^7^358^
+"TEMP","DATAO",50.67,2356)
+3130913
+"TEMP","DATAO",50.67,2357)
+149075^3130913.05041^7^358^
+"TEMP","DATAO",50.67,2358)
+3130913
+"TEMP","DATAO",50.67,2359)
+148105^3130913.05041^7^358^
+"TEMP","DATAO",50.67,2360)
+3130913
+"TEMP","DATAO",50.67,2361)
+148104^3130913.050411^7^358^
+"TEMP","DATAO",50.67,2362)
+3130913
+"TEMP","DATAO",50.67,2363)
+148103^3130913.050411^7^358^
+"TEMP","DATAO",50.67,2364)
+3130913
+"TEMP","DATAO",50.67,2365)
+190580^3130913.050412^7^358^
+"TEMP","DATAO",50.67,2366)
+3130913
+"TEMP","DATAO",50.67,2367)
+182516^3130913.050412^7^358^
+"TEMP","DATAO",50.67,2368)
+3130913
+"TEMP","DATAO",50.67,2369)
+182515^3130913.050412^7^358^
+"TEMP","DATAO",50.67,2370)
+3130913
+"TEMP","DATAO",50.67,2371)
+151850^3130913.050413^7^358^
+"TEMP","DATAO",50.67,2372)
+3130913
+"TEMP","DATAO",50.67,2373)
+134021^3130913.050413^7^358^
+"TEMP","DATAO",50.67,2374)
+3130913
+"TEMP","DATAO",50.67,2375)
+169223^3130913.050414^7^358^
+"TEMP","DATAO",50.67,2376)
+3130913
+"TEMP","DATAO",50.67,2377)
+169222^3130913.050414^7^358^
+"TEMP","DATAO",50.67,2378)
+3130913
+"TEMP","DATAO",50.67,2379)
+169221^3130913.050415^7^358^
+"TEMP","DATAO",50.67,2380)
+3130913
+"TEMP","DATAO",50.67,2381)
+169059^3130913.050415^7^358^
+"TEMP","DATAO",50.67,2382)
+3130913
+"TEMP","DATAO",50.67,2383)
+169058^3130913.050416^7^358^
+"TEMP","DATAO",50.67,2384)
+3130913
+"TEMP","DATAO",50.67,2385)
+169057^3130913.050416^7^358^
+"TEMP","DATAO",50.67,2386)
+3130913
+"TEMP","DATAO",50.67,2387)
+169056^3130913.050417^7^358^
+"TEMP","DATAO",50.67,2388)
+3130913
+"TEMP","DATAO",50.67,2389)
+169055^3130913.050417^7^358^
+"TEMP","DATAO",50.67,2390)
+3130913
+"TEMP","DATAO",50.67,2391)
+169054^3130913.050417^7^358^
+"TEMP","DATAO",50.67,2392)
+3130913
+"TEMP","DATAO",50.67,2393)
+168691^3130913.050418^7^358^
+"TEMP","DATAO",50.67,2394)
+3130913
+"TEMP","DATAO",50.67,2395)
+133428^3130913.050418^7^358^
+"TEMP","DATAO",50.67,2396)
+3130913
+"TEMP","DATAO",50.67,2397)
+157778^3130913.050419^7^358^
+"TEMP","DATAO",50.67,2398)
+3130913
+"TEMP","DATAO",50.67,2399)
+157777^3130913.050419^7^358^
+"TEMP","DATAO",50.67,2400)
+3130913
+"TEMP","DATAO",50.67,2401)
+111986^3130913.05042^7^358^
+"TEMP","DATAO",50.67,2402)
+3130913
+"TEMP","DATAO",50.67,2403)
+168570^3130913.05042^7^358^
+"TEMP","DATAO",50.67,2404)
+3130913
+"TEMP","DATAO",50.67,2405)
+168569^3130913.050421^7^358^
+"TEMP","DATAO",50.67,2406)
+3130913
+"TEMP","DATAO",50.67,2407)
+168392^3130913.050421^7^358^
+"TEMP","DATAO",50.67,2408)
+3130913
+"TEMP","DATAO",50.67,2409)
+168391^3130913.050422^7^358^
+"TEMP","DATAO",50.67,2410)
+3130913
+"TEMP","DATAO",50.67,2411)
+168390^3130913.050422^7^358^
+"TEMP","DATAO",50.67,2412)
+3130913
+"TEMP","DATAO",50.67,2413)
+168389^3130913.050423^7^358^
+"TEMP","DATAO",50.67,2414)
+3130913
+"TEMP","DATAO",50.67,2415)
+167913^3130913.050423^7^358^
+"TEMP","DATAO",50.67,2416)
+3130913
+"TEMP","DATAO",50.67,2417)
+167740^3130913.050424^7^358^
+"TEMP","DATAO",50.67,2418)
+3130913
+"TEMP","DATAO",50.67,2419)
+167739^3130913.050424^7^358^
+"TEMP","DATAO",50.67,2420)
+3130913
+"TEMP","DATAO",50.67,2421)
+167738^3130913.050424^7^358^
+"TEMP","DATAO",50.67,2422)
+3130913
+"TEMP","DATAO",50.67,2423)
+167680^3130913.050425^7^358^
+"TEMP","DATAO",50.67,2424)
+3130913
+"TEMP","DATAO",50.67,2425)
+172182^3130913.050425^7^358^
+"TEMP","DATAO",50.67,2426)
+3130913
+"TEMP","DATAO",50.67,2427)
+172181^3130913.050426^7^358^
+"TEMP","DATAO",50.67,2428)
+3130913
+"TEMP","DATAO",50.67,2429)
+172180^3130913.050426^7^358^
+"TEMP","DATAO",50.67,2430)
+3130913
+"TEMP","DATAO",50.67,2431)
+166400^3130913.050427^7^358^
+"TEMP","DATAO",50.67,2432)
+3130913
+"TEMP","DATAO",50.67,2433)
+165386^3130913.050427^7^358^
+"TEMP","DATAO",50.67,2434)
+3130913
+"TEMP","DATAO",50.67,2435)
+165385^3130913.050428^7^358^
+"TEMP","DATAO",50.67,2436)
+3130913
+"TEMP","DATAO",50.67,2437)
+165225^3130913.050428^7^358^
+"TEMP","DATAO",50.67,2438)
+3130913
+"TEMP","DATAO",50.67,2439)
+165185^3130913.050429^7^358^
+"TEMP","DATAO",50.67,2440)
+3130913
+"TEMP","DATAO",50.67,2441)
+165184^3130913.050429^7^358^
+"TEMP","DATAO",50.67,2442)
+3130913
+"TEMP","DATAO",50.67,2443)
+165343^3130913.050429^7^358^
+"TEMP","DATAO",50.67,2444)
+3130913
+"TEMP","DATAO",50.67,2445)
+165342^3130913.05043^7^358^
+"TEMP","DATAO",50.67,2446)
+3130913
+"TEMP","DATAO",50.67,2447)
+164451^3130913.05043^7^358^
+"TEMP","DATAO",50.67,2448)
+3130913
+"TEMP","DATAO",50.67,2449)
+164450^3130913.050431^7^358^
+"TEMP","DATAO",50.67,2450)
+3130913
+"TEMP","DATAO",50.67,2451)
+164449^3130913.050431^7^358^
+"TEMP","DATAO",50.67,2452)
+3130913
+"TEMP","DATAO",50.67,2453)
+148102^3130913.050432^7^358^
+"TEMP","DATAO",50.67,2454)
+3130913
+"TEMP","DATAO",50.67,2455)
+148101^3130913.050432^7^358^
+"TEMP","DATAO",50.67,2456)
+3130913
+"TEMP","DATAO",50.67,2457)
+148100^3130913.050433^7^358^
+"TEMP","DATAO",50.67,2458)
+3130913
+"TEMP","DATAO",50.67,2459)
+148099^3130913.050433^7^358^
+"TEMP","DATAO",50.67,2460)
+3130913
+"TEMP","DATAO",50.67,2461)
+148494^3130913.050433^7^358^
+"TEMP","DATAO",50.67,2462)
+3130913
+"TEMP","DATAO",50.67,2463)
+148493^3130913.050434^7^358^
+"TEMP","DATAO",50.67,2464)
+3130913
+"TEMP","DATAO",50.67,2465)
+148492^3130913.050434^7^358^
+"TEMP","DATAO",50.67,2466)
+3130913
+"TEMP","DATAO",50.67,2467)
+179015^3130913.050435^7^358^
+"TEMP","DATAO",50.67,2468)
+3130913
+"TEMP","DATAO",50.67,2469)
+178940^3130913.050435^7^358^
+"TEMP","DATAO",50.67,2470)
+3130913
+"TEMP","DATAO",50.67,2471)
+178939^3130913.050436^7^358^
+"TEMP","DATAO",50.67,2472)
+3130913
+"TEMP","DATAO",50.67,2473)
+178896^3130913.050436^7^358^
+"TEMP","DATAO",50.67,2474)
+3130913
+"TEMP","DATAO",50.67,2475)
+178736^3130913.050436^7^358^
+"TEMP","DATAO",50.67,2476)
+3130913
+"TEMP","DATAO",50.67,2477)
+178735^3130913.050437^7^358^
+"TEMP","DATAO",50.67,2478)
+3130913
+"TEMP","DATAO",50.67,2479)
+178734^3130913.050437^7^358^
+"TEMP","DATAO",50.67,2480)
+3130913
+"TEMP","DATAO",50.67,2481)
+178733^3130913.050438^7^358^
+"TEMP","DATAO",50.67,2482)
+3130913
+"TEMP","DATAO",50.67,2483)
+176936^3130913.050438^7^358^
+"TEMP","DATAO",50.67,2484)
+3130913
+"TEMP","DATAO",50.67,2485)
+168575^3130913.050439^7^358^
+"TEMP","DATAO",50.67,2486)
+3130913
+"TEMP","DATAO",50.67,2487)
+168574^3130913.050439^7^358^
+"TEMP","DATAO",50.67,2488)
+3130913
+"TEMP","DATAO",50.67,2489)
+168573^3130913.050439^7^358^
+"TEMP","DATAO",50.67,2490)
+3130913
+"TEMP","DATAO",50.67,2491)
+168572^3130913.05044^7^358^
+"TEMP","DATAO",50.67,2492)
+3130913
+"TEMP","DATAO",50.67,2493)
+168571^3130913.05044^7^358^
+"TEMP","DATAO",50.67,2494)
+3130913
+"TEMP","DATAO",50.67,2495)
+162695^3130913.050441^7^358^
+"TEMP","DATAO",50.67,2496)
+3130913
+"TEMP","DATAO",50.67,2497)
+181539^3130913.050442^7^358^
+"TEMP","DATAO",50.67,2498)
+3130913
+"TEMP","DATAO",50.67,2499)
+181538^3130913.050442^7^358^
+"TEMP","DATAO",50.67,2500)
+3130913
+"TEMP","DATAO",50.67,2501)
+161202^3130913.050442^7^358^
+"TEMP","DATAO",50.67,2502)
+3130913
+"TEMP","DATAO",50.67,2503)
+161150^3130913.050443^7^358^
+"TEMP","DATAO",50.67,2504)
+3130913
+"TEMP","DATAO",50.67,2505)
+161077^3130913.050443^7^358^
+"TEMP","DATAO",50.67,2506)
+3130913
+"TEMP","DATAO",50.67,2507)
+160967^3130913.050444^7^358^
+"TEMP","DATAO",50.67,2508)
+3130913
+"TEMP","DATAO",50.67,2509)
+166405^3130913.050444^7^358^
+"TEMP","DATAO",50.67,2510)
+3130913
+"TEMP","DATAO",50.67,2511)
+166404^3130913.050445^7^358^
+"TEMP","DATAO",50.67,2512)
+3130913
+"TEMP","DATAO",50.67,2513)
+166403^3130913.050445^7^358^
+"TEMP","DATAO",50.67,2514)
+3130913
+"TEMP","DATAO",50.67,2515)
+166402^3130913.050446^7^358^
+"TEMP","DATAO",50.67,2516)
+3130913
+"TEMP","DATAO",50.67,2517)
+166401^3130913.050446^7^358^
+"TEMP","DATAO",50.67,2518)
+3130913
+"TEMP","DATAO",50.67,2519)
+164448^3130913.050446^7^358^
+"TEMP","DATAO",50.67,2520)
+3130913
+"TEMP","DATAO",50.67,2521)
+164447^3130913.050447^7^358^
+"TEMP","DATAO",50.67,2522)
+3130913
+"TEMP","DATAO",50.67,2523)
+163812^3130913.050447^7^358^
+"TEMP","DATAO",50.67,2524)
+3130913
+"TEMP","DATAO",50.67,2525)
+163811^3130913.050448^7^358^
+"TEMP","DATAO",50.67,2526)
+3130913
+"TEMP","DATAO",50.67,2527)
+163810^3130913.050448^7^358^
+"TEMP","DATAO",50.67,2528)
+3130913
+"TEMP","DATAO",50.67,2529)
+163809^3130913.050449^7^358^
+"TEMP","DATAO",50.67,2530)
+3130913
+"TEMP","DATAO",50.67,2531)
+176935^3130913.050449^7^358^
+"TEMP","DATAO",50.67,2532)
+3130913
+"TEMP","DATAO",50.67,2533)
+176833^3130913.050449^7^358^
+"TEMP","DATAO",50.67,2534)
+3130913
+"TEMP","DATAO",50.67,2535)
+176743^3130913.05045^7^358^
+"TEMP","DATAO",50.67,2536)
+3130913
+"TEMP","DATAO",50.67,2537)
+176742^3130913.05045^7^358^
+"TEMP","DATAO",50.67,2538)
+3130913
+"TEMP","DATAO",50.67,2539)
+183274^3130913.050451^7^358^
+"TEMP","DATAO",50.67,2540)
+3130913
+"TEMP","DATAO",50.67,2541)
+183258^3130913.050451^7^358^
+"TEMP","DATAO",50.67,2542)
+3130913
+"TEMP","DATAO",50.67,2543)
+183257^3130913.050452^7^358^
+"TEMP","DATAO",50.67,2544)
+3130913
+"TEMP","DATAO",50.67,2545)
+169969^3130913.050452^7^358^
+"TEMP","DATAO",50.67,2546)
+3130913
+"TEMP","DATAO",50.67,2547)
+169749^3130913.050453^7^358^
+"TEMP","DATAO",50.67,2548)
+3130913
+"TEMP","DATAO",50.67,2549)
+169748^3130913.050453^7^358^
+"TEMP","DATAO",50.67,2550)
+3130913
+"TEMP","DATAO",50.67,2551)
+169747^3130913.050453^7^358^
+"TEMP","DATAO",50.67,2552)
+3130913
+"TEMP","DATAO",50.67,2553)
+169053^3130913.050454^7^358^
+"TEMP","DATAO",50.67,2554)
+3130913
+"TEMP","DATAO",50.67,2555)
+169052^3130913.050454^7^358^
+"TEMP","DATAO",50.67,2556)
+3130913
+"TEMP","DATAO",50.67,2557)
+169051^3130913.050455^7^358^
+"TEMP","DATAO",50.67,2558)
+3130913
+"TEMP","DATAO",50.67,2559)
+168927^3130913.050455^7^358^
+"TEMP","DATAO",50.67,2560)
+3130913
+"TEMP","DATAO",50.67,2561)
+168926^3130913.050456^7^358^
+"TEMP","DATAO",50.67,2562)
+3130913
+"TEMP","DATAO",50.67,2563)
+160966^3130913.050456^7^358^
+"TEMP","DATAO",50.67,2564)
+3130913
+"TEMP","DATAO",50.67,2565)
+160965^3130913.050456^7^358^
+"TEMP","DATAO",50.67,2566)
+3130913
+"TEMP","DATAO",50.67,2567)
+160964^3130913.050457^7^358^
+"TEMP","DATAO",50.67,2568)
+3130913
+"TEMP","DATAO",50.67,2569)
+160963^3130913.050457^7^358^
+"TEMP","DATAO",50.67,2570)
+3130913
+"TEMP","DATAO",50.67,2571)
+160962^3130913.050458^7^358^
+"TEMP","DATAO",50.67,2572)
+3130913
+"TEMP","DATAO",50.67,2573)
+160961^3130913.050458^7^358^
+"TEMP","DATAO",50.67,2574)
+3130913
+"TEMP","DATAO",50.67,2575)
+128890^3130913.050459^7^358^
+"TEMP","DATAO",50.67,2576)
+3130913
+"TEMP","DATAO",50.67,2577)
+131864^3130913.050459^7^358^
+"TEMP","DATAO",50.67,2578)
+3130913
+"TEMP","DATAO",50.67,2579)
+128541^3130913.050459^7^358^
+"TEMP","DATAO",50.67,2580)
+3130913
+"TEMP","DATAO",50.67,2581)
+128540^3130913.0505^7^358^
+"TEMP","DATAO",50.67,2582)
+3130913
+"TEMP","DATAO",50.67,2583)
+128539^3130913.050501^7^358^
+"TEMP","DATAO",50.67,2584)
+3130913
+"TEMP","DATAO",50.67,2585)
+128538^3130913.050501^7^358^
+"TEMP","DATAO",50.67,2586)
+3130913
+"TEMP","DATAO",50.67,2587)
+128070^3130913.050501^7^358^
+"TEMP","DATAO",50.67,2588)
+3130913
+"TEMP","DATAO",50.67,2589)
+128069^3130913.050502^7^358^
+"TEMP","DATAO",50.67,2590)
+3130913
+"TEMP","DATAO",50.67,2591)
+128068^3130913.050502^7^358^
+"TEMP","DATAO",50.67,2592)
+3130913
+"TEMP","DATAO",50.67,2593)
+126951^3130913.050503^7^358^
+"TEMP","DATAO",50.67,2594)
+3130913
+"TEMP","DATAO",50.67,2595)
+123736^3130913.050505^7^358^
+"TEMP","DATAO",50.67,2596)
+3130913
+"TEMP","DATAO",50.67,2597)
+123735^3130913.050505^7^358^
+"TEMP","DATAO",50.67,2598)
+3130913
+"TEMP","DATAO",50.67,2599)
+122146^3130913.050506^7^358^
+"TEMP","DATAO",50.67,2600)
+3130913
+"TEMP","DATAO",50.67,2601)
+122145^3130913.050506^7^358^
+"TEMP","DATAO",50.67,2602)
+3130913
+"TEMP","DATAO",50.67,2603)
+121810^3130913.050507^7^358^
+"TEMP","DATAO",50.67,2604)
+3130913
+"TEMP","DATAO",50.67,2605)
+155187^3130913.050507^7^358^
+"TEMP","DATAO",50.67,2606)
+3130913
+"TEMP","DATAO",50.67,2607)
+121803^3130913.050508^7^358^
+"TEMP","DATAO",50.67,2608)
+3130913
+"TEMP","DATAO",50.67,2609)
+121802^3130913.050508^7^358^
+"TEMP","DATAO",50.67,2610)
+3130913
+"TEMP","DATAO",50.67,2611)
+121610^3130913.050508^7^358^
+"TEMP","DATAO",50.67,2612)
+3130913
+"TEMP","DATAO",50.67,2613)
+121609^3130913.050509^7^358^
+"TEMP","DATAO",50.67,2614)
+3130913
+"TEMP","DATAO",50.67,2615)
+121608^3130913.050509^7^358^
+"TEMP","DATAO",50.67,2616)
+3130913
+"TEMP","DATAO",50.67,2617)
+120800^3130913.05051^7^358^
+"TEMP","DATAO",50.67,2618)
+3130913
+"TEMP","DATAO",50.67,2619)
+120799^3130913.05051^7^358^
+"TEMP","DATAO",50.67,2620)
+3130913
+"TEMP","DATAO",50.67,2621)
+120798^3130913.050511^7^358^
+"TEMP","DATAO",50.67,2622)
+3130913
+"TEMP","DATAO",50.67,2623)
+120797^3130913.050511^7^358^
+"TEMP","DATAO",50.67,2624)
+3130913
+"TEMP","DATAO",50.67,2625)
+120796^3130913.050511^7^358^
+"TEMP","DATAO",50.67,2626)
+3130913
+"TEMP","DATAO",50.67,2627)
+120620^3130913.050512^7^358^
+"TEMP","DATAO",50.67,2628)
+3130913
+"TEMP","DATAO",50.67,2629)
+110191^3130913.050512^7^358^
+"TEMP","DATAO",50.67,2630)
+3130913
+"TEMP","DATAO",50.67,2631)
+124006^3130913.050513^7^358^
+"TEMP","DATAO",50.67,2632)
+3130913
+"TEMP","DATAO",50.67,2633)
+114297^3130913.050513^7^358^
+"TEMP","DATAO",50.67,2634)
+3130913
+"TEMP","DATAO",50.67,2635)
+114377^3130913.050514^7^358^
+"TEMP","DATAO",50.67,2636)
+3130913
+"TEMP","DATAO",50.67,2637)
+114376^3130913.050514^7^358^
+"TEMP","DATAO",50.67,2638)
+3130913
+"TEMP","DATAO",50.67,2639)
+108974^3130913.050514^7^358^
+"TEMP","DATAO",50.67,2640)
+3130913
+"TEMP","DATAO",50.67,2641)
+126950^3130913.050515^7^358^
+"TEMP","DATAO",50.67,2642)
+3130913
+"TEMP","DATAO",50.67,2643)
+126949^3130913.050515^7^358^
+"TEMP","DATAO",50.67,2644)
+3130913
+"TEMP","DATAO",50.67,2645)
+126948^3130913.050516^7^358^
+"TEMP","DATAO",50.67,2646)
+3130913
+"TEMP","DATAO",50.67,2647)
+126947^3130913.050516^7^358^
+"TEMP","DATAO",50.67,2648)
+3130913
+"TEMP","DATAO",50.67,2649)
+125417^3130913.050517^7^358^
+"TEMP","DATAO",50.67,2650)
+3130913
+"TEMP","DATAO",50.67,2651)
+125416^3130913.050517^7^358^
+"TEMP","DATAO",50.67,2652)
+3130913
+"TEMP","DATAO",50.67,2653)
+119557^3130913.050518^7^358^
+"TEMP","DATAO",50.67,2654)
+3130913
+"TEMP","DATAO",50.67,2655)
+119556^3130913.050518^7^358^
+"TEMP","DATAO",50.67,2656)
+3130913
+"TEMP","DATAO",50.67,2657)
+119436^3130913.050518^7^358^
+"TEMP","DATAO",50.67,2658)
+3130913
+"TEMP","DATAO",50.67,2659)
+119334^3130913.050519^7^358^
+"TEMP","DATAO",50.67,2660)
+3130913
+"TEMP","DATAO",50.67,2661)
+111750^3130913.050519^7^358^
+"TEMP","DATAO",50.67,2662)
+3130913
+"TEMP","DATAO",50.67,2663)
+113075^3130913.05052^7^358^
+"TEMP","DATAO",50.67,2664)
+3130913
+"TEMP","DATAO",50.67,2665)
+113189^3130913.050521^7^358^
+"TEMP","DATAO",50.67,2666)
+3130913
+"TEMP","DATAO",50.67,2667)
+136569^3130913.050521^7^358^
+"TEMP","DATAO",50.67,2668)
+3130913
+"TEMP","DATAO",50.67,2669)
+121809^3130913.050521^7^358^
+"TEMP","DATAO",50.67,2670)
+3130913
+"TEMP","DATAO",50.67,2671)
+121808^3130913.050522^7^358^
+"TEMP","DATAO",50.67,2672)
+3130913
+"TEMP","DATAO",50.67,2673)
+121807^3130913.050522^7^358^
+"TEMP","DATAO",50.67,2674)
+3130913
+"TEMP","DATAO",50.67,2675)
+121806^3130913.050523^7^358^
+"TEMP","DATAO",50.67,2676)
+3130913
+"TEMP","DATAO",50.67,2677)
+135263^3130913.050523^7^358^
+"TEMP","DATAO",50.67,2678)
+3130913
+"TEMP","DATAO",50.67,2679)
+135152^3130913.050524^7^358^
+"TEMP","DATAO",50.67,2680)
+3130913
+"TEMP","DATAO",50.67,2681)
+116119^3130913.050524^7^358^
+"TEMP","DATAO",50.67,2682)
+3130913
+"TEMP","DATAO",50.67,2683)
+116118^3130913.050524^7^358^
+"TEMP","DATAO",50.67,2684)
+3130913
+"TEMP","DATAO",50.67,2685)
+144153^3130913.050525^7^358^
+"TEMP","DATAO",50.67,2686)
+3130913
+"TEMP","DATAO",50.67,2687)
+144152^3130913.050525^7^358^
+"TEMP","DATAO",50.67,2688)
+3130913
+"TEMP","DATAO",50.67,2689)
+144151^3130913.050526^7^358^
+"TEMP","DATAO",50.67,2690)
+3130913
+"TEMP","DATAO",50.67,2691)
+144150^3130913.050526^7^358^
+"TEMP","DATAO",50.67,2692)
+3130913
+"TEMP","DATAO",50.67,2693)
+144075^3130913.050527^7^358^
+"TEMP","DATAO",50.67,2694)
+3130913
+"TEMP","DATAO",50.67,2695)
+144074^3130913.050527^7^358^
+"TEMP","DATAO",50.67,2696)
+3130913
+"TEMP","DATAO",50.67,2697)
+143630^3130913.050528^7^358^
+"TEMP","DATAO",50.67,2698)
+3130913
+"TEMP","DATAO",50.67,2699)
+183568^3130913.050528^4^358^
+"TEMP","DATAO",50.67,2700)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,2701)
+183568^3130913.050528^7^358^
+"TEMP","DATAO",50.67,2702)
+3130913
+"TEMP","DATAO",50.67,2703)
+183567^3130913.050528^4^358^
+"TEMP","DATAO",50.67,2704)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,2705)
+183567^3130913.050528^7^358^
+"TEMP","DATAO",50.67,2706)
+3130913
+"TEMP","DATAO",50.67,2707)
+143401^3130913.050529^7^358^
+"TEMP","DATAO",50.67,2708)
+3130913
+"TEMP","DATAO",50.67,2709)
+136568^3130913.050529^7^358^
+"TEMP","DATAO",50.67,2710)
+3130913
+"TEMP","DATAO",50.67,2711)
+136567^3130913.05053^7^358^
+"TEMP","DATAO",50.67,2712)
+3130913
+"TEMP","DATAO",50.67,2713)
+136566^3130913.05053^7^358^
+"TEMP","DATAO",50.67,2714)
+3130913
+"TEMP","DATAO",50.67,2715)
+136229^3130913.050531^7^358^
+"TEMP","DATAO",50.67,2716)
+3130913
+"TEMP","DATAO",50.67,2717)
+136228^3130913.050531^7^358^
+"TEMP","DATAO",50.67,2718)
+3130913
+"TEMP","DATAO",50.67,2719)
+129381^3130913.050532^7^358^
+"TEMP","DATAO",50.67,2720)
+3130913
+"TEMP","DATAO",50.67,2721)
+155029^3130913.050532^7^358^
+"TEMP","DATAO",50.67,2722)
+3130913
+"TEMP","DATAO",50.67,2723)
+154728^3130913.050532^7^358^
+"TEMP","DATAO",50.67,2724)
+3130913
+"TEMP","DATAO",50.67,2725)
+154727^3130913.050533^7^358^
+"TEMP","DATAO",50.67,2726)
+3130913
+"TEMP","DATAO",50.67,2727)
+153123^3130913.050533^7^358^
+"TEMP","DATAO",50.67,2728)
+3130913
+"TEMP","DATAO",50.67,2729)
+153019^3130913.050534^7^358^
+"TEMP","DATAO",50.67,2730)
+3130913
+"TEMP","DATAO",50.67,2731)
+152953^3130913.050534^7^358^
+"TEMP","DATAO",50.67,2732)
+3130913
+"TEMP","DATAO",50.67,2733)
+152850^3130913.050535^7^358^
+"TEMP","DATAO",50.67,2734)
+3130913
+"TEMP","DATAO",50.67,2735)
+152419^3130913.050535^7^358^
+"TEMP","DATAO",50.67,2736)
+3130913
+"TEMP","DATAO",50.67,2737)
+152318^3130913.050536^7^358^
+"TEMP","DATAO",50.67,2738)
+3130913
+"TEMP","DATAO",50.67,2739)
+152317^3130913.050536^7^358^
+"TEMP","DATAO",50.67,2740)
+3130913
+"TEMP","DATAO",50.67,2741)
+151899^3130913.050537^7^358^
+"TEMP","DATAO",50.67,2742)
+3130913
+"TEMP","DATAO",50.67,2743)
+142883^3130913.050537^7^358^
+"TEMP","DATAO",50.67,2744)
+3130913
+"TEMP","DATAO",50.67,2745)
+142749^3130913.050538^7^358^
+"TEMP","DATAO",50.67,2746)
+3130913
+"TEMP","DATAO",50.67,2747)
+142748^3130913.050538^7^358^
+"TEMP","DATAO",50.67,2748)
+3130913
+"TEMP","DATAO",50.67,2749)
+142747^3130913.050539^7^358^
+"TEMP","DATAO",50.67,2750)
+3130913
+"TEMP","DATAO",50.67,2751)
+142746^3130913.050539^7^358^
+"TEMP","DATAO",50.67,2752)
+3130913
+"TEMP","DATAO",50.67,2753)
+140819^3130913.050539^7^358^
+"TEMP","DATAO",50.67,2754)
+3130913
+"TEMP","DATAO",50.67,2755)
+108951^3130913.05054^7^358^
+"TEMP","DATAO",50.67,2756)
+3130913
+"TEMP","DATAO",50.67,2757)
+108921^3130913.05054^7^358^
+"TEMP","DATAO",50.67,2758)
+3130913
+"TEMP","DATAO",50.67,2759)
+108920^3130913.050541^7^358^
+"TEMP","DATAO",50.67,2760)
+3130913
+"TEMP","DATAO",50.67,2761)
+108861^3130913.050541^7^358^
+"TEMP","DATAO",50.67,2762)
+3130913
+"TEMP","DATAO",50.67,2763)
+108860^3130913.050542^7^358^
+"TEMP","DATAO",50.67,2764)
+3130913
+"TEMP","DATAO",50.67,2765)
+108859^3130913.050542^7^358^
+"TEMP","DATAO",50.67,2766)
+3130913
+"TEMP","DATAO",50.67,2767)
+125286^3130913.050543^7^358^
+"TEMP","DATAO",50.67,2768)
+3130913
+"TEMP","DATAO",50.67,2769)
+124951^3130913.050543^7^358^
+"TEMP","DATAO",50.67,2770)
+3130913
+"TEMP","DATAO",50.67,2771)
+124950^3130913.050544^7^358^
+"TEMP","DATAO",50.67,2772)
+3130913
+"TEMP","DATAO",50.67,2773)
+124949^3130913.050544^7^358^
+"TEMP","DATAO",50.67,2774)
+3130913
+"TEMP","DATAO",50.67,2775)
+124948^3130913.050545^7^358^
+"TEMP","DATAO",50.67,2776)
+3130913
+"TEMP","DATAO",50.67,2777)
+125044^3130913.050545^7^358^
+"TEMP","DATAO",50.67,2778)
+3130913
+"TEMP","DATAO",50.67,2779)
+125043^3130913.050546^7^358^
+"TEMP","DATAO",50.67,2780)
+3130913
+"TEMP","DATAO",50.67,2781)
+125042^3130913.050546^7^358^
+"TEMP","DATAO",50.67,2782)
+3130913
+"TEMP","DATAO",50.67,2783)
+125041^3130913.050547^7^358^
+"TEMP","DATAO",50.67,2784)
+3130913
+"TEMP","DATAO",50.67,2785)
+125040^3130913.050547^7^358^
+"TEMP","DATAO",50.67,2786)
+3130913
+"TEMP","DATAO",50.67,2787)
+135151^3130913.050547^7^358^
+"TEMP","DATAO",50.67,2788)
+3130913
+"TEMP","DATAO",50.67,2789)
+135150^3130913.050548^7^358^
+"TEMP","DATAO",50.67,2790)
+3130913
+"TEMP","DATAO",50.67,2791)
+135149^3130913.050548^7^358^
+"TEMP","DATAO",50.67,2792)
+3130913
+"TEMP","DATAO",50.67,2793)
+135074^3130913.050549^7^358^
+"TEMP","DATAO",50.67,2794)
+3130913
+"TEMP","DATAO",50.67,2795)
+135073^3130913.050549^7^358^
+"TEMP","DATAO",50.67,2796)
+3130913
+"TEMP","DATAO",50.67,2797)
+135072^3130913.050549^7^358^
+"TEMP","DATAO",50.67,2798)
+3130913
+"TEMP","DATAO",50.67,2799)
+135071^3130913.05055^7^358^
+"TEMP","DATAO",50.67,2800)
+3130913
+"TEMP","DATAO",50.67,2801)
+134805^3130913.05055^7^358^
+"TEMP","DATAO",50.67,2802)
+3130913
+"TEMP","DATAO",50.67,2803)
+134804^3130913.050551^7^358^
+"TEMP","DATAO",50.67,2804)
+3130913
+"TEMP","DATAO",50.67,2805)
+134319^3130913.050551^7^358^
+"TEMP","DATAO",50.67,2806)
+3130913
+"TEMP","DATAO",50.67,2807)
+134318^3130913.050552^7^358^
+"TEMP","DATAO",50.67,2808)
+3130913
+"TEMP","DATAO",50.67,2809)
+134317^3130913.050552^7^358^
+"TEMP","DATAO",50.67,2810)
+3130913
+"TEMP","DATAO",50.67,2811)
+164957^3130913.050553^7^358^
+"TEMP","DATAO",50.67,2812)
+3130913
+"TEMP","DATAO",50.67,2813)
+149074^3130913.050553^7^358^
+"TEMP","DATAO",50.67,2814)
+3130913
+"TEMP","DATAO",50.67,2815)
+108005^3130913.050554^7^358^
+"TEMP","DATAO",50.67,2816)
+3130913
+"TEMP","DATAO",50.67,2817)
+108004^3130913.050554^7^358^
+"TEMP","DATAO",50.67,2818)
+3130913
+"TEMP","DATAO",50.67,2819)
+108003^3130913.050555^7^358^
+"TEMP","DATAO",50.67,2820)
+3130913
+"TEMP","DATAO",50.67,2821)
+117850^3130913.050555^7^358^
+"TEMP","DATAO",50.67,2822)
+3130913
+"TEMP","DATAO",50.67,2823)
+125039^3130913.050556^7^358^
+"TEMP","DATAO",50.67,2824)
+3130913
+"TEMP","DATAO",50.67,2825)
+125038^3130913.050556^7^358^
+"TEMP","DATAO",50.67,2826)
+3130913
+"TEMP","DATAO",50.67,2827)
+124873^3130913.050556^7^358^
+"TEMP","DATAO",50.67,2828)
+3130913
+"TEMP","DATAO",50.67,2829)
+129380^3130913.050557^7^358^
+"TEMP","DATAO",50.67,2830)
+3130913
+"TEMP","DATAO",50.67,2831)
+129379^3130913.050557^7^358^
+"TEMP","DATAO",50.67,2832)
+3130913
+"TEMP","DATAO",50.67,2833)
+129378^3130913.050558^7^358^
+"TEMP","DATAO",50.67,2834)
+3130913
+"TEMP","DATAO",50.67,2835)
+142197^3130913.050558^7^358^
+"TEMP","DATAO",50.67,2836)
+3130913
+"TEMP","DATAO",50.67,2837)
+151491^3130913.050559^7^358^
+"TEMP","DATAO",50.67,2838)
+3130913
+"TEMP","DATAO",50.67,2839)
+128585^3130913.050559^7^358^
+"TEMP","DATAO",50.67,2840)
+3130913
+"TEMP","DATAO",50.67,2841)
+181073^3130913.0506^7^358^
+"TEMP","DATAO",50.67,2842)
+3130913
+"TEMP","DATAO",50.67,2843)
+181039^3130913.050601^7^358^
+"TEMP","DATAO",50.67,2844)
+3130913
+"TEMP","DATAO",50.67,2845)
+181038^3130913.050601^7^358^
+"TEMP","DATAO",50.67,2846)
+3130913
+"TEMP","DATAO",50.67,2847)
+134069^3130913.050602^7^358^
+"TEMP","DATAO",50.67,2848)
+3130913
+"TEMP","DATAO",50.67,2849)
+134068^3130913.050602^7^358^
+"TEMP","DATAO",50.67,2850)
+3130913
+"TEMP","DATAO",50.67,2851)
+126946^3130913.050603^7^358^
+"TEMP","DATAO",50.67,2852)
+3130913
+"TEMP","DATAO",50.67,2853)
+126316^3130913.050603^7^358^
+"TEMP","DATAO",50.67,2854)
+3130913
+"TEMP","DATAO",50.67,2855)
+138462^3130913.050604^7^358^
+"TEMP","DATAO",50.67,2856)
+3130913
+"TEMP","DATAO",50.67,2857)
+137593^3130913.050605^7^358^
+"TEMP","DATAO",50.67,2858)
+3130913
+"TEMP","DATAO",50.67,2859)
+137563^3130913.050605^7^358^
+"TEMP","DATAO",50.67,2860)
+3130913
+"TEMP","DATAO",50.67,2861)
+137562^3130913.050606^7^358^
+"TEMP","DATAO",50.67,2862)
+3130913
+"TEMP","DATAO",50.67,2863)
+137561^3130913.050606^7^358^
+"TEMP","DATAO",50.67,2864)
+3130913
+"TEMP","DATAO",50.67,2865)
+136084^3130913.050607^7^358^
+"TEMP","DATAO",50.67,2866)
+3130913
+"TEMP","DATAO",50.67,2867)
+136083^3130913.050607^7^358^
+"TEMP","DATAO",50.67,2868)
+3130913
+"TEMP","DATAO",50.67,2869)
+136082^3130913.050607^7^358^
+"TEMP","DATAO",50.67,2870)
+3130913
+"TEMP","DATAO",50.67,2871)
+136081^3130913.050608^7^358^
+"TEMP","DATAO",50.67,2872)
+3130913
+"TEMP","DATAO",50.67,2873)
+136024^3130913.050608^7^358^
+"TEMP","DATAO",50.67,2874)
+3130913
+"TEMP","DATAO",50.67,2875)
+181037^3130913.050609^7^358^
+"TEMP","DATAO",50.67,2876)
+3130913
+"TEMP","DATAO",50.67,2877)
+158201^3130913.050609^7^358^
+"TEMP","DATAO",50.67,2878)
+3130913
+"TEMP","DATAO",50.67,2879)
+171819^3130913.05061^7^358^
+"TEMP","DATAO",50.67,2880)
+3130913
+"TEMP","DATAO",50.67,2881)
+184518^3130913.05061^7^358^
+"TEMP","DATAO",50.67,2882)
+3130913
+"TEMP","DATAO",50.67,2883)
+111985^3130913.05061^7^358^
+"TEMP","DATAO",50.67,2884)
+3130913
+"TEMP","DATAO",50.67,2885)
+109610^3130913.050611^7^358^
+"TEMP","DATAO",50.67,2886)
+3130913
+"TEMP","DATAO",50.67,2887)
+180596^3130913.050611^7^358^
+"TEMP","DATAO",50.67,2888)
+3130913
+"TEMP","DATAO",50.67,2889)
+180477^3130913.050612^7^358^
+"TEMP","DATAO",50.67,2890)
+3130913
+"TEMP","DATAO",50.67,2891)
+178627^3130913.050612^7^358^
+"TEMP","DATAO",50.67,2892)
+3130913
+"TEMP","DATAO",50.67,2893)
+178564^3130913.050613^7^358^
+"TEMP","DATAO",50.67,2894)
+3130913
+"TEMP","DATAO",50.67,2895)
+178494^3130913.050613^7^358^
+"TEMP","DATAO",50.67,2896)
+3130913
+"TEMP","DATAO",50.67,2897)
+178493^3130913.050614^7^358^
+"TEMP","DATAO",50.67,2898)
+3130913
+"TEMP","DATAO",50.67,2899)
+178492^3130913.050614^7^358^
+"TEMP","DATAO",50.67,2900)
+3130913
+"TEMP","DATAO",50.67,2901)
+178407^3130913.050615^7^358^
+"TEMP","DATAO",50.67,2902)
+3130913
+"TEMP","DATAO",50.67,2903)
+178297^3130913.050615^7^358^
+"TEMP","DATAO",50.67,2904)
+3130913
+"TEMP","DATAO",50.67,2905)
+175571^3130913.050616^7^358^
+"TEMP","DATAO",50.67,2906)
+3130913
+"TEMP","DATAO",50.67,2907)
+175570^3130913.050616^7^358^
+"TEMP","DATAO",50.67,2908)
+3130913
+"TEMP","DATAO",50.67,2909)
+175519^3130913.050617^7^358^
+"TEMP","DATAO",50.67,2910)
+3130913
+"TEMP","DATAO",50.67,2911)
+175518^3130913.050617^7^358^
+"TEMP","DATAO",50.67,2912)
+3130913
+"TEMP","DATAO",50.67,2913)
+175517^3130913.050618^7^358^
+"TEMP","DATAO",50.67,2914)
+3130913
+"TEMP","DATAO",50.67,2915)
+175170^3130913.050618^7^358^
+"TEMP","DATAO",50.67,2916)
+3130913
+"TEMP","DATAO",50.67,2917)
+175169^3130913.050619^7^358^
+"TEMP","DATAO",50.67,2918)
+3130913
+"TEMP","DATAO",50.67,2919)
+175168^3130913.050619^7^358^
+"TEMP","DATAO",50.67,2920)
+3130913
+"TEMP","DATAO",50.67,2921)
+175167^3130913.050619^7^358^
+"TEMP","DATAO",50.67,2922)
+3130913
+"TEMP","DATAO",50.67,2923)
+173431^3130913.05062^7^358^
+"TEMP","DATAO",50.67,2924)
+3130913
+"TEMP","DATAO",50.67,2925)
+173430^3130913.05062^7^358^
+"TEMP","DATAO",50.67,2926)
+3130913
+"TEMP","DATAO",50.67,2927)
+126118^3130913.050621^7^358^
+"TEMP","DATAO",50.67,2928)
+3130913
+"TEMP","DATAO",50.67,2929)
+112964^3130913.050621^7^358^
+"TEMP","DATAO",50.67,2930)
+3130913
+"TEMP","DATAO",50.67,2931)
+112963^3130913.050622^7^358^
+"TEMP","DATAO",50.67,2932)
+3130913
+"TEMP","DATAO",50.67,2933)
+112962^3130913.050622^7^358^
+"TEMP","DATAO",50.67,2934)
+3130913
+"TEMP","DATAO",50.67,2935)
+149775^3130913.050623^7^358^
+"TEMP","DATAO",50.67,2936)
+3130913
+"TEMP","DATAO",50.67,2937)
+149774^3130913.050623^7^358^
+"TEMP","DATAO",50.67,2938)
+3130913
+"TEMP","DATAO",50.67,2939)
+149773^3130913.050623^7^358^
+"TEMP","DATAO",50.67,2940)
+3130913
+"TEMP","DATAO",50.67,2941)
+149772^3130913.050624^7^358^
+"TEMP","DATAO",50.67,2942)
+3130913
+"TEMP","DATAO",50.67,2943)
+173389^3130913.050624^7^358^
+"TEMP","DATAO",50.67,2944)
+3130913
+"TEMP","DATAO",50.67,2945)
+136023^3130913.050625^7^358^
+"TEMP","DATAO",50.67,2946)
+3130913
+"TEMP","DATAO",50.67,2947)
+136022^3130913.050625^7^358^
+"TEMP","DATAO",50.67,2948)
+3130913
+"TEMP","DATAO",50.67,2949)
+136021^3130913.050626^7^358^
+"TEMP","DATAO",50.67,2950)
+3130913
+"TEMP","DATAO",50.67,2951)
+135565^3130913.050626^7^358^
+"TEMP","DATAO",50.67,2952)
+3130913
+"TEMP","DATAO",50.67,2953)
+144243^3130913.050626^7^358^
+"TEMP","DATAO",50.67,2954)
+3130913
+"TEMP","DATAO",50.67,2955)
+144154^3130913.050627^7^358^
+"TEMP","DATAO",50.67,2956)
+3130913
+"TEMP","DATAO",50.67,2957)
+177638^3130913.050627^7^358^
+"TEMP","DATAO",50.67,2958)
+3130913
+"TEMP","DATAO",50.67,2959)
+177572^3130913.050628^7^358^
+"TEMP","DATAO",50.67,2960)
+3130913
+"TEMP","DATAO",50.67,2961)
+177571^3130913.050628^7^358^
+"TEMP","DATAO",50.67,2962)
+3130913
+"TEMP","DATAO",50.67,2963)
+177570^3130913.050629^7^358^
+"TEMP","DATAO",50.67,2964)
+3130913
+"TEMP","DATAO",50.67,2965)
+163475^3130913.050629^7^358^
+"TEMP","DATAO",50.67,2966)
+3130913
+"TEMP","DATAO",50.67,2967)
+154244^3130913.05063^7^358^
+"TEMP","DATAO",50.67,2968)
+3130913
+"TEMP","DATAO",50.67,2969)
+154243^3130913.05063^7^358^
+"TEMP","DATAO",50.67,2970)
+3130913
+"TEMP","DATAO",50.67,2971)
+154242^3130913.050631^7^358^
+"TEMP","DATAO",50.67,2972)
+3130913
+"TEMP","DATAO",50.67,2973)
+154241^3130913.050631^7^358^
+"TEMP","DATAO",50.67,2974)
+3130913
+"TEMP","DATAO",50.67,2975)
+154240^3130913.050631^7^358^
+"TEMP","DATAO",50.67,2976)
+3130913
+"TEMP","DATAO",50.67,2977)
+178296^3130913.050632^7^358^
+"TEMP","DATAO",50.67,2978)
+3130913
+"TEMP","DATAO",50.67,2979)
+178279^3130913.050632^7^358^
+"TEMP","DATAO",50.67,2980)
+3130913
+"TEMP","DATAO",50.67,2981)
+178237^3130913.050633^7^358^
+"TEMP","DATAO",50.67,2982)
+3130913
+"TEMP","DATAO",50.67,2983)
+178236^3130913.050633^7^358^
+"TEMP","DATAO",50.67,2984)
+3130913
+"TEMP","DATAO",50.67,2985)
+178226^3130913.050634^7^358^
+"TEMP","DATAO",50.67,2986)
+3130913
+"TEMP","DATAO",50.67,2987)
+175605^3130913.050634^7^358^
+"TEMP","DATAO",50.67,2988)
+3130913
+"TEMP","DATAO",50.67,2989)
+175572^3130913.050635^7^358^
+"TEMP","DATAO",50.67,2990)
+3130913
+"TEMP","DATAO",50.67,2991)
+132338^3130913.050635^7^358^
+"TEMP","DATAO",50.67,2992)
+3130913
+"TEMP","DATAO",50.67,2993)
+132207^3130913.050635^7^358^
+"TEMP","DATAO",50.67,2994)
+3130913
+"TEMP","DATAO",50.67,2995)
+132206^3130913.050636^7^358^
+"TEMP","DATAO",50.67,2996)
+3130913
+"TEMP","DATAO",50.67,2997)
+131526^3130913.050636^7^358^
+"TEMP","DATAO",50.67,2998)
+3130913
+"TEMP","DATAO",50.67,2999)
+131525^3130913.050637^7^358^
+"TEMP","DATAO",50.67,3000)
+3130913
+"TEMP","DATAO",50.67,3001)
+131524^3130913.050637^7^358^
+"TEMP","DATAO",50.67,3002)
+3130913
+"TEMP","DATAO",50.67,3003)
+131523^3130913.050638^7^358^
+"TEMP","DATAO",50.67,3004)
+3130913
+"TEMP","DATAO",50.67,3005)
+131522^3130913.050638^7^358^
+"TEMP","DATAO",50.67,3006)
+3130913
+"TEMP","DATAO",50.67,3007)
+173364^3130913.050638^7^358^
+"TEMP","DATAO",50.67,3008)
+3130913
+"TEMP","DATAO",50.67,3009)
+173363^3130913.050639^7^358^
+"TEMP","DATAO",50.67,3010)
+3130913
+"TEMP","DATAO",50.67,3011)
+173362^3130913.050639^7^358^
+"TEMP","DATAO",50.67,3012)
+3130913
+"TEMP","DATAO",50.67,3013)
+173361^3130913.05064^7^358^
+"TEMP","DATAO",50.67,3014)
+3130913
+"TEMP","DATAO",50.67,3015)
+126315^3130913.05064^7^358^
+"TEMP","DATAO",50.67,3016)
+3130913
+"TEMP","DATAO",50.67,3017)
+126314^3130913.050641^7^358^
+"TEMP","DATAO",50.67,3018)
+3130913
+"TEMP","DATAO",50.67,3019)
+126189^3130913.050641^7^358^
+"TEMP","DATAO",50.67,3020)
+3130913
+"TEMP","DATAO",50.67,3021)
+126188^3130913.050641^7^358^
+"TEMP","DATAO",50.67,3022)
+3130913
+"TEMP","DATAO",50.67,3023)
+106900^3130913.050642^7^358^
+"TEMP","DATAO",50.67,3024)
+3130913
+"TEMP","DATAO",50.67,3025)
+125775^3130913.050642^7^358^
+"TEMP","DATAO",50.67,3026)
+3130913
+"TEMP","DATAO",50.67,3027)
+125774^3130913.050643^7^358^
+"TEMP","DATAO",50.67,3028)
+3130913
+"TEMP","DATAO",50.67,3029)
+106582^3130913.050643^7^358^
+"TEMP","DATAO",50.67,3030)
+3130913
+"TEMP","DATAO",50.67,3031)
+106898^3130913.050644^7^358^
+"TEMP","DATAO",50.67,3032)
+3130913
+"TEMP","DATAO",50.67,3033)
+125421^3130913.050644^7^358^
+"TEMP","DATAO",50.67,3034)
+3130913
+"TEMP","DATAO",50.67,3035)
+125420^3130913.050644^7^358^
+"TEMP","DATAO",50.67,3036)
+3130913
+"TEMP","DATAO",50.67,3037)
+157799^3130913.050645^7^358^
+"TEMP","DATAO",50.67,3038)
+3130913
+"TEMP","DATAO",50.67,3039)
+157691^3130913.050645^7^358^
+"TEMP","DATAO",50.67,3040)
+3130913
+"TEMP","DATAO",50.67,3041)
+141662^3130913.050646^7^358^
+"TEMP","DATAO",50.67,3042)
+3130913
+"TEMP","DATAO",50.67,3043)
+150960^3130913.050646^7^358^
+"TEMP","DATAO",50.67,3044)
+3130913
+"TEMP","DATAO",50.67,3045)
+150990^3130913.050647^7^358^
+"TEMP","DATAO",50.67,3046)
+3130913
+"TEMP","DATAO",50.67,3047)
+111991^3130913.050647^7^358^
+"TEMP","DATAO",50.67,3048)
+3130913
+"TEMP","DATAO",50.67,3049)
+154239^3130913.050648^7^358^
+"TEMP","DATAO",50.67,3050)
+3130913
+"TEMP","DATAO",50.67,3051)
+153966^3130913.050648^7^358^
+"TEMP","DATAO",50.67,3052)
+3130913
+"TEMP","DATAO",50.67,3053)
+153965^3130913.050648^7^358^
+"TEMP","DATAO",50.67,3054)
+3130913
+"TEMP","DATAO",50.67,3055)
+153964^3130913.050649^7^358^
+"TEMP","DATAO",50.67,3056)
+3130913
+"TEMP","DATAO",50.67,3057)
+153963^3130913.050649^7^358^
+"TEMP","DATAO",50.67,3058)
+3130913
+"TEMP","DATAO",50.67,3059)
+153962^3130913.05065^7^358^
+"TEMP","DATAO",50.67,3060)
+3130913
+"TEMP","DATAO",50.67,3061)
+131521^3130913.05065^7^358^
+"TEMP","DATAO",50.67,3062)
+3130913
+"TEMP","DATAO",50.67,3063)
+131520^3130913.05065^7^358^
+"TEMP","DATAO",50.67,3064)
+3130913
+"TEMP","DATAO",50.67,3065)
+131519^3130913.050651^7^358^
+"TEMP","DATAO",50.67,3066)
+3130913
+"TEMP","DATAO",50.67,3067)
+131518^3130913.050651^7^358^
+"TEMP","DATAO",50.67,3068)
+3130913
+"TEMP","DATAO",50.67,3069)
+130972^3130913.050652^7^358^
+"TEMP","DATAO",50.67,3070)
+3130913
+"TEMP","DATAO",50.67,3071)
+130971^3130913.050652^7^358^
+"TEMP","DATAO",50.67,3072)
+3130913
+"TEMP","DATAO",50.67,3073)
+109609^3130913.050652^7^358^
+"TEMP","DATAO",50.67,3074)
+3130913
+"TEMP","DATAO",50.67,3075)
+116539^3130913.050653^7^358^
+"TEMP","DATAO",50.67,3076)
+3130913
+"TEMP","DATAO",50.67,3077)
+116538^3130913.050653^7^358^
+"TEMP","DATAO",50.67,3078)
+3130913
+"TEMP","DATAO",50.67,3079)
+150040^3130913.050654^7^358^
+"TEMP","DATAO",50.67,3080)
+3130913
+"TEMP","DATAO",50.67,3081)
+150039^3130913.050654^7^358^
+"TEMP","DATAO",50.67,3082)
+3130913
+"TEMP","DATAO",50.67,3083)
+150038^3130913.050654^7^358^
+"TEMP","DATAO",50.67,3084)
+3130913
+"TEMP","DATAO",50.67,3085)
+150037^3130913.050655^7^358^
+"TEMP","DATAO",50.67,3086)
+3130913
+"TEMP","DATAO",50.67,3087)
+150036^3130913.050655^7^358^
+"TEMP","DATAO",50.67,3088)
+3130913
+"TEMP","DATAO",50.67,3089)
+150035^3130913.050656^7^358^
+"TEMP","DATAO",50.67,3090)
+3130913
+"TEMP","DATAO",50.67,3091)
+151968^3130913.050656^7^358^
+"TEMP","DATAO",50.67,3092)
+3130913
+"TEMP","DATAO",50.67,3093)
+125419^3130913.050657^7^358^
+"TEMP","DATAO",50.67,3094)
+3130913
+"TEMP","DATAO",50.67,3095)
+125418^3130913.050657^7^358^
+"TEMP","DATAO",50.67,3096)
+3130913
+"TEMP","DATAO",50.67,3097)
+110607^3130913.050659^7^358^
+"TEMP","DATAO",50.67,3098)
+3130913
+"TEMP","DATAO",50.67,3099)
+110457^3130913.050659^7^358^
+"TEMP","DATAO",50.67,3100)
+3130913
+"TEMP","DATAO",50.67,3101)
+110412^3130913.0507^7^358^
+"TEMP","DATAO",50.67,3102)
+3130913
+"TEMP","DATAO",50.67,3103)
+110348^3130913.0507^7^358^
+"TEMP","DATAO",50.67,3104)
+3130913
+"TEMP","DATAO",50.67,3105)
+110347^3130913.050701^7^358^
+"TEMP","DATAO",50.67,3106)
+3130913
+"TEMP","DATAO",50.67,3107)
+110301^3130913.050701^7^358^
+"TEMP","DATAO",50.67,3108)
+3130913
+"TEMP","DATAO",50.67,3109)
+110300^3130913.050702^7^358^
+"TEMP","DATAO",50.67,3110)
+3130913
+"TEMP","DATAO",50.67,3111)
+110283^3130913.050702^7^358^
+"TEMP","DATAO",50.67,3112)
+3130913
+"TEMP","DATAO",50.67,3113)
+187243^3130913.050703^7^358^
+"TEMP","DATAO",50.67,3114)
+3130913
+"TEMP","DATAO",50.67,3115)
+187242^3130913.050703^7^358^
+"TEMP","DATAO",50.67,3116)
+3130913
+"TEMP","DATAO",50.67,3117)
+187241^3130913.050704^7^358^
+"TEMP","DATAO",50.67,3118)
+3130913
+"TEMP","DATAO",50.67,3119)
+187240^3130913.050704^7^358^
+"TEMP","DATAO",50.67,3120)
+3130913
+"TEMP","DATAO",50.67,3121)
+187239^3130913.050704^7^358^
+"TEMP","DATAO",50.67,3122)
+3130913
+"TEMP","DATAO",50.67,3123)
+187238^3130913.050705^7^358^
+"TEMP","DATAO",50.67,3124)
+3130913
+"TEMP","DATAO",50.67,3125)
+186852^3130913.050705^7^358^
+"TEMP","DATAO",50.67,3126)
+3130913
+"TEMP","DATAO",50.67,3127)
+186851^3130913.050706^7^358^
+"TEMP","DATAO",50.67,3128)
+3130913
+"TEMP","DATAO",50.67,3129)
+163474^3130913.050706^7^358^
+"TEMP","DATAO",50.67,3130)
+3130913
+"TEMP","DATAO",50.67,3131)
+163473^3130913.050706^7^358^
+"TEMP","DATAO",50.67,3132)
+3130913
+"TEMP","DATAO",50.67,3133)
+163472^3130913.050707^7^358^
+"TEMP","DATAO",50.67,3134)
+3130913
+"TEMP","DATAO",50.67,3135)
+121043^3130913.050707^7^358^
+"TEMP","DATAO",50.67,3136)
+3130913
+"TEMP","DATAO",50.67,3137)
+121086^3130913.050708^7^358^
+"TEMP","DATAO",50.67,3138)
+3130913
+"TEMP","DATAO",50.67,3139)
+121085^3130913.050708^7^358^
+"TEMP","DATAO",50.67,3140)
+3130913
+"TEMP","DATAO",50.67,3141)
+154464^3130913.050709^7^358^
+"TEMP","DATAO",50.67,3142)
+3130913
+"TEMP","DATAO",50.67,3143)
+154463^3130913.050709^7^358^
+"TEMP","DATAO",50.67,3144)
+3130913
+"TEMP","DATAO",50.67,3145)
+114296^3130913.05071^7^358^
+"TEMP","DATAO",50.67,3146)
+3130913
+"TEMP","DATAO",50.67,3147)
+114295^3130913.05071^7^358^
+"TEMP","DATAO",50.67,3148)
+3130913
+"TEMP","DATAO",50.67,3149)
+114294^3130913.05071^7^358^
+"TEMP","DATAO",50.67,3150)
+3130913
+"TEMP","DATAO",50.67,3151)
+114293^3130913.050711^7^358^
+"TEMP","DATAO",50.67,3152)
+3130913
+"TEMP","DATAO",50.67,3153)
+114292^3130913.050711^7^358^
+"TEMP","DATAO",50.67,3154)
+3130913
+"TEMP","DATAO",50.67,3155)
+114291^3130913.050712^7^358^
+"TEMP","DATAO",50.67,3156)
+3130913
+"TEMP","DATAO",50.67,3157)
+114290^3130913.050712^7^358^
+"TEMP","DATAO",50.67,3158)
+3130913
+"TEMP","DATAO",50.67,3159)
+114289^3130913.050712^7^358^
+"TEMP","DATAO",50.67,3160)
+3130913
+"TEMP","DATAO",50.67,3161)
+188614^3130913.050713^7^358^
+"TEMP","DATAO",50.67,3162)
+3130913
+"TEMP","DATAO",50.67,3163)
+188613^3130913.050713^7^358^
+"TEMP","DATAO",50.67,3164)
+3130913
+"TEMP","DATAO",50.67,3165)
+188612^3130913.050714^7^358^
+"TEMP","DATAO",50.67,3166)
+3130913
+"TEMP","DATAO",50.67,3167)
+188512^3130913.050714^7^358^
+"TEMP","DATAO",50.67,3168)
+3130913
+"TEMP","DATAO",50.67,3169)
+188511^3130913.050715^7^358^
+"TEMP","DATAO",50.67,3170)
+3130913
+"TEMP","DATAO",50.67,3171)
+188510^3130913.050715^7^358^
+"TEMP","DATAO",50.67,3172)
+3130913
+"TEMP","DATAO",50.67,3173)
+188509^3130913.050715^7^358^
+"TEMP","DATAO",50.67,3174)
+3130913
+"TEMP","DATAO",50.67,3175)
+188392^3130913.050716^7^358^
+"TEMP","DATAO",50.67,3176)
+3130913
+"TEMP","DATAO",50.67,3177)
+188391^3130913.050716^7^358^
+"TEMP","DATAO",50.67,3178)
+3130913
+"TEMP","DATAO",50.67,3179)
+154462^3130913.050717^7^358^
+"TEMP","DATAO",50.67,3180)
+3130913
+"TEMP","DATAO",50.67,3181)
+154461^3130913.050717^7^358^
+"TEMP","DATAO",50.67,3182)
+3130913
+"TEMP","DATAO",50.67,3183)
+154460^3130913.050717^7^358^
+"TEMP","DATAO",50.67,3184)
+3130913
+"TEMP","DATAO",50.67,3185)
+154245^3130913.050718^7^358^
+"TEMP","DATAO",50.67,3186)
+3130913
+"TEMP","DATAO",50.67,3187)
+124623^3130913.050718^7^358^
+"TEMP","DATAO",50.67,3188)
+3130913
+"TEMP","DATAO",50.67,3189)
+109039^3130913.050719^7^358^
+"TEMP","DATAO",50.67,3190)
+3130913
+"TEMP","DATAO",50.67,3191)
+130641^3130913.050719^7^358^
+"TEMP","DATAO",50.67,3192)
+3130913
+"TEMP","DATAO",50.67,3193)
+158783^3130913.05072^7^358^
+"TEMP","DATAO",50.67,3194)
+3130913
+"TEMP","DATAO",50.67,3195)
+158782^3130913.05072^7^358^
+"TEMP","DATAO",50.67,3196)
+3130913
+"TEMP","DATAO",50.67,3197)
+158781^3130913.050721^7^358^
+"TEMP","DATAO",50.67,3198)
+3130913
+"TEMP","DATAO",50.67,3199)
+156139^3130913.050721^7^358^
+"TEMP","DATAO",50.67,3200)
+3130913
+"TEMP","DATAO",50.67,3201)
+156138^3130913.050721^7^358^
+"TEMP","DATAO",50.67,3202)
+3130913
+"TEMP","DATAO",50.67,3203)
+156105^3130913.050722^7^358^
+"TEMP","DATAO",50.67,3204)
+3130913
+"TEMP","DATAO",50.67,3205)
+156058^3130913.050722^7^358^
+"TEMP","DATAO",50.67,3206)
+3130913
+"TEMP","DATAO",50.67,3207)
+156152^3130913.050723^7^358^
+"TEMP","DATAO",50.67,3208)
+3130913
+"TEMP","DATAO",50.67,3209)
+154635^3130913.050723^7^358^
+"TEMP","DATAO",50.67,3210)
+3130913
+"TEMP","DATAO",50.67,3211)
+154634^3130913.050724^7^358^
+"TEMP","DATAO",50.67,3212)
+3130913
+"TEMP","DATAO",50.67,3213)
+154532^3130913.050724^7^358^
+"TEMP","DATAO",50.67,3214)
+3130913
+"TEMP","DATAO",50.67,3215)
+153433^3130913.050725^7^358^
+"TEMP","DATAO",50.67,3216)
+3130913
+"TEMP","DATAO",50.67,3217)
+153432^3130913.050725^7^358^
+"TEMP","DATAO",50.67,3218)
+3130913
+"TEMP","DATAO",50.67,3219)
+153323^3130913.050726^7^358^
+"TEMP","DATAO",50.67,3220)
+3130913
+"TEMP","DATAO",50.67,3221)
+153308^3130913.050727^7^358^
+"TEMP","DATAO",50.67,3222)
+3130913
+"TEMP","DATAO",50.67,3223)
+153307^3130913.050728^7^358^
+"TEMP","DATAO",50.67,3224)
+3130913
+"TEMP","DATAO",50.67,3225)
+160803^3130913.050729^7^358^
+"TEMP","DATAO",50.67,3226)
+3130913
+"TEMP","DATAO",50.67,3227)
+160802^3130913.050729^7^358^
+"TEMP","DATAO",50.67,3228)
+3130913
+"TEMP","DATAO",50.67,3229)
+159547^3130913.05073^7^358^
+"TEMP","DATAO",50.67,3230)
+3130913
+"TEMP","DATAO",50.67,3231)
+159546^3130913.05073^7^358^
+"TEMP","DATAO",50.67,3232)
+3130913
+"TEMP","DATAO",50.67,3233)
+159545^3130913.050731^7^358^
+"TEMP","DATAO",50.67,3234)
+3130913
+"TEMP","DATAO",50.67,3235)
+159544^3130913.050731^7^358^
+"TEMP","DATAO",50.67,3236)
+3130913
+"TEMP","DATAO",50.67,3237)
+159408^3130913.050732^7^358^
+"TEMP","DATAO",50.67,3238)
+3130913
+"TEMP","DATAO",50.67,3239)
+158883^3130913.050732^7^358^
+"TEMP","DATAO",50.67,3240)
+3130913
+"TEMP","DATAO",50.67,3241)
+155987^3130913.050733^7^358^
+"TEMP","DATAO",50.67,3242)
+3130913
+"TEMP","DATAO",50.67,3243)
+155962^3130913.050733^7^358^
+"TEMP","DATAO",50.67,3244)
+3130913
+"TEMP","DATAO",50.67,3245)
+155961^3130913.050734^7^358^
+"TEMP","DATAO",50.67,3246)
+3130913
+"TEMP","DATAO",50.67,3247)
+155960^3130913.050734^7^358^
+"TEMP","DATAO",50.67,3248)
+3130913
+"TEMP","DATAO",50.67,3249)
+155858^3130913.050735^7^358^
+"TEMP","DATAO",50.67,3250)
+3130913
+"TEMP","DATAO",50.67,3251)
+155735^3130913.050735^7^358^
+"TEMP","DATAO",50.67,3252)
+3130913
+"TEMP","DATAO",50.67,3253)
+155734^3130913.050736^7^358^
+"TEMP","DATAO",50.67,3254)
+3130913
+"TEMP","DATAO",50.67,3255)
+154726^3130913.050736^7^358^
+"TEMP","DATAO",50.67,3256)
+3130913
+"TEMP","DATAO",50.67,3257)
+154725^3130913.050736^7^358^
+"TEMP","DATAO",50.67,3258)
+3130913
+"TEMP","DATAO",50.67,3259)
+186850^3130913.050737^7^358^
+"TEMP","DATAO",50.67,3260)
+3130913
+"TEMP","DATAO",50.67,3261)
+186849^3130913.050737^7^358^
+"TEMP","DATAO",50.67,3262)
+3130913
+"TEMP","DATAO",50.67,3263)
+186632^3130913.050738^7^358^
+"TEMP","DATAO",50.67,3264)
+3130913
+"TEMP","DATAO",50.67,3265)
+186631^3130913.050738^7^358^
+"TEMP","DATAO",50.67,3266)
+3130913
+"TEMP","DATAO",50.67,3267)
+186117^3130913.050738^7^358^
+"TEMP","DATAO",50.67,3268)
+3130913
+"TEMP","DATAO",50.67,3269)
+186116^3130913.050739^7^358^
+"TEMP","DATAO",50.67,3270)
+3130913
+"TEMP","DATAO",50.67,3271)
+186115^3130913.050739^7^358^
+"TEMP","DATAO",50.67,3272)
+3130913
+"TEMP","DATAO",50.67,3273)
+186114^3130913.05074^7^358^
+"TEMP","DATAO",50.67,3274)
+3130913
+"TEMP","DATAO",50.67,3275)
+153125^3130913.05074^7^358^
+"TEMP","DATAO",50.67,3276)
+3130913
+"TEMP","DATAO",50.67,3277)
+153124^3130913.05074^7^358^
+"TEMP","DATAO",50.67,3278)
+3130913
+"TEMP","DATAO",50.67,3279)
+150655^3130913.050741^7^358^
+"TEMP","DATAO",50.67,3280)
+3130913
+"TEMP","DATAO",50.67,3281)
+150654^3130913.050741^7^358^
+"TEMP","DATAO",50.67,3282)
+3130913
+"TEMP","DATAO",50.67,3283)
+150653^3130913.050742^7^358^
+"TEMP","DATAO",50.67,3284)
+3130913
+"TEMP","DATAO",50.67,3285)
+150652^3130913.050742^7^358^
+"TEMP","DATAO",50.67,3286)
+3130913
+"TEMP","DATAO",50.67,3287)
+150651^3130913.050742^7^358^
+"TEMP","DATAO",50.67,3288)
+3130913
+"TEMP","DATAO",50.67,3289)
+150221^3130913.050743^7^358^
+"TEMP","DATAO",50.67,3290)
+3130913
+"TEMP","DATAO",50.67,3291)
+184713^3130913.050743^7^358^
+"TEMP","DATAO",50.67,3292)
+3130913
+"TEMP","DATAO",50.67,3293)
+184656^3130913.050744^7^358^
+"TEMP","DATAO",50.67,3294)
+3130913
+"TEMP","DATAO",50.67,3295)
+184655^3130913.050744^7^358^
+"TEMP","DATAO",50.67,3296)
+3130913
+"TEMP","DATAO",50.67,3297)
+184654^3130913.050745^7^358^
+"TEMP","DATAO",50.67,3298)
+3130913
+"TEMP","DATAO",50.67,3299)
+185024^3130913.050745^7^358^
+"TEMP","DATAO",50.67,3300)
+3130913
+"TEMP","DATAO",50.67,3301)
+184304^3130913.050745^7^358^
+"TEMP","DATAO",50.67,3302)
+3130913
+"TEMP","DATAO",50.67,3303)
+184246^3130913.050746^7^358^
+"TEMP","DATAO",50.67,3304)
+3130913
+"TEMP","DATAO",50.67,3305)
+184024^3130913.050746^7^358^
+"TEMP","DATAO",50.67,3306)
+3130913
+"TEMP","DATAO",50.67,3307)
+149256^3130913.050747^7^358^
+"TEMP","DATAO",50.67,3308)
+3130913
+"TEMP","DATAO",50.67,3309)
+155223^3130913.050747^7^358^
+"TEMP","DATAO",50.67,3310)
+3130913
+"TEMP","DATAO",50.67,3311)
+169655^3130913.050748^7^358^
+"TEMP","DATAO",50.67,3312)
+3130913
+"TEMP","DATAO",50.67,3313)
+158882^3130913.050748^7^358^
+"TEMP","DATAO",50.67,3314)
+3130913
+"TEMP","DATAO",50.67,3315)
+158881^3130913.050749^7^358^
+"TEMP","DATAO",50.67,3316)
+3130913
+"TEMP","DATAO",50.67,3317)
+158880^3130913.050749^7^358^
+"TEMP","DATAO",50.67,3318)
+3130913
+"TEMP","DATAO",50.67,3319)
+158713^3130913.050749^7^358^
+"TEMP","DATAO",50.67,3320)
+3130913
+"TEMP","DATAO",50.67,3321)
+185973^3130913.05075^7^358^
+"TEMP","DATAO",50.67,3322)
+3130913
+"TEMP","DATAO",50.67,3323)
+185972^3130913.05075^7^358^
+"TEMP","DATAO",50.67,3324)
+3130913
+"TEMP","DATAO",50.67,3325)
+185971^3130913.050751^7^358^
+"TEMP","DATAO",50.67,3326)
+3130913
+"TEMP","DATAO",50.67,3327)
+185892^3130913.050751^7^358^
+"TEMP","DATAO",50.67,3328)
+3130913
+"TEMP","DATAO",50.67,3329)
+185837^3130913.050752^7^358^
+"TEMP","DATAO",50.67,3330)
+3130913
+"TEMP","DATAO",50.67,3331)
+185578^3130913.050752^7^358^
+"TEMP","DATAO",50.67,3332)
+3130913
+"TEMP","DATAO",50.67,3333)
+185313^3130913.050753^7^358^
+"TEMP","DATAO",50.67,3334)
+3130913
+"TEMP","DATAO",50.67,3335)
+185258^3130913.050753^7^358^
+"TEMP","DATAO",50.67,3336)
+3130913
+"TEMP","DATAO",50.67,3337)
+172728^3130913.050754^7^358^
+"TEMP","DATAO",50.67,3338)
+3130913
+"TEMP","DATAO",50.67,3339)
+172410^3130913.050754^7^358^
+"TEMP","DATAO",50.67,3340)
+3130913
+"TEMP","DATAO",50.67,3341)
+172409^3130913.050755^7^358^
+"TEMP","DATAO",50.67,3342)
+3130913
+"TEMP","DATAO",50.67,3343)
+172408^3130913.050755^7^358^
+"TEMP","DATAO",50.67,3344)
+3130913
+"TEMP","DATAO",50.67,3345)
+172407^3130913.050756^7^358^
+"TEMP","DATAO",50.67,3346)
+3130913
+"TEMP","DATAO",50.67,3347)
+172406^3130913.050756^7^358^
+"TEMP","DATAO",50.67,3348)
+3130913
+"TEMP","DATAO",50.67,3349)
+172405^3130913.050757^7^358^
+"TEMP","DATAO",50.67,3350)
+3130913
+"TEMP","DATAO",50.67,3351)
+172404^3130913.050758^7^358^
+"TEMP","DATAO",50.67,3352)
+3130913
+"TEMP","DATAO",50.67,3353)
+181979^3130913.050758^7^358^
+"TEMP","DATAO",50.67,3354)
+3130913
+"TEMP","DATAO",50.67,3355)
+181978^3130913.050759^7^358^
+"TEMP","DATAO",50.67,3356)
+3130913
+"TEMP","DATAO",50.67,3357)
+181977^3130913.050759^7^358^
+"TEMP","DATAO",50.67,3358)
+3130913
+"TEMP","DATAO",50.67,3359)
+181882^3130913.050759^7^358^
+"TEMP","DATAO",50.67,3360)
+3130913
+"TEMP","DATAO",50.67,3361)
+180476^3130913.0508^7^358^
+"TEMP","DATAO",50.67,3362)
+3130913
+"TEMP","DATAO",50.67,3363)
+180475^3130913.0508^7^358^
+"TEMP","DATAO",50.67,3364)
+3130913
+"TEMP","DATAO",50.67,3365)
+180474^3130913.050801^7^358^
+"TEMP","DATAO",50.67,3366)
+3130913
+"TEMP","DATAO",50.67,3367)
+179069^3130913.050802^7^358^
+"TEMP","DATAO",50.67,3368)
+3130913
+"TEMP","DATAO",50.67,3369)
+171340^3130913.050802^7^358^
+"TEMP","DATAO",50.67,3370)
+3130913
+"TEMP","DATAO",50.67,3371)
+171285^3130913.050803^7^358^
+"TEMP","DATAO",50.67,3372)
+3130913
+"TEMP","DATAO",50.67,3373)
+171284^3130913.050804^7^358^
+"TEMP","DATAO",50.67,3374)
+3130913
+"TEMP","DATAO",50.67,3375)
+171283^3130913.050804^7^358^
+"TEMP","DATAO",50.67,3376)
+3130913
+"TEMP","DATAO",50.67,3377)
+171180^3130913.050805^7^358^
+"TEMP","DATAO",50.67,3378)
+3130913
+"TEMP","DATAO",50.67,3379)
+171176^3130913.050805^7^358^
+"TEMP","DATAO",50.67,3380)
+3130913
+"TEMP","DATAO",50.67,3381)
+171087^3130913.050806^7^358^
+"TEMP","DATAO",50.67,3382)
+3130913
+"TEMP","DATAO",50.67,3383)
+170930^3130913.050806^7^358^
+"TEMP","DATAO",50.67,3384)
+3130913
+"TEMP","DATAO",50.67,3385)
+116820^3130913.050807^7^358^
+"TEMP","DATAO",50.67,3386)
+3130913
+"TEMP","DATAO",50.67,3387)
+145461^3130913.050807^7^358^
+"TEMP","DATAO",50.67,3388)
+3130913
+"TEMP","DATAO",50.67,3389)
+145138^3130913.050808^7^358^
+"TEMP","DATAO",50.67,3390)
+3130913
+"TEMP","DATAO",50.67,3391)
+145137^3130913.050809^7^358^
+"TEMP","DATAO",50.67,3392)
+3130913
+"TEMP","DATAO",50.67,3393)
+183256^3130913.050809^7^358^
+"TEMP","DATAO",50.67,3394)
+3130913
+"TEMP","DATAO",50.67,3395)
+183255^3130913.050809^7^358^
+"TEMP","DATAO",50.67,3396)
+3130913
+"TEMP","DATAO",50.67,3397)
+183254^3130913.05081^7^358^
+"TEMP","DATAO",50.67,3398)
+3130913
+"TEMP","DATAO",50.67,3399)
+175619^3130913.05081^7^358^
+"TEMP","DATAO",50.67,3400)
+3130913
+"TEMP","DATAO",50.67,3401)
+175166^3130913.050811^7^358^
+"TEMP","DATAO",50.67,3402)
+3130913
+"TEMP","DATAO",50.67,3403)
+175165^3130913.050811^7^358^
+"TEMP","DATAO",50.67,3404)
+3130913
+"TEMP","DATAO",50.67,3405)
+175164^3130913.050811^7^358^
+"TEMP","DATAO",50.67,3406)
+3130913
+"TEMP","DATAO",50.67,3407)
+175163^3130913.050812^7^358^
+"TEMP","DATAO",50.67,3408)
+3130913
+"TEMP","DATAO",50.67,3409)
+172403^3130913.050812^7^358^
+"TEMP","DATAO",50.67,3410)
+3130913
+"TEMP","DATAO",50.67,3411)
+172436^3130913.050813^7^358^
+"TEMP","DATAO",50.67,3412)
+3130913
+"TEMP","DATAO",50.67,3413)
+172237^3130913.050813^7^358^
+"TEMP","DATAO",50.67,3414)
+3130913
+"TEMP","DATAO",50.67,3415)
+172236^3130913.050814^7^358^
+"TEMP","DATAO",50.67,3416)
+3130913
+"TEMP","DATAO",50.67,3417)
+167803^3130913.050814^7^358^
+"TEMP","DATAO",50.67,3418)
+3130913
+"TEMP","DATAO",50.67,3419)
+171385^3130913.050815^7^358^
+"TEMP","DATAO",50.67,3420)
+3130913
+"TEMP","DATAO",50.67,3421)
+171342^3130913.050815^7^358^
+"TEMP","DATAO",50.67,3422)
+3130913
+"TEMP","DATAO",50.67,3423)
+171341^3130913.050815^7^358^
+"TEMP","DATAO",50.67,3424)
+3130913
+"TEMP","DATAO",50.67,3425)
+166002^3130913.050816^7^358^
+"TEMP","DATAO",50.67,3426)
+3130913
+"TEMP","DATAO",50.67,3427)
+165501^3130913.050816^7^358^
+"TEMP","DATAO",50.67,3428)
+3130913
+"TEMP","DATAO",50.67,3429)
+165509^3130913.050817^7^358^
+"TEMP","DATAO",50.67,3430)
+3130913
+"TEMP","DATAO",50.67,3431)
+165486^3130913.050817^7^358^
+"TEMP","DATAO",50.67,3432)
+3130913
+"TEMP","DATAO",50.67,3433)
+165485^3130913.050818^7^358^
+"TEMP","DATAO",50.67,3434)
+3130913
+"TEMP","DATAO",50.67,3435)
+165438^3130913.050818^7^358^
+"TEMP","DATAO",50.67,3436)
+3130913
+"TEMP","DATAO",50.67,3437)
+165437^3130913.050819^7^358^
+"TEMP","DATAO",50.67,3438)
+3130913
+"TEMP","DATAO",50.67,3439)
+165436^3130913.050819^7^358^
+"TEMP","DATAO",50.67,3440)
+3130913
+"TEMP","DATAO",50.67,3441)
+170110^3130913.050819^7^358^
+"TEMP","DATAO",50.67,3442)
+3130913
+"TEMP","DATAO",50.67,3443)
+170109^3130913.05082^7^358^
+"TEMP","DATAO",50.67,3444)
+3130913
+"TEMP","DATAO",50.67,3445)
+169975^3130913.05082^7^358^
+"TEMP","DATAO",50.67,3446)
+3130913
+"TEMP","DATAO",50.67,3447)
+169974^3130913.050821^7^358^
+"TEMP","DATAO",50.67,3448)
+3130913
+"TEMP","DATAO",50.67,3449)
+169973^3130913.050821^7^358^
+"TEMP","DATAO",50.67,3450)
+3130913
+"TEMP","DATAO",50.67,3451)
+169972^3130913.050821^7^358^
+"TEMP","DATAO",50.67,3452)
+3130913
+"TEMP","DATAO",50.67,3453)
+169971^3130913.050822^7^358^
+"TEMP","DATAO",50.67,3454)
+3130913
+"TEMP","DATAO",50.67,3455)
+169970^3130913.050822^7^358^
+"TEMP","DATAO",50.67,3456)
+3130913
+"TEMP","DATAO",50.67,3457)
+164193^3130913.050823^7^358^
+"TEMP","DATAO",50.67,3458)
+3130913
+"TEMP","DATAO",50.67,3459)
+164192^3130913.050823^7^358^
+"TEMP","DATAO",50.67,3460)
+3130913
+"TEMP","DATAO",50.67,3461)
+164191^3130913.050824^7^358^
+"TEMP","DATAO",50.67,3462)
+3130913
+"TEMP","DATAO",50.67,3463)
+163362^3130913.050824^7^358^
+"TEMP","DATAO",50.67,3464)
+3130913
+"TEMP","DATAO",50.67,3465)
+163361^3130913.050824^7^358^
+"TEMP","DATAO",50.67,3466)
+3130913
+"TEMP","DATAO",50.67,3467)
+163360^3130913.050825^7^358^
+"TEMP","DATAO",50.67,3468)
+3130913
+"TEMP","DATAO",50.67,3469)
+163289^3130913.050825^7^358^
+"TEMP","DATAO",50.67,3470)
+3130913
+"TEMP","DATAO",50.67,3471)
+163288^3130913.050826^7^358^
+"TEMP","DATAO",50.67,3472)
+3130913
+"TEMP","DATAO",50.67,3473)
+145465^3130913.050826^7^358^
+"TEMP","DATAO",50.67,3474)
+3130913
+"TEMP","DATAO",50.67,3475)
+145464^3130913.050827^7^358^
+"TEMP","DATAO",50.67,3476)
+3130913
+"TEMP","DATAO",50.67,3477)
+145463^3130913.050827^7^358^
+"TEMP","DATAO",50.67,3478)
+3130913
+"TEMP","DATAO",50.67,3479)
+145462^3130913.050827^7^358^
+"TEMP","DATAO",50.67,3480)
+3130913
+"TEMP","DATAO",50.67,3481)
+138763^3130913.050828^7^358^
+"TEMP","DATAO",50.67,3482)
+3130913
+"TEMP","DATAO",50.67,3483)
+138463^3130913.050828^7^358^
+"TEMP","DATAO",50.67,3484)
+3130913
+"TEMP","DATAO",50.67,3485)
+110682^3130913.050829^7^358^
+"TEMP","DATAO",50.67,3486)
+3130913
+"TEMP","DATAO",50.67,3487)
+110275^3130913.050829^7^358^
+"TEMP","DATAO",50.67,3488)
+3130913
+"TEMP","DATAO",50.67,3489)
+150124^3130913.050829^7^358^
+"TEMP","DATAO",50.67,3490)
+3130913
+"TEMP","DATAO",50.67,3491)
+150315^3130913.05083^7^358^
+"TEMP","DATAO",50.67,3492)
+3130913
+"TEMP","DATAO",50.67,3493)
+150314^3130913.05083^7^358^
+"TEMP","DATAO",50.67,3494)
+3130913
+"TEMP","DATAO",50.67,3495)
+110194^3130913.050831^7^358^
+"TEMP","DATAO",50.67,3496)
+3130913
+"TEMP","DATAO",50.67,3497)
+110193^3130913.050831^7^358^
+"TEMP","DATAO",50.67,3498)
+3130913
+"TEMP","DATAO",50.67,3499)
+110192^3130913.050832^7^358^
+"TEMP","DATAO",50.67,3500)
+3130913
+"TEMP","DATAO",50.67,3501)
+175162^3130913.050832^7^358^
+"TEMP","DATAO",50.67,3502)
+3130913
+"TEMP","DATAO",50.67,3503)
+175161^3130913.050832^7^358^
+"TEMP","DATAO",50.67,3504)
+3130913
+"TEMP","DATAO",50.67,3505)
+173492^3130913.050833^7^358^
+"TEMP","DATAO",50.67,3506)
+3130913
+"TEMP","DATAO",50.67,3507)
+173491^3130913.050833^7^358^
+"TEMP","DATAO",50.67,3508)
+3130913
+"TEMP","DATAO",50.67,3509)
+173490^3130913.050834^7^358^
+"TEMP","DATAO",50.67,3510)
+3130913
+"TEMP","DATAO",50.67,3511)
+173444^3130913.050834^7^358^
+"TEMP","DATAO",50.67,3512)
+3130913
+"TEMP","DATAO",50.67,3513)
+173443^3130913.050835^7^358^
+"TEMP","DATAO",50.67,3514)
+3130913
+"TEMP","DATAO",50.67,3515)
+173432^3130913.050835^7^358^
+"TEMP","DATAO",50.67,3516)
+3130913
+"TEMP","DATAO",50.67,3517)
+168388^3130913.050835^7^358^
+"TEMP","DATAO",50.67,3518)
+3130913
+"TEMP","DATAO",50.67,3519)
+168387^3130913.050836^7^358^
+"TEMP","DATAO",50.67,3520)
+3130913
+"TEMP","DATAO",50.67,3521)
+168231^3130913.050836^7^358^
+"TEMP","DATAO",50.67,3522)
+3130913
+"TEMP","DATAO",50.67,3523)
+168230^3130913.050837^7^358^
+"TEMP","DATAO",50.67,3524)
+3130913
+"TEMP","DATAO",50.67,3525)
+168229^3130913.050837^7^358^
+"TEMP","DATAO",50.67,3526)
+3130913
+"TEMP","DATAO",50.67,3527)
+168114^3130913.050837^7^358^
+"TEMP","DATAO",50.67,3528)
+3130913
+"TEMP","DATAO",50.67,3529)
+168113^3130913.050838^7^358^
+"TEMP","DATAO",50.67,3530)
+3130913
+"TEMP","DATAO",50.67,3531)
+168112^3130913.050838^7^358^
+"TEMP","DATAO",50.67,3532)
+3130913
+"TEMP","DATAO",50.67,3533)
+164446^3130913.050839^7^358^
+"TEMP","DATAO",50.67,3534)
+3130913
+"TEMP","DATAO",50.67,3535)
+164445^3130913.050839^7^358^
+"TEMP","DATAO",50.67,3536)
+3130913
+"TEMP","DATAO",50.67,3537)
+164444^3130913.05084^7^358^
+"TEMP","DATAO",50.67,3538)
+3130913
+"TEMP","DATAO",50.67,3539)
+164278^3130913.05084^7^358^
+"TEMP","DATAO",50.67,3540)
+3130913
+"TEMP","DATAO",50.67,3541)
+164277^3130913.05084^7^358^
+"TEMP","DATAO",50.67,3542)
+3130913
+"TEMP","DATAO",50.67,3543)
+164197^3130913.050841^7^358^
+"TEMP","DATAO",50.67,3544)
+3130913
+"TEMP","DATAO",50.67,3545)
+164196^3130913.050842^7^358^
+"TEMP","DATAO",50.67,3546)
+3130913
+"TEMP","DATAO",50.67,3547)
+164195^3130913.050842^7^358^
+"TEMP","DATAO",50.67,3548)
+3130913
+"TEMP","DATAO",50.67,3549)
+164194^3130913.050843^7^358^
+"TEMP","DATAO",50.67,3550)
+3130913
+"TEMP","DATAO",50.67,3551)
+122026^3130913.050844^7^358^
+"TEMP","DATAO",50.67,3552)
+3130913
+"TEMP","DATAO",50.67,3553)
+121607^3130913.050844^7^358^
+"TEMP","DATAO",50.67,3554)
+3130913
+"TEMP","DATAO",50.67,3555)
+121606^3130913.050845^7^358^
+"TEMP","DATAO",50.67,3556)
+3130913
+"TEMP","DATAO",50.67,3557)
+121605^3130913.050845^7^358^
+"TEMP","DATAO",50.67,3558)
+3130913
+"TEMP","DATAO",50.67,3559)
+121109^3130913.050846^7^358^
+"TEMP","DATAO",50.67,3560)
+3130913
+"TEMP","DATAO",50.67,3561)
+164831^3130913.050846^7^358^
+"TEMP","DATAO",50.67,3562)
+3130913
+"TEMP","DATAO",50.67,3563)
+164830^3130913.050847^7^358^
+"TEMP","DATAO",50.67,3564)
+3130913
+"TEMP","DATAO",50.67,3565)
+120900^3130913.050847^7^358^
+"TEMP","DATAO",50.67,3566)
+3130913
+"TEMP","DATAO",50.67,3567)
+163287^3130913.050848^7^358^
+"TEMP","DATAO",50.67,3568)
+3130913
+"TEMP","DATAO",50.67,3569)
+163238^3130913.050848^7^358^
+"TEMP","DATAO",50.67,3570)
+3130913
+"TEMP","DATAO",50.67,3571)
+163237^3130913.050849^7^358^
+"TEMP","DATAO",50.67,3572)
+3130913
+"TEMP","DATAO",50.67,3573)
+163236^3130913.050849^7^358^
+"TEMP","DATAO",50.67,3574)
+3130913
+"TEMP","DATAO",50.67,3575)
+163161^3130913.050849^7^358^
+"TEMP","DATAO",50.67,3576)
+3130913
+"TEMP","DATAO",50.67,3577)
+163160^3130913.05085^7^358^
+"TEMP","DATAO",50.67,3578)
+3130913
+"TEMP","DATAO",50.67,3579)
+163159^3130913.05085^7^358^
+"TEMP","DATAO",50.67,3580)
+3130913
+"TEMP","DATAO",50.67,3581)
+162567^3130913.050851^7^358^
+"TEMP","DATAO",50.67,3582)
+3130913
+"TEMP","DATAO",50.67,3583)
+119841^3130913.050851^7^358^
+"TEMP","DATAO",50.67,3584)
+3130913
+"TEMP","DATAO",50.67,3585)
+119840^3130913.050851^7^358^
+"TEMP","DATAO",50.67,3586)
+3130913
+"TEMP","DATAO",50.67,3587)
+119839^3130913.050852^7^358^
+"TEMP","DATAO",50.67,3588)
+3130913
+"TEMP","DATAO",50.67,3589)
+119412^3130913.050852^7^358^
+"TEMP","DATAO",50.67,3590)
+3130913
+"TEMP","DATAO",50.67,3591)
+119411^3130913.050853^7^358^
+"TEMP","DATAO",50.67,3592)
+3130913
+"TEMP","DATAO",50.67,3593)
+168925^3130913.050853^7^358^
+"TEMP","DATAO",50.67,3594)
+3130913
+"TEMP","DATAO",50.67,3595)
+168837^3130913.050854^7^358^
+"TEMP","DATAO",50.67,3596)
+3130913
+"TEMP","DATAO",50.67,3597)
+168815^3130913.050854^7^358^
+"TEMP","DATAO",50.67,3598)
+3130913
+"TEMP","DATAO",50.67,3599)
+168822^3130913.050854^7^358^
+"TEMP","DATAO",50.67,3600)
+3130913
+"TEMP","DATAO",50.67,3601)
+168759^3130913.050855^7^358^
+"TEMP","DATAO",50.67,3602)
+3130913
+"TEMP","DATAO",50.67,3603)
+168758^3130913.050855^7^358^
+"TEMP","DATAO",50.67,3604)
+3130913
+"TEMP","DATAO",50.67,3605)
+168757^3130913.050856^7^358^
+"TEMP","DATAO",50.67,3606)
+3130913
+"TEMP","DATAO",50.67,3607)
+125234^3130913.050856^7^358^
+"TEMP","DATAO",50.67,3608)
+3130913
+"TEMP","DATAO",50.67,3609)
+125233^3130913.050857^7^358^
+"TEMP","DATAO",50.67,3610)
+3130913
+"TEMP","DATAO",50.67,3611)
+125232^3130913.050857^7^358^
+"TEMP","DATAO",50.67,3612)
+3130913
+"TEMP","DATAO",50.67,3613)
+125231^3130913.050857^7^358^
+"TEMP","DATAO",50.67,3614)
+3130913
+"TEMP","DATAO",50.67,3615)
+125230^3130913.050858^7^358^
+"TEMP","DATAO",50.67,3616)
+3130913
+"TEMP","DATAO",50.67,3617)
+125229^3130913.050858^7^358^
+"TEMP","DATAO",50.67,3618)
+3130913
+"TEMP","DATAO",50.67,3619)
+125228^3130913.050859^7^358^
+"TEMP","DATAO",50.67,3620)
+3130913
+"TEMP","DATAO",50.67,3621)
+125227^3130913.050859^7^358^
+"TEMP","DATAO",50.67,3622)
+3130913
+"TEMP","DATAO",50.67,3623)
+124952^3130913.050859^7^358^
+"TEMP","DATAO",50.67,3624)
+3130913
+"TEMP","DATAO",50.67,3625)
+168111^3130913.0509^7^358^
+"TEMP","DATAO",50.67,3626)
+3130913
+"TEMP","DATAO",50.67,3627)
+168006^3130913.0509^7^358^
+"TEMP","DATAO",50.67,3628)
+3130913
+"TEMP","DATAO",50.67,3629)
+168005^3130913.050901^7^358^
+"TEMP","DATAO",50.67,3630)
+3130913
+"TEMP","DATAO",50.67,3631)
+168004^3130913.050902^7^358^
+"TEMP","DATAO",50.67,3632)
+3130913
+"TEMP","DATAO",50.67,3633)
+166399^3130913.050902^7^358^
+"TEMP","DATAO",50.67,3634)
+3130913
+"TEMP","DATAO",50.67,3635)
+166398^3130913.050902^7^358^
+"TEMP","DATAO",50.67,3636)
+3130913
+"TEMP","DATAO",50.67,3637)
+166397^3130913.050903^7^358^
+"TEMP","DATAO",50.67,3638)
+3130913
+"TEMP","DATAO",50.67,3639)
+166396^3130913.050903^7^358^
+"TEMP","DATAO",50.67,3640)
+3130913
+"TEMP","DATAO",50.67,3641)
+124339^3130913.050904^7^358^
+"TEMP","DATAO",50.67,3642)
+3130913
+"TEMP","DATAO",50.67,3643)
+124338^3130913.050904^7^358^
+"TEMP","DATAO",50.67,3644)
+3130913
+"TEMP","DATAO",50.67,3645)
+124337^3130913.050905^7^358^
+"TEMP","DATAO",50.67,3646)
+3130913
+"TEMP","DATAO",50.67,3647)
+124336^3130913.050905^7^358^
+"TEMP","DATAO",50.67,3648)
+3130913
+"TEMP","DATAO",50.67,3649)
+124335^3130913.050905^7^358^
+"TEMP","DATAO",50.67,3650)
+3130913
+"TEMP","DATAO",50.67,3651)
+122144^3130913.050906^7^358^
+"TEMP","DATAO",50.67,3652)
+3130913
+"TEMP","DATAO",50.67,3653)
+122143^3130913.050906^7^358^
+"TEMP","DATAO",50.67,3654)
+3130913
+"TEMP","DATAO",50.67,3655)
+122142^3130913.050907^7^358^
+"TEMP","DATAO",50.67,3656)
+3130913
+"TEMP","DATAO",50.67,3657)
+120858^3130913.050907^7^358^
+"TEMP","DATAO",50.67,3658)
+3130913
+"TEMP","DATAO",50.67,3659)
+120857^3130913.050908^7^358^
+"TEMP","DATAO",50.67,3660)
+3130913
+"TEMP","DATAO",50.67,3661)
+120856^3130913.050908^7^358^
+"TEMP","DATAO",50.67,3662)
+3130913
+"TEMP","DATAO",50.67,3663)
+120802^3130913.050908^7^358^
+"TEMP","DATAO",50.67,3664)
+3130913
+"TEMP","DATAO",50.67,3665)
+120801^3130913.050909^7^358^
+"TEMP","DATAO",50.67,3666)
+3130913
+"TEMP","DATAO",50.67,3667)
+148491^3130913.050909^7^358^
+"TEMP","DATAO",50.67,3668)
+3130913
+"TEMP","DATAO",50.67,3669)
+148490^3130913.05091^7^358^
+"TEMP","DATAO",50.67,3670)
+3130913
+"TEMP","DATAO",50.67,3671)
+147383^3130913.05091^7^358^
+"TEMP","DATAO",50.67,3672)
+3130913
+"TEMP","DATAO",50.67,3673)
+147702^3130913.050911^7^358^
+"TEMP","DATAO",50.67,3674)
+3130913
+"TEMP","DATAO",50.67,3675)
+147525^3130913.050911^7^358^
+"TEMP","DATAO",50.67,3676)
+3130913
+"TEMP","DATAO",50.67,3677)
+147127^3130913.050912^7^358^
+"TEMP","DATAO",50.67,3678)
+3130913
+"TEMP","DATAO",50.67,3679)
+147126^3130913.050912^7^358^
+"TEMP","DATAO",50.67,3680)
+3130913
+"TEMP","DATAO",50.67,3681)
+147125^3130913.050912^7^358^
+"TEMP","DATAO",50.67,3682)
+3130913
+"TEMP","DATAO",50.67,3683)
+118043^3130913.050913^7^358^
+"TEMP","DATAO",50.67,3684)
+3130913
+"TEMP","DATAO",50.67,3685)
+118042^3130913.050913^7^358^
+"TEMP","DATAO",50.67,3686)
+3130913
+"TEMP","DATAO",50.67,3687)
+117041^3130913.050914^7^358^
+"TEMP","DATAO",50.67,3688)
+3130913
+"TEMP","DATAO",50.67,3689)
+117040^3130913.050914^7^358^
+"TEMP","DATAO",50.67,3690)
+3130913
+"TEMP","DATAO",50.67,3691)
+116879^3130913.050915^7^358^
+"TEMP","DATAO",50.67,3692)
+3130913
+"TEMP","DATAO",50.67,3693)
+116719^3130913.050915^7^358^
+"TEMP","DATAO",50.67,3694)
+3130913
+"TEMP","DATAO",50.67,3695)
+116718^3130913.050916^7^358^
+"TEMP","DATAO",50.67,3696)
+3130913
+"TEMP","DATAO",50.67,3697)
+146194^3130913.050916^7^358^
+"TEMP","DATAO",50.67,3698)
+3130913
+"TEMP","DATAO",50.67,3699)
+146193^3130913.050916^7^358^
+"TEMP","DATAO",50.67,3700)
+3130913
+"TEMP","DATAO",50.67,3701)
+146192^3130913.050917^7^358^
+"TEMP","DATAO",50.67,3702)
+3130913
+"TEMP","DATAO",50.67,3703)
+146191^3130913.050917^7^358^
+"TEMP","DATAO",50.67,3704)
+3130913
+"TEMP","DATAO",50.67,3705)
+145689^3130913.050918^7^358^
+"TEMP","DATAO",50.67,3706)
+3130913
+"TEMP","DATAO",50.67,3707)
+145688^3130913.050918^7^358^
+"TEMP","DATAO",50.67,3708)
+3130913
+"TEMP","DATAO",50.67,3709)
+145687^3130913.050918^7^358^
+"TEMP","DATAO",50.67,3710)
+3130913
+"TEMP","DATAO",50.67,3711)
+145686^3130913.050919^7^358^
+"TEMP","DATAO",50.67,3712)
+3130913
+"TEMP","DATAO",50.67,3713)
+113442^3130913.050922^7^358^
+"TEMP","DATAO",50.67,3714)
+3130913
+"TEMP","DATAO",50.67,3715)
+113441^3130913.050922^7^358^
+"TEMP","DATAO",50.67,3716)
+3130913
+"TEMP","DATAO",50.67,3717)
+113331^3130913.050923^7^358^
+"TEMP","DATAO",50.67,3718)
+3130913
+"TEMP","DATAO",50.67,3719)
+113330^3130913.050923^7^358^
+"TEMP","DATAO",50.67,3720)
+3130913
+"TEMP","DATAO",50.67,3721)
+113329^3130913.050923^7^358^
+"TEMP","DATAO",50.67,3722)
+3130913
+"TEMP","DATAO",50.67,3723)
+113328^3130913.050924^7^358^
+"TEMP","DATAO",50.67,3724)
+3130913
+"TEMP","DATAO",50.67,3725)
+112889^3130913.050924^7^358^
+"TEMP","DATAO",50.67,3726)
+3130913
+"TEMP","DATAO",50.67,3727)
+112875^3130913.050925^7^358^
+"TEMP","DATAO",50.67,3728)
+3130913
+"TEMP","DATAO",50.67,3729)
+145141^3130913.050925^7^358^
+"TEMP","DATAO",50.67,3730)
+3130913
+"TEMP","DATAO",50.67,3731)
+145140^3130913.050926^7^358^
+"TEMP","DATAO",50.67,3732)
+3130913
+"TEMP","DATAO",50.67,3733)
+145139^3130913.050926^7^358^
+"TEMP","DATAO",50.67,3734)
+3130913
+"TEMP","DATAO",50.67,3735)
+144245^3130913.050926^7^358^
+"TEMP","DATAO",50.67,3736)
+3130913
+"TEMP","DATAO",50.67,3737)
+144244^3130913.050927^7^358^
+"TEMP","DATAO",50.67,3738)
+3130913
+"TEMP","DATAO",50.67,3739)
+143379^3130913.050927^7^358^
+"TEMP","DATAO",50.67,3740)
+3130913
+"TEMP","DATAO",50.67,3741)
+143378^3130913.050928^7^358^
+"TEMP","DATAO",50.67,3742)
+3130913
+"TEMP","DATAO",50.67,3743)
+143377^3130913.050928^7^358^
+"TEMP","DATAO",50.67,3744)
+3130913
+"TEMP","DATAO",50.67,3745)
+143289^3130913.050929^7^358^
+"TEMP","DATAO",50.67,3746)
+3130913
+"TEMP","DATAO",50.67,3747)
+122141^3130913.050929^7^358^
+"TEMP","DATAO",50.67,3748)
+3130913
+"TEMP","DATAO",50.67,3749)
+122033^3130913.050929^7^358^
+"TEMP","DATAO",50.67,3750)
+3130913
+"TEMP","DATAO",50.67,3751)
+122032^3130913.05093^7^358^
+"TEMP","DATAO",50.67,3752)
+3130913
+"TEMP","DATAO",50.67,3753)
+122031^3130913.05093^7^358^
+"TEMP","DATAO",50.67,3754)
+3130913
+"TEMP","DATAO",50.67,3755)
+122030^3130913.050931^7^358^
+"TEMP","DATAO",50.67,3756)
+3130913
+"TEMP","DATAO",50.67,3757)
+122029^3130913.050931^7^358^
+"TEMP","DATAO",50.67,3758)
+3130913
+"TEMP","DATAO",50.67,3759)
+122028^3130913.050931^7^358^
+"TEMP","DATAO",50.67,3760)
+3130913
+"TEMP","DATAO",50.67,3761)
+122027^3130913.050932^7^358^
+"TEMP","DATAO",50.67,3762)
+3130913
+"TEMP","DATAO",50.67,3763)
+147061^3130913.050932^7^358^
+"TEMP","DATAO",50.67,3764)
+3130913
+"TEMP","DATAO",50.67,3765)
+147060^3130913.050933^7^358^
+"TEMP","DATAO",50.67,3766)
+3130913
+"TEMP","DATAO",50.67,3767)
+147004^3130913.050933^7^358^
+"TEMP","DATAO",50.67,3768)
+3130913
+"TEMP","DATAO",50.67,3769)
+146965^3130913.050934^7^358^
+"TEMP","DATAO",50.67,3770)
+3130913
+"TEMP","DATAO",50.67,3771)
+146964^3130913.050934^7^358^
+"TEMP","DATAO",50.67,3772)
+3130913
+"TEMP","DATAO",50.67,3773)
+146963^3130913.050934^7^358^
+"TEMP","DATAO",50.67,3774)
+3130913
+"TEMP","DATAO",50.67,3775)
+146196^3130913.050935^7^358^
+"TEMP","DATAO",50.67,3776)
+3130913
+"TEMP","DATAO",50.67,3777)
+146195^3130913.050935^7^358^
+"TEMP","DATAO",50.67,3778)
+3130913
+"TEMP","DATAO",50.67,3779)
+138310^3130913.050936^7^358^
+"TEMP","DATAO",50.67,3780)
+3130913
+"TEMP","DATAO",50.67,3781)
+137915^3130913.050936^7^358^
+"TEMP","DATAO",50.67,3782)
+3130913
+"TEMP","DATAO",50.67,3783)
+137914^3130913.050937^7^358^
+"TEMP","DATAO",50.67,3784)
+3130913
+"TEMP","DATAO",50.67,3785)
+137913^3130913.050937^7^358^
+"TEMP","DATAO",50.67,3786)
+3130913
+"TEMP","DATAO",50.67,3787)
+137912^3130913.050937^7^358^
+"TEMP","DATAO",50.67,3788)
+3130913
+"TEMP","DATAO",50.67,3789)
+137682^3130913.050938^7^358^
+"TEMP","DATAO",50.67,3790)
+3130913
+"TEMP","DATAO",50.67,3791)
+137681^3130913.050938^7^358^
+"TEMP","DATAO",50.67,3792)
+3130913
+"TEMP","DATAO",50.67,3793)
+137619^3130913.050939^7^358^
+"TEMP","DATAO",50.67,3794)
+3130913
+"TEMP","DATAO",50.67,3795)
+145685^3130913.050939^7^358^
+"TEMP","DATAO",50.67,3796)
+3130913
+"TEMP","DATAO",50.67,3797)
+145684^3130913.05094^7^358^
+"TEMP","DATAO",50.67,3798)
+3130913
+"TEMP","DATAO",50.67,3799)
+145148^3130913.05094^7^358^
+"TEMP","DATAO",50.67,3800)
+3130913
+"TEMP","DATAO",50.67,3801)
+145147^3130913.05094^7^358^
+"TEMP","DATAO",50.67,3802)
+3130913
+"TEMP","DATAO",50.67,3803)
+145146^3130913.050941^7^358^
+"TEMP","DATAO",50.67,3804)
+3130913
+"TEMP","DATAO",50.67,3805)
+145145^3130913.050941^7^358^
+"TEMP","DATAO",50.67,3806)
+3130913
+"TEMP","DATAO",50.67,3807)
+145144^3130913.050942^7^358^
+"TEMP","DATAO",50.67,3808)
+3130913
+"TEMP","DATAO",50.67,3809)
+145143^3130913.050942^7^358^
+"TEMP","DATAO",50.67,3810)
+3130913
+"TEMP","DATAO",50.67,3811)
+145142^3130913.050942^7^358^
+"TEMP","DATAO",50.67,3812)
+3130913
+"TEMP","DATAO",50.67,3813)
+135758^3130913.050943^7^358^
+"TEMP","DATAO",50.67,3814)
+3130913
+"TEMP","DATAO",50.67,3815)
+135757^3130913.050943^7^358^
+"TEMP","DATAO",50.67,3816)
+3130913
+"TEMP","DATAO",50.67,3817)
+135756^3130913.050944^7^358^
+"TEMP","DATAO",50.67,3818)
+3130913
+"TEMP","DATAO",50.67,3819)
+135755^3130913.050944^7^358^
+"TEMP","DATAO",50.67,3820)
+3130913
+"TEMP","DATAO",50.67,3821)
+134655^3130913.050945^7^358^
+"TEMP","DATAO",50.67,3822)
+3130913
+"TEMP","DATAO",50.67,3823)
+134654^3130913.050945^7^358^
+"TEMP","DATAO",50.67,3824)
+3130913
+"TEMP","DATAO",50.67,3825)
+134487^3130913.050945^7^358^
+"TEMP","DATAO",50.67,3826)
+3130913
+"TEMP","DATAO",50.67,3827)
+124872^3130913.050946^7^358^
+"TEMP","DATAO",50.67,3828)
+3130913
+"TEMP","DATAO",50.67,3829)
+124871^3130913.050946^7^358^
+"TEMP","DATAO",50.67,3830)
+3130913
+"TEMP","DATAO",50.67,3831)
+124870^3130913.050947^7^358^
+"TEMP","DATAO",50.67,3832)
+3130913
+"TEMP","DATAO",50.67,3833)
+124869^3130913.050947^7^358^
+"TEMP","DATAO",50.67,3834)
+3130913
+"TEMP","DATAO",50.67,3835)
+124868^3130913.050947^7^358^
+"TEMP","DATAO",50.67,3836)
+3130913
+"TEMP","DATAO",50.67,3837)
+124867^3130913.050948^7^358^
+"TEMP","DATAO",50.67,3838)
+3130913
+"TEMP","DATAO",50.67,3839)
+124866^3130913.050948^7^358^
+"TEMP","DATAO",50.67,3840)
+3130913
+"TEMP","DATAO",50.67,3841)
+116717^3130913.050949^7^358^
+"TEMP","DATAO",50.67,3842)
+3130913
+"TEMP","DATAO",50.67,3843)
+116455^3130913.050949^7^358^
+"TEMP","DATAO",50.67,3844)
+3130913
+"TEMP","DATAO",50.67,3845)
+116454^3130913.05095^7^358^
+"TEMP","DATAO",50.67,3846)
+3130913
+"TEMP","DATAO",50.67,3847)
+116453^3130913.05095^7^358^
+"TEMP","DATAO",50.67,3848)
+3130913
+"TEMP","DATAO",50.67,3849)
+116452^3130913.05095^7^358^
+"TEMP","DATAO",50.67,3850)
+3130913
+"TEMP","DATAO",50.67,3851)
+114022^3130913.050951^7^358^
+"TEMP","DATAO",50.67,3852)
+3130913
+"TEMP","DATAO",50.67,3853)
+113445^3130913.050951^7^358^
+"TEMP","DATAO",50.67,3854)
+3130913
+"TEMP","DATAO",50.67,3855)
+113444^3130913.050952^7^358^
+"TEMP","DATAO",50.67,3856)
+3130913
+"TEMP","DATAO",50.67,3857)
+113443^3130913.050952^7^358^
+"TEMP","DATAO",50.67,3858)
+3130913
+"TEMP","DATAO",50.67,3859)
+140512^3130913.050953^7^358^
+"TEMP","DATAO",50.67,3860)
+3130913
+"TEMP","DATAO",50.67,3861)
+140240^3130913.050953^7^358^
+"TEMP","DATAO",50.67,3862)
+3130913
+"TEMP","DATAO",50.67,3863)
+140121^3130913.050954^7^358^
+"TEMP","DATAO",50.67,3864)
+3130913
+"TEMP","DATAO",50.67,3865)
+150928^3130913.050954^7^358^
+"TEMP","DATAO",50.67,3866)
+3130913
+"TEMP","DATAO",50.67,3867)
+150874^3130913.050955^7^358^
+"TEMP","DATAO",50.67,3868)
+3130913
+"TEMP","DATAO",50.67,3869)
+150500^3130913.050955^7^358^
+"TEMP","DATAO",50.67,3870)
+3130913
+"TEMP","DATAO",50.67,3871)
+139881^3130913.050955^7^358^
+"TEMP","DATAO",50.67,3872)
+3130913
+"TEMP","DATAO",50.67,3873)
+139880^3130913.050956^7^358^
+"TEMP","DATAO",50.67,3874)
+3130913
+"TEMP","DATAO",50.67,3875)
+135936^3130913.050956^7^358^
+"TEMP","DATAO",50.67,3876)
+3130913
+"TEMP","DATAO",50.67,3877)
+135935^3130913.050957^7^358^
+"TEMP","DATAO",50.67,3878)
+3130913
+"TEMP","DATAO",50.67,3879)
+135934^3130913.050957^7^358^
+"TEMP","DATAO",50.67,3880)
+3130913
+"TEMP","DATAO",50.67,3881)
+135933^3130913.050958^7^358^
+"TEMP","DATAO",50.67,3882)
+3130913
+"TEMP","DATAO",50.67,3883)
+135932^3130913.050958^7^358^
+"TEMP","DATAO",50.67,3884)
+3130913
+"TEMP","DATAO",50.67,3885)
+135931^3130913.050958^7^358^
+"TEMP","DATAO",50.67,3886)
+3130913
+"TEMP","DATAO",50.67,3887)
+135760^3130913.050959^7^358^
+"TEMP","DATAO",50.67,3888)
+3130913
+"TEMP","DATAO",50.67,3889)
+135759^3130913.050959^7^358^
+"TEMP","DATAO",50.67,3890)
+3130913
+"TEMP","DATAO",50.67,3891)
+128937^3130913.051^7^358^
+"TEMP","DATAO",50.67,3892)
+3130913
+"TEMP","DATAO",50.67,3893)
+128921^3130913.051^7^358^
+"TEMP","DATAO",50.67,3894)
+3130913
+"TEMP","DATAO",50.67,3895)
+128969^3130913.051001^7^358^
+"TEMP","DATAO",50.67,3896)
+3130913
+"TEMP","DATAO",50.67,3897)
+128968^3130913.051001^7^358^
+"TEMP","DATAO",50.67,3898)
+3130913
+"TEMP","DATAO",50.67,3899)
+128967^3130913.051002^7^358^
+"TEMP","DATAO",50.67,3900)
+3130913
+"TEMP","DATAO",50.67,3901)
+128067^3130913.051002^7^358^
+"TEMP","DATAO",50.67,3902)
+3130913
+"TEMP","DATAO",50.67,3903)
+128066^3130913.051003^7^358^
+"TEMP","DATAO",50.67,3904)
+3130913
+"TEMP","DATAO",50.67,3905)
+127886^3130913.051003^7^358^
+"TEMP","DATAO",50.67,3906)
+3130913
+"TEMP","DATAO",50.67,3907)
+134454^3130913.051004^7^358^
+"TEMP","DATAO",50.67,3908)
+3130913
+"TEMP","DATAO",50.67,3909)
+134453^3130913.051004^7^358^
+"TEMP","DATAO",50.67,3910)
+3130913
+"TEMP","DATAO",50.67,3911)
+134452^3130913.051004^7^358^
+"TEMP","DATAO",50.67,3912)
+3130913
+"TEMP","DATAO",50.67,3913)
+134451^3130913.051005^7^358^
+"TEMP","DATAO",50.67,3914)
+3130913
+"TEMP","DATAO",50.67,3915)
+134450^3130913.051006^7^358^
+"TEMP","DATAO",50.67,3916)
+3130913
+"TEMP","DATAO",50.67,3917)
+134323^3130913.051006^7^358^
+"TEMP","DATAO",50.67,3918)
+3130913
+"TEMP","DATAO",50.67,3919)
+134322^3130913.051006^7^358^
+"TEMP","DATAO",50.67,3920)
+3130913
+"TEMP","DATAO",50.67,3921)
+134321^3130913.051007^7^358^
+"TEMP","DATAO",50.67,3922)
+3130913
+"TEMP","DATAO",50.67,3923)
+134320^3130913.051007^7^358^
+"TEMP","DATAO",50.67,3924)
+3130913
+"TEMP","DATAO",50.67,3925)
+126952^3130913.051008^7^358^
+"TEMP","DATAO",50.67,3926)
+3130913
+"TEMP","DATAO",50.67,3927)
+126006^3130913.051008^7^358^
+"TEMP","DATAO",50.67,3928)
+3130913
+"TEMP","DATAO",50.67,3929)
+126005^3130913.051008^7^358^
+"TEMP","DATAO",50.67,3930)
+3130913
+"TEMP","DATAO",50.67,3931)
+126004^3130913.051009^7^358^
+"TEMP","DATAO",50.67,3932)
+3130913
+"TEMP","DATAO",50.67,3933)
+126003^3130913.051009^7^358^
+"TEMP","DATAO",50.67,3934)
+3130913
+"TEMP","DATAO",50.67,3935)
+126002^3130913.05101^7^358^
+"TEMP","DATAO",50.67,3936)
+3130913
+"TEMP","DATAO",50.67,3937)
+142971^3130913.05101^7^358^
+"TEMP","DATAO",50.67,3938)
+3130913
+"TEMP","DATAO",50.67,3939)
+142970^3130913.051011^7^358^
+"TEMP","DATAO",50.67,3940)
+3130913
+"TEMP","DATAO",50.67,3941)
+142999^3130913.051011^7^358^
+"TEMP","DATAO",50.67,3942)
+3130913
+"TEMP","DATAO",50.67,3943)
+142998^3130913.051012^7^358^
+"TEMP","DATAO",50.67,3944)
+3130913
+"TEMP","DATAO",50.67,3945)
+142997^3130913.051012^7^358^
+"TEMP","DATAO",50.67,3946)
+3130913
+"TEMP","DATAO",50.67,3947)
+198341^3130913.051012^7^358^
+"TEMP","DATAO",50.67,3948)
+3130913
+"TEMP","DATAO",50.67,3949)
+142885^3130913.051013^7^358^
+"TEMP","DATAO",50.67,3950)
+3130913
+"TEMP","DATAO",50.67,3951)
+142884^3130913.051013^7^358^
+"TEMP","DATAO",50.67,3952)
+3130913
+"TEMP","DATAO",50.67,3953)
+132205^3130913.051014^7^358^
+"TEMP","DATAO",50.67,3954)
+3130913
+"TEMP","DATAO",50.67,3955)
+132204^3130913.051014^7^358^
+"TEMP","DATAO",50.67,3956)
+3130913
+"TEMP","DATAO",50.67,3957)
+132053^3130913.051014^7^358^
+"TEMP","DATAO",50.67,3958)
+3130913
+"TEMP","DATAO",50.67,3959)
+132052^3130913.051015^7^358^
+"TEMP","DATAO",50.67,3960)
+3130913
+"TEMP","DATAO",50.67,3961)
+132051^3130913.051015^7^358^
+"TEMP","DATAO",50.67,3962)
+3130913
+"TEMP","DATAO",50.67,3963)
+132050^3130913.051016^7^358^
+"TEMP","DATAO",50.67,3964)
+3130913
+"TEMP","DATAO",50.67,3965)
+131848^3130913.051016^7^358^
+"TEMP","DATAO",50.67,3966)
+3130913
+"TEMP","DATAO",50.67,3967)
+131847^3130913.051017^7^358^
+"TEMP","DATAO",50.67,3968)
+3130913
+"TEMP","DATAO",50.67,3969)
+131846^3130913.051017^7^358^
+"TEMP","DATAO",50.67,3970)
+3130913
+"TEMP","DATAO",50.67,3971)
+139174^3130913.051017^7^358^
+"TEMP","DATAO",50.67,3972)
+3130913
+"TEMP","DATAO",50.67,3973)
+139556^3130913.051018^7^358^
+"TEMP","DATAO",50.67,3974)
+3130913
+"TEMP","DATAO",50.67,3975)
+139555^3130913.051018^7^358^
+"TEMP","DATAO",50.67,3976)
+3130913
+"TEMP","DATAO",50.67,3977)
+139554^3130913.051019^7^358^
+"TEMP","DATAO",50.67,3978)
+3130913
+"TEMP","DATAO",50.67,3979)
+138461^3130913.051019^7^358^
+"TEMP","DATAO",50.67,3980)
+3130913
+"TEMP","DATAO",50.67,3981)
+138401^3130913.05102^7^358^
+"TEMP","DATAO",50.67,3982)
+3130913
+"TEMP","DATAO",50.67,3983)
+138400^3130913.05102^7^358^
+"TEMP","DATAO",50.67,3984)
+3130913
+"TEMP","DATAO",50.67,3985)
+138311^3130913.051021^7^358^
+"TEMP","DATAO",50.67,3986)
+3130913
+"TEMP","DATAO",50.67,3987)
+130879^3130913.051021^7^358^
+"TEMP","DATAO",50.67,3988)
+3130913
+"TEMP","DATAO",50.67,3989)
+130878^3130913.051021^7^358^
+"TEMP","DATAO",50.67,3990)
+3130913
+"TEMP","DATAO",50.67,3991)
+130877^3130913.051022^7^358^
+"TEMP","DATAO",50.67,3992)
+3130913
+"TEMP","DATAO",50.67,3993)
+130876^3130913.051022^7^358^
+"TEMP","DATAO",50.67,3994)
+3130913
+"TEMP","DATAO",50.67,3995)
+130875^3130913.051023^7^358^
+"TEMP","DATAO",50.67,3996)
+3130913
+"TEMP","DATAO",50.67,3997)
+177149^3130913.051023^7^358^
+"TEMP","DATAO",50.67,3998)
+3130913
+"TEMP","DATAO",50.67,3999)
+165307^3130913.051024^7^358^
+"TEMP","DATAO",50.67,4000)
+3130913
+"TEMP","DATAO",50.67,4001)
+165292^3130913.051024^7^358^
+"TEMP","DATAO",50.67,4002)
+3130913
+"TEMP","DATAO",50.67,4003)
+127885^3130913.051024^7^358^
+"TEMP","DATAO",50.67,4004)
+3130913
+"TEMP","DATAO",50.67,4005)
+127884^3130913.051025^7^358^
+"TEMP","DATAO",50.67,4006)
+3130913
+"TEMP","DATAO",50.67,4007)
+127883^3130913.051025^7^358^
+"TEMP","DATAO",50.67,4008)
+3130913
+"TEMP","DATAO",50.67,4009)
+127882^3130913.051026^7^358^
+"TEMP","DATAO",50.67,4010)
+3130913
+"TEMP","DATAO",50.67,4011)
+127553^3130913.051026^7^358^
+"TEMP","DATAO",50.67,4012)
+3130913
+"TEMP","DATAO",50.67,4013)
+126955^3130913.051027^7^358^
+"TEMP","DATAO",50.67,4014)
+3130913
+"TEMP","DATAO",50.67,4015)
+126954^3130913.051027^7^358^
+"TEMP","DATAO",50.67,4016)
+3130913
+"TEMP","DATAO",50.67,4017)
+126953^3130913.051027^7^358^
+"TEMP","DATAO",50.67,4018)
+3130913
+"TEMP","DATAO",50.67,4019)
+125887^3130913.051028^7^358^
+"TEMP","DATAO",50.67,4020)
+3130913
+"TEMP","DATAO",50.67,4021)
+125886^3130913.051028^7^358^
+"TEMP","DATAO",50.67,4022)
+3130913
+"TEMP","DATAO",50.67,4023)
+125885^3130913.051029^7^358^
+"TEMP","DATAO",50.67,4024)
+3130913
+"TEMP","DATAO",50.67,4025)
+125884^3130913.051029^7^358^
+"TEMP","DATAO",50.67,4026)
+3130913
+"TEMP","DATAO",50.67,4027)
+125883^3130913.05103^7^358^
+"TEMP","DATAO",50.67,4028)
+3130913
+"TEMP","DATAO",50.67,4029)
+125882^3130913.05103^7^358^
+"TEMP","DATAO",50.67,4030)
+3130913
+"TEMP","DATAO",50.67,4031)
+125285^3130913.05103^7^358^
+"TEMP","DATAO",50.67,4032)
+3130913
+"TEMP","DATAO",50.67,4033)
+125284^3130913.051031^7^358^
+"TEMP","DATAO",50.67,4034)
+3130913
+"TEMP","DATAO",50.67,4035)
+125283^3130913.051031^7^358^
+"TEMP","DATAO",50.67,4036)
+3130913
+"TEMP","DATAO",50.67,4037)
+131845^3130913.051032^7^358^
+"TEMP","DATAO",50.67,4038)
+3130913
+"TEMP","DATAO",50.67,4039)
+131556^3130913.051032^7^358^
+"TEMP","DATAO",50.67,4040)
+3130913
+"TEMP","DATAO",50.67,4041)
+131527^3130913.051032^7^358^
+"TEMP","DATAO",50.67,4042)
+3130913
+"TEMP","DATAO",50.67,4043)
+130969^3130913.051033^7^358^
+"TEMP","DATAO",50.67,4044)
+3130913
+"TEMP","DATAO",50.67,4045)
+130882^3130913.051033^7^358^
+"TEMP","DATAO",50.67,4046)
+3130913
+"TEMP","DATAO",50.67,4047)
+130881^3130913.051034^7^358^
+"TEMP","DATAO",50.67,4048)
+3130913
+"TEMP","DATAO",50.67,4049)
+130880^3130913.051034^7^358^
+"TEMP","DATAO",50.67,4050)
+3130913
+"TEMP","DATAO",50.67,4051)
+129161^3130913.051035^7^358^
+"TEMP","DATAO",50.67,4052)
+3130913
+"TEMP","DATAO",50.67,4053)
+129160^3130913.051035^7^358^
+"TEMP","DATAO",50.67,4054)
+3130913
+"TEMP","DATAO",50.67,4055)
+129108^3130913.051036^7^358^
+"TEMP","DATAO",50.67,4056)
+3130913
+"TEMP","DATAO",50.67,4057)
+129107^3130913.051036^7^358^
+"TEMP","DATAO",50.67,4058)
+3130913
+"TEMP","DATAO",50.67,4059)
+129106^3130913.051036^7^358^
+"TEMP","DATAO",50.67,4060)
+3130913
+"TEMP","DATAO",50.67,4061)
+129032^3130913.051037^7^358^
+"TEMP","DATAO",50.67,4062)
+3130913
+"TEMP","DATAO",50.67,4063)
+128938^3130913.051037^7^358^
+"TEMP","DATAO",50.67,4064)
+3130913
+"TEMP","DATAO",50.67,4065)
+112619^3130913.051038^7^358^
+"TEMP","DATAO",50.67,4066)
+3130913
+"TEMP","DATAO",50.67,4067)
+112618^3130913.051038^7^358^
+"TEMP","DATAO",50.67,4068)
+3130913
+"TEMP","DATAO",50.67,4069)
+112617^3130913.051038^7^358^
+"TEMP","DATAO",50.67,4070)
+3130913
+"TEMP","DATAO",50.67,4071)
+141491^3130913.051039^7^358^
+"TEMP","DATAO",50.67,4072)
+3130913
+"TEMP","DATAO",50.67,4073)
+141490^3130913.051039^7^358^
+"TEMP","DATAO",50.67,4074)
+3130913
+"TEMP","DATAO",50.67,4075)
+141438^3130913.05104^7^358^
+"TEMP","DATAO",50.67,4076)
+3130913
+"TEMP","DATAO",50.67,4077)
+156732^3130913.05104^7^358^
+"TEMP","DATAO",50.67,4078)
+3130913
+"TEMP","DATAO",50.67,4079)
+152105^3130913.051041^7^358^
+"TEMP","DATAO",50.67,4080)
+3130913
+"TEMP","DATAO",50.67,4081)
+152069^3130913.051041^7^358^
+"TEMP","DATAO",50.67,4082)
+3130913
+"TEMP","DATAO",50.67,4083)
+167061^3130913.051042^7^358^
+"TEMP","DATAO",50.67,4084)
+3130913
+"TEMP","DATAO",50.67,4085)
+111238^3130913.051042^7^358^
+"TEMP","DATAO",50.67,4086)
+3130913
+"TEMP","DATAO",50.67,4087)
+111237^3130913.051043^7^358^
+"TEMP","DATAO",50.67,4088)
+3130913
+"TEMP","DATAO",50.67,4089)
+141363^3130913.051043^7^358^
+"TEMP","DATAO",50.67,4090)
+3130913
+"TEMP","DATAO",50.67,4091)
+141362^3130913.051044^7^358^
+"TEMP","DATAO",50.67,4092)
+3130913
+"TEMP","DATAO",50.67,4093)
+141299^3130913.051044^7^358^
+"TEMP","DATAO",50.67,4094)
+3130913
+"TEMP","DATAO",50.67,4095)
+110681^3130913.051045^7^358^
+"TEMP","DATAO",50.67,4096)
+3130913
+"TEMP","DATAO",50.67,4097)
+110610^3130913.051045^7^358^
+"TEMP","DATAO",50.67,4098)
+3130913
+"TEMP","DATAO",50.67,4099)
+110609^3130913.051045^7^358^
+"TEMP","DATAO",50.67,4100)
+3130913
+"TEMP","DATAO",50.67,4101)
+110608^3130913.051046^7^358^
+"TEMP","DATAO",50.67,4102)
+3130913
+"TEMP","DATAO",50.67,4103)
+130627^3130913.051046^7^358^
+"TEMP","DATAO",50.67,4104)
+3130913
+"TEMP","DATAO",50.67,4105)
+130626^3130913.051047^7^358^
+"TEMP","DATAO",50.67,4106)
+3130913
+"TEMP","DATAO",50.67,4107)
+130625^3130913.051047^7^358^
+"TEMP","DATAO",50.67,4108)
+3130913
+"TEMP","DATAO",50.67,4109)
+190370^3130913.051047^7^358^
+"TEMP","DATAO",50.67,4110)
+3130913
+"TEMP","DATAO",50.67,4111)
+190300^3130913.051048^7^358^
+"TEMP","DATAO",50.67,4112)
+3130913
+"TEMP","DATAO",50.67,4113)
+190299^3130913.051048^7^358^
+"TEMP","DATAO",50.67,4114)
+3130913
+"TEMP","DATAO",50.67,4115)
+190298^3130913.051049^7^358^
+"TEMP","DATAO",50.67,4116)
+3130913
+"TEMP","DATAO",50.67,4117)
+190297^3130913.051049^7^358^
+"TEMP","DATAO",50.67,4118)
+3130913
+"TEMP","DATAO",50.67,4119)
+182200^3130913.05105^7^358^
+"TEMP","DATAO",50.67,4120)
+3130913
+"TEMP","DATAO",50.67,4121)
+111236^3130913.05105^7^358^
+"TEMP","DATAO",50.67,4122)
+3130913
+"TEMP","DATAO",50.67,4123)
+111235^3130913.051051^7^358^
+"TEMP","DATAO",50.67,4124)
+3130913
+"TEMP","DATAO",50.67,4125)
+111234^3130913.051051^7^358^
+"TEMP","DATAO",50.67,4126)
+3130913
+"TEMP","DATAO",50.67,4127)
+111233^3130913.051051^7^358^
+"TEMP","DATAO",50.67,4128)
+3130913
+"TEMP","DATAO",50.67,4129)
+111232^3130913.051052^7^358^
+"TEMP","DATAO",50.67,4130)
+3130913
+"TEMP","DATAO",50.67,4131)
+111231^3130913.051052^7^358^
+"TEMP","DATAO",50.67,4132)
+3130913
+"TEMP","DATAO",50.67,4133)
+111230^3130913.051053^7^358^
+"TEMP","DATAO",50.67,4134)
+3130913
+"TEMP","DATAO",50.67,4135)
+111229^3130913.051053^7^358^
+"TEMP","DATAO",50.67,4136)
+3130913
+"TEMP","DATAO",50.67,4137)
+111990^3130913.051054^7^358^
+"TEMP","DATAO",50.67,4138)
+3130913
+"TEMP","DATAO",50.67,4139)
+111989^3130913.051054^7^358^
+"TEMP","DATAO",50.67,4140)
+3130913
+"TEMP","DATAO",50.67,4141)
+111988^3130913.051054^7^358^
+"TEMP","DATAO",50.67,4142)
+3130913
+"TEMP","DATAO",50.67,4143)
+111987^3130913.051055^7^358^
+"TEMP","DATAO",50.67,4144)
+3130913
+"TEMP","DATAO",50.67,4145)
+171242^3130913.051055^7^358^
+"TEMP","DATAO",50.67,4146)
+3130913
+"TEMP","DATAO",50.67,4147)
+172735^3130913.051056^7^358^
+"TEMP","DATAO",50.67,4148)
+3130913
+"TEMP","DATAO",50.67,4149)
+149305^3130913.051056^7^358^
+"TEMP","DATAO",50.67,4150)
+3130913
+"TEMP","DATAO",50.67,4151)
+147861^3130913.051057^7^358^
+"TEMP","DATAO",50.67,4152)
+3130913
+"TEMP","DATAO",50.67,4153)
+147860^3130913.051057^7^358^
+"TEMP","DATAO",50.67,4154)
+3130913
+"TEMP","DATAO",50.67,4155)
+182199^3130913.051058^7^358^
+"TEMP","DATAO",50.67,4156)
+3130913
+"TEMP","DATAO",50.67,4157)
+177846^3130913.051058^7^358^
+"TEMP","DATAO",50.67,4158)
+3130913
+"TEMP","DATAO",50.67,4159)
+161752^3130913.051059^7^358^
+"TEMP","DATAO",50.67,4160)
+3130913
+"TEMP","DATAO",50.67,4161)
+161751^3130913.051059^7^358^
+"TEMP","DATAO",50.67,4162)
+3130913
+"TEMP","DATAO",50.67,4163)
+161497^3130913.0511^7^358^
+"TEMP","DATAO",50.67,4164)
+3130913
+"TEMP","DATAO",50.67,4165)
+156773^3130913.0511^7^358^
+"TEMP","DATAO",50.67,4166)
+3130913
+"TEMP","DATAO",50.67,4167)
+151473^3130913.051101^7^358^
+"TEMP","DATAO",50.67,4168)
+3130913
+"TEMP","DATAO",50.67,4169)
+143322^3130913.051101^7^358^
+"TEMP","DATAO",50.67,4170)
+3130913
+"TEMP","DATAO",50.67,4171)
+137849^3130913.051102^7^358^
+"TEMP","DATAO",50.67,4172)
+3130913
+"TEMP","DATAO",50.67,4173)
+137848^3130913.051103^7^358^
+"TEMP","DATAO",50.67,4174)
+3130913
+"TEMP","DATAO",50.67,4175)
+137847^3130913.051103^7^358^
+"TEMP","DATAO",50.67,4176)
+3130913
+"TEMP","DATAO",50.67,4177)
+137846^3130913.051103^7^358^
+"TEMP","DATAO",50.67,4178)
+3130913
+"TEMP","DATAO",50.67,4179)
+137845^3130913.051104^7^358^
+"TEMP","DATAO",50.67,4180)
+3130913
+"TEMP","DATAO",50.67,4181)
+137844^3130913.051104^7^358^
+"TEMP","DATAO",50.67,4182)
+3130913
+"TEMP","DATAO",50.67,4183)
+182983^3130913.051105^7^358^
+"TEMP","DATAO",50.67,4184)
+3130913
+"TEMP","DATAO",50.67,4185)
+147859^3130913.051105^7^358^
+"TEMP","DATAO",50.67,4186)
+3130913
+"TEMP","DATAO",50.67,4187)
+142348^3130913.051105^7^358^
+"TEMP","DATAO",50.67,4188)
+3130913
+"TEMP","DATAO",50.67,4189)
+133059^3130913.051106^7^358^
+"TEMP","DATAO",50.67,4190)
+3130913
+"TEMP","DATAO",50.67,4191)
+133112^3130913.051107^7^358^
+"TEMP","DATAO",50.67,4192)
+3130913
+"TEMP","DATAO",50.67,4193)
+170681^3130913.051107^7^358^
+"TEMP","DATAO",50.67,4194)
+3130913
+"TEMP","DATAO",50.67,4195)
+157710^3130913.051108^7^358^
+"TEMP","DATAO",50.67,4196)
+3130913
+"TEMP","DATAO",50.67,4197)
+157709^3130913.051108^7^358^
+"TEMP","DATAO",50.67,4198)
+3130913
+"TEMP","DATAO",50.67,4199)
+182982^3130913.051109^7^358^
+"TEMP","DATAO",50.67,4200)
+3130913
+"TEMP","DATAO",50.67,4201)
+128587^3130913.051109^7^358^
+"TEMP","DATAO",50.67,4202)
+3130913
+"TEMP","DATAO",50.67,4203)
+128586^3130913.051109^7^358^
+"TEMP","DATAO",50.67,4204)
+3130913
+"TEMP","DATAO",50.67,4205)
+126405^3130913.05111^7^358^
+"TEMP","DATAO",50.67,4206)
+3130913
+"TEMP","DATAO",50.67,4207)
+126404^3130913.05111^7^358^
+"TEMP","DATAO",50.67,4208)
+3130913
+"TEMP","DATAO",50.67,4209)
+126120^3130913.051111^7^358^
+"TEMP","DATAO",50.67,4210)
+3130913
+"TEMP","DATAO",50.67,4211)
+126119^3130913.051111^7^358^
+"TEMP","DATAO",50.67,4212)
+3130913
+"TEMP","DATAO",50.67,4213)
+115568^3130913.051112^7^358^
+"TEMP","DATAO",50.67,4214)
+3130913
+"TEMP","DATAO",50.67,4215)
+133450^3130913.051112^7^358^
+"TEMP","DATAO",50.67,4216)
+3130913
+"TEMP","DATAO",50.67,4217)
+133505^3130913.051113^7^358^
+"TEMP","DATAO",50.67,4218)
+3130913
+"TEMP","DATAO",50.67,4219)
+133504^3130913.051113^7^358^
+"TEMP","DATAO",50.67,4220)
+3130913
+"TEMP","DATAO",50.67,4221)
+169566^3130913.051114^7^358^
+"TEMP","DATAO",50.67,4222)
+3130913
+"TEMP","DATAO",50.67,4223)
+169565^3130913.051114^7^358^
+"TEMP","DATAO",50.67,4224)
+3130913
+"TEMP","DATAO",50.67,4225)
+169564^3130913.051114^7^358^
+"TEMP","DATAO",50.67,4226)
+3130913
+"TEMP","DATAO",50.67,4227)
+153812^3130913.051115^7^358^
+"TEMP","DATAO",50.67,4228)
+3130913
+"TEMP","DATAO",50.67,4229)
+153811^3130913.051115^7^358^
+"TEMP","DATAO",50.67,4230)
+3130913
+"TEMP","DATAO",50.67,4231)
+153810^3130913.051116^7^358^
+"TEMP","DATAO",50.67,4232)
+3130913
+"TEMP","DATAO",50.67,4233)
+101291^3130913.051116^7^358^
+"TEMP","DATAO",50.67,4234)
+3130913
+"TEMP","DATAO",50.67,4235)
+114985^3130913.051117^7^358^
+"TEMP","DATAO",50.67,4236)
+3130913
+"TEMP","DATAO",50.67,4237)
+149065^3130913.051118^7^358^
+"TEMP","DATAO",50.67,4238)
+3130913
+"TEMP","DATAO",50.67,4239)
+149064^3130913.051118^7^358^
+"TEMP","DATAO",50.67,4240)
+3130913
+"TEMP","DATAO",50.67,4241)
+149063^3130913.051118^7^358^
+"TEMP","DATAO",50.67,4242)
+3130913
+"TEMP","DATAO",50.67,4243)
+149062^3130913.051119^7^358^
+"TEMP","DATAO",50.67,4244)
+3130913
+"TEMP","DATAO",50.67,4245)
+177003^3130913.051119^7^358^
+"TEMP","DATAO",50.67,4246)
+3130913
+"TEMP","DATAO",50.67,4247)
+176832^3130913.05112^7^358^
+"TEMP","DATAO",50.67,4248)
+3130913
+"TEMP","DATAO",50.67,4249)
+117819^3130913.05112^7^358^
+"TEMP","DATAO",50.67,4250)
+3130913
+"TEMP","DATAO",50.67,4251)
+163504^3130913.051121^7^358^
+"TEMP","DATAO",50.67,4252)
+3130913
+"TEMP","DATAO",50.67,4253)
+141661^3130913.051121^7^358^
+"TEMP","DATAO",50.67,4254)
+3130913
+"TEMP","DATAO",50.67,4255)
+127040^3130913.051121^7^358^
+"TEMP","DATAO",50.67,4256)
+3130913
+"TEMP","DATAO",50.67,4257)
+132902^3130913.051122^7^358^
+"TEMP","DATAO",50.67,4258)
+3130913
+"TEMP","DATAO",50.67,4259)
+132901^3130913.051122^7^358^
+"TEMP","DATAO",50.67,4260)
+3130913
+"TEMP","DATAO",50.67,4261)
+175156^3130913.051123^7^358^
+"TEMP","DATAO",50.67,4262)
+3130913
+"TEMP","DATAO",50.67,4263)
+131517^3130913.051123^7^358^
+"TEMP","DATAO",50.67,4264)
+3130913
+"TEMP","DATAO",50.67,4265)
+125032^3130913.051124^7^358^
+"TEMP","DATAO",50.67,4266)
+3130913
+"TEMP","DATAO",50.67,4267)
+184572^3130913.051124^7^358^
+"TEMP","DATAO",50.67,4268)
+3130913
+"TEMP","DATAO",50.67,4269)
+184571^3130913.051124^7^358^
+"TEMP","DATAO",50.67,4270)
+3130913
+"TEMP","DATAO",50.67,4271)
+141660^3130913.051125^7^358^
+"TEMP","DATAO",50.67,4272)
+3130913
+"TEMP","DATAO",50.67,4273)
+141659^3130913.051125^7^358^
+"TEMP","DATAO",50.67,4274)
+3130913
+"TEMP","DATAO",50.67,4275)
+122311^3130913.051126^7^358^
+"TEMP","DATAO",50.67,4276)
+3130913
+"TEMP","DATAO",50.67,4277)
+122310^3130913.051126^7^358^
+"TEMP","DATAO",50.67,4278)
+3130913
+"TEMP","DATAO",50.67,4279)
+115852^3130913.051127^7^358^
+"TEMP","DATAO",50.67,4280)
+3130913
+"TEMP","DATAO",50.67,4281)
+115851^3130913.051127^7^358^
+"TEMP","DATAO",50.67,4282)
+3130913
+"TEMP","DATAO",50.67,4283)
+115850^3130913.051128^7^358^
+"TEMP","DATAO",50.67,4284)
+3130913
+"TEMP","DATAO",50.67,4285)
+169654^3130913.051128^7^358^
+"TEMP","DATAO",50.67,4286)
+3130913
+"TEMP","DATAO",50.67,4287)
+169653^3130913.051129^7^358^
+"TEMP","DATAO",50.67,4288)
+3130913
+"TEMP","DATAO",50.67,4289)
+184431^3130913.051129^7^358^
+"TEMP","DATAO",50.67,4290)
+3130913
+"TEMP","DATAO",50.67,4291)
+184430^3130913.051129^7^358^
+"TEMP","DATAO",50.67,4292)
+3130913
+"TEMP","DATAO",50.67,4293)
+184429^3130913.05113^7^358^
+"TEMP","DATAO",50.67,4294)
+3130913
+"TEMP","DATAO",50.67,4295)
+190039^3130913.05113^7^358^
+"TEMP","DATAO",50.67,4296)
+3130913
+"TEMP","DATAO",50.67,4297)
+169441^3130913.051131^7^358^
+"TEMP","DATAO",50.67,4298)
+3130913
+"TEMP","DATAO",50.67,4299)
+169440^3130913.051131^7^358^
+"TEMP","DATAO",50.67,4300)
+3130913
+"TEMP","DATAO",50.67,4301)
+169439^3130913.051132^7^358^
+"TEMP","DATAO",50.67,4302)
+3130913
+"TEMP","DATAO",50.67,4303)
+169438^3130913.051132^7^358^
+"TEMP","DATAO",50.67,4304)
+3130913
+"TEMP","DATAO",50.67,4305)
+172596^3130913.051133^7^358^
+"TEMP","DATAO",50.67,4306)
+3130913
+"TEMP","DATAO",50.67,4307)
+112116^3130913.051133^7^358^
+"TEMP","DATAO",50.67,4308)
+3130913
+"TEMP","DATAO",50.67,4309)
+112115^3130913.051134^7^358^
+"TEMP","DATAO",50.67,4310)
+3130913
+"TEMP","DATAO",50.67,4311)
+112114^3130913.051134^7^358^
+"TEMP","DATAO",50.67,4312)
+3130913
+"TEMP","DATAO",50.67,4313)
+112113^3130913.051134^7^358^
+"TEMP","DATAO",50.67,4314)
+3130913
+"TEMP","DATAO",50.67,4315)
+132832^3130913.051135^7^358^
+"TEMP","DATAO",50.67,4316)
+3130913
+"TEMP","DATAO",50.67,4317)
+132831^3130913.051135^7^358^
+"TEMP","DATAO",50.67,4318)
+3130913
+"TEMP","DATAO",50.67,4319)
+175160^3130913.051136^7^358^
+"TEMP","DATAO",50.67,4320)
+3130913
+"TEMP","DATAO",50.67,4321)
+175159^3130913.051136^7^358^
+"TEMP","DATAO",50.67,4322)
+3130913
+"TEMP","DATAO",50.67,4323)
+175158^3130913.051136^7^358^
+"TEMP","DATAO",50.67,4324)
+3130913
+"TEMP","DATAO",50.67,4325)
+175157^3130913.051137^7^358^
+"TEMP","DATAO",50.67,4326)
+3130913
+"TEMP","DATAO",50.67,4327)
+180894^3130913.051138^7^358^
+"TEMP","DATAO",50.67,4328)
+3130913
+"TEMP","DATAO",50.67,4329)
+147212^3130913.051139^7^358^
+"TEMP","DATAO",50.67,4330)
+3130913
+"TEMP","DATAO",50.67,4331)
+172595^3130913.051139^7^358^
+"TEMP","DATAO",50.67,4332)
+3130913
+"TEMP","DATAO",50.67,4333)
+172594^3130913.05114^7^358^
+"TEMP","DATAO",50.67,4334)
+3130913
+"TEMP","DATAO",50.67,4335)
+172593^3130913.05114^7^358^
+"TEMP","DATAO",50.67,4336)
+3130913
+"TEMP","DATAO",50.67,4337)
+172592^3130913.05114^7^358^
+"TEMP","DATAO",50.67,4338)
+3130913
+"TEMP","DATAO",50.67,4339)
+172591^3130913.051141^7^358^
+"TEMP","DATAO",50.67,4340)
+3130913
+"TEMP","DATAO",50.67,4341)
+133347^3130913.051141^7^358^
+"TEMP","DATAO",50.67,4342)
+3130913
+"TEMP","DATAO",50.67,4343)
+184725^3130913.051142^7^358^
+"TEMP","DATAO",50.67,4344)
+3130913
+"TEMP","DATAO",50.67,4345)
+184690^3130913.051142^7^358^
+"TEMP","DATAO",50.67,4346)
+3130913
+"TEMP","DATAO",50.67,4347)
+149061^3130913.051143^7^358^
+"TEMP","DATAO",50.67,4348)
+3130913
+"TEMP","DATAO",50.67,4349)
+149060^3130913.051143^7^358^
+"TEMP","DATAO",50.67,4350)
+3130913
+"TEMP","DATAO",50.67,4351)
+172179^3130913.051143^7^358^
+"TEMP","DATAO",50.67,4352)
+3130913
+"TEMP","DATAO",50.67,4353)
+172178^3130913.051144^7^358^
+"TEMP","DATAO",50.67,4354)
+3130913
+"TEMP","DATAO",50.67,4355)
+172177^3130913.051144^7^358^
+"TEMP","DATAO",50.67,4356)
+3130913
+"TEMP","DATAO",50.67,4357)
+156621^3130913.051145^7^358^
+"TEMP","DATAO",50.67,4358)
+3130913
+"TEMP","DATAO",50.67,4359)
+137332^3130913.051145^7^358^
+"TEMP","DATAO",50.67,4360)
+3130913
+"TEMP","DATAO",50.67,4361)
+137331^3130913.051146^7^358^
+"TEMP","DATAO",50.67,4362)
+3130913
+"TEMP","DATAO",50.67,4363)
+137330^3130913.051146^7^358^
+"TEMP","DATAO",50.67,4364)
+3130913
+"TEMP","DATAO",50.67,4365)
+137329^3130913.051147^7^358^
+"TEMP","DATAO",50.67,4366)
+3130913
+"TEMP","DATAO",50.67,4367)
+156511^3130913.051147^7^358^
+"TEMP","DATAO",50.67,4368)
+3130913
+"TEMP","DATAO",50.67,4369)
+149257^3130913.051147^7^358^
+"TEMP","DATAO",50.67,4370)
+3130913
+"TEMP","DATAO",50.67,4371)
+127315^3130913.051148^7^358^
+"TEMP","DATAO",50.67,4372)
+3130913
+"TEMP","DATAO",50.67,4373)
+127314^3130913.051148^7^358^
+"TEMP","DATAO",50.67,4374)
+3130913
+"TEMP","DATAO",50.67,4375)
+127270^3130913.051149^7^358^
+"TEMP","DATAO",50.67,4376)
+3130913
+"TEMP","DATAO",50.67,4377)
+127269^3130913.051149^7^358^
+"TEMP","DATAO",50.67,4378)
+3130913
+"TEMP","DATAO",50.67,4379)
+127268^3130913.05115^7^358^
+"TEMP","DATAO",50.67,4380)
+3130913
+"TEMP","DATAO",50.67,4381)
+190038^3130913.05115^7^358^
+"TEMP","DATAO",50.67,4382)
+3130913
+"TEMP","DATAO",50.67,4383)
+190037^3130913.05115^7^358^
+"TEMP","DATAO",50.67,4384)
+3130913
+"TEMP","DATAO",50.67,4385)
+170187^3130913.051151^7^358^
+"TEMP","DATAO",50.67,4386)
+3130913
+"TEMP","DATAO",50.67,4387)
+166080^3130913.051151^7^358^
+"TEMP","DATAO",50.67,4388)
+3130913
+"TEMP","DATAO",50.67,4389)
+166079^3130913.051152^7^358^
+"TEMP","DATAO",50.67,4390)
+3130913
+"TEMP","DATAO",50.67,4391)
+166078^3130913.051152^7^358^
+"TEMP","DATAO",50.67,4392)
+3130913
+"TEMP","DATAO",50.67,4393)
+166077^3130913.051152^7^358^
+"TEMP","DATAO",50.67,4394)
+3130913
+"TEMP","DATAO",50.67,4395)
+145136^3130913.051153^7^358^
+"TEMP","DATAO",50.67,4396)
+3130913
+"TEMP","DATAO",50.67,4397)
+183465^3130913.051153^7^358^
+"TEMP","DATAO",50.67,4398)
+3130913
+"TEMP","DATAO",50.67,4399)
+183464^3130913.051154^7^358^
+"TEMP","DATAO",50.67,4400)
+3130913
+"TEMP","DATAO",50.67,4401)
+132987^3130913.051154^7^358^
+"TEMP","DATAO",50.67,4402)
+3130913
+"TEMP","DATAO",50.67,4403)
+132986^3130913.051155^7^358^
+"TEMP","DATAO",50.67,4404)
+3130913
+"TEMP","DATAO",50.67,4405)
+132833^3130913.051155^7^358^
+"TEMP","DATAO",50.67,4406)
+3130913
+"TEMP","DATAO",50.67,4407)
+147211^3130913.051155^7^358^
+"TEMP","DATAO",50.67,4408)
+3130913
+"TEMP","DATAO",50.67,4409)
+147210^3130913.051156^7^358^
+"TEMP","DATAO",50.67,4410)
+3130913
+"TEMP","DATAO",50.67,4411)
+147209^3130913.051156^7^358^
+"TEMP","DATAO",50.67,4412)
+3130913
+"TEMP","DATAO",50.67,4413)
+127045^3130913.051157^7^358^
+"TEMP","DATAO",50.67,4414)
+3130913
+"TEMP","DATAO",50.67,4415)
+127044^3130913.051157^7^358^
+"TEMP","DATAO",50.67,4416)
+3130913
+"TEMP","DATAO",50.67,4417)
+127043^3130913.051157^7^358^
+"TEMP","DATAO",50.67,4418)
+3130913
+"TEMP","DATAO",50.67,4419)
+127042^3130913.051158^7^358^
+"TEMP","DATAO",50.67,4420)
+3130913
+"TEMP","DATAO",50.67,4421)
+127041^3130913.051158^7^358^
+"TEMP","DATAO",50.67,4422)
+3130913
+"TEMP","DATAO",50.67,4423)
+151664^3130913.051158^7^358^
+"TEMP","DATAO",50.67,4424)
+3130913
+"TEMP","DATAO",50.67,4425)
+135308^3130913.051159^7^358^
+"TEMP","DATAO",50.67,4426)
+3130913
+"TEMP","DATAO",50.67,4427)
+135344^3130913.051159^7^358^
+"TEMP","DATAO",50.67,4428)
+3130913
+"TEMP","DATAO",50.67,4429)
+184975^3130913.0512^7^358^
+"TEMP","DATAO",50.67,4430)
+3130913
+"TEMP","DATAO",50.67,4431)
+184974^3130913.051201^7^358^
+"TEMP","DATAO",50.67,4432)
+3130913
+"TEMP","DATAO",50.67,4433)
+111228^3130913.051201^7^358^
+"TEMP","DATAO",50.67,4434)
+3130913
+"TEMP","DATAO",50.67,4435)
+111227^3130913.051202^7^358^
+"TEMP","DATAO",50.67,4436)
+3130913
+"TEMP","DATAO",50.67,4437)
+128535^3130913.051202^7^358^
+"TEMP","DATAO",50.67,4438)
+3130913
+"TEMP","DATAO",50.67,4439)
+177613^3130913.051203^7^358^
+"TEMP","DATAO",50.67,4440)
+3130913
+"TEMP","DATAO",50.67,4441)
+116821^3130913.051203^7^358^
+"TEMP","DATAO",50.67,4442)
+3130913
+"TEMP","DATAO",50.67,4443)
+127267^3130913.051203^7^358^
+"TEMP","DATAO",50.67,4444)
+3130913
+"TEMP","DATAO",50.67,4445)
+127266^3130913.051204^7^358^
+"TEMP","DATAO",50.67,4446)
+3130913
+"TEMP","DATAO",50.67,4447)
+127162^3130913.051204^7^358^
+"TEMP","DATAO",50.67,4448)
+3130913
+"TEMP","DATAO",50.67,4449)
+104567^3130913.051205^7^358^
+"TEMP","DATAO",50.67,4450)
+3130913
+"TEMP","DATAO",50.67,4451)
+127161^3130913.051205^7^358^
+"TEMP","DATAO",50.67,4452)
+3130913
+"TEMP","DATAO",50.67,4453)
+137138^3130913.051206^7^358^
+"TEMP","DATAO",50.67,4454)
+3130913
+"TEMP","DATAO",50.67,4455)
+184973^3130913.051206^7^358^
+"TEMP","DATAO",50.67,4456)
+3130913
+"TEMP","DATAO",50.67,4457)
+167463^3130913.051207^7^358^
+"TEMP","DATAO",50.67,4458)
+3130913
+"TEMP","DATAO",50.67,4459)
+188010^3130913.051207^7^358^
+"TEMP","DATAO",50.67,4460)
+3130913
+"TEMP","DATAO",50.67,4461)
+133451^3130913.051208^7^358^
+"TEMP","DATAO",50.67,4462)
+3130913
+"TEMP","DATAO",50.67,4463)
+153660^3130913.051208^7^358^
+"TEMP","DATAO",50.67,4464)
+3130913
+"TEMP","DATAO",50.67,4465)
+153659^3130913.051209^7^358^
+"TEMP","DATAO",50.67,4466)
+3130913
+"TEMP","DATAO",50.67,4467)
+153658^3130913.051209^7^358^
+"TEMP","DATAO",50.67,4468)
+3130913
+"TEMP","DATAO",50.67,4469)
+155510^3130913.051209^7^358^
+"TEMP","DATAO",50.67,4470)
+3130913
+"TEMP","DATAO",50.67,4471)
+112443^3130913.05121^7^358^
+"TEMP","DATAO",50.67,4472)
+3130913
+"TEMP","DATAO",50.67,4473)
+102234^3130913.05121^7^358^
+"TEMP","DATAO",50.67,4474)
+3130913
+"TEMP","DATAO",50.67,4475)
+156510^3130913.051211^7^358^
+"TEMP","DATAO",50.67,4476)
+3130913
+"TEMP","DATAO",50.67,4477)
+152185^3130913.051211^7^358^
+"TEMP","DATAO",50.67,4478)
+3130913
+"TEMP","DATAO",50.67,4479)
+136354^3130913.051212^7^358^
+"TEMP","DATAO",50.67,4480)
+3130913
+"TEMP","DATAO",50.67,4481)
+137470^3130913.051212^7^358^
+"TEMP","DATAO",50.67,4482)
+3130913
+"TEMP","DATAO",50.67,4483)
+137469^3130913.051213^7^358^
+"TEMP","DATAO",50.67,4484)
+3130913
+"TEMP","DATAO",50.67,4485)
+148653^3130913.051213^7^358^
+"TEMP","DATAO",50.67,4486)
+3130913
+"TEMP","DATAO",50.67,4487)
+148652^3130913.051213^7^358^
+"TEMP","DATAO",50.67,4488)
+3130913
+"TEMP","DATAO",50.67,4489)
+148651^3130913.051214^7^358^
+"TEMP","DATAO",50.67,4490)
+3130913
+"TEMP","DATAO",50.67,4491)
+126731^3130913.051214^7^358^
+"TEMP","DATAO",50.67,4492)
+3130913
+"TEMP","DATAO",50.67,4493)
+126730^3130913.051215^7^358^
+"TEMP","DATAO",50.67,4494)
+3130913
+"TEMP","DATAO",50.67,4495)
+111226^3130913.051215^7^358^
+"TEMP","DATAO",50.67,4496)
+3130913
+"TEMP","DATAO",50.67,4497)
+111225^3130913.051216^7^358^
+"TEMP","DATAO",50.67,4498)
+3130913
+"TEMP","DATAO",50.67,4499)
+149289^3130913.051216^7^358^
+"TEMP","DATAO",50.67,4500)
+3130913
+"TEMP","DATAO",50.67,4501)
+149288^3130913.051216^7^358^
+"TEMP","DATAO",50.67,4502)
+3130913
+"TEMP","DATAO",50.67,4503)
+149287^3130913.051217^7^358^
+"TEMP","DATAO",50.67,4504)
+3130913
+"TEMP","DATAO",50.67,4505)
+149286^3130913.051217^7^358^
+"TEMP","DATAO",50.67,4506)
+3130913
+"TEMP","DATAO",50.67,4507)
+149285^3130913.051218^7^358^
+"TEMP","DATAO",50.67,4508)
+3130913
+"TEMP","DATAO",50.67,4509)
+121455^3130913.051218^7^358^
+"TEMP","DATAO",50.67,4510)
+3130913
+"TEMP","DATAO",50.67,4511)
+165042^3130913.051218^7^358^
+"TEMP","DATAO",50.67,4512)
+3130913
+"TEMP","DATAO",50.67,4513)
+128537^3130913.051219^7^358^
+"TEMP","DATAO",50.67,4514)
+3130913
+"TEMP","DATAO",50.67,4515)
+128536^3130913.051219^7^358^
+"TEMP","DATAO",50.67,4516)
+3130913
+"TEMP","DATAO",50.67,4517)
+115567^3130913.05122^7^358^
+"TEMP","DATAO",50.67,4518)
+3130913
+"TEMP","DATAO",50.67,4519)
+115521^3130913.05122^7^358^
+"TEMP","DATAO",50.67,4520)
+3130913
+"TEMP","DATAO",50.67,4521)
+115520^3130913.051221^7^358^
+"TEMP","DATAO",50.67,4522)
+3130913
+"TEMP","DATAO",50.67,4523)
+115519^3130913.051221^7^358^
+"TEMP","DATAO",50.67,4524)
+3130913
+"TEMP","DATAO",50.67,4525)
+139552^3130913.051222^7^358^
+"TEMP","DATAO",50.67,4526)
+3130913
+"TEMP","DATAO",50.67,4527)
+177108^3130913.051222^7^358^
+"TEMP","DATAO",50.67,4528)
+3130913
+"TEMP","DATAO",50.67,4529)
+177100^3130913.051223^7^358^
+"TEMP","DATAO",50.67,4530)
+3130913
+"TEMP","DATAO",50.67,4531)
+118866^3130913.051224^7^358^
+"TEMP","DATAO",50.67,4532)
+3130913
+"TEMP","DATAO",50.67,4533)
+174788^3130913.051225^7^358^
+"TEMP","DATAO",50.67,4534)
+3130913
+"TEMP","DATAO",50.67,4535)
+174787^3130913.051225^7^358^
+"TEMP","DATAO",50.67,4536)
+3130913
+"TEMP","DATAO",50.67,4537)
+174713^3130913.051226^7^358^
+"TEMP","DATAO",50.67,4538)
+3130913
+"TEMP","DATAO",50.67,4539)
+174712^3130913.051227^7^358^
+"TEMP","DATAO",50.67,4540)
+3130913
+"TEMP","DATAO",50.67,4541)
+106644^3130913.051228^7^358^
+"TEMP","DATAO",50.67,4542)
+3130913
+"TEMP","DATAO",50.67,4543)
+106645^3130913.051229^7^358^
+"TEMP","DATAO",50.67,4544)
+3130913
+"TEMP","DATAO",50.67,4545)
+160529^3130913.051229^7^358^
+"TEMP","DATAO",50.67,4546)
+3130913
+"TEMP","DATAO",50.67,4547)
+160520^3130913.05123^7^358^
+"TEMP","DATAO",50.67,4548)
+3130913
+"TEMP","DATAO",50.67,4549)
+174644^3130913.05123^7^358^
+"TEMP","DATAO",50.67,4550)
+3130913
+"TEMP","DATAO",50.67,4551)
+174593^3130913.051231^7^358^
+"TEMP","DATAO",50.67,4552)
+3130913
+"TEMP","DATAO",50.67,4553)
+174592^3130913.051231^7^358^
+"TEMP","DATAO",50.67,4554)
+3130913
+"TEMP","DATAO",50.67,4555)
+111689^3130913.051232^7^358^
+"TEMP","DATAO",50.67,4556)
+3130913
+"TEMP","DATAO",50.67,4557)
+158513^3130913.051232^7^358^
+"TEMP","DATAO",50.67,4558)
+3130913
+"TEMP","DATAO",50.67,4559)
+172670^3130913.051233^7^358^
+"TEMP","DATAO",50.67,4560)
+3130913
+"TEMP","DATAO",50.67,4561)
+172669^3130913.051233^7^358^
+"TEMP","DATAO",50.67,4562)
+3130913
+"TEMP","DATAO",50.67,4563)
+141658^3130913.051234^7^358^
+"TEMP","DATAO",50.67,4564)
+3130913
+"TEMP","DATAO",50.67,4565)
+137038^3130913.051234^7^358^
+"TEMP","DATAO",50.67,4566)
+3130913
+"TEMP","DATAO",50.67,4567)
+137037^3130913.051235^7^358^
+"TEMP","DATAO",50.67,4568)
+3130913
+"TEMP","DATAO",50.67,4569)
+115767^3130913.051236^7^358^
+"TEMP","DATAO",50.67,4570)
+3130913
+"TEMP","DATAO",50.67,4571)
+115766^3130913.051236^7^358^
+"TEMP","DATAO",50.67,4572)
+3130913
+"TEMP","DATAO",50.67,4573)
+115765^3130913.051237^7^358^
+"TEMP","DATAO",50.67,4574)
+3130913
+"TEMP","DATAO",50.67,4575)
+137036^3130913.051238^7^358^
+"TEMP","DATAO",50.67,4576)
+3130913
+"TEMP","DATAO",50.67,4577)
+120951^3130913.051238^7^358^
+"TEMP","DATAO",50.67,4578)
+3130913
+"TEMP","DATAO",50.67,4579)
+122409^3130913.051238^7^358^
+"TEMP","DATAO",50.67,4580)
+3130913
+"TEMP","DATAO",50.67,4581)
+122408^3130913.051239^7^358^
+"TEMP","DATAO",50.67,4582)
+3130913
+"TEMP","DATAO",50.67,4583)
+122407^3130913.051239^7^358^
+"TEMP","DATAO",50.67,4584)
+3130913
+"TEMP","DATAO",50.67,4585)
+122368^3130913.05124^7^358^
+"TEMP","DATAO",50.67,4586)
+3130913
+"TEMP","DATAO",50.67,4587)
+122367^3130913.05124^7^358^
+"TEMP","DATAO",50.67,4588)
+3130913
+"TEMP","DATAO",50.67,4589)
+122366^3130913.051241^7^358^
+"TEMP","DATAO",50.67,4590)
+3130913
+"TEMP","DATAO",50.67,4591)
+122312^3130913.051241^7^358^
+"TEMP","DATAO",50.67,4592)
+3130913
+"TEMP","DATAO",50.67,4593)
+115664^3130913.051242^7^358^
+"TEMP","DATAO",50.67,4594)
+3130913
+"TEMP","DATAO",50.67,4595)
+115663^3130913.051242^7^358^
+"TEMP","DATAO",50.67,4596)
+3130913
+"TEMP","DATAO",50.67,4597)
+115662^3130913.051242^7^358^
+"TEMP","DATAO",50.67,4598)
+3130913
+"TEMP","DATAO",50.67,4599)
+115569^3130913.051243^7^358^
+"TEMP","DATAO",50.67,4600)
+3130913
+"TEMP","DATAO",50.67,4601)
+118838^3130913.051243^7^358^
+"TEMP","DATAO",50.67,4602)
+3130913
+"TEMP","DATAO",50.67,4603)
+135041^3130913.051244^7^358^
+"TEMP","DATAO",50.67,4604)
+3130913
+"TEMP","DATAO",50.67,4605)
+107381^3130913.051245^7^358^
+"TEMP","DATAO",50.67,4606)
+3130913
+"TEMP","DATAO",50.67,4607)
+135040^3130913.051245^7^358^
+"TEMP","DATAO",50.67,4608)
+3130913
+"TEMP","DATAO",50.67,4609)
+135039^3130913.051246^7^358^
+"TEMP","DATAO",50.67,4610)
+3130913
+"TEMP","DATAO",50.67,4611)
+114348^3130913.051246^7^358^
+"TEMP","DATAO",50.67,4612)
+3130913
+"TEMP","DATAO",50.67,4613)
+114347^3130913.051247^7^358^
+"TEMP","DATAO",50.67,4614)
+3130913
+"TEMP","DATAO",50.67,4615)
+171912^3130913.051247^7^358^
+"TEMP","DATAO",50.67,4616)
+3130913
+"TEMP","DATAO",50.67,4617)
+174645^3130913.051248^7^358^
+"TEMP","DATAO",50.67,4618)
+3130913
+"TEMP","DATAO",50.67,4619)
+126787^3130913.051249^7^358^
+"TEMP","DATAO",50.67,4620)
+3130913
+"TEMP","DATAO",50.67,4621)
+126732^3130913.051249^7^358^
+"TEMP","DATAO",50.67,4622)
+3130913
+"TEMP","DATAO",50.67,4623)
+183463^3130913.05125^7^358^
+"TEMP","DATAO",50.67,4624)
+3130913
+"TEMP","DATAO",50.67,4625)
+139238^3130913.05125^7^358^
+"TEMP","DATAO",50.67,4626)
+3130913
+"TEMP","DATAO",50.67,4627)
+139237^3130913.051251^7^358^
+"TEMP","DATAO",50.67,4628)
+3130913
+"TEMP","DATAO",50.67,4629)
+148650^3130913.051251^7^358^
+"TEMP","DATAO",50.67,4630)
+3130913
+"TEMP","DATAO",50.67,4631)
+149260^3130913.051251^7^358^
+"TEMP","DATAO",50.67,4632)
+3130913
+"TEMP","DATAO",50.67,4633)
+163505^3130913.051252^7^358^
+"TEMP","DATAO",50.67,4634)
+3130913
+"TEMP","DATAO",50.67,4635)
+125037^3130913.051252^7^358^
+"TEMP","DATAO",50.67,4636)
+3130913
+"TEMP","DATAO",50.67,4637)
+127160^3130913.051253^7^358^
+"TEMP","DATAO",50.67,4638)
+3130913
+"TEMP","DATAO",50.67,4639)
+127159^3130913.051253^7^358^
+"TEMP","DATAO",50.67,4640)
+3130913
+"TEMP","DATAO",50.67,4641)
+126793^3130913.051254^7^358^
+"TEMP","DATAO",50.67,4642)
+3130913
+"TEMP","DATAO",50.67,4643)
+153662^3130913.051254^7^358^
+"TEMP","DATAO",50.67,4644)
+3130913
+"TEMP","DATAO",50.67,4645)
+153661^3130913.051254^7^358^
+"TEMP","DATAO",50.67,4646)
+3130913
+"TEMP","DATAO",50.67,4647)
+149259^3130913.051255^7^358^
+"TEMP","DATAO",50.67,4648)
+3130913
+"TEMP","DATAO",50.67,4649)
+149258^3130913.051255^7^358^
+"TEMP","DATAO",50.67,4650)
+3130913
+"TEMP","DATAO",50.67,4651)
+190036^3130913.051256^7^358^
+"TEMP","DATAO",50.67,4652)
+3130913
+"TEMP","DATAO",50.67,4653)
+190035^3130913.051256^7^358^
+"TEMP","DATAO",50.67,4654)
+3130913
+"TEMP","DATAO",50.67,4655)
+190034^3130913.051256^7^358^
+"TEMP","DATAO",50.67,4656)
+3130913
+"TEMP","DATAO",50.67,4657)
+127412^3130913.051257^7^358^
+"TEMP","DATAO",50.67,4658)
+3130913
+"TEMP","DATAO",50.67,4659)
+127411^3130913.051257^7^358^
+"TEMP","DATAO",50.67,4660)
+3130913
+"TEMP","DATAO",50.67,4661)
+132763^3130913.051258^7^358^
+"TEMP","DATAO",50.67,4662)
+3130913
+"TEMP","DATAO",50.67,4663)
+132762^3130913.051258^7^358^
+"TEMP","DATAO",50.67,4664)
+3130913
+"TEMP","DATAO",50.67,4665)
+132761^3130913.051258^7^358^
+"TEMP","DATAO",50.67,4666)
+3130913
+"TEMP","DATAO",50.67,4667)
+132760^3130913.051259^7^358^
+"TEMP","DATAO",50.67,4668)
+3130913
+"TEMP","DATAO",50.67,4669)
+147252^3130913.051259^7^358^
+"TEMP","DATAO",50.67,4670)
+3130913
+"TEMP","DATAO",50.67,4671)
+126792^3130913.0513^7^358^
+"TEMP","DATAO",50.67,4672)
+3130913
+"TEMP","DATAO",50.67,4673)
+126791^3130913.0513^7^358^
+"TEMP","DATAO",50.67,4674)
+3130913
+"TEMP","DATAO",50.67,4675)
+126790^3130913.051301^7^358^
+"TEMP","DATAO",50.67,4676)
+3130913
+"TEMP","DATAO",50.67,4677)
+126789^3130913.051301^7^358^
+"TEMP","DATAO",50.67,4678)
+3130913
+"TEMP","DATAO",50.67,4679)
+126788^3130913.051302^7^358^
+"TEMP","DATAO",50.67,4680)
+3130913
+"TEMP","DATAO",50.67,4681)
+166395^3130913.051302^7^358^
+"TEMP","DATAO",50.67,4682)
+3130913
+"TEMP","DATAO",50.67,4683)
+166394^3130913.051303^7^358^
+"TEMP","DATAO",50.67,4684)
+3130913
+"TEMP","DATAO",50.67,4685)
+148098^3130913.051303^7^358^
+"TEMP","DATAO",50.67,4686)
+3130913
+"TEMP","DATAO",50.67,4687)
+184394^3130913.051303^7^358^
+"TEMP","DATAO",50.67,4688)
+3130913
+"TEMP","DATAO",50.67,4689)
+184380^3130913.051304^7^358^
+"TEMP","DATAO",50.67,4690)
+3130913
+"TEMP","DATAO",50.67,4691)
+132686^3130913.051304^7^358^
+"TEMP","DATAO",50.67,4692)
+3130913
+"TEMP","DATAO",50.67,4693)
+132988^3130913.051305^7^358^
+"TEMP","DATAO",50.67,4694)
+3130913
+"TEMP","DATAO",50.67,4695)
+125031^3130913.051305^7^358^
+"TEMP","DATAO",50.67,4696)
+3130913
+"TEMP","DATAO",50.67,4697)
+125030^3130913.051306^7^358^
+"TEMP","DATAO",50.67,4698)
+3130913
+"TEMP","DATAO",50.67,4699)
+125029^3130913.051306^7^358^
+"TEMP","DATAO",50.67,4700)
+3130913
+"TEMP","DATAO",50.67,4701)
+165750^3130913.051307^7^358^
+"TEMP","DATAO",50.67,4702)
+3130913
+"TEMP","DATAO",50.67,4703)
+147251^3130913.051307^7^358^
+"TEMP","DATAO",50.67,4704)
+3130913
+"TEMP","DATAO",50.67,4705)
+147250^3130913.051307^7^358^
+"TEMP","DATAO",50.67,4706)
+3130913
+"TEMP","DATAO",50.67,4707)
+147249^3130913.051308^7^358^
+"TEMP","DATAO",50.67,4708)
+3130913
+"TEMP","DATAO",50.67,4709)
+132900^3130913.051308^7^358^
+"TEMP","DATAO",50.67,4710)
+3130913
+"TEMP","DATAO",50.67,4711)
+132899^3130913.051309^7^358^
+"TEMP","DATAO",50.67,4712)
+3130913
+"TEMP","DATAO",50.67,4713)
+136033^3130913.051309^7^358^
+"TEMP","DATAO",50.67,4714)
+3130913
+"TEMP","DATAO",50.67,4715)
+136032^3130913.051309^7^358^
+"TEMP","DATAO",50.67,4716)
+3130913
+"TEMP","DATAO",50.67,4717)
+184412^3130913.05131^7^358^
+"TEMP","DATAO",50.67,4718)
+3130913
+"TEMP","DATAO",50.67,4719)
+119080^3130913.05131^7^358^
+"TEMP","DATAO",50.67,4720)
+3130913
+"TEMP","DATAO",50.67,4721)
+111690^3130913.051311^7^358^
+"TEMP","DATAO",50.67,4722)
+3130913
+"TEMP","DATAO",50.67,4723)
+127410^3130913.051311^7^358^
+"TEMP","DATAO",50.67,4724)
+3130913
+"TEMP","DATAO",50.67,4725)
+127409^3130913.051312^7^358^
+"TEMP","DATAO",50.67,4726)
+3130913
+"TEMP","DATAO",50.67,4727)
+127408^3130913.051312^7^358^
+"TEMP","DATAO",50.67,4728)
+3130913
+"TEMP","DATAO",50.67,4729)
+127407^3130913.051312^7^358^
+"TEMP","DATAO",50.67,4730)
+3130913
+"TEMP","DATAO",50.67,4731)
+178267^3130913.051313^7^358^
+"TEMP","DATAO",50.67,4732)
+3130913
+"TEMP","DATAO",50.67,4733)
+178266^3130913.051313^7^358^
+"TEMP","DATAO",50.67,4734)
+3130913
+"TEMP","DATAO",50.67,4735)
+177788^3130913.051314^7^358^
+"TEMP","DATAO",50.67,4736)
+3130913
+"TEMP","DATAO",50.67,4737)
+126729^3130913.051314^7^358^
+"TEMP","DATAO",50.67,4738)
+3130913
+"TEMP","DATAO",50.67,4739)
+126834^3130913.051315^7^358^
+"TEMP","DATAO",50.67,4740)
+3130913
+"TEMP","DATAO",50.67,4741)
+126833^3130913.051315^7^358^
+"TEMP","DATAO",50.67,4742)
+3130913
+"TEMP","DATAO",50.67,4743)
+132688^3130913.051315^7^358^
+"TEMP","DATAO",50.67,4744)
+3130913
+"TEMP","DATAO",50.67,4745)
+132687^3130913.051316^7^358^
+"TEMP","DATAO",50.67,4746)
+3130913
+"TEMP","DATAO",50.67,4747)
+125036^3130913.051316^7^358^
+"TEMP","DATAO",50.67,4748)
+3130913
+"TEMP","DATAO",50.67,4749)
+125035^3130913.051317^7^358^
+"TEMP","DATAO",50.67,4750)
+3130913
+"TEMP","DATAO",50.67,4751)
+125034^3130913.051317^7^358^
+"TEMP","DATAO",50.67,4752)
+3130913
+"TEMP","DATAO",50.67,4753)
+125033^3130913.051317^7^358^
+"TEMP","DATAO",50.67,4754)
+3130913
+"TEMP","DATAO",50.67,4755)
+177702^3130913.051318^7^358^
+"TEMP","DATAO",50.67,4756)
+3130913
+"TEMP","DATAO",50.67,4757)
+136755^3130913.051318^7^358^
+"TEMP","DATAO",50.67,4758)
+3130913
+"TEMP","DATAO",50.67,4759)
+136754^3130913.051319^7^358^
+"TEMP","DATAO",50.67,4760)
+3130913
+"TEMP","DATAO",50.67,4761)
+136753^3130913.051319^7^358^
+"TEMP","DATAO",50.67,4762)
+3130913
+"TEMP","DATAO",50.67,4763)
+136752^3130913.05132^7^358^
+"TEMP","DATAO",50.67,4764)
+3130913
+"TEMP","DATAO",50.67,4765)
+172597^3130913.05132^7^358^
+"TEMP","DATAO",50.67,4766)
+3130913
+"TEMP","DATAO",50.67,4767)
+153809^3130913.05132^7^358^
+"TEMP","DATAO",50.67,4768)
+3130913
+"TEMP","DATAO",50.67,4769)
+153808^3130913.051321^7^358^
+"TEMP","DATAO",50.67,4770)
+3130913
+"TEMP","DATAO",50.67,4771)
+153807^3130913.051321^7^358^
+"TEMP","DATAO",50.67,4772)
+3130913
+"TEMP","DATAO",50.67,4773)
+153663^3130913.051322^7^358^
+"TEMP","DATAO",50.67,4774)
+3130913
+"TEMP","DATAO",50.67,4775)
+183766^3130913.051323^7^358^
+"TEMP","DATAO",50.67,4776)
+3130913
+"TEMP","DATAO",50.67,4777)
+139924^3130913.051325^7^358^
+"TEMP","DATAO",50.67,4778)
+3130913
+"TEMP","DATAO",50.67,4779)
+139930^3130913.051326^7^358^
+"TEMP","DATAO",50.67,4780)
+3130913
+"TEMP","DATAO",50.67,4781)
+128811^3130913.051347^7^358^
+"TEMP","DATAO",50.67,4782)
+3130913
+"TEMP","DATAO",50.67,4783)
+128810^3130913.051347^7^358^
+"TEMP","DATAO",50.67,4784)
+3130913
+"TEMP","DATAO",50.67,4785)
+128781^3130913.051347^7^358^
+"TEMP","DATAO",50.67,4786)
+3130913
+"TEMP","DATAO",50.67,4787)
+128780^3130913.051348^7^358^
+"TEMP","DATAO",50.67,4788)
+3130913
+"TEMP","DATAO",50.67,4789)
+182070^3130913.051348^7^358^
+"TEMP","DATAO",50.67,4790)
+3130913
+"TEMP","DATAO",50.67,4791)
+182069^3130913.051349^7^358^
+"TEMP","DATAO",50.67,4792)
+3130913
+"TEMP","DATAO",50.67,4793)
+182068^3130913.051349^7^358^
+"TEMP","DATAO",50.67,4794)
+3130913
+"TEMP","DATAO",50.67,4795)
+106294^3130913.05135^7^358^
+"TEMP","DATAO",50.67,4796)
+3130913
+"TEMP","DATAO",50.67,4797)
+17326^3130913.05135^7^358^
+"TEMP","DATAO",50.67,4798)
+3130913
+"TEMP","DATAO",50.67,4799)
+180779^3130913.051351^7^358^
+"TEMP","DATAO",50.67,4800)
+3130913
+"TEMP","DATAO",50.67,4801)
+115307^3130913.051354^7^358^
+"TEMP","DATAO",50.67,4802)
+3130913
+"TEMP","DATAO",50.67,4803)
+183398^3130913.051409^4^358^
+"TEMP","DATAO",50.67,4804)
+POVIDONE-IODINE
+"TEMP","DATAO",50.67,4805)
+183398^3130913.051409^7^358^
+"TEMP","DATAO",50.67,4806)
+
+"TEMP","DATAO",50.67,4807)
+183398^3130913.05141^8^358^
+"TEMP","DATAO",50.67,4808)
+4665
+"TEMP","DATAO",50.67,4809)
+155227^3130913.051415^7^358^
+"TEMP","DATAO",50.67,4810)
+
+"TEMP","DATAO",50.67,4811)
+90240^3130913.05142^7^358^
+"TEMP","DATAO",50.67,4812)
+3130913
+"TEMP","DATAO",50.67,4813)
+159228^3130913.051423^7^358^
+"TEMP","DATAO",50.67,4814)
+3130913
+"TEMP","DATAO",50.67,4815)
+200141^3130913.051424^7^358^
+"TEMP","DATAO",50.67,4816)
+3130913
+"TEMP","DATAO",50.67,4817)
+199076^3130913.05155^7^358^
+"TEMP","DATAO",50.67,4818)
+3130913
+"TEMP","DATAO",50.67,4819)
+199096^3130913.051552^7^358^
+"TEMP","DATAO",50.67,4820)
+3130913
+"TEMP","DATAO",50.67,4821)
+148266^3130913.051641^7^358^
+"TEMP","DATAO",50.67,4822)
+
+"TEMP","DATAO",50.67,4823)
+190173^3130913.051642^4^358^
+"TEMP","DATAO",50.67,4824)
+ACETAMINOPHEN
+"TEMP","DATAO",50.67,4825)
+190173^3130913.051642^7^358^
+"TEMP","DATAO",50.67,4826)
+
+"TEMP","DATAO",50.67,4827)
+148541^3130913.051642^7^358^
+"TEMP","DATAO",50.67,4828)
+
+"TEMP","DATAO",50.67,4829)
+165134^3130913.051643^7^358^
+"TEMP","DATAO",50.67,4830)
+
+"TEMP","DATAO",50.67,4831)
+144180^3130913.051643^7^358^
+"TEMP","DATAO",50.67,4832)
+
+"TEMP","DATAO",50.67,4833)
+120832^3130913.051658^7^358^
+"TEMP","DATAO",50.67,4834)
+
+"TEMP","DATAO",50.67,4835)
+173004^3130913.051712^7^358^
+"TEMP","DATAO",50.67,4836)
+3130913
+"TEMP","DATAO",50.67,4837)
+173003^3130913.051712^7^358^
+"TEMP","DATAO",50.67,4838)
+3130913
+"TEMP","DATAO",50.67,4839)
+173002^3130913.051712^7^358^
+"TEMP","DATAO",50.67,4840)
+3130913
+"TEMP","DATAO",50.67,4841)
+173295^3130913.051713^7^358^
+"TEMP","DATAO",50.67,4842)
+3130913
+"TEMP","DATAO",50.67,4843)
+173294^3130913.051713^7^358^
+"TEMP","DATAO",50.67,4844)
+3130913
+"TEMP","DATAO",50.67,4845)
+173152^3130913.051714^7^358^
+"TEMP","DATAO",50.67,4846)
+3130913
+"TEMP","DATAO",50.67,4847)
+173198^3130913.051714^7^358^
+"TEMP","DATAO",50.67,4848)
+3130913
+"TEMP","DATAO",50.67,4849)
+173197^3130913.051715^7^358^
+"TEMP","DATAO",50.67,4850)
+3130913
+"TEMP","DATAO",50.67,4851)
+173177^3130913.051717^7^358^
+"TEMP","DATAO",50.67,4852)
+3130913
+"TEMP","DATAO",50.67,4853)
+173176^3130913.051717^7^358^
+"TEMP","DATAO",50.67,4854)
+3130913
+"TEMP","DATAO",50.67,4855)
+173026^3130913.051719^7^358^
+"TEMP","DATAO",50.67,4856)
+3130913
+"TEMP","DATAO",50.67,4857)
+172982^3130913.05172^7^358^
+"TEMP","DATAO",50.67,4858)
+3130913
+"TEMP","DATAO",50.67,4859)
+173041^3130913.05172^7^358^
+"TEMP","DATAO",50.67,4860)
+3130913
+"TEMP","DATAO",50.67,4861)
+173040^3130913.051721^7^358^
+"TEMP","DATAO",50.67,4862)
+3130913
+"TEMP","DATAO",50.67,4863)
+173039^3130913.051721^7^358^
+"TEMP","DATAO",50.67,4864)
+3130913
+"TEMP","DATAO",50.67,4865)
+192193^3130913.051727^7^358^
+"TEMP","DATAO",50.67,4866)
+3130913
+"TEMP","DATAO",50.67,4867)
+197619^3130913.051752^4^358^
+"TEMP","DATAO",50.67,4868)
+AMANTADINE HCL
+"TEMP","DATAO",50.67,4869)
+202062^3130913.150236^1^358^
+"TEMP","DATAO",50.67,4870)
+099000305632
+"TEMP","DATAO",50.67,4871)
+202062^3130913.150236^3^358^
+"TEMP","DATAO",50.67,4872)
+1154
+"TEMP","DATAO",50.67,4873)
+202062^3130913.150236^4^358^
+"TEMP","DATAO",50.67,4874)
+SUCTION CANISTER
+"TEMP","DATAO",50.67,4875)
+202062^3130913.150236^5^358^
+"TEMP","DATAO",50.67,4876)
+24151
+"TEMP","DATAO",50.67,4877)
+202062^3130913.150236^8^358^
+"TEMP","DATAO",50.67,4878)
+4592
+"TEMP","DATAO",50.67,4879)
+202062^3130913.150237^9^358^
+"TEMP","DATAO",50.67,4880)
+936
+"TEMP","DATAO",50.67,4881)
+202062^3130913.150237^10^358^
+"TEMP","DATAO",50.67,4882)
+O
+"TEMP","DATAO",50.67,4883)
+202063^3130913.150654^1^358^
+"TEMP","DATAO",50.67,4884)
+000430053750
+"TEMP","DATAO",50.67,4885)
+202063^3130913.150654^3^358^
+"TEMP","DATAO",50.67,4886)
+3756
+"TEMP","DATAO",50.67,4887)
+202063^3130913.150654^4^358^
+"TEMP","DATAO",50.67,4888)
+LO MINASTRIN FE
+"TEMP","DATAO",50.67,4889)
+202063^3130913.150654^5^358^
+"TEMP","DATAO",50.67,4890)
+24152
+"TEMP","DATAO",50.67,4891)
+202063^3130913.150654^8^358^
+"TEMP","DATAO",50.67,4892)
+4591
+"TEMP","DATAO",50.67,4893)
+202063^3130913.150654^9^358^
+"TEMP","DATAO",50.67,4894)
+974
+"TEMP","DATAO",50.67,4895)
+202063^3130913.150654^10^358^
+"TEMP","DATAO",50.67,4896)
+R
+"TEMP","DATAO",50.67,4897)
+202064^3130913.150656^1^358^
+"TEMP","DATAO",50.67,4898)
+000430053714
+"TEMP","DATAO",50.67,4899)
+202064^3130913.150656^3^358^
+"TEMP","DATAO",50.67,4900)
+3756
+"TEMP","DATAO",50.67,4901)
+202064^3130913.150656^4^358^
+"TEMP","DATAO",50.67,4902)
+LO MINASTRIN FE
+"TEMP","DATAO",50.67,4903)
+202064^3130913.150656^5^358^
+"TEMP","DATAO",50.67,4904)
+24152
+"TEMP","DATAO",50.67,4905)
+202064^3130913.150656^8^358^
+"TEMP","DATAO",50.67,4906)
+4591
+"TEMP","DATAO",50.67,4907)
+202064^3130913.150656^9^358^
+"TEMP","DATAO",50.67,4908)
+974
+"TEMP","DATAO",50.67,4909)
+202064^3130913.150656^10^358^
+"TEMP","DATAO",50.67,4910)
+R
+"TEMP","DATAO",50.67,4911)
+202065^3130913.151105^1^358^
+"TEMP","DATAO",50.67,4912)
+000299598030
+"TEMP","DATAO",50.67,4913)
+202065^3130913.151105^3^358^
+"TEMP","DATAO",50.67,4914)
+3562
+"TEMP","DATAO",50.67,4915)
+202065^3130913.151105^4^358^
+"TEMP","DATAO",50.67,4916)
+MIRVASO
+"TEMP","DATAO",50.67,4917)
+202065^3130913.151105^5^358^
+"TEMP","DATAO",50.67,4918)
+24153
+"TEMP","DATAO",50.67,4919)
+202065^3130913.151105^8^358^
+"TEMP","DATAO",50.67,4920)
+4597
+"TEMP","DATAO",50.67,4921)
+202065^3130913.151105^9^358^
+"TEMP","DATAO",50.67,4922)
+597
+"TEMP","DATAO",50.67,4923)
+202065^3130913.151105^10^358^
+"TEMP","DATAO",50.67,4924)
+R
+"TEMP","DATAO",50.67,4925)
+202066^3130916.081459^1^358^
+"TEMP","DATAO",50.67,4926)
+068258303706
+"TEMP","DATAO",50.67,4927)
+202066^3130916.0815^3^358^
+"TEMP","DATAO",50.67,4928)
+2853
+"TEMP","DATAO",50.67,4929)
+202066^3130916.0815^4^358^
+"TEMP","DATAO",50.67,4930)
+VENTOLIN HFA
+"TEMP","DATAO",50.67,4931)
+202066^3130916.0815^5^358^
+"TEMP","DATAO",50.67,4932)
+17354
+"TEMP","DATAO",50.67,4933)
+202066^3130916.0815^8^358^
+"TEMP","DATAO",50.67,4934)
+4605
+"TEMP","DATAO",50.67,4935)
+202066^3130916.0815^9^358^
+"TEMP","DATAO",50.67,4936)
+121
+"TEMP","DATAO",50.67,4937)
+202066^3130916.0815^10^358^
+"TEMP","DATAO",50.67,4938)
+R
+"TEMP","DATAO",50.67,4939)
+121469^3130916.105114^5^358^
+"TEMP","DATAO",50.67,4940)
+2043
+"TEMP","DATAO",50.67,4941)
+121460^3130916.105227^3^358^
+"TEMP","DATAO",50.67,4942)
+2853
+"TEMP","DATAO",50.67,4943)
+121460^3130916.105227^5^358^
+"TEMP","DATAO",50.67,4944)
+2043
+"TEMP","DATAO",50.67,4945)
+121463^3130916.105229^5^358^
+"TEMP","DATAO",50.67,4946)
+2043
+"TEMP","DATAO",50.67,4947)
+121466^3130916.105231^5^358^
+"TEMP","DATAO",50.67,4948)
+2043
+"TEMP","DATAO",50.67,4949)
+121468^3130916.105233^5^358^
+"TEMP","DATAO",50.67,4950)
+2043
+"TEMP","DATAO",50.67,4951)
+191885^3130916.10543^5^358^
+"TEMP","DATAO",50.67,4952)
+2043
+"TEMP","DATAO",50.67,4953)
+121457^3130916.105432^5^358^
+"TEMP","DATAO",50.67,4954)
+2043
+"TEMP","DATAO",50.67,4955)
+121459^3130916.105433^5^358^
+"TEMP","DATAO",50.67,4956)
+2043
+"TEMP","DATAO",50.67,4957)
+121461^3130916.105435^5^358^
+"TEMP","DATAO",50.67,4958)
+2043
+"TEMP","DATAO",50.67,4959)
+121465^3130916.105437^5^358^
+"TEMP","DATAO",50.67,4960)
+2043
+"TEMP","DATAO",50.67,4961)
+92427^3130917.070034^5^358^
+"TEMP","DATAO",50.67,4962)
+8052
+"TEMP","DATAO",50.67,4963)
+92428^3130917.070129^5^358^
+"TEMP","DATAO",50.67,4964)
+8052
+"TEMP","DATAO",50.67,4965)
+112302^3130917.100211^5^358^
+"TEMP","DATAO",50.67,4966)
+14974
+"TEMP","DATAO",50.67,4967)
+112303^3130917.100213^5^358^
+"TEMP","DATAO",50.67,4968)
+14974
+"TEMP","DATAO",50.67,4969)
+112304^3130917.100216^5^358^
+"TEMP","DATAO",50.67,4970)
+14974
+"TEMP","DATAO",50.67,4971)
+106413^3130917.100218^5^358^
+"TEMP","DATAO",50.67,4972)
+14974
+"TEMP","DATAO",50.67,4973)
+596^3130917.100221^5^358^
+"TEMP","DATAO",50.67,4974)
+14974
+"TEMP","DATAO",50.67,4975)
+202067^3130917.100224^1^358^
+"TEMP","DATAO",50.67,4976)
+099922207609
+"TEMP","DATAO",50.67,4977)
+202067^3130917.100224^3^358^
+"TEMP","DATAO",50.67,4978)
+2998
+"TEMP","DATAO",50.67,4979)
+202067^3130917.100224^4^358^
+"TEMP","DATAO",50.67,4980)
+LARYTUBE
+"TEMP","DATAO",50.67,4981)
+202067^3130917.100224^5^358^
+"TEMP","DATAO",50.67,4982)
+24154
+"TEMP","DATAO",50.67,4983)
+202067^3130917.100224^8^358^
+"TEMP","DATAO",50.67,4984)
+4592
+"TEMP","DATAO",50.67,4985)
+202067^3130917.100224^9^358^
+"TEMP","DATAO",50.67,4986)
+492
+"TEMP","DATAO",50.67,4987)
+202067^3130917.100224^10^358^
+"TEMP","DATAO",50.67,4988)
+R
+"TEMP","DATAO",50.67,4989)
+202068^3130917.100542^1^358^
+"TEMP","DATAO",50.67,4990)
+000319871440
+"TEMP","DATAO",50.67,4991)
+202068^3130917.100542^3^358^
+"TEMP","DATAO",50.67,4992)
+2552
+"TEMP","DATAO",50.67,4993)
+202068^3130917.100542^4^358^
+"TEMP","DATAO",50.67,4994)
+LOFRIC HYDRO KIT
+"TEMP","DATAO",50.67,4995)
+202068^3130917.100542^5^358^
+"TEMP","DATAO",50.67,4996)
+24155
+"TEMP","DATAO",50.67,4997)
+202068^3130917.100542^8^358^
+"TEMP","DATAO",50.67,4998)
+4603
+"TEMP","DATAO",50.67,4999)
+202068^3130917.100542^9^358^
+"TEMP","DATAO",50.67,5000)
+492
+"TEMP","DATAO",50.67,5001)
+202068^3130917.100542^10^358^
+"TEMP","DATAO",50.67,5002)
+R
+"TEMP","DATAO",50.67,5003)
+202069^3130917.100806^1^358^
+"TEMP","DATAO",50.67,5004)
+000319851440
+"TEMP","DATAO",50.67,5005)
+202069^3130917.100806^3^358^
+"TEMP","DATAO",50.67,5006)
+2552
+"TEMP","DATAO",50.67,5007)
+202069^3130917.100806^4^358^
+"TEMP","DATAO",50.67,5008)
+lofric hydro kit
+"TEMP","DATAO",50.67,5009)
+202069^3130917.100806^5^358^
+"TEMP","DATAO",50.67,5010)
+24156
+"TEMP","DATAO",50.67,5011)
+202069^3130917.100806^8^358^
+"TEMP","DATAO",50.67,5012)
+4603
+"TEMP","DATAO",50.67,5013)
+202069^3130917.100806^9^358^
+"TEMP","DATAO",50.67,5014)
+492
+"TEMP","DATAO",50.67,5015)
+202069^3130917.100806^10^358^
+"TEMP","DATAO",50.67,5016)
+R
+"TEMP","DATAO",50.67,5017)
+202070^3130917.100811^1^358^
+"TEMP","DATAO",50.67,5018)
+064727330001
+"TEMP","DATAO",50.67,5019)
+202070^3130917.100811^3^358^
+"TEMP","DATAO",50.67,5020)
+3619
+"TEMP","DATAO",50.67,5021)
+202070^3130917.100811^4^358^
+"TEMP","DATAO",50.67,5022)
+NATURE-THROID
+"TEMP","DATAO",50.67,5023)
+202070^3130917.100811^5^358^
+"TEMP","DATAO",50.67,5024)
+65
+"TEMP","DATAO",50.67,5025)
+202070^3130917.100811^8^358^
+"TEMP","DATAO",50.67,5026)
+4593
+"TEMP","DATAO",50.67,5027)
+202070^3130917.100811^9^358^
+"TEMP","DATAO",50.67,5028)
+491
+"TEMP","DATAO",50.67,5029)
+202070^3130917.100811^10^358^
+"TEMP","DATAO",50.67,5030)
+R
+"TEMP","DATAO",50.67,5031)
+202071^3130917.101027^1^358^
+"TEMP","DATAO",50.67,5032)
+008290309589
+"TEMP","DATAO",50.67,5033)
+202071^3130917.101027^3^358^
+"TEMP","DATAO",50.67,5034)
+2438
+"TEMP","DATAO",50.67,5035)
+202071^3130917.101027^4^358^
+"TEMP","DATAO",50.67,5036)
+BD LUER-LOK SYRINGE WITH NEEDLE
+"TEMP","DATAO",50.67,5037)
+202071^3130917.101027^5^358^
+"TEMP","DATAO",50.67,5038)
+24157
+"TEMP","DATAO",50.67,5039)
+202071^3130917.101027^8^358^
+"TEMP","DATAO",50.67,5040)
+4593
+"TEMP","DATAO",50.67,5041)
+202071^3130917.101027^9^358^
+"TEMP","DATAO",50.67,5042)
+492
+"TEMP","DATAO",50.67,5043)
+202071^3130917.101027^10^358^
+"TEMP","DATAO",50.67,5044)
+R
+"TEMP","DATAO",50.67,5045)
+202072^3130917.102806^1^358^
+"TEMP","DATAO",50.67,5046)
+017433000001
+"TEMP","DATAO",50.67,5047)
+202072^3130917.102806^2^358^
+"TEMP","DATAO",50.67,5048)
+17433-00001
+"TEMP","DATAO",50.67,5049)
+202072^3130917.102806^3^358^
+"TEMP","DATAO",50.67,5050)
+4088
+"TEMP","DATAO",50.67,5051)
+202072^3130917.102806^4^358^
+"TEMP","DATAO",50.67,5052)
+DOCUSOL PLUS
+"TEMP","DATAO",50.67,5053)
+202072^3130917.102806^5^358^
+"TEMP","DATAO",50.67,5054)
+12506
+"TEMP","DATAO",50.67,5055)
+202072^3130917.102806^8^358^
+"TEMP","DATAO",50.67,5056)
+4617
+"TEMP","DATAO",50.67,5057)
+202072^3130917.102806^9^358^
+"TEMP","DATAO",50.67,5058)
+597
+"TEMP","DATAO",50.67,5059)
+202072^3130917.102806^10^358^
+"TEMP","DATAO",50.67,5060)
+O
+"TEMP","DATAO",50.67,5061)
+202073^3130917.102806^1^358^
+"TEMP","DATAO",50.67,5062)
+017433988305
+"TEMP","DATAO",50.67,5063)
+202073^3130917.102806^3^358^
+"TEMP","DATAO",50.67,5064)
+4088
+"TEMP","DATAO",50.67,5065)
+202073^3130917.102806^4^358^
+"TEMP","DATAO",50.67,5066)
+DOCUSOL PLUS
+"TEMP","DATAO",50.67,5067)
+202073^3130917.102806^5^358^
+"TEMP","DATAO",50.67,5068)
+12506
+"TEMP","DATAO",50.67,5069)
+202073^3130917.102806^8^358^
+"TEMP","DATAO",50.67,5070)
+4617
+"TEMP","DATAO",50.67,5071)
+202073^3130917.102806^9^358^
+"TEMP","DATAO",50.67,5072)
+597
+"TEMP","DATAO",50.67,5073)
+202073^3130917.102806^10^358^
+"TEMP","DATAO",50.67,5074)
+O
+"TEMP","DATAO",50.67,5075)
+202074^3130917.121658^1^358^
+"TEMP","DATAO",50.67,5076)
+016781015760
+"TEMP","DATAO",50.67,5077)
+202074^3130917.121658^3^358^
+"TEMP","DATAO",50.67,5078)
+3667
+"TEMP","DATAO",50.67,5079)
+202074^3130917.121658^4^358^
+"TEMP","DATAO",50.67,5080)
+KERAFOAM
+"TEMP","DATAO",50.67,5081)
+202074^3130917.121658^5^358^
+"TEMP","DATAO",50.67,5082)
+24159
+"TEMP","DATAO",50.67,5083)
+202074^3130917.121658^8^358^
+"TEMP","DATAO",50.67,5084)
+4595
+"TEMP","DATAO",50.67,5085)
+202074^3130917.121658^9^358^
+"TEMP","DATAO",50.67,5086)
+491
+"TEMP","DATAO",50.67,5087)
+202074^3130917.121658^10^358^
+"TEMP","DATAO",50.67,5088)
+R
+"TEMP","DATAO",50.67,5089)
+202075^3130917.1217^1^358^
+"TEMP","DATAO",50.67,5090)
+016781015796
+"TEMP","DATAO",50.67,5091)
+202075^3130917.1217^3^358^
+"TEMP","DATAO",50.67,5092)
+3667
+"TEMP","DATAO",50.67,5093)
+202075^3130917.1217^4^358^
+"TEMP","DATAO",50.67,5094)
+KERAFOAM
+"TEMP","DATAO",50.67,5095)
+202075^3130917.1217^5^358^
+"TEMP","DATAO",50.67,5096)
+24159
+"TEMP","DATAO",50.67,5097)
+202075^3130917.1217^8^358^
+"TEMP","DATAO",50.67,5098)
+4593
+"TEMP","DATAO",50.67,5099)
+202075^3130917.1217^9^358^
+"TEMP","DATAO",50.67,5100)
+121
+"TEMP","DATAO",50.67,5101)
+202075^3130917.1217^10^358^
+"TEMP","DATAO",50.67,5102)
+R
+"TEMP","DATAO",50.67,5103)
+95912^3130917.141752^5^358^
+"TEMP","DATAO",50.67,5104)
+24158
+"TEMP","DATAO",50.67,5105)
+87196^3130917.151135^5^358^
+"TEMP","DATAO",50.67,5106)
+24160
+"TEMP","DATAO",50.67,5107)
+87199^3130917.151419^5^358^
+"TEMP","DATAO",50.67,5108)
+24163
+"TEMP","DATAO",50.67,5109)
+87197^3130917.151503^5^358^
+"TEMP","DATAO",50.67,5110)
+24162
+"TEMP","DATAO",50.67,5111)
+87198^3130917.151656^5^358^
+"TEMP","DATAO",50.67,5112)
+24161
+"TEMP","DATAO",50.67,5113)
+202076^3130917.16112^1^358^
+"TEMP","DATAO",50.67,5114)
+067684200001
+"TEMP","DATAO",50.67,5115)
+202076^3130917.16112^3^358^
+"TEMP","DATAO",50.67,5116)
+4368
+"TEMP","DATAO",50.67,5117)
+202076^3130917.16112^4^358^
+"TEMP","DATAO",50.67,5118)
+DOTAREM
+"TEMP","DATAO",50.67,5119)
+202076^3130917.16112^5^358^
+"TEMP","DATAO",50.67,5120)
+24164
+"TEMP","DATAO",50.67,5121)
+202076^3130917.16112^8^358^
+"TEMP","DATAO",50.67,5122)
+4598
+"TEMP","DATAO",50.67,5123)
+202076^3130917.16112^9^358^
+"TEMP","DATAO",50.67,5124)
+613
+"TEMP","DATAO",50.67,5125)
+202076^3130917.16112^10^358^
+"TEMP","DATAO",50.67,5126)
+R
+"TEMP","DATAO",50.67,5127)
+202077^3130917.16151^1^358^
+"TEMP","DATAO",50.67,5128)
+019515089501
+"TEMP","DATAO",50.67,5129)
+202077^3130917.16151^3^358^
+"TEMP","DATAO",50.67,5130)
+3403
+"TEMP","DATAO",50.67,5131)
+202077^3130917.16151^4^358^
+"TEMP","DATAO",50.67,5132)
+FLULAVAL QUAD 2013-2014
+"TEMP","DATAO",50.67,5133)
+202077^3130917.16151^5^358^
+"TEMP","DATAO",50.67,5134)
+24165
+"TEMP","DATAO",50.67,5135)
+202077^3130917.16151^8^358^
+"TEMP","DATAO",50.67,5136)
+4617
+"TEMP","DATAO",50.67,5137)
+202077^3130917.16151^9^358^
+"TEMP","DATAO",50.67,5138)
+613
+"TEMP","DATAO",50.67,5139)
+202077^3130917.16151^10^358^
+"TEMP","DATAO",50.67,5140)
+R
+"TEMP","DATAO",50.67,5141)
+202078^3130917.161512^1^358^
+"TEMP","DATAO",50.67,5142)
+019515089511
+"TEMP","DATAO",50.67,5143)
+202078^3130917.161512^3^358^
+"TEMP","DATAO",50.67,5144)
+3403
+"TEMP","DATAO",50.67,5145)
+202078^3130917.161512^4^358^
+"TEMP","DATAO",50.67,5146)
+FLULAVAL QUAD 2013-2014
+"TEMP","DATAO",50.67,5147)
+202078^3130917.161512^5^358^
+"TEMP","DATAO",50.67,5148)
+24165
+"TEMP","DATAO",50.67,5149)
+202078^3130917.161512^8^358^
+"TEMP","DATAO",50.67,5150)
+4617
+"TEMP","DATAO",50.67,5151)
+202078^3130917.161512^9^358^
+"TEMP","DATAO",50.67,5152)
+613
+"TEMP","DATAO",50.67,5153)
+202078^3130917.161512^10^358^
+"TEMP","DATAO",50.67,5154)
+R
+"TEMP","DATAO",50.67,5155)
+202079^3130918.073613^1^358^
+"TEMP","DATAO",50.67,5156)
+067684200003
+"TEMP","DATAO",50.67,5157)
+202079^3130918.073613^3^358^
+"TEMP","DATAO",50.67,5158)
+4368
+"TEMP","DATAO",50.67,5159)
+202079^3130918.073613^4^358^
+"TEMP","DATAO",50.67,5160)
+DOTAREM
+"TEMP","DATAO",50.67,5161)
+202079^3130918.073613^5^358^
+"TEMP","DATAO",50.67,5162)
+24164
+"TEMP","DATAO",50.67,5163)
+202079^3130918.073613^8^358^
+"TEMP","DATAO",50.67,5164)
+4603
+"TEMP","DATAO",50.67,5165)
+202079^3130918.073613^9^358^
+"TEMP","DATAO",50.67,5166)
+613
+"TEMP","DATAO",50.67,5167)
+202079^3130918.073613^10^358^
+"TEMP","DATAO",50.67,5168)
+R
+"TEMP","DATAO",50.67,5169)
+202080^3130918.073711^1^358^
+"TEMP","DATAO",50.67,5170)
+067684200002
+"TEMP","DATAO",50.67,5171)
+202080^3130918.073711^3^358^
+"TEMP","DATAO",50.67,5172)
+4368
+"TEMP","DATAO",50.67,5173)
+202080^3130918.073711^4^358^
+"TEMP","DATAO",50.67,5174)
+DOTAREM
+"TEMP","DATAO",50.67,5175)
+202080^3130918.073711^5^358^
+"TEMP","DATAO",50.67,5176)
+24164
+"TEMP","DATAO",50.67,5177)
+202080^3130918.073711^8^358^
+"TEMP","DATAO",50.67,5178)
+4589
+"TEMP","DATAO",50.67,5179)
+202080^3130918.073711^9^358^
+"TEMP","DATAO",50.67,5180)
+613
+"TEMP","DATAO",50.67,5181)
+202080^3130918.073711^10^358^
+"TEMP","DATAO",50.67,5182)
+R
+"TEMP","DATAO",50.67,5183)
+202081^3130918.073809^1^358^
+"TEMP","DATAO",50.67,5184)
+067684200004
+"TEMP","DATAO",50.67,5185)
+202081^3130918.073809^3^358^
+"TEMP","DATAO",50.67,5186)
+4368
+"TEMP","DATAO",50.67,5187)
+202081^3130918.073809^4^358^
+"TEMP","DATAO",50.67,5188)
+DOTAREM
+"TEMP","DATAO",50.67,5189)
+202081^3130918.073809^5^358^
+"TEMP","DATAO",50.67,5190)
+24164
+"TEMP","DATAO",50.67,5191)
+202081^3130918.073809^8^358^
+"TEMP","DATAO",50.67,5192)
+4593
+"TEMP","DATAO",50.67,5193)
+202081^3130918.073809^9^358^
+"TEMP","DATAO",50.67,5194)
+613
+"TEMP","DATAO",50.67,5195)
+202081^3130918.073809^10^358^
+"TEMP","DATAO",50.67,5196)
+R
+"TEMP","DATAO",50.67,5197)
+202082^3130918.08223^1^358^
+"TEMP","DATAO",50.67,5198)
+063323046617
+"TEMP","DATAO",50.67,5199)
+202082^3130918.08223^3^358^
+"TEMP","DATAO",50.67,5200)
+3231
+"TEMP","DATAO",50.67,5201)
+202082^3130918.08223^4^358^
+"TEMP","DATAO",50.67,5202)
+SENSORCAINE-MPF
+"TEMP","DATAO",50.67,5203)
+202082^3130918.08223^5^358^
+"TEMP","DATAO",50.67,5204)
+3712
+"TEMP","DATAO",50.67,5205)
+202082^3130918.08223^8^358^
+"TEMP","DATAO",50.67,5206)
+4598
+"TEMP","DATAO",50.67,5207)
+202082^3130918.08223^9^358^
+"TEMP","DATAO",50.67,5208)
+613
+"TEMP","DATAO",50.67,5209)
+202082^3130918.08223^10^358^
+"TEMP","DATAO",50.67,5210)
+R
+"TEMP","DATAO",50.67,5211)
+101868^3130918.091229^5^358^
+"TEMP","DATAO",50.67,5212)
+24166
+"TEMP","DATAO",50.67,5213)
+202083^3130918.091812^1^358^
+"TEMP","DATAO",50.67,5214)
+067684200006
+"TEMP","DATAO",50.67,5215)
+202083^3130918.091812^3^358^
+"TEMP","DATAO",50.67,5216)
+4368
+"TEMP","DATAO",50.67,5217)
+202083^3130918.091812^4^358^
+"TEMP","DATAO",50.67,5218)
+DOTAREM
+"TEMP","DATAO",50.67,5219)
+202083^3130918.091812^5^358^
+"TEMP","DATAO",50.67,5220)
+24167
+"TEMP","DATAO",50.67,5221)
+202083^3130918.091812^8^358^
+"TEMP","DATAO",50.67,5222)
+4589
+"TEMP","DATAO",50.67,5223)
+202083^3130918.091812^9^358^
+"TEMP","DATAO",50.67,5224)
+594
+"TEMP","DATAO",50.67,5225)
+202083^3130918.091812^10^358^
+"TEMP","DATAO",50.67,5226)
+R
+"TEMP","DATAO",50.67,5227)
+202084^3130918.09195^1^358^
+"TEMP","DATAO",50.67,5228)
+067684200007
+"TEMP","DATAO",50.67,5229)
+202084^3130918.09195^3^358^
+"TEMP","DATAO",50.67,5230)
+4368
+"TEMP","DATAO",50.67,5231)
+202084^3130918.09195^4^358^
+"TEMP","DATAO",50.67,5232)
+DOTAREM
+"TEMP","DATAO",50.67,5233)
+202084^3130918.09195^5^358^
+"TEMP","DATAO",50.67,5234)
+24168
+"TEMP","DATAO",50.67,5235)
+202084^3130918.09195^8^358^
+"TEMP","DATAO",50.67,5236)
+4603
+"TEMP","DATAO",50.67,5237)
+202084^3130918.09195^9^358^
+"TEMP","DATAO",50.67,5238)
+594
+"TEMP","DATAO",50.67,5239)
+202084^3130918.09195^10^358^
+"TEMP","DATAO",50.67,5240)
+R
+"TEMP","DATAO",50.67,5241)
+202085^3130918.09242^1^358^
+"TEMP","DATAO",50.67,5242)
+067684200005
+"TEMP","DATAO",50.67,5243)
+202085^3130918.09242^3^358^
+"TEMP","DATAO",50.67,5244)
+4368
+"TEMP","DATAO",50.67,5245)
+202085^3130918.09242^4^358^
+"TEMP","DATAO",50.67,5246)
+DOTAREM
+"TEMP","DATAO",50.67,5247)
+202085^3130918.09242^5^358^
+"TEMP","DATAO",50.67,5248)
+24169
+"TEMP","DATAO",50.67,5249)
+202085^3130918.09242^8^358^
+"TEMP","DATAO",50.67,5250)
+4598
+"TEMP","DATAO",50.67,5251)
+202085^3130918.09242^9^358^
+"TEMP","DATAO",50.67,5252)
+594
+"TEMP","DATAO",50.67,5253)
+202085^3130918.09242^10^358^
+"TEMP","DATAO",50.67,5254)
+R
+"TEMP","DATAO",50.67,5255)
+202086^3130918.092802^1^358^
+"TEMP","DATAO",50.67,5256)
+000395013094
+"TEMP","DATAO",50.67,5257)
+202086^3130918.092802^3^358^
+"TEMP","DATAO",50.67,5258)
+3383
+"TEMP","DATAO",50.67,5259)
+202086^3130918.092802^4^358^
+"TEMP","DATAO",50.67,5260)
+CASTIVA WARMING
+"TEMP","DATAO",50.67,5261)
+202086^3130918.092802^5^358^
+"TEMP","DATAO",50.67,5262)
+24170
+"TEMP","DATAO",50.67,5263)
+202086^3130918.092802^8^358^
+"TEMP","DATAO",50.67,5264)
+4625
+"TEMP","DATAO",50.67,5265)
+202086^3130918.092802^9^358^
+"TEMP","DATAO",50.67,5266)
+491
+"TEMP","DATAO",50.67,5267)
+202086^3130918.092802^10^358^
+"TEMP","DATAO",50.67,5268)
+O
+"TEMP","DATAO",50.67,5269)
+202087^3130919.063004^1^358^
+"TEMP","DATAO",50.67,5270)
+000023361670
+"TEMP","DATAO",50.67,5271)
+202087^3130919.063004^3^358^
+"TEMP","DATAO",50.67,5272)
+3547
+"TEMP","DATAO",50.67,5273)
+202087^3130919.063004^4^358^
+"TEMP","DATAO",50.67,5274)
+LATISSE
+"TEMP","DATAO",50.67,5275)
+202087^3130919.063004^5^358^
+"TEMP","DATAO",50.67,5276)
+21201
+"TEMP","DATAO",50.67,5277)
+202087^3130919.063004^8^358^
+"TEMP","DATAO",50.67,5278)
+4608
+"TEMP","DATAO",50.67,5279)
+202087^3130919.063004^9^358^
+"TEMP","DATAO",50.67,5280)
+980
+"TEMP","DATAO",50.67,5281)
+202087^3130919.063004^10^358^
+"TEMP","DATAO",50.67,5282)
+R
+"TEMP","DATAO",50.67,5283)
+202088^3130919.063005^1^358^
+"TEMP","DATAO",50.67,5284)
+000069030101
+"TEMP","DATAO",50.67,5285)
+202088^3130919.063005^3^358^
+"TEMP","DATAO",50.67,5286)
+3843
+"TEMP","DATAO",50.67,5287)
+202088^3130919.063005^4^358^
+"TEMP","DATAO",50.67,5288)
+TOBRAMYCIN SULFATE
+"TEMP","DATAO",50.67,5289)
+202088^3130919.063005^5^358^
+"TEMP","DATAO",50.67,5290)
+5009
+"TEMP","DATAO",50.67,5291)
+202088^3130919.063005^8^358^
+"TEMP","DATAO",50.67,5292)
+2673
+"TEMP","DATAO",50.67,5293)
+202088^3130919.063005^9^358^
+"TEMP","DATAO",50.67,5294)
+613
+"TEMP","DATAO",50.67,5295)
+202088^3130919.063005^10^358^
+"TEMP","DATAO",50.67,5296)
+R
+"TEMP","DATAO",50.67,5297)
+202089^3130919.063005^1^358^
+"TEMP","DATAO",50.67,5298)
+000069030102
+"TEMP","DATAO",50.67,5299)
+202089^3130919.063005^3^358^
+"TEMP","DATAO",50.67,5300)
+3843
+"TEMP","DATAO",50.67,5301)
+202089^3130919.063005^4^358^
+"TEMP","DATAO",50.67,5302)
+TOBRAMYCIN SULFATE
+"TEMP","DATAO",50.67,5303)
+202089^3130919.063005^5^358^
+"TEMP","DATAO",50.67,5304)
+5009
+"TEMP","DATAO",50.67,5305)
+202089^3130919.063005^8^358^
+"TEMP","DATAO",50.67,5306)
+2673
+"TEMP","DATAO",50.67,5307)
+202089^3130919.063005^9^358^
+"TEMP","DATAO",50.67,5308)
+613
+"TEMP","DATAO",50.67,5309)
+202089^3130919.063005^10^358^
+"TEMP","DATAO",50.67,5310)
+R
+"TEMP","DATAO",50.67,5311)
+202090^3130919.063011^1^358^
+"TEMP","DATAO",50.67,5312)
+000093805514
+"TEMP","DATAO",50.67,5313)
+202090^3130919.063011^3^358^
+"TEMP","DATAO",50.67,5314)
+3365
+"TEMP","DATAO",50.67,5315)
+202090^3130919.063011^4^358^
+"TEMP","DATAO",50.67,5316)
+AMOXICIL-CLARITHROMY-LANSOPRAZ
+"TEMP","DATAO",50.67,5317)
+202090^3130919.063011^5^358^
+"TEMP","DATAO",50.67,5318)
+12862
+"TEMP","DATAO",50.67,5319)
+202090^3130919.063011^8^358^
+"TEMP","DATAO",50.67,5320)
+4738
+"TEMP","DATAO",50.67,5321)
+202090^3130919.063011^9^358^
+"TEMP","DATAO",50.67,5322)
+974
+"TEMP","DATAO",50.67,5323)
+202090^3130919.063011^10^358^
+"TEMP","DATAO",50.67,5324)
+R
+"TEMP","DATAO",50.67,5325)
+202091^3130919.063011^1^358^
+"TEMP","DATAO",50.67,5326)
+000093805578
+"TEMP","DATAO",50.67,5327)
+202091^3130919.063011^3^358^
+"TEMP","DATAO",50.67,5328)
+3365
+"TEMP","DATAO",50.67,5329)
+202091^3130919.063011^4^358^
+"TEMP","DATAO",50.67,5330)
+AMOXICIL-CLARITHROMY-LANSOPRAZ
+"TEMP","DATAO",50.67,5331)
+202091^3130919.063011^5^358^
+"TEMP","DATAO",50.67,5332)
+12862
+"TEMP","DATAO",50.67,5333)
+202091^3130919.063011^8^358^
+"TEMP","DATAO",50.67,5334)
+4605
+"TEMP","DATAO",50.67,5335)
+202091^3130919.063011^9^358^
+"TEMP","DATAO",50.67,5336)
+974
+"TEMP","DATAO",50.67,5337)
+202091^3130919.063011^10^358^
+"TEMP","DATAO",50.67,5338)
+R
+"TEMP","DATAO",50.67,5339)
+202092^3130919.063012^1^358^
+"TEMP","DATAO",50.67,5340)
+000363078429
+"TEMP","DATAO",50.67,5341)
+202092^3130919.063012^3^358^
+"TEMP","DATAO",50.67,5342)
+3395
+"TEMP","DATAO",50.67,5343)
+202092^3130919.063012^4^358^
+"TEMP","DATAO",50.67,5344)
+WAL-FEX ALLERGY
+"TEMP","DATAO",50.67,5345)
+202092^3130919.063012^5^358^
+"TEMP","DATAO",50.67,5346)
+14123
+"TEMP","DATAO",50.67,5347)
+202092^3130919.063012^8^358^
+"TEMP","DATAO",50.67,5348)
+4589
+"TEMP","DATAO",50.67,5349)
+202092^3130919.063012^9^358^
+"TEMP","DATAO",50.67,5350)
+974
+"TEMP","DATAO",50.67,5351)
+202092^3130919.063012^10^358^
+"TEMP","DATAO",50.67,5352)
+O
+"TEMP","DATAO",50.67,5353)
+202093^3130919.063012^1^358^
+"TEMP","DATAO",50.67,5354)
+000603497821
+"TEMP","DATAO",50.67,5355)
+202093^3130919.063012^3^358^
+"TEMP","DATAO",50.67,5356)
+3364
+"TEMP","DATAO",50.67,5357)
+202093^3130919.063012^4^358^
+"TEMP","DATAO",50.67,5358)
+OXYCODONE-ACETAMINOPHEN
+"TEMP","DATAO",50.67,5359)
+202093^3130919.063012^5^358^
+"TEMP","DATAO",50.67,5360)
+14291
+"TEMP","DATAO",50.67,5361)
+202093^3130919.063012^8^358^
+"TEMP","DATAO",50.67,5362)
+4593
+"TEMP","DATAO",50.67,5363)
+202093^3130919.063012^9^358^
+"TEMP","DATAO",50.67,5364)
+491
+"TEMP","DATAO",50.67,5365)
+202093^3130919.063012^10^358^
+"TEMP","DATAO",50.67,5366)
+R
+"TEMP","DATAO",50.67,5367)
+202094^3130919.063013^1^358^
+"TEMP","DATAO",50.67,5368)
+000603497921
+"TEMP","DATAO",50.67,5369)
+202094^3130919.063013^3^358^
+"TEMP","DATAO",50.67,5370)
+3364
+"TEMP","DATAO",50.67,5371)
+202094^3130919.063013^4^358^
+"TEMP","DATAO",50.67,5372)
+OXYCODONE-ACETAMINOPHEN
+"TEMP","DATAO",50.67,5373)
+202094^3130919.063013^5^358^
+"TEMP","DATAO",50.67,5374)
+17204
+"TEMP","DATAO",50.67,5375)
+202094^3130919.063013^8^358^
+"TEMP","DATAO",50.67,5376)
+4593
+"TEMP","DATAO",50.67,5377)
+202094^3130919.063013^9^358^
+"TEMP","DATAO",50.67,5378)
+491
+"TEMP","DATAO",50.67,5379)
+202094^3130919.063013^10^358^
+"TEMP","DATAO",50.67,5380)
+R
+"TEMP","DATAO",50.67,5381)
+202095^3130919.063013^1^358^
+"TEMP","DATAO",50.67,5382)
+000603497928
+"TEMP","DATAO",50.67,5383)
+202095^3130919.063013^3^358^
+"TEMP","DATAO",50.67,5384)
+3364
+"TEMP","DATAO",50.67,5385)
+202095^3130919.063013^4^358^
+"TEMP","DATAO",50.67,5386)
+OXYCODONE-ACETAMINOPHEN
+"TEMP","DATAO",50.67,5387)
+202095^3130919.063013^5^358^
+"TEMP","DATAO",50.67,5388)
+17204
+"TEMP","DATAO",50.67,5389)
+202095^3130919.063013^8^358^
+"TEMP","DATAO",50.67,5390)
+4596
+"TEMP","DATAO",50.67,5391)
+202095^3130919.063013^9^358^
+"TEMP","DATAO",50.67,5392)
+491
+"TEMP","DATAO",50.67,5393)
+202095^3130919.063013^10^358^
+"TEMP","DATAO",50.67,5394)
+R
+"TEMP","DATAO",50.67,5395)
+202096^3130919.063013^1^358^
+"TEMP","DATAO",50.67,5396)
+000603498221
+"TEMP","DATAO",50.67,5397)
+202096^3130919.063013^3^358^
+"TEMP","DATAO",50.67,5398)
+3364
+"TEMP","DATAO",50.67,5399)
+202096^3130919.063013^4^358^
+"TEMP","DATAO",50.67,5400)
+OXYCODONE-ACETAMINOPHEN
+"TEMP","DATAO",50.67,5401)
+202096^3130919.063013^5^358^
+"TEMP","DATAO",50.67,5402)
+16537
+"TEMP","DATAO",50.67,5403)
+202096^3130919.063013^8^358^
+"TEMP","DATAO",50.67,5404)
+4593
+"TEMP","DATAO",50.67,5405)
+202096^3130919.063013^9^358^
+"TEMP","DATAO",50.67,5406)
+491
+"TEMP","DATAO",50.67,5407)
+202096^3130919.063013^10^358^
+"TEMP","DATAO",50.67,5408)
+R
+"TEMP","DATAO",50.67,5409)
+202097^3130919.063014^1^358^
+"TEMP","DATAO",50.67,5410)
+000603498228
+"TEMP","DATAO",50.67,5411)
+202097^3130919.063014^3^358^
+"TEMP","DATAO",50.67,5412)
+3364
+"TEMP","DATAO",50.67,5413)
+202097^3130919.063014^4^358^
+"TEMP","DATAO",50.67,5414)
+OXYCODONE-ACETAMINOPHEN
+"TEMP","DATAO",50.67,5415)
+202097^3130919.063014^5^358^
+"TEMP","DATAO",50.67,5416)
+16537
+"TEMP","DATAO",50.67,5417)
+202097^3130919.063014^8^358^
+"TEMP","DATAO",50.67,5418)
+4596
+"TEMP","DATAO",50.67,5419)
+202097^3130919.063014^9^358^
+"TEMP","DATAO",50.67,5420)
+491
+"TEMP","DATAO",50.67,5421)
+202097^3130919.063014^10^358^
+"TEMP","DATAO",50.67,5422)
+R
+"TEMP","DATAO",50.67,5423)
+202098^3130919.063014^1^358^
+"TEMP","DATAO",50.67,5424)
+008290309702
+"TEMP","DATAO",50.67,5425)
+202098^3130919.063014^3^358^
+"TEMP","DATAO",50.67,5426)
+3543
+"TEMP","DATAO",50.67,5427)
+202098^3130919.063014^4^358^
+"TEMP","DATAO",50.67,5428)
+BD LUER-LOK SYRINGE
+"TEMP","DATAO",50.67,5429)
+202098^3130919.063014^5^358^
+"TEMP","DATAO",50.67,5430)
+11648
+"TEMP","DATAO",50.67,5431)
+202098^3130919.063014^8^358^
+"TEMP","DATAO",50.67,5432)
+4600
+"TEMP","DATAO",50.67,5433)
+202098^3130919.063014^9^358^
+"TEMP","DATAO",50.67,5434)
+594
+"TEMP","DATAO",50.67,5435)
+202098^3130919.063014^10^358^
+"TEMP","DATAO",50.67,5436)
+O
+"TEMP","DATAO",50.67,5437)
+202099^3130919.063016^1^358^
+"TEMP","DATAO",50.67,5438)
+008290309703
+"TEMP","DATAO",50.67,5439)
+202099^3130919.063016^3^358^
+"TEMP","DATAO",50.67,5440)
+3543
+"TEMP","DATAO",50.67,5441)
+202099^3130919.063016^4^358^
+"TEMP","DATAO",50.67,5442)
+BD LUER-LOK SYRINGE
+"TEMP","DATAO",50.67,5443)
+202099^3130919.063016^5^358^
+"TEMP","DATAO",50.67,5444)
+11630
+"TEMP","DATAO",50.67,5445)
+202099^3130919.063016^8^358^
+"TEMP","DATAO",50.67,5446)
+4600
+"TEMP","DATAO",50.67,5447)
+202099^3130919.063016^9^358^
+"TEMP","DATAO",50.67,5448)
+594
+"TEMP","DATAO",50.67,5449)
+202099^3130919.063016^10^358^
+"TEMP","DATAO",50.67,5450)
+O
+"TEMP","DATAO",50.67,5451)
+202100^3130919.063016^1^358^
+"TEMP","DATAO",50.67,5452)
+011917012946
+"TEMP","DATAO",50.67,5453)
+202100^3130919.063016^2^358^
+"TEMP","DATAO",50.67,5454)
+11917-12946
+"TEMP","DATAO",50.67,5455)
+202100^3130919.063017^3^358^
+"TEMP","DATAO",50.67,5456)
+3395
+"TEMP","DATAO",50.67,5457)
+202100^3130919.063017^4^358^
+"TEMP","DATAO",50.67,5458)
+WAL-FEX ALLERGY
+"TEMP","DATAO",50.67,5459)
+202100^3130919.063017^5^358^
+"TEMP","DATAO",50.67,5460)
+14123
+"TEMP","DATAO",50.67,5461)
+202100^3130919.063017^8^358^
+"TEMP","DATAO",50.67,5462)
+4589
+"TEMP","DATAO",50.67,5463)
+202100^3130919.063017^9^358^
+"TEMP","DATAO",50.67,5464)
+974
+"TEMP","DATAO",50.67,5465)
+202100^3130919.063017^10^358^
+"TEMP","DATAO",50.67,5466)
+O
+"TEMP","DATAO",50.67,5467)
+202101^3130919.063018^1^358^
+"TEMP","DATAO",50.67,5468)
+013845120202
+"TEMP","DATAO",50.67,5469)
+202101^3130919.063018^3^358^
+"TEMP","DATAO",50.67,5470)
+3248
+"TEMP","DATAO",50.67,5471)
+202101^3130919.063018^4^358^
+"TEMP","DATAO",50.67,5472)
+CYCLOSERINE
+"TEMP","DATAO",50.67,5473)
+202101^3130919.063018^5^358^
+"TEMP","DATAO",50.67,5474)
+7784
+"TEMP","DATAO",50.67,5475)
+202101^3130919.063018^8^358^
+"TEMP","DATAO",50.67,5476)
+4597
+"TEMP","DATAO",50.67,5477)
+202101^3130919.063018^9^358^
+"TEMP","DATAO",50.67,5478)
+974
+"TEMP","DATAO",50.67,5479)
+202101^3130919.063018^10^358^
+"TEMP","DATAO",50.67,5480)
+R
+"TEMP","DATAO",50.67,5481)
+202102^3130919.063019^1^358^
+"TEMP","DATAO",50.67,5482)
+017856049801
+"TEMP","DATAO",50.67,5483)
+202102^3130919.063019^3^358^
+"TEMP","DATAO",50.67,5484)
+4245
+"TEMP","DATAO",50.67,5485)
+202102^3130919.063019^4^358^
+"TEMP","DATAO",50.67,5486)
+GUAIFENESIN
+"TEMP","DATAO",50.67,5487)
+202102^3130919.063019^5^358^
+"TEMP","DATAO",50.67,5488)
+7361
+"TEMP","DATAO",50.67,5489)
+202102^3130919.063019^8^358^
+"TEMP","DATAO",50.67,5490)
+4593
+"TEMP","DATAO",50.67,5491)
+202102^3130919.063019^9^358^
+"TEMP","DATAO",50.67,5492)
+491
+"TEMP","DATAO",50.67,5493)
+202102^3130919.063019^10^358^
+"TEMP","DATAO",50.67,5494)
+O
+"TEMP","DATAO",50.67,5495)
+202103^3130919.06302^1^358^
+"TEMP","DATAO",50.67,5496)
+042254043260
+"TEMP","DATAO",50.67,5497)
+202103^3130919.06302^3^358^
+"TEMP","DATAO",50.67,5498)
+3336
+"TEMP","DATAO",50.67,5499)
+202103^3130919.06302^4^358^
+"TEMP","DATAO",50.67,5500)
+QUAZEPAM
+"TEMP","DATAO",50.67,5501)
+202103^3130919.06302^5^358^
+"TEMP","DATAO",50.67,5502)
+8692
+"TEMP","DATAO",50.67,5503)
+202103^3130919.06302^8^358^
+"TEMP","DATAO",50.67,5504)
+4595
+"TEMP","DATAO",50.67,5505)
+202103^3130919.06302^9^358^
+"TEMP","DATAO",50.67,5506)
+491
+"TEMP","DATAO",50.67,5507)
+202103^3130919.06302^10^358^
+"TEMP","DATAO",50.67,5508)
+R
+"TEMP","DATAO",50.67,5509)
+202104^3130919.063021^1^358^
+"TEMP","DATAO",50.67,5510)
+045802056201
+"TEMP","DATAO",50.67,5511)
+202104^3130919.063021^3^358^
+"TEMP","DATAO",50.67,5512)
+3387
+"TEMP","DATAO",50.67,5513)
+202104^3130919.063021^4^358^
+"TEMP","DATAO",50.67,5514)
+CLINDAMYCIN PHOSPHATE
+"TEMP","DATAO",50.67,5515)
+202104^3130919.063021^5^358^
+"TEMP","DATAO",50.67,5516)
+2894
+"TEMP","DATAO",50.67,5517)
+202104^3130919.063021^8^358^
+"TEMP","DATAO",50.67,5518)
+4597
+"TEMP","DATAO",50.67,5519)
+202104^3130919.063021^9^358^
+"TEMP","DATAO",50.67,5520)
+491
+"TEMP","DATAO",50.67,5521)
+202104^3130919.063021^10^358^
+"TEMP","DATAO",50.67,5522)
+R
+"TEMP","DATAO",50.67,5523)
+202105^3130919.063021^1^358^
+"TEMP","DATAO",50.67,5524)
+045802056202
+"TEMP","DATAO",50.67,5525)
+202105^3130919.063021^3^358^
+"TEMP","DATAO",50.67,5526)
+3387
+"TEMP","DATAO",50.67,5527)
+202105^3130919.063021^4^358^
+"TEMP","DATAO",50.67,5528)
+CLINDAMYCIN PHOSPHATE
+"TEMP","DATAO",50.67,5529)
+202105^3130919.063021^5^358^
+"TEMP","DATAO",50.67,5530)
+2894
+"TEMP","DATAO",50.67,5531)
+202105^3130919.063021^8^358^
+"TEMP","DATAO",50.67,5532)
+4595
+"TEMP","DATAO",50.67,5533)
+202105^3130919.063021^9^358^
+"TEMP","DATAO",50.67,5534)
+491
+"TEMP","DATAO",50.67,5535)
+202105^3130919.063021^10^358^
+"TEMP","DATAO",50.67,5536)
+R
+"TEMP","DATAO",50.67,5537)
+202106^3130919.063021^1^358^
+"TEMP","DATAO",50.67,5538)
+046036000176
+"TEMP","DATAO",50.67,5539)
+202106^3130919.063021^2^358^
+"TEMP","DATAO",50.67,5540)
+46036-00176
+"TEMP","DATAO",50.67,5541)
+202106^3130919.063021^3^358^
+"TEMP","DATAO",50.67,5542)
+4067
+"TEMP","DATAO",50.67,5543)
+202106^3130919.063021^4^358^
+"TEMP","DATAO",50.67,5544)
+MUCUS RELIEF
+"TEMP","DATAO",50.67,5545)
+202106^3130919.063021^5^358^
+"TEMP","DATAO",50.67,5546)
+18328
+"TEMP","DATAO",50.67,5547)
+202106^3130919.063021^8^358^
+"TEMP","DATAO",50.67,5548)
+4597
+"TEMP","DATAO",50.67,5549)
+202106^3130919.063021^9^358^
+"TEMP","DATAO",50.67,5550)
+491
+"TEMP","DATAO",50.67,5551)
+202106^3130919.063021^10^358^
+"TEMP","DATAO",50.67,5552)
+O
+"TEMP","DATAO",50.67,5553)
+202107^3130919.063022^1^358^
+"TEMP","DATAO",50.67,5554)
+046122022163
+"TEMP","DATAO",50.67,5555)
+202107^3130919.063022^3^358^
+"TEMP","DATAO",50.67,5556)
+3389
+"TEMP","DATAO",50.67,5557)
+202107^3130919.063022^4^358^
+"TEMP","DATAO",50.67,5558)
+GLYCERIN (ADULT)
+"TEMP","DATAO",50.67,5559)
+202107^3130919.063022^5^358^
+"TEMP","DATAO",50.67,5560)
+4486
+"TEMP","DATAO",50.67,5561)
+202107^3130919.063022^8^358^
+"TEMP","DATAO",50.67,5562)
+4600
+"TEMP","DATAO",50.67,5563)
+202107^3130919.063022^9^358^
+"TEMP","DATAO",50.67,5564)
+491
+"TEMP","DATAO",50.67,5565)
+202107^3130919.063022^10^358^
+"TEMP","DATAO",50.67,5566)
+O
+"TEMP","DATAO",50.67,5567)
+202108^3130919.063022^1^358^
+"TEMP","DATAO",50.67,5568)
+046122022263
+"TEMP","DATAO",50.67,5569)
+202108^3130919.063022^3^358^
+"TEMP","DATAO",50.67,5570)
+3389
+"TEMP","DATAO",50.67,5571)
+202108^3130919.063022^4^358^
+"TEMP","DATAO",50.67,5572)
+GLYCERIN (CHILD)
+"TEMP","DATAO",50.67,5573)
+202108^3130919.063022^5^358^
+"TEMP","DATAO",50.67,5574)
+4488
+"TEMP","DATAO",50.67,5575)
+202108^3130919.063022^8^358^
+"TEMP","DATAO",50.67,5576)
+4600
+"TEMP","DATAO",50.67,5577)
+202108^3130919.063022^9^358^
+"TEMP","DATAO",50.67,5578)
+491
+"TEMP","DATAO",50.67,5579)
+202108^3130919.063022^10^358^
+"TEMP","DATAO",50.67,5580)
+O
+"TEMP","DATAO",50.67,5581)
+202109^3130919.063023^1^358^
+"TEMP","DATAO",50.67,5582)
+042254038590
+"TEMP","DATAO",50.67,5583)
+202109^3130919.063023^3^358^
+"TEMP","DATAO",50.67,5584)
+3336
+"TEMP","DATAO",50.67,5585)
+202109^3130919.063023^4^358^
+"TEMP","DATAO",50.67,5586)
+LOSARTAN-HYDROCHLOROTHIAZIDE
+"TEMP","DATAO",50.67,5587)
+202109^3130919.063023^5^358^
+"TEMP","DATAO",50.67,5588)
+17548
+"TEMP","DATAO",50.67,5589)
+202109^3130919.063023^8^358^
+"TEMP","DATAO",50.67,5590)
+4588
+"TEMP","DATAO",50.67,5591)
+202109^3130919.063023^9^358^
+"TEMP","DATAO",50.67,5592)
+491
+"TEMP","DATAO",50.67,5593)
+202109^3130919.063023^10^358^
+"TEMP","DATAO",50.67,5594)
+R
+"TEMP","DATAO",50.67,5595)
+202110^3130919.063023^1^358^
+"TEMP","DATAO",50.67,5596)
+042254043730
+"TEMP","DATAO",50.67,5597)
+202110^3130919.063023^3^358^
+"TEMP","DATAO",50.67,5598)
+3336
+"TEMP","DATAO",50.67,5599)
+202110^3130919.063023^4^358^
+"TEMP","DATAO",50.67,5600)
+VALSARTAN-HYDROCHLOROTHIAZIDE
+"TEMP","DATAO",50.67,5601)
+202110^3130919.063023^5^358^
+"TEMP","DATAO",50.67,5602)
+17913
+"TEMP","DATAO",50.67,5603)
+202110^3130919.063023^8^358^
+"TEMP","DATAO",50.67,5604)
+4597
+"TEMP","DATAO",50.67,5605)
+202110^3130919.063023^9^358^
+"TEMP","DATAO",50.67,5606)
+491
+"TEMP","DATAO",50.67,5607)
+202110^3130919.063023^10^358^
+"TEMP","DATAO",50.67,5608)
+R
+"TEMP","DATAO",50.67,5609)
+202111^3130919.063024^1^358^
+"TEMP","DATAO",50.67,5610)
+042254043790
+"TEMP","DATAO",50.67,5611)
+202111^3130919.063024^3^358^
+"TEMP","DATAO",50.67,5612)
+3336
+"TEMP","DATAO",50.67,5613)
+202111^3130919.063024^4^358^
+"TEMP","DATAO",50.67,5614)
+VALSARTAN-HYDROCHLOROTHIAZIDE
+"TEMP","DATAO",50.67,5615)
+202111^3130919.063024^5^358^
+"TEMP","DATAO",50.67,5616)
+17913
+"TEMP","DATAO",50.67,5617)
+202111^3130919.063024^8^358^
+"TEMP","DATAO",50.67,5618)
+4588
+"TEMP","DATAO",50.67,5619)
+202111^3130919.063024^9^358^
+"TEMP","DATAO",50.67,5620)
+491
+"TEMP","DATAO",50.67,5621)
+202111^3130919.063024^10^358^
+"TEMP","DATAO",50.67,5622)
+R
+"TEMP","DATAO",50.67,5623)
+202112^3130919.063024^1^358^
+"TEMP","DATAO",50.67,5624)
+042582020010
+"TEMP","DATAO",50.67,5625)
+202112^3130919.063024^3^358^
+"TEMP","DATAO",50.67,5626)
+4392
+"TEMP","DATAO",50.67,5627)
+202112^3130919.063024^4^358^
+"TEMP","DATAO",50.67,5628)
+ISOXSUPRINE
+"TEMP","DATAO",50.67,5629)
+202112^3130919.063024^5^358^
+"TEMP","DATAO",50.67,5630)
+2062
+"TEMP","DATAO",50.67,5631)
+202112^3130919.063024^8^358^
+"TEMP","DATAO",50.67,5632)
+4593
+"TEMP","DATAO",50.67,5633)
+202112^3130919.063024^9^358^
+"TEMP","DATAO",50.67,5634)
+491
+"TEMP","DATAO",50.67,5635)
+202112^3130919.063024^10^358^
+"TEMP","DATAO",50.67,5636)
+R
+"TEMP","DATAO",50.67,5637)
+202113^3130919.063025^1^358^
+"TEMP","DATAO",50.67,5638)
+057237000201
+"TEMP","DATAO",50.67,5639)
+202113^3130919.063025^3^358^
+"TEMP","DATAO",50.67,5640)
+4393
+"TEMP","DATAO",50.67,5641)
+202113^3130919.063025^4^358^
+"TEMP","DATAO",50.67,5642)
+HYDROCHLOROTHIAZIDE
+"TEMP","DATAO",50.67,5643)
+202113^3130919.063025^5^358^
+"TEMP","DATAO",50.67,5644)
+2073
+"TEMP","DATAO",50.67,5645)
+202113^3130919.063025^8^358^
+"TEMP","DATAO",50.67,5646)
+4593
+"TEMP","DATAO",50.67,5647)
+202113^3130919.063025^9^358^
+"TEMP","DATAO",50.67,5648)
+491
+"TEMP","DATAO",50.67,5649)
+202113^3130919.063025^10^358^
+"TEMP","DATAO",50.67,5650)
+R
+"TEMP","DATAO",50.67,5651)
+202114^3130919.063026^1^358^
+"TEMP","DATAO",50.67,5652)
+057237000299
+"TEMP","DATAO",50.67,5653)
+202114^3130919.063026^3^358^
+"TEMP","DATAO",50.67,5654)
+4393
+"TEMP","DATAO",50.67,5655)
+202114^3130919.063026^4^358^
+"TEMP","DATAO",50.67,5656)
+HYDROCHLOROTHIAZIDE
+"TEMP","DATAO",50.67,5657)
+202114^3130919.063026^5^358^
+"TEMP","DATAO",50.67,5658)
+2073
+"TEMP","DATAO",50.67,5659)
+202114^3130919.063026^8^358^
+"TEMP","DATAO",50.67,5660)
+4609
+"TEMP","DATAO",50.67,5661)
+202114^3130919.063026^9^358^
+"TEMP","DATAO",50.67,5662)
+491
+"TEMP","DATAO",50.67,5663)
+202114^3130919.063026^10^358^
+"TEMP","DATAO",50.67,5664)
+R
+"TEMP","DATAO",50.67,5665)
+202115^3130919.063026^1^358^
+"TEMP","DATAO",50.67,5666)
+057237000330
+"TEMP","DATAO",50.67,5667)
+202115^3130919.063026^3^358^
+"TEMP","DATAO",50.67,5668)
+4393
+"TEMP","DATAO",50.67,5669)
+202115^3130919.063026^4^358^
+"TEMP","DATAO",50.67,5670)
+FLUCONAZOLE
+"TEMP","DATAO",50.67,5671)
+202115^3130919.063026^5^358^
+"TEMP","DATAO",50.67,5672)
+8589
+"TEMP","DATAO",50.67,5673)
+202115^3130919.063026^8^358^
+"TEMP","DATAO",50.67,5674)
+4597
+"TEMP","DATAO",50.67,5675)
+202115^3130919.063026^9^358^
+"TEMP","DATAO",50.67,5676)
+491
+"TEMP","DATAO",50.67,5677)
+202115^3130919.063026^10^358^
+"TEMP","DATAO",50.67,5678)
+R
+"TEMP","DATAO",50.67,5679)
+202116^3130919.063026^1^358^
+"TEMP","DATAO",50.67,5680)
+057237000430
+"TEMP","DATAO",50.67,5681)
+202116^3130919.063026^3^358^
+"TEMP","DATAO",50.67,5682)
+4393
+"TEMP","DATAO",50.67,5683)
+202116^3130919.063026^4^358^
+"TEMP","DATAO",50.67,5684)
+FLUCONAZOLE
+"TEMP","DATAO",50.67,5685)
+202116^3130919.063026^5^358^
+"TEMP","DATAO",50.67,5686)
+8590
+"TEMP","DATAO",50.67,5687)
+202116^3130919.063026^8^358^
+"TEMP","DATAO",50.67,5688)
+4597
+"TEMP","DATAO",50.67,5689)
+202116^3130919.063026^9^358^
+"TEMP","DATAO",50.67,5690)
+491
+"TEMP","DATAO",50.67,5691)
+202116^3130919.063026^10^358^
+"TEMP","DATAO",50.67,5692)
+R
+"TEMP","DATAO",50.67,5693)
+202117^3130919.063027^1^358^
+"TEMP","DATAO",50.67,5694)
+057237000511
+"TEMP","DATAO",50.67,5695)
+202117^3130919.063027^3^358^
+"TEMP","DATAO",50.67,5696)
+4393
+"TEMP","DATAO",50.67,5697)
+202117^3130919.063027^4^358^
+"TEMP","DATAO",50.67,5698)
+FLUCONAZOLE
+"TEMP","DATAO",50.67,5699)
+202117^3130919.063027^5^358^
+"TEMP","DATAO",50.67,5700)
+8593
+"TEMP","DATAO",50.67,5701)
+202117^3130919.063027^8^358^
+"TEMP","DATAO",50.67,5702)
+4610
+"TEMP","DATAO",50.67,5703)
+202117^3130919.063027^9^358^
+"TEMP","DATAO",50.67,5704)
+974
+"TEMP","DATAO",50.67,5705)
+202117^3130919.063027^10^358^
+"TEMP","DATAO",50.67,5706)
+R
+"TEMP","DATAO",50.67,5707)
+202118^3130919.063027^1^358^
+"TEMP","DATAO",50.67,5708)
+057237000630
+"TEMP","DATAO",50.67,5709)
+202118^3130919.063027^3^358^
+"TEMP","DATAO",50.67,5710)
+4393
+"TEMP","DATAO",50.67,5711)
+202118^3130919.063027^4^358^
+"TEMP","DATAO",50.67,5712)
+FLUCONAZOLE
+"TEMP","DATAO",50.67,5713)
+202118^3130919.063027^5^358^
+"TEMP","DATAO",50.67,5714)
+8591
+"TEMP","DATAO",50.67,5715)
+202118^3130919.063027^8^358^
+"TEMP","DATAO",50.67,5716)
+4597
+"TEMP","DATAO",50.67,5717)
+202118^3130919.063027^9^358^
+"TEMP","DATAO",50.67,5718)
+491
+"TEMP","DATAO",50.67,5719)
+202118^3130919.063027^10^358^
+"TEMP","DATAO",50.67,5720)
+R
+"TEMP","DATAO",50.67,5721)
+202119^3130919.063029^1^358^
+"TEMP","DATAO",50.67,5722)
+058597801004
+"TEMP","DATAO",50.67,5723)
+202119^3130919.063029^3^358^
+"TEMP","DATAO",50.67,5724)
+4394
+"TEMP","DATAO",50.67,5725)
+202119^3130919.063029^4^358^
+"TEMP","DATAO",50.67,5726)
+CLONIDINE (BULK)
+"TEMP","DATAO",50.67,5727)
+202119^3130919.063029^5^358^
+"TEMP","DATAO",50.67,5728)
+14513
+"TEMP","DATAO",50.67,5729)
+202119^3130919.063029^8^358^
+"TEMP","DATAO",50.67,5730)
+4600
+"TEMP","DATAO",50.67,5731)
+202119^3130919.063029^9^358^
+"TEMP","DATAO",50.67,5732)
+257
+"TEMP","DATAO",50.67,5733)
+202119^3130919.063029^10^358^
+"TEMP","DATAO",50.67,5734)
+R
+"TEMP","DATAO",50.67,5735)
+202120^3130919.063029^1^358^
+"TEMP","DATAO",50.67,5736)
+058597801006
+"TEMP","DATAO",50.67,5737)
+202120^3130919.063029^3^358^
+"TEMP","DATAO",50.67,5738)
+4394
+"TEMP","DATAO",50.67,5739)
+202120^3130919.063029^4^358^
+"TEMP","DATAO",50.67,5740)
+CLONIDINE (BULK)
+"TEMP","DATAO",50.67,5741)
+202120^3130919.063029^5^358^
+"TEMP","DATAO",50.67,5742)
+14513
+"TEMP","DATAO",50.67,5743)
+202120^3130919.063029^8^358^
+"TEMP","DATAO",50.67,5744)
+4593
+"TEMP","DATAO",50.67,5745)
+202120^3130919.063029^9^358^
+"TEMP","DATAO",50.67,5746)
+257
+"TEMP","DATAO",50.67,5747)
+202120^3130919.063029^10^358^
+"TEMP","DATAO",50.67,5748)
+R
+"TEMP","DATAO",50.67,5749)
+202121^3130919.063031^1^358^
+"TEMP","DATAO",50.67,5750)
+059675000300
+"TEMP","DATAO",50.67,5751)
+202121^3130919.063031^2^358^
+"TEMP","DATAO",50.67,5752)
+59675-00300
+"TEMP","DATAO",50.67,5753)
+202121^3130919.063031^3^358^
+"TEMP","DATAO",50.67,5754)
+4395
+"TEMP","DATAO",50.67,5755)
+202121^3130919.063031^4^358^
+"TEMP","DATAO",50.67,5756)
+ZEPHREX-D
+"TEMP","DATAO",50.67,5757)
+202121^3130919.063031^5^358^
+"TEMP","DATAO",50.67,5758)
+23554
+"TEMP","DATAO",50.67,5759)
+202121^3130919.063031^8^358^
+"TEMP","DATAO",50.67,5760)
+4639
+"TEMP","DATAO",50.67,5761)
+202121^3130919.063031^9^358^
+"TEMP","DATAO",50.67,5762)
+492
+"TEMP","DATAO",50.67,5763)
+202121^3130919.063031^10^358^
+"TEMP","DATAO",50.67,5764)
+O
+"TEMP","DATAO",50.67,5765)
+202122^3130919.063031^1^358^
+"TEMP","DATAO",50.67,5766)
+059676032000
+"TEMP","DATAO",50.67,5767)
+202122^3130919.063031^3^358^
+"TEMP","DATAO",50.67,5768)
+3757
+"TEMP","DATAO",50.67,5769)
+202122^3130919.063031^4^358^
+"TEMP","DATAO",50.67,5770)
+PROCRIT
+"TEMP","DATAO",50.67,5771)
+202122^3130919.063031^5^358^
+"TEMP","DATAO",50.67,5772)
+8623
+"TEMP","DATAO",50.67,5773)
+202122^3130919.063031^8^358^
+"TEMP","DATAO",50.67,5774)
+4592
+"TEMP","DATAO",50.67,5775)
+202122^3130919.063031^9^358^
+"TEMP","DATAO",50.67,5776)
+613
+"TEMP","DATAO",50.67,5777)
+202122^3130919.063031^10^358^
+"TEMP","DATAO",50.67,5778)
+R
+"TEMP","DATAO",50.67,5779)
+202123^3130919.063031^1^358^
+"TEMP","DATAO",50.67,5780)
+059726010730
+"TEMP","DATAO",50.67,5781)
+202123^3130919.063031^3^358^
+"TEMP","DATAO",50.67,5782)
+4262
+"TEMP","DATAO",50.67,5783)
+202123^3130919.063031^4^358^
+"TEMP","DATAO",50.67,5784)
+MUCUS RELIEF
+"TEMP","DATAO",50.67,5785)
+202123^3130919.063031^5^358^
+"TEMP","DATAO",50.67,5786)
+18328
+"TEMP","DATAO",50.67,5787)
+202123^3130919.063031^8^358^
+"TEMP","DATAO",50.67,5788)
+4597
+"TEMP","DATAO",50.67,5789)
+202123^3130919.063031^9^358^
+"TEMP","DATAO",50.67,5790)
+491
+"TEMP","DATAO",50.67,5791)
+202123^3130919.063031^10^358^
+"TEMP","DATAO",50.67,5792)
+O
+"TEMP","DATAO",50.67,5793)
+202124^3130919.063032^1^358^
+"TEMP","DATAO",50.67,5794)
+059762054001
+"TEMP","DATAO",50.67,5795)
+202124^3130919.063032^3^358^
+"TEMP","DATAO",50.67,5796)
+3406
+"TEMP","DATAO",50.67,5797)
+202124^3130919.063032^4^358^
+"TEMP","DATAO",50.67,5798)
+GLIPIZIDE
+"TEMP","DATAO",50.67,5799)
+202124^3130919.063032^5^358^
+"TEMP","DATAO",50.67,5800)
+13875
+"TEMP","DATAO",50.67,5801)
+202124^3130919.063032^8^358^
+"TEMP","DATAO",50.67,5802)
+4597
+"TEMP","DATAO",50.67,5803)
+202124^3130919.063032^9^358^
+"TEMP","DATAO",50.67,5804)
+491
+"TEMP","DATAO",50.67,5805)
+202124^3130919.063032^10^358^
+"TEMP","DATAO",50.67,5806)
+R
+"TEMP","DATAO",50.67,5807)
+202125^3130919.063032^1^358^
+"TEMP","DATAO",50.67,5808)
+059762054201
+"TEMP","DATAO",50.67,5809)
+202125^3130919.063032^3^358^
+"TEMP","DATAO",50.67,5810)
+3406
+"TEMP","DATAO",50.67,5811)
+202125^3130919.063032^4^358^
+"TEMP","DATAO",50.67,5812)
+GLIPIZIDE
+"TEMP","DATAO",50.67,5813)
+202125^3130919.063032^5^358^
+"TEMP","DATAO",50.67,5814)
+4521
+"TEMP","DATAO",50.67,5815)
+202125^3130919.063032^8^358^
+"TEMP","DATAO",50.67,5816)
+4593
+"TEMP","DATAO",50.67,5817)
+202125^3130919.063032^9^358^
+"TEMP","DATAO",50.67,5818)
+491
+"TEMP","DATAO",50.67,5819)
+202125^3130919.063032^10^358^
+"TEMP","DATAO",50.67,5820)
+R
+"TEMP","DATAO",50.67,5821)
+202126^3130919.063034^1^358^
+"TEMP","DATAO",50.67,5822)
+060429023410
+"TEMP","DATAO",50.67,5823)
+202126^3130919.063034^3^358^
+"TEMP","DATAO",50.67,5824)
+3362
+"TEMP","DATAO",50.67,5825)
+202126^3130919.063034^4^358^
+"TEMP","DATAO",50.67,5826)
+FOSINOPRIL
+"TEMP","DATAO",50.67,5827)
+202126^3130919.063034^5^358^
+"TEMP","DATAO",50.67,5828)
+9708
+"TEMP","DATAO",50.67,5829)
+202126^3130919.063034^8^358^
+"TEMP","DATAO",50.67,5830)
+4609
+"TEMP","DATAO",50.67,5831)
+202126^3130919.063034^9^358^
+"TEMP","DATAO",50.67,5832)
+491
+"TEMP","DATAO",50.67,5833)
+202126^3130919.063034^10^358^
+"TEMP","DATAO",50.67,5834)
+R
+"TEMP","DATAO",50.67,5835)
+202127^3130919.063034^1^358^
+"TEMP","DATAO",50.67,5836)
+060429023445
+"TEMP","DATAO",50.67,5837)
+202127^3130919.063034^3^358^
+"TEMP","DATAO",50.67,5838)
+3362
+"TEMP","DATAO",50.67,5839)
+202127^3130919.063034^4^358^
+"TEMP","DATAO",50.67,5840)
+FOSINOPRIL
+"TEMP","DATAO",50.67,5841)
+202127^3130919.063034^5^358^
+"TEMP","DATAO",50.67,5842)
+9708
+"TEMP","DATAO",50.67,5843)
+202127^3130919.063034^8^358^
+"TEMP","DATAO",50.67,5844)
+4607
+"TEMP","DATAO",50.67,5845)
+202127^3130919.063034^9^358^
+"TEMP","DATAO",50.67,5846)
+491
+"TEMP","DATAO",50.67,5847)
+202127^3130919.063034^10^358^
+"TEMP","DATAO",50.67,5848)
+R
+"TEMP","DATAO",50.67,5849)
+202128^3130919.063034^1^358^
+"TEMP","DATAO",50.67,5850)
+060429023490
+"TEMP","DATAO",50.67,5851)
+202128^3130919.063034^3^358^
+"TEMP","DATAO",50.67,5852)
+3362
+"TEMP","DATAO",50.67,5853)
+202128^3130919.063034^4^358^
+"TEMP","DATAO",50.67,5854)
+FOSINOPRIL
+"TEMP","DATAO",50.67,5855)
+202128^3130919.063034^5^358^
+"TEMP","DATAO",50.67,5856)
+9708
+"TEMP","DATAO",50.67,5857)
+202128^3130919.063034^8^358^
+"TEMP","DATAO",50.67,5858)
+4588
+"TEMP","DATAO",50.67,5859)
+202128^3130919.063034^9^358^
+"TEMP","DATAO",50.67,5860)
+491
+"TEMP","DATAO",50.67,5861)
+202128^3130919.063034^10^358^
+"TEMP","DATAO",50.67,5862)
+R
+"TEMP","DATAO",50.67,5863)
+202129^3130919.063035^1^358^
+"TEMP","DATAO",50.67,5864)
+060429023510
+"TEMP","DATAO",50.67,5865)
+202129^3130919.063035^3^358^
+"TEMP","DATAO",50.67,5866)
+3362
+"TEMP","DATAO",50.67,5867)
+202129^3130919.063035^4^358^
+"TEMP","DATAO",50.67,5868)
+FOSINOPRIL
+"TEMP","DATAO",50.67,5869)
+202129^3130919.063035^5^358^
+"TEMP","DATAO",50.67,5870)
+9709
+"TEMP","DATAO",50.67,5871)
+202129^3130919.063035^8^358^
+"TEMP","DATAO",50.67,5872)
+4609
+"TEMP","DATAO",50.67,5873)
+202129^3130919.063035^9^358^
+"TEMP","DATAO",50.67,5874)
+491
+"TEMP","DATAO",50.67,5875)
+202129^3130919.063035^10^358^
+"TEMP","DATAO",50.67,5876)
+R
+"TEMP","DATAO",50.67,5877)
+202130^3130919.063035^1^358^
+"TEMP","DATAO",50.67,5878)
+060429023518
+"TEMP","DATAO",50.67,5879)
+202130^3130919.063035^3^358^
+"TEMP","DATAO",50.67,5880)
+3362
+"TEMP","DATAO",50.67,5881)
+202130^3130919.063035^4^358^
+"TEMP","DATAO",50.67,5882)
+FOSINOPRIL
+"TEMP","DATAO",50.67,5883)
+202130^3130919.063035^5^358^
+"TEMP","DATAO",50.67,5884)
+9709
+"TEMP","DATAO",50.67,5885)
+202130^3130919.063035^8^358^
+"TEMP","DATAO",50.67,5886)
+4640
+"TEMP","DATAO",50.67,5887)
+202130^3130919.063035^9^358^
+"TEMP","DATAO",50.67,5888)
+491
+"TEMP","DATAO",50.67,5889)
+202130^3130919.063035^10^358^
+"TEMP","DATAO",50.67,5890)
+R
+"TEMP","DATAO",50.67,5891)
+202131^3130919.063035^1^358^
+"TEMP","DATAO",50.67,5892)
+060429023545
+"TEMP","DATAO",50.67,5893)
+202131^3130919.063035^3^358^
+"TEMP","DATAO",50.67,5894)
+3362
+"TEMP","DATAO",50.67,5895)
+202131^3130919.063035^4^358^
+"TEMP","DATAO",50.67,5896)
+FOSINOPRIL
+"TEMP","DATAO",50.67,5897)
+202131^3130919.063035^5^358^
+"TEMP","DATAO",50.67,5898)
+9709
+"TEMP","DATAO",50.67,5899)
+202131^3130919.063035^8^358^
+"TEMP","DATAO",50.67,5900)
+4607
+"TEMP","DATAO",50.67,5901)
+202131^3130919.063035^9^358^
+"TEMP","DATAO",50.67,5902)
+491
+"TEMP","DATAO",50.67,5903)
+202131^3130919.063035^10^358^
+"TEMP","DATAO",50.67,5904)
+R
+"TEMP","DATAO",50.67,5905)
+202132^3130919.063036^1^358^
+"TEMP","DATAO",50.67,5906)
+060429023590
+"TEMP","DATAO",50.67,5907)
+202132^3130919.063036^3^358^
+"TEMP","DATAO",50.67,5908)
+3362
+"TEMP","DATAO",50.67,5909)
+202132^3130919.063036^4^358^
+"TEMP","DATAO",50.67,5910)
+FOSINOPRIL
+"TEMP","DATAO",50.67,5911)
+202132^3130919.063036^5^358^
+"TEMP","DATAO",50.67,5912)
+9709
+"TEMP","DATAO",50.67,5913)
+202132^3130919.063036^8^358^
+"TEMP","DATAO",50.67,5914)
+4588
+"TEMP","DATAO",50.67,5915)
+202132^3130919.063036^9^358^
+"TEMP","DATAO",50.67,5916)
+491
+"TEMP","DATAO",50.67,5917)
+202132^3130919.063036^10^358^
+"TEMP","DATAO",50.67,5918)
+R
+"TEMP","DATAO",50.67,5919)
+202133^3130919.063036^1^358^
+"TEMP","DATAO",50.67,5920)
+060429023610
+"TEMP","DATAO",50.67,5921)
+202133^3130919.063036^3^358^
+"TEMP","DATAO",50.67,5922)
+3362
+"TEMP","DATAO",50.67,5923)
+202133^3130919.063036^4^358^
+"TEMP","DATAO",50.67,5924)
+FOSINOPRIL
+"TEMP","DATAO",50.67,5925)
+202133^3130919.063036^5^358^
+"TEMP","DATAO",50.67,5926)
+9710
+"TEMP","DATAO",50.67,5927)
+202133^3130919.063036^8^358^
+"TEMP","DATAO",50.67,5928)
+4609
+"TEMP","DATAO",50.67,5929)
+202133^3130919.063036^9^358^
+"TEMP","DATAO",50.67,5930)
+491
+"TEMP","DATAO",50.67,5931)
+202133^3130919.063036^10^358^
+"TEMP","DATAO",50.67,5932)
+R
+"TEMP","DATAO",50.67,5933)
+202134^3130919.063036^1^358^
+"TEMP","DATAO",50.67,5934)
+060429023618
+"TEMP","DATAO",50.67,5935)
+202134^3130919.063036^3^358^
+"TEMP","DATAO",50.67,5936)
+3362
+"TEMP","DATAO",50.67,5937)
+202134^3130919.063036^4^358^
+"TEMP","DATAO",50.67,5938)
+FOSINOPRIL
+"TEMP","DATAO",50.67,5939)
+202134^3130919.063036^5^358^
+"TEMP","DATAO",50.67,5940)
+9710
+"TEMP","DATAO",50.67,5941)
+202134^3130919.063036^8^358^
+"TEMP","DATAO",50.67,5942)
+4640
+"TEMP","DATAO",50.67,5943)
+202134^3130919.063036^9^358^
+"TEMP","DATAO",50.67,5944)
+491
+"TEMP","DATAO",50.67,5945)
+202134^3130919.063036^10^358^
+"TEMP","DATAO",50.67,5946)
+R
+"TEMP","DATAO",50.67,5947)
+202135^3130919.063037^1^358^
+"TEMP","DATAO",50.67,5948)
+060429023645
+"TEMP","DATAO",50.67,5949)
+202135^3130919.063037^3^358^
+"TEMP","DATAO",50.67,5950)
+3362
+"TEMP","DATAO",50.67,5951)
+202135^3130919.063037^4^358^
+"TEMP","DATAO",50.67,5952)
+FOSINOPRIL
+"TEMP","DATAO",50.67,5953)
+202135^3130919.063037^5^358^
+"TEMP","DATAO",50.67,5954)
+9710
+"TEMP","DATAO",50.67,5955)
+202135^3130919.063037^8^358^
+"TEMP","DATAO",50.67,5956)
+4607
+"TEMP","DATAO",50.67,5957)
+202135^3130919.063037^9^358^
+"TEMP","DATAO",50.67,5958)
+491
+"TEMP","DATAO",50.67,5959)
+202135^3130919.063037^10^358^
+"TEMP","DATAO",50.67,5960)
+R
+"TEMP","DATAO",50.67,5961)
+202136^3130919.063037^1^358^
+"TEMP","DATAO",50.67,5962)
+060429023690
+"TEMP","DATAO",50.67,5963)
+202136^3130919.063037^3^358^
+"TEMP","DATAO",50.67,5964)
+3362
+"TEMP","DATAO",50.67,5965)
+202136^3130919.063037^4^358^
+"TEMP","DATAO",50.67,5966)
+FOSINOPRIL
+"TEMP","DATAO",50.67,5967)
+202136^3130919.063037^5^358^
+"TEMP","DATAO",50.67,5968)
+9710
+"TEMP","DATAO",50.67,5969)
+202136^3130919.063037^8^358^
+"TEMP","DATAO",50.67,5970)
+4588
+"TEMP","DATAO",50.67,5971)
+202136^3130919.063037^9^358^
+"TEMP","DATAO",50.67,5972)
+491
+"TEMP","DATAO",50.67,5973)
+202136^3130919.063037^10^358^
+"TEMP","DATAO",50.67,5974)
+R
+"TEMP","DATAO",50.67,5975)
+202137^3130919.063038^1^358^
+"TEMP","DATAO",50.67,5976)
+062756051240
+"TEMP","DATAO",50.67,5977)
+202137^3130919.063038^3^358^
+"TEMP","DATAO",50.67,5978)
+3335
+"TEMP","DATAO",50.67,5979)
+202137^3130919.063038^4^358^
+"TEMP","DATAO",50.67,5980)
+AZITHROMYCIN
+"TEMP","DATAO",50.67,5981)
+202137^3130919.063038^5^358^
+"TEMP","DATAO",50.67,5982)
+9755
+"TEMP","DATAO",50.67,5983)
+202137^3130919.063038^8^358^
+"TEMP","DATAO",50.67,5984)
+4592
+"TEMP","DATAO",50.67,5985)
+202137^3130919.063038^9^358^
+"TEMP","DATAO",50.67,5986)
+613
+"TEMP","DATAO",50.67,5987)
+202137^3130919.063038^10^358^
+"TEMP","DATAO",50.67,5988)
+R
+"TEMP","DATAO",50.67,5989)
+202138^3130919.063038^1^358^
+"TEMP","DATAO",50.67,5990)
+062756051244
+"TEMP","DATAO",50.67,5991)
+202138^3130919.063038^3^358^
+"TEMP","DATAO",50.67,5992)
+3335
+"TEMP","DATAO",50.67,5993)
+202138^3130919.063038^4^358^
+"TEMP","DATAO",50.67,5994)
+AZITHROMYCIN
+"TEMP","DATAO",50.67,5995)
+202138^3130919.063038^5^358^
+"TEMP","DATAO",50.67,5996)
+9755
+"TEMP","DATAO",50.67,5997)
+202138^3130919.063038^8^358^
+"TEMP","DATAO",50.67,5998)
+4592
+"TEMP","DATAO",50.67,5999)
+202138^3130919.063038^9^358^
+"TEMP","DATAO",50.67,6000)
+613
+"TEMP","DATAO",50.67,6001)
+202138^3130919.063038^10^358^
+"TEMP","DATAO",50.67,6002)
+R
+"TEMP","DATAO",50.67,6003)
+202139^3130919.063039^1^358^
+"TEMP","DATAO",50.67,6004)
+066336047944
+"TEMP","DATAO",50.67,6005)
+202139^3130919.063039^3^358^
+"TEMP","DATAO",50.67,6006)
+2853
+"TEMP","DATAO",50.67,6007)
+202139^3130919.063039^4^358^
+"TEMP","DATAO",50.67,6008)
+DEXAMETHASONE
+"TEMP","DATAO",50.67,6009)
+202139^3130919.063039^5^358^
+"TEMP","DATAO",50.67,6010)
+2229
+"TEMP","DATAO",50.67,6011)
+202139^3130919.063039^8^358^
+"TEMP","DATAO",50.67,6012)
+4615
+"TEMP","DATAO",50.67,6013)
+202139^3130919.063039^9^358^
+"TEMP","DATAO",50.67,6014)
+491
+"TEMP","DATAO",50.67,6015)
+202139^3130919.063039^10^358^
+"TEMP","DATAO",50.67,6016)
+R
+"TEMP","DATAO",50.67,6017)
+202140^3130919.063039^1^358^
+"TEMP","DATAO",50.67,6018)
+066336056130
+"TEMP","DATAO",50.67,6019)
+202140^3130919.063039^3^358^
+"TEMP","DATAO",50.67,6020)
+2853
+"TEMP","DATAO",50.67,6021)
+202140^3130919.063039^4^358^
+"TEMP","DATAO",50.67,6022)
+FEXOFENADINE
+"TEMP","DATAO",50.67,6023)
+202140^3130919.063039^5^358^
+"TEMP","DATAO",50.67,6024)
+14123
+"TEMP","DATAO",50.67,6025)
+202140^3130919.063039^8^358^
+"TEMP","DATAO",50.67,6026)
+4597
+"TEMP","DATAO",50.67,6027)
+202140^3130919.063039^9^358^
+"TEMP","DATAO",50.67,6028)
+491
+"TEMP","DATAO",50.67,6029)
+202140^3130919.063039^10^358^
+"TEMP","DATAO",50.67,6030)
+O
+"TEMP","DATAO",50.67,6031)
+202141^3130919.06304^1^358^
+"TEMP","DATAO",50.67,6032)
+068258110403
+"TEMP","DATAO",50.67,6033)
+202141^3130919.06304^3^358^
+"TEMP","DATAO",50.67,6034)
+2853
+"TEMP","DATAO",50.67,6035)
+202141^3130919.06304^4^358^
+"TEMP","DATAO",50.67,6036)
+ATOVAQUONE-PROGUANIL
+"TEMP","DATAO",50.67,6037)
+202141^3130919.06304^5^358^
+"TEMP","DATAO",50.67,6038)
+14572
+"TEMP","DATAO",50.67,6039)
+202141^3130919.06304^8^358^
+"TEMP","DATAO",50.67,6040)
+4597
+"TEMP","DATAO",50.67,6041)
+202141^3130919.06304^9^358^
+"TEMP","DATAO",50.67,6042)
+491
+"TEMP","DATAO",50.67,6043)
+202141^3130919.06304^10^358^
+"TEMP","DATAO",50.67,6044)
+R
+"TEMP","DATAO",50.67,6045)
+202142^3130919.06304^1^358^
+"TEMP","DATAO",50.67,6046)
+068258110404
+"TEMP","DATAO",50.67,6047)
+202142^3130919.06304^3^358^
+"TEMP","DATAO",50.67,6048)
+2853
+"TEMP","DATAO",50.67,6049)
+202142^3130919.06304^4^358^
+"TEMP","DATAO",50.67,6050)
+ATOVAQUONE-PROGUANIL
+"TEMP","DATAO",50.67,6051)
+202142^3130919.06304^5^358^
+"TEMP","DATAO",50.67,6052)
+14572
+"TEMP","DATAO",50.67,6053)
+202142^3130919.06304^8^358^
+"TEMP","DATAO",50.67,6054)
+4615
+"TEMP","DATAO",50.67,6055)
+202142^3130919.06304^9^358^
+"TEMP","DATAO",50.67,6056)
+491
+"TEMP","DATAO",50.67,6057)
+202142^3130919.06304^10^358^
+"TEMP","DATAO",50.67,6058)
+R
+"TEMP","DATAO",50.67,6059)
+202143^3130919.06304^1^358^
+"TEMP","DATAO",50.67,6060)
+068258110405
+"TEMP","DATAO",50.67,6061)
+202143^3130919.06304^3^358^
+"TEMP","DATAO",50.67,6062)
+2853
+"TEMP","DATAO",50.67,6063)
+202143^3130919.06304^4^358^
+"TEMP","DATAO",50.67,6064)
+ATOVAQUONE-PROGUANIL
+"TEMP","DATAO",50.67,6065)
+202143^3130919.06304^5^358^
+"TEMP","DATAO",50.67,6066)
+14572
+"TEMP","DATAO",50.67,6067)
+202143^3130919.06304^8^358^
+"TEMP","DATAO",50.67,6068)
+4617
+"TEMP","DATAO",50.67,6069)
+202143^3130919.06304^9^358^
+"TEMP","DATAO",50.67,6070)
+491
+"TEMP","DATAO",50.67,6071)
+202143^3130919.06304^10^358^
+"TEMP","DATAO",50.67,6072)
+R
+"TEMP","DATAO",50.67,6073)
+202144^3130919.063041^1^358^
+"TEMP","DATAO",50.67,6074)
+068258110406
+"TEMP","DATAO",50.67,6075)
+202144^3130919.063041^3^358^
+"TEMP","DATAO",50.67,6076)
+2853
+"TEMP","DATAO",50.67,6077)
+202144^3130919.063041^4^358^
+"TEMP","DATAO",50.67,6078)
+ATOVAQUONE-PROGUANIL
+"TEMP","DATAO",50.67,6079)
+202144^3130919.063041^5^358^
+"TEMP","DATAO",50.67,6080)
+14572
+"TEMP","DATAO",50.67,6081)
+202144^3130919.063041^8^358^
+"TEMP","DATAO",50.67,6082)
+4742
+"TEMP","DATAO",50.67,6083)
+202144^3130919.063041^9^358^
+"TEMP","DATAO",50.67,6084)
+491
+"TEMP","DATAO",50.67,6085)
+202144^3130919.063041^10^358^
+"TEMP","DATAO",50.67,6086)
+R
+"TEMP","DATAO",50.67,6087)
+202145^3130919.063041^1^358^
+"TEMP","DATAO",50.67,6088)
+068258110407
+"TEMP","DATAO",50.67,6089)
+202145^3130919.063041^3^358^
+"TEMP","DATAO",50.67,6090)
+2853
+"TEMP","DATAO",50.67,6091)
+202145^3130919.063041^4^358^
+"TEMP","DATAO",50.67,6092)
+ATOVAQUONE-PROGUANIL
+"TEMP","DATAO",50.67,6093)
+202145^3130919.063041^5^358^
+"TEMP","DATAO",50.67,6094)
+14572
+"TEMP","DATAO",50.67,6095)
+202145^3130919.063041^8^358^
+"TEMP","DATAO",50.67,6096)
+4602
+"TEMP","DATAO",50.67,6097)
+202145^3130919.063041^9^358^
+"TEMP","DATAO",50.67,6098)
+491
+"TEMP","DATAO",50.67,6099)
+202145^3130919.063041^10^358^
+"TEMP","DATAO",50.67,6100)
+R
+"TEMP","DATAO",50.67,6101)
+202146^3130919.063041^1^358^
+"TEMP","DATAO",50.67,6102)
+068258110409
+"TEMP","DATAO",50.67,6103)
+202146^3130919.063041^3^358^
+"TEMP","DATAO",50.67,6104)
+2853
+"TEMP","DATAO",50.67,6105)
+202146^3130919.063041^4^358^
+"TEMP","DATAO",50.67,6106)
+ATOVAQUONE-PROGUANIL
+"TEMP","DATAO",50.67,6107)
+202146^3130919.063041^5^358^
+"TEMP","DATAO",50.67,6108)
+14572
+"TEMP","DATAO",50.67,6109)
+202146^3130919.063041^8^358^
+"TEMP","DATAO",50.67,6110)
+4736
+"TEMP","DATAO",50.67,6111)
+202146^3130919.063041^9^358^
+"TEMP","DATAO",50.67,6112)
+491
+"TEMP","DATAO",50.67,6113)
+202146^3130919.063041^10^358^
+"TEMP","DATAO",50.67,6114)
+R
+"TEMP","DATAO",50.67,6115)
+202147^3130919.063041^1^358^
+"TEMP","DATAO",50.67,6116)
+068258110701
+"TEMP","DATAO",50.67,6117)
+202147^3130919.063041^3^358^
+"TEMP","DATAO",50.67,6118)
+2853
+"TEMP","DATAO",50.67,6119)
+202147^3130919.063041^4^358^
+"TEMP","DATAO",50.67,6120)
+XIFAXAN
+"TEMP","DATAO",50.67,6121)
+202147^3130919.063042^5^358^
+"TEMP","DATAO",50.67,6122)
+16846
+"TEMP","DATAO",50.67,6123)
+202147^3130919.063042^8^358^
+"TEMP","DATAO",50.67,6124)
+4598
+"TEMP","DATAO",50.67,6125)
+202147^3130919.063042^9^358^
+"TEMP","DATAO",50.67,6126)
+491
+"TEMP","DATAO",50.67,6127)
+202147^3130919.063042^10^358^
+"TEMP","DATAO",50.67,6128)
+R
+"TEMP","DATAO",50.67,6129)
+202148^3130919.063042^1^358^
+"TEMP","DATAO",50.67,6130)
+068258110702
+"TEMP","DATAO",50.67,6131)
+202148^3130919.063042^3^358^
+"TEMP","DATAO",50.67,6132)
+2853
+"TEMP","DATAO",50.67,6133)
+202148^3130919.063042^4^358^
+"TEMP","DATAO",50.67,6134)
+XIFAXAN
+"TEMP","DATAO",50.67,6135)
+202148^3130919.063042^5^358^
+"TEMP","DATAO",50.67,6136)
+16846
+"TEMP","DATAO",50.67,6137)
+202148^3130919.063042^8^358^
+"TEMP","DATAO",50.67,6138)
+4591
+"TEMP","DATAO",50.67,6139)
+202148^3130919.063042^9^358^
+"TEMP","DATAO",50.67,6140)
+491
+"TEMP","DATAO",50.67,6141)
+202148^3130919.063042^10^358^
+"TEMP","DATAO",50.67,6142)
+R
+"TEMP","DATAO",50.67,6143)
+202149^3130919.063042^1^358^
+"TEMP","DATAO",50.67,6144)
+068258110704
+"TEMP","DATAO",50.67,6145)
+202149^3130919.063042^3^358^
+"TEMP","DATAO",50.67,6146)
+2853
+"TEMP","DATAO",50.67,6147)
+202149^3130919.063042^4^358^
+"TEMP","DATAO",50.67,6148)
+XIFAXAN
+"TEMP","DATAO",50.67,6149)
+202149^3130919.063042^5^358^
+"TEMP","DATAO",50.67,6150)
+16846
+"TEMP","DATAO",50.67,6151)
+202149^3130919.063042^8^358^
+"TEMP","DATAO",50.67,6152)
+4601
+"TEMP","DATAO",50.67,6153)
+202149^3130919.063042^9^358^
+"TEMP","DATAO",50.67,6154)
+491
+"TEMP","DATAO",50.67,6155)
+202149^3130919.063042^10^358^
+"TEMP","DATAO",50.67,6156)
+R
+"TEMP","DATAO",50.67,6157)
+202150^3130919.063043^1^358^
+"TEMP","DATAO",50.67,6158)
+068258305407
+"TEMP","DATAO",50.67,6159)
+202150^3130919.063043^3^358^
+"TEMP","DATAO",50.67,6160)
+2853
+"TEMP","DATAO",50.67,6161)
+202150^3130919.063043^4^358^
+"TEMP","DATAO",50.67,6162)
+CIPRODEX
+"TEMP","DATAO",50.67,6163)
+202150^3130919.063043^5^358^
+"TEMP","DATAO",50.67,6164)
+16549
+"TEMP","DATAO",50.67,6165)
+202150^3130919.063043^8^358^
+"TEMP","DATAO",50.67,6166)
+4565
+"TEMP","DATAO",50.67,6167)
+202150^3130919.063043^9^358^
+"TEMP","DATAO",50.67,6168)
+980
+"TEMP","DATAO",50.67,6169)
+202150^3130919.063043^10^358^
+"TEMP","DATAO",50.67,6170)
+R
+"TEMP","DATAO",50.67,6171)
+202151^3130919.063043^1^358^
+"TEMP","DATAO",50.67,6172)
+068258705803
+"TEMP","DATAO",50.67,6173)
+202151^3130919.063043^3^358^
+"TEMP","DATAO",50.67,6174)
+2853
+"TEMP","DATAO",50.67,6175)
+202151^3130919.063043^4^358^
+"TEMP","DATAO",50.67,6176)
+MECLIZINE
+"TEMP","DATAO",50.67,6177)
+202151^3130919.063043^5^358^
+"TEMP","DATAO",50.67,6178)
+1854
+"TEMP","DATAO",50.67,6179)
+202151^3130919.063043^8^358^
+"TEMP","DATAO",50.67,6180)
+4597
+"TEMP","DATAO",50.67,6181)
+202151^3130919.063043^9^358^
+"TEMP","DATAO",50.67,6182)
+491
+"TEMP","DATAO",50.67,6183)
+202151^3130919.063043^10^358^
+"TEMP","DATAO",50.67,6184)
+O
+"TEMP","DATAO",50.67,6185)
+202152^3130919.063044^1^358^
+"TEMP","DATAO",50.67,6186)
+087701042510
+"TEMP","DATAO",50.67,6187)
+202152^3130919.063044^2^358^
+"TEMP","DATAO",50.67,6188)
+87701-42510
+"TEMP","DATAO",50.67,6189)
+202152^3130919.063044^3^358^
+"TEMP","DATAO",50.67,6190)
+2656
+"TEMP","DATAO",50.67,6191)
+202152^3130919.063044^4^358^
+"TEMP","DATAO",50.67,6192)
+GLYCERIN (ADULT)
+"TEMP","DATAO",50.67,6193)
+202152^3130919.063044^5^358^
+"TEMP","DATAO",50.67,6194)
+4486
+"TEMP","DATAO",50.67,6195)
+202152^3130919.063044^8^358^
+"TEMP","DATAO",50.67,6196)
+4600
+"TEMP","DATAO",50.67,6197)
+202152^3130919.063044^9^358^
+"TEMP","DATAO",50.67,6198)
+491
+"TEMP","DATAO",50.67,6199)
+202152^3130919.063044^10^358^
+"TEMP","DATAO",50.67,6200)
+O
+"TEMP","DATAO",50.67,6201)
+202153^3130919.063044^1^358^
+"TEMP","DATAO",50.67,6202)
+087701042512
+"TEMP","DATAO",50.67,6203)
+202153^3130919.063044^2^358^
+"TEMP","DATAO",50.67,6204)
+87701-42512
+"TEMP","DATAO",50.67,6205)
+202153^3130919.063044^3^358^
+"TEMP","DATAO",50.67,6206)
+2656
+"TEMP","DATAO",50.67,6207)
+202153^3130919.063044^4^358^
+"TEMP","DATAO",50.67,6208)
+GLYCERIN (CHILD)
+"TEMP","DATAO",50.67,6209)
+202153^3130919.063044^5^358^
+"TEMP","DATAO",50.67,6210)
+4488
+"TEMP","DATAO",50.67,6211)
+202153^3130919.063044^8^358^
+"TEMP","DATAO",50.67,6212)
+4600
+"TEMP","DATAO",50.67,6213)
+202153^3130919.063044^9^358^
+"TEMP","DATAO",50.67,6214)
+491
+"TEMP","DATAO",50.67,6215)
+202153^3130919.063044^10^358^
+"TEMP","DATAO",50.67,6216)
+O
+"TEMP","DATAO",50.67,6217)
+202154^3130919.063044^1^358^
+"TEMP","DATAO",50.67,6218)
+098302014172
+"TEMP","DATAO",50.67,6219)
+202154^3130919.063044^3^358^
+"TEMP","DATAO",50.67,6220)
+3801
+"TEMP","DATAO",50.67,6221)
+202154^3130919.063044^4^358^
+"TEMP","DATAO",50.67,6222)
+ALCOHOL PREP PADS
+"TEMP","DATAO",50.67,6223)
+202154^3130919.063044^5^358^
+"TEMP","DATAO",50.67,6224)
+8430
+"TEMP","DATAO",50.67,6225)
+202154^3130919.063044^8^358^
+"TEMP","DATAO",50.67,6226)
+4637
+"TEMP","DATAO",50.67,6227)
+202154^3130919.063044^9^358^
+"TEMP","DATAO",50.67,6228)
+492
+"TEMP","DATAO",50.67,6229)
+202154^3130919.063044^10^358^
+"TEMP","DATAO",50.67,6230)
+O
+"TEMP","DATAO",50.67,6231)
+202155^3130919.063045^1^358^
+"TEMP","DATAO",50.67,6232)
+050804010730
+"TEMP","DATAO",50.67,6233)
+202155^3130919.063045^3^358^
+"TEMP","DATAO",50.67,6234)
+4067
+"TEMP","DATAO",50.67,6235)
+202155^3130919.063045^4^358^
+"TEMP","DATAO",50.67,6236)
+MUCUS RELIEF
+"TEMP","DATAO",50.67,6237)
+202155^3130919.063045^5^358^
+"TEMP","DATAO",50.67,6238)
+18328
+"TEMP","DATAO",50.67,6239)
+202155^3130919.063045^8^358^
+"TEMP","DATAO",50.67,6240)
+4597
+"TEMP","DATAO",50.67,6241)
+202155^3130919.063045^9^358^
+"TEMP","DATAO",50.67,6242)
+491
+"TEMP","DATAO",50.67,6243)
+202155^3130919.063045^10^358^
+"TEMP","DATAO",50.67,6244)
+O
+"TEMP","DATAO",50.67,6245)
+202156^3130919.063045^1^358^
+"TEMP","DATAO",50.67,6246)
+051079014901
+"TEMP","DATAO",50.67,6247)
+202156^3130919.063045^3^358^
+"TEMP","DATAO",50.67,6248)
+3347
+"TEMP","DATAO",50.67,6249)
+202156^3130919.063045^4^358^
+"TEMP","DATAO",50.67,6250)
+SERTRALINE
+"TEMP","DATAO",50.67,6251)
+202156^3130919.063045^5^358^
+"TEMP","DATAO",50.67,6252)
+9716
+"TEMP","DATAO",50.67,6253)
+202156^3130919.063045^8^358^
+"TEMP","DATAO",50.67,6254)
+4592
+"TEMP","DATAO",50.67,6255)
+202156^3130919.063045^9^358^
+"TEMP","DATAO",50.67,6256)
+974
+"TEMP","DATAO",50.67,6257)
+202156^3130919.063045^10^358^
+"TEMP","DATAO",50.67,6258)
+R
+"TEMP","DATAO",50.67,6259)
+202157^3130919.063046^1^358^
+"TEMP","DATAO",50.67,6260)
+051079014920
+"TEMP","DATAO",50.67,6261)
+202157^3130919.063046^3^358^
+"TEMP","DATAO",50.67,6262)
+3347
+"TEMP","DATAO",50.67,6263)
+202157^3130919.063046^4^358^
+"TEMP","DATAO",50.67,6264)
+SERTRALINE
+"TEMP","DATAO",50.67,6265)
+202157^3130919.063046^5^358^
+"TEMP","DATAO",50.67,6266)
+9716
+"TEMP","DATAO",50.67,6267)
+202157^3130919.063046^8^358^
+"TEMP","DATAO",50.67,6268)
+4593
+"TEMP","DATAO",50.67,6269)
+202157^3130919.063046^9^358^
+"TEMP","DATAO",50.67,6270)
+974
+"TEMP","DATAO",50.67,6271)
+202157^3130919.063046^10^358^
+"TEMP","DATAO",50.67,6272)
+R
+"TEMP","DATAO",50.67,6273)
+202158^3130919.063046^1^358^
+"TEMP","DATAO",50.67,6274)
+051224020630
+"TEMP","DATAO",50.67,6275)
+202158^3130919.063046^3^358^
+"TEMP","DATAO",50.67,6276)
+3510
+"TEMP","DATAO",50.67,6277)
+202158^3130919.063046^4^358^
+"TEMP","DATAO",50.67,6278)
+NALTREXONE
+"TEMP","DATAO",50.67,6279)
+202158^3130919.063046^5^358^
+"TEMP","DATAO",50.67,6280)
+4644
+"TEMP","DATAO",50.67,6281)
+202158^3130919.063046^8^358^
+"TEMP","DATAO",50.67,6282)
+4597
+"TEMP","DATAO",50.67,6283)
+202158^3130919.063046^9^358^
+"TEMP","DATAO",50.67,6284)
+491
+"TEMP","DATAO",50.67,6285)
+202158^3130919.063046^10^358^
+"TEMP","DATAO",50.67,6286)
+R
+"TEMP","DATAO",50.67,6287)
+202159^3130919.063046^1^358^
+"TEMP","DATAO",50.67,6288)
+051224020650
+"TEMP","DATAO",50.67,6289)
+202159^3130919.063046^3^358^
+"TEMP","DATAO",50.67,6290)
+3510
+"TEMP","DATAO",50.67,6291)
+202159^3130919.063046^4^358^
+"TEMP","DATAO",50.67,6292)
+NALTREXONE
+"TEMP","DATAO",50.67,6293)
+202159^3130919.063046^5^358^
+"TEMP","DATAO",50.67,6294)
+4644
+"TEMP","DATAO",50.67,6295)
+202159^3130919.063046^8^358^
+"TEMP","DATAO",50.67,6296)
+4593
+"TEMP","DATAO",50.67,6297)
+202159^3130919.063046^9^358^
+"TEMP","DATAO",50.67,6298)
+491
+"TEMP","DATAO",50.67,6299)
+202159^3130919.063046^10^358^
+"TEMP","DATAO",50.67,6300)
+R
+"TEMP","DATAO",50.67,6301)
+202160^3130919.063048^1^358^
+"TEMP","DATAO",50.67,6302)
+053240015101
+"TEMP","DATAO",50.67,6303)
+202160^3130919.063048^3^358^
+"TEMP","DATAO",50.67,6304)
+4395
+"TEMP","DATAO",50.67,6305)
+202160^3130919.063048^4^358^
+"TEMP","DATAO",50.67,6306)
+ZEPHREX-D
+"TEMP","DATAO",50.67,6307)
+202160^3130919.063048^5^358^
+"TEMP","DATAO",50.67,6308)
+23554
+"TEMP","DATAO",50.67,6309)
+202160^3130919.063048^8^358^
+"TEMP","DATAO",50.67,6310)
+4639
+"TEMP","DATAO",50.67,6311)
+202160^3130919.063048^9^358^
+"TEMP","DATAO",50.67,6312)
+492
+"TEMP","DATAO",50.67,6313)
+202160^3130919.063048^10^358^
+"TEMP","DATAO",50.67,6314)
+O
+"TEMP","DATAO",50.67,6315)
+202161^3130919.063049^1^358^
+"TEMP","DATAO",50.67,6316)
+054569302701
+"TEMP","DATAO",50.67,6317)
+202161^3130919.063049^3^358^
+"TEMP","DATAO",50.67,6318)
+3105
+"TEMP","DATAO",50.67,6319)
+202161^3130919.063049^4^358^
+"TEMP","DATAO",50.67,6320)
+DEXAMETHASONE SODIUM PHOSPHATE
+"TEMP","DATAO",50.67,6321)
+202161^3130919.063049^5^358^
+"TEMP","DATAO",50.67,6322)
+2236
+"TEMP","DATAO",50.67,6323)
+202161^3130919.063049^8^358^
+"TEMP","DATAO",50.67,6324)
+4617
+"TEMP","DATAO",50.67,6325)
+202161^3130919.063049^9^358^
+"TEMP","DATAO",50.67,6326)
+613
+"TEMP","DATAO",50.67,6327)
+202161^3130919.063049^10^358^
+"TEMP","DATAO",50.67,6328)
+R
+"TEMP","DATAO",50.67,6329)
+202162^3130919.06305^1^358^
+"TEMP","DATAO",50.67,6330)
+055812021301
+"TEMP","DATAO",50.67,6331)
+202162^3130919.06305^3^358^
+"TEMP","DATAO",50.67,6332)
+4377
+"TEMP","DATAO",50.67,6333)
+202162^3130919.06305^4^358^
+"TEMP","DATAO",50.67,6334)
+KETOPROFEN (BULK)
+"TEMP","DATAO",50.67,6335)
+202162^3130919.06305^5^358^
+"TEMP","DATAO",50.67,6336)
+16894
+"TEMP","DATAO",50.67,6337)
+202162^3130919.06305^8^358^
+"TEMP","DATAO",50.67,6338)
+4617
+"TEMP","DATAO",50.67,6339)
+202162^3130919.06305^9^358^
+"TEMP","DATAO",50.67,6340)
+257
+"TEMP","DATAO",50.67,6341)
+202162^3130919.06305^10^358^
+"TEMP","DATAO",50.67,6342)
+R
+"TEMP","DATAO",50.67,6343)
+202163^3130919.063051^1^358^
+"TEMP","DATAO",50.67,6344)
+055812021302
+"TEMP","DATAO",50.67,6345)
+202163^3130919.063051^3^358^
+"TEMP","DATAO",50.67,6346)
+4377
+"TEMP","DATAO",50.67,6347)
+202163^3130919.063051^4^358^
+"TEMP","DATAO",50.67,6348)
+KETOPROFEN (BULK)
+"TEMP","DATAO",50.67,6349)
+202163^3130919.063051^5^358^
+"TEMP","DATAO",50.67,6350)
+16894
+"TEMP","DATAO",50.67,6351)
+202163^3130919.063051^8^358^
+"TEMP","DATAO",50.67,6352)
+4600
+"TEMP","DATAO",50.67,6353)
+202163^3130919.063051^9^358^
+"TEMP","DATAO",50.67,6354)
+257
+"TEMP","DATAO",50.67,6355)
+202163^3130919.063051^10^358^
+"TEMP","DATAO",50.67,6356)
+R
+"TEMP","DATAO",50.67,6357)
+202164^3130919.063051^1^358^
+"TEMP","DATAO",50.67,6358)
+055812021303
+"TEMP","DATAO",50.67,6359)
+202164^3130919.063051^3^358^
+"TEMP","DATAO",50.67,6360)
+4377
+"TEMP","DATAO",50.67,6361)
+202164^3130919.063051^4^358^
+"TEMP","DATAO",50.67,6362)
+KETOPROFEN (BULK)
+"TEMP","DATAO",50.67,6363)
+202164^3130919.063051^5^358^
+"TEMP","DATAO",50.67,6364)
+16894
+"TEMP","DATAO",50.67,6365)
+202164^3130919.063051^8^358^
+"TEMP","DATAO",50.67,6366)
+4593
+"TEMP","DATAO",50.67,6367)
+202164^3130919.063051^9^358^
+"TEMP","DATAO",50.67,6368)
+257
+"TEMP","DATAO",50.67,6369)
+202164^3130919.063051^10^358^
+"TEMP","DATAO",50.67,6370)
+R
+"TEMP","DATAO",50.67,6371)
+202165^3130919.063051^1^358^
+"TEMP","DATAO",50.67,6372)
+055812021304
+"TEMP","DATAO",50.67,6373)
+202165^3130919.063051^3^358^
+"TEMP","DATAO",50.67,6374)
+4377
+"TEMP","DATAO",50.67,6375)
+202165^3130919.063051^4^358^
+"TEMP","DATAO",50.67,6376)
+KETOPROFEN (BULK)
+"TEMP","DATAO",50.67,6377)
+202165^3130919.063051^5^358^
+"TEMP","DATAO",50.67,6378)
+16894
+"TEMP","DATAO",50.67,6379)
+202165^3130919.063051^8^358^
+"TEMP","DATAO",50.67,6380)
+4596
+"TEMP","DATAO",50.67,6381)
+202165^3130919.063051^9^358^
+"TEMP","DATAO",50.67,6382)
+257
+"TEMP","DATAO",50.67,6383)
+202165^3130919.063051^10^358^
+"TEMP","DATAO",50.67,6384)
+R
+"TEMP","DATAO",50.67,6385)
+202166^3130919.063051^1^358^
+"TEMP","DATAO",50.67,6386)
+055812021305
+"TEMP","DATAO",50.67,6387)
+202166^3130919.063051^3^358^
+"TEMP","DATAO",50.67,6388)
+4377
+"TEMP","DATAO",50.67,6389)
+202166^3130919.063051^4^358^
+"TEMP","DATAO",50.67,6390)
+KETOPROFEN (BULK)
+"TEMP","DATAO",50.67,6391)
+202166^3130919.063051^5^358^
+"TEMP","DATAO",50.67,6392)
+16894
+"TEMP","DATAO",50.67,6393)
+202166^3130919.063051^8^358^
+"TEMP","DATAO",50.67,6394)
+4609
+"TEMP","DATAO",50.67,6395)
+202166^3130919.063051^9^358^
+"TEMP","DATAO",50.67,6396)
+257
+"TEMP","DATAO",50.67,6397)
+202166^3130919.063051^10^358^
+"TEMP","DATAO",50.67,6398)
+R
+"TEMP","DATAO",50.67,6399)
+202167^3130919.071527^1^358^
+"TEMP","DATAO",50.67,6400)
+061442032110
+"TEMP","DATAO",50.67,6401)
+202167^3130919.071527^3^358^
+"TEMP","DATAO",50.67,6402)
+3933
+"TEMP","DATAO",50.67,6403)
+202167^3130919.071527^4^358^
+"TEMP","DATAO",50.67,6404)
+CLONIDINE
+"TEMP","DATAO",50.67,6405)
+202167^3130919.071527^5^358^
+"TEMP","DATAO",50.67,6406)
+1884
+"TEMP","DATAO",50.67,6407)
+202167^3130919.071527^8^358^
+"TEMP","DATAO",50.67,6408)
+4609
+"TEMP","DATAO",50.67,6409)
+202167^3130919.071527^9^358^
+"TEMP","DATAO",50.67,6410)
+491
+"TEMP","DATAO",50.67,6411)
+202167^3130919.071527^10^358^
+"TEMP","DATAO",50.67,6412)
+R
+"TEMP","DATAO",50.67,6413)
+202168^3130919.071652^1^358^
+"TEMP","DATAO",50.67,6414)
+060429006201
+"TEMP","DATAO",50.67,6415)
+202168^3130919.071652^3^358^
+"TEMP","DATAO",50.67,6416)
+3362
+"TEMP","DATAO",50.67,6417)
+202168^3130919.071652^4^358^
+"TEMP","DATAO",50.67,6418)
+OXCARBAZEPINE
+"TEMP","DATAO",50.67,6419)
+202168^3130919.071652^5^358^
+"TEMP","DATAO",50.67,6420)
+14099
+"TEMP","DATAO",50.67,6421)
+202168^3130919.071652^8^358^
+"TEMP","DATAO",50.67,6422)
+4593
+"TEMP","DATAO",50.67,6423)
+202168^3130919.071652^9^358^
+"TEMP","DATAO",50.67,6424)
+491
+"TEMP","DATAO",50.67,6425)
+202168^3130919.071652^10^358^
+"TEMP","DATAO",50.67,6426)
+R
+"TEMP","DATAO",50.67,6427)
+202169^3130919.071653^1^358^
+"TEMP","DATAO",50.67,6428)
+060429006218
+"TEMP","DATAO",50.67,6429)
+202169^3130919.071653^3^358^
+"TEMP","DATAO",50.67,6430)
+3362
+"TEMP","DATAO",50.67,6431)
+202169^3130919.071653^4^358^
+"TEMP","DATAO",50.67,6432)
+OXCARBAZEPINE
+"TEMP","DATAO",50.67,6433)
+202169^3130919.071653^5^358^
+"TEMP","DATAO",50.67,6434)
+14099
+"TEMP","DATAO",50.67,6435)
+202169^3130919.071653^8^358^
+"TEMP","DATAO",50.67,6436)
+4640
+"TEMP","DATAO",50.67,6437)
+202169^3130919.071653^9^358^
+"TEMP","DATAO",50.67,6438)
+491
+"TEMP","DATAO",50.67,6439)
+202169^3130919.071653^10^358^
+"TEMP","DATAO",50.67,6440)
+R
+"TEMP","DATAO",50.67,6441)
+202170^3130919.071653^1^358^
+"TEMP","DATAO",50.67,6442)
+060429006260
+"TEMP","DATAO",50.67,6443)
+202170^3130919.071653^3^358^
+"TEMP","DATAO",50.67,6444)
+3362
+"TEMP","DATAO",50.67,6445)
+202170^3130919.071653^4^358^
+"TEMP","DATAO",50.67,6446)
+OXCARBAZEPINE
+"TEMP","DATAO",50.67,6447)
+202170^3130919.071653^5^358^
+"TEMP","DATAO",50.67,6448)
+14099
+"TEMP","DATAO",50.67,6449)
+202170^3130919.071653^8^358^
+"TEMP","DATAO",50.67,6450)
+4595
+"TEMP","DATAO",50.67,6451)
+202170^3130919.071653^9^358^
+"TEMP","DATAO",50.67,6452)
+491
+"TEMP","DATAO",50.67,6453)
+202170^3130919.071653^10^358^
+"TEMP","DATAO",50.67,6454)
+R
+"TEMP","DATAO",50.67,6455)
+202171^3130919.071727^1^358^
+"TEMP","DATAO",50.67,6456)
+041163010412
+"TEMP","DATAO",50.67,6457)
+202171^3130919.071727^3^358^
+"TEMP","DATAO",50.67,6458)
+3443
+"TEMP","DATAO",50.67,6459)
+202171^3130919.071727^4^358^
+"TEMP","DATAO",50.67,6460)
+ACETAMINOPHEN
+"TEMP","DATAO",50.67,6461)
+202171^3130919.071727^5^358^
+"TEMP","DATAO",50.67,6462)
+6642
+"TEMP","DATAO",50.67,6463)
+202171^3130919.071727^8^358^
+"TEMP","DATAO",50.67,6464)
+4593
+"TEMP","DATAO",50.67,6465)
+202171^3130919.071727^9^358^
+"TEMP","DATAO",50.67,6466)
+491
+"TEMP","DATAO",50.67,6467)
+202171^3130919.071727^10^358^
+"TEMP","DATAO",50.67,6468)
+O
+"TEMP","DATAO",50.67,6469)
+202172^3130919.071727^1^358^
+"TEMP","DATAO",50.67,6470)
+041163047159
+"TEMP","DATAO",50.67,6471)
+202172^3130919.071727^2^358^
+"TEMP","DATAO",50.67,6472)
+41163-47159
+"TEMP","DATAO",50.67,6473)
+202172^3130919.071727^3^358^
+"TEMP","DATAO",50.67,6474)
+3443
+"TEMP","DATAO",50.67,6475)
+202172^3130919.071727^4^358^
+"TEMP","DATAO",50.67,6476)
+ACETAMINOPHEN
+"TEMP","DATAO",50.67,6477)
+202172^3130919.071727^5^358^
+"TEMP","DATAO",50.67,6478)
+6642
+"TEMP","DATAO",50.67,6479)
+202172^3130919.071727^8^358^
+"TEMP","DATAO",50.67,6480)
+4593
+"TEMP","DATAO",50.67,6481)
+202172^3130919.071727^9^358^
+"TEMP","DATAO",50.67,6482)
+491
+"TEMP","DATAO",50.67,6483)
+202172^3130919.071727^10^358^
+"TEMP","DATAO",50.67,6484)
+O
+"TEMP","DATAO",50.67,6485)
+202173^3130919.071801^1^358^
+"TEMP","DATAO",50.67,6486)
+067877031212
+"TEMP","DATAO",50.67,6487)
+202173^3130919.071801^3^358^
+"TEMP","DATAO",50.67,6488)
+3412
+"TEMP","DATAO",50.67,6489)
+202173^3130919.071801^4^358^
+"TEMP","DATAO",50.67,6490)
+HYDROCORTISONE ACETATE
+"TEMP","DATAO",50.67,6491)
+202173^3130919.071801^5^358^
+"TEMP","DATAO",50.67,6492)
+2331
+"TEMP","DATAO",50.67,6493)
+202173^3130919.071801^8^358^
+"TEMP","DATAO",50.67,6494)
+4610
+"TEMP","DATAO",50.67,6495)
+202173^3130919.071801^9^358^
+"TEMP","DATAO",50.67,6496)
+492
+"TEMP","DATAO",50.67,6497)
+202173^3130919.071801^10^358^
+"TEMP","DATAO",50.67,6498)
+R
+"TEMP","DATAO",50.67,6499)
+202174^3130919.071801^1^358^
+"TEMP","DATAO",50.67,6500)
+067877031224
+"TEMP","DATAO",50.67,6501)
+202174^3130919.071801^3^358^
+"TEMP","DATAO",50.67,6502)
+3412
+"TEMP","DATAO",50.67,6503)
+202174^3130919.071801^4^358^
+"TEMP","DATAO",50.67,6504)
+HYDROCORTISONE ACETATE
+"TEMP","DATAO",50.67,6505)
+202174^3130919.071801^5^358^
+"TEMP","DATAO",50.67,6506)
+2331
+"TEMP","DATAO",50.67,6507)
+202174^3130919.071801^8^358^
+"TEMP","DATAO",50.67,6508)
+4639
+"TEMP","DATAO",50.67,6509)
+202174^3130919.071801^9^358^
+"TEMP","DATAO",50.67,6510)
+492
+"TEMP","DATAO",50.67,6511)
+202174^3130919.071801^10^358^
+"TEMP","DATAO",50.67,6512)
+R
+"TEMP","DATAO",50.67,6513)
+202175^3130919.071825^1^358^
+"TEMP","DATAO",50.67,6514)
+061442032210
+"TEMP","DATAO",50.67,6515)
+202175^3130919.071825^3^358^
+"TEMP","DATAO",50.67,6516)
+3933
+"TEMP","DATAO",50.67,6517)
+202175^3130919.071825^4^358^
+"TEMP","DATAO",50.67,6518)
+CLONIDINE
+"TEMP","DATAO",50.67,6519)
+202175^3130919.071825^5^358^
+"TEMP","DATAO",50.67,6520)
+1885
+"TEMP","DATAO",50.67,6521)
+202175^3130919.071825^8^358^
+"TEMP","DATAO",50.67,6522)
+4609
+"TEMP","DATAO",50.67,6523)
+202175^3130919.071825^9^358^
+"TEMP","DATAO",50.67,6524)
+491
+"TEMP","DATAO",50.67,6525)
+202175^3130919.071825^10^358^
+"TEMP","DATAO",50.67,6526)
+R
+"TEMP","DATAO",50.67,6527)
+202176^3130919.071847^1^358^
+"TEMP","DATAO",50.67,6528)
+061442032310
+"TEMP","DATAO",50.67,6529)
+202176^3130919.071847^3^358^
+"TEMP","DATAO",50.67,6530)
+3933
+"TEMP","DATAO",50.67,6531)
+202176^3130919.071847^4^358^
+"TEMP","DATAO",50.67,6532)
+CLONIDINE
+"TEMP","DATAO",50.67,6533)
+202176^3130919.071847^5^358^
+"TEMP","DATAO",50.67,6534)
+1886
+"TEMP","DATAO",50.67,6535)
+202176^3130919.071847^8^358^
+"TEMP","DATAO",50.67,6536)
+4609
+"TEMP","DATAO",50.67,6537)
+202176^3130919.071847^9^358^
+"TEMP","DATAO",50.67,6538)
+491
+"TEMP","DATAO",50.67,6539)
+202176^3130919.071847^10^358^
+"TEMP","DATAO",50.67,6540)
+R
+"TEMP","DATAO",50.67,6541)
+202177^3130919.071919^1^358^
+"TEMP","DATAO",50.67,6542)
+042254040514
+"TEMP","DATAO",50.67,6543)
+202177^3130919.071919^3^358^
+"TEMP","DATAO",50.67,6544)
+3336
+"TEMP","DATAO",50.67,6545)
+202177^3130919.071919^4^358^
+"TEMP","DATAO",50.67,6546)
+DOXYCYCLINE HYCLATE
+"TEMP","DATAO",50.67,6547)
+202177^3130919.071919^5^358^
+"TEMP","DATAO",50.67,6548)
+1357
+"TEMP","DATAO",50.67,6549)
+202177^3130919.071919^8^358^
+"TEMP","DATAO",50.67,6550)
+4601
+"TEMP","DATAO",50.67,6551)
+202177^3130919.071919^9^358^
+"TEMP","DATAO",50.67,6552)
+491
+"TEMP","DATAO",50.67,6553)
+202177^3130919.071919^10^358^
+"TEMP","DATAO",50.67,6554)
+R
+"TEMP","DATAO",50.67,6555)
+202178^3130919.072007^1^358^
+"TEMP","DATAO",50.67,6556)
+060429006301
+"TEMP","DATAO",50.67,6557)
+202178^3130919.072007^3^358^
+"TEMP","DATAO",50.67,6558)
+3362
+"TEMP","DATAO",50.67,6559)
+202178^3130919.072007^4^358^
+"TEMP","DATAO",50.67,6560)
+OXCARBAZEPINE
+"TEMP","DATAO",50.67,6561)
+202178^3130919.072007^5^358^
+"TEMP","DATAO",50.67,6562)
+14101
+"TEMP","DATAO",50.67,6563)
+202178^3130919.072007^8^358^
+"TEMP","DATAO",50.67,6564)
+4593
+"TEMP","DATAO",50.67,6565)
+202178^3130919.072007^9^358^
+"TEMP","DATAO",50.67,6566)
+491
+"TEMP","DATAO",50.67,6567)
+202178^3130919.072007^10^358^
+"TEMP","DATAO",50.67,6568)
+R
+"TEMP","DATAO",50.67,6569)
+202179^3130919.072008^1^358^
+"TEMP","DATAO",50.67,6570)
+060429006318
+"TEMP","DATAO",50.67,6571)
+202179^3130919.072008^3^358^
+"TEMP","DATAO",50.67,6572)
+3362
+"TEMP","DATAO",50.67,6573)
+202179^3130919.072008^4^358^
+"TEMP","DATAO",50.67,6574)
+OXCARBAZEPINE
+"TEMP","DATAO",50.67,6575)
+202179^3130919.072008^5^358^
+"TEMP","DATAO",50.67,6576)
+14101
+"TEMP","DATAO",50.67,6577)
+202179^3130919.072008^8^358^
+"TEMP","DATAO",50.67,6578)
+4640
+"TEMP","DATAO",50.67,6579)
+202179^3130919.072008^9^358^
+"TEMP","DATAO",50.67,6580)
+491
+"TEMP","DATAO",50.67,6581)
+202179^3130919.072008^10^358^
+"TEMP","DATAO",50.67,6582)
+R
+"TEMP","DATAO",50.67,6583)
+202180^3130919.072008^1^358^
+"TEMP","DATAO",50.67,6584)
+060429006360
+"TEMP","DATAO",50.67,6585)
+202180^3130919.072008^3^358^
+"TEMP","DATAO",50.67,6586)
+3362
+"TEMP","DATAO",50.67,6587)
+202180^3130919.072008^4^358^
+"TEMP","DATAO",50.67,6588)
+OXCARBAZEPINE
+"TEMP","DATAO",50.67,6589)
+202180^3130919.072008^5^358^
+"TEMP","DATAO",50.67,6590)
+14101
+"TEMP","DATAO",50.67,6591)
+202180^3130919.072008^8^358^
+"TEMP","DATAO",50.67,6592)
+4595
+"TEMP","DATAO",50.67,6593)
+202180^3130919.072008^9^358^
+"TEMP","DATAO",50.67,6594)
+491
+"TEMP","DATAO",50.67,6595)
+202180^3130919.072008^10^358^
+"TEMP","DATAO",50.67,6596)
+R
+"TEMP","DATAO",50.67,6597)
+202181^3130919.072039^1^358^
+"TEMP","DATAO",50.67,6598)
+042254040990
+"TEMP","DATAO",50.67,6599)
+202181^3130919.072039^3^358^
+"TEMP","DATAO",50.67,6600)
+3336
+"TEMP","DATAO",50.67,6601)
+202181^3130919.072039^4^358^
+"TEMP","DATAO",50.67,6602)
+LOSARTAN-HYDROCHLOROTHIAZIDE
+"TEMP","DATAO",50.67,6603)
+202181^3130919.072039^5^358^
+"TEMP","DATAO",50.67,6604)
+12406
+"TEMP","DATAO",50.67,6605)
+202181^3130919.072039^8^358^
+"TEMP","DATAO",50.67,6606)
+4588
+"TEMP","DATAO",50.67,6607)
+202181^3130919.072039^9^358^
+"TEMP","DATAO",50.67,6608)
+491
+"TEMP","DATAO",50.67,6609)
+202181^3130919.072039^10^358^
+"TEMP","DATAO",50.67,6610)
+R
+"TEMP","DATAO",50.67,6611)
+202182^3130919.072103^1^358^
+"TEMP","DATAO",50.67,6612)
+021695083502
+"TEMP","DATAO",50.67,6613)
+202182^3130919.072103^3^358^
+"TEMP","DATAO",50.67,6614)
+3336
+"TEMP","DATAO",50.67,6615)
+202182^3130919.072104^4^358^
+"TEMP","DATAO",50.67,6616)
+ONDANSETRON HCL
+"TEMP","DATAO",50.67,6617)
+202182^3130919.072104^5^358^
+"TEMP","DATAO",50.67,6618)
+8833
+"TEMP","DATAO",50.67,6619)
+202182^3130919.072104^8^358^
+"TEMP","DATAO",50.67,6620)
+2673
+"TEMP","DATAO",50.67,6621)
+202182^3130919.072104^9^358^
+"TEMP","DATAO",50.67,6622)
+491
+"TEMP","DATAO",50.67,6623)
+202182^3130919.072104^10^358^
+"TEMP","DATAO",50.67,6624)
+R
+"TEMP","DATAO",50.67,6625)
+202183^3130919.072129^1^358^
+"TEMP","DATAO",50.67,6626)
+059726018001
+"TEMP","DATAO",50.67,6627)
+202183^3130919.072129^3^358^
+"TEMP","DATAO",50.67,6628)
+4262
+"TEMP","DATAO",50.67,6629)
+202183^3130919.072129^4^358^
+"TEMP","DATAO",50.67,6630)
+SENNA LAXATIVE
+"TEMP","DATAO",50.67,6631)
+202183^3130919.072129^5^358^
+"TEMP","DATAO",50.67,6632)
+14810
+"TEMP","DATAO",50.67,6633)
+202183^3130919.072129^8^358^
+"TEMP","DATAO",50.67,6634)
+4593
+"TEMP","DATAO",50.67,6635)
+202183^3130919.072129^9^358^
+"TEMP","DATAO",50.67,6636)
+491
+"TEMP","DATAO",50.67,6637)
+202183^3130919.072129^10^358^
+"TEMP","DATAO",50.67,6638)
+O
+"TEMP","DATAO",50.67,6639)
+202184^3130919.07213^1^358^
+"TEMP","DATAO",50.67,6640)
+046036000186
+"TEMP","DATAO",50.67,6641)
+202184^3130919.07213^2^358^
+"TEMP","DATAO",50.67,6642)
+46036-00186
+"TEMP","DATAO",50.67,6643)
+202184^3130919.07213^3^358^
+"TEMP","DATAO",50.67,6644)
+4067
+"TEMP","DATAO",50.67,6645)
+202184^3130919.07213^4^358^
+"TEMP","DATAO",50.67,6646)
+SENNA LAXATIVE
+"TEMP","DATAO",50.67,6647)
+202184^3130919.07213^5^358^
+"TEMP","DATAO",50.67,6648)
+14810
+"TEMP","DATAO",50.67,6649)
+202184^3130919.07213^8^358^
+"TEMP","DATAO",50.67,6650)
+4593
+"TEMP","DATAO",50.67,6651)
+202184^3130919.07213^9^358^
+"TEMP","DATAO",50.67,6652)
+491
+"TEMP","DATAO",50.67,6653)
+202184^3130919.07213^10^358^
+"TEMP","DATAO",50.67,6654)
+O
+"TEMP","DATAO",50.67,6655)
+202185^3130919.072154^1^358^
+"TEMP","DATAO",50.67,6656)
+060429006101
+"TEMP","DATAO",50.67,6657)
+202185^3130919.072154^3^358^
+"TEMP","DATAO",50.67,6658)
+3362
+"TEMP","DATAO",50.67,6659)
+202185^3130919.072154^4^358^
+"TEMP","DATAO",50.67,6660)
+OXCARBAZEPINE
+"TEMP","DATAO",50.67,6661)
+202185^3130919.072154^5^358^
+"TEMP","DATAO",50.67,6662)
+14097
+"TEMP","DATAO",50.67,6663)
+202185^3130919.072154^8^358^
+"TEMP","DATAO",50.67,6664)
+4593
+"TEMP","DATAO",50.67,6665)
+202185^3130919.072154^9^358^
+"TEMP","DATAO",50.67,6666)
+491
+"TEMP","DATAO",50.67,6667)
+202185^3130919.072154^10^358^
+"TEMP","DATAO",50.67,6668)
+R
+"TEMP","DATAO",50.67,6669)
+202186^3130919.072155^1^358^
+"TEMP","DATAO",50.67,6670)
+060429006118
+"TEMP","DATAO",50.67,6671)
+202186^3130919.072155^3^358^
+"TEMP","DATAO",50.67,6672)
+3362
+"TEMP","DATAO",50.67,6673)
+202186^3130919.072155^4^358^
+"TEMP","DATAO",50.67,6674)
+OXCARBAZEPINE
+"TEMP","DATAO",50.67,6675)
+202186^3130919.072155^5^358^
+"TEMP","DATAO",50.67,6676)
+14097
+"TEMP","DATAO",50.67,6677)
+202186^3130919.072155^8^358^
+"TEMP","DATAO",50.67,6678)
+4640
+"TEMP","DATAO",50.67,6679)
+202186^3130919.072155^9^358^
+"TEMP","DATAO",50.67,6680)
+491
+"TEMP","DATAO",50.67,6681)
+202186^3130919.072155^10^358^
+"TEMP","DATAO",50.67,6682)
+R
+"TEMP","DATAO",50.67,6683)
+202187^3130919.072155^1^358^
+"TEMP","DATAO",50.67,6684)
+060429006160
+"TEMP","DATAO",50.67,6685)
+202187^3130919.072155^3^358^
+"TEMP","DATAO",50.67,6686)
+3362
+"TEMP","DATAO",50.67,6687)
+202187^3130919.072155^4^358^
+"TEMP","DATAO",50.67,6688)
+OXCARBAZEPINE
+"TEMP","DATAO",50.67,6689)
+202187^3130919.072155^5^358^
+"TEMP","DATAO",50.67,6690)
+14097
+"TEMP","DATAO",50.67,6691)
+202187^3130919.072155^8^358^
+"TEMP","DATAO",50.67,6692)
+4595
+"TEMP","DATAO",50.67,6693)
+202187^3130919.072155^9^358^
+"TEMP","DATAO",50.67,6694)
+491
+"TEMP","DATAO",50.67,6695)
+202187^3130919.072155^10^358^
+"TEMP","DATAO",50.67,6696)
+R
+"TEMP","DATAO",50.67,6697)
+202188^3130919.072218^1^358^
+"TEMP","DATAO",50.67,6698)
+042254043530
+"TEMP","DATAO",50.67,6699)
+202188^3130919.072218^3^358^
+"TEMP","DATAO",50.67,6700)
+3336
+"TEMP","DATAO",50.67,6701)
+202188^3130919.072218^4^358^
+"TEMP","DATAO",50.67,6702)
+VALSARTAN-HYDROCHLOROTHIAZIDE
+"TEMP","DATAO",50.67,6703)
+202188^3130919.072218^5^358^
+"TEMP","DATAO",50.67,6704)
+12832
+"TEMP","DATAO",50.67,6705)
+202188^3130919.072218^8^358^
+"TEMP","DATAO",50.67,6706)
+4597
+"TEMP","DATAO",50.67,6707)
+202188^3130919.072218^9^358^
+"TEMP","DATAO",50.67,6708)
+491
+"TEMP","DATAO",50.67,6709)
+202188^3130919.072218^10^358^
+"TEMP","DATAO",50.67,6710)
+R
+"TEMP","DATAO",50.67,6711)
+202189^3130919.072219^1^358^
+"TEMP","DATAO",50.67,6712)
+042254043590
+"TEMP","DATAO",50.67,6713)
+202189^3130919.072219^3^358^
+"TEMP","DATAO",50.67,6714)
+3336
+"TEMP","DATAO",50.67,6715)
+202189^3130919.072219^4^358^
+"TEMP","DATAO",50.67,6716)
+VALSARTAN-HYDROCHLOROTHIAZIDE
+"TEMP","DATAO",50.67,6717)
+202189^3130919.072219^5^358^
+"TEMP","DATAO",50.67,6718)
+12832
+"TEMP","DATAO",50.67,6719)
+202189^3130919.072219^8^358^
+"TEMP","DATAO",50.67,6720)
+4588
+"TEMP","DATAO",50.67,6721)
+202189^3130919.072219^9^358^
+"TEMP","DATAO",50.67,6722)
+491
+"TEMP","DATAO",50.67,6723)
+202189^3130919.072219^10^358^
+"TEMP","DATAO",50.67,6724)
+R
+"TEMP","DATAO",50.67,6725)
+202190^3130919.07224^1^358^
+"TEMP","DATAO",50.67,6726)
+042254043630
+"TEMP","DATAO",50.67,6727)
+202190^3130919.07224^3^358^
+"TEMP","DATAO",50.67,6728)
+3336
+"TEMP","DATAO",50.67,6729)
+202190^3130919.07224^4^358^
+"TEMP","DATAO",50.67,6730)
+VALSARTAN-HYDROCHLOROTHIAZIDE
+"TEMP","DATAO",50.67,6731)
+202190^3130919.07224^5^358^
+"TEMP","DATAO",50.67,6732)
+12834
+"TEMP","DATAO",50.67,6733)
+202190^3130919.07224^8^358^
+"TEMP","DATAO",50.67,6734)
+4597
+"TEMP","DATAO",50.67,6735)
+202190^3130919.07224^9^358^
+"TEMP","DATAO",50.67,6736)
+491
+"TEMP","DATAO",50.67,6737)
+202190^3130919.07224^10^358^
+"TEMP","DATAO",50.67,6738)
+R
+"TEMP","DATAO",50.67,6739)
+202191^3130919.07224^1^358^
+"TEMP","DATAO",50.67,6740)
+042254043690
+"TEMP","DATAO",50.67,6741)
+202191^3130919.07224^3^358^
+"TEMP","DATAO",50.67,6742)
+3336
+"TEMP","DATAO",50.67,6743)
+202191^3130919.07224^4^358^
+"TEMP","DATAO",50.67,6744)
+VALSARTAN-HYDROCHLOROTHIAZIDE
+"TEMP","DATAO",50.67,6745)
+202191^3130919.07224^5^358^
+"TEMP","DATAO",50.67,6746)
+12834
+"TEMP","DATAO",50.67,6747)
+202191^3130919.07224^8^358^
+"TEMP","DATAO",50.67,6748)
+4588
+"TEMP","DATAO",50.67,6749)
+202191^3130919.07224^9^358^
+"TEMP","DATAO",50.67,6750)
+491
+"TEMP","DATAO",50.67,6751)
+202191^3130919.07224^10^358^
+"TEMP","DATAO",50.67,6752)
+R
+"TEMP","DATAO",50.67,6753)
+202192^3130919.072301^1^358^
+"TEMP","DATAO",50.67,6754)
+042254043430
+"TEMP","DATAO",50.67,6755)
+202192^3130919.072301^3^358^
+"TEMP","DATAO",50.67,6756)
+3336
+"TEMP","DATAO",50.67,6757)
+202192^3130919.072301^4^358^
+"TEMP","DATAO",50.67,6758)
+PRAVASTATIN
+"TEMP","DATAO",50.67,6759)
+202192^3130919.072301^5^358^
+"TEMP","DATAO",50.67,6760)
+9682
+"TEMP","DATAO",50.67,6761)
+202192^3130919.072301^8^358^
+"TEMP","DATAO",50.67,6762)
+4597
+"TEMP","DATAO",50.67,6763)
+202192^3130919.072301^9^358^
+"TEMP","DATAO",50.67,6764)
+491
+"TEMP","DATAO",50.67,6765)
+202192^3130919.072301^10^358^
+"TEMP","DATAO",50.67,6766)
+R
+"TEMP","DATAO",50.67,6767)
+202193^3130919.072322^1^358^
+"TEMP","DATAO",50.67,6768)
+065862014905
+"TEMP","DATAO",50.67,6769)
+202193^3130919.072322^3^358^
+"TEMP","DATAO",50.67,6770)
+3046
+"TEMP","DATAO",50.67,6771)
+202193^3130919.072322^4^358^
+"TEMP","DATAO",50.67,6772)
+FINASTERIDE
+"TEMP","DATAO",50.67,6773)
+202193^3130919.072322^5^358^
+"TEMP","DATAO",50.67,6774)
+9711
+"TEMP","DATAO",50.67,6775)
+202193^3130919.072322^8^358^
+"TEMP","DATAO",50.67,6776)
+4596
+"TEMP","DATAO",50.67,6777)
+202193^3130919.072322^9^358^
+"TEMP","DATAO",50.67,6778)
+491
+"TEMP","DATAO",50.67,6779)
+202193^3130919.072322^10^358^
+"TEMP","DATAO",50.67,6780)
+R
+"TEMP","DATAO",50.67,6781)
+202194^3130919.074618^1^358^
+"TEMP","DATAO",50.67,6782)
+054569641400
+"TEMP","DATAO",50.67,6783)
+202194^3130919.074618^3^358^
+"TEMP","DATAO",50.67,6784)
+3105
+"TEMP","DATAO",50.67,6785)
+202194^3130919.074618^4^358^
+"TEMP","DATAO",50.67,6786)
+CALAMINE-ZINC OXIDE
+"TEMP","DATAO",50.67,6787)
+202194^3130919.074618^5^358^
+"TEMP","DATAO",50.67,6788)
+9326
+"TEMP","DATAO",50.67,6789)
+202194^3130919.074618^8^358^
+"TEMP","DATAO",50.67,6790)
+4640
+"TEMP","DATAO",50.67,6791)
+202194^3130919.074618^9^358^
+"TEMP","DATAO",50.67,6792)
+491
+"TEMP","DATAO",50.67,6793)
+202194^3130919.074618^10^358^
+"TEMP","DATAO",50.67,6794)
+O
+"TEMP","DATAO",50.67,6795)
+202195^3130919.074755^1^358^
+"TEMP","DATAO",50.67,6796)
+054569641500
+"TEMP","DATAO",50.67,6797)
+202195^3130919.074755^3^358^
+"TEMP","DATAO",50.67,6798)
+3105
+"TEMP","DATAO",50.67,6799)
+202195^3130919.074755^4^358^
+"TEMP","DATAO",50.67,6800)
+NEW TEROCIN
+"TEMP","DATAO",50.67,6801)
+202195^3130919.074755^5^358^
+"TEMP","DATAO",50.67,6802)
+23730
+"TEMP","DATAO",50.67,6803)
+202195^3130919.074755^8^358^
+"TEMP","DATAO",50.67,6804)
+4594
+"TEMP","DATAO",50.67,6805)
+202195^3130919.074755^9^358^
+"TEMP","DATAO",50.67,6806)
+491
+"TEMP","DATAO",50.67,6807)
+202195^3130919.074755^10^358^
+"TEMP","DATAO",50.67,6808)
+O
+"TEMP","DATAO",50.67,6809)
+202196^3130919.075033^1^358^
+"TEMP","DATAO",50.67,6810)
+000178063016
+"TEMP","DATAO",50.67,6811)
+202196^3130919.075033^3^358^
+"TEMP","DATAO",50.67,6812)
+3609
+"TEMP","DATAO",50.67,6813)
+202196^3130919.075033^4^358^
+"TEMP","DATAO",50.67,6814)
+OVACE PLUS
+"TEMP","DATAO",50.67,6815)
+202196^3130919.075033^5^358^
+"TEMP","DATAO",50.67,6816)
+21442
+"TEMP","DATAO",50.67,6817)
+202196^3130919.075033^8^358^
+"TEMP","DATAO",50.67,6818)
+4663
+"TEMP","DATAO",50.67,6819)
+202196^3130919.075033^9^358^
+"TEMP","DATAO",50.67,6820)
+491
+"TEMP","DATAO",50.67,6821)
+202196^3130919.075033^10^358^
+"TEMP","DATAO",50.67,6822)
+R
+"TEMP","DATAO",50.67,6823)
+202197^3130919.075104^1^358^
+"TEMP","DATAO",50.67,6824)
+068258303101
+"TEMP","DATAO",50.67,6825)
+202197^3130919.075104^3^358^
+"TEMP","DATAO",50.67,6826)
+2853
+"TEMP","DATAO",50.67,6827)
+202197^3130919.075104^4^358^
+"TEMP","DATAO",50.67,6828)
+ADVAIR DISKUS
+"TEMP","DATAO",50.67,6829)
+202197^3130919.075104^5^358^
+"TEMP","DATAO",50.67,6830)
+15357
+"TEMP","DATAO",50.67,6831)
+202197^3130919.075104^8^358^
+"TEMP","DATAO",50.67,6832)
+4595
+"TEMP","DATAO",50.67,6833)
+202197^3130919.075104^9^358^
+"TEMP","DATAO",50.67,6834)
+974
+"TEMP","DATAO",50.67,6835)
+202197^3130919.075104^10^358^
+"TEMP","DATAO",50.67,6836)
+R
+"TEMP","DATAO",50.67,6837)
+202198^3130919.075142^1^358^
+"TEMP","DATAO",50.67,6838)
+000603762501
+"TEMP","DATAO",50.67,6839)
+202198^3130919.075142^3^358^
+"TEMP","DATAO",50.67,6840)
+3364
+"TEMP","DATAO",50.67,6841)
+202198^3130919.075142^4^358^
+"TEMP","DATAO",50.67,6842)
+MYZILRA
+"TEMP","DATAO",50.67,6843)
+202198^3130919.075142^5^358^
+"TEMP","DATAO",50.67,6844)
+23334
+"TEMP","DATAO",50.67,6845)
+202198^3130919.075142^8^358^
+"TEMP","DATAO",50.67,6846)
+4591
+"TEMP","DATAO",50.67,6847)
+202198^3130919.075142^9^358^
+"TEMP","DATAO",50.67,6848)
+974
+"TEMP","DATAO",50.67,6849)
+202198^3130919.075142^10^358^
+"TEMP","DATAO",50.67,6850)
+R
+"TEMP","DATAO",50.67,6851)
+202199^3130919.075243^1^358^
+"TEMP","DATAO",50.67,6852)
+011845008891
+"TEMP","DATAO",50.67,6853)
+202199^3130919.075243^2^358^
+"TEMP","DATAO",50.67,6854)
+11845-08891
+"TEMP","DATAO",50.67,6855)
+202199^3130919.075243^3^358^
+"TEMP","DATAO",50.67,6856)
+3396
+"TEMP","DATAO",50.67,6857)
+202199^3130919.075243^4^358^
+"TEMP","DATAO",50.67,6858)
+CALCIUM CARBONATE-VITAMIN D3
+"TEMP","DATAO",50.67,6859)
+202199^3130919.075243^5^358^
+"TEMP","DATAO",50.67,6860)
+18452
+"TEMP","DATAO",50.67,6861)
+202199^3130919.075243^8^358^
+"TEMP","DATAO",50.67,6862)
+4593
+"TEMP","DATAO",50.67,6863)
+202199^3130919.075243^9^358^
+"TEMP","DATAO",50.67,6864)
+491
+"TEMP","DATAO",50.67,6865)
+202199^3130919.075243^10^358^
+"TEMP","DATAO",50.67,6866)
+O
+"TEMP","DATAO",50.67,6867)
+202200^3130919.075244^1^358^
+"TEMP","DATAO",50.67,6868)
+011845008892
+"TEMP","DATAO",50.67,6869)
+202200^3130919.075244^2^358^
+"TEMP","DATAO",50.67,6870)
+11845-08892
+"TEMP","DATAO",50.67,6871)
+202200^3130919.075244^3^358^
+"TEMP","DATAO",50.67,6872)
+3396
+"TEMP","DATAO",50.67,6873)
+202200^3130919.075244^4^358^
+"TEMP","DATAO",50.67,6874)
+CALCIUM CARBONATE-VITAMIN D3
+"TEMP","DATAO",50.67,6875)
+202200^3130919.075244^5^358^
+"TEMP","DATAO",50.67,6876)
+18452
+"TEMP","DATAO",50.67,6877)
+202200^3130919.075244^8^358^
+"TEMP","DATAO",50.67,6878)
+4637
+"TEMP","DATAO",50.67,6879)
+202200^3130919.075244^9^358^
+"TEMP","DATAO",50.67,6880)
+491
+"TEMP","DATAO",50.67,6881)
+202200^3130919.075244^10^358^
+"TEMP","DATAO",50.67,6882)
+O
+"TEMP","DATAO",50.67,6883)
+202201^3130919.080138^1^358^
+"TEMP","DATAO",50.67,6884)
+042874001201
+"TEMP","DATAO",50.67,6885)
+202201^3130919.080138^3^358^
+"TEMP","DATAO",50.67,6886)
+4396
+"TEMP","DATAO",50.67,6887)
+202201^3130919.080138^4^358^
+"TEMP","DATAO",50.67,6888)
+FLUBLOK 2012-2013 (PF)
+"TEMP","DATAO",50.67,6889)
+202201^3130919.080138^5^358^
+"TEMP","DATAO",50.67,6890)
+24124
+"TEMP","DATAO",50.67,6891)
+202201^3130919.080138^8^358^
+"TEMP","DATAO",50.67,6892)
+4574
+"TEMP","DATAO",50.67,6893)
+202201^3130919.080138^9^358^
+"TEMP","DATAO",50.67,6894)
+613
+"TEMP","DATAO",50.67,6895)
+202201^3130919.080138^10^358^
+"TEMP","DATAO",50.67,6896)
+R
+"TEMP","DATAO",50.67,6897)
+202202^3130919.080138^1^358^
+"TEMP","DATAO",50.67,6898)
+042874001210
+"TEMP","DATAO",50.67,6899)
+202202^3130919.080138^3^358^
+"TEMP","DATAO",50.67,6900)
+4396
+"TEMP","DATAO",50.67,6901)
+202202^3130919.080138^4^358^
+"TEMP","DATAO",50.67,6902)
+FLUBLOK 2012-2013 (PF)
+"TEMP","DATAO",50.67,6903)
+202202^3130919.080138^5^358^
+"TEMP","DATAO",50.67,6904)
+24124
+"TEMP","DATAO",50.67,6905)
+202202^3130919.080138^8^358^
+"TEMP","DATAO",50.67,6906)
+4574
+"TEMP","DATAO",50.67,6907)
+202202^3130919.080138^9^358^
+"TEMP","DATAO",50.67,6908)
+613
+"TEMP","DATAO",50.67,6909)
+202202^3130919.080138^10^358^
+"TEMP","DATAO",50.67,6910)
+R
+"TEMP","DATAO",50.67,6911)
+202203^3130919.083137^1^358^
+"TEMP","DATAO",50.67,6912)
+024338020020
+"TEMP","DATAO",50.67,6913)
+202203^3130919.083137^3^358^
+"TEMP","DATAO",50.67,6914)
+3688
+"TEMP","DATAO",50.67,6915)
+202203^3130919.083137^4^358^
+"TEMP","DATAO",50.67,6916)
+NYMALIZE
+"TEMP","DATAO",50.67,6917)
+202203^3130919.083137^5^358^
+"TEMP","DATAO",50.67,6918)
+24021
+"TEMP","DATAO",50.67,6919)
+202203^3130919.083137^8^358^
+"TEMP","DATAO",50.67,6920)
+4603
+"TEMP","DATAO",50.67,6921)
+202203^3130919.083137^9^358^
+"TEMP","DATAO",50.67,6922)
+539
+"TEMP","DATAO",50.67,6923)
+202203^3130919.083137^10^358^
+"TEMP","DATAO",50.67,6924)
+R
+"TEMP","DATAO",50.67,6925)
+202204^3130919.083137^1^358^
+"TEMP","DATAO",50.67,6926)
+024338020012
+"TEMP","DATAO",50.67,6927)
+202204^3130919.083137^3^358^
+"TEMP","DATAO",50.67,6928)
+3688
+"TEMP","DATAO",50.67,6929)
+202204^3130919.083137^4^358^
+"TEMP","DATAO",50.67,6930)
+NYMALIZE
+"TEMP","DATAO",50.67,6931)
+202204^3130919.083137^5^358^
+"TEMP","DATAO",50.67,6932)
+24021
+"TEMP","DATAO",50.67,6933)
+202204^3130919.083137^8^358^
+"TEMP","DATAO",50.67,6934)
+4603
+"TEMP","DATAO",50.67,6935)
+202204^3130919.083137^9^358^
+"TEMP","DATAO",50.67,6936)
+539
+"TEMP","DATAO",50.67,6937)
+202204^3130919.083137^10^358^
+"TEMP","DATAO",50.67,6938)
+R
+"TEMP","DATAO",50.67,6939)
+202205^3130919.112423^1^358^
+"TEMP","DATAO",50.67,6940)
+099718078422
+"TEMP","DATAO",50.67,6941)
+202205^3130919.112423^3^358^
+"TEMP","DATAO",50.67,6942)
+2760
+"TEMP","DATAO",50.67,6943)
+202205^3130919.112423^4^358^
+"TEMP","DATAO",50.67,6944)
+MICROSKIN POUCH
+"TEMP","DATAO",50.67,6945)
+202205^3130919.112423^5^358^
+"TEMP","DATAO",50.67,6946)
+24171
+"TEMP","DATAO",50.67,6947)
+202205^3130919.112423^8^358^
+"TEMP","DATAO",50.67,6948)
+4598
+"TEMP","DATAO",50.67,6949)
+202205^3130919.112423^9^358^
+"TEMP","DATAO",50.67,6950)
+492
+"TEMP","DATAO",50.67,6951)
+202205^3130919.112423^10^358^
+"TEMP","DATAO",50.67,6952)
+R
+"TEMP","DATAO",50.67,6953)
+202206^3130919.112742^1^358^
+"TEMP","DATAO",50.67,6954)
+052544004154
+"TEMP","DATAO",50.67,6955)
+202206^3130919.112742^3^358^
+"TEMP","DATAO",50.67,6956)
+4383
+"TEMP","DATAO",50.67,6957)
+202206^3130919.112742^4^358^
+"TEMP","DATAO",50.67,6958)
+GELNIQUE
+"TEMP","DATAO",50.67,6959)
+202206^3130919.112742^5^358^
+"TEMP","DATAO",50.67,6960)
+24172
+"TEMP","DATAO",50.67,6961)
+202206^3130919.112742^8^358^
+"TEMP","DATAO",50.67,6962)
+4627
+"TEMP","DATAO",50.67,6963)
+202206^3130919.112742^9^358^
+"TEMP","DATAO",50.67,6964)
+491
+"TEMP","DATAO",50.67,6965)
+202206^3130919.112742^10^358^
+"TEMP","DATAO",50.67,6966)
+R
+"TEMP","DATAO",50.67,6967)
+202207^3130919.131051^1^358^
+"TEMP","DATAO",50.67,6968)
+076074014214
+"TEMP","DATAO",50.67,6969)
+202207^3130919.131051^3^358^
+"TEMP","DATAO",50.67,6970)
+4278
+"TEMP","DATAO",50.67,6971)
+202207^3130919.131051^4^358^
+"TEMP","DATAO",50.67,6972)
+DOLORACIN-L-RX
+"TEMP","DATAO",50.67,6973)
+202207^3130919.131051^5^358^
+"TEMP","DATAO",50.67,6974)
+24173
+"TEMP","DATAO",50.67,6975)
+202207^3130919.131051^8^358^
+"TEMP","DATAO",50.67,6976)
+4594
+"TEMP","DATAO",50.67,6977)
+202207^3130919.131051^9^358^
+"TEMP","DATAO",50.67,6978)
+597
+"TEMP","DATAO",50.67,6979)
+202207^3130919.131051^10^358^
+"TEMP","DATAO",50.67,6980)
+O
+"TEMP","DATAO",50.67,6981)
+202208^3130919.131053^1^358^
+"TEMP","DATAO",50.67,6982)
+076074015214
+"TEMP","DATAO",50.67,6983)
+202208^3130919.131053^3^358^
+"TEMP","DATAO",50.67,6984)
+4278
+"TEMP","DATAO",50.67,6985)
+202208^3130919.131053^4^358^
+"TEMP","DATAO",50.67,6986)
+MEDI-DERM-L-RX
+"TEMP","DATAO",50.67,6987)
+202208^3130919.131053^5^358^
+"TEMP","DATAO",50.67,6988)
+24173
+"TEMP","DATAO",50.67,6989)
+202208^3130919.131053^8^358^
+"TEMP","DATAO",50.67,6990)
+4594
+"TEMP","DATAO",50.67,6991)
+202208^3130919.131053^9^358^
+"TEMP","DATAO",50.67,6992)
+597
+"TEMP","DATAO",50.67,6993)
+202208^3130919.131053^10^358^
+"TEMP","DATAO",50.67,6994)
+O
+"TEMP","DATAO",50.67,6995)
+128712^3130920.050001^7^358^
+"TEMP","DATAO",50.67,6996)
+3130920
+"TEMP","DATAO",50.67,6997)
+90623^3130920.050002^7^358^
+"TEMP","DATAO",50.67,6998)
+3130920
+"TEMP","DATAO",50.67,6999)
+83738^3130920.050019^4^358^
+"TEMP","DATAO",50.67,7000)
+CORICIDIN HBP COLD & FLU
+"TEMP","DATAO",50.67,7001)
+83739^3130920.05002^4^358^
+"TEMP","DATAO",50.67,7002)
+CORICIDIN HBP COLD & FLU
+"TEMP","DATAO",50.67,7003)
+118592^3130920.050021^7^358^
+"TEMP","DATAO",50.67,7004)
+3130920
+"TEMP","DATAO",50.67,7005)
+118154^3130920.050022^7^358^
+"TEMP","DATAO",50.67,7006)
+3130920
+"TEMP","DATAO",50.67,7007)
+118153^3130920.050023^7^358^
+"TEMP","DATAO",50.67,7008)
+3130920
+"TEMP","DATAO",50.67,7009)
+113158^3130920.050025^7^358^
+"TEMP","DATAO",50.67,7010)
+3130920
+"TEMP","DATAO",50.67,7011)
+113157^3130920.050026^7^358^
+"TEMP","DATAO",50.67,7012)
+3130920
+"TEMP","DATAO",50.67,7013)
+113129^3130920.050026^7^358^
+"TEMP","DATAO",50.67,7014)
+3130920
+"TEMP","DATAO",50.67,7015)
+113128^3130920.050027^7^358^
+"TEMP","DATAO",50.67,7016)
+3130920
+"TEMP","DATAO",50.67,7017)
+113081^3130920.050027^7^358^
+"TEMP","DATAO",50.67,7018)
+3130920
+"TEMP","DATAO",50.67,7019)
+114381^3130920.050028^7^358^
+"TEMP","DATAO",50.67,7020)
+3130920
+"TEMP","DATAO",50.67,7021)
+190126^3130920.050032^2^358^
+"TEMP","DATAO",50.67,7022)
+41100-80810
+"TEMP","DATAO",50.67,7023)
+190126^3130920.050032^4^358^
+"TEMP","DATAO",50.67,7024)
+CORICIDIN HBP COLD & FLU
+"TEMP","DATAO",50.67,7025)
+191144^3130920.050033^7^358^
+"TEMP","DATAO",50.67,7026)
+3130920
+"TEMP","DATAO",50.67,7027)
+195443^3130920.050038^7^358^
+"TEMP","DATAO",50.67,7028)
+
+"TEMP","DATAO",50.67,7029)
+194070^3130920.05004^7^358^
+"TEMP","DATAO",50.67,7030)
+3130920
+"TEMP","DATAO",50.67,7031)
+194071^3130920.05004^7^358^
+"TEMP","DATAO",50.67,7032)
+3130920
+"TEMP","DATAO",50.67,7033)
+194072^3130920.05004^7^358^
+"TEMP","DATAO",50.67,7034)
+3130920
+"TEMP","DATAO",50.67,7035)
+193926^3130920.050041^7^358^
+"TEMP","DATAO",50.67,7036)
+3130920
+"TEMP","DATAO",50.67,7037)
+193927^3130920.050041^7^358^
+"TEMP","DATAO",50.67,7038)
+3130920
+"TEMP","DATAO",50.67,7039)
+193928^3130920.050042^7^358^
+"TEMP","DATAO",50.67,7040)
+3130920
+"TEMP","DATAO",50.67,7041)
+193929^3130920.050042^7^358^
+"TEMP","DATAO",50.67,7042)
+3130920
+"TEMP","DATAO",50.67,7043)
+193930^3130920.050043^7^358^
+"TEMP","DATAO",50.67,7044)
+3130920
+"TEMP","DATAO",50.67,7045)
+193931^3130920.050043^7^358^
+"TEMP","DATAO",50.67,7046)
+3130920
+"TEMP","DATAO",50.67,7047)
+156063^3130920.050109^7^358^
+"TEMP","DATAO",50.67,7048)
+3130920
+"TEMP","DATAO",50.67,7049)
+132475^3130920.050121^7^358^
+"TEMP","DATAO",50.67,7050)
+3130920
+"TEMP","DATAO",50.67,7051)
+118744^3130920.050122^7^358^
+"TEMP","DATAO",50.67,7052)
+3130920
+"TEMP","DATAO",50.67,7053)
+118669^3130920.050122^7^358^
+"TEMP","DATAO",50.67,7054)
+3130920
+"TEMP","DATAO",50.67,7055)
+118668^3130920.050123^7^358^
+"TEMP","DATAO",50.67,7056)
+3130920
+"TEMP","DATAO",50.67,7057)
+118627^3130920.050123^7^358^
+"TEMP","DATAO",50.67,7058)
+3130920
+"TEMP","DATAO",50.67,7059)
+118626^3130920.050124^7^358^
+"TEMP","DATAO",50.67,7060)
+3130920
+"TEMP","DATAO",50.67,7061)
+118709^3130920.050124^7^358^
+"TEMP","DATAO",50.67,7062)
+3130920
+"TEMP","DATAO",50.67,7063)
+118708^3130920.050124^7^358^
+"TEMP","DATAO",50.67,7064)
+3130920
+"TEMP","DATAO",50.67,7065)
+192447^3130920.050127^4^358^
+"TEMP","DATAO",50.67,7066)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7067)
+183527^3130920.050139^4^358^
+"TEMP","DATAO",50.67,7068)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7069)
+183526^3130920.05014^4^358^
+"TEMP","DATAO",50.67,7070)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7071)
+183525^3130920.05014^4^358^
+"TEMP","DATAO",50.67,7072)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7073)
+183524^3130920.05014^4^358^
+"TEMP","DATAO",50.67,7074)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7075)
+107042^3130920.050143^4^358^
+"TEMP","DATAO",50.67,7076)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7077)
+183569^3130920.050143^4^358^
+"TEMP","DATAO",50.67,7078)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7079)
+104747^3130920.050148^7^358^
+"TEMP","DATAO",50.67,7080)
+
+"TEMP","DATAO",50.67,7081)
+135989^3130920.05015^7^358^
+"TEMP","DATAO",50.67,7082)
+3130920
+"TEMP","DATAO",50.67,7083)
+117412^3130920.05015^7^358^
+"TEMP","DATAO",50.67,7084)
+3130920
+"TEMP","DATAO",50.67,7085)
+117388^3130920.050151^7^358^
+"TEMP","DATAO",50.67,7086)
+3130920
+"TEMP","DATAO",50.67,7087)
+117355^3130920.050151^7^358^
+"TEMP","DATAO",50.67,7088)
+3130920
+"TEMP","DATAO",50.67,7089)
+117333^3130920.050152^7^358^
+"TEMP","DATAO",50.67,7090)
+3130920
+"TEMP","DATAO",50.67,7091)
+117316^3130920.050152^7^358^
+"TEMP","DATAO",50.67,7092)
+3130920
+"TEMP","DATAO",50.67,7093)
+117300^3130920.050153^7^358^
+"TEMP","DATAO",50.67,7094)
+3130920
+"TEMP","DATAO",50.67,7095)
+117285^3130920.050153^7^358^
+"TEMP","DATAO",50.67,7096)
+3130920
+"TEMP","DATAO",50.67,7097)
+189635^3130920.050156^7^358^
+"TEMP","DATAO",50.67,7098)
+3130920
+"TEMP","DATAO",50.67,7099)
+177351^3130920.050156^7^358^
+"TEMP","DATAO",50.67,7100)
+3130920
+"TEMP","DATAO",50.67,7101)
+189089^3130920.050157^7^358^
+"TEMP","DATAO",50.67,7102)
+3130920
+"TEMP","DATAO",50.67,7103)
+189088^3130920.050158^7^358^
+"TEMP","DATAO",50.67,7104)
+3130920
+"TEMP","DATAO",50.67,7105)
+115349^3130920.050158^7^358^
+"TEMP","DATAO",50.67,7106)
+3130920
+"TEMP","DATAO",50.67,7107)
+115348^3130920.050159^7^358^
+"TEMP","DATAO",50.67,7108)
+3130920
+"TEMP","DATAO",50.67,7109)
+189633^3130920.050159^7^358^
+"TEMP","DATAO",50.67,7110)
+3130920
+"TEMP","DATAO",50.67,7111)
+160616^3130920.0502^7^358^
+"TEMP","DATAO",50.67,7112)
+3130920
+"TEMP","DATAO",50.67,7113)
+97517^3130920.0502^7^358^
+"TEMP","DATAO",50.67,7114)
+3130920
+"TEMP","DATAO",50.67,7115)
+162353^3130920.050201^7^358^
+"TEMP","DATAO",50.67,7116)
+3130920
+"TEMP","DATAO",50.67,7117)
+133710^3130920.050205^7^358^
+"TEMP","DATAO",50.67,7118)
+3130920
+"TEMP","DATAO",50.67,7119)
+165041^3130920.050206^7^358^
+"TEMP","DATAO",50.67,7120)
+3130920
+"TEMP","DATAO",50.67,7121)
+178070^3130920.050207^7^358^
+"TEMP","DATAO",50.67,7122)
+3130920
+"TEMP","DATAO",50.67,7123)
+125086^3130920.050208^7^358^
+"TEMP","DATAO",50.67,7124)
+3130920
+"TEMP","DATAO",50.67,7125)
+166636^3130920.050208^7^358^
+"TEMP","DATAO",50.67,7126)
+3130920
+"TEMP","DATAO",50.67,7127)
+178069^3130920.050209^7^358^
+"TEMP","DATAO",50.67,7128)
+3130920
+"TEMP","DATAO",50.67,7129)
+165847^3130920.050209^7^358^
+"TEMP","DATAO",50.67,7130)
+3130920
+"TEMP","DATAO",50.67,7131)
+182682^3130920.05021^7^358^
+"TEMP","DATAO",50.67,7132)
+3130920
+"TEMP","DATAO",50.67,7133)
+182681^3130920.05021^7^358^
+"TEMP","DATAO",50.67,7134)
+3130920
+"TEMP","DATAO",50.67,7135)
+177986^3130920.050211^7^358^
+"TEMP","DATAO",50.67,7136)
+3130920
+"TEMP","DATAO",50.67,7137)
+151106^3130920.050229^7^358^
+"TEMP","DATAO",50.67,7138)
+3130920
+"TEMP","DATAO",50.67,7139)
+117411^3130920.050229^7^358^
+"TEMP","DATAO",50.67,7140)
+3130920
+"TEMP","DATAO",50.67,7141)
+117410^3130920.050229^7^358^
+"TEMP","DATAO",50.67,7142)
+3130920
+"TEMP","DATAO",50.67,7143)
+117387^3130920.05023^7^358^
+"TEMP","DATAO",50.67,7144)
+3130920
+"TEMP","DATAO",50.67,7145)
+117386^3130920.05023^7^358^
+"TEMP","DATAO",50.67,7146)
+3130920
+"TEMP","DATAO",50.67,7147)
+89209^3130920.050232^7^358^
+"TEMP","DATAO",50.67,7148)
+3130920
+"TEMP","DATAO",50.67,7149)
+99609^3130920.050232^7^358^
+"TEMP","DATAO",50.67,7150)
+3130920
+"TEMP","DATAO",50.67,7151)
+117314^3130920.050233^7^358^
+"TEMP","DATAO",50.67,7152)
+3130920
+"TEMP","DATAO",50.67,7153)
+117315^3130920.050233^7^358^
+"TEMP","DATAO",50.67,7154)
+3130920
+"TEMP","DATAO",50.67,7155)
+117354^3130920.050234^7^358^
+"TEMP","DATAO",50.67,7156)
+3130920
+"TEMP","DATAO",50.67,7157)
+117353^3130920.050234^7^358^
+"TEMP","DATAO",50.67,7158)
+3130920
+"TEMP","DATAO",50.67,7159)
+117332^3130920.050235^7^358^
+"TEMP","DATAO",50.67,7160)
+3130920
+"TEMP","DATAO",50.67,7161)
+117331^3130920.050235^7^358^
+"TEMP","DATAO",50.67,7162)
+3130920
+"TEMP","DATAO",50.67,7163)
+117298^3130920.050237^7^358^
+"TEMP","DATAO",50.67,7164)
+3130920
+"TEMP","DATAO",50.67,7165)
+117299^3130920.050238^7^358^
+"TEMP","DATAO",50.67,7166)
+3130920
+"TEMP","DATAO",50.67,7167)
+183559^3130920.050238^4^358^
+"TEMP","DATAO",50.67,7168)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7169)
+57044^3130920.050242^7^358^
+"TEMP","DATAO",50.67,7170)
+3130920
+"TEMP","DATAO",50.67,7171)
+117284^3130920.050245^7^358^
+"TEMP","DATAO",50.67,7172)
+3130920
+"TEMP","DATAO",50.67,7173)
+117283^3130920.050246^7^358^
+"TEMP","DATAO",50.67,7174)
+3130920
+"TEMP","DATAO",50.67,7175)
+116529^3130920.050255^7^358^
+"TEMP","DATAO",50.67,7176)
+3130920
+"TEMP","DATAO",50.67,7177)
+106111^3130920.050257^7^358^
+"TEMP","DATAO",50.67,7178)
+3130920
+"TEMP","DATAO",50.67,7179)
+132471^3130920.050259^2^358^
+"TEMP","DATAO",50.67,7180)
+96295-11836
+"TEMP","DATAO",50.67,7181)
+132471^3130920.050259^7^358^
+"TEMP","DATAO",50.67,7182)
+3130920
+"TEMP","DATAO",50.67,7183)
+183736^3130920.050302^7^358^
+"TEMP","DATAO",50.67,7184)
+
+"TEMP","DATAO",50.67,7185)
+183735^3130920.050302^7^358^
+"TEMP","DATAO",50.67,7186)
+
+"TEMP","DATAO",50.67,7187)
+102893^3130920.050303^7^358^
+"TEMP","DATAO",50.67,7188)
+
+"TEMP","DATAO",50.67,7189)
+183554^3130920.050307^4^358^
+"TEMP","DATAO",50.67,7190)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7191)
+183558^3130920.050308^4^358^
+"TEMP","DATAO",50.67,7192)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7193)
+183557^3130920.050308^4^358^
+"TEMP","DATAO",50.67,7194)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7195)
+183556^3130920.050309^4^358^
+"TEMP","DATAO",50.67,7196)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7197)
+183555^3130920.050309^4^358^
+"TEMP","DATAO",50.67,7198)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7199)
+126304^3130920.05031^7^358^
+"TEMP","DATAO",50.67,7200)
+3130920
+"TEMP","DATAO",50.67,7201)
+126303^3130920.05031^7^358^
+"TEMP","DATAO",50.67,7202)
+3130920
+"TEMP","DATAO",50.67,7203)
+126302^3130920.050311^7^358^
+"TEMP","DATAO",50.67,7204)
+3130920
+"TEMP","DATAO",50.67,7205)
+126301^3130920.050311^7^358^
+"TEMP","DATAO",50.67,7206)
+3130920
+"TEMP","DATAO",50.67,7207)
+126300^3130920.050311^7^358^
+"TEMP","DATAO",50.67,7208)
+3130920
+"TEMP","DATAO",50.67,7209)
+181900^3130920.050314^7^358^
+"TEMP","DATAO",50.67,7210)
+3130920
+"TEMP","DATAO",50.67,7211)
+56574^3130920.050315^7^358^
+"TEMP","DATAO",50.67,7212)
+3130920
+"TEMP","DATAO",50.67,7213)
+181765^3130920.050315^7^358^
+"TEMP","DATAO",50.67,7214)
+3130920
+"TEMP","DATAO",50.67,7215)
+56485^3130920.050316^7^358^
+"TEMP","DATAO",50.67,7216)
+3130920
+"TEMP","DATAO",50.67,7217)
+181967^3130920.050316^7^358^
+"TEMP","DATAO",50.67,7218)
+3130920
+"TEMP","DATAO",50.67,7219)
+183553^3130920.050317^4^358^
+"TEMP","DATAO",50.67,7220)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7221)
+126202^3130920.05032^7^358^
+"TEMP","DATAO",50.67,7222)
+3130920
+"TEMP","DATAO",50.67,7223)
+183548^3130920.050329^4^358^
+"TEMP","DATAO",50.67,7224)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7225)
+183547^3130920.050329^4^358^
+"TEMP","DATAO",50.67,7226)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7227)
+183546^3130920.050329^4^358^
+"TEMP","DATAO",50.67,7228)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7229)
+183545^3130920.05033^4^358^
+"TEMP","DATAO",50.67,7230)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7231)
+183544^3130920.05033^4^358^
+"TEMP","DATAO",50.67,7232)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7233)
+183709^3130920.050339^7^358^
+"TEMP","DATAO",50.67,7234)
+3130920
+"TEMP","DATAO",50.67,7235)
+134608^3130920.050339^7^358^
+"TEMP","DATAO",50.67,7236)
+3130920
+"TEMP","DATAO",50.67,7237)
+183495^3130920.050341^4^358^
+"TEMP","DATAO",50.67,7238)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7239)
+183543^3130920.050355^4^358^
+"TEMP","DATAO",50.67,7240)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7241)
+183542^3130920.050355^4^358^
+"TEMP","DATAO",50.67,7242)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7243)
+183541^3130920.050355^4^358^
+"TEMP","DATAO",50.67,7244)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7245)
+183540^3130920.050356^4^358^
+"TEMP","DATAO",50.67,7246)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7247)
+183539^3130920.050356^4^358^
+"TEMP","DATAO",50.67,7248)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7249)
+183538^3130920.050356^4^358^
+"TEMP","DATAO",50.67,7250)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7251)
+183537^3130920.050403^4^358^
+"TEMP","DATAO",50.67,7252)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7253)
+183536^3130920.050403^4^358^
+"TEMP","DATAO",50.67,7254)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7255)
+183535^3130920.050403^4^358^
+"TEMP","DATAO",50.67,7256)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7257)
+183534^3130920.050404^4^358^
+"TEMP","DATAO",50.67,7258)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7259)
+183533^3130920.050404^4^358^
+"TEMP","DATAO",50.67,7260)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7261)
+183532^3130920.050405^4^358^
+"TEMP","DATAO",50.67,7262)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7263)
+183531^3130920.050405^4^358^
+"TEMP","DATAO",50.67,7264)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7265)
+183530^3130920.050406^4^358^
+"TEMP","DATAO",50.67,7266)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7267)
+153001^3130920.050411^7^358^
+"TEMP","DATAO",50.67,7268)
+3130920
+"TEMP","DATAO",50.67,7269)
+152983^3130920.050413^7^358^
+"TEMP","DATAO",50.67,7270)
+3130920
+"TEMP","DATAO",50.67,7271)
+56549^3130920.050414^7^358^
+"TEMP","DATAO",50.67,7272)
+3130920
+"TEMP","DATAO",50.67,7273)
+56567^3130920.050414^7^358^
+"TEMP","DATAO",50.67,7274)
+3130920
+"TEMP","DATAO",50.67,7275)
+143349^3130920.050421^7^358^
+"TEMP","DATAO",50.67,7276)
+3130920
+"TEMP","DATAO",50.67,7277)
+107885^3130920.050422^7^358^
+"TEMP","DATAO",50.67,7278)
+3130920
+"TEMP","DATAO",50.67,7279)
+107884^3130920.050426^7^358^
+"TEMP","DATAO",50.67,7280)
+3130920
+"TEMP","DATAO",50.67,7281)
+107883^3130920.050427^7^358^
+"TEMP","DATAO",50.67,7282)
+3130920
+"TEMP","DATAO",50.67,7283)
+107882^3130920.050427^7^358^
+"TEMP","DATAO",50.67,7284)
+3130920
+"TEMP","DATAO",50.67,7285)
+136472^3130920.05044^7^358^
+"TEMP","DATAO",50.67,7286)
+3130920
+"TEMP","DATAO",50.67,7287)
+136471^3130920.05044^7^358^
+"TEMP","DATAO",50.67,7288)
+3130920
+"TEMP","DATAO",50.67,7289)
+136470^3130920.05044^7^358^
+"TEMP","DATAO",50.67,7290)
+3130920
+"TEMP","DATAO",50.67,7291)
+183528^3130920.050449^4^358^
+"TEMP","DATAO",50.67,7292)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7293)
+201413^3130920.050525^4^358^
+"TEMP","DATAO",50.67,7294)
+LIDOCAINE VISCOUS
+"TEMP","DATAO",50.67,7295)
+183520^3130920.050534^4^358^
+"TEMP","DATAO",50.67,7296)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7297)
+183519^3130920.050534^4^358^
+"TEMP","DATAO",50.67,7298)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7299)
+93509^3130920.050535^7^358^
+"TEMP","DATAO",50.67,7300)
+3130920
+"TEMP","DATAO",50.67,7301)
+197583^3130920.050536^7^358^
+"TEMP","DATAO",50.67,7302)
+3130920
+"TEMP","DATAO",50.67,7303)
+183521^3130920.050537^4^358^
+"TEMP","DATAO",50.67,7304)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7305)
+190733^3130920.050542^7^358^
+"TEMP","DATAO",50.67,7306)
+3130920
+"TEMP","DATAO",50.67,7307)
+118373^3130920.050546^2^358^
+"TEMP","DATAO",50.67,7308)
+70030-14873
+"TEMP","DATAO",50.67,7309)
+118373^3130920.050546^7^358^
+"TEMP","DATAO",50.67,7310)
+3130920
+"TEMP","DATAO",50.67,7311)
+183561^3130920.050548^4^358^
+"TEMP","DATAO",50.67,7312)
+ISOMETH-DICHLORAL-ACETAMINOPHN
+"TEMP","DATAO",50.67,7313)
+107881^3130920.05055^7^358^
+"TEMP","DATAO",50.67,7314)
+3130920
+"TEMP","DATAO",50.67,7315)
+107880^3130920.050551^7^358^
+"TEMP","DATAO",50.67,7316)
+3130920
+"TEMP","DATAO",50.67,7317)
+151086^3130920.050556^7^358^
+"TEMP","DATAO",50.67,7318)
+3130920
+"TEMP","DATAO",50.67,7319)
+151085^3130920.050557^7^358^
+"TEMP","DATAO",50.67,7320)
+3130920
+"TEMP","DATAO",50.67,7321)
+151054^3130920.050557^7^358^
+"TEMP","DATAO",50.67,7322)
+3130920
+"TEMP","DATAO",50.67,7323)
+151053^3130920.050557^7^358^
+"TEMP","DATAO",50.67,7324)
+3130920
+"TEMP","DATAO",50.67,7325)
+151107^3130920.050558^7^358^
+"TEMP","DATAO",50.67,7326)
+3130920
+"TEMP","DATAO",50.67,7327)
+149957^3130920.050609^7^358^
+"TEMP","DATAO",50.67,7328)
+3130920
+"TEMP","DATAO",50.67,7329)
+177911^3130920.05061^7^358^
+"TEMP","DATAO",50.67,7330)
+3130920
+"TEMP","DATAO",50.67,7331)
+118084^3130920.05061^2^358^
+"TEMP","DATAO",50.67,7332)
+70030-13933
+"TEMP","DATAO",50.67,7333)
+118084^3130920.05061^7^358^
+"TEMP","DATAO",50.67,7334)
+3130920
+"TEMP","DATAO",50.67,7335)
+118083^3130920.050611^2^358^
+"TEMP","DATAO",50.67,7336)
+70030-13934
+"TEMP","DATAO",50.67,7337)
+118083^3130920.050611^7^358^
+"TEMP","DATAO",50.67,7338)
+3130920
+"TEMP","DATAO",50.67,7339)
+133709^3130920.050611^7^358^
+"TEMP","DATAO",50.67,7340)
+3130920
+"TEMP","DATAO",50.67,7341)
+165793^3130920.050612^2^358^
+"TEMP","DATAO",50.67,7342)
+96295-11211
+"TEMP","DATAO",50.67,7343)
+165793^3130920.050612^7^358^
+"TEMP","DATAO",50.67,7344)
+3130920
+"TEMP","DATAO",50.67,7345)
+195614^3130920.050619^7^358^
+"TEMP","DATAO",50.67,7346)
+3130920
+"TEMP","DATAO",50.67,7347)
+195617^3130920.05062^7^358^
+"TEMP","DATAO",50.67,7348)
+3130920
+"TEMP","DATAO",50.67,7349)
+198653^3130920.050636^7^358^
+"TEMP","DATAO",50.67,7350)
+3130920
+"TEMP","DATAO",50.67,7351)
+172279^3130920.050639^7^358^
+"TEMP","DATAO",50.67,7352)
+
+"TEMP","DATAO",50.67,7353)
+165135^3130920.050639^7^358^
+"TEMP","DATAO",50.67,7354)
+
+"TEMP","DATAO",50.67,7355)
+176174^3130920.050646^2^358^
+"TEMP","DATAO",50.67,7356)
+74312-04230
+"TEMP","DATAO",50.67,7357)
+176174^3130920.050646^4^358^
+"TEMP","DATAO",50.67,7358)
+CALCIUM CARBONATE-VITAMIN D3
+"TEMP","DATAO",50.67,7359)
+176174^3130920.050646^7^358^
+"TEMP","DATAO",50.67,7360)
+
+"TEMP","DATAO",50.67,7361)
+114443^3130920.083419^5^358^
+"TEMP","DATAO",50.67,7362)
+23026
+"TEMP","DATAO",50.67,7363)
+106839^3130920.083421^3^358^
+"TEMP","DATAO",50.67,7364)
+305
+"TEMP","DATAO",50.67,7365)
+106839^3130920.083421^5^358^
+"TEMP","DATAO",50.67,7366)
+23026
+"TEMP","DATAO",50.67,7367)
+103320^3130920.083423^5^358^
+"TEMP","DATAO",50.67,7368)
+23026
+"TEMP","DATAO",50.67,7369)
+114440^3130920.083425^5^358^
+"TEMP","DATAO",50.67,7370)
+23026
+"TEMP","DATAO",50.67,7371)
+114441^3130920.083427^5^358^
+"TEMP","DATAO",50.67,7372)
+23026
+"TEMP","DATAO",50.67,7373)
+114442^3130920.083429^5^358^
+"TEMP","DATAO",50.67,7374)
+23026
+"TEMP","DATAO",50.67,7375)
+199634^3130920.083431^5^358^
+"TEMP","DATAO",50.67,7376)
+23026
+"TEMP","DATAO",50.67,7377)
+202209^3130920.115726^1^358^
+"TEMP","DATAO",50.67,7378)
+043292055606
+"TEMP","DATAO",50.67,7379)
+202209^3130920.115726^2^358^
+"TEMP","DATAO",50.67,7380)
+43292-55606
+"TEMP","DATAO",50.67,7381)
+202209^3130920.115726^3^358^
+"TEMP","DATAO",50.67,7382)
+2590
+"TEMP","DATAO",50.67,7383)
+202209^3130920.115726^4^358^
+"TEMP","DATAO",50.67,7384)
+CALCIUM CITRATE
+"TEMP","DATAO",50.67,7385)
+202209^3130920.115726^5^358^
+"TEMP","DATAO",50.67,7386)
+24174
+"TEMP","DATAO",50.67,7387)
+202209^3130920.115726^8^358^
+"TEMP","DATAO",50.67,7388)
+4640
+"TEMP","DATAO",50.67,7389)
+202209^3130920.115726^9^358^
+"TEMP","DATAO",50.67,7390)
+491
+"TEMP","DATAO",50.67,7391)
+202209^3130920.115726^10^358^
+"TEMP","DATAO",50.67,7392)
+O
+"TEMP","DATAO",50.67,7393)
+177434^3130920.135334^2^358^
+"TEMP","DATAO",50.67,7394)
+70074-50467
+"TEMP","DATAO",50.67,7395)
+177434^3130920.135334^5^358^
+"TEMP","DATAO",50.67,7396)
+10230
+"TEMP","DATAO",50.67,7397)
+196888^3130920.142239^5^358^
+"TEMP","DATAO",50.67,7398)
+24175
+"TEMP","DATAO",50.67,7399)
+202210^3130920.144458^1^358^
+"TEMP","DATAO",50.67,7400)
+073373901443
+"TEMP","DATAO",50.67,7401)
+202210^3130920.144458^3^358^
+"TEMP","DATAO",50.67,7402)
+2757
+"TEMP","DATAO",50.67,7403)
+202210^3130920.144458^4^358^
+"TEMP","DATAO",50.67,7404)
+FERROCHEL
+"TEMP","DATAO",50.67,7405)
+202210^3130920.144458^5^358^
+"TEMP","DATAO",50.67,7406)
+24176
+"TEMP","DATAO",50.67,7407)
+202210^3130920.144458^8^358^
+"TEMP","DATAO",50.67,7408)
+4594
+"TEMP","DATAO",50.67,7409)
+202210^3130920.144458^9^358^
+"TEMP","DATAO",50.67,7410)
+491
+"TEMP","DATAO",50.67,7411)
+202210^3130920.144458^10^358^
+"TEMP","DATAO",50.67,7412)
+O
+"TEMP","DATAO",50.67,7413)
+202211^3130920.150357^1^358^
+"TEMP","DATAO",50.67,7414)
+053329030409
+"TEMP","DATAO",50.67,7415)
+202211^3130920.150357^3^358^
+"TEMP","DATAO",50.67,7416)
+3451
+"TEMP","DATAO",50.67,7417)
+202211^3130920.150357^4^358^
+"TEMP","DATAO",50.67,7418)
+ARGLAES
+"TEMP","DATAO",50.67,7419)
+202211^3130920.150357^5^358^
+"TEMP","DATAO",50.67,7420)
+24177
+"TEMP","DATAO",50.67,7421)
+202211^3130920.150357^8^358^
+"TEMP","DATAO",50.67,7422)
+4598
+"TEMP","DATAO",50.67,7423)
+202211^3130920.150357^9^358^
+"TEMP","DATAO",50.67,7424)
+491
+"TEMP","DATAO",50.67,7425)
+202211^3130920.150357^10^358^
+"TEMP","DATAO",50.67,7426)
+O
+"TEMP","DATAO",50.67,7427)
+90601^3130920.150508^4^358^
+"TEMP","DATAO",50.67,7428)
+MAGNESIUM SULFATE
+"TEMP","DATAO",50.67,7429)
+90601^3130920.150508^5^358^
+"TEMP","DATAO",50.67,7430)
+24178
+"TEMP","DATAO",50.67,7431)
+90601^3130920.150508^7^358^
+"TEMP","DATAO",50.67,7432)
+
+"TEMP","DATAO",50.67,7433)
+90601^3130920.150508^8^358^
+"TEMP","DATAO",50.67,7434)
+4592
+"TEMP","DATAO",50.67,7435)
+94345^3130920.15122^4^358^
+"TEMP","DATAO",50.67,7436)
+MAGNESIUM SULFATE
+"TEMP","DATAO",50.67,7437)
+94345^3130920.15122^5^358^
+"TEMP","DATAO",50.67,7438)
+24179
+"TEMP","DATAO",50.67,7439)
+94345^3130920.15122^7^358^
+"TEMP","DATAO",50.67,7440)
+
+"TEMP","DATAO",50.67,7441)
+94345^3130920.15122^8^358^
+"TEMP","DATAO",50.67,7442)
+4592
+"TEMP","DATAO",50.67,7443)
+97137^3130920.151724^5^358^
+"TEMP","DATAO",50.67,7444)
+24177
+"TEMP","DATAO",50.67,7445)
+202212^3130923.154701^1^358^
+"TEMP","DATAO",50.67,7446)
+008884773656
+"TEMP","DATAO",50.67,7447)
+202212^3130923.154701^3^358^
+"TEMP","DATAO",50.67,7448)
+510
+"TEMP","DATAO",50.67,7449)
+202212^3130923.154701^4^358^
+"TEMP","DATAO",50.67,7450)
+Kangaroo
+"TEMP","DATAO",50.67,7451)
+202212^3130923.154701^5^358^
+"TEMP","DATAO",50.67,7452)
+20256
+"TEMP","DATAO",50.67,7453)
+202212^3130923.154701^8^358^
+"TEMP","DATAO",50.67,7454)
+4592
+"TEMP","DATAO",50.67,7455)
+202212^3130923.154701^9^358^
+"TEMP","DATAO",50.67,7456)
+573
+"TEMP","DATAO",50.67,7457)
+202212^3130923.154701^10^358^
+"TEMP","DATAO",50.67,7458)
+R
+"TEMP","DATAO",50.67,7459)
+202213^3130924.095926^1^358^
+"TEMP","DATAO",50.67,7460)
+020536032201
+"TEMP","DATAO",50.67,7461)
+202213^3130924.095926^3^358^
+"TEMP","DATAO",50.67,7462)
+4397
+"TEMP","DATAO",50.67,7463)
+202213^3130924.095926^4^358^
+"TEMP","DATAO",50.67,7464)
+MARQIBO
+"TEMP","DATAO",50.67,7465)
+202213^3130924.095926^5^358^
+"TEMP","DATAO",50.67,7466)
+24182
+"TEMP","DATAO",50.67,7467)
+202213^3130924.095926^8^358^
+"TEMP","DATAO",50.67,7468)
+4592
+"TEMP","DATAO",50.67,7469)
+202213^3130924.095926^9^358^
+"TEMP","DATAO",50.67,7470)
+262
+"TEMP","DATAO",50.67,7471)
+202213^3130924.095926^10^358^
+"TEMP","DATAO",50.67,7472)
+R
+"TEMP","DATAO",50.67,7473)
+202214^3130924.100033^1^358^
+"TEMP","DATAO",50.67,7474)
+000121477205
+"TEMP","DATAO",50.67,7475)
+202214^3130924.100033^3^358^
+"TEMP","DATAO",50.67,7476)
+3503
+"TEMP","DATAO",50.67,7477)
+202214^3130924.100033^4^358^
+"TEMP","DATAO",50.67,7478)
+HYDROCODONE-ACETAMINOPHEN
+"TEMP","DATAO",50.67,7479)
+202214^3130924.100033^5^358^
+"TEMP","DATAO",50.67,7480)
+24183
+"TEMP","DATAO",50.67,7481)
+202214^3130924.100033^8^358^
+"TEMP","DATAO",50.67,7482)
+4617
+"TEMP","DATAO",50.67,7483)
+202214^3130924.100033^9^358^
+"TEMP","DATAO",50.67,7484)
+539
+"TEMP","DATAO",50.67,7485)
+202214^3130924.100033^10^358^
+"TEMP","DATAO",50.67,7486)
+R
+"TEMP","DATAO",50.67,7487)
+202215^3130924.100247^1^358^
+"TEMP","DATAO",50.67,7488)
+000121477210
+"TEMP","DATAO",50.67,7489)
+202215^3130924.100247^3^358^
+"TEMP","DATAO",50.67,7490)
+3503
+"TEMP","DATAO",50.67,7491)
+202215^3130924.100247^4^358^
+"TEMP","DATAO",50.67,7492)
+HYDROCODONE-ACETAMINOPHEN
+"TEMP","DATAO",50.67,7493)
+202215^3130924.100247^5^358^
+"TEMP","DATAO",50.67,7494)
+24184
+"TEMP","DATAO",50.67,7495)
+202215^3130924.100247^8^358^
+"TEMP","DATAO",50.67,7496)
+4598
+"TEMP","DATAO",50.67,7497)
+202215^3130924.100247^9^358^
+"TEMP","DATAO",50.67,7498)
+539
+"TEMP","DATAO",50.67,7499)
+202215^3130924.100247^10^358^
+"TEMP","DATAO",50.67,7500)
+R
+"TEMP","DATAO",50.67,7501)
+202216^3130924.100355^1^358^
+"TEMP","DATAO",50.67,7502)
+000121477215
+"TEMP","DATAO",50.67,7503)
+202216^3130924.100355^3^358^
+"TEMP","DATAO",50.67,7504)
+3503
+"TEMP","DATAO",50.67,7505)
+202216^3130924.100355^4^358^
+"TEMP","DATAO",50.67,7506)
+HYDROCODONE-ACETAMINOPHEN
+"TEMP","DATAO",50.67,7507)
+202216^3130924.100355^5^358^
+"TEMP","DATAO",50.67,7508)
+24185
+"TEMP","DATAO",50.67,7509)
+202216^3130924.100355^8^358^
+"TEMP","DATAO",50.67,7510)
+4589
+"TEMP","DATAO",50.67,7511)
+202216^3130924.100355^9^358^
+"TEMP","DATAO",50.67,7512)
+539
+"TEMP","DATAO",50.67,7513)
+202216^3130924.100355^10^358^
+"TEMP","DATAO",50.67,7514)
+R
+"TEMP","DATAO",50.67,7515)
+157144^3130924.101739^2^358^
+"TEMP","DATAO",50.67,7516)
+70074-50898
+"TEMP","DATAO",50.67,7517)
+157144^3130924.101739^5^358^
+"TEMP","DATAO",50.67,7518)
+24181
+"TEMP","DATAO",50.67,7519)
+104059^3130924.101927^2^358^
+"TEMP","DATAO",50.67,7520)
+70074-50890
+"TEMP","DATAO",50.67,7521)
+104059^3130924.101928^5^358^
+"TEMP","DATAO",50.67,7522)
+24180
+"TEMP","DATAO",50.67,7523)
+202217^3130924.104118^1^358^
+"TEMP","DATAO",50.67,7524)
+066689002350
+"TEMP","DATAO",50.67,7525)
+202217^3130924.104118^3^358^
+"TEMP","DATAO",50.67,7526)
+2822
+"TEMP","DATAO",50.67,7527)
+202217^3130924.104118^4^358^
+"TEMP","DATAO",50.67,7528)
+HYDROCODONE-ACETAMINOPHEN
+"TEMP","DATAO",50.67,7529)
+202217^3130924.104118^5^358^
+"TEMP","DATAO",50.67,7530)
+24185
+"TEMP","DATAO",50.67,7531)
+202217^3130924.104118^8^358^
+"TEMP","DATAO",50.67,7532)
+4589
+"TEMP","DATAO",50.67,7533)
+202217^3130924.104118^9^358^
+"TEMP","DATAO",50.67,7534)
+539
+"TEMP","DATAO",50.67,7535)
+202217^3130924.104118^10^358^
+"TEMP","DATAO",50.67,7536)
+R
+"TEMP","DATAO",50.67,7537)
+176174^3130924.111715^3^358^
+"TEMP","DATAO",50.67,7538)
+4238
+"TEMP","DATAO",50.67,7539)
+176174^3130924.111715^5^358^
+"TEMP","DATAO",50.67,7540)
+23803
+"TEMP","DATAO",50.67,7541)
+176226^3130924.111718^5^358^
+"TEMP","DATAO",50.67,7542)
+23803
+"TEMP","DATAO",50.67,7543)
+176227^3130924.11172^5^358^
+"TEMP","DATAO",50.67,7544)
+23803
+"TEMP","DATAO",50.67,7545)
+83114^3130924.111722^5^358^
+"TEMP","DATAO",50.67,7546)
+23803
+"TEMP","DATAO",50.67,7547)
+92504^3130925.152045^5^358^
+"TEMP","DATAO",50.67,7548)
+21748
+"TEMP","DATAO",50.67,7549)
+92511^3130925.152337^5^358^
+"TEMP","DATAO",50.67,7550)
+21748
+"TEMP","DATAO",50.67,7551)
+202218^3130925.154509^1^358^
+"TEMP","DATAO",50.67,7552)
+056215000004
+"TEMP","DATAO",50.67,7553)
+202218^3130925.154509^3^358^
+"TEMP","DATAO",50.67,7554)
+4398
+"TEMP","DATAO",50.67,7555)
+202218^3130925.154509^4^358^
+"TEMP","DATAO",50.67,7556)
+OPURITY
+"TEMP","DATAO",50.67,7557)
+202218^3130925.154509^5^358^
+"TEMP","DATAO",50.67,7558)
+24186
+"TEMP","DATAO",50.67,7559)
+202218^3130925.154509^8^358^
+"TEMP","DATAO",50.67,7560)
+4743
+"TEMP","DATAO",50.67,7561)
+202218^3130925.154509^9^358^
+"TEMP","DATAO",50.67,7562)
+491
+"TEMP","DATAO",50.67,7563)
+202218^3130925.154509^10^358^
+"TEMP","DATAO",50.67,7564)
+O
+"TEMP","DATAO",50.67,7565)
+202219^3130926.063^1^358^
+"TEMP","DATAO",50.67,7566)
+000093211210
+"TEMP","DATAO",50.67,7567)
+202219^3130926.063^3^358^
+"TEMP","DATAO",50.67,7568)
+3365
+"TEMP","DATAO",50.67,7569)
+202219^3130926.063^4^358^
+"TEMP","DATAO",50.67,7570)
+PHENTERMINE
+"TEMP","DATAO",50.67,7571)
+202219^3130926.063^5^358^
+"TEMP","DATAO",50.67,7572)
+3347
+"TEMP","DATAO",50.67,7573)
+202219^3130926.063^8^358^
+"TEMP","DATAO",50.67,7574)
+4609
+"TEMP","DATAO",50.67,7575)
+202219^3130926.063^9^358^
+"TEMP","DATAO",50.67,7576)
+491
+"TEMP","DATAO",50.67,7577)
+202219^3130926.063^10^358^
+"TEMP","DATAO",50.67,7578)
+R
+"TEMP","DATAO",50.67,7579)
+202220^3130926.063002^1^358^
+"TEMP","DATAO",50.67,7580)
+000093211256
+"TEMP","DATAO",50.67,7581)
+202220^3130926.063002^3^358^
+"TEMP","DATAO",50.67,7582)
+3365
+"TEMP","DATAO",50.67,7583)
+202220^3130926.063002^4^358^
+"TEMP","DATAO",50.67,7584)
+PHENTERMINE
+"TEMP","DATAO",50.67,7585)
+202220^3130926.063002^5^358^
+"TEMP","DATAO",50.67,7586)
+3347
+"TEMP","DATAO",50.67,7587)
+202220^3130926.063002^8^358^
+"TEMP","DATAO",50.67,7588)
+4597
+"TEMP","DATAO",50.67,7589)
+202220^3130926.063002^9^358^
+"TEMP","DATAO",50.67,7590)
+491
+"TEMP","DATAO",50.67,7591)
+202220^3130926.063002^10^358^
+"TEMP","DATAO",50.67,7592)
+R
+"TEMP","DATAO",50.67,7593)
+202221^3130926.063003^1^358^
+"TEMP","DATAO",50.67,7594)
+000143972024
+"TEMP","DATAO",50.67,7595)
+202221^3130926.063003^3^358^
+"TEMP","DATAO",50.67,7596)
+3414
+"TEMP","DATAO",50.67,7597)
+202221^3130926.063003^4^358^
+"TEMP","DATAO",50.67,7598)
+LEVOFLOXACIN IN D5W
+"TEMP","DATAO",50.67,7599)
+202221^3130926.063003^5^358^
+"TEMP","DATAO",50.67,7600)
+15087
+"TEMP","DATAO",50.67,7601)
+202221^3130926.063003^8^358^
+"TEMP","DATAO",50.67,7602)
+4703
+"TEMP","DATAO",50.67,7603)
+202221^3130926.063003^9^358^
+"TEMP","DATAO",50.67,7604)
+48
+"TEMP","DATAO",50.67,7605)
+202221^3130926.063003^10^358^
+"TEMP","DATAO",50.67,7606)
+R
+"TEMP","DATAO",50.67,7607)
+202222^3130926.063003^1^358^
+"TEMP","DATAO",50.67,7608)
+000228322711
+"TEMP","DATAO",50.67,7609)
+202222^3130926.063003^3^358^
+"TEMP","DATAO",50.67,7610)
+4383
+"TEMP","DATAO",50.67,7611)
+202222^3130926.063003^4^358^
+"TEMP","DATAO",50.67,7612)
+OXYMORPHONE
+"TEMP","DATAO",50.67,7613)
+202222^3130926.063003^5^358^
+"TEMP","DATAO",50.67,7614)
+17833
+"TEMP","DATAO",50.67,7615)
+202222^3130926.063003^8^358^
+"TEMP","DATAO",50.67,7616)
+4593
+"TEMP","DATAO",50.67,7617)
+202222^3130926.063003^9^358^
+"TEMP","DATAO",50.67,7618)
+491
+"TEMP","DATAO",50.67,7619)
+202222^3130926.063003^10^358^
+"TEMP","DATAO",50.67,7620)
+R
+"TEMP","DATAO",50.67,7621)
+202223^3130926.063003^1^358^
+"TEMP","DATAO",50.67,7622)
+000228322811
+"TEMP","DATAO",50.67,7623)
+202223^3130926.063003^3^358^
+"TEMP","DATAO",50.67,7624)
+4383
+"TEMP","DATAO",50.67,7625)
+202223^3130926.063003^4^358^
+"TEMP","DATAO",50.67,7626)
+OXYMORPHONE
+"TEMP","DATAO",50.67,7627)
+202223^3130926.063003^5^358^
+"TEMP","DATAO",50.67,7628)
+17835
+"TEMP","DATAO",50.67,7629)
+202223^3130926.063003^8^358^
+"TEMP","DATAO",50.67,7630)
+4593
+"TEMP","DATAO",50.67,7631)
+202223^3130926.063003^9^358^
+"TEMP","DATAO",50.67,7632)
+491
+"TEMP","DATAO",50.67,7633)
+202223^3130926.063003^10^358^
+"TEMP","DATAO",50.67,7634)
+R
+"TEMP","DATAO",50.67,7635)
+202224^3130926.063004^1^358^
+"TEMP","DATAO",50.67,7636)
+000228322911
+"TEMP","DATAO",50.67,7637)
+202224^3130926.063004^3^358^
+"TEMP","DATAO",50.67,7638)
+4383
+"TEMP","DATAO",50.67,7639)
+202224^3130926.063004^4^358^
+"TEMP","DATAO",50.67,7640)
+OXYMORPHONE
+"TEMP","DATAO",50.67,7641)
+202224^3130926.063004^5^358^
+"TEMP","DATAO",50.67,7642)
+17837
+"TEMP","DATAO",50.67,7643)
+202224^3130926.063004^8^358^
+"TEMP","DATAO",50.67,7644)
+4593
+"TEMP","DATAO",50.67,7645)
+202224^3130926.063004^9^358^
+"TEMP","DATAO",50.67,7646)
+491
+"TEMP","DATAO",50.67,7647)
+202224^3130926.063004^10^358^
+"TEMP","DATAO",50.67,7648)
+R
+"TEMP","DATAO",50.67,7649)
+202225^3130926.063005^1^358^
+"TEMP","DATAO",50.67,7650)
+000378604017
+"TEMP","DATAO",50.67,7651)
+202225^3130926.063005^3^358^
+"TEMP","DATAO",50.67,7652)
+3337
+"TEMP","DATAO",50.67,7653)
+202225^3130926.063005^4^358^
+"TEMP","DATAO",50.67,7654)
+MONTELUKAST
+"TEMP","DATAO",50.67,7655)
+202225^3130926.063005^5^358^
+"TEMP","DATAO",50.67,7656)
+19872
+"TEMP","DATAO",50.67,7657)
+202225^3130926.063005^8^358^
+"TEMP","DATAO",50.67,7658)
+4592
+"TEMP","DATAO",50.67,7659)
+202225^3130926.063005^9^358^
+"TEMP","DATAO",50.67,7660)
+293
+"TEMP","DATAO",50.67,7661)
+202225^3130926.063005^10^358^
+"TEMP","DATAO",50.67,7662)
+R
+"TEMP","DATAO",50.67,7663)
+202226^3130926.063005^1^358^
+"TEMP","DATAO",50.67,7664)
+000378604093
+"TEMP","DATAO",50.67,7665)
+202226^3130926.063005^3^358^
+"TEMP","DATAO",50.67,7666)
+3337
+"TEMP","DATAO",50.67,7667)
+202226^3130926.063005^4^358^
+"TEMP","DATAO",50.67,7668)
+MONTELUKAST
+"TEMP","DATAO",50.67,7669)
+202226^3130926.063005^5^358^
+"TEMP","DATAO",50.67,7670)
+19872
+"TEMP","DATAO",50.67,7671)
+202226^3130926.063005^8^358^
+"TEMP","DATAO",50.67,7672)
+4597
+"TEMP","DATAO",50.67,7673)
+202226^3130926.063005^9^358^
+"TEMP","DATAO",50.67,7674)
+293
+"TEMP","DATAO",50.67,7675)
+202226^3130926.063005^10^358^
+"TEMP","DATAO",50.67,7676)
+R
+"TEMP","DATAO",50.67,7677)
+202227^3130926.063005^1^358^
+"TEMP","DATAO",50.67,7678)
+000591352511
+"TEMP","DATAO",50.67,7679)
+202227^3130926.063005^3^358^
+"TEMP","DATAO",50.67,7680)
+4383
+"TEMP","DATAO",50.67,7681)
+202227^3130926.063005^4^358^
+"TEMP","DATAO",50.67,7682)
+LIDOCAINE
+"TEMP","DATAO",50.67,7683)
+202227^3130926.063005^5^358^
+"TEMP","DATAO",50.67,7684)
+22004
+"TEMP","DATAO",50.67,7685)
+202227^3130926.063005^8^358^
+"TEMP","DATAO",50.67,7686)
+4592
+"TEMP","DATAO",50.67,7687)
+202227^3130926.063005^9^358^
+"TEMP","DATAO",50.67,7688)
+293
+"TEMP","DATAO",50.67,7689)
+202227^3130926.063005^10^358^
+"TEMP","DATAO",50.67,7690)
+R
+"TEMP","DATAO",50.67,7691)
+202228^3130926.063006^1^358^
+"TEMP","DATAO",50.67,7692)
+000591352530
+"TEMP","DATAO",50.67,7693)
+202228^3130926.063006^3^358^
+"TEMP","DATAO",50.67,7694)
+4383
+"TEMP","DATAO",50.67,7695)
+202228^3130926.063006^4^358^
+"TEMP","DATAO",50.67,7696)
+LIDOCAINE
+"TEMP","DATAO",50.67,7697)
+202228^3130926.063006^5^358^
+"TEMP","DATAO",50.67,7698)
+22004
+"TEMP","DATAO",50.67,7699)
+202228^3130926.063006^8^358^
+"TEMP","DATAO",50.67,7700)
+4597
+"TEMP","DATAO",50.67,7701)
+202228^3130926.063006^9^358^
+"TEMP","DATAO",50.67,7702)
+492
+"TEMP","DATAO",50.67,7703)
+202228^3130926.063006^10^358^
+"TEMP","DATAO",50.67,7704)
+R
+"TEMP","DATAO",50.67,7705)
+202229^3130926.063006^1^358^
+"TEMP","DATAO",50.67,7706)
+017478084102
+"TEMP","DATAO",50.67,7707)
+202229^3130926.063006^3^358^
+"TEMP","DATAO",50.67,7708)
+3492
+"TEMP","DATAO",50.67,7709)
+202229^3130926.063006^4^358^
+"TEMP","DATAO",50.67,7710)
+ALFENTANIL
+"TEMP","DATAO",50.67,7711)
+202229^3130926.063006^5^358^
+"TEMP","DATAO",50.67,7712)
+7893
+"TEMP","DATAO",50.67,7713)
+202229^3130926.063006^8^358^
+"TEMP","DATAO",50.67,7714)
+2673
+"TEMP","DATAO",50.67,7715)
+202229^3130926.063006^9^358^
+"TEMP","DATAO",50.67,7716)
+979
+"TEMP","DATAO",50.67,7717)
+202229^3130926.063006^10^358^
+"TEMP","DATAO",50.67,7718)
+R
+"TEMP","DATAO",50.67,7719)
+202230^3130926.063007^1^358^
+"TEMP","DATAO",50.67,7720)
+017856527202
+"TEMP","DATAO",50.67,7721)
+202230^3130926.063007^3^358^
+"TEMP","DATAO",50.67,7722)
+4245
+"TEMP","DATAO",50.67,7723)
+202230^3130926.063007^4^358^
+"TEMP","DATAO",50.67,7724)
+CALCITRATE-VITAMIN D
+"TEMP","DATAO",50.67,7725)
+202230^3130926.063007^5^358^
+"TEMP","DATAO",50.67,7726)
+21558
+"TEMP","DATAO",50.67,7727)
+202230^3130926.063007^8^358^
+"TEMP","DATAO",50.67,7728)
+4592
+"TEMP","DATAO",50.67,7729)
+202230^3130926.063007^9^358^
+"TEMP","DATAO",50.67,7730)
+293
+"TEMP","DATAO",50.67,7731)
+202230^3130926.063007^10^358^
+"TEMP","DATAO",50.67,7732)
+O
+"TEMP","DATAO",50.67,7733)
+202231^3130926.063007^1^358^
+"TEMP","DATAO",50.67,7734)
+024486020016
+"TEMP","DATAO",50.67,7735)
+202231^3130926.063007^3^358^
+"TEMP","DATAO",50.67,7736)
+3795
+"TEMP","DATAO",50.67,7737)
+202231^3130926.063007^4^358^
+"TEMP","DATAO",50.67,7738)
+CHLORPHENIRAMINE-HYDROCODONE
+"TEMP","DATAO",50.67,7739)
+202231^3130926.063007^5^358^
+"TEMP","DATAO",50.67,7740)
+8187
+"TEMP","DATAO",50.67,7741)
+202231^3130926.063007^8^358^
+"TEMP","DATAO",50.67,7742)
+4663
+"TEMP","DATAO",50.67,7743)
+202231^3130926.063007^9^358^
+"TEMP","DATAO",50.67,7744)
+491
+"TEMP","DATAO",50.67,7745)
+202231^3130926.063007^10^358^
+"TEMP","DATAO",50.67,7746)
+R
+"TEMP","DATAO",50.67,7747)
+202232^3130926.063008^1^358^
+"TEMP","DATAO",50.67,7748)
+024987037810
+"TEMP","DATAO",50.67,7749)
+202232^3130926.063008^3^358^
+"TEMP","DATAO",50.67,7750)
+3579
+"TEMP","DATAO",50.67,7751)
+202232^3130926.063008^4^358^
+"TEMP","DATAO",50.67,7752)
+FORTAZ
+"TEMP","DATAO",50.67,7753)
+202232^3130926.063008^5^358^
+"TEMP","DATAO",50.67,7754)
+798
+"TEMP","DATAO",50.67,7755)
+202232^3130926.063008^8^358^
+"TEMP","DATAO",50.67,7756)
+4592
+"TEMP","DATAO",50.67,7757)
+202232^3130926.063008^9^358^
+"TEMP","DATAO",50.67,7758)
+613
+"TEMP","DATAO",50.67,7759)
+202232^3130926.063008^10^358^
+"TEMP","DATAO",50.67,7760)
+R
+"TEMP","DATAO",50.67,7761)
+202233^3130926.063008^1^358^
+"TEMP","DATAO",50.67,7762)
+033342002907
+"TEMP","DATAO",50.67,7763)
+202233^3130926.063008^3^358^
+"TEMP","DATAO",50.67,7764)
+4246
+"TEMP","DATAO",50.67,7765)
+202233^3130926.063008^4^358^
+"TEMP","DATAO",50.67,7766)
+DONEPEZIL
+"TEMP","DATAO",50.67,7767)
+202233^3130926.063008^5^358^
+"TEMP","DATAO",50.67,7768)
+17442
+"TEMP","DATAO",50.67,7769)
+202233^3130926.063008^8^358^
+"TEMP","DATAO",50.67,7770)
+4597
+"TEMP","DATAO",50.67,7771)
+202233^3130926.063008^9^358^
+"TEMP","DATAO",50.67,7772)
+974
+"TEMP","DATAO",50.67,7773)
+202233^3130926.063008^10^358^
+"TEMP","DATAO",50.67,7774)
+R
+"TEMP","DATAO",50.67,7775)
+202234^3130926.063009^1^358^
+"TEMP","DATAO",50.67,7776)
+033342003007
+"TEMP","DATAO",50.67,7777)
+202234^3130926.063009^3^358^
+"TEMP","DATAO",50.67,7778)
+4246
+"TEMP","DATAO",50.67,7779)
+202234^3130926.063009^4^358^
+"TEMP","DATAO",50.67,7780)
+DONEPEZIL
+"TEMP","DATAO",50.67,7781)
+202234^3130926.063009^5^358^
+"TEMP","DATAO",50.67,7782)
+17443
+"TEMP","DATAO",50.67,7783)
+202234^3130926.063009^8^358^
+"TEMP","DATAO",50.67,7784)
+4597
+"TEMP","DATAO",50.67,7785)
+202234^3130926.063009^9^358^
+"TEMP","DATAO",50.67,7786)
+974
+"TEMP","DATAO",50.67,7787)
+202234^3130926.063009^10^358^
+"TEMP","DATAO",50.67,7788)
+R
+"TEMP","DATAO",50.67,7789)
+202235^3130926.063009^1^358^
+"TEMP","DATAO",50.67,7790)
+035356082630
+"TEMP","DATAO",50.67,7791)
+202235^3130926.063009^3^358^
+"TEMP","DATAO",50.67,7792)
+2376
+"TEMP","DATAO",50.67,7793)
+202235^3130926.063009^4^358^
+"TEMP","DATAO",50.67,7794)
+ETODOLAC
+"TEMP","DATAO",50.67,7795)
+202235^3130926.063009^5^358^
+"TEMP","DATAO",50.67,7796)
+8816
+"TEMP","DATAO",50.67,7797)
+202235^3130926.063009^8^358^
+"TEMP","DATAO",50.67,7798)
+4597
+"TEMP","DATAO",50.67,7799)
+202235^3130926.063009^9^358^
+"TEMP","DATAO",50.67,7800)
+491
+"TEMP","DATAO",50.67,7801)
+202235^3130926.063009^10^358^
+"TEMP","DATAO",50.67,7802)
+R
+"TEMP","DATAO",50.67,7803)
+202236^3130926.063009^1^358^
+"TEMP","DATAO",50.67,7804)
+035356093930
+"TEMP","DATAO",50.67,7805)
+202236^3130926.063009^3^358^
+"TEMP","DATAO",50.67,7806)
+2376
+"TEMP","DATAO",50.67,7807)
+202236^3130926.063009^4^358^
+"TEMP","DATAO",50.67,7808)
+HYDROXYZINE HCL
+"TEMP","DATAO",50.67,7809)
+202236^3130926.063009^5^358^
+"TEMP","DATAO",50.67,7810)
+2013
+"TEMP","DATAO",50.67,7811)
+202236^3130926.063009^8^358^
+"TEMP","DATAO",50.67,7812)
+4597
+"TEMP","DATAO",50.67,7813)
+202236^3130926.063009^9^358^
+"TEMP","DATAO",50.67,7814)
+491
+"TEMP","DATAO",50.67,7815)
+202236^3130926.063009^10^358^
+"TEMP","DATAO",50.67,7816)
+R
+"TEMP","DATAO",50.67,7817)
+202237^3130926.06301^1^358^
+"TEMP","DATAO",50.67,7818)
+035356093960
+"TEMP","DATAO",50.67,7819)
+202237^3130926.06301^3^358^
+"TEMP","DATAO",50.67,7820)
+2376
+"TEMP","DATAO",50.67,7821)
+202237^3130926.06301^4^358^
+"TEMP","DATAO",50.67,7822)
+HYDROXYZINE HCL
+"TEMP","DATAO",50.67,7823)
+202237^3130926.06301^5^358^
+"TEMP","DATAO",50.67,7824)
+2013
+"TEMP","DATAO",50.67,7825)
+202237^3130926.06301^8^358^
+"TEMP","DATAO",50.67,7826)
+4595
+"TEMP","DATAO",50.67,7827)
+202237^3130926.06301^9^358^
+"TEMP","DATAO",50.67,7828)
+491
+"TEMP","DATAO",50.67,7829)
+202237^3130926.06301^10^358^
+"TEMP","DATAO",50.67,7830)
+R
+"TEMP","DATAO",50.67,7831)
+202238^3130926.063011^1^358^
+"TEMP","DATAO",50.67,7832)
+016714008110
+"TEMP","DATAO",50.67,7833)
+202238^3130926.063011^3^358^
+"TEMP","DATAO",50.67,7834)
+3263
+"TEMP","DATAO",50.67,7835)
+202238^3130926.063011^4^358^
+"TEMP","DATAO",50.67,7836)
+HYDROXYZINE HCL
+"TEMP","DATAO",50.67,7837)
+202238^3130926.063011^5^358^
+"TEMP","DATAO",50.67,7838)
+2014
+"TEMP","DATAO",50.67,7839)
+202238^3130926.063011^8^358^
+"TEMP","DATAO",50.67,7840)
+4593
+"TEMP","DATAO",50.67,7841)
+202238^3130926.063011^9^358^
+"TEMP","DATAO",50.67,7842)
+491
+"TEMP","DATAO",50.67,7843)
+202238^3130926.063011^10^358^
+"TEMP","DATAO",50.67,7844)
+R
+"TEMP","DATAO",50.67,7845)
+202239^3130926.063011^1^358^
+"TEMP","DATAO",50.67,7846)
+016714008111
+"TEMP","DATAO",50.67,7847)
+202239^3130926.063011^3^358^
+"TEMP","DATAO",50.67,7848)
+3263
+"TEMP","DATAO",50.67,7849)
+202239^3130926.063011^4^358^
+"TEMP","DATAO",50.67,7850)
+HYDROXYZINE HCL
+"TEMP","DATAO",50.67,7851)
+202239^3130926.063011^5^358^
+"TEMP","DATAO",50.67,7852)
+2014
+"TEMP","DATAO",50.67,7853)
+202239^3130926.063011^8^358^
+"TEMP","DATAO",50.67,7854)
+4596
+"TEMP","DATAO",50.67,7855)
+202239^3130926.063011^9^358^
+"TEMP","DATAO",50.67,7856)
+491
+"TEMP","DATAO",50.67,7857)
+202239^3130926.063011^10^358^
+"TEMP","DATAO",50.67,7858)
+R
+"TEMP","DATAO",50.67,7859)
+202240^3130926.063012^1^358^
+"TEMP","DATAO",50.67,7860)
+016714008310
+"TEMP","DATAO",50.67,7861)
+202240^3130926.063012^3^358^
+"TEMP","DATAO",50.67,7862)
+3263
+"TEMP","DATAO",50.67,7863)
+202240^3130926.063012^4^358^
+"TEMP","DATAO",50.67,7864)
+HYDROXYZINE HCL
+"TEMP","DATAO",50.67,7865)
+202240^3130926.063012^5^358^
+"TEMP","DATAO",50.67,7866)
+2013
+"TEMP","DATAO",50.67,7867)
+202240^3130926.063012^8^358^
+"TEMP","DATAO",50.67,7868)
+4593
+"TEMP","DATAO",50.67,7869)
+202240^3130926.063012^9^358^
+"TEMP","DATAO",50.67,7870)
+491
+"TEMP","DATAO",50.67,7871)
+202240^3130926.063012^10^358^
+"TEMP","DATAO",50.67,7872)
+R
+"TEMP","DATAO",50.67,7873)
+202241^3130926.063012^1^358^
+"TEMP","DATAO",50.67,7874)
+016714008311
+"TEMP","DATAO",50.67,7875)
+202241^3130926.063012^3^358^
+"TEMP","DATAO",50.67,7876)
+3263
+"TEMP","DATAO",50.67,7877)
+202241^3130926.063012^4^358^
+"TEMP","DATAO",50.67,7878)
+HYDROXYZINE HCL
+"TEMP","DATAO",50.67,7879)
+202241^3130926.063012^5^358^
+"TEMP","DATAO",50.67,7880)
+2013
+"TEMP","DATAO",50.67,7881)
+202241^3130926.063012^8^358^
+"TEMP","DATAO",50.67,7882)
+4596
+"TEMP","DATAO",50.67,7883)
+202241^3130926.063012^9^358^
+"TEMP","DATAO",50.67,7884)
+491
+"TEMP","DATAO",50.67,7885)
+202241^3130926.063012^10^358^
+"TEMP","DATAO",50.67,7886)
+R
+"TEMP","DATAO",50.67,7887)
+202242^3130926.063013^1^358^
+"TEMP","DATAO",50.67,7888)
+016781040060
+"TEMP","DATAO",50.67,7889)
+202242^3130926.063013^3^358^
+"TEMP","DATAO",50.67,7890)
+3667
+"TEMP","DATAO",50.67,7891)
+202242^3130926.063013^4^358^
+"TEMP","DATAO",50.67,7892)
+MINOCIN
+"TEMP","DATAO",50.67,7893)
+202242^3130926.063013^5^358^
+"TEMP","DATAO",50.67,7894)
+2198
+"TEMP","DATAO",50.67,7895)
+202242^3130926.063013^8^358^
+"TEMP","DATAO",50.67,7896)
+4595
+"TEMP","DATAO",50.67,7897)
+202242^3130926.063013^9^358^
+"TEMP","DATAO",50.67,7898)
+491
+"TEMP","DATAO",50.67,7899)
+202242^3130926.063013^10^358^
+"TEMP","DATAO",50.67,7900)
+R
+"TEMP","DATAO",50.67,7901)
+202243^3130926.063013^1^358^
+"TEMP","DATAO",50.67,7902)
+016781040360
+"TEMP","DATAO",50.67,7903)
+202243^3130926.063013^3^358^
+"TEMP","DATAO",50.67,7904)
+3667
+"TEMP","DATAO",50.67,7905)
+202243^3130926.063013^4^358^
+"TEMP","DATAO",50.67,7906)
+MINOCIN
+"TEMP","DATAO",50.67,7907)
+202243^3130926.063013^5^358^
+"TEMP","DATAO",50.67,7908)
+2199
+"TEMP","DATAO",50.67,7909)
+202243^3130926.063013^8^358^
+"TEMP","DATAO",50.67,7910)
+4595
+"TEMP","DATAO",50.67,7911)
+202243^3130926.063013^9^358^
+"TEMP","DATAO",50.67,7912)
+491
+"TEMP","DATAO",50.67,7913)
+202243^3130926.063013^10^358^
+"TEMP","DATAO",50.67,7914)
+R
+"TEMP","DATAO",50.67,7915)
+202244^3130926.063013^1^358^
+"TEMP","DATAO",50.67,7916)
+035356096130
+"TEMP","DATAO",50.67,7917)
+202244^3130926.063013^3^358^
+"TEMP","DATAO",50.67,7918)
+2376
+"TEMP","DATAO",50.67,7919)
+202244^3130926.063013^4^358^
+"TEMP","DATAO",50.67,7920)
+FOSINOPRIL
+"TEMP","DATAO",50.67,7921)
+202244^3130926.063013^5^358^
+"TEMP","DATAO",50.67,7922)
+9709
+"TEMP","DATAO",50.67,7923)
+202244^3130926.063013^8^358^
+"TEMP","DATAO",50.67,7924)
+4597
+"TEMP","DATAO",50.67,7925)
+202244^3130926.063013^9^358^
+"TEMP","DATAO",50.67,7926)
+491
+"TEMP","DATAO",50.67,7927)
+202244^3130926.063013^10^358^
+"TEMP","DATAO",50.67,7928)
+R
+"TEMP","DATAO",50.67,7929)
+202245^3130926.063014^1^358^
+"TEMP","DATAO",50.67,7930)
+035356096160
+"TEMP","DATAO",50.67,7931)
+202245^3130926.063014^3^358^
+"TEMP","DATAO",50.67,7932)
+2376
+"TEMP","DATAO",50.67,7933)
+202245^3130926.063014^4^358^
+"TEMP","DATAO",50.67,7934)
+FOSINOPRIL
+"TEMP","DATAO",50.67,7935)
+202245^3130926.063014^5^358^
+"TEMP","DATAO",50.67,7936)
+9709
+"TEMP","DATAO",50.67,7937)
+202245^3130926.063014^8^358^
+"TEMP","DATAO",50.67,7938)
+4595
+"TEMP","DATAO",50.67,7939)
+202245^3130926.063014^9^358^
+"TEMP","DATAO",50.67,7940)
+491
+"TEMP","DATAO",50.67,7941)
+202245^3130926.063014^10^358^
+"TEMP","DATAO",50.67,7942)
+R
+"TEMP","DATAO",50.67,7943)
+202246^3130926.063014^1^358^
+"TEMP","DATAO",50.67,7944)
+035356096190
+"TEMP","DATAO",50.67,7945)
+202246^3130926.063014^3^358^
+"TEMP","DATAO",50.67,7946)
+2376
+"TEMP","DATAO",50.67,7947)
+202246^3130926.063014^4^358^
+"TEMP","DATAO",50.67,7948)
+FOSINOPRIL
+"TEMP","DATAO",50.67,7949)
+202246^3130926.063014^5^358^
+"TEMP","DATAO",50.67,7950)
+9709
+"TEMP","DATAO",50.67,7951)
+202246^3130926.063014^8^358^
+"TEMP","DATAO",50.67,7952)
+4588
+"TEMP","DATAO",50.67,7953)
+202246^3130926.063014^9^358^
+"TEMP","DATAO",50.67,7954)
+491
+"TEMP","DATAO",50.67,7955)
+202246^3130926.063014^10^358^
+"TEMP","DATAO",50.67,7956)
+R
+"TEMP","DATAO",50.67,7957)
+202247^3130926.063015^1^358^
+"TEMP","DATAO",50.67,7958)
+044523061306
+"TEMP","DATAO",50.67,7959)
+202247^3130926.063015^3^358^
+"TEMP","DATAO",50.67,7960)
+3519
+"TEMP","DATAO",50.67,7961)
+202247^3130926.063015^4^358^
+"TEMP","DATAO",50.67,7962)
+SULFACETAMIDE SODIUM
+"TEMP","DATAO",50.67,7963)
+202247^3130926.063015^5^358^
+"TEMP","DATAO",50.67,7964)
+21442
+"TEMP","DATAO",50.67,7965)
+202247^3130926.063015^8^358^
+"TEMP","DATAO",50.67,7966)
+4696
+"TEMP","DATAO",50.67,7967)
+202247^3130926.063015^9^358^
+"TEMP","DATAO",50.67,7968)
+491
+"TEMP","DATAO",50.67,7969)
+202247^3130926.063015^10^358^
+"TEMP","DATAO",50.67,7970)
+R
+"TEMP","DATAO",50.67,7971)
+202248^3130926.063015^1^358^
+"TEMP","DATAO",50.67,7972)
+046122021026
+"TEMP","DATAO",50.67,7973)
+202248^3130926.063015^3^358^
+"TEMP","DATAO",50.67,7974)
+3389
+"TEMP","DATAO",50.67,7975)
+202248^3130926.063015^4^358^
+"TEMP","DATAO",50.67,7976)
+CHILDREN'S PAIN & FEVER RELIEF
+"TEMP","DATAO",50.67,7977)
+202248^3130926.063015^5^358^
+"TEMP","DATAO",50.67,7978)
+6664
+"TEMP","DATAO",50.67,7979)
+202248^3130926.063015^8^358^
+"TEMP","DATAO",50.67,7980)
+4677
+"TEMP","DATAO",50.67,7981)
+202248^3130926.063015^9^358^
+"TEMP","DATAO",50.67,7982)
+491
+"TEMP","DATAO",50.67,7983)
+202248^3130926.063015^10^358^
+"TEMP","DATAO",50.67,7984)
+O
+"TEMP","DATAO",50.67,7985)
+202249^3130926.063017^1^358^
+"TEMP","DATAO",50.67,7986)
+043547026850
+"TEMP","DATAO",50.67,7987)
+202249^3130926.063017^3^358^
+"TEMP","DATAO",50.67,7988)
+3927
+"TEMP","DATAO",50.67,7989)
+202249^3130926.063017^4^358^
+"TEMP","DATAO",50.67,7990)
+ROPINIROLE
+"TEMP","DATAO",50.67,7991)
+202249^3130926.063017^5^358^
+"TEMP","DATAO",50.67,7992)
+12753
+"TEMP","DATAO",50.67,7993)
+202249^3130926.063017^8^358^
+"TEMP","DATAO",50.67,7994)
+4596
+"TEMP","DATAO",50.67,7995)
+202249^3130926.063017^9^358^
+"TEMP","DATAO",50.67,7996)
+491
+"TEMP","DATAO",50.67,7997)
+202249^3130926.063017^10^358^
+"TEMP","DATAO",50.67,7998)
+R
+"TEMP","DATAO",50.67,7999)
+202250^3130926.063018^1^358^
+"TEMP","DATAO",50.67,8000)
+043547026950
+"TEMP","DATAO",50.67,8001)
+202250^3130926.063018^3^358^
+"TEMP","DATAO",50.67,8002)
+3927
+"TEMP","DATAO",50.67,8003)
+202250^3130926.063018^4^358^
+"TEMP","DATAO",50.67,8004)
+ROPINIROLE
+"TEMP","DATAO",50.67,8005)
+202250^3130926.063018^5^358^
+"TEMP","DATAO",50.67,8006)
+12754
+"TEMP","DATAO",50.67,8007)
+202250^3130926.063018^8^358^
+"TEMP","DATAO",50.67,8008)
+4596
+"TEMP","DATAO",50.67,8009)
+202250^3130926.063018^9^358^
+"TEMP","DATAO",50.67,8010)
+491
+"TEMP","DATAO",50.67,8011)
+202250^3130926.063018^10^358^
+"TEMP","DATAO",50.67,8012)
+R
+"TEMP","DATAO",50.67,8013)
+202251^3130926.063018^1^358^
+"TEMP","DATAO",50.67,8014)
+043547027050
+"TEMP","DATAO",50.67,8015)
+202251^3130926.063018^3^358^
+"TEMP","DATAO",50.67,8016)
+3927
+"TEMP","DATAO",50.67,8017)
+202251^3130926.063018^4^358^
+"TEMP","DATAO",50.67,8018)
+ROPINIROLE
+"TEMP","DATAO",50.67,8019)
+202251^3130926.063018^5^358^
+"TEMP","DATAO",50.67,8020)
+12755
+"TEMP","DATAO",50.67,8021)
+202251^3130926.063018^8^358^
+"TEMP","DATAO",50.67,8022)
+4596
+"TEMP","DATAO",50.67,8023)
+202251^3130926.063018^9^358^
+"TEMP","DATAO",50.67,8024)
+491
+"TEMP","DATAO",50.67,8025)
+202251^3130926.063018^10^358^
+"TEMP","DATAO",50.67,8026)
+R
+"TEMP","DATAO",50.67,8027)
+202252^3130926.063018^1^358^
+"TEMP","DATAO",50.67,8028)
+043547027150
+"TEMP","DATAO",50.67,8029)
+202252^3130926.063018^3^358^
+"TEMP","DATAO",50.67,8030)
+3927
+"TEMP","DATAO",50.67,8031)
+202252^3130926.063018^4^358^
+"TEMP","DATAO",50.67,8032)
+ROPINIROLE
+"TEMP","DATAO",50.67,8033)
+202252^3130926.063018^5^358^
+"TEMP","DATAO",50.67,8034)
+12756
+"TEMP","DATAO",50.67,8035)
+202252^3130926.063018^8^358^
+"TEMP","DATAO",50.67,8036)
+4596
+"TEMP","DATAO",50.67,8037)
+202252^3130926.063018^9^358^
+"TEMP","DATAO",50.67,8038)
+491
+"TEMP","DATAO",50.67,8039)
+202252^3130926.063018^10^358^
+"TEMP","DATAO",50.67,8040)
+R
+"TEMP","DATAO",50.67,8041)
+202253^3130926.063019^1^358^
+"TEMP","DATAO",50.67,8042)
+043547027250
+"TEMP","DATAO",50.67,8043)
+202253^3130926.063019^3^358^
+"TEMP","DATAO",50.67,8044)
+3927
+"TEMP","DATAO",50.67,8045)
+202253^3130926.063019^4^358^
+"TEMP","DATAO",50.67,8046)
+ROPINIROLE
+"TEMP","DATAO",50.67,8047)
+202253^3130926.063019^5^358^
+"TEMP","DATAO",50.67,8048)
+15309
+"TEMP","DATAO",50.67,8049)
+202253^3130926.063019^8^358^
+"TEMP","DATAO",50.67,8050)
+4596
+"TEMP","DATAO",50.67,8051)
+202253^3130926.063019^9^358^
+"TEMP","DATAO",50.67,8052)
+491
+"TEMP","DATAO",50.67,8053)
+202253^3130926.063019^10^358^
+"TEMP","DATAO",50.67,8054)
+R
+"TEMP","DATAO",50.67,8055)
+202254^3130926.063019^1^358^
+"TEMP","DATAO",50.67,8056)
+043547027350
+"TEMP","DATAO",50.67,8057)
+202254^3130926.063019^3^358^
+"TEMP","DATAO",50.67,8058)
+3927
+"TEMP","DATAO",50.67,8059)
+202254^3130926.063019^4^358^
+"TEMP","DATAO",50.67,8060)
+ROPINIROLE
+"TEMP","DATAO",50.67,8061)
+202254^3130926.063019^5^358^
+"TEMP","DATAO",50.67,8062)
+13963
+"TEMP","DATAO",50.67,8063)
+202254^3130926.063019^8^358^
+"TEMP","DATAO",50.67,8064)
+4596
+"TEMP","DATAO",50.67,8065)
+202254^3130926.063019^9^358^
+"TEMP","DATAO",50.67,8066)
+491
+"TEMP","DATAO",50.67,8067)
+202254^3130926.063019^10^358^
+"TEMP","DATAO",50.67,8068)
+R
+"TEMP","DATAO",50.67,8069)
+202255^3130926.063019^1^358^
+"TEMP","DATAO",50.67,8070)
+043547027450
+"TEMP","DATAO",50.67,8071)
+202255^3130926.063019^3^358^
+"TEMP","DATAO",50.67,8072)
+3927
+"TEMP","DATAO",50.67,8073)
+202255^3130926.063019^4^358^
+"TEMP","DATAO",50.67,8074)
+ROPINIROLE
+"TEMP","DATAO",50.67,8075)
+202255^3130926.063019^5^358^
+"TEMP","DATAO",50.67,8076)
+12757
+"TEMP","DATAO",50.67,8077)
+202255^3130926.063019^8^358^
+"TEMP","DATAO",50.67,8078)
+4596
+"TEMP","DATAO",50.67,8079)
+202255^3130926.063019^9^358^
+"TEMP","DATAO",50.67,8080)
+491
+"TEMP","DATAO",50.67,8081)
+202255^3130926.063019^10^358^
+"TEMP","DATAO",50.67,8082)
+R
+"TEMP","DATAO",50.67,8083)
+202256^3130926.06302^1^358^
+"TEMP","DATAO",50.67,8084)
+043900036010
+"TEMP","DATAO",50.67,8085)
+202256^3130926.06302^2^358^
+"TEMP","DATAO",50.67,8086)
+43900-36010
+"TEMP","DATAO",50.67,8087)
+202256^3130926.06302^3^358^
+"TEMP","DATAO",50.67,8088)
+3434
+"TEMP","DATAO",50.67,8089)
+202256^3130926.06302^4^358^
+"TEMP","DATAO",50.67,8090)
+BOOST GLUCOSE CONTROL
+"TEMP","DATAO",50.67,8091)
+202256^3130926.06302^5^358^
+"TEMP","DATAO",50.67,8092)
+20842
+"TEMP","DATAO",50.67,8093)
+202256^3130926.06302^8^358^
+"TEMP","DATAO",50.67,8094)
+4665
+"TEMP","DATAO",50.67,8095)
+202256^3130926.06302^9^358^
+"TEMP","DATAO",50.67,8096)
+117
+"TEMP","DATAO",50.67,8097)
+202256^3130926.06302^10^358^
+"TEMP","DATAO",50.67,8098)
+O
+"TEMP","DATAO",50.67,8099)
+202257^3130926.06302^1^358^
+"TEMP","DATAO",50.67,8100)
+050268022015
+"TEMP","DATAO",50.67,8101)
+202257^3130926.06302^3^358^
+"TEMP","DATAO",50.67,8102)
+3274
+"TEMP","DATAO",50.67,8103)
+202257^3130926.06302^4^358^
+"TEMP","DATAO",50.67,8104)
+DESMOPRESSIN
+"TEMP","DATAO",50.67,8105)
+202257^3130926.06302^5^358^
+"TEMP","DATAO",50.67,8106)
+5844
+"TEMP","DATAO",50.67,8107)
+202257^3130926.06302^8^358^
+"TEMP","DATAO",50.67,8108)
+4616
+"TEMP","DATAO",50.67,8109)
+202257^3130926.06302^9^358^
+"TEMP","DATAO",50.67,8110)
+974
+"TEMP","DATAO",50.67,8111)
+202257^3130926.06302^10^358^
+"TEMP","DATAO",50.67,8112)
+R
+"TEMP","DATAO",50.67,8113)
+202258^3130926.063021^1^358^
+"TEMP","DATAO",50.67,8114)
+050268022115
+"TEMP","DATAO",50.67,8115)
+202258^3130926.063021^3^358^
+"TEMP","DATAO",50.67,8116)
+3274
+"TEMP","DATAO",50.67,8117)
+202258^3130926.063021^4^358^
+"TEMP","DATAO",50.67,8118)
+DESMOPRESSIN
+"TEMP","DATAO",50.67,8119)
+202258^3130926.063021^5^358^
+"TEMP","DATAO",50.67,8120)
+5845
+"TEMP","DATAO",50.67,8121)
+202258^3130926.063021^8^358^
+"TEMP","DATAO",50.67,8122)
+4616
+"TEMP","DATAO",50.67,8123)
+202258^3130926.063021^9^358^
+"TEMP","DATAO",50.67,8124)
+974
+"TEMP","DATAO",50.67,8125)
+202258^3130926.063021^10^358^
+"TEMP","DATAO",50.67,8126)
+R
+"TEMP","DATAO",50.67,8127)
+202259^3130926.063021^1^358^
+"TEMP","DATAO",50.67,8128)
+050268052215
+"TEMP","DATAO",50.67,8129)
+202259^3130926.063021^3^358^
+"TEMP","DATAO",50.67,8130)
+3274
+"TEMP","DATAO",50.67,8131)
+202259^3130926.063021^4^358^
+"TEMP","DATAO",50.67,8132)
+MECLIZINE
+"TEMP","DATAO",50.67,8133)
+202259^3130926.063021^5^358^
+"TEMP","DATAO",50.67,8134)
+1852
+"TEMP","DATAO",50.67,8135)
+202259^3130926.063021^8^358^
+"TEMP","DATAO",50.67,8136)
+4616
+"TEMP","DATAO",50.67,8137)
+202259^3130926.063021^9^358^
+"TEMP","DATAO",50.67,8138)
+974
+"TEMP","DATAO",50.67,8139)
+202259^3130926.063021^10^358^
+"TEMP","DATAO",50.67,8140)
+R
+"TEMP","DATAO",50.67,8141)
+202260^3130926.063021^1^358^
+"TEMP","DATAO",50.67,8142)
+050268077515
+"TEMP","DATAO",50.67,8143)
+202260^3130926.063021^3^358^
+"TEMP","DATAO",50.67,8144)
+3274
+"TEMP","DATAO",50.67,8145)
+202260^3130926.063021^4^358^
+"TEMP","DATAO",50.67,8146)
+TRIMETHOPRIM
+"TEMP","DATAO",50.67,8147)
+202260^3130926.063021^5^358^
+"TEMP","DATAO",50.67,8148)
+1615
+"TEMP","DATAO",50.67,8149)
+202260^3130926.063021^8^358^
+"TEMP","DATAO",50.67,8150)
+4616
+"TEMP","DATAO",50.67,8151)
+202260^3130926.063021^9^358^
+"TEMP","DATAO",50.67,8152)
+974
+"TEMP","DATAO",50.67,8153)
+202260^3130926.063021^10^358^
+"TEMP","DATAO",50.67,8154)
+R
+"TEMP","DATAO",50.67,8155)
+202261^3130926.063024^1^358^
+"TEMP","DATAO",50.67,8156)
+054505032709
+"TEMP","DATAO",50.67,8157)
+202261^3130926.063024^3^358^
+"TEMP","DATAO",50.67,8158)
+4353
+"TEMP","DATAO",50.67,8159)
+202261^3130926.063024^4^358^
+"TEMP","DATAO",50.67,8160)
+DEXTROAMPHETAMINE
+"TEMP","DATAO",50.67,8161)
+202261^3130926.063024^5^358^
+"TEMP","DATAO",50.67,8162)
+2527
+"TEMP","DATAO",50.67,8163)
+202261^3130926.063024^8^358^
+"TEMP","DATAO",50.67,8164)
+4588
+"TEMP","DATAO",50.67,8165)
+202261^3130926.063024^9^358^
+"TEMP","DATAO",50.67,8166)
+491
+"TEMP","DATAO",50.67,8167)
+202261^3130926.063024^10^358^
+"TEMP","DATAO",50.67,8168)
+R
+"TEMP","DATAO",50.67,8169)
+202262^3130926.063024^1^358^
+"TEMP","DATAO",50.67,8170)
+054505032809
+"TEMP","DATAO",50.67,8171)
+202262^3130926.063024^3^358^
+"TEMP","DATAO",50.67,8172)
+4353
+"TEMP","DATAO",50.67,8173)
+202262^3130926.063024^4^358^
+"TEMP","DATAO",50.67,8174)
+DEXTROAMPHETAMINE
+"TEMP","DATAO",50.67,8175)
+202262^3130926.063024^5^358^
+"TEMP","DATAO",50.67,8176)
+2528
+"TEMP","DATAO",50.67,8177)
+202262^3130926.063024^8^358^
+"TEMP","DATAO",50.67,8178)
+4588
+"TEMP","DATAO",50.67,8179)
+202262^3130926.063024^9^358^
+"TEMP","DATAO",50.67,8180)
+491
+"TEMP","DATAO",50.67,8181)
+202262^3130926.063024^10^358^
+"TEMP","DATAO",50.67,8182)
+R
+"TEMP","DATAO",50.67,8183)
+202263^3130926.063024^1^358^
+"TEMP","DATAO",50.67,8184)
+054505032909
+"TEMP","DATAO",50.67,8185)
+202263^3130926.063024^3^358^
+"TEMP","DATAO",50.67,8186)
+4353
+"TEMP","DATAO",50.67,8187)
+202263^3130926.063024^4^358^
+"TEMP","DATAO",50.67,8188)
+DEXTROAMPHETAMINE
+"TEMP","DATAO",50.67,8189)
+202263^3130926.063024^5^358^
+"TEMP","DATAO",50.67,8190)
+2529
+"TEMP","DATAO",50.67,8191)
+202263^3130926.063024^8^358^
+"TEMP","DATAO",50.67,8192)
+4588
+"TEMP","DATAO",50.67,8193)
+202263^3130926.063024^9^358^
+"TEMP","DATAO",50.67,8194)
+491
+"TEMP","DATAO",50.67,8195)
+202263^3130926.063024^10^358^
+"TEMP","DATAO",50.67,8196)
+R
+"TEMP","DATAO",50.67,8197)
+202264^3130926.063025^1^358^
+"TEMP","DATAO",50.67,8198)
+057896085301
+"TEMP","DATAO",50.67,8199)
+202264^3130926.063025^3^358^
+"TEMP","DATAO",50.67,8200)
+2653
+"TEMP","DATAO",50.67,8201)
+202264^3130926.063025^4^358^
+"TEMP","DATAO",50.67,8202)
+VITAMIN B-6
+"TEMP","DATAO",50.67,8203)
+202264^3130926.063025^5^358^
+"TEMP","DATAO",50.67,8204)
+538
+"TEMP","DATAO",50.67,8205)
+202264^3130926.063025^8^358^
+"TEMP","DATAO",50.67,8206)
+4593
+"TEMP","DATAO",50.67,8207)
+202264^3130926.063025^9^358^
+"TEMP","DATAO",50.67,8208)
+491
+"TEMP","DATAO",50.67,8209)
+202264^3130926.063025^10^358^
+"TEMP","DATAO",50.67,8210)
+O
+"TEMP","DATAO",50.67,8211)
+202265^3130926.063026^1^358^
+"TEMP","DATAO",50.67,8212)
+058597801704
+"TEMP","DATAO",50.67,8213)
+202265^3130926.063026^3^358^
+"TEMP","DATAO",50.67,8214)
+4394
+"TEMP","DATAO",50.67,8215)
+202265^3130926.063026^4^358^
+"TEMP","DATAO",50.67,8216)
+KETOPROFEN (BULK)
+"TEMP","DATAO",50.67,8217)
+202265^3130926.063026^5^358^
+"TEMP","DATAO",50.67,8218)
+16894
+"TEMP","DATAO",50.67,8219)
+202265^3130926.063026^8^358^
+"TEMP","DATAO",50.67,8220)
+4619
+"TEMP","DATAO",50.67,8221)
+202265^3130926.063026^9^358^
+"TEMP","DATAO",50.67,8222)
+257
+"TEMP","DATAO",50.67,8223)
+202265^3130926.063026^10^358^
+"TEMP","DATAO",50.67,8224)
+R
+"TEMP","DATAO",50.67,8225)
+202266^3130926.063026^1^358^
+"TEMP","DATAO",50.67,8226)
+058597801705
+"TEMP","DATAO",50.67,8227)
+202266^3130926.063026^3^358^
+"TEMP","DATAO",50.67,8228)
+4394
+"TEMP","DATAO",50.67,8229)
+202266^3130926.063026^4^358^
+"TEMP","DATAO",50.67,8230)
+KETOPROFEN (BULK)
+"TEMP","DATAO",50.67,8231)
+202266^3130926.063026^5^358^
+"TEMP","DATAO",50.67,8232)
+16894
+"TEMP","DATAO",50.67,8233)
+202266^3130926.063026^8^358^
+"TEMP","DATAO",50.67,8234)
+4974
+"TEMP","DATAO",50.67,8235)
+202266^3130926.063026^9^358^
+"TEMP","DATAO",50.67,8236)
+257
+"TEMP","DATAO",50.67,8237)
+202266^3130926.063026^10^358^
+"TEMP","DATAO",50.67,8238)
+R
+"TEMP","DATAO",50.67,8239)
+202267^3130926.063026^1^358^
+"TEMP","DATAO",50.67,8240)
+058597801706
+"TEMP","DATAO",50.67,8241)
+202267^3130926.063026^3^358^
+"TEMP","DATAO",50.67,8242)
+4394
+"TEMP","DATAO",50.67,8243)
+202267^3130926.063026^4^358^
+"TEMP","DATAO",50.67,8244)
+KETOPROFEN (BULK)
+"TEMP","DATAO",50.67,8245)
+202267^3130926.063026^5^358^
+"TEMP","DATAO",50.67,8246)
+16894
+"TEMP","DATAO",50.67,8247)
+202267^3130926.063026^8^358^
+"TEMP","DATAO",50.67,8248)
+4593
+"TEMP","DATAO",50.67,8249)
+202267^3130926.063026^9^358^
+"TEMP","DATAO",50.67,8250)
+257
+"TEMP","DATAO",50.67,8251)
+202267^3130926.063026^10^358^
+"TEMP","DATAO",50.67,8252)
+R
+"TEMP","DATAO",50.67,8253)
+202268^3130926.063027^1^358^
+"TEMP","DATAO",50.67,8254)
+058597801707
+"TEMP","DATAO",50.67,8255)
+202268^3130926.063027^3^358^
+"TEMP","DATAO",50.67,8256)
+4394
+"TEMP","DATAO",50.67,8257)
+202268^3130926.063027^4^358^
+"TEMP","DATAO",50.67,8258)
+KETOPROFEN (BULK)
+"TEMP","DATAO",50.67,8259)
+202268^3130926.063027^5^358^
+"TEMP","DATAO",50.67,8260)
+16894
+"TEMP","DATAO",50.67,8261)
+202268^3130926.063027^8^358^
+"TEMP","DATAO",50.67,8262)
+4596
+"TEMP","DATAO",50.67,8263)
+202268^3130926.063027^9^358^
+"TEMP","DATAO",50.67,8264)
+257
+"TEMP","DATAO",50.67,8265)
+202268^3130926.063027^10^358^
+"TEMP","DATAO",50.67,8266)
+R
+"TEMP","DATAO",50.67,8267)
+202269^3130926.063027^1^358^
+"TEMP","DATAO",50.67,8268)
+058597801708
+"TEMP","DATAO",50.67,8269)
+202269^3130926.063027^3^358^
+"TEMP","DATAO",50.67,8270)
+4394
+"TEMP","DATAO",50.67,8271)
+202269^3130926.063027^4^358^
+"TEMP","DATAO",50.67,8272)
+KETOPROFEN (BULK)
+"TEMP","DATAO",50.67,8273)
+202269^3130926.063027^5^358^
+"TEMP","DATAO",50.67,8274)
+16894
+"TEMP","DATAO",50.67,8275)
+202269^3130926.063027^8^358^
+"TEMP","DATAO",50.67,8276)
+4609
+"TEMP","DATAO",50.67,8277)
+202269^3130926.063027^9^358^
+"TEMP","DATAO",50.67,8278)
+257
+"TEMP","DATAO",50.67,8279)
+202269^3130926.063027^10^358^
+"TEMP","DATAO",50.67,8280)
+R
+"TEMP","DATAO",50.67,8281)
+202270^3130926.063027^1^358^
+"TEMP","DATAO",50.67,8282)
+058597801709
+"TEMP","DATAO",50.67,8283)
+202270^3130926.063027^3^358^
+"TEMP","DATAO",50.67,8284)
+4394
+"TEMP","DATAO",50.67,8285)
+202270^3130926.063027^4^358^
+"TEMP","DATAO",50.67,8286)
+KETOPROFEN (BULK)
+"TEMP","DATAO",50.67,8287)
+202270^3130926.063027^5^358^
+"TEMP","DATAO",50.67,8288)
+16894
+"TEMP","DATAO",50.67,8289)
+202270^3130926.063027^8^358^
+"TEMP","DATAO",50.67,8290)
+4655
+"TEMP","DATAO",50.67,8291)
+202270^3130926.063027^9^358^
+"TEMP","DATAO",50.67,8292)
+257
+"TEMP","DATAO",50.67,8293)
+202270^3130926.063027^10^358^
+"TEMP","DATAO",50.67,8294)
+R
+"TEMP","DATAO",50.67,8295)
+202271^3130926.063031^1^358^
+"TEMP","DATAO",50.67,8296)
+058597802006
+"TEMP","DATAO",50.67,8297)
+202271^3130926.063031^3^358^
+"TEMP","DATAO",50.67,8298)
+4394
+"TEMP","DATAO",50.67,8299)
+202271^3130926.063031^4^358^
+"TEMP","DATAO",50.67,8300)
+LIDOCAINE HCL (BULK)
+"TEMP","DATAO",50.67,8301)
+202271^3130926.063031^5^358^
+"TEMP","DATAO",50.67,8302)
+3855
+"TEMP","DATAO",50.67,8303)
+202271^3130926.063031^8^358^
+"TEMP","DATAO",50.67,8304)
+4593
+"TEMP","DATAO",50.67,8305)
+202271^3130926.063031^9^358^
+"TEMP","DATAO",50.67,8306)
+257
+"TEMP","DATAO",50.67,8307)
+202271^3130926.063031^10^358^
+"TEMP","DATAO",50.67,8308)
+R
+"TEMP","DATAO",50.67,8309)
+202272^3130926.063031^1^358^
+"TEMP","DATAO",50.67,8310)
+058597802007
+"TEMP","DATAO",50.67,8311)
+202272^3130926.063031^3^358^
+"TEMP","DATAO",50.67,8312)
+4394
+"TEMP","DATAO",50.67,8313)
+202272^3130926.063031^4^358^
+"TEMP","DATAO",50.67,8314)
+LIDOCAINE HCL (BULK)
+"TEMP","DATAO",50.67,8315)
+202272^3130926.063031^5^358^
+"TEMP","DATAO",50.67,8316)
+3855
+"TEMP","DATAO",50.67,8317)
+202272^3130926.063031^8^358^
+"TEMP","DATAO",50.67,8318)
+4596
+"TEMP","DATAO",50.67,8319)
+202272^3130926.063031^9^358^
+"TEMP","DATAO",50.67,8320)
+257
+"TEMP","DATAO",50.67,8321)
+202272^3130926.063031^10^358^
+"TEMP","DATAO",50.67,8322)
+R
+"TEMP","DATAO",50.67,8323)
+202273^3130926.063031^1^358^
+"TEMP","DATAO",50.67,8324)
+058597802008
+"TEMP","DATAO",50.67,8325)
+202273^3130926.063031^3^358^
+"TEMP","DATAO",50.67,8326)
+4394
+"TEMP","DATAO",50.67,8327)
+202273^3130926.063031^4^358^
+"TEMP","DATAO",50.67,8328)
+LIDOCAINE HCL (BULK)
+"TEMP","DATAO",50.67,8329)
+202273^3130926.063031^5^358^
+"TEMP","DATAO",50.67,8330)
+3855
+"TEMP","DATAO",50.67,8331)
+202273^3130926.063031^8^358^
+"TEMP","DATAO",50.67,8332)
+4609
+"TEMP","DATAO",50.67,8333)
+202273^3130926.063031^9^358^
+"TEMP","DATAO",50.67,8334)
+257
+"TEMP","DATAO",50.67,8335)
+202273^3130926.063031^10^358^
+"TEMP","DATAO",50.67,8336)
+R
+"TEMP","DATAO",50.67,8337)
+202274^3130926.063033^1^358^
+"TEMP","DATAO",50.67,8338)
+058597801606
+"TEMP","DATAO",50.67,8339)
+202274^3130926.063033^3^358^
+"TEMP","DATAO",50.67,8340)
+4394
+"TEMP","DATAO",50.67,8341)
+202274^3130926.063033^4^358^
+"TEMP","DATAO",50.67,8342)
+INDOMETHACIN (BULK)
+"TEMP","DATAO",50.67,8343)
+202274^3130926.063033^5^358^
+"TEMP","DATAO",50.67,8344)
+2089
+"TEMP","DATAO",50.67,8345)
+202274^3130926.063033^8^358^
+"TEMP","DATAO",50.67,8346)
+4593
+"TEMP","DATAO",50.67,8347)
+202274^3130926.063033^9^358^
+"TEMP","DATAO",50.67,8348)
+257
+"TEMP","DATAO",50.67,8349)
+202274^3130926.063033^10^358^
+"TEMP","DATAO",50.67,8350)
+R
+"TEMP","DATAO",50.67,8351)
+202275^3130926.063033^1^358^
+"TEMP","DATAO",50.67,8352)
+058597801607
+"TEMP","DATAO",50.67,8353)
+202275^3130926.063033^3^358^
+"TEMP","DATAO",50.67,8354)
+4394
+"TEMP","DATAO",50.67,8355)
+202275^3130926.063033^4^358^
+"TEMP","DATAO",50.67,8356)
+INDOMETHACIN (BULK)
+"TEMP","DATAO",50.67,8357)
+202275^3130926.063033^5^358^
+"TEMP","DATAO",50.67,8358)
+2089
+"TEMP","DATAO",50.67,8359)
+202275^3130926.063033^8^358^
+"TEMP","DATAO",50.67,8360)
+4596
+"TEMP","DATAO",50.67,8361)
+202275^3130926.063033^9^358^
+"TEMP","DATAO",50.67,8362)
+257
+"TEMP","DATAO",50.67,8363)
+202275^3130926.063033^10^358^
+"TEMP","DATAO",50.67,8364)
+R
+"TEMP","DATAO",50.67,8365)
+202276^3130926.063034^1^358^
+"TEMP","DATAO",50.67,8366)
+058597801608
+"TEMP","DATAO",50.67,8367)
+202276^3130926.063034^3^358^
+"TEMP","DATAO",50.67,8368)
+4394
+"TEMP","DATAO",50.67,8369)
+202276^3130926.063034^4^358^
+"TEMP","DATAO",50.67,8370)
+INDOMETHACIN (BULK)
+"TEMP","DATAO",50.67,8371)
+202276^3130926.063034^5^358^
+"TEMP","DATAO",50.67,8372)
+2089
+"TEMP","DATAO",50.67,8373)
+202276^3130926.063034^8^358^
+"TEMP","DATAO",50.67,8374)
+4609
+"TEMP","DATAO",50.67,8375)
+202276^3130926.063034^9^358^
+"TEMP","DATAO",50.67,8376)
+257
+"TEMP","DATAO",50.67,8377)
+202276^3130926.063034^10^358^
+"TEMP","DATAO",50.67,8378)
+R
+"TEMP","DATAO",50.67,8379)
+202277^3130926.063035^1^358^
+"TEMP","DATAO",50.67,8380)
+058597806906
+"TEMP","DATAO",50.67,8381)
+202277^3130926.063035^3^358^
+"TEMP","DATAO",50.67,8382)
+4394
+"TEMP","DATAO",50.67,8383)
+202277^3130926.063035^4^358^
+"TEMP","DATAO",50.67,8384)
+METRONIDAZOLE (BULK)
+"TEMP","DATAO",50.67,8385)
+202277^3130926.063035^5^358^
+"TEMP","DATAO",50.67,8386)
+1819
+"TEMP","DATAO",50.67,8387)
+202277^3130926.063035^8^358^
+"TEMP","DATAO",50.67,8388)
+4593
+"TEMP","DATAO",50.67,8389)
+202277^3130926.063035^9^358^
+"TEMP","DATAO",50.67,8390)
+257
+"TEMP","DATAO",50.67,8391)
+202277^3130926.063035^10^358^
+"TEMP","DATAO",50.67,8392)
+R
+"TEMP","DATAO",50.67,8393)
+202278^3130926.063035^1^358^
+"TEMP","DATAO",50.67,8394)
+058597806907
+"TEMP","DATAO",50.67,8395)
+202278^3130926.063035^3^358^
+"TEMP","DATAO",50.67,8396)
+4394
+"TEMP","DATAO",50.67,8397)
+202278^3130926.063035^4^358^
+"TEMP","DATAO",50.67,8398)
+METRONIDAZOLE (BULK)
+"TEMP","DATAO",50.67,8399)
+202278^3130926.063035^5^358^
+"TEMP","DATAO",50.67,8400)
+1819
+"TEMP","DATAO",50.67,8401)
+202278^3130926.063035^8^358^
+"TEMP","DATAO",50.67,8402)
+4596
+"TEMP","DATAO",50.67,8403)
+202278^3130926.063035^9^358^
+"TEMP","DATAO",50.67,8404)
+257
+"TEMP","DATAO",50.67,8405)
+202278^3130926.063035^10^358^
+"TEMP","DATAO",50.67,8406)
+R
+"TEMP","DATAO",50.67,8407)
+202279^3130926.063035^1^358^
+"TEMP","DATAO",50.67,8408)
+058597806908
+"TEMP","DATAO",50.67,8409)
+202279^3130926.063035^3^358^
+"TEMP","DATAO",50.67,8410)
+4394
+"TEMP","DATAO",50.67,8411)
+202279^3130926.063035^4^358^
+"TEMP","DATAO",50.67,8412)
+METRONIDAZOLE (BULK)
+"TEMP","DATAO",50.67,8413)
+202279^3130926.063035^5^358^
+"TEMP","DATAO",50.67,8414)
+1819
+"TEMP","DATAO",50.67,8415)
+202279^3130926.063035^8^358^
+"TEMP","DATAO",50.67,8416)
+4609
+"TEMP","DATAO",50.67,8417)
+202279^3130926.063035^9^358^
+"TEMP","DATAO",50.67,8418)
+257
+"TEMP","DATAO",50.67,8419)
+202279^3130926.063035^10^358^
+"TEMP","DATAO",50.67,8420)
+R
+"TEMP","DATAO",50.67,8421)
+202280^3130926.063037^1^358^
+"TEMP","DATAO",50.67,8422)
+061958080101
+"TEMP","DATAO",50.67,8423)
+202280^3130926.063037^3^358^
+"TEMP","DATAO",50.67,8424)
+2364
+"TEMP","DATAO",50.67,8425)
+202280^3130926.063037^4^358^
+"TEMP","DATAO",50.67,8426)
+LETAIRIS
+"TEMP","DATAO",50.67,8427)
+202280^3130926.063037^5^358^
+"TEMP","DATAO",50.67,8428)
+18400
+"TEMP","DATAO",50.67,8429)
+202280^3130926.063037^8^358^
+"TEMP","DATAO",50.67,8430)
+4597
+"TEMP","DATAO",50.67,8431)
+202280^3130926.063037^9^358^
+"TEMP","DATAO",50.67,8432)
+491
+"TEMP","DATAO",50.67,8433)
+202280^3130926.063037^10^358^
+"TEMP","DATAO",50.67,8434)
+R
+"TEMP","DATAO",50.67,8435)
+202281^3130926.063038^1^358^
+"TEMP","DATAO",50.67,8436)
+063323026937
+"TEMP","DATAO",50.67,8437)
+202281^3130926.063038^3^358^
+"TEMP","DATAO",50.67,8438)
+3603
+"TEMP","DATAO",50.67,8439)
+202281^3130926.063038^4^358^
+"TEMP","DATAO",50.67,8440)
+DIPRIVAN
+"TEMP","DATAO",50.67,8441)
+202281^3130926.063038^5^358^
+"TEMP","DATAO",50.67,8442)
+8608
+"TEMP","DATAO",50.67,8443)
+202281^3130926.063038^8^358^
+"TEMP","DATAO",50.67,8444)
+4603
+"TEMP","DATAO",50.67,8445)
+202281^3130926.063038^9^358^
+"TEMP","DATAO",50.67,8446)
+613
+"TEMP","DATAO",50.67,8447)
+202281^3130926.063038^10^358^
+"TEMP","DATAO",50.67,8448)
+R
+"TEMP","DATAO",50.67,8449)
+202282^3130926.063039^1^358^
+"TEMP","DATAO",50.67,8450)
+064208823405
+"TEMP","DATAO",50.67,8451)
+202282^3130926.063039^3^358^
+"TEMP","DATAO",50.67,8452)
+4032
+"TEMP","DATAO",50.67,8453)
+202282^3130926.063039^4^358^
+"TEMP","DATAO",50.67,8454)
+GAMMAPLEX
+"TEMP","DATAO",50.67,8455)
+202282^3130926.063039^5^358^
+"TEMP","DATAO",50.67,8456)
+21767
+"TEMP","DATAO",50.67,8457)
+202282^3130926.063039^8^358^
+"TEMP","DATAO",50.67,8458)
+4616
+"TEMP","DATAO",50.67,8459)
+202282^3130926.063039^9^358^
+"TEMP","DATAO",50.67,8460)
+613
+"TEMP","DATAO",50.67,8461)
+202282^3130926.063039^10^358^
+"TEMP","DATAO",50.67,8462)
+R
+"TEMP","DATAO",50.67,8463)
+202283^3130926.063039^1^358^
+"TEMP","DATAO",50.67,8464)
+064208823406
+"TEMP","DATAO",50.67,8465)
+202283^3130926.063039^3^358^
+"TEMP","DATAO",50.67,8466)
+4032
+"TEMP","DATAO",50.67,8467)
+202283^3130926.063039^4^358^
+"TEMP","DATAO",50.67,8468)
+GAMMAPLEX
+"TEMP","DATAO",50.67,8469)
+202283^3130926.063039^5^358^
+"TEMP","DATAO",50.67,8470)
+21767
+"TEMP","DATAO",50.67,8471)
+202283^3130926.063039^8^358^
+"TEMP","DATAO",50.67,8472)
+4593
+"TEMP","DATAO",50.67,8473)
+202283^3130926.063039^9^358^
+"TEMP","DATAO",50.67,8474)
+613
+"TEMP","DATAO",50.67,8475)
+202283^3130926.063039^10^358^
+"TEMP","DATAO",50.67,8476)
+R
+"TEMP","DATAO",50.67,8477)
+202284^3130926.063039^1^358^
+"TEMP","DATAO",50.67,8478)
+064208823407
+"TEMP","DATAO",50.67,8479)
+202284^3130926.063039^3^358^
+"TEMP","DATAO",50.67,8480)
+4032
+"TEMP","DATAO",50.67,8481)
+202284^3130926.063039^4^358^
+"TEMP","DATAO",50.67,8482)
+GAMMAPLEX
+"TEMP","DATAO",50.67,8483)
+202284^3130926.063039^5^358^
+"TEMP","DATAO",50.67,8484)
+21767
+"TEMP","DATAO",50.67,8485)
+202284^3130926.063039^8^358^
+"TEMP","DATAO",50.67,8486)
+4637
+"TEMP","DATAO",50.67,8487)
+202284^3130926.063039^9^358^
+"TEMP","DATAO",50.67,8488)
+613
+"TEMP","DATAO",50.67,8489)
+202284^3130926.063039^10^358^
+"TEMP","DATAO",50.67,8490)
+R
+"TEMP","DATAO",50.67,8491)
+202285^3130926.092938^1^358^
+"TEMP","DATAO",50.67,8492)
+046122023172
+"TEMP","DATAO",50.67,8493)
+202285^3130926.092938^3^358^
+"TEMP","DATAO",50.67,8494)
+3389
+"TEMP","DATAO",50.67,8495)
+202285^3130926.092938^4^358^
+"TEMP","DATAO",50.67,8496)
+STOOL SOFTENER
+"TEMP","DATAO",50.67,8497)
+202285^3130926.092938^5^358^
+"TEMP","DATAO",50.67,8498)
+7544
+"TEMP","DATAO",50.67,8499)
+202285^3130926.092938^8^358^
+"TEMP","DATAO",50.67,8500)
+4593
+"TEMP","DATAO",50.67,8501)
+202285^3130926.092938^9^358^
+"TEMP","DATAO",50.67,8502)
+491
+"TEMP","DATAO",50.67,8503)
+202285^3130926.092938^10^358^
+"TEMP","DATAO",50.67,8504)
+O
+"TEMP","DATAO",50.67,8505)
+202286^3130926.092938^1^358^
+"TEMP","DATAO",50.67,8506)
+046122023178
+"TEMP","DATAO",50.67,8507)
+202286^3130926.092938^3^358^
+"TEMP","DATAO",50.67,8508)
+3389
+"TEMP","DATAO",50.67,8509)
+202286^3130926.092938^4^358^
+"TEMP","DATAO",50.67,8510)
+STOOL SOFTENER
+"TEMP","DATAO",50.67,8511)
+202286^3130926.092938^5^358^
+"TEMP","DATAO",50.67,8512)
+7544
+"TEMP","DATAO",50.67,8513)
+202286^3130926.092938^8^358^
+"TEMP","DATAO",50.67,8514)
+4595
+"TEMP","DATAO",50.67,8515)
+202286^3130926.092938^9^358^
+"TEMP","DATAO",50.67,8516)
+491
+"TEMP","DATAO",50.67,8517)
+202286^3130926.092938^10^358^
+"TEMP","DATAO",50.67,8518)
+O
+"TEMP","DATAO",50.67,8519)
+202287^3130926.093003^1^358^
+"TEMP","DATAO",50.67,8520)
+035356094260
+"TEMP","DATAO",50.67,8521)
+202287^3130926.093003^3^358^
+"TEMP","DATAO",50.67,8522)
+2376
+"TEMP","DATAO",50.67,8523)
+202287^3130926.093003^4^358^
+"TEMP","DATAO",50.67,8524)
+HYDROXYZINE HCL
+"TEMP","DATAO",50.67,8525)
+202287^3130926.093003^5^358^
+"TEMP","DATAO",50.67,8526)
+2015
+"TEMP","DATAO",50.67,8527)
+202287^3130926.093003^8^358^
+"TEMP","DATAO",50.67,8528)
+4595
+"TEMP","DATAO",50.67,8529)
+202287^3130926.093003^9^358^
+"TEMP","DATAO",50.67,8530)
+491
+"TEMP","DATAO",50.67,8531)
+202287^3130926.093003^10^358^
+"TEMP","DATAO",50.67,8532)
+R
+"TEMP","DATAO",50.67,8533)
+202288^3130926.093003^1^358^
+"TEMP","DATAO",50.67,8534)
+016714008210
+"TEMP","DATAO",50.67,8535)
+202288^3130926.093003^3^358^
+"TEMP","DATAO",50.67,8536)
+3263
+"TEMP","DATAO",50.67,8537)
+202288^3130926.093003^4^358^
+"TEMP","DATAO",50.67,8538)
+HYDROXYZINE HCL
+"TEMP","DATAO",50.67,8539)
+202288^3130926.093003^5^358^
+"TEMP","DATAO",50.67,8540)
+2015
+"TEMP","DATAO",50.67,8541)
+202288^3130926.093003^8^358^
+"TEMP","DATAO",50.67,8542)
+4593
+"TEMP","DATAO",50.67,8543)
+202288^3130926.093003^9^358^
+"TEMP","DATAO",50.67,8544)
+491
+"TEMP","DATAO",50.67,8545)
+202288^3130926.093003^10^358^
+"TEMP","DATAO",50.67,8546)
+R
+"TEMP","DATAO",50.67,8547)
+202289^3130926.093004^1^358^
+"TEMP","DATAO",50.67,8548)
+016714008211
+"TEMP","DATAO",50.67,8549)
+202289^3130926.093004^3^358^
+"TEMP","DATAO",50.67,8550)
+3263
+"TEMP","DATAO",50.67,8551)
+202289^3130926.093004^4^358^
+"TEMP","DATAO",50.67,8552)
+HYDROXYZINE HCL
+"TEMP","DATAO",50.67,8553)
+202289^3130926.093004^5^358^
+"TEMP","DATAO",50.67,8554)
+2015
+"TEMP","DATAO",50.67,8555)
+202289^3130926.093004^8^358^
+"TEMP","DATAO",50.67,8556)
+4596
+"TEMP","DATAO",50.67,8557)
+202289^3130926.093004^9^358^
+"TEMP","DATAO",50.67,8558)
+491
+"TEMP","DATAO",50.67,8559)
+202289^3130926.093004^10^358^
+"TEMP","DATAO",50.67,8560)
+R
+"TEMP","DATAO",50.67,8561)
+202290^3130926.093004^1^358^
+"TEMP","DATAO",50.67,8562)
+016714008212
+"TEMP","DATAO",50.67,8563)
+202290^3130926.093004^3^358^
+"TEMP","DATAO",50.67,8564)
+3263
+"TEMP","DATAO",50.67,8565)
+202290^3130926.093004^4^358^
+"TEMP","DATAO",50.67,8566)
+HYDROXYZINE HCL
+"TEMP","DATAO",50.67,8567)
+202290^3130926.093004^5^358^
+"TEMP","DATAO",50.67,8568)
+2015
+"TEMP","DATAO",50.67,8569)
+202290^3130926.093004^8^358^
+"TEMP","DATAO",50.67,8570)
+4609
+"TEMP","DATAO",50.67,8571)
+202290^3130926.093004^9^358^
+"TEMP","DATAO",50.67,8572)
+491
+"TEMP","DATAO",50.67,8573)
+202290^3130926.093004^10^358^
+"TEMP","DATAO",50.67,8574)
+R
+"TEMP","DATAO",50.67,8575)
+202291^3130926.093026^1^358^
+"TEMP","DATAO",50.67,8576)
+050268052315
+"TEMP","DATAO",50.67,8577)
+202291^3130926.093026^3^358^
+"TEMP","DATAO",50.67,8578)
+3274
+"TEMP","DATAO",50.67,8579)
+202291^3130926.093026^4^358^
+"TEMP","DATAO",50.67,8580)
+MECLIZINE
+"TEMP","DATAO",50.67,8581)
+202291^3130926.093026^5^358^
+"TEMP","DATAO",50.67,8582)
+13649
+"TEMP","DATAO",50.67,8583)
+202291^3130926.093026^8^358^
+"TEMP","DATAO",50.67,8584)
+4616
+"TEMP","DATAO",50.67,8585)
+202291^3130926.093026^9^358^
+"TEMP","DATAO",50.67,8586)
+974
+"TEMP","DATAO",50.67,8587)
+202291^3130926.093026^10^358^
+"TEMP","DATAO",50.67,8588)
+R
+"TEMP","DATAO",50.67,8589)
+202292^3130926.093049^1^358^
+"TEMP","DATAO",50.67,8590)
+024658026090
+"TEMP","DATAO",50.67,8591)
+202292^3130926.093049^3^358^
+"TEMP","DATAO",50.67,8592)
+3646
+"TEMP","DATAO",50.67,8593)
+202292^3130926.093049^4^358^
+"TEMP","DATAO",50.67,8594)
+GEMFIBROZIL
+"TEMP","DATAO",50.67,8595)
+202292^3130926.093049^5^358^
+"TEMP","DATAO",50.67,8596)
+5239
+"TEMP","DATAO",50.67,8597)
+202292^3130926.093049^8^358^
+"TEMP","DATAO",50.67,8598)
+4588
+"TEMP","DATAO",50.67,8599)
+202292^3130926.093049^9^358^
+"TEMP","DATAO",50.67,8600)
+491
+"TEMP","DATAO",50.67,8601)
+202292^3130926.093049^10^358^
+"TEMP","DATAO",50.67,8602)
+R
+"TEMP","DATAO",50.67,8603)
+202293^3130926.093119^1^358^
+"TEMP","DATAO",50.67,8604)
+068001000501
+"TEMP","DATAO",50.67,8605)
+202293^3130926.093119^3^358^
+"TEMP","DATAO",50.67,8606)
+4334
+"TEMP","DATAO",50.67,8607)
+202293^3130926.093119^4^358^
+"TEMP","DATAO",50.67,8608)
+METHYLPREDNISOLONE
+"TEMP","DATAO",50.67,8609)
+202293^3130926.093119^5^358^
+"TEMP","DATAO",50.67,8610)
+15711
+"TEMP","DATAO",50.67,8611)
+202293^3130926.093119^8^358^
+"TEMP","DATAO",50.67,8612)
+4614
+"TEMP","DATAO",50.67,8613)
+202293^3130926.093119^9^358^
+"TEMP","DATAO",50.67,8614)
+974
+"TEMP","DATAO",50.67,8615)
+202293^3130926.093119^10^358^
+"TEMP","DATAO",50.67,8616)
+R
+"TEMP","DATAO",50.67,8617)
+202294^3130926.093157^1^358^
+"TEMP","DATAO",50.67,8618)
+046122022462
+"TEMP","DATAO",50.67,8619)
+202294^3130926.093157^3^358^
+"TEMP","DATAO",50.67,8620)
+3389
+"TEMP","DATAO",50.67,8621)
+202294^3130926.093157^4^358^
+"TEMP","DATAO",50.67,8622)
+ACID CONTROL
+"TEMP","DATAO",50.67,8623)
+202294^3130926.093157^5^358^
+"TEMP","DATAO",50.67,8624)
+6531
+"TEMP","DATAO",50.67,8625)
+202294^3130926.093157^8^358^
+"TEMP","DATAO",50.67,8626)
+4639
+"TEMP","DATAO",50.67,8627)
+202294^3130926.093157^9^358^
+"TEMP","DATAO",50.67,8628)
+974
+"TEMP","DATAO",50.67,8629)
+202294^3130926.093157^10^358^
+"TEMP","DATAO",50.67,8630)
+O
+"TEMP","DATAO",50.67,8631)
+202295^3130926.093209^1^358^
+"TEMP","DATAO",50.67,8632)
+063981085256
+"TEMP","DATAO",50.67,8633)
+202295^3130926.093209^3^358^
+"TEMP","DATAO",50.67,8634)
+3772
+"TEMP","DATAO",50.67,8635)
+202295^3130926.093209^4^358^
+"TEMP","DATAO",50.67,8636)
+ACID REDUCER (RANITIDINE)
+"TEMP","DATAO",50.67,8637)
+202295^3130926.093209^5^358^
+"TEMP","DATAO",50.67,8638)
+6522
+"TEMP","DATAO",50.67,8639)
+202295^3130926.093209^8^358^
+"TEMP","DATAO",50.67,8640)
+4827
+"TEMP","DATAO",50.67,8641)
+202295^3130926.093209^9^358^
+"TEMP","DATAO",50.67,8642)
+491
+"TEMP","DATAO",50.67,8643)
+202295^3130926.093209^10^358^
+"TEMP","DATAO",50.67,8644)
+O
+"TEMP","DATAO",50.67,8645)
+202296^3130926.093238^1^358^
+"TEMP","DATAO",50.67,8646)
+000904585460
+"TEMP","DATAO",50.67,8647)
+202296^3130926.093238^3^358^
+"TEMP","DATAO",50.67,8648)
+3342
+"TEMP","DATAO",50.67,8649)
+202296^3130926.093238^4^358^
+"TEMP","DATAO",50.67,8650)
+IBUPROFEN
+"TEMP","DATAO",50.67,8651)
+202296^3130926.093238^5^358^
+"TEMP","DATAO",50.67,8652)
+1824
+"TEMP","DATAO",50.67,8653)
+202296^3130926.093238^8^358^
+"TEMP","DATAO",50.67,8654)
+4593
+"TEMP","DATAO",50.67,8655)
+202296^3130926.093238^9^358^
+"TEMP","DATAO",50.67,8656)
+491
+"TEMP","DATAO",50.67,8657)
+202296^3130926.093238^10^358^
+"TEMP","DATAO",50.67,8658)
+R
+"TEMP","DATAO",50.67,8659)
+202297^3130926.093311^1^358^
+"TEMP","DATAO",50.67,8660)
+000603764201
+"TEMP","DATAO",50.67,8661)
+202297^3130926.093311^3^358^
+"TEMP","DATAO",50.67,8662)
+3364
+"TEMP","DATAO",50.67,8663)
+202297^3130926.093311^4^358^
+"TEMP","DATAO",50.67,8664)
+PREVIFEM
+"TEMP","DATAO",50.67,8665)
+202297^3130926.093311^5^358^
+"TEMP","DATAO",50.67,8666)
+20740
+"TEMP","DATAO",50.67,8667)
+202297^3130926.093311^8^358^
+"TEMP","DATAO",50.67,8668)
+4591
+"TEMP","DATAO",50.67,8669)
+202297^3130926.093311^9^358^
+"TEMP","DATAO",50.67,8670)
+974
+"TEMP","DATAO",50.67,8671)
+202297^3130926.093311^10^358^
+"TEMP","DATAO",50.67,8672)
+R
+"TEMP","DATAO",50.67,8673)
+202298^3130926.093412^1^358^
+"TEMP","DATAO",50.67,8674)
+035356096230
+"TEMP","DATAO",50.67,8675)
+202298^3130926.093412^3^358^
+"TEMP","DATAO",50.67,8676)
+2376
+"TEMP","DATAO",50.67,8677)
+202298^3130926.093412^4^358^
+"TEMP","DATAO",50.67,8678)
+TERAZOSIN
+"TEMP","DATAO",50.67,8679)
+202298^3130926.093412^5^358^
+"TEMP","DATAO",50.67,8680)
+8295
+"TEMP","DATAO",50.67,8681)
+202298^3130926.093412^8^358^
+"TEMP","DATAO",50.67,8682)
+4597
+"TEMP","DATAO",50.67,8683)
+202298^3130926.093412^9^358^
+"TEMP","DATAO",50.67,8684)
+491
+"TEMP","DATAO",50.67,8685)
+202298^3130926.093412^10^358^
+"TEMP","DATAO",50.67,8686)
+R
+"TEMP","DATAO",50.67,8687)
+202299^3130926.093412^1^358^
+"TEMP","DATAO",50.67,8688)
+035356096260
+"TEMP","DATAO",50.67,8689)
+202299^3130926.093412^3^358^
+"TEMP","DATAO",50.67,8690)
+2376
+"TEMP","DATAO",50.67,8691)
+202299^3130926.093412^4^358^
+"TEMP","DATAO",50.67,8692)
+TERAZOSIN
+"TEMP","DATAO",50.67,8693)
+202299^3130926.093412^5^358^
+"TEMP","DATAO",50.67,8694)
+8295
+"TEMP","DATAO",50.67,8695)
+202299^3130926.093412^8^358^
+"TEMP","DATAO",50.67,8696)
+4595
+"TEMP","DATAO",50.67,8697)
+202299^3130926.093412^9^358^
+"TEMP","DATAO",50.67,8698)
+491
+"TEMP","DATAO",50.67,8699)
+202299^3130926.093412^10^358^
+"TEMP","DATAO",50.67,8700)
+R
+"TEMP","DATAO",50.67,8701)
+202300^3130926.093413^1^358^
+"TEMP","DATAO",50.67,8702)
+035356096290
+"TEMP","DATAO",50.67,8703)
+202300^3130926.093413^3^358^
+"TEMP","DATAO",50.67,8704)
+2376
+"TEMP","DATAO",50.67,8705)
+202300^3130926.093413^4^358^
+"TEMP","DATAO",50.67,8706)
+TERAZOSIN
+"TEMP","DATAO",50.67,8707)
+202300^3130926.093413^5^358^
+"TEMP","DATAO",50.67,8708)
+8295
+"TEMP","DATAO",50.67,8709)
+202300^3130926.093413^8^358^
+"TEMP","DATAO",50.67,8710)
+4588
+"TEMP","DATAO",50.67,8711)
+202300^3130926.093413^9^358^
+"TEMP","DATAO",50.67,8712)
+491
+"TEMP","DATAO",50.67,8713)
+202300^3130926.093413^10^358^
+"TEMP","DATAO",50.67,8714)
+R
+"TEMP","DATAO",50.67,8715)
+202301^3130926.093446^1^358^
+"TEMP","DATAO",50.67,8716)
+035356095730
+"TEMP","DATAO",50.67,8717)
+202301^3130926.093446^3^358^
+"TEMP","DATAO",50.67,8718)
+2376
+"TEMP","DATAO",50.67,8719)
+202301^3130926.093446^4^358^
+"TEMP","DATAO",50.67,8720)
+PRAMIPEXOLE
+"TEMP","DATAO",50.67,8721)
+202301^3130926.093446^5^358^
+"TEMP","DATAO",50.67,8722)
+12726
+"TEMP","DATAO",50.67,8723)
+202301^3130926.093446^8^358^
+"TEMP","DATAO",50.67,8724)
+4597
+"TEMP","DATAO",50.67,8725)
+202301^3130926.093446^9^358^
+"TEMP","DATAO",50.67,8726)
+491
+"TEMP","DATAO",50.67,8727)
+202301^3130926.093446^10^358^
+"TEMP","DATAO",50.67,8728)
+R
+"TEMP","DATAO",50.67,8729)
+202302^3130926.093447^1^358^
+"TEMP","DATAO",50.67,8730)
+035356095760
+"TEMP","DATAO",50.67,8731)
+202302^3130926.093447^3^358^
+"TEMP","DATAO",50.67,8732)
+2376
+"TEMP","DATAO",50.67,8733)
+202302^3130926.093447^4^358^
+"TEMP","DATAO",50.67,8734)
+PRAMIPEXOLE
+"TEMP","DATAO",50.67,8735)
+202302^3130926.093447^5^358^
+"TEMP","DATAO",50.67,8736)
+12726
+"TEMP","DATAO",50.67,8737)
+202302^3130926.093447^8^358^
+"TEMP","DATAO",50.67,8738)
+4595
+"TEMP","DATAO",50.67,8739)
+202302^3130926.093447^9^358^
+"TEMP","DATAO",50.67,8740)
+491
+"TEMP","DATAO",50.67,8741)
+202302^3130926.093447^10^358^
+"TEMP","DATAO",50.67,8742)
+R
+"TEMP","DATAO",50.67,8743)
+202303^3130926.093447^1^358^
+"TEMP","DATAO",50.67,8744)
+035356095790
+"TEMP","DATAO",50.67,8745)
+202303^3130926.093447^3^358^
+"TEMP","DATAO",50.67,8746)
+2376
+"TEMP","DATAO",50.67,8747)
+202303^3130926.093447^4^358^
+"TEMP","DATAO",50.67,8748)
+PRAMIPEXOLE
+"TEMP","DATAO",50.67,8749)
+202303^3130926.093447^5^358^
+"TEMP","DATAO",50.67,8750)
+12726
+"TEMP","DATAO",50.67,8751)
+202303^3130926.093447^8^358^
+"TEMP","DATAO",50.67,8752)
+4588
+"TEMP","DATAO",50.67,8753)
+202303^3130926.093447^9^358^
+"TEMP","DATAO",50.67,8754)
+491
+"TEMP","DATAO",50.67,8755)
+202303^3130926.093447^10^358^
+"TEMP","DATAO",50.67,8756)
+R
+"TEMP","DATAO",50.67,8757)
+202304^3130926.093626^1^358^
+"TEMP","DATAO",50.67,8758)
+000603766301
+"TEMP","DATAO",50.67,8759)
+202304^3130926.093626^3^358^
+"TEMP","DATAO",50.67,8760)
+3364
+"TEMP","DATAO",50.67,8761)
+202304^3130926.093626^4^358^
+"TEMP","DATAO",50.67,8762)
+TRI-PREVIFEM (28)
+"TEMP","DATAO",50.67,8763)
+202304^3130926.093626^5^358^
+"TEMP","DATAO",50.67,8764)
+17102
+"TEMP","DATAO",50.67,8765)
+202304^3130926.093626^8^358^
+"TEMP","DATAO",50.67,8766)
+4591
+"TEMP","DATAO",50.67,8767)
+202304^3130926.093626^9^358^
+"TEMP","DATAO",50.67,8768)
+974
+"TEMP","DATAO",50.67,8769)
+202304^3130926.093626^10^358^
+"TEMP","DATAO",50.67,8770)
+R
+"TEMP","DATAO",50.67,8771)
+202305^3130926.100648^1^358^
+"TEMP","DATAO",50.67,8772)
+000228323011
+"TEMP","DATAO",50.67,8773)
+202305^3130926.100648^3^358^
+"TEMP","DATAO",50.67,8774)
+4383
+"TEMP","DATAO",50.67,8775)
+202305^3130926.100648^4^358^
+"TEMP","DATAO",50.67,8776)
+OXYMORPHONE
+"TEMP","DATAO",50.67,8777)
+202305^3130926.100648^5^358^
+"TEMP","DATAO",50.67,8778)
+17839
+"TEMP","DATAO",50.67,8779)
+202305^3130926.100648^8^358^
+"TEMP","DATAO",50.67,8780)
+4593
+"TEMP","DATAO",50.67,8781)
+202305^3130926.100648^9^358^
+"TEMP","DATAO",50.67,8782)
+491
+"TEMP","DATAO",50.67,8783)
+202305^3130926.100648^10^358^
+"TEMP","DATAO",50.67,8784)
+R
+"TEMP","DATAO",50.67,8785)
+202306^3130926.101543^1^358^
+"TEMP","DATAO",50.67,8786)
+000228326311
+"TEMP","DATAO",50.67,8787)
+202306^3130926.101543^3^358^
+"TEMP","DATAO",50.67,8788)
+4383
+"TEMP","DATAO",50.67,8789)
+202306^3130926.101543^4^358^
+"TEMP","DATAO",50.67,8790)
+OXYMORPHONE
+"TEMP","DATAO",50.67,8791)
+202306^3130926.101543^5^358^
+"TEMP","DATAO",50.67,8792)
+20834
+"TEMP","DATAO",50.67,8793)
+202306^3130926.101543^8^358^
+"TEMP","DATAO",50.67,8794)
+4593
+"TEMP","DATAO",50.67,8795)
+202306^3130926.101543^9^358^
+"TEMP","DATAO",50.67,8796)
+491
+"TEMP","DATAO",50.67,8797)
+202306^3130926.101543^10^358^
+"TEMP","DATAO",50.67,8798)
+R
+"TEMP","DATAO",50.67,8799)
+202307^3130926.103348^1^358^
+"TEMP","DATAO",50.67,8800)
+000944302602
+"TEMP","DATAO",50.67,8801)
+202307^3130926.103348^3^358^
+"TEMP","DATAO",50.67,8802)
+3606
+"TEMP","DATAO",50.67,8803)
+202307^3130926.103348^4^358^
+"TEMP","DATAO",50.67,8804)
+RIXUBIS
+"TEMP","DATAO",50.67,8805)
+202307^3130926.103348^5^358^
+"TEMP","DATAO",50.67,8806)
+12661
+"TEMP","DATAO",50.67,8807)
+202307^3130926.103348^8^358^
+"TEMP","DATAO",50.67,8808)
+4592
+"TEMP","DATAO",50.67,8809)
+202307^3130926.103348^9^358^
+"TEMP","DATAO",50.67,8810)
+613
+"TEMP","DATAO",50.67,8811)
+202307^3130926.103348^10^358^
+"TEMP","DATAO",50.67,8812)
+R
+"TEMP","DATAO",50.67,8813)
+202308^3130926.103514^1^358^
+"TEMP","DATAO",50.67,8814)
+000944302802
+"TEMP","DATAO",50.67,8815)
+202308^3130926.103514^3^358^
+"TEMP","DATAO",50.67,8816)
+3606
+"TEMP","DATAO",50.67,8817)
+202308^3130926.103514^4^358^
+"TEMP","DATAO",50.67,8818)
+RIXUBIS
+"TEMP","DATAO",50.67,8819)
+202308^3130926.103514^5^358^
+"TEMP","DATAO",50.67,8820)
+12660
+"TEMP","DATAO",50.67,8821)
+202308^3130926.103514^8^358^
+"TEMP","DATAO",50.67,8822)
+4592
+"TEMP","DATAO",50.67,8823)
+202308^3130926.103514^9^358^
+"TEMP","DATAO",50.67,8824)
+613
+"TEMP","DATAO",50.67,8825)
+202308^3130926.103514^10^358^
+"TEMP","DATAO",50.67,8826)
+R
+"TEMP","DATAO",50.67,8827)
+202309^3130926.103754^1^358^
+"TEMP","DATAO",50.67,8828)
+000944303002
+"TEMP","DATAO",50.67,8829)
+202309^3130926.103754^3^358^
+"TEMP","DATAO",50.67,8830)
+3606
+"TEMP","DATAO",50.67,8831)
+202309^3130926.103754^4^358^
+"TEMP","DATAO",50.67,8832)
+RIXUBIS
+"TEMP","DATAO",50.67,8833)
+202309^3130926.103754^5^358^
+"TEMP","DATAO",50.67,8834)
+12659
+"TEMP","DATAO",50.67,8835)
+202309^3130926.103754^8^358^
+"TEMP","DATAO",50.67,8836)
+4592
+"TEMP","DATAO",50.67,8837)
+202309^3130926.103754^9^358^
+"TEMP","DATAO",50.67,8838)
+613
+"TEMP","DATAO",50.67,8839)
+202309^3130926.103754^10^358^
+"TEMP","DATAO",50.67,8840)
+R
+"TEMP","DATAO",50.67,8841)
+202310^3130926.104638^1^358^
+"TEMP","DATAO",50.67,8842)
+068094075458
+"TEMP","DATAO",50.67,8843)
+202310^3130926.104638^3^358^
+"TEMP","DATAO",50.67,8844)
+3500
+"TEMP","DATAO",50.67,8845)
+202310^3130926.104638^4^358^
+"TEMP","DATAO",50.67,8846)
+MORPHINE CONCENTRATE
+"TEMP","DATAO",50.67,8847)
+202310^3130926.104638^5^358^
+"TEMP","DATAO",50.67,8848)
+20095
+"TEMP","DATAO",50.67,8849)
+202310^3130926.104638^8^358^
+"TEMP","DATAO",50.67,8850)
+4616
+"TEMP","DATAO",50.67,8851)
+202310^3130926.104638^9^358^
+"TEMP","DATAO",50.67,8852)
+594
+"TEMP","DATAO",50.67,8853)
+202310^3130926.104638^10^358^
+"TEMP","DATAO",50.67,8854)
+R
+"TEMP","DATAO",50.67,8855)
+202311^3130926.105747^1^358^
+"TEMP","DATAO",50.67,8856)
+076420048101
+"TEMP","DATAO",50.67,8857)
+202311^3130926.105747^3^358^
+"TEMP","DATAO",50.67,8858)
+4380
+"TEMP","DATAO",50.67,8859)
+202311^3130926.105747^4^358^
+"TEMP","DATAO",50.67,8860)
+SINGLE USE EZ FLU 2013-14 (PF)
+"TEMP","DATAO",50.67,8861)
+202311^3130926.105747^5^358^
+"TEMP","DATAO",50.67,8862)
+24055
+"TEMP","DATAO",50.67,8863)
+202311^3130926.105747^8^358^
+"TEMP","DATAO",50.67,8864)
+4592
+"TEMP","DATAO",50.67,8865)
+202311^3130926.105747^9^358^
+"TEMP","DATAO",50.67,8866)
+262
+"TEMP","DATAO",50.67,8867)
+202311^3130926.105747^10^358^
+"TEMP","DATAO",50.67,8868)
+R
+"TEMP","DATAO",50.67,8869)
+202312^3130926.110656^1^358^
+"TEMP","DATAO",50.67,8870)
+017856146502
+"TEMP","DATAO",50.67,8871)
+202312^3130926.110656^3^358^
+"TEMP","DATAO",50.67,8872)
+4245
+"TEMP","DATAO",50.67,8873)
+202312^3130926.110656^4^358^
+"TEMP","DATAO",50.67,8874)
+FEROSUL
+"TEMP","DATAO",50.67,8875)
+202312^3130926.110656^5^358^
+"TEMP","DATAO",50.67,8876)
+7755
+"TEMP","DATAO",50.67,8877)
+202312^3130926.110656^8^358^
+"TEMP","DATAO",50.67,8878)
+5177
+"TEMP","DATAO",50.67,8879)
+202312^3130926.110656^9^358^
+"TEMP","DATAO",50.67,8880)
+539
+"TEMP","DATAO",50.67,8881)
+202312^3130926.110656^10^358^
+"TEMP","DATAO",50.67,8882)
+O
+"TEMP","DATAO",50.67,8883)
+202313^3130926.121033^1^358^
+"TEMP","DATAO",50.67,8884)
+063402030630
+"TEMP","DATAO",50.67,8885)
+202313^3130926.121033^3^358^
+"TEMP","DATAO",50.67,8886)
+3946
+"TEMP","DATAO",50.67,8887)
+202313^3130926.121033^4^358^
+"TEMP","DATAO",50.67,8888)
+LATUDA
+"TEMP","DATAO",50.67,8889)
+202313^3130926.121033^5^358^
+"TEMP","DATAO",50.67,8890)
+24187
+"TEMP","DATAO",50.67,8891)
+202313^3130926.121033^8^358^
+"TEMP","DATAO",50.67,8892)
+4597
+"TEMP","DATAO",50.67,8893)
+202313^3130926.121033^9^358^
+"TEMP","DATAO",50.67,8894)
+491
+"TEMP","DATAO",50.67,8895)
+202313^3130926.121033^10^358^
+"TEMP","DATAO",50.67,8896)
+R
+"TEMP","DATAO",50.67,8897)
+202314^3130926.122952^1^358^
+"TEMP","DATAO",50.67,8898)
+089157052101
+"TEMP","DATAO",50.67,8899)
+202314^3130926.122952^3^358^
+"TEMP","DATAO",50.67,8900)
+4271
+"TEMP","DATAO",50.67,8901)
+202314^3130926.122952^4^358^
+"TEMP","DATAO",50.67,8902)
+GMATE LANCETS
+"TEMP","DATAO",50.67,8903)
+202314^3130926.122952^5^358^
+"TEMP","DATAO",50.67,8904)
+24188
+"TEMP","DATAO",50.67,8905)
+202314^3130926.122952^8^358^
+"TEMP","DATAO",50.67,8906)
+4593
+"TEMP","DATAO",50.67,8907)
+202314^3130926.122952^9^358^
+"TEMP","DATAO",50.67,8908)
+492
+"TEMP","DATAO",50.67,8909)
+202314^3130926.122952^10^358^
+"TEMP","DATAO",50.67,8910)
+O
+"TEMP","DATAO",50.67,8911)
+202315^3130926.123147^1^358^
+"TEMP","DATAO",50.67,8912)
+089157382001
+"TEMP","DATAO",50.67,8913)
+202315^3130926.123147^3^358^
+"TEMP","DATAO",50.67,8914)
+4271
+"TEMP","DATAO",50.67,8915)
+202315^3130926.123147^4^358^
+"TEMP","DATAO",50.67,8916)
+GMATE LANCING DEVICE
+"TEMP","DATAO",50.67,8917)
+202315^3130926.123147^5^358^
+"TEMP","DATAO",50.67,8918)
+24189
+"TEMP","DATAO",50.67,8919)
+202315^3130926.123147^8^358^
+"TEMP","DATAO",50.67,8920)
+4592
+"TEMP","DATAO",50.67,8921)
+202315^3130926.123147^9^358^
+"TEMP","DATAO",50.67,8922)
+492
+"TEMP","DATAO",50.67,8923)
+202315^3130926.123147^10^358^
+"TEMP","DATAO",50.67,8924)
+O
+"TEMP","DATAO",50.67,8925)
+202316^3130926.123149^1^358^
+"TEMP","DATAO",50.67,8926)
+087052000511
+"TEMP","DATAO",50.67,8927)
+202316^3130926.123149^2^358^
+"TEMP","DATAO",50.67,8928)
+87052-00511
+"TEMP","DATAO",50.67,8929)
+202316^3130926.123149^3^358^
+"TEMP","DATAO",50.67,8930)
+4271
+"TEMP","DATAO",50.67,8931)
+202316^3130926.123149^4^358^
+"TEMP","DATAO",50.67,8932)
+GMATE LANCING DEVICE
+"TEMP","DATAO",50.67,8933)
+202316^3130926.123149^5^358^
+"TEMP","DATAO",50.67,8934)
+24189
+"TEMP","DATAO",50.67,8935)
+202316^3130926.123149^8^358^
+"TEMP","DATAO",50.67,8936)
+4592
+"TEMP","DATAO",50.67,8937)
+202316^3130926.123149^9^358^
+"TEMP","DATAO",50.67,8938)
+492
+"TEMP","DATAO",50.67,8939)
+202316^3130926.123149^10^358^
+"TEMP","DATAO",50.67,8940)
+O
+"TEMP","DATAO",50.67,8941)
+202317^3130926.123253^1^358^
+"TEMP","DATAO",50.67,8942)
+041679047371
+"TEMP","DATAO",50.67,8943)
+202317^3130926.123253^2^358^
+"TEMP","DATAO",50.67,8944)
+41679-47371
+"TEMP","DATAO",50.67,8945)
+202317^3130926.123253^3^358^
+"TEMP","DATAO",50.67,8946)
+3434
+"TEMP","DATAO",50.67,8947)
+202317^3130926.123253^4^358^
+"TEMP","DATAO",50.67,8948)
+BOOST CALORIE SMART
+"TEMP","DATAO",50.67,8949)
+202317^3130926.123253^5^358^
+"TEMP","DATAO",50.67,8950)
+24190
+"TEMP","DATAO",50.67,8951)
+202317^3130926.123253^8^358^
+"TEMP","DATAO",50.67,8952)
+4665
+"TEMP","DATAO",50.67,8953)
+202317^3130926.123253^9^358^
+"TEMP","DATAO",50.67,8954)
+491
+"TEMP","DATAO",50.67,8955)
+202317^3130926.123253^10^358^
+"TEMP","DATAO",50.67,8956)
+O
+"TEMP","DATAO",50.67,8957)
+202318^3130926.123255^1^358^
+"TEMP","DATAO",50.67,8958)
+041679047377
+"TEMP","DATAO",50.67,8959)
+202318^3130926.123255^2^358^
+"TEMP","DATAO",50.67,8960)
+41679-47377
+"TEMP","DATAO",50.67,8961)
+202318^3130926.123255^3^358^
+"TEMP","DATAO",50.67,8962)
+3434
+"TEMP","DATAO",50.67,8963)
+202318^3130926.123255^4^358^
+"TEMP","DATAO",50.67,8964)
+BOOST CALORIE SMART
+"TEMP","DATAO",50.67,8965)
+202318^3130926.123255^5^358^
+"TEMP","DATAO",50.67,8966)
+24190
+"TEMP","DATAO",50.67,8967)
+202318^3130926.123255^8^358^
+"TEMP","DATAO",50.67,8968)
+4665
+"TEMP","DATAO",50.67,8969)
+202318^3130926.123255^9^358^
+"TEMP","DATAO",50.67,8970)
+491
+"TEMP","DATAO",50.67,8971)
+202318^3130926.123255^10^358^
+"TEMP","DATAO",50.67,8972)
+O
+"TEMP","DATAO",50.67,8973)
+202319^3130926.123435^1^358^
+"TEMP","DATAO",50.67,8974)
+059011075804
+"TEMP","DATAO",50.67,8975)
+202319^3130926.123435^3^358^
+"TEMP","DATAO",50.67,8976)
+3366
+"TEMP","DATAO",50.67,8977)
+202319^3130926.123435^4^358^
+"TEMP","DATAO",50.67,8978)
+BUTRANS
+"TEMP","DATAO",50.67,8979)
+202319^3130926.123435^5^358^
+"TEMP","DATAO",50.67,8980)
+24191
+"TEMP","DATAO",50.67,8981)
+202319^3130926.123435^8^358^
+"TEMP","DATAO",50.67,8982)
+4615
+"TEMP","DATAO",50.67,8983)
+202319^3130926.123435^9^358^
+"TEMP","DATAO",50.67,8984)
+492
+"TEMP","DATAO",50.67,8985)
+202319^3130926.123435^10^358^
+"TEMP","DATAO",50.67,8986)
+R
+"TEMP","DATAO",50.67,8987)
+202320^3130926.123654^1^358^
+"TEMP","DATAO",50.67,8988)
+016781044635
+"TEMP","DATAO",50.67,8989)
+202320^3130926.123654^3^358^
+"TEMP","DATAO",50.67,8990)
+3667
+"TEMP","DATAO",50.67,8991)
+202320^3130926.123654^4^358^
+"TEMP","DATAO",50.67,8992)
+TRETIN-X
+"TEMP","DATAO",50.67,8993)
+202320^3130926.123654^5^358^
+"TEMP","DATAO",50.67,8994)
+24192
+"TEMP","DATAO",50.67,8995)
+202320^3130926.123654^8^358^
+"TEMP","DATAO",50.67,8996)
+4732
+"TEMP","DATAO",50.67,8997)
+202320^3130926.123654^9^358^
+"TEMP","DATAO",50.67,8998)
+597
+"TEMP","DATAO",50.67,8999)
+202320^3130926.123654^10^358^
+"TEMP","DATAO",50.67,9000)
+R
+"TEMP","DATAO",50.67,9001)
+202321^3130926.123906^1^358^
+"TEMP","DATAO",50.67,9002)
+089157202001
+"TEMP","DATAO",50.67,9003)
+202321^3130926.123906^3^358^
+"TEMP","DATAO",50.67,9004)
+4271
+"TEMP","DATAO",50.67,9005)
+202321^3130926.123906^4^358^
+"TEMP","DATAO",50.67,9006)
+GMATE CONTROL SOLUTION, NORMAL
+"TEMP","DATAO",50.67,9007)
+202321^3130926.123906^5^358^
+"TEMP","DATAO",50.67,9008)
+24193
+"TEMP","DATAO",50.67,9009)
+202321^3130926.123906^8^358^
+"TEMP","DATAO",50.67,9010)
+4592
+"TEMP","DATAO",50.67,9011)
+202321^3130926.123906^9^358^
+"TEMP","DATAO",50.67,9012)
+491
+"TEMP","DATAO",50.67,9013)
+202321^3130926.123906^10^358^
+"TEMP","DATAO",50.67,9014)
+O
+"TEMP","DATAO",50.67,9015)
+202322^3130926.12411^1^358^
+"TEMP","DATAO",50.67,9016)
+057893030499
+"TEMP","DATAO",50.67,9017)
+202322^3130926.12411^3^358^
+"TEMP","DATAO",50.67,9018)
+4399
+"TEMP","DATAO",50.67,9019)
+202322^3130926.12411^4^358^
+"TEMP","DATAO",50.67,9020)
+RIAX
+"TEMP","DATAO",50.67,9021)
+202322^3130926.12411^5^358^
+"TEMP","DATAO",50.67,9022)
+24194
+"TEMP","DATAO",50.67,9023)
+202322^3130926.12411^8^358^
+"TEMP","DATAO",50.67,9024)
+4593
+"TEMP","DATAO",50.67,9025)
+202322^3130926.12411^9^358^
+"TEMP","DATAO",50.67,9026)
+491
+"TEMP","DATAO",50.67,9027)
+202322^3130926.12411^10^358^
+"TEMP","DATAO",50.67,9028)
+R
+"TEMP","DATAO",50.67,9029)
+202323^3130926.124211^1^358^
+"TEMP","DATAO",50.67,9030)
+057893030399
+"TEMP","DATAO",50.67,9031)
+202323^3130926.124211^3^358^
+"TEMP","DATAO",50.67,9032)
+4399
+"TEMP","DATAO",50.67,9033)
+202323^3130926.124211^4^358^
+"TEMP","DATAO",50.67,9034)
+RIAX
+"TEMP","DATAO",50.67,9035)
+202323^3130926.124211^5^358^
+"TEMP","DATAO",50.67,9036)
+24195
+"TEMP","DATAO",50.67,9037)
+202323^3130926.124211^8^358^
+"TEMP","DATAO",50.67,9038)
+4593
+"TEMP","DATAO",50.67,9039)
+202323^3130926.124211^9^358^
+"TEMP","DATAO",50.67,9040)
+491
+"TEMP","DATAO",50.67,9041)
+202323^3130926.124211^10^358^
+"TEMP","DATAO",50.67,9042)
+R
+"TEMP","DATAO",50.67,9043)
+202324^3130926.124403^1^358^
+"TEMP","DATAO",50.67,9044)
+057893030230
+"TEMP","DATAO",50.67,9045)
+202324^3130926.124403^3^358^
+"TEMP","DATAO",50.67,9046)
+4399
+"TEMP","DATAO",50.67,9047)
+202324^3130926.124403^4^358^
+"TEMP","DATAO",50.67,9048)
+VYTONE
+"TEMP","DATAO",50.67,9049)
+202324^3130926.124403^5^358^
+"TEMP","DATAO",50.67,9050)
+24196
+"TEMP","DATAO",50.67,9051)
+202324^3130926.124403^8^358^
+"TEMP","DATAO",50.67,9052)
+2673
+"TEMP","DATAO",50.67,9053)
+202324^3130926.124403^9^358^
+"TEMP","DATAO",50.67,9054)
+293
+"TEMP","DATAO",50.67,9055)
+202324^3130926.124403^10^358^
+"TEMP","DATAO",50.67,9056)
+R
+"TEMP","DATAO",50.67,9057)
+202325^3130926.124549^1^358^
+"TEMP","DATAO",50.67,9058)
+000944303202
+"TEMP","DATAO",50.67,9059)
+202325^3130926.124549^3^358^
+"TEMP","DATAO",50.67,9060)
+3606
+"TEMP","DATAO",50.67,9061)
+202325^3130926.124549^4^358^
+"TEMP","DATAO",50.67,9062)
+RIXUBIS
+"TEMP","DATAO",50.67,9063)
+202325^3130926.124549^5^358^
+"TEMP","DATAO",50.67,9064)
+24197
+"TEMP","DATAO",50.67,9065)
+202325^3130926.124549^8^358^
+"TEMP","DATAO",50.67,9066)
+4592
+"TEMP","DATAO",50.67,9067)
+202325^3130926.124549^9^358^
+"TEMP","DATAO",50.67,9068)
+613
+"TEMP","DATAO",50.67,9069)
+202325^3130926.124549^10^358^
+"TEMP","DATAO",50.67,9070)
+R
+"TEMP","DATAO",50.67,9071)
+202326^3130926.124638^1^358^
+"TEMP","DATAO",50.67,9072)
+044523051008
+"TEMP","DATAO",50.67,9073)
+202326^3130926.124638^3^358^
+"TEMP","DATAO",50.67,9074)
+3519
+"TEMP","DATAO",50.67,9075)
+202326^3130926.124638^4^358^
+"TEMP","DATAO",50.67,9076)
+SULFACETAMIDE SODIUM
+"TEMP","DATAO",50.67,9077)
+202326^3130926.124638^5^358^
+"TEMP","DATAO",50.67,9078)
+24198
+"TEMP","DATAO",50.67,9079)
+202326^3130926.124638^8^358^
+"TEMP","DATAO",50.67,9080)
+4665
+"TEMP","DATAO",50.67,9081)
+202326^3130926.124638^9^358^
+"TEMP","DATAO",50.67,9082)
+491
+"TEMP","DATAO",50.67,9083)
+202326^3130926.124638^10^358^
+"TEMP","DATAO",50.67,9084)
+R
+"TEMP","DATAO",50.67,9085)
+202327^3130926.124656^1^358^
+"TEMP","DATAO",50.67,9086)
+000944303402
+"TEMP","DATAO",50.67,9087)
+202327^3130926.124656^3^358^
+"TEMP","DATAO",50.67,9088)
+3606
+"TEMP","DATAO",50.67,9089)
+202327^3130926.124656^4^358^
+"TEMP","DATAO",50.67,9090)
+RIXUBIS
+"TEMP","DATAO",50.67,9091)
+202327^3130926.124656^5^358^
+"TEMP","DATAO",50.67,9092)
+24199
+"TEMP","DATAO",50.67,9093)
+202327^3130926.124656^8^358^
+"TEMP","DATAO",50.67,9094)
+4592
+"TEMP","DATAO",50.67,9095)
+202327^3130926.124656^9^358^
+"TEMP","DATAO",50.67,9096)
+613
+"TEMP","DATAO",50.67,9097)
+202327^3130926.124656^10^358^
+"TEMP","DATAO",50.67,9098)
+R
+"TEMP","DATAO",50.67,9099)
+202328^3130926.124715^1^358^
+"TEMP","DATAO",50.67,9100)
+057893030006
+"TEMP","DATAO",50.67,9101)
+202328^3130926.124715^3^358^
+"TEMP","DATAO",50.67,9102)
+4399
+"TEMP","DATAO",50.67,9103)
+202328^3130926.124715^4^358^
+"TEMP","DATAO",50.67,9104)
+SELRX
+"TEMP","DATAO",50.67,9105)
+202328^3130926.124715^5^358^
+"TEMP","DATAO",50.67,9106)
+24200
+"TEMP","DATAO",50.67,9107)
+202328^3130926.124715^8^358^
+"TEMP","DATAO",50.67,9108)
+4640
+"TEMP","DATAO",50.67,9109)
+202328^3130926.124715^9^358^
+"TEMP","DATAO",50.67,9110)
+491
+"TEMP","DATAO",50.67,9111)
+202328^3130926.124715^10^358^
+"TEMP","DATAO",50.67,9112)
+R
+"TEMP","DATAO",50.67,9113)
+92474^3130926.132954^5^358^
+"TEMP","DATAO",50.67,9114)
+23371
+"TEMP","DATAO",50.67,9115)
+92486^3130926.133649^5^358^
+"TEMP","DATAO",50.67,9116)
+23370
+"TEMP","DATAO",50.67,9117)
+92484^3130926.144102^5^358^
+"TEMP","DATAO",50.67,9118)
+23370
+"TEMP","DATAO",50.67,9119)
+77958^3130926.144104^5^358^
+"TEMP","DATAO",50.67,9120)
+23370
+"TEMP","DATAO",50.67,9121)
+77957^3130926.144106^5^358^
+"TEMP","DATAO",50.67,9122)
+23370
+"TEMP","DATAO",50.67,9123)
+97327^3130926.144329^5^358^
+"TEMP","DATAO",50.67,9124)
+23371
+"TEMP","DATAO",50.67,9125)
+175851^3130926.144331^5^358^
+"TEMP","DATAO",50.67,9126)
+23371
+"TEMP","DATAO",50.67,9127)
+175852^3130926.144333^2^358^
+"TEMP","DATAO",50.67,9128)
+11917-07538
+"TEMP","DATAO",50.67,9129)
+175852^3130926.144333^5^358^
+"TEMP","DATAO",50.67,9130)
+23371
+"TEMP","DATAO",50.67,9131)
+175853^3130926.144335^2^358^
+"TEMP","DATAO",50.67,9132)
+11917-05014
+"TEMP","DATAO",50.67,9133)
+175853^3130926.144335^5^358^
+"TEMP","DATAO",50.67,9134)
+23371
+"TEMP","DATAO",50.67,9135)
+175854^3130926.144337^5^358^
+"TEMP","DATAO",50.67,9136)
+23371
+"TEMP","DATAO",50.67,9137)
+175855^3130926.144339^5^358^
+"TEMP","DATAO",50.67,9138)
+23371
+"TEMP","DATAO",50.67,9139)
+52278^3130927.050014^7^358^
+"TEMP","DATAO",50.67,9140)
+3130927
+"TEMP","DATAO",50.67,9141)
+191331^3130927.050029^4^358^
+"TEMP","DATAO",50.67,9142)
+ENGERIX-B PEDIATRIC (PF)
+"TEMP","DATAO",50.67,9143)
+96763^3130927.050032^4^358^
+"TEMP","DATAO",50.67,9144)
+HYDROMORPHONE
+"TEMP","DATAO",50.67,9145)
+96761^3130927.050034^4^358^
+"TEMP","DATAO",50.67,9146)
+HYDROMORPHONE
+"TEMP","DATAO",50.67,9147)
+96762^3130927.050035^4^358^
+"TEMP","DATAO",50.67,9148)
+HYDROMORPHONE
+"TEMP","DATAO",50.67,9149)
+190475^3130927.050038^8^358^
+"TEMP","DATAO",50.67,9150)
+4677
+"TEMP","DATAO",50.67,9151)
+191761^3130927.050052^7^358^
+"TEMP","DATAO",50.67,9152)
+3130927
+"TEMP","DATAO",50.67,9153)
+188553^3130927.05011^7^358^
+"TEMP","DATAO",50.67,9154)
+
+"TEMP","DATAO",50.67,9155)
+188430^3130927.050111^7^358^
+"TEMP","DATAO",50.67,9156)
+
+"TEMP","DATAO",50.67,9157)
+190632^3130927.05013^7^358^
+"TEMP","DATAO",50.67,9158)
+3130927
+"TEMP","DATAO",50.67,9159)
+164764^3130927.05013^7^358^
+"TEMP","DATAO",50.67,9160)
+3130927
+"TEMP","DATAO",50.67,9161)
+179804^3130927.050139^8^358^
+"TEMP","DATAO",50.67,9162)
+2673
+"TEMP","DATAO",50.67,9163)
+137503^3130927.050144^2^358^
+"TEMP","DATAO",50.67,9164)
+47469-00511
+"TEMP","DATAO",50.67,9165)
+137503^3130927.050144^7^358^
+"TEMP","DATAO",50.67,9166)
+3130927
+"TEMP","DATAO",50.67,9167)
+81069^3130927.050152^7^358^
+"TEMP","DATAO",50.67,9168)
+3130927
+"TEMP","DATAO",50.67,9169)
+190581^3130927.050154^7^358^
+"TEMP","DATAO",50.67,9170)
+3130927
+"TEMP","DATAO",50.67,9171)
+147258^3130927.050156^4^358^
+"TEMP","DATAO",50.67,9172)
+HYDROMORPHONE
+"TEMP","DATAO",50.67,9173)
+147218^3130927.050157^4^358^
+"TEMP","DATAO",50.67,9174)
+HYDROMORPHONE
+"TEMP","DATAO",50.67,9175)
+128874^3130927.050159^7^358^
+"TEMP","DATAO",50.67,9176)
+
+"TEMP","DATAO",50.67,9177)
+190569^3130927.050202^4^358^
+"TEMP","DATAO",50.67,9178)
+SILAPAP
+"TEMP","DATAO",50.67,9179)
+106579^3130927.050204^4^358^
+"TEMP","DATAO",50.67,9180)
+ENGERIX-B PEDIATRIC (PF)
+"TEMP","DATAO",50.67,9181)
+190570^3130927.050206^4^358^
+"TEMP","DATAO",50.67,9182)
+SILAPAP
+"TEMP","DATAO",50.67,9183)
+107752^3130927.050215^7^358^
+"TEMP","DATAO",50.67,9184)
+3130927
+"TEMP","DATAO",50.67,9185)
+151225^3130927.050226^4^358^
+"TEMP","DATAO",50.67,9186)
+ENGERIX-B PEDIATRIC (PF)
+"TEMP","DATAO",50.67,9187)
+102945^3130927.050227^4^358^
+"TEMP","DATAO",50.67,9188)
+ENGERIX-B PEDIATRIC (PF)
+"TEMP","DATAO",50.67,9189)
+112183^3130927.050232^7^358^
+"TEMP","DATAO",50.67,9190)
+3130927
+"TEMP","DATAO",50.67,9191)
+112182^3130927.050232^7^358^
+"TEMP","DATAO",50.67,9192)
+3130927
+"TEMP","DATAO",50.67,9193)
+112213^3130927.050232^7^358^
+"TEMP","DATAO",50.67,9194)
+3130927
+"TEMP","DATAO",50.67,9195)
+112212^3130927.050233^7^358^
+"TEMP","DATAO",50.67,9196)
+3130927
+"TEMP","DATAO",50.67,9197)
+112211^3130927.050233^7^358^
+"TEMP","DATAO",50.67,9198)
+3130927
+"TEMP","DATAO",50.67,9199)
+112184^3130927.050234^7^358^
+"TEMP","DATAO",50.67,9200)
+3130927
+"TEMP","DATAO",50.67,9201)
+151696^3130927.050251^7^358^
+"TEMP","DATAO",50.67,9202)
+3130927
+"TEMP","DATAO",50.67,9203)
+164765^3130927.050253^7^358^
+"TEMP","DATAO",50.67,9204)
+3130927
+"TEMP","DATAO",50.67,9205)
+164745^3130927.050256^7^358^
+"TEMP","DATAO",50.67,9206)
+3130927
+"TEMP","DATAO",50.67,9207)
+164766^3130927.050256^7^358^
+"TEMP","DATAO",50.67,9208)
+3130927
+"TEMP","DATAO",50.67,9209)
+195865^3130927.050257^7^358^
+"TEMP","DATAO",50.67,9210)
+3130927
+"TEMP","DATAO",50.67,9211)
+195866^3130927.050258^7^358^
+"TEMP","DATAO",50.67,9212)
+3130927
+"TEMP","DATAO",50.67,9213)
+103778^3130927.050258^7^358^
+"TEMP","DATAO",50.67,9214)
+3130927
+"TEMP","DATAO",50.67,9215)
+126676^3130927.050259^7^358^
+"TEMP","DATAO",50.67,9216)
+3130927
+"TEMP","DATAO",50.67,9217)
+151810^3130927.050259^7^358^
+"TEMP","DATAO",50.67,9218)
+3130927
+"TEMP","DATAO",50.67,9219)
+164733^3130927.0503^7^358^
+"TEMP","DATAO",50.67,9220)
+3130927
+"TEMP","DATAO",50.67,9221)
+164768^3130927.0503^7^358^
+"TEMP","DATAO",50.67,9222)
+3130927
+"TEMP","DATAO",50.67,9223)
+164767^3130927.050301^7^358^
+"TEMP","DATAO",50.67,9224)
+3130927
+"TEMP","DATAO",50.67,9225)
+166245^3130927.050302^7^358^
+"TEMP","DATAO",50.67,9226)
+3130927
+"TEMP","DATAO",50.67,9227)
+151679^3130927.050304^7^358^
+"TEMP","DATAO",50.67,9228)
+3130927
+"TEMP","DATAO",50.67,9229)
+164761^3130927.050304^7^358^
+"TEMP","DATAO",50.67,9230)
+3130927
+"TEMP","DATAO",50.67,9231)
+164758^3130927.050305^7^358^
+"TEMP","DATAO",50.67,9232)
+3130927
+"TEMP","DATAO",50.67,9233)
+115026^3130927.050309^7^358^
+"TEMP","DATAO",50.67,9234)
+
+"TEMP","DATAO",50.67,9235)
+121672^3130927.050314^7^358^
+"TEMP","DATAO",50.67,9236)
+
+"TEMP","DATAO",50.67,9237)
+195867^3130927.050317^7^358^
+"TEMP","DATAO",50.67,9238)
+3130927
+"TEMP","DATAO",50.67,9239)
+195868^3130927.050317^7^358^
+"TEMP","DATAO",50.67,9240)
+3130927
+"TEMP","DATAO",50.67,9241)
+106516^3130927.050318^7^358^
+"TEMP","DATAO",50.67,9242)
+3130927
+"TEMP","DATAO",50.67,9243)
+195870^3130927.05032^7^358^
+"TEMP","DATAO",50.67,9244)
+3130927
+"TEMP","DATAO",50.67,9245)
+190393^3130927.050324^2^358^
+"TEMP","DATAO",50.67,9246)
+87701-98159
+"TEMP","DATAO",50.67,9247)
+190393^3130927.050324^4^358^
+"TEMP","DATAO",50.67,9248)
+CHILDREN'S PAIN & FEVER RELIEF
+"TEMP","DATAO",50.67,9249)
+192961^3130927.050325^7^358^
+"TEMP","DATAO",50.67,9250)
+
+"TEMP","DATAO",50.67,9251)
+198328^3130927.050327^4^358^
+"TEMP","DATAO",50.67,9252)
+CEPACOL SORE THROAT (BENZ-MEN)
+"TEMP","DATAO",50.67,9253)
+198328^3130927.050327^7^358^
+"TEMP","DATAO",50.67,9254)
+3130927
+"TEMP","DATAO",50.67,9255)
+196128^3130927.050331^7^358^
+"TEMP","DATAO",50.67,9256)
+3130927
+"TEMP","DATAO",50.67,9257)
+202329^3130927.142851^1^358^
+"TEMP","DATAO",50.67,9258)
+090891511014
+"TEMP","DATAO",50.67,9259)
+202329^3130927.142851^3^358^
+"TEMP","DATAO",50.67,9260)
+3535
+"TEMP","DATAO",50.67,9261)
+202329^3130927.142851^4^358^
+"TEMP","DATAO",50.67,9262)
+PREVAIL BRIEF
+"TEMP","DATAO",50.67,9263)
+202329^3130927.142851^5^358^
+"TEMP","DATAO",50.67,9264)
+24201
+"TEMP","DATAO",50.67,9265)
+202329^3130927.142851^8^358^
+"TEMP","DATAO",50.67,9266)
+4592
+"TEMP","DATAO",50.67,9267)
+202329^3130927.142851^9^358^
+"TEMP","DATAO",50.67,9268)
+152
+"TEMP","DATAO",50.67,9269)
+202329^3130927.142851^10^358^
+"TEMP","DATAO",50.67,9270)
+O
+"TEMP","DATAO",50.67,9271)
+202330^3130927.142946^1^358^
+"TEMP","DATAO",50.67,9272)
+000496056402
+"TEMP","DATAO",50.67,9273)
+202330^3130927.142946^3^358^
+"TEMP","DATAO",50.67,9274)
+3817
+"TEMP","DATAO",50.67,9275)
+202330^3130927.142946^4^358^
+"TEMP","DATAO",50.67,9276)
+MICROCYN
+"TEMP","DATAO",50.67,9277)
+202330^3130927.142946^5^358^
+"TEMP","DATAO",50.67,9278)
+24202
+"TEMP","DATAO",50.67,9279)
+202330^3130927.142946^8^358^
+"TEMP","DATAO",50.67,9280)
+4592
+"TEMP","DATAO",50.67,9281)
+202330^3130927.142946^9^358^
+"TEMP","DATAO",50.67,9282)
+491
+"TEMP","DATAO",50.67,9283)
+202330^3130927.142946^10^358^
+"TEMP","DATAO",50.67,9284)
+O
+"TEMP","DATAO",50.67,9285)
+202331^3130927.152658^1^358^
+"TEMP","DATAO",50.67,9286)
+016781034996
+"TEMP","DATAO",50.67,9287)
+202331^3130927.152658^3^358^
+"TEMP","DATAO",50.67,9288)
+3667
+"TEMP","DATAO",50.67,9289)
+202331^3130927.152658^4^358^
+"TEMP","DATAO",50.67,9290)
+AURSTAT
+"TEMP","DATAO",50.67,9291)
+202331^3130927.152658^5^358^
+"TEMP","DATAO",50.67,9292)
+24203
+"TEMP","DATAO",50.67,9293)
+202331^3130927.152658^8^358^
+"TEMP","DATAO",50.67,9294)
+4887
+"TEMP","DATAO",50.67,9295)
+202331^3130927.152658^9^358^
+"TEMP","DATAO",50.67,9296)
+597
+"TEMP","DATAO",50.67,9297)
+202331^3130927.152658^10^358^
+"TEMP","DATAO",50.67,9298)
+R
+"TEMP","DATAO",50.67,9299)
+98653^3130930.070332^5^358^
+"TEMP","DATAO",50.67,9300)
+23167
+"TEMP","DATAO",50.67,9301)
+78111^3130930.070725^7^358^
+"TEMP","DATAO",50.67,9302)
+3130930
+"TEMP","DATAO",50.67,9303)
+78119^3130930.070726^7^358^
+"TEMP","DATAO",50.67,9304)
+3130930
+"TEMP","DATAO",50.67,9305)
+78118^3130930.070728^7^358^
+"TEMP","DATAO",50.67,9306)
+3130930
+"TEMP","DATAO",50.67,9307)
+78117^3130930.070729^7^358^
+"TEMP","DATAO",50.67,9308)
+3130930
+"TEMP","DATAO",50.67,9309)
+78114^3130930.07073^7^358^
+"TEMP","DATAO",50.67,9310)
+3130930
+"TEMP","DATAO",50.67,9311)
+78115^3130930.070731^7^358^
+"TEMP","DATAO",50.67,9312)
+3130930
+"TEMP","DATAO",50.67,9313)
+78116^3130930.070732^7^358^
+"TEMP","DATAO",50.67,9314)
+3130930
+"TEMP","DATAO",50.67,9315)
+78113^3130930.070734^7^358^
+"TEMP","DATAO",50.67,9316)
+3130930
+"TEMP","DATAO",50.67,9317)
+78112^3130930.070735^7^358^
+"TEMP","DATAO",50.67,9318)
+3130930
+"TEMP","DATAO",50.67,9319)
+180996^3130930.101236^5^358^
+"TEMP","DATAO",50.67,9320)
+9754
+"TEMP","DATAO",50.67,9321)
+78601^3130930.102426^5^358^
+"TEMP","DATAO",50.67,9322)
+7762
+"TEMP","DATAO",50.67,9323)
+78567^3130930.102428^5^358^
+"TEMP","DATAO",50.67,9324)
+7762
+"TEMP","DATAO",50.67,9325)
+105940^3130930.152637^5^358^
+"TEMP","DATAO",50.67,9326)
+23683
+"TEMP","DATAO",50.67,9327)
+202332^3131002.085738^1^358^
+"TEMP","DATAO",50.67,9328)
+060258018001
+"TEMP","DATAO",50.67,9329)
+202332^3131002.085738^3^358^
+"TEMP","DATAO",50.67,9330)
+3377
+"TEMP","DATAO",50.67,9331)
+202332^3131002.085738^4^358^
+"TEMP","DATAO",50.67,9332)
+HEMATINIC PLUS
+"TEMP","DATAO",50.67,9333)
+202332^3131002.085738^5^358^
+"TEMP","DATAO",50.67,9334)
+4813
+"TEMP","DATAO",50.67,9335)
+202332^3131002.085738^8^358^
+"TEMP","DATAO",50.67,9336)
+4593
+"TEMP","DATAO",50.67,9337)
+202332^3131002.085738^9^358^
+"TEMP","DATAO",50.67,9338)
+491
+"TEMP","DATAO",50.67,9339)
+202332^3131002.085738^10^358^
+"TEMP","DATAO",50.67,9340)
+R
+"TEMP","DATAO",50.67,9341)
+202333^3131003.063^1^358^
+"TEMP","DATAO",50.67,9342)
+000069017902
+"TEMP","DATAO",50.67,9343)
+202333^3131003.063^3^358^
+"TEMP","DATAO",50.67,9344)
+3843
+"TEMP","DATAO",50.67,9345)
+202333^3131003.063^4^358^
+"TEMP","DATAO",50.67,9346)
+DEXAMETHASONE SODIUM PHOSPHATE
+"TEMP","DATAO",50.67,9347)
+202333^3131003.063^5^358^
+"TEMP","DATAO",50.67,9348)
+2236
+"TEMP","DATAO",50.67,9349)
+202333^3131003.063^8^358^
+"TEMP","DATAO",50.67,9350)
+4592
+"TEMP","DATAO",50.67,9351)
+202333^3131003.063^9^358^
+"TEMP","DATAO",50.67,9352)
+613
+"TEMP","DATAO",50.67,9353)
+202333^3131003.063^10^358^
+"TEMP","DATAO",50.67,9354)
+R
+"TEMP","DATAO",50.67,9355)
+202334^3131003.063001^1^358^
+"TEMP","DATAO",50.67,9356)
+000069019201
+"TEMP","DATAO",50.67,9357)
+202334^3131003.063001^3^358^
+"TEMP","DATAO",50.67,9358)
+3843
+"TEMP","DATAO",50.67,9359)
+202334^3131003.063001^4^358^
+"TEMP","DATAO",50.67,9360)
+DEXAMETHASONE SODIUM PHOSPHATE
+"TEMP","DATAO",50.67,9361)
+202334^3131003.063001^5^358^
+"TEMP","DATAO",50.67,9362)
+2236
+"TEMP","DATAO",50.67,9363)
+202334^3131003.063001^8^358^
+"TEMP","DATAO",50.67,9364)
+4597
+"TEMP","DATAO",50.67,9365)
+202334^3131003.063001^9^358^
+"TEMP","DATAO",50.67,9366)
+613
+"TEMP","DATAO",50.67,9367)
+202334^3131003.063001^10^358^
+"TEMP","DATAO",50.67,9368)
+R
+"TEMP","DATAO",50.67,9369)
+202335^3131003.063002^1^358^
+"TEMP","DATAO",50.67,9370)
+000093739398
+"TEMP","DATAO",50.67,9371)
+202335^3131003.063002^3^358^
+"TEMP","DATAO",50.67,9372)
+3365
+"TEMP","DATAO",50.67,9373)
+202335^3131003.063002^4^358^
+"TEMP","DATAO",50.67,9374)
+NIACIN
+"TEMP","DATAO",50.67,9375)
+202335^3131003.063002^5^358^
+"TEMP","DATAO",50.67,9376)
+18377
+"TEMP","DATAO",50.67,9377)
+202335^3131003.063002^8^358^
+"TEMP","DATAO",50.67,9378)
+4588
+"TEMP","DATAO",50.67,9379)
+202335^3131003.063002^9^358^
+"TEMP","DATAO",50.67,9380)
+491
+"TEMP","DATAO",50.67,9381)
+202335^3131003.063002^10^358^
+"TEMP","DATAO",50.67,9382)
+R
+"TEMP","DATAO",50.67,9383)
+202336^3131003.063002^1^358^
+"TEMP","DATAO",50.67,9384)
+000093739486
+"TEMP","DATAO",50.67,9385)
+202336^3131003.063002^3^358^
+"TEMP","DATAO",50.67,9386)
+3365
+"TEMP","DATAO",50.67,9387)
+202336^3131003.063002^4^358^
+"TEMP","DATAO",50.67,9388)
+NIACIN
+"TEMP","DATAO",50.67,9389)
+202336^3131003.063002^5^358^
+"TEMP","DATAO",50.67,9390)
+18378
+"TEMP","DATAO",50.67,9391)
+202336^3131003.063002^8^358^
+"TEMP","DATAO",50.67,9392)
+4640
+"TEMP","DATAO",50.67,9393)
+202336^3131003.063002^9^358^
+"TEMP","DATAO",50.67,9394)
+491
+"TEMP","DATAO",50.67,9395)
+202336^3131003.063002^10^358^
+"TEMP","DATAO",50.67,9396)
+R
+"TEMP","DATAO",50.67,9397)
+202337^3131003.063002^1^358^
+"TEMP","DATAO",50.67,9398)
+000093739498
+"TEMP","DATAO",50.67,9399)
+202337^3131003.063002^3^358^
+"TEMP","DATAO",50.67,9400)
+3365
+"TEMP","DATAO",50.67,9401)
+202337^3131003.063002^4^358^
+"TEMP","DATAO",50.67,9402)
+NIACIN
+"TEMP","DATAO",50.67,9403)
+202337^3131003.063002^5^358^
+"TEMP","DATAO",50.67,9404)
+18378
+"TEMP","DATAO",50.67,9405)
+202337^3131003.063002^8^358^
+"TEMP","DATAO",50.67,9406)
+4588
+"TEMP","DATAO",50.67,9407)
+202337^3131003.063002^9^358^
+"TEMP","DATAO",50.67,9408)
+491
+"TEMP","DATAO",50.67,9409)
+202337^3131003.063002^10^358^
+"TEMP","DATAO",50.67,9410)
+R
+"TEMP","DATAO",50.67,9411)
+202338^3131003.063003^1^358^
+"TEMP","DATAO",50.67,9412)
+000069019202
+"TEMP","DATAO",50.67,9413)
+202338^3131003.063003^3^358^
+"TEMP","DATAO",50.67,9414)
+3843
+"TEMP","DATAO",50.67,9415)
+202338^3131003.063003^4^358^
+"TEMP","DATAO",50.67,9416)
+DEXAMETHASONE SODIUM PHOSPHATE
+"TEMP","DATAO",50.67,9417)
+202338^3131003.063003^5^358^
+"TEMP","DATAO",50.67,9418)
+2236
+"TEMP","DATAO",50.67,9419)
+202338^3131003.063003^8^358^
+"TEMP","DATAO",50.67,9420)
+4597
+"TEMP","DATAO",50.67,9421)
+202338^3131003.063003^9^358^
+"TEMP","DATAO",50.67,9422)
+613
+"TEMP","DATAO",50.67,9423)
+202338^3131003.063003^10^358^
+"TEMP","DATAO",50.67,9424)
+R
+"TEMP","DATAO",50.67,9425)
+202339^3131003.063003^1^358^
+"TEMP","DATAO",50.67,9426)
+000093739286
+"TEMP","DATAO",50.67,9427)
+202339^3131003.063003^3^358^
+"TEMP","DATAO",50.67,9428)
+3365
+"TEMP","DATAO",50.67,9429)
+202339^3131003.063003^4^358^
+"TEMP","DATAO",50.67,9430)
+NIACIN
+"TEMP","DATAO",50.67,9431)
+202339^3131003.063003^5^358^
+"TEMP","DATAO",50.67,9432)
+18376
+"TEMP","DATAO",50.67,9433)
+202339^3131003.063003^8^358^
+"TEMP","DATAO",50.67,9434)
+4640
+"TEMP","DATAO",50.67,9435)
+202339^3131003.063003^9^358^
+"TEMP","DATAO",50.67,9436)
+491
+"TEMP","DATAO",50.67,9437)
+202339^3131003.063003^10^358^
+"TEMP","DATAO",50.67,9438)
+R
+"TEMP","DATAO",50.67,9439)
+202340^3131003.063003^1^358^
+"TEMP","DATAO",50.67,9440)
+000093739298
+"TEMP","DATAO",50.67,9441)
+202340^3131003.063003^3^358^
+"TEMP","DATAO",50.67,9442)
+3365
+"TEMP","DATAO",50.67,9443)
+202340^3131003.063003^4^358^
+"TEMP","DATAO",50.67,9444)
+NIACIN
+"TEMP","DATAO",50.67,9445)
+202340^3131003.063003^5^358^
+"TEMP","DATAO",50.67,9446)
+18376
+"TEMP","DATAO",50.67,9447)
+202340^3131003.063003^8^358^
+"TEMP","DATAO",50.67,9448)
+4588
+"TEMP","DATAO",50.67,9449)
+202340^3131003.063003^9^358^
+"TEMP","DATAO",50.67,9450)
+491
+"TEMP","DATAO",50.67,9451)
+202340^3131003.063003^10^358^
+"TEMP","DATAO",50.67,9452)
+R
+"TEMP","DATAO",50.67,9453)
+202341^3131003.063004^1^358^
+"TEMP","DATAO",50.67,9454)
+000093739386
+"TEMP","DATAO",50.67,9455)
+202341^3131003.063004^3^358^
+"TEMP","DATAO",50.67,9456)
+3365
+"TEMP","DATAO",50.67,9457)
+202341^3131003.063004^4^358^
+"TEMP","DATAO",50.67,9458)
+NIACIN
+"TEMP","DATAO",50.67,9459)
+202341^3131003.063004^5^358^
+"TEMP","DATAO",50.67,9460)
+18377
+"TEMP","DATAO",50.67,9461)
+202341^3131003.063004^8^358^
+"TEMP","DATAO",50.67,9462)
+4640
+"TEMP","DATAO",50.67,9463)
+202341^3131003.063004^9^358^
+"TEMP","DATAO",50.67,9464)
+491
+"TEMP","DATAO",50.67,9465)
+202341^3131003.063004^10^358^
+"TEMP","DATAO",50.67,9466)
+R
+"TEMP","DATAO",50.67,9467)
+202342^3131003.063004^1^358^
+"TEMP","DATAO",50.67,9468)
+000115300013
+"TEMP","DATAO",50.67,9469)
+202342^3131003.063004^3^358^
+"TEMP","DATAO",50.67,9470)
+2527
+"TEMP","DATAO",50.67,9471)
+202342^3131003.063004^4^358^
+"TEMP","DATAO",50.67,9472)
+RILUZOLE
+"TEMP","DATAO",50.67,9473)
+202342^3131003.063004^5^358^
+"TEMP","DATAO",50.67,9474)
+12473
+"TEMP","DATAO",50.67,9475)
+202342^3131003.063004^8^358^
+"TEMP","DATAO",50.67,9476)
+4595
+"TEMP","DATAO",50.67,9477)
+202342^3131003.063004^9^358^
+"TEMP","DATAO",50.67,9478)
+491
+"TEMP","DATAO",50.67,9479)
+202342^3131003.063004^10^358^
+"TEMP","DATAO",50.67,9480)
+R
+"TEMP","DATAO",50.67,9481)
+202343^3131003.063005^1^358^
+"TEMP","DATAO",50.67,9482)
+000143993001
+"TEMP","DATAO",50.67,9483)
+202343^3131003.063005^3^358^
+"TEMP","DATAO",50.67,9484)
+3414
+"TEMP","DATAO",50.67,9485)
+202343^3131003.063005^4^358^
+"TEMP","DATAO",50.67,9486)
+CEFOTAXIME
+"TEMP","DATAO",50.67,9487)
+202343^3131003.063005^5^358^
+"TEMP","DATAO",50.67,9488)
+4355
+"TEMP","DATAO",50.67,9489)
+202343^3131003.063005^8^358^
+"TEMP","DATAO",50.67,9490)
+4592
+"TEMP","DATAO",50.67,9491)
+202343^3131003.063005^9^358^
+"TEMP","DATAO",50.67,9492)
+613
+"TEMP","DATAO",50.67,9493)
+202343^3131003.063005^10^358^
+"TEMP","DATAO",50.67,9494)
+R
+"TEMP","DATAO",50.67,9495)
+202344^3131003.063005^1^358^
+"TEMP","DATAO",50.67,9496)
+000143993010
+"TEMP","DATAO",50.67,9497)
+202344^3131003.063005^3^358^
+"TEMP","DATAO",50.67,9498)
+3414
+"TEMP","DATAO",50.67,9499)
+202344^3131003.063005^4^358^
+"TEMP","DATAO",50.67,9500)
+CEFOTAXIME
+"TEMP","DATAO",50.67,9501)
+202344^3131003.063005^5^358^
+"TEMP","DATAO",50.67,9502)
+4355
+"TEMP","DATAO",50.67,9503)
+202344^3131003.063005^8^358^
+"TEMP","DATAO",50.67,9504)
+4592
+"TEMP","DATAO",50.67,9505)
+202344^3131003.063005^9^358^
+"TEMP","DATAO",50.67,9506)
+613
+"TEMP","DATAO",50.67,9507)
+202344^3131003.063005^10^358^
+"TEMP","DATAO",50.67,9508)
+R
+"TEMP","DATAO",50.67,9509)
+202345^3131003.063005^1^358^
+"TEMP","DATAO",50.67,9510)
+000143993301
+"TEMP","DATAO",50.67,9511)
+202345^3131003.063005^3^358^
+"TEMP","DATAO",50.67,9512)
+3414
+"TEMP","DATAO",50.67,9513)
+202345^3131003.063005^4^358^
+"TEMP","DATAO",50.67,9514)
+CEFOTAXIME
+"TEMP","DATAO",50.67,9515)
+202345^3131003.063005^5^358^
+"TEMP","DATAO",50.67,9516)
+4353
+"TEMP","DATAO",50.67,9517)
+202345^3131003.063005^8^358^
+"TEMP","DATAO",50.67,9518)
+4592
+"TEMP","DATAO",50.67,9519)
+202345^3131003.063005^9^358^
+"TEMP","DATAO",50.67,9520)
+613
+"TEMP","DATAO",50.67,9521)
+202345^3131003.063005^10^358^
+"TEMP","DATAO",50.67,9522)
+R
+"TEMP","DATAO",50.67,9523)
+202346^3131003.063006^1^358^
+"TEMP","DATAO",50.67,9524)
+000069017801
+"TEMP","DATAO",50.67,9525)
+202346^3131003.063006^3^358^
+"TEMP","DATAO",50.67,9526)
+3843
+"TEMP","DATAO",50.67,9527)
+202346^3131003.063006^4^358^
+"TEMP","DATAO",50.67,9528)
+DEXAMETHASONE SODIUM PHOSPHATE
+"TEMP","DATAO",50.67,9529)
+202346^3131003.063006^5^358^
+"TEMP","DATAO",50.67,9530)
+2236
+"TEMP","DATAO",50.67,9531)
+202346^3131003.063006^8^358^
+"TEMP","DATAO",50.67,9532)
+4617
+"TEMP","DATAO",50.67,9533)
+202346^3131003.063006^9^358^
+"TEMP","DATAO",50.67,9534)
+613
+"TEMP","DATAO",50.67,9535)
+202346^3131003.063006^10^358^
+"TEMP","DATAO",50.67,9536)
+R
+"TEMP","DATAO",50.67,9537)
+202347^3131003.063006^1^358^
+"TEMP","DATAO",50.67,9538)
+000069017802
+"TEMP","DATAO",50.67,9539)
+202347^3131003.063006^3^358^
+"TEMP","DATAO",50.67,9540)
+3843
+"TEMP","DATAO",50.67,9541)
+202347^3131003.063006^4^358^
+"TEMP","DATAO",50.67,9542)
+DEXAMETHASONE SODIUM PHOSPHATE
+"TEMP","DATAO",50.67,9543)
+202347^3131003.063006^5^358^
+"TEMP","DATAO",50.67,9544)
+2236
+"TEMP","DATAO",50.67,9545)
+202347^3131003.063006^8^358^
+"TEMP","DATAO",50.67,9546)
+4617
+"TEMP","DATAO",50.67,9547)
+202347^3131003.063006^9^358^
+"TEMP","DATAO",50.67,9548)
+613
+"TEMP","DATAO",50.67,9549)
+202347^3131003.063006^10^358^
+"TEMP","DATAO",50.67,9550)
+R
+"TEMP","DATAO",50.67,9551)
+202348^3131003.063006^1^358^
+"TEMP","DATAO",50.67,9552)
+000069017901
+"TEMP","DATAO",50.67,9553)
+202348^3131003.063006^3^358^
+"TEMP","DATAO",50.67,9554)
+3843
+"TEMP","DATAO",50.67,9555)
+202348^3131003.063006^4^358^
+"TEMP","DATAO",50.67,9556)
+DEXAMETHASONE SODIUM PHOSPHATE
+"TEMP","DATAO",50.67,9557)
+202348^3131003.063006^5^358^
+"TEMP","DATAO",50.67,9558)
+2236
+"TEMP","DATAO",50.67,9559)
+202348^3131003.063006^8^358^
+"TEMP","DATAO",50.67,9560)
+4592
+"TEMP","DATAO",50.67,9561)
+202348^3131003.063006^9^358^
+"TEMP","DATAO",50.67,9562)
+613
+"TEMP","DATAO",50.67,9563)
+202348^3131003.063006^10^358^
+"TEMP","DATAO",50.67,9564)
+R
+"TEMP","DATAO",50.67,9565)
+202349^3131003.063007^1^358^
+"TEMP","DATAO",50.67,9566)
+000143993325
+"TEMP","DATAO",50.67,9567)
+202349^3131003.063007^3^358^
+"TEMP","DATAO",50.67,9568)
+3414
+"TEMP","DATAO",50.67,9569)
+202349^3131003.063007^4^358^
+"TEMP","DATAO",50.67,9570)
+CEFOTAXIME
+"TEMP","DATAO",50.67,9571)
+202349^3131003.063007^5^358^
+"TEMP","DATAO",50.67,9572)
+4353
+"TEMP","DATAO",50.67,9573)
+202349^3131003.063007^8^358^
+"TEMP","DATAO",50.67,9574)
+4592
+"TEMP","DATAO",50.67,9575)
+202349^3131003.063007^9^358^
+"TEMP","DATAO",50.67,9576)
+613
+"TEMP","DATAO",50.67,9577)
+202349^3131003.063007^10^358^
+"TEMP","DATAO",50.67,9578)
+R
+"TEMP","DATAO",50.67,9579)
+202350^3131003.063007^1^358^
+"TEMP","DATAO",50.67,9580)
+000187019201
+"TEMP","DATAO",50.67,9581)
+202350^3131003.063007^3^358^
+"TEMP","DATAO",50.67,9582)
+116
+"TEMP","DATAO",50.67,9583)
+202350^3131003.063007^4^358^
+"TEMP","DATAO",50.67,9584)
+ISORDIL
+"TEMP","DATAO",50.67,9585)
+202350^3131003.063007^5^358^
+"TEMP","DATAO",50.67,9586)
+1732
+"TEMP","DATAO",50.67,9587)
+202350^3131003.063007^8^358^
+"TEMP","DATAO",50.67,9588)
+4593
+"TEMP","DATAO",50.67,9589)
+202350^3131003.063007^9^358^
+"TEMP","DATAO",50.67,9590)
+491
+"TEMP","DATAO",50.67,9591)
+202350^3131003.063007^10^358^
+"TEMP","DATAO",50.67,9592)
+R
+"TEMP","DATAO",50.67,9593)
+202351^3131003.063007^1^358^
+"TEMP","DATAO",50.67,9594)
+000228350111
+"TEMP","DATAO",50.67,9595)
+202351^3131003.063007^3^358^
+"TEMP","DATAO",50.67,9596)
+4383
+"TEMP","DATAO",50.67,9597)
+202351^3131003.063007^4^358^
+"TEMP","DATAO",50.67,9598)
+MORPHINE
+"TEMP","DATAO",50.67,9599)
+202351^3131003.063007^5^358^
+"TEMP","DATAO",50.67,9600)
+23301
+"TEMP","DATAO",50.67,9601)
+202351^3131003.063007^8^358^
+"TEMP","DATAO",50.67,9602)
+4593
+"TEMP","DATAO",50.67,9603)
+202351^3131003.063007^9^358^
+"TEMP","DATAO",50.67,9604)
+491
+"TEMP","DATAO",50.67,9605)
+202351^3131003.063007^10^358^
+"TEMP","DATAO",50.67,9606)
+R
+"TEMP","DATAO",50.67,9607)
+202352^3131003.063008^1^358^
+"TEMP","DATAO",50.67,9608)
+000378395077
+"TEMP","DATAO",50.67,9609)
+202352^3131003.063008^3^358^
+"TEMP","DATAO",50.67,9610)
+3337
+"TEMP","DATAO",50.67,9611)
+202352^3131003.063008^4^358^
+"TEMP","DATAO",50.67,9612)
+ATORVASTATIN
+"TEMP","DATAO",50.67,9613)
+202352^3131003.063008^5^358^
+"TEMP","DATAO",50.67,9614)
+12595
+"TEMP","DATAO",50.67,9615)
+202352^3131003.063008^8^358^
+"TEMP","DATAO",50.67,9616)
+4588
+"TEMP","DATAO",50.67,9617)
+202352^3131003.063008^9^358^
+"TEMP","DATAO",50.67,9618)
+491
+"TEMP","DATAO",50.67,9619)
+202352^3131003.063008^10^358^
+"TEMP","DATAO",50.67,9620)
+R
+"TEMP","DATAO",50.67,9621)
+202353^3131003.063008^1^358^
+"TEMP","DATAO",50.67,9622)
+000378395177
+"TEMP","DATAO",50.67,9623)
+202353^3131003.063008^3^358^
+"TEMP","DATAO",50.67,9624)
+3337
+"TEMP","DATAO",50.67,9625)
+202353^3131003.063008^4^358^
+"TEMP","DATAO",50.67,9626)
+ATORVASTATIN
+"TEMP","DATAO",50.67,9627)
+202353^3131003.063008^5^358^
+"TEMP","DATAO",50.67,9628)
+12596
+"TEMP","DATAO",50.67,9629)
+202353^3131003.063008^8^358^
+"TEMP","DATAO",50.67,9630)
+4588
+"TEMP","DATAO",50.67,9631)
+202353^3131003.063008^9^358^
+"TEMP","DATAO",50.67,9632)
+491
+"TEMP","DATAO",50.67,9633)
+202353^3131003.063008^10^358^
+"TEMP","DATAO",50.67,9634)
+R
+"TEMP","DATAO",50.67,9635)
+202354^3131003.063008^1^358^
+"TEMP","DATAO",50.67,9636)
+000378479106
+"TEMP","DATAO",50.67,9637)
+202354^3131003.063008^3^358^
+"TEMP","DATAO",50.67,9638)
+3337
+"TEMP","DATAO",50.67,9639)
+202354^3131003.063008^4^358^
+"TEMP","DATAO",50.67,9640)
+FLUOROURACIL
+"TEMP","DATAO",50.67,9641)
+202354^3131003.063008^5^358^
+"TEMP","DATAO",50.67,9642)
+1668
+"TEMP","DATAO",50.67,9643)
+202354^3131003.063008^8^358^
+"TEMP","DATAO",50.67,9644)
+4604
+"TEMP","DATAO",50.67,9645)
+202354^3131003.063008^9^358^
+"TEMP","DATAO",50.67,9646)
+597
+"TEMP","DATAO",50.67,9647)
+202354^3131003.063008^10^358^
+"TEMP","DATAO",50.67,9648)
+R
+"TEMP","DATAO",50.67,9649)
+202355^3131003.063009^1^358^
+"TEMP","DATAO",50.67,9650)
+000378627045
+"TEMP","DATAO",50.67,9651)
+202355^3131003.063009^3^358^
+"TEMP","DATAO",50.67,9652)
+3337
+"TEMP","DATAO",50.67,9653)
+202355^3131003.063009^4^358^
+"TEMP","DATAO",50.67,9654)
+VORICONAZOLE
+"TEMP","DATAO",50.67,9655)
+202355^3131003.063009^5^358^
+"TEMP","DATAO",50.67,9656)
+17822
+"TEMP","DATAO",50.67,9657)
+202355^3131003.063009^8^358^
+"TEMP","DATAO",50.67,9658)
+4652
+"TEMP","DATAO",50.67,9659)
+202355^3131003.063009^9^358^
+"TEMP","DATAO",50.67,9660)
+491
+"TEMP","DATAO",50.67,9661)
+202355^3131003.063009^10^358^
+"TEMP","DATAO",50.67,9662)
+R
+"TEMP","DATAO",50.67,9663)
+202356^3131003.063009^1^358^
+"TEMP","DATAO",50.67,9664)
+000591264101
+"TEMP","DATAO",50.67,9665)
+202356^3131003.063009^3^358^
+"TEMP","DATAO",50.67,9666)
+4383
+"TEMP","DATAO",50.67,9667)
+202356^3131003.063009^4^358^
+"TEMP","DATAO",50.67,9668)
+BUTALBITAL-ACETAMINOP-CAF-COD
+"TEMP","DATAO",50.67,9669)
+202356^3131003.063009^5^358^
+"TEMP","DATAO",50.67,9670)
+24068
+"TEMP","DATAO",50.67,9671)
+202356^3131003.063009^8^358^
+"TEMP","DATAO",50.67,9672)
+4593
+"TEMP","DATAO",50.67,9673)
+202356^3131003.063009^9^358^
+"TEMP","DATAO",50.67,9674)
+491
+"TEMP","DATAO",50.67,9675)
+202356^3131003.063009^10^358^
+"TEMP","DATAO",50.67,9676)
+R
+"TEMP","DATAO",50.67,9677)
+202357^3131003.06301^1^358^
+"TEMP","DATAO",50.67,9678)
+000781325394
+"TEMP","DATAO",50.67,9679)
+202357^3131003.06301^3^358^
+"TEMP","DATAO",50.67,9680)
+305
+"TEMP","DATAO",50.67,9681)
+202357^3131003.06301^4^358^
+"TEMP","DATAO",50.67,9682)
+AZACITIDINE
+"TEMP","DATAO",50.67,9683)
+202357^3131003.06301^5^358^
+"TEMP","DATAO",50.67,9684)
+16742
+"TEMP","DATAO",50.67,9685)
+202357^3131003.06301^8^358^
+"TEMP","DATAO",50.67,9686)
+4592
+"TEMP","DATAO",50.67,9687)
+202357^3131003.06301^9^358^
+"TEMP","DATAO",50.67,9688)
+613
+"TEMP","DATAO",50.67,9689)
+202357^3131003.06301^10^358^
+"TEMP","DATAO",50.67,9690)
+R
+"TEMP","DATAO",50.67,9691)
+202358^3131003.06301^1^358^
+"TEMP","DATAO",50.67,9692)
+000781931495
+"TEMP","DATAO",50.67,9693)
+202358^3131003.06301^3^358^
+"TEMP","DATAO",50.67,9694)
+3657
+"TEMP","DATAO",50.67,9695)
+202358^3131003.06301^4^358^
+"TEMP","DATAO",50.67,9696)
+ARGATROBAN IN NACL (ISO-OS)
+"TEMP","DATAO",50.67,9697)
+202358^3131003.06301^5^358^
+"TEMP","DATAO",50.67,9698)
+23743
+"TEMP","DATAO",50.67,9699)
+202358^3131003.06301^8^358^
+"TEMP","DATAO",50.67,9700)
+4616
+"TEMP","DATAO",50.67,9701)
+202358^3131003.06301^9^358^
+"TEMP","DATAO",50.67,9702)
+613
+"TEMP","DATAO",50.67,9703)
+202358^3131003.06301^10^358^
+"TEMP","DATAO",50.67,9704)
+R
+"TEMP","DATAO",50.67,9705)
+202359^3131003.063012^1^358^
+"TEMP","DATAO",50.67,9706)
+010337016330
+"TEMP","DATAO",50.67,9707)
+202359^3131003.063012^3^358^
+"TEMP","DATAO",50.67,9708)
+305
+"TEMP","DATAO",50.67,9709)
+202359^3131003.063012^4^358^
+"TEMP","DATAO",50.67,9710)
+TEMOVATE
+"TEMP","DATAO",50.67,9711)
+202359^3131003.063012^5^358^
+"TEMP","DATAO",50.67,9712)
+6534
+"TEMP","DATAO",50.67,9713)
+202359^3131003.063012^8^358^
+"TEMP","DATAO",50.67,9714)
+4597
+"TEMP","DATAO",50.67,9715)
+202359^3131003.063012^9^358^
+"TEMP","DATAO",50.67,9716)
+597
+"TEMP","DATAO",50.67,9717)
+202359^3131003.063012^10^358^
+"TEMP","DATAO",50.67,9718)
+R
+"TEMP","DATAO",50.67,9719)
+202360^3131003.063013^1^358^
+"TEMP","DATAO",50.67,9720)
+016110003512
+"TEMP","DATAO",50.67,9721)
+202360^3131003.063013^3^358^
+"TEMP","DATAO",50.67,9722)
+3971
+"TEMP","DATAO",50.67,9723)
+202360^3131003.063013^4^358^
+"TEMP","DATAO",50.67,9724)
+CORDRAN
+"TEMP","DATAO",50.67,9725)
+202360^3131003.063013^5^358^
+"TEMP","DATAO",50.67,9726)
+7056
+"TEMP","DATAO",50.67,9727)
+202360^3131003.063013^8^358^
+"TEMP","DATAO",50.67,9728)
+4594
+"TEMP","DATAO",50.67,9729)
+202360^3131003.063013^9^358^
+"TEMP","DATAO",50.67,9730)
+597
+"TEMP","DATAO",50.67,9731)
+202360^3131003.063013^10^358^
+"TEMP","DATAO",50.67,9732)
+R
+"TEMP","DATAO",50.67,9733)
+202361^3131003.063013^1^358^
+"TEMP","DATAO",50.67,9734)
+016729007917
+"TEMP","DATAO",50.67,9735)
+202361^3131003.063013^3^358^
+"TEMP","DATAO",50.67,9736)
+3715
+"TEMP","DATAO",50.67,9737)
+202361^3131003.063013^4^358^
+"TEMP","DATAO",50.67,9738)
+CARBIDOPA-LEVODOPA
+"TEMP","DATAO",50.67,9739)
+202361^3131003.063013^5^358^
+"TEMP","DATAO",50.67,9740)
+2371
+"TEMP","DATAO",50.67,9741)
+202361^3131003.063013^8^358^
+"TEMP","DATAO",50.67,9742)
+4609
+"TEMP","DATAO",50.67,9743)
+202361^3131003.063013^9^358^
+"TEMP","DATAO",50.67,9744)
+491
+"TEMP","DATAO",50.67,9745)
+202361^3131003.063013^10^358^
+"TEMP","DATAO",50.67,9746)
+R
+"TEMP","DATAO",50.67,9747)
+202362^3131003.063018^1^358^
+"TEMP","DATAO",50.67,9748)
+039423000050
+"TEMP","DATAO",50.67,9749)
+202362^3131003.063018^2^358^
+"TEMP","DATAO",50.67,9750)
+39423-00050
+"TEMP","DATAO",50.67,9751)
+202362^3131003.063018^3^358^
+"TEMP","DATAO",50.67,9752)
+4176
+"TEMP","DATAO",50.67,9753)
+202362^3131003.063018^4^358^
+"TEMP","DATAO",50.67,9754)
+FLORAJEN3
+"TEMP","DATAO",50.67,9755)
+202362^3131003.063018^5^358^
+"TEMP","DATAO",50.67,9756)
+21441
+"TEMP","DATAO",50.67,9757)
+202362^3131003.063018^8^358^
+"TEMP","DATAO",50.67,9758)
+4616
+"TEMP","DATAO",50.67,9759)
+202362^3131003.063018^9^358^
+"TEMP","DATAO",50.67,9760)
+492
+"TEMP","DATAO",50.67,9761)
+202362^3131003.063018^10^358^
+"TEMP","DATAO",50.67,9762)
+O
+"TEMP","DATAO",50.67,9763)
+202363^3131003.063018^1^358^
+"TEMP","DATAO",50.67,9764)
+039423000300
+"TEMP","DATAO",50.67,9765)
+202363^3131003.063018^2^358^
+"TEMP","DATAO",50.67,9766)
+39423-00300
+"TEMP","DATAO",50.67,9767)
+202363^3131003.063018^3^358^
+"TEMP","DATAO",50.67,9768)
+4176
+"TEMP","DATAO",50.67,9769)
+202363^3131003.063018^4^358^
+"TEMP","DATAO",50.67,9770)
+FLORAJEN3
+"TEMP","DATAO",50.67,9771)
+202363^3131003.063018^5^358^
+"TEMP","DATAO",50.67,9772)
+21441
+"TEMP","DATAO",50.67,9773)
+202363^3131003.063018^8^358^
+"TEMP","DATAO",50.67,9774)
+4636
+"TEMP","DATAO",50.67,9775)
+202363^3131003.063018^9^358^
+"TEMP","DATAO",50.67,9776)
+491
+"TEMP","DATAO",50.67,9777)
+202363^3131003.063018^10^358^
+"TEMP","DATAO",50.67,9778)
+O
+"TEMP","DATAO",50.67,9779)
+202364^3131003.063018^1^358^
+"TEMP","DATAO",50.67,9780)
+043598030562
+"TEMP","DATAO",50.67,9781)
+202364^3131003.063018^3^358^
+"TEMP","DATAO",50.67,9782)
+2860
+"TEMP","DATAO",50.67,9783)
+202364^3131003.063018^4^358^
+"TEMP","DATAO",50.67,9784)
+AZACITIDINE
+"TEMP","DATAO",50.67,9785)
+202364^3131003.063018^5^358^
+"TEMP","DATAO",50.67,9786)
+16742
+"TEMP","DATAO",50.67,9787)
+202364^3131003.063018^8^358^
+"TEMP","DATAO",50.67,9788)
+4592
+"TEMP","DATAO",50.67,9789)
+202364^3131003.063018^9^358^
+"TEMP","DATAO",50.67,9790)
+613
+"TEMP","DATAO",50.67,9791)
+202364^3131003.063018^10^358^
+"TEMP","DATAO",50.67,9792)
+R
+"TEMP","DATAO",50.67,9793)
+202365^3131003.063022^1^358^
+"TEMP","DATAO",50.67,9794)
+044523052002
+"TEMP","DATAO",50.67,9795)
+202365^3131003.063022^3^358^
+"TEMP","DATAO",50.67,9796)
+3519
+"TEMP","DATAO",50.67,9797)
+202365^3131003.063022^4^358^
+"TEMP","DATAO",50.67,9798)
+SULFACETAMIDE SODIUM-SULFUR
+"TEMP","DATAO",50.67,9799)
+202365^3131003.063022^5^358^
+"TEMP","DATAO",50.67,9800)
+24051
+"TEMP","DATAO",50.67,9801)
+202365^3131003.063022^8^358^
+"TEMP","DATAO",50.67,9802)
+4632
+"TEMP","DATAO",50.67,9803)
+202365^3131003.063022^9^358^
+"TEMP","DATAO",50.67,9804)
+597
+"TEMP","DATAO",50.67,9805)
+202365^3131003.063022^10^358^
+"TEMP","DATAO",50.67,9806)
+R
+"TEMP","DATAO",50.67,9807)
+202366^3131003.063023^1^358^
+"TEMP","DATAO",50.67,9808)
+044523054202
+"TEMP","DATAO",50.67,9809)
+202366^3131003.063023^3^358^
+"TEMP","DATAO",50.67,9810)
+3519
+"TEMP","DATAO",50.67,9811)
+202366^3131003.063023^4^358^
+"TEMP","DATAO",50.67,9812)
+SULFACETAMIDE SODIUM-SULFUR
+"TEMP","DATAO",50.67,9813)
+202366^3131003.063023^5^358^
+"TEMP","DATAO",50.67,9814)
+24051
+"TEMP","DATAO",50.67,9815)
+202366^3131003.063023^8^358^
+"TEMP","DATAO",50.67,9816)
+4632
+"TEMP","DATAO",50.67,9817)
+202366^3131003.063023^9^358^
+"TEMP","DATAO",50.67,9818)
+597
+"TEMP","DATAO",50.67,9819)
+202366^3131003.063023^10^358^
+"TEMP","DATAO",50.67,9820)
+R
+"TEMP","DATAO",50.67,9821)
+202367^3131003.063024^1^358^
+"TEMP","DATAO",50.67,9822)
+049884023209
+"TEMP","DATAO",50.67,9823)
+202367^3131003.063024^3^358^
+"TEMP","DATAO",50.67,9824)
+3349
+"TEMP","DATAO",50.67,9825)
+202367^3131003.063024^4^358^
+"TEMP","DATAO",50.67,9826)
+DONEPEZIL
+"TEMP","DATAO",50.67,9827)
+202367^3131003.063024^5^358^
+"TEMP","DATAO",50.67,9828)
+21884
+"TEMP","DATAO",50.67,9829)
+202367^3131003.063024^8^358^
+"TEMP","DATAO",50.67,9830)
+4588
+"TEMP","DATAO",50.67,9831)
+202367^3131003.063024^9^358^
+"TEMP","DATAO",50.67,9832)
+491
+"TEMP","DATAO",50.67,9833)
+202367^3131003.063024^10^358^
+"TEMP","DATAO",50.67,9834)
+R
+"TEMP","DATAO",50.67,9835)
+202368^3131003.063024^1^358^
+"TEMP","DATAO",50.67,9836)
+049884023211
+"TEMP","DATAO",50.67,9837)
+202368^3131003.063024^3^358^
+"TEMP","DATAO",50.67,9838)
+3349
+"TEMP","DATAO",50.67,9839)
+202368^3131003.063024^4^358^
+"TEMP","DATAO",50.67,9840)
+DONEPEZIL
+"TEMP","DATAO",50.67,9841)
+202368^3131003.063024^5^358^
+"TEMP","DATAO",50.67,9842)
+21884
+"TEMP","DATAO",50.67,9843)
+202368^3131003.063024^8^358^
+"TEMP","DATAO",50.67,9844)
+4597
+"TEMP","DATAO",50.67,9845)
+202368^3131003.063024^9^358^
+"TEMP","DATAO",50.67,9846)
+491
+"TEMP","DATAO",50.67,9847)
+202368^3131003.063024^10^358^
+"TEMP","DATAO",50.67,9848)
+R
+"TEMP","DATAO",50.67,9849)
+202369^3131003.063025^1^358^
+"TEMP","DATAO",50.67,9850)
+049884053509
+"TEMP","DATAO",50.67,9851)
+202369^3131003.063025^3^358^
+"TEMP","DATAO",50.67,9852)
+3349
+"TEMP","DATAO",50.67,9853)
+202369^3131003.063025^4^358^
+"TEMP","DATAO",50.67,9854)
+MODAFINIL
+"TEMP","DATAO",50.67,9855)
+202369^3131003.063025^5^358^
+"TEMP","DATAO",50.67,9856)
+13202
+"TEMP","DATAO",50.67,9857)
+202369^3131003.063025^8^358^
+"TEMP","DATAO",50.67,9858)
+4588
+"TEMP","DATAO",50.67,9859)
+202369^3131003.063025^9^358^
+"TEMP","DATAO",50.67,9860)
+491
+"TEMP","DATAO",50.67,9861)
+202369^3131003.063025^10^358^
+"TEMP","DATAO",50.67,9862)
+R
+"TEMP","DATAO",50.67,9863)
+202370^3131003.063025^1^358^
+"TEMP","DATAO",50.67,9864)
+049884074501
+"TEMP","DATAO",50.67,9865)
+202370^3131003.063025^3^358^
+"TEMP","DATAO",50.67,9866)
+3349
+"TEMP","DATAO",50.67,9867)
+202370^3131003.063025^4^358^
+"TEMP","DATAO",50.67,9868)
+GLIPIZIDE
+"TEMP","DATAO",50.67,9869)
+202370^3131003.063025^5^358^
+"TEMP","DATAO",50.67,9870)
+4520
+"TEMP","DATAO",50.67,9871)
+202370^3131003.063025^8^358^
+"TEMP","DATAO",50.67,9872)
+4593
+"TEMP","DATAO",50.67,9873)
+202370^3131003.063025^9^358^
+"TEMP","DATAO",50.67,9874)
+491
+"TEMP","DATAO",50.67,9875)
+202370^3131003.063025^10^358^
+"TEMP","DATAO",50.67,9876)
+R
+"TEMP","DATAO",50.67,9877)
+202371^3131003.063025^1^358^
+"TEMP","DATAO",50.67,9878)
+049884074505
+"TEMP","DATAO",50.67,9879)
+202371^3131003.063025^3^358^
+"TEMP","DATAO",50.67,9880)
+3349
+"TEMP","DATAO",50.67,9881)
+202371^3131003.063025^4^358^
+"TEMP","DATAO",50.67,9882)
+GLIPIZIDE
+"TEMP","DATAO",50.67,9883)
+202371^3131003.063025^5^358^
+"TEMP","DATAO",50.67,9884)
+4520
+"TEMP","DATAO",50.67,9885)
+202371^3131003.063025^8^358^
+"TEMP","DATAO",50.67,9886)
+4596
+"TEMP","DATAO",50.67,9887)
+202371^3131003.063025^9^358^
+"TEMP","DATAO",50.67,9888)
+491
+"TEMP","DATAO",50.67,9889)
+202371^3131003.063025^10^358^
+"TEMP","DATAO",50.67,9890)
+R
+"TEMP","DATAO",50.67,9891)
+202372^3131003.063026^1^358^
+"TEMP","DATAO",50.67,9892)
+049884074601
+"TEMP","DATAO",50.67,9893)
+202372^3131003.063026^3^358^
+"TEMP","DATAO",50.67,9894)
+3349
+"TEMP","DATAO",50.67,9895)
+202372^3131003.063026^4^358^
+"TEMP","DATAO",50.67,9896)
+GLIPIZIDE
+"TEMP","DATAO",50.67,9897)
+202372^3131003.063026^5^358^
+"TEMP","DATAO",50.67,9898)
+4521
+"TEMP","DATAO",50.67,9899)
+202372^3131003.063026^8^358^
+"TEMP","DATAO",50.67,9900)
+4593
+"TEMP","DATAO",50.67,9901)
+202372^3131003.063026^9^358^
+"TEMP","DATAO",50.67,9902)
+491
+"TEMP","DATAO",50.67,9903)
+202372^3131003.063026^10^358^
+"TEMP","DATAO",50.67,9904)
+R
+"TEMP","DATAO",50.67,9905)
+202373^3131003.063026^1^358^
+"TEMP","DATAO",50.67,9906)
+049884074605
+"TEMP","DATAO",50.67,9907)
+202373^3131003.063026^3^358^
+"TEMP","DATAO",50.67,9908)
+3349
+"TEMP","DATAO",50.67,9909)
+202373^3131003.063026^4^358^
+"TEMP","DATAO",50.67,9910)
+GLIPIZIDE
+"TEMP","DATAO",50.67,9911)
+202373^3131003.063026^5^358^
+"TEMP","DATAO",50.67,9912)
+4521
+"TEMP","DATAO",50.67,9913)
+202373^3131003.063026^8^358^
+"TEMP","DATAO",50.67,9914)
+4596
+"TEMP","DATAO",50.67,9915)
+202373^3131003.063026^9^358^
+"TEMP","DATAO",50.67,9916)
+491
+"TEMP","DATAO",50.67,9917)
+202373^3131003.063026^10^358^
+"TEMP","DATAO",50.67,9918)
+R
+"TEMP","DATAO",50.67,9919)
+202374^3131003.063027^1^358^
+"TEMP","DATAO",50.67,9920)
+052544014328
+"TEMP","DATAO",50.67,9921)
+202374^3131003.063027^3^358^
+"TEMP","DATAO",50.67,9922)
+4383
+"TEMP","DATAO",50.67,9923)
+202374^3131003.063027^4^358^
+"TEMP","DATAO",50.67,9924)
+TILIA FE
+"TEMP","DATAO",50.67,9925)
+202374^3131003.063027^5^358^
+"TEMP","DATAO",50.67,9926)
+5249
+"TEMP","DATAO",50.67,9927)
+202374^3131003.063027^8^358^
+"TEMP","DATAO",50.67,9928)
+4591
+"TEMP","DATAO",50.67,9929)
+202374^3131003.063027^9^358^
+"TEMP","DATAO",50.67,9930)
+974
+"TEMP","DATAO",50.67,9931)
+202374^3131003.063027^10^358^
+"TEMP","DATAO",50.67,9932)
+R
+"TEMP","DATAO",50.67,9933)
+202375^3131003.063027^1^358^
+"TEMP","DATAO",50.67,9934)
+052569013738
+"TEMP","DATAO",50.67,9935)
+202375^3131003.063027^2^358^
+"TEMP","DATAO",50.67,9936)
+52569-13738
+"TEMP","DATAO",50.67,9937)
+202375^3131003.063027^3^358^
+"TEMP","DATAO",50.67,9938)
+2657
+"TEMP","DATAO",50.67,9939)
+202375^3131003.063027^4^358^
+"TEMP","DATAO",50.67,9940)
+ALL DAY ALLERGY (CETIRIZINE)
+"TEMP","DATAO",50.67,9941)
+202375^3131003.063027^5^358^
+"TEMP","DATAO",50.67,9942)
+12479
+"TEMP","DATAO",50.67,9943)
+202375^3131003.063027^8^358^
+"TEMP","DATAO",50.67,9944)
+4597
+"TEMP","DATAO",50.67,9945)
+202375^3131003.063027^9^358^
+"TEMP","DATAO",50.67,9946)
+974
+"TEMP","DATAO",50.67,9947)
+202375^3131003.063027^10^358^
+"TEMP","DATAO",50.67,9948)
+O
+"TEMP","DATAO",50.67,9949)
+202376^3131003.063028^1^358^
+"TEMP","DATAO",50.67,9950)
+054458089502
+"TEMP","DATAO",50.67,9951)
+202376^3131003.063028^3^358^
+"TEMP","DATAO",50.67,9952)
+3576
+"TEMP","DATAO",50.67,9953)
+202376^3131003.063028^4^358^
+"TEMP","DATAO",50.67,9954)
+AMLODIPINE
+"TEMP","DATAO",50.67,9955)
+202376^3131003.063028^5^358^
+"TEMP","DATAO",50.67,9956)
+9876
+"TEMP","DATAO",50.67,9957)
+202376^3131003.063028^8^358^
+"TEMP","DATAO",50.67,9958)
+4597
+"TEMP","DATAO",50.67,9959)
+202376^3131003.063028^9^358^
+"TEMP","DATAO",50.67,9960)
+974
+"TEMP","DATAO",50.67,9961)
+202376^3131003.063028^10^358^
+"TEMP","DATAO",50.67,9962)
+R
+"TEMP","DATAO",50.67,9963)
+202377^3131003.063031^1^358^
+"TEMP","DATAO",50.67,9964)
+054569641900
+"TEMP","DATAO",50.67,9965)
+202377^3131003.063031^3^358^
+"TEMP","DATAO",50.67,9966)
+3105
+"TEMP","DATAO",50.67,9967)
+202377^3131003.063031^4^358^
+"TEMP","DATAO",50.67,9968)
+TIVICAY
+"TEMP","DATAO",50.67,9969)
+202377^3131003.063031^5^358^
+"TEMP","DATAO",50.67,9970)
+24110
+"TEMP","DATAO",50.67,9971)
+202377^3131003.063031^8^358^
+"TEMP","DATAO",50.67,9972)
+4597
+"TEMP","DATAO",50.67,9973)
+202377^3131003.063031^9^358^
+"TEMP","DATAO",50.67,9974)
+491
+"TEMP","DATAO",50.67,9975)
+202377^3131003.063031^10^358^
+"TEMP","DATAO",50.67,9976)
+R
+"TEMP","DATAO",50.67,9977)
+202378^3131003.063031^1^358^
+"TEMP","DATAO",50.67,9978)
+054569642000
+"TEMP","DATAO",50.67,9979)
+202378^3131003.063031^3^358^
+"TEMP","DATAO",50.67,9980)
+3105
+"TEMP","DATAO",50.67,9981)
+202378^3131003.063031^4^358^
+"TEMP","DATAO",50.67,9982)
+MOBISYL
+"TEMP","DATAO",50.67,9983)
+202378^3131003.063031^5^358^
+"TEMP","DATAO",50.67,9984)
+8962
+"TEMP","DATAO",50.67,9985)
+202378^3131003.063031^8^358^
+"TEMP","DATAO",50.67,9986)
+4751
+"TEMP","DATAO",50.67,9987)
+202378^3131003.063031^9^358^
+"TEMP","DATAO",50.67,9988)
+597
+"TEMP","DATAO",50.67,9989)
+202378^3131003.063031^10^358^
+"TEMP","DATAO",50.67,9990)
+O
+"TEMP","DATAO",50.67,9991)
+202379^3131003.063033^1^358^
+"TEMP","DATAO",50.67,9992)
+059630032001
+"TEMP","DATAO",50.67,9993)
+202379^3131003.063033^3^358^
+"TEMP","DATAO",50.67,9994)
+3585
+"TEMP","DATAO",50.67,9995)
+202379^3131003.063033^4^358^
+"TEMP","DATAO",50.67,9996)
+DORIBAX
+"TEMP","DATAO",50.67,9997)
+202379^3131003.063033^5^358^
+"TEMP","DATAO",50.67,9998)
+18857
+"TEMP","DATAO",50.67,9999)
+202379^3131003.063033^8^358^
+"TEMP","DATAO",50.67,10000)
+4592
+"TEMP","DATAO",50.67,10001)
+202379^3131003.063033^9^358^
+"TEMP","DATAO",50.67,10002)
+613
+"TEMP","DATAO",50.67,10003)
+202379^3131003.063033^10^358^
+"TEMP","DATAO",50.67,10004)
+R
+"TEMP","DATAO",50.67,10005)
+202380^3131003.063033^1^358^
+"TEMP","DATAO",50.67,10006)
+059630032010
+"TEMP","DATAO",50.67,10007)
+202380^3131003.063033^3^358^
+"TEMP","DATAO",50.67,10008)
+3585
+"TEMP","DATAO",50.67,10009)
+202380^3131003.063033^4^358^
+"TEMP","DATAO",50.67,10010)
+DORIBAX
+"TEMP","DATAO",50.67,10011)
+202380^3131003.063033^5^358^
+"TEMP","DATAO",50.67,10012)
+18857
+"TEMP","DATAO",50.67,10013)
+202380^3131003.063033^8^358^
+"TEMP","DATAO",50.67,10014)
+4592
+"TEMP","DATAO",50.67,10015)
+202380^3131003.063033^9^358^
+"TEMP","DATAO",50.67,10016)
+613
+"TEMP","DATAO",50.67,10017)
+202380^3131003.063033^10^358^
+"TEMP","DATAO",50.67,10018)
+R
+"TEMP","DATAO",50.67,10019)
+202381^3131003.063034^1^358^
+"TEMP","DATAO",50.67,10020)
+062011020502
+"TEMP","DATAO",50.67,10021)
+202381^3131003.063034^3^358^
+"TEMP","DATAO",50.67,10022)
+2657
+"TEMP","DATAO",50.67,10023)
+202381^3131003.063034^4^358^
+"TEMP","DATAO",50.67,10024)
+ALL DAY ALLERGY (CETIRIZINE)
+"TEMP","DATAO",50.67,10025)
+202381^3131003.063034^5^358^
+"TEMP","DATAO",50.67,10026)
+12479
+"TEMP","DATAO",50.67,10027)
+202381^3131003.063034^8^358^
+"TEMP","DATAO",50.67,10028)
+4597
+"TEMP","DATAO",50.67,10029)
+202381^3131003.063034^9^358^
+"TEMP","DATAO",50.67,10030)
+974
+"TEMP","DATAO",50.67,10031)
+202381^3131003.063034^10^358^
+"TEMP","DATAO",50.67,10032)
+O
+"TEMP","DATAO",50.67,10033)
+202382^3131003.063034^1^358^
+"TEMP","DATAO",50.67,10034)
+062175031237
+"TEMP","DATAO",50.67,10035)
+202382^3131003.063034^3^358^
+"TEMP","DATAO",50.67,10036)
+70
+"TEMP","DATAO",50.67,10037)
+202382^3131003.063034^4^358^
+"TEMP","DATAO",50.67,10038)
+METHYLPHENIDATE
+"TEMP","DATAO",50.67,10039)
+202382^3131003.063034^5^358^
+"TEMP","DATAO",50.67,10040)
+15073
+"TEMP","DATAO",50.67,10041)
+202382^3131003.063034^8^358^
+"TEMP","DATAO",50.67,10042)
+4593
+"TEMP","DATAO",50.67,10043)
+202382^3131003.063034^9^358^
+"TEMP","DATAO",50.67,10044)
+491
+"TEMP","DATAO",50.67,10045)
+202382^3131003.063034^10^358^
+"TEMP","DATAO",50.67,10046)
+R
+"TEMP","DATAO",50.67,10047)
+202383^3131003.063034^1^358^
+"TEMP","DATAO",50.67,10048)
+062175031337
+"TEMP","DATAO",50.67,10049)
+202383^3131003.063034^3^358^
+"TEMP","DATAO",50.67,10050)
+70
+"TEMP","DATAO",50.67,10051)
+202383^3131003.063034^4^358^
+"TEMP","DATAO",50.67,10052)
+METHYLPHENIDATE
+"TEMP","DATAO",50.67,10053)
+202383^3131003.063034^5^358^
+"TEMP","DATAO",50.67,10054)
+15071
+"TEMP","DATAO",50.67,10055)
+202383^3131003.063034^8^358^
+"TEMP","DATAO",50.67,10056)
+4593
+"TEMP","DATAO",50.67,10057)
+202383^3131003.063034^9^358^
+"TEMP","DATAO",50.67,10058)
+491
+"TEMP","DATAO",50.67,10059)
+202383^3131003.063034^10^358^
+"TEMP","DATAO",50.67,10060)
+R
+"TEMP","DATAO",50.67,10061)
+202384^3131003.063035^1^358^
+"TEMP","DATAO",50.67,10062)
+064950035450
+"TEMP","DATAO",50.67,10063)
+202384^3131003.063035^3^358^
+"TEMP","DATAO",50.67,10064)
+3871
+"TEMP","DATAO",50.67,10065)
+202384^3131003.063035^4^358^
+"TEMP","DATAO",50.67,10066)
+OXYCODONE
+"TEMP","DATAO",50.67,10067)
+202384^3131003.063035^5^358^
+"TEMP","DATAO",50.67,10068)
+4602
+"TEMP","DATAO",50.67,10069)
+202384^3131003.063035^8^358^
+"TEMP","DATAO",50.67,10070)
+4596
+"TEMP","DATAO",50.67,10071)
+202384^3131003.063035^9^358^
+"TEMP","DATAO",50.67,10072)
+491
+"TEMP","DATAO",50.67,10073)
+202384^3131003.063035^10^358^
+"TEMP","DATAO",50.67,10074)
+R
+"TEMP","DATAO",50.67,10075)
+202385^3131003.063035^1^358^
+"TEMP","DATAO",50.67,10076)
+067877024738
+"TEMP","DATAO",50.67,10077)
+202385^3131003.063035^3^358^
+"TEMP","DATAO",50.67,10078)
+3412
+"TEMP","DATAO",50.67,10079)
+202385^3131003.063035^4^358^
+"TEMP","DATAO",50.67,10080)
+QUETIAPINE
+"TEMP","DATAO",50.67,10081)
+202385^3131003.063035^5^358^
+"TEMP","DATAO",50.67,10082)
+14912
+"TEMP","DATAO",50.67,10083)
+202385^3131003.063035^8^358^
+"TEMP","DATAO",50.67,10084)
+4593
+"TEMP","DATAO",50.67,10085)
+202385^3131003.063035^9^358^
+"TEMP","DATAO",50.67,10086)
+974
+"TEMP","DATAO",50.67,10087)
+202385^3131003.063035^10^358^
+"TEMP","DATAO",50.67,10088)
+R
+"TEMP","DATAO",50.67,10089)
+202386^3131003.063036^1^358^
+"TEMP","DATAO",50.67,10090)
+068084009901
+"TEMP","DATAO",50.67,10091)
+202386^3131003.063036^3^358^
+"TEMP","DATAO",50.67,10092)
+2830
+"TEMP","DATAO",50.67,10093)
+202386^3131003.063036^4^358^
+"TEMP","DATAO",50.67,10094)
+ATORVASTATIN
+"TEMP","DATAO",50.67,10095)
+202386^3131003.063036^5^358^
+"TEMP","DATAO",50.67,10096)
+12597
+"TEMP","DATAO",50.67,10097)
+202386^3131003.063036^8^358^
+"TEMP","DATAO",50.67,10098)
+4593
+"TEMP","DATAO",50.67,10099)
+202386^3131003.063036^9^358^
+"TEMP","DATAO",50.67,10100)
+974
+"TEMP","DATAO",50.67,10101)
+202386^3131003.063036^10^358^
+"TEMP","DATAO",50.67,10102)
+R
+"TEMP","DATAO",50.67,10103)
+202387^3131003.063036^1^358^
+"TEMP","DATAO",50.67,10104)
+068084009911
+"TEMP","DATAO",50.67,10105)
+202387^3131003.063036^3^358^
+"TEMP","DATAO",50.67,10106)
+2830
+"TEMP","DATAO",50.67,10107)
+202387^3131003.063036^4^358^
+"TEMP","DATAO",50.67,10108)
+ATORVASTATIN
+"TEMP","DATAO",50.67,10109)
+202387^3131003.063036^5^358^
+"TEMP","DATAO",50.67,10110)
+12597
+"TEMP","DATAO",50.67,10111)
+202387^3131003.063036^8^358^
+"TEMP","DATAO",50.67,10112)
+4592
+"TEMP","DATAO",50.67,10113)
+202387^3131003.063036^9^358^
+"TEMP","DATAO",50.67,10114)
+974
+"TEMP","DATAO",50.67,10115)
+202387^3131003.063036^10^358^
+"TEMP","DATAO",50.67,10116)
+R
+"TEMP","DATAO",50.67,10117)
+202388^3131003.063037^1^358^
+"TEMP","DATAO",50.67,10118)
+081131067892
+"TEMP","DATAO",50.67,10119)
+202388^3131003.063037^2^358^
+"TEMP","DATAO",50.67,10120)
+81131-67892
+"TEMP","DATAO",50.67,10121)
+202388^3131003.063037^3^358^
+"TEMP","DATAO",50.67,10122)
+3611
+"TEMP","DATAO",50.67,10123)
+202388^3131003.063037^4^358^
+"TEMP","DATAO",50.67,10124)
+LUTEIN
+"TEMP","DATAO",50.67,10125)
+202388^3131003.063037^5^358^
+"TEMP","DATAO",50.67,10126)
+16647
+"TEMP","DATAO",50.67,10127)
+202388^3131003.063037^8^358^
+"TEMP","DATAO",50.67,10128)
+4597
+"TEMP","DATAO",50.67,10129)
+202388^3131003.063037^9^358^
+"TEMP","DATAO",50.67,10130)
+491
+"TEMP","DATAO",50.67,10131)
+202388^3131003.063037^10^358^
+"TEMP","DATAO",50.67,10132)
+O
+"TEMP","DATAO",50.68,1)
+4753^3130913.141028^21^358^
+"TEMP","DATAO",50.68,2)
+3130913
+"TEMP","DATAO",50.68,3)
+4753,1161^3130913.141028^14,1^358^
+"TEMP","DATAO",50.68,4)
+10
+"TEMP","DATAO",50.68,5)
+4753,1161^3130913.141028^14,2^358^
+"TEMP","DATAO",50.68,6)
+44
+"TEMP","DATAO",50.68,7)
+4754^3130913.141136^21^358^
+"TEMP","DATAO",50.68,8)
+3130913
+"TEMP","DATAO",50.68,9)
+4754,1161^3130913.141136^14,1^358^
+"TEMP","DATAO",50.68,10)
+5
+"TEMP","DATAO",50.68,11)
+4754,1161^3130913.141136^14,2^358^
+"TEMP","DATAO",50.68,12)
+44
+"TEMP","DATAO",50.68,13)
+7077^3130913.141207^21^358^
+"TEMP","DATAO",50.68,14)
+3130913
+"TEMP","DATAO",50.68,15)
+7077,1016^3130913.141207^14,1^358^
+"TEMP","DATAO",50.68,16)
+0.5
+"TEMP","DATAO",50.68,17)
+7077,1016^3130913.141207^14,2^358^
+"TEMP","DATAO",50.68,18)
+13
+"TEMP","DATAO",50.68,19)
+24151^3130913.150235^.05^358^
+"TEMP","DATAO",50.68,20)
+3602
+"TEMP","DATAO",50.68,21)
+24151^3130913.150235^1^358^
+"TEMP","DATAO",50.68,22)
+40
+"TEMP","DATAO",50.68,23)
+24151^3130913.150235^17^358^
+"TEMP","DATAO",50.68,24)
+0
+"TEMP","DATAO",50.68,25)
+24151^3130913.150235^4^358^
+"TEMP","DATAO",50.68,26)
+SUCTION CANISTER MISCELLANEOUS
+"TEMP","DATAO",50.68,27)
+24151^3130913.150235^5^358^
+"TEMP","DATAO",50.68,28)
+SUCTION CANISTER DEVILBISS #DV7305D632
+"TEMP","DATAO",50.68,29)
+24151^3130913.150235^6^358^
+"TEMP","DATAO",50.68,30)
+XH372
+"TEMP","DATAO",50.68,31)
+24151^3130913.150235^7^358^
+"TEMP","DATAO",50.68,32)
+1
+"TEMP","DATAO",50.68,33)
+24151^3130913.150235^8^358^
+"TEMP","DATAO",50.68,34)
+5
+"TEMP","DATAO",50.68,35)
+24151^3130913.150235^15^358^
+"TEMP","DATAO",50.68,36)
+238
+"TEMP","DATAO",50.68,37)
+24151^3130913.150235^19^358^
+"TEMP","DATAO",50.68,38)
+0
+"TEMP","DATAO",50.68,39)
+24151^3130913.150235^23^358^
+"TEMP","DATAO",50.68,40)
+1
+"TEMP","DATAO",50.68,41)
+24151^3130913.150235^31^358^
+"TEMP","DATAO",50.68,42)
+0
+"TEMP","DATAO",50.68,43)
+24151^3130913.150235^40^358^
+"TEMP","DATAO",50.68,44)
+Y
+"TEMP","DATAO",50.68,45)
+24151^3130913.150235^99.98^358^
+"TEMP","DATAO",50.68,46)
+1
+"TEMP","DATAO",50.68,47)
+24151^3130913.150235^99.99^358^
+"TEMP","DATAO",50.68,48)
+4032691
+"TEMP","DATAO",50.68,49)
+24151,1^3130913.150235^99.991,.02^358^
+"TEMP","DATAO",50.68,50)
+1
+"TEMP","DATAO",50.68,51)
+24151^3130913.150235^2000^358^
+"TEMP","DATAO",50.68,52)
+624151
+"TEMP","DATAO",50.68,53)
+24152^3130913.150648^.05^358^
+"TEMP","DATAO",50.68,54)
+970
+"TEMP","DATAO",50.68,55)
+24152^3130913.150648^1^358^
+"TEMP","DATAO",50.68,56)
+65
+"TEMP","DATAO",50.68,57)
+24152^3130913.150648^17^358^
+"TEMP","DATAO",50.68,58)
+0
+"TEMP","DATAO",50.68,59)
+24152^3130913.150648^4^358^
+"TEMP","DATAO",50.68,60)
+ETHINYL ESTRADIOL/FERROUS FUMARATE/NORETHINDRONE TAB,CHEWABLE
+"TEMP","DATAO",50.68,61)
+24152^3130913.150649^5^358^
+"TEMP","DATAO",50.68,62)
+LO MINASTRIN FE CHEW TAB,28
+"TEMP","DATAO",50.68,63)
+24152^3130913.150649^6^358^
+"TEMP","DATAO",50.68,64)
+L0602
+"TEMP","DATAO",50.68,65)
+24152^3130913.150649^7^358^
+"TEMP","DATAO",50.68,66)
+1
+"TEMP","DATAO",50.68,67)
+24152^3130913.150649^8^358^
+"TEMP","DATAO",50.68,68)
+28
+"TEMP","DATAO",50.68,69)
+24152^3130913.150649^15^358^
+"TEMP","DATAO",50.68,70)
+125
+"TEMP","DATAO",50.68,71)
+24152^3130913.150649^19^358^
+"TEMP","DATAO",50.68,72)
+0
+"TEMP","DATAO",50.68,73)
+24152^3130913.150649^20^358^
+"TEMP","DATAO",50.68,74)
+M
+"TEMP","DATAO",50.68,75)
+24152^3130913.150649^31^358^
+"TEMP","DATAO",50.68,76)
+0
+"TEMP","DATAO",50.68,77)
+24152^3130913.150649^40^358^
+"TEMP","DATAO",50.68,78)
+Y
+"TEMP","DATAO",50.68,79)
+24152^3130913.150649^99.98^358^
+"TEMP","DATAO",50.68,80)
+1
+"TEMP","DATAO",50.68,81)
+24152^3130913.150649^99.99^358^
+"TEMP","DATAO",50.68,82)
+4032692
+"TEMP","DATAO",50.68,83)
+24152,1^3130913.150651^99.991,.02^358^
+"TEMP","DATAO",50.68,84)
+1
+"TEMP","DATAO",50.68,85)
+24152^3130913.150652^2000^358^
+"TEMP","DATAO",50.68,86)
+624152
+"TEMP","DATAO",50.68,87)
+24152,225^3130913.150653^14,1^358^
+"TEMP","DATAO",50.68,88)
+75
+"TEMP","DATAO",50.68,89)
+24152,225^3130913.150653^14,2^358^
+"TEMP","DATAO",50.68,90)
+20
+"TEMP","DATAO",50.68,91)
+24152,1093^3130913.150653^14,1^358^
+"TEMP","DATAO",50.68,92)
+1
+"TEMP","DATAO",50.68,93)
+24152,1093^3130913.150653^14,2^358^
+"TEMP","DATAO",50.68,94)
+20
+"TEMP","DATAO",50.68,95)
+24152,619^3130913.150653^14,1^358^
+"TEMP","DATAO",50.68,96)
+0.01
+"TEMP","DATAO",50.68,97)
+24152,619^3130913.150653^14,2^358^
+"TEMP","DATAO",50.68,98)
+20
+"TEMP","DATAO",50.68,99)
+24153^3130913.151103^.05^358^
+"TEMP","DATAO",50.68,100)
+3384
+"TEMP","DATAO",50.68,101)
+24153^3130913.151103^1^358^
+"TEMP","DATAO",50.68,102)
+145
+"TEMP","DATAO",50.68,103)
+24153^3130913.151103^2^358^
+"TEMP","DATAO",50.68,104)
+0.33
+"TEMP","DATAO",50.68,105)
+24153^3130913.151103^17^358^
+"TEMP","DATAO",50.68,106)
+0
+"TEMP","DATAO",50.68,107)
+24153^3130913.151103^3^358^
+"TEMP","DATAO",50.68,108)
+44
+"TEMP","DATAO",50.68,109)
+24153^3130913.151103^4^358^
+"TEMP","DATAO",50.68,110)
+BRIMONIDINE GEL,TOP
+"TEMP","DATAO",50.68,111)
+24153^3130913.151103^7^358^
+"TEMP","DATAO",50.68,112)
+1
+"TEMP","DATAO",50.68,113)
+24153^3130913.151103^8^358^
+"TEMP","DATAO",50.68,114)
+14
+"TEMP","DATAO",50.68,115)
+24153^3130913.151103^15^358^
+"TEMP","DATAO",50.68,116)
+105
+"TEMP","DATAO",50.68,117)
+24153^3130913.151103^19^358^
+"TEMP","DATAO",50.68,118)
+0
+"TEMP","DATAO",50.68,119)
+24153^3130913.151103^20^358^
+"TEMP","DATAO",50.68,120)
+M
+"TEMP","DATAO",50.68,121)
+24153^3130913.151103^31^358^
+"TEMP","DATAO",50.68,122)
+0
+"TEMP","DATAO",50.68,123)
+24153^3130913.151103^40^358^
+"TEMP","DATAO",50.68,124)
+N
+"TEMP","DATAO",50.68,125)
+24153^3130913.151103^41^358^
+"TEMP","DATAO",50.68,126)
+N
+"TEMP","DATAO",50.68,127)
+24153^3130913.151103^99.98^358^
+"TEMP","DATAO",50.68,128)
+1
+"TEMP","DATAO",50.68,129)
+24153^3130913.151103^99.99^358^
+"TEMP","DATAO",50.68,130)
+4032693
+"TEMP","DATAO",50.68,131)
+24153,1^3130913.151103^99.991,.02^358^
+"TEMP","DATAO",50.68,132)
+1
+"TEMP","DATAO",50.68,133)
+24153^3130913.151104^2000^358^
+"TEMP","DATAO",50.68,134)
+624153
+"TEMP","DATAO",50.68,135)
+20788^3130916.140842^7^358^
+"TEMP","DATAO",50.68,136)
+0
+"TEMP","DATAO",50.68,137)
+23852^3130917.075557^7^358^
+"TEMP","DATAO",50.68,138)
+0
+"TEMP","DATAO",50.68,139)
+23852,4085^3130917.075557^14,1^358^
+"TEMP","DATAO",50.68,140)
+14
+"TEMP","DATAO",50.68,141)
+23852,4085^3130917.075557^14,2^358^
+"TEMP","DATAO",50.68,142)
+20
+"TEMP","DATAO",50.68,143)
+13393^3130917.07574^7^358^
+"TEMP","DATAO",50.68,144)
+0
+"TEMP","DATAO",50.68,145)
+18600^3130917.075847^7^358^
+"TEMP","DATAO",50.68,146)
+0
+"TEMP","DATAO",50.68,147)
+5060^3130917.08001^7^358^
+"TEMP","DATAO",50.68,148)
+0
+"TEMP","DATAO",50.68,149)
+5060,1161^3130917.080015^14,1^358^
+"TEMP","DATAO",50.68,150)
+5
+"TEMP","DATAO",50.68,151)
+5060,1161^3130917.080015^14,2^358^
+"TEMP","DATAO",50.68,152)
+44
+"TEMP","DATAO",50.68,153)
+5060,187^3130917.080016^14,1^358^
+"TEMP","DATAO",50.68,154)
+3
+"TEMP","DATAO",50.68,155)
+5060,187^3130917.080016^14,2^358^
+"TEMP","DATAO",50.68,156)
+44
+"TEMP","DATAO",50.68,157)
+14324^3130917.080127^7^358^
+"TEMP","DATAO",50.68,158)
+0
+"TEMP","DATAO",50.68,159)
+14324,3572^3130917.080128^14,1^358^
+"TEMP","DATAO",50.68,160)
+50
+"TEMP","DATAO",50.68,161)
+14324,3572^3130917.080128^14,2^358^
+"TEMP","DATAO",50.68,162)
+20
+"TEMP","DATAO",50.68,163)
+5979^3130917.080237^7^358^
+"TEMP","DATAO",50.68,164)
+0
+"TEMP","DATAO",50.68,165)
+5979,1375^3130917.080237^14,1^358^
+"TEMP","DATAO",50.68,166)
+2
+"TEMP","DATAO",50.68,167)
+5979,1375^3130917.080237^14,2^358^
+"TEMP","DATAO",50.68,168)
+20
+"TEMP","DATAO",50.68,169)
+14322^3130917.08031^7^358^
+"TEMP","DATAO",50.68,170)
+0
+"TEMP","DATAO",50.68,171)
+14322,3235^3130917.080311^14,1^358^
+"TEMP","DATAO",50.68,172)
+5
+"TEMP","DATAO",50.68,173)
+14322,3235^3130917.080311^14,2^358^
+"TEMP","DATAO",50.68,174)
+20
+"TEMP","DATAO",50.68,175)
+24154^3130917.100222^.05^358^
+"TEMP","DATAO",50.68,176)
+4388
+"TEMP","DATAO",50.68,177)
+24154^3130917.100222^1^358^
+"TEMP","DATAO",50.68,178)
+217
+"TEMP","DATAO",50.68,179)
+24154^3130917.100222^17^358^
+"TEMP","DATAO",50.68,180)
+0
+"TEMP","DATAO",50.68,181)
+24154^3130917.100222^4^358^
+"TEMP","DATAO",50.68,182)
+LARYGEAL TUBE
+"TEMP","DATAO",50.68,183)
+24154^3130917.100222^5^358^
+"TEMP","DATAO",50.68,184)
+LARYNGECTOMY TUBE PROVOX #7609
+"TEMP","DATAO",50.68,185)
+24154^3130917.100222^6^358^
+"TEMP","DATAO",50.68,186)
+XH373
+"TEMP","DATAO",50.68,187)
+24154^3130917.100222^7^358^
+"TEMP","DATAO",50.68,188)
+1
+"TEMP","DATAO",50.68,189)
+24154^3130917.100222^8^358^
+"TEMP","DATAO",50.68,190)
+5
+"TEMP","DATAO",50.68,191)
+24154^3130917.100222^15^358^
+"TEMP","DATAO",50.68,192)
+238
+"TEMP","DATAO",50.68,193)
+24154^3130917.100222^19^358^
+"TEMP","DATAO",50.68,194)
+0
+"TEMP","DATAO",50.68,195)
+24154^3130917.100222^23^358^
+"TEMP","DATAO",50.68,196)
+1
+"TEMP","DATAO",50.68,197)
+24154^3130917.100222^31^358^
+"TEMP","DATAO",50.68,198)
+0
+"TEMP","DATAO",50.68,199)
+24154^3130917.100222^40^358^
+"TEMP","DATAO",50.68,200)
+Y
+"TEMP","DATAO",50.68,201)
+24154^3130917.100222^99.98^358^
+"TEMP","DATAO",50.68,202)
+1
+"TEMP","DATAO",50.68,203)
+24154^3130917.100222^99.99^358^
+"TEMP","DATAO",50.68,204)
+4032694
+"TEMP","DATAO",50.68,205)
+24154,1^3130917.100222^99.991,.02^358^
+"TEMP","DATAO",50.68,206)
+1
+"TEMP","DATAO",50.68,207)
+24154^3130917.100223^2000^358^
+"TEMP","DATAO",50.68,208)
+624154
+"TEMP","DATAO",50.68,209)
+24155^3130917.100534^.05^358^
+"TEMP","DATAO",50.68,210)
+3084
+"TEMP","DATAO",50.68,211)
+24155^3130917.100534^1^358^
+"TEMP","DATAO",50.68,212)
+234
+"TEMP","DATAO",50.68,213)
+24155^3130917.100534^17^358^
+"TEMP","DATAO",50.68,214)
+0
+"TEMP","DATAO",50.68,215)
+24155^3130917.100534^4^358^
+"TEMP","DATAO",50.68,216)
+CATHETER CATHETER
+"TEMP","DATAO",50.68,217)
+24155^3130917.100534^5^358^
+"TEMP","DATAO",50.68,218)
+CATH,INTERM LOFRIC HYD-KT 14FR A#9871440
+"TEMP","DATAO",50.68,219)
+24155^3130917.100534^6^358^
+"TEMP","DATAO",50.68,220)
+XH374
+"TEMP","DATAO",50.68,221)
+24155^3130917.100534^7^358^
+"TEMP","DATAO",50.68,222)
+1
+"TEMP","DATAO",50.68,223)
+24155^3130917.100534^8^358^
+"TEMP","DATAO",50.68,224)
+5
+"TEMP","DATAO",50.68,225)
+24155^3130917.100534^15^358^
+"TEMP","DATAO",50.68,226)
+483
+"TEMP","DATAO",50.68,227)
+24155^3130917.100534^19^358^
+"TEMP","DATAO",50.68,228)
+0
+"TEMP","DATAO",50.68,229)
+24155^3130917.100534^23^358^
+"TEMP","DATAO",50.68,230)
+1
+"TEMP","DATAO",50.68,231)
+24155^3130917.100534^31^358^
+"TEMP","DATAO",50.68,232)
+0
+"TEMP","DATAO",50.68,233)
+24155^3130917.100534^40^358^
+"TEMP","DATAO",50.68,234)
+Y
+"TEMP","DATAO",50.68,235)
+24155^3130917.100534^99.98^358^
+"TEMP","DATAO",50.68,236)
+1
+"TEMP","DATAO",50.68,237)
+24155^3130917.100534^99.99^358^
+"TEMP","DATAO",50.68,238)
+4032695
+"TEMP","DATAO",50.68,239)
+24155,1^3130917.100534^99.991,.02^358^
+"TEMP","DATAO",50.68,240)
+1
+"TEMP","DATAO",50.68,241)
+24155^3130917.10054^2000^358^
+"TEMP","DATAO",50.68,242)
+624155
+"TEMP","DATAO",50.68,243)
+65,11^3130917.10065^14,1^358^
+"TEMP","DATAO",50.68,244)
+65
+"TEMP","DATAO",50.68,245)
+65,11^3130917.10065^14,2^358^
+"TEMP","DATAO",50.68,246)
+20
+"TEMP","DATAO",50.68,247)
+24156^3130917.100759^.05^358^
+"TEMP","DATAO",50.68,248)
+3084
+"TEMP","DATAO",50.68,249)
+24156^3130917.100759^1^358^
+"TEMP","DATAO",50.68,250)
+234
+"TEMP","DATAO",50.68,251)
+24156^3130917.100759^17^358^
+"TEMP","DATAO",50.68,252)
+0
+"TEMP","DATAO",50.68,253)
+24156^3130917.100759^4^358^
+"TEMP","DATAO",50.68,254)
+CATHETER CATHETER
+"TEMP","DATAO",50.68,255)
+24156^3130917.100759^5^358^
+"TEMP","DATAO",50.68,256)
+CATH,INTERM LOFRIC HYD-KT 14FR A#9851440
+"TEMP","DATAO",50.68,257)
+24156^3130917.100759^6^358^
+"TEMP","DATAO",50.68,258)
+XH375
+"TEMP","DATAO",50.68,259)
+24156^3130917.100759^7^358^
+"TEMP","DATAO",50.68,260)
+1
+"TEMP","DATAO",50.68,261)
+24156^3130917.100759^8^358^
+"TEMP","DATAO",50.68,262)
+5
+"TEMP","DATAO",50.68,263)
+24156^3130917.100759^15^358^
+"TEMP","DATAO",50.68,264)
+482
+"TEMP","DATAO",50.68,265)
+24156^3130917.100759^19^358^
+"TEMP","DATAO",50.68,266)
+0
+"TEMP","DATAO",50.68,267)
+24156^3130917.100759^23^358^
+"TEMP","DATAO",50.68,268)
+1
+"TEMP","DATAO",50.68,269)
+24156^3130917.100759^31^358^
+"TEMP","DATAO",50.68,270)
+0
+"TEMP","DATAO",50.68,271)
+24156^3130917.100759^40^358^
+"TEMP","DATAO",50.68,272)
+Y
+"TEMP","DATAO",50.68,273)
+24156^3130917.100759^99.98^358^
+"TEMP","DATAO",50.68,274)
+1
+"TEMP","DATAO",50.68,275)
+24156^3130917.100759^99.99^358^
+"TEMP","DATAO",50.68,276)
+4032696
+"TEMP","DATAO",50.68,277)
+24156,1^3130917.100759^99.991,.02^358^
+"TEMP","DATAO",50.68,278)
+1
+"TEMP","DATAO",50.68,279)
+24156^3130917.100804^2000^358^
+"TEMP","DATAO",50.68,280)
+624156
+"TEMP","DATAO",50.68,281)
+24157^3130917.101025^.05^358^
+"TEMP","DATAO",50.68,282)
+3096
+"TEMP","DATAO",50.68,283)
+24157^3130917.101025^1^358^
+"TEMP","DATAO",50.68,284)
+238
+"TEMP","DATAO",50.68,285)
+24157^3130917.101025^17^358^
+"TEMP","DATAO",50.68,286)
+0
+"TEMP","DATAO",50.68,287)
+24157^3130917.101025^4^358^
+"TEMP","DATAO",50.68,288)
+SYRINGE SYRINGE/NDL
+"TEMP","DATAO",50.68,289)
+24157^3130917.101025^5^358^
+"TEMP","DATAO",50.68,290)
+SYRINGE 3ML/NDL 23G 1.5IN
+"TEMP","DATAO",50.68,291)
+24157^3130917.101025^6^358^
+"TEMP","DATAO",50.68,292)
+XH376
+"TEMP","DATAO",50.68,293)
+24157^3130917.101025^7^358^
+"TEMP","DATAO",50.68,294)
+1
+"TEMP","DATAO",50.68,295)
+24157^3130917.101025^8^358^
+"TEMP","DATAO",50.68,296)
+5
+"TEMP","DATAO",50.68,297)
+24157^3130917.101025^15^358^
+"TEMP","DATAO",50.68,298)
+513
+"TEMP","DATAO",50.68,299)
+24157^3130917.101025^19^358^
+"TEMP","DATAO",50.68,300)
+0
+"TEMP","DATAO",50.68,301)
+24157^3130917.101025^20^358^
+"TEMP","DATAO",50.68,302)
+M
+"TEMP","DATAO",50.68,303)
+24157^3130917.101025^23^358^
+"TEMP","DATAO",50.68,304)
+1
+"TEMP","DATAO",50.68,305)
+24157^3130917.101025^31^358^
+"TEMP","DATAO",50.68,306)
+0
+"TEMP","DATAO",50.68,307)
+24157^3130917.101025^40^358^
+"TEMP","DATAO",50.68,308)
+Y
+"TEMP","DATAO",50.68,309)
+24157^3130917.101025^99.98^358^
+"TEMP","DATAO",50.68,310)
+1
+"TEMP","DATAO",50.68,311)
+24157^3130917.101025^99.99^358^
+"TEMP","DATAO",50.68,312)
+4032697
+"TEMP","DATAO",50.68,313)
+24157,1^3130917.101025^99.991,.02^358^
+"TEMP","DATAO",50.68,314)
+1
+"TEMP","DATAO",50.68,315)
+24157^3130917.101026^2000^358^
+"TEMP","DATAO",50.68,316)
+624157
+"TEMP","DATAO",50.68,317)
+24158^3130917.1215^.05^358^
+"TEMP","DATAO",50.68,318)
+3992
+"TEMP","DATAO",50.68,319)
+24158^3130917.1215^1^358^
+"TEMP","DATAO",50.68,320)
+40
+"TEMP","DATAO",50.68,321)
+24158^3130917.1215^17^358^
+"TEMP","DATAO",50.68,322)
+0
+"TEMP","DATAO",50.68,323)
+24158^3130917.1215^4^358^
+"TEMP","DATAO",50.68,324)
+BANDAGE,STRETCH MISCELLANEOUS
+"TEMP","DATAO",50.68,325)
+24158^3130917.1215^5^358^
+"TEMP","DATAO",50.68,326)
+BANDAGE,CURITY 2X75IN STERILE K#2231
+"TEMP","DATAO",50.68,327)
+24158^3130917.1215^6^358^
+"TEMP","DATAO",50.68,328)
+XH377
+"TEMP","DATAO",50.68,329)
+24158^3130917.1215^7^358^
+"TEMP","DATAO",50.68,330)
+1
+"TEMP","DATAO",50.68,331)
+24158^3130917.1215^8^358^
+"TEMP","DATAO",50.68,332)
+5
+"TEMP","DATAO",50.68,333)
+24158^3130917.1215^15^358^
+"TEMP","DATAO",50.68,334)
+447
+"TEMP","DATAO",50.68,335)
+24158^3130917.1215^19^358^
+"TEMP","DATAO",50.68,336)
+0
+"TEMP","DATAO",50.68,337)
+24158^3130917.1215^23^358^
+"TEMP","DATAO",50.68,338)
+1
+"TEMP","DATAO",50.68,339)
+24158^3130917.1215^31^358^
+"TEMP","DATAO",50.68,340)
+0
+"TEMP","DATAO",50.68,341)
+24158^3130917.1215^40^358^
+"TEMP","DATAO",50.68,342)
+Y
+"TEMP","DATAO",50.68,343)
+24158^3130917.1215^99.98^358^
+"TEMP","DATAO",50.68,344)
+1
+"TEMP","DATAO",50.68,345)
+24158^3130917.1215^99.99^358^
+"TEMP","DATAO",50.68,346)
+4032698
+"TEMP","DATAO",50.68,347)
+24158,1^3130917.1215^99.991,.02^358^
+"TEMP","DATAO",50.68,348)
+1
+"TEMP","DATAO",50.68,349)
+24158^3130917.121501^2000^358^
+"TEMP","DATAO",50.68,350)
+624158
+"TEMP","DATAO",50.68,351)
+24159^3130917.121656^.05^358^
+"TEMP","DATAO",50.68,352)
+1013
+"TEMP","DATAO",50.68,353)
+24159^3130917.121656^1^358^
+"TEMP","DATAO",50.68,354)
+259
+"TEMP","DATAO",50.68,355)
+24159^3130917.121656^2^358^
+"TEMP","DATAO",50.68,356)
+30
+"TEMP","DATAO",50.68,357)
+24159^3130917.121656^17^358^
+"TEMP","DATAO",50.68,358)
+0
+"TEMP","DATAO",50.68,359)
+24159^3130917.121656^3^358^
+"TEMP","DATAO",50.68,360)
+44
+"TEMP","DATAO",50.68,361)
+24159^3130917.121656^4^358^
+"TEMP","DATAO",50.68,362)
+UREA FOAM,TOP
+"TEMP","DATAO",50.68,363)
+24159^3130917.121656^5^358^
+"TEMP","DATAO",50.68,364)
+UREA 30% TOP FOAM
+"TEMP","DATAO",50.68,365)
+24159^3130917.121656^6^358^
+"TEMP","DATAO",50.68,366)
+U0067
+"TEMP","DATAO",50.68,367)
+24159^3130917.121656^7^358^
+"TEMP","DATAO",50.68,368)
+1
+"TEMP","DATAO",50.68,369)
+24159^3130917.121656^8^358^
+"TEMP","DATAO",50.68,370)
+14
+"TEMP","DATAO",50.68,371)
+24159^3130917.121656^15^358^
+"TEMP","DATAO",50.68,372)
+339
+"TEMP","DATAO",50.68,373)
+24159^3130917.121656^19^358^
+"TEMP","DATAO",50.68,374)
+0
+"TEMP","DATAO",50.68,375)
+24159^3130917.121656^20^358^
+"TEMP","DATAO",50.68,376)
+M
+"TEMP","DATAO",50.68,377)
+24159^3130917.121656^23^358^
+"TEMP","DATAO",50.68,378)
+1
+"TEMP","DATAO",50.68,379)
+24159^3130917.121656^31^358^
+"TEMP","DATAO",50.68,380)
+0
+"TEMP","DATAO",50.68,381)
+24159^3130917.121656^40^358^
+"TEMP","DATAO",50.68,382)
+Y
+"TEMP","DATAO",50.68,383)
+24159^3130917.121656^99.98^358^
+"TEMP","DATAO",50.68,384)
+1
+"TEMP","DATAO",50.68,385)
+24159^3130917.121656^99.99^358^
+"TEMP","DATAO",50.68,386)
+4032699
+"TEMP","DATAO",50.68,387)
+24159,1^3130917.121656^99.991,.02^358^
+"TEMP","DATAO",50.68,388)
+1
+"TEMP","DATAO",50.68,389)
+24159^3130917.121657^2000^358^
+"TEMP","DATAO",50.68,390)
+624159
+"TEMP","DATAO",50.68,391)
+24159,1028^3130917.121657^14,1^358^
+"TEMP","DATAO",50.68,392)
+30
+"TEMP","DATAO",50.68,393)
+24159,1028^3130917.121657^14,2^358^
+"TEMP","DATAO",50.68,394)
+44
+"TEMP","DATAO",50.68,395)
+24160^3130917.145446^.05^358^
+"TEMP","DATAO",50.68,396)
+3084
+"TEMP","DATAO",50.68,397)
+24160^3130917.145446^1^358^
+"TEMP","DATAO",50.68,398)
+234
+"TEMP","DATAO",50.68,399)
+24160^3130917.145446^17^358^
+"TEMP","DATAO",50.68,400)
+0
+"TEMP","DATAO",50.68,401)
+24160^3130917.145446^4^358^
+"TEMP","DATAO",50.68,402)
+CATHETER CATHETER
+"TEMP","DATAO",50.68,403)
+24160^3130917.145446^5^358^
+"TEMP","DATAO",50.68,404)
+CATH,SELF-CATH SOFT 10F COLOPLAST #110
+"TEMP","DATAO",50.68,405)
+24160^3130917.145446^6^358^
+"TEMP","DATAO",50.68,406)
+XH378
+"TEMP","DATAO",50.68,407)
+24160^3130917.145446^7^358^
+"TEMP","DATAO",50.68,408)
+1
+"TEMP","DATAO",50.68,409)
+24160^3130917.145446^8^358^
+"TEMP","DATAO",50.68,410)
+5
+"TEMP","DATAO",50.68,411)
+24160^3130917.145446^15^358^
+"TEMP","DATAO",50.68,412)
+490
+"TEMP","DATAO",50.68,413)
+24160^3130917.145446^19^358^
+"TEMP","DATAO",50.68,414)
+0
+"TEMP","DATAO",50.68,415)
+24160^3130917.145446^23^358^
+"TEMP","DATAO",50.68,416)
+1
+"TEMP","DATAO",50.68,417)
+24160^3130917.145446^31^358^
+"TEMP","DATAO",50.68,418)
+0
+"TEMP","DATAO",50.68,419)
+24160^3130917.145446^40^358^
+"TEMP","DATAO",50.68,420)
+Y
+"TEMP","DATAO",50.68,421)
+24160^3130917.145446^99.98^358^
+"TEMP","DATAO",50.68,422)
+1
+"TEMP","DATAO",50.68,423)
+24160^3130917.145446^99.99^358^
+"TEMP","DATAO",50.68,424)
+4032700
+"TEMP","DATAO",50.68,425)
+24160,1^3130917.145446^99.991,.02^358^
+"TEMP","DATAO",50.68,426)
+1
+"TEMP","DATAO",50.68,427)
+24160^3130917.145452^2000^358^
+"TEMP","DATAO",50.68,428)
+624160
+"TEMP","DATAO",50.68,429)
+24161^3130917.145741^.05^358^
+"TEMP","DATAO",50.68,430)
+3084
+"TEMP","DATAO",50.68,431)
+24161^3130917.145741^1^358^
+"TEMP","DATAO",50.68,432)
+234
+"TEMP","DATAO",50.68,433)
+24161^3130917.145741^17^358^
+"TEMP","DATAO",50.68,434)
+0
+"TEMP","DATAO",50.68,435)
+24161^3130917.145741^4^358^
+"TEMP","DATAO",50.68,436)
+CATHETER CATHETER
+"TEMP","DATAO",50.68,437)
+24161^3130917.145741^5^358^
+"TEMP","DATAO",50.68,438)
+CATH,SELF-CATH SOFT 14F COLOPLAST #114
+"TEMP","DATAO",50.68,439)
+24161^3130917.145741^6^358^
+"TEMP","DATAO",50.68,440)
+XH379
+"TEMP","DATAO",50.68,441)
+24161^3130917.145741^7^358^
+"TEMP","DATAO",50.68,442)
+1
+"TEMP","DATAO",50.68,443)
+24161^3130917.145741^8^358^
+"TEMP","DATAO",50.68,444)
+5
+"TEMP","DATAO",50.68,445)
+24161^3130917.145741^15^358^
+"TEMP","DATAO",50.68,446)
+490
+"TEMP","DATAO",50.68,447)
+24161^3130917.145741^19^358^
+"TEMP","DATAO",50.68,448)
+0
+"TEMP","DATAO",50.68,449)
+24161^3130917.145741^23^358^
+"TEMP","DATAO",50.68,450)
+1
+"TEMP","DATAO",50.68,451)
+24161^3130917.145741^31^358^
+"TEMP","DATAO",50.68,452)
+0
+"TEMP","DATAO",50.68,453)
+24161^3130917.145741^40^358^
+"TEMP","DATAO",50.68,454)
+Y
+"TEMP","DATAO",50.68,455)
+24161^3130917.145741^99.98^358^
+"TEMP","DATAO",50.68,456)
+1
+"TEMP","DATAO",50.68,457)
+24161^3130917.145741^99.99^358^
+"TEMP","DATAO",50.68,458)
+4032701
+"TEMP","DATAO",50.68,459)
+24161,1^3130917.145741^99.991,.02^358^
+"TEMP","DATAO",50.68,460)
+1
+"TEMP","DATAO",50.68,461)
+24161^3130917.145746^2000^358^
+"TEMP","DATAO",50.68,462)
+624161
+"TEMP","DATAO",50.68,463)
+24162^3130917.150019^.05^358^
+"TEMP","DATAO",50.68,464)
+3084
+"TEMP","DATAO",50.68,465)
+24162^3130917.150019^1^358^
+"TEMP","DATAO",50.68,466)
+234
+"TEMP","DATAO",50.68,467)
+24162^3130917.150019^17^358^
+"TEMP","DATAO",50.68,468)
+0
+"TEMP","DATAO",50.68,469)
+24162^3130917.150019^4^358^
+"TEMP","DATAO",50.68,470)
+CATHETER CATHETER
+"TEMP","DATAO",50.68,471)
+24162^3130917.150019^5^358^
+"TEMP","DATAO",50.68,472)
+CATH,SELF-CATH SOFT 12F COLOPLAST #112
+"TEMP","DATAO",50.68,473)
+24162^3130917.150019^6^358^
+"TEMP","DATAO",50.68,474)
+XH380
+"TEMP","DATAO",50.68,475)
+24162^3130917.150019^7^358^
+"TEMP","DATAO",50.68,476)
+1
+"TEMP","DATAO",50.68,477)
+24162^3130917.150019^8^358^
+"TEMP","DATAO",50.68,478)
+5
+"TEMP","DATAO",50.68,479)
+24162^3130917.150019^15^358^
+"TEMP","DATAO",50.68,480)
+490
+"TEMP","DATAO",50.68,481)
+24162^3130917.150019^19^358^
+"TEMP","DATAO",50.68,482)
+0
+"TEMP","DATAO",50.68,483)
+24162^3130917.150019^23^358^
+"TEMP","DATAO",50.68,484)
+1
+"TEMP","DATAO",50.68,485)
+24162^3130917.150019^31^358^
+"TEMP","DATAO",50.68,486)
+0
+"TEMP","DATAO",50.68,487)
+24162^3130917.150019^40^358^
+"TEMP","DATAO",50.68,488)
+Y
+"TEMP","DATAO",50.68,489)
+24162^3130917.150019^99.98^358^
+"TEMP","DATAO",50.68,490)
+1
+"TEMP","DATAO",50.68,491)
+24162^3130917.150019^99.99^358^
+"TEMP","DATAO",50.68,492)
+4032702
+"TEMP","DATAO",50.68,493)
+24162,1^3130917.150019^99.991,.02^358^
+"TEMP","DATAO",50.68,494)
+1
+"TEMP","DATAO",50.68,495)
+24162^3130917.150024^2000^358^
+"TEMP","DATAO",50.68,496)
+624162
+"TEMP","DATAO",50.68,497)
+24163^3130917.150203^.05^358^
+"TEMP","DATAO",50.68,498)
+3084
+"TEMP","DATAO",50.68,499)
+24163^3130917.150203^1^358^
+"TEMP","DATAO",50.68,500)
+234
+"TEMP","DATAO",50.68,501)
+24163^3130917.150203^17^358^
+"TEMP","DATAO",50.68,502)
+0
+"TEMP","DATAO",50.68,503)
+24163^3130917.150203^4^358^
+"TEMP","DATAO",50.68,504)
+CATHETER CATHETER
+"TEMP","DATAO",50.68,505)
+24163^3130917.150203^5^358^
+"TEMP","DATAO",50.68,506)
+CATH,SELF-CATH SOFT 16F COLOPLAST #116
+"TEMP","DATAO",50.68,507)
+24163^3130917.150203^6^358^
+"TEMP","DATAO",50.68,508)
+XH381
+"TEMP","DATAO",50.68,509)
+24163^3130917.150203^7^358^
+"TEMP","DATAO",50.68,510)
+1
+"TEMP","DATAO",50.68,511)
+24163^3130917.150203^8^358^
+"TEMP","DATAO",50.68,512)
+5
+"TEMP","DATAO",50.68,513)
+24163^3130917.150203^15^358^
+"TEMP","DATAO",50.68,514)
+490
+"TEMP","DATAO",50.68,515)
+24163^3130917.150203^19^358^
+"TEMP","DATAO",50.68,516)
+0
+"TEMP","DATAO",50.68,517)
+24163^3130917.150203^23^358^
+"TEMP","DATAO",50.68,518)
+1
+"TEMP","DATAO",50.68,519)
+24163^3130917.150203^31^358^
+"TEMP","DATAO",50.68,520)
+0
+"TEMP","DATAO",50.68,521)
+24163^3130917.150203^40^358^
+"TEMP","DATAO",50.68,522)
+Y
+"TEMP","DATAO",50.68,523)
+24163^3130917.150203^99.98^358^
+"TEMP","DATAO",50.68,524)
+1
+"TEMP","DATAO",50.68,525)
+24163^3130917.150203^99.99^358^
+"TEMP","DATAO",50.68,526)
+4032703
+"TEMP","DATAO",50.68,527)
+24163,1^3130917.150203^99.991,.02^358^
+"TEMP","DATAO",50.68,528)
+1
+"TEMP","DATAO",50.68,529)
+24163^3130917.150208^2000^358^
+"TEMP","DATAO",50.68,530)
+624163
+"TEMP","DATAO",50.68,531)
+24164^3130917.161116^.05^358^
+"TEMP","DATAO",50.68,532)
+4840
+"TEMP","DATAO",50.68,533)
+24164^3130917.161116^1^358^
+"TEMP","DATAO",50.68,534)
+84
+"TEMP","DATAO",50.68,535)
+24164^3130917.161116^2^358^
+"TEMP","DATAO",50.68,536)
+0.5
+"TEMP","DATAO",50.68,537)
+24164^3130917.161116^17^358^
+"TEMP","DATAO",50.68,538)
+1
+"TEMP","DATAO",50.68,539)
+24164^3130917.161116^3^358^
+"TEMP","DATAO",50.68,540)
+953
+"TEMP","DATAO",50.68,541)
+24164^3130917.161116^4^358^
+"TEMP","DATAO",50.68,542)
+GADOTERATE MEGLUMINE INJ,SOLN
+"TEMP","DATAO",50.68,543)
+24164^3130917.161116^5^358^
+"TEMP","DATAO",50.68,544)
+GADOTERATE MEGLUMINE 0.5MMOL/ML INJ SOLN
+"TEMP","DATAO",50.68,545)
+24164^3130917.161116^6^358^
+"TEMP","DATAO",50.68,546)
+G0394
+"TEMP","DATAO",50.68,547)
+24164^3130917.161116^7^358^
+"TEMP","DATAO",50.68,548)
+0
+"TEMP","DATAO",50.68,549)
+24164^3130917.161116^8^358^
+"TEMP","DATAO",50.68,550)
+2
+"TEMP","DATAO",50.68,551)
+24164^3130917.161116^15^358^
+"TEMP","DATAO",50.68,552)
+112
+"TEMP","DATAO",50.68,553)
+24164^3130917.161116^19^358^
+"TEMP","DATAO",50.68,554)
+0
+"TEMP","DATAO",50.68,555)
+24164^3130917.161116^20^358^
+"TEMP","DATAO",50.68,556)
+S
+"TEMP","DATAO",50.68,557)
+24164^3130917.161116^31^358^
+"TEMP","DATAO",50.68,558)
+1
+"TEMP","DATAO",50.68,559)
+24164^3130917.161116^40^358^
+"TEMP","DATAO",50.68,560)
+N
+"TEMP","DATAO",50.68,561)
+24164^3130917.161116^41^358^
+"TEMP","DATAO",50.68,562)
+N
+"TEMP","DATAO",50.68,563)
+24164^3130917.161116^99.98^358^
+"TEMP","DATAO",50.68,564)
+1
+"TEMP","DATAO",50.68,565)
+24164^3130917.161116^99.99^358^
+"TEMP","DATAO",50.68,566)
+4032704
+"TEMP","DATAO",50.68,567)
+24164,1^3130917.161116^99.991,.02^358^
+"TEMP","DATAO",50.68,568)
+1
+"TEMP","DATAO",50.68,569)
+24164^3130917.161119^2000^358^
+"TEMP","DATAO",50.68,570)
+624164
+"TEMP","DATAO",50.68,571)
+24164,4879^3130917.161119^14,1^358^
+"TEMP","DATAO",50.68,572)
+0.5
+"TEMP","DATAO",50.68,573)
+24164,4879^3130917.161119^14,2^358^
+"TEMP","DATAO",50.68,574)
+953
+"TEMP","DATAO",50.68,575)
+24165^3130917.161508^.05^358^
+"TEMP","DATAO",50.68,576)
+141
+"TEMP","DATAO",50.68,577)
+24165^3130917.161508^1^358^
+"TEMP","DATAO",50.68,578)
+26
+"TEMP","DATAO",50.68,579)
+24165^3130917.161508^17^358^
+"TEMP","DATAO",50.68,580)
+1
+"TEMP","DATAO",50.68,581)
+24165^3130917.161508^4^358^
+"TEMP","DATAO",50.68,582)
+INFLUENZA INJ
+"TEMP","DATAO",50.68,583)
+24165^3130917.161508^5^358^
+"TEMP","DATAO",50.68,584)
+INFLUENZA VACCINE,QUAD VIL 5ML
+"TEMP","DATAO",50.68,585)
+24165^3130917.161508^6^358^
+"TEMP","DATAO",50.68,586)
+I0567
+"TEMP","DATAO",50.68,587)
+24165^3130917.161508^7^358^
+"TEMP","DATAO",50.68,588)
+0
+"TEMP","DATAO",50.68,589)
+24165^3130917.161508^8^358^
+"TEMP","DATAO",50.68,590)
+2
+"TEMP","DATAO",50.68,591)
+24165^3130917.161508^15^358^
+"TEMP","DATAO",50.68,592)
+141
+"TEMP","DATAO",50.68,593)
+24165^3130917.161508^42^358^
+"TEMP","DATAO",50.68,594)
+IO
+"TEMP","DATAO",50.68,595)
+24165^3130917.161508^19^358^
+"TEMP","DATAO",50.68,596)
+0
+"TEMP","DATAO",50.68,597)
+24165^3130917.161508^20^358^
+"TEMP","DATAO",50.68,598)
+S
+"TEMP","DATAO",50.68,599)
+24165^3130917.161508^31^358^
+"TEMP","DATAO",50.68,600)
+0
+"TEMP","DATAO",50.68,601)
+24165^3130917.161508^40^358^
+"TEMP","DATAO",50.68,602)
+N
+"TEMP","DATAO",50.68,603)
+24165^3130917.161508^41^358^
+"TEMP","DATAO",50.68,604)
+O
+"TEMP","DATAO",50.68,605)
+24165^3130917.161508^99.98^358^
+"TEMP","DATAO",50.68,606)
+1
+"TEMP","DATAO",50.68,607)
+24165^3130917.161508^99.99^358^
+"TEMP","DATAO",50.68,608)
+4032705
+"TEMP","DATAO",50.68,609)
+24165,1^3130917.161508^99.991,.02^358^
+"TEMP","DATAO",50.68,610)
+1
+"TEMP","DATAO",50.68,611)
+24165^3130917.161509^2000^358^
+"TEMP","DATAO",50.68,612)
+624165
+"TEMP","DATAO",50.68,613)
+18071^3130917.161549^21^358^
+"TEMP","DATAO",50.68,614)
+3130917
+"TEMP","DATAO",50.68,615)
+24166^3130918.091201^.05^358^
+"TEMP","DATAO",50.68,616)
+3176
+"TEMP","DATAO",50.68,617)
+24166^3130918.091201^1^358^
+"TEMP","DATAO",50.68,618)
+211
+"TEMP","DATAO",50.68,619)
+24166^3130918.091201^17^358^
+"TEMP","DATAO",50.68,620)
+0
+"TEMP","DATAO",50.68,621)
+24166^3130918.091201^4^358^
+"TEMP","DATAO",50.68,622)
+BAG BAG
+"TEMP","DATAO",50.68,623)
+24166^3130918.091201^5^358^
+"TEMP","DATAO",50.68,624)
+FEEDING BAG W/PUMP SET COVIDIEN #773662
+"TEMP","DATAO",50.68,625)
+24166^3130918.091201^6^358^
+"TEMP","DATAO",50.68,626)
+XH382
+"TEMP","DATAO",50.68,627)
+24166^3130918.091201^7^358^
+"TEMP","DATAO",50.68,628)
+1
+"TEMP","DATAO",50.68,629)
+24166^3130918.091201^8^358^
+"TEMP","DATAO",50.68,630)
+5
+"TEMP","DATAO",50.68,631)
+24166^3130918.091201^15^358^
+"TEMP","DATAO",50.68,632)
+500
+"TEMP","DATAO",50.68,633)
+24166^3130918.091201^19^358^
+"TEMP","DATAO",50.68,634)
+0
+"TEMP","DATAO",50.68,635)
+24166^3130918.091201^23^358^
+"TEMP","DATAO",50.68,636)
+1
+"TEMP","DATAO",50.68,637)
+24166^3130918.091201^31^358^
+"TEMP","DATAO",50.68,638)
+0
+"TEMP","DATAO",50.68,639)
+24166^3130918.091201^40^358^
+"TEMP","DATAO",50.68,640)
+Y
+"TEMP","DATAO",50.68,641)
+24166^3130918.091201^99.98^358^
+"TEMP","DATAO",50.68,642)
+1
+"TEMP","DATAO",50.68,643)
+24166^3130918.091201^99.99^358^
+"TEMP","DATAO",50.68,644)
+4032706
+"TEMP","DATAO",50.68,645)
+24166,1^3130918.091201^99.991,.02^358^
+"TEMP","DATAO",50.68,646)
+1
+"TEMP","DATAO",50.68,647)
+24166^3130918.091202^2000^358^
+"TEMP","DATAO",50.68,648)
+624166
+"TEMP","DATAO",50.68,649)
+16870^3130918.091338^21^358^
+"TEMP","DATAO",50.68,650)
+3130918
+"TEMP","DATAO",50.68,651)
+11518^3130918.091808^21^358^
+"TEMP","DATAO",50.68,652)
+3130918
+"TEMP","DATAO",50.68,653)
+24167^3130918.09181^.05^358^
+"TEMP","DATAO",50.68,654)
+4840
+"TEMP","DATAO",50.68,655)
+24167^3130918.09181^1^358^
+"TEMP","DATAO",50.68,656)
+84
+"TEMP","DATAO",50.68,657)
+24167^3130918.09181^2^358^
+"TEMP","DATAO",50.68,658)
+0.5
+"TEMP","DATAO",50.68,659)
+24167^3130918.09181^17^358^
+"TEMP","DATAO",50.68,660)
+1
+"TEMP","DATAO",50.68,661)
+24167^3130918.09181^3^358^
+"TEMP","DATAO",50.68,662)
+953
+"TEMP","DATAO",50.68,663)
+24167^3130918.09181^4^358^
+"TEMP","DATAO",50.68,664)
+GADOTERATE MEGLUMINE INJ,SOLN
+"TEMP","DATAO",50.68,665)
+24167^3130918.09181^5^358^
+"TEMP","DATAO",50.68,666)
+GADOTERATE MEGL 0.5MMOL/ML INJ SYR 15ML
+"TEMP","DATAO",50.68,667)
+24167^3130918.09181^6^358^
+"TEMP","DATAO",50.68,668)
+G0395
+"TEMP","DATAO",50.68,669)
+24167^3130918.09181^7^358^
+"TEMP","DATAO",50.68,670)
+0
+"TEMP","DATAO",50.68,671)
+24167^3130918.09181^8^358^
+"TEMP","DATAO",50.68,672)
+29
+"TEMP","DATAO",50.68,673)
+24167^3130918.09181^15^358^
+"TEMP","DATAO",50.68,674)
+112
+"TEMP","DATAO",50.68,675)
+24167^3130918.09181^19^358^
+"TEMP","DATAO",50.68,676)
+0
+"TEMP","DATAO",50.68,677)
+24167^3130918.09181^20^358^
+"TEMP","DATAO",50.68,678)
+S
+"TEMP","DATAO",50.68,679)
+24167^3130918.09181^31^358^
+"TEMP","DATAO",50.68,680)
+1
+"TEMP","DATAO",50.68,681)
+24167^3130918.09181^40^358^
+"TEMP","DATAO",50.68,682)
+N
+"TEMP","DATAO",50.68,683)
+24167^3130918.09181^41^358^
+"TEMP","DATAO",50.68,684)
+N
+"TEMP","DATAO",50.68,685)
+24167^3130918.09181^99.98^358^
+"TEMP","DATAO",50.68,686)
+1
+"TEMP","DATAO",50.68,687)
+24167^3130918.09181^99.99^358^
+"TEMP","DATAO",50.68,688)
+4032707
+"TEMP","DATAO",50.68,689)
+24167,1^3130918.09181^99.991,.02^358^
+"TEMP","DATAO",50.68,690)
+1
+"TEMP","DATAO",50.68,691)
+24167^3130918.091811^2000^358^
+"TEMP","DATAO",50.68,692)
+624167
+"TEMP","DATAO",50.68,693)
+24167,4879^3130918.091811^14,1^358^
+"TEMP","DATAO",50.68,694)
+0.5
+"TEMP","DATAO",50.68,695)
+24167,4879^3130918.091811^14,2^358^
+"TEMP","DATAO",50.68,696)
+953
+"TEMP","DATAO",50.68,697)
+11519^3130918.091946^21^358^
+"TEMP","DATAO",50.68,698)
+3130918
+"TEMP","DATAO",50.68,699)
+24168^3130918.091948^.05^358^
+"TEMP","DATAO",50.68,700)
+4840
+"TEMP","DATAO",50.68,701)
+24168^3130918.091948^1^358^
+"TEMP","DATAO",50.68,702)
+84
+"TEMP","DATAO",50.68,703)
+24168^3130918.091948^2^358^
+"TEMP","DATAO",50.68,704)
+0.5
+"TEMP","DATAO",50.68,705)
+24168^3130918.091948^17^358^
+"TEMP","DATAO",50.68,706)
+1
+"TEMP","DATAO",50.68,707)
+24168^3130918.091948^3^358^
+"TEMP","DATAO",50.68,708)
+953
+"TEMP","DATAO",50.68,709)
+24168^3130918.091948^4^358^
+"TEMP","DATAO",50.68,710)
+GADOTERATE MEGLUMINE INJ,SOLN
+"TEMP","DATAO",50.68,711)
+24168^3130918.091948^5^358^
+"TEMP","DATAO",50.68,712)
+GADOTERATE MEGL 0.5MMOL/ML INJ SYR 20ML
+"TEMP","DATAO",50.68,713)
+24168^3130918.091948^6^358^
+"TEMP","DATAO",50.68,714)
+G0396
+"TEMP","DATAO",50.68,715)
+24168^3130918.091948^7^358^
+"TEMP","DATAO",50.68,716)
+0
+"TEMP","DATAO",50.68,717)
+24168^3130918.091948^8^358^
+"TEMP","DATAO",50.68,718)
+29
+"TEMP","DATAO",50.68,719)
+24168^3130918.091948^15^358^
+"TEMP","DATAO",50.68,720)
+112
+"TEMP","DATAO",50.68,721)
+24168^3130918.091948^19^358^
+"TEMP","DATAO",50.68,722)
+0
+"TEMP","DATAO",50.68,723)
+24168^3130918.091948^20^358^
+"TEMP","DATAO",50.68,724)
+S
+"TEMP","DATAO",50.68,725)
+24168^3130918.091948^31^358^
+"TEMP","DATAO",50.68,726)
+1
+"TEMP","DATAO",50.68,727)
+24168^3130918.091948^40^358^
+"TEMP","DATAO",50.68,728)
+N
+"TEMP","DATAO",50.68,729)
+24168^3130918.091948^41^358^
+"TEMP","DATAO",50.68,730)
+N
+"TEMP","DATAO",50.68,731)
+24168^3130918.091948^99.98^358^
+"TEMP","DATAO",50.68,732)
+1
+"TEMP","DATAO",50.68,733)
+24168^3130918.091948^99.99^358^
+"TEMP","DATAO",50.68,734)
+4032708
+"TEMP","DATAO",50.68,735)
+24168,1^3130918.091948^99.991,.02^358^
+"TEMP","DATAO",50.68,736)
+1
+"TEMP","DATAO",50.68,737)
+24168^3130918.091948^2000^358^
+"TEMP","DATAO",50.68,738)
+624168
+"TEMP","DATAO",50.68,739)
+24168,4879^3130918.091948^14,1^358^
+"TEMP","DATAO",50.68,740)
+0.5
+"TEMP","DATAO",50.68,741)
+24168,4879^3130918.091948^14,2^358^
+"TEMP","DATAO",50.68,742)
+953
+"TEMP","DATAO",50.68,743)
+11520^3130918.092128^21^358^
+"TEMP","DATAO",50.68,744)
+3130918
+"TEMP","DATAO",50.68,745)
+11521^3130918.092301^21^358^
+"TEMP","DATAO",50.68,746)
+3130918
+"TEMP","DATAO",50.68,747)
+24169^3130918.092419^.05^358^
+"TEMP","DATAO",50.68,748)
+4840
+"TEMP","DATAO",50.68,749)
+24169^3130918.092419^1^358^
+"TEMP","DATAO",50.68,750)
+84
+"TEMP","DATAO",50.68,751)
+24169^3130918.092419^2^358^
+"TEMP","DATAO",50.68,752)
+0.5
+"TEMP","DATAO",50.68,753)
+24169^3130918.092419^17^358^
+"TEMP","DATAO",50.68,754)
+1
+"TEMP","DATAO",50.68,755)
+24169^3130918.092419^3^358^
+"TEMP","DATAO",50.68,756)
+953
+"TEMP","DATAO",50.68,757)
+24169^3130918.092419^4^358^
+"TEMP","DATAO",50.68,758)
+GADOTERATE MEGLUMINE INJ,SOLN
+"TEMP","DATAO",50.68,759)
+24169^3130918.092419^5^358^
+"TEMP","DATAO",50.68,760)
+GADOTERATE MEGL 0.5MMOL/ML INJ SYR 10ML
+"TEMP","DATAO",50.68,761)
+24169^3130918.092419^6^358^
+"TEMP","DATAO",50.68,762)
+G0397
+"TEMP","DATAO",50.68,763)
+24169^3130918.092419^7^358^
+"TEMP","DATAO",50.68,764)
+0
+"TEMP","DATAO",50.68,765)
+24169^3130918.092419^8^358^
+"TEMP","DATAO",50.68,766)
+29
+"TEMP","DATAO",50.68,767)
+24169^3130918.092419^15^358^
+"TEMP","DATAO",50.68,768)
+112
+"TEMP","DATAO",50.68,769)
+24169^3130918.092419^19^358^
+"TEMP","DATAO",50.68,770)
+0
+"TEMP","DATAO",50.68,771)
+24169^3130918.092419^20^358^
+"TEMP","DATAO",50.68,772)
+S
+"TEMP","DATAO",50.68,773)
+24169^3130918.092419^31^358^
+"TEMP","DATAO",50.68,774)
+1
+"TEMP","DATAO",50.68,775)
+24169^3130918.092419^40^358^
+"TEMP","DATAO",50.68,776)
+N
+"TEMP","DATAO",50.68,777)
+24169^3130918.092419^41^358^
+"TEMP","DATAO",50.68,778)
+N
+"TEMP","DATAO",50.68,779)
+24169^3130918.092419^99.98^358^
+"TEMP","DATAO",50.68,780)
+1
+"TEMP","DATAO",50.68,781)
+24169^3130918.092419^99.99^358^
+"TEMP","DATAO",50.68,782)
+4032709
+"TEMP","DATAO",50.68,783)
+24169,1^3130918.092419^99.991,.02^358^
+"TEMP","DATAO",50.68,784)
+1
+"TEMP","DATAO",50.68,785)
+24169^3130918.092419^2000^358^
+"TEMP","DATAO",50.68,786)
+624169
+"TEMP","DATAO",50.68,787)
+24169,4879^3130918.092419^14,1^358^
+"TEMP","DATAO",50.68,788)
+0.5
+"TEMP","DATAO",50.68,789)
+24169,4879^3130918.092419^14,2^358^
+"TEMP","DATAO",50.68,790)
+953
+"TEMP","DATAO",50.68,791)
+14666^3130918.092442^7^358^
+"TEMP","DATAO",50.68,792)
+0
+"TEMP","DATAO",50.68,793)
+24170^3130918.0928^.05^358^
+"TEMP","DATAO",50.68,794)
+2151
+"TEMP","DATAO",50.68,795)
+24170^3130918.0928^1^358^
+"TEMP","DATAO",50.68,796)
+135
+"TEMP","DATAO",50.68,797)
+24170^3130918.0928^2^358^
+"TEMP","DATAO",50.68,798)
+0.035
+"TEMP","DATAO",50.68,799)
+24170^3130918.0928^17^358^
+"TEMP","DATAO",50.68,800)
+0
+"TEMP","DATAO",50.68,801)
+24170^3130918.0928^3^358^
+"TEMP","DATAO",50.68,802)
+44
+"TEMP","DATAO",50.68,803)
+24170^3130918.0928^4^358^
+"TEMP","DATAO",50.68,804)
+CAPSAICIN LOTION,TOP
+"TEMP","DATAO",50.68,805)
+24170^3130918.0928^5^358^
+"TEMP","DATAO",50.68,806)
+CAPSAICIN 0.035% LOTION
+"TEMP","DATAO",50.68,807)
+24170^3130918.0928^6^358^
+"TEMP","DATAO",50.68,808)
+C1588
+"TEMP","DATAO",50.68,809)
+24170^3130918.0928^7^358^
+"TEMP","DATAO",50.68,810)
+1
+"TEMP","DATAO",50.68,811)
+24170^3130918.0928^8^358^
+"TEMP","DATAO",50.68,812)
+2
+"TEMP","DATAO",50.68,813)
+24170^3130918.0928^15^358^
+"TEMP","DATAO",50.68,814)
+341
+"TEMP","DATAO",50.68,815)
+24170^3130918.0928^19^358^
+"TEMP","DATAO",50.68,816)
+0
+"TEMP","DATAO",50.68,817)
+24170^3130918.0928^20^358^
+"TEMP","DATAO",50.68,818)
+M
+"TEMP","DATAO",50.68,819)
+24170^3130918.0928^23^358^
+"TEMP","DATAO",50.68,820)
+1
+"TEMP","DATAO",50.68,821)
+24170^3130918.0928^31^358^
+"TEMP","DATAO",50.68,822)
+0
+"TEMP","DATAO",50.68,823)
+24170^3130918.0928^40^358^
+"TEMP","DATAO",50.68,824)
+Y
+"TEMP","DATAO",50.68,825)
+24170^3130918.0928^99.98^358^
+"TEMP","DATAO",50.68,826)
+1
+"TEMP","DATAO",50.68,827)
+24170^3130918.0928^99.99^358^
+"TEMP","DATAO",50.68,828)
+4032710
+"TEMP","DATAO",50.68,829)
+24170,1^3130918.0928^99.991,.02^358^
+"TEMP","DATAO",50.68,830)
+1
+"TEMP","DATAO",50.68,831)
+24170^3130918.092801^2000^358^
+"TEMP","DATAO",50.68,832)
+624170
+"TEMP","DATAO",50.68,833)
+24170,2120^3130918.092801^14,1^358^
+"TEMP","DATAO",50.68,834)
+0.035
+"TEMP","DATAO",50.68,835)
+24170,2120^3130918.092801^14,2^358^
+"TEMP","DATAO",50.68,836)
+44
+"TEMP","DATAO",50.68,837)
+19301^3130918.105641^7^358^
+"TEMP","DATAO",50.68,838)
+0
+"TEMP","DATAO",50.68,839)
+19301,2302^3130918.105642^14,1^358^
+"TEMP","DATAO",50.68,840)
+1
+"TEMP","DATAO",50.68,841)
+19301,2302^3130918.105642^14,2^358^
+"TEMP","DATAO",50.68,842)
+44
+"TEMP","DATAO",50.68,843)
+19301,1161^3130918.105642^14,1^358^
+"TEMP","DATAO",50.68,844)
+5
+"TEMP","DATAO",50.68,845)
+19301,1161^3130918.105642^14,2^358^
+"TEMP","DATAO",50.68,846)
+44
+"TEMP","DATAO",50.68,847)
+4544^3130918.105714^7^358^
+"TEMP","DATAO",50.68,848)
+0
+"TEMP","DATAO",50.68,849)
+4544,130^3130918.105717^14,1^358^
+"TEMP","DATAO",50.68,850)
+100
+"TEMP","DATAO",50.68,851)
+4544,130^3130918.105717^14,2^358^
+"TEMP","DATAO",50.68,852)
+20
+"TEMP","DATAO",50.68,853)
+4544,1113^3130918.105717^14,1^358^
+"TEMP","DATAO",50.68,854)
+1
+"TEMP","DATAO",50.68,855)
+4544,1113^3130918.105717^14,2^358^
+"TEMP","DATAO",50.68,856)
+20
+"TEMP","DATAO",50.68,857)
+6299^3130918.105801^7^358^
+"TEMP","DATAO",50.68,858)
+0
+"TEMP","DATAO",50.68,859)
+6299,1447^3130918.105804^14,1^358^
+"TEMP","DATAO",50.68,860)
+300
+"TEMP","DATAO",50.68,861)
+6299,1447^3130918.105804^14,2^358^
+"TEMP","DATAO",50.68,862)
+32
+"TEMP","DATAO",50.68,863)
+18203^3130918.105847^7^358^
+"TEMP","DATAO",50.68,864)
+0
+"TEMP","DATAO",50.68,865)
+1727^3130918.120956^7^358^
+"TEMP","DATAO",50.68,866)
+0
+"TEMP","DATAO",50.68,867)
+1727,420^3130918.120956^14,1^358^
+"TEMP","DATAO",50.68,868)
+5
+"TEMP","DATAO",50.68,869)
+1727,420^3130918.120956^14,2^358^
+"TEMP","DATAO",50.68,870)
+20
+"TEMP","DATAO",50.68,871)
+20853^3130918.12103^7^358^
+"TEMP","DATAO",50.68,872)
+0
+"TEMP","DATAO",50.68,873)
+21052^3130918.121116^7^358^
+"TEMP","DATAO",50.68,874)
+0
+"TEMP","DATAO",50.68,875)
+23311^3130918.121155^7^358^
+"TEMP","DATAO",50.68,876)
+0
+"TEMP","DATAO",50.68,877)
+23311,2097^3130918.121156^14,1^358^
+"TEMP","DATAO",50.68,878)
+450
+"TEMP","DATAO",50.68,879)
+23311,2097^3130918.121156^14,2^358^
+"TEMP","DATAO",50.68,880)
+20
+"TEMP","DATAO",50.68,881)
+20257^3130919.07474^21^358^
+"TEMP","DATAO",50.68,882)
+3130919
+"TEMP","DATAO",50.68,883)
+24171^3130919.112414^.05^358^
+"TEMP","DATAO",50.68,884)
+3040
+"TEMP","DATAO",50.68,885)
+24171^3130919.112414^1^358^
+"TEMP","DATAO",50.68,886)
+209
+"TEMP","DATAO",50.68,887)
+24171^3130919.112414^17^358^
+"TEMP","DATAO",50.68,888)
+0
+"TEMP","DATAO",50.68,889)
+24171^3130919.112414^4^358^
+"TEMP","DATAO",50.68,890)
+POUCH,OSTOMY POUCH
+"TEMP","DATAO",50.68,891)
+24171^3130919.112414^5^358^
+"TEMP","DATAO",50.68,892)
+POUCH,DRAINABLE,MICROSKIN CYMED #78422
+"TEMP","DATAO",50.68,893)
+24171^3130919.112414^6^358^
+"TEMP","DATAO",50.68,894)
+XH383
+"TEMP","DATAO",50.68,895)
+24171^3130919.112414^7^358^
+"TEMP","DATAO",50.68,896)
+1
+"TEMP","DATAO",50.68,897)
+24171^3130919.112414^8^358^
+"TEMP","DATAO",50.68,898)
+5
+"TEMP","DATAO",50.68,899)
+24171^3130919.112414^15^358^
+"TEMP","DATAO",50.68,900)
+466
+"TEMP","DATAO",50.68,901)
+24171^3130919.112414^19^358^
+"TEMP","DATAO",50.68,902)
+0
+"TEMP","DATAO",50.68,903)
+24171^3130919.112414^23^358^
+"TEMP","DATAO",50.68,904)
+1
+"TEMP","DATAO",50.68,905)
+24171^3130919.112414^31^358^
+"TEMP","DATAO",50.68,906)
+0
+"TEMP","DATAO",50.68,907)
+24171^3130919.112414^40^358^
+"TEMP","DATAO",50.68,908)
+Y
+"TEMP","DATAO",50.68,909)
+24171^3130919.112414^99.98^358^
+"TEMP","DATAO",50.68,910)
+1
+"TEMP","DATAO",50.68,911)
+24171^3130919.112414^99.99^358^
+"TEMP","DATAO",50.68,912)
+4032711
+"TEMP","DATAO",50.68,913)
+24171,1^3130919.112414^99.991,.02^358^
+"TEMP","DATAO",50.68,914)
+1
+"TEMP","DATAO",50.68,915)
+24171^3130919.112421^2000^358^
+"TEMP","DATAO",50.68,916)
+624171
+"TEMP","DATAO",50.68,917)
+24172^3130919.112739^.05^358^
+"TEMP","DATAO",50.68,918)
+1167
+"TEMP","DATAO",50.68,919)
+24172^3130919.112739^1^358^
+"TEMP","DATAO",50.68,920)
+145
+"TEMP","DATAO",50.68,921)
+24172^3130919.112739^2^358^
+"TEMP","DATAO",50.68,922)
+3
+"TEMP","DATAO",50.68,923)
+24172^3130919.112739^17^358^
+"TEMP","DATAO",50.68,924)
+0
+"TEMP","DATAO",50.68,925)
+24172^3130919.112739^3^358^
+"TEMP","DATAO",50.68,926)
+44
+"TEMP","DATAO",50.68,927)
+24172^3130919.112739^4^358^
+"TEMP","DATAO",50.68,928)
+OXYBUTYNIN CHLORIDE GEL,TOP
+"TEMP","DATAO",50.68,929)
+24172^3130919.112739^5^358^
+"TEMP","DATAO",50.68,930)
+OXYBUTYNIN CL 3% TOP GEL
+"TEMP","DATAO",50.68,931)
+24172^3130919.112739^6^358^
+"TEMP","DATAO",50.68,932)
+O0344
+"TEMP","DATAO",50.68,933)
+24172^3130919.112739^7^358^
+"TEMP","DATAO",50.68,934)
+1
+"TEMP","DATAO",50.68,935)
+24172^3130919.112739^8^358^
+"TEMP","DATAO",50.68,936)
+14
+"TEMP","DATAO",50.68,937)
+24172^3130919.112739^15^358^
+"TEMP","DATAO",50.68,938)
+371
+"TEMP","DATAO",50.68,939)
+24172^3130919.112739^19^358^
+"TEMP","DATAO",50.68,940)
+0
+"TEMP","DATAO",50.68,941)
+24172^3130919.112739^20^358^
+"TEMP","DATAO",50.68,942)
+M
+"TEMP","DATAO",50.68,943)
+24172^3130919.112739^31^358^
+"TEMP","DATAO",50.68,944)
+0
+"TEMP","DATAO",50.68,945)
+24172^3130919.112739^40^358^
+"TEMP","DATAO",50.68,946)
+Y
+"TEMP","DATAO",50.68,947)
+24172^3130919.112739^99.98^358^
+"TEMP","DATAO",50.68,948)
+1
+"TEMP","DATAO",50.68,949)
+24172^3130919.112739^99.99^358^
+"TEMP","DATAO",50.68,950)
+4032712
+"TEMP","DATAO",50.68,951)
+24172,1^3130919.11274^99.991,.02^358^
+"TEMP","DATAO",50.68,952)
+1
+"TEMP","DATAO",50.68,953)
+24172^3130919.112741^2000^358^
+"TEMP","DATAO",50.68,954)
+624172
+"TEMP","DATAO",50.68,955)
+24172,1417^3130919.112741^14,1^358^
+"TEMP","DATAO",50.68,956)
+3
+"TEMP","DATAO",50.68,957)
+24172,1417^3130919.112741^14,2^358^
+"TEMP","DATAO",50.68,958)
+44
+"TEMP","DATAO",50.68,959)
+24173^3130919.131048^.05^358^
+"TEMP","DATAO",50.68,960)
+4795
+"TEMP","DATAO",50.68,961)
+24173^3130919.131048^1^358^
+"TEMP","DATAO",50.68,962)
+139
+"TEMP","DATAO",50.68,963)
+24173^3130919.131048^17^358^
+"TEMP","DATAO",50.68,964)
+0
+"TEMP","DATAO",50.68,965)
+24173^3130919.131048^4^358^
+"TEMP","DATAO",50.68,966)
+CAPSAICIN/ LIDOCAINE/MENTHOL/METHYL SAL CREAM,TOP
+"TEMP","DATAO",50.68,967)
+24173^3130919.131048^5^358^
+"TEMP","DATAO",50.68,968)
+CAPSAICIN/LIDOCAINE/MENTHOL/M-SALIC CRM
+"TEMP","DATAO",50.68,969)
+24173^3130919.131048^6^358^
+"TEMP","DATAO",50.68,970)
+C1589
+"TEMP","DATAO",50.68,971)
+24173^3130919.131048^7^358^
+"TEMP","DATAO",50.68,972)
+1
+"TEMP","DATAO",50.68,973)
+24173^3130919.131048^8^358^
+"TEMP","DATAO",50.68,974)
+14
+"TEMP","DATAO",50.68,975)
+24173^3130919.131048^15^358^
+"TEMP","DATAO",50.68,976)
+341
+"TEMP","DATAO",50.68,977)
+24173^3130919.131048^19^358^
+"TEMP","DATAO",50.68,978)
+0
+"TEMP","DATAO",50.68,979)
+24173^3130919.131048^20^358^
+"TEMP","DATAO",50.68,980)
+M
+"TEMP","DATAO",50.68,981)
+24173^3130919.131048^31^358^
+"TEMP","DATAO",50.68,982)
+0
+"TEMP","DATAO",50.68,983)
+24173^3130919.131048^40^358^
+"TEMP","DATAO",50.68,984)
+Y
+"TEMP","DATAO",50.68,985)
+24173^3130919.131048^99.98^358^
+"TEMP","DATAO",50.68,986)
+1
+"TEMP","DATAO",50.68,987)
+24173^3130919.131048^99.99^358^
+"TEMP","DATAO",50.68,988)
+4032713
+"TEMP","DATAO",50.68,989)
+24173,1^3130919.131049^99.991,.02^358^
+"TEMP","DATAO",50.68,990)
+1
+"TEMP","DATAO",50.68,991)
+24173^3130919.13105^2000^358^
+"TEMP","DATAO",50.68,992)
+624173
+"TEMP","DATAO",50.68,993)
+24174^3130920.115723^.05^358^
+"TEMP","DATAO",50.68,994)
+2384
+"TEMP","DATAO",50.68,995)
+24174^3130920.115723^1^358^
+"TEMP","DATAO",50.68,996)
+63
+"TEMP","DATAO",50.68,997)
+24174^3130920.115723^2^358^
+"TEMP","DATAO",50.68,998)
+250
+"TEMP","DATAO",50.68,999)
+24174^3130920.115723^17^358^
+"TEMP","DATAO",50.68,1000)
+0
+"TEMP","DATAO",50.68,1001)
+24174^3130920.115723^3^358^
+"TEMP","DATAO",50.68,1002)
+20
+"TEMP","DATAO",50.68,1003)
+24174^3130920.115723^4^358^
+"TEMP","DATAO",50.68,1004)
+CALCIUM CITRATE TAB
+"TEMP","DATAO",50.68,1005)
+24174^3130920.115723^5^358^
+"TEMP","DATAO",50.68,1006)
+CALCIUM 250MG (CA CITRATE-1187MG) TAB
+"TEMP","DATAO",50.68,1007)
+24174^3130920.115723^6^358^
+"TEMP","DATAO",50.68,1008)
+C1590
+"TEMP","DATAO",50.68,1009)
+24174^3130920.115723^7^358^
+"TEMP","DATAO",50.68,1010)
+1
+"TEMP","DATAO",50.68,1011)
+24174^3130920.115723^8^358^
+"TEMP","DATAO",50.68,1012)
+1
+"TEMP","DATAO",50.68,1013)
+24174^3130920.115723^15^358^
+"TEMP","DATAO",50.68,1014)
+407
+"TEMP","DATAO",50.68,1015)
+24174^3130920.115723^19^358^
+"TEMP","DATAO",50.68,1016)
+0
+"TEMP","DATAO",50.68,1017)
+24174^3130920.115723^20^358^
+"TEMP","DATAO",50.68,1018)
+M
+"TEMP","DATAO",50.68,1019)
+24174^3130920.115723^31^358^
+"TEMP","DATAO",50.68,1020)
+0
+"TEMP","DATAO",50.68,1021)
+24174^3130920.115723^40^358^
+"TEMP","DATAO",50.68,1022)
+Y
+"TEMP","DATAO",50.68,1023)
+24174^3130920.115723^99.98^358^
+"TEMP","DATAO",50.68,1024)
+1
+"TEMP","DATAO",50.68,1025)
+24174^3130920.115723^99.99^358^
+"TEMP","DATAO",50.68,1026)
+4032714
+"TEMP","DATAO",50.68,1027)
+24174,1^3130920.115724^99.991,.02^358^
+"TEMP","DATAO",50.68,1028)
+1
+"TEMP","DATAO",50.68,1029)
+24174^3130920.115725^2000^358^
+"TEMP","DATAO",50.68,1030)
+624174
+"TEMP","DATAO",50.68,1031)
+24174,2093^3130920.115725^14,1^358^
+"TEMP","DATAO",50.68,1032)
+1187
+"TEMP","DATAO",50.68,1033)
+24174,2093^3130920.115725^14,2^358^
+"TEMP","DATAO",50.68,1034)
+20
+"TEMP","DATAO",50.68,1035)
+24175^3130920.141828^.05^358^
+"TEMP","DATAO",50.68,1036)
+361
+"TEMP","DATAO",50.68,1037)
+24175^3130920.141828^1^358^
+"TEMP","DATAO",50.68,1038)
+84
+"TEMP","DATAO",50.68,1039)
+24175^3130920.141828^2^358^
+"TEMP","DATAO",50.68,1040)
+0.3
+"TEMP","DATAO",50.68,1041)
+24175^3130920.141828^17^358^
+"TEMP","DATAO",50.68,1042)
+1
+"TEMP","DATAO",50.68,1043)
+24175^3130920.141828^3^358^
+"TEMP","DATAO",50.68,1044)
+890
+"TEMP","DATAO",50.68,1045)
+24175^3130920.141828^4^358^
+"TEMP","DATAO",50.68,1046)
+EPINEPHRINE INJ,SOLN
+"TEMP","DATAO",50.68,1047)
+24175^3130920.141828^5^358^
+"TEMP","DATAO",50.68,1048)
+EPI (AUVI-Q 0.3) 0.3MG/0.3ML INJECTOR
+"TEMP","DATAO",50.68,1049)
+24175^3130920.141828^6^358^
+"TEMP","DATAO",50.68,1050)
+E0607
+"TEMP","DATAO",50.68,1051)
+24175^3130920.141828^7^358^
+"TEMP","DATAO",50.68,1052)
+1
+"TEMP","DATAO",50.68,1053)
+24175^3130920.141828^8^358^
+"TEMP","DATAO",50.68,1054)
+4
+"TEMP","DATAO",50.68,1055)
+24175^3130920.141828^15^358^
+"TEMP","DATAO",50.68,1056)
+40
+"TEMP","DATAO",50.68,1057)
+24175^3130920.141828^19^358^
+"TEMP","DATAO",50.68,1058)
+0
+"TEMP","DATAO",50.68,1059)
+24175^3130920.141828^20^358^
+"TEMP","DATAO",50.68,1060)
+S
+"TEMP","DATAO",50.68,1061)
+24175^3130920.141828^31^358^
+"TEMP","DATAO",50.68,1062)
+0
+"TEMP","DATAO",50.68,1063)
+24175^3130920.141828^40^358^
+"TEMP","DATAO",50.68,1064)
+Y
+"TEMP","DATAO",50.68,1065)
+24175^3130920.141828^99.98^358^
+"TEMP","DATAO",50.68,1066)
+1
+"TEMP","DATAO",50.68,1067)
+24175^3130920.141828^99.99^358^
+"TEMP","DATAO",50.68,1068)
+4032715
+"TEMP","DATAO",50.68,1069)
+24175,1^3130920.141829^99.991,.02^358^
+"TEMP","DATAO",50.68,1070)
+1
+"TEMP","DATAO",50.68,1071)
+24175^3130920.14183^2000^358^
+"TEMP","DATAO",50.68,1072)
+624175
+"TEMP","DATAO",50.68,1073)
+24175,631^3130920.14183^14,1^358^
+"TEMP","DATAO",50.68,1074)
+0.3
+"TEMP","DATAO",50.68,1075)
+24175,631^3130920.14183^14,2^358^
+"TEMP","DATAO",50.68,1076)
+890
+"TEMP","DATAO",50.68,1077)
+24176^3130920.144457^.05^358^
+"TEMP","DATAO",50.68,1078)
+4841
+"TEMP","DATAO",50.68,1079)
+24176^3130920.144457^1^358^
+"TEMP","DATAO",50.68,1080)
+3
+"TEMP","DATAO",50.68,1081)
+24176^3130920.144457^2^358^
+"TEMP","DATAO",50.68,1082)
+90
+"TEMP","DATAO",50.68,1083)
+24176^3130920.144457^17^358^
+"TEMP","DATAO",50.68,1084)
+0
+"TEMP","DATAO",50.68,1085)
+24176^3130920.144457^3^358^
+"TEMP","DATAO",50.68,1086)
+20
+"TEMP","DATAO",50.68,1087)
+24176^3130920.144457^4^358^
+"TEMP","DATAO",50.68,1088)
+FERROUS BISGLYCINATE CAP,ORAL
+"TEMP","DATAO",50.68,1089)
+24176^3130920.144457^5^358^
+"TEMP","DATAO",50.68,1090)
+FERROUS BISGLYCINATE 90MG ORAL CAP
+"TEMP","DATAO",50.68,1091)
+24176^3130920.144457^6^358^
+"TEMP","DATAO",50.68,1092)
+F0532
+"TEMP","DATAO",50.68,1093)
+24176^3130920.144457^7^358^
+"TEMP","DATAO",50.68,1094)
+0
+"TEMP","DATAO",50.68,1095)
+24176^3130920.144457^8^358^
+"TEMP","DATAO",50.68,1096)
+9
+"TEMP","DATAO",50.68,1097)
+24176^3130920.144457^15^358^
+"TEMP","DATAO",50.68,1098)
+406
+"TEMP","DATAO",50.68,1099)
+24176^3130920.144457^42^358^
+"TEMP","DATAO",50.68,1100)
+IO
+"TEMP","DATAO",50.68,1101)
+24176^3130920.144457^19^358^
+"TEMP","DATAO",50.68,1102)
+0
+"TEMP","DATAO",50.68,1103)
+24176^3130920.144457^31^358^
+"TEMP","DATAO",50.68,1104)
+0
+"TEMP","DATAO",50.68,1105)
+24176^3130920.144457^40^358^
+"TEMP","DATAO",50.68,1106)
+N
+"TEMP","DATAO",50.68,1107)
+24176^3130920.144457^41^358^
+"TEMP","DATAO",50.68,1108)
+O
+"TEMP","DATAO",50.68,1109)
+24176^3130920.144457^99.98^358^
+"TEMP","DATAO",50.68,1110)
+1
+"TEMP","DATAO",50.68,1111)
+24176^3130920.144457^99.99^358^
+"TEMP","DATAO",50.68,1112)
+4032716
+"TEMP","DATAO",50.68,1113)
+24176,1^3130920.144457^99.991,.02^358^
+"TEMP","DATAO",50.68,1114)
+1
+"TEMP","DATAO",50.68,1115)
+24176^3130920.144457^2000^358^
+"TEMP","DATAO",50.68,1116)
+624176
+"TEMP","DATAO",50.68,1117)
+24176,4880^3130920.144457^14,1^358^
+"TEMP","DATAO",50.68,1118)
+90
+"TEMP","DATAO",50.68,1119)
+24176,4880^3130920.144457^14,2^358^
+"TEMP","DATAO",50.68,1120)
+20
+"TEMP","DATAO",50.68,1121)
+19459^3130920.14471^6^358^
+"TEMP","DATAO",50.68,1122)
+S0711
+"TEMP","DATAO",50.68,1123)
+19459^3130920.14471^8^358^
+"TEMP","DATAO",50.68,1124)
+17
+"TEMP","DATAO",50.68,1125)
+19459,35^3130920.14471^14,1^358^
+"TEMP","DATAO",50.68,1126)
+7
+"TEMP","DATAO",50.68,1127)
+19459,35^3130920.14471^14,2^358^
+"TEMP","DATAO",50.68,1128)
+44
+"TEMP","DATAO",50.68,1129)
+24177^3130920.150356^.05^358^
+"TEMP","DATAO",50.68,1130)
+4842
+"TEMP","DATAO",50.68,1131)
+24177^3130920.150356^1^358^
+"TEMP","DATAO",50.68,1132)
+149
+"TEMP","DATAO",50.68,1133)
+24177^3130920.150356^17^358^
+"TEMP","DATAO",50.68,1134)
+0
+"TEMP","DATAO",50.68,1135)
+24177^3130920.150356^4^358^
+"TEMP","DATAO",50.68,1136)
+SILVER/SODIUM ALGINATE POWDER,TOP
+"TEMP","DATAO",50.68,1137)
+24177^3130920.150356^5^358^
+"TEMP","DATAO",50.68,1138)
+SILVER/SODIUM ALGINATE TOP PWDR
+"TEMP","DATAO",50.68,1139)
+24177^3130920.150356^6^358^
+"TEMP","DATAO",50.68,1140)
+S0712
+"TEMP","DATAO",50.68,1141)
+24177^3130920.150356^7^358^
+"TEMP","DATAO",50.68,1142)
+1
+"TEMP","DATAO",50.68,1143)
+24177^3130920.150356^8^358^
+"TEMP","DATAO",50.68,1144)
+14
+"TEMP","DATAO",50.68,1145)
+24177^3130920.150356^15^358^
+"TEMP","DATAO",50.68,1146)
+183
+"TEMP","DATAO",50.68,1147)
+24177^3130920.150356^19^358^
+"TEMP","DATAO",50.68,1148)
+0
+"TEMP","DATAO",50.68,1149)
+24177^3130920.150356^20^358^
+"TEMP","DATAO",50.68,1150)
+S
+"TEMP","DATAO",50.68,1151)
+24177^3130920.150356^31^358^
+"TEMP","DATAO",50.68,1152)
+0
+"TEMP","DATAO",50.68,1153)
+24177^3130920.150356^40^358^
+"TEMP","DATAO",50.68,1154)
+Y
+"TEMP","DATAO",50.68,1155)
+24177^3130920.150356^99.98^358^
+"TEMP","DATAO",50.68,1156)
+1
+"TEMP","DATAO",50.68,1157)
+24177^3130920.150356^99.99^358^
+"TEMP","DATAO",50.68,1158)
+4032719
+"TEMP","DATAO",50.68,1159)
+24177,1^3130920.150356^99.991,.02^358^
+"TEMP","DATAO",50.68,1160)
+1
+"TEMP","DATAO",50.68,1161)
+24177^3130920.150356^2000^358^
+"TEMP","DATAO",50.68,1162)
+624177
+"TEMP","DATAO",50.68,1163)
+24178^3130920.150506^.05^358^
+"TEMP","DATAO",50.68,1164)
+35
+"TEMP","DATAO",50.68,1165)
+24178^3130920.150506^1^358^
+"TEMP","DATAO",50.68,1166)
+84
+"TEMP","DATAO",50.68,1167)
+24178^3130920.150506^2^358^
+"TEMP","DATAO",50.68,1168)
+4
+"TEMP","DATAO",50.68,1169)
+24178^3130920.150506^17^358^
+"TEMP","DATAO",50.68,1170)
+1
+"TEMP","DATAO",50.68,1171)
+24178^3130920.150506^3^358^
+"TEMP","DATAO",50.68,1172)
+2
+"TEMP","DATAO",50.68,1173)
+24178^3130920.150506^4^358^
+"TEMP","DATAO",50.68,1174)
+MAGNESIUM SULFATE INJ,SOLN
+"TEMP","DATAO",50.68,1175)
+24178^3130920.150506^5^358^
+"TEMP","DATAO",50.68,1176)
+MAGNESIUM SO4 4GM/100ML INJ,BAG
+"TEMP","DATAO",50.68,1177)
+24178^3130920.150506^6^358^
+"TEMP","DATAO",50.68,1178)
+M1003
+"TEMP","DATAO",50.68,1179)
+24178^3130920.150506^7^358^
+"TEMP","DATAO",50.68,1180)
+0
+"TEMP","DATAO",50.68,1181)
+24178^3130920.150506^8^358^
+"TEMP","DATAO",50.68,1182)
+11
+"TEMP","DATAO",50.68,1183)
+24178^3130920.150506^15^358^
+"TEMP","DATAO",50.68,1184)
+411
+"TEMP","DATAO",50.68,1185)
+24178^3130920.150506^19^358^
+"TEMP","DATAO",50.68,1186)
+0
+"TEMP","DATAO",50.68,1187)
+24178^3130920.150506^20^358^
+"TEMP","DATAO",50.68,1188)
+M
+"TEMP","DATAO",50.68,1189)
+24178^3130920.150506^31^358^
+"TEMP","DATAO",50.68,1190)
+0
+"TEMP","DATAO",50.68,1191)
+24178^3130920.150506^40^358^
+"TEMP","DATAO",50.68,1192)
+N
+"TEMP","DATAO",50.68,1193)
+24178^3130920.150506^41^358^
+"TEMP","DATAO",50.68,1194)
+N
+"TEMP","DATAO",50.68,1195)
+24178^3130920.150506^99.98^358^
+"TEMP","DATAO",50.68,1196)
+1
+"TEMP","DATAO",50.68,1197)
+24178^3130920.150506^99.99^358^
+"TEMP","DATAO",50.68,1198)
+4032720
+"TEMP","DATAO",50.68,1199)
+24178,1^3130920.150506^99.991,.02^358^
+"TEMP","DATAO",50.68,1200)
+1
+"TEMP","DATAO",50.68,1201)
+24178^3130920.150507^2000^358^
+"TEMP","DATAO",50.68,1202)
+624178
+"TEMP","DATAO",50.68,1203)
+24178,60^3130920.150507^14,1^358^
+"TEMP","DATAO",50.68,1204)
+4
+"TEMP","DATAO",50.68,1205)
+24178,60^3130920.150507^14,2^358^
+"TEMP","DATAO",50.68,1206)
+2
+"TEMP","DATAO",50.68,1207)
+24179^3130920.151218^.05^358^
+"TEMP","DATAO",50.68,1208)
+35
+"TEMP","DATAO",50.68,1209)
+24179^3130920.151218^1^358^
+"TEMP","DATAO",50.68,1210)
+84
+"TEMP","DATAO",50.68,1211)
+24179^3130920.151218^2^358^
+"TEMP","DATAO",50.68,1212)
+1
+"TEMP","DATAO",50.68,1213)
+24179^3130920.151218^17^358^
+"TEMP","DATAO",50.68,1214)
+1
+"TEMP","DATAO",50.68,1215)
+24179^3130920.151218^3^358^
+"TEMP","DATAO",50.68,1216)
+2
+"TEMP","DATAO",50.68,1217)
+24179^3130920.151218^4^358^
+"TEMP","DATAO",50.68,1218)
+MAGNESIUM SULFATE INJ,SOLN
+"TEMP","DATAO",50.68,1219)
+24179^3130920.151218^5^358^
+"TEMP","DATAO",50.68,1220)
+MAGNESIUM SO4 1GM/100ML INJ,BAG
+"TEMP","DATAO",50.68,1221)
+24179^3130920.151218^6^358^
+"TEMP","DATAO",50.68,1222)
+M1004
+"TEMP","DATAO",50.68,1223)
+24179^3130920.151218^7^358^
+"TEMP","DATAO",50.68,1224)
+0
+"TEMP","DATAO",50.68,1225)
+24179^3130920.151218^8^358^
+"TEMP","DATAO",50.68,1226)
+11
+"TEMP","DATAO",50.68,1227)
+24179^3130920.151218^15^358^
+"TEMP","DATAO",50.68,1228)
+411
+"TEMP","DATAO",50.68,1229)
+24179^3130920.151218^19^358^
+"TEMP","DATAO",50.68,1230)
+0
+"TEMP","DATAO",50.68,1231)
+24179^3130920.151218^20^358^
+"TEMP","DATAO",50.68,1232)
+M
+"TEMP","DATAO",50.68,1233)
+24179^3130920.151218^31^358^
+"TEMP","DATAO",50.68,1234)
+0
+"TEMP","DATAO",50.68,1235)
+24179^3130920.151218^40^358^
+"TEMP","DATAO",50.68,1236)
+N
+"TEMP","DATAO",50.68,1237)
+24179^3130920.151218^41^358^
+"TEMP","DATAO",50.68,1238)
+N
+"TEMP","DATAO",50.68,1239)
+24179^3130920.151218^99.98^358^
+"TEMP","DATAO",50.68,1240)
+1
+"TEMP","DATAO",50.68,1241)
+24179^3130920.151218^99.99^358^
+"TEMP","DATAO",50.68,1242)
+4032721
+"TEMP","DATAO",50.68,1243)
+24179,1^3130920.151218^99.991,.02^358^
+"TEMP","DATAO",50.68,1244)
+1
+"TEMP","DATAO",50.68,1245)
+24179^3130920.151219^2000^358^
+"TEMP","DATAO",50.68,1246)
+624179
+"TEMP","DATAO",50.68,1247)
+24179,60^3130920.151437^14,1^358^
+"TEMP","DATAO",50.68,1248)
+1
+"TEMP","DATAO",50.68,1249)
+24179,60^3130920.151437^14,2^358^
+"TEMP","DATAO",50.68,1250)
+2
+"TEMP","DATAO",50.68,1251)
+20735^3130923.120632^31^358^
+"TEMP","DATAO",50.68,1252)
+1
+"TEMP","DATAO",50.68,1253)
+20734^3130923.120821^31^358^
+"TEMP","DATAO",50.68,1254)
+1
+"TEMP","DATAO",50.68,1255)
+22089^3130923.121013^31^358^
+"TEMP","DATAO",50.68,1256)
+1
+"TEMP","DATAO",50.68,1257)
+21422^3130923.121204^31^358^
+"TEMP","DATAO",50.68,1258)
+1
+"TEMP","DATAO",50.68,1259)
+22002^3130923.121334^31^358^
+"TEMP","DATAO",50.68,1260)
+1
+"TEMP","DATAO",50.68,1261)
+23855^3130923.132447^7^358^
+"TEMP","DATAO",50.68,1262)
+1
+"TEMP","DATAO",50.68,1263)
+23855,4085^3130923.132447^14,1^358^
+"TEMP","DATAO",50.68,1264)
+28
+"TEMP","DATAO",50.68,1265)
+23855,4085^3130923.132447^14,2^358^
+"TEMP","DATAO",50.68,1266)
+20
+"TEMP","DATAO",50.68,1267)
+3521^3130923.134916^21^358^
+"TEMP","DATAO",50.68,1268)
+3130923
+"TEMP","DATAO",50.68,1269)
+3521,800^3130923.134916^14,1^358^
+"TEMP","DATAO",50.68,1270)
+10
+"TEMP","DATAO",50.68,1271)
+3521,800^3130923.134916^14,2^358^
+"TEMP","DATAO",50.68,1272)
+44
+"TEMP","DATAO",50.68,1273)
+1432^3130924.085541^40^358^
+"TEMP","DATAO",50.68,1274)
+N
+"TEMP","DATAO",50.68,1275)
+1432^3130924.085541^41^358^
+"TEMP","DATAO",50.68,1276)
+N
+"TEMP","DATAO",50.68,1277)
+1432,353^3130924.085541^14,1^358^
+"TEMP","DATAO",50.68,1278)
+5
+"TEMP","DATAO",50.68,1279)
+1432,353^3130924.085541^14,2^358^
+"TEMP","DATAO",50.68,1280)
+156
+"TEMP","DATAO",50.68,1281)
+24180^3130924.094626^.05^358^
+"TEMP","DATAO",50.68,1282)
+3176
+"TEMP","DATAO",50.68,1283)
+24180^3130924.094626^1^358^
+"TEMP","DATAO",50.68,1284)
+233
+"TEMP","DATAO",50.68,1285)
+24180^3130924.094626^17^358^
+"TEMP","DATAO",50.68,1286)
+0
+"TEMP","DATAO",50.68,1287)
+24180^3130924.094626^4^358^
+"TEMP","DATAO",50.68,1288)
+BAG SET
+"TEMP","DATAO",50.68,1289)
+24180^3130924.094626^5^358^
+"TEMP","DATAO",50.68,1290)
+FEED BAG W/PUMP SET ENTERALITE #INF1200
+"TEMP","DATAO",50.68,1291)
+24180^3130924.094626^6^358^
+"TEMP","DATAO",50.68,1292)
+XH384
+"TEMP","DATAO",50.68,1293)
+24180^3130924.094626^7^358^
+"TEMP","DATAO",50.68,1294)
+1
+"TEMP","DATAO",50.68,1295)
+24180^3130924.094626^8^358^
+"TEMP","DATAO",50.68,1296)
+5
+"TEMP","DATAO",50.68,1297)
+24180^3130924.094626^15^358^
+"TEMP","DATAO",50.68,1298)
+500
+"TEMP","DATAO",50.68,1299)
+24180^3130924.094626^19^358^
+"TEMP","DATAO",50.68,1300)
+0
+"TEMP","DATAO",50.68,1301)
+24180^3130924.094626^23^358^
+"TEMP","DATAO",50.68,1302)
+1
+"TEMP","DATAO",50.68,1303)
+24180^3130924.094626^31^358^
+"TEMP","DATAO",50.68,1304)
+0
+"TEMP","DATAO",50.68,1305)
+24180^3130924.094626^40^358^
+"TEMP","DATAO",50.68,1306)
+Y
+"TEMP","DATAO",50.68,1307)
+24180^3130924.094626^99.98^358^
+"TEMP","DATAO",50.68,1308)
+1
+"TEMP","DATAO",50.68,1309)
+24180^3130924.094626^99.99^358^
+"TEMP","DATAO",50.68,1310)
+4032722
+"TEMP","DATAO",50.68,1311)
+24180,1^3130924.094626^99.991,.02^358^
+"TEMP","DATAO",50.68,1312)
+1
+"TEMP","DATAO",50.68,1313)
+24180^3130924.094627^2000^358^
+"TEMP","DATAO",50.68,1314)
+624180
+"TEMP","DATAO",50.68,1315)
+24181^3130924.094845^.05^358^
+"TEMP","DATAO",50.68,1316)
+3176
+"TEMP","DATAO",50.68,1317)
+24181^3130924.094845^1^358^
+"TEMP","DATAO",50.68,1318)
+233
+"TEMP","DATAO",50.68,1319)
+24181^3130924.094845^17^358^
+"TEMP","DATAO",50.68,1320)
+0
+"TEMP","DATAO",50.68,1321)
+24181^3130924.094845^4^358^
+"TEMP","DATAO",50.68,1322)
+BAG SET
+"TEMP","DATAO",50.68,1323)
+24181^3130924.094845^5^358^
+"TEMP","DATAO",50.68,1324)
+FEED BAG W/PUMP SET ENTERALITE #INF500
+"TEMP","DATAO",50.68,1325)
+24181^3130924.094845^6^358^
+"TEMP","DATAO",50.68,1326)
+XH385
+"TEMP","DATAO",50.68,1327)
+24181^3130924.094845^7^358^
+"TEMP","DATAO",50.68,1328)
+1
+"TEMP","DATAO",50.68,1329)
+24181^3130924.094845^8^358^
+"TEMP","DATAO",50.68,1330)
+5
+"TEMP","DATAO",50.68,1331)
+24181^3130924.094845^15^358^
+"TEMP","DATAO",50.68,1332)
+500
+"TEMP","DATAO",50.68,1333)
+24181^3130924.094845^19^358^
+"TEMP","DATAO",50.68,1334)
+0
+"TEMP","DATAO",50.68,1335)
+24181^3130924.094845^23^358^
+"TEMP","DATAO",50.68,1336)
+1
+"TEMP","DATAO",50.68,1337)
+24181^3130924.094845^31^358^
+"TEMP","DATAO",50.68,1338)
+0
+"TEMP","DATAO",50.68,1339)
+24181^3130924.094845^40^358^
+"TEMP","DATAO",50.68,1340)
+Y
+"TEMP","DATAO",50.68,1341)
+24181^3130924.094845^99.98^358^
+"TEMP","DATAO",50.68,1342)
+1
+"TEMP","DATAO",50.68,1343)
+24181^3130924.094845^99.99^358^
+"TEMP","DATAO",50.68,1344)
+4032723
+"TEMP","DATAO",50.68,1345)
+24181,1^3130924.094845^99.991,.02^358^
+"TEMP","DATAO",50.68,1346)
+1
+"TEMP","DATAO",50.68,1347)
+24181^3130924.094845^2000^358^
+"TEMP","DATAO",50.68,1348)
+624181
+"TEMP","DATAO",50.68,1349)
+24182^3130924.095924^.05^358^
+"TEMP","DATAO",50.68,1350)
+78
+"TEMP","DATAO",50.68,1351)
+24182^3130924.095924^1^358^
+"TEMP","DATAO",50.68,1352)
+26
+"TEMP","DATAO",50.68,1353)
+24182^3130924.095924^2^358^
+"TEMP","DATAO",50.68,1354)
+0.16
+"TEMP","DATAO",50.68,1355)
+24182^3130924.095924^17^358^
+"TEMP","DATAO",50.68,1356)
+1
+"TEMP","DATAO",50.68,1357)
+24182^3130924.095924^3^358^
+"TEMP","DATAO",50.68,1358)
+21
+"TEMP","DATAO",50.68,1359)
+24182^3130924.095924^4^358^
+"TEMP","DATAO",50.68,1360)
+VINCRISTINE INJ
+"TEMP","DATAO",50.68,1361)
+24182^3130924.095924^5^358^
+"TEMP","DATAO",50.68,1362)
+VINCRISTINE SO4 LIPOSO 0.16MG/ML INJ KIT
+"TEMP","DATAO",50.68,1363)
+24182^3130924.095924^6^358^
+"TEMP","DATAO",50.68,1364)
+V0246
+"TEMP","DATAO",50.68,1365)
+24182^3130924.095924^7^358^
+"TEMP","DATAO",50.68,1366)
+0
+"TEMP","DATAO",50.68,1367)
+24182^3130924.095924^8^358^
+"TEMP","DATAO",50.68,1368)
+26
+"TEMP","DATAO",50.68,1369)
+24182^3130924.095924^15^358^
+"TEMP","DATAO",50.68,1370)
+32
+"TEMP","DATAO",50.68,1371)
+24182^3130924.095924^19^358^
+"TEMP","DATAO",50.68,1372)
+0
+"TEMP","DATAO",50.68,1373)
+24182^3130924.095924^20^358^
+"TEMP","DATAO",50.68,1374)
+M
+"TEMP","DATAO",50.68,1375)
+24182^3130924.095924^31^358^
+"TEMP","DATAO",50.68,1376)
+0
+"TEMP","DATAO",50.68,1377)
+24182^3130924.095924^40^358^
+"TEMP","DATAO",50.68,1378)
+N
+"TEMP","DATAO",50.68,1379)
+24182^3130924.095924^41^358^
+"TEMP","DATAO",50.68,1380)
+N
+"TEMP","DATAO",50.68,1381)
+24182^3130924.095924^99.98^358^
+"TEMP","DATAO",50.68,1382)
+1
+"TEMP","DATAO",50.68,1383)
+24182^3130924.095924^99.99^358^
+"TEMP","DATAO",50.68,1384)
+4032724
+"TEMP","DATAO",50.68,1385)
+24182,1^3130924.095924^99.991,.02^358^
+"TEMP","DATAO",50.68,1386)
+1
+"TEMP","DATAO",50.68,1387)
+24182^3130924.095925^2000^358^
+"TEMP","DATAO",50.68,1388)
+624182
+"TEMP","DATAO",50.68,1389)
+24182,135^3130924.095925^14,1^358^
+"TEMP","DATAO",50.68,1390)
+0.16
+"TEMP","DATAO",50.68,1391)
+24182,135^3130924.095925^14,2^358^
+"TEMP","DATAO",50.68,1392)
+21
+"TEMP","DATAO",50.68,1393)
+24183^3130924.100031^.05^358^
+"TEMP","DATAO",50.68,1394)
+786
+"TEMP","DATAO",50.68,1395)
+24183^3130924.100031^1^358^
+"TEMP","DATAO",50.68,1396)
+160
+"TEMP","DATAO",50.68,1397)
+24183^3130924.100031^4^358^
+"TEMP","DATAO",50.68,1398)
+ACETAMINOPHEN/HYDROCODONE SOLN,ORAL
+"TEMP","DATAO",50.68,1399)
+24183^3130924.100031^5^358^
+"TEMP","DATAO",50.68,1400)
+HYDROCODONE 2.5/APAP 108MG/5ML SOLN 5ML
+"TEMP","DATAO",50.68,1401)
+24183^3130924.100031^6^358^
+"TEMP","DATAO",50.68,1402)
+H0642
+"TEMP","DATAO",50.68,1403)
+24183^3130924.100031^7^358^
+"TEMP","DATAO",50.68,1404)
+0
+"TEMP","DATAO",50.68,1405)
+24183^3130924.100031^8^358^
+"TEMP","DATAO",50.68,1406)
+5
+"TEMP","DATAO",50.68,1407)
+24183^3130924.100031^15^358^
+"TEMP","DATAO",50.68,1408)
+73
+"TEMP","DATAO",50.68,1409)
+24183^3130924.100031^19^358^
+"TEMP","DATAO",50.68,1410)
+3
+"TEMP","DATAO",50.68,1411)
+24183^3130924.100031^20^358^
+"TEMP","DATAO",50.68,1412)
+M
+"TEMP","DATAO",50.68,1413)
+24183^3130924.100031^31^358^
+"TEMP","DATAO",50.68,1414)
+0
+"TEMP","DATAO",50.68,1415)
+24183^3130924.100031^40^358^
+"TEMP","DATAO",50.68,1416)
+N
+"TEMP","DATAO",50.68,1417)
+24183^3130924.100031^41^358^
+"TEMP","DATAO",50.68,1418)
+N
+"TEMP","DATAO",50.68,1419)
+24183^3130924.100031^99.98^358^
+"TEMP","DATAO",50.68,1420)
+1
+"TEMP","DATAO",50.68,1421)
+24183^3130924.100031^99.99^358^
+"TEMP","DATAO",50.68,1422)
+4032725
+"TEMP","DATAO",50.68,1423)
+24183,1^3130924.100031^99.991,.02^358^
+"TEMP","DATAO",50.68,1424)
+1
+"TEMP","DATAO",50.68,1425)
+24183^3130924.100032^2000^358^
+"TEMP","DATAO",50.68,1426)
+624183
+"TEMP","DATAO",50.68,1427)
+24184^3130924.100245^.05^358^
+"TEMP","DATAO",50.68,1428)
+786
+"TEMP","DATAO",50.68,1429)
+24184^3130924.100245^1^358^
+"TEMP","DATAO",50.68,1430)
+160
+"TEMP","DATAO",50.68,1431)
+24184^3130924.100245^4^358^
+"TEMP","DATAO",50.68,1432)
+ACETAMINOPHEN/HYDROCODONE SOLN,ORAL
+"TEMP","DATAO",50.68,1433)
+24184^3130924.100245^5^358^
+"TEMP","DATAO",50.68,1434)
+HYDROCODONE 5/APAP 217MG/10ML SOLN 10ML
+"TEMP","DATAO",50.68,1435)
+24184^3130924.100245^6^358^
+"TEMP","DATAO",50.68,1436)
+H0643
+"TEMP","DATAO",50.68,1437)
+24184^3130924.100245^7^358^
+"TEMP","DATAO",50.68,1438)
+0
+"TEMP","DATAO",50.68,1439)
+24184^3130924.100245^8^358^
+"TEMP","DATAO",50.68,1440)
+5
+"TEMP","DATAO",50.68,1441)
+24184^3130924.100245^15^358^
+"TEMP","DATAO",50.68,1442)
+73
+"TEMP","DATAO",50.68,1443)
+24184^3130924.100245^19^358^
+"TEMP","DATAO",50.68,1444)
+3
+"TEMP","DATAO",50.68,1445)
+24184^3130924.100245^20^358^
+"TEMP","DATAO",50.68,1446)
+M
+"TEMP","DATAO",50.68,1447)
+24184^3130924.100245^31^358^
+"TEMP","DATAO",50.68,1448)
+0
+"TEMP","DATAO",50.68,1449)
+24184^3130924.100245^40^358^
+"TEMP","DATAO",50.68,1450)
+N
+"TEMP","DATAO",50.68,1451)
+24184^3130924.100245^41^358^
+"TEMP","DATAO",50.68,1452)
+N
+"TEMP","DATAO",50.68,1453)
+24184^3130924.100245^99.98^358^
+"TEMP","DATAO",50.68,1454)
+1
+"TEMP","DATAO",50.68,1455)
+24184^3130924.100245^99.99^358^
+"TEMP","DATAO",50.68,1456)
+4032726
+"TEMP","DATAO",50.68,1457)
+24184,1^3130924.100245^99.991,.02^358^
+"TEMP","DATAO",50.68,1458)
+1
+"TEMP","DATAO",50.68,1459)
+24184^3130924.100246^2000^358^
+"TEMP","DATAO",50.68,1460)
+624184
+"TEMP","DATAO",50.68,1461)
+24185^3130924.100353^.05^358^
+"TEMP","DATAO",50.68,1462)
+786
+"TEMP","DATAO",50.68,1463)
+24185^3130924.100353^1^358^
+"TEMP","DATAO",50.68,1464)
+160
+"TEMP","DATAO",50.68,1465)
+24185^3130924.100353^4^358^
+"TEMP","DATAO",50.68,1466)
+ACETAMINOPHEN/HYDROCODONE SOLN,ORAL
+"TEMP","DATAO",50.68,1467)
+24185^3130924.100353^5^358^
+"TEMP","DATAO",50.68,1468)
+HYDROCODONE 7.5/APAP 325MG/15ML SOL 15ML
+"TEMP","DATAO",50.68,1469)
+24185^3130924.100353^6^358^
+"TEMP","DATAO",50.68,1470)
+H0644
+"TEMP","DATAO",50.68,1471)
+24185^3130924.100353^7^358^
+"TEMP","DATAO",50.68,1472)
+0
+"TEMP","DATAO",50.68,1473)
+24185^3130924.100353^8^358^
+"TEMP","DATAO",50.68,1474)
+5
+"TEMP","DATAO",50.68,1475)
+24185^3130924.100353^15^358^
+"TEMP","DATAO",50.68,1476)
+73
+"TEMP","DATAO",50.68,1477)
+24185^3130924.100353^19^358^
+"TEMP","DATAO",50.68,1478)
+3
+"TEMP","DATAO",50.68,1479)
+24185^3130924.100353^20^358^
+"TEMP","DATAO",50.68,1480)
+M
+"TEMP","DATAO",50.68,1481)
+24185^3130924.100353^31^358^
+"TEMP","DATAO",50.68,1482)
+0
+"TEMP","DATAO",50.68,1483)
+24185^3130924.100353^40^358^
+"TEMP","DATAO",50.68,1484)
+N
+"TEMP","DATAO",50.68,1485)
+24185^3130924.100353^41^358^
+"TEMP","DATAO",50.68,1486)
+N
+"TEMP","DATAO",50.68,1487)
+24185^3130924.100353^99.98^358^
+"TEMP","DATAO",50.68,1488)
+1
+"TEMP","DATAO",50.68,1489)
+24185^3130924.100353^99.99^358^
+"TEMP","DATAO",50.68,1490)
+4032727
+"TEMP","DATAO",50.68,1491)
+24185,1^3130924.100353^99.991,.02^358^
+"TEMP","DATAO",50.68,1492)
+1
+"TEMP","DATAO",50.68,1493)
+24185^3130924.100354^2000^358^
+"TEMP","DATAO",50.68,1494)
+624185
+"TEMP","DATAO",50.68,1495)
+8222,1501^3130924.112427^14,1^358^
+"TEMP","DATAO",50.68,1496)
+1
+"TEMP","DATAO",50.68,1497)
+8222,1501^3130924.112427^14,2^358^
+"TEMP","DATAO",50.68,1498)
+44
+"TEMP","DATAO",50.68,1499)
+2659,629^3130924.113241^14,1^358^
+"TEMP","DATAO",50.68,1500)
+1
+"TEMP","DATAO",50.68,1501)
+2659,629^3130924.113241^14,2^358^
+"TEMP","DATAO",50.68,1502)
+21
+"TEMP","DATAO",50.68,1503)
+20916^3130924.152125^100^358^
+"TEMP","DATAO",50.68,1504)
+Onabotulinumtoxin_A_(Botox)_(Sep_2013).pdf
+"TEMP","DATAO",50.68,1505)
+20916,4625^3130924.152125^14,1^358^
+"TEMP","DATAO",50.68,1506)
+100
+"TEMP","DATAO",50.68,1507)
+20916,4625^3130924.152125^14,2^358^
+"TEMP","DATAO",50.68,1508)
+157
+"TEMP","DATAO",50.68,1509)
+20917^3130924.152126^100^358^
+"TEMP","DATAO",50.68,1510)
+Onabotulinumtoxin_A_(Botox)_(Sep_2013).pdf
+"TEMP","DATAO",50.68,1511)
+20917,4625^3130924.152126^14,1^358^
+"TEMP","DATAO",50.68,1512)
+50
+"TEMP","DATAO",50.68,1513)
+20917,4625^3130924.152126^14,2^358^
+"TEMP","DATAO",50.68,1514)
+157
+"TEMP","DATAO",50.68,1515)
+21696^3130924.152127^100^358^
+"TEMP","DATAO",50.68,1516)
+Onabotulinumtoxin_A_(Botox)_(Sep_2013).pdf
+"TEMP","DATAO",50.68,1517)
+21696,4625^3130924.152127^14,1^358^
+"TEMP","DATAO",50.68,1518)
+200
+"TEMP","DATAO",50.68,1519)
+21696,4625^3130924.152127^14,2^358^
+"TEMP","DATAO",50.68,1520)
+157
+"TEMP","DATAO",50.68,1521)
+20085^3130924.152344^100^358^
+"TEMP","DATAO",50.68,1522)
+Teriparatide_(Forteo)_(2013).pdf
+"TEMP","DATAO",50.68,1523)
+20085,2126^3130924.152344^14,1^358^
+"TEMP","DATAO",50.68,1524)
+600
+"TEMP","DATAO",50.68,1525)
+20085,2126^3130924.152344^14,2^358^
+"TEMP","DATAO",50.68,1526)
+980
+"TEMP","DATAO",50.68,1527)
+16001^3130924.152345^100^358^
+"TEMP","DATAO",50.68,1528)
+Teriparatide_(Forteo)_(2013).pdf
+"TEMP","DATAO",50.68,1529)
+16001,2126^3130924.152345^14,1^358^
+"TEMP","DATAO",50.68,1530)
+750
+"TEMP","DATAO",50.68,1531)
+16001,2126^3130924.152345^14,2^358^
+"TEMP","DATAO",50.68,1532)
+958
+"TEMP","DATAO",50.68,1533)
+22219^3130924.152522^100^358^
+"TEMP","DATAO",50.68,1534)
+Testosterone_Gel_(Fortesta)_(2013).pdf
+"TEMP","DATAO",50.68,1535)
+22219,76^3130924.152522^14,1^358^
+"TEMP","DATAO",50.68,1536)
+10
+"TEMP","DATAO",50.68,1537)
+22219,76^3130924.152522^14,2^358^
+"TEMP","DATAO",50.68,1538)
+986
+"TEMP","DATAO",50.68,1539)
+18281^3130924.152726^100^358^
+"TEMP","DATAO",50.68,1540)
+Metformin-Sitagliptin_(Janumet)_(Sep_2013).pdf
+"TEMP","DATAO",50.68,1541)
+18281,3556^3130924.152728^14,1^358^
+"TEMP","DATAO",50.68,1542)
+500
+"TEMP","DATAO",50.68,1543)
+18281,3556^3130924.152728^14,2^358^
+"TEMP","DATAO",50.68,1544)
+20
+"TEMP","DATAO",50.68,1545)
+18281,4430^3130924.152728^14,1^358^
+"TEMP","DATAO",50.68,1546)
+50
+"TEMP","DATAO",50.68,1547)
+18281,4430^3130924.152728^14,2^358^
+"TEMP","DATAO",50.68,1548)
+20
+"TEMP","DATAO",50.68,1549)
+18282^3130924.152729^100^358^
+"TEMP","DATAO",50.68,1550)
+Metformin-Sitagliptin_(Janumet)_(Sep_2013).pdf
+"TEMP","DATAO",50.68,1551)
+18282,4430^3130924.152729^14,1^358^
+"TEMP","DATAO",50.68,1552)
+50
+"TEMP","DATAO",50.68,1553)
+18282,4430^3130924.152729^14,2^358^
+"TEMP","DATAO",50.68,1554)
+20
+"TEMP","DATAO",50.68,1555)
+18282,3556^3130924.152729^14,1^358^
+"TEMP","DATAO",50.68,1556)
+1000
+"TEMP","DATAO",50.68,1557)
+18282,3556^3130924.152729^14,2^358^
+"TEMP","DATAO",50.68,1558)
+20
+"TEMP","DATAO",50.68,1559)
+22028^3130924.153149^100^358^
+"TEMP","DATAO",50.68,1560)
+Lurasidone_(Latuda)_(Jul_2013).pdf
+"TEMP","DATAO",50.68,1561)
+22028,4718^3130924.153151^14,1^358^
+"TEMP","DATAO",50.68,1562)
+40
+"TEMP","DATAO",50.68,1563)
+22028,4718^3130924.153151^14,2^358^
+"TEMP","DATAO",50.68,1564)
+20
+"TEMP","DATAO",50.68,1565)
+22029^3130924.153151^100^358^
+"TEMP","DATAO",50.68,1566)
+Lurasidone_(Latuda)_(Jul_2013).pdf
+"TEMP","DATAO",50.68,1567)
+22029,4718^3130924.153151^14,1^358^
+"TEMP","DATAO",50.68,1568)
+40
+"TEMP","DATAO",50.68,1569)
+22029,4718^3130924.153151^14,2^358^
+"TEMP","DATAO",50.68,1570)
+20
+"TEMP","DATAO",50.68,1571)
+22030^3130924.153152^100^358^
+"TEMP","DATAO",50.68,1572)
+Lurasidone_(Latuda)_(Jul_2013).pdf
+"TEMP","DATAO",50.68,1573)
+22030,4718^3130924.153152^14,1^358^
+"TEMP","DATAO",50.68,1574)
+80
+"TEMP","DATAO",50.68,1575)
+22030,4718^3130924.153152^14,2^358^
+"TEMP","DATAO",50.68,1576)
+20
+"TEMP","DATAO",50.68,1577)
+22031^3130924.153153^100^358^
+"TEMP","DATAO",50.68,1578)
+Lurasidone_(Latuda)_(Jul_2013).pdf
+"TEMP","DATAO",50.68,1579)
+22031,4718^3130924.153153^14,1^358^
+"TEMP","DATAO",50.68,1580)
+80
+"TEMP","DATAO",50.68,1581)
+22031,4718^3130924.153153^14,2^358^
+"TEMP","DATAO",50.68,1582)
+20
+"TEMP","DATAO",50.68,1583)
+23307^3130924.153154^100^358^
+"TEMP","DATAO",50.68,1584)
+Lurasidone_(Latuda)_(Jul_2013).pdf
+"TEMP","DATAO",50.68,1585)
+23307,4718^3130924.153154^14,1^358^
+"TEMP","DATAO",50.68,1586)
+120
+"TEMP","DATAO",50.68,1587)
+23307,4718^3130924.153154^14,2^358^
+"TEMP","DATAO",50.68,1588)
+20
+"TEMP","DATAO",50.68,1589)
+23308^3130924.153155^100^358^
+"TEMP","DATAO",50.68,1590)
+Lurasidone_(Latuda)_(Jul_2013).pdf
+"TEMP","DATAO",50.68,1591)
+23308,4718^3130924.153155^14,1^358^
+"TEMP","DATAO",50.68,1592)
+20
+"TEMP","DATAO",50.68,1593)
+23308,4718^3130924.153155^14,2^358^
+"TEMP","DATAO",50.68,1594)
+20
+"TEMP","DATAO",50.68,1595)
+18083^3130924.153553^100^358^
+"TEMP","DATAO",50.68,1596)
+PEG-3350_(MoviPrep)_(2013).pdf
+"TEMP","DATAO",50.68,1597)
+22959^3130924.153602^100^358^
+"TEMP","DATAO",50.68,1598)
+Metformin-Linagliptin_(Jentadueto)_(Aug_2013)
+"TEMP","DATAO",50.68,1599)
+22959,4747^3130924.153602^14,1^358^
+"TEMP","DATAO",50.68,1600)
+2.5
+"TEMP","DATAO",50.68,1601)
+22959,4747^3130924.153602^14,2^358^
+"TEMP","DATAO",50.68,1602)
+20
+"TEMP","DATAO",50.68,1603)
+22959,3556^3130924.153603^14,1^358^
+"TEMP","DATAO",50.68,1604)
+1000
+"TEMP","DATAO",50.68,1605)
+22959,3556^3130924.153603^14,2^358^
+"TEMP","DATAO",50.68,1606)
+20
+"TEMP","DATAO",50.68,1607)
+22960^3130924.153603^100^358^
+"TEMP","DATAO",50.68,1608)
+Metformin-Linagliptin_(Jentadueto)_(Aug_2013)
+"TEMP","DATAO",50.68,1609)
+22960,4747^3130924.153603^14,1^358^
+"TEMP","DATAO",50.68,1610)
+2.5
+"TEMP","DATAO",50.68,1611)
+22960,4747^3130924.153603^14,2^358^
+"TEMP","DATAO",50.68,1612)
+20
+"TEMP","DATAO",50.68,1613)
+22960,3556^3130924.153603^14,1^358^
+"TEMP","DATAO",50.68,1614)
+500
+"TEMP","DATAO",50.68,1615)
+22960,3556^3130924.153603^14,2^358^
+"TEMP","DATAO",50.68,1616)
+20
+"TEMP","DATAO",50.68,1617)
+22958^3130924.153604^100^358^
+"TEMP","DATAO",50.68,1618)
+Metformin-Linagliptin_(Jentadueto)_(Aug_2013)
+"TEMP","DATAO",50.68,1619)
+22958,4747^3130924.153604^14,1^358^
+"TEMP","DATAO",50.68,1620)
+2.5
+"TEMP","DATAO",50.68,1621)
+22958,4747^3130924.153604^14,2^358^
+"TEMP","DATAO",50.68,1622)
+20
+"TEMP","DATAO",50.68,1623)
+22958,3556^3130924.153604^14,1^358^
+"TEMP","DATAO",50.68,1624)
+850
+"TEMP","DATAO",50.68,1625)
+22958,3556^3130924.153604^14,2^358^
+"TEMP","DATAO",50.68,1626)
+20
+"TEMP","DATAO",50.68,1627)
+12794^3130924.15381^100^358^
+"TEMP","DATAO",50.68,1628)
+Clopidogrel_(Plavix)_(2013).pdf
+"TEMP","DATAO",50.68,1629)
+12794,3746^3130924.153811^14,1^358^
+"TEMP","DATAO",50.68,1630)
+75
+"TEMP","DATAO",50.68,1631)
+12794,3746^3130924.153811^14,2^358^
+"TEMP","DATAO",50.68,1632)
+20
+"TEMP","DATAO",50.68,1633)
+12795^3130924.153812^100^358^
+"TEMP","DATAO",50.68,1634)
+Clopidogrel_(Plavix)_(2013).pdf
+"TEMP","DATAO",50.68,1635)
+12795,3746^3130924.153812^14,1^358^
+"TEMP","DATAO",50.68,1636)
+75
+"TEMP","DATAO",50.68,1637)
+12795,3746^3130924.153812^14,2^358^
+"TEMP","DATAO",50.68,1638)
+20
+"TEMP","DATAO",50.68,1639)
+19298^3130924.153813^100^358^
+"TEMP","DATAO",50.68,1640)
+Clopidogrel_(Plavix)_(2013).pdf
+"TEMP","DATAO",50.68,1641)
+19298,3746^3130924.153813^14,1^358^
+"TEMP","DATAO",50.68,1642)
+300
+"TEMP","DATAO",50.68,1643)
+19298,3746^3130924.153813^14,2^358^
+"TEMP","DATAO",50.68,1644)
+20
+"TEMP","DATAO",50.68,1645)
+22576^3130924.154041^100^358^
+"TEMP","DATAO",50.68,1646)
+Ezogabine_(Potiga)_(Sep_2013).pdf
+"TEMP","DATAO",50.68,1647)
+22576,4765^3130924.154041^14,1^358^
+"TEMP","DATAO",50.68,1648)
+50
+"TEMP","DATAO",50.68,1649)
+22576,4765^3130924.154041^14,2^358^
+"TEMP","DATAO",50.68,1650)
+20
+"TEMP","DATAO",50.68,1651)
+22577^3130924.154042^100^358^
+"TEMP","DATAO",50.68,1652)
+Ezogabine_(Potiga)_(Sep_2013).pdf
+"TEMP","DATAO",50.68,1653)
+22577,4765^3130924.154042^14,1^358^
+"TEMP","DATAO",50.68,1654)
+200
+"TEMP","DATAO",50.68,1655)
+22577,4765^3130924.154042^14,2^358^
+"TEMP","DATAO",50.68,1656)
+20
+"TEMP","DATAO",50.68,1657)
+22578^3130924.154043^100^358^
+"TEMP","DATAO",50.68,1658)
+Ezogabine_(Potiga)_(Sep_2013).pdf
+"TEMP","DATAO",50.68,1659)
+22578,4765^3130924.154043^14,1^358^
+"TEMP","DATAO",50.68,1660)
+300
+"TEMP","DATAO",50.68,1661)
+22578,4765^3130924.154043^14,2^358^
+"TEMP","DATAO",50.68,1662)
+20
+"TEMP","DATAO",50.68,1663)
+22647^3130924.154043^100^358^
+"TEMP","DATAO",50.68,1664)
+Ezogabine_(Potiga)_(Sep_2013).pdf
+"TEMP","DATAO",50.68,1665)
+22647,4765^3130924.154043^14,1^358^
+"TEMP","DATAO",50.68,1666)
+400
+"TEMP","DATAO",50.68,1667)
+22647,4765^3130924.154043^14,2^358^
+"TEMP","DATAO",50.68,1668)
+20
+"TEMP","DATAO",50.68,1669)
+17491^3130924.154211^100^358^
+"TEMP","DATAO",50.68,1670)
+Sunitinib_(Sutent)_(2013).pdf
+"TEMP","DATAO",50.68,1671)
+17491,4262^3130924.154212^14,1^358^
+"TEMP","DATAO",50.68,1672)
+12.5
+"TEMP","DATAO",50.68,1673)
+17491,4262^3130924.154212^14,2^358^
+"TEMP","DATAO",50.68,1674)
+20
+"TEMP","DATAO",50.68,1675)
+17492^3130924.154213^100^358^
+"TEMP","DATAO",50.68,1676)
+Sunitinib_(Sutent)_(2013).pdf
+"TEMP","DATAO",50.68,1677)
+17492,4262^3130924.154213^14,1^358^
+"TEMP","DATAO",50.68,1678)
+25
+"TEMP","DATAO",50.68,1679)
+17492,4262^3130924.154213^14,2^358^
+"TEMP","DATAO",50.68,1680)
+20
+"TEMP","DATAO",50.68,1681)
+17493^3130924.154214^100^358^
+"TEMP","DATAO",50.68,1682)
+Sunitinib_(Sutent)_(2013).pdf
+"TEMP","DATAO",50.68,1683)
+17493,4262^3130924.154214^14,1^358^
+"TEMP","DATAO",50.68,1684)
+50
+"TEMP","DATAO",50.68,1685)
+17493,4262^3130924.154214^14,2^358^
+"TEMP","DATAO",50.68,1686)
+20
+"TEMP","DATAO",50.68,1687)
+21470^3130924.154317^100^358^
+"TEMP","DATAO",50.68,1688)
+Testosterone_Gel_(Testim)_(2013).pdf
+"TEMP","DATAO",50.68,1689)
+21470,76^3130924.154317^14,1^358^
+"TEMP","DATAO",50.68,1690)
+1
+"TEMP","DATAO",50.68,1691)
+21470,76^3130924.154317^14,2^358^
+"TEMP","DATAO",50.68,1692)
+44
+"TEMP","DATAO",50.68,1693)
+24108^3130924.160954^100^358^
+"TEMP","DATAO",50.68,1694)
+Golimumab_Inf_(Simponi_Aria)_(2013).pdf
+"TEMP","DATAO",50.68,1695)
+24108,4583^3130924.160954^14,1^358^
+"TEMP","DATAO",50.68,1696)
+12.5
+"TEMP","DATAO",50.68,1697)
+24108,4583^3130924.160954^14,2^358^
+"TEMP","DATAO",50.68,1698)
+21
+"TEMP","DATAO",50.68,1699)
+21555^3130925.130252^21^358^
+"TEMP","DATAO",50.68,1700)
+3130925
+"TEMP","DATAO",50.68,1701)
+7971^3130925.131343^7^358^
+"TEMP","DATAO",50.68,1702)
+1
+"TEMP","DATAO",50.68,1703)
+7971,1124^3130925.131343^14,1^358^
+"TEMP","DATAO",50.68,1704)
+10
+"TEMP","DATAO",50.68,1705)
+7971,1124^3130925.131343^14,2^358^
+"TEMP","DATAO",50.68,1706)
+30
+"TEMP","DATAO",50.68,1707)
+24186^3130925.154506^.05^358^
+"TEMP","DATAO",50.68,1708)
+4843
+"TEMP","DATAO",50.68,1709)
+24186^3130925.154506^1^358^
+"TEMP","DATAO",50.68,1710)
+65
+"TEMP","DATAO",50.68,1711)
+24186^3130925.154506^17^358^
+"TEMP","DATAO",50.68,1712)
+0
+"TEMP","DATAO",50.68,1713)
+24186^3130925.154506^4^358^
+"TEMP","DATAO",50.68,1714)
+CALCIUM/MAGNESIUM/VITAMIN D TAB
+"TEMP","DATAO",50.68,1715)
+24186^3130925.154506^5^358^
+"TEMP","DATAO",50.68,1716)
+CA 300MG/MAG 20MG/VIT D 200UNIT CHEW TAB
+"TEMP","DATAO",50.68,1717)
+24186^3130925.154506^6^358^
+"TEMP","DATAO",50.68,1718)
+C1591
+"TEMP","DATAO",50.68,1719)
+24186^3130925.154506^7^358^
+"TEMP","DATAO",50.68,1720)
+0
+"TEMP","DATAO",50.68,1721)
+24186^3130925.154506^8^358^
+"TEMP","DATAO",50.68,1722)
+1
+"TEMP","DATAO",50.68,1723)
+24186^3130925.154506^15^358^
+"TEMP","DATAO",50.68,1724)
+436
+"TEMP","DATAO",50.68,1725)
+24186^3130925.154506^19^358^
+"TEMP","DATAO",50.68,1726)
+0
+"TEMP","DATAO",50.68,1727)
+24186^3130925.154506^31^358^
+"TEMP","DATAO",50.68,1728)
+0
+"TEMP","DATAO",50.68,1729)
+24186^3130925.154506^40^358^
+"TEMP","DATAO",50.68,1730)
+Y
+"TEMP","DATAO",50.68,1731)
+24186^3130925.154506^99.98^358^
+"TEMP","DATAO",50.68,1732)
+1
+"TEMP","DATAO",50.68,1733)
+24186^3130925.154506^99.99^358^
+"TEMP","DATAO",50.68,1734)
+4032728
+"TEMP","DATAO",50.68,1735)
+24186,1^3130925.154507^99.991,.02^358^
+"TEMP","DATAO",50.68,1736)
+1
+"TEMP","DATAO",50.68,1737)
+24186^3130925.154508^2000^358^
+"TEMP","DATAO",50.68,1738)
+624186
+"TEMP","DATAO",50.68,1739)
+24186,247^3130925.154508^14,1^358^
+"TEMP","DATAO",50.68,1740)
+300
+"TEMP","DATAO",50.68,1741)
+24186,247^3130925.154508^14,2^358^
+"TEMP","DATAO",50.68,1742)
+20
+"TEMP","DATAO",50.68,1743)
+24186,255^3130925.154508^14,1^358^
+"TEMP","DATAO",50.68,1744)
+20
+"TEMP","DATAO",50.68,1745)
+24186,255^3130925.154508^14,2^358^
+"TEMP","DATAO",50.68,1746)
+20
+"TEMP","DATAO",50.68,1747)
+24186,244^3130925.154508^14,1^358^
+"TEMP","DATAO",50.68,1748)
+200
+"TEMP","DATAO",50.68,1749)
+24186,244^3130925.154508^14,2^358^
+"TEMP","DATAO",50.68,1750)
+159
+"TEMP","DATAO",50.68,1751)
+24187^3130926.121028^.05^358^
+"TEMP","DATAO",50.68,1752)
+4598
+"TEMP","DATAO",50.68,1753)
+24187^3130926.121029^1^358^
+"TEMP","DATAO",50.68,1754)
+63
+"TEMP","DATAO",50.68,1755)
+24187^3130926.121029^2^358^
+"TEMP","DATAO",50.68,1756)
+60
+"TEMP","DATAO",50.68,1757)
+24187^3130926.121029^17^358^
+"TEMP","DATAO",50.68,1758)
+0
+"TEMP","DATAO",50.68,1759)
+24187^3130926.121029^3^358^
+"TEMP","DATAO",50.68,1760)
+20
+"TEMP","DATAO",50.68,1761)
+24187^3130926.121029^4^358^
+"TEMP","DATAO",50.68,1762)
+LURASIDONE TAB
+"TEMP","DATAO",50.68,1763)
+24187^3130926.121029^5^358^
+"TEMP","DATAO",50.68,1764)
+LURASIDONE HCL 60MG TAB
+"TEMP","DATAO",50.68,1765)
+24187^3130926.121029^6^358^
+"TEMP","DATAO",50.68,1766)
+L0603
+"TEMP","DATAO",50.68,1767)
+24187^3130926.121029^7^358^
+"TEMP","DATAO",50.68,1768)
+1
+"TEMP","DATAO",50.68,1769)
+24187^3130926.121029^8^358^
+"TEMP","DATAO",50.68,1770)
+1
+"TEMP","DATAO",50.68,1771)
+24187^3130926.121029^15^358^
+"TEMP","DATAO",50.68,1772)
+396
+"TEMP","DATAO",50.68,1773)
+24187^3130926.121029^42^358^
+"TEMP","DATAO",50.68,1774)
+IO
+"TEMP","DATAO",50.68,1775)
+24187^3130926.121029^19^358^
+"TEMP","DATAO",50.68,1776)
+0
+"TEMP","DATAO",50.68,1777)
+24187^3130926.121029^20^358^
+"TEMP","DATAO",50.68,1778)
+S
+"TEMP","DATAO",50.68,1779)
+24187^3130926.121029^31^358^
+"TEMP","DATAO",50.68,1780)
+0
+"TEMP","DATAO",50.68,1781)
+24187^3130926.121029^40^358^
+"TEMP","DATAO",50.68,1782)
+N
+"TEMP","DATAO",50.68,1783)
+24187^3130926.121029^41^358^
+"TEMP","DATAO",50.68,1784)
+O
+"TEMP","DATAO",50.68,1785)
+24187^3130926.121029^99.98^358^
+"TEMP","DATAO",50.68,1786)
+1
+"TEMP","DATAO",50.68,1787)
+24187^3130926.121029^99.99^358^
+"TEMP","DATAO",50.68,1788)
+4032730
+"TEMP","DATAO",50.68,1789)
+24187^3130926.121029^100^358^
+"TEMP","DATAO",50.68,1790)
+Lurasidone_(Latuda)_(Jul_2013).pdf
+"TEMP","DATAO",50.68,1791)
+24187,1^3130926.121031^99.991,.02^358^
+"TEMP","DATAO",50.68,1792)
+1
+"TEMP","DATAO",50.68,1793)
+24187^3130926.121031^2000^358^
+"TEMP","DATAO",50.68,1794)
+624187
+"TEMP","DATAO",50.68,1795)
+24187,4718^3130926.121032^14,1^358^
+"TEMP","DATAO",50.68,1796)
+60
+"TEMP","DATAO",50.68,1797)
+24187,4718^3130926.121032^14,2^358^
+"TEMP","DATAO",50.68,1798)
+20
+"TEMP","DATAO",50.68,1799)
+24188^3130926.12295^.05^358^
+"TEMP","DATAO",50.68,1800)
+3089
+"TEMP","DATAO",50.68,1801)
+24188^3130926.12295^1^358^
+"TEMP","DATAO",50.68,1802)
+235
+"TEMP","DATAO",50.68,1803)
+24188^3130926.12295^17^358^
+"TEMP","DATAO",50.68,1804)
+0
+"TEMP","DATAO",50.68,1805)
+24188^3130926.12295^4^358^
+"TEMP","DATAO",50.68,1806)
+LANCET LANCET
+"TEMP","DATAO",50.68,1807)
+24188^3130926.12295^5^358^
+"TEMP","DATAO",50.68,1808)
+LANCET,GMATE 30G
+"TEMP","DATAO",50.68,1809)
+24188^3130926.12295^6^358^
+"TEMP","DATAO",50.68,1810)
+XH386
+"TEMP","DATAO",50.68,1811)
+24188^3130926.12295^7^358^
+"TEMP","DATAO",50.68,1812)
+1
+"TEMP","DATAO",50.68,1813)
+24188^3130926.12295^8^358^
+"TEMP","DATAO",50.68,1814)
+5
+"TEMP","DATAO",50.68,1815)
+24188^3130926.12295^15^358^
+"TEMP","DATAO",50.68,1816)
+238
+"TEMP","DATAO",50.68,1817)
+24188^3130926.12295^19^358^
+"TEMP","DATAO",50.68,1818)
+0
+"TEMP","DATAO",50.68,1819)
+24188^3130926.12295^20^358^
+"TEMP","DATAO",50.68,1820)
+M
+"TEMP","DATAO",50.68,1821)
+24188^3130926.12295^23^358^
+"TEMP","DATAO",50.68,1822)
+1
+"TEMP","DATAO",50.68,1823)
+24188^3130926.12295^31^358^
+"TEMP","DATAO",50.68,1824)
+0
+"TEMP","DATAO",50.68,1825)
+24188^3130926.12295^40^358^
+"TEMP","DATAO",50.68,1826)
+Y
+"TEMP","DATAO",50.68,1827)
+24188^3130926.12295^99.98^358^
+"TEMP","DATAO",50.68,1828)
+1
+"TEMP","DATAO",50.68,1829)
+24188^3130926.12295^99.99^358^
+"TEMP","DATAO",50.68,1830)
+4032731
+"TEMP","DATAO",50.68,1831)
+24188,1^3130926.12295^99.991,.02^358^
+"TEMP","DATAO",50.68,1832)
+1
+"TEMP","DATAO",50.68,1833)
+24188^3130926.122951^2000^358^
+"TEMP","DATAO",50.68,1834)
+624188
+"TEMP","DATAO",50.68,1835)
+24189^3130926.123145^.05^358^
+"TEMP","DATAO",50.68,1836)
+3089
+"TEMP","DATAO",50.68,1837)
+24189^3130926.123145^1^358^
+"TEMP","DATAO",50.68,1838)
+94
+"TEMP","DATAO",50.68,1839)
+24189^3130926.123145^17^358^
+"TEMP","DATAO",50.68,1840)
+1
+"TEMP","DATAO",50.68,1841)
+24189^3130926.123145^4^358^
+"TEMP","DATAO",50.68,1842)
+LANCET LANCET
+"TEMP","DATAO",50.68,1843)
+24189^3130926.123145^5^358^
+"TEMP","DATAO",50.68,1844)
+LANCET,GMATE DEVICE
+"TEMP","DATAO",50.68,1845)
+24189^3130926.123145^6^358^
+"TEMP","DATAO",50.68,1846)
+XH387
+"TEMP","DATAO",50.68,1847)
+24189^3130926.123145^7^358^
+"TEMP","DATAO",50.68,1848)
+1
+"TEMP","DATAO",50.68,1849)
+24189^3130926.123145^8^358^
+"TEMP","DATAO",50.68,1850)
+5
+"TEMP","DATAO",50.68,1851)
+24189^3130926.123145^15^358^
+"TEMP","DATAO",50.68,1852)
+238
+"TEMP","DATAO",50.68,1853)
+24189^3130926.123145^19^358^
+"TEMP","DATAO",50.68,1854)
+0
+"TEMP","DATAO",50.68,1855)
+24189^3130926.123145^20^358^
+"TEMP","DATAO",50.68,1856)
+M
+"TEMP","DATAO",50.68,1857)
+24189^3130926.123145^23^358^
+"TEMP","DATAO",50.68,1858)
+1
+"TEMP","DATAO",50.68,1859)
+24189^3130926.123145^31^358^
+"TEMP","DATAO",50.68,1860)
+0
+"TEMP","DATAO",50.68,1861)
+24189^3130926.123145^40^358^
+"TEMP","DATAO",50.68,1862)
+Y
+"TEMP","DATAO",50.68,1863)
+24189^3130926.123145^99.98^358^
+"TEMP","DATAO",50.68,1864)
+1
+"TEMP","DATAO",50.68,1865)
+24189^3130926.123145^99.99^358^
+"TEMP","DATAO",50.68,1866)
+4032732
+"TEMP","DATAO",50.68,1867)
+24189,1^3130926.123145^99.991,.02^358^
+"TEMP","DATAO",50.68,1868)
+1
+"TEMP","DATAO",50.68,1869)
+24189^3130926.123146^2000^358^
+"TEMP","DATAO",50.68,1870)
+624189
+"TEMP","DATAO",50.68,1871)
+24190^3130926.123251^.05^358^
+"TEMP","DATAO",50.68,1872)
+3570
+"TEMP","DATAO",50.68,1873)
+24190^3130926.123251^1^358^
+"TEMP","DATAO",50.68,1874)
+298
+"TEMP","DATAO",50.68,1875)
+24190^3130926.123251^17^358^
+"TEMP","DATAO",50.68,1876)
+0
+"TEMP","DATAO",50.68,1877)
+24190^3130926.123251^4^358^
+"TEMP","DATAO",50.68,1878)
+BOOST LIQUID
+"TEMP","DATAO",50.68,1879)
+24190^3130926.123251^5^358^
+"TEMP","DATAO",50.68,1880)
+NUTRITION SUPL BOOST CALORIE SMART LIQ
+"TEMP","DATAO",50.68,1881)
+24190^3130926.123251^6^358^
+"TEMP","DATAO",50.68,1882)
+N0672
+"TEMP","DATAO",50.68,1883)
+24190^3130926.123251^7^358^
+"TEMP","DATAO",50.68,1884)
+1
+"TEMP","DATAO",50.68,1885)
+24190^3130926.123251^8^358^
+"TEMP","DATAO",50.68,1886)
+51
+"TEMP","DATAO",50.68,1887)
+24190^3130926.123251^15^358^
+"TEMP","DATAO",50.68,1888)
+207
+"TEMP","DATAO",50.68,1889)
+24190^3130926.123251^19^358^
+"TEMP","DATAO",50.68,1890)
+0
+"TEMP","DATAO",50.68,1891)
+24190^3130926.123251^20^358^
+"TEMP","DATAO",50.68,1892)
+M
+"TEMP","DATAO",50.68,1893)
+24190^3130926.123251^31^358^
+"TEMP","DATAO",50.68,1894)
+0
+"TEMP","DATAO",50.68,1895)
+24190^3130926.123251^40^358^
+"TEMP","DATAO",50.68,1896)
+Y
+"TEMP","DATAO",50.68,1897)
+24190^3130926.123251^99.98^358^
+"TEMP","DATAO",50.68,1898)
+1
+"TEMP","DATAO",50.68,1899)
+24190^3130926.123251^99.99^358^
+"TEMP","DATAO",50.68,1900)
+4032733
+"TEMP","DATAO",50.68,1901)
+24190,1^3130926.123251^99.991,.02^358^
+"TEMP","DATAO",50.68,1902)
+1
+"TEMP","DATAO",50.68,1903)
+24190^3130926.123252^2000^358^
+"TEMP","DATAO",50.68,1904)
+624190
+"TEMP","DATAO",50.68,1905)
+24191^3130926.123431^.05^358^
+"TEMP","DATAO",50.68,1906)
+1273
+"TEMP","DATAO",50.68,1907)
+24191^3130926.123431^1^358^
+"TEMP","DATAO",50.68,1908)
+113
+"TEMP","DATAO",50.68,1909)
+24191^3130926.123431^2^358^
+"TEMP","DATAO",50.68,1910)
+15
+"TEMP","DATAO",50.68,1911)
+24191^3130926.123431^17^358^
+"TEMP","DATAO",50.68,1912)
+0
+"TEMP","DATAO",50.68,1913)
+24191^3130926.123431^3^358^
+"TEMP","DATAO",50.68,1914)
+905
+"TEMP","DATAO",50.68,1915)
+24191^3130926.123431^4^358^
+"TEMP","DATAO",50.68,1916)
+BUPRENORPHINE PATCH
+"TEMP","DATAO",50.68,1917)
+24191^3130926.123431^5^358^
+"TEMP","DATAO",50.68,1918)
+BUPRENORPHINE 15MCG/HR PATCH
+"TEMP","DATAO",50.68,1919)
+24191^3130926.123431^6^358^
+"TEMP","DATAO",50.68,1920)
+B0724
+"TEMP","DATAO",50.68,1921)
+24191^3130926.123431^7^358^
+"TEMP","DATAO",50.68,1922)
+0
+"TEMP","DATAO",50.68,1923)
+24191^3130926.123431^8^358^
+"TEMP","DATAO",50.68,1924)
+5
+"TEMP","DATAO",50.68,1925)
+24191^3130926.123431^15^358^
+"TEMP","DATAO",50.68,1926)
+73
+"TEMP","DATAO",50.68,1927)
+24191^3130926.123431^19^358^
+"TEMP","DATAO",50.68,1928)
+3
+"TEMP","DATAO",50.68,1929)
+24191^3130926.123431^20^358^
+"TEMP","DATAO",50.68,1930)
+M
+"TEMP","DATAO",50.68,1931)
+24191^3130926.123431^31^358^
+"TEMP","DATAO",50.68,1932)
+0
+"TEMP","DATAO",50.68,1933)
+24191^3130926.123431^40^358^
+"TEMP","DATAO",50.68,1934)
+Y
+"TEMP","DATAO",50.68,1935)
+24191^3130926.123431^99.98^358^
+"TEMP","DATAO",50.68,1936)
+1
+"TEMP","DATAO",50.68,1937)
+24191^3130926.123431^99.99^358^
+"TEMP","DATAO",50.68,1938)
+4032734
+"TEMP","DATAO",50.68,1939)
+24191^3130926.123431^100^358^
+"TEMP","DATAO",50.68,1940)
+Buprenorphine_(Butrans)_(2012).pdf
+"TEMP","DATAO",50.68,1941)
+24191,1^3130926.123433^99.991,.02^358^
+"TEMP","DATAO",50.68,1942)
+1
+"TEMP","DATAO",50.68,1943)
+24191^3130926.123433^2000^358^
+"TEMP","DATAO",50.68,1944)
+624191
+"TEMP","DATAO",50.68,1945)
+24191,2263^3130926.123434^14,1^358^
+"TEMP","DATAO",50.68,1946)
+15
+"TEMP","DATAO",50.68,1947)
+24191,2263^3130926.123434^14,2^358^
+"TEMP","DATAO",50.68,1948)
+905
+"TEMP","DATAO",50.68,1949)
+24192^3130926.123652^.05^358^
+"TEMP","DATAO",50.68,1950)
+868
+"TEMP","DATAO",50.68,1951)
+24192^3130926.123652^1^358^
+"TEMP","DATAO",50.68,1952)
+139
+"TEMP","DATAO",50.68,1953)
+24192^3130926.123652^2^358^
+"TEMP","DATAO",50.68,1954)
+0.075
+"TEMP","DATAO",50.68,1955)
+24192^3130926.123652^17^358^
+"TEMP","DATAO",50.68,1956)
+1
+"TEMP","DATAO",50.68,1957)
+24192^3130926.123652^3^358^
+"TEMP","DATAO",50.68,1958)
+44
+"TEMP","DATAO",50.68,1959)
+24192^3130926.123652^4^358^
+"TEMP","DATAO",50.68,1960)
+TRETINOIN CREAM,TOP
+"TEMP","DATAO",50.68,1961)
+24192^3130926.123652^5^358^
+"TEMP","DATAO",50.68,1962)
+TRETINOIN 0.075% CREAM
+"TEMP","DATAO",50.68,1963)
+24192^3130926.123652^6^358^
+"TEMP","DATAO",50.68,1964)
+T0836
+"TEMP","DATAO",50.68,1965)
+24192^3130926.123652^7^358^
+"TEMP","DATAO",50.68,1966)
+1
+"TEMP","DATAO",50.68,1967)
+24192^3130926.123652^8^358^
+"TEMP","DATAO",50.68,1968)
+14
+"TEMP","DATAO",50.68,1969)
+24192^3130926.123652^15^358^
+"TEMP","DATAO",50.68,1970)
+344
+"TEMP","DATAO",50.68,1971)
+24192^3130926.123652^19^358^
+"TEMP","DATAO",50.68,1972)
+0
+"TEMP","DATAO",50.68,1973)
+24192^3130926.123652^20^358^
+"TEMP","DATAO",50.68,1974)
+M
+"TEMP","DATAO",50.68,1975)
+24192^3130926.123652^31^358^
+"TEMP","DATAO",50.68,1976)
+0
+"TEMP","DATAO",50.68,1977)
+24192^3130926.123652^40^358^
+"TEMP","DATAO",50.68,1978)
+Y
+"TEMP","DATAO",50.68,1979)
+24192^3130926.123652^99.98^358^
+"TEMP","DATAO",50.68,1980)
+1
+"TEMP","DATAO",50.68,1981)
+24192^3130926.123652^99.99^358^
+"TEMP","DATAO",50.68,1982)
+4032735
+"TEMP","DATAO",50.68,1983)
+24192,1^3130926.123652^99.991,.02^358^
+"TEMP","DATAO",50.68,1984)
+1
+"TEMP","DATAO",50.68,1985)
+24192^3130926.123653^2000^358^
+"TEMP","DATAO",50.68,1986)
+624192
+"TEMP","DATAO",50.68,1987)
+24192,1149^3130926.123653^14,1^358^
+"TEMP","DATAO",50.68,1988)
+0.075
+"TEMP","DATAO",50.68,1989)
+24192,1149^3130926.123653^14,2^358^
+"TEMP","DATAO",50.68,1990)
+44
+"TEMP","DATAO",50.68,1991)
+24193^3130926.123904^.05^358^
+"TEMP","DATAO",50.68,1992)
+3365
+"TEMP","DATAO",50.68,1993)
+24193^3130926.123904^1^358^
+"TEMP","DATAO",50.68,1994)
+269
+"TEMP","DATAO",50.68,1995)
+24193^3130926.123904^17^358^
+"TEMP","DATAO",50.68,1996)
+1
+"TEMP","DATAO",50.68,1997)
+24193^3130926.123904^4^358^
+"TEMP","DATAO",50.68,1998)
+GLUCOSE CONTROL SOLN
+"TEMP","DATAO",50.68,1999)
+24193^3130926.123904^5^358^
+"TEMP","DATAO",50.68,2000)
+GMATE GLUCOSE CONTROL SOLN
+"TEMP","DATAO",50.68,2001)
+24193^3130926.123904^6^358^
+"TEMP","DATAO",50.68,2002)
+G0398
+"TEMP","DATAO",50.68,2003)
+24193^3130926.123904^7^358^
+"TEMP","DATAO",50.68,2004)
+1
+"TEMP","DATAO",50.68,2005)
+24193^3130926.123904^8^358^
+"TEMP","DATAO",50.68,2006)
+5
+"TEMP","DATAO",50.68,2007)
+24193^3130926.123904^15^358^
+"TEMP","DATAO",50.68,2008)
+112
+"TEMP","DATAO",50.68,2009)
+24193^3130926.123904^19^358^
+"TEMP","DATAO",50.68,2010)
+0
+"TEMP","DATAO",50.68,2011)
+24193^3130926.123904^20^358^
+"TEMP","DATAO",50.68,2012)
+M
+"TEMP","DATAO",50.68,2013)
+24193^3130926.123904^23^358^
+"TEMP","DATAO",50.68,2014)
+1
+"TEMP","DATAO",50.68,2015)
+24193^3130926.123904^31^358^
+"TEMP","DATAO",50.68,2016)
+0
+"TEMP","DATAO",50.68,2017)
+24193^3130926.123904^40^358^
+"TEMP","DATAO",50.68,2018)
+Y
+"TEMP","DATAO",50.68,2019)
+24193^3130926.123904^99.98^358^
+"TEMP","DATAO",50.68,2020)
+1
+"TEMP","DATAO",50.68,2021)
+24193^3130926.123904^99.99^358^
+"TEMP","DATAO",50.68,2022)
+4032736
+"TEMP","DATAO",50.68,2023)
+24193,1^3130926.123904^99.991,.02^358^
+"TEMP","DATAO",50.68,2024)
+1
+"TEMP","DATAO",50.68,2025)
+24193^3130926.123905^2000^358^
+"TEMP","DATAO",50.68,2026)
+624193
+"TEMP","DATAO",50.68,2027)
+24194^3130926.124108^.05^358^
+"TEMP","DATAO",50.68,2028)
+880
+"TEMP","DATAO",50.68,2029)
+24194^3130926.124108^1^358^
+"TEMP","DATAO",50.68,2030)
+259
+"TEMP","DATAO",50.68,2031)
+24194^3130926.124108^2^358^
+"TEMP","DATAO",50.68,2032)
+9.5
+"TEMP","DATAO",50.68,2033)
+24194^3130926.124108^17^358^
+"TEMP","DATAO",50.68,2034)
+0
+"TEMP","DATAO",50.68,2035)
+24194^3130926.124108^3^358^
+"TEMP","DATAO",50.68,2036)
+44
+"TEMP","DATAO",50.68,2037)
+24194^3130926.124108^4^358^
+"TEMP","DATAO",50.68,2038)
+BENZOYL PEROXIDE FOAM,TOP
+"TEMP","DATAO",50.68,2039)
+24194^3130926.124108^5^358^
+"TEMP","DATAO",50.68,2040)
+BENZOYL PEROXIDE 9.5% TOP FOAM
+"TEMP","DATAO",50.68,2041)
+24194^3130926.124108^6^358^
+"TEMP","DATAO",50.68,2042)
+B0725
+"TEMP","DATAO",50.68,2043)
+24194^3130926.124108^7^358^
+"TEMP","DATAO",50.68,2044)
+1
+"TEMP","DATAO",50.68,2045)
+24194^3130926.124108^8^358^
+"TEMP","DATAO",50.68,2046)
+14
+"TEMP","DATAO",50.68,2047)
+24194^3130926.124108^15^358^
+"TEMP","DATAO",50.68,2048)
+344
+"TEMP","DATAO",50.68,2049)
+24194^3130926.124108^19^358^
+"TEMP","DATAO",50.68,2050)
+0
+"TEMP","DATAO",50.68,2051)
+24194^3130926.124108^20^358^
+"TEMP","DATAO",50.68,2052)
+M
+"TEMP","DATAO",50.68,2053)
+24194^3130926.124108^31^358^
+"TEMP","DATAO",50.68,2054)
+0
+"TEMP","DATAO",50.68,2055)
+24194^3130926.124108^40^358^
+"TEMP","DATAO",50.68,2056)
+Y
+"TEMP","DATAO",50.68,2057)
+24194^3130926.124108^99.98^358^
+"TEMP","DATAO",50.68,2058)
+1
+"TEMP","DATAO",50.68,2059)
+24194^3130926.124108^99.99^358^
+"TEMP","DATAO",50.68,2060)
+4032737
+"TEMP","DATAO",50.68,2061)
+24194,1^3130926.124108^99.991,.02^358^
+"TEMP","DATAO",50.68,2062)
+1
+"TEMP","DATAO",50.68,2063)
+24194^3130926.124109^2000^358^
+"TEMP","DATAO",50.68,2064)
+624194
+"TEMP","DATAO",50.68,2065)
+24194,1161^3130926.124109^14,1^358^
+"TEMP","DATAO",50.68,2066)
+9.5
+"TEMP","DATAO",50.68,2067)
+24194,1161^3130926.124109^14,2^358^
+"TEMP","DATAO",50.68,2068)
+44
+"TEMP","DATAO",50.68,2069)
+24195^3130926.124209^.05^358^
+"TEMP","DATAO",50.68,2070)
+880
+"TEMP","DATAO",50.68,2071)
+24195^3130926.124209^1^358^
+"TEMP","DATAO",50.68,2072)
+259
+"TEMP","DATAO",50.68,2073)
+24195^3130926.124209^2^358^
+"TEMP","DATAO",50.68,2074)
+5.5
+"TEMP","DATAO",50.68,2075)
+24195^3130926.124209^17^358^
+"TEMP","DATAO",50.68,2076)
+0
+"TEMP","DATAO",50.68,2077)
+24195^3130926.124209^3^358^
+"TEMP","DATAO",50.68,2078)
+44
+"TEMP","DATAO",50.68,2079)
+24195^3130926.124209^4^358^
+"TEMP","DATAO",50.68,2080)
+BENZOYL PEROXIDE FOAM,TOP
+"TEMP","DATAO",50.68,2081)
+24195^3130926.124209^5^358^
+"TEMP","DATAO",50.68,2082)
+BENZOYL PEROXIDE 5.5% TOPICAL FOAM
+"TEMP","DATAO",50.68,2083)
+24195^3130926.124209^6^358^
+"TEMP","DATAO",50.68,2084)
+B0726
+"TEMP","DATAO",50.68,2085)
+24195^3130926.124209^7^358^
+"TEMP","DATAO",50.68,2086)
+1
+"TEMP","DATAO",50.68,2087)
+24195^3130926.124209^8^358^
+"TEMP","DATAO",50.68,2088)
+14
+"TEMP","DATAO",50.68,2089)
+24195^3130926.124209^15^358^
+"TEMP","DATAO",50.68,2090)
+344
+"TEMP","DATAO",50.68,2091)
+24195^3130926.124209^19^358^
+"TEMP","DATAO",50.68,2092)
+0
+"TEMP","DATAO",50.68,2093)
+24195^3130926.124209^20^358^
+"TEMP","DATAO",50.68,2094)
+M
+"TEMP","DATAO",50.68,2095)
+24195^3130926.124209^23^358^
+"TEMP","DATAO",50.68,2096)
+1
+"TEMP","DATAO",50.68,2097)
+24195^3130926.124209^31^358^
+"TEMP","DATAO",50.68,2098)
+0
+"TEMP","DATAO",50.68,2099)
+24195^3130926.124209^40^358^
+"TEMP","DATAO",50.68,2100)
+Y
+"TEMP","DATAO",50.68,2101)
+24195^3130926.124209^99.98^358^
+"TEMP","DATAO",50.68,2102)
+1
+"TEMP","DATAO",50.68,2103)
+24195^3130926.124209^99.99^358^
+"TEMP","DATAO",50.68,2104)
+4032738
+"TEMP","DATAO",50.68,2105)
+24195,1^3130926.124209^99.991,.02^358^
+"TEMP","DATAO",50.68,2106)
+1
+"TEMP","DATAO",50.68,2107)
+24195^3130926.12421^2000^358^
+"TEMP","DATAO",50.68,2108)
+624195
+"TEMP","DATAO",50.68,2109)
+24195,1161^3130926.12421^14,1^358^
+"TEMP","DATAO",50.68,2110)
+5.5
+"TEMP","DATAO",50.68,2111)
+24195,1161^3130926.12421^14,2^358^
+"TEMP","DATAO",50.68,2112)
+44
+"TEMP","DATAO",50.68,2113)
+24196^3130926.1244^.05^358^
+"TEMP","DATAO",50.68,2114)
+4096
+"TEMP","DATAO",50.68,2115)
+24196^3130926.1244^1^358^
+"TEMP","DATAO",50.68,2116)
+139
+"TEMP","DATAO",50.68,2117)
+24196^3130926.1244^17^358^
+"TEMP","DATAO",50.68,2118)
+0
+"TEMP","DATAO",50.68,2119)
+24196^3130926.1244^4^358^
+"TEMP","DATAO",50.68,2120)
+ALOE/HYDROCORTISONE/IODOQUINOL CREAM,TOP
+"TEMP","DATAO",50.68,2121)
+24196^3130926.1244^5^358^
+"TEMP","DATAO",50.68,2122)
+ALOE/HC 1.9%/IODOQUINOL 1% TOP CREAM
+"TEMP","DATAO",50.68,2123)
+24196^3130926.1244^6^358^
+"TEMP","DATAO",50.68,2124)
+A1725
+"TEMP","DATAO",50.68,2125)
+24196^3130926.1244^7^358^
+"TEMP","DATAO",50.68,2126)
+1
+"TEMP","DATAO",50.68,2127)
+24196^3130926.1244^8^358^
+"TEMP","DATAO",50.68,2128)
+10
+"TEMP","DATAO",50.68,2129)
+24196^3130926.1244^15^358^
+"TEMP","DATAO",50.68,2130)
+306
+"TEMP","DATAO",50.68,2131)
+24196^3130926.1244^19^358^
+"TEMP","DATAO",50.68,2132)
+0
+"TEMP","DATAO",50.68,2133)
+24196^3130926.1244^20^358^
+"TEMP","DATAO",50.68,2134)
+S
+"TEMP","DATAO",50.68,2135)
+24196^3130926.1244^23^358^
+"TEMP","DATAO",50.68,2136)
+1
+"TEMP","DATAO",50.68,2137)
+24196^3130926.1244^31^358^
+"TEMP","DATAO",50.68,2138)
+0
+"TEMP","DATAO",50.68,2139)
+24196^3130926.1244^40^358^
+"TEMP","DATAO",50.68,2140)
+Y
+"TEMP","DATAO",50.68,2141)
+24196^3130926.1244^99.98^358^
+"TEMP","DATAO",50.68,2142)
+1
+"TEMP","DATAO",50.68,2143)
+24196^3130926.1244^99.99^358^
+"TEMP","DATAO",50.68,2144)
+4032739
+"TEMP","DATAO",50.68,2145)
+24196,1^3130926.124401^99.991,.02^358^
+"TEMP","DATAO",50.68,2146)
+1
+"TEMP","DATAO",50.68,2147)
+24196^3130926.124402^2000^358^
+"TEMP","DATAO",50.68,2148)
+624196
+"TEMP","DATAO",50.68,2149)
+24196,536^3130926.124402^14,1^358^
+"TEMP","DATAO",50.68,2150)
+1.9
+"TEMP","DATAO",50.68,2151)
+24196,536^3130926.124402^14,2^358^
+"TEMP","DATAO",50.68,2152)
+44
+"TEMP","DATAO",50.68,2153)
+24196,1199^3130926.124402^14,1^358^
+"TEMP","DATAO",50.68,2154)
+1
+"TEMP","DATAO",50.68,2155)
+24196,1199^3130926.124402^14,2^358^
+"TEMP","DATAO",50.68,2156)
+44
+"TEMP","DATAO",50.68,2157)
+24197^3130926.124547^.05^358^
+"TEMP","DATAO",50.68,2158)
+3408
+"TEMP","DATAO",50.68,2159)
+24197^3130926.124547^1^358^
+"TEMP","DATAO",50.68,2160)
+26
+"TEMP","DATAO",50.68,2161)
+24197^3130926.124547^2^358^
+"TEMP","DATAO",50.68,2162)
+2000
+"TEMP","DATAO",50.68,2163)
+24197^3130926.124547^17^358^
+"TEMP","DATAO",50.68,2164)
+1
+"TEMP","DATAO",50.68,2165)
+24197^3130926.124547^3^358^
+"TEMP","DATAO",50.68,2166)
+157
+"TEMP","DATAO",50.68,2167)
+24197^3130926.124547^4^358^
+"TEMP","DATAO",50.68,2168)
+FACTOR IX,RECOMBINANT INJ
+"TEMP","DATAO",50.68,2169)
+24197^3130926.124547^5^358^
+"TEMP","DATAO",50.68,2170)
+FACTOR IX,RECOMBINANT 2000 UNIT/VIL INJ
+"TEMP","DATAO",50.68,2171)
+24197^3130926.124547^6^358^
+"TEMP","DATAO",50.68,2172)
+F0533
+"TEMP","DATAO",50.68,2173)
+24197^3130926.124547^7^358^
+"TEMP","DATAO",50.68,2174)
+0
+"TEMP","DATAO",50.68,2175)
+24197^3130926.124547^8^358^
+"TEMP","DATAO",50.68,2176)
+12
+"TEMP","DATAO",50.68,2177)
+24197^3130926.124547^15^358^
+"TEMP","DATAO",50.68,2178)
+50
+"TEMP","DATAO",50.68,2179)
+24197^3130926.124547^19^358^
+"TEMP","DATAO",50.68,2180)
+0
+"TEMP","DATAO",50.68,2181)
+24197^3130926.124547^20^358^
+"TEMP","DATAO",50.68,2182)
+S
+"TEMP","DATAO",50.68,2183)
+24197^3130926.124547^31^358^
+"TEMP","DATAO",50.68,2184)
+0
+"TEMP","DATAO",50.68,2185)
+24197^3130926.124547^40^358^
+"TEMP","DATAO",50.68,2186)
+N
+"TEMP","DATAO",50.68,2187)
+24197^3130926.124547^41^358^
+"TEMP","DATAO",50.68,2188)
+N
+"TEMP","DATAO",50.68,2189)
+24197^3130926.124547^99.98^358^
+"TEMP","DATAO",50.68,2190)
+1
+"TEMP","DATAO",50.68,2191)
+24197^3130926.124547^99.99^358^
+"TEMP","DATAO",50.68,2192)
+4032740
+"TEMP","DATAO",50.68,2193)
+24197,1^3130926.124547^99.991,.02^358^
+"TEMP","DATAO",50.68,2194)
+1
+"TEMP","DATAO",50.68,2195)
+24197^3130926.124548^2000^358^
+"TEMP","DATAO",50.68,2196)
+624197
+"TEMP","DATAO",50.68,2197)
+24197,3689^3130926.124548^14,1^358^
+"TEMP","DATAO",50.68,2198)
+2000
+"TEMP","DATAO",50.68,2199)
+24197,3689^3130926.124548^14,2^358^
+"TEMP","DATAO",50.68,2200)
+157
+"TEMP","DATAO",50.68,2201)
+24198^3130926.124636^.05^358^
+"TEMP","DATAO",50.68,2202)
+516
+"TEMP","DATAO",50.68,2203)
+24198^3130926.124636^1^358^
+"TEMP","DATAO",50.68,2204)
+53
+"TEMP","DATAO",50.68,2205)
+24198^3130926.124636^2^358^
+"TEMP","DATAO",50.68,2206)
+10
+"TEMP","DATAO",50.68,2207)
+24198^3130926.124636^17^358^
+"TEMP","DATAO",50.68,2208)
+0
+"TEMP","DATAO",50.68,2209)
+24198^3130926.124636^3^358^
+"TEMP","DATAO",50.68,2210)
+44
+"TEMP","DATAO",50.68,2211)
+24198^3130926.124636^4^358^
+"TEMP","DATAO",50.68,2212)
+SULFACETAMIDE SOAP/DETERGENT
+"TEMP","DATAO",50.68,2213)
+24198^3130926.124636^5^358^
+"TEMP","DATAO",50.68,2214)
+SULFACETAMIDE NA 10% SHAMPOO
+"TEMP","DATAO",50.68,2215)
+24198^3130926.124636^6^358^
+"TEMP","DATAO",50.68,2216)
+S0713
+"TEMP","DATAO",50.68,2217)
+24198^3130926.124636^7^358^
+"TEMP","DATAO",50.68,2218)
+1
+"TEMP","DATAO",50.68,2219)
+24198^3130926.124636^8^358^
+"TEMP","DATAO",50.68,2220)
+2
+"TEMP","DATAO",50.68,2221)
+24198^3130926.124636^15^358^
+"TEMP","DATAO",50.68,2222)
+258
+"TEMP","DATAO",50.68,2223)
+24198^3130926.124636^19^358^
+"TEMP","DATAO",50.68,2224)
+0
+"TEMP","DATAO",50.68,2225)
+24198^3130926.124636^20^358^
+"TEMP","DATAO",50.68,2226)
+M
+"TEMP","DATAO",50.68,2227)
+24198^3130926.124636^23^358^
+"TEMP","DATAO",50.68,2228)
+1
+"TEMP","DATAO",50.68,2229)
+24198^3130926.124636^31^358^
+"TEMP","DATAO",50.68,2230)
+0
+"TEMP","DATAO",50.68,2231)
+24198^3130926.124636^40^358^
+"TEMP","DATAO",50.68,2232)
+Y
+"TEMP","DATAO",50.68,2233)
+24198^3130926.124636^99.98^358^
+"TEMP","DATAO",50.68,2234)
+1
+"TEMP","DATAO",50.68,2235)
+24198^3130926.124636^99.99^358^
+"TEMP","DATAO",50.68,2236)
+4032741
+"TEMP","DATAO",50.68,2237)
+24198,1^3130926.124636^99.991,.02^358^
+"TEMP","DATAO",50.68,2238)
+1
+"TEMP","DATAO",50.68,2239)
+24198^3130926.124637^2000^358^
+"TEMP","DATAO",50.68,2240)
+624198
+"TEMP","DATAO",50.68,2241)
+24198,800^3130926.124637^14,1^358^
+"TEMP","DATAO",50.68,2242)
+10
+"TEMP","DATAO",50.68,2243)
+24198,800^3130926.124637^14,2^358^
+"TEMP","DATAO",50.68,2244)
+44
+"TEMP","DATAO",50.68,2245)
+24199^3130926.124654^.05^358^
+"TEMP","DATAO",50.68,2246)
+3408
+"TEMP","DATAO",50.68,2247)
+24199^3130926.124654^1^358^
+"TEMP","DATAO",50.68,2248)
+26
+"TEMP","DATAO",50.68,2249)
+24199^3130926.124654^2^358^
+"TEMP","DATAO",50.68,2250)
+3000
+"TEMP","DATAO",50.68,2251)
+24199^3130926.124654^17^358^
+"TEMP","DATAO",50.68,2252)
+1
+"TEMP","DATAO",50.68,2253)
+24199^3130926.124654^3^358^
+"TEMP","DATAO",50.68,2254)
+157
+"TEMP","DATAO",50.68,2255)
+24199^3130926.124654^4^358^
+"TEMP","DATAO",50.68,2256)
+FACTOR IX,RECOMBINANT INJ
+"TEMP","DATAO",50.68,2257)
+24199^3130926.124654^5^358^
+"TEMP","DATAO",50.68,2258)
+FACTOR IX,RECOMBINANT 3000 UNIT/VIL INJ
+"TEMP","DATAO",50.68,2259)
+24199^3130926.124654^6^358^
+"TEMP","DATAO",50.68,2260)
+F0534
+"TEMP","DATAO",50.68,2261)
+24199^3130926.124654^7^358^
+"TEMP","DATAO",50.68,2262)
+0
+"TEMP","DATAO",50.68,2263)
+24199^3130926.124654^8^358^
+"TEMP","DATAO",50.68,2264)
+12
+"TEMP","DATAO",50.68,2265)
+24199^3130926.124654^15^358^
+"TEMP","DATAO",50.68,2266)
+50
+"TEMP","DATAO",50.68,2267)
+24199^3130926.124654^19^358^
+"TEMP","DATAO",50.68,2268)
+0
+"TEMP","DATAO",50.68,2269)
+24199^3130926.124654^20^358^
+"TEMP","DATAO",50.68,2270)
+S
+"TEMP","DATAO",50.68,2271)
+24199^3130926.124654^31^358^
+"TEMP","DATAO",50.68,2272)
+0
+"TEMP","DATAO",50.68,2273)
+24199^3130926.124654^40^358^
+"TEMP","DATAO",50.68,2274)
+N
+"TEMP","DATAO",50.68,2275)
+24199^3130926.124654^41^358^
+"TEMP","DATAO",50.68,2276)
+N
+"TEMP","DATAO",50.68,2277)
+24199^3130926.124654^99.98^358^
+"TEMP","DATAO",50.68,2278)
+1
+"TEMP","DATAO",50.68,2279)
+24199^3130926.124654^99.99^358^
+"TEMP","DATAO",50.68,2280)
+4032742
+"TEMP","DATAO",50.68,2281)
+24199,1^3130926.124654^99.991,.02^358^
+"TEMP","DATAO",50.68,2282)
+1
+"TEMP","DATAO",50.68,2283)
+24199^3130926.124655^2000^358^
+"TEMP","DATAO",50.68,2284)
+624199
+"TEMP","DATAO",50.68,2285)
+24199,3689^3130926.124655^14,1^358^
+"TEMP","DATAO",50.68,2286)
+3000
+"TEMP","DATAO",50.68,2287)
+24199,3689^3130926.124655^14,2^358^
+"TEMP","DATAO",50.68,2288)
+157
+"TEMP","DATAO",50.68,2289)
+24200^3130926.124713^.05^358^
+"TEMP","DATAO",50.68,2290)
+525
+"TEMP","DATAO",50.68,2291)
+24200^3130926.124713^1^358^
+"TEMP","DATAO",50.68,2292)
+52
+"TEMP","DATAO",50.68,2293)
+24200^3130926.124713^2^358^
+"TEMP","DATAO",50.68,2294)
+2.3
+"TEMP","DATAO",50.68,2295)
+24200^3130926.124713^17^358^
+"TEMP","DATAO",50.68,2296)
+0
+"TEMP","DATAO",50.68,2297)
+24200^3130926.124713^3^358^
+"TEMP","DATAO",50.68,2298)
+44
+"TEMP","DATAO",50.68,2299)
+24200^3130926.124713^4^358^
+"TEMP","DATAO",50.68,2300)
+SELENIUM SHAMPOO
+"TEMP","DATAO",50.68,2301)
+24200^3130926.124713^5^358^
+"TEMP","DATAO",50.68,2302)
+SELENIUM SULFIDE 2.3% LOTION/SHAMPOO
+"TEMP","DATAO",50.68,2303)
+24200^3130926.124713^6^358^
+"TEMP","DATAO",50.68,2304)
+S0714
+"TEMP","DATAO",50.68,2305)
+24200^3130926.124713^7^358^
+"TEMP","DATAO",50.68,2306)
+1
+"TEMP","DATAO",50.68,2307)
+24200^3130926.124713^8^358^
+"TEMP","DATAO",50.68,2308)
+2
+"TEMP","DATAO",50.68,2309)
+24200^3130926.124713^15^358^
+"TEMP","DATAO",50.68,2310)
+99
+"TEMP","DATAO",50.68,2311)
+24200^3130926.124713^19^358^
+"TEMP","DATAO",50.68,2312)
+0
+"TEMP","DATAO",50.68,2313)
+24200^3130926.124713^20^358^
+"TEMP","DATAO",50.68,2314)
+M
+"TEMP","DATAO",50.68,2315)
+24200^3130926.124713^23^358^
+"TEMP","DATAO",50.68,2316)
+1
+"TEMP","DATAO",50.68,2317)
+24200^3130926.124713^31^358^
+"TEMP","DATAO",50.68,2318)
+0
+"TEMP","DATAO",50.68,2319)
+24200^3130926.124713^40^358^
+"TEMP","DATAO",50.68,2320)
+Y
+"TEMP","DATAO",50.68,2321)
+24200^3130926.124713^99.98^358^
+"TEMP","DATAO",50.68,2322)
+1
+"TEMP","DATAO",50.68,2323)
+24200^3130926.124713^99.99^358^
+"TEMP","DATAO",50.68,2324)
+4032743
+"TEMP","DATAO",50.68,2325)
+24200,1^3130926.124713^99.991,.02^358^
+"TEMP","DATAO",50.68,2326)
+1
+"TEMP","DATAO",50.68,2327)
+24200^3130926.124714^2000^358^
+"TEMP","DATAO",50.68,2328)
+624200
+"TEMP","DATAO",50.68,2329)
+24200,816^3130926.124714^14,1^358^
+"TEMP","DATAO",50.68,2330)
+2.3
+"TEMP","DATAO",50.68,2331)
+24200,816^3130926.124714^14,2^358^
+"TEMP","DATAO",50.68,2332)
+44
+"TEMP","DATAO",50.68,2333)
+24201^3130927.142848^.05^358^
+"TEMP","DATAO",50.68,2334)
+3179
+"TEMP","DATAO",50.68,2335)
+24201^3130927.142848^1^358^
+"TEMP","DATAO",50.68,2336)
+40
+"TEMP","DATAO",50.68,2337)
+24201^3130927.142848^17^358^
+"TEMP","DATAO",50.68,2338)
+0
+"TEMP","DATAO",50.68,2339)
+24201^3130927.142848^4^358^
+"TEMP","DATAO",50.68,2340)
+UNDERPANTS MISCELLANEOUS
+"TEMP","DATAO",50.68,2341)
+24201^3130927.142848^5^358^
+"TEMP","DATAO",50.68,2342)
+BRIEF,PREVAIL YOUTH/SM FQP#PV-511
+"TEMP","DATAO",50.68,2343)
+24201^3130927.142848^6^358^
+"TEMP","DATAO",50.68,2344)
+XH388
+"TEMP","DATAO",50.68,2345)
+24201^3130927.142848^7^358^
+"TEMP","DATAO",50.68,2346)
+0
+"TEMP","DATAO",50.68,2347)
+24201^3130927.142848^8^358^
+"TEMP","DATAO",50.68,2348)
+5
+"TEMP","DATAO",50.68,2349)
+24201^3130927.142848^15^358^
+"TEMP","DATAO",50.68,2350)
+465
+"TEMP","DATAO",50.68,2351)
+24201^3130927.142848^19^358^
+"TEMP","DATAO",50.68,2352)
+0
+"TEMP","DATAO",50.68,2353)
+24201^3130927.142848^23^358^
+"TEMP","DATAO",50.68,2354)
+1
+"TEMP","DATAO",50.68,2355)
+24201^3130927.142848^31^358^
+"TEMP","DATAO",50.68,2356)
+0
+"TEMP","DATAO",50.68,2357)
+24201^3130927.142848^40^358^
+"TEMP","DATAO",50.68,2358)
+Y
+"TEMP","DATAO",50.68,2359)
+24201^3130927.142848^99.98^358^
+"TEMP","DATAO",50.68,2360)
+1
+"TEMP","DATAO",50.68,2361)
+24201^3130927.142848^99.99^358^
+"TEMP","DATAO",50.68,2362)
+4032744
+"TEMP","DATAO",50.68,2363)
+24201,1^3130927.142848^99.991,.02^358^
+"TEMP","DATAO",50.68,2364)
+1
+"TEMP","DATAO",50.68,2365)
+24201^3130927.14285^2000^358^
+"TEMP","DATAO",50.68,2366)
+624201
+"TEMP","DATAO",50.68,2367)
+24202^3130927.142944^.05^358^
+"TEMP","DATAO",50.68,2368)
+4554
+"TEMP","DATAO",50.68,2369)
+24202^3130927.142944^1^358^
+"TEMP","DATAO",50.68,2370)
+145
+"TEMP","DATAO",50.68,2371)
+24202^3130927.142944^17^358^
+"TEMP","DATAO",50.68,2372)
+0
+"TEMP","DATAO",50.68,2373)
+24202^3130927.142944^4^358^
+"TEMP","DATAO",50.68,2374)
+HYDROGEL GEL,TOP
+"TEMP","DATAO",50.68,2375)
+24202^3130927.142944^5^358^
+"TEMP","DATAO",50.68,2376)
+MICROCYN SKIN & WOUND TOP GEL
+"TEMP","DATAO",50.68,2377)
+24202^3130927.142944^7^358^
+"TEMP","DATAO",50.68,2378)
+0
+"TEMP","DATAO",50.68,2379)
+24202^3130927.142944^15^358^
+"TEMP","DATAO",50.68,2380)
+105
+"TEMP","DATAO",50.68,2381)
+24202^3130927.142944^19^358^
+"TEMP","DATAO",50.68,2382)
+0
+"TEMP","DATAO",50.68,2383)
+24202^3130927.142944^20^358^
+"TEMP","DATAO",50.68,2384)
+M
+"TEMP","DATAO",50.68,2385)
+24202^3130927.142944^23^358^
+"TEMP","DATAO",50.68,2386)
+1
+"TEMP","DATAO",50.68,2387)
+24202^3130927.142944^31^358^
+"TEMP","DATAO",50.68,2388)
+0
+"TEMP","DATAO",50.68,2389)
+24202^3130927.142944^40^358^
+"TEMP","DATAO",50.68,2390)
+Y
+"TEMP","DATAO",50.68,2391)
+24202^3130927.142944^99.98^358^
+"TEMP","DATAO",50.68,2392)
+1
+"TEMP","DATAO",50.68,2393)
+24202^3130927.142944^99.99^358^
+"TEMP","DATAO",50.68,2394)
+4032745
+"TEMP","DATAO",50.68,2395)
+24202,1^3130927.142944^99.991,.02^358^
+"TEMP","DATAO",50.68,2396)
+1
+"TEMP","DATAO",50.68,2397)
+24202^3130927.142945^2000^358^
+"TEMP","DATAO",50.68,2398)
+624202
+"TEMP","DATAO",50.68,2399)
+24202^3130927.15161^6^358^
+"TEMP","DATAO",50.68,2400)
+M1006
+"TEMP","DATAO",50.68,2401)
+24202^3130927.15161^8^358^
+"TEMP","DATAO",50.68,2402)
+2
+"TEMP","DATAO",50.68,2403)
+24203^3130927.152655^.05^358^
+"TEMP","DATAO",50.68,2404)
+4554
+"TEMP","DATAO",50.68,2405)
+24203^3130927.152655^1^358^
+"TEMP","DATAO",50.68,2406)
+145
+"TEMP","DATAO",50.68,2407)
+24203^3130927.152655^17^358^
+"TEMP","DATAO",50.68,2408)
+0
+"TEMP","DATAO",50.68,2409)
+24203^3130927.152655^4^358^
+"TEMP","DATAO",50.68,2410)
+HYDROGEL GEL,TOP
+"TEMP","DATAO",50.68,2411)
+24203^3130927.152655^5^358^
+"TEMP","DATAO",50.68,2412)
+AURSTAT ANTI-ITCH TOP GEL
+"TEMP","DATAO",50.68,2413)
+24203^3130927.152655^6^358^
+"TEMP","DATAO",50.68,2414)
+A1726
+"TEMP","DATAO",50.68,2415)
+24203^3130927.152655^7^358^
+"TEMP","DATAO",50.68,2416)
+0
+"TEMP","DATAO",50.68,2417)
+24203^3130927.152655^8^358^
+"TEMP","DATAO",50.68,2418)
+2
+"TEMP","DATAO",50.68,2419)
+24203^3130927.152655^15^358^
+"TEMP","DATAO",50.68,2420)
+339
+"TEMP","DATAO",50.68,2421)
+24203^3130927.152655^19^358^
+"TEMP","DATAO",50.68,2422)
+0
+"TEMP","DATAO",50.68,2423)
+24203^3130927.152655^20^358^
+"TEMP","DATAO",50.68,2424)
+M
+"TEMP","DATAO",50.68,2425)
+24203^3130927.152655^31^358^
+"TEMP","DATAO",50.68,2426)
+0
+"TEMP","DATAO",50.68,2427)
+24203^3130927.152655^40^358^
+"TEMP","DATAO",50.68,2428)
+Y
+"TEMP","DATAO",50.68,2429)
+24203^3130927.152655^99.98^358^
+"TEMP","DATAO",50.68,2430)
+1
+"TEMP","DATAO",50.68,2431)
+24203^3130927.152655^99.99^358^
+"TEMP","DATAO",50.68,2432)
+4032748
+"TEMP","DATAO",50.68,2433)
+24203,1^3130927.152656^99.991,.02^358^
+"TEMP","DATAO",50.68,2434)
+1
+"TEMP","DATAO",50.68,2435)
+24203^3130927.152656^2000^358^
+"TEMP","DATAO",50.68,2436)
+624203
+"TEMP","DATAO",50.68,2437)
+7640^3130930.070736^21^358^
+"TEMP","DATAO",50.68,2438)
+3130930
+"TEMP","DATAO",50.68,2439)
+7640,1873^3130930.070737^14,1^358^
+"TEMP","DATAO",50.68,2440)
+2.25
+"TEMP","DATAO",50.68,2441)
+7640,1873^3130930.070737^14,2^358^
+"TEMP","DATAO",50.68,2442)
+44
+"TEMP","DATAO",50.68,2443)
+24185^3130930.112456^17^358^
+"TEMP","DATAO",50.68,2444)
+1
+"TEMP","DATAO",50.68,2445)
+24185,1071^3130930.112456^14,1^358^
+"TEMP","DATAO",50.68,2446)
+7.5
+"TEMP","DATAO",50.68,2447)
+24185,1071^3130930.112456^14,2^358^
+"TEMP","DATAO",50.68,2448)
+26
+"TEMP","DATAO",50.68,2449)
+24185,105^3130930.112456^14,1^358^
+"TEMP","DATAO",50.68,2450)
+325
+"TEMP","DATAO",50.68,2451)
+24185,105^3130930.112456^14,2^358^
+"TEMP","DATAO",50.68,2452)
+26
+"TEMP","DATAO",50.68,2453)
+24184^3130930.112457^17^358^
+"TEMP","DATAO",50.68,2454)
+1
+"TEMP","DATAO",50.68,2455)
+24184,1071^3130930.112457^14,1^358^
+"TEMP","DATAO",50.68,2456)
+5
+"TEMP","DATAO",50.68,2457)
+24184,1071^3130930.112457^14,2^358^
+"TEMP","DATAO",50.68,2458)
+25
+"TEMP","DATAO",50.68,2459)
+24184,105^3130930.112457^14,1^358^
+"TEMP","DATAO",50.68,2460)
+217
+"TEMP","DATAO",50.68,2461)
+24184,105^3130930.112457^14,2^358^
+"TEMP","DATAO",50.68,2462)
+25
+"TEMP","DATAO",50.68,2463)
+24183^3130930.112458^17^358^
+"TEMP","DATAO",50.68,2464)
+1
+"TEMP","DATAO",50.68,2465)
+24183,105^3130930.112458^14,1^358^
+"TEMP","DATAO",50.68,2466)
+108
+"TEMP","DATAO",50.68,2467)
+24183,105^3130930.112458^14,2^358^
+"TEMP","DATAO",50.68,2468)
+32
+"TEMP","DATAO",50.68,2469)
+24183,1071^3130930.112458^14,1^358^
+"TEMP","DATAO",50.68,2470)
+2.5
+"TEMP","DATAO",50.68,2471)
+24183,1071^3130930.112458^14,2^358^
+"TEMP","DATAO",50.68,2472)
+32
+"TEMP","DATAO",50.68,2473)
+22716^3130930.112459^17^358^
+"TEMP","DATAO",50.68,2474)
+1
+"TEMP","DATAO",50.68,2475)
+22716,1071^3130930.112459^14,1^358^
+"TEMP","DATAO",50.68,2476)
+7.5
+"TEMP","DATAO",50.68,2477)
+22716,1071^3130930.112459^14,2^358^
+"TEMP","DATAO",50.68,2478)
+26
+"TEMP","DATAO",50.68,2479)
+22716,105^3130930.112459^14,1^358^
+"TEMP","DATAO",50.68,2480)
+325
+"TEMP","DATAO",50.68,2481)
+22716,105^3130930.112459^14,2^358^
+"TEMP","DATAO",50.68,2482)
+26
+"TEMP","DATAO",50.68,2483)
+24153^3131001.070404^5^358^
+"TEMP","DATAO",50.68,2484)
+BRIMONIDINE TARTRATE 0.33% TOP GEL
+"TEMP","DATAO",50.68,2485)
+24153^3131001.070404^6^358^
+"TEMP","DATAO",50.68,2486)
+B0727
+"TEMP","DATAO",50.68,2487)
+24153,3669^3131001.070404^14,1^358^
+"TEMP","DATAO",50.68,2488)
+0.33
+"TEMP","DATAO",50.68,2489)
+24153,3669^3131001.070404^14,2^358^
+"TEMP","DATAO",50.68,2490)
+44
+"TEMP","DATAO",50.68,2491)
+20102^3131001.075557^17^358^
+"TEMP","DATAO",50.68,2492)
+1
+"TEMP","DATAO",50.68,2493)
+20102,589^3131001.075558^14,1^358^
+"TEMP","DATAO",50.68,2494)
+3.5
+"TEMP","DATAO",50.68,2495)
+20102,589^3131001.075558^14,2^358^
+"TEMP","DATAO",50.68,2496)
+44
+"TEMP","DATAO",50.68,2497)
+1083^3131001.080028^17^358^
+"TEMP","DATAO",50.68,2498)
+1
+"TEMP","DATAO",50.68,2499)
+1083,207^3131001.080028^14,1^358^
+"TEMP","DATAO",50.68,2500)
+250
+"TEMP","DATAO",50.68,2501)
+1083,207^3131001.080028^14,2^358^
+"TEMP","DATAO",50.68,2502)
+21
+"TEMP","DATAO",50.68,2503)
+2708,632^3131001.132327^14,1^358^
+"TEMP","DATAO",50.68,2504)
+2
+"TEMP","DATAO",50.68,2505)
+2708,632^3131001.132327^14,2^358^
+"TEMP","DATAO",50.68,2506)
+21
+"TEMP","DATAO",50.68,2507)
+2707,632^3131001.132644^14,1^358^
+"TEMP","DATAO",50.68,2508)
+1
+"TEMP","DATAO",50.68,2509)
+2707,632^3131001.132644^14,2^358^
+"TEMP","DATAO",50.68,2510)
+21
+"TEMP","DATAO",50.68,2511)
+2709,632^3131001.132827^14,1^358^
+"TEMP","DATAO",50.68,2512)
+4
+"TEMP","DATAO",50.68,2513)
+2709,632^3131001.132827^14,2^358^
+"TEMP","DATAO",50.68,2514)
+21
+"TEMP","DATAO",56,1)
+9625^3130917.135846^1^345^
+"TEMP","DATAO",56,2)
+3725
+"TEMP","DATAO",56,3)
+9625^3130917.135846^2^345^
+"TEMP","DATAO",56,4)
+4235
+"TEMP","DATAO",56,5)
+9625^3130917.135846^3^345^
+"TEMP","DATAO",56,6)
+2
+"TEMP","DATAO",56,7)
+9625^3130917.135846^4^345^
+"TEMP","DATAO",56,8)
+1
+"TEMP","DATAO",56,9)
+9626^3130917.145937^1^345^
+"TEMP","DATAO",56,10)
+4438
+"TEMP","DATAO",56,11)
+9626^3130917.145937^2^345^
+"TEMP","DATAO",56,12)
+2243
+"TEMP","DATAO",56,13)
+9626^3130917.145937^3^345^
+"TEMP","DATAO",56,14)
+1
+"TEMP","DATAO",56,15)
+9626^3130917.145937^4^345^
+"TEMP","DATAO",56,16)
+1
+"TEMP","DATAO",56,17)
+9627^3130917.145958^1^345^
+"TEMP","DATAO",56,18)
+4438
+"TEMP","DATAO",56,19)
+9627^3130917.145958^2^345^
+"TEMP","DATAO",56,20)
+4084
+"TEMP","DATAO",56,21)
+9627^3130917.145958^3^345^
+"TEMP","DATAO",56,22)
+1
+"TEMP","DATAO",56,23)
+9627^3130917.145958^4^345^
+"TEMP","DATAO",56,24)
+1
+"TEMP","DATAO",56,25)
+9628^3130917.150006^1^345^
+"TEMP","DATAO",56,26)
+4438
+"TEMP","DATAO",56,27)
+9628^3130917.150006^2^345^
+"TEMP","DATAO",56,28)
+570
+"TEMP","DATAO",56,29)
+9628^3130917.150006^3^345^
+"TEMP","DATAO",56,30)
+1
+"TEMP","DATAO",56,31)
+9628^3130917.150006^4^345^
+"TEMP","DATAO",56,32)
+1
+"TEMP","DATAO",56,33)
+9629^3130917.150015^1^345^
+"TEMP","DATAO",56,34)
+4438
+"TEMP","DATAO",56,35)
+9629^3130917.150015^2^345^
+"TEMP","DATAO",56,36)
+575
+"TEMP","DATAO",56,37)
+9629^3130917.150015^3^345^
+"TEMP","DATAO",56,38)
+1
+"TEMP","DATAO",56,39)
+9629^3130917.150015^4^345^
+"TEMP","DATAO",56,40)
+1
+"TEMP","DATAO",56,41)
+9630^3130917.15002^1^345^
+"TEMP","DATAO",56,42)
+4438
+"TEMP","DATAO",56,43)
+9630^3130917.15002^2^345^
+"TEMP","DATAO",56,44)
+574
+"TEMP","DATAO",56,45)
+9630^3130917.15002^3^345^
+"TEMP","DATAO",56,46)
+1
+"TEMP","DATAO",56,47)
+9630^3130917.15002^4^345^
+"TEMP","DATAO",56,48)
+1
+"TEMP","DATAO",56,49)
+9631^3130917.150026^1^345^
+"TEMP","DATAO",56,50)
+4438
+"TEMP","DATAO",56,51)
+9631^3130917.150027^2^345^
+"TEMP","DATAO",56,52)
+569
+"TEMP","DATAO",56,53)
+9631^3130917.150027^3^345^
+"TEMP","DATAO",56,54)
+1
+"TEMP","DATAO",56,55)
+9631^3130917.150027^4^345^
+"TEMP","DATAO",56,56)
+1
+"TEMP","DATAO",56,57)
+9632^3130917.150031^1^345^
+"TEMP","DATAO",56,58)
+4438
+"TEMP","DATAO",56,59)
+9632^3130917.150031^2^345^
+"TEMP","DATAO",56,60)
+572
+"TEMP","DATAO",56,61)
+9632^3130917.150031^3^345^
+"TEMP","DATAO",56,62)
+1
+"TEMP","DATAO",56,63)
+9632^3130917.150031^4^345^
+"TEMP","DATAO",56,64)
+1
+"TEMP","DATAO",56,65)
+9633^3130917.150038^1^345^
+"TEMP","DATAO",56,66)
+4438
+"TEMP","DATAO",56,67)
+9633^3130917.150038^2^345^
+"TEMP","DATAO",56,68)
+415
+"TEMP","DATAO",56,69)
+9633^3130917.150038^3^345^
+"TEMP","DATAO",56,70)
+1
+"TEMP","DATAO",56,71)
+9633^3130917.150038^4^345^
+"TEMP","DATAO",56,72)
+1
+"TEMP","DATAO",56,73)
+9634^3130917.150043^1^345^
+"TEMP","DATAO",56,74)
+4438
+"TEMP","DATAO",56,75)
+9634^3130917.150044^2^345^
+"TEMP","DATAO",56,76)
+3810
+"TEMP","DATAO",56,77)
+9634^3130917.150044^3^345^
+"TEMP","DATAO",56,78)
+1
+"TEMP","DATAO",56,79)
+9634^3130917.150044^4^345^
+"TEMP","DATAO",56,80)
+1
+"TEMP","DATAO",56,81)
+9635^3130917.150051^1^345^
+"TEMP","DATAO",56,82)
+4438
+"TEMP","DATAO",56,83)
+9635^3130917.150051^2^345^
+"TEMP","DATAO",56,84)
+573
+"TEMP","DATAO",56,85)
+9635^3130917.150051^3^345^
+"TEMP","DATAO",56,86)
+1
+"TEMP","DATAO",56,87)
+9635^3130917.150051^4^345^
+"TEMP","DATAO",56,88)
+1
+"TEMP","DATAO",56,89)
+9636^3130917.150057^1^345^
+"TEMP","DATAO",56,90)
+4438
+"TEMP","DATAO",56,91)
+9636^3130917.150057^2^345^
+"TEMP","DATAO",56,92)
+635
+"TEMP","DATAO",56,93)
+9636^3130917.150057^3^345^
+"TEMP","DATAO",56,94)
+1
+"TEMP","DATAO",56,95)
+9636^3130917.150057^4^345^
+"TEMP","DATAO",56,96)
+1
+"TEMP","DATAO",56,97)
+9637^3130917.150105^1^345^
+"TEMP","DATAO",56,98)
+4438
+"TEMP","DATAO",56,99)
+9637^3130917.150105^2^345^
+"TEMP","DATAO",56,100)
+3707
+"TEMP","DATAO",56,101)
+9637^3130917.150105^3^345^
+"TEMP","DATAO",56,102)
+1
+"TEMP","DATAO",56,103)
+9637^3130917.150105^4^345^
+"TEMP","DATAO",56,104)
+1
+"TEMP","DATAO",56,105)
+9638^3130917.150114^1^345^
+"TEMP","DATAO",56,106)
+4438
+"TEMP","DATAO",56,107)
+9638^3130917.150114^2^345^
+"TEMP","DATAO",56,108)
+350
+"TEMP","DATAO",56,109)
+9638^3130917.150114^3^345^
+"TEMP","DATAO",56,110)
+1
+"TEMP","DATAO",56,111)
+9638^3130917.150114^4^345^
+"TEMP","DATAO",56,112)
+1
+"TEMP","DATAO",56,113)
+9639^3130917.150121^1^345^
+"TEMP","DATAO",56,114)
+4438
+"TEMP","DATAO",56,115)
+9639^3130917.150121^2^345^
+"TEMP","DATAO",56,116)
+4347
+"TEMP","DATAO",56,117)
+9639^3130917.150121^3^345^
+"TEMP","DATAO",56,118)
+1
+"TEMP","DATAO",56,119)
+9639^3130917.150121^4^345^
+"TEMP","DATAO",56,120)
+1
+"TEMP","DATAO",56,121)
+9640^3130917.15013^1^345^
+"TEMP","DATAO",56,122)
+4200
+"TEMP","DATAO",56,123)
+9640^3130917.15013^2^345^
+"TEMP","DATAO",56,124)
+2243
+"TEMP","DATAO",56,125)
+9640^3130917.15013^3^345^
+"TEMP","DATAO",56,126)
+1
+"TEMP","DATAO",56,127)
+9640^3130917.15013^4^345^
+"TEMP","DATAO",56,128)
+1
+"TEMP","DATAO",56,129)
+9641^3130917.150223^1^345^
+"TEMP","DATAO",56,130)
+4200
+"TEMP","DATAO",56,131)
+9641^3130917.150223^2^345^
+"TEMP","DATAO",56,132)
+4084
+"TEMP","DATAO",56,133)
+9641^3130917.150223^3^345^
+"TEMP","DATAO",56,134)
+1
+"TEMP","DATAO",56,135)
+9641^3130917.150223^4^345^
+"TEMP","DATAO",56,136)
+1
+"TEMP","DATAO",56,137)
+9642^3130917.150231^1^345^
+"TEMP","DATAO",56,138)
+4200
+"TEMP","DATAO",56,139)
+9642^3130917.150231^2^345^
+"TEMP","DATAO",56,140)
+570
+"TEMP","DATAO",56,141)
+9642^3130917.150231^3^345^
+"TEMP","DATAO",56,142)
+1
+"TEMP","DATAO",56,143)
+9642^3130917.150231^4^345^
+"TEMP","DATAO",56,144)
+1
+"TEMP","DATAO",56,145)
+9643^3130917.150236^1^345^
+"TEMP","DATAO",56,146)
+4200
+"TEMP","DATAO",56,147)
+9643^3130917.150236^2^345^
+"TEMP","DATAO",56,148)
+575
+"TEMP","DATAO",56,149)
+9643^3130917.150236^3^345^
+"TEMP","DATAO",56,150)
+1
+"TEMP","DATAO",56,151)
+9643^3130917.150236^4^345^
+"TEMP","DATAO",56,152)
+1
+"TEMP","DATAO",56,153)
+9644^3130917.150252^1^345^
+"TEMP","DATAO",56,154)
+4200
+"TEMP","DATAO",56,155)
+9644^3130917.150252^2^345^
+"TEMP","DATAO",56,156)
+574
+"TEMP","DATAO",56,157)
+9644^3130917.150252^3^345^
+"TEMP","DATAO",56,158)
+1
+"TEMP","DATAO",56,159)
+9644^3130917.150252^4^345^
+"TEMP","DATAO",56,160)
+1
+"TEMP","DATAO",56,161)
+9645^3130917.1503^1^345^
+"TEMP","DATAO",56,162)
+4200
+"TEMP","DATAO",56,163)
+9645^3130917.1503^2^345^
+"TEMP","DATAO",56,164)
+569
+"TEMP","DATAO",56,165)
+9645^3130917.1503^3^345^
+"TEMP","DATAO",56,166)
+1
+"TEMP","DATAO",56,167)
+9645^3130917.1503^4^345^
+"TEMP","DATAO",56,168)
+1
+"TEMP","DATAO",56,169)
+9646^3130917.150307^1^345^
+"TEMP","DATAO",56,170)
+4200
+"TEMP","DATAO",56,171)
+9646^3130917.150307^2^345^
+"TEMP","DATAO",56,172)
+572
+"TEMP","DATAO",56,173)
+9646^3130917.150307^3^345^
+"TEMP","DATAO",56,174)
+1
+"TEMP","DATAO",56,175)
+9646^3130917.150307^4^345^
+"TEMP","DATAO",56,176)
+1
+"TEMP","DATAO",56,177)
+9647^3130917.150314^1^345^
+"TEMP","DATAO",56,178)
+4200
+"TEMP","DATAO",56,179)
+9647^3130917.150314^2^345^
+"TEMP","DATAO",56,180)
+415
+"TEMP","DATAO",56,181)
+9647^3130917.150314^3^345^
+"TEMP","DATAO",56,182)
+1
+"TEMP","DATAO",56,183)
+9647^3130917.150314^4^345^
+"TEMP","DATAO",56,184)
+1
+"TEMP","DATAO",56,185)
+9648^3130917.15032^1^345^
+"TEMP","DATAO",56,186)
+4200
+"TEMP","DATAO",56,187)
+9648^3130917.15032^2^345^
+"TEMP","DATAO",56,188)
+3810
+"TEMP","DATAO",56,189)
+9648^3130917.15032^3^345^
+"TEMP","DATAO",56,190)
+1
+"TEMP","DATAO",56,191)
+9648^3130917.15032^4^345^
+"TEMP","DATAO",56,192)
+1
+"TEMP","DATAO",56,193)
+9649^3130917.150325^1^345^
+"TEMP","DATAO",56,194)
+4200
+"TEMP","DATAO",56,195)
+9649^3130917.150325^2^345^
+"TEMP","DATAO",56,196)
+573
+"TEMP","DATAO",56,197)
+9649^3130917.150325^3^345^
+"TEMP","DATAO",56,198)
+1
+"TEMP","DATAO",56,199)
+9649^3130917.150325^4^345^
+"TEMP","DATAO",56,200)
+1
+"TEMP","DATAO",56,201)
+9650^3130917.150332^1^345^
+"TEMP","DATAO",56,202)
+4200
+"TEMP","DATAO",56,203)
+9650^3130917.150332^2^345^
+"TEMP","DATAO",56,204)
+635
+"TEMP","DATAO",56,205)
+9650^3130917.150332^3^345^
+"TEMP","DATAO",56,206)
+1
+"TEMP","DATAO",56,207)
+9650^3130917.150332^4^345^
+"TEMP","DATAO",56,208)
+1
+"TEMP","DATAO",56,209)
+9651^3130917.150343^1^345^
+"TEMP","DATAO",56,210)
+4200
+"TEMP","DATAO",56,211)
+9651^3130917.150343^2^345^
+"TEMP","DATAO",56,212)
+3707
+"TEMP","DATAO",56,213)
+9651^3130917.150343^3^345^
+"TEMP","DATAO",56,214)
+1
+"TEMP","DATAO",56,215)
+9651^3130917.150343^4^345^
+"TEMP","DATAO",56,216)
+1
+"TEMP","DATAO",56,217)
+9652^3130917.150352^1^345^
+"TEMP","DATAO",56,218)
+4200
+"TEMP","DATAO",56,219)
+9652^3130917.150352^2^345^
+"TEMP","DATAO",56,220)
+350
+"TEMP","DATAO",56,221)
+9652^3130917.150352^3^345^
+"TEMP","DATAO",56,222)
+1
+"TEMP","DATAO",56,223)
+9652^3130917.150352^4^345^
+"TEMP","DATAO",56,224)
+1
+"TEMP","DATAO",56,225)
+9653^3130917.150409^1^345^
+"TEMP","DATAO",56,226)
+4200
+"TEMP","DATAO",56,227)
+9653^3130917.150409^2^345^
+"TEMP","DATAO",56,228)
+4347
+"TEMP","DATAO",56,229)
+9653^3130917.150409^3^345^
+"TEMP","DATAO",56,230)
+1
+"TEMP","DATAO",56,231)
+9653^3130917.150409^4^345^
+"TEMP","DATAO",56,232)
+1
+"TEMP","DATAO",56,233)
+9654^3130917.1505^1^345^
+"TEMP","DATAO",56,234)
+4275
+"TEMP","DATAO",56,235)
+9654^3130917.1505^2^345^
+"TEMP","DATAO",56,236)
+2243
+"TEMP","DATAO",56,237)
+9654^3130917.1505^3^345^
+"TEMP","DATAO",56,238)
+1
+"TEMP","DATAO",56,239)
+9654^3130917.1505^4^345^
+"TEMP","DATAO",56,240)
+1
+"TEMP","DATAO",56,241)
+9655^3130917.150508^1^345^
+"TEMP","DATAO",56,242)
+4275
+"TEMP","DATAO",56,243)
+9655^3130917.150508^2^345^
+"TEMP","DATAO",56,244)
+4084
+"TEMP","DATAO",56,245)
+9655^3130917.150508^3^345^
+"TEMP","DATAO",56,246)
+1
+"TEMP","DATAO",56,247)
+9655^3130917.150508^4^345^
+"TEMP","DATAO",56,248)
+1
+"TEMP","DATAO",56,249)
+9656^3130917.150513^1^345^
+"TEMP","DATAO",56,250)
+4275
+"TEMP","DATAO",56,251)
+9656^3130917.150513^2^345^
+"TEMP","DATAO",56,252)
+570
+"TEMP","DATAO",56,253)
+9656^3130917.150513^3^345^
+"TEMP","DATAO",56,254)
+1
+"TEMP","DATAO",56,255)
+9656^3130917.150513^4^345^
+"TEMP","DATAO",56,256)
+1
+"TEMP","DATAO",56,257)
+9657^3130917.15052^1^345^
+"TEMP","DATAO",56,258)
+4275
+"TEMP","DATAO",56,259)
+9657^3130917.15052^2^345^
+"TEMP","DATAO",56,260)
+575
+"TEMP","DATAO",56,261)
+9657^3130917.15052^3^345^
+"TEMP","DATAO",56,262)
+1
+"TEMP","DATAO",56,263)
+9657^3130917.15052^4^345^
+"TEMP","DATAO",56,264)
+1
+"TEMP","DATAO",56,265)
+9658^3130917.150525^1^345^
+"TEMP","DATAO",56,266)
+4275
+"TEMP","DATAO",56,267)
+9658^3130917.150525^2^345^
+"TEMP","DATAO",56,268)
+574
+"TEMP","DATAO",56,269)
+9658^3130917.150525^3^345^
+"TEMP","DATAO",56,270)
+1
+"TEMP","DATAO",56,271)
+9658^3130917.150525^4^345^
+"TEMP","DATAO",56,272)
+1
+"TEMP","DATAO",56,273)
+9659^3130917.15053^1^345^
+"TEMP","DATAO",56,274)
+4275
+"TEMP","DATAO",56,275)
+9659^3130917.15053^2^345^
+"TEMP","DATAO",56,276)
+569
+"TEMP","DATAO",56,277)
+9659^3130917.15053^3^345^
+"TEMP","DATAO",56,278)
+1
+"TEMP","DATAO",56,279)
+9659^3130917.15053^4^345^
+"TEMP","DATAO",56,280)
+1
+"TEMP","DATAO",56,281)
+9660^3130917.15054^1^345^
+"TEMP","DATAO",56,282)
+4275
+"TEMP","DATAO",56,283)
+9660^3130917.15054^2^345^
+"TEMP","DATAO",56,284)
+572
+"TEMP","DATAO",56,285)
+9660^3130917.15054^3^345^
+"TEMP","DATAO",56,286)
+1
+"TEMP","DATAO",56,287)
+9660^3130917.15054^4^345^
+"TEMP","DATAO",56,288)
+1
+"TEMP","DATAO",56,289)
+9661^3130917.150602^1^345^
+"TEMP","DATAO",56,290)
+4275
+"TEMP","DATAO",56,291)
+9661^3130917.150602^2^345^
+"TEMP","DATAO",56,292)
+415
+"TEMP","DATAO",56,293)
+9661^3130917.150602^3^345^
+"TEMP","DATAO",56,294)
+1
+"TEMP","DATAO",56,295)
+9661^3130917.150602^4^345^
+"TEMP","DATAO",56,296)
+1
+"TEMP","DATAO",56,297)
+9662^3130917.15061^1^345^
+"TEMP","DATAO",56,298)
+4275
+"TEMP","DATAO",56,299)
+9662^3130917.15061^2^345^
+"TEMP","DATAO",56,300)
+3810
+"TEMP","DATAO",56,301)
+9662^3130917.15061^3^345^
+"TEMP","DATAO",56,302)
+1
+"TEMP","DATAO",56,303)
+9662^3130917.15061^4^345^
+"TEMP","DATAO",56,304)
+1
+"TEMP","DATAO",56,305)
+9663^3130917.150619^1^345^
+"TEMP","DATAO",56,306)
+4275
+"TEMP","DATAO",56,307)
+9663^3130917.150619^2^345^
+"TEMP","DATAO",56,308)
+573
+"TEMP","DATAO",56,309)
+9663^3130917.150619^3^345^
+"TEMP","DATAO",56,310)
+1
+"TEMP","DATAO",56,311)
+9663^3130917.150619^4^345^
+"TEMP","DATAO",56,312)
+1
+"TEMP","DATAO",56,313)
+9664^3130917.150631^1^345^
+"TEMP","DATAO",56,314)
+4275
+"TEMP","DATAO",56,315)
+9664^3130917.150631^2^345^
+"TEMP","DATAO",56,316)
+635
+"TEMP","DATAO",56,317)
+9664^3130917.150631^3^345^
+"TEMP","DATAO",56,318)
+1
+"TEMP","DATAO",56,319)
+9664^3130917.150631^4^345^
+"TEMP","DATAO",56,320)
+1
+"TEMP","DATAO",56,321)
+9665^3130917.150644^1^345^
+"TEMP","DATAO",56,322)
+4275
+"TEMP","DATAO",56,323)
+9665^3130917.150644^2^345^
+"TEMP","DATAO",56,324)
+3707
+"TEMP","DATAO",56,325)
+9665^3130917.150644^3^345^
+"TEMP","DATAO",56,326)
+1
+"TEMP","DATAO",56,327)
+9665^3130917.150644^4^345^
+"TEMP","DATAO",56,328)
+1
+"TEMP","DATAO",56,329)
+9666^3130917.150651^1^345^
+"TEMP","DATAO",56,330)
+4275
+"TEMP","DATAO",56,331)
+9666^3130917.150651^2^345^
+"TEMP","DATAO",56,332)
+350
+"TEMP","DATAO",56,333)
+9666^3130917.150651^3^345^
+"TEMP","DATAO",56,334)
+1
+"TEMP","DATAO",56,335)
+9666^3130917.150651^4^345^
+"TEMP","DATAO",56,336)
+1
+"TEMP","DATAO",56,337)
+9667^3130917.150656^1^345^
+"TEMP","DATAO",56,338)
+4275
+"TEMP","DATAO",56,339)
+9667^3130917.150656^2^345^
+"TEMP","DATAO",56,340)
+4347
+"TEMP","DATAO",56,341)
+9667^3130917.150656^3^345^
+"TEMP","DATAO",56,342)
+1
+"TEMP","DATAO",56,343)
+9667^3130917.150656^4^345^
+"TEMP","DATAO",56,344)
+1
+"TEMP","DATAO",56,345)
+9668^3130917.150704^1^345^
+"TEMP","DATAO",56,346)
+4485
+"TEMP","DATAO",56,347)
+9668^3130917.150704^2^345^
+"TEMP","DATAO",56,348)
+2243
+"TEMP","DATAO",56,349)
+9668^3130917.150704^3^345^
+"TEMP","DATAO",56,350)
+1
+"TEMP","DATAO",56,351)
+9668^3130917.150704^4^345^
+"TEMP","DATAO",56,352)
+1
+"TEMP","DATAO",56,353)
+9669^3130917.15071^1^345^
+"TEMP","DATAO",56,354)
+4485
+"TEMP","DATAO",56,355)
+9669^3130917.15071^2^345^
+"TEMP","DATAO",56,356)
+4084
+"TEMP","DATAO",56,357)
+9669^3130917.15071^3^345^
+"TEMP","DATAO",56,358)
+1
+"TEMP","DATAO",56,359)
+9669^3130917.15071^4^345^
+"TEMP","DATAO",56,360)
+1
+"TEMP","DATAO",56,361)
+9670^3130917.150715^1^345^
+"TEMP","DATAO",56,362)
+4485
+"TEMP","DATAO",56,363)
+9670^3130917.150715^2^345^
+"TEMP","DATAO",56,364)
+570
+"TEMP","DATAO",56,365)
+9670^3130917.150715^3^345^
+"TEMP","DATAO",56,366)
+1
+"TEMP","DATAO",56,367)
+9670^3130917.150715^4^345^
+"TEMP","DATAO",56,368)
+1
+"TEMP","DATAO",56,369)
+9671^3130917.150718^1^345^
+"TEMP","DATAO",56,370)
+4485
+"TEMP","DATAO",56,371)
+9671^3130917.150718^2^345^
+"TEMP","DATAO",56,372)
+575
+"TEMP","DATAO",56,373)
+9671^3130917.150718^3^345^
+"TEMP","DATAO",56,374)
+1
+"TEMP","DATAO",56,375)
+9671^3130917.150718^4^345^
+"TEMP","DATAO",56,376)
+1
+"TEMP","DATAO",56,377)
+9672^3130917.150724^1^345^
+"TEMP","DATAO",56,378)
+4485
+"TEMP","DATAO",56,379)
+9672^3130917.150724^2^345^
+"TEMP","DATAO",56,380)
+574
+"TEMP","DATAO",56,381)
+9672^3130917.150724^3^345^
+"TEMP","DATAO",56,382)
+1
+"TEMP","DATAO",56,383)
+9672^3130917.150724^4^345^
+"TEMP","DATAO",56,384)
+1
+"TEMP","DATAO",56,385)
+9673^3130917.150732^1^345^
+"TEMP","DATAO",56,386)
+4485
+"TEMP","DATAO",56,387)
+9673^3130917.150732^2^345^
+"TEMP","DATAO",56,388)
+569
+"TEMP","DATAO",56,389)
+9673^3130917.150732^3^345^
+"TEMP","DATAO",56,390)
+1
+"TEMP","DATAO",56,391)
+9673^3130917.150732^4^345^
+"TEMP","DATAO",56,392)
+1
+"TEMP","DATAO",56,393)
+9674^3130917.15074^1^345^
+"TEMP","DATAO",56,394)
+4485
+"TEMP","DATAO",56,395)
+9674^3130917.15074^2^345^
+"TEMP","DATAO",56,396)
+572
+"TEMP","DATAO",56,397)
+9674^3130917.15074^3^345^
+"TEMP","DATAO",56,398)
+1
+"TEMP","DATAO",56,399)
+9674^3130917.15074^4^345^
+"TEMP","DATAO",56,400)
+1
+"TEMP","DATAO",56,401)
+9675^3130917.150745^1^345^
+"TEMP","DATAO",56,402)
+4485
+"TEMP","DATAO",56,403)
+9675^3130917.150745^2^345^
+"TEMP","DATAO",56,404)
+415
+"TEMP","DATAO",56,405)
+9675^3130917.150745^3^345^
+"TEMP","DATAO",56,406)
+1
+"TEMP","DATAO",56,407)
+9675^3130917.150745^4^345^
+"TEMP","DATAO",56,408)
+1
+"TEMP","DATAO",56,409)
+9676^3130917.15075^1^345^
+"TEMP","DATAO",56,410)
+4485
+"TEMP","DATAO",56,411)
+9676^3130917.15075^2^345^
+"TEMP","DATAO",56,412)
+3810
+"TEMP","DATAO",56,413)
+9676^3130917.15075^3^345^
+"TEMP","DATAO",56,414)
+1
+"TEMP","DATAO",56,415)
+9676^3130917.15075^4^345^
+"TEMP","DATAO",56,416)
+1
+"TEMP","DATAO",56,417)
+9677^3130917.150801^1^345^
+"TEMP","DATAO",56,418)
+4485
+"TEMP","DATAO",56,419)
+9677^3130917.150801^2^345^
+"TEMP","DATAO",56,420)
+573
+"TEMP","DATAO",56,421)
+9677^3130917.150801^3^345^
+"TEMP","DATAO",56,422)
+1
+"TEMP","DATAO",56,423)
+9677^3130917.150801^4^345^
+"TEMP","DATAO",56,424)
+1
+"TEMP","DATAO",56,425)
+9678^3130917.150807^1^345^
+"TEMP","DATAO",56,426)
+4485
+"TEMP","DATAO",56,427)
+9678^3130917.150807^2^345^
+"TEMP","DATAO",56,428)
+635
+"TEMP","DATAO",56,429)
+9678^3130917.150807^3^345^
+"TEMP","DATAO",56,430)
+1
+"TEMP","DATAO",56,431)
+9678^3130917.150807^4^345^
+"TEMP","DATAO",56,432)
+1
+"TEMP","DATAO",56,433)
+9679^3130917.150814^1^345^
+"TEMP","DATAO",56,434)
+4485
+"TEMP","DATAO",56,435)
+9679^3130917.150814^2^345^
+"TEMP","DATAO",56,436)
+350
+"TEMP","DATAO",56,437)
+9679^3130917.150814^3^345^
+"TEMP","DATAO",56,438)
+1
+"TEMP","DATAO",56,439)
+9679^3130917.150814^4^345^
+"TEMP","DATAO",56,440)
+1
+"TEMP","DATAO",56,441)
+9680^3130917.150819^1^345^
+"TEMP","DATAO",56,442)
+4485
+"TEMP","DATAO",56,443)
+9680^3130917.150819^2^345^
+"TEMP","DATAO",56,444)
+4347
+"TEMP","DATAO",56,445)
+9680^3130917.150819^3^345^
+"TEMP","DATAO",56,446)
+1
+"TEMP","DATAO",56,447)
+9680^3130917.150819^4^345^
+"TEMP","DATAO",56,448)
+1
+"TEMP","DATAO",56,449)
+9681^3130917.150845^1^345^
+"TEMP","DATAO",56,450)
+4657
+"TEMP","DATAO",56,451)
+9681^3130917.150845^2^345^
+"TEMP","DATAO",56,452)
+2243
+"TEMP","DATAO",56,453)
+9681^3130917.150845^3^345^
+"TEMP","DATAO",56,454)
+1
+"TEMP","DATAO",56,455)
+9681^3130917.150845^4^345^
+"TEMP","DATAO",56,456)
+1
+"TEMP","DATAO",56,457)
+9682^3130917.15085^1^345^
+"TEMP","DATAO",56,458)
+4657
+"TEMP","DATAO",56,459)
+9682^3130917.15085^2^345^
+"TEMP","DATAO",56,460)
+4084
+"TEMP","DATAO",56,461)
+9682^3130917.15085^3^345^
+"TEMP","DATAO",56,462)
+1
+"TEMP","DATAO",56,463)
+9682^3130917.15085^4^345^
+"TEMP","DATAO",56,464)
+1
+"TEMP","DATAO",56,465)
+9683^3130917.150853^1^345^
+"TEMP","DATAO",56,466)
+4657
+"TEMP","DATAO",56,467)
+9683^3130917.150853^2^345^
+"TEMP","DATAO",56,468)
+570
+"TEMP","DATAO",56,469)
+9683^3130917.150853^3^345^
+"TEMP","DATAO",56,470)
+1
+"TEMP","DATAO",56,471)
+9683^3130917.150853^4^345^
+"TEMP","DATAO",56,472)
+1
+"TEMP","DATAO",56,473)
+9684^3130917.150857^1^345^
+"TEMP","DATAO",56,474)
+4657
+"TEMP","DATAO",56,475)
+9684^3130917.150857^2^345^
+"TEMP","DATAO",56,476)
+575
+"TEMP","DATAO",56,477)
+9684^3130917.150857^3^345^
+"TEMP","DATAO",56,478)
+1
+"TEMP","DATAO",56,479)
+9684^3130917.150857^4^345^
+"TEMP","DATAO",56,480)
+1
+"TEMP","DATAO",56,481)
+9685^3130917.150903^1^345^
+"TEMP","DATAO",56,482)
+4657
+"TEMP","DATAO",56,483)
+9685^3130917.150903^2^345^
+"TEMP","DATAO",56,484)
+574
+"TEMP","DATAO",56,485)
+9685^3130917.150903^3^345^
+"TEMP","DATAO",56,486)
+1
+"TEMP","DATAO",56,487)
+9685^3130917.150903^4^345^
+"TEMP","DATAO",56,488)
+1
+"TEMP","DATAO",56,489)
+9686^3130917.150909^1^345^
+"TEMP","DATAO",56,490)
+4657
+"TEMP","DATAO",56,491)
+9686^3130917.150909^2^345^
+"TEMP","DATAO",56,492)
+569
+"TEMP","DATAO",56,493)
+9686^3130917.150909^3^345^
+"TEMP","DATAO",56,494)
+1
+"TEMP","DATAO",56,495)
+9686^3130917.150909^4^345^
+"TEMP","DATAO",56,496)
+1
+"TEMP","DATAO",56,497)
+9687^3130917.150914^1^345^
+"TEMP","DATAO",56,498)
+4657
+"TEMP","DATAO",56,499)
+9687^3130917.150914^2^345^
+"TEMP","DATAO",56,500)
+572
+"TEMP","DATAO",56,501)
+9687^3130917.150914^3^345^
+"TEMP","DATAO",56,502)
+1
+"TEMP","DATAO",56,503)
+9687^3130917.150914^4^345^
+"TEMP","DATAO",56,504)
+1
+"TEMP","DATAO",56,505)
+9688^3130917.150919^1^345^
+"TEMP","DATAO",56,506)
+4657
+"TEMP","DATAO",56,507)
+9688^3130917.150919^2^345^
+"TEMP","DATAO",56,508)
+415
+"TEMP","DATAO",56,509)
+9688^3130917.150919^3^345^
+"TEMP","DATAO",56,510)
+1
+"TEMP","DATAO",56,511)
+9688^3130917.150919^4^345^
+"TEMP","DATAO",56,512)
+1
+"TEMP","DATAO",56,513)
+9689^3130917.150926^1^345^
+"TEMP","DATAO",56,514)
+4657
+"TEMP","DATAO",56,515)
+9689^3130917.150926^2^345^
+"TEMP","DATAO",56,516)
+3810
+"TEMP","DATAO",56,517)
+9689^3130917.150926^3^345^
+"TEMP","DATAO",56,518)
+1
+"TEMP","DATAO",56,519)
+9689^3130917.150926^4^345^
+"TEMP","DATAO",56,520)
+1
+"TEMP","DATAO",56,521)
+9690^3130917.150933^1^345^
+"TEMP","DATAO",56,522)
+4657
+"TEMP","DATAO",56,523)
+9690^3130917.150933^2^345^
+"TEMP","DATAO",56,524)
+573
+"TEMP","DATAO",56,525)
+9690^3130917.150933^3^345^
+"TEMP","DATAO",56,526)
+1
+"TEMP","DATAO",56,527)
+9690^3130917.150933^4^345^
+"TEMP","DATAO",56,528)
+1
+"TEMP","DATAO",56,529)
+9691^3130917.150939^1^345^
+"TEMP","DATAO",56,530)
+4657
+"TEMP","DATAO",56,531)
+9691^3130917.150939^2^345^
+"TEMP","DATAO",56,532)
+635
+"TEMP","DATAO",56,533)
+9691^3130917.150939^3^345^
+"TEMP","DATAO",56,534)
+1
+"TEMP","DATAO",56,535)
+9691^3130917.150939^4^345^
+"TEMP","DATAO",56,536)
+1
+"TEMP","DATAO",56,537)
+9692^3130917.150947^1^345^
+"TEMP","DATAO",56,538)
+4657
+"TEMP","DATAO",56,539)
+9692^3130917.150947^2^345^
+"TEMP","DATAO",56,540)
+3707
+"TEMP","DATAO",56,541)
+9692^3130917.150947^3^345^
+"TEMP","DATAO",56,542)
+1
+"TEMP","DATAO",56,543)
+9692^3130917.150947^4^345^
+"TEMP","DATAO",56,544)
+1
+"TEMP","DATAO",56,545)
+9693^3130917.150953^1^345^
+"TEMP","DATAO",56,546)
+4657
+"TEMP","DATAO",56,547)
+9693^3130917.150953^2^345^
+"TEMP","DATAO",56,548)
+350
+"TEMP","DATAO",56,549)
+9693^3130917.150953^3^345^
+"TEMP","DATAO",56,550)
+1
+"TEMP","DATAO",56,551)
+9693^3130917.150953^4^345^
+"TEMP","DATAO",56,552)
+1
+"TEMP","DATAO",56,553)
+9694^3130917.151^1^345^
+"TEMP","DATAO",56,554)
+4657
+"TEMP","DATAO",56,555)
+9694^3130917.151^2^345^
+"TEMP","DATAO",56,556)
+4347
+"TEMP","DATAO",56,557)
+9694^3130917.151^3^345^
+"TEMP","DATAO",56,558)
+1
+"TEMP","DATAO",56,559)
+9694^3130917.151^4^345^
+"TEMP","DATAO",56,560)
+1
+"TEMP","DATAO",56,561)
+9695^3130917.15101^1^345^
+"TEMP","DATAO",56,562)
+4029
+"TEMP","DATAO",56,563)
+9695^3130917.15101^2^345^
+"TEMP","DATAO",56,564)
+2243
+"TEMP","DATAO",56,565)
+9695^3130917.15101^3^345^
+"TEMP","DATAO",56,566)
+1
+"TEMP","DATAO",56,567)
+9695^3130917.15101^4^345^
+"TEMP","DATAO",56,568)
+1
+"TEMP","DATAO",56,569)
+9696^3130917.151018^1^345^
+"TEMP","DATAO",56,570)
+4029
+"TEMP","DATAO",56,571)
+9696^3130917.151018^2^345^
+"TEMP","DATAO",56,572)
+4084
+"TEMP","DATAO",56,573)
+9696^3130917.151018^3^345^
+"TEMP","DATAO",56,574)
+1
+"TEMP","DATAO",56,575)
+9696^3130917.151018^4^345^
+"TEMP","DATAO",56,576)
+1
+"TEMP","DATAO",56,577)
+9697^3130917.151025^1^345^
+"TEMP","DATAO",56,578)
+4029
+"TEMP","DATAO",56,579)
+9697^3130917.151025^2^345^
+"TEMP","DATAO",56,580)
+570
+"TEMP","DATAO",56,581)
+9697^3130917.151025^3^345^
+"TEMP","DATAO",56,582)
+1
+"TEMP","DATAO",56,583)
+9697^3130917.151025^4^345^
+"TEMP","DATAO",56,584)
+1
+"TEMP","DATAO",56,585)
+9698^3130917.151041^1^345^
+"TEMP","DATAO",56,586)
+4029
+"TEMP","DATAO",56,587)
+9698^3130917.151041^2^345^
+"TEMP","DATAO",56,588)
+575
+"TEMP","DATAO",56,589)
+9698^3130917.151041^3^345^
+"TEMP","DATAO",56,590)
+1
+"TEMP","DATAO",56,591)
+9698^3130917.151041^4^345^
+"TEMP","DATAO",56,592)
+1
+"TEMP","DATAO",56,593)
+9699^3130917.151048^1^345^
+"TEMP","DATAO",56,594)
+4029
+"TEMP","DATAO",56,595)
+9699^3130917.151048^2^345^
+"TEMP","DATAO",56,596)
+574
+"TEMP","DATAO",56,597)
+9699^3130917.151048^3^345^
+"TEMP","DATAO",56,598)
+1
+"TEMP","DATAO",56,599)
+9699^3130917.151048^4^345^
+"TEMP","DATAO",56,600)
+1
+"TEMP","DATAO",56,601)
+9700^3130917.151056^1^345^
+"TEMP","DATAO",56,602)
+4029
+"TEMP","DATAO",56,603)
+9700^3130917.151056^2^345^
+"TEMP","DATAO",56,604)
+569
+"TEMP","DATAO",56,605)
+9700^3130917.151056^3^345^
+"TEMP","DATAO",56,606)
+1
+"TEMP","DATAO",56,607)
+9700^3130917.151056^4^345^
+"TEMP","DATAO",56,608)
+1
+"TEMP","DATAO",56,609)
+9701^3130917.151102^1^345^
+"TEMP","DATAO",56,610)
+4029
+"TEMP","DATAO",56,611)
+9701^3130917.151102^2^345^
+"TEMP","DATAO",56,612)
+572
+"TEMP","DATAO",56,613)
+9701^3130917.151102^3^345^
+"TEMP","DATAO",56,614)
+1
+"TEMP","DATAO",56,615)
+9701^3130917.151102^4^345^
+"TEMP","DATAO",56,616)
+1
+"TEMP","DATAO",56,617)
+9702^3130917.151129^1^345^
+"TEMP","DATAO",56,618)
+4029
+"TEMP","DATAO",56,619)
+9702^3130917.151129^2^345^
+"TEMP","DATAO",56,620)
+415
+"TEMP","DATAO",56,621)
+9702^3130917.151129^3^345^
+"TEMP","DATAO",56,622)
+1
+"TEMP","DATAO",56,623)
+9702^3130917.151129^4^345^
+"TEMP","DATAO",56,624)
+1
+"TEMP","DATAO",56,625)
+9703^3130917.151136^1^345^
+"TEMP","DATAO",56,626)
+4029
+"TEMP","DATAO",56,627)
+9703^3130917.151136^2^345^
+"TEMP","DATAO",56,628)
+3810
+"TEMP","DATAO",56,629)
+9703^3130917.151136^3^345^
+"TEMP","DATAO",56,630)
+1
+"TEMP","DATAO",56,631)
+9703^3130917.151136^4^345^
+"TEMP","DATAO",56,632)
+1
+"TEMP","DATAO",56,633)
+9704^3130917.151143^1^345^
+"TEMP","DATAO",56,634)
+4029
+"TEMP","DATAO",56,635)
+9704^3130917.151143^2^345^
+"TEMP","DATAO",56,636)
+573
+"TEMP","DATAO",56,637)
+9704^3130917.151143^3^345^
+"TEMP","DATAO",56,638)
+1
+"TEMP","DATAO",56,639)
+9704^3130917.151143^4^345^
+"TEMP","DATAO",56,640)
+1
+"TEMP","DATAO",56,641)
+9705^3130917.151151^1^345^
+"TEMP","DATAO",56,642)
+4029
+"TEMP","DATAO",56,643)
+9705^3130917.151151^2^345^
+"TEMP","DATAO",56,644)
+635
+"TEMP","DATAO",56,645)
+9705^3130917.151151^3^345^
+"TEMP","DATAO",56,646)
+1
+"TEMP","DATAO",56,647)
+9705^3130917.151151^4^345^
+"TEMP","DATAO",56,648)
+1
+"TEMP","DATAO",56,649)
+9706^3130917.151158^1^345^
+"TEMP","DATAO",56,650)
+4029
+"TEMP","DATAO",56,651)
+9706^3130917.151158^2^345^
+"TEMP","DATAO",56,652)
+3707
+"TEMP","DATAO",56,653)
+9706^3130917.151158^3^345^
+"TEMP","DATAO",56,654)
+1
+"TEMP","DATAO",56,655)
+9706^3130917.151158^4^345^
+"TEMP","DATAO",56,656)
+1
+"TEMP","DATAO",56,657)
+9707^3130917.15121^1^345^
+"TEMP","DATAO",56,658)
+4029
+"TEMP","DATAO",56,659)
+9707^3130917.15121^2^345^
+"TEMP","DATAO",56,660)
+350
+"TEMP","DATAO",56,661)
+9707^3130917.15121^3^345^
+"TEMP","DATAO",56,662)
+1
+"TEMP","DATAO",56,663)
+9707^3130917.15121^4^345^
+"TEMP","DATAO",56,664)
+1
+"TEMP","DATAO",56,665)
+9708^3130917.151214^1^345^
+"TEMP","DATAO",56,666)
+4029
+"TEMP","DATAO",56,667)
+9708^3130917.151215^2^345^
+"TEMP","DATAO",56,668)
+4347
+"TEMP","DATAO",56,669)
+9708^3130917.151215^3^345^
+"TEMP","DATAO",56,670)
+1
+"TEMP","DATAO",56,671)
+9708^3130917.151215^4^345^
+"TEMP","DATAO",56,672)
+1
+"TEMP","DATAO",56,673)
+9709^3130917.151243^1^345^
+"TEMP","DATAO",56,674)
+3386
+"TEMP","DATAO",56,675)
+9709^3130917.151243^2^345^
+"TEMP","DATAO",56,676)
+2243
+"TEMP","DATAO",56,677)
+9709^3130917.151243^3^345^
+"TEMP","DATAO",56,678)
+1
+"TEMP","DATAO",56,679)
+9709^3130917.151243^4^345^
+"TEMP","DATAO",56,680)
+1
+"TEMP","DATAO",56,681)
+9710^3130917.15125^1^345^
+"TEMP","DATAO",56,682)
+3386
+"TEMP","DATAO",56,683)
+9710^3130917.15125^2^345^
+"TEMP","DATAO",56,684)
+4084
+"TEMP","DATAO",56,685)
+9710^3130917.15125^3^345^
+"TEMP","DATAO",56,686)
+1
+"TEMP","DATAO",56,687)
+9710^3130917.15125^4^345^
+"TEMP","DATAO",56,688)
+1
+"TEMP","DATAO",56,689)
+9711^3130917.151256^1^345^
+"TEMP","DATAO",56,690)
+3386
+"TEMP","DATAO",56,691)
+9711^3130917.151256^2^345^
+"TEMP","DATAO",56,692)
+575
+"TEMP","DATAO",56,693)
+9711^3130917.151256^3^345^
+"TEMP","DATAO",56,694)
+1
+"TEMP","DATAO",56,695)
+9711^3130917.151256^4^345^
+"TEMP","DATAO",56,696)
+1
+"TEMP","DATAO",56,697)
+9712^3130917.151301^1^345^
+"TEMP","DATAO",56,698)
+3386
+"TEMP","DATAO",56,699)
+9712^3130917.151301^2^345^
+"TEMP","DATAO",56,700)
+574
+"TEMP","DATAO",56,701)
+9712^3130917.151301^3^345^
+"TEMP","DATAO",56,702)
+1
+"TEMP","DATAO",56,703)
+9712^3130917.151301^4^345^
+"TEMP","DATAO",56,704)
+1
+"TEMP","DATAO",56,705)
+9713^3130917.151307^1^345^
+"TEMP","DATAO",56,706)
+3386
+"TEMP","DATAO",56,707)
+9713^3130917.151307^2^345^
+"TEMP","DATAO",56,708)
+570
+"TEMP","DATAO",56,709)
+9713^3130917.151307^3^345^
+"TEMP","DATAO",56,710)
+1
+"TEMP","DATAO",56,711)
+9713^3130917.151307^4^345^
+"TEMP","DATAO",56,712)
+1
+"TEMP","DATAO",56,713)
+9714^3130917.151316^1^345^
+"TEMP","DATAO",56,714)
+3386
+"TEMP","DATAO",56,715)
+9714^3130917.151316^2^345^
+"TEMP","DATAO",56,716)
+569
+"TEMP","DATAO",56,717)
+9714^3130917.151316^3^345^
+"TEMP","DATAO",56,718)
+1
+"TEMP","DATAO",56,719)
+9714^3130917.151316^4^345^
+"TEMP","DATAO",56,720)
+1
+"TEMP","DATAO",56,721)
+9715^3130917.151321^1^345^
+"TEMP","DATAO",56,722)
+3386
+"TEMP","DATAO",56,723)
+9715^3130917.151321^2^345^
+"TEMP","DATAO",56,724)
+572
+"TEMP","DATAO",56,725)
+9715^3130917.151321^3^345^
+"TEMP","DATAO",56,726)
+1
+"TEMP","DATAO",56,727)
+9715^3130917.151321^4^345^
+"TEMP","DATAO",56,728)
+1
+"TEMP","DATAO",56,729)
+9716^3130917.151327^1^345^
+"TEMP","DATAO",56,730)
+3386
+"TEMP","DATAO",56,731)
+9716^3130917.151327^2^345^
+"TEMP","DATAO",56,732)
+415
+"TEMP","DATAO",56,733)
+9716^3130917.151327^3^345^
+"TEMP","DATAO",56,734)
+1
+"TEMP","DATAO",56,735)
+9716^3130917.151327^4^345^
+"TEMP","DATAO",56,736)
+1
+"TEMP","DATAO",56,737)
+9717^3130917.151332^1^345^
+"TEMP","DATAO",56,738)
+3386
+"TEMP","DATAO",56,739)
+9717^3130917.151332^2^345^
+"TEMP","DATAO",56,740)
+3810
+"TEMP","DATAO",56,741)
+9717^3130917.151332^3^345^
+"TEMP","DATAO",56,742)
+1
+"TEMP","DATAO",56,743)
+9717^3130917.151332^4^345^
+"TEMP","DATAO",56,744)
+1
+"TEMP","DATAO",56,745)
+9718^3130917.151337^1^345^
+"TEMP","DATAO",56,746)
+3386
+"TEMP","DATAO",56,747)
+9718^3130917.151337^2^345^
+"TEMP","DATAO",56,748)
+573
+"TEMP","DATAO",56,749)
+9718^3130917.151337^3^345^
+"TEMP","DATAO",56,750)
+1
+"TEMP","DATAO",56,751)
+9718^3130917.151337^4^345^
+"TEMP","DATAO",56,752)
+1
+"TEMP","DATAO",56,753)
+9719^3130917.151344^1^345^
+"TEMP","DATAO",56,754)
+3386
+"TEMP","DATAO",56,755)
+9719^3130917.151344^2^345^
+"TEMP","DATAO",56,756)
+635
+"TEMP","DATAO",56,757)
+9719^3130917.151344^3^345^
+"TEMP","DATAO",56,758)
+1
+"TEMP","DATAO",56,759)
+9719^3130917.151344^4^345^
+"TEMP","DATAO",56,760)
+1
+"TEMP","DATAO",56,761)
+9720^3130917.151354^1^345^
+"TEMP","DATAO",56,762)
+3386
+"TEMP","DATAO",56,763)
+9720^3130917.151354^2^345^
+"TEMP","DATAO",56,764)
+3707
+"TEMP","DATAO",56,765)
+9720^3130917.151354^3^345^
+"TEMP","DATAO",56,766)
+1
+"TEMP","DATAO",56,767)
+9720^3130917.151354^4^345^
+"TEMP","DATAO",56,768)
+1
+"TEMP","DATAO",56,769)
+9721^3130917.1514^1^345^
+"TEMP","DATAO",56,770)
+3386
+"TEMP","DATAO",56,771)
+9721^3130917.1514^2^345^
+"TEMP","DATAO",56,772)
+350
+"TEMP","DATAO",56,773)
+9721^3130917.1514^3^345^
+"TEMP","DATAO",56,774)
+1
+"TEMP","DATAO",56,775)
+9721^3130917.1514^4^345^
+"TEMP","DATAO",56,776)
+1
+"TEMP","DATAO",56,777)
+9722^3130917.151407^1^345^
+"TEMP","DATAO",56,778)
+3386
+"TEMP","DATAO",56,779)
+9722^3130917.151407^2^345^
+"TEMP","DATAO",56,780)
+4347
+"TEMP","DATAO",56,781)
+9722^3130917.151407^3^345^
+"TEMP","DATAO",56,782)
+1
+"TEMP","DATAO",56,783)
+9722^3130917.151407^4^345^
+"TEMP","DATAO",56,784)
+1
+"TEMP","DATAO",56,785)
+9723^3130917.151423^1^345^
+"TEMP","DATAO",56,786)
+4661
+"TEMP","DATAO",56,787)
+9723^3130917.151424^2^345^
+"TEMP","DATAO",56,788)
+2243
+"TEMP","DATAO",56,789)
+9723^3130917.151424^3^345^
+"TEMP","DATAO",56,790)
+1
+"TEMP","DATAO",56,791)
+9723^3130917.151424^4^345^
+"TEMP","DATAO",56,792)
+1
+"TEMP","DATAO",56,793)
+9724^3130917.151431^1^345^
+"TEMP","DATAO",56,794)
+4661
+"TEMP","DATAO",56,795)
+9724^3130917.151431^2^345^
+"TEMP","DATAO",56,796)
+4084
+"TEMP","DATAO",56,797)
+9724^3130917.151431^3^345^
+"TEMP","DATAO",56,798)
+1
+"TEMP","DATAO",56,799)
+9724^3130917.151431^4^345^
+"TEMP","DATAO",56,800)
+1
+"TEMP","DATAO",56,801)
+9725^3130917.151436^1^345^
+"TEMP","DATAO",56,802)
+4661
+"TEMP","DATAO",56,803)
+9725^3130917.151436^2^345^
+"TEMP","DATAO",56,804)
+570
+"TEMP","DATAO",56,805)
+9725^3130917.151436^3^345^
+"TEMP","DATAO",56,806)
+1
+"TEMP","DATAO",56,807)
+9725^3130917.151436^4^345^
+"TEMP","DATAO",56,808)
+1
+"TEMP","DATAO",56,809)
+9726^3130917.151439^1^345^
+"TEMP","DATAO",56,810)
+4661
+"TEMP","DATAO",56,811)
+9726^3130917.151439^2^345^
+"TEMP","DATAO",56,812)
+575
+"TEMP","DATAO",56,813)
+9726^3130917.151439^3^345^
+"TEMP","DATAO",56,814)
+1
+"TEMP","DATAO",56,815)
+9726^3130917.151439^4^345^
+"TEMP","DATAO",56,816)
+1
+"TEMP","DATAO",56,817)
+9727^3130917.151443^1^345^
+"TEMP","DATAO",56,818)
+4661
+"TEMP","DATAO",56,819)
+9727^3130917.151443^2^345^
+"TEMP","DATAO",56,820)
+574
+"TEMP","DATAO",56,821)
+9727^3130917.151443^3^345^
+"TEMP","DATAO",56,822)
+1
+"TEMP","DATAO",56,823)
+9727^3130917.151443^4^345^
+"TEMP","DATAO",56,824)
+1
+"TEMP","DATAO",56,825)
+9728^3130917.151449^1^345^
+"TEMP","DATAO",56,826)
+4661
+"TEMP","DATAO",56,827)
+9728^3130917.151449^2^345^
+"TEMP","DATAO",56,828)
+569
+"TEMP","DATAO",56,829)
+9728^3130917.151449^3^345^
+"TEMP","DATAO",56,830)
+1
+"TEMP","DATAO",56,831)
+9728^3130917.151449^4^345^
+"TEMP","DATAO",56,832)
+1
+"TEMP","DATAO",56,833)
+9729^3130917.151453^1^345^
+"TEMP","DATAO",56,834)
+4661
+"TEMP","DATAO",56,835)
+9729^3130917.151453^2^345^
+"TEMP","DATAO",56,836)
+572
+"TEMP","DATAO",56,837)
+9729^3130917.151453^3^345^
+"TEMP","DATAO",56,838)
+1
+"TEMP","DATAO",56,839)
+9729^3130917.151453^4^345^
+"TEMP","DATAO",56,840)
+1
+"TEMP","DATAO",56,841)
+9730^3130917.151458^1^345^
+"TEMP","DATAO",56,842)
+4661
+"TEMP","DATAO",56,843)
+9730^3130917.151458^2^345^
+"TEMP","DATAO",56,844)
+415
+"TEMP","DATAO",56,845)
+9730^3130917.151458^3^345^
+"TEMP","DATAO",56,846)
+1
+"TEMP","DATAO",56,847)
+9730^3130917.151458^4^345^
+"TEMP","DATAO",56,848)
+1
+"TEMP","DATAO",56,849)
+9731^3130917.151503^1^345^
+"TEMP","DATAO",56,850)
+4661
+"TEMP","DATAO",56,851)
+9731^3130917.151503^2^345^
+"TEMP","DATAO",56,852)
+3810
+"TEMP","DATAO",56,853)
+9731^3130917.151503^3^345^
+"TEMP","DATAO",56,854)
+1
+"TEMP","DATAO",56,855)
+9731^3130917.151503^4^345^
+"TEMP","DATAO",56,856)
+1
+"TEMP","DATAO",56,857)
+9732^3130917.151517^1^345^
+"TEMP","DATAO",56,858)
+4661
+"TEMP","DATAO",56,859)
+9732^3130917.151517^2^345^
+"TEMP","DATAO",56,860)
+573
+"TEMP","DATAO",56,861)
+9732^3130917.151517^3^345^
+"TEMP","DATAO",56,862)
+1
+"TEMP","DATAO",56,863)
+9732^3130917.151517^4^345^
+"TEMP","DATAO",56,864)
+1
+"TEMP","DATAO",56,865)
+9733^3130917.151524^1^345^
+"TEMP","DATAO",56,866)
+4661
+"TEMP","DATAO",56,867)
+9733^3130917.151524^2^345^
+"TEMP","DATAO",56,868)
+635
+"TEMP","DATAO",56,869)
+9733^3130917.151524^3^345^
+"TEMP","DATAO",56,870)
+1
+"TEMP","DATAO",56,871)
+9733^3130917.151524^4^345^
+"TEMP","DATAO",56,872)
+1
+"TEMP","DATAO",56,873)
+9734^3130917.151529^1^345^
+"TEMP","DATAO",56,874)
+4661
+"TEMP","DATAO",56,875)
+9734^3130917.151529^2^345^
+"TEMP","DATAO",56,876)
+3707
+"TEMP","DATAO",56,877)
+9734^3130917.151529^3^345^
+"TEMP","DATAO",56,878)
+1
+"TEMP","DATAO",56,879)
+9734^3130917.151529^4^345^
+"TEMP","DATAO",56,880)
+1
+"TEMP","DATAO",56,881)
+9735^3130917.151537^1^345^
+"TEMP","DATAO",56,882)
+4661
+"TEMP","DATAO",56,883)
+9735^3130917.151537^2^345^
+"TEMP","DATAO",56,884)
+350
+"TEMP","DATAO",56,885)
+9735^3130917.151537^3^345^
+"TEMP","DATAO",56,886)
+1
+"TEMP","DATAO",56,887)
+9735^3130917.151537^4^345^
+"TEMP","DATAO",56,888)
+1
+"TEMP","DATAO",56,889)
+9736^3130917.15154^1^345^
+"TEMP","DATAO",56,890)
+4661
+"TEMP","DATAO",56,891)
+9736^3130917.15154^2^345^
+"TEMP","DATAO",56,892)
+4347
+"TEMP","DATAO",56,893)
+9736^3130917.15154^3^345^
+"TEMP","DATAO",56,894)
+1
+"TEMP","DATAO",56,895)
+9736^3130917.15154^4^345^
+"TEMP","DATAO",56,896)
+1
+"TEMP","DATAO",56,897)
+9737^3130917.15162^1^345^
+"TEMP","DATAO",56,898)
+3524
+"TEMP","DATAO",56,899)
+9737^3130917.15162^2^345^
+"TEMP","DATAO",56,900)
+2243
+"TEMP","DATAO",56,901)
+9737^3130917.15162^3^345^
+"TEMP","DATAO",56,902)
+1
+"TEMP","DATAO",56,903)
+9737^3130917.15162^4^345^
+"TEMP","DATAO",56,904)
+1
+"TEMP","DATAO",56,905)
+9738^3130917.151631^1^345^
+"TEMP","DATAO",56,906)
+3524
+"TEMP","DATAO",56,907)
+9738^3130917.151631^2^345^
+"TEMP","DATAO",56,908)
+4084
+"TEMP","DATAO",56,909)
+9738^3130917.151631^3^345^
+"TEMP","DATAO",56,910)
+1
+"TEMP","DATAO",56,911)
+9738^3130917.151631^4^345^
+"TEMP","DATAO",56,912)
+1
+"TEMP","DATAO",56,913)
+9739^3130917.151636^1^345^
+"TEMP","DATAO",56,914)
+3524
+"TEMP","DATAO",56,915)
+9739^3130917.151636^2^345^
+"TEMP","DATAO",56,916)
+570
+"TEMP","DATAO",56,917)
+9739^3130917.151636^3^345^
+"TEMP","DATAO",56,918)
+1
+"TEMP","DATAO",56,919)
+9739^3130917.151636^4^345^
+"TEMP","DATAO",56,920)
+1
+"TEMP","DATAO",56,921)
+9740^3130917.151644^1^345^
+"TEMP","DATAO",56,922)
+3524
+"TEMP","DATAO",56,923)
+9740^3130917.151644^2^345^
+"TEMP","DATAO",56,924)
+575
+"TEMP","DATAO",56,925)
+9740^3130917.151644^3^345^
+"TEMP","DATAO",56,926)
+1
+"TEMP","DATAO",56,927)
+9740^3130917.151644^4^345^
+"TEMP","DATAO",56,928)
+1
+"TEMP","DATAO",56,929)
+9741^3130917.15165^1^345^
+"TEMP","DATAO",56,930)
+3524
+"TEMP","DATAO",56,931)
+9741^3130917.15165^2^345^
+"TEMP","DATAO",56,932)
+574
+"TEMP","DATAO",56,933)
+9741^3130917.15165^3^345^
+"TEMP","DATAO",56,934)
+1
+"TEMP","DATAO",56,935)
+9741^3130917.15165^4^345^
+"TEMP","DATAO",56,936)
+1
+"TEMP","DATAO",56,937)
+9742^3130917.151657^1^345^
+"TEMP","DATAO",56,938)
+3524
+"TEMP","DATAO",56,939)
+9742^3130917.151657^2^345^
+"TEMP","DATAO",56,940)
+569
+"TEMP","DATAO",56,941)
+9742^3130917.151657^3^345^
+"TEMP","DATAO",56,942)
+1
+"TEMP","DATAO",56,943)
+9742^3130917.151657^4^345^
+"TEMP","DATAO",56,944)
+1
+"TEMP","DATAO",56,945)
+9743^3130917.151705^1^345^
+"TEMP","DATAO",56,946)
+3524
+"TEMP","DATAO",56,947)
+9743^3130917.151705^2^345^
+"TEMP","DATAO",56,948)
+572
+"TEMP","DATAO",56,949)
+9743^3130917.151705^3^345^
+"TEMP","DATAO",56,950)
+1
+"TEMP","DATAO",56,951)
+9743^3130917.151705^4^345^
+"TEMP","DATAO",56,952)
+1
+"TEMP","DATAO",56,953)
+9744^3130917.151712^1^345^
+"TEMP","DATAO",56,954)
+3524
+"TEMP","DATAO",56,955)
+9744^3130917.151712^2^345^
+"TEMP","DATAO",56,956)
+415
+"TEMP","DATAO",56,957)
+9744^3130917.151712^3^345^
+"TEMP","DATAO",56,958)
+1
+"TEMP","DATAO",56,959)
+9744^3130917.151712^4^345^
+"TEMP","DATAO",56,960)
+1
+"TEMP","DATAO",56,961)
+9745^3130917.151717^1^345^
+"TEMP","DATAO",56,962)
+3524
+"TEMP","DATAO",56,963)
+9745^3130917.151717^2^345^
+"TEMP","DATAO",56,964)
+3810
+"TEMP","DATAO",56,965)
+9745^3130917.151717^3^345^
+"TEMP","DATAO",56,966)
+1
+"TEMP","DATAO",56,967)
+9745^3130917.151717^4^345^
+"TEMP","DATAO",56,968)
+1
+"TEMP","DATAO",56,969)
+9746^3130917.151733^1^345^
+"TEMP","DATAO",56,970)
+3524
+"TEMP","DATAO",56,971)
+9746^3130917.151733^2^345^
+"TEMP","DATAO",56,972)
+573
+"TEMP","DATAO",56,973)
+9746^3130917.151733^3^345^
+"TEMP","DATAO",56,974)
+1
+"TEMP","DATAO",56,975)
+9746^3130917.151733^4^345^
+"TEMP","DATAO",56,976)
+1
+"TEMP","DATAO",56,977)
+9747^3130917.151743^1^345^
+"TEMP","DATAO",56,978)
+3524
+"TEMP","DATAO",56,979)
+9747^3130917.151743^2^345^
+"TEMP","DATAO",56,980)
+635
+"TEMP","DATAO",56,981)
+9747^3130917.151743^3^345^
+"TEMP","DATAO",56,982)
+1
+"TEMP","DATAO",56,983)
+9747^3130917.151743^4^345^
+"TEMP","DATAO",56,984)
+1
+"TEMP","DATAO",56,985)
+9748^3130917.151749^1^345^
+"TEMP","DATAO",56,986)
+3524
+"TEMP","DATAO",56,987)
+9748^3130917.151749^2^345^
+"TEMP","DATAO",56,988)
+3707
+"TEMP","DATAO",56,989)
+9748^3130917.151749^3^345^
+"TEMP","DATAO",56,990)
+1
+"TEMP","DATAO",56,991)
+9748^3130917.151749^4^345^
+"TEMP","DATAO",56,992)
+1
+"TEMP","DATAO",56,993)
+9749^3130917.151758^1^345^
+"TEMP","DATAO",56,994)
+3524
+"TEMP","DATAO",56,995)
+9749^3130917.151758^2^345^
+"TEMP","DATAO",56,996)
+350
+"TEMP","DATAO",56,997)
+9749^3130917.151758^3^345^
+"TEMP","DATAO",56,998)
+1
+"TEMP","DATAO",56,999)
+9749^3130917.151758^4^345^
+"TEMP","DATAO",56,1000)
+1
+"TEMP","DATAO",56,1001)
+9750^3130917.151804^1^345^
+"TEMP","DATAO",56,1002)
+3524
+"TEMP","DATAO",56,1003)
+9750^3130917.151804^2^345^
+"TEMP","DATAO",56,1004)
+4347
+"TEMP","DATAO",56,1005)
+9750^3130917.151804^3^345^
+"TEMP","DATAO",56,1006)
+1
+"TEMP","DATAO",56,1007)
+9750^3130917.151804^4^345^
+"TEMP","DATAO",56,1008)
+1
+"TEMP","DATAO",56,1009)
+9751^3130917.151846^1^345^
+"TEMP","DATAO",56,1010)
+4093
+"TEMP","DATAO",56,1011)
+9751^3130917.151846^2^345^
+"TEMP","DATAO",56,1012)
+2243
+"TEMP","DATAO",56,1013)
+9751^3130917.151846^3^345^
+"TEMP","DATAO",56,1014)
+1
+"TEMP","DATAO",56,1015)
+9751^3130917.151846^4^345^
+"TEMP","DATAO",56,1016)
+1
+"TEMP","DATAO",56,1017)
+9752^3130917.151906^1^345^
+"TEMP","DATAO",56,1018)
+4093
+"TEMP","DATAO",56,1019)
+9752^3130917.151906^2^345^
+"TEMP","DATAO",56,1020)
+4084
+"TEMP","DATAO",56,1021)
+9752^3130917.151906^3^345^
+"TEMP","DATAO",56,1022)
+1
+"TEMP","DATAO",56,1023)
+9752^3130917.151906^4^345^
+"TEMP","DATAO",56,1024)
+1
+"TEMP","DATAO",56,1025)
+9753^3130917.151914^1^345^
+"TEMP","DATAO",56,1026)
+4093
+"TEMP","DATAO",56,1027)
+9753^3130917.151914^2^345^
+"TEMP","DATAO",56,1028)
+570
+"TEMP","DATAO",56,1029)
+9753^3130917.151914^3^345^
+"TEMP","DATAO",56,1030)
+1
+"TEMP","DATAO",56,1031)
+9753^3130917.151914^4^345^
+"TEMP","DATAO",56,1032)
+1
+"TEMP","DATAO",56,1033)
+9754^3130917.151918^1^345^
+"TEMP","DATAO",56,1034)
+4093
+"TEMP","DATAO",56,1035)
+9754^3130917.151918^2^345^
+"TEMP","DATAO",56,1036)
+575
+"TEMP","DATAO",56,1037)
+9754^3130917.151918^3^345^
+"TEMP","DATAO",56,1038)
+1
+"TEMP","DATAO",56,1039)
+9754^3130917.151918^4^345^
+"TEMP","DATAO",56,1040)
+1
+"TEMP","DATAO",56,1041)
+9755^3130917.151922^1^345^
+"TEMP","DATAO",56,1042)
+4093
+"TEMP","DATAO",56,1043)
+9755^3130917.151922^2^345^
+"TEMP","DATAO",56,1044)
+574
+"TEMP","DATAO",56,1045)
+9755^3130917.151922^3^345^
+"TEMP","DATAO",56,1046)
+1
+"TEMP","DATAO",56,1047)
+9755^3130917.151922^4^345^
+"TEMP","DATAO",56,1048)
+1
+"TEMP","DATAO",56,1049)
+9756^3130917.151932^1^345^
+"TEMP","DATAO",56,1050)
+4093
+"TEMP","DATAO",56,1051)
+9756^3130917.151932^2^345^
+"TEMP","DATAO",56,1052)
+569
+"TEMP","DATAO",56,1053)
+9756^3130917.151932^3^345^
+"TEMP","DATAO",56,1054)
+1
+"TEMP","DATAO",56,1055)
+9756^3130917.151932^4^345^
+"TEMP","DATAO",56,1056)
+1
+"TEMP","DATAO",56,1057)
+9757^3130917.151938^1^345^
+"TEMP","DATAO",56,1058)
+4093
+"TEMP","DATAO",56,1059)
+9757^3130917.151938^2^345^
+"TEMP","DATAO",56,1060)
+572
+"TEMP","DATAO",56,1061)
+9757^3130917.151938^3^345^
+"TEMP","DATAO",56,1062)
+1
+"TEMP","DATAO",56,1063)
+9757^3130917.151938^4^345^
+"TEMP","DATAO",56,1064)
+1
+"TEMP","DATAO",56,1065)
+9758^3130917.152318^1^345^
+"TEMP","DATAO",56,1066)
+4093
+"TEMP","DATAO",56,1067)
+9758^3130917.152319^2^345^
+"TEMP","DATAO",56,1068)
+415
+"TEMP","DATAO",56,1069)
+9758^3130917.152319^3^345^
+"TEMP","DATAO",56,1070)
+1
+"TEMP","DATAO",56,1071)
+9758^3130917.152319^4^345^
+"TEMP","DATAO",56,1072)
+1
+"TEMP","DATAO",56,1073)
+9759^3130917.152327^1^345^
+"TEMP","DATAO",56,1074)
+4093
+"TEMP","DATAO",56,1075)
+9759^3130917.152327^2^345^
+"TEMP","DATAO",56,1076)
+3810
+"TEMP","DATAO",56,1077)
+9759^3130917.152327^3^345^
+"TEMP","DATAO",56,1078)
+1
+"TEMP","DATAO",56,1079)
+9759^3130917.152327^4^345^
+"TEMP","DATAO",56,1080)
+1
+"TEMP","DATAO",56,1081)
+9760^3130917.152337^1^345^
+"TEMP","DATAO",56,1082)
+4093
+"TEMP","DATAO",56,1083)
+9760^3130917.152337^2^345^
+"TEMP","DATAO",56,1084)
+573
+"TEMP","DATAO",56,1085)
+9760^3130917.152337^3^345^
+"TEMP","DATAO",56,1086)
+1
+"TEMP","DATAO",56,1087)
+9760^3130917.152337^4^345^
+"TEMP","DATAO",56,1088)
+1
+"TEMP","DATAO",56,1089)
+9761^3130917.152344^1^345^
+"TEMP","DATAO",56,1090)
+4093
+"TEMP","DATAO",56,1091)
+9761^3130917.152344^2^345^
+"TEMP","DATAO",56,1092)
+635
+"TEMP","DATAO",56,1093)
+9761^3130917.152344^3^345^
+"TEMP","DATAO",56,1094)
+1
+"TEMP","DATAO",56,1095)
+9761^3130917.152344^4^345^
+"TEMP","DATAO",56,1096)
+1
+"TEMP","DATAO",56,1097)
+9762^3130917.152349^1^345^
+"TEMP","DATAO",56,1098)
+4093
+"TEMP","DATAO",56,1099)
+9762^3130917.152349^2^345^
+"TEMP","DATAO",56,1100)
+3707
+"TEMP","DATAO",56,1101)
+9762^3130917.152349^3^345^
+"TEMP","DATAO",56,1102)
+1
+"TEMP","DATAO",56,1103)
+9762^3130917.152349^4^345^
+"TEMP","DATAO",56,1104)
+1
+"TEMP","DATAO",56,1105)
+9763^3130917.152358^1^345^
+"TEMP","DATAO",56,1106)
+4093
+"TEMP","DATAO",56,1107)
+9763^3130917.152358^2^345^
+"TEMP","DATAO",56,1108)
+350
+"TEMP","DATAO",56,1109)
+9763^3130917.152358^3^345^
+"TEMP","DATAO",56,1110)
+1
+"TEMP","DATAO",56,1111)
+9763^3130917.152358^4^345^
+"TEMP","DATAO",56,1112)
+1
+"TEMP","DATAO",56,1113)
+9764^3130917.152407^1^345^
+"TEMP","DATAO",56,1114)
+4093
+"TEMP","DATAO",56,1115)
+9764^3130917.152407^2^345^
+"TEMP","DATAO",56,1116)
+4347
+"TEMP","DATAO",56,1117)
+9764^3130917.152407^3^345^
+"TEMP","DATAO",56,1118)
+1
+"TEMP","DATAO",56,1119)
+9764^3130917.152407^4^345^
+"TEMP","DATAO",56,1120)
+1
+"TEMP","DATAO",56,1121)
+9765^3130917.154146^1^345^
+"TEMP","DATAO",56,1122)
+2971
+"TEMP","DATAO",56,1123)
+9765^3130917.154146^2^345^
+"TEMP","DATAO",56,1124)
+2243
+"TEMP","DATAO",56,1125)
+9765^3130917.154146^3^345^
+"TEMP","DATAO",56,1126)
+1
+"TEMP","DATAO",56,1127)
+9765^3130917.154146^4^345^
+"TEMP","DATAO",56,1128)
+1
+"TEMP","DATAO",56,1129)
+9766^3130917.154223^1^345^
+"TEMP","DATAO",56,1130)
+2971
+"TEMP","DATAO",56,1131)
+9766^3130917.154223^2^345^
+"TEMP","DATAO",56,1132)
+4084
+"TEMP","DATAO",56,1133)
+9766^3130917.154223^3^345^
+"TEMP","DATAO",56,1134)
+1
+"TEMP","DATAO",56,1135)
+9766^3130917.154223^4^345^
+"TEMP","DATAO",56,1136)
+1
+"TEMP","DATAO",56,1137)
+9767^3130917.154416^1^345^
+"TEMP","DATAO",56,1138)
+2971
+"TEMP","DATAO",56,1139)
+9767^3130917.154416^2^345^
+"TEMP","DATAO",56,1140)
+570
+"TEMP","DATAO",56,1141)
+9767^3130917.154416^3^345^
+"TEMP","DATAO",56,1142)
+1
+"TEMP","DATAO",56,1143)
+9767^3130917.154416^4^345^
+"TEMP","DATAO",56,1144)
+1
+"TEMP","DATAO",56,1145)
+9768^3130917.154421^1^345^
+"TEMP","DATAO",56,1146)
+2971
+"TEMP","DATAO",56,1147)
+9768^3130917.154421^2^345^
+"TEMP","DATAO",56,1148)
+575
+"TEMP","DATAO",56,1149)
+9768^3130917.154421^3^345^
+"TEMP","DATAO",56,1150)
+1
+"TEMP","DATAO",56,1151)
+9768^3130917.154421^4^345^
+"TEMP","DATAO",56,1152)
+1
+"TEMP","DATAO",56,1153)
+9769^3130917.154427^1^345^
+"TEMP","DATAO",56,1154)
+2971
+"TEMP","DATAO",56,1155)
+9769^3130917.154427^2^345^
+"TEMP","DATAO",56,1156)
+574
+"TEMP","DATAO",56,1157)
+9769^3130917.154427^3^345^
+"TEMP","DATAO",56,1158)
+1
+"TEMP","DATAO",56,1159)
+9769^3130917.154427^4^345^
+"TEMP","DATAO",56,1160)
+1
+"TEMP","DATAO",56,1161)
+9770^3130917.154433^1^345^
+"TEMP","DATAO",56,1162)
+2971
+"TEMP","DATAO",56,1163)
+9770^3130917.154433^2^345^
+"TEMP","DATAO",56,1164)
+569
+"TEMP","DATAO",56,1165)
+9770^3130917.154433^3^345^
+"TEMP","DATAO",56,1166)
+1
+"TEMP","DATAO",56,1167)
+9770^3130917.154433^4^345^
+"TEMP","DATAO",56,1168)
+1
+"TEMP","DATAO",56,1169)
+9771^3130917.15444^1^345^
+"TEMP","DATAO",56,1170)
+2971
+"TEMP","DATAO",56,1171)
+9771^3130917.15444^2^345^
+"TEMP","DATAO",56,1172)
+572
+"TEMP","DATAO",56,1173)
+9771^3130917.15444^3^345^
+"TEMP","DATAO",56,1174)
+1
+"TEMP","DATAO",56,1175)
+9771^3130917.15444^4^345^
+"TEMP","DATAO",56,1176)
+1
+"TEMP","DATAO",56,1177)
+9772^3130917.154449^1^345^
+"TEMP","DATAO",56,1178)
+2971
+"TEMP","DATAO",56,1179)
+9772^3130917.154449^2^345^
+"TEMP","DATAO",56,1180)
+415
+"TEMP","DATAO",56,1181)
+9772^3130917.154449^3^345^
+"TEMP","DATAO",56,1182)
+1
+"TEMP","DATAO",56,1183)
+9772^3130917.154449^4^345^
+"TEMP","DATAO",56,1184)
+1
+"TEMP","DATAO",56,1185)
+9773^3130917.154456^1^345^
+"TEMP","DATAO",56,1186)
+2971
+"TEMP","DATAO",56,1187)
+9773^3130917.154456^2^345^
+"TEMP","DATAO",56,1188)
+3810
+"TEMP","DATAO",56,1189)
+9773^3130917.154456^3^345^
+"TEMP","DATAO",56,1190)
+1
+"TEMP","DATAO",56,1191)
+9773^3130917.154456^4^345^
+"TEMP","DATAO",56,1192)
+1
+"TEMP","DATAO",56,1193)
+9774^3130917.154511^1^345^
+"TEMP","DATAO",56,1194)
+2971
+"TEMP","DATAO",56,1195)
+9774^3130917.154511^2^345^
+"TEMP","DATAO",56,1196)
+573
+"TEMP","DATAO",56,1197)
+9774^3130917.154511^3^345^
+"TEMP","DATAO",56,1198)
+1
+"TEMP","DATAO",56,1199)
+9774^3130917.154511^4^345^
+"TEMP","DATAO",56,1200)
+1
+"TEMP","DATAO",56,1201)
+9775^3130917.154516^1^345^
+"TEMP","DATAO",56,1202)
+2971
+"TEMP","DATAO",56,1203)
+9775^3130917.154516^2^345^
+"TEMP","DATAO",56,1204)
+635
+"TEMP","DATAO",56,1205)
+9775^3130917.154516^3^345^
+"TEMP","DATAO",56,1206)
+1
+"TEMP","DATAO",56,1207)
+9775^3130917.154516^4^345^
+"TEMP","DATAO",56,1208)
+1
+"TEMP","DATAO",56,1209)
+9776^3130917.154523^1^345^
+"TEMP","DATAO",56,1210)
+2971
+"TEMP","DATAO",56,1211)
+9776^3130917.154523^2^345^
+"TEMP","DATAO",56,1212)
+3707
+"TEMP","DATAO",56,1213)
+9776^3130917.154523^3^345^
+"TEMP","DATAO",56,1214)
+1
+"TEMP","DATAO",56,1215)
+9776^3130917.154523^4^345^
+"TEMP","DATAO",56,1216)
+1
+"TEMP","DATAO",56,1217)
+9777^3130917.154537^1^345^
+"TEMP","DATAO",56,1218)
+2971
+"TEMP","DATAO",56,1219)
+9777^3130917.154537^2^345^
+"TEMP","DATAO",56,1220)
+350
+"TEMP","DATAO",56,1221)
+9777^3130917.154537^3^345^
+"TEMP","DATAO",56,1222)
+1
+"TEMP","DATAO",56,1223)
+9777^3130917.154537^4^345^
+"TEMP","DATAO",56,1224)
+1
+"TEMP","DATAO",56,1225)
+9778^3130917.154545^1^345^
+"TEMP","DATAO",56,1226)
+2971
+"TEMP","DATAO",56,1227)
+9778^3130917.154545^2^345^
+"TEMP","DATAO",56,1228)
+4347
+"TEMP","DATAO",56,1229)
+9778^3130917.154545^3^345^
+"TEMP","DATAO",56,1230)
+1
+"TEMP","DATAO",56,1231)
+9778^3130917.154545^4^345^
+"TEMP","DATAO",56,1232)
+1
+"TEMP","DATAO",56,1233)
+9779^3130917.161217^1^345^
+"TEMP","DATAO",56,1234)
+985
+"TEMP","DATAO",56,1235)
+9779^3130917.161217^2^345^
+"TEMP","DATAO",56,1236)
+2243
+"TEMP","DATAO",56,1237)
+9779^3130917.161217^3^345^
+"TEMP","DATAO",56,1238)
+1
+"TEMP","DATAO",56,1239)
+9779^3130917.161217^4^345^
+"TEMP","DATAO",56,1240)
+1
+"TEMP","DATAO",56,1241)
+9780^3130917.161225^1^345^
+"TEMP","DATAO",56,1242)
+985
+"TEMP","DATAO",56,1243)
+9780^3130917.161225^2^345^
+"TEMP","DATAO",56,1244)
+4084
+"TEMP","DATAO",56,1245)
+9780^3130917.161225^3^345^
+"TEMP","DATAO",56,1246)
+1
+"TEMP","DATAO",56,1247)
+9780^3130917.161225^4^345^
+"TEMP","DATAO",56,1248)
+1
+"TEMP","DATAO",56,1249)
+9781^3130917.161231^1^345^
+"TEMP","DATAO",56,1250)
+985
+"TEMP","DATAO",56,1251)
+9781^3130917.161231^2^345^
+"TEMP","DATAO",56,1252)
+570
+"TEMP","DATAO",56,1253)
+9781^3130917.161231^3^345^
+"TEMP","DATAO",56,1254)
+1
+"TEMP","DATAO",56,1255)
+9781^3130917.161231^4^345^
+"TEMP","DATAO",56,1256)
+1
+"TEMP","DATAO",56,1257)
+9782^3130917.161236^1^345^
+"TEMP","DATAO",56,1258)
+985
+"TEMP","DATAO",56,1259)
+9782^3130917.161236^2^345^
+"TEMP","DATAO",56,1260)
+575
+"TEMP","DATAO",56,1261)
+9782^3130917.161236^3^345^
+"TEMP","DATAO",56,1262)
+1
+"TEMP","DATAO",56,1263)
+9782^3130917.161236^4^345^
+"TEMP","DATAO",56,1264)
+1
+"TEMP","DATAO",56,1265)
+9783^3130917.161241^1^345^
+"TEMP","DATAO",56,1266)
+985
+"TEMP","DATAO",56,1267)
+9783^3130917.161241^2^345^
+"TEMP","DATAO",56,1268)
+574
+"TEMP","DATAO",56,1269)
+9783^3130917.161241^3^345^
+"TEMP","DATAO",56,1270)
+1
+"TEMP","DATAO",56,1271)
+9783^3130917.161241^4^345^
+"TEMP","DATAO",56,1272)
+1
+"TEMP","DATAO",56,1273)
+9784^3130917.161247^1^345^
+"TEMP","DATAO",56,1274)
+985
+"TEMP","DATAO",56,1275)
+9784^3130917.161247^2^345^
+"TEMP","DATAO",56,1276)
+569
+"TEMP","DATAO",56,1277)
+9784^3130917.161247^3^345^
+"TEMP","DATAO",56,1278)
+1
+"TEMP","DATAO",56,1279)
+9784^3130917.161247^4^345^
+"TEMP","DATAO",56,1280)
+1
+"TEMP","DATAO",56,1281)
+9785^3130917.161253^1^345^
+"TEMP","DATAO",56,1282)
+985
+"TEMP","DATAO",56,1283)
+9785^3130917.161253^2^345^
+"TEMP","DATAO",56,1284)
+572
+"TEMP","DATAO",56,1285)
+9785^3130917.161253^3^345^
+"TEMP","DATAO",56,1286)
+1
+"TEMP","DATAO",56,1287)
+9785^3130917.161253^4^345^
+"TEMP","DATAO",56,1288)
+1
+"TEMP","DATAO",56,1289)
+9786^3130917.161259^1^345^
+"TEMP","DATAO",56,1290)
+985
+"TEMP","DATAO",56,1291)
+9786^3130917.161259^2^345^
+"TEMP","DATAO",56,1292)
+415
+"TEMP","DATAO",56,1293)
+9786^3130917.161259^3^345^
+"TEMP","DATAO",56,1294)
+1
+"TEMP","DATAO",56,1295)
+9786^3130917.161259^4^345^
+"TEMP","DATAO",56,1296)
+1
+"TEMP","DATAO",56,1297)
+9787^3130917.161307^1^345^
+"TEMP","DATAO",56,1298)
+985
+"TEMP","DATAO",56,1299)
+9787^3130917.161307^2^345^
+"TEMP","DATAO",56,1300)
+3810
+"TEMP","DATAO",56,1301)
+9787^3130917.161307^3^345^
+"TEMP","DATAO",56,1302)
+1
+"TEMP","DATAO",56,1303)
+9787^3130917.161307^4^345^
+"TEMP","DATAO",56,1304)
+1
+"TEMP","DATAO",56,1305)
+9788^3130917.161313^1^345^
+"TEMP","DATAO",56,1306)
+985
+"TEMP","DATAO",56,1307)
+9788^3130917.161313^2^345^
+"TEMP","DATAO",56,1308)
+573
+"TEMP","DATAO",56,1309)
+9788^3130917.161313^3^345^
+"TEMP","DATAO",56,1310)
+1
+"TEMP","DATAO",56,1311)
+9788^3130917.161313^4^345^
+"TEMP","DATAO",56,1312)
+1
+"TEMP","DATAO",56,1313)
+9789^3130917.161322^1^345^
+"TEMP","DATAO",56,1314)
+985
+"TEMP","DATAO",56,1315)
+9789^3130917.161322^2^345^
+"TEMP","DATAO",56,1316)
+635
+"TEMP","DATAO",56,1317)
+9789^3130917.161322^3^345^
+"TEMP","DATAO",56,1318)
+1
+"TEMP","DATAO",56,1319)
+9789^3130917.161322^4^345^
+"TEMP","DATAO",56,1320)
+1
+"TEMP","DATAO",56,1321)
+9790^3130917.161331^1^345^
+"TEMP","DATAO",56,1322)
+985
+"TEMP","DATAO",56,1323)
+9790^3130917.161331^2^345^
+"TEMP","DATAO",56,1324)
+3707
+"TEMP","DATAO",56,1325)
+9790^3130917.161331^3^345^
+"TEMP","DATAO",56,1326)
+1
+"TEMP","DATAO",56,1327)
+9790^3130917.161331^4^345^
+"TEMP","DATAO",56,1328)
+1
+"TEMP","DATAO",56,1329)
+9791^3130917.161337^1^345^
+"TEMP","DATAO",56,1330)
+985
+"TEMP","DATAO",56,1331)
+9791^3130917.161337^2^345^
+"TEMP","DATAO",56,1332)
+350
+"TEMP","DATAO",56,1333)
+9791^3130917.161337^3^345^
+"TEMP","DATAO",56,1334)
+1
+"TEMP","DATAO",56,1335)
+9791^3130917.161337^4^345^
+"TEMP","DATAO",56,1336)
+1
+"TEMP","DATAO",56,1337)
+9792^3130917.161344^1^345^
+"TEMP","DATAO",56,1338)
+985
+"TEMP","DATAO",56,1339)
+9792^3130917.161344^2^345^
+"TEMP","DATAO",56,1340)
+4347
+"TEMP","DATAO",56,1341)
+9792^3130917.161344^3^345^
+"TEMP","DATAO",56,1342)
+1
+"TEMP","DATAO",56,1343)
+9792^3130917.161344^4^345^
+"TEMP","DATAO",56,1344)
+1
+"TEMP","DATAO",56,1345)
+9793^3130917.161352^1^345^
+"TEMP","DATAO",56,1346)
+4654
+"TEMP","DATAO",56,1347)
+9793^3130917.161352^2^345^
+"TEMP","DATAO",56,1348)
+2243
+"TEMP","DATAO",56,1349)
+9793^3130917.161352^3^345^
+"TEMP","DATAO",56,1350)
+1
+"TEMP","DATAO",56,1351)
+9793^3130917.161352^4^345^
+"TEMP","DATAO",56,1352)
+1
+"TEMP","DATAO",56,1353)
+9794^3130917.161359^1^345^
+"TEMP","DATAO",56,1354)
+4654
+"TEMP","DATAO",56,1355)
+9794^3130917.161359^2^345^
+"TEMP","DATAO",56,1356)
+4084
+"TEMP","DATAO",56,1357)
+9794^3130917.161359^3^345^
+"TEMP","DATAO",56,1358)
+1
+"TEMP","DATAO",56,1359)
+9794^3130917.161359^4^345^
+"TEMP","DATAO",56,1360)
+1
+"TEMP","DATAO",56,1361)
+9795^3130917.161429^1^345^
+"TEMP","DATAO",56,1362)
+4654
+"TEMP","DATAO",56,1363)
+9795^3130917.161429^2^345^
+"TEMP","DATAO",56,1364)
+570
+"TEMP","DATAO",56,1365)
+9795^3130917.161429^3^345^
+"TEMP","DATAO",56,1366)
+1
+"TEMP","DATAO",56,1367)
+9795^3130917.161429^4^345^
+"TEMP","DATAO",56,1368)
+1
+"TEMP","DATAO",56,1369)
+9796^3130917.161435^1^345^
+"TEMP","DATAO",56,1370)
+4654
+"TEMP","DATAO",56,1371)
+9796^3130917.161435^2^345^
+"TEMP","DATAO",56,1372)
+575
+"TEMP","DATAO",56,1373)
+9796^3130917.161435^3^345^
+"TEMP","DATAO",56,1374)
+1
+"TEMP","DATAO",56,1375)
+9796^3130917.161435^4^345^
+"TEMP","DATAO",56,1376)
+1
+"TEMP","DATAO",56,1377)
+9797^3130917.161438^1^345^
+"TEMP","DATAO",56,1378)
+4654
+"TEMP","DATAO",56,1379)
+9797^3130917.161438^2^345^
+"TEMP","DATAO",56,1380)
+574
+"TEMP","DATAO",56,1381)
+9797^3130917.161438^3^345^
+"TEMP","DATAO",56,1382)
+1
+"TEMP","DATAO",56,1383)
+9797^3130917.161438^4^345^
+"TEMP","DATAO",56,1384)
+1
+"TEMP","DATAO",56,1385)
+9798^3130917.161447^1^345^
+"TEMP","DATAO",56,1386)
+4654
+"TEMP","DATAO",56,1387)
+9798^3130917.161447^2^345^
+"TEMP","DATAO",56,1388)
+569
+"TEMP","DATAO",56,1389)
+9798^3130917.161447^3^345^
+"TEMP","DATAO",56,1390)
+1
+"TEMP","DATAO",56,1391)
+9798^3130917.161447^4^345^
+"TEMP","DATAO",56,1392)
+1
+"TEMP","DATAO",56,1393)
+9799^3130917.161451^1^345^
+"TEMP","DATAO",56,1394)
+4654
+"TEMP","DATAO",56,1395)
+9799^3130917.161451^2^345^
+"TEMP","DATAO",56,1396)
+572
+"TEMP","DATAO",56,1397)
+9799^3130917.161451^3^345^
+"TEMP","DATAO",56,1398)
+1
+"TEMP","DATAO",56,1399)
+9799^3130917.161451^4^345^
+"TEMP","DATAO",56,1400)
+1
+"TEMP","DATAO",56,1401)
+9800^3130917.161456^1^345^
+"TEMP","DATAO",56,1402)
+4654
+"TEMP","DATAO",56,1403)
+9800^3130917.161456^2^345^
+"TEMP","DATAO",56,1404)
+415
+"TEMP","DATAO",56,1405)
+9800^3130917.161456^3^345^
+"TEMP","DATAO",56,1406)
+1
+"TEMP","DATAO",56,1407)
+9800^3130917.161456^4^345^
+"TEMP","DATAO",56,1408)
+1
+"TEMP","DATAO",56,1409)
+9801^3130917.1615^1^345^
+"TEMP","DATAO",56,1410)
+4654
+"TEMP","DATAO",56,1411)
+9801^3130917.1615^2^345^
+"TEMP","DATAO",56,1412)
+3810
+"TEMP","DATAO",56,1413)
+9801^3130917.1615^3^345^
+"TEMP","DATAO",56,1414)
+1
+"TEMP","DATAO",56,1415)
+9801^3130917.1615^4^345^
+"TEMP","DATAO",56,1416)
+1
+"TEMP","DATAO",56,1417)
+9802^3130917.161508^1^345^
+"TEMP","DATAO",56,1418)
+4654
+"TEMP","DATAO",56,1419)
+9802^3130917.161508^2^345^
+"TEMP","DATAO",56,1420)
+573
+"TEMP","DATAO",56,1421)
+9802^3130917.161508^3^345^
+"TEMP","DATAO",56,1422)
+1
+"TEMP","DATAO",56,1423)
+9802^3130917.161508^4^345^
+"TEMP","DATAO",56,1424)
+1
+"TEMP","DATAO",56,1425)
+9803^3130917.161514^1^345^
+"TEMP","DATAO",56,1426)
+4654
+"TEMP","DATAO",56,1427)
+9803^3130917.161514^2^345^
+"TEMP","DATAO",56,1428)
+635
+"TEMP","DATAO",56,1429)
+9803^3130917.161514^3^345^
+"TEMP","DATAO",56,1430)
+1
+"TEMP","DATAO",56,1431)
+9803^3130917.161514^4^345^
+"TEMP","DATAO",56,1432)
+1
+"TEMP","DATAO",56,1433)
+9804^3130917.161521^1^345^
+"TEMP","DATAO",56,1434)
+4654
+"TEMP","DATAO",56,1435)
+9804^3130917.161521^2^345^
+"TEMP","DATAO",56,1436)
+3707
+"TEMP","DATAO",56,1437)
+9804^3130917.161521^3^345^
+"TEMP","DATAO",56,1438)
+1
+"TEMP","DATAO",56,1439)
+9804^3130917.161521^4^345^
+"TEMP","DATAO",56,1440)
+1
+"TEMP","DATAO",56,1441)
+9805^3130917.161527^1^345^
+"TEMP","DATAO",56,1442)
+4654
+"TEMP","DATAO",56,1443)
+9805^3130917.161527^2^345^
+"TEMP","DATAO",56,1444)
+350
+"TEMP","DATAO",56,1445)
+9805^3130917.161527^3^345^
+"TEMP","DATAO",56,1446)
+1
+"TEMP","DATAO",56,1447)
+9805^3130917.161527^4^345^
+"TEMP","DATAO",56,1448)
+1
+"TEMP","DATAO",56,1449)
+9806^3130917.161532^1^345^
+"TEMP","DATAO",56,1450)
+4654
+"TEMP","DATAO",56,1451)
+9806^3130917.161532^2^345^
+"TEMP","DATAO",56,1452)
+4347
+"TEMP","DATAO",56,1453)
+9806^3130917.161532^3^345^
+"TEMP","DATAO",56,1454)
+1
+"TEMP","DATAO",56,1455)
+9806^3130917.161532^4^345^
+"TEMP","DATAO",56,1456)
+1
+"TEMP","GROUP")
+NDF DATA
+"TEMP","MESSAGE",0)
+^^307^307^3131001^
+"TEMP","MESSAGE",1,0)
+
+"TEMP","MESSAGE",2,0)
+The following VA Products have been added to the National
+"TEMP","MESSAGE",3,0)
+Drug File. You may wish to review, then match or unmatch
+"TEMP","MESSAGE",4,0)
+local drug file entries based on this updated information.
+"TEMP","MESSAGE",5,0)
+
+"TEMP","MESSAGE",6,0)
+ ALOE/HC 1.9%/IODOQUINOL 1% CREAM,TOP,2GM
+"TEMP","MESSAGE",7,0)
+ (CMOP - A1725) (DISPENSE UNIT - PKT)
+"TEMP","MESSAGE",8,0)
+ 057893-0302-30
+"TEMP","MESSAGE",9,0)
+ AURSTAT ANTI-ITCH GEL,TOP
+"TEMP","MESSAGE",10,0)
+ (CMOP - A1726) (DISPENSE UNIT - ML)
+"TEMP","MESSAGE",11,0)
+ 016781-0349-96
+"TEMP","MESSAGE",12,0)
+ BANDAGE,STRETCH,CURITY 2IN X 75IN STERILE K#2231
+"TEMP","MESSAGE",13,0)
+ (CMOP - XH377) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",14,0)
+ 000808-0223-10
+"TEMP","MESSAGE",15,0)
+ BENZOYL PEROXIDE 5.5% FOAM,TOP
+"TEMP","MESSAGE",16,0)
+ (CMOP - B0726) (DISPENSE UNIT - GM)
+"TEMP","MESSAGE",17,0)
+ 057893-0303-99
+"TEMP","MESSAGE",18,0)
+ BENZOYL PEROXIDE 9.5% FOAM,TOP
+"TEMP","MESSAGE",19,0)
+ (CMOP - B0725) (DISPENSE UNIT - GM)
+"TEMP","MESSAGE",20,0)
+ 057893-0304-99
+"TEMP","MESSAGE",21,0)
+ BOOST CALORIE SMART LIQUID
+"TEMP","MESSAGE",22,0)
+ (CMOP - N0672) (DISPENSE UNIT - 240ML BTL)
+"TEMP","MESSAGE",23,0)
+ 041679-0473-71 041679-0473-77
+"TEMP","MESSAGE",24,0)
+ BRIEF,PREVAIL YOUTH/SM FQP#PV-511
+"TEMP","MESSAGE",25,0)
+ (CMOP - XH388) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",26,0)
+ 090891-5110-14
+"TEMP","MESSAGE",27,0)
+ BRIMONIDINE TARTRATE 0.33% GEL,TOP
+"TEMP","MESSAGE",28,0)
+ (CMOP - B0727) (DISPENSE UNIT - GM)
+"TEMP","MESSAGE",29,0)
+ 000299-5980-30
+"TEMP","MESSAGE",30,0)
+ BUPRENORPHINE 15MCG/HR PATCH
+"TEMP","MESSAGE",31,0)
+ (CMOP - B0724) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",32,0)
+ 059011-0758-04
+"TEMP","MESSAGE",33,0)
+ CALCIUM 250MG (CA CITRATE-1187MG) TAB
+"TEMP","MESSAGE",34,0)
+ (CMOP - C1590) (DISPENSE UNIT - TAB)
+"TEMP","MESSAGE",35,0)
+ 043292-0556-06
+"TEMP","MESSAGE",36,0)
+ CALCIUM 300MG/MAGNESIUM 20MG/VITAMIN D 200UNITS TAB,CHEWABLE
+"TEMP","MESSAGE",37,0)
+ (CMOP - C1591) (DISPENSE UNIT - TAB)
+"TEMP","MESSAGE",38,0)
+ 056215-0000-04
+"TEMP","MESSAGE",39,0)
+ CAPSAICIN 0.035% LOTION,TOP
+"TEMP","MESSAGE",40,0)
+ (CMOP - C1588) (DISPENSE UNIT - ML)
+"TEMP","MESSAGE",41,0)
+ 000395-0130-94
+"TEMP","MESSAGE",42,0)
+ CAPSAICIN/LIDOCAINE/MENTHOL/METHYL SALICYLATE CREAM,TOP
+"TEMP","MESSAGE",43,0)
+ (CMOP - C1589) (DISPENSE UNIT - GM)
+"TEMP","MESSAGE",44,0)
+ 076074-0142-14 076074-0152-14
+"TEMP","MESSAGE",45,0)
+ CATHETER,INTERMITTENT LOFRIC HYDRO-KIT 14FR ASTRATECH #9851440
+"TEMP","MESSAGE",46,0)
+ (CMOP - XH375) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",47,0)
+ 000319-8514-40
+"TEMP","MESSAGE",48,0)
+ CATHETER,INTERMITTENT LOFRIC HYDRO-KIT 14FR ASTRATECH #9871440
+"TEMP","MESSAGE",49,0)
+ (CMOP - XH374) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",50,0)
+ 000319-8714-40
+"TEMP","MESSAGE",51,0)
+ CATHETER,SELF-CATH SOFT 10FR COLOPLAST #110
+"TEMP","MESSAGE",52,0)
+ (CMOP - XH378) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",53,0)
+ 081317-0001-10
+"TEMP","MESSAGE",54,0)
+ CATHETER,SELF-CATH SOFT 12FR COLOPLAST #112
+"TEMP","MESSAGE",55,0)
+ (CMOP - XH380) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",56,0)
+ 081317-0001-12
+"TEMP","MESSAGE",57,0)
+ CATHETER,SELF-CATH SOFT 14FR COLOPLAST #114
+"TEMP","MESSAGE",58,0)
+ (CMOP - XH379) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",59,0)
+ 081317-0001-14
+"TEMP","MESSAGE",60,0)
+ CATHETER,SELF-CATH SOFT 16FR COLOPLAST #116
+"TEMP","MESSAGE",61,0)
+ (CMOP - XH381) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",62,0)
+ 081317-0001-16
+"TEMP","MESSAGE",63,0)
+ EPINEPHRINE (AUVI-Q 0.3) 0.3MG/0.3ML INJECTOR
+"TEMP","MESSAGE",64,0)
+ (CMOP - E0607) (DISPENSE UNIT - INJECTOR)
+"TEMP","MESSAGE",65,0)
+ 000024-5833-02
+"TEMP","MESSAGE",66,0)
+ FACTOR IX,RECOMBINANT 2000 UNIT/VIL INJ
+"TEMP","MESSAGE",67,0)
+ (CMOP - F0533) (DISPENSE UNIT - VI)
+"TEMP","MESSAGE",68,0)
+ 000944-3032-02
+"TEMP","MESSAGE",69,0)
+ FACTOR IX,RECOMBINANT 3000 UNIT/VIL INJ
+"TEMP","MESSAGE",70,0)
+ (CMOP - F0534) (DISPENSE UNIT - VI)
+"TEMP","MESSAGE",71,0)
+ 000944-3034-02
+"TEMP","MESSAGE",72,0)
+ FEEDING BAG W/PUMP SET COVIDIEN #773662
+"TEMP","MESSAGE",73,0)
+ (CMOP - XH382) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",74,0)
+ 008880-7736-62
+"TEMP","MESSAGE",75,0)
+ FEEDING BAG W/PUMP SET ENTERALITE INFINITY #INF1200
+"TEMP","MESSAGE",76,0)
+ (CMOP - XH384) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",77,0)
+ 070074-0508-90
+"TEMP","MESSAGE",78,0)
+ FEEDING BAG W/PUMP SET ENTERALITE INFINITY #INF500
+"TEMP","MESSAGE",79,0)
+ (CMOP - XH385) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",80,0)
+ 070074-0508-98
+"TEMP","MESSAGE",81,0)
+ FERROUS BISGLYCINATE 90MG CAP,ORAL
+"TEMP","MESSAGE",82,0)
+ (CMOP - F0532) (DISPENSE UNIT - CAP)
+"TEMP","MESSAGE",83,0)
+ 073373-9014-43
+"TEMP","MESSAGE",84,0)
+ GADOTERATE MEGLUMINE 0.5MMOL/ML INJ,SOLN
+"TEMP","MESSAGE",85,0)
+ (CMOP - G0394) (DISPENSE UNIT - ML)
+"TEMP","MESSAGE",86,0)
+ 067684-2000-01 067684-2000-03 067684-2000-02 067684-2000-04
+"TEMP","MESSAGE",87,0)
+ GADOTERATE MEGLUMINE 0.5MMOL/ML INJ,SYRINGE,10ML
+"TEMP","MESSAGE",88,0)
+ (CMOP - G0397) (DISPENSE UNIT - SYR)
+"TEMP","MESSAGE",89,0)
+ 067684-2000-05
+"TEMP","MESSAGE",90,0)
+ GADOTERATE MEGLUMINE 0.5MMOL/ML INJ,SYRINGE,15ML
+"TEMP","MESSAGE",91,0)
+ (CMOP - G0395) (DISPENSE UNIT - SYR)
+"TEMP","MESSAGE",92,0)
+ 067684-2000-06
+"TEMP","MESSAGE",93,0)
+ GADOTERATE MEGLUMINE 0.5MMOL/ML INJ,SYRINGE,20ML
+"TEMP","MESSAGE",94,0)
+ (CMOP - G0396) (DISPENSE UNIT - SYR)
+"TEMP","MESSAGE",95,0)
+ 067684-2000-07
+"TEMP","MESSAGE",96,0)
+ GMATE GLUCOSE CONTROL SOLN
+"TEMP","MESSAGE",97,0)
+ (CMOP - G0398) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",98,0)
+ 089157-2020-01
+"TEMP","MESSAGE",99,0)
+ HYDROCODONE 2.5MG/ACETAMINOPHEN 108MG/5ML SOLN,ORAL,5ML
+"TEMP","MESSAGE",100,0)
+ (CMOP - H0642) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",101,0)
+ 000121-4772-05
+"TEMP","MESSAGE",102,0)
+ HYDROCODONE 5MG/ACETAMINOPHEN 217MG/10ML SOLN,ORAL,10ML
+"TEMP","MESSAGE",103,0)
+ (CMOP - H0643) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",104,0)
+ 000121-4772-10
+"TEMP","MESSAGE",105,0)
+ HYDROCODONE 7.5MG/ACETAMINOPHEN 325MG/15ML SOLN,ORAL,15ML
+"TEMP","MESSAGE",106,0)
+ (CMOP - H0644) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",107,0)
+ 000121-4772-15 066689-0023-50
+"TEMP","MESSAGE",108,0)
+ INFLUENZA VACCINE,QUADRIVALENT,VIL,5ML
+"TEMP","MESSAGE",109,0)
+ (CMOP - I0567) (DISPENSE UNIT - ML)
+"TEMP","MESSAGE",110,0)
+ 019515-0895-01 019515-0895-11
+"TEMP","MESSAGE",111,0)
+ LANCET,GMATE 30G
+"TEMP","MESSAGE",112,0)
+ (CMOP - XH386) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",113,0)
+ 089157-0521-01
+"TEMP","MESSAGE",114,0)
+ LANCET,GMATE DEVICE
+"TEMP","MESSAGE",115,0)
+ (CMOP - XH387) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",116,0)
+ 089157-3820-01 087052-0005-11
+"TEMP","MESSAGE",117,0)
+ LARYNGECTOMY TUBE PROVOX #7609
+"TEMP","MESSAGE",118,0)
+ (CMOP - XH373) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",119,0)
+ 099922-2076-09
+"TEMP","MESSAGE",120,0)
+ LO MINASTRIN FE TAB,CHEWABLE,28
+"TEMP","MESSAGE",121,0)
+ (CMOP - L0602) (DISPENSE UNIT - CYCLE)
+"TEMP","MESSAGE",122,0)
+ 000430-0537-50 000430-0537-14
+"TEMP","MESSAGE",123,0)
+ LURASIDONE HCL 60MG TAB
+"TEMP","MESSAGE",124,0)
+ (CMOP - L0603) (DISPENSE UNIT - TAB)
+"TEMP","MESSAGE",125,0)
+ 063402-0306-30
+"TEMP","MESSAGE",126,0)
+ MAGNESIUM SO4 1GM/100ML INJ,BAG
+"TEMP","MESSAGE",127,0)
+ (CMOP - M1004) (DISPENSE UNIT - BAG)
+"TEMP","MESSAGE",128,0)
+ 000074-6727-23
+"TEMP","MESSAGE",129,0)
+ MAGNESIUM SO4 4GM/100ML INJ,BAG
+"TEMP","MESSAGE",130,0)
+ (CMOP - M1003) (DISPENSE UNIT - BAG)
+"TEMP","MESSAGE",131,0)
+ 000074-6729-23
+"TEMP","MESSAGE",132,0)
+ MICROCYN SKIN & WOUND GEL,TOP
+"TEMP","MESSAGE",133,0)
+ (CMOP - M1006) (DISPENSE UNIT - ML)
+"TEMP","MESSAGE",134,0)
+ 000496-0564-02
+"TEMP","MESSAGE",135,0)
+ OXYBUTYNIN CL 3% GEL,TOP
+"TEMP","MESSAGE",136,0)
+ (CMOP - O0344) (DISPENSE UNIT - GM)
+"TEMP","MESSAGE",137,0)
+ 052544-0041-54
+"TEMP","MESSAGE",138,0)
+ POUCH,DRAINABLE,MICROSKIN CYMED #78422
+"TEMP","MESSAGE",139,0)
+ (CMOP - XH383) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",140,0)
+ 099718-0784-22
+"TEMP","MESSAGE",141,0)
+ SELENIUM SULFIDE 2.3% SHAMPOO
+"TEMP","MESSAGE",142,0)
+ (CMOP - S0714) (DISPENSE UNIT - ML)
+"TEMP","MESSAGE",143,0)
+ 057893-0300-06
+"TEMP","MESSAGE",144,0)
+ SILVER/SODIUM ALGINATE PWDR,TOP
+"TEMP","MESSAGE",145,0)
+ (CMOP - S0712) (DISPENSE UNIT - GM)
+"TEMP","MESSAGE",146,0)
+ 053329-0305-09 053329-0304-09
+"TEMP","MESSAGE",147,0)
+ SUCTION CANISTER 800ML DEVILBISS #DV7305D632
+"TEMP","MESSAGE",148,0)
+ (CMOP - XH372) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",149,0)
+ 099000-3056-32
+"TEMP","MESSAGE",150,0)
+ SULFACETAMIDE NA 10% SHAMPOO
+"TEMP","MESSAGE",151,0)
+ (CMOP - S0713) (DISPENSE UNIT - ML)
+"TEMP","MESSAGE",152,0)
+ 044523-0510-08
+"TEMP","MESSAGE",153,0)
+ SYRINGE 3ML/NDL 23G 1.5IN
+"TEMP","MESSAGE",154,0)
+ (CMOP - XH376) (DISPENSE UNIT - EA)
+"TEMP","MESSAGE",155,0)
+ 008290-3095-89
+"TEMP","MESSAGE",156,0)
+ TRETINOIN 0.075% CREAM,TOP
+"TEMP","MESSAGE",157,0)
+ (CMOP - T0836) (DISPENSE UNIT - GM)
+"TEMP","MESSAGE",158,0)
+ 016781-0446-35
+"TEMP","MESSAGE",159,0)
+ UREA 30% FOAM,TOP
+"TEMP","MESSAGE",160,0)
+ (CMOP - U0067) (DISPENSE UNIT - GM)
+"TEMP","MESSAGE",161,0)
+ 016781-0157-60 016781-0157-96
+"TEMP","MESSAGE",162,0)
+ VINCRISTINE SO4 LIPOSOME 0.16MG/ML INJ,KIT
+"TEMP","MESSAGE",163,0)
+ (CMOP - V0246) (DISPENSE UNIT - KIT)
+"TEMP","MESSAGE",164,0)
+ 020536-0322-01
+"TEMP","MESSAGE",165,0)
+
+"TEMP","MESSAGE",166,0)
+The National Formulary Indicator has changed for the following
+"TEMP","MESSAGE",167,0)
+VA Products. The National Formulary Indicator will automatically
+"TEMP","MESSAGE",168,0)
+be changed in your local DRUG file (#50). Please review the
+"TEMP","MESSAGE",169,0)
+VISN and Local Formulary designations of these products and
+"TEMP","MESSAGE",170,0)
+make appropriate changes.
+"TEMP","MESSAGE",171,0)
+
+"TEMP","MESSAGE",172,0)
+FORMULARY ITEMS
+"TEMP","MESSAGE",173,0)
+ HYDROCODONE 2.5MG/ACETAMINOPHEN 108MG/5ML SOLN,ORAL,5ML
+"TEMP","MESSAGE",174,0)
+ HYDROCODONE 5MG/ACETAMINOPHEN 217MG/10ML SOLN,ORAL,10ML
+"TEMP","MESSAGE",175,0)
+ HYDROCODONE 7.5MG/ACETAMINOPHEN 325MG/15ML SOLN,ORAL
+"TEMP","MESSAGE",176,0)
+ HYDROCODONE 7.5MG/ACETAMINOPHEN 325MG/15ML SOLN,ORAL,15ML
+"TEMP","MESSAGE",177,0)
+ HYDROXYPROGESTERONE CAPROATE 250MG/ML INJ
+"TEMP","MESSAGE",178,0)
+ LIDOCAINE HCL 3.5% GEL,OPH
+"TEMP","MESSAGE",179,0)
+
+"TEMP","MESSAGE",180,0)
+NON-FORMULARY ITEMS
+"TEMP","MESSAGE",181,0)
+ NONE
+"TEMP","MESSAGE",182,0)
+
+"TEMP","MESSAGE",183,0)
+The following active VA Products are no longer marked for CMOP.
+"TEMP","MESSAGE",184,0)
+All local drug file entries matched to these VA Products will
+"TEMP","MESSAGE",185,0)
+be UNMARKED for CMOP. In order to have these entries dispensed
+"TEMP","MESSAGE",186,0)
+by CMOP any local DRUG file (#50) entries matched to these
+"TEMP","MESSAGE",187,0)
+products must be re-matched to another VA product that is actively
+"TEMP","MESSAGE",188,0)
+marked for CMOP dispensing.
+"TEMP","MESSAGE",189,0)
+
+"TEMP","MESSAGE",190,0)
+ AMLODIPINE BESYLATE 5MG TAB,UD A1050
+"TEMP","MESSAGE",191,0)
+ BENZOYL PEROXIDE 5%/CLINDAMYCIN 1% GEL,KIT B0600
+"TEMP","MESSAGE",192,0)
+ BENZOYL PEROXIDE 5%/ERYTHROMYCIN 3% GEL,TOP B0150
+"TEMP","MESSAGE",193,0)
+ BIOTENE ANTIBACTERIAL DRY MOUTH TOOTHPASTE B0404
+"TEMP","MESSAGE",194,0)
+ BIOTENE SENSITIVE TOOTHPASTE B0578
+"TEMP","MESSAGE",195,0)
+ BUPROPION HCL (FORFIVO XL) 450MG TAB,SA B0694
+"TEMP","MESSAGE",196,0)
+ BUSULFAN 2MG TAB B0232
+"TEMP","MESSAGE",197,0)
+ CAFFEINE 100MG/ERGOTAMINE TARTRATE 1MG TAB C0002
+"TEMP","MESSAGE",198,0)
+ CARTRIDGE,ANIMAS IR 2ML #1200 XV241
+"TEMP","MESSAGE",199,0)
+ CATHETER,EXTERNAL INTERMED ROCHESTER #32303/32103 XY911
+"TEMP","MESSAGE",200,0)
+ CATHETER,FOLEY SILICONE 2-WAY 18FR 5CC KENDALL #5189 XT111
+"TEMP","MESSAGE",201,0)
+ CATHETER,RED RUBBER ROBINSON 14FR KENDALL #0143 XU906
+"TEMP","MESSAGE",202,0)
+ CIMETIDINE HCL 300MG/5ML LIQUID,ORAL C0257
+"TEMP","MESSAGE",203,0)
+ ISOSORBIDE DINITRATE 5MG TAB,SUBLINGUAL I0083
+"TEMP","MESSAGE",204,0)
+ MEMANTINE HCL 14MG CAP,SA M0996
+"TEMP","MESSAGE",205,0)
+ ONE TOUCH SELECT (GLUCOSE) TEST STRIP O0285
+"TEMP","MESSAGE",206,0)
+ TRAMADOL HCL 50MG TAB,UD T0490
+"TEMP","MESSAGE",207,0)
+
+"TEMP","MESSAGE",208,0)
+The Auto-Create Possible Dosages settings have been edited for the
+"TEMP","MESSAGE",209,0)
+following VA Products. Please review your local dosages for products
+"TEMP","MESSAGE",210,0)
+matched to these entries. Edits to your site's possible dosages or
+"TEMP","MESSAGE",211,0)
+local possible dosages may be needed.
+"TEMP","MESSAGE",212,0)
+
+"TEMP","MESSAGE",213,0)
+TUBERCULIN,PURIFIED PROTEIN DERIVATIVE 5UNT/TEST INJ (CMOP - T0640)
+"TEMP","MESSAGE",214,0)
+ Auto-Create Default Possible Dosage? NO
+"TEMP","MESSAGE",215,0)
+ Possible Dosages To Auto-Create: No Possible Dosages
+"TEMP","MESSAGE",216,0)
+
+"TEMP","MESSAGE",217,0)
+
+"TEMP","MESSAGE",218,0)
+INACTIVATED PRODUCTS WITH REPLACEMENTS
+"TEMP","MESSAGE",219,0)
+ BANDAGE,STRETCH,CONFORM 2IN X 75IN STERILE K#2231 [XZ885]
+"TEMP","MESSAGE",220,0)
+ USE
+"TEMP","MESSAGE",221,0)
+ BANDAGE,STRETCH,CURITY 2IN X 75IN STERILE K#2231 [XH337]
+"TEMP","MESSAGE",222,0)
+
+"TEMP","MESSAGE",223,0)
+ BENZOYL PEROXIDE 10% GEL,TOP [B0518]
+"TEMP","MESSAGE",224,0)
+ USE
+"TEMP","MESSAGE",225,0)
+ BENZOYL PEROXIDE 10% (WATER BASED) GEL,TOP [B0521]
+"TEMP","MESSAGE",226,0)
+
+"TEMP","MESSAGE",227,0)
+ BENZOYL PEROXIDE 5% GEL,TOP [B0519]
+"TEMP","MESSAGE",228,0)
+ USE
+"TEMP","MESSAGE",229,0)
+ BENZOYL PEROXIDE 5% (WATER BASED) GEL,TOP [B0520]
+"TEMP","MESSAGE",230,0)
+
+"TEMP","MESSAGE",231,0)
+ CATHETER,SELF-CATH SOFT 10FR MENTOR #110 [XX502]
+"TEMP","MESSAGE",232,0)
+ USE
+"TEMP","MESSAGE",233,0)
+ CATHETER,SELF-CATH SOFT 10FR COLOPLAST #110 [XH378]
+"TEMP","MESSAGE",234,0)
+
+"TEMP","MESSAGE",235,0)
+ CATHETER,SELF-CATH SOFT 12FR MENTOR #112 [XX503]
+"TEMP","MESSAGE",236,0)
+ USE
+"TEMP","MESSAGE",237,0)
+ CATHETER,SELF-CATH SOFT 12FR COLOPLAST #112 [XH380]
+"TEMP","MESSAGE",238,0)
+
+"TEMP","MESSAGE",239,0)
+ CATHETER,SELF-CATH SOFT 14FR MENTOR #114 [XX504]
+"TEMP","MESSAGE",240,0)
+ USE
+"TEMP","MESSAGE",241,0)
+ CATHETER,SELF-CATH SOFT 14FR COLOPLAST #114 [XH379]
+"TEMP","MESSAGE",242,0)
+
+"TEMP","MESSAGE",243,0)
+ CATHETER,SELF-CATH SOFT 16FR MENTOR #116 [XX505]
+"TEMP","MESSAGE",244,0)
+ USE
+"TEMP","MESSAGE",245,0)
+ CATHETER,SELF-CATH SOFT 16FR COLOPLAST #116 [XH381]
+"TEMP","MESSAGE",246,0)
+
+"TEMP","MESSAGE",247,0)
+ EPINEPHRINE,RACEMIC HCL 2.25% SOLN,INHL [E0109]
+"TEMP","MESSAGE",248,0)
+ USE
+"TEMP","MESSAGE",249,0)
+ EPINEPHRINE,RACEMIC HCL 2.25% SOLN,INHL,0.5ML [E0481]
+"TEMP","MESSAGE",250,0)
+
+"TEMP","MESSAGE",251,0)
+ FEEDING BAG,INFINITY ENTERALITE #50890 [XT479]
+"TEMP","MESSAGE",252,0)
+ USE
+"TEMP","MESSAGE",253,0)
+ FEEDING BAG W/PUMP SET ENTERALITE INFINITY #INF1200 [XH384]
+"TEMP","MESSAGE",254,0)
+
+"TEMP","MESSAGE",255,0)
+ FEEDING BAG W/PUMP SET KENDALL #773662 [XU617]
+"TEMP","MESSAGE",256,0)
+ USE
+"TEMP","MESSAGE",257,0)
+ FEEDING BAG W/PUMP SET COVIDIEN #773662 [XH382]
+"TEMP","MESSAGE",258,0)
+
+"TEMP","MESSAGE",259,0)
+ SULFACETAMIDE NA 10% LOTION [S0109]
+"TEMP","MESSAGE",260,0)
+ USE
+"TEMP","MESSAGE",261,0)
+ SULFACETAMIDE NA 10% SUSP,TOP [S0689]
+"TEMP","MESSAGE",262,0)
+
+"TEMP","MESSAGE",263,0)
+
+"TEMP","MESSAGE",264,0)
+INACTIVATED PRODUCTS
+"TEMP","MESSAGE",265,0)
+ MACUVITE TAB [M0702]
+"TEMP","MESSAGE",266,0)
+ POTASSIUM PARA-AMINOBENZOATE 0.5GM TAB [P0090]
+"TEMP","MESSAGE",267,0)
+
+"TEMP","MESSAGE",268,0)
+
+"TEMP","MESSAGE",269,0)
+UNMARKED FROM CMOP
+"TEMP","MESSAGE",270,0)
+ AMLODIPINE BESYLATE 5MG TAB,UD [A1050]
+"TEMP","MESSAGE",271,0)
+ BENZOYL PEROXIDE 5%/CLINDAMYCIN 1% GEL,KIT [B0600]
+"TEMP","MESSAGE",272,0)
+ BENZOYL PEROXIDE 5%/ERYTHROMYCIN 3% GEL,TOP [B0150]
+"TEMP","MESSAGE",273,0)
+ BIOTENE ANTIBACTERIAL DRY MOUTH TOOTHPASTE [B0404]
+"TEMP","MESSAGE",274,0)
+ BIOTENE SENSITIVE TOOTHPASTE [B0578]
+"TEMP","MESSAGE",275,0)
+ BUPROPION HCL (FORFIVO XL) 450MG TAB,SA [B0694]
+"TEMP","MESSAGE",276,0)
+ BUSULFAN 2MG TAB [B0232]
+"TEMP","MESSAGE",277,0)
+ CAFFEINE 100MG/ERGOTAMINE TARTRATE 1MG TAB [C0002]
+"TEMP","MESSAGE",278,0)
+ CARTRIDGE,ANIMAS IR 2ML #1200 [XV241]
+"TEMP","MESSAGE",279,0)
+ CATHETER,EXTERNAL INTERMED ROCHESTER #32303/32103 [XY911]
+"TEMP","MESSAGE",280,0)
+ CATHETER,FOLEY SILICONE 2-WAY 18FR 5CC KENDALL #5189 [XT111]
+"TEMP","MESSAGE",281,0)
+ CATHETER,RED RUBBER ROBINSON 14FR KENDALL #0143 [XU906]
+"TEMP","MESSAGE",282,0)
+ CIMETIDINE HCL 300MG/5ML LIQUID,ORAL [C0257]
+"TEMP","MESSAGE",283,0)
+ ISOSORBIDE DINITRATE 5MG TAB,SUBLINGUAL [I0083]
+"TEMP","MESSAGE",284,0)
+ MEMANTINE HCL 14MG CAP,SA [M0996]
+"TEMP","MESSAGE",285,0)
+ ONE TOUCH SELECT (GLUCOSE) TEST STRIP [O0285]
+"TEMP","MESSAGE",286,0)
+ TRAMADOL HCL 50MG TAB,UD [T0490]
+"TEMP","MESSAGE",287,0)
+
+"TEMP","MESSAGE",288,0)
+
+"TEMP","MESSAGE",289,0)
+ITEMS REMARKED FOR CMOP
+"TEMP","MESSAGE",290,0)
+ BISACODYL 10MG/30ML ENEMA,RTL [B0185]
+"TEMP","MESSAGE",291,0)
+
+"TEMP","MESSAGE",292,0)
+
+"TEMP","MESSAGE",293,0)
+VA DISPENSE UNIT CHANGE
+"TEMP","MESSAGE",294,0)
+ SODIUM CHLORIDE 7% INHL 4ML
+"TEMP","MESSAGE",295,0)
+
+"TEMP","MESSAGE",296,0)
+
+"TEMP","MESSAGE",297,0)
+CALCIUM CHANGES
+"TEMP","MESSAGE",298,0)
+THE FOLLOWING CALCIUM ENTRIES WILL BE INACTIVATED IN THE NOVEMBER PATCH.
+"TEMP","MESSAGE",299,0)
+PLEASE MATCH TO THE REPLACEMENT ITEMS.
+"TEMP","MESSAGE",300,0)
+
+"TEMP","MESSAGE",301,0)
+ CALCIUM CITRATE 950MG TAB [C0041]
+"TEMP","MESSAGE",302,0)
+ USE
+"TEMP","MESSAGE",303,0)
+ CALCIUM 200MG (CA CITRATE-950MG) TAB [C1527]
+"TEMP","MESSAGE",304,0)
+
+"TEMP","MESSAGE",305,0)
+ CALCIUM CARBONATE 1.25GM TAB [C0023]
+"TEMP","MESSAGE",306,0)
+ USE
+"TEMP","MESSAGE",307,0)
+ CALCIUM 500MG (CA CARBONATE-1.25GM) TAB [C1526]
+"TEMP","MESSAGE",308,0)
+
+"TEMP","MESSAGE",309,0)
+The override dose form checks field has changed for the following products
+"TEMP","MESSAGE",310,0)
+
+"TEMP","MESSAGE",311,0)
+JUVEN PWDR PKT,19.3GM
+"TEMP","MESSAGE",312,0)
+ changed from NO to YES
+"TEMP","MESSAGE",313,0)
+
+"TEMP","MESSAGE",314,0)
+JUVEN PWDR PKT,24GM FRUIT PUNCH
+"TEMP","MESSAGE",315,0)
+ changed from NO to YES
+"TEMP","MESSAGE",316,0)
+
+"TEMP","MESSAGE",317,0)
+JUVEN PWDR PKT,24GM GRAPE
+"TEMP","MESSAGE",318,0)
+ changed from NO to YES
+"TEMP","MESSAGE",319,0)
+
+"TEMP","MESSAGE",320,0)
+JUVEN PWDR PKT,24GM ORANGE
+"TEMP","MESSAGE",321,0)
+ changed from NO to YES
+"TEMP","MESSAGE",322,0)
+
+"TEMP","MESSAGE",323,0)
+JUVEN PWDR PKT,24GM
+"TEMP","MESSAGE",324,0)
+ changed from NO to YES
+"TEMP","MESSAGE",325,0)
+
+"TEMP","MESSAGE2",0)
+^^233^233^3131001^
+"TEMP","MESSAGE2",1,0)
+The following interactions in National Drug File (NDF) have been added,
+"TEMP","MESSAGE2",2,0)
+edited or inactivated. These changes are the result of review and
+"TEMP","MESSAGE2",3,0)
+recommendations from the NDF support group.
+"TEMP","MESSAGE2",4,0)
+
+"TEMP","MESSAGE2",5,0)
+ADDED INTERACTIONS
+"TEMP","MESSAGE2",6,0)
+
+"TEMP","MESSAGE2",7,0)
+ BCG VACCINE/MYCOPHENOLATE Critical
+"TEMP","MESSAGE2",8,0)
+ BCG VACCINE/NATALIZUMAB Critical
+"TEMP","MESSAGE2",9,0)
+ BCG VACCINE/NELARABINE Critical
+"TEMP","MESSAGE2",10,0)
+ BCG VACCINE/NILOTINIB Critical
+"TEMP","MESSAGE2",11,0)
+ BCG VACCINE/OFATUMUMAB Critical
+"TEMP","MESSAGE2",12,0)
+ BCG VACCINE/OXALIPLATIN Critical
+"TEMP","MESSAGE2",13,0)
+ BCG VACCINE/PACLITAXEL Critical
+"TEMP","MESSAGE2",14,0)
+ BCG VACCINE/PAZOPANIB Critical
+"TEMP","MESSAGE2",15,0)
+ BCG VACCINE/PEGASPARGASE Critical
+"TEMP","MESSAGE2",16,0)
+ BCG VACCINE/PEMETREXED Critical
+"TEMP","MESSAGE2",17,0)
+ BCG VACCINE/PENTOSTATIN Critical
+"TEMP","MESSAGE2",18,0)
+ BCG VACCINE/PLICAMYCIN Critical
+"TEMP","MESSAGE2",19,0)
+ BCG VACCINE/PRALATREXATE Critical
+"TEMP","MESSAGE2",20,0)
+ INFLUENZA VIRUS,LIVE/MYCOPHENOLATE Critical
+"TEMP","MESSAGE2",21,0)
+ INFLUENZA VIRUS,LIVE/NATALIZUMAB Critical
+"TEMP","MESSAGE2",22,0)
+ INFLUENZA VIRUS,LIVE/NELARABINE Critical
+"TEMP","MESSAGE2",23,0)
+ INFLUENZA VIRUS,LIVE/NILOTINIB Critical
+"TEMP","MESSAGE2",24,0)
+ INFLUENZA VIRUS,LIVE/OFATUMUMAB Critical
+"TEMP","MESSAGE2",25,0)
+ INFLUENZA VIRUS,LIVE/OXALIPLATIN Critical
+"TEMP","MESSAGE2",26,0)
+ INFLUENZA VIRUS,LIVE/PACLITAXEL Critical
+"TEMP","MESSAGE2",27,0)
+ INFLUENZA VIRUS,LIVE/PAZOPANIB Critical
+"TEMP","MESSAGE2",28,0)
+ INFLUENZA VIRUS,LIVE/PEGASPARGASE Critical
+"TEMP","MESSAGE2",29,0)
+ INFLUENZA VIRUS,LIVE/PEMETREXED Critical
+"TEMP","MESSAGE2",30,0)
+ INFLUENZA VIRUS,LIVE/PENTOSTATIN Critical
+"TEMP","MESSAGE2",31,0)
+ INFLUENZA VIRUS,LIVE/PLICAMYCIN Critical
+"TEMP","MESSAGE2",32,0)
+ INFLUENZA VIRUS,LIVE/PRALATREXATE Critical
+"TEMP","MESSAGE2",33,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/MYCOPHENOLATE Critical
+"TEMP","MESSAGE2",34,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/NATALIZUMAB Critical
+"TEMP","MESSAGE2",35,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/NELARABINE Critical
+"TEMP","MESSAGE2",36,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/NILOTINIB Critical
+"TEMP","MESSAGE2",37,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/OFATUMUMAB Critical
+"TEMP","MESSAGE2",38,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/OXALIPLATIN Critical
+"TEMP","MESSAGE2",39,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/PACLITAXEL Critical
+"TEMP","MESSAGE2",40,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/PAZOPANIB Critical
+"TEMP","MESSAGE2",41,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/PEGASPARGASE Critical
+"TEMP","MESSAGE2",42,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/PEMETREXED Critical
+"TEMP","MESSAGE2",43,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/PENTOSTATIN Critical
+"TEMP","MESSAGE2",44,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/PLICAMYCIN Critical
+"TEMP","MESSAGE2",45,0)
+ MEASLES VIRUS VACCINE,LIVE ATTENUATED/PRALATREXATE Critical
+"TEMP","MESSAGE2",46,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/MYCOPHENOLATE Critical
+"TEMP","MESSAGE2",47,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/NATALIZUMAB Critical
+"TEMP","MESSAGE2",48,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/NELARABINE Critical
+"TEMP","MESSAGE2",49,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/NILOTINIB Critical
+"TEMP","MESSAGE2",50,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/OFATUMUMAB Critical
+"TEMP","MESSAGE2",51,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/OXALIPLATIN Critical
+"TEMP","MESSAGE2",52,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PACLITAXEL Critical
+"TEMP","MESSAGE2",53,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PAZOPANIB Critical
+"TEMP","MESSAGE2",54,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PEGASPARGASE Critical
+"TEMP","MESSAGE2",55,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PEMETREXED Critical
+"TEMP","MESSAGE2",56,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PENTOSTATIN Critical
+"TEMP","MESSAGE2",57,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PLICAMYCIN Critical
+"TEMP","MESSAGE2",58,0)
+ MEASLES/MUMPS/RUBELLA VIRUS VACCINE,LIVE/PRALATREXATE Critical
+"TEMP","MESSAGE2",59,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/MYCOPHENOLATE Critical
+"TEMP","MESSAGE2",60,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/NATALIZUMAB Critical
+"TEMP","MESSAGE2",61,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/NELARABINE Critical
+"TEMP","MESSAGE2",62,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/NILOTINIB Critical
+"TEMP","MESSAGE2",63,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/OFATUMUMAB Critical
+"TEMP","MESSAGE2",64,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/OXALIPLATIN Critical
+"TEMP","MESSAGE2",65,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/PACLITAXEL Critical
+"TEMP","MESSAGE2",66,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/PAZOPANIB Critical
+"TEMP","MESSAGE2",67,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/PEGASPARGASE Critical
+"TEMP","MESSAGE2",68,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/PEMETREXED Critical
+"TEMP","MESSAGE2",69,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/PENTOSTATIN Critical
+"TEMP","MESSAGE2",70,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/PLICAMYCIN Critical
+"TEMP","MESSAGE2",71,0)
+ MEASLES/RUBELLA VIRUS VACCINE,LIVE/PRALATREXATE Critical
+"TEMP","MESSAGE2",72,0)
+ MUMPS VIRUS VACCINE,LIVE/MYCOPHENOLATE Critical
+"TEMP","MESSAGE2",73,0)
+ MUMPS VIRUS VACCINE,LIVE/NATALIZUMAB Critical
+"TEMP","MESSAGE2",74,0)
+ MUMPS VIRUS VACCINE,LIVE/NELARABINE Critical
+"TEMP","MESSAGE2",75,0)
+ MUMPS VIRUS VACCINE,LIVE/NILOTINIB Critical
+"TEMP","MESSAGE2",76,0)
+ MUMPS VIRUS VACCINE,LIVE/OFATUMUMAB Critical
+"TEMP","MESSAGE2",77,0)
+ MUMPS VIRUS VACCINE,LIVE/OXALIPLATIN Critical
+"TEMP","MESSAGE2",78,0)
+ MUMPS VIRUS VACCINE,LIVE/PACLITAXEL Critical
+"TEMP","MESSAGE2",79,0)
+ MUMPS VIRUS VACCINE,LIVE/PAZOPANIB Critical
+"TEMP","MESSAGE2",80,0)
+ MUMPS VIRUS VACCINE,LIVE/PEGASPARGASE Critical
+"TEMP","MESSAGE2",81,0)
+ MUMPS VIRUS VACCINE,LIVE/PEMETREXED Critical
+"TEMP","MESSAGE2",82,0)
+ MUMPS VIRUS VACCINE,LIVE/PENTOSTATIN Critical
+"TEMP","MESSAGE2",83,0)
+ MUMPS VIRUS VACCINE,LIVE/PLICAMYCIN Critical
+"TEMP","MESSAGE2",84,0)
+ MUMPS VIRUS VACCINE,LIVE/PRALATREXATE Critical
+"TEMP","MESSAGE2",85,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/MYCOPHENOLATE Critical
+"TEMP","MESSAGE2",86,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/NATALIZUMAB Critical
+"TEMP","MESSAGE2",87,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/NELARABINE Critical
+"TEMP","MESSAGE2",88,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/NILOTINIB Critical
+"TEMP","MESSAGE2",89,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/OFATUMUMAB Critical
+"TEMP","MESSAGE2",90,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/OXALIPLATIN Critical
+"TEMP","MESSAGE2",91,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/PACLITAXEL Critical
+"TEMP","MESSAGE2",92,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/PAZOPANIB Critical
+"TEMP","MESSAGE2",93,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/PEGASPARGASE Critical
+"TEMP","MESSAGE2",94,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/PEMETREXED Critical
+"TEMP","MESSAGE2",95,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/PENTOSTATIN Critical
+"TEMP","MESSAGE2",96,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/PLICAMYCIN Critical
+"TEMP","MESSAGE2",97,0)
+ MUMPS/RUBELLA VIRUS VACCINE,LIVE/PRALATREXATE Critical
+"TEMP","MESSAGE2",98,0)
+ MYCOPHENOLATE/POLIOVIRUS VACCINE LIVE Critical
+"TEMP","MESSAGE2",99,0)
+ MYCOPHENOLATE/ROTAVIRUS Critical
+"TEMP","MESSAGE2",100,0)
+ MYCOPHENOLATE/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",101,0)
+ MYCOPHENOLATE/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",102,0)
+ MYCOPHENOLATE/VARICELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",103,0)
+ MYCOPHENOLATE/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",104,0)
+ MYCOPHENOLATE/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",105,0)
+ NATALIZUMAB/POLIOVIRUS VACCINE LIVE Critical
+"TEMP","MESSAGE2",106,0)
+ NATALIZUMAB/ROTAVIRUS Critical
+"TEMP","MESSAGE2",107,0)
+ NATALIZUMAB/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",108,0)
+ NATALIZUMAB/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",109,0)
+ NATALIZUMAB/VARICELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",110,0)
+ NATALIZUMAB/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",111,0)
+ NATALIZUMAB/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",112,0)
+ NELARABINE/POLIOVIRUS VACCINE LIVE Critical
+"TEMP","MESSAGE2",113,0)
+ NELARABINE/ROTAVIRUS Critical
+"TEMP","MESSAGE2",114,0)
+ NELARABINE/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",115,0)
+ NELARABINE/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",116,0)
+ NELARABINE/VARICELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",117,0)
+ NELARABINE/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",118,0)
+ NELARABINE/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",119,0)
+ NILOTINIB/POLIOVIRUS VACCINE LIVE Critical
+"TEMP","MESSAGE2",120,0)
+ NILOTINIB/ROTAVIRUS Critical
+"TEMP","MESSAGE2",121,0)
+ NILOTINIB/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",122,0)
+ NILOTINIB/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",123,0)
+ NILOTINIB/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",124,0)
+ NILOTINIB/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",125,0)
+ OFATUMUMAB/POLIOVIRUS VACCINE LIVE Critical
+"TEMP","MESSAGE2",126,0)
+ OFATUMUMAB/ROTAVIRUS Critical
+"TEMP","MESSAGE2",127,0)
+ OFATUMUMAB/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",128,0)
+ OFATUMUMAB/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",129,0)
+ OFATUMUMAB/VARICELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",130,0)
+ OFATUMUMAB/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",131,0)
+ OFATUMUMAB/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",132,0)
+ OXALIPLATIN/POLIOVIRUS VACCINE LIVE Critical
+"TEMP","MESSAGE2",133,0)
+ OXALIPLATIN/ROTAVIRUS Critical
+"TEMP","MESSAGE2",134,0)
+ OXALIPLATIN/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",135,0)
+ OXALIPLATIN/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",136,0)
+ OXALIPLATIN/VARICELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",137,0)
+ OXALIPLATIN/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",138,0)
+ OXALIPLATIN/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",139,0)
+ PACLITAXEL/POLIOVIRUS VACCINE LIVE Critical
+"TEMP","MESSAGE2",140,0)
+ PACLITAXEL/ROTAVIRUS Critical
+"TEMP","MESSAGE2",141,0)
+ PACLITAXEL/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",142,0)
+ PACLITAXEL/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",143,0)
+ PACLITAXEL/VARICELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",144,0)
+ PACLITAXEL/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",145,0)
+ PACLITAXEL/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",146,0)
+ PAZOPANIB/POLIOVIRUS VACCINE LIVE Critical
+"TEMP","MESSAGE2",147,0)
+ PAZOPANIB/ROTAVIRUS Critical
+"TEMP","MESSAGE2",148,0)
+ PAZOPANIB/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",149,0)
+ PAZOPANIB/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",150,0)
+ PAZOPANIB/VARICELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",151,0)
+ PAZOPANIB/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",152,0)
+ PAZOPANIB/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",153,0)
+ PEGASPARGASE/POLIOVIRUS VACCINE LIVE Critical
+"TEMP","MESSAGE2",154,0)
+ PEGASPARGASE/ROTAVIRUS Critical
+"TEMP","MESSAGE2",155,0)
+ PEGASPARGASE/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",156,0)
+ PEGASPARGASE/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",157,0)
+ PEGASPARGASE/VARICELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",158,0)
+ PEGASPARGASE/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",159,0)
+ PEGASPARGASE/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",160,0)
+ PEMETREXED/POLIOVIRUS VACCINE LIVE Critical
+"TEMP","MESSAGE2",161,0)
+ PEMETREXED/ROTAVIRUS Critical
+"TEMP","MESSAGE2",162,0)
+ PEMETREXED/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",163,0)
+ PEMETREXED/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",164,0)
+ PEMETREXED/VARICELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",165,0)
+ PEMETREXED/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",166,0)
+ PEMETREXED/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",167,0)
+ PENTOSTATIN/POLIOVIRUS VACCINE LIVE Critical
+"TEMP","MESSAGE2",168,0)
+ PENTOSTATIN/ROTAVIRUS Critical
+"TEMP","MESSAGE2",169,0)
+ PENTOSTATIN/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",170,0)
+ PENTOSTATIN/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",171,0)
+ PENTOSTATIN/VARICELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",172,0)
+ PENTOSTATIN/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",173,0)
+ PENTOSTATIN/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",174,0)
+ PLICAMYCIN/POLIOVIRUS VACCINE LIVE Critical
+"TEMP","MESSAGE2",175,0)
+ PLICAMYCIN/ROTAVIRUS Critical
+"TEMP","MESSAGE2",176,0)
+ PLICAMYCIN/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",177,0)
+ PLICAMYCIN/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",178,0)
+ PLICAMYCIN/VARICELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",179,0)
+ PLICAMYCIN/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",180,0)
+ PLICAMYCIN/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",181,0)
+ POLIOVIRUS VACCINE LIVE/PRALATREXATE Critical
+"TEMP","MESSAGE2",182,0)
+ PRALATREXATE/ROTAVIRUS Critical
+"TEMP","MESSAGE2",183,0)
+ PRALATREXATE/RUBELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",184,0)
+ PRALATREXATE/TYPHOID VACCINE LIVE Critical
+"TEMP","MESSAGE2",185,0)
+ PRALATREXATE/VARICELLA VIRUS VACCINE,LIVE Critical
+"TEMP","MESSAGE2",186,0)
+ PRALATREXATE/YELLOW FEVER VACCINE Critical
+"TEMP","MESSAGE2",187,0)
+ PRALATREXATE/ZOSTER VACCINE LIVE (OKA/MERCK) Critical
+"TEMP","MESSAGE2",188,0)
+ QUETIAPINE FUMARATE/TROLEANDOMYCIN Significant
+"TEMP","MESSAGE2",189,0)
+
+"TEMP","MESSAGE2",190,0)
+EDITED INTERACTIONS
+"TEMP","MESSAGE2",191,0)
+
+"TEMP","MESSAGE2",192,0)
+ NONE
+"TEMP","MESSAGE2",193,0)
+
+"TEMP","MESSAGE2",194,0)
+INACTIVATED INTERACTIONS
+"TEMP","MESSAGE2",195,0)
+
+"TEMP","MESSAGE2",196,0)
+ NONE
+"TEMP","MESSAGE2",197,0)
+
+"TEMP","MESSAGE2",198,0)
+The FDA Med Guide for the following products has been changed
+"TEMP","MESSAGE2",199,0)
+
+"TEMP","MESSAGE2",200,0)
+
+"TEMP","MESSAGE2",201,0)
+ EDITED
+"TEMP","MESSAGE2",202,0)
+ ===========
+"TEMP","MESSAGE2",203,0)
+ CLOPIDOGREL BISULFATE 300MG TAB,UD
+"TEMP","MESSAGE2",204,0)
+ CLOPIDOGREL BISULFATE 75MG TAB
+"TEMP","MESSAGE2",205,0)
+ CLOPIDOGREL BISULFATE 75MG TAB,UD
+"TEMP","MESSAGE2",206,0)
+ EZOGABINE 200MG TAB
+"TEMP","MESSAGE2",207,0)
+ EZOGABINE 300MG TAB
+"TEMP","MESSAGE2",208,0)
+ EZOGABINE 400MG TAB
+"TEMP","MESSAGE2",209,0)
+ EZOGABINE 50MG TAB
+"TEMP","MESSAGE2",210,0)
+ GOLIMUMAB 12.5MG/ML INJ,VIL,4ML
+"TEMP","MESSAGE2",211,0)
+ LINAGLIPTIN 2.5MG/METFORMIN HCL 1000MG TAB,ORAL
+"TEMP","MESSAGE2",212,0)
+ LINAGLIPTIN 2.5MG/METFORMIN HCL 500MG TAB,ORAL
+"TEMP","MESSAGE2",213,0)
+ LINAGLIPTIN 2.5MG/METFORMIN HCL 850MG TAB,ORAL
+"TEMP","MESSAGE2",214,0)
+ LURASIDONE HCL 120MG TAB
+"TEMP","MESSAGE2",215,0)
+ LURASIDONE HCL 20MG TAB
+"TEMP","MESSAGE2",216,0)
+ LURASIDONE HCL 40MG TAB
+"TEMP","MESSAGE2",217,0)
+ LURASIDONE HCL 40MG TAB,UD
+"TEMP","MESSAGE2",218,0)
+ LURASIDONE HCL 80MG TAB
+"TEMP","MESSAGE2",219,0)
+ LURASIDONE HCL 80MG TAB,UD
+"TEMP","MESSAGE2",220,0)
+ METFORMIN HCL 1000MG/SITAGLIPTIN PHOSPHATE 50MG TAB
+"TEMP","MESSAGE2",221,0)
+ METFORMIN HCL 500MG/SITAGLIPTIN PHOSPHATE 50MG TAB
+"TEMP","MESSAGE2",222,0)
+ ONABOTULINUMTOXINA 100 UNIT/VIL INJ
+"TEMP","MESSAGE2",223,0)
+ ONABOTULINUMTOXINA 200 UNIT/VIL INJ
+"TEMP","MESSAGE2",224,0)
+ ONABOTULINUMTOXINA 50 UNIT/VIL INJ
+"TEMP","MESSAGE2",225,0)
+ PEG-3350/ELECTROLYTES (MOVIPREP) PWDR
+"TEMP","MESSAGE2",226,0)
+ SUNITINIB MALATE 12.5MG CAP,ORAL
+"TEMP","MESSAGE2",227,0)
+ SUNITINIB MALATE 25MG CAP,ORAL
+"TEMP","MESSAGE2",228,0)
+ SUNITINIB MALATE 50MG CAP,ORAL
+"TEMP","MESSAGE2",229,0)
+ TERIPARATIDE RECOMBINANT 250MCG/ML (600MCG) INJ,PEN,2.4ML
+"TEMP","MESSAGE2",230,0)
+ TERIPARATIDE RECOMBINANT 250MCG/ML (750MCG) INJ,PEN,3ML
+"TEMP","MESSAGE2",231,0)
+ TESTOSTERONE (TESTIM) 1% 5GM/PKT GEL,TOP
+"TEMP","MESSAGE2",232,0)
+ TESTOSTERONE 10MG/PUMP GEL,TOP
+"TEMP","MESSAGE2",233,0)
+
+"TEMP","NFI",1083)
+
+"TEMP","NFI",20102)
+
+"TEMP","NFI",22716)
+
+"TEMP","NFI",24183)
+
+"TEMP","NFI",24184)
+
+"TEMP","NFI",24185)
+
+"TEMP","PRODUCT",4)
+
+"TEMP","PRODUCT",5)
+
+"TEMP","PRODUCT",7)
+
+"TEMP","PRODUCT",8)
+
+"TEMP","PRODUCT",9)
+
+"TEMP","PRODUCT",10)
+
+"TEMP","PRODUCT",12)
+
+"TEMP","PRODUCT",13)
+
+"TEMP","PRODUCT",14)
+
+"TEMP","PRODUCT",16)
+
+"TEMP","PRODUCT",17)
+
+"TEMP","PRODUCT",18)
+
+"TEMP","PRODUCT",19)
+
+"TEMP","PRODUCT",20)
+
+"TEMP","PRODUCT",21)
+
+"TEMP","PRODUCT",22)
+
+"TEMP","PRODUCT",31)
+
+"TEMP","PRODUCT",32)
+
+"TEMP","PRODUCT",33)
+
+"TEMP","PRODUCT",34)
+
+"TEMP","PRODUCT",35)
+
+"TEMP","PRODUCT",36)
+
+"TEMP","PRODUCT",37)
+
+"TEMP","PRODUCT",39)
+
+"TEMP","PRODUCT",40)
+
+"TEMP","PRODUCT",41)
+
+"TEMP","PRODUCT",42)
+
+"TEMP","PRODUCT",43)
+
+"TEMP","PRODUCT",44)
+
+"TEMP","PRODUCT",45)
+
+"TEMP","PRODUCT",47)
+
+"TEMP","PRODUCT",48)
+
+"TEMP","PRODUCT",49)
+
+"TEMP","PRODUCT",50)
+
+"TEMP","PRODUCT",54)
+
+"TEMP","PRODUCT",55)
+
+"TEMP","PRODUCT",56)
+
+"TEMP","PRODUCT",58)
+
+"TEMP","PRODUCT",59)
+
+"TEMP","PRODUCT",60)
+
+"TEMP","PRODUCT",62)
+
+"TEMP","PRODUCT",63)
+
+"TEMP","PRODUCT",64)
+
+"TEMP","PRODUCT",69)
+
+"TEMP","PRODUCT",70)
+
+"TEMP","PRODUCT",74)
+
+"TEMP","PRODUCT",75)
+
+"TEMP","PRODUCT",76)
+
+"TEMP","PRODUCT",77)
+
+"TEMP","PRODUCT",78)
+
+"TEMP","PRODUCT",79)
+
+"TEMP","PRODUCT",80)
+
+"TEMP","PRODUCT",81)
+
+"TEMP","PRODUCT",82)
+
+"TEMP","PRODUCT",83)
+
+"TEMP","PRODUCT",84)
+
+"TEMP","PRODUCT",85)
+
+"TEMP","PRODUCT",88)
+
+"TEMP","PRODUCT",89)
+
+"TEMP","PRODUCT",90)
+
+"TEMP","PRODUCT",91)
+
+"TEMP","PRODUCT",95)
+
+"TEMP","PRODUCT",97)
+
+"TEMP","PRODUCT",100)
+
+"TEMP","PRODUCT",101)
+
+"TEMP","PRODUCT",102)
+
+"TEMP","PRODUCT",103)
+
+"TEMP","PRODUCT",104)
+
+"TEMP","PRODUCT",105)
+
+"TEMP","PRODUCT",106)
+
+"TEMP","PRODUCT",107)
+
+"TEMP","PRODUCT",110)
+
+"TEMP","PRODUCT",112)
+
+"TEMP","PRODUCT",113)
+
+"TEMP","PRODUCT",114)
+
+"TEMP","PRODUCT",115)
+
+"TEMP","PRODUCT",116)
+
+"TEMP","PRODUCT",117)
+
+"TEMP","PRODUCT",118)
+
+"TEMP","PRODUCT",119)
+
+"TEMP","PRODUCT",120)
+
+"TEMP","PRODUCT",121)
+
+"TEMP","PRODUCT",122)
+
+"TEMP","PRODUCT",123)
+
+"TEMP","PRODUCT",124)
+
+"TEMP","PRODUCT",125)
+
+"TEMP","PRODUCT",126)
+
+"TEMP","PRODUCT",128)
+
+"TEMP","PRODUCT",129)
+
+"TEMP","PRODUCT",131)
+
+"TEMP","PRODUCT",133)
+
+"TEMP","PRODUCT",134)
+
+"TEMP","PRODUCT",138)
+
+"TEMP","PRODUCT",139)
+
+"TEMP","PRODUCT",142)
+
+"TEMP","PRODUCT",144)
+
+"TEMP","PRODUCT",145)
+
+"TEMP","PRODUCT",146)
+
+"TEMP","PRODUCT",147)
+
+"TEMP","PRODUCT",148)
+
+"TEMP","PRODUCT",149)
+
+"TEMP","PRODUCT",150)
+
+"TEMP","PRODUCT",151)
+
+"TEMP","PRODUCT",152)
+
+"TEMP","PRODUCT",153)
+
+"TEMP","PRODUCT",154)
+
+"TEMP","PRODUCT",155)
+
+"TEMP","PRODUCT",156)
+
+"TEMP","PRODUCT",157)
+
+"TEMP","PRODUCT",158)
+
+"TEMP","PRODUCT",159)
+
+"TEMP","PRODUCT",160)
+
+"TEMP","PRODUCT",161)
+
+"TEMP","PRODUCT",162)
+
+"TEMP","PRODUCT",163)
+
+"TEMP","PRODUCT",164)
+
+"TEMP","PRODUCT",165)
+
+"TEMP","PRODUCT",166)
+
+"TEMP","PRODUCT",169)
+
+"TEMP","PRODUCT",171)
+
+"TEMP","PRODUCT",172)
+
+"TEMP","PRODUCT",173)
+
+"TEMP","PRODUCT",174)
+
+"TEMP","PRODUCT",178)
+
+"TEMP","PRODUCT",179)
+
+"TEMP","PRODUCT",180)
+
+"TEMP","PRODUCT",185)
+
+"TEMP","PRODUCT",186)
+
+"TEMP","PRODUCT",187)
+
+"TEMP","PRODUCT",188)
+
+"TEMP","PRODUCT",189)
+
+"TEMP","PRODUCT",193)
+
+"TEMP","PRODUCT",194)
+
+"TEMP","PRODUCT",198)
+
+"TEMP","PRODUCT",200)
+
+"TEMP","PRODUCT",201)
+
+"TEMP","PRODUCT",202)
+
+"TEMP","PRODUCT",203)
+
+"TEMP","PRODUCT",204)
+
+"TEMP","PRODUCT",205)
+
+"TEMP","PRODUCT",206)
+
+"TEMP","PRODUCT",207)
+
+"TEMP","PRODUCT",208)
+
+"TEMP","PRODUCT",209)
+
+"TEMP","PRODUCT",210)
+
+"TEMP","PRODUCT",212)
+
+"TEMP","PRODUCT",214)
+
+"TEMP","PRODUCT",215)
+
+"TEMP","PRODUCT",216)
+
+"TEMP","PRODUCT",217)
+
+"TEMP","PRODUCT",218)
+
+"TEMP","PRODUCT",219)
+
+"TEMP","PRODUCT",223)
+
+"TEMP","PRODUCT",226)
+
+"TEMP","PRODUCT",227)
+
+"TEMP","PRODUCT",228)
+
+"TEMP","PRODUCT",229)
+
+"TEMP","PRODUCT",233)
+
+"TEMP","PRODUCT",235)
+
+"TEMP","PRODUCT",239)
+
+"TEMP","PRODUCT",240)
+
+"TEMP","PRODUCT",241)
+
+"TEMP","PRODUCT",242)
+
+"TEMP","PRODUCT",245)
+
+"TEMP","PRODUCT",246)
+
+"TEMP","PRODUCT",247)
+
+"TEMP","PRODUCT",248)
+
+"TEMP","PRODUCT",249)
+
+"TEMP","PRODUCT",250)
+
+"TEMP","PRODUCT",251)
+
+"TEMP","PRODUCT",252)
+
+"TEMP","PRODUCT",253)
+
+"TEMP","PRODUCT",254)
+
+"TEMP","PRODUCT",255)
+
+"TEMP","PRODUCT",256)
+
+"TEMP","PRODUCT",257)
+
+"TEMP","PRODUCT",258)
+
+"TEMP","PRODUCT",261)
+
+"TEMP","PRODUCT",262)
+
+"TEMP","PRODUCT",263)
+
+"TEMP","PRODUCT",264)
+
+"TEMP","PRODUCT",265)
+
+"TEMP","PRODUCT",266)
+
+"TEMP","PRODUCT",267)
+
+"TEMP","PRODUCT",268)
+
+"TEMP","PRODUCT",269)
+
+"TEMP","PRODUCT",270)
+
+"TEMP","PRODUCT",277)
+
+"TEMP","PRODUCT",278)
+
+"TEMP","PRODUCT",279)
+
+"TEMP","PRODUCT",280)
+
+"TEMP","PRODUCT",281)
+
+"TEMP","PRODUCT",283)
+
+"TEMP","PRODUCT",284)
+
+"TEMP","PRODUCT",286)
+
+"TEMP","PRODUCT",287)
+
+"TEMP","PRODUCT",289)
+
+"TEMP","PRODUCT",290)
+
+"TEMP","PRODUCT",292)
+
+"TEMP","PRODUCT",293)
+
+"TEMP","PRODUCT",304)
+
+"TEMP","PRODUCT",306)
+
+"TEMP","PRODUCT",310)
+
+"TEMP","PRODUCT",316)
+
+"TEMP","PRODUCT",320)
+
+"TEMP","PRODUCT",321)
+
+"TEMP","PRODUCT",325)
+
+"TEMP","PRODUCT",327)
+
+"TEMP","PRODUCT",328)
+
+"TEMP","PRODUCT",330)
+
+"TEMP","PRODUCT",331)
+
+"TEMP","PRODUCT",332)
+
+"TEMP","PRODUCT",333)
+
+"TEMP","PRODUCT",340)
+
+"TEMP","PRODUCT",344)
+
+"TEMP","PRODUCT",345)
+
+"TEMP","PRODUCT",350)
+
+"TEMP","PRODUCT",351)
+
+"TEMP","PRODUCT",352)
+
+"TEMP","PRODUCT",353)
+
+"TEMP","PRODUCT",355)
+
+"TEMP","PRODUCT",356)
+
+"TEMP","PRODUCT",357)
+
+"TEMP","PRODUCT",365)
+
+"TEMP","PRODUCT",375)
+
+"TEMP","PRODUCT",380)
+
+"TEMP","PRODUCT",381)
+
+"TEMP","PRODUCT",383)
+
+"TEMP","PRODUCT",385)
+
+"TEMP","PRODUCT",386)
+
+"TEMP","PRODUCT",390)
+
+"TEMP","PRODUCT",392)
+
+"TEMP","PRODUCT",393)
+
+"TEMP","PRODUCT",397)
+
+"TEMP","PRODUCT",398)
+
+"TEMP","PRODUCT",399)
+
+"TEMP","PRODUCT",401)
+
+"TEMP","PRODUCT",403)
+
+"TEMP","PRODUCT",405)
+
+"TEMP","PRODUCT",406)
+
+"TEMP","PRODUCT",407)
+
+"TEMP","PRODUCT",408)
+
+"TEMP","PRODUCT",411)
+
+"TEMP","PRODUCT",414)
+
+"TEMP","PRODUCT",415)
+
+"TEMP","PRODUCT",419)
+
+"TEMP","PRODUCT",420)
+
+"TEMP","PRODUCT",423)
+
+"TEMP","PRODUCT",424)
+
+"TEMP","PRODUCT",425)
+
+"TEMP","PRODUCT",433)
+
+"TEMP","PRODUCT",435)
+
+"TEMP","PRODUCT",436)
+
+"TEMP","PRODUCT",440)
+
+"TEMP","PRODUCT",441)
+
+"TEMP","PRODUCT",442)
+
+"TEMP","PRODUCT",445)
+
+"TEMP","PRODUCT",446)
+
+"TEMP","PRODUCT",447)
+
+"TEMP","PRODUCT",448)
+
+"TEMP","PRODUCT",450)
+
+"TEMP","PRODUCT",455)
+
+"TEMP","PRODUCT",462)
+
+"TEMP","PRODUCT",463)
+
+"TEMP","PRODUCT",465)
+
+"TEMP","PRODUCT",466)
+
+"TEMP","PRODUCT",472)
+
+"TEMP","PRODUCT",473)
+
+"TEMP","PRODUCT",477)
+
+"TEMP","PRODUCT",479)
+
+"TEMP","PRODUCT",480)
+
+"TEMP","PRODUCT",481)
+
+"TEMP","PRODUCT",484)
+
+"TEMP","PRODUCT",485)
+
+"TEMP","PRODUCT",488)
+
+"TEMP","PRODUCT",489)
+
+"TEMP","PRODUCT",491)
+
+"TEMP","PRODUCT",493)
+
+"TEMP","PRODUCT",494)
+
+"TEMP","PRODUCT",495)
+
+"TEMP","PRODUCT",496)
+
+"TEMP","PRODUCT",497)
+
+"TEMP","PRODUCT",500)
+
+"TEMP","PRODUCT",501)
+
+"TEMP","PRODUCT",502)
+
+"TEMP","PRODUCT",505)
+
+"TEMP","PRODUCT",512)
+
+"TEMP","PRODUCT",514)
+
+"TEMP","PRODUCT",517)
+
+"TEMP","PRODUCT",518)
+
+"TEMP","PRODUCT",519)
+
+"TEMP","PRODUCT",520)
+
+"TEMP","PRODUCT",521)
+
+"TEMP","PRODUCT",522)
+
+"TEMP","PRODUCT",523)
+
+"TEMP","PRODUCT",525)
+
+"TEMP","PRODUCT",526)
+
+"TEMP","PRODUCT",527)
+
+"TEMP","PRODUCT",531)
+
+"TEMP","PRODUCT",533)
+
+"TEMP","PRODUCT",534)
+
+"TEMP","PRODUCT",536)
+
+"TEMP","PRODUCT",537)
+
+"TEMP","PRODUCT",541)
+
+"TEMP","PRODUCT",542)
+
+"TEMP","PRODUCT",545)
+
+"TEMP","PRODUCT",546)
+
+"TEMP","PRODUCT",547)
+
+"TEMP","PRODUCT",548)
+
+"TEMP","PRODUCT",550)
+
+"TEMP","PRODUCT",555)
+
+"TEMP","PRODUCT",556)
+
+"TEMP","PRODUCT",557)
+
+"TEMP","PRODUCT",558)
+
+"TEMP","PRODUCT",559)
+
+"TEMP","PRODUCT",561)
+
+"TEMP","PRODUCT",562)
+
+"TEMP","PRODUCT",563)
+
+"TEMP","PRODUCT",564)
+
+"TEMP","PRODUCT",566)
+
+"TEMP","PRODUCT",567)
+
+"TEMP","PRODUCT",569)
+
+"TEMP","PRODUCT",570)
+
+"TEMP","PRODUCT",571)
+
+"TEMP","PRODUCT",573)
+
+"TEMP","PRODUCT",574)
+
+"TEMP","PRODUCT",575)
+
+"TEMP","PRODUCT",576)
+
+"TEMP","PRODUCT",577)
+
+"TEMP","PRODUCT",578)
+
+"TEMP","PRODUCT",582)
+
+"TEMP","PRODUCT",583)
+
+"TEMP","PRODUCT",587)
+
+"TEMP","PRODUCT",590)
+
+"TEMP","PRODUCT",593)
+
+"TEMP","PRODUCT",594)
+
+"TEMP","PRODUCT",595)
+
+"TEMP","PRODUCT",596)
+
+"TEMP","PRODUCT",599)
+
+"TEMP","PRODUCT",600)
+
+"TEMP","PRODUCT",602)
+
+"TEMP","PRODUCT",608)
+
+"TEMP","PRODUCT",612)
+
+"TEMP","PRODUCT",613)
+
+"TEMP","PRODUCT",614)
+
+"TEMP","PRODUCT",615)
+
+"TEMP","PRODUCT",616)
+
+"TEMP","PRODUCT",620)
+
+"TEMP","PRODUCT",621)
+
+"TEMP","PRODUCT",622)
+
+"TEMP","PRODUCT",623)
+
+"TEMP","PRODUCT",624)
+
+"TEMP","PRODUCT",625)
+
+"TEMP","PRODUCT",627)
+
+"TEMP","PRODUCT",629)
+
+"TEMP","PRODUCT",630)
+
+"TEMP","PRODUCT",631)
+
+"TEMP","PRODUCT",632)
+
+"TEMP","PRODUCT",633)
+
+"TEMP","PRODUCT",634)
+
+"TEMP","PRODUCT",635)
+
+"TEMP","PRODUCT",636)
+
+"TEMP","PRODUCT",637)
+
+"TEMP","PRODUCT",638)
+
+"TEMP","PRODUCT",640)
+
+"TEMP","PRODUCT",641)
+
+"TEMP","PRODUCT",642)
+
+"TEMP","PRODUCT",643)
+
+"TEMP","PRODUCT",644)
+
+"TEMP","PRODUCT",645)
+
+"TEMP","PRODUCT",652)
+
+"TEMP","PRODUCT",655)
+
+"TEMP","PRODUCT",656)
+
+"TEMP","PRODUCT",657)
+
+"TEMP","PRODUCT",658)
+
+"TEMP","PRODUCT",659)
+
+"TEMP","PRODUCT",663)
+
+"TEMP","PRODUCT",668)
+
+"TEMP","PRODUCT",669)
+
+"TEMP","PRODUCT",670)
+
+"TEMP","PRODUCT",671)
+
+"TEMP","PRODUCT",673)
+
+"TEMP","PRODUCT",675)
+
+"TEMP","PRODUCT",676)
+
+"TEMP","PRODUCT",677)
+
+"TEMP","PRODUCT",678)
+
+"TEMP","PRODUCT",679)
+
+"TEMP","PRODUCT",680)
+
+"TEMP","PRODUCT",681)
+
+"TEMP","PRODUCT",682)
+
+"TEMP","PRODUCT",683)
+
+"TEMP","PRODUCT",684)
+
+"TEMP","PRODUCT",685)
+
+"TEMP","PRODUCT",686)
+
+"TEMP","PRODUCT",687)
+
+"TEMP","PRODUCT",688)
+
+"TEMP","PRODUCT",689)
+
+"TEMP","PRODUCT",690)
+
+"TEMP","PRODUCT",691)
+
+"TEMP","PRODUCT",692)
+
+"TEMP","PRODUCT",693)
+
+"TEMP","PRODUCT",694)
+
+"TEMP","PRODUCT",695)
+
+"TEMP","PRODUCT",696)
+
+"TEMP","PRODUCT",697)
+
+"TEMP","PRODUCT",698)
+
+"TEMP","PRODUCT",699)
+
+"TEMP","PRODUCT",700)
+
+"TEMP","PRODUCT",701)
+
+"TEMP","PRODUCT",708)
+
+"TEMP","PRODUCT",709)
+
+"TEMP","PRODUCT",712)
+
+"TEMP","PRODUCT",713)
+
+"TEMP","PRODUCT",714)
+
+"TEMP","PRODUCT",715)
+
+"TEMP","PRODUCT",716)
+
+"TEMP","PRODUCT",718)
+
+"TEMP","PRODUCT",720)
+
+"TEMP","PRODUCT",722)
+
+"TEMP","PRODUCT",726)
+
+"TEMP","PRODUCT",727)
+
+"TEMP","PRODUCT",732)
+
+"TEMP","PRODUCT",733)
+
+"TEMP","PRODUCT",734)
+
+"TEMP","PRODUCT",735)
+
+"TEMP","PRODUCT",740)
+
+"TEMP","PRODUCT",744)
+
+"TEMP","PRODUCT",745)
+
+"TEMP","PRODUCT",746)
+
+"TEMP","PRODUCT",749)
+
+"TEMP","PRODUCT",750)
+
+"TEMP","PRODUCT",751)
+
+"TEMP","PRODUCT",755)
+
+"TEMP","PRODUCT",756)
+
+"TEMP","PRODUCT",757)
+
+"TEMP","PRODUCT",758)
+
+"TEMP","PRODUCT",759)
+
+"TEMP","PRODUCT",760)
+
+"TEMP","PRODUCT",761)
+
+"TEMP","PRODUCT",762)
+
+"TEMP","PRODUCT",769)
+
+"TEMP","PRODUCT",770)
+
+"TEMP","PRODUCT",772)
+
+"TEMP","PRODUCT",773)
+
+"TEMP","PRODUCT",774)
+
+"TEMP","PRODUCT",775)
+
+"TEMP","PRODUCT",776)
+
+"TEMP","PRODUCT",777)
+
+"TEMP","PRODUCT",778)
+
+"TEMP","PRODUCT",779)
+
+"TEMP","PRODUCT",784)
+
+"TEMP","PRODUCT",786)
+
+"TEMP","PRODUCT",787)
+
+"TEMP","PRODUCT",788)
+
+"TEMP","PRODUCT",791)
+
+"TEMP","PRODUCT",801)
+
+"TEMP","PRODUCT",802)
+
+"TEMP","PRODUCT",803)
+
+"TEMP","PRODUCT",805)
+
+"TEMP","PRODUCT",811)
+
+"TEMP","PRODUCT",814)
+
+"TEMP","PRODUCT",817)
+
+"TEMP","PRODUCT",820)
+
+"TEMP","PRODUCT",821)
+
+"TEMP","PRODUCT",822)
+
+"TEMP","PRODUCT",823)
+
+"TEMP","PRODUCT",824)
+
+"TEMP","PRODUCT",825)
+
+"TEMP","PRODUCT",826)
+
+"TEMP","PRODUCT",827)
+
+"TEMP","PRODUCT",829)
+
+"TEMP","PRODUCT",830)
+
+"TEMP","PRODUCT",831)
+
+"TEMP","PRODUCT",832)
+
+"TEMP","PRODUCT",834)
+
+"TEMP","PRODUCT",835)
+
+"TEMP","PRODUCT",836)
+
+"TEMP","PRODUCT",837)
+
+"TEMP","PRODUCT",838)
+
+"TEMP","PRODUCT",839)
+
+"TEMP","PRODUCT",840)
+
+"TEMP","PRODUCT",841)
+
+"TEMP","PRODUCT",842)
+
+"TEMP","PRODUCT",843)
+
+"TEMP","PRODUCT",844)
+
+"TEMP","PRODUCT",845)
+
+"TEMP","PRODUCT",846)
+
+"TEMP","PRODUCT",847)
+
+"TEMP","PRODUCT",848)
+
+"TEMP","PRODUCT",849)
+
+"TEMP","PRODUCT",850)
+
+"TEMP","PRODUCT",851)
+
+"TEMP","PRODUCT",852)
+
+"TEMP","PRODUCT",853)
+
+"TEMP","PRODUCT",855)
+
+"TEMP","PRODUCT",856)
+
+"TEMP","PRODUCT",857)
+
+"TEMP","PRODUCT",858)
+
+"TEMP","PRODUCT",859)
+
+"TEMP","PRODUCT",861)
+
+"TEMP","PRODUCT",862)
+
+"TEMP","PRODUCT",863)
+
+"TEMP","PRODUCT",865)
+
+"TEMP","PRODUCT",866)
+
+"TEMP","PRODUCT",867)
+
+"TEMP","PRODUCT",868)
+
+"TEMP","PRODUCT",870)
+
+"TEMP","PRODUCT",871)
+
+"TEMP","PRODUCT",872)
+
+"TEMP","PRODUCT",874)
+
+"TEMP","PRODUCT",876)
+
+"TEMP","PRODUCT",877)
+
+"TEMP","PRODUCT",879)
+
+"TEMP","PRODUCT",880)
+
+"TEMP","PRODUCT",881)
+
+"TEMP","PRODUCT",882)
+
+"TEMP","PRODUCT",883)
+
+"TEMP","PRODUCT",884)
+
+"TEMP","PRODUCT",885)
+
+"TEMP","PRODUCT",886)
+
+"TEMP","PRODUCT",888)
+
+"TEMP","PRODUCT",889)
+
+"TEMP","PRODUCT",890)
+
+"TEMP","PRODUCT",891)
+
+"TEMP","PRODUCT",892)
+
+"TEMP","PRODUCT",893)
+
+"TEMP","PRODUCT",899)
+
+"TEMP","PRODUCT",901)
+
+"TEMP","PRODUCT",902)
+
+"TEMP","PRODUCT",903)
+
+"TEMP","PRODUCT",906)
+
+"TEMP","PRODUCT",907)
+
+"TEMP","PRODUCT",908)
+
+"TEMP","PRODUCT",909)
+
+"TEMP","PRODUCT",910)
+
+"TEMP","PRODUCT",911)
+
+"TEMP","PRODUCT",912)
+
+"TEMP","PRODUCT",913)
+
+"TEMP","PRODUCT",914)
+
+"TEMP","PRODUCT",915)
+
+"TEMP","PRODUCT",916)
+
+"TEMP","PRODUCT",917)
+
+"TEMP","PRODUCT",918)
+
+"TEMP","PRODUCT",919)
+
+"TEMP","PRODUCT",920)
+
+"TEMP","PRODUCT",921)
+
+"TEMP","PRODUCT",922)
+
+"TEMP","PRODUCT",923)
+
+"TEMP","PRODUCT",924)
+
+"TEMP","PRODUCT",925)
+
+"TEMP","PRODUCT",927)
+
+"TEMP","PRODUCT",929)
+
+"TEMP","PRODUCT",930)
+
+"TEMP","PRODUCT",931)
+
+"TEMP","PRODUCT",935)
+
+"TEMP","PRODUCT",937)
+
+"TEMP","PRODUCT",939)
+
+"TEMP","PRODUCT",940)
+
+"TEMP","PRODUCT",941)
+
+"TEMP","PRODUCT",942)
+
+"TEMP","PRODUCT",944)
+
+"TEMP","PRODUCT",945)
+
+"TEMP","PRODUCT",946)
+
+"TEMP","PRODUCT",947)
+
+"TEMP","PRODUCT",948)
+
+"TEMP","PRODUCT",949)
+
+"TEMP","PRODUCT",950)
+
+"TEMP","PRODUCT",954)
+
+"TEMP","PRODUCT",955)
+
+"TEMP","PRODUCT",956)
+
+"TEMP","PRODUCT",957)
+
+"TEMP","PRODUCT",958)
+
+"TEMP","PRODUCT",959)
+
+"TEMP","PRODUCT",962)
+
+"TEMP","PRODUCT",963)
+
+"TEMP","PRODUCT",964)
+
+"TEMP","PRODUCT",965)
+
+"TEMP","PRODUCT",966)
+
+"TEMP","PRODUCT",967)
+
+"TEMP","PRODUCT",968)
+
+"TEMP","PRODUCT",972)
+
+"TEMP","PRODUCT",974)
+
+"TEMP","PRODUCT",975)
+
+"TEMP","PRODUCT",976)
+
+"TEMP","PRODUCT",977)
+
+"TEMP","PRODUCT",978)
+
+"TEMP","PRODUCT",979)
+
+"TEMP","PRODUCT",980)
+
+"TEMP","PRODUCT",981)
+
+"TEMP","PRODUCT",982)
+
+"TEMP","PRODUCT",983)
+
+"TEMP","PRODUCT",984)
+
+"TEMP","PRODUCT",987)
+
+"TEMP","PRODUCT",988)
+
+"TEMP","PRODUCT",989)
+
+"TEMP","PRODUCT",990)
+
+"TEMP","PRODUCT",992)
+
+"TEMP","PRODUCT",993)
+
+"TEMP","PRODUCT",994)
+
+"TEMP","PRODUCT",1000)
+
+"TEMP","PRODUCT",1004)
+
+"TEMP","PRODUCT",1008)
+
+"TEMP","PRODUCT",1009)
+
+"TEMP","PRODUCT",1012)
+
+"TEMP","PRODUCT",1013)
+
+"TEMP","PRODUCT",1014)
+
+"TEMP","PRODUCT",1015)
+
+"TEMP","PRODUCT",1016)
+
+"TEMP","PRODUCT",1017)
+
+"TEMP","PRODUCT",1018)
+
+"TEMP","PRODUCT",1020)
+
+"TEMP","PRODUCT",1021)
+
+"TEMP","PRODUCT",1022)
+
+"TEMP","PRODUCT",1023)
+
+"TEMP","PRODUCT",1024)
+
+"TEMP","PRODUCT",1026)
+
+"TEMP","PRODUCT",1028)
+
+"TEMP","PRODUCT",1031)
+
+"TEMP","PRODUCT",1033)
+
+"TEMP","PRODUCT",1038)
+
+"TEMP","PRODUCT",1039)
+
+"TEMP","PRODUCT",1042)
+
+"TEMP","PRODUCT",1043)
+
+"TEMP","PRODUCT",1044)
+
+"TEMP","PRODUCT",1045)
+
+"TEMP","PRODUCT",1046)
+
+"TEMP","PRODUCT",1047)
+
+"TEMP","PRODUCT",1048)
+
+"TEMP","PRODUCT",1050)
+
+"TEMP","PRODUCT",1054)
+
+"TEMP","PRODUCT",1055)
+
+"TEMP","PRODUCT",1057)
+
+"TEMP","PRODUCT",1061)
+
+"TEMP","PRODUCT",1062)
+
+"TEMP","PRODUCT",1064)
+
+"TEMP","PRODUCT",1065)
+
+"TEMP","PRODUCT",1071)
+
+"TEMP","PRODUCT",1072)
+
+"TEMP","PRODUCT",1074)
+
+"TEMP","PRODUCT",1077)
+
+"TEMP","PRODUCT",1078)
+
+"TEMP","PRODUCT",1080)
+
+"TEMP","PRODUCT",1084)
+
+"TEMP","PRODUCT",1085)
+
+"TEMP","PRODUCT",1086)
+
+"TEMP","PRODUCT",1091)
+
+"TEMP","PRODUCT",1092)
+
+"TEMP","PRODUCT",1093)
+
+"TEMP","PRODUCT",1094)
+
+"TEMP","PRODUCT",1095)
+
+"TEMP","PRODUCT",1096)
+
+"TEMP","PRODUCT",1097)
+
+"TEMP","PRODUCT",1098)
+
+"TEMP","PRODUCT",1101)
+
+"TEMP","PRODUCT",1102)
+
+"TEMP","PRODUCT",1103)
+
+"TEMP","PRODUCT",1107)
+
+"TEMP","PRODUCT",1108)
+
+"TEMP","PRODUCT",1109)
+
+"TEMP","PRODUCT",1110)
+
+"TEMP","PRODUCT",1111)
+
+"TEMP","PRODUCT",1112)
+
+"TEMP","PRODUCT",1113)
+
+"TEMP","PRODUCT",1115)
+
+"TEMP","PRODUCT",1117)
+
+"TEMP","PRODUCT",1118)
+
+"TEMP","PRODUCT",1119)
+
+"TEMP","PRODUCT",1120)
+
+"TEMP","PRODUCT",1121)
+
+"TEMP","PRODUCT",1122)
+
+"TEMP","PRODUCT",1124)
+
+"TEMP","PRODUCT",1126)
+
+"TEMP","PRODUCT",1127)
+
+"TEMP","PRODUCT",1128)
+
+"TEMP","PRODUCT",1129)
+
+"TEMP","PRODUCT",1130)
+
+"TEMP","PRODUCT",1131)
+
+"TEMP","PRODUCT",1136)
+
+"TEMP","PRODUCT",1137)
+
+"TEMP","PRODUCT",1138)
+
+"TEMP","PRODUCT",1139)
+
+"TEMP","PRODUCT",1140)
+
+"TEMP","PRODUCT",1146)
+
+"TEMP","PRODUCT",1147)
+
+"TEMP","PRODUCT",1148)
+
+"TEMP","PRODUCT",1150)
+
+"TEMP","PRODUCT",1151)
+
+"TEMP","PRODUCT",1152)
+
+"TEMP","PRODUCT",1153)
+
+"TEMP","PRODUCT",1154)
+
+"TEMP","PRODUCT",1155)
+
+"TEMP","PRODUCT",1156)
+
+"TEMP","PRODUCT",1157)
+
+"TEMP","PRODUCT",1159)
+
+"TEMP","PRODUCT",1161)
+
+"TEMP","PRODUCT",1162)
+
+"TEMP","PRODUCT",1163)
+
+"TEMP","PRODUCT",1165)
+
+"TEMP","PRODUCT",1166)
+
+"TEMP","PRODUCT",1167)
+
+"TEMP","PRODUCT",1169)
+
+"TEMP","PRODUCT",1171)
+
+"TEMP","PRODUCT",1172)
+
+"TEMP","PRODUCT",1173)
+
+"TEMP","PRODUCT",1174)
+
+"TEMP","PRODUCT",1175)
+
+"TEMP","PRODUCT",1179)
+
+"TEMP","PRODUCT",1180)
+
+"TEMP","PRODUCT",1181)
+
+"TEMP","PRODUCT",1182)
+
+"TEMP","PRODUCT",1183)
+
+"TEMP","PRODUCT",1184)
+
+"TEMP","PRODUCT",1185)
+
+"TEMP","PRODUCT",1186)
+
+"TEMP","PRODUCT",1187)
+
+"TEMP","PRODUCT",1188)
+
+"TEMP","PRODUCT",1190)
+
+"TEMP","PRODUCT",1191)
+
+"TEMP","PRODUCT",1192)
+
+"TEMP","PRODUCT",1193)
+
+"TEMP","PRODUCT",1196)
+
+"TEMP","PRODUCT",1200)
+
+"TEMP","PRODUCT",1201)
+
+"TEMP","PRODUCT",1202)
+
+"TEMP","PRODUCT",1203)
+
+"TEMP","PRODUCT",1204)
+
+"TEMP","PRODUCT",1205)
+
+"TEMP","PRODUCT",1206)
+
+"TEMP","PRODUCT",1207)
+
+"TEMP","PRODUCT",1208)
+
+"TEMP","PRODUCT",1211)
+
+"TEMP","PRODUCT",1212)
+
+"TEMP","PRODUCT",1213)
+
+"TEMP","PRODUCT",1214)
+
+"TEMP","PRODUCT",1215)
+
+"TEMP","PRODUCT",1216)
+
+"TEMP","PRODUCT",1217)
+
+"TEMP","PRODUCT",1218)
+
+"TEMP","PRODUCT",1219)
+
+"TEMP","PRODUCT",1221)
+
+"TEMP","PRODUCT",1222)
+
+"TEMP","PRODUCT",1223)
+
+"TEMP","PRODUCT",1224)
+
+"TEMP","PRODUCT",1225)
+
+"TEMP","PRODUCT",1226)
+
+"TEMP","PRODUCT",1228)
+
+"TEMP","PRODUCT",1229)
+
+"TEMP","PRODUCT",1231)
+
+"TEMP","PRODUCT",1234)
+
+"TEMP","PRODUCT",1235)
+
+"TEMP","PRODUCT",1236)
+
+"TEMP","PRODUCT",1237)
+
+"TEMP","PRODUCT",1238)
+
+"TEMP","PRODUCT",1240)
+
+"TEMP","PRODUCT",1241)
+
+"TEMP","PRODUCT",1244)
+
+"TEMP","PRODUCT",1245)
+
+"TEMP","PRODUCT",1246)
+
+"TEMP","PRODUCT",1248)
+
+"TEMP","PRODUCT",1250)
+
+"TEMP","PRODUCT",1251)
+
+"TEMP","PRODUCT",1252)
+
+"TEMP","PRODUCT",1253)
+
+"TEMP","PRODUCT",1254)
+
+"TEMP","PRODUCT",1255)
+
+"TEMP","PRODUCT",1256)
+
+"TEMP","PRODUCT",1257)
+
+"TEMP","PRODUCT",1258)
+
+"TEMP","PRODUCT",1259)
+
+"TEMP","PRODUCT",1261)
+
+"TEMP","PRODUCT",1262)
+
+"TEMP","PRODUCT",1263)
+
+"TEMP","PRODUCT",1264)
+
+"TEMP","PRODUCT",1265)
+
+"TEMP","PRODUCT",1267)
+
+"TEMP","PRODUCT",1268)
+
+"TEMP","PRODUCT",1270)
+
+"TEMP","PRODUCT",1271)
+
+"TEMP","PRODUCT",1273)
+
+"TEMP","PRODUCT",1274)
+
+"TEMP","PRODUCT",1275)
+
+"TEMP","PRODUCT",1276)
+
+"TEMP","PRODUCT",1278)
+
+"TEMP","PRODUCT",1279)
+
+"TEMP","PRODUCT",1280)
+
+"TEMP","PRODUCT",1281)
+
+"TEMP","PRODUCT",1284)
+
+"TEMP","PRODUCT",1285)
+
+"TEMP","PRODUCT",1287)
+
+"TEMP","PRODUCT",1288)
+
+"TEMP","PRODUCT",1289)
+
+"TEMP","PRODUCT",1294)
+
+"TEMP","PRODUCT",1299)
+
+"TEMP","PRODUCT",1300)
+
+"TEMP","PRODUCT",1301)
+
+"TEMP","PRODUCT",1302)
+
+"TEMP","PRODUCT",1304)
+
+"TEMP","PRODUCT",1305)
+
+"TEMP","PRODUCT",1306)
+
+"TEMP","PRODUCT",1308)
+
+"TEMP","PRODUCT",1310)
+
+"TEMP","PRODUCT",1311)
+
+"TEMP","PRODUCT",1312)
+
+"TEMP","PRODUCT",1313)
+
+"TEMP","PRODUCT",1314)
+
+"TEMP","PRODUCT",1315)
+
+"TEMP","PRODUCT",1316)
+
+"TEMP","PRODUCT",1317)
+
+"TEMP","PRODUCT",1318)
+
+"TEMP","PRODUCT",1319)
+
+"TEMP","PRODUCT",1320)
+
+"TEMP","PRODUCT",1321)
+
+"TEMP","PRODUCT",1322)
+
+"TEMP","PRODUCT",1323)
+
+"TEMP","PRODUCT",1324)
+
+"TEMP","PRODUCT",1325)
+
+"TEMP","PRODUCT",1326)
+
+"TEMP","PRODUCT",1327)
+
+"TEMP","PRODUCT",1329)
+
+"TEMP","PRODUCT",1330)
+
+"TEMP","PRODUCT",1331)
+
+"TEMP","PRODUCT",1332)
+
+"TEMP","PRODUCT",1334)
+
+"TEMP","PRODUCT",1335)
+
+"TEMP","PRODUCT",1336)
+
+"TEMP","PRODUCT",1337)
+
+"TEMP","PRODUCT",1338)
+
+"TEMP","PRODUCT",1339)
+
+"TEMP","PRODUCT",1342)
+
+"TEMP","PRODUCT",1343)
+
+"TEMP","PRODUCT",1344)
+
+"TEMP","PRODUCT",1345)
+
+"TEMP","PRODUCT",1346)
+
+"TEMP","PRODUCT",1356)
+
+"TEMP","PRODUCT",1362)
+
+"TEMP","PRODUCT",1364)
+
+"TEMP","PRODUCT",1373)
+
+"TEMP","PRODUCT",1377)
+
+"TEMP","PRODUCT",1378)
+
+"TEMP","PRODUCT",1379)
+
+"TEMP","PRODUCT",1380)
+
+"TEMP","PRODUCT",1381)
+
+"TEMP","PRODUCT",1382)
+
+"TEMP","PRODUCT",1383)
+
+"TEMP","PRODUCT",1384)
+
+"TEMP","PRODUCT",1385)
+
+"TEMP","PRODUCT",1386)
+
+"TEMP","PRODUCT",1387)
+
+"TEMP","PRODUCT",1388)
+
+"TEMP","PRODUCT",1389)
+
+"TEMP","PRODUCT",1390)
+
+"TEMP","PRODUCT",1391)
+
+"TEMP","PRODUCT",1393)
+
+"TEMP","PRODUCT",1394)
+
+"TEMP","PRODUCT",1395)
+
+"TEMP","PRODUCT",1405)
+
+"TEMP","PRODUCT",1406)
+
+"TEMP","PRODUCT",1415)
+
+"TEMP","PRODUCT",1418)
+
+"TEMP","PRODUCT",1419)
+
+"TEMP","PRODUCT",1420)
+
+"TEMP","PRODUCT",1421)
+
+"TEMP","PRODUCT",1422)
+
+"TEMP","PRODUCT",1423)
+
+"TEMP","PRODUCT",1424)
+
+"TEMP","PRODUCT",1425)
+
+"TEMP","PRODUCT",1426)
+
+"TEMP","PRODUCT",1427)
+
+"TEMP","PRODUCT",1428)
+
+"TEMP","PRODUCT",1429)
+
+"TEMP","PRODUCT",1430)
+
+"TEMP","PRODUCT",1433)
+
+"TEMP","PRODUCT",1434)
+
+"TEMP","PRODUCT",1435)
+
+"TEMP","PRODUCT",1436)
+
+"TEMP","PRODUCT",1437)
+
+"TEMP","PRODUCT",1438)
+
+"TEMP","PRODUCT",1441)
+
+"TEMP","PRODUCT",1442)
+
+"TEMP","PRODUCT",1443)
+
+"TEMP","PRODUCT",1444)
+
+"TEMP","PRODUCT",1445)
+
+"TEMP","PRODUCT",1446)
+
+"TEMP","PRODUCT",1447)
+
+"TEMP","PRODUCT",1448)
+
+"TEMP","PRODUCT",1449)
+
+"TEMP","PRODUCT",1450)
+
+"TEMP","PRODUCT",1451)
+
+"TEMP","PRODUCT",1452)
+
+"TEMP","PRODUCT",1453)
+
+"TEMP","PRODUCT",1454)
+
+"TEMP","PRODUCT",1455)
+
+"TEMP","PRODUCT",1456)
+
+"TEMP","PRODUCT",1458)
+
+"TEMP","PRODUCT",1462)
+
+"TEMP","PRODUCT",1463)
+
+"TEMP","PRODUCT",1465)
+
+"TEMP","PRODUCT",1466)
+
+"TEMP","PRODUCT",1467)
+
+"TEMP","PRODUCT",1468)
+
+"TEMP","PRODUCT",1469)
+
+"TEMP","PRODUCT",1471)
+
+"TEMP","PRODUCT",1472)
+
+"TEMP","PRODUCT",1473)
+
+"TEMP","PRODUCT",1474)
+
+"TEMP","PRODUCT",1476)
+
+"TEMP","PRODUCT",1479)
+
+"TEMP","PRODUCT",1481)
+
+"TEMP","PRODUCT",1482)
+
+"TEMP","PRODUCT",1485)
+
+"TEMP","PRODUCT",1486)
+
+"TEMP","PRODUCT",1487)
+
+"TEMP","PRODUCT",1490)
+
+"TEMP","PRODUCT",1491)
+
+"TEMP","PRODUCT",1492)
+
+"TEMP","PRODUCT",1493)
+
+"TEMP","PRODUCT",1494)
+
+"TEMP","PRODUCT",1495)
+
+"TEMP","PRODUCT",1496)
+
+"TEMP","PRODUCT",1497)
+
+"TEMP","PRODUCT",1499)
+
+"TEMP","PRODUCT",1503)
+
+"TEMP","PRODUCT",1504)
+
+"TEMP","PRODUCT",1505)
+
+"TEMP","PRODUCT",1506)
+
+"TEMP","PRODUCT",1507)
+
+"TEMP","PRODUCT",1508)
+
+"TEMP","PRODUCT",1509)
+
+"TEMP","PRODUCT",1510)
+
+"TEMP","PRODUCT",1511)
+
+"TEMP","PRODUCT",1512)
+
+"TEMP","PRODUCT",1513)
+
+"TEMP","PRODUCT",1515)
+
+"TEMP","PRODUCT",1516)
+
+"TEMP","PRODUCT",1517)
+
+"TEMP","PRODUCT",1518)
+
+"TEMP","PRODUCT",1521)
+
+"TEMP","PRODUCT",1523)
+
+"TEMP","PRODUCT",1524)
+
+"TEMP","PRODUCT",1525)
+
+"TEMP","PRODUCT",1526)
+
+"TEMP","PRODUCT",1528)
+
+"TEMP","PRODUCT",1532)
+
+"TEMP","PRODUCT",1533)
+
+"TEMP","PRODUCT",1536)
+
+"TEMP","PRODUCT",1537)
+
+"TEMP","PRODUCT",1538)
+
+"TEMP","PRODUCT",1539)
+
+"TEMP","PRODUCT",1540)
+
+"TEMP","PRODUCT",1543)
+
+"TEMP","PRODUCT",1544)
+
+"TEMP","PRODUCT",1545)
+
+"TEMP","PRODUCT",1546)
+
+"TEMP","PRODUCT",1547)
+
+"TEMP","PRODUCT",1549)
+
+"TEMP","PRODUCT",1550)
+
+"TEMP","PRODUCT",1551)
+
+"TEMP","PRODUCT",1552)
+
+"TEMP","PRODUCT",1553)
+
+"TEMP","PRODUCT",1554)
+
+"TEMP","PRODUCT",1555)
+
+"TEMP","PRODUCT",1558)
+
+"TEMP","PRODUCT",1559)
+
+"TEMP","PRODUCT",1560)
+
+"TEMP","PRODUCT",1563)
+
+"TEMP","PRODUCT",1564)
+
+"TEMP","PRODUCT",1565)
+
+"TEMP","PRODUCT",1566)
+
+"TEMP","PRODUCT",1570)
+
+"TEMP","PRODUCT",1571)
+
+"TEMP","PRODUCT",1572)
+
+"TEMP","PRODUCT",1573)
+
+"TEMP","PRODUCT",1581)
+
+"TEMP","PRODUCT",1583)
+
+"TEMP","PRODUCT",1584)
+
+"TEMP","PRODUCT",1585)
+
+"TEMP","PRODUCT",1586)
+
+"TEMP","PRODUCT",1588)
+
+"TEMP","PRODUCT",1589)
+
+"TEMP","PRODUCT",1590)
+
+"TEMP","PRODUCT",1591)
+
+"TEMP","PRODUCT",1592)
+
+"TEMP","PRODUCT",1593)
+
+"TEMP","PRODUCT",1594)
+
+"TEMP","PRODUCT",1596)
+
+"TEMP","PRODUCT",1597)
+
+"TEMP","PRODUCT",1598)
+
+"TEMP","PRODUCT",1599)
+
+"TEMP","PRODUCT",1600)
+
+"TEMP","PRODUCT",1601)
+
+"TEMP","PRODUCT",1608)
+
+"TEMP","PRODUCT",1609)
+
+"TEMP","PRODUCT",1610)
+
+"TEMP","PRODUCT",1616)
+
+"TEMP","PRODUCT",1618)
+
+"TEMP","PRODUCT",1619)
+
+"TEMP","PRODUCT",1620)
+
+"TEMP","PRODUCT",1621)
+
+"TEMP","PRODUCT",1628)
+
+"TEMP","PRODUCT",1630)
+
+"TEMP","PRODUCT",1631)
+
+"TEMP","PRODUCT",1633)
+
+"TEMP","PRODUCT",1638)
+
+"TEMP","PRODUCT",1639)
+
+"TEMP","PRODUCT",1640)
+
+"TEMP","PRODUCT",1641)
+
+"TEMP","PRODUCT",1642)
+
+"TEMP","PRODUCT",1643)
+
+"TEMP","PRODUCT",1644)
+
+"TEMP","PRODUCT",1645)
+
+"TEMP","PRODUCT",1648)
+
+"TEMP","PRODUCT",1649)
+
+"TEMP","PRODUCT",1650)
+
+"TEMP","PRODUCT",1652)
+
+"TEMP","PRODUCT",1653)
+
+"TEMP","PRODUCT",1654)
+
+"TEMP","PRODUCT",1655)
+
+"TEMP","PRODUCT",1656)
+
+"TEMP","PRODUCT",1657)
+
+"TEMP","PRODUCT",1658)
+
+"TEMP","PRODUCT",1659)
+
+"TEMP","PRODUCT",1661)
+
+"TEMP","PRODUCT",1662)
+
+"TEMP","PRODUCT",1663)
+
+"TEMP","PRODUCT",1664)
+
+"TEMP","PRODUCT",1665)
+
+"TEMP","PRODUCT",1666)
+
+"TEMP","PRODUCT",1667)
+
+"TEMP","PRODUCT",1672)
+
+"TEMP","PRODUCT",1675)
+
+"TEMP","PRODUCT",1679)
+
+"TEMP","PRODUCT",1683)
+
+"TEMP","PRODUCT",1684)
+
+"TEMP","PRODUCT",1685)
+
+"TEMP","PRODUCT",1686)
+
+"TEMP","PRODUCT",1687)
+
+"TEMP","PRODUCT",1689)
+
+"TEMP","PRODUCT",1690)
+
+"TEMP","PRODUCT",1692)
+
+"TEMP","PRODUCT",1700)
+
+"TEMP","PRODUCT",1701)
+
+"TEMP","PRODUCT",1702)
+
+"TEMP","PRODUCT",1703)
+
+"TEMP","PRODUCT",1704)
+
+"TEMP","PRODUCT",1706)
+
+"TEMP","PRODUCT",1707)
+
+"TEMP","PRODUCT",1708)
+
+"TEMP","PRODUCT",1709)
+
+"TEMP","PRODUCT",1710)
+
+"TEMP","PRODUCT",1711)
+
+"TEMP","PRODUCT",1712)
+
+"TEMP","PRODUCT",1713)
+
+"TEMP","PRODUCT",1715)
+
+"TEMP","PRODUCT",1716)
+
+"TEMP","PRODUCT",1717)
+
+"TEMP","PRODUCT",1730)
+
+"TEMP","PRODUCT",1731)
+
+"TEMP","PRODUCT",1733)
+
+"TEMP","PRODUCT",1734)
+
+"TEMP","PRODUCT",1747)
+
+"TEMP","PRODUCT",1749)
+
+"TEMP","PRODUCT",1765)
+
+"TEMP","PRODUCT",1766)
+
+"TEMP","PRODUCT",1769)
+
+"TEMP","PRODUCT",1774)
+
+"TEMP","PRODUCT",1775)
+
+"TEMP","PRODUCT",1776)
+
+"TEMP","PRODUCT",1777)
+
+"TEMP","PRODUCT",1778)
+
+"TEMP","PRODUCT",1779)
+
+"TEMP","PRODUCT",1782)
+
+"TEMP","PRODUCT",1793)
+
+"TEMP","PRODUCT",1798)
+
+"TEMP","PRODUCT",1800)
+
+"TEMP","PRODUCT",1804)
+
+"TEMP","PRODUCT",1805)
+
+"TEMP","PRODUCT",1806)
+
+"TEMP","PRODUCT",1807)
+
+"TEMP","PRODUCT",1808)
+
+"TEMP","PRODUCT",1811)
+
+"TEMP","PRODUCT",1813)
+
+"TEMP","PRODUCT",1814)
+
+"TEMP","PRODUCT",1815)
+
+"TEMP","PRODUCT",1817)
+
+"TEMP","PRODUCT",1826)
+
+"TEMP","PRODUCT",1829)
+
+"TEMP","PRODUCT",1841)
+
+"TEMP","PRODUCT",1843)
+
+"TEMP","PRODUCT",1844)
+
+"TEMP","PRODUCT",1846)
+
+"TEMP","PRODUCT",1847)
+
+"TEMP","PRODUCT",1850)
+
+"TEMP","PRODUCT",1851)
+
+"TEMP","PRODUCT",1856)
+
+"TEMP","PRODUCT",1857)
+
+"TEMP","PRODUCT",1858)
+
+"TEMP","PRODUCT",1859)
+
+"TEMP","PRODUCT",1867)
+
+"TEMP","PRODUCT",1868)
+
+"TEMP","PRODUCT",1870)
+
+"TEMP","PRODUCT",1877)
+
+"TEMP","PRODUCT",1878)
+
+"TEMP","PRODUCT",1879)
+
+"TEMP","PRODUCT",1887)
+
+"TEMP","PRODUCT",1897)
+
+"TEMP","PRODUCT",1901)
+
+"TEMP","PRODUCT",1909)
+
+"TEMP","PRODUCT",1912)
+
+"TEMP","PRODUCT",1913)
+
+"TEMP","PRODUCT",1919)
+
+"TEMP","PRODUCT",1922)
+
+"TEMP","PRODUCT",1929)
+
+"TEMP","PRODUCT",1930)
+
+"TEMP","PRODUCT",1932)
+
+"TEMP","PRODUCT",1933)
+
+"TEMP","PRODUCT",1934)
+
+"TEMP","PRODUCT",1935)
+
+"TEMP","PRODUCT",1936)
+
+"TEMP","PRODUCT",1937)
+
+"TEMP","PRODUCT",1938)
+
+"TEMP","PRODUCT",1939)
+
+"TEMP","PRODUCT",1941)
+
+"TEMP","PRODUCT",1942)
+
+"TEMP","PRODUCT",1943)
+
+"TEMP","PRODUCT",1944)
+
+"TEMP","PRODUCT",1945)
+
+"TEMP","PRODUCT",1953)
+
+"TEMP","PRODUCT",1954)
+
+"TEMP","PRODUCT",1955)
+
+"TEMP","PRODUCT",1956)
+
+"TEMP","PRODUCT",1958)
+
+"TEMP","PRODUCT",1959)
+
+"TEMP","PRODUCT",1960)
+
+"TEMP","PRODUCT",1961)
+
+"TEMP","PRODUCT",1963)
+
+"TEMP","PRODUCT",1965)
+
+"TEMP","PRODUCT",1966)
+
+"TEMP","PRODUCT",1967)
+
+"TEMP","PRODUCT",1973)
+
+"TEMP","PRODUCT",1974)
+
+"TEMP","PRODUCT",1979)
+
+"TEMP","PRODUCT",1981)
+
+"TEMP","PRODUCT",1982)
+
+"TEMP","PRODUCT",1983)
+
+"TEMP","PRODUCT",1985)
+
+"TEMP","PRODUCT",1989)
+
+"TEMP","PRODUCT",1990)
+
+"TEMP","PRODUCT",1991)
+
+"TEMP","PRODUCT",1992)
+
+"TEMP","PRODUCT",1993)
+
+"TEMP","PRODUCT",1994)
+
+"TEMP","PRODUCT",1995)
+
+"TEMP","PRODUCT",2001)
+
+"TEMP","PRODUCT",2002)
+
+"TEMP","PRODUCT",2003)
+
+"TEMP","PRODUCT",2004)
+
+"TEMP","PRODUCT",2019)
+
+"TEMP","PRODUCT",2022)
+
+"TEMP","PRODUCT",2024)
+
+"TEMP","PRODUCT",2025)
+
+"TEMP","PRODUCT",2026)
+
+"TEMP","PRODUCT",2027)
+
+"TEMP","PRODUCT",2028)
+
+"TEMP","PRODUCT",2029)
+
+"TEMP","PRODUCT",2030)
+
+"TEMP","PRODUCT",2039)
+
+"TEMP","PRODUCT",2040)
+
+"TEMP","PRODUCT",2041)
+
+"TEMP","PRODUCT",2046)
+
+"TEMP","PRODUCT",2047)
+
+"TEMP","PRODUCT",2056)
+
+"TEMP","PRODUCT",2059)
+
+"TEMP","PRODUCT",2060)
+
+"TEMP","PRODUCT",2066)
+
+"TEMP","PRODUCT",2070)
+
+"TEMP","PRODUCT",2071)
+
+"TEMP","PRODUCT",2072)
+
+"TEMP","PRODUCT",2076)
+
+"TEMP","PRODUCT",2079)
+
+"TEMP","PRODUCT",2080)
+
+"TEMP","PRODUCT",2087)
+
+"TEMP","PRODUCT",2088)
+
+"TEMP","PRODUCT",2094)
+
+"TEMP","PRODUCT",2095)
+
+"TEMP","PRODUCT",2096)
+
+"TEMP","PRODUCT",2097)
+
+"TEMP","PRODUCT",2098)
+
+"TEMP","PRODUCT",2099)
+
+"TEMP","PRODUCT",2100)
+
+"TEMP","PRODUCT",2101)
+
+"TEMP","PRODUCT",2102)
+
+"TEMP","PRODUCT",2103)
+
+"TEMP","PRODUCT",2105)
+
+"TEMP","PRODUCT",2106)
+
+"TEMP","PRODUCT",2107)
+
+"TEMP","PRODUCT",2108)
+
+"TEMP","PRODUCT",2109)
+
+"TEMP","PRODUCT",2114)
+
+"TEMP","PRODUCT",2122)
+
+"TEMP","PRODUCT",2125)
+
+"TEMP","PRODUCT",2126)
+
+"TEMP","PRODUCT",2129)
+
+"TEMP","PRODUCT",2130)
+
+"TEMP","PRODUCT",2131)
+
+"TEMP","PRODUCT",2134)
+
+"TEMP","PRODUCT",2141)
+
+"TEMP","PRODUCT",2143)
+
+"TEMP","PRODUCT",2144)
+
+"TEMP","PRODUCT",2147)
+
+"TEMP","PRODUCT",2149)
+
+"TEMP","PRODUCT",2150)
+
+"TEMP","PRODUCT",2152)
+
+"TEMP","PRODUCT",2154)
+
+"TEMP","PRODUCT",2155)
+
+"TEMP","PRODUCT",2156)
+
+"TEMP","PRODUCT",2157)
+
+"TEMP","PRODUCT",2159)
+
+"TEMP","PRODUCT",2160)
+
+"TEMP","PRODUCT",2161)
+
+"TEMP","PRODUCT",2163)
+
+"TEMP","PRODUCT",2165)
+
+"TEMP","PRODUCT",2167)
+
+"TEMP","PRODUCT",2171)
+
+"TEMP","PRODUCT",2175)
+
+"TEMP","PRODUCT",2178)
+
+"TEMP","PRODUCT",2179)
+
+"TEMP","PRODUCT",2180)
+
+"TEMP","PRODUCT",2182)
+
+"TEMP","PRODUCT",2188)
+
+"TEMP","PRODUCT",2189)
+
+"TEMP","PRODUCT",2190)
+
+"TEMP","PRODUCT",2192)
+
+"TEMP","PRODUCT",2193)
+
+"TEMP","PRODUCT",2195)
+
+"TEMP","PRODUCT",2196)
+
+"TEMP","PRODUCT",2197)
+
+"TEMP","PRODUCT",2200)
+
+"TEMP","PRODUCT",2208)
+
+"TEMP","PRODUCT",2209)
+
+"TEMP","PRODUCT",2210)
+
+"TEMP","PRODUCT",2211)
+
+"TEMP","PRODUCT",2212)
+
+"TEMP","PRODUCT",2213)
+
+"TEMP","PRODUCT",2218)
+
+"TEMP","PRODUCT",2222)
+
+"TEMP","PRODUCT",2225)
+
+"TEMP","PRODUCT",2231)
+
+"TEMP","PRODUCT",2232)
+
+"TEMP","PRODUCT",2234)
+
+"TEMP","PRODUCT",2235)
+
+"TEMP","PRODUCT",2237)
+
+"TEMP","PRODUCT",2238)
+
+"TEMP","PRODUCT",2240)
+
+"TEMP","PRODUCT",2242)
+
+"TEMP","PRODUCT",2243)
+
+"TEMP","PRODUCT",2245)
+
+"TEMP","PRODUCT",2246)
+
+"TEMP","PRODUCT",2250)
+
+"TEMP","PRODUCT",2252)
+
+"TEMP","PRODUCT",2253)
+
+"TEMP","PRODUCT",2259)
+
+"TEMP","PRODUCT",2261)
+
+"TEMP","PRODUCT",2262)
+
+"TEMP","PRODUCT",2263)
+
+"TEMP","PRODUCT",2264)
+
+"TEMP","PRODUCT",2277)
+
+"TEMP","PRODUCT",2279)
+
+"TEMP","PRODUCT",2282)
+
+"TEMP","PRODUCT",2283)
+
+"TEMP","PRODUCT",2284)
+
+"TEMP","PRODUCT",2285)
+
+"TEMP","PRODUCT",2286)
+
+"TEMP","PRODUCT",2287)
+
+"TEMP","PRODUCT",2288)
+
+"TEMP","PRODUCT",2289)
+
+"TEMP","PRODUCT",2290)
+
+"TEMP","PRODUCT",2295)
+
+"TEMP","PRODUCT",2301)
+
+"TEMP","PRODUCT",2303)
+
+"TEMP","PRODUCT",2305)
+
+"TEMP","PRODUCT",2306)
+
+"TEMP","PRODUCT",2309)
+
+"TEMP","PRODUCT",2310)
+
+"TEMP","PRODUCT",2312)
+
+"TEMP","PRODUCT",2314)
+
+"TEMP","PRODUCT",2319)
+
+"TEMP","PRODUCT",2323)
+
+"TEMP","PRODUCT",2324)
+
+"TEMP","PRODUCT",2325)
+
+"TEMP","PRODUCT",2326)
+
+"TEMP","PRODUCT",2328)
+
+"TEMP","PRODUCT",2330)
+
+"TEMP","PRODUCT",2337)
+
+"TEMP","PRODUCT",2338)
+
+"TEMP","PRODUCT",2339)
+
+"TEMP","PRODUCT",2347)
+
+"TEMP","PRODUCT",2348)
+
+"TEMP","PRODUCT",2354)
+
+"TEMP","PRODUCT",2356)
+
+"TEMP","PRODUCT",2357)
+
+"TEMP","PRODUCT",2358)
+
+"TEMP","PRODUCT",2359)
+
+"TEMP","PRODUCT",2360)
+
+"TEMP","PRODUCT",2363)
+
+"TEMP","PRODUCT",2364)
+
+"TEMP","PRODUCT",2365)
+
+"TEMP","PRODUCT",2376)
+
+"TEMP","PRODUCT",2378)
+
+"TEMP","PRODUCT",2381)
+
+"TEMP","PRODUCT",2382)
+
+"TEMP","PRODUCT",2383)
+
+"TEMP","PRODUCT",2388)
+
+"TEMP","PRODUCT",2389)
+
+"TEMP","PRODUCT",2395)
+
+"TEMP","PRODUCT",2396)
+
+"TEMP","PRODUCT",2397)
+
+"TEMP","PRODUCT",2399)
+
+"TEMP","PRODUCT",2400)
+
+"TEMP","PRODUCT",2406)
+
+"TEMP","PRODUCT",2407)
+
+"TEMP","PRODUCT",2412)
+
+"TEMP","PRODUCT",2414)
+
+"TEMP","PRODUCT",2427)
+
+"TEMP","PRODUCT",2430)
+
+"TEMP","PRODUCT",2431)
+
+"TEMP","PRODUCT",2432)
+
+"TEMP","PRODUCT",2433)
+
+"TEMP","PRODUCT",2437)
+
+"TEMP","PRODUCT",2438)
+
+"TEMP","PRODUCT",2443)
+
+"TEMP","PRODUCT",2444)
+
+"TEMP","PRODUCT",2445)
+
+"TEMP","PRODUCT",2447)
+
+"TEMP","PRODUCT",2448)
+
+"TEMP","PRODUCT",2452)
+
+"TEMP","PRODUCT",2453)
+
+"TEMP","PRODUCT",2454)
+
+"TEMP","PRODUCT",2455)
+
+"TEMP","PRODUCT",2456)
+
+"TEMP","PRODUCT",2457)
+
+"TEMP","PRODUCT",2458)
+
+"TEMP","PRODUCT",2460)
+
+"TEMP","PRODUCT",2461)
+
+"TEMP","PRODUCT",2462)
+
+"TEMP","PRODUCT",2464)
+
+"TEMP","PRODUCT",2465)
+
+"TEMP","PRODUCT",2467)
+
+"TEMP","PRODUCT",2468)
+
+"TEMP","PRODUCT",2469)
+
+"TEMP","PRODUCT",2470)
+
+"TEMP","PRODUCT",2471)
+
+"TEMP","PRODUCT",2472)
+
+"TEMP","PRODUCT",2475)
+
+"TEMP","PRODUCT",2476)
+
+"TEMP","PRODUCT",2479)
+
+"TEMP","PRODUCT",2480)
+
+"TEMP","PRODUCT",2481)
+
+"TEMP","PRODUCT",2483)
+
+"TEMP","PRODUCT",2484)
+
+"TEMP","PRODUCT",2489)
+
+"TEMP","PRODUCT",2491)
+
+"TEMP","PRODUCT",2493)
+
+"TEMP","PRODUCT",2494)
+
+"TEMP","PRODUCT",2495)
+
+"TEMP","PRODUCT",2496)
+
+"TEMP","PRODUCT",2497)
+
+"TEMP","PRODUCT",2498)
+
+"TEMP","PRODUCT",2499)
+
+"TEMP","PRODUCT",2500)
+
+"TEMP","PRODUCT",2501)
+
+"TEMP","PRODUCT",2502)
+
+"TEMP","PRODUCT",2503)
+
+"TEMP","PRODUCT",2504)
+
+"TEMP","PRODUCT",2506)
+
+"TEMP","PRODUCT",2507)
+
+"TEMP","PRODUCT",2508)
+
+"TEMP","PRODUCT",2509)
+
+"TEMP","PRODUCT",2510)
+
+"TEMP","PRODUCT",2512)
+
+"TEMP","PRODUCT",2515)
+
+"TEMP","PRODUCT",2516)
+
+"TEMP","PRODUCT",2517)
+
+"TEMP","PRODUCT",2518)
+
+"TEMP","PRODUCT",2519)
+
+"TEMP","PRODUCT",2525)
+
+"TEMP","PRODUCT",2526)
+
+"TEMP","PRODUCT",2531)
+
+"TEMP","PRODUCT",2533)
+
+"TEMP","PRODUCT",2534)
+
+"TEMP","PRODUCT",2535)
+
+"TEMP","PRODUCT",2540)
+
+"TEMP","PRODUCT",2542)
+
+"TEMP","PRODUCT",2545)
+
+"TEMP","PRODUCT",2546)
+
+"TEMP","PRODUCT",2547)
+
+"TEMP","PRODUCT",2548)
+
+"TEMP","PRODUCT",2549)
+
+"TEMP","PRODUCT",2550)
+
+"TEMP","PRODUCT",2551)
+
+"TEMP","PRODUCT",2552)
+
+"TEMP","PRODUCT",2553)
+
+"TEMP","PRODUCT",2554)
+
+"TEMP","PRODUCT",2555)
+
+"TEMP","PRODUCT",2556)
+
+"TEMP","PRODUCT",2557)
+
+"TEMP","PRODUCT",2558)
+
+"TEMP","PRODUCT",2559)
+
+"TEMP","PRODUCT",2560)
+
+"TEMP","PRODUCT",2563)
+
+"TEMP","PRODUCT",2564)
+
+"TEMP","PRODUCT",2565)
+
+"TEMP","PRODUCT",2566)
+
+"TEMP","PRODUCT",2567)
+
+"TEMP","PRODUCT",2568)
+
+"TEMP","PRODUCT",2569)
+
+"TEMP","PRODUCT",2571)
+
+"TEMP","PRODUCT",2575)
+
+"TEMP","PRODUCT",2576)
+
+"TEMP","PRODUCT",2577)
+
+"TEMP","PRODUCT",2578)
+
+"TEMP","PRODUCT",2579)
+
+"TEMP","PRODUCT",2580)
+
+"TEMP","PRODUCT",2581)
+
+"TEMP","PRODUCT",2582)
+
+"TEMP","PRODUCT",2583)
+
+"TEMP","PRODUCT",2584)
+
+"TEMP","PRODUCT",2585)
+
+"TEMP","PRODUCT",2586)
+
+"TEMP","PRODUCT",2587)
+
+"TEMP","PRODUCT",2588)
+
+"TEMP","PRODUCT",2591)
+
+"TEMP","PRODUCT",2593)
+
+"TEMP","PRODUCT",2594)
+
+"TEMP","PRODUCT",2595)
+
+"TEMP","PRODUCT",2596)
+
+"TEMP","PRODUCT",2597)
+
+"TEMP","PRODUCT",2598)
+
+"TEMP","PRODUCT",2599)
+
+"TEMP","PRODUCT",2600)
+
+"TEMP","PRODUCT",2601)
+
+"TEMP","PRODUCT",2602)
+
+"TEMP","PRODUCT",2603)
+
+"TEMP","PRODUCT",2607)
+
+"TEMP","PRODUCT",2611)
+
+"TEMP","PRODUCT",2612)
+
+"TEMP","PRODUCT",2613)
+
+"TEMP","PRODUCT",2614)
+
+"TEMP","PRODUCT",2617)
+
+"TEMP","PRODUCT",2618)
+
+"TEMP","PRODUCT",2619)
+
+"TEMP","PRODUCT",2620)
+
+"TEMP","PRODUCT",2622)
+
+"TEMP","PRODUCT",2623)
+
+"TEMP","PRODUCT",2624)
+
+"TEMP","PRODUCT",2626)
+
+"TEMP","PRODUCT",2627)
+
+"TEMP","PRODUCT",2628)
+
+"TEMP","PRODUCT",2630)
+
+"TEMP","PRODUCT",2631)
+
+"TEMP","PRODUCT",2632)
+
+"TEMP","PRODUCT",2633)
+
+"TEMP","PRODUCT",2634)
+
+"TEMP","PRODUCT",2635)
+
+"TEMP","PRODUCT",2636)
+
+"TEMP","PRODUCT",2637)
+
+"TEMP","PRODUCT",2638)
+
+"TEMP","PRODUCT",2639)
+
+"TEMP","PRODUCT",2640)
+
+"TEMP","PRODUCT",2649)
+
+"TEMP","PRODUCT",2650)
+
+"TEMP","PRODUCT",2651)
+
+"TEMP","PRODUCT",2653)
+
+"TEMP","PRODUCT",2654)
+
+"TEMP","PRODUCT",2655)
+
+"TEMP","PRODUCT",2656)
+
+"TEMP","PRODUCT",2658)
+
+"TEMP","PRODUCT",2660)
+
+"TEMP","PRODUCT",2661)
+
+"TEMP","PRODUCT",2662)
+
+"TEMP","PRODUCT",2663)
+
+"TEMP","PRODUCT",2664)
+
+"TEMP","PRODUCT",2668)
+
+"TEMP","PRODUCT",2669)
+
+"TEMP","PRODUCT",2670)
+
+"TEMP","PRODUCT",2671)
+
+"TEMP","PRODUCT",2672)
+
+"TEMP","PRODUCT",2673)
+
+"TEMP","PRODUCT",2674)
+
+"TEMP","PRODUCT",2675)
+
+"TEMP","PRODUCT",2676)
+
+"TEMP","PRODUCT",2677)
+
+"TEMP","PRODUCT",2678)
+
+"TEMP","PRODUCT",2679)
+
+"TEMP","PRODUCT",2680)
+
+"TEMP","PRODUCT",2681)
+
+"TEMP","PRODUCT",2683)
+
+"TEMP","PRODUCT",2684)
+
+"TEMP","PRODUCT",2686)
+
+"TEMP","PRODUCT",2689)
+
+"TEMP","PRODUCT",2693)
+
+"TEMP","PRODUCT",2695)
+
+"TEMP","PRODUCT",2697)
+
+"TEMP","PRODUCT",2702)
+
+"TEMP","PRODUCT",2703)
+
+"TEMP","PRODUCT",2704)
+
+"TEMP","PRODUCT",2706)
+
+"TEMP","PRODUCT",2712)
+
+"TEMP","PRODUCT",2713)
+
+"TEMP","PRODUCT",2714)
+
+"TEMP","PRODUCT",2715)
+
+"TEMP","PRODUCT",2716)
+
+"TEMP","PRODUCT",2717)
+
+"TEMP","PRODUCT",2718)
+
+"TEMP","PRODUCT",2719)
+
+"TEMP","PRODUCT",2721)
+
+"TEMP","PRODUCT",2722)
+
+"TEMP","PRODUCT",2725)
+
+"TEMP","PRODUCT",2730)
+
+"TEMP","PRODUCT",2731)
+
+"TEMP","PRODUCT",2733)
+
+"TEMP","PRODUCT",2734)
+
+"TEMP","PRODUCT",2735)
+
+"TEMP","PRODUCT",2737)
+
+"TEMP","PRODUCT",2738)
+
+"TEMP","PRODUCT",2740)
+
+"TEMP","PRODUCT",2741)
+
+"TEMP","PRODUCT",2742)
+
+"TEMP","PRODUCT",2743)
+
+"TEMP","PRODUCT",2744)
+
+"TEMP","PRODUCT",2745)
+
+"TEMP","PRODUCT",2746)
+
+"TEMP","PRODUCT",2747)
+
+"TEMP","PRODUCT",2748)
+
+"TEMP","PRODUCT",2749)
+
+"TEMP","PRODUCT",2750)
+
+"TEMP","PRODUCT",2752)
+
+"TEMP","PRODUCT",2753)
+
+"TEMP","PRODUCT",2754)
+
+"TEMP","PRODUCT",2758)
+
+"TEMP","PRODUCT",2761)
+
+"TEMP","PRODUCT",2762)
+
+"TEMP","PRODUCT",2763)
+
+"TEMP","PRODUCT",2766)
+
+"TEMP","PRODUCT",2767)
+
+"TEMP","PRODUCT",2769)
+
+"TEMP","PRODUCT",2774)
+
+"TEMP","PRODUCT",2775)
+
+"TEMP","PRODUCT",2778)
+
+"TEMP","PRODUCT",2779)
+
+"TEMP","PRODUCT",2780)
+
+"TEMP","PRODUCT",2781)
+
+"TEMP","PRODUCT",2782)
+
+"TEMP","PRODUCT",2783)
+
+"TEMP","PRODUCT",2784)
+
+"TEMP","PRODUCT",2785)
+
+"TEMP","PRODUCT",2789)
+
+"TEMP","PRODUCT",2790)
+
+"TEMP","PRODUCT",2791)
+
+"TEMP","PRODUCT",2792)
+
+"TEMP","PRODUCT",2793)
+
+"TEMP","PRODUCT",2794)
+
+"TEMP","PRODUCT",2795)
+
+"TEMP","PRODUCT",2796)
+
+"TEMP","PRODUCT",2797)
+
+"TEMP","PRODUCT",2798)
+
+"TEMP","PRODUCT",2800)
+
+"TEMP","PRODUCT",2801)
+
+"TEMP","PRODUCT",2804)
+
+"TEMP","PRODUCT",2806)
+
+"TEMP","PRODUCT",2807)
+
+"TEMP","PRODUCT",2808)
+
+"TEMP","PRODUCT",2809)
+
+"TEMP","PRODUCT",2810)
+
+"TEMP","PRODUCT",2811)
+
+"TEMP","PRODUCT",2812)
+
+"TEMP","PRODUCT",2813)
+
+"TEMP","PRODUCT",2818)
+
+"TEMP","PRODUCT",2826)
+
+"TEMP","PRODUCT",2828)
+
+"TEMP","PRODUCT",2829)
+
+"TEMP","PRODUCT",2830)
+
+"TEMP","PRODUCT",2831)
+
+"TEMP","PRODUCT",2838)
+
+"TEMP","PRODUCT",2839)
+
+"TEMP","PRODUCT",2840)
+
+"TEMP","PRODUCT",2841)
+
+"TEMP","PRODUCT",2849)
+
+"TEMP","PRODUCT",2855)
+
+"TEMP","PRODUCT",2856)
+
+"TEMP","PRODUCT",2857)
+
+"TEMP","PRODUCT",2862)
+
+"TEMP","PRODUCT",2867)
+
+"TEMP","PRODUCT",2870)
+
+"TEMP","PRODUCT",2872)
+
+"TEMP","PRODUCT",2875)
+
+"TEMP","PRODUCT",2882)
+
+"TEMP","PRODUCT",2883)
+
+"TEMP","PRODUCT",2898)
+
+"TEMP","PRODUCT",2914)
+
+"TEMP","PRODUCT",2917)
+
+"TEMP","PRODUCT",2919)
+
+"TEMP","PRODUCT",2920)
+
+"TEMP","PRODUCT",2921)
+
+"TEMP","PRODUCT",2923)
+
+"TEMP","PRODUCT",2924)
+
+"TEMP","PRODUCT",2925)
+
+"TEMP","PRODUCT",2926)
+
+"TEMP","PRODUCT",2927)
+
+"TEMP","PRODUCT",2928)
+
+"TEMP","PRODUCT",2929)
+
+"TEMP","PRODUCT",2930)
+
+"TEMP","PRODUCT",2931)
+
+"TEMP","PRODUCT",2932)
+
+"TEMP","PRODUCT",2933)
+
+"TEMP","PRODUCT",2934)
+
+"TEMP","PRODUCT",2935)
+
+"TEMP","PRODUCT",2936)
+
+"TEMP","PRODUCT",2938)
+
+"TEMP","PRODUCT",2939)
+
+"TEMP","PRODUCT",2942)
+
+"TEMP","PRODUCT",2945)
+
+"TEMP","PRODUCT",2946)
+
+"TEMP","PRODUCT",2949)
+
+"TEMP","PRODUCT",2953)
+
+"TEMP","PRODUCT",2955)
+
+"TEMP","PRODUCT",2957)
+
+"TEMP","PRODUCT",2962)
+
+"TEMP","PRODUCT",2965)
+
+"TEMP","PRODUCT",2967)
+
+"TEMP","PRODUCT",2969)
+
+"TEMP","PRODUCT",2972)
+
+"TEMP","PRODUCT",2973)
+
+"TEMP","PRODUCT",2974)
+
+"TEMP","PRODUCT",2977)
+
+"TEMP","PRODUCT",2978)
+
+"TEMP","PRODUCT",2979)
+
+"TEMP","PRODUCT",2980)
+
+"TEMP","PRODUCT",2982)
+
+"TEMP","PRODUCT",2986)
+
+"TEMP","PRODUCT",2987)
+
+"TEMP","PRODUCT",2988)
+
+"TEMP","PRODUCT",2989)
+
+"TEMP","PRODUCT",2990)
+
+"TEMP","PRODUCT",2991)
+
+"TEMP","PRODUCT",2993)
+
+"TEMP","PRODUCT",2994)
+
+"TEMP","PRODUCT",2997)
+
+"TEMP","PRODUCT",2998)
+
+"TEMP","PRODUCT",2999)
+
+"TEMP","PRODUCT",3000)
+
+"TEMP","PRODUCT",3001)
+
+"TEMP","PRODUCT",3002)
+
+"TEMP","PRODUCT",3003)
+
+"TEMP","PRODUCT",3006)
+
+"TEMP","PRODUCT",3007)
+
+"TEMP","PRODUCT",3008)
+
+"TEMP","PRODUCT",3009)
+
+"TEMP","PRODUCT",3010)
+
+"TEMP","PRODUCT",3011)
+
+"TEMP","PRODUCT",3012)
+
+"TEMP","PRODUCT",3015)
+
+"TEMP","PRODUCT",3016)
+
+"TEMP","PRODUCT",3018)
+
+"TEMP","PRODUCT",3019)
+
+"TEMP","PRODUCT",3025)
+
+"TEMP","PRODUCT",3026)
+
+"TEMP","PRODUCT",3027)
+
+"TEMP","PRODUCT",3028)
+
+"TEMP","PRODUCT",3029)
+
+"TEMP","PRODUCT",3030)
+
+"TEMP","PRODUCT",3031)
+
+"TEMP","PRODUCT",3032)
+
+"TEMP","PRODUCT",3035)
+
+"TEMP","PRODUCT",3036)
+
+"TEMP","PRODUCT",3037)
+
+"TEMP","PRODUCT",3038)
+
+"TEMP","PRODUCT",3039)
+
+"TEMP","PRODUCT",3041)
+
+"TEMP","PRODUCT",3056)
+
+"TEMP","PRODUCT",3068)
+
+"TEMP","PRODUCT",3070)
+
+"TEMP","PRODUCT",3071)
+
+"TEMP","PRODUCT",3072)
+
+"TEMP","PRODUCT",3073)
+
+"TEMP","PRODUCT",3074)
+
+"TEMP","PRODUCT",3075)
+
+"TEMP","PRODUCT",3076)
+
+"TEMP","PRODUCT",3079)
+
+"TEMP","PRODUCT",3080)
+
+"TEMP","PRODUCT",3081)
+
+"TEMP","PRODUCT",3082)
+
+"TEMP","PRODUCT",3084)
+
+"TEMP","PRODUCT",3085)
+
+"TEMP","PRODUCT",3086)
+
+"TEMP","PRODUCT",3087)
+
+"TEMP","PRODUCT",3088)
+
+"TEMP","PRODUCT",3089)
+
+"TEMP","PRODUCT",3090)
+
+"TEMP","PRODUCT",3091)
+
+"TEMP","PRODUCT",3092)
+
+"TEMP","PRODUCT",3093)
+
+"TEMP","PRODUCT",3095)
+
+"TEMP","PRODUCT",3096)
+
+"TEMP","PRODUCT",3097)
+
+"TEMP","PRODUCT",3098)
+
+"TEMP","PRODUCT",3099)
+
+"TEMP","PRODUCT",3100)
+
+"TEMP","PRODUCT",3101)
+
+"TEMP","PRODUCT",3102)
+
+"TEMP","PRODUCT",3103)
+
+"TEMP","PRODUCT",3104)
+
+"TEMP","PRODUCT",3105)
+
+"TEMP","PRODUCT",3106)
+
+"TEMP","PRODUCT",3107)
+
+"TEMP","PRODUCT",3108)
+
+"TEMP","PRODUCT",3109)
+
+"TEMP","PRODUCT",3110)
+
+"TEMP","PRODUCT",3111)
+
+"TEMP","PRODUCT",3112)
+
+"TEMP","PRODUCT",3113)
+
+"TEMP","PRODUCT",3114)
+
+"TEMP","PRODUCT",3115)
+
+"TEMP","PRODUCT",3116)
+
+"TEMP","PRODUCT",3117)
+
+"TEMP","PRODUCT",3118)
+
+"TEMP","PRODUCT",3119)
+
+"TEMP","PRODUCT",3120)
+
+"TEMP","PRODUCT",3121)
+
+"TEMP","PRODUCT",3122)
+
+"TEMP","PRODUCT",3123)
+
+"TEMP","PRODUCT",3124)
+
+"TEMP","PRODUCT",3125)
+
+"TEMP","PRODUCT",3126)
+
+"TEMP","PRODUCT",3127)
+
+"TEMP","PRODUCT",3128)
+
+"TEMP","PRODUCT",3130)
+
+"TEMP","PRODUCT",3131)
+
+"TEMP","PRODUCT",3132)
+
+"TEMP","PRODUCT",3133)
+
+"TEMP","PRODUCT",3137)
+
+"TEMP","PRODUCT",3138)
+
+"TEMP","PRODUCT",3139)
+
+"TEMP","PRODUCT",3140)
+
+"TEMP","PRODUCT",3141)
+
+"TEMP","PRODUCT",3142)
+
+"TEMP","PRODUCT",3143)
+
+"TEMP","PRODUCT",3144)
+
+"TEMP","PRODUCT",3145)
+
+"TEMP","PRODUCT",3146)
+
+"TEMP","PRODUCT",3147)
+
+"TEMP","PRODUCT",3148)
+
+"TEMP","PRODUCT",3149)
+
+"TEMP","PRODUCT",3150)
+
+"TEMP","PRODUCT",3151)
+
+"TEMP","PRODUCT",3152)
+
+"TEMP","PRODUCT",3153)
+
+"TEMP","PRODUCT",3154)
+
+"TEMP","PRODUCT",3155)
+
+"TEMP","PRODUCT",3156)
+
+"TEMP","PRODUCT",3157)
+
+"TEMP","PRODUCT",3158)
+
+"TEMP","PRODUCT",3159)
+
+"TEMP","PRODUCT",3160)
+
+"TEMP","PRODUCT",3161)
+
+"TEMP","PRODUCT",3162)
+
+"TEMP","PRODUCT",3163)
+
+"TEMP","PRODUCT",3164)
+
+"TEMP","PRODUCT",3165)
+
+"TEMP","PRODUCT",3166)
+
+"TEMP","PRODUCT",3167)
+
+"TEMP","PRODUCT",3168)
+
+"TEMP","PRODUCT",3169)
+
+"TEMP","PRODUCT",3170)
+
+"TEMP","PRODUCT",3171)
+
+"TEMP","PRODUCT",3172)
+
+"TEMP","PRODUCT",3173)
+
+"TEMP","PRODUCT",3174)
+
+"TEMP","PRODUCT",3175)
+
+"TEMP","PRODUCT",3176)
+
+"TEMP","PRODUCT",3177)
+
+"TEMP","PRODUCT",3178)
+
+"TEMP","PRODUCT",3180)
+
+"TEMP","PRODUCT",3181)
+
+"TEMP","PRODUCT",3182)
+
+"TEMP","PRODUCT",3183)
+
+"TEMP","PRODUCT",3184)
+
+"TEMP","PRODUCT",3185)
+
+"TEMP","PRODUCT",3186)
+
+"TEMP","PRODUCT",3187)
+
+"TEMP","PRODUCT",3188)
+
+"TEMP","PRODUCT",3189)
+
+"TEMP","PRODUCT",3190)
+
+"TEMP","PRODUCT",3191)
+
+"TEMP","PRODUCT",3192)
+
+"TEMP","PRODUCT",3193)
+
+"TEMP","PRODUCT",3199)
+
+"TEMP","PRODUCT",3202)
+
+"TEMP","PRODUCT",3204)
+
+"TEMP","PRODUCT",3208)
+
+"TEMP","PRODUCT",3212)
+
+"TEMP","PRODUCT",3215)
+
+"TEMP","PRODUCT",3222)
+
+"TEMP","PRODUCT",3227)
+
+"TEMP","PRODUCT",3228)
+
+"TEMP","PRODUCT",3229)
+
+"TEMP","PRODUCT",3233)
+
+"TEMP","PRODUCT",3234)
+
+"TEMP","PRODUCT",3235)
+
+"TEMP","PRODUCT",3236)
+
+"TEMP","PRODUCT",3239)
+
+"TEMP","PRODUCT",3241)
+
+"TEMP","PRODUCT",3243)
+
+"TEMP","PRODUCT",3246)
+
+"TEMP","PRODUCT",3247)
+
+"TEMP","PRODUCT",3249)
+
+"TEMP","PRODUCT",3250)
+
+"TEMP","PRODUCT",3252)
+
+"TEMP","PRODUCT",3253)
+
+"TEMP","PRODUCT",3254)
+
+"TEMP","PRODUCT",3255)
+
+"TEMP","PRODUCT",3256)
+
+"TEMP","PRODUCT",3257)
+
+"TEMP","PRODUCT",3258)
+
+"TEMP","PRODUCT",3259)
+
+"TEMP","PRODUCT",3260)
+
+"TEMP","PRODUCT",3261)
+
+"TEMP","PRODUCT",3262)
+
+"TEMP","PRODUCT",3263)
+
+"TEMP","PRODUCT",3264)
+
+"TEMP","PRODUCT",3265)
+
+"TEMP","PRODUCT",3266)
+
+"TEMP","PRODUCT",3267)
+
+"TEMP","PRODUCT",3271)
+
+"TEMP","PRODUCT",3272)
+
+"TEMP","PRODUCT",3273)
+
+"TEMP","PRODUCT",3274)
+
+"TEMP","PRODUCT",3275)
+
+"TEMP","PRODUCT",3276)
+
+"TEMP","PRODUCT",3277)
+
+"TEMP","PRODUCT",3278)
+
+"TEMP","PRODUCT",3279)
+
+"TEMP","PRODUCT",3280)
+
+"TEMP","PRODUCT",3282)
+
+"TEMP","PRODUCT",3284)
+
+"TEMP","PRODUCT",3285)
+
+"TEMP","PRODUCT",3288)
+
+"TEMP","PRODUCT",3289)
+
+"TEMP","PRODUCT",3290)
+
+"TEMP","PRODUCT",3291)
+
+"TEMP","PRODUCT",3292)
+
+"TEMP","PRODUCT",3293)
+
+"TEMP","PRODUCT",3294)
+
+"TEMP","PRODUCT",3295)
+
+"TEMP","PRODUCT",3296)
+
+"TEMP","PRODUCT",3297)
+
+"TEMP","PRODUCT",3300)
+
+"TEMP","PRODUCT",3302)
+
+"TEMP","PRODUCT",3304)
+
+"TEMP","PRODUCT",3305)
+
+"TEMP","PRODUCT",3306)
+
+"TEMP","PRODUCT",3307)
+
+"TEMP","PRODUCT",3308)
+
+"TEMP","PRODUCT",3309)
+
+"TEMP","PRODUCT",3310)
+
+"TEMP","PRODUCT",3311)
+
+"TEMP","PRODUCT",3312)
+
+"TEMP","PRODUCT",3313)
+
+"TEMP","PRODUCT",3314)
+
+"TEMP","PRODUCT",3315)
+
+"TEMP","PRODUCT",3316)
+
+"TEMP","PRODUCT",3320)
+
+"TEMP","PRODUCT",3323)
+
+"TEMP","PRODUCT",3326)
+
+"TEMP","PRODUCT",3329)
+
+"TEMP","PRODUCT",3330)
+
+"TEMP","PRODUCT",3331)
+
+"TEMP","PRODUCT",3332)
+
+"TEMP","PRODUCT",3336)
+
+"TEMP","PRODUCT",3338)
+
+"TEMP","PRODUCT",3339)
+
+"TEMP","PRODUCT",3340)
+
+"TEMP","PRODUCT",3341)
+
+"TEMP","PRODUCT",3342)
+
+"TEMP","PRODUCT",3343)
+
+"TEMP","PRODUCT",3345)
+
+"TEMP","PRODUCT",3346)
+
+"TEMP","PRODUCT",3350)
+
+"TEMP","PRODUCT",3351)
+
+"TEMP","PRODUCT",3353)
+
+"TEMP","PRODUCT",3354)
+
+"TEMP","PRODUCT",3355)
+
+"TEMP","PRODUCT",3356)
+
+"TEMP","PRODUCT",3357)
+
+"TEMP","PRODUCT",3358)
+
+"TEMP","PRODUCT",3359)
+
+"TEMP","PRODUCT",3361)
+
+"TEMP","PRODUCT",3363)
+
+"TEMP","PRODUCT",3365)
+
+"TEMP","PRODUCT",3368)
+
+"TEMP","PRODUCT",3369)
+
+"TEMP","PRODUCT",3370)
+
+"TEMP","PRODUCT",3371)
+
+"TEMP","PRODUCT",3372)
+
+"TEMP","PRODUCT",3373)
+
+"TEMP","PRODUCT",3374)
+
+"TEMP","PRODUCT",3376)
+
+"TEMP","PRODUCT",3377)
+
+"TEMP","PRODUCT",3379)
+
+"TEMP","PRODUCT",3381)
+
+"TEMP","PRODUCT",3382)
+
+"TEMP","PRODUCT",3383)
+
+"TEMP","PRODUCT",3384)
+
+"TEMP","PRODUCT",3385)
+
+"TEMP","PRODUCT",3386)
+
+"TEMP","PRODUCT",3387)
+
+"TEMP","PRODUCT",3388)
+
+"TEMP","PRODUCT",3389)
+
+"TEMP","PRODUCT",3390)
+
+"TEMP","PRODUCT",3391)
+
+"TEMP","PRODUCT",3392)
+
+"TEMP","PRODUCT",3393)
+
+"TEMP","PRODUCT",3394)
+
+"TEMP","PRODUCT",3395)
+
+"TEMP","PRODUCT",3397)
+
+"TEMP","PRODUCT",3398)
+
+"TEMP","PRODUCT",3399)
+
+"TEMP","PRODUCT",3400)
+
+"TEMP","PRODUCT",3401)
+
+"TEMP","PRODUCT",3402)
+
+"TEMP","PRODUCT",3403)
+
+"TEMP","PRODUCT",3404)
+
+"TEMP","PRODUCT",3405)
+
+"TEMP","PRODUCT",3406)
+
+"TEMP","PRODUCT",3407)
+
+"TEMP","PRODUCT",3412)
+
+"TEMP","PRODUCT",3413)
+
+"TEMP","PRODUCT",3414)
+
+"TEMP","PRODUCT",3416)
+
+"TEMP","PRODUCT",3417)
+
+"TEMP","PRODUCT",3418)
+
+"TEMP","PRODUCT",3419)
+
+"TEMP","PRODUCT",3420)
+
+"TEMP","PRODUCT",3423)
+
+"TEMP","PRODUCT",3424)
+
+"TEMP","PRODUCT",3425)
+
+"TEMP","PRODUCT",3426)
+
+"TEMP","PRODUCT",3427)
+
+"TEMP","PRODUCT",3428)
+
+"TEMP","PRODUCT",3429)
+
+"TEMP","PRODUCT",3430)
+
+"TEMP","PRODUCT",3431)
+
+"TEMP","PRODUCT",3432)
+
+"TEMP","PRODUCT",3434)
+
+"TEMP","PRODUCT",3435)
+
+"TEMP","PRODUCT",3436)
+
+"TEMP","PRODUCT",3437)
+
+"TEMP","PRODUCT",3438)
+
+"TEMP","PRODUCT",3439)
+
+"TEMP","PRODUCT",3440)
+
+"TEMP","PRODUCT",3443)
+
+"TEMP","PRODUCT",3444)
+
+"TEMP","PRODUCT",3445)
+
+"TEMP","PRODUCT",3446)
+
+"TEMP","PRODUCT",3447)
+
+"TEMP","PRODUCT",3448)
+
+"TEMP","PRODUCT",3449)
+
+"TEMP","PRODUCT",3450)
+
+"TEMP","PRODUCT",3451)
+
+"TEMP","PRODUCT",3452)
+
+"TEMP","PRODUCT",3453)
+
+"TEMP","PRODUCT",3455)
+
+"TEMP","PRODUCT",3456)
+
+"TEMP","PRODUCT",3457)
+
+"TEMP","PRODUCT",3458)
+
+"TEMP","PRODUCT",3459)
+
+"TEMP","PRODUCT",3460)
+
+"TEMP","PRODUCT",3461)
+
+"TEMP","PRODUCT",3462)
+
+"TEMP","PRODUCT",3463)
+
+"TEMP","PRODUCT",3466)
+
+"TEMP","PRODUCT",3468)
+
+"TEMP","PRODUCT",3469)
+
+"TEMP","PRODUCT",3470)
+
+"TEMP","PRODUCT",3471)
+
+"TEMP","PRODUCT",3474)
+
+"TEMP","PRODUCT",3476)
+
+"TEMP","PRODUCT",3479)
+
+"TEMP","PRODUCT",3487)
+
+"TEMP","PRODUCT",3489)
+
+"TEMP","PRODUCT",3491)
+
+"TEMP","PRODUCT",3492)
+
+"TEMP","PRODUCT",3493)
+
+"TEMP","PRODUCT",3494)
+
+"TEMP","PRODUCT",3496)
+
+"TEMP","PRODUCT",3497)
+
+"TEMP","PRODUCT",3498)
+
+"TEMP","PRODUCT",3507)
+
+"TEMP","PRODUCT",3508)
+
+"TEMP","PRODUCT",3509)
+
+"TEMP","PRODUCT",3511)
+
+"TEMP","PRODUCT",3512)
+
+"TEMP","PRODUCT",3513)
+
+"TEMP","PRODUCT",3514)
+
+"TEMP","PRODUCT",3515)
+
+"TEMP","PRODUCT",3516)
+
+"TEMP","PRODUCT",3517)
+
+"TEMP","PRODUCT",3520)
+
+"TEMP","PRODUCT",3521)
+
+"TEMP","PRODUCT",3522)
+
+"TEMP","PRODUCT",3523)
+
+"TEMP","PRODUCT",3524)
+
+"TEMP","PRODUCT",3527)
+
+"TEMP","PRODUCT",3528)
+
+"TEMP","PRODUCT",3529)
+
+"TEMP","PRODUCT",3530)
+
+"TEMP","PRODUCT",3531)
+
+"TEMP","PRODUCT",3532)
+
+"TEMP","PRODUCT",3534)
+
+"TEMP","PRODUCT",3535)
+
+"TEMP","PRODUCT",3537)
+
+"TEMP","PRODUCT",3538)
+
+"TEMP","PRODUCT",3539)
+
+"TEMP","PRODUCT",3540)
+
+"TEMP","PRODUCT",3542)
+
+"TEMP","PRODUCT",3543)
+
+"TEMP","PRODUCT",3545)
+
+"TEMP","PRODUCT",3547)
+
+"TEMP","PRODUCT",3548)
+
+"TEMP","PRODUCT",3549)
+
+"TEMP","PRODUCT",3550)
+
+"TEMP","PRODUCT",3552)
+
+"TEMP","PRODUCT",3553)
+
+"TEMP","PRODUCT",3554)
+
+"TEMP","PRODUCT",3555)
+
+"TEMP","PRODUCT",3556)
+
+"TEMP","PRODUCT",3558)
+
+"TEMP","PRODUCT",3559)
+
+"TEMP","PRODUCT",3560)
+
+"TEMP","PRODUCT",3566)
+
+"TEMP","PRODUCT",3575)
+
+"TEMP","PRODUCT",3576)
+
+"TEMP","PRODUCT",3577)
+
+"TEMP","PRODUCT",3579)
+
+"TEMP","PRODUCT",3580)
+
+"TEMP","PRODUCT",3581)
+
+"TEMP","PRODUCT",3585)
+
+"TEMP","PRODUCT",3586)
+
+"TEMP","PRODUCT",3587)
+
+"TEMP","PRODUCT",3590)
+
+"TEMP","PRODUCT",3591)
+
+"TEMP","PRODUCT",3592)
+
+"TEMP","PRODUCT",3595)
+
+"TEMP","PRODUCT",3596)
+
+"TEMP","PRODUCT",3597)
+
+"TEMP","PRODUCT",3600)
+
+"TEMP","PRODUCT",3601)
+
+"TEMP","PRODUCT",3602)
+
+"TEMP","PRODUCT",3607)
+
+"TEMP","PRODUCT",3609)
+
+"TEMP","PRODUCT",3615)
+
+"TEMP","PRODUCT",3616)
+
+"TEMP","PRODUCT",3619)
+
+"TEMP","PRODUCT",3620)
+
+"TEMP","PRODUCT",3621)
+
+"TEMP","PRODUCT",3622)
+
+"TEMP","PRODUCT",3623)
+
+"TEMP","PRODUCT",3624)
+
+"TEMP","PRODUCT",3625)
+
+"TEMP","PRODUCT",3626)
+
+"TEMP","PRODUCT",3629)
+
+"TEMP","PRODUCT",3630)
+
+"TEMP","PRODUCT",3631)
+
+"TEMP","PRODUCT",3632)
+
+"TEMP","PRODUCT",3640)
+
+"TEMP","PRODUCT",3641)
+
+"TEMP","PRODUCT",3644)
+
+"TEMP","PRODUCT",3648)
+
+"TEMP","PRODUCT",3650)
+
+"TEMP","PRODUCT",3653)
+
+"TEMP","PRODUCT",3654)
+
+"TEMP","PRODUCT",3655)
+
+"TEMP","PRODUCT",3659)
+
+"TEMP","PRODUCT",3660)
+
+"TEMP","PRODUCT",3664)
+
+"TEMP","PRODUCT",3665)
+
+"TEMP","PRODUCT",3667)
+
+"TEMP","PRODUCT",3668)
+
+"TEMP","PRODUCT",3669)
+
+"TEMP","PRODUCT",3670)
+
+"TEMP","PRODUCT",3671)
+
+"TEMP","PRODUCT",3672)
+
+"TEMP","PRODUCT",3674)
+
+"TEMP","PRODUCT",3675)
+
+"TEMP","PRODUCT",3676)
+
+"TEMP","PRODUCT",3677)
+
+"TEMP","PRODUCT",3678)
+
+"TEMP","PRODUCT",3679)
+
+"TEMP","PRODUCT",3680)
+
+"TEMP","PRODUCT",3681)
+
+"TEMP","PRODUCT",3682)
+
+"TEMP","PRODUCT",3683)
+
+"TEMP","PRODUCT",3684)
+
+"TEMP","PRODUCT",3685)
+
+"TEMP","PRODUCT",3686)
+
+"TEMP","PRODUCT",3687)
+
+"TEMP","PRODUCT",3688)
+
+"TEMP","PRODUCT",3689)
+
+"TEMP","PRODUCT",3690)
+
+"TEMP","PRODUCT",3691)
+
+"TEMP","PRODUCT",3692)
+
+"TEMP","PRODUCT",3693)
+
+"TEMP","PRODUCT",3694)
+
+"TEMP","PRODUCT",3695)
+
+"TEMP","PRODUCT",3696)
+
+"TEMP","PRODUCT",3697)
+
+"TEMP","PRODUCT",3698)
+
+"TEMP","PRODUCT",3699)
+
+"TEMP","PRODUCT",3700)
+
+"TEMP","PRODUCT",3701)
+
+"TEMP","PRODUCT",3702)
+
+"TEMP","PRODUCT",3703)
+
+"TEMP","PRODUCT",3704)
+
+"TEMP","PRODUCT",3708)
+
+"TEMP","PRODUCT",3710)
+
+"TEMP","PRODUCT",3718)
+
+"TEMP","PRODUCT",3719)
+
+"TEMP","PRODUCT",3720)
+
+"TEMP","PRODUCT",3722)
+
+"TEMP","PRODUCT",3723)
+
+"TEMP","PRODUCT",3724)
+
+"TEMP","PRODUCT",3726)
+
+"TEMP","PRODUCT",3727)
+
+"TEMP","PRODUCT",3728)
+
+"TEMP","PRODUCT",3729)
+
+"TEMP","PRODUCT",3730)
+
+"TEMP","PRODUCT",3735)
+
+"TEMP","PRODUCT",3736)
+
+"TEMP","PRODUCT",3737)
+
+"TEMP","PRODUCT",3738)
+
+"TEMP","PRODUCT",3739)
+
+"TEMP","PRODUCT",3740)
+
+"TEMP","PRODUCT",3741)
+
+"TEMP","PRODUCT",3745)
+
+"TEMP","PRODUCT",3747)
+
+"TEMP","PRODUCT",3748)
+
+"TEMP","PRODUCT",3749)
+
+"TEMP","PRODUCT",3750)
+
+"TEMP","PRODUCT",3751)
+
+"TEMP","PRODUCT",3752)
+
+"TEMP","PRODUCT",3753)
+
+"TEMP","PRODUCT",3754)
+
+"TEMP","PRODUCT",3755)
+
+"TEMP","PRODUCT",3756)
+
+"TEMP","PRODUCT",3757)
+
+"TEMP","PRODUCT",3763)
+
+"TEMP","PRODUCT",3764)
+
+"TEMP","PRODUCT",3765)
+
+"TEMP","PRODUCT",3768)
+
+"TEMP","PRODUCT",3769)
+
+"TEMP","PRODUCT",3770)
+
+"TEMP","PRODUCT",3771)
+
+"TEMP","PRODUCT",3772)
+
+"TEMP","PRODUCT",3775)
+
+"TEMP","PRODUCT",3778)
+
+"TEMP","PRODUCT",3780)
+
+"TEMP","PRODUCT",3781)
+
+"TEMP","PRODUCT",3782)
+
+"TEMP","PRODUCT",3783)
+
+"TEMP","PRODUCT",3784)
+
+"TEMP","PRODUCT",3787)
+
+"TEMP","PRODUCT",3789)
+
+"TEMP","PRODUCT",3790)
+
+"TEMP","PRODUCT",3793)
+
+"TEMP","PRODUCT",3794)
+
+"TEMP","PRODUCT",3795)
+
+"TEMP","PRODUCT",3796)
+
+"TEMP","PRODUCT",3797)
+
+"TEMP","PRODUCT",3800)
+
+"TEMP","PRODUCT",3803)
+
+"TEMP","PRODUCT",3806)
+
+"TEMP","PRODUCT",3809)
+
+"TEMP","PRODUCT",3810)
+
+"TEMP","PRODUCT",3811)
+
+"TEMP","PRODUCT",3812)
+
+"TEMP","PRODUCT",3813)
+
+"TEMP","PRODUCT",3814)
+
+"TEMP","PRODUCT",3815)
+
+"TEMP","PRODUCT",3820)
+
+"TEMP","PRODUCT",3823)
+
+"TEMP","PRODUCT",3824)
+
+"TEMP","PRODUCT",3826)
+
+"TEMP","PRODUCT",3827)
+
+"TEMP","PRODUCT",3828)
+
+"TEMP","PRODUCT",3830)
+
+"TEMP","PRODUCT",3831)
+
+"TEMP","PRODUCT",3834)
+
+"TEMP","PRODUCT",3835)
+
+"TEMP","PRODUCT",3836)
+
+"TEMP","PRODUCT",3840)
+
+"TEMP","PRODUCT",3841)
+
+"TEMP","PRODUCT",3842)
+
+"TEMP","PRODUCT",3843)
+
+"TEMP","PRODUCT",3844)
+
+"TEMP","PRODUCT",3845)
+
+"TEMP","PRODUCT",3846)
+
+"TEMP","PRODUCT",3847)
+
+"TEMP","PRODUCT",3848)
+
+"TEMP","PRODUCT",3850)
+
+"TEMP","PRODUCT",3851)
+
+"TEMP","PRODUCT",3854)
+
+"TEMP","PRODUCT",3857)
+
+"TEMP","PRODUCT",3858)
+
+"TEMP","PRODUCT",3859)
+
+"TEMP","PRODUCT",3941)
+
+"TEMP","PRODUCT",3944)
+
+"TEMP","PRODUCT",3954)
+
+"TEMP","PRODUCT",3955)
+
+"TEMP","PRODUCT",4016)
+
+"TEMP","PRODUCT",4019)
+
+"TEMP","PRODUCT",4020)
+
+"TEMP","PRODUCT",4021)
+
+"TEMP","PRODUCT",4022)
+
+"TEMP","PRODUCT",4023)
+
+"TEMP","PRODUCT",4024)
+
+"TEMP","PRODUCT",4025)
+
+"TEMP","PRODUCT",4026)
+
+"TEMP","PRODUCT",4027)
+
+"TEMP","PRODUCT",4028)
+
+"TEMP","PRODUCT",4029)
+
+"TEMP","PRODUCT",4032)
+
+"TEMP","PRODUCT",4033)
+
+"TEMP","PRODUCT",4034)
+
+"TEMP","PRODUCT",4035)
+
+"TEMP","PRODUCT",4036)
+
+"TEMP","PRODUCT",4037)
+
+"TEMP","PRODUCT",4038)
+
+"TEMP","PRODUCT",4039)
+
+"TEMP","PRODUCT",4040)
+
+"TEMP","PRODUCT",4045)
+
+"TEMP","PRODUCT",4050)
+
+"TEMP","PRODUCT",4051)
+
+"TEMP","PRODUCT",4052)
+
+"TEMP","PRODUCT",4053)
+
+"TEMP","PRODUCT",4054)
+
+"TEMP","PRODUCT",4063)
+
+"TEMP","PRODUCT",4065)
+
+"TEMP","PRODUCT",4066)
+
+"TEMP","PRODUCT",4067)
+
+"TEMP","PRODUCT",4070)
+
+"TEMP","PRODUCT",4071)
+
+"TEMP","PRODUCT",4072)
+
+"TEMP","PRODUCT",4073)
+
+"TEMP","PRODUCT",4075)
+
+"TEMP","PRODUCT",4076)
+
+"TEMP","PRODUCT",4077)
+
+"TEMP","PRODUCT",4080)
+
+"TEMP","PRODUCT",4081)
+
+"TEMP","PRODUCT",4085)
+
+"TEMP","PRODUCT",4093)
+
+"TEMP","PRODUCT",4094)
+
+"TEMP","PRODUCT",4095)
+
+"TEMP","PRODUCT",4096)
+
+"TEMP","PRODUCT",4097)
+
+"TEMP","PRODUCT",4098)
+
+"TEMP","PRODUCT",4099)
+
+"TEMP","PRODUCT",4100)
+
+"TEMP","PRODUCT",4101)
+
+"TEMP","PRODUCT",4103)
+
+"TEMP","PRODUCT",4104)
+
+"TEMP","PRODUCT",4106)
+
+"TEMP","PRODUCT",4107)
+
+"TEMP","PRODUCT",4108)
+
+"TEMP","PRODUCT",4109)
+
+"TEMP","PRODUCT",4110)
+
+"TEMP","PRODUCT",4111)
+
+"TEMP","PRODUCT",4113)
+
+"TEMP","PRODUCT",4114)
+
+"TEMP","PRODUCT",4115)
+
+"TEMP","PRODUCT",4116)
+
+"TEMP","PRODUCT",4117)
+
+"TEMP","PRODUCT",4118)
+
+"TEMP","PRODUCT",4120)
+
+"TEMP","PRODUCT",4121)
+
+"TEMP","PRODUCT",4122)
+
+"TEMP","PRODUCT",4123)
+
+"TEMP","PRODUCT",4124)
+
+"TEMP","PRODUCT",4129)
+
+"TEMP","PRODUCT",4133)
+
+"TEMP","PRODUCT",4134)
+
+"TEMP","PRODUCT",4135)
+
+"TEMP","PRODUCT",4136)
+
+"TEMP","PRODUCT",4137)
+
+"TEMP","PRODUCT",4138)
+
+"TEMP","PRODUCT",4139)
+
+"TEMP","PRODUCT",4140)
+
+"TEMP","PRODUCT",4141)
+
+"TEMP","PRODUCT",4142)
+
+"TEMP","PRODUCT",4143)
+
+"TEMP","PRODUCT",4144)
+
+"TEMP","PRODUCT",4146)
+
+"TEMP","PRODUCT",4149)
+
+"TEMP","PRODUCT",4150)
+
+"TEMP","PRODUCT",4152)
+
+"TEMP","PRODUCT",4153)
+
+"TEMP","PRODUCT",4154)
+
+"TEMP","PRODUCT",4155)
+
+"TEMP","PRODUCT",4156)
+
+"TEMP","PRODUCT",4158)
+
+"TEMP","PRODUCT",4159)
+
+"TEMP","PRODUCT",4160)
+
+"TEMP","PRODUCT",4161)
+
+"TEMP","PRODUCT",4162)
+
+"TEMP","PRODUCT",4163)
+
+"TEMP","PRODUCT",4164)
+
+"TEMP","PRODUCT",4170)
+
+"TEMP","PRODUCT",4171)
+
+"TEMP","PRODUCT",4173)
+
+"TEMP","PRODUCT",4174)
+
+"TEMP","PRODUCT",4175)
+
+"TEMP","PRODUCT",4176)
+
+"TEMP","PRODUCT",4177)
+
+"TEMP","PRODUCT",4178)
+
+"TEMP","PRODUCT",4179)
+
+"TEMP","PRODUCT",4180)
+
+"TEMP","PRODUCT",4181)
+
+"TEMP","PRODUCT",4182)
+
+"TEMP","PRODUCT",4183)
+
+"TEMP","PRODUCT",4184)
+
+"TEMP","PRODUCT",4185)
+
+"TEMP","PRODUCT",4186)
+
+"TEMP","PRODUCT",4187)
+
+"TEMP","PRODUCT",4190)
+
+"TEMP","PRODUCT",4191)
+
+"TEMP","PRODUCT",4192)
+
+"TEMP","PRODUCT",4193)
+
+"TEMP","PRODUCT",4194)
+
+"TEMP","PRODUCT",4195)
+
+"TEMP","PRODUCT",4196)
+
+"TEMP","PRODUCT",4197)
+
+"TEMP","PRODUCT",4198)
+
+"TEMP","PRODUCT",4199)
+
+"TEMP","PRODUCT",4200)
+
+"TEMP","PRODUCT",4201)
+
+"TEMP","PRODUCT",4202)
+
+"TEMP","PRODUCT",4203)
+
+"TEMP","PRODUCT",4204)
+
+"TEMP","PRODUCT",4205)
+
+"TEMP","PRODUCT",4206)
+
+"TEMP","PRODUCT",4207)
+
+"TEMP","PRODUCT",4208)
+
+"TEMP","PRODUCT",4209)
+
+"TEMP","PRODUCT",4210)
+
+"TEMP","PRODUCT",4215)
+
+"TEMP","PRODUCT",4217)
+
+"TEMP","PRODUCT",4219)
+
+"TEMP","PRODUCT",4221)
+
+"TEMP","PRODUCT",4223)
+
+"TEMP","PRODUCT",4230)
+
+"TEMP","PRODUCT",4231)
+
+"TEMP","PRODUCT",4232)
+
+"TEMP","PRODUCT",4233)
+
+"TEMP","PRODUCT",4234)
+
+"TEMP","PRODUCT",4235)
+
+"TEMP","PRODUCT",4237)
+
+"TEMP","PRODUCT",4240)
+
+"TEMP","PRODUCT",4241)
+
+"TEMP","PRODUCT",4242)
+
+"TEMP","PRODUCT",4243)
+
+"TEMP","PRODUCT",4245)
+
+"TEMP","PRODUCT",4246)
+
+"TEMP","PRODUCT",4247)
+
+"TEMP","PRODUCT",4248)
+
+"TEMP","PRODUCT",4249)
+
+"TEMP","PRODUCT",4250)
+
+"TEMP","PRODUCT",4253)
+
+"TEMP","PRODUCT",4254)
+
+"TEMP","PRODUCT",4258)
+
+"TEMP","PRODUCT",4260)
+
+"TEMP","PRODUCT",4261)
+
+"TEMP","PRODUCT",4262)
+
+"TEMP","PRODUCT",4264)
+
+"TEMP","PRODUCT",4267)
+
+"TEMP","PRODUCT",4268)
+
+"TEMP","PRODUCT",4269)
+
+"TEMP","PRODUCT",4270)
+
+"TEMP","PRODUCT",4271)
+
+"TEMP","PRODUCT",4272)
+
+"TEMP","PRODUCT",4273)
+
+"TEMP","PRODUCT",4275)
+
+"TEMP","PRODUCT",4277)
+
+"TEMP","PRODUCT",4278)
+
+"TEMP","PRODUCT",4279)
+
+"TEMP","PRODUCT",4280)
+
+"TEMP","PRODUCT",4281)
+
+"TEMP","PRODUCT",4282)
+
+"TEMP","PRODUCT",4283)
+
+"TEMP","PRODUCT",4284)
+
+"TEMP","PRODUCT",4285)
+
+"TEMP","PRODUCT",4286)
+
+"TEMP","PRODUCT",4287)
+
+"TEMP","PRODUCT",4289)
+
+"TEMP","PRODUCT",4290)
+
+"TEMP","PRODUCT",4291)
+
+"TEMP","PRODUCT",4294)
+
+"TEMP","PRODUCT",4297)
+
+"TEMP","PRODUCT",4301)
+
+"TEMP","PRODUCT",4309)
+
+"TEMP","PRODUCT",4310)
+
+"TEMP","PRODUCT",4311)
+
+"TEMP","PRODUCT",4312)
+
+"TEMP","PRODUCT",4313)
+
+"TEMP","PRODUCT",4314)
+
+"TEMP","PRODUCT",4315)
+
+"TEMP","PRODUCT",4316)
+
+"TEMP","PRODUCT",4317)
+
+"TEMP","PRODUCT",4318)
+
+"TEMP","PRODUCT",4319)
+
+"TEMP","PRODUCT",4320)
+
+"TEMP","PRODUCT",4321)
+
+"TEMP","PRODUCT",4322)
+
+"TEMP","PRODUCT",4323)
+
+"TEMP","PRODUCT",4324)
+
+"TEMP","PRODUCT",4325)
+
+"TEMP","PRODUCT",4326)
+
+"TEMP","PRODUCT",4327)
+
+"TEMP","PRODUCT",4330)
+
+"TEMP","PRODUCT",4338)
+
+"TEMP","PRODUCT",4339)
+
+"TEMP","PRODUCT",4341)
+
+"TEMP","PRODUCT",4344)
+
+"TEMP","PRODUCT",4345)
+
+"TEMP","PRODUCT",4346)
+
+"TEMP","PRODUCT",4351)
+
+"TEMP","PRODUCT",4356)
+
+"TEMP","PRODUCT",4358)
+
+"TEMP","PRODUCT",4360)
+
+"TEMP","PRODUCT",4361)
+
+"TEMP","PRODUCT",4362)
+
+"TEMP","PRODUCT",4363)
+
+"TEMP","PRODUCT",4364)
+
+"TEMP","PRODUCT",4365)
+
+"TEMP","PRODUCT",4366)
+
+"TEMP","PRODUCT",4367)
+
+"TEMP","PRODUCT",4368)
+
+"TEMP","PRODUCT",4369)
+
+"TEMP","PRODUCT",4370)
+
+"TEMP","PRODUCT",4373)
+
+"TEMP","PRODUCT",4374)
+
+"TEMP","PRODUCT",4375)
+
+"TEMP","PRODUCT",4376)
+
+"TEMP","PRODUCT",4377)
+
+"TEMP","PRODUCT",4379)
+
+"TEMP","PRODUCT",4380)
+
+"TEMP","PRODUCT",4384)
+
+"TEMP","PRODUCT",4386)
+
+"TEMP","PRODUCT",4387)
+
+"TEMP","PRODUCT",4388)
+
+"TEMP","PRODUCT",4390)
+
+"TEMP","PRODUCT",4391)
+
+"TEMP","PRODUCT",4393)
+
+"TEMP","PRODUCT",4394)
+
+"TEMP","PRODUCT",4395)
+
+"TEMP","PRODUCT",4396)
+
+"TEMP","PRODUCT",4397)
+
+"TEMP","PRODUCT",4399)
+
+"TEMP","PRODUCT",4400)
+
+"TEMP","PRODUCT",4401)
+
+"TEMP","PRODUCT",4402)
+
+"TEMP","PRODUCT",4405)
+
+"TEMP","PRODUCT",4406)
+
+"TEMP","PRODUCT",4407)
+
+"TEMP","PRODUCT",4408)
+
+"TEMP","PRODUCT",4409)
+
+"TEMP","PRODUCT",4414)
+
+"TEMP","PRODUCT",4415)
+
+"TEMP","PRODUCT",4416)
+
+"TEMP","PRODUCT",4421)
+
+"TEMP","PRODUCT",4424)
+
+"TEMP","PRODUCT",4425)
+
+"TEMP","PRODUCT",4428)
+
+"TEMP","PRODUCT",4434)
+
+"TEMP","PRODUCT",4435)
+
+"TEMP","PRODUCT",4436)
+
+"TEMP","PRODUCT",4437)
+
+"TEMP","PRODUCT",4438)
+
+"TEMP","PRODUCT",4440)
+
+"TEMP","PRODUCT",4441)
+
+"TEMP","PRODUCT",4444)
+
+"TEMP","PRODUCT",4445)
+
+"TEMP","PRODUCT",4446)
+
+"TEMP","PRODUCT",4447)
+
+"TEMP","PRODUCT",4448)
+
+"TEMP","PRODUCT",4451)
+
+"TEMP","PRODUCT",4452)
+
+"TEMP","PRODUCT",4453)
+
+"TEMP","PRODUCT",4454)
+
+"TEMP","PRODUCT",4455)
+
+"TEMP","PRODUCT",4456)
+
+"TEMP","PRODUCT",4457)
+
+"TEMP","PRODUCT",4458)
+
+"TEMP","PRODUCT",4459)
+
+"TEMP","PRODUCT",4462)
+
+"TEMP","PRODUCT",4463)
+
+"TEMP","PRODUCT",4464)
+
+"TEMP","PRODUCT",4465)
+
+"TEMP","PRODUCT",4466)
+
+"TEMP","PRODUCT",4467)
+
+"TEMP","PRODUCT",4468)
+
+"TEMP","PRODUCT",4469)
+
+"TEMP","PRODUCT",4470)
+
+"TEMP","PRODUCT",4473)
+
+"TEMP","PRODUCT",4474)
+
+"TEMP","PRODUCT",4478)
+
+"TEMP","PRODUCT",4479)
+
+"TEMP","PRODUCT",4480)
+
+"TEMP","PRODUCT",4481)
+
+"TEMP","PRODUCT",4483)
+
+"TEMP","PRODUCT",4484)
+
+"TEMP","PRODUCT",4485)
+
+"TEMP","PRODUCT",4490)
+
+"TEMP","PRODUCT",4491)
+
+"TEMP","PRODUCT",4492)
+
+"TEMP","PRODUCT",4493)
+
+"TEMP","PRODUCT",4494)
+
+"TEMP","PRODUCT",4496)
+
+"TEMP","PRODUCT",4497)
+
+"TEMP","PRODUCT",4498)
+
+"TEMP","PRODUCT",4499)
+
+"TEMP","PRODUCT",4500)
+
+"TEMP","PRODUCT",4501)
+
+"TEMP","PRODUCT",4502)
+
+"TEMP","PRODUCT",4503)
+
+"TEMP","PRODUCT",4504)
+
+"TEMP","PRODUCT",4505)
+
+"TEMP","PRODUCT",4506)
+
+"TEMP","PRODUCT",4507)
+
+"TEMP","PRODUCT",4509)
+
+"TEMP","PRODUCT",4510)
+
+"TEMP","PRODUCT",4511)
+
+"TEMP","PRODUCT",4512)
+
+"TEMP","PRODUCT",4513)
+
+"TEMP","PRODUCT",4514)
+
+"TEMP","PRODUCT",4515)
+
+"TEMP","PRODUCT",4516)
+
+"TEMP","PRODUCT",4517)
+
+"TEMP","PRODUCT",4526)
+
+"TEMP","PRODUCT",4527)
+
+"TEMP","PRODUCT",4528)
+
+"TEMP","PRODUCT",4530)
+
+"TEMP","PRODUCT",4533)
+
+"TEMP","PRODUCT",4537)
+
+"TEMP","PRODUCT",4538)
+
+"TEMP","PRODUCT",4539)
+
+"TEMP","PRODUCT",4542)
+
+"TEMP","PRODUCT",4543)
+
+"TEMP","PRODUCT",4547)
+
+"TEMP","PRODUCT",4548)
+
+"TEMP","PRODUCT",4549)
+
+"TEMP","PRODUCT",4550)
+
+"TEMP","PRODUCT",4551)
+
+"TEMP","PRODUCT",4552)
+
+"TEMP","PRODUCT",4553)
+
+"TEMP","PRODUCT",4554)
+
+"TEMP","PRODUCT",4555)
+
+"TEMP","PRODUCT",4556)
+
+"TEMP","PRODUCT",4557)
+
+"TEMP","PRODUCT",4558)
+
+"TEMP","PRODUCT",4559)
+
+"TEMP","PRODUCT",4562)
+
+"TEMP","PRODUCT",4563)
+
+"TEMP","PRODUCT",4564)
+
+"TEMP","PRODUCT",4566)
+
+"TEMP","PRODUCT",4567)
+
+"TEMP","PRODUCT",4568)
+
+"TEMP","PRODUCT",4572)
+
+"TEMP","PRODUCT",4573)
+
+"TEMP","PRODUCT",4574)
+
+"TEMP","PRODUCT",4576)
+
+"TEMP","PRODUCT",4577)
+
+"TEMP","PRODUCT",4578)
+
+"TEMP","PRODUCT",4581)
+
+"TEMP","PRODUCT",4582)
+
+"TEMP","PRODUCT",4583)
+
+"TEMP","PRODUCT",4584)
+
+"TEMP","PRODUCT",4586)
+
+"TEMP","PRODUCT",4587)
+
+"TEMP","PRODUCT",4588)
+
+"TEMP","PRODUCT",4590)
+
+"TEMP","PRODUCT",4593)
+
+"TEMP","PRODUCT",4594)
+
+"TEMP","PRODUCT",4595)
+
+"TEMP","PRODUCT",4603)
+
+"TEMP","PRODUCT",4613)
+
+"TEMP","PRODUCT",4614)
+
+"TEMP","PRODUCT",4615)
+
+"TEMP","PRODUCT",4616)
+
+"TEMP","PRODUCT",4617)
+
+"TEMP","PRODUCT",4618)
+
+"TEMP","PRODUCT",4619)
+
+"TEMP","PRODUCT",4620)
+
+"TEMP","PRODUCT",4621)
+
+"TEMP","PRODUCT",4623)
+
+"TEMP","PRODUCT",4624)
+
+"TEMP","PRODUCT",4627)
+
+"TEMP","PRODUCT",4632)
+
+"TEMP","PRODUCT",4633)
+
+"TEMP","PRODUCT",4637)
+
+"TEMP","PRODUCT",4638)
+
+"TEMP","PRODUCT",4639)
+
+"TEMP","PRODUCT",4640)
+
+"TEMP","PRODUCT",4641)
+
+"TEMP","PRODUCT",4642)
+
+"TEMP","PRODUCT",4643)
+
+"TEMP","PRODUCT",4649)
+
+"TEMP","PRODUCT",4655)
+
+"TEMP","PRODUCT",4661)
+
+"TEMP","PRODUCT",4662)
+
+"TEMP","PRODUCT",4663)
+
+"TEMP","PRODUCT",4664)
+
+"TEMP","PRODUCT",4665)
+
+"TEMP","PRODUCT",4666)
+
+"TEMP","PRODUCT",4667)
+
+"TEMP","PRODUCT",4668)
+
+"TEMP","PRODUCT",4677)
+
+"TEMP","PRODUCT",4678)
+
+"TEMP","PRODUCT",4679)
+
+"TEMP","PRODUCT",4680)
+
+"TEMP","PRODUCT",4681)
+
+"TEMP","PRODUCT",4682)
+
+"TEMP","PRODUCT",4683)
+
+"TEMP","PRODUCT",4684)
+
+"TEMP","PRODUCT",4685)
+
+"TEMP","PRODUCT",4686)
+
+"TEMP","PRODUCT",4688)
+
+"TEMP","PRODUCT",4689)
+
+"TEMP","PRODUCT",4690)
+
+"TEMP","PRODUCT",4692)
+
+"TEMP","PRODUCT",4693)
+
+"TEMP","PRODUCT",4694)
+
+"TEMP","PRODUCT",4695)
+
+"TEMP","PRODUCT",4696)
+
+"TEMP","PRODUCT",4697)
+
+"TEMP","PRODUCT",4698)
+
+"TEMP","PRODUCT",4699)
+
+"TEMP","PRODUCT",4700)
+
+"TEMP","PRODUCT",4701)
+
+"TEMP","PRODUCT",4702)
+
+"TEMP","PRODUCT",4703)
+
+"TEMP","PRODUCT",4704)
+
+"TEMP","PRODUCT",4705)
+
+"TEMP","PRODUCT",4706)
+
+"TEMP","PRODUCT",4708)
+
+"TEMP","PRODUCT",4710)
+
+"TEMP","PRODUCT",4711)
+
+"TEMP","PRODUCT",4718)
+
+"TEMP","PRODUCT",4719)
+
+"TEMP","PRODUCT",4720)
+
+"TEMP","PRODUCT",4721)
+
+"TEMP","PRODUCT",4722)
+
+"TEMP","PRODUCT",4726)
+
+"TEMP","PRODUCT",4727)
+
+"TEMP","PRODUCT",4728)
+
+"TEMP","PRODUCT",4729)
+
+"TEMP","PRODUCT",4730)
+
+"TEMP","PRODUCT",4731)
+
+"TEMP","PRODUCT",4732)
+
+"TEMP","PRODUCT",4737)
+
+"TEMP","PRODUCT",4739)
+
+"TEMP","PRODUCT",4742)
+
+"TEMP","PRODUCT",4743)
+
+"TEMP","PRODUCT",4744)
+
+"TEMP","PRODUCT",4748)
+
+"TEMP","PRODUCT",4749)
+
+"TEMP","PRODUCT",4750)
+
+"TEMP","PRODUCT",4753)
+
+"TEMP","PRODUCT",4754)
+
+"TEMP","PRODUCT",4764)
+
+"TEMP","PRODUCT",4771)
+
+"TEMP","PRODUCT",4772)
+
+"TEMP","PRODUCT",4773)
+
+"TEMP","PRODUCT",4774)
+
+"TEMP","PRODUCT",4775)
+
+"TEMP","PRODUCT",4776)
+
+"TEMP","PRODUCT",4777)
+
+"TEMP","PRODUCT",4778)
+
+"TEMP","PRODUCT",4779)
+
+"TEMP","PRODUCT",4782)
+
+"TEMP","PRODUCT",4783)
+
+"TEMP","PRODUCT",4784)
+
+"TEMP","PRODUCT",4785)
+
+"TEMP","PRODUCT",4786)
+
+"TEMP","PRODUCT",4787)
+
+"TEMP","PRODUCT",4788)
+
+"TEMP","PRODUCT",4789)
+
+"TEMP","PRODUCT",4790)
+
+"TEMP","PRODUCT",4791)
+
+"TEMP","PRODUCT",4792)
+
+"TEMP","PRODUCT",4793)
+
+"TEMP","PRODUCT",4794)
+
+"TEMP","PRODUCT",4795)
+
+"TEMP","PRODUCT",4796)
+
+"TEMP","PRODUCT",4797)
+
+"TEMP","PRODUCT",4798)
+
+"TEMP","PRODUCT",4799)
+
+"TEMP","PRODUCT",4800)
+
+"TEMP","PRODUCT",4801)
+
+"TEMP","PRODUCT",4802)
+
+"TEMP","PRODUCT",4803)
+
+"TEMP","PRODUCT",4804)
+
+"TEMP","PRODUCT",4805)
+
+"TEMP","PRODUCT",4806)
+
+"TEMP","PRODUCT",4807)
+
+"TEMP","PRODUCT",4808)
+
+"TEMP","PRODUCT",4809)
+
+"TEMP","PRODUCT",4810)
+
+"TEMP","PRODUCT",4811)
+
+"TEMP","PRODUCT",4812)
+
+"TEMP","PRODUCT",4817)
+
+"TEMP","PRODUCT",4818)
+
+"TEMP","PRODUCT",4819)
+
+"TEMP","PRODUCT",4820)
+
+"TEMP","PRODUCT",4821)
+
+"TEMP","PRODUCT",4822)
+
+"TEMP","PRODUCT",4823)
+
+"TEMP","PRODUCT",4824)
+
+"TEMP","PRODUCT",4825)
+
+"TEMP","PRODUCT",4826)
+
+"TEMP","PRODUCT",4827)
+
+"TEMP","PRODUCT",4828)
+
+"TEMP","PRODUCT",4830)
+
+"TEMP","PRODUCT",4831)
+
+"TEMP","PRODUCT",4833)
+
+"TEMP","PRODUCT",4834)
+
+"TEMP","PRODUCT",4835)
+
+"TEMP","PRODUCT",4836)
+
+"TEMP","PRODUCT",4837)
+
+"TEMP","PRODUCT",4839)
+
+"TEMP","PRODUCT",4840)
+
+"TEMP","PRODUCT",4841)
+
+"TEMP","PRODUCT",4842)
+
+"TEMP","PRODUCT",4843)
+
+"TEMP","PRODUCT",4844)
+
+"TEMP","PRODUCT",4845)
+
+"TEMP","PRODUCT",4846)
+
+"TEMP","PRODUCT",4847)
+
+"TEMP","PRODUCT",4850)
+
+"TEMP","PRODUCT",4852)
+
+"TEMP","PRODUCT",4853)
+
+"TEMP","PRODUCT",4854)
+
+"TEMP","PRODUCT",4855)
+
+"TEMP","PRODUCT",4856)
+
+"TEMP","PRODUCT",4857)
+
+"TEMP","PRODUCT",4858)
+
+"TEMP","PRODUCT",4859)
+
+"TEMP","PRODUCT",4860)
+
+"TEMP","PRODUCT",4861)
+
+"TEMP","PRODUCT",4862)
+
+"TEMP","PRODUCT",4863)
+
+"TEMP","PRODUCT",4864)
+
+"TEMP","PRODUCT",4865)
+
+"TEMP","PRODUCT",4866)
+
+"TEMP","PRODUCT",4868)
+
+"TEMP","PRODUCT",4869)
+
+"TEMP","PRODUCT",4871)
+
+"TEMP","PRODUCT",4872)
+
+"TEMP","PRODUCT",4873)
+
+"TEMP","PRODUCT",4875)
+
+"TEMP","PRODUCT",4876)
+
+"TEMP","PRODUCT",4877)
+
+"TEMP","PRODUCT",4879)
+
+"TEMP","PRODUCT",4880)
+
+"TEMP","PRODUCT",4881)
+
+"TEMP","PRODUCT",4882)
+
+"TEMP","PRODUCT",4883)
+
+"TEMP","PRODUCT",4884)
+
+"TEMP","PRODUCT",4885)
+
+"TEMP","PRODUCT",4886)
+
+"TEMP","PRODUCT",4888)
+
+"TEMP","PRODUCT",4889)
+
+"TEMP","PRODUCT",4893)
+
+"TEMP","PRODUCT",4894)
+
+"TEMP","PRODUCT",4895)
+
+"TEMP","PRODUCT",4896)
+
+"TEMP","PRODUCT",4897)
+
+"TEMP","PRODUCT",4898)
+
+"TEMP","PRODUCT",4899)
+
+"TEMP","PRODUCT",4900)
+
+"TEMP","PRODUCT",4903)
+
+"TEMP","PRODUCT",4904)
+
+"TEMP","PRODUCT",4905)
+
+"TEMP","PRODUCT",4906)
+
+"TEMP","PRODUCT",4907)
+
+"TEMP","PRODUCT",4908)
+
+"TEMP","PRODUCT",4909)
+
+"TEMP","PRODUCT",4910)
+
+"TEMP","PRODUCT",4911)
+
+"TEMP","PRODUCT",4912)
+
+"TEMP","PRODUCT",4913)
+
+"TEMP","PRODUCT",4915)
+
+"TEMP","PRODUCT",4916)
+
+"TEMP","PRODUCT",4917)
+
+"TEMP","PRODUCT",4918)
+
+"TEMP","PRODUCT",4921)
+
+"TEMP","PRODUCT",4923)
+
+"TEMP","PRODUCT",4924)
+
+"TEMP","PRODUCT",4926)
+
+"TEMP","PRODUCT",4929)
+
+"TEMP","PRODUCT",4931)
+
+"TEMP","PRODUCT",4934)
+
+"TEMP","PRODUCT",4935)
+
+"TEMP","PRODUCT",4936)
+
+"TEMP","PRODUCT",4937)
+
+"TEMP","PRODUCT",4938)
+
+"TEMP","PRODUCT",4939)
+
+"TEMP","PRODUCT",4940)
+
+"TEMP","PRODUCT",4941)
+
+"TEMP","PRODUCT",4942)
+
+"TEMP","PRODUCT",4943)
+
+"TEMP","PRODUCT",4944)
+
+"TEMP","PRODUCT",4949)
+
+"TEMP","PRODUCT",4950)
+
+"TEMP","PRODUCT",4952)
+
+"TEMP","PRODUCT",4954)
+
+"TEMP","PRODUCT",4956)
+
+"TEMP","PRODUCT",4959)
+
+"TEMP","PRODUCT",4962)
+
+"TEMP","PRODUCT",4963)
+
+"TEMP","PRODUCT",4968)
+
+"TEMP","PRODUCT",4969)
+
+"TEMP","PRODUCT",4970)
+
+"TEMP","PRODUCT",4971)
+
+"TEMP","PRODUCT",4972)
+
+"TEMP","PRODUCT",4974)
+
+"TEMP","PRODUCT",4975)
+
+"TEMP","PRODUCT",4976)
+
+"TEMP","PRODUCT",4979)
+
+"TEMP","PRODUCT",4980)
+
+"TEMP","PRODUCT",4981)
+
+"TEMP","PRODUCT",4983)
+
+"TEMP","PRODUCT",4984)
+
+"TEMP","PRODUCT",4985)
+
+"TEMP","PRODUCT",4987)
+
+"TEMP","PRODUCT",4988)
+
+"TEMP","PRODUCT",4992)
+
+"TEMP","PRODUCT",4996)
+
+"TEMP","PRODUCT",4997)
+
+"TEMP","PRODUCT",4998)
+
+"TEMP","PRODUCT",5000)
+
+"TEMP","PRODUCT",5003)
+
+"TEMP","PRODUCT",5004)
+
+"TEMP","PRODUCT",5005)
+
+"TEMP","PRODUCT",5010)
+
+"TEMP","PRODUCT",5013)
+
+"TEMP","PRODUCT",5014)
+
+"TEMP","PRODUCT",5015)
+
+"TEMP","PRODUCT",5016)
+
+"TEMP","PRODUCT",5017)
+
+"TEMP","PRODUCT",5018)
+
+"TEMP","PRODUCT",5019)
+
+"TEMP","PRODUCT",5021)
+
+"TEMP","PRODUCT",5023)
+
+"TEMP","PRODUCT",5026)
+
+"TEMP","PRODUCT",5028)
+
+"TEMP","PRODUCT",5029)
+
+"TEMP","PRODUCT",5030)
+
+"TEMP","PRODUCT",5032)
+
+"TEMP","PRODUCT",5033)
+
+"TEMP","PRODUCT",5034)
+
+"TEMP","PRODUCT",5039)
+
+"TEMP","PRODUCT",5040)
+
+"TEMP","PRODUCT",5044)
+
+"TEMP","PRODUCT",5045)
+
+"TEMP","PRODUCT",5051)
+
+"TEMP","PRODUCT",5054)
+
+"TEMP","PRODUCT",5057)
+
+"TEMP","PRODUCT",5058)
+
+"TEMP","PRODUCT",5061)
+
+"TEMP","PRODUCT",5062)
+
+"TEMP","PRODUCT",5063)
+
+"TEMP","PRODUCT",5064)
+
+"TEMP","PRODUCT",5065)
+
+"TEMP","PRODUCT",5066)
+
+"TEMP","PRODUCT",5068)
+
+"TEMP","PRODUCT",5069)
+
+"TEMP","PRODUCT",5070)
+
+"TEMP","PRODUCT",5071)
+
+"TEMP","PRODUCT",5072)
+
+"TEMP","PRODUCT",5073)
+
+"TEMP","PRODUCT",5074)
+
+"TEMP","PRODUCT",5075)
+
+"TEMP","PRODUCT",5076)
+
+"TEMP","PRODUCT",5077)
+
+"TEMP","PRODUCT",5078)
+
+"TEMP","PRODUCT",5079)
+
+"TEMP","PRODUCT",5080)
+
+"TEMP","PRODUCT",5081)
+
+"TEMP","PRODUCT",5088)
+
+"TEMP","PRODUCT",5089)
+
+"TEMP","PRODUCT",5090)
+
+"TEMP","PRODUCT",5092)
+
+"TEMP","PRODUCT",5093)
+
+"TEMP","PRODUCT",5094)
+
+"TEMP","PRODUCT",5097)
+
+"TEMP","PRODUCT",5098)
+
+"TEMP","PRODUCT",5099)
+
+"TEMP","PRODUCT",5100)
+
+"TEMP","PRODUCT",5101)
+
+"TEMP","PRODUCT",5102)
+
+"TEMP","PRODUCT",5104)
+
+"TEMP","PRODUCT",5106)
+
+"TEMP","PRODUCT",5107)
+
+"TEMP","PRODUCT",5108)
+
+"TEMP","PRODUCT",5109)
+
+"TEMP","PRODUCT",5110)
+
+"TEMP","PRODUCT",5112)
+
+"TEMP","PRODUCT",5117)
+
+"TEMP","PRODUCT",5118)
+
+"TEMP","PRODUCT",5119)
+
+"TEMP","PRODUCT",5120)
+
+"TEMP","PRODUCT",5121)
+
+"TEMP","PRODUCT",5122)
+
+"TEMP","PRODUCT",5124)
+
+"TEMP","PRODUCT",5125)
+
+"TEMP","PRODUCT",5126)
+
+"TEMP","PRODUCT",5127)
+
+"TEMP","PRODUCT",5128)
+
+"TEMP","PRODUCT",5129)
+
+"TEMP","PRODUCT",5130)
+
+"TEMP","PRODUCT",5131)
+
+"TEMP","PRODUCT",5132)
+
+"TEMP","PRODUCT",5133)
+
+"TEMP","PRODUCT",5134)
+
+"TEMP","PRODUCT",5135)
+
+"TEMP","PRODUCT",5136)
+
+"TEMP","PRODUCT",5137)
+
+"TEMP","PRODUCT",5138)
+
+"TEMP","PRODUCT",5141)
+
+"TEMP","PRODUCT",5142)
+
+"TEMP","PRODUCT",5143)
+
+"TEMP","PRODUCT",5144)
+
+"TEMP","PRODUCT",5145)
+
+"TEMP","PRODUCT",5146)
+
+"TEMP","PRODUCT",5148)
+
+"TEMP","PRODUCT",5149)
+
+"TEMP","PRODUCT",5150)
+
+"TEMP","PRODUCT",5151)
+
+"TEMP","PRODUCT",5152)
+
+"TEMP","PRODUCT",5155)
+
+"TEMP","PRODUCT",5156)
+
+"TEMP","PRODUCT",5157)
+
+"TEMP","PRODUCT",5158)
+
+"TEMP","PRODUCT",5159)
+
+"TEMP","PRODUCT",5160)
+
+"TEMP","PRODUCT",5161)
+
+"TEMP","PRODUCT",5162)
+
+"TEMP","PRODUCT",5163)
+
+"TEMP","PRODUCT",5164)
+
+"TEMP","PRODUCT",5165)
+
+"TEMP","PRODUCT",5166)
+
+"TEMP","PRODUCT",5167)
+
+"TEMP","PRODUCT",5168)
+
+"TEMP","PRODUCT",5169)
+
+"TEMP","PRODUCT",5170)
+
+"TEMP","PRODUCT",5171)
+
+"TEMP","PRODUCT",5172)
+
+"TEMP","PRODUCT",5173)
+
+"TEMP","PRODUCT",5174)
+
+"TEMP","PRODUCT",5175)
+
+"TEMP","PRODUCT",5179)
+
+"TEMP","PRODUCT",5180)
+
+"TEMP","PRODUCT",5181)
+
+"TEMP","PRODUCT",5182)
+
+"TEMP","PRODUCT",5185)
+
+"TEMP","PRODUCT",5186)
+
+"TEMP","PRODUCT",5187)
+
+"TEMP","PRODUCT",5188)
+
+"TEMP","PRODUCT",5189)
+
+"TEMP","PRODUCT",5191)
+
+"TEMP","PRODUCT",5195)
+
+"TEMP","PRODUCT",5198)
+
+"TEMP","PRODUCT",5199)
+
+"TEMP","PRODUCT",5200)
+
+"TEMP","PRODUCT",5201)
+
+"TEMP","PRODUCT",5202)
+
+"TEMP","PRODUCT",5203)
+
+"TEMP","PRODUCT",5204)
+
+"TEMP","PRODUCT",5205)
+
+"TEMP","PRODUCT",5206)
+
+"TEMP","PRODUCT",5207)
+
+"TEMP","PRODUCT",5208)
+
+"TEMP","PRODUCT",5209)
+
+"TEMP","PRODUCT",5211)
+
+"TEMP","PRODUCT",5212)
+
+"TEMP","PRODUCT",5213)
+
+"TEMP","PRODUCT",5216)
+
+"TEMP","PRODUCT",5217)
+
+"TEMP","PRODUCT",5218)
+
+"TEMP","PRODUCT",5219)
+
+"TEMP","PRODUCT",5220)
+
+"TEMP","PRODUCT",5221)
+
+"TEMP","PRODUCT",5222)
+
+"TEMP","PRODUCT",5223)
+
+"TEMP","PRODUCT",5224)
+
+"TEMP","PRODUCT",5225)
+
+"TEMP","PRODUCT",5226)
+
+"TEMP","PRODUCT",5228)
+
+"TEMP","PRODUCT",5232)
+
+"TEMP","PRODUCT",5233)
+
+"TEMP","PRODUCT",5235)
+
+"TEMP","PRODUCT",5237)
+
+"TEMP","PRODUCT",5238)
+
+"TEMP","PRODUCT",5240)
+
+"TEMP","PRODUCT",5241)
+
+"TEMP","PRODUCT",5242)
+
+"TEMP","PRODUCT",5243)
+
+"TEMP","PRODUCT",5244)
+
+"TEMP","PRODUCT",5245)
+
+"TEMP","PRODUCT",5246)
+
+"TEMP","PRODUCT",5250)
+
+"TEMP","PRODUCT",5251)
+
+"TEMP","PRODUCT",5252)
+
+"TEMP","PRODUCT",5253)
+
+"TEMP","PRODUCT",5254)
+
+"TEMP","PRODUCT",5259)
+
+"TEMP","PRODUCT",5261)
+
+"TEMP","PRODUCT",5263)
+
+"TEMP","PRODUCT",5265)
+
+"TEMP","PRODUCT",5267)
+
+"TEMP","PRODUCT",5273)
+
+"TEMP","PRODUCT",5274)
+
+"TEMP","PRODUCT",5275)
+
+"TEMP","PRODUCT",5276)
+
+"TEMP","PRODUCT",5277)
+
+"TEMP","PRODUCT",5278)
+
+"TEMP","PRODUCT",5279)
+
+"TEMP","PRODUCT",5280)
+
+"TEMP","PRODUCT",5281)
+
+"TEMP","PRODUCT",5282)
+
+"TEMP","PRODUCT",5284)
+
+"TEMP","PRODUCT",5289)
+
+"TEMP","PRODUCT",5290)
+
+"TEMP","PRODUCT",5291)
+
+"TEMP","PRODUCT",5292)
+
+"TEMP","PRODUCT",5298)
+
+"TEMP","PRODUCT",5299)
+
+"TEMP","PRODUCT",5300)
+
+"TEMP","PRODUCT",5301)
+
+"TEMP","PRODUCT",5303)
+
+"TEMP","PRODUCT",5304)
+
+"TEMP","PRODUCT",5305)
+
+"TEMP","PRODUCT",5307)
+
+"TEMP","PRODUCT",5310)
+
+"TEMP","PRODUCT",5315)
+
+"TEMP","PRODUCT",5316)
+
+"TEMP","PRODUCT",5317)
+
+"TEMP","PRODUCT",5319)
+
+"TEMP","PRODUCT",5321)
+
+"TEMP","PRODUCT",5323)
+
+"TEMP","PRODUCT",5325)
+
+"TEMP","PRODUCT",5326)
+
+"TEMP","PRODUCT",5327)
+
+"TEMP","PRODUCT",5329)
+
+"TEMP","PRODUCT",5330)
+
+"TEMP","PRODUCT",5331)
+
+"TEMP","PRODUCT",5332)
+
+"TEMP","PRODUCT",5336)
+
+"TEMP","PRODUCT",5342)
+
+"TEMP","PRODUCT",5343)
+
+"TEMP","PRODUCT",5344)
+
+"TEMP","PRODUCT",5346)
+
+"TEMP","PRODUCT",5350)
+
+"TEMP","PRODUCT",5351)
+
+"TEMP","PRODUCT",5352)
+
+"TEMP","PRODUCT",5353)
+
+"TEMP","PRODUCT",5354)
+
+"TEMP","PRODUCT",5356)
+
+"TEMP","PRODUCT",5358)
+
+"TEMP","PRODUCT",5362)
+
+"TEMP","PRODUCT",5363)
+
+"TEMP","PRODUCT",5364)
+
+"TEMP","PRODUCT",5366)
+
+"TEMP","PRODUCT",5367)
+
+"TEMP","PRODUCT",5370)
+
+"TEMP","PRODUCT",5371)
+
+"TEMP","PRODUCT",5375)
+
+"TEMP","PRODUCT",5383)
+
+"TEMP","PRODUCT",5384)
+
+"TEMP","PRODUCT",5385)
+
+"TEMP","PRODUCT",5386)
+
+"TEMP","PRODUCT",5387)
+
+"TEMP","PRODUCT",5388)
+
+"TEMP","PRODUCT",5389)
+
+"TEMP","PRODUCT",5391)
+
+"TEMP","PRODUCT",5396)
+
+"TEMP","PRODUCT",5397)
+
+"TEMP","PRODUCT",5398)
+
+"TEMP","PRODUCT",5406)
+
+"TEMP","PRODUCT",5412)
+
+"TEMP","PRODUCT",5413)
+
+"TEMP","PRODUCT",5414)
+
+"TEMP","PRODUCT",5415)
+
+"TEMP","PRODUCT",5416)
+
+"TEMP","PRODUCT",5417)
+
+"TEMP","PRODUCT",5418)
+
+"TEMP","PRODUCT",5419)
+
+"TEMP","PRODUCT",5423)
+
+"TEMP","PRODUCT",5424)
+
+"TEMP","PRODUCT",5426)
+
+"TEMP","PRODUCT",5427)
+
+"TEMP","PRODUCT",5428)
+
+"TEMP","PRODUCT",5430)
+
+"TEMP","PRODUCT",5434)
+
+"TEMP","PRODUCT",5437)
+
+"TEMP","PRODUCT",5439)
+
+"TEMP","PRODUCT",5442)
+
+"TEMP","PRODUCT",5443)
+
+"TEMP","PRODUCT",5444)
+
+"TEMP","PRODUCT",5445)
+
+"TEMP","PRODUCT",5446)
+
+"TEMP","PRODUCT",5449)
+
+"TEMP","PRODUCT",5450)
+
+"TEMP","PRODUCT",5452)
+
+"TEMP","PRODUCT",5453)
+
+"TEMP","PRODUCT",5454)
+
+"TEMP","PRODUCT",5456)
+
+"TEMP","PRODUCT",5458)
+
+"TEMP","PRODUCT",5459)
+
+"TEMP","PRODUCT",5461)
+
+"TEMP","PRODUCT",5462)
+
+"TEMP","PRODUCT",5463)
+
+"TEMP","PRODUCT",5464)
+
+"TEMP","PRODUCT",5465)
+
+"TEMP","PRODUCT",5466)
+
+"TEMP","PRODUCT",5467)
+
+"TEMP","PRODUCT",5468)
+
+"TEMP","PRODUCT",5469)
+
+"TEMP","PRODUCT",5470)
+
+"TEMP","PRODUCT",5471)
+
+"TEMP","PRODUCT",5472)
+
+"TEMP","PRODUCT",5473)
+
+"TEMP","PRODUCT",5474)
+
+"TEMP","PRODUCT",5483)
+
+"TEMP","PRODUCT",5485)
+
+"TEMP","PRODUCT",5486)
+
+"TEMP","PRODUCT",5489)
+
+"TEMP","PRODUCT",5492)
+
+"TEMP","PRODUCT",5493)
+
+"TEMP","PRODUCT",5494)
+
+"TEMP","PRODUCT",5495)
+
+"TEMP","PRODUCT",5496)
+
+"TEMP","PRODUCT",5497)
+
+"TEMP","PRODUCT",5499)
+
+"TEMP","PRODUCT",5501)
+
+"TEMP","PRODUCT",5502)
+
+"TEMP","PRODUCT",5505)
+
+"TEMP","PRODUCT",5506)
+
+"TEMP","PRODUCT",5507)
+
+"TEMP","PRODUCT",5508)
+
+"TEMP","PRODUCT",5509)
+
+"TEMP","PRODUCT",5510)
+
+"TEMP","PRODUCT",5514)
+
+"TEMP","PRODUCT",5515)
+
+"TEMP","PRODUCT",5520)
+
+"TEMP","PRODUCT",5521)
+
+"TEMP","PRODUCT",5522)
+
+"TEMP","PRODUCT",5526)
+
+"TEMP","PRODUCT",5529)
+
+"TEMP","PRODUCT",5530)
+
+"TEMP","PRODUCT",5532)
+
+"TEMP","PRODUCT",5533)
+
+"TEMP","PRODUCT",5536)
+
+"TEMP","PRODUCT",5541)
+
+"TEMP","PRODUCT",5545)
+
+"TEMP","PRODUCT",5552)
+
+"TEMP","PRODUCT",5554)
+
+"TEMP","PRODUCT",5558)
+
+"TEMP","PRODUCT",5559)
+
+"TEMP","PRODUCT",5560)
+
+"TEMP","PRODUCT",5561)
+
+"TEMP","PRODUCT",5562)
+
+"TEMP","PRODUCT",5563)
+
+"TEMP","PRODUCT",5567)
+
+"TEMP","PRODUCT",5568)
+
+"TEMP","PRODUCT",5569)
+
+"TEMP","PRODUCT",5571)
+
+"TEMP","PRODUCT",5572)
+
+"TEMP","PRODUCT",5574)
+
+"TEMP","PRODUCT",5575)
+
+"TEMP","PRODUCT",5576)
+
+"TEMP","PRODUCT",5577)
+
+"TEMP","PRODUCT",5578)
+
+"TEMP","PRODUCT",5579)
+
+"TEMP","PRODUCT",5580)
+
+"TEMP","PRODUCT",5581)
+
+"TEMP","PRODUCT",5582)
+
+"TEMP","PRODUCT",5585)
+
+"TEMP","PRODUCT",5586)
+
+"TEMP","PRODUCT",5587)
+
+"TEMP","PRODUCT",5588)
+
+"TEMP","PRODUCT",5589)
+
+"TEMP","PRODUCT",5590)
+
+"TEMP","PRODUCT",5591)
+
+"TEMP","PRODUCT",5592)
+
+"TEMP","PRODUCT",5593)
+
+"TEMP","PRODUCT",5594)
+
+"TEMP","PRODUCT",5595)
+
+"TEMP","PRODUCT",5596)
+
+"TEMP","PRODUCT",5597)
+
+"TEMP","PRODUCT",5598)
+
+"TEMP","PRODUCT",5601)
+
+"TEMP","PRODUCT",5602)
+
+"TEMP","PRODUCT",5603)
+
+"TEMP","PRODUCT",5604)
+
+"TEMP","PRODUCT",5606)
+
+"TEMP","PRODUCT",5608)
+
+"TEMP","PRODUCT",5609)
+
+"TEMP","PRODUCT",5610)
+
+"TEMP","PRODUCT",5615)
+
+"TEMP","PRODUCT",5616)
+
+"TEMP","PRODUCT",5617)
+
+"TEMP","PRODUCT",5618)
+
+"TEMP","PRODUCT",5619)
+
+"TEMP","PRODUCT",5620)
+
+"TEMP","PRODUCT",5621)
+
+"TEMP","PRODUCT",5622)
+
+"TEMP","PRODUCT",5623)
+
+"TEMP","PRODUCT",5624)
+
+"TEMP","PRODUCT",5625)
+
+"TEMP","PRODUCT",5626)
+
+"TEMP","PRODUCT",5627)
+
+"TEMP","PRODUCT",5628)
+
+"TEMP","PRODUCT",5629)
+
+"TEMP","PRODUCT",5630)
+
+"TEMP","PRODUCT",5631)
+
+"TEMP","PRODUCT",5632)
+
+"TEMP","PRODUCT",5636)
+
+"TEMP","PRODUCT",5646)
+
+"TEMP","PRODUCT",5647)
+
+"TEMP","PRODUCT",5648)
+
+"TEMP","PRODUCT",5650)
+
+"TEMP","PRODUCT",5651)
+
+"TEMP","PRODUCT",5652)
+
+"TEMP","PRODUCT",5653)
+
+"TEMP","PRODUCT",5655)
+
+"TEMP","PRODUCT",5658)
+
+"TEMP","PRODUCT",5665)
+
+"TEMP","PRODUCT",5666)
+
+"TEMP","PRODUCT",5667)
+
+"TEMP","PRODUCT",5668)
+
+"TEMP","PRODUCT",5669)
+
+"TEMP","PRODUCT",5671)
+
+"TEMP","PRODUCT",5672)
+
+"TEMP","PRODUCT",5674)
+
+"TEMP","PRODUCT",5675)
+
+"TEMP","PRODUCT",5676)
+
+"TEMP","PRODUCT",5677)
+
+"TEMP","PRODUCT",5678)
+
+"TEMP","PRODUCT",5680)
+
+"TEMP","PRODUCT",5681)
+
+"TEMP","PRODUCT",5694)
+
+"TEMP","PRODUCT",5695)
+
+"TEMP","PRODUCT",5704)
+
+"TEMP","PRODUCT",5706)
+
+"TEMP","PRODUCT",5710)
+
+"TEMP","PRODUCT",5711)
+
+"TEMP","PRODUCT",5712)
+
+"TEMP","PRODUCT",5713)
+
+"TEMP","PRODUCT",5715)
+
+"TEMP","PRODUCT",5716)
+
+"TEMP","PRODUCT",5717)
+
+"TEMP","PRODUCT",5718)
+
+"TEMP","PRODUCT",5719)
+
+"TEMP","PRODUCT",5720)
+
+"TEMP","PRODUCT",5730)
+
+"TEMP","PRODUCT",5731)
+
+"TEMP","PRODUCT",5733)
+
+"TEMP","PRODUCT",5734)
+
+"TEMP","PRODUCT",5735)
+
+"TEMP","PRODUCT",5736)
+
+"TEMP","PRODUCT",5737)
+
+"TEMP","PRODUCT",5738)
+
+"TEMP","PRODUCT",5739)
+
+"TEMP","PRODUCT",5740)
+
+"TEMP","PRODUCT",5741)
+
+"TEMP","PRODUCT",5742)
+
+"TEMP","PRODUCT",5743)
+
+"TEMP","PRODUCT",5744)
+
+"TEMP","PRODUCT",5745)
+
+"TEMP","PRODUCT",5746)
+
+"TEMP","PRODUCT",5747)
+
+"TEMP","PRODUCT",5748)
+
+"TEMP","PRODUCT",5750)
+
+"TEMP","PRODUCT",5751)
+
+"TEMP","PRODUCT",5752)
+
+"TEMP","PRODUCT",5753)
+
+"TEMP","PRODUCT",5754)
+
+"TEMP","PRODUCT",5755)
+
+"TEMP","PRODUCT",5756)
+
+"TEMP","PRODUCT",5757)
+
+"TEMP","PRODUCT",5759)
+
+"TEMP","PRODUCT",5761)
+
+"TEMP","PRODUCT",5765)
+
+"TEMP","PRODUCT",5767)
+
+"TEMP","PRODUCT",5768)
+
+"TEMP","PRODUCT",5769)
+
+"TEMP","PRODUCT",5770)
+
+"TEMP","PRODUCT",5771)
+
+"TEMP","PRODUCT",5772)
+
+"TEMP","PRODUCT",5773)
+
+"TEMP","PRODUCT",5774)
+
+"TEMP","PRODUCT",5778)
+
+"TEMP","PRODUCT",5780)
+
+"TEMP","PRODUCT",5781)
+
+"TEMP","PRODUCT",5782)
+
+"TEMP","PRODUCT",5783)
+
+"TEMP","PRODUCT",5784)
+
+"TEMP","PRODUCT",5785)
+
+"TEMP","PRODUCT",5786)
+
+"TEMP","PRODUCT",5787)
+
+"TEMP","PRODUCT",5788)
+
+"TEMP","PRODUCT",5789)
+
+"TEMP","PRODUCT",5790)
+
+"TEMP","PRODUCT",5791)
+
+"TEMP","PRODUCT",5793)
+
+"TEMP","PRODUCT",5795)
+
+"TEMP","PRODUCT",5804)
+
+"TEMP","PRODUCT",5806)
+
+"TEMP","PRODUCT",5808)
+
+"TEMP","PRODUCT",5809)
+
+"TEMP","PRODUCT",5812)
+
+"TEMP","PRODUCT",5813)
+
+"TEMP","PRODUCT",5814)
+
+"TEMP","PRODUCT",5815)
+
+"TEMP","PRODUCT",5816)
+
+"TEMP","PRODUCT",5817)
+
+"TEMP","PRODUCT",5818)
+
+"TEMP","PRODUCT",5821)
+
+"TEMP","PRODUCT",5822)
+
+"TEMP","PRODUCT",5823)
+
+"TEMP","PRODUCT",5824)
+
+"TEMP","PRODUCT",5825)
+
+"TEMP","PRODUCT",5826)
+
+"TEMP","PRODUCT",5827)
+
+"TEMP","PRODUCT",5828)
+
+"TEMP","PRODUCT",5829)
+
+"TEMP","PRODUCT",5830)
+
+"TEMP","PRODUCT",5831)
+
+"TEMP","PRODUCT",5832)
+
+"TEMP","PRODUCT",5834)
+
+"TEMP","PRODUCT",5836)
+
+"TEMP","PRODUCT",5837)
+
+"TEMP","PRODUCT",5850)
+
+"TEMP","PRODUCT",5851)
+
+"TEMP","PRODUCT",5852)
+
+"TEMP","PRODUCT",5859)
+
+"TEMP","PRODUCT",5860)
+
+"TEMP","PRODUCT",5861)
+
+"TEMP","PRODUCT",5864)
+
+"TEMP","PRODUCT",5865)
+
+"TEMP","PRODUCT",5866)
+
+"TEMP","PRODUCT",5867)
+
+"TEMP","PRODUCT",5868)
+
+"TEMP","PRODUCT",5869)
+
+"TEMP","PRODUCT",5870)
+
+"TEMP","PRODUCT",5871)
+
+"TEMP","PRODUCT",5872)
+
+"TEMP","PRODUCT",5873)
+
+"TEMP","PRODUCT",5874)
+
+"TEMP","PRODUCT",5875)
+
+"TEMP","PRODUCT",5876)
+
+"TEMP","PRODUCT",5877)
+
+"TEMP","PRODUCT",5878)
+
+"TEMP","PRODUCT",5879)
+
+"TEMP","PRODUCT",5880)
+
+"TEMP","PRODUCT",5881)
+
+"TEMP","PRODUCT",5882)
+
+"TEMP","PRODUCT",5883)
+
+"TEMP","PRODUCT",5884)
+
+"TEMP","PRODUCT",5886)
+
+"TEMP","PRODUCT",5887)
+
+"TEMP","PRODUCT",5889)
+
+"TEMP","PRODUCT",5893)
+
+"TEMP","PRODUCT",5894)
+
+"TEMP","PRODUCT",5895)
+
+"TEMP","PRODUCT",5896)
+
+"TEMP","PRODUCT",5899)
+
+"TEMP","PRODUCT",5900)
+
+"TEMP","PRODUCT",5903)
+
+"TEMP","PRODUCT",5912)
+
+"TEMP","PRODUCT",5916)
+
+"TEMP","PRODUCT",5917)
+
+"TEMP","PRODUCT",5918)
+
+"TEMP","PRODUCT",5919)
+
+"TEMP","PRODUCT",5921)
+
+"TEMP","PRODUCT",5922)
+
+"TEMP","PRODUCT",5923)
+
+"TEMP","PRODUCT",5925)
+
+"TEMP","PRODUCT",5926)
+
+"TEMP","PRODUCT",5927)
+
+"TEMP","PRODUCT",5928)
+
+"TEMP","PRODUCT",5929)
+
+"TEMP","PRODUCT",5930)
+
+"TEMP","PRODUCT",5932)
+
+"TEMP","PRODUCT",5933)
+
+"TEMP","PRODUCT",5937)
+
+"TEMP","PRODUCT",5938)
+
+"TEMP","PRODUCT",5939)
+
+"TEMP","PRODUCT",5941)
+
+"TEMP","PRODUCT",5942)
+
+"TEMP","PRODUCT",5943)
+
+"TEMP","PRODUCT",5944)
+
+"TEMP","PRODUCT",5946)
+
+"TEMP","PRODUCT",5949)
+
+"TEMP","PRODUCT",5950)
+
+"TEMP","PRODUCT",5951)
+
+"TEMP","PRODUCT",5956)
+
+"TEMP","PRODUCT",5957)
+
+"TEMP","PRODUCT",5961)
+
+"TEMP","PRODUCT",5964)
+
+"TEMP","PRODUCT",5965)
+
+"TEMP","PRODUCT",5971)
+
+"TEMP","PRODUCT",5972)
+
+"TEMP","PRODUCT",5976)
+
+"TEMP","PRODUCT",5977)
+
+"TEMP","PRODUCT",5978)
+
+"TEMP","PRODUCT",5981)
+
+"TEMP","PRODUCT",5982)
+
+"TEMP","PRODUCT",5983)
+
+"TEMP","PRODUCT",5992)
+
+"TEMP","PRODUCT",5994)
+
+"TEMP","PRODUCT",6007)
+
+"TEMP","PRODUCT",6008)
+
+"TEMP","PRODUCT",6012)
+
+"TEMP","PRODUCT",6013)
+
+"TEMP","PRODUCT",6014)
+
+"TEMP","PRODUCT",6015)
+
+"TEMP","PRODUCT",6016)
+
+"TEMP","PRODUCT",6017)
+
+"TEMP","PRODUCT",6018)
+
+"TEMP","PRODUCT",6019)
+
+"TEMP","PRODUCT",6020)
+
+"TEMP","PRODUCT",6021)
+
+"TEMP","PRODUCT",6022)
+
+"TEMP","PRODUCT",6023)
+
+"TEMP","PRODUCT",6025)
+
+"TEMP","PRODUCT",6027)
+
+"TEMP","PRODUCT",6029)
+
+"TEMP","PRODUCT",6032)
+
+"TEMP","PRODUCT",6033)
+
+"TEMP","PRODUCT",6034)
+
+"TEMP","PRODUCT",6035)
+
+"TEMP","PRODUCT",6037)
+
+"TEMP","PRODUCT",6038)
+
+"TEMP","PRODUCT",6039)
+
+"TEMP","PRODUCT",6040)
+
+"TEMP","PRODUCT",6041)
+
+"TEMP","PRODUCT",6042)
+
+"TEMP","PRODUCT",6043)
+
+"TEMP","PRODUCT",6044)
+
+"TEMP","PRODUCT",6045)
+
+"TEMP","PRODUCT",6046)
+
+"TEMP","PRODUCT",6047)
+
+"TEMP","PRODUCT",6048)
+
+"TEMP","PRODUCT",6049)
+
+"TEMP","PRODUCT",6051)
+
+"TEMP","PRODUCT",6052)
+
+"TEMP","PRODUCT",6053)
+
+"TEMP","PRODUCT",6054)
+
+"TEMP","PRODUCT",6056)
+
+"TEMP","PRODUCT",6058)
+
+"TEMP","PRODUCT",6059)
+
+"TEMP","PRODUCT",6060)
+
+"TEMP","PRODUCT",6064)
+
+"TEMP","PRODUCT",6066)
+
+"TEMP","PRODUCT",6067)
+
+"TEMP","PRODUCT",6073)
+
+"TEMP","PRODUCT",6074)
+
+"TEMP","PRODUCT",6075)
+
+"TEMP","PRODUCT",6080)
+
+"TEMP","PRODUCT",6081)
+
+"TEMP","PRODUCT",6082)
+
+"TEMP","PRODUCT",6083)
+
+"TEMP","PRODUCT",6084)
+
+"TEMP","PRODUCT",6085)
+
+"TEMP","PRODUCT",6086)
+
+"TEMP","PRODUCT",6087)
+
+"TEMP","PRODUCT",6088)
+
+"TEMP","PRODUCT",6089)
+
+"TEMP","PRODUCT",6090)
+
+"TEMP","PRODUCT",6091)
+
+"TEMP","PRODUCT",6093)
+
+"TEMP","PRODUCT",6096)
+
+"TEMP","PRODUCT",6098)
+
+"TEMP","PRODUCT",6099)
+
+"TEMP","PRODUCT",6100)
+
+"TEMP","PRODUCT",6101)
+
+"TEMP","PRODUCT",6102)
+
+"TEMP","PRODUCT",6103)
+
+"TEMP","PRODUCT",6104)
+
+"TEMP","PRODUCT",6106)
+
+"TEMP","PRODUCT",6107)
+
+"TEMP","PRODUCT",6108)
+
+"TEMP","PRODUCT",6109)
+
+"TEMP","PRODUCT",6110)
+
+"TEMP","PRODUCT",6111)
+
+"TEMP","PRODUCT",6112)
+
+"TEMP","PRODUCT",6117)
+
+"TEMP","PRODUCT",6120)
+
+"TEMP","PRODUCT",6122)
+
+"TEMP","PRODUCT",6123)
+
+"TEMP","PRODUCT",6124)
+
+"TEMP","PRODUCT",6126)
+
+"TEMP","PRODUCT",6127)
+
+"TEMP","PRODUCT",6128)
+
+"TEMP","PRODUCT",6131)
+
+"TEMP","PRODUCT",6139)
+
+"TEMP","PRODUCT",6146)
+
+"TEMP","PRODUCT",6147)
+
+"TEMP","PRODUCT",6167)
+
+"TEMP","PRODUCT",6168)
+
+"TEMP","PRODUCT",6169)
+
+"TEMP","PRODUCT",6171)
+
+"TEMP","PRODUCT",6174)
+
+"TEMP","PRODUCT",6175)
+
+"TEMP","PRODUCT",6178)
+
+"TEMP","PRODUCT",6179)
+
+"TEMP","PRODUCT",6182)
+
+"TEMP","PRODUCT",6183)
+
+"TEMP","PRODUCT",6187)
+
+"TEMP","PRODUCT",6188)
+
+"TEMP","PRODUCT",6190)
+
+"TEMP","PRODUCT",6191)
+
+"TEMP","PRODUCT",6194)
+
+"TEMP","PRODUCT",6197)
+
+"TEMP","PRODUCT",6198)
+
+"TEMP","PRODUCT",6202)
+
+"TEMP","PRODUCT",6203)
+
+"TEMP","PRODUCT",6204)
+
+"TEMP","PRODUCT",6205)
+
+"TEMP","PRODUCT",6206)
+
+"TEMP","PRODUCT",6207)
+
+"TEMP","PRODUCT",6208)
+
+"TEMP","PRODUCT",6210)
+
+"TEMP","PRODUCT",6211)
+
+"TEMP","PRODUCT",6212)
+
+"TEMP","PRODUCT",6213)
+
+"TEMP","PRODUCT",6214)
+
+"TEMP","PRODUCT",6215)
+
+"TEMP","PRODUCT",6216)
+
+"TEMP","PRODUCT",6217)
+
+"TEMP","PRODUCT",6218)
+
+"TEMP","PRODUCT",6219)
+
+"TEMP","PRODUCT",6221)
+
+"TEMP","PRODUCT",6222)
+
+"TEMP","PRODUCT",6223)
+
+"TEMP","PRODUCT",6224)
+
+"TEMP","PRODUCT",6227)
+
+"TEMP","PRODUCT",6229)
+
+"TEMP","PRODUCT",6230)
+
+"TEMP","PRODUCT",6231)
+
+"TEMP","PRODUCT",6233)
+
+"TEMP","PRODUCT",6235)
+
+"TEMP","PRODUCT",6237)
+
+"TEMP","PRODUCT",6239)
+
+"TEMP","PRODUCT",6240)
+
+"TEMP","PRODUCT",6241)
+
+"TEMP","PRODUCT",6242)
+
+"TEMP","PRODUCT",6244)
+
+"TEMP","PRODUCT",6245)
+
+"TEMP","PRODUCT",6246)
+
+"TEMP","PRODUCT",6248)
+
+"TEMP","PRODUCT",6249)
+
+"TEMP","PRODUCT",6250)
+
+"TEMP","PRODUCT",6251)
+
+"TEMP","PRODUCT",6252)
+
+"TEMP","PRODUCT",6253)
+
+"TEMP","PRODUCT",6254)
+
+"TEMP","PRODUCT",6255)
+
+"TEMP","PRODUCT",6256)
+
+"TEMP","PRODUCT",6257)
+
+"TEMP","PRODUCT",6258)
+
+"TEMP","PRODUCT",6259)
+
+"TEMP","PRODUCT",6260)
+
+"TEMP","PRODUCT",6261)
+
+"TEMP","PRODUCT",6262)
+
+"TEMP","PRODUCT",6264)
+
+"TEMP","PRODUCT",6266)
+
+"TEMP","PRODUCT",6267)
+
+"TEMP","PRODUCT",6268)
+
+"TEMP","PRODUCT",6269)
+
+"TEMP","PRODUCT",6270)
+
+"TEMP","PRODUCT",6275)
+
+"TEMP","PRODUCT",6276)
+
+"TEMP","PRODUCT",6277)
+
+"TEMP","PRODUCT",6278)
+
+"TEMP","PRODUCT",6283)
+
+"TEMP","PRODUCT",6284)
+
+"TEMP","PRODUCT",6285)
+
+"TEMP","PRODUCT",6286)
+
+"TEMP","PRODUCT",6287)
+
+"TEMP","PRODUCT",6288)
+
+"TEMP","PRODUCT",6289)
+
+"TEMP","PRODUCT",6290)
+
+"TEMP","PRODUCT",6291)
+
+"TEMP","PRODUCT",6292)
+
+"TEMP","PRODUCT",6293)
+
+"TEMP","PRODUCT",6294)
+
+"TEMP","PRODUCT",6295)
+
+"TEMP","PRODUCT",6296)
+
+"TEMP","PRODUCT",6303)
+
+"TEMP","PRODUCT",6304)
+
+"TEMP","PRODUCT",6305)
+
+"TEMP","PRODUCT",6320)
+
+"TEMP","PRODUCT",6324)
+
+"TEMP","PRODUCT",6327)
+
+"TEMP","PRODUCT",6328)
+
+"TEMP","PRODUCT",6329)
+
+"TEMP","PRODUCT",6331)
+
+"TEMP","PRODUCT",6333)
+
+"TEMP","PRODUCT",6334)
+
+"TEMP","PRODUCT",6338)
+
+"TEMP","PRODUCT",6340)
+
+"TEMP","PRODUCT",6344)
+
+"TEMP","PRODUCT",6345)
+
+"TEMP","PRODUCT",6346)
+
+"TEMP","PRODUCT",6347)
+
+"TEMP","PRODUCT",6350)
+
+"TEMP","PRODUCT",6352)
+
+"TEMP","PRODUCT",6353)
+
+"TEMP","PRODUCT",6354)
+
+"TEMP","PRODUCT",6355)
+
+"TEMP","PRODUCT",6356)
+
+"TEMP","PRODUCT",6357)
+
+"TEMP","PRODUCT",6358)
+
+"TEMP","PRODUCT",6359)
+
+"TEMP","PRODUCT",6360)
+
+"TEMP","PRODUCT",6361)
+
+"TEMP","PRODUCT",6362)
+
+"TEMP","PRODUCT",6363)
+
+"TEMP","PRODUCT",6364)
+
+"TEMP","PRODUCT",6365)
+
+"TEMP","PRODUCT",6366)
+
+"TEMP","PRODUCT",6367)
+
+"TEMP","PRODUCT",6368)
+
+"TEMP","PRODUCT",6369)
+
+"TEMP","PRODUCT",6370)
+
+"TEMP","PRODUCT",6371)
+
+"TEMP","PRODUCT",6372)
+
+"TEMP","PRODUCT",6373)
+
+"TEMP","PRODUCT",6374)
+
+"TEMP","PRODUCT",6375)
+
+"TEMP","PRODUCT",6376)
+
+"TEMP","PRODUCT",6377)
+
+"TEMP","PRODUCT",6389)
+
+"TEMP","PRODUCT",6390)
+
+"TEMP","PRODUCT",6391)
+
+"TEMP","PRODUCT",6392)
+
+"TEMP","PRODUCT",6393)
+
+"TEMP","PRODUCT",6394)
+
+"TEMP","PRODUCT",6395)
+
+"TEMP","PRODUCT",6396)
+
+"TEMP","PRODUCT",6397)
+
+"TEMP","PRODUCT",6398)
+
+"TEMP","PRODUCT",6399)
+
+"TEMP","PRODUCT",6400)
+
+"TEMP","PRODUCT",6401)
+
+"TEMP","PRODUCT",6405)
+
+"TEMP","PRODUCT",6406)
+
+"TEMP","PRODUCT",6407)
+
+"TEMP","PRODUCT",6408)
+
+"TEMP","PRODUCT",6409)
+
+"TEMP","PRODUCT",6411)
+
+"TEMP","PRODUCT",6412)
+
+"TEMP","PRODUCT",6413)
+
+"TEMP","PRODUCT",6414)
+
+"TEMP","PRODUCT",6415)
+
+"TEMP","PRODUCT",6416)
+
+"TEMP","PRODUCT",6417)
+
+"TEMP","PRODUCT",6418)
+
+"TEMP","PRODUCT",6419)
+
+"TEMP","PRODUCT",6420)
+
+"TEMP","PRODUCT",6421)
+
+"TEMP","PRODUCT",6423)
+
+"TEMP","PRODUCT",6424)
+
+"TEMP","PRODUCT",6427)
+
+"TEMP","PRODUCT",6428)
+
+"TEMP","PRODUCT",6429)
+
+"TEMP","PRODUCT",6430)
+
+"TEMP","PRODUCT",6431)
+
+"TEMP","PRODUCT",6432)
+
+"TEMP","PRODUCT",6433)
+
+"TEMP","PRODUCT",6434)
+
+"TEMP","PRODUCT",6440)
+
+"TEMP","PRODUCT",6441)
+
+"TEMP","PRODUCT",6444)
+
+"TEMP","PRODUCT",6445)
+
+"TEMP","PRODUCT",6446)
+
+"TEMP","PRODUCT",6447)
+
+"TEMP","PRODUCT",6448)
+
+"TEMP","PRODUCT",6449)
+
+"TEMP","PRODUCT",6450)
+
+"TEMP","PRODUCT",6451)
+
+"TEMP","PRODUCT",6452)
+
+"TEMP","PRODUCT",6453)
+
+"TEMP","PRODUCT",6454)
+
+"TEMP","PRODUCT",6455)
+
+"TEMP","PRODUCT",6456)
+
+"TEMP","PRODUCT",6457)
+
+"TEMP","PRODUCT",6458)
+
+"TEMP","PRODUCT",6459)
+
+"TEMP","PRODUCT",6461)
+
+"TEMP","PRODUCT",6462)
+
+"TEMP","PRODUCT",6463)
+
+"TEMP","PRODUCT",6468)
+
+"TEMP","PRODUCT",6469)
+
+"TEMP","PRODUCT",6473)
+
+"TEMP","PRODUCT",6474)
+
+"TEMP","PRODUCT",6475)
+
+"TEMP","PRODUCT",6481)
+
+"TEMP","PRODUCT",6482)
+
+"TEMP","PRODUCT",6492)
+
+"TEMP","PRODUCT",6493)
+
+"TEMP","PRODUCT",6494)
+
+"TEMP","PRODUCT",6495)
+
+"TEMP","PRODUCT",6496)
+
+"TEMP","PRODUCT",6497)
+
+"TEMP","PRODUCT",6498)
+
+"TEMP","PRODUCT",6499)
+
+"TEMP","PRODUCT",6500)
+
+"TEMP","PRODUCT",6501)
+
+"TEMP","PRODUCT",6504)
+
+"TEMP","PRODUCT",6506)
+
+"TEMP","PRODUCT",6510)
+
+"TEMP","PRODUCT",6511)
+
+"TEMP","PRODUCT",6512)
+
+"TEMP","PRODUCT",6513)
+
+"TEMP","PRODUCT",6514)
+
+"TEMP","PRODUCT",6515)
+
+"TEMP","PRODUCT",6516)
+
+"TEMP","PRODUCT",6517)
+
+"TEMP","PRODUCT",6518)
+
+"TEMP","PRODUCT",6519)
+
+"TEMP","PRODUCT",6520)
+
+"TEMP","PRODUCT",6521)
+
+"TEMP","PRODUCT",6526)
+
+"TEMP","PRODUCT",6529)
+
+"TEMP","PRODUCT",6530)
+
+"TEMP","PRODUCT",6532)
+
+"TEMP","PRODUCT",6533)
+
+"TEMP","PRODUCT",6541)
+
+"TEMP","PRODUCT",6544)
+
+"TEMP","PRODUCT",6546)
+
+"TEMP","PRODUCT",6547)
+
+"TEMP","PRODUCT",6548)
+
+"TEMP","PRODUCT",6549)
+
+"TEMP","PRODUCT",6550)
+
+"TEMP","PRODUCT",6552)
+
+"TEMP","PRODUCT",6554)
+
+"TEMP","PRODUCT",6558)
+
+"TEMP","PRODUCT",6559)
+
+"TEMP","PRODUCT",6561)
+
+"TEMP","PRODUCT",6563)
+
+"TEMP","PRODUCT",6564)
+
+"TEMP","PRODUCT",6565)
+
+"TEMP","PRODUCT",6566)
+
+"TEMP","PRODUCT",6567)
+
+"TEMP","PRODUCT",6568)
+
+"TEMP","PRODUCT",6569)
+
+"TEMP","PRODUCT",6570)
+
+"TEMP","PRODUCT",6571)
+
+"TEMP","PRODUCT",6572)
+
+"TEMP","PRODUCT",6573)
+
+"TEMP","PRODUCT",6574)
+
+"TEMP","PRODUCT",6575)
+
+"TEMP","PRODUCT",6576)
+
+"TEMP","PRODUCT",6577)
+
+"TEMP","PRODUCT",6578)
+
+"TEMP","PRODUCT",6579)
+
+"TEMP","PRODUCT",6580)
+
+"TEMP","PRODUCT",6581)
+
+"TEMP","PRODUCT",6582)
+
+"TEMP","PRODUCT",6583)
+
+"TEMP","PRODUCT",6584)
+
+"TEMP","PRODUCT",6585)
+
+"TEMP","PRODUCT",6586)
+
+"TEMP","PRODUCT",6589)
+
+"TEMP","PRODUCT",6590)
+
+"TEMP","PRODUCT",6591)
+
+"TEMP","PRODUCT",6592)
+
+"TEMP","PRODUCT",6593)
+
+"TEMP","PRODUCT",6594)
+
+"TEMP","PRODUCT",6595)
+
+"TEMP","PRODUCT",6596)
+
+"TEMP","PRODUCT",6597)
+
+"TEMP","PRODUCT",6598)
+
+"TEMP","PRODUCT",6599)
+
+"TEMP","PRODUCT",6600)
+
+"TEMP","PRODUCT",6601)
+
+"TEMP","PRODUCT",6602)
+
+"TEMP","PRODUCT",6603)
+
+"TEMP","PRODUCT",6604)
+
+"TEMP","PRODUCT",6605)
+
+"TEMP","PRODUCT",6610)
+
+"TEMP","PRODUCT",6611)
+
+"TEMP","PRODUCT",6612)
+
+"TEMP","PRODUCT",6613)
+
+"TEMP","PRODUCT",6614)
+
+"TEMP","PRODUCT",6615)
+
+"TEMP","PRODUCT",6616)
+
+"TEMP","PRODUCT",6617)
+
+"TEMP","PRODUCT",6618)
+
+"TEMP","PRODUCT",6619)
+
+"TEMP","PRODUCT",6620)
+
+"TEMP","PRODUCT",6621)
+
+"TEMP","PRODUCT",6622)
+
+"TEMP","PRODUCT",6623)
+
+"TEMP","PRODUCT",6624)
+
+"TEMP","PRODUCT",6625)
+
+"TEMP","PRODUCT",6626)
+
+"TEMP","PRODUCT",6627)
+
+"TEMP","PRODUCT",6628)
+
+"TEMP","PRODUCT",6629)
+
+"TEMP","PRODUCT",6630)
+
+"TEMP","PRODUCT",6631)
+
+"TEMP","PRODUCT",6633)
+
+"TEMP","PRODUCT",6634)
+
+"TEMP","PRODUCT",6636)
+
+"TEMP","PRODUCT",6639)
+
+"TEMP","PRODUCT",6640)
+
+"TEMP","PRODUCT",6650)
+
+"TEMP","PRODUCT",6653)
+
+"TEMP","PRODUCT",6654)
+
+"TEMP","PRODUCT",6655)
+
+"TEMP","PRODUCT",6656)
+
+"TEMP","PRODUCT",6657)
+
+"TEMP","PRODUCT",6658)
+
+"TEMP","PRODUCT",6660)
+
+"TEMP","PRODUCT",6661)
+
+"TEMP","PRODUCT",6668)
+
+"TEMP","PRODUCT",6669)
+
+"TEMP","PRODUCT",6670)
+
+"TEMP","PRODUCT",6671)
+
+"TEMP","PRODUCT",6672)
+
+"TEMP","PRODUCT",6673)
+
+"TEMP","PRODUCT",6674)
+
+"TEMP","PRODUCT",6675)
+
+"TEMP","PRODUCT",6676)
+
+"TEMP","PRODUCT",6677)
+
+"TEMP","PRODUCT",6678)
+
+"TEMP","PRODUCT",6679)
+
+"TEMP","PRODUCT",6680)
+
+"TEMP","PRODUCT",6681)
+
+"TEMP","PRODUCT",6682)
+
+"TEMP","PRODUCT",6683)
+
+"TEMP","PRODUCT",6684)
+
+"TEMP","PRODUCT",6685)
+
+"TEMP","PRODUCT",6686)
+
+"TEMP","PRODUCT",6687)
+
+"TEMP","PRODUCT",6688)
+
+"TEMP","PRODUCT",6689)
+
+"TEMP","PRODUCT",6690)
+
+"TEMP","PRODUCT",6691)
+
+"TEMP","PRODUCT",6692)
+
+"TEMP","PRODUCT",6693)
+
+"TEMP","PRODUCT",6694)
+
+"TEMP","PRODUCT",6695)
+
+"TEMP","PRODUCT",6697)
+
+"TEMP","PRODUCT",6698)
+
+"TEMP","PRODUCT",6700)
+
+"TEMP","PRODUCT",6701)
+
+"TEMP","PRODUCT",6702)
+
+"TEMP","PRODUCT",6703)
+
+"TEMP","PRODUCT",6705)
+
+"TEMP","PRODUCT",6707)
+
+"TEMP","PRODUCT",6709)
+
+"TEMP","PRODUCT",6713)
+
+"TEMP","PRODUCT",6714)
+
+"TEMP","PRODUCT",6715)
+
+"TEMP","PRODUCT",6716)
+
+"TEMP","PRODUCT",6719)
+
+"TEMP","PRODUCT",6720)
+
+"TEMP","PRODUCT",6723)
+
+"TEMP","PRODUCT",6730)
+
+"TEMP","PRODUCT",6734)
+
+"TEMP","PRODUCT",6774)
+
+"TEMP","PRODUCT",6775)
+
+"TEMP","PRODUCT",6776)
+
+"TEMP","PRODUCT",6777)
+
+"TEMP","PRODUCT",6780)
+
+"TEMP","PRODUCT",6781)
+
+"TEMP","PRODUCT",6782)
+
+"TEMP","PRODUCT",6783)
+
+"TEMP","PRODUCT",6784)
+
+"TEMP","PRODUCT",6785)
+
+"TEMP","PRODUCT",6786)
+
+"TEMP","PRODUCT",6787)
+
+"TEMP","PRODUCT",6788)
+
+"TEMP","PRODUCT",6789)
+
+"TEMP","PRODUCT",6790)
+
+"TEMP","PRODUCT",6791)
+
+"TEMP","PRODUCT",6792)
+
+"TEMP","PRODUCT",6793)
+
+"TEMP","PRODUCT",6794)
+
+"TEMP","PRODUCT",6795)
+
+"TEMP","PRODUCT",6798)
+
+"TEMP","PRODUCT",6799)
+
+"TEMP","PRODUCT",6800)
+
+"TEMP","PRODUCT",6801)
+
+"TEMP","PRODUCT",6802)
+
+"TEMP","PRODUCT",6803)
+
+"TEMP","PRODUCT",6804)
+
+"TEMP","PRODUCT",6805)
+
+"TEMP","PRODUCT",6806)
+
+"TEMP","PRODUCT",6807)
+
+"TEMP","PRODUCT",6808)
+
+"TEMP","PRODUCT",6812)
+
+"TEMP","PRODUCT",6813)
+
+"TEMP","PRODUCT",6814)
+
+"TEMP","PRODUCT",6815)
+
+"TEMP","PRODUCT",6816)
+
+"TEMP","PRODUCT",6817)
+
+"TEMP","PRODUCT",6818)
+
+"TEMP","PRODUCT",6819)
+
+"TEMP","PRODUCT",6820)
+
+"TEMP","PRODUCT",6821)
+
+"TEMP","PRODUCT",6822)
+
+"TEMP","PRODUCT",6823)
+
+"TEMP","PRODUCT",6824)
+
+"TEMP","PRODUCT",6825)
+
+"TEMP","PRODUCT",6826)
+
+"TEMP","PRODUCT",6827)
+
+"TEMP","PRODUCT",6828)
+
+"TEMP","PRODUCT",6829)
+
+"TEMP","PRODUCT",6830)
+
+"TEMP","PRODUCT",6832)
+
+"TEMP","PRODUCT",6833)
+
+"TEMP","PRODUCT",6834)
+
+"TEMP","PRODUCT",6835)
+
+"TEMP","PRODUCT",6836)
+
+"TEMP","PRODUCT",6837)
+
+"TEMP","PRODUCT",6838)
+
+"TEMP","PRODUCT",6839)
+
+"TEMP","PRODUCT",6840)
+
+"TEMP","PRODUCT",6841)
+
+"TEMP","PRODUCT",6842)
+
+"TEMP","PRODUCT",6843)
+
+"TEMP","PRODUCT",6844)
+
+"TEMP","PRODUCT",6845)
+
+"TEMP","PRODUCT",6847)
+
+"TEMP","PRODUCT",6848)
+
+"TEMP","PRODUCT",6849)
+
+"TEMP","PRODUCT",6850)
+
+"TEMP","PRODUCT",6851)
+
+"TEMP","PRODUCT",6852)
+
+"TEMP","PRODUCT",6853)
+
+"TEMP","PRODUCT",6854)
+
+"TEMP","PRODUCT",6855)
+
+"TEMP","PRODUCT",6859)
+
+"TEMP","PRODUCT",6860)
+
+"TEMP","PRODUCT",6861)
+
+"TEMP","PRODUCT",6863)
+
+"TEMP","PRODUCT",6864)
+
+"TEMP","PRODUCT",6865)
+
+"TEMP","PRODUCT",6866)
+
+"TEMP","PRODUCT",6867)
+
+"TEMP","PRODUCT",6872)
+
+"TEMP","PRODUCT",6873)
+
+"TEMP","PRODUCT",6874)
+
+"TEMP","PRODUCT",6875)
+
+"TEMP","PRODUCT",6876)
+
+"TEMP","PRODUCT",6877)
+
+"TEMP","PRODUCT",6878)
+
+"TEMP","PRODUCT",6879)
+
+"TEMP","PRODUCT",6880)
+
+"TEMP","PRODUCT",6881)
+
+"TEMP","PRODUCT",6882)
+
+"TEMP","PRODUCT",6883)
+
+"TEMP","PRODUCT",6884)
+
+"TEMP","PRODUCT",6885)
+
+"TEMP","PRODUCT",6886)
+
+"TEMP","PRODUCT",6887)
+
+"TEMP","PRODUCT",6888)
+
+"TEMP","PRODUCT",6889)
+
+"TEMP","PRODUCT",6890)
+
+"TEMP","PRODUCT",6893)
+
+"TEMP","PRODUCT",6894)
+
+"TEMP","PRODUCT",6895)
+
+"TEMP","PRODUCT",6896)
+
+"TEMP","PRODUCT",6897)
+
+"TEMP","PRODUCT",6898)
+
+"TEMP","PRODUCT",6899)
+
+"TEMP","PRODUCT",6900)
+
+"TEMP","PRODUCT",6902)
+
+"TEMP","PRODUCT",6903)
+
+"TEMP","PRODUCT",6904)
+
+"TEMP","PRODUCT",6905)
+
+"TEMP","PRODUCT",6906)
+
+"TEMP","PRODUCT",6907)
+
+"TEMP","PRODUCT",6909)
+
+"TEMP","PRODUCT",6910)
+
+"TEMP","PRODUCT",6911)
+
+"TEMP","PRODUCT",6912)
+
+"TEMP","PRODUCT",6913)
+
+"TEMP","PRODUCT",6914)
+
+"TEMP","PRODUCT",6917)
+
+"TEMP","PRODUCT",6918)
+
+"TEMP","PRODUCT",6919)
+
+"TEMP","PRODUCT",6920)
+
+"TEMP","PRODUCT",6922)
+
+"TEMP","PRODUCT",6929)
+
+"TEMP","PRODUCT",6930)
+
+"TEMP","PRODUCT",6931)
+
+"TEMP","PRODUCT",6932)
+
+"TEMP","PRODUCT",6933)
+
+"TEMP","PRODUCT",6934)
+
+"TEMP","PRODUCT",6935)
+
+"TEMP","PRODUCT",6936)
+
+"TEMP","PRODUCT",6937)
+
+"TEMP","PRODUCT",6938)
+
+"TEMP","PRODUCT",6939)
+
+"TEMP","PRODUCT",6940)
+
+"TEMP","PRODUCT",6941)
+
+"TEMP","PRODUCT",6942)
+
+"TEMP","PRODUCT",6945)
+
+"TEMP","PRODUCT",6946)
+
+"TEMP","PRODUCT",6947)
+
+"TEMP","PRODUCT",6948)
+
+"TEMP","PRODUCT",6949)
+
+"TEMP","PRODUCT",6950)
+
+"TEMP","PRODUCT",6951)
+
+"TEMP","PRODUCT",6952)
+
+"TEMP","PRODUCT",6953)
+
+"TEMP","PRODUCT",6954)
+
+"TEMP","PRODUCT",6955)
+
+"TEMP","PRODUCT",6956)
+
+"TEMP","PRODUCT",6957)
+
+"TEMP","PRODUCT",6960)
+
+"TEMP","PRODUCT",6962)
+
+"TEMP","PRODUCT",6964)
+
+"TEMP","PRODUCT",6965)
+
+"TEMP","PRODUCT",6966)
+
+"TEMP","PRODUCT",6967)
+
+"TEMP","PRODUCT",6968)
+
+"TEMP","PRODUCT",6970)
+
+"TEMP","PRODUCT",6971)
+
+"TEMP","PRODUCT",6972)
+
+"TEMP","PRODUCT",6973)
+
+"TEMP","PRODUCT",6974)
+
+"TEMP","PRODUCT",6975)
+
+"TEMP","PRODUCT",6976)
+
+"TEMP","PRODUCT",6978)
+
+"TEMP","PRODUCT",6979)
+
+"TEMP","PRODUCT",6981)
+
+"TEMP","PRODUCT",6982)
+
+"TEMP","PRODUCT",6983)
+
+"TEMP","PRODUCT",6985)
+
+"TEMP","PRODUCT",6987)
+
+"TEMP","PRODUCT",6989)
+
+"TEMP","PRODUCT",6990)
+
+"TEMP","PRODUCT",6991)
+
+"TEMP","PRODUCT",6992)
+
+"TEMP","PRODUCT",6993)
+
+"TEMP","PRODUCT",6994)
+
+"TEMP","PRODUCT",6996)
+
+"TEMP","PRODUCT",6997)
+
+"TEMP","PRODUCT",6998)
+
+"TEMP","PRODUCT",6999)
+
+"TEMP","PRODUCT",7000)
+
+"TEMP","PRODUCT",7001)
+
+"TEMP","PRODUCT",7002)
+
+"TEMP","PRODUCT",7003)
+
+"TEMP","PRODUCT",7004)
+
+"TEMP","PRODUCT",7005)
+
+"TEMP","PRODUCT",7007)
+
+"TEMP","PRODUCT",7008)
+
+"TEMP","PRODUCT",7009)
+
+"TEMP","PRODUCT",7010)
+
+"TEMP","PRODUCT",7012)
+
+"TEMP","PRODUCT",7014)
+
+"TEMP","PRODUCT",7015)
+
+"TEMP","PRODUCT",7016)
+
+"TEMP","PRODUCT",7018)
+
+"TEMP","PRODUCT",7019)
+
+"TEMP","PRODUCT",7020)
+
+"TEMP","PRODUCT",7021)
+
+"TEMP","PRODUCT",7022)
+
+"TEMP","PRODUCT",7023)
+
+"TEMP","PRODUCT",7026)
+
+"TEMP","PRODUCT",7027)
+
+"TEMP","PRODUCT",7028)
+
+"TEMP","PRODUCT",7029)
+
+"TEMP","PRODUCT",7034)
+
+"TEMP","PRODUCT",7035)
+
+"TEMP","PRODUCT",7039)
+
+"TEMP","PRODUCT",7040)
+
+"TEMP","PRODUCT",7042)
+
+"TEMP","PRODUCT",7045)
+
+"TEMP","PRODUCT",7047)
+
+"TEMP","PRODUCT",7048)
+
+"TEMP","PRODUCT",7049)
+
+"TEMP","PRODUCT",7050)
+
+"TEMP","PRODUCT",7052)
+
+"TEMP","PRODUCT",7053)
+
+"TEMP","PRODUCT",7055)
+
+"TEMP","PRODUCT",7058)
+
+"TEMP","PRODUCT",7061)
+
+"TEMP","PRODUCT",7062)
+
+"TEMP","PRODUCT",7065)
+
+"TEMP","PRODUCT",7066)
+
+"TEMP","PRODUCT",7067)
+
+"TEMP","PRODUCT",7068)
+
+"TEMP","PRODUCT",7069)
+
+"TEMP","PRODUCT",7070)
+
+"TEMP","PRODUCT",7071)
+
+"TEMP","PRODUCT",7072)
+
+"TEMP","PRODUCT",7073)
+
+"TEMP","PRODUCT",7074)
+
+"TEMP","PRODUCT",7076)
+
+"TEMP","PRODUCT",7077)
+
+"TEMP","PRODUCT",7078)
+
+"TEMP","PRODUCT",7079)
+
+"TEMP","PRODUCT",7082)
+
+"TEMP","PRODUCT",7083)
+
+"TEMP","PRODUCT",7084)
+
+"TEMP","PRODUCT",7085)
+
+"TEMP","PRODUCT",7086)
+
+"TEMP","PRODUCT",7087)
+
+"TEMP","PRODUCT",7088)
+
+"TEMP","PRODUCT",7089)
+
+"TEMP","PRODUCT",7091)
+
+"TEMP","PRODUCT",7092)
+
+"TEMP","PRODUCT",7095)
+
+"TEMP","PRODUCT",7096)
+
+"TEMP","PRODUCT",7097)
+
+"TEMP","PRODUCT",7098)
+
+"TEMP","PRODUCT",7099)
+
+"TEMP","PRODUCT",7100)
+
+"TEMP","PRODUCT",7101)
+
+"TEMP","PRODUCT",7103)
+
+"TEMP","PRODUCT",7105)
+
+"TEMP","PRODUCT",7106)
+
+"TEMP","PRODUCT",7107)
+
+"TEMP","PRODUCT",7108)
+
+"TEMP","PRODUCT",7109)
+
+"TEMP","PRODUCT",7110)
+
+"TEMP","PRODUCT",7111)
+
+"TEMP","PRODUCT",7112)
+
+"TEMP","PRODUCT",7113)
+
+"TEMP","PRODUCT",7114)
+
+"TEMP","PRODUCT",7115)
+
+"TEMP","PRODUCT",7116)
+
+"TEMP","PRODUCT",7117)
+
+"TEMP","PRODUCT",7118)
+
+"TEMP","PRODUCT",7119)
+
+"TEMP","PRODUCT",7120)
+
+"TEMP","PRODUCT",7121)
+
+"TEMP","PRODUCT",7123)
+
+"TEMP","PRODUCT",7125)
+
+"TEMP","PRODUCT",7126)
+
+"TEMP","PRODUCT",7127)
+
+"TEMP","PRODUCT",7128)
+
+"TEMP","PRODUCT",7129)
+
+"TEMP","PRODUCT",7130)
+
+"TEMP","PRODUCT",7131)
+
+"TEMP","PRODUCT",7132)
+
+"TEMP","PRODUCT",7133)
+
+"TEMP","PRODUCT",7134)
+
+"TEMP","PRODUCT",7135)
+
+"TEMP","PRODUCT",7136)
+
+"TEMP","PRODUCT",7141)
+
+"TEMP","PRODUCT",7142)
+
+"TEMP","PRODUCT",7146)
+
+"TEMP","PRODUCT",7147)
+
+"TEMP","PRODUCT",7148)
+
+"TEMP","PRODUCT",7149)
+
+"TEMP","PRODUCT",7150)
+
+"TEMP","PRODUCT",7151)
+
+"TEMP","PRODUCT",7152)
+
+"TEMP","PRODUCT",7153)
+
+"TEMP","PRODUCT",7154)
+
+"TEMP","PRODUCT",7155)
+
+"TEMP","PRODUCT",7156)
+
+"TEMP","PRODUCT",7160)
+
+"TEMP","PRODUCT",7166)
+
+"TEMP","PRODUCT",7167)
+
+"TEMP","PRODUCT",7168)
+
+"TEMP","PRODUCT",7169)
+
+"TEMP","PRODUCT",7170)
+
+"TEMP","PRODUCT",7171)
+
+"TEMP","PRODUCT",7172)
+
+"TEMP","PRODUCT",7173)
+
+"TEMP","PRODUCT",7174)
+
+"TEMP","PRODUCT",7177)
+
+"TEMP","PRODUCT",7178)
+
+"TEMP","PRODUCT",7179)
+
+"TEMP","PRODUCT",7180)
+
+"TEMP","PRODUCT",7182)
+
+"TEMP","PRODUCT",7183)
+
+"TEMP","PRODUCT",7184)
+
+"TEMP","PRODUCT",7185)
+
+"TEMP","PRODUCT",7186)
+
+"TEMP","PRODUCT",7187)
+
+"TEMP","PRODUCT",7188)
+
+"TEMP","PRODUCT",7189)
+
+"TEMP","PRODUCT",7190)
+
+"TEMP","PRODUCT",7192)
+
+"TEMP","PRODUCT",7195)
+
+"TEMP","PRODUCT",7196)
+
+"TEMP","PRODUCT",7197)
+
+"TEMP","PRODUCT",7199)
+
+"TEMP","PRODUCT",7200)
+
+"TEMP","PRODUCT",7201)
+
+"TEMP","PRODUCT",7202)
+
+"TEMP","PRODUCT",7203)
+
+"TEMP","PRODUCT",7204)
+
+"TEMP","PRODUCT",7205)
+
+"TEMP","PRODUCT",7206)
+
+"TEMP","PRODUCT",7207)
+
+"TEMP","PRODUCT",7208)
+
+"TEMP","PRODUCT",7209)
+
+"TEMP","PRODUCT",7210)
+
+"TEMP","PRODUCT",7211)
+
+"TEMP","PRODUCT",7212)
+
+"TEMP","PRODUCT",7213)
+
+"TEMP","PRODUCT",7214)
+
+"TEMP","PRODUCT",7215)
+
+"TEMP","PRODUCT",7216)
+
+"TEMP","PRODUCT",7217)
+
+"TEMP","PRODUCT",7218)
+
+"TEMP","PRODUCT",7219)
+
+"TEMP","PRODUCT",7220)
+
+"TEMP","PRODUCT",7221)
+
+"TEMP","PRODUCT",7222)
+
+"TEMP","PRODUCT",7223)
+
+"TEMP","PRODUCT",7224)
+
+"TEMP","PRODUCT",7225)
+
+"TEMP","PRODUCT",7226)
+
+"TEMP","PRODUCT",7227)
+
+"TEMP","PRODUCT",7228)
+
+"TEMP","PRODUCT",7229)
+
+"TEMP","PRODUCT",7230)
+
+"TEMP","PRODUCT",7231)
+
+"TEMP","PRODUCT",7232)
+
+"TEMP","PRODUCT",7233)
+
+"TEMP","PRODUCT",7234)
+
+"TEMP","PRODUCT",7235)
+
+"TEMP","PRODUCT",7236)
+
+"TEMP","PRODUCT",7237)
+
+"TEMP","PRODUCT",7238)
+
+"TEMP","PRODUCT",7239)
+
+"TEMP","PRODUCT",7240)
+
+"TEMP","PRODUCT",7241)
+
+"TEMP","PRODUCT",7242)
+
+"TEMP","PRODUCT",7243)
+
+"TEMP","PRODUCT",7244)
+
+"TEMP","PRODUCT",7245)
+
+"TEMP","PRODUCT",7246)
+
+"TEMP","PRODUCT",7247)
+
+"TEMP","PRODUCT",7248)
+
+"TEMP","PRODUCT",7249)
+
+"TEMP","PRODUCT",7250)
+
+"TEMP","PRODUCT",7257)
+
+"TEMP","PRODUCT",7258)
+
+"TEMP","PRODUCT",7259)
+
+"TEMP","PRODUCT",7261)
+
+"TEMP","PRODUCT",7265)
+
+"TEMP","PRODUCT",7266)
+
+"TEMP","PRODUCT",7268)
+
+"TEMP","PRODUCT",7269)
+
+"TEMP","PRODUCT",7270)
+
+"TEMP","PRODUCT",7271)
+
+"TEMP","PRODUCT",7272)
+
+"TEMP","PRODUCT",7274)
+
+"TEMP","PRODUCT",7276)
+
+"TEMP","PRODUCT",7277)
+
+"TEMP","PRODUCT",7278)
+
+"TEMP","PRODUCT",7279)
+
+"TEMP","PRODUCT",7280)
+
+"TEMP","PRODUCT",7281)
+
+"TEMP","PRODUCT",7282)
+
+"TEMP","PRODUCT",7283)
+
+"TEMP","PRODUCT",7284)
+
+"TEMP","PRODUCT",7285)
+
+"TEMP","PRODUCT",7286)
+
+"TEMP","PRODUCT",7289)
+
+"TEMP","PRODUCT",7290)
+
+"TEMP","PRODUCT",7292)
+
+"TEMP","PRODUCT",7293)
+
+"TEMP","PRODUCT",7294)
+
+"TEMP","PRODUCT",7295)
+
+"TEMP","PRODUCT",7296)
+
+"TEMP","PRODUCT",7297)
+
+"TEMP","PRODUCT",7298)
+
+"TEMP","PRODUCT",7299)
+
+"TEMP","PRODUCT",7300)
+
+"TEMP","PRODUCT",7301)
+
+"TEMP","PRODUCT",7302)
+
+"TEMP","PRODUCT",7303)
+
+"TEMP","PRODUCT",7304)
+
+"TEMP","PRODUCT",7306)
+
+"TEMP","PRODUCT",7307)
+
+"TEMP","PRODUCT",7308)
+
+"TEMP","PRODUCT",7311)
+
+"TEMP","PRODUCT",7312)
+
+"TEMP","PRODUCT",7313)
+
+"TEMP","PRODUCT",7316)
+
+"TEMP","PRODUCT",7317)
+
+"TEMP","PRODUCT",7318)
+
+"TEMP","PRODUCT",7319)
+
+"TEMP","PRODUCT",7321)
+
+"TEMP","PRODUCT",7323)
+
+"TEMP","PRODUCT",7325)
+
+"TEMP","PRODUCT",7326)
+
+"TEMP","PRODUCT",7327)
+
+"TEMP","PRODUCT",7328)
+
+"TEMP","PRODUCT",7330)
+
+"TEMP","PRODUCT",7331)
+
+"TEMP","PRODUCT",7332)
+
+"TEMP","PRODUCT",7333)
+
+"TEMP","PRODUCT",7334)
+
+"TEMP","PRODUCT",7335)
+
+"TEMP","PRODUCT",7336)
+
+"TEMP","PRODUCT",7337)
+
+"TEMP","PRODUCT",7338)
+
+"TEMP","PRODUCT",7340)
+
+"TEMP","PRODUCT",7341)
+
+"TEMP","PRODUCT",7342)
+
+"TEMP","PRODUCT",7343)
+
+"TEMP","PRODUCT",7344)
+
+"TEMP","PRODUCT",7345)
+
+"TEMP","PRODUCT",7349)
+
+"TEMP","PRODUCT",7350)
+
+"TEMP","PRODUCT",7351)
+
+"TEMP","PRODUCT",7352)
+
+"TEMP","PRODUCT",7356)
+
+"TEMP","PRODUCT",7358)
+
+"TEMP","PRODUCT",7359)
+
+"TEMP","PRODUCT",7360)
+
+"TEMP","PRODUCT",7362)
+
+"TEMP","PRODUCT",7364)
+
+"TEMP","PRODUCT",7369)
+
+"TEMP","PRODUCT",7372)
+
+"TEMP","PRODUCT",7374)
+
+"TEMP","PRODUCT",7375)
+
+"TEMP","PRODUCT",7377)
+
+"TEMP","PRODUCT",7378)
+
+"TEMP","PRODUCT",7379)
+
+"TEMP","PRODUCT",7381)
+
+"TEMP","PRODUCT",7382)
+
+"TEMP","PRODUCT",7383)
+
+"TEMP","PRODUCT",7384)
+
+"TEMP","PRODUCT",7385)
+
+"TEMP","PRODUCT",7386)
+
+"TEMP","PRODUCT",7387)
+
+"TEMP","PRODUCT",7388)
+
+"TEMP","PRODUCT",7389)
+
+"TEMP","PRODUCT",7390)
+
+"TEMP","PRODUCT",7391)
+
+"TEMP","PRODUCT",7392)
+
+"TEMP","PRODUCT",7393)
+
+"TEMP","PRODUCT",7394)
+
+"TEMP","PRODUCT",7395)
+
+"TEMP","PRODUCT",7396)
+
+"TEMP","PRODUCT",7397)
+
+"TEMP","PRODUCT",7398)
+
+"TEMP","PRODUCT",7399)
+
+"TEMP","PRODUCT",7400)
+
+"TEMP","PRODUCT",7401)
+
+"TEMP","PRODUCT",7402)
+
+"TEMP","PRODUCT",7403)
+
+"TEMP","PRODUCT",7404)
+
+"TEMP","PRODUCT",7405)
+
+"TEMP","PRODUCT",7406)
+
+"TEMP","PRODUCT",7407)
+
+"TEMP","PRODUCT",7409)
+
+"TEMP","PRODUCT",7410)
+
+"TEMP","PRODUCT",7411)
+
+"TEMP","PRODUCT",7412)
+
+"TEMP","PRODUCT",7413)
+
+"TEMP","PRODUCT",7414)
+
+"TEMP","PRODUCT",7415)
+
+"TEMP","PRODUCT",7416)
+
+"TEMP","PRODUCT",7417)
+
+"TEMP","PRODUCT",7418)
+
+"TEMP","PRODUCT",7419)
+
+"TEMP","PRODUCT",7420)
+
+"TEMP","PRODUCT",7421)
+
+"TEMP","PRODUCT",7422)
+
+"TEMP","PRODUCT",7423)
+
+"TEMP","PRODUCT",7424)
+
+"TEMP","PRODUCT",7425)
+
+"TEMP","PRODUCT",7427)
+
+"TEMP","PRODUCT",7428)
+
+"TEMP","PRODUCT",7429)
+
+"TEMP","PRODUCT",7434)
+
+"TEMP","PRODUCT",7436)
+
+"TEMP","PRODUCT",7437)
+
+"TEMP","PRODUCT",7438)
+
+"TEMP","PRODUCT",7439)
+
+"TEMP","PRODUCT",7440)
+
+"TEMP","PRODUCT",7441)
+
+"TEMP","PRODUCT",7443)
+
+"TEMP","PRODUCT",7444)
+
+"TEMP","PRODUCT",7445)
+
+"TEMP","PRODUCT",7446)
+
+"TEMP","PRODUCT",7449)
+
+"TEMP","PRODUCT",7457)
+
+"TEMP","PRODUCT",7458)
+
+"TEMP","PRODUCT",7459)
+
+"TEMP","PRODUCT",7460)
+
+"TEMP","PRODUCT",7461)
+
+"TEMP","PRODUCT",7462)
+
+"TEMP","PRODUCT",7463)
+
+"TEMP","PRODUCT",7464)
+
+"TEMP","PRODUCT",7465)
+
+"TEMP","PRODUCT",7466)
+
+"TEMP","PRODUCT",7467)
+
+"TEMP","PRODUCT",7468)
+
+"TEMP","PRODUCT",7469)
+
+"TEMP","PRODUCT",7470)
+
+"TEMP","PRODUCT",7471)
+
+"TEMP","PRODUCT",7472)
+
+"TEMP","PRODUCT",7473)
+
+"TEMP","PRODUCT",7474)
+
+"TEMP","PRODUCT",7475)
+
+"TEMP","PRODUCT",7476)
+
+"TEMP","PRODUCT",7477)
+
+"TEMP","PRODUCT",7478)
+
+"TEMP","PRODUCT",7479)
+
+"TEMP","PRODUCT",7480)
+
+"TEMP","PRODUCT",7481)
+
+"TEMP","PRODUCT",7484)
+
+"TEMP","PRODUCT",7485)
+
+"TEMP","PRODUCT",7487)
+
+"TEMP","PRODUCT",7489)
+
+"TEMP","PRODUCT",7490)
+
+"TEMP","PRODUCT",7491)
+
+"TEMP","PRODUCT",7492)
+
+"TEMP","PRODUCT",7493)
+
+"TEMP","PRODUCT",7496)
+
+"TEMP","PRODUCT",7497)
+
+"TEMP","PRODUCT",7498)
+
+"TEMP","PRODUCT",7499)
+
+"TEMP","PRODUCT",7500)
+
+"TEMP","PRODUCT",7501)
+
+"TEMP","PRODUCT",7502)
+
+"TEMP","PRODUCT",7503)
+
+"TEMP","PRODUCT",7504)
+
+"TEMP","PRODUCT",7505)
+
+"TEMP","PRODUCT",7507)
+
+"TEMP","PRODUCT",7508)
+
+"TEMP","PRODUCT",7514)
+
+"TEMP","PRODUCT",7518)
+
+"TEMP","PRODUCT",7519)
+
+"TEMP","PRODUCT",7520)
+
+"TEMP","PRODUCT",7522)
+
+"TEMP","PRODUCT",7523)
+
+"TEMP","PRODUCT",7525)
+
+"TEMP","PRODUCT",7542)
+
+"TEMP","PRODUCT",7543)
+
+"TEMP","PRODUCT",7547)
+
+"TEMP","PRODUCT",7549)
+
+"TEMP","PRODUCT",7550)
+
+"TEMP","PRODUCT",7551)
+
+"TEMP","PRODUCT",7553)
+
+"TEMP","PRODUCT",7554)
+
+"TEMP","PRODUCT",7557)
+
+"TEMP","PRODUCT",7559)
+
+"TEMP","PRODUCT",7560)
+
+"TEMP","PRODUCT",7561)
+
+"TEMP","PRODUCT",7562)
+
+"TEMP","PRODUCT",7563)
+
+"TEMP","PRODUCT",7565)
+
+"TEMP","PRODUCT",7566)
+
+"TEMP","PRODUCT",7568)
+
+"TEMP","PRODUCT",7569)
+
+"TEMP","PRODUCT",7570)
+
+"TEMP","PRODUCT",7571)
+
+"TEMP","PRODUCT",7572)
+
+"TEMP","PRODUCT",7573)
+
+"TEMP","PRODUCT",7574)
+
+"TEMP","PRODUCT",7576)
+
+"TEMP","PRODUCT",7577)
+
+"TEMP","PRODUCT",7578)
+
+"TEMP","PRODUCT",7580)
+
+"TEMP","PRODUCT",7582)
+
+"TEMP","PRODUCT",7584)
+
+"TEMP","PRODUCT",7585)
+
+"TEMP","PRODUCT",7586)
+
+"TEMP","PRODUCT",7588)
+
+"TEMP","PRODUCT",7590)
+
+"TEMP","PRODUCT",7595)
+
+"TEMP","PRODUCT",7596)
+
+"TEMP","PRODUCT",7599)
+
+"TEMP","PRODUCT",7601)
+
+"TEMP","PRODUCT",7603)
+
+"TEMP","PRODUCT",7605)
+
+"TEMP","PRODUCT",7606)
+
+"TEMP","PRODUCT",7609)
+
+"TEMP","PRODUCT",7610)
+
+"TEMP","PRODUCT",7611)
+
+"TEMP","PRODUCT",7612)
+
+"TEMP","PRODUCT",7613)
+
+"TEMP","PRODUCT",7614)
+
+"TEMP","PRODUCT",7615)
+
+"TEMP","PRODUCT",7616)
+
+"TEMP","PRODUCT",7617)
+
+"TEMP","PRODUCT",7619)
+
+"TEMP","PRODUCT",7620)
+
+"TEMP","PRODUCT",7621)
+
+"TEMP","PRODUCT",7622)
+
+"TEMP","PRODUCT",7623)
+
+"TEMP","PRODUCT",7624)
+
+"TEMP","PRODUCT",7625)
+
+"TEMP","PRODUCT",7626)
+
+"TEMP","PRODUCT",7627)
+
+"TEMP","PRODUCT",7628)
+
+"TEMP","PRODUCT",7629)
+
+"TEMP","PRODUCT",7632)
+
+"TEMP","PRODUCT",7633)
+
+"TEMP","PRODUCT",7639)
+
+"TEMP","PRODUCT",7640)
+
+"TEMP","PRODUCT",7641)
+
+"TEMP","PRODUCT",7643)
+
+"TEMP","PRODUCT",7647)
+
+"TEMP","PRODUCT",7649)
+
+"TEMP","PRODUCT",7652)
+
+"TEMP","PRODUCT",7654)
+
+"TEMP","PRODUCT",7655)
+
+"TEMP","PRODUCT",7660)
+
+"TEMP","PRODUCT",7661)
+
+"TEMP","PRODUCT",7665)
+
+"TEMP","PRODUCT",7666)
+
+"TEMP","PRODUCT",7667)
+
+"TEMP","PRODUCT",7668)
+
+"TEMP","PRODUCT",7669)
+
+"TEMP","PRODUCT",7670)
+
+"TEMP","PRODUCT",7672)
+
+"TEMP","PRODUCT",7674)
+
+"TEMP","PRODUCT",7678)
+
+"TEMP","PRODUCT",7680)
+
+"TEMP","PRODUCT",7682)
+
+"TEMP","PRODUCT",7688)
+
+"TEMP","PRODUCT",7689)
+
+"TEMP","PRODUCT",7691)
+
+"TEMP","PRODUCT",7692)
+
+"TEMP","PRODUCT",7693)
+
+"TEMP","PRODUCT",7696)
+
+"TEMP","PRODUCT",7697)
+
+"TEMP","PRODUCT",7698)
+
+"TEMP","PRODUCT",7699)
+
+"TEMP","PRODUCT",7702)
+
+"TEMP","PRODUCT",7707)
+
+"TEMP","PRODUCT",7708)
+
+"TEMP","PRODUCT",7709)
+
+"TEMP","PRODUCT",7711)
+
+"TEMP","PRODUCT",7712)
+
+"TEMP","PRODUCT",7713)
+
+"TEMP","PRODUCT",7714)
+
+"TEMP","PRODUCT",7715)
+
+"TEMP","PRODUCT",7716)
+
+"TEMP","PRODUCT",7717)
+
+"TEMP","PRODUCT",7718)
+
+"TEMP","PRODUCT",7719)
+
+"TEMP","PRODUCT",7720)
+
+"TEMP","PRODUCT",7721)
+
+"TEMP","PRODUCT",7722)
+
+"TEMP","PRODUCT",7723)
+
+"TEMP","PRODUCT",7724)
+
+"TEMP","PRODUCT",7725)
+
+"TEMP","PRODUCT",7726)
+
+"TEMP","PRODUCT",7727)
+
+"TEMP","PRODUCT",7728)
+
+"TEMP","PRODUCT",7729)
+
+"TEMP","PRODUCT",7730)
+
+"TEMP","PRODUCT",7731)
+
+"TEMP","PRODUCT",7732)
+
+"TEMP","PRODUCT",7733)
+
+"TEMP","PRODUCT",7734)
+
+"TEMP","PRODUCT",7735)
+
+"TEMP","PRODUCT",7736)
+
+"TEMP","PRODUCT",7737)
+
+"TEMP","PRODUCT",7738)
+
+"TEMP","PRODUCT",7739)
+
+"TEMP","PRODUCT",7740)
+
+"TEMP","PRODUCT",7741)
+
+"TEMP","PRODUCT",7742)
+
+"TEMP","PRODUCT",7743)
+
+"TEMP","PRODUCT",7744)
+
+"TEMP","PRODUCT",7745)
+
+"TEMP","PRODUCT",7746)
+
+"TEMP","PRODUCT",7747)
+
+"TEMP","PRODUCT",7748)
+
+"TEMP","PRODUCT",7749)
+
+"TEMP","PRODUCT",7750)
+
+"TEMP","PRODUCT",7751)
+
+"TEMP","PRODUCT",7752)
+
+"TEMP","PRODUCT",7756)
+
+"TEMP","PRODUCT",7757)
+
+"TEMP","PRODUCT",7758)
+
+"TEMP","PRODUCT",7759)
+
+"TEMP","PRODUCT",7760)
+
+"TEMP","PRODUCT",7761)
+
+"TEMP","PRODUCT",7763)
+
+"TEMP","PRODUCT",7764)
+
+"TEMP","PRODUCT",7767)
+
+"TEMP","PRODUCT",7768)
+
+"TEMP","PRODUCT",7770)
+
+"TEMP","PRODUCT",7771)
+
+"TEMP","PRODUCT",7772)
+
+"TEMP","PRODUCT",7773)
+
+"TEMP","PRODUCT",7777)
+
+"TEMP","PRODUCT",7778)
+
+"TEMP","PRODUCT",7779)
+
+"TEMP","PRODUCT",7780)
+
+"TEMP","PRODUCT",7781)
+
+"TEMP","PRODUCT",7783)
+
+"TEMP","PRODUCT",7793)
+
+"TEMP","PRODUCT",7794)
+
+"TEMP","PRODUCT",7795)
+
+"TEMP","PRODUCT",7796)
+
+"TEMP","PRODUCT",7799)
+
+"TEMP","PRODUCT",7801)
+
+"TEMP","PRODUCT",7805)
+
+"TEMP","PRODUCT",7806)
+
+"TEMP","PRODUCT",7808)
+
+"TEMP","PRODUCT",7809)
+
+"TEMP","PRODUCT",7811)
+
+"TEMP","PRODUCT",7813)
+
+"TEMP","PRODUCT",7814)
+
+"TEMP","PRODUCT",7815)
+
+"TEMP","PRODUCT",7816)
+
+"TEMP","PRODUCT",7817)
+
+"TEMP","PRODUCT",7819)
+
+"TEMP","PRODUCT",7820)
+
+"TEMP","PRODUCT",7821)
+
+"TEMP","PRODUCT",7824)
+
+"TEMP","PRODUCT",7825)
+
+"TEMP","PRODUCT",7826)
+
+"TEMP","PRODUCT",7827)
+
+"TEMP","PRODUCT",7828)
+
+"TEMP","PRODUCT",7829)
+
+"TEMP","PRODUCT",7830)
+
+"TEMP","PRODUCT",7832)
+
+"TEMP","PRODUCT",7833)
+
+"TEMP","PRODUCT",7835)
+
+"TEMP","PRODUCT",7836)
+
+"TEMP","PRODUCT",7837)
+
+"TEMP","PRODUCT",7838)
+
+"TEMP","PRODUCT",7839)
+
+"TEMP","PRODUCT",7840)
+
+"TEMP","PRODUCT",7841)
+
+"TEMP","PRODUCT",7851)
+
+"TEMP","PRODUCT",7852)
+
+"TEMP","PRODUCT",7853)
+
+"TEMP","PRODUCT",7855)
+
+"TEMP","PRODUCT",7856)
+
+"TEMP","PRODUCT",7857)
+
+"TEMP","PRODUCT",7859)
+
+"TEMP","PRODUCT",7861)
+
+"TEMP","PRODUCT",7862)
+
+"TEMP","PRODUCT",7864)
+
+"TEMP","PRODUCT",7865)
+
+"TEMP","PRODUCT",7868)
+
+"TEMP","PRODUCT",7870)
+
+"TEMP","PRODUCT",7871)
+
+"TEMP","PRODUCT",7873)
+
+"TEMP","PRODUCT",7874)
+
+"TEMP","PRODUCT",7875)
+
+"TEMP","PRODUCT",7877)
+
+"TEMP","PRODUCT",7881)
+
+"TEMP","PRODUCT",7883)
+
+"TEMP","PRODUCT",7886)
+
+"TEMP","PRODUCT",7888)
+
+"TEMP","PRODUCT",7889)
+
+"TEMP","PRODUCT",7890)
+
+"TEMP","PRODUCT",7894)
+
+"TEMP","PRODUCT",7896)
+
+"TEMP","PRODUCT",7897)
+
+"TEMP","PRODUCT",7899)
+
+"TEMP","PRODUCT",7900)
+
+"TEMP","PRODUCT",7901)
+
+"TEMP","PRODUCT",7902)
+
+"TEMP","PRODUCT",7903)
+
+"TEMP","PRODUCT",7904)
+
+"TEMP","PRODUCT",7905)
+
+"TEMP","PRODUCT",7906)
+
+"TEMP","PRODUCT",7907)
+
+"TEMP","PRODUCT",7908)
+
+"TEMP","PRODUCT",7910)
+
+"TEMP","PRODUCT",7913)
+
+"TEMP","PRODUCT",7914)
+
+"TEMP","PRODUCT",7915)
+
+"TEMP","PRODUCT",7916)
+
+"TEMP","PRODUCT",7917)
+
+"TEMP","PRODUCT",7918)
+
+"TEMP","PRODUCT",7920)
+
+"TEMP","PRODUCT",7921)
+
+"TEMP","PRODUCT",7922)
+
+"TEMP","PRODUCT",7923)
+
+"TEMP","PRODUCT",7927)
+
+"TEMP","PRODUCT",7928)
+
+"TEMP","PRODUCT",7929)
+
+"TEMP","PRODUCT",7930)
+
+"TEMP","PRODUCT",7932)
+
+"TEMP","PRODUCT",7933)
+
+"TEMP","PRODUCT",7934)
+
+"TEMP","PRODUCT",7935)
+
+"TEMP","PRODUCT",7936)
+
+"TEMP","PRODUCT",7944)
+
+"TEMP","PRODUCT",7950)
+
+"TEMP","PRODUCT",7951)
+
+"TEMP","PRODUCT",7952)
+
+"TEMP","PRODUCT",7953)
+
+"TEMP","PRODUCT",7956)
+
+"TEMP","PRODUCT",7958)
+
+"TEMP","PRODUCT",7961)
+
+"TEMP","PRODUCT",7963)
+
+"TEMP","PRODUCT",7964)
+
+"TEMP","PRODUCT",7965)
+
+"TEMP","PRODUCT",7968)
+
+"TEMP","PRODUCT",7970)
+
+"TEMP","PRODUCT",7972)
+
+"TEMP","PRODUCT",7973)
+
+"TEMP","PRODUCT",7975)
+
+"TEMP","PRODUCT",7977)
+
+"TEMP","PRODUCT",7984)
+
+"TEMP","PRODUCT",7985)
+
+"TEMP","PRODUCT",7988)
+
+"TEMP","PRODUCT",7990)
+
+"TEMP","PRODUCT",7992)
+
+"TEMP","PRODUCT",7994)
+
+"TEMP","PRODUCT",7995)
+
+"TEMP","PRODUCT",7996)
+
+"TEMP","PRODUCT",7997)
+
+"TEMP","PRODUCT",7998)
+
+"TEMP","PRODUCT",7999)
+
+"TEMP","PRODUCT",8001)
+
+"TEMP","PRODUCT",8002)
+
+"TEMP","PRODUCT",8003)
+
+"TEMP","PRODUCT",8010)
+
+"TEMP","PRODUCT",8012)
+
+"TEMP","PRODUCT",8013)
+
+"TEMP","PRODUCT",8015)
+
+"TEMP","PRODUCT",8016)
+
+"TEMP","PRODUCT",8017)
+
+"TEMP","PRODUCT",8018)
+
+"TEMP","PRODUCT",8019)
+
+"TEMP","PRODUCT",8020)
+
+"TEMP","PRODUCT",8021)
+
+"TEMP","PRODUCT",8022)
+
+"TEMP","PRODUCT",8024)
+
+"TEMP","PRODUCT",8026)
+
+"TEMP","PRODUCT",8028)
+
+"TEMP","PRODUCT",8029)
+
+"TEMP","PRODUCT",8030)
+
+"TEMP","PRODUCT",8031)
+
+"TEMP","PRODUCT",8032)
+
+"TEMP","PRODUCT",8037)
+
+"TEMP","PRODUCT",8045)
+
+"TEMP","PRODUCT",8048)
+
+"TEMP","PRODUCT",8049)
+
+"TEMP","PRODUCT",8050)
+
+"TEMP","PRODUCT",8055)
+
+"TEMP","PRODUCT",8056)
+
+"TEMP","PRODUCT",8057)
+
+"TEMP","PRODUCT",8058)
+
+"TEMP","PRODUCT",8067)
+
+"TEMP","PRODUCT",8068)
+
+"TEMP","PRODUCT",8070)
+
+"TEMP","PRODUCT",8071)
+
+"TEMP","PRODUCT",8072)
+
+"TEMP","PRODUCT",8073)
+
+"TEMP","PRODUCT",8074)
+
+"TEMP","PRODUCT",8075)
+
+"TEMP","PRODUCT",8076)
+
+"TEMP","PRODUCT",8082)
+
+"TEMP","PRODUCT",8083)
+
+"TEMP","PRODUCT",8084)
+
+"TEMP","PRODUCT",8085)
+
+"TEMP","PRODUCT",8086)
+
+"TEMP","PRODUCT",8087)
+
+"TEMP","PRODUCT",8088)
+
+"TEMP","PRODUCT",8089)
+
+"TEMP","PRODUCT",8090)
+
+"TEMP","PRODUCT",8091)
+
+"TEMP","PRODUCT",8092)
+
+"TEMP","PRODUCT",8093)
+
+"TEMP","PRODUCT",8095)
+
+"TEMP","PRODUCT",8097)
+
+"TEMP","PRODUCT",8098)
+
+"TEMP","PRODUCT",8099)
+
+"TEMP","PRODUCT",8100)
+
+"TEMP","PRODUCT",8101)
+
+"TEMP","PRODUCT",8103)
+
+"TEMP","PRODUCT",8104)
+
+"TEMP","PRODUCT",8110)
+
+"TEMP","PRODUCT",8112)
+
+"TEMP","PRODUCT",8115)
+
+"TEMP","PRODUCT",8126)
+
+"TEMP","PRODUCT",8127)
+
+"TEMP","PRODUCT",8128)
+
+"TEMP","PRODUCT",8130)
+
+"TEMP","PRODUCT",8136)
+
+"TEMP","PRODUCT",8138)
+
+"TEMP","PRODUCT",8140)
+
+"TEMP","PRODUCT",8145)
+
+"TEMP","PRODUCT",8146)
+
+"TEMP","PRODUCT",8153)
+
+"TEMP","PRODUCT",8155)
+
+"TEMP","PRODUCT",8158)
+
+"TEMP","PRODUCT",8159)
+
+"TEMP","PRODUCT",8160)
+
+"TEMP","PRODUCT",8161)
+
+"TEMP","PRODUCT",8162)
+
+"TEMP","PRODUCT",8163)
+
+"TEMP","PRODUCT",8164)
+
+"TEMP","PRODUCT",8168)
+
+"TEMP","PRODUCT",8170)
+
+"TEMP","PRODUCT",8172)
+
+"TEMP","PRODUCT",8173)
+
+"TEMP","PRODUCT",8176)
+
+"TEMP","PRODUCT",8177)
+
+"TEMP","PRODUCT",8178)
+
+"TEMP","PRODUCT",8179)
+
+"TEMP","PRODUCT",8180)
+
+"TEMP","PRODUCT",8181)
+
+"TEMP","PRODUCT",8182)
+
+"TEMP","PRODUCT",8183)
+
+"TEMP","PRODUCT",8184)
+
+"TEMP","PRODUCT",8185)
+
+"TEMP","PRODUCT",8186)
+
+"TEMP","PRODUCT",8188)
+
+"TEMP","PRODUCT",8189)
+
+"TEMP","PRODUCT",8190)
+
+"TEMP","PRODUCT",8192)
+
+"TEMP","PRODUCT",8197)
+
+"TEMP","PRODUCT",8198)
+
+"TEMP","PRODUCT",8199)
+
+"TEMP","PRODUCT",8200)
+
+"TEMP","PRODUCT",8201)
+
+"TEMP","PRODUCT",8202)
+
+"TEMP","PRODUCT",8204)
+
+"TEMP","PRODUCT",8205)
+
+"TEMP","PRODUCT",8206)
+
+"TEMP","PRODUCT",8207)
+
+"TEMP","PRODUCT",8209)
+
+"TEMP","PRODUCT",8210)
+
+"TEMP","PRODUCT",8212)
+
+"TEMP","PRODUCT",8213)
+
+"TEMP","PRODUCT",8218)
+
+"TEMP","PRODUCT",8221)
+
+"TEMP","PRODUCT",8223)
+
+"TEMP","PRODUCT",8224)
+
+"TEMP","PRODUCT",8228)
+
+"TEMP","PRODUCT",8230)
+
+"TEMP","PRODUCT",8231)
+
+"TEMP","PRODUCT",8232)
+
+"TEMP","PRODUCT",8233)
+
+"TEMP","PRODUCT",8234)
+
+"TEMP","PRODUCT",8235)
+
+"TEMP","PRODUCT",8236)
+
+"TEMP","PRODUCT",8238)
+
+"TEMP","PRODUCT",8239)
+
+"TEMP","PRODUCT",8240)
+
+"TEMP","PRODUCT",8242)
+
+"TEMP","PRODUCT",8243)
+
+"TEMP","PRODUCT",8244)
+
+"TEMP","PRODUCT",8245)
+
+"TEMP","PRODUCT",8246)
+
+"TEMP","PRODUCT",8247)
+
+"TEMP","PRODUCT",8249)
+
+"TEMP","PRODUCT",8250)
+
+"TEMP","PRODUCT",8251)
+
+"TEMP","PRODUCT",8254)
+
+"TEMP","PRODUCT",8256)
+
+"TEMP","PRODUCT",8258)
+
+"TEMP","PRODUCT",8260)
+
+"TEMP","PRODUCT",8261)
+
+"TEMP","PRODUCT",8263)
+
+"TEMP","PRODUCT",8265)
+
+"TEMP","PRODUCT",8266)
+
+"TEMP","PRODUCT",8267)
+
+"TEMP","PRODUCT",8268)
+
+"TEMP","PRODUCT",8269)
+
+"TEMP","PRODUCT",8270)
+
+"TEMP","PRODUCT",8271)
+
+"TEMP","PRODUCT",8272)
+
+"TEMP","PRODUCT",8273)
+
+"TEMP","PRODUCT",8274)
+
+"TEMP","PRODUCT",8275)
+
+"TEMP","PRODUCT",8277)
+
+"TEMP","PRODUCT",8278)
+
+"TEMP","PRODUCT",8282)
+
+"TEMP","PRODUCT",8284)
+
+"TEMP","PRODUCT",8285)
+
+"TEMP","PRODUCT",8286)
+
+"TEMP","PRODUCT",8287)
+
+"TEMP","PRODUCT",8288)
+
+"TEMP","PRODUCT",8289)
+
+"TEMP","PRODUCT",8290)
+
+"TEMP","PRODUCT",8291)
+
+"TEMP","PRODUCT",8292)
+
+"TEMP","PRODUCT",8293)
+
+"TEMP","PRODUCT",8298)
+
+"TEMP","PRODUCT",8299)
+
+"TEMP","PRODUCT",8300)
+
+"TEMP","PRODUCT",8301)
+
+"TEMP","PRODUCT",8302)
+
+"TEMP","PRODUCT",8305)
+
+"TEMP","PRODUCT",8307)
+
+"TEMP","PRODUCT",8309)
+
+"TEMP","PRODUCT",8310)
+
+"TEMP","PRODUCT",8311)
+
+"TEMP","PRODUCT",8313)
+
+"TEMP","PRODUCT",8314)
+
+"TEMP","PRODUCT",8315)
+
+"TEMP","PRODUCT",8316)
+
+"TEMP","PRODUCT",8319)
+
+"TEMP","PRODUCT",8320)
+
+"TEMP","PRODUCT",8321)
+
+"TEMP","PRODUCT",8322)
+
+"TEMP","PRODUCT",8324)
+
+"TEMP","PRODUCT",8325)
+
+"TEMP","PRODUCT",8326)
+
+"TEMP","PRODUCT",8327)
+
+"TEMP","PRODUCT",8328)
+
+"TEMP","PRODUCT",8331)
+
+"TEMP","PRODUCT",8332)
+
+"TEMP","PRODUCT",8333)
+
+"TEMP","PRODUCT",8334)
+
+"TEMP","PRODUCT",8335)
+
+"TEMP","PRODUCT",8336)
+
+"TEMP","PRODUCT",8337)
+
+"TEMP","PRODUCT",8339)
+
+"TEMP","PRODUCT",8340)
+
+"TEMP","PRODUCT",8342)
+
+"TEMP","PRODUCT",8356)
+
+"TEMP","PRODUCT",8358)
+
+"TEMP","PRODUCT",8362)
+
+"TEMP","PRODUCT",8367)
+
+"TEMP","PRODUCT",8368)
+
+"TEMP","PRODUCT",8371)
+
+"TEMP","PRODUCT",8372)
+
+"TEMP","PRODUCT",8373)
+
+"TEMP","PRODUCT",8375)
+
+"TEMP","PRODUCT",8377)
+
+"TEMP","PRODUCT",8378)
+
+"TEMP","PRODUCT",8379)
+
+"TEMP","PRODUCT",8380)
+
+"TEMP","PRODUCT",8381)
+
+"TEMP","PRODUCT",8383)
+
+"TEMP","PRODUCT",8384)
+
+"TEMP","PRODUCT",8385)
+
+"TEMP","PRODUCT",8386)
+
+"TEMP","PRODUCT",8387)
+
+"TEMP","PRODUCT",8388)
+
+"TEMP","PRODUCT",8389)
+
+"TEMP","PRODUCT",8390)
+
+"TEMP","PRODUCT",8391)
+
+"TEMP","PRODUCT",8392)
+
+"TEMP","PRODUCT",8393)
+
+"TEMP","PRODUCT",8394)
+
+"TEMP","PRODUCT",8395)
+
+"TEMP","PRODUCT",8396)
+
+"TEMP","PRODUCT",8397)
+
+"TEMP","PRODUCT",8398)
+
+"TEMP","PRODUCT",8399)
+
+"TEMP","PRODUCT",8400)
+
+"TEMP","PRODUCT",8401)
+
+"TEMP","PRODUCT",8402)
+
+"TEMP","PRODUCT",8403)
+
+"TEMP","PRODUCT",8404)
+
+"TEMP","PRODUCT",8405)
+
+"TEMP","PRODUCT",8406)
+
+"TEMP","PRODUCT",8408)
+
+"TEMP","PRODUCT",8409)
+
+"TEMP","PRODUCT",8410)
+
+"TEMP","PRODUCT",8411)
+
+"TEMP","PRODUCT",8412)
+
+"TEMP","PRODUCT",8413)
+
+"TEMP","PRODUCT",8414)
+
+"TEMP","PRODUCT",8415)
+
+"TEMP","PRODUCT",8416)
+
+"TEMP","PRODUCT",8417)
+
+"TEMP","PRODUCT",8418)
+
+"TEMP","PRODUCT",8421)
+
+"TEMP","PRODUCT",8422)
+
+"TEMP","PRODUCT",8423)
+
+"TEMP","PRODUCT",8424)
+
+"TEMP","PRODUCT",8425)
+
+"TEMP","PRODUCT",8427)
+
+"TEMP","PRODUCT",8428)
+
+"TEMP","PRODUCT",8431)
+
+"TEMP","PRODUCT",8433)
+
+"TEMP","PRODUCT",8436)
+
+"TEMP","PRODUCT",8437)
+
+"TEMP","PRODUCT",8438)
+
+"TEMP","PRODUCT",8439)
+
+"TEMP","PRODUCT",8440)
+
+"TEMP","PRODUCT",8441)
+
+"TEMP","PRODUCT",8443)
+
+"TEMP","PRODUCT",8444)
+
+"TEMP","PRODUCT",8445)
+
+"TEMP","PRODUCT",8446)
+
+"TEMP","PRODUCT",8447)
+
+"TEMP","PRODUCT",8448)
+
+"TEMP","PRODUCT",8449)
+
+"TEMP","PRODUCT",8450)
+
+"TEMP","PRODUCT",8451)
+
+"TEMP","PRODUCT",8452)
+
+"TEMP","PRODUCT",8453)
+
+"TEMP","PRODUCT",8454)
+
+"TEMP","PRODUCT",8455)
+
+"TEMP","PRODUCT",8456)
+
+"TEMP","PRODUCT",8457)
+
+"TEMP","PRODUCT",8458)
+
+"TEMP","PRODUCT",8460)
+
+"TEMP","PRODUCT",8461)
+
+"TEMP","PRODUCT",8462)
+
+"TEMP","PRODUCT",8463)
+
+"TEMP","PRODUCT",8464)
+
+"TEMP","PRODUCT",8465)
+
+"TEMP","PRODUCT",8466)
+
+"TEMP","PRODUCT",8467)
+
+"TEMP","PRODUCT",8470)
+
+"TEMP","PRODUCT",8471)
+
+"TEMP","PRODUCT",8472)
+
+"TEMP","PRODUCT",8474)
+
+"TEMP","PRODUCT",8476)
+
+"TEMP","PRODUCT",8478)
+
+"TEMP","PRODUCT",8479)
+
+"TEMP","PRODUCT",8480)
+
+"TEMP","PRODUCT",8481)
+
+"TEMP","PRODUCT",8482)
+
+"TEMP","PRODUCT",8483)
+
+"TEMP","PRODUCT",8484)
+
+"TEMP","PRODUCT",8485)
+
+"TEMP","PRODUCT",8486)
+
+"TEMP","PRODUCT",8487)
+
+"TEMP","PRODUCT",8493)
+
+"TEMP","PRODUCT",8494)
+
+"TEMP","PRODUCT",8495)
+
+"TEMP","PRODUCT",8506)
+
+"TEMP","PRODUCT",8507)
+
+"TEMP","PRODUCT",8509)
+
+"TEMP","PRODUCT",8511)
+
+"TEMP","PRODUCT",8513)
+
+"TEMP","PRODUCT",8514)
+
+"TEMP","PRODUCT",8516)
+
+"TEMP","PRODUCT",8522)
+
+"TEMP","PRODUCT",8523)
+
+"TEMP","PRODUCT",8524)
+
+"TEMP","PRODUCT",8527)
+
+"TEMP","PRODUCT",8528)
+
+"TEMP","PRODUCT",8529)
+
+"TEMP","PRODUCT",8532)
+
+"TEMP","PRODUCT",8533)
+
+"TEMP","PRODUCT",8534)
+
+"TEMP","PRODUCT",8537)
+
+"TEMP","PRODUCT",8538)
+
+"TEMP","PRODUCT",8539)
+
+"TEMP","PRODUCT",8540)
+
+"TEMP","PRODUCT",8541)
+
+"TEMP","PRODUCT",8542)
+
+"TEMP","PRODUCT",8543)
+
+"TEMP","PRODUCT",8544)
+
+"TEMP","PRODUCT",8545)
+
+"TEMP","PRODUCT",8546)
+
+"TEMP","PRODUCT",8547)
+
+"TEMP","PRODUCT",8550)
+
+"TEMP","PRODUCT",8555)
+
+"TEMP","PRODUCT",8556)
+
+"TEMP","PRODUCT",8557)
+
+"TEMP","PRODUCT",8559)
+
+"TEMP","PRODUCT",8560)
+
+"TEMP","PRODUCT",8564)
+
+"TEMP","PRODUCT",8565)
+
+"TEMP","PRODUCT",8566)
+
+"TEMP","PRODUCT",8567)
+
+"TEMP","PRODUCT",8568)
+
+"TEMP","PRODUCT",8569)
+
+"TEMP","PRODUCT",8570)
+
+"TEMP","PRODUCT",8571)
+
+"TEMP","PRODUCT",8572)
+
+"TEMP","PRODUCT",8574)
+
+"TEMP","PRODUCT",8578)
+
+"TEMP","PRODUCT",8579)
+
+"TEMP","PRODUCT",8581)
+
+"TEMP","PRODUCT",8582)
+
+"TEMP","PRODUCT",8583)
+
+"TEMP","PRODUCT",8584)
+
+"TEMP","PRODUCT",8585)
+
+"TEMP","PRODUCT",8597)
+
+"TEMP","PRODUCT",8598)
+
+"TEMP","PRODUCT",8600)
+
+"TEMP","PRODUCT",8602)
+
+"TEMP","PRODUCT",8603)
+
+"TEMP","PRODUCT",8615)
+
+"TEMP","PRODUCT",8616)
+
+"TEMP","PRODUCT",8617)
+
+"TEMP","PRODUCT",8626)
+
+"TEMP","PRODUCT",8628)
+
+"TEMP","PRODUCT",8630)
+
+"TEMP","PRODUCT",8640)
+
+"TEMP","PRODUCT",8641)
+
+"TEMP","PRODUCT",8646)
+
+"TEMP","PRODUCT",8647)
+
+"TEMP","PRODUCT",8648)
+
+"TEMP","PRODUCT",8649)
+
+"TEMP","PRODUCT",8650)
+
+"TEMP","PRODUCT",8654)
+
+"TEMP","PRODUCT",8655)
+
+"TEMP","PRODUCT",8656)
+
+"TEMP","PRODUCT",8657)
+
+"TEMP","PRODUCT",8658)
+
+"TEMP","PRODUCT",8662)
+
+"TEMP","PRODUCT",8664)
+
+"TEMP","PRODUCT",8667)
+
+"TEMP","PRODUCT",8670)
+
+"TEMP","PRODUCT",8671)
+
+"TEMP","PRODUCT",8672)
+
+"TEMP","PRODUCT",8675)
+
+"TEMP","PRODUCT",8678)
+
+"TEMP","PRODUCT",8680)
+
+"TEMP","PRODUCT",8682)
+
+"TEMP","PRODUCT",8683)
+
+"TEMP","PRODUCT",8684)
+
+"TEMP","PRODUCT",8685)
+
+"TEMP","PRODUCT",8687)
+
+"TEMP","PRODUCT",8691)
+
+"TEMP","PRODUCT",8695)
+
+"TEMP","PRODUCT",8696)
+
+"TEMP","PRODUCT",8697)
+
+"TEMP","PRODUCT",8698)
+
+"TEMP","PRODUCT",8705)
+
+"TEMP","PRODUCT",8706)
+
+"TEMP","PRODUCT",8707)
+
+"TEMP","PRODUCT",8708)
+
+"TEMP","PRODUCT",8709)
+
+"TEMP","PRODUCT",8711)
+
+"TEMP","PRODUCT",8714)
+
+"TEMP","PRODUCT",8715)
+
+"TEMP","PRODUCT",8716)
+
+"TEMP","PRODUCT",8717)
+
+"TEMP","PRODUCT",8719)
+
+"TEMP","PRODUCT",8721)
+
+"TEMP","PRODUCT",8723)
+
+"TEMP","PRODUCT",8731)
+
+"TEMP","PRODUCT",8737)
+
+"TEMP","PRODUCT",8738)
+
+"TEMP","PRODUCT",8739)
+
+"TEMP","PRODUCT",8740)
+
+"TEMP","PRODUCT",8741)
+
+"TEMP","PRODUCT",8742)
+
+"TEMP","PRODUCT",8743)
+
+"TEMP","PRODUCT",8748)
+
+"TEMP","PRODUCT",8751)
+
+"TEMP","PRODUCT",8754)
+
+"TEMP","PRODUCT",8755)
+
+"TEMP","PRODUCT",8757)
+
+"TEMP","PRODUCT",8758)
+
+"TEMP","PRODUCT",8759)
+
+"TEMP","PRODUCT",8764)
+
+"TEMP","PRODUCT",8766)
+
+"TEMP","PRODUCT",8770)
+
+"TEMP","PRODUCT",8772)
+
+"TEMP","PRODUCT",8775)
+
+"TEMP","PRODUCT",8777)
+
+"TEMP","PRODUCT",8778)
+
+"TEMP","PRODUCT",8779)
+
+"TEMP","PRODUCT",8781)
+
+"TEMP","PRODUCT",8783)
+
+"TEMP","PRODUCT",8784)
+
+"TEMP","PRODUCT",8786)
+
+"TEMP","PRODUCT",8787)
+
+"TEMP","PRODUCT",8789)
+
+"TEMP","PRODUCT",8790)
+
+"TEMP","PRODUCT",8791)
+
+"TEMP","PRODUCT",8792)
+
+"TEMP","PRODUCT",8793)
+
+"TEMP","PRODUCT",8794)
+
+"TEMP","PRODUCT",8795)
+
+"TEMP","PRODUCT",8797)
+
+"TEMP","PRODUCT",8798)
+
+"TEMP","PRODUCT",8799)
+
+"TEMP","PRODUCT",8800)
+
+"TEMP","PRODUCT",8801)
+
+"TEMP","PRODUCT",8802)
+
+"TEMP","PRODUCT",8803)
+
+"TEMP","PRODUCT",8804)
+
+"TEMP","PRODUCT",8806)
+
+"TEMP","PRODUCT",8807)
+
+"TEMP","PRODUCT",8808)
+
+"TEMP","PRODUCT",8810)
+
+"TEMP","PRODUCT",8811)
+
+"TEMP","PRODUCT",8821)
+
+"TEMP","PRODUCT",8834)
+
+"TEMP","PRODUCT",8846)
+
+"TEMP","PRODUCT",8847)
+
+"TEMP","PRODUCT",8848)
+
+"TEMP","PRODUCT",8850)
+
+"TEMP","PRODUCT",8853)
+
+"TEMP","PRODUCT",8854)
+
+"TEMP","PRODUCT",8855)
+
+"TEMP","PRODUCT",8857)
+
+"TEMP","PRODUCT",8861)
+
+"TEMP","PRODUCT",8862)
+
+"TEMP","PRODUCT",8863)
+
+"TEMP","PRODUCT",8865)
+
+"TEMP","PRODUCT",8866)
+
+"TEMP","PRODUCT",8867)
+
+"TEMP","PRODUCT",8868)
+
+"TEMP","PRODUCT",8874)
+
+"TEMP","PRODUCT",8875)
+
+"TEMP","PRODUCT",8876)
+
+"TEMP","PRODUCT",8878)
+
+"TEMP","PRODUCT",8881)
+
+"TEMP","PRODUCT",8884)
+
+"TEMP","PRODUCT",8885)
+
+"TEMP","PRODUCT",8887)
+
+"TEMP","PRODUCT",8889)
+
+"TEMP","PRODUCT",8892)
+
+"TEMP","PRODUCT",8893)
+
+"TEMP","PRODUCT",8894)
+
+"TEMP","PRODUCT",8895)
+
+"TEMP","PRODUCT",8896)
+
+"TEMP","PRODUCT",8897)
+
+"TEMP","PRODUCT",8898)
+
+"TEMP","PRODUCT",8899)
+
+"TEMP","PRODUCT",8904)
+
+"TEMP","PRODUCT",8905)
+
+"TEMP","PRODUCT",8907)
+
+"TEMP","PRODUCT",8908)
+
+"TEMP","PRODUCT",8909)
+
+"TEMP","PRODUCT",8915)
+
+"TEMP","PRODUCT",8917)
+
+"TEMP","PRODUCT",8919)
+
+"TEMP","PRODUCT",8923)
+
+"TEMP","PRODUCT",8924)
+
+"TEMP","PRODUCT",8925)
+
+"TEMP","PRODUCT",8926)
+
+"TEMP","PRODUCT",8927)
+
+"TEMP","PRODUCT",8928)
+
+"TEMP","PRODUCT",8934)
+
+"TEMP","PRODUCT",8935)
+
+"TEMP","PRODUCT",8941)
+
+"TEMP","PRODUCT",8942)
+
+"TEMP","PRODUCT",8943)
+
+"TEMP","PRODUCT",8944)
+
+"TEMP","PRODUCT",8945)
+
+"TEMP","PRODUCT",8946)
+
+"TEMP","PRODUCT",8947)
+
+"TEMP","PRODUCT",8948)
+
+"TEMP","PRODUCT",8949)
+
+"TEMP","PRODUCT",8950)
+
+"TEMP","PRODUCT",8951)
+
+"TEMP","PRODUCT",8952)
+
+"TEMP","PRODUCT",8953)
+
+"TEMP","PRODUCT",8955)
+
+"TEMP","PRODUCT",8959)
+
+"TEMP","PRODUCT",8964)
+
+"TEMP","PRODUCT",8965)
+
+"TEMP","PRODUCT",8966)
+
+"TEMP","PRODUCT",8967)
+
+"TEMP","PRODUCT",8968)
+
+"TEMP","PRODUCT",8970)
+
+"TEMP","PRODUCT",8971)
+
+"TEMP","PRODUCT",8972)
+
+"TEMP","PRODUCT",8973)
+
+"TEMP","PRODUCT",8974)
+
+"TEMP","PRODUCT",8975)
+
+"TEMP","PRODUCT",8976)
+
+"TEMP","PRODUCT",8977)
+
+"TEMP","PRODUCT",8978)
+
+"TEMP","PRODUCT",8979)
+
+"TEMP","PRODUCT",8980)
+
+"TEMP","PRODUCT",8981)
+
+"TEMP","PRODUCT",8983)
+
+"TEMP","PRODUCT",8997)
+
+"TEMP","PRODUCT",8998)
+
+"TEMP","PRODUCT",9001)
+
+"TEMP","PRODUCT",9002)
+
+"TEMP","PRODUCT",9003)
+
+"TEMP","PRODUCT",9004)
+
+"TEMP","PRODUCT",9005)
+
+"TEMP","PRODUCT",9006)
+
+"TEMP","PRODUCT",9008)
+
+"TEMP","PRODUCT",9010)
+
+"TEMP","PRODUCT",9012)
+
+"TEMP","PRODUCT",9013)
+
+"TEMP","PRODUCT",9014)
+
+"TEMP","PRODUCT",9016)
+
+"TEMP","PRODUCT",9017)
+
+"TEMP","PRODUCT",9018)
+
+"TEMP","PRODUCT",9019)
+
+"TEMP","PRODUCT",9021)
+
+"TEMP","PRODUCT",9022)
+
+"TEMP","PRODUCT",9023)
+
+"TEMP","PRODUCT",9026)
+
+"TEMP","PRODUCT",9027)
+
+"TEMP","PRODUCT",9028)
+
+"TEMP","PRODUCT",9029)
+
+"TEMP","PRODUCT",9034)
+
+"TEMP","PRODUCT",9035)
+
+"TEMP","PRODUCT",9036)
+
+"TEMP","PRODUCT",9037)
+
+"TEMP","PRODUCT",9038)
+
+"TEMP","PRODUCT",9039)
+
+"TEMP","PRODUCT",9040)
+
+"TEMP","PRODUCT",9041)
+
+"TEMP","PRODUCT",9042)
+
+"TEMP","PRODUCT",9043)
+
+"TEMP","PRODUCT",9044)
+
+"TEMP","PRODUCT",9045)
+
+"TEMP","PRODUCT",9046)
+
+"TEMP","PRODUCT",9047)
+
+"TEMP","PRODUCT",9048)
+
+"TEMP","PRODUCT",9050)
+
+"TEMP","PRODUCT",9054)
+
+"TEMP","PRODUCT",9055)
+
+"TEMP","PRODUCT",9056)
+
+"TEMP","PRODUCT",9057)
+
+"TEMP","PRODUCT",9058)
+
+"TEMP","PRODUCT",9059)
+
+"TEMP","PRODUCT",9065)
+
+"TEMP","PRODUCT",9066)
+
+"TEMP","PRODUCT",9067)
+
+"TEMP","PRODUCT",9068)
+
+"TEMP","PRODUCT",9070)
+
+"TEMP","PRODUCT",9071)
+
+"TEMP","PRODUCT",9072)
+
+"TEMP","PRODUCT",9074)
+
+"TEMP","PRODUCT",9076)
+
+"TEMP","PRODUCT",9077)
+
+"TEMP","PRODUCT",9078)
+
+"TEMP","PRODUCT",9080)
+
+"TEMP","PRODUCT",9081)
+
+"TEMP","PRODUCT",9082)
+
+"TEMP","PRODUCT",9083)
+
+"TEMP","PRODUCT",9084)
+
+"TEMP","PRODUCT",9085)
+
+"TEMP","PRODUCT",9086)
+
+"TEMP","PRODUCT",9087)
+
+"TEMP","PRODUCT",9088)
+
+"TEMP","PRODUCT",9090)
+
+"TEMP","PRODUCT",9091)
+
+"TEMP","PRODUCT",9092)
+
+"TEMP","PRODUCT",9093)
+
+"TEMP","PRODUCT",9094)
+
+"TEMP","PRODUCT",9095)
+
+"TEMP","PRODUCT",9097)
+
+"TEMP","PRODUCT",9098)
+
+"TEMP","PRODUCT",9099)
+
+"TEMP","PRODUCT",9100)
+
+"TEMP","PRODUCT",9101)
+
+"TEMP","PRODUCT",9102)
+
+"TEMP","PRODUCT",9103)
+
+"TEMP","PRODUCT",9105)
+
+"TEMP","PRODUCT",9106)
+
+"TEMP","PRODUCT",9109)
+
+"TEMP","PRODUCT",9111)
+
+"TEMP","PRODUCT",9112)
+
+"TEMP","PRODUCT",9113)
+
+"TEMP","PRODUCT",9114)
+
+"TEMP","PRODUCT",9115)
+
+"TEMP","PRODUCT",9116)
+
+"TEMP","PRODUCT",9117)
+
+"TEMP","PRODUCT",9119)
+
+"TEMP","PRODUCT",9120)
+
+"TEMP","PRODUCT",9121)
+
+"TEMP","PRODUCT",9122)
+
+"TEMP","PRODUCT",9123)
+
+"TEMP","PRODUCT",9124)
+
+"TEMP","PRODUCT",9125)
+
+"TEMP","PRODUCT",9127)
+
+"TEMP","PRODUCT",9128)
+
+"TEMP","PRODUCT",9132)
+
+"TEMP","PRODUCT",9133)
+
+"TEMP","PRODUCT",9138)
+
+"TEMP","PRODUCT",9139)
+
+"TEMP","PRODUCT",9141)
+
+"TEMP","PRODUCT",9142)
+
+"TEMP","PRODUCT",9147)
+
+"TEMP","PRODUCT",9155)
+
+"TEMP","PRODUCT",9156)
+
+"TEMP","PRODUCT",9159)
+
+"TEMP","PRODUCT",9160)
+
+"TEMP","PRODUCT",9161)
+
+"TEMP","PRODUCT",9162)
+
+"TEMP","PRODUCT",9163)
+
+"TEMP","PRODUCT",9164)
+
+"TEMP","PRODUCT",9165)
+
+"TEMP","PRODUCT",9167)
+
+"TEMP","PRODUCT",9170)
+
+"TEMP","PRODUCT",9171)
+
+"TEMP","PRODUCT",9172)
+
+"TEMP","PRODUCT",9173)
+
+"TEMP","PRODUCT",9174)
+
+"TEMP","PRODUCT",9175)
+
+"TEMP","PRODUCT",9176)
+
+"TEMP","PRODUCT",9179)
+
+"TEMP","PRODUCT",9180)
+
+"TEMP","PRODUCT",9183)
+
+"TEMP","PRODUCT",9184)
+
+"TEMP","PRODUCT",9186)
+
+"TEMP","PRODUCT",9187)
+
+"TEMP","PRODUCT",9188)
+
+"TEMP","PRODUCT",9189)
+
+"TEMP","PRODUCT",9191)
+
+"TEMP","PRODUCT",9192)
+
+"TEMP","PRODUCT",9193)
+
+"TEMP","PRODUCT",9194)
+
+"TEMP","PRODUCT",9195)
+
+"TEMP","PRODUCT",9196)
+
+"TEMP","PRODUCT",9197)
+
+"TEMP","PRODUCT",9198)
+
+"TEMP","PRODUCT",9199)
+
+"TEMP","PRODUCT",9200)
+
+"TEMP","PRODUCT",9201)
+
+"TEMP","PRODUCT",9202)
+
+"TEMP","PRODUCT",9204)
+
+"TEMP","PRODUCT",9205)
+
+"TEMP","PRODUCT",9206)
+
+"TEMP","PRODUCT",9207)
+
+"TEMP","PRODUCT",9209)
+
+"TEMP","PRODUCT",9210)
+
+"TEMP","PRODUCT",9217)
+
+"TEMP","PRODUCT",9218)
+
+"TEMP","PRODUCT",9219)
+
+"TEMP","PRODUCT",9220)
+
+"TEMP","PRODUCT",9221)
+
+"TEMP","PRODUCT",9223)
+
+"TEMP","PRODUCT",9224)
+
+"TEMP","PRODUCT",9225)
+
+"TEMP","PRODUCT",9226)
+
+"TEMP","PRODUCT",9227)
+
+"TEMP","PRODUCT",9228)
+
+"TEMP","PRODUCT",9229)
+
+"TEMP","PRODUCT",9230)
+
+"TEMP","PRODUCT",9231)
+
+"TEMP","PRODUCT",9234)
+
+"TEMP","PRODUCT",9236)
+
+"TEMP","PRODUCT",9237)
+
+"TEMP","PRODUCT",9238)
+
+"TEMP","PRODUCT",9240)
+
+"TEMP","PRODUCT",9241)
+
+"TEMP","PRODUCT",9242)
+
+"TEMP","PRODUCT",9243)
+
+"TEMP","PRODUCT",9244)
+
+"TEMP","PRODUCT",9245)
+
+"TEMP","PRODUCT",9246)
+
+"TEMP","PRODUCT",9247)
+
+"TEMP","PRODUCT",9248)
+
+"TEMP","PRODUCT",9249)
+
+"TEMP","PRODUCT",9250)
+
+"TEMP","PRODUCT",9252)
+
+"TEMP","PRODUCT",9253)
+
+"TEMP","PRODUCT",9254)
+
+"TEMP","PRODUCT",9255)
+
+"TEMP","PRODUCT",9256)
+
+"TEMP","PRODUCT",9257)
+
+"TEMP","PRODUCT",9259)
+
+"TEMP","PRODUCT",9260)
+
+"TEMP","PRODUCT",9261)
+
+"TEMP","PRODUCT",9263)
+
+"TEMP","PRODUCT",9266)
+
+"TEMP","PRODUCT",9267)
+
+"TEMP","PRODUCT",9268)
+
+"TEMP","PRODUCT",9270)
+
+"TEMP","PRODUCT",9271)
+
+"TEMP","PRODUCT",9272)
+
+"TEMP","PRODUCT",9276)
+
+"TEMP","PRODUCT",9277)
+
+"TEMP","PRODUCT",9278)
+
+"TEMP","PRODUCT",9279)
+
+"TEMP","PRODUCT",9280)
+
+"TEMP","PRODUCT",9281)
+
+"TEMP","PRODUCT",9282)
+
+"TEMP","PRODUCT",9283)
+
+"TEMP","PRODUCT",9284)
+
+"TEMP","PRODUCT",9285)
+
+"TEMP","PRODUCT",9286)
+
+"TEMP","PRODUCT",9287)
+
+"TEMP","PRODUCT",9288)
+
+"TEMP","PRODUCT",9289)
+
+"TEMP","PRODUCT",9290)
+
+"TEMP","PRODUCT",9291)
+
+"TEMP","PRODUCT",9292)
+
+"TEMP","PRODUCT",9293)
+
+"TEMP","PRODUCT",9294)
+
+"TEMP","PRODUCT",9296)
+
+"TEMP","PRODUCT",9297)
+
+"TEMP","PRODUCT",9298)
+
+"TEMP","PRODUCT",9299)
+
+"TEMP","PRODUCT",9300)
+
+"TEMP","PRODUCT",9302)
+
+"TEMP","PRODUCT",9304)
+
+"TEMP","PRODUCT",9305)
+
+"TEMP","PRODUCT",9306)
+
+"TEMP","PRODUCT",9307)
+
+"TEMP","PRODUCT",9308)
+
+"TEMP","PRODUCT",9309)
+
+"TEMP","PRODUCT",9310)
+
+"TEMP","PRODUCT",9313)
+
+"TEMP","PRODUCT",9325)
+
+"TEMP","PRODUCT",9328)
+
+"TEMP","PRODUCT",9330)
+
+"TEMP","PRODUCT",9334)
+
+"TEMP","PRODUCT",9340)
+
+"TEMP","PRODUCT",9343)
+
+"TEMP","PRODUCT",9350)
+
+"TEMP","PRODUCT",9354)
+
+"TEMP","PRODUCT",9355)
+
+"TEMP","PRODUCT",9356)
+
+"TEMP","PRODUCT",9368)
+
+"TEMP","PRODUCT",9371)
+
+"TEMP","PRODUCT",9373)
+
+"TEMP","PRODUCT",9374)
+
+"TEMP","PRODUCT",9376)
+
+"TEMP","PRODUCT",9379)
+
+"TEMP","PRODUCT",9383)
+
+"TEMP","PRODUCT",9384)
+
+"TEMP","PRODUCT",9386)
+
+"TEMP","PRODUCT",9387)
+
+"TEMP","PRODUCT",9388)
+
+"TEMP","PRODUCT",9397)
+
+"TEMP","PRODUCT",9400)
+
+"TEMP","PRODUCT",9402)
+
+"TEMP","PRODUCT",9404)
+
+"TEMP","PRODUCT",9405)
+
+"TEMP","PRODUCT",9407)
+
+"TEMP","PRODUCT",9408)
+
+"TEMP","PRODUCT",9409)
+
+"TEMP","PRODUCT",9410)
+
+"TEMP","PRODUCT",9412)
+
+"TEMP","PRODUCT",9413)
+
+"TEMP","PRODUCT",9414)
+
+"TEMP","PRODUCT",9415)
+
+"TEMP","PRODUCT",9416)
+
+"TEMP","PRODUCT",9418)
+
+"TEMP","PRODUCT",9420)
+
+"TEMP","PRODUCT",9421)
+
+"TEMP","PRODUCT",9422)
+
+"TEMP","PRODUCT",9423)
+
+"TEMP","PRODUCT",9424)
+
+"TEMP","PRODUCT",9425)
+
+"TEMP","PRODUCT",9426)
+
+"TEMP","PRODUCT",9427)
+
+"TEMP","PRODUCT",9429)
+
+"TEMP","PRODUCT",9430)
+
+"TEMP","PRODUCT",9431)
+
+"TEMP","PRODUCT",9432)
+
+"TEMP","PRODUCT",9433)
+
+"TEMP","PRODUCT",9434)
+
+"TEMP","PRODUCT",9435)
+
+"TEMP","PRODUCT",9436)
+
+"TEMP","PRODUCT",9437)
+
+"TEMP","PRODUCT",9438)
+
+"TEMP","PRODUCT",9439)
+
+"TEMP","PRODUCT",9440)
+
+"TEMP","PRODUCT",9441)
+
+"TEMP","PRODUCT",9444)
+
+"TEMP","PRODUCT",9445)
+
+"TEMP","PRODUCT",9446)
+
+"TEMP","PRODUCT",9447)
+
+"TEMP","PRODUCT",9448)
+
+"TEMP","PRODUCT",9449)
+
+"TEMP","PRODUCT",9451)
+
+"TEMP","PRODUCT",9452)
+
+"TEMP","PRODUCT",9453)
+
+"TEMP","PRODUCT",9454)
+
+"TEMP","PRODUCT",9456)
+
+"TEMP","PRODUCT",9457)
+
+"TEMP","PRODUCT",9458)
+
+"TEMP","PRODUCT",9459)
+
+"TEMP","PRODUCT",9460)
+
+"TEMP","PRODUCT",9463)
+
+"TEMP","PRODUCT",9464)
+
+"TEMP","PRODUCT",9467)
+
+"TEMP","PRODUCT",9468)
+
+"TEMP","PRODUCT",9469)
+
+"TEMP","PRODUCT",9470)
+
+"TEMP","PRODUCT",9471)
+
+"TEMP","PRODUCT",9472)
+
+"TEMP","PRODUCT",9473)
+
+"TEMP","PRODUCT",9474)
+
+"TEMP","PRODUCT",9475)
+
+"TEMP","PRODUCT",9476)
+
+"TEMP","PRODUCT",9477)
+
+"TEMP","PRODUCT",9479)
+
+"TEMP","PRODUCT",9480)
+
+"TEMP","PRODUCT",9481)
+
+"TEMP","PRODUCT",9482)
+
+"TEMP","PRODUCT",9483)
+
+"TEMP","PRODUCT",9484)
+
+"TEMP","PRODUCT",9485)
+
+"TEMP","PRODUCT",9486)
+
+"TEMP","PRODUCT",9487)
+
+"TEMP","PRODUCT",9488)
+
+"TEMP","PRODUCT",9489)
+
+"TEMP","PRODUCT",9490)
+
+"TEMP","PRODUCT",9491)
+
+"TEMP","PRODUCT",9492)
+
+"TEMP","PRODUCT",9494)
+
+"TEMP","PRODUCT",9496)
+
+"TEMP","PRODUCT",9497)
+
+"TEMP","PRODUCT",9499)
+
+"TEMP","PRODUCT",9500)
+
+"TEMP","PRODUCT",9501)
+
+"TEMP","PRODUCT",9503)
+
+"TEMP","PRODUCT",9504)
+
+"TEMP","PRODUCT",9505)
+
+"TEMP","PRODUCT",9506)
+
+"TEMP","PRODUCT",9507)
+
+"TEMP","PRODUCT",9508)
+
+"TEMP","PRODUCT",9510)
+
+"TEMP","PRODUCT",9511)
+
+"TEMP","PRODUCT",9512)
+
+"TEMP","PRODUCT",9516)
+
+"TEMP","PRODUCT",9518)
+
+"TEMP","PRODUCT",9519)
+
+"TEMP","PRODUCT",9520)
+
+"TEMP","PRODUCT",9522)
+
+"TEMP","PRODUCT",9523)
+
+"TEMP","PRODUCT",9524)
+
+"TEMP","PRODUCT",9525)
+
+"TEMP","PRODUCT",9526)
+
+"TEMP","PRODUCT",9527)
+
+"TEMP","PRODUCT",9528)
+
+"TEMP","PRODUCT",9529)
+
+"TEMP","PRODUCT",9530)
+
+"TEMP","PRODUCT",9531)
+
+"TEMP","PRODUCT",9532)
+
+"TEMP","PRODUCT",9533)
+
+"TEMP","PRODUCT",9536)
+
+"TEMP","PRODUCT",9537)
+
+"TEMP","PRODUCT",9539)
+
+"TEMP","PRODUCT",9540)
+
+"TEMP","PRODUCT",9541)
+
+"TEMP","PRODUCT",9542)
+
+"TEMP","PRODUCT",9543)
+
+"TEMP","PRODUCT",9544)
+
+"TEMP","PRODUCT",9545)
+
+"TEMP","PRODUCT",9547)
+
+"TEMP","PRODUCT",9548)
+
+"TEMP","PRODUCT",9549)
+
+"TEMP","PRODUCT",9550)
+
+"TEMP","PRODUCT",9551)
+
+"TEMP","PRODUCT",9552)
+
+"TEMP","PRODUCT",9553)
+
+"TEMP","PRODUCT",9554)
+
+"TEMP","PRODUCT",9555)
+
+"TEMP","PRODUCT",9556)
+
+"TEMP","PRODUCT",9557)
+
+"TEMP","PRODUCT",9558)
+
+"TEMP","PRODUCT",9560)
+
+"TEMP","PRODUCT",9561)
+
+"TEMP","PRODUCT",9562)
+
+"TEMP","PRODUCT",9563)
+
+"TEMP","PRODUCT",9565)
+
+"TEMP","PRODUCT",9566)
+
+"TEMP","PRODUCT",9567)
+
+"TEMP","PRODUCT",9568)
+
+"TEMP","PRODUCT",9569)
+
+"TEMP","PRODUCT",9570)
+
+"TEMP","PRODUCT",9571)
+
+"TEMP","PRODUCT",9572)
+
+"TEMP","PRODUCT",9573)
+
+"TEMP","PRODUCT",9574)
+
+"TEMP","PRODUCT",9575)
+
+"TEMP","PRODUCT",9577)
+
+"TEMP","PRODUCT",9578)
+
+"TEMP","PRODUCT",9580)
+
+"TEMP","PRODUCT",9581)
+
+"TEMP","PRODUCT",9582)
+
+"TEMP","PRODUCT",9583)
+
+"TEMP","PRODUCT",9584)
+
+"TEMP","PRODUCT",9585)
+
+"TEMP","PRODUCT",9586)
+
+"TEMP","PRODUCT",9587)
+
+"TEMP","PRODUCT",9588)
+
+"TEMP","PRODUCT",9589)
+
+"TEMP","PRODUCT",9590)
+
+"TEMP","PRODUCT",9591)
+
+"TEMP","PRODUCT",9593)
+
+"TEMP","PRODUCT",9595)
+
+"TEMP","PRODUCT",9596)
+
+"TEMP","PRODUCT",9597)
+
+"TEMP","PRODUCT",9598)
+
+"TEMP","PRODUCT",9599)
+
+"TEMP","PRODUCT",9600)
+
+"TEMP","PRODUCT",9601)
+
+"TEMP","PRODUCT",9602)
+
+"TEMP","PRODUCT",9603)
+
+"TEMP","PRODUCT",9604)
+
+"TEMP","PRODUCT",9605)
+
+"TEMP","PRODUCT",9606)
+
+"TEMP","PRODUCT",9607)
+
+"TEMP","PRODUCT",9608)
+
+"TEMP","PRODUCT",9609)
+
+"TEMP","PRODUCT",9611)
+
+"TEMP","PRODUCT",9613)
+
+"TEMP","PRODUCT",9614)
+
+"TEMP","PRODUCT",9616)
+
+"TEMP","PRODUCT",9617)
+
+"TEMP","PRODUCT",9618)
+
+"TEMP","PRODUCT",9619)
+
+"TEMP","PRODUCT",9620)
+
+"TEMP","PRODUCT",9622)
+
+"TEMP","PRODUCT",9623)
+
+"TEMP","PRODUCT",9624)
+
+"TEMP","PRODUCT",9625)
+
+"TEMP","PRODUCT",9626)
+
+"TEMP","PRODUCT",9627)
+
+"TEMP","PRODUCT",9628)
+
+"TEMP","PRODUCT",9629)
+
+"TEMP","PRODUCT",9630)
+
+"TEMP","PRODUCT",9637)
+
+"TEMP","PRODUCT",9638)
+
+"TEMP","PRODUCT",9644)
+
+"TEMP","PRODUCT",9645)
+
+"TEMP","PRODUCT",9646)
+
+"TEMP","PRODUCT",9648)
+
+"TEMP","PRODUCT",9649)
+
+"TEMP","PRODUCT",9650)
+
+"TEMP","PRODUCT",9651)
+
+"TEMP","PRODUCT",9652)
+
+"TEMP","PRODUCT",9653)
+
+"TEMP","PRODUCT",9654)
+
+"TEMP","PRODUCT",9655)
+
+"TEMP","PRODUCT",9657)
+
+"TEMP","PRODUCT",9658)
+
+"TEMP","PRODUCT",9659)
+
+"TEMP","PRODUCT",9660)
+
+"TEMP","PRODUCT",9661)
+
+"TEMP","PRODUCT",9662)
+
+"TEMP","PRODUCT",9663)
+
+"TEMP","PRODUCT",9665)
+
+"TEMP","PRODUCT",9670)
+
+"TEMP","PRODUCT",9671)
+
+"TEMP","PRODUCT",9675)
+
+"TEMP","PRODUCT",9676)
+
+"TEMP","PRODUCT",9677)
+
+"TEMP","PRODUCT",9678)
+
+"TEMP","PRODUCT",9679)
+
+"TEMP","PRODUCT",9694)
+
+"TEMP","PRODUCT",9700)
+
+"TEMP","PRODUCT",9701)
+
+"TEMP","PRODUCT",9702)
+
+"TEMP","PRODUCT",9713)
+
+"TEMP","PRODUCT",9726)
+
+"TEMP","PRODUCT",9728)
+
+"TEMP","PRODUCT",9731)
+
+"TEMP","PRODUCT",9733)
+
+"TEMP","PRODUCT",9734)
+
+"TEMP","PRODUCT",9735)
+
+"TEMP","PRODUCT",9736)
+
+"TEMP","PRODUCT",9737)
+
+"TEMP","PRODUCT",9738)
+
+"TEMP","PRODUCT",9739)
+
+"TEMP","PRODUCT",9740)
+
+"TEMP","PRODUCT",9745)
+
+"TEMP","PRODUCT",9746)
+
+"TEMP","PRODUCT",9748)
+
+"TEMP","PRODUCT",9756)
+
+"TEMP","PRODUCT",9757)
+
+"TEMP","PRODUCT",9762)
+
+"TEMP","PRODUCT",9763)
+
+"TEMP","PRODUCT",9764)
+
+"TEMP","PRODUCT",9765)
+
+"TEMP","PRODUCT",9771)
+
+"TEMP","PRODUCT",9773)
+
+"TEMP","PRODUCT",9775)
+
+"TEMP","PRODUCT",9776)
+
+"TEMP","PRODUCT",9777)
+
+"TEMP","PRODUCT",9778)
+
+"TEMP","PRODUCT",9779)
+
+"TEMP","PRODUCT",9780)
+
+"TEMP","PRODUCT",9781)
+
+"TEMP","PRODUCT",9783)
+
+"TEMP","PRODUCT",9784)
+
+"TEMP","PRODUCT",9785)
+
+"TEMP","PRODUCT",9786)
+
+"TEMP","PRODUCT",9788)
+
+"TEMP","PRODUCT",9789)
+
+"TEMP","PRODUCT",9791)
+
+"TEMP","PRODUCT",9792)
+
+"TEMP","PRODUCT",9793)
+
+"TEMP","PRODUCT",9794)
+
+"TEMP","PRODUCT",9795)
+
+"TEMP","PRODUCT",9796)
+
+"TEMP","PRODUCT",9797)
+
+"TEMP","PRODUCT",9798)
+
+"TEMP","PRODUCT",9799)
+
+"TEMP","PRODUCT",9800)
+
+"TEMP","PRODUCT",9801)
+
+"TEMP","PRODUCT",9803)
+
+"TEMP","PRODUCT",9804)
+
+"TEMP","PRODUCT",9805)
+
+"TEMP","PRODUCT",9806)
+
+"TEMP","PRODUCT",9808)
+
+"TEMP","PRODUCT",9809)
+
+"TEMP","PRODUCT",9810)
+
+"TEMP","PRODUCT",9811)
+
+"TEMP","PRODUCT",9812)
+
+"TEMP","PRODUCT",9813)
+
+"TEMP","PRODUCT",9814)
+
+"TEMP","PRODUCT",9815)
+
+"TEMP","PRODUCT",9817)
+
+"TEMP","PRODUCT",9819)
+
+"TEMP","PRODUCT",9820)
+
+"TEMP","PRODUCT",9823)
+
+"TEMP","PRODUCT",9824)
+
+"TEMP","PRODUCT",9825)
+
+"TEMP","PRODUCT",9826)
+
+"TEMP","PRODUCT",9827)
+
+"TEMP","PRODUCT",9829)
+
+"TEMP","PRODUCT",9831)
+
+"TEMP","PRODUCT",9832)
+
+"TEMP","PRODUCT",9833)
+
+"TEMP","PRODUCT",9834)
+
+"TEMP","PRODUCT",9835)
+
+"TEMP","PRODUCT",9836)
+
+"TEMP","PRODUCT",9837)
+
+"TEMP","PRODUCT",9838)
+
+"TEMP","PRODUCT",9839)
+
+"TEMP","PRODUCT",9840)
+
+"TEMP","PRODUCT",9841)
+
+"TEMP","PRODUCT",9842)
+
+"TEMP","PRODUCT",9843)
+
+"TEMP","PRODUCT",9844)
+
+"TEMP","PRODUCT",9845)
+
+"TEMP","PRODUCT",9846)
+
+"TEMP","PRODUCT",9857)
+
+"TEMP","PRODUCT",9863)
+
+"TEMP","PRODUCT",9864)
+
+"TEMP","PRODUCT",9867)
+
+"TEMP","PRODUCT",9872)
+
+"TEMP","PRODUCT",9877)
+
+"TEMP","PRODUCT",9885)
+
+"TEMP","PRODUCT",9886)
+
+"TEMP","PRODUCT",9887)
+
+"TEMP","PRODUCT",9889)
+
+"TEMP","PRODUCT",9898)
+
+"TEMP","PRODUCT",9909)
+
+"TEMP","PRODUCT",9910)
+
+"TEMP","PRODUCT",9911)
+
+"TEMP","PRODUCT",9912)
+
+"TEMP","PRODUCT",9913)
+
+"TEMP","PRODUCT",9914)
+
+"TEMP","PRODUCT",9915)
+
+"TEMP","PRODUCT",9916)
+
+"TEMP","PRODUCT",9917)
+
+"TEMP","PRODUCT",9918)
+
+"TEMP","PRODUCT",9919)
+
+"TEMP","PRODUCT",9920)
+
+"TEMP","PRODUCT",9921)
+
+"TEMP","PRODUCT",9922)
+
+"TEMP","PRODUCT",9923)
+
+"TEMP","PRODUCT",9924)
+
+"TEMP","PRODUCT",9925)
+
+"TEMP","PRODUCT",9927)
+
+"TEMP","PRODUCT",9928)
+
+"TEMP","PRODUCT",9929)
+
+"TEMP","PRODUCT",9930)
+
+"TEMP","PRODUCT",9935)
+
+"TEMP","PRODUCT",9937)
+
+"TEMP","PRODUCT",9941)
+
+"TEMP","PRODUCT",9942)
+
+"TEMP","PRODUCT",9944)
+
+"TEMP","PRODUCT",9945)
+
+"TEMP","PRODUCT",9946)
+
+"TEMP","PRODUCT",9947)
+
+"TEMP","PRODUCT",9948)
+
+"TEMP","PRODUCT",9949)
+
+"TEMP","PRODUCT",9952)
+
+"TEMP","PRODUCT",9954)
+
+"TEMP","PRODUCT",9957)
+
+"TEMP","PRODUCT",9958)
+
+"TEMP","PRODUCT",9959)
+
+"TEMP","PRODUCT",9960)
+
+"TEMP","PRODUCT",9961)
+
+"TEMP","PRODUCT",9967)
+
+"TEMP","PRODUCT",9968)
+
+"TEMP","PRODUCT",9969)
+
+"TEMP","PRODUCT",9973)
+
+"TEMP","PRODUCT",9974)
+
+"TEMP","PRODUCT",9977)
+
+"TEMP","PRODUCT",9978)
+
+"TEMP","PRODUCT",9981)
+
+"TEMP","PRODUCT",9982)
+
+"TEMP","PRODUCT",9983)
+
+"TEMP","PRODUCT",9988)
+
+"TEMP","PRODUCT",10004)
+
+"TEMP","PRODUCT",10005)
+
+"TEMP","PRODUCT",10006)
+
+"TEMP","PRODUCT",10007)
+
+"TEMP","PRODUCT",10008)
+
+"TEMP","PRODUCT",10009)
+
+"TEMP","PRODUCT",10010)
+
+"TEMP","PRODUCT",10011)
+
+"TEMP","PRODUCT",10012)
+
+"TEMP","PRODUCT",10013)
+
+"TEMP","PRODUCT",10014)
+
+"TEMP","PRODUCT",10018)
+
+"TEMP","PRODUCT",10019)
+
+"TEMP","PRODUCT",10020)
+
+"TEMP","PRODUCT",10021)
+
+"TEMP","PRODUCT",10025)
+
+"TEMP","PRODUCT",10027)
+
+"TEMP","PRODUCT",10028)
+
+"TEMP","PRODUCT",10029)
+
+"TEMP","PRODUCT",10030)
+
+"TEMP","PRODUCT",10031)
+
+"TEMP","PRODUCT",10032)
+
+"TEMP","PRODUCT",10033)
+
+"TEMP","PRODUCT",10034)
+
+"TEMP","PRODUCT",10035)
+
+"TEMP","PRODUCT",10036)
+
+"TEMP","PRODUCT",10037)
+
+"TEMP","PRODUCT",10038)
+
+"TEMP","PRODUCT",10039)
+
+"TEMP","PRODUCT",10040)
+
+"TEMP","PRODUCT",10041)
+
+"TEMP","PRODUCT",10043)
+
+"TEMP","PRODUCT",10044)
+
+"TEMP","PRODUCT",10045)
+
+"TEMP","PRODUCT",10047)
+
+"TEMP","PRODUCT",10049)
+
+"TEMP","PRODUCT",10050)
+
+"TEMP","PRODUCT",10051)
+
+"TEMP","PRODUCT",10052)
+
+"TEMP","PRODUCT",10053)
+
+"TEMP","PRODUCT",10055)
+
+"TEMP","PRODUCT",10056)
+
+"TEMP","PRODUCT",10058)
+
+"TEMP","PRODUCT",10059)
+
+"TEMP","PRODUCT",10060)
+
+"TEMP","PRODUCT",10061)
+
+"TEMP","PRODUCT",10063)
+
+"TEMP","PRODUCT",10064)
+
+"TEMP","PRODUCT",10065)
+
+"TEMP","PRODUCT",10066)
+
+"TEMP","PRODUCT",10067)
+
+"TEMP","PRODUCT",10071)
+
+"TEMP","PRODUCT",10072)
+
+"TEMP","PRODUCT",10073)
+
+"TEMP","PRODUCT",10076)
+
+"TEMP","PRODUCT",10077)
+
+"TEMP","PRODUCT",10078)
+
+"TEMP","PRODUCT",10080)
+
+"TEMP","PRODUCT",10082)
+
+"TEMP","PRODUCT",10083)
+
+"TEMP","PRODUCT",10086)
+
+"TEMP","PRODUCT",10087)
+
+"TEMP","PRODUCT",10089)
+
+"TEMP","PRODUCT",10094)
+
+"TEMP","PRODUCT",10095)
+
+"TEMP","PRODUCT",10096)
+
+"TEMP","PRODUCT",10097)
+
+"TEMP","PRODUCT",10098)
+
+"TEMP","PRODUCT",10099)
+
+"TEMP","PRODUCT",10100)
+
+"TEMP","PRODUCT",10102)
+
+"TEMP","PRODUCT",10103)
+
+"TEMP","PRODUCT",10104)
+
+"TEMP","PRODUCT",10105)
+
+"TEMP","PRODUCT",10106)
+
+"TEMP","PRODUCT",10107)
+
+"TEMP","PRODUCT",10108)
+
+"TEMP","PRODUCT",10110)
+
+"TEMP","PRODUCT",10111)
+
+"TEMP","PRODUCT",10112)
+
+"TEMP","PRODUCT",10113)
+
+"TEMP","PRODUCT",10114)
+
+"TEMP","PRODUCT",10115)
+
+"TEMP","PRODUCT",10116)
+
+"TEMP","PRODUCT",10117)
+
+"TEMP","PRODUCT",10118)
+
+"TEMP","PRODUCT",10119)
+
+"TEMP","PRODUCT",10120)
+
+"TEMP","PRODUCT",10123)
+
+"TEMP","PRODUCT",10124)
+
+"TEMP","PRODUCT",10125)
+
+"TEMP","PRODUCT",10126)
+
+"TEMP","PRODUCT",10129)
+
+"TEMP","PRODUCT",10131)
+
+"TEMP","PRODUCT",10132)
+
+"TEMP","PRODUCT",10133)
+
+"TEMP","PRODUCT",10134)
+
+"TEMP","PRODUCT",10137)
+
+"TEMP","PRODUCT",10138)
+
+"TEMP","PRODUCT",10139)
+
+"TEMP","PRODUCT",10141)
+
+"TEMP","PRODUCT",10143)
+
+"TEMP","PRODUCT",10144)
+
+"TEMP","PRODUCT",10146)
+
+"TEMP","PRODUCT",10148)
+
+"TEMP","PRODUCT",10149)
+
+"TEMP","PRODUCT",10151)
+
+"TEMP","PRODUCT",10152)
+
+"TEMP","PRODUCT",10153)
+
+"TEMP","PRODUCT",10158)
+
+"TEMP","PRODUCT",10160)
+
+"TEMP","PRODUCT",10161)
+
+"TEMP","PRODUCT",10163)
+
+"TEMP","PRODUCT",10165)
+
+"TEMP","PRODUCT",10166)
+
+"TEMP","PRODUCT",10167)
+
+"TEMP","PRODUCT",10169)
+
+"TEMP","PRODUCT",10171)
+
+"TEMP","PRODUCT",10173)
+
+"TEMP","PRODUCT",10174)
+
+"TEMP","PRODUCT",10175)
+
+"TEMP","PRODUCT",10178)
+
+"TEMP","PRODUCT",10181)
+
+"TEMP","PRODUCT",10183)
+
+"TEMP","PRODUCT",10185)
+
+"TEMP","PRODUCT",10186)
+
+"TEMP","PRODUCT",10187)
+
+"TEMP","PRODUCT",10188)
+
+"TEMP","PRODUCT",10189)
+
+"TEMP","PRODUCT",10191)
+
+"TEMP","PRODUCT",10192)
+
+"TEMP","PRODUCT",10193)
+
+"TEMP","PRODUCT",10194)
+
+"TEMP","PRODUCT",10195)
+
+"TEMP","PRODUCT",10196)
+
+"TEMP","PRODUCT",10197)
+
+"TEMP","PRODUCT",10198)
+
+"TEMP","PRODUCT",10199)
+
+"TEMP","PRODUCT",10201)
+
+"TEMP","PRODUCT",10202)
+
+"TEMP","PRODUCT",10203)
+
+"TEMP","PRODUCT",10204)
+
+"TEMP","PRODUCT",10206)
+
+"TEMP","PRODUCT",10207)
+
+"TEMP","PRODUCT",10208)
+
+"TEMP","PRODUCT",10209)
+
+"TEMP","PRODUCT",10213)
+
+"TEMP","PRODUCT",10218)
+
+"TEMP","PRODUCT",10219)
+
+"TEMP","PRODUCT",10223)
+
+"TEMP","PRODUCT",10224)
+
+"TEMP","PRODUCT",10225)
+
+"TEMP","PRODUCT",10226)
+
+"TEMP","PRODUCT",10227)
+
+"TEMP","PRODUCT",10228)
+
+"TEMP","PRODUCT",10232)
+
+"TEMP","PRODUCT",10237)
+
+"TEMP","PRODUCT",10238)
+
+"TEMP","PRODUCT",10241)
+
+"TEMP","PRODUCT",10242)
+
+"TEMP","PRODUCT",10245)
+
+"TEMP","PRODUCT",10246)
+
+"TEMP","PRODUCT",10248)
+
+"TEMP","PRODUCT",10250)
+
+"TEMP","PRODUCT",10263)
+
+"TEMP","PRODUCT",10264)
+
+"TEMP","PRODUCT",10265)
+
+"TEMP","PRODUCT",10266)
+
+"TEMP","PRODUCT",10267)
+
+"TEMP","PRODUCT",10268)
+
+"TEMP","PRODUCT",10269)
+
+"TEMP","PRODUCT",10270)
+
+"TEMP","PRODUCT",10271)
+
+"TEMP","PRODUCT",10272)
+
+"TEMP","PRODUCT",10273)
+
+"TEMP","PRODUCT",10281)
+
+"TEMP","PRODUCT",10284)
+
+"TEMP","PRODUCT",10285)
+
+"TEMP","PRODUCT",10286)
+
+"TEMP","PRODUCT",10287)
+
+"TEMP","PRODUCT",10288)
+
+"TEMP","PRODUCT",10289)
+
+"TEMP","PRODUCT",10290)
+
+"TEMP","PRODUCT",10291)
+
+"TEMP","PRODUCT",10292)
+
+"TEMP","PRODUCT",10293)
+
+"TEMP","PRODUCT",10294)
+
+"TEMP","PRODUCT",10295)
+
+"TEMP","PRODUCT",10296)
+
+"TEMP","PRODUCT",10297)
+
+"TEMP","PRODUCT",10298)
+
+"TEMP","PRODUCT",10299)
+
+"TEMP","PRODUCT",10300)
+
+"TEMP","PRODUCT",10301)
+
+"TEMP","PRODUCT",10302)
+
+"TEMP","PRODUCT",10303)
+
+"TEMP","PRODUCT",10304)
+
+"TEMP","PRODUCT",10305)
+
+"TEMP","PRODUCT",10306)
+
+"TEMP","PRODUCT",10307)
+
+"TEMP","PRODUCT",10308)
+
+"TEMP","PRODUCT",10309)
+
+"TEMP","PRODUCT",10310)
+
+"TEMP","PRODUCT",10311)
+
+"TEMP","PRODUCT",10312)
+
+"TEMP","PRODUCT",10313)
+
+"TEMP","PRODUCT",10314)
+
+"TEMP","PRODUCT",10315)
+
+"TEMP","PRODUCT",10316)
+
+"TEMP","PRODUCT",10321)
+
+"TEMP","PRODUCT",10344)
+
+"TEMP","PRODUCT",10345)
+
+"TEMP","PRODUCT",10346)
+
+"TEMP","PRODUCT",10347)
+
+"TEMP","PRODUCT",10348)
+
+"TEMP","PRODUCT",10349)
+
+"TEMP","PRODUCT",10350)
+
+"TEMP","PRODUCT",10351)
+
+"TEMP","PRODUCT",10352)
+
+"TEMP","PRODUCT",10353)
+
+"TEMP","PRODUCT",10354)
+
+"TEMP","PRODUCT",10355)
+
+"TEMP","PRODUCT",10356)
+
+"TEMP","PRODUCT",10357)
+
+"TEMP","PRODUCT",10358)
+
+"TEMP","PRODUCT",10389)
+
+"TEMP","PRODUCT",10411)
+
+"TEMP","PRODUCT",10416)
+
+"TEMP","PRODUCT",10417)
+
+"TEMP","PRODUCT",10418)
+
+"TEMP","PRODUCT",10419)
+
+"TEMP","PRODUCT",10420)
+
+"TEMP","PRODUCT",10421)
+
+"TEMP","PRODUCT",10428)
+
+"TEMP","PRODUCT",10440)
+
+"TEMP","PRODUCT",10441)
+
+"TEMP","PRODUCT",10442)
+
+"TEMP","PRODUCT",10443)
+
+"TEMP","PRODUCT",10444)
+
+"TEMP","PRODUCT",10454)
+
+"TEMP","PRODUCT",10456)
+
+"TEMP","PRODUCT",10457)
+
+"TEMP","PRODUCT",10458)
+
+"TEMP","PRODUCT",10459)
+
+"TEMP","PRODUCT",10460)
+
+"TEMP","PRODUCT",10461)
+
+"TEMP","PRODUCT",10462)
+
+"TEMP","PRODUCT",10463)
+
+"TEMP","PRODUCT",10464)
+
+"TEMP","PRODUCT",10465)
+
+"TEMP","PRODUCT",10466)
+
+"TEMP","PRODUCT",10479)
+
+"TEMP","PRODUCT",10480)
+
+"TEMP","PRODUCT",10481)
+
+"TEMP","PRODUCT",10513)
+
+"TEMP","PRODUCT",10514)
+
+"TEMP","PRODUCT",10515)
+
+"TEMP","PRODUCT",10516)
+
+"TEMP","PRODUCT",10517)
+
+"TEMP","PRODUCT",10518)
+
+"TEMP","PRODUCT",10519)
+
+"TEMP","PRODUCT",10520)
+
+"TEMP","PRODUCT",10521)
+
+"TEMP","PRODUCT",10522)
+
+"TEMP","PRODUCT",10523)
+
+"TEMP","PRODUCT",10524)
+
+"TEMP","PRODUCT",10525)
+
+"TEMP","PRODUCT",10526)
+
+"TEMP","PRODUCT",10527)
+
+"TEMP","PRODUCT",10528)
+
+"TEMP","PRODUCT",10529)
+
+"TEMP","PRODUCT",10530)
+
+"TEMP","PRODUCT",10531)
+
+"TEMP","PRODUCT",10532)
+
+"TEMP","PRODUCT",10533)
+
+"TEMP","PRODUCT",10534)
+
+"TEMP","PRODUCT",10535)
+
+"TEMP","PRODUCT",10536)
+
+"TEMP","PRODUCT",10537)
+
+"TEMP","PRODUCT",10552)
+
+"TEMP","PRODUCT",10553)
+
+"TEMP","PRODUCT",10554)
+
+"TEMP","PRODUCT",10555)
+
+"TEMP","PRODUCT",10556)
+
+"TEMP","PRODUCT",10557)
+
+"TEMP","PRODUCT",10558)
+
+"TEMP","PRODUCT",10566)
+
+"TEMP","PRODUCT",10567)
+
+"TEMP","PRODUCT",10568)
+
+"TEMP","PRODUCT",10569)
+
+"TEMP","PRODUCT",10570)
+
+"TEMP","PRODUCT",10571)
+
+"TEMP","PRODUCT",10572)
+
+"TEMP","PRODUCT",10573)
+
+"TEMP","PRODUCT",10574)
+
+"TEMP","PRODUCT",10575)
+
+"TEMP","PRODUCT",10576)
+
+"TEMP","PRODUCT",10577)
+
+"TEMP","PRODUCT",10578)
+
+"TEMP","PRODUCT",10579)
+
+"TEMP","PRODUCT",10580)
+
+"TEMP","PRODUCT",10581)
+
+"TEMP","PRODUCT",10582)
+
+"TEMP","PRODUCT",10583)
+
+"TEMP","PRODUCT",10584)
+
+"TEMP","PRODUCT",10585)
+
+"TEMP","PRODUCT",10586)
+
+"TEMP","PRODUCT",10587)
+
+"TEMP","PRODUCT",10589)
+
+"TEMP","PRODUCT",10590)
+
+"TEMP","PRODUCT",10593)
+
+"TEMP","PRODUCT",10594)
+
+"TEMP","PRODUCT",10595)
+
+"TEMP","PRODUCT",10596)
+
+"TEMP","PRODUCT",10597)
+
+"TEMP","PRODUCT",10598)
+
+"TEMP","PRODUCT",10609)
+
+"TEMP","PRODUCT",10629)
+
+"TEMP","PRODUCT",10636)
+
+"TEMP","PRODUCT",10638)
+
+"TEMP","PRODUCT",10639)
+
+"TEMP","PRODUCT",10640)
+
+"TEMP","PRODUCT",10641)
+
+"TEMP","PRODUCT",10642)
+
+"TEMP","PRODUCT",10643)
+
+"TEMP","PRODUCT",10644)
+
+"TEMP","PRODUCT",10645)
+
+"TEMP","PRODUCT",10646)
+
+"TEMP","PRODUCT",10647)
+
+"TEMP","PRODUCT",10648)
+
+"TEMP","PRODUCT",10649)
+
+"TEMP","PRODUCT",10650)
+
+"TEMP","PRODUCT",10651)
+
+"TEMP","PRODUCT",10652)
+
+"TEMP","PRODUCT",10653)
+
+"TEMP","PRODUCT",10654)
+
+"TEMP","PRODUCT",10655)
+
+"TEMP","PRODUCT",10656)
+
+"TEMP","PRODUCT",10657)
+
+"TEMP","PRODUCT",10658)
+
+"TEMP","PRODUCT",10659)
+
+"TEMP","PRODUCT",10660)
+
+"TEMP","PRODUCT",10661)
+
+"TEMP","PRODUCT",10662)
+
+"TEMP","PRODUCT",10663)
+
+"TEMP","PRODUCT",10681)
+
+"TEMP","PRODUCT",10682)
+
+"TEMP","PRODUCT",10683)
+
+"TEMP","PRODUCT",10684)
+
+"TEMP","PRODUCT",10685)
+
+"TEMP","PRODUCT",10704)
+
+"TEMP","PRODUCT",10750)
+
+"TEMP","PRODUCT",10751)
+
+"TEMP","PRODUCT",10752)
+
+"TEMP","PRODUCT",10753)
+
+"TEMP","PRODUCT",10781)
+
+"TEMP","PRODUCT",10782)
+
+"TEMP","PRODUCT",10783)
+
+"TEMP","PRODUCT",10784)
+
+"TEMP","PRODUCT",10850)
+
+"TEMP","PRODUCT",10851)
+
+"TEMP","PRODUCT",10852)
+
+"TEMP","PRODUCT",10854)
+
+"TEMP","PRODUCT",10855)
+
+"TEMP","PRODUCT",10856)
+
+"TEMP","PRODUCT",10857)
+
+"TEMP","PRODUCT",10858)
+
+"TEMP","PRODUCT",10859)
+
+"TEMP","PRODUCT",10860)
+
+"TEMP","PRODUCT",10861)
+
+"TEMP","PRODUCT",10862)
+
+"TEMP","PRODUCT",10863)
+
+"TEMP","PRODUCT",10864)
+
+"TEMP","PRODUCT",10865)
+
+"TEMP","PRODUCT",10866)
+
+"TEMP","PRODUCT",10867)
+
+"TEMP","PRODUCT",10868)
+
+"TEMP","PRODUCT",10869)
+
+"TEMP","PRODUCT",10870)
+
+"TEMP","PRODUCT",10871)
+
+"TEMP","PRODUCT",10872)
+
+"TEMP","PRODUCT",10873)
+
+"TEMP","PRODUCT",10874)
+
+"TEMP","PRODUCT",10875)
+
+"TEMP","PRODUCT",10876)
+
+"TEMP","PRODUCT",10877)
+
+"TEMP","PRODUCT",10898)
+
+"TEMP","PRODUCT",10899)
+
+"TEMP","PRODUCT",10901)
+
+"TEMP","PRODUCT",10910)
+
+"TEMP","PRODUCT",10911)
+
+"TEMP","PRODUCT",10912)
+
+"TEMP","PRODUCT",10913)
+
+"TEMP","PRODUCT",10914)
+
+"TEMP","PRODUCT",10919)
+
+"TEMP","PRODUCT",10937)
+
+"TEMP","PRODUCT",10938)
+
+"TEMP","PRODUCT",10939)
+
+"TEMP","PRODUCT",10940)
+
+"TEMP","PRODUCT",10951)
+
+"TEMP","PRODUCT",10952)
+
+"TEMP","PRODUCT",10953)
+
+"TEMP","PRODUCT",10954)
+
+"TEMP","PRODUCT",10955)
+
+"TEMP","PRODUCT",10956)
+
+"TEMP","PRODUCT",10957)
+
+"TEMP","PRODUCT",10959)
+
+"TEMP","PRODUCT",10960)
+
+"TEMP","PRODUCT",11039)
+
+"TEMP","PRODUCT",11043)
+
+"TEMP","PRODUCT",11058)
+
+"TEMP","PRODUCT",11059)
+
+"TEMP","PRODUCT",11060)
+
+"TEMP","PRODUCT",11061)
+
+"TEMP","PRODUCT",11069)
+
+"TEMP","PRODUCT",11070)
+
+"TEMP","PRODUCT",11071)
+
+"TEMP","PRODUCT",11073)
+
+"TEMP","PRODUCT",11074)
+
+"TEMP","PRODUCT",11075)
+
+"TEMP","PRODUCT",11076)
+
+"TEMP","PRODUCT",11079)
+
+"TEMP","PRODUCT",11082)
+
+"TEMP","PRODUCT",11083)
+
+"TEMP","PRODUCT",11084)
+
+"TEMP","PRODUCT",11085)
+
+"TEMP","PRODUCT",11086)
+
+"TEMP","PRODUCT",11087)
+
+"TEMP","PRODUCT",11088)
+
+"TEMP","PRODUCT",11095)
+
+"TEMP","PRODUCT",11096)
+
+"TEMP","PRODUCT",11097)
+
+"TEMP","PRODUCT",11098)
+
+"TEMP","PRODUCT",11099)
+
+"TEMP","PRODUCT",11100)
+
+"TEMP","PRODUCT",11101)
+
+"TEMP","PRODUCT",11102)
+
+"TEMP","PRODUCT",11103)
+
+"TEMP","PRODUCT",11104)
+
+"TEMP","PRODUCT",11105)
+
+"TEMP","PRODUCT",11106)
+
+"TEMP","PRODUCT",11107)
+
+"TEMP","PRODUCT",11108)
+
+"TEMP","PRODUCT",11109)
+
+"TEMP","PRODUCT",11110)
+
+"TEMP","PRODUCT",11111)
+
+"TEMP","PRODUCT",11112)
+
+"TEMP","PRODUCT",11113)
+
+"TEMP","PRODUCT",11114)
+
+"TEMP","PRODUCT",11115)
+
+"TEMP","PRODUCT",11121)
+
+"TEMP","PRODUCT",11122)
+
+"TEMP","PRODUCT",11123)
+
+"TEMP","PRODUCT",11124)
+
+"TEMP","PRODUCT",11127)
+
+"TEMP","PRODUCT",11128)
+
+"TEMP","PRODUCT",11129)
+
+"TEMP","PRODUCT",11130)
+
+"TEMP","PRODUCT",11131)
+
+"TEMP","PRODUCT",11134)
+
+"TEMP","PRODUCT",11136)
+
+"TEMP","PRODUCT",11137)
+
+"TEMP","PRODUCT",11139)
+
+"TEMP","PRODUCT",11140)
+
+"TEMP","PRODUCT",11141)
+
+"TEMP","PRODUCT",11159)
+
+"TEMP","PRODUCT",11160)
+
+"TEMP","PRODUCT",11165)
+
+"TEMP","PRODUCT",11167)
+
+"TEMP","PRODUCT",11168)
+
+"TEMP","PRODUCT",11177)
+
+"TEMP","PRODUCT",11178)
+
+"TEMP","PRODUCT",11181)
+
+"TEMP","PRODUCT",11187)
+
+"TEMP","PRODUCT",11196)
+
+"TEMP","PRODUCT",11197)
+
+"TEMP","PRODUCT",11198)
+
+"TEMP","PRODUCT",11199)
+
+"TEMP","PRODUCT",11200)
+
+"TEMP","PRODUCT",11203)
+
+"TEMP","PRODUCT",11204)
+
+"TEMP","PRODUCT",11206)
+
+"TEMP","PRODUCT",11207)
+
+"TEMP","PRODUCT",11209)
+
+"TEMP","PRODUCT",11211)
+
+"TEMP","PRODUCT",11213)
+
+"TEMP","PRODUCT",11236)
+
+"TEMP","PRODUCT",11239)
+
+"TEMP","PRODUCT",11240)
+
+"TEMP","PRODUCT",11241)
+
+"TEMP","PRODUCT",11242)
+
+"TEMP","PRODUCT",11243)
+
+"TEMP","PRODUCT",11245)
+
+"TEMP","PRODUCT",11246)
+
+"TEMP","PRODUCT",11248)
+
+"TEMP","PRODUCT",11250)
+
+"TEMP","PRODUCT",11251)
+
+"TEMP","PRODUCT",11252)
+
+"TEMP","PRODUCT",11253)
+
+"TEMP","PRODUCT",11283)
+
+"TEMP","PRODUCT",11292)
+
+"TEMP","PRODUCT",11300)
+
+"TEMP","PRODUCT",11301)
+
+"TEMP","PRODUCT",11302)
+
+"TEMP","PRODUCT",11303)
+
+"TEMP","PRODUCT",11304)
+
+"TEMP","PRODUCT",11305)
+
+"TEMP","PRODUCT",11306)
+
+"TEMP","PRODUCT",11314)
+
+"TEMP","PRODUCT",11315)
+
+"TEMP","PRODUCT",11316)
+
+"TEMP","PRODUCT",11317)
+
+"TEMP","PRODUCT",11318)
+
+"TEMP","PRODUCT",11330)
+
+"TEMP","PRODUCT",11331)
+
+"TEMP","PRODUCT",11334)
+
+"TEMP","PRODUCT",11344)
+
+"TEMP","PRODUCT",11346)
+
+"TEMP","PRODUCT",11347)
+
+"TEMP","PRODUCT",11348)
+
+"TEMP","PRODUCT",11349)
+
+"TEMP","PRODUCT",11350)
+
+"TEMP","PRODUCT",11351)
+
+"TEMP","PRODUCT",11352)
+
+"TEMP","PRODUCT",11353)
+
+"TEMP","PRODUCT",11365)
+
+"TEMP","PRODUCT",11366)
+
+"TEMP","PRODUCT",11367)
+
+"TEMP","PRODUCT",11369)
+
+"TEMP","PRODUCT",11370)
+
+"TEMP","PRODUCT",11371)
+
+"TEMP","PRODUCT",11372)
+
+"TEMP","PRODUCT",11373)
+
+"TEMP","PRODUCT",11374)
+
+"TEMP","PRODUCT",11376)
+
+"TEMP","PRODUCT",11384)
+
+"TEMP","PRODUCT",11385)
+
+"TEMP","PRODUCT",11386)
+
+"TEMP","PRODUCT",11387)
+
+"TEMP","PRODUCT",11388)
+
+"TEMP","PRODUCT",11392)
+
+"TEMP","PRODUCT",11393)
+
+"TEMP","PRODUCT",11394)
+
+"TEMP","PRODUCT",11395)
+
+"TEMP","PRODUCT",11396)
+
+"TEMP","PRODUCT",11398)
+
+"TEMP","PRODUCT",11399)
+
+"TEMP","PRODUCT",11404)
+
+"TEMP","PRODUCT",11405)
+
+"TEMP","PRODUCT",11411)
+
+"TEMP","PRODUCT",11412)
+
+"TEMP","PRODUCT",11415)
+
+"TEMP","PRODUCT",11421)
+
+"TEMP","PRODUCT",11425)
+
+"TEMP","PRODUCT",11455)
+
+"TEMP","PRODUCT",11456)
+
+"TEMP","PRODUCT",11457)
+
+"TEMP","PRODUCT",11458)
+
+"TEMP","PRODUCT",11471)
+
+"TEMP","PRODUCT",11472)
+
+"TEMP","PRODUCT",11480)
+
+"TEMP","PRODUCT",11481)
+
+"TEMP","PRODUCT",11500)
+
+"TEMP","PRODUCT",11501)
+
+"TEMP","PRODUCT",11504)
+
+"TEMP","PRODUCT",11510)
+
+"TEMP","PRODUCT",11511)
+
+"TEMP","PRODUCT",11512)
+
+"TEMP","PRODUCT",11513)
+
+"TEMP","PRODUCT",11514)
+
+"TEMP","PRODUCT",11516)
+
+"TEMP","PRODUCT",11518)
+
+"TEMP","PRODUCT",11519)
+
+"TEMP","PRODUCT",11520)
+
+"TEMP","PRODUCT",11521)
+
+"TEMP","PRODUCT",11540)
+
+"TEMP","PRODUCT",11543)
+
+"TEMP","PRODUCT",11544)
+
+"TEMP","PRODUCT",11545)
+
+"TEMP","PRODUCT",11546)
+
+"TEMP","PRODUCT",11547)
+
+"TEMP","PRODUCT",11548)
+
+"TEMP","PRODUCT",11549)
+
+"TEMP","PRODUCT",11550)
+
+"TEMP","PRODUCT",11551)
+
+"TEMP","PRODUCT",11552)
+
+"TEMP","PRODUCT",11573)
+
+"TEMP","PRODUCT",11590)
+
+"TEMP","PRODUCT",11595)
+
+"TEMP","PRODUCT",11625)
+
+"TEMP","PRODUCT",11649)
+
+"TEMP","PRODUCT",11650)
+
+"TEMP","PRODUCT",11660)
+
+"TEMP","PRODUCT",11662)
+
+"TEMP","PRODUCT",11683)
+
+"TEMP","PRODUCT",11694)
+
+"TEMP","PRODUCT",11698)
+
+"TEMP","PRODUCT",11715)
+
+"TEMP","PRODUCT",11718)
+
+"TEMP","PRODUCT",11719)
+
+"TEMP","PRODUCT",11720)
+
+"TEMP","PRODUCT",11721)
+
+"TEMP","PRODUCT",11722)
+
+"TEMP","PRODUCT",11725)
+
+"TEMP","PRODUCT",11727)
+
+"TEMP","PRODUCT",11734)
+
+"TEMP","PRODUCT",11735)
+
+"TEMP","PRODUCT",11736)
+
+"TEMP","PRODUCT",11737)
+
+"TEMP","PRODUCT",11738)
+
+"TEMP","PRODUCT",11739)
+
+"TEMP","PRODUCT",11742)
+
+"TEMP","PRODUCT",11743)
+
+"TEMP","PRODUCT",11745)
+
+"TEMP","PRODUCT",11746)
+
+"TEMP","PRODUCT",11747)
+
+"TEMP","PRODUCT",11748)
+
+"TEMP","PRODUCT",11749)
+
+"TEMP","PRODUCT",11751)
+
+"TEMP","PRODUCT",11752)
+
+"TEMP","PRODUCT",11754)
+
+"TEMP","PRODUCT",11755)
+
+"TEMP","PRODUCT",11756)
+
+"TEMP","PRODUCT",11757)
+
+"TEMP","PRODUCT",11758)
+
+"TEMP","PRODUCT",11759)
+
+"TEMP","PRODUCT",11760)
+
+"TEMP","PRODUCT",11761)
+
+"TEMP","PRODUCT",11762)
+
+"TEMP","PRODUCT",11763)
+
+"TEMP","PRODUCT",11764)
+
+"TEMP","PRODUCT",11765)
+
+"TEMP","PRODUCT",11766)
+
+"TEMP","PRODUCT",11767)
+
+"TEMP","PRODUCT",11768)
+
+"TEMP","PRODUCT",11769)
+
+"TEMP","PRODUCT",11770)
+
+"TEMP","PRODUCT",11771)
+
+"TEMP","PRODUCT",11772)
+
+"TEMP","PRODUCT",11773)
+
+"TEMP","PRODUCT",11774)
+
+"TEMP","PRODUCT",11775)
+
+"TEMP","PRODUCT",11780)
+
+"TEMP","PRODUCT",11781)
+
+"TEMP","PRODUCT",11782)
+
+"TEMP","PRODUCT",11783)
+
+"TEMP","PRODUCT",11784)
+
+"TEMP","PRODUCT",11785)
+
+"TEMP","PRODUCT",11786)
+
+"TEMP","PRODUCT",11790)
+
+"TEMP","PRODUCT",11791)
+
+"TEMP","PRODUCT",11792)
+
+"TEMP","PRODUCT",11803)
+
+"TEMP","PRODUCT",11809)
+
+"TEMP","PRODUCT",11815)
+
+"TEMP","PRODUCT",11816)
+
+"TEMP","PRODUCT",11817)
+
+"TEMP","PRODUCT",11818)
+
+"TEMP","PRODUCT",11819)
+
+"TEMP","PRODUCT",11820)
+
+"TEMP","PRODUCT",11822)
+
+"TEMP","PRODUCT",11823)
+
+"TEMP","PRODUCT",11824)
+
+"TEMP","PRODUCT",11858)
+
+"TEMP","PRODUCT",11864)
+
+"TEMP","PRODUCT",11865)
+
+"TEMP","PRODUCT",11867)
+
+"TEMP","PRODUCT",11868)
+
+"TEMP","PRODUCT",11901)
+
+"TEMP","PRODUCT",11908)
+
+"TEMP","PRODUCT",11909)
+
+"TEMP","PRODUCT",11910)
+
+"TEMP","PRODUCT",11911)
+
+"TEMP","PRODUCT",11928)
+
+"TEMP","PRODUCT",11929)
+
+"TEMP","PRODUCT",11936)
+
+"TEMP","PRODUCT",11950)
+
+"TEMP","PRODUCT",11951)
+
+"TEMP","PRODUCT",11956)
+
+"TEMP","PRODUCT",11957)
+
+"TEMP","PRODUCT",11958)
+
+"TEMP","PRODUCT",11968)
+
+"TEMP","PRODUCT",11969)
+
+"TEMP","PRODUCT",11970)
+
+"TEMP","PRODUCT",11980)
+
+"TEMP","PRODUCT",11983)
+
+"TEMP","PRODUCT",11998)
+
+"TEMP","PRODUCT",12007)
+
+"TEMP","PRODUCT",12034)
+
+"TEMP","PRODUCT",12035)
+
+"TEMP","PRODUCT",12036)
+
+"TEMP","PRODUCT",12046)
+
+"TEMP","PRODUCT",12050)
+
+"TEMP","PRODUCT",12051)
+
+"TEMP","PRODUCT",12054)
+
+"TEMP","PRODUCT",12055)
+
+"TEMP","PRODUCT",12056)
+
+"TEMP","PRODUCT",12108)
+
+"TEMP","PRODUCT",12109)
+
+"TEMP","PRODUCT",12110)
+
+"TEMP","PRODUCT",12121)
+
+"TEMP","PRODUCT",12122)
+
+"TEMP","PRODUCT",12123)
+
+"TEMP","PRODUCT",12124)
+
+"TEMP","PRODUCT",12125)
+
+"TEMP","PRODUCT",12126)
+
+"TEMP","PRODUCT",12127)
+
+"TEMP","PRODUCT",12128)
+
+"TEMP","PRODUCT",12129)
+
+"TEMP","PRODUCT",12136)
+
+"TEMP","PRODUCT",12143)
+
+"TEMP","PRODUCT",12144)
+
+"TEMP","PRODUCT",12150)
+
+"TEMP","PRODUCT",12156)
+
+"TEMP","PRODUCT",12162)
+
+"TEMP","PRODUCT",12163)
+
+"TEMP","PRODUCT",12174)
+
+"TEMP","PRODUCT",12175)
+
+"TEMP","PRODUCT",12176)
+
+"TEMP","PRODUCT",12182)
+
+"TEMP","PRODUCT",12183)
+
+"TEMP","PRODUCT",12184)
+
+"TEMP","PRODUCT",12185)
+
+"TEMP","PRODUCT",12189)
+
+"TEMP","PRODUCT",12196)
+
+"TEMP","PRODUCT",12197)
+
+"TEMP","PRODUCT",12198)
+
+"TEMP","PRODUCT",12216)
+
+"TEMP","PRODUCT",12217)
+
+"TEMP","PRODUCT",12218)
+
+"TEMP","PRODUCT",12223)
+
+"TEMP","PRODUCT",12224)
+
+"TEMP","PRODUCT",12225)
+
+"TEMP","PRODUCT",12226)
+
+"TEMP","PRODUCT",12227)
+
+"TEMP","PRODUCT",12234)
+
+"TEMP","PRODUCT",12238)
+
+"TEMP","PRODUCT",12245)
+
+"TEMP","PRODUCT",12246)
+
+"TEMP","PRODUCT",12247)
+
+"TEMP","PRODUCT",12249)
+
+"TEMP","PRODUCT",12251)
+
+"TEMP","PRODUCT",12254)
+
+"TEMP","PRODUCT",12255)
+
+"TEMP","PRODUCT",12274)
+
+"TEMP","PRODUCT",12282)
+
+"TEMP","PRODUCT",12284)
+
+"TEMP","PRODUCT",12285)
+
+"TEMP","PRODUCT",12288)
+
+"TEMP","PRODUCT",12320)
+
+"TEMP","PRODUCT",12334)
+
+"TEMP","PRODUCT",12335)
+
+"TEMP","PRODUCT",12340)
+
+"TEMP","PRODUCT",12343)
+
+"TEMP","PRODUCT",12344)
+
+"TEMP","PRODUCT",12346)
+
+"TEMP","PRODUCT",12348)
+
+"TEMP","PRODUCT",12349)
+
+"TEMP","PRODUCT",12362)
+
+"TEMP","PRODUCT",12363)
+
+"TEMP","PRODUCT",12364)
+
+"TEMP","PRODUCT",12379)
+
+"TEMP","PRODUCT",12386)
+
+"TEMP","PRODUCT",12387)
+
+"TEMP","PRODUCT",12388)
+
+"TEMP","PRODUCT",12389)
+
+"TEMP","PRODUCT",12393)
+
+"TEMP","PRODUCT",12395)
+
+"TEMP","PRODUCT",12398)
+
+"TEMP","PRODUCT",12399)
+
+"TEMP","PRODUCT",12400)
+
+"TEMP","PRODUCT",12409)
+
+"TEMP","PRODUCT",12410)
+
+"TEMP","PRODUCT",12411)
+
+"TEMP","PRODUCT",12412)
+
+"TEMP","PRODUCT",12432)
+
+"TEMP","PRODUCT",12433)
+
+"TEMP","PRODUCT",12434)
+
+"TEMP","PRODUCT",12435)
+
+"TEMP","PRODUCT",12436)
+
+"TEMP","PRODUCT",12437)
+
+"TEMP","PRODUCT",12438)
+
+"TEMP","PRODUCT",12439)
+
+"TEMP","PRODUCT",12440)
+
+"TEMP","PRODUCT",12441)
+
+"TEMP","PRODUCT",12442)
+
+"TEMP","PRODUCT",12453)
+
+"TEMP","PRODUCT",12454)
+
+"TEMP","PRODUCT",12462)
+
+"TEMP","PRODUCT",12463)
+
+"TEMP","PRODUCT",12466)
+
+"TEMP","PRODUCT",12467)
+
+"TEMP","PRODUCT",12472)
+
+"TEMP","PRODUCT",12474)
+
+"TEMP","PRODUCT",12480)
+
+"TEMP","PRODUCT",12487)
+
+"TEMP","PRODUCT",12488)
+
+"TEMP","PRODUCT",12489)
+
+"TEMP","PRODUCT",12490)
+
+"TEMP","PRODUCT",12495)
+
+"TEMP","PRODUCT",12496)
+
+"TEMP","PRODUCT",12497)
+
+"TEMP","PRODUCT",12498)
+
+"TEMP","PRODUCT",12500)
+
+"TEMP","PRODUCT",12502)
+
+"TEMP","PRODUCT",12503)
+
+"TEMP","PRODUCT",12504)
+
+"TEMP","PRODUCT",12505)
+
+"TEMP","PRODUCT",12510)
+
+"TEMP","PRODUCT",12512)
+
+"TEMP","PRODUCT",12524)
+
+"TEMP","PRODUCT",12525)
+
+"TEMP","PRODUCT",12526)
+
+"TEMP","PRODUCT",12527)
+
+"TEMP","PRODUCT",12528)
+
+"TEMP","PRODUCT",12529)
+
+"TEMP","PRODUCT",12531)
+
+"TEMP","PRODUCT",12532)
+
+"TEMP","PRODUCT",12534)
+
+"TEMP","PRODUCT",12542)
+
+"TEMP","PRODUCT",12546)
+
+"TEMP","PRODUCT",12547)
+
+"TEMP","PRODUCT",12554)
+
+"TEMP","PRODUCT",12557)
+
+"TEMP","PRODUCT",12558)
+
+"TEMP","PRODUCT",12559)
+
+"TEMP","PRODUCT",12560)
+
+"TEMP","PRODUCT",12561)
+
+"TEMP","PRODUCT",12562)
+
+"TEMP","PRODUCT",12570)
+
+"TEMP","PRODUCT",12571)
+
+"TEMP","PRODUCT",12575)
+
+"TEMP","PRODUCT",12576)
+
+"TEMP","PRODUCT",12577)
+
+"TEMP","PRODUCT",12578)
+
+"TEMP","PRODUCT",12581)
+
+"TEMP","PRODUCT",12592)
+
+"TEMP","PRODUCT",12593)
+
+"TEMP","PRODUCT",12594)
+
+"TEMP","PRODUCT",12598)
+
+"TEMP","PRODUCT",12609)
+
+"TEMP","PRODUCT",12613)
+
+"TEMP","PRODUCT",12615)
+
+"TEMP","PRODUCT",12616)
+
+"TEMP","PRODUCT",12617)
+
+"TEMP","PRODUCT",12618)
+
+"TEMP","PRODUCT",12619)
+
+"TEMP","PRODUCT",12628)
+
+"TEMP","PRODUCT",12636)
+
+"TEMP","PRODUCT",12638)
+
+"TEMP","PRODUCT",12639)
+
+"TEMP","PRODUCT",12645)
+
+"TEMP","PRODUCT",12647)
+
+"TEMP","PRODUCT",12650)
+
+"TEMP","PRODUCT",12651)
+
+"TEMP","PRODUCT",12653)
+
+"TEMP","PRODUCT",12655)
+
+"TEMP","PRODUCT",12657)
+
+"TEMP","PRODUCT",12662)
+
+"TEMP","PRODUCT",12671)
+
+"TEMP","PRODUCT",12672)
+
+"TEMP","PRODUCT",12673)
+
+"TEMP","PRODUCT",12677)
+
+"TEMP","PRODUCT",12701)
+
+"TEMP","PRODUCT",12703)
+
+"TEMP","PRODUCT",12704)
+
+"TEMP","PRODUCT",12706)
+
+"TEMP","PRODUCT",12707)
+
+"TEMP","PRODUCT",12708)
+
+"TEMP","PRODUCT",12709)
+
+"TEMP","PRODUCT",12711)
+
+"TEMP","PRODUCT",12713)
+
+"TEMP","PRODUCT",12718)
+
+"TEMP","PRODUCT",12723)
+
+"TEMP","PRODUCT",12724)
+
+"TEMP","PRODUCT",12732)
+
+"TEMP","PRODUCT",12733)
+
+"TEMP","PRODUCT",12736)
+
+"TEMP","PRODUCT",12737)
+
+"TEMP","PRODUCT",12738)
+
+"TEMP","PRODUCT",12739)
+
+"TEMP","PRODUCT",12744)
+
+"TEMP","PRODUCT",12745)
+
+"TEMP","PRODUCT",12747)
+
+"TEMP","PRODUCT",12748)
+
+"TEMP","PRODUCT",12749)
+
+"TEMP","PRODUCT",12762)
+
+"TEMP","PRODUCT",12769)
+
+"TEMP","PRODUCT",12770)
+
+"TEMP","PRODUCT",12775)
+
+"TEMP","PRODUCT",12776)
+
+"TEMP","PRODUCT",12777)
+
+"TEMP","PRODUCT",12780)
+
+"TEMP","PRODUCT",12781)
+
+"TEMP","PRODUCT",12786)
+
+"TEMP","PRODUCT",12788)
+
+"TEMP","PRODUCT",12796)
+
+"TEMP","PRODUCT",12797)
+
+"TEMP","PRODUCT",12800)
+
+"TEMP","PRODUCT",12808)
+
+"TEMP","PRODUCT",12809)
+
+"TEMP","PRODUCT",12814)
+
+"TEMP","PRODUCT",12815)
+
+"TEMP","PRODUCT",12816)
+
+"TEMP","PRODUCT",12817)
+
+"TEMP","PRODUCT",12818)
+
+"TEMP","PRODUCT",12819)
+
+"TEMP","PRODUCT",12820)
+
+"TEMP","PRODUCT",12821)
+
+"TEMP","PRODUCT",12828)
+
+"TEMP","PRODUCT",12829)
+
+"TEMP","PRODUCT",12833)
+
+"TEMP","PRODUCT",12841)
+
+"TEMP","PRODUCT",12849)
+
+"TEMP","PRODUCT",12851)
+
+"TEMP","PRODUCT",12852)
+
+"TEMP","PRODUCT",12853)
+
+"TEMP","PRODUCT",12854)
+
+"TEMP","PRODUCT",12860)
+
+"TEMP","PRODUCT",12861)
+
+"TEMP","PRODUCT",12866)
+
+"TEMP","PRODUCT",12867)
+
+"TEMP","PRODUCT",12868)
+
+"TEMP","PRODUCT",12869)
+
+"TEMP","PRODUCT",12870)
+
+"TEMP","PRODUCT",12871)
+
+"TEMP","PRODUCT",12872)
+
+"TEMP","PRODUCT",12873)
+
+"TEMP","PRODUCT",12874)
+
+"TEMP","PRODUCT",12879)
+
+"TEMP","PRODUCT",12885)
+
+"TEMP","PRODUCT",12886)
+
+"TEMP","PRODUCT",12887)
+
+"TEMP","PRODUCT",12888)
+
+"TEMP","PRODUCT",12904)
+
+"TEMP","PRODUCT",12905)
+
+"TEMP","PRODUCT",12906)
+
+"TEMP","PRODUCT",12907)
+
+"TEMP","PRODUCT",12908)
+
+"TEMP","PRODUCT",12909)
+
+"TEMP","PRODUCT",12910)
+
+"TEMP","PRODUCT",12916)
+
+"TEMP","PRODUCT",12917)
+
+"TEMP","PRODUCT",12918)
+
+"TEMP","PRODUCT",12922)
+
+"TEMP","PRODUCT",12923)
+
+"TEMP","PRODUCT",12925)
+
+"TEMP","PRODUCT",12930)
+
+"TEMP","PRODUCT",12931)
+
+"TEMP","PRODUCT",12937)
+
+"TEMP","PRODUCT",12938)
+
+"TEMP","PRODUCT",12946)
+
+"TEMP","PRODUCT",12948)
+
+"TEMP","PRODUCT",12949)
+
+"TEMP","PRODUCT",12950)
+
+"TEMP","PRODUCT",12953)
+
+"TEMP","PRODUCT",12954)
+
+"TEMP","PRODUCT",12955)
+
+"TEMP","PRODUCT",12956)
+
+"TEMP","PRODUCT",12957)
+
+"TEMP","PRODUCT",12961)
+
+"TEMP","PRODUCT",12971)
+
+"TEMP","PRODUCT",12972)
+
+"TEMP","PRODUCT",12974)
+
+"TEMP","PRODUCT",12975)
+
+"TEMP","PRODUCT",12977)
+
+"TEMP","PRODUCT",12978)
+
+"TEMP","PRODUCT",12979)
+
+"TEMP","PRODUCT",12980)
+
+"TEMP","PRODUCT",12981)
+
+"TEMP","PRODUCT",12984)
+
+"TEMP","PRODUCT",12986)
+
+"TEMP","PRODUCT",12988)
+
+"TEMP","PRODUCT",12991)
+
+"TEMP","PRODUCT",12992)
+
+"TEMP","PRODUCT",12996)
+
+"TEMP","PRODUCT",13005)
+
+"TEMP","PRODUCT",13007)
+
+"TEMP","PRODUCT",13011)
+
+"TEMP","PRODUCT",13012)
+
+"TEMP","PRODUCT",13013)
+
+"TEMP","PRODUCT",13021)
+
+"TEMP","PRODUCT",13027)
+
+"TEMP","PRODUCT",13028)
+
+"TEMP","PRODUCT",13031)
+
+"TEMP","PRODUCT",13033)
+
+"TEMP","PRODUCT",13034)
+
+"TEMP","PRODUCT",13035)
+
+"TEMP","PRODUCT",13036)
+
+"TEMP","PRODUCT",13037)
+
+"TEMP","PRODUCT",13038)
+
+"TEMP","PRODUCT",13039)
+
+"TEMP","PRODUCT",13053)
+
+"TEMP","PRODUCT",13055)
+
+"TEMP","PRODUCT",13057)
+
+"TEMP","PRODUCT",13062)
+
+"TEMP","PRODUCT",13064)
+
+"TEMP","PRODUCT",13065)
+
+"TEMP","PRODUCT",13066)
+
+"TEMP","PRODUCT",13071)
+
+"TEMP","PRODUCT",13090)
+
+"TEMP","PRODUCT",13096)
+
+"TEMP","PRODUCT",13101)
+
+"TEMP","PRODUCT",13107)
+
+"TEMP","PRODUCT",13113)
+
+"TEMP","PRODUCT",13126)
+
+"TEMP","PRODUCT",13127)
+
+"TEMP","PRODUCT",13130)
+
+"TEMP","PRODUCT",13131)
+
+"TEMP","PRODUCT",13133)
+
+"TEMP","PRODUCT",13139)
+
+"TEMP","PRODUCT",13157)
+
+"TEMP","PRODUCT",13193)
+
+"TEMP","PRODUCT",13199)
+
+"TEMP","PRODUCT",13203)
+
+"TEMP","PRODUCT",13240)
+
+"TEMP","PRODUCT",13251)
+
+"TEMP","PRODUCT",13254)
+
+"TEMP","PRODUCT",13262)
+
+"TEMP","PRODUCT",13290)
+
+"TEMP","PRODUCT",13295)
+
+"TEMP","PRODUCT",13298)
+
+"TEMP","PRODUCT",13301)
+
+"TEMP","PRODUCT",13304)
+
+"TEMP","PRODUCT",13310)
+
+"TEMP","PRODUCT",13316)
+
+"TEMP","PRODUCT",13318)
+
+"TEMP","PRODUCT",13324)
+
+"TEMP","PRODUCT",13341)
+
+"TEMP","PRODUCT",13342)
+
+"TEMP","PRODUCT",13343)
+
+"TEMP","PRODUCT",13344)
+
+"TEMP","PRODUCT",13345)
+
+"TEMP","PRODUCT",13346)
+
+"TEMP","PRODUCT",13347)
+
+"TEMP","PRODUCT",13352)
+
+"TEMP","PRODUCT",13354)
+
+"TEMP","PRODUCT",13355)
+
+"TEMP","PRODUCT",13356)
+
+"TEMP","PRODUCT",13357)
+
+"TEMP","PRODUCT",13366)
+
+"TEMP","PRODUCT",13367)
+
+"TEMP","PRODUCT",13369)
+
+"TEMP","PRODUCT",13370)
+
+"TEMP","PRODUCT",13374)
+
+"TEMP","PRODUCT",13375)
+
+"TEMP","PRODUCT",13376)
+
+"TEMP","PRODUCT",13377)
+
+"TEMP","PRODUCT",13380)
+
+"TEMP","PRODUCT",13383)
+
+"TEMP","PRODUCT",13385)
+
+"TEMP","PRODUCT",13388)
+
+"TEMP","PRODUCT",13408)
+
+"TEMP","PRODUCT",13410)
+
+"TEMP","PRODUCT",13414)
+
+"TEMP","PRODUCT",13415)
+
+"TEMP","PRODUCT",13416)
+
+"TEMP","PRODUCT",13423)
+
+"TEMP","PRODUCT",13424)
+
+"TEMP","PRODUCT",13425)
+
+"TEMP","PRODUCT",13426)
+
+"TEMP","PRODUCT",13427)
+
+"TEMP","PRODUCT",13431)
+
+"TEMP","PRODUCT",13441)
+
+"TEMP","PRODUCT",13442)
+
+"TEMP","PRODUCT",13443)
+
+"TEMP","PRODUCT",13444)
+
+"TEMP","PRODUCT",13445)
+
+"TEMP","PRODUCT",13446)
+
+"TEMP","PRODUCT",13453)
+
+"TEMP","PRODUCT",13454)
+
+"TEMP","PRODUCT",13457)
+
+"TEMP","PRODUCT",13458)
+
+"TEMP","PRODUCT",13459)
+
+"TEMP","PRODUCT",13460)
+
+"TEMP","PRODUCT",13461)
+
+"TEMP","PRODUCT",13462)
+
+"TEMP","PRODUCT",13466)
+
+"TEMP","PRODUCT",13468)
+
+"TEMP","PRODUCT",13469)
+
+"TEMP","PRODUCT",13470)
+
+"TEMP","PRODUCT",13471)
+
+"TEMP","PRODUCT",13472)
+
+"TEMP","PRODUCT",13485)
+
+"TEMP","PRODUCT",13486)
+
+"TEMP","PRODUCT",13527)
+
+"TEMP","PRODUCT",13540)
+
+"TEMP","PRODUCT",13541)
+
+"TEMP","PRODUCT",13542)
+
+"TEMP","PRODUCT",13548)
+
+"TEMP","PRODUCT",13572)
+
+"TEMP","PRODUCT",13575)
+
+"TEMP","PRODUCT",13588)
+
+"TEMP","PRODUCT",13589)
+
+"TEMP","PRODUCT",13590)
+
+"TEMP","PRODUCT",13591)
+
+"TEMP","PRODUCT",13596)
+
+"TEMP","PRODUCT",13605)
+
+"TEMP","PRODUCT",13612)
+
+"TEMP","PRODUCT",13627)
+
+"TEMP","PRODUCT",13640)
+
+"TEMP","PRODUCT",13643)
+
+"TEMP","PRODUCT",13644)
+
+"TEMP","PRODUCT",13648)
+
+"TEMP","PRODUCT",13651)
+
+"TEMP","PRODUCT",13653)
+
+"TEMP","PRODUCT",13654)
+
+"TEMP","PRODUCT",13655)
+
+"TEMP","PRODUCT",13660)
+
+"TEMP","PRODUCT",13680)
+
+"TEMP","PRODUCT",13681)
+
+"TEMP","PRODUCT",13682)
+
+"TEMP","PRODUCT",13689)
+
+"TEMP","PRODUCT",13693)
+
+"TEMP","PRODUCT",13694)
+
+"TEMP","PRODUCT",13696)
+
+"TEMP","PRODUCT",13697)
+
+"TEMP","PRODUCT",13699)
+
+"TEMP","PRODUCT",13707)
+
+"TEMP","PRODUCT",13709)
+
+"TEMP","PRODUCT",13715)
+
+"TEMP","PRODUCT",13733)
+
+"TEMP","PRODUCT",13737)
+
+"TEMP","PRODUCT",13738)
+
+"TEMP","PRODUCT",13754)
+
+"TEMP","PRODUCT",13758)
+
+"TEMP","PRODUCT",13760)
+
+"TEMP","PRODUCT",13761)
+
+"TEMP","PRODUCT",13780)
+
+"TEMP","PRODUCT",13781)
+
+"TEMP","PRODUCT",13782)
+
+"TEMP","PRODUCT",13785)
+
+"TEMP","PRODUCT",13788)
+
+"TEMP","PRODUCT",13791)
+
+"TEMP","PRODUCT",13793)
+
+"TEMP","PRODUCT",13821)
+
+"TEMP","PRODUCT",13823)
+
+"TEMP","PRODUCT",13826)
+
+"TEMP","PRODUCT",13828)
+
+"TEMP","PRODUCT",13829)
+
+"TEMP","PRODUCT",13830)
+
+"TEMP","PRODUCT",13843)
+
+"TEMP","PRODUCT",13848)
+
+"TEMP","PRODUCT",13849)
+
+"TEMP","PRODUCT",13850)
+
+"TEMP","PRODUCT",13851)
+
+"TEMP","PRODUCT",13852)
+
+"TEMP","PRODUCT",13853)
+
+"TEMP","PRODUCT",13854)
+
+"TEMP","PRODUCT",13859)
+
+"TEMP","PRODUCT",13871)
+
+"TEMP","PRODUCT",13872)
+
+"TEMP","PRODUCT",13873)
+
+"TEMP","PRODUCT",13874)
+
+"TEMP","PRODUCT",13892)
+
+"TEMP","PRODUCT",13893)
+
+"TEMP","PRODUCT",13894)
+
+"TEMP","PRODUCT",13895)
+
+"TEMP","PRODUCT",13896)
+
+"TEMP","PRODUCT",13897)
+
+"TEMP","PRODUCT",13898)
+
+"TEMP","PRODUCT",13899)
+
+"TEMP","PRODUCT",13900)
+
+"TEMP","PRODUCT",13901)
+
+"TEMP","PRODUCT",13902)
+
+"TEMP","PRODUCT",13903)
+
+"TEMP","PRODUCT",13904)
+
+"TEMP","PRODUCT",13905)
+
+"TEMP","PRODUCT",13906)
+
+"TEMP","PRODUCT",13907)
+
+"TEMP","PRODUCT",13910)
+
+"TEMP","PRODUCT",13913)
+
+"TEMP","PRODUCT",13914)
+
+"TEMP","PRODUCT",13916)
+
+"TEMP","PRODUCT",13919)
+
+"TEMP","PRODUCT",13920)
+
+"TEMP","PRODUCT",13921)
+
+"TEMP","PRODUCT",13922)
+
+"TEMP","PRODUCT",13923)
+
+"TEMP","PRODUCT",13924)
+
+"TEMP","PRODUCT",13925)
+
+"TEMP","PRODUCT",13926)
+
+"TEMP","PRODUCT",13927)
+
+"TEMP","PRODUCT",13928)
+
+"TEMP","PRODUCT",13929)
+
+"TEMP","PRODUCT",13930)
+
+"TEMP","PRODUCT",13931)
+
+"TEMP","PRODUCT",13932)
+
+"TEMP","PRODUCT",13933)
+
+"TEMP","PRODUCT",13934)
+
+"TEMP","PRODUCT",13935)
+
+"TEMP","PRODUCT",13938)
+
+"TEMP","PRODUCT",13939)
+
+"TEMP","PRODUCT",13940)
+
+"TEMP","PRODUCT",13941)
+
+"TEMP","PRODUCT",13942)
+
+"TEMP","PRODUCT",13944)
+
+"TEMP","PRODUCT",13945)
+
+"TEMP","PRODUCT",13953)
+
+"TEMP","PRODUCT",13959)
+
+"TEMP","PRODUCT",13962)
+
+"TEMP","PRODUCT",13964)
+
+"TEMP","PRODUCT",13966)
+
+"TEMP","PRODUCT",13971)
+
+"TEMP","PRODUCT",13972)
+
+"TEMP","PRODUCT",13973)
+
+"TEMP","PRODUCT",13974)
+
+"TEMP","PRODUCT",13975)
+
+"TEMP","PRODUCT",13980)
+
+"TEMP","PRODUCT",13996)
+
+"TEMP","PRODUCT",13997)
+
+"TEMP","PRODUCT",14014)
+
+"TEMP","PRODUCT",14021)
+
+"TEMP","PRODUCT",14040)
+
+"TEMP","PRODUCT",14041)
+
+"TEMP","PRODUCT",14042)
+
+"TEMP","PRODUCT",14062)
+
+"TEMP","PRODUCT",14066)
+
+"TEMP","PRODUCT",14071)
+
+"TEMP","PRODUCT",14086)
+
+"TEMP","PRODUCT",14092)
+
+"TEMP","PRODUCT",14093)
+
+"TEMP","PRODUCT",14103)
+
+"TEMP","PRODUCT",14113)
+
+"TEMP","PRODUCT",14118)
+
+"TEMP","PRODUCT",14119)
+
+"TEMP","PRODUCT",14120)
+
+"TEMP","PRODUCT",14122)
+
+"TEMP","PRODUCT",14133)
+
+"TEMP","PRODUCT",14138)
+
+"TEMP","PRODUCT",14141)
+
+"TEMP","PRODUCT",14150)
+
+"TEMP","PRODUCT",14166)
+
+"TEMP","PRODUCT",14167)
+
+"TEMP","PRODUCT",14176)
+
+"TEMP","PRODUCT",14186)
+
+"TEMP","PRODUCT",14189)
+
+"TEMP","PRODUCT",14191)
+
+"TEMP","PRODUCT",14199)
+
+"TEMP","PRODUCT",14212)
+
+"TEMP","PRODUCT",14213)
+
+"TEMP","PRODUCT",14222)
+
+"TEMP","PRODUCT",14224)
+
+"TEMP","PRODUCT",14226)
+
+"TEMP","PRODUCT",14274)
+
+"TEMP","PRODUCT",14277)
+
+"TEMP","PRODUCT",14278)
+
+"TEMP","PRODUCT",14280)
+
+"TEMP","PRODUCT",14281)
+
+"TEMP","PRODUCT",14288)
+
+"TEMP","PRODUCT",14289)
+
+"TEMP","PRODUCT",14290)
+
+"TEMP","PRODUCT",14292)
+
+"TEMP","PRODUCT",14303)
+
+"TEMP","PRODUCT",14304)
+
+"TEMP","PRODUCT",14316)
+
+"TEMP","PRODUCT",14318)
+
+"TEMP","PRODUCT",14330)
+
+"TEMP","PRODUCT",14333)
+
+"TEMP","PRODUCT",14336)
+
+"TEMP","PRODUCT",14340)
+
+"TEMP","PRODUCT",14347)
+
+"TEMP","PRODUCT",14357)
+
+"TEMP","PRODUCT",14373)
+
+"TEMP","PRODUCT",14374)
+
+"TEMP","PRODUCT",14375)
+
+"TEMP","PRODUCT",14376)
+
+"TEMP","PRODUCT",14379)
+
+"TEMP","PRODUCT",14380)
+
+"TEMP","PRODUCT",14388)
+
+"TEMP","PRODUCT",14389)
+
+"TEMP","PRODUCT",14391)
+
+"TEMP","PRODUCT",14392)
+
+"TEMP","PRODUCT",14403)
+
+"TEMP","PRODUCT",14405)
+
+"TEMP","PRODUCT",14410)
+
+"TEMP","PRODUCT",14411)
+
+"TEMP","PRODUCT",14412)
+
+"TEMP","PRODUCT",14413)
+
+"TEMP","PRODUCT",14414)
+
+"TEMP","PRODUCT",14415)
+
+"TEMP","PRODUCT",14416)
+
+"TEMP","PRODUCT",14417)
+
+"TEMP","PRODUCT",14418)
+
+"TEMP","PRODUCT",14419)
+
+"TEMP","PRODUCT",14420)
+
+"TEMP","PRODUCT",14421)
+
+"TEMP","PRODUCT",14422)
+
+"TEMP","PRODUCT",14423)
+
+"TEMP","PRODUCT",14440)
+
+"TEMP","PRODUCT",14441)
+
+"TEMP","PRODUCT",14442)
+
+"TEMP","PRODUCT",14443)
+
+"TEMP","PRODUCT",14444)
+
+"TEMP","PRODUCT",14445)
+
+"TEMP","PRODUCT",14446)
+
+"TEMP","PRODUCT",14447)
+
+"TEMP","PRODUCT",14458)
+
+"TEMP","PRODUCT",14459)
+
+"TEMP","PRODUCT",14460)
+
+"TEMP","PRODUCT",14463)
+
+"TEMP","PRODUCT",14466)
+
+"TEMP","PRODUCT",14473)
+
+"TEMP","PRODUCT",14475)
+
+"TEMP","PRODUCT",14479)
+
+"TEMP","PRODUCT",14480)
+
+"TEMP","PRODUCT",14481)
+
+"TEMP","PRODUCT",14503)
+
+"TEMP","PRODUCT",14504)
+
+"TEMP","PRODUCT",14505)
+
+"TEMP","PRODUCT",14506)
+
+"TEMP","PRODUCT",14507)
+
+"TEMP","PRODUCT",14508)
+
+"TEMP","PRODUCT",14509)
+
+"TEMP","PRODUCT",14510)
+
+"TEMP","PRODUCT",14549)
+
+"TEMP","PRODUCT",14567)
+
+"TEMP","PRODUCT",14568)
+
+"TEMP","PRODUCT",14569)
+
+"TEMP","PRODUCT",14570)
+
+"TEMP","PRODUCT",14575)
+
+"TEMP","PRODUCT",14576)
+
+"TEMP","PRODUCT",14577)
+
+"TEMP","PRODUCT",14581)
+
+"TEMP","PRODUCT",14583)
+
+"TEMP","PRODUCT",14585)
+
+"TEMP","PRODUCT",14586)
+
+"TEMP","PRODUCT",14592)
+
+"TEMP","PRODUCT",14595)
+
+"TEMP","PRODUCT",14604)
+
+"TEMP","PRODUCT",14606)
+
+"TEMP","PRODUCT",14607)
+
+"TEMP","PRODUCT",14608)
+
+"TEMP","PRODUCT",14609)
+
+"TEMP","PRODUCT",14617)
+
+"TEMP","PRODUCT",14626)
+
+"TEMP","PRODUCT",14669)
+
+"TEMP","PRODUCT",14670)
+
+"TEMP","PRODUCT",14687)
+
+"TEMP","PRODUCT",14688)
+
+"TEMP","PRODUCT",14701)
+
+"TEMP","PRODUCT",14703)
+
+"TEMP","PRODUCT",14706)
+
+"TEMP","PRODUCT",14707)
+
+"TEMP","PRODUCT",14712)
+
+"TEMP","PRODUCT",14713)
+
+"TEMP","PRODUCT",14738)
+
+"TEMP","PRODUCT",14745)
+
+"TEMP","PRODUCT",14746)
+
+"TEMP","PRODUCT",14747)
+
+"TEMP","PRODUCT",14748)
+
+"TEMP","PRODUCT",14749)
+
+"TEMP","PRODUCT",14750)
+
+"TEMP","PRODUCT",14751)
+
+"TEMP","PRODUCT",14763)
+
+"TEMP","PRODUCT",14764)
+
+"TEMP","PRODUCT",14765)
+
+"TEMP","PRODUCT",14811)
+
+"TEMP","PRODUCT",14812)
+
+"TEMP","PRODUCT",14813)
+
+"TEMP","PRODUCT",14814)
+
+"TEMP","PRODUCT",14815)
+
+"TEMP","PRODUCT",14816)
+
+"TEMP","PRODUCT",14817)
+
+"TEMP","PRODUCT",14818)
+
+"TEMP","PRODUCT",14819)
+
+"TEMP","PRODUCT",14820)
+
+"TEMP","PRODUCT",14821)
+
+"TEMP","PRODUCT",14822)
+
+"TEMP","PRODUCT",14823)
+
+"TEMP","PRODUCT",14824)
+
+"TEMP","PRODUCT",14825)
+
+"TEMP","PRODUCT",14826)
+
+"TEMP","PRODUCT",14827)
+
+"TEMP","PRODUCT",14828)
+
+"TEMP","PRODUCT",14829)
+
+"TEMP","PRODUCT",14830)
+
+"TEMP","PRODUCT",14831)
+
+"TEMP","PRODUCT",14832)
+
+"TEMP","PRODUCT",14833)
+
+"TEMP","PRODUCT",14834)
+
+"TEMP","PRODUCT",14835)
+
+"TEMP","PRODUCT",14836)
+
+"TEMP","PRODUCT",14837)
+
+"TEMP","PRODUCT",14838)
+
+"TEMP","PRODUCT",14839)
+
+"TEMP","PRODUCT",14840)
+
+"TEMP","PRODUCT",14841)
+
+"TEMP","PRODUCT",14842)
+
+"TEMP","PRODUCT",14843)
+
+"TEMP","PRODUCT",14844)
+
+"TEMP","PRODUCT",14845)
+
+"TEMP","PRODUCT",14846)
+
+"TEMP","PRODUCT",14847)
+
+"TEMP","PRODUCT",14848)
+
+"TEMP","PRODUCT",14849)
+
+"TEMP","PRODUCT",14862)
+
+"TEMP","PRODUCT",14891)
+
+"TEMP","PRODUCT",14893)
+
+"TEMP","PRODUCT",14897)
+
+"TEMP","PRODUCT",14898)
+
+"TEMP","PRODUCT",14901)
+
+"TEMP","PRODUCT",14902)
+
+"TEMP","PRODUCT",14903)
+
+"TEMP","PRODUCT",14910)
+
+"TEMP","PRODUCT",14917)
+
+"TEMP","PRODUCT",14920)
+
+"TEMP","PRODUCT",14921)
+
+"TEMP","PRODUCT",14930)
+
+"TEMP","PRODUCT",14931)
+
+"TEMP","PRODUCT",14944)
+
+"TEMP","PRODUCT",14948)
+
+"TEMP","PRODUCT",14949)
+
+"TEMP","PRODUCT",14953)
+
+"TEMP","PRODUCT",14954)
+
+"TEMP","PRODUCT",14959)
+
+"TEMP","PRODUCT",14968)
+
+"TEMP","PRODUCT",14969)
+
+"TEMP","PRODUCT",14970)
+
+"TEMP","PRODUCT",14972)
+
+"TEMP","PRODUCT",14975)
+
+"TEMP","PRODUCT",14991)
+
+"TEMP","PRODUCT",14992)
+
+"TEMP","PRODUCT",15010)
+
+"TEMP","PRODUCT",15011)
+
+"TEMP","PRODUCT",15012)
+
+"TEMP","PRODUCT",15013)
+
+"TEMP","PRODUCT",15016)
+
+"TEMP","PRODUCT",15017)
+
+"TEMP","PRODUCT",15021)
+
+"TEMP","PRODUCT",15027)
+
+"TEMP","PRODUCT",15032)
+
+"TEMP","PRODUCT",15036)
+
+"TEMP","PRODUCT",15045)
+
+"TEMP","PRODUCT",15050)
+
+"TEMP","PRODUCT",15051)
+
+"TEMP","PRODUCT",15052)
+
+"TEMP","PRODUCT",15055)
+
+"TEMP","PRODUCT",15059)
+
+"TEMP","PRODUCT",15060)
+
+"TEMP","PRODUCT",15074)
+
+"TEMP","PRODUCT",15076)
+
+"TEMP","PRODUCT",15078)
+
+"TEMP","PRODUCT",15080)
+
+"TEMP","PRODUCT",15094)
+
+"TEMP","PRODUCT",15098)
+
+"TEMP","PRODUCT",15099)
+
+"TEMP","PRODUCT",15107)
+
+"TEMP","PRODUCT",15122)
+
+"TEMP","PRODUCT",15123)
+
+"TEMP","PRODUCT",15130)
+
+"TEMP","PRODUCT",15131)
+
+"TEMP","PRODUCT",15134)
+
+"TEMP","PRODUCT",15135)
+
+"TEMP","PRODUCT",15136)
+
+"TEMP","PRODUCT",15140)
+
+"TEMP","PRODUCT",15141)
+
+"TEMP","PRODUCT",15161)
+
+"TEMP","PRODUCT",15166)
+
+"TEMP","PRODUCT",15167)
+
+"TEMP","PRODUCT",15178)
+
+"TEMP","PRODUCT",15180)
+
+"TEMP","PRODUCT",15192)
+
+"TEMP","PRODUCT",15204)
+
+"TEMP","PRODUCT",15222)
+
+"TEMP","PRODUCT",15223)
+
+"TEMP","PRODUCT",15224)
+
+"TEMP","PRODUCT",15237)
+
+"TEMP","PRODUCT",15248)
+
+"TEMP","PRODUCT",15272)
+
+"TEMP","PRODUCT",15275)
+
+"TEMP","PRODUCT",15281)
+
+"TEMP","PRODUCT",15284)
+
+"TEMP","PRODUCT",15293)
+
+"TEMP","PRODUCT",15298)
+
+"TEMP","PRODUCT",15306)
+
+"TEMP","PRODUCT",15311)
+
+"TEMP","PRODUCT",15312)
+
+"TEMP","PRODUCT",15324)
+
+"TEMP","PRODUCT",15325)
+
+"TEMP","PRODUCT",15326)
+
+"TEMP","PRODUCT",15327)
+
+"TEMP","PRODUCT",15328)
+
+"TEMP","PRODUCT",15338)
+
+"TEMP","PRODUCT",15339)
+
+"TEMP","PRODUCT",15340)
+
+"TEMP","PRODUCT",15342)
+
+"TEMP","PRODUCT",15343)
+
+"TEMP","PRODUCT",15344)
+
+"TEMP","PRODUCT",15345)
+
+"TEMP","PRODUCT",15346)
+
+"TEMP","PRODUCT",15347)
+
+"TEMP","PRODUCT",15349)
+
+"TEMP","PRODUCT",15350)
+
+"TEMP","PRODUCT",15351)
+
+"TEMP","PRODUCT",15352)
+
+"TEMP","PRODUCT",15356)
+
+"TEMP","PRODUCT",15358)
+
+"TEMP","PRODUCT",15360)
+
+"TEMP","PRODUCT",15364)
+
+"TEMP","PRODUCT",15365)
+
+"TEMP","PRODUCT",15366)
+
+"TEMP","PRODUCT",15367)
+
+"TEMP","PRODUCT",15376)
+
+"TEMP","PRODUCT",15377)
+
+"TEMP","PRODUCT",15382)
+
+"TEMP","PRODUCT",15396)
+
+"TEMP","PRODUCT",15398)
+
+"TEMP","PRODUCT",15399)
+
+"TEMP","PRODUCT",15401)
+
+"TEMP","PRODUCT",15406)
+
+"TEMP","PRODUCT",15407)
+
+"TEMP","PRODUCT",15408)
+
+"TEMP","PRODUCT",15422)
+
+"TEMP","PRODUCT",15425)
+
+"TEMP","PRODUCT",15426)
+
+"TEMP","PRODUCT",15427)
+
+"TEMP","PRODUCT",15428)
+
+"TEMP","PRODUCT",15429)
+
+"TEMP","PRODUCT",15441)
+
+"TEMP","PRODUCT",15442)
+
+"TEMP","PRODUCT",15443)
+
+"TEMP","PRODUCT",15444)
+
+"TEMP","PRODUCT",15446)
+
+"TEMP","PRODUCT",15447)
+
+"TEMP","PRODUCT",15448)
+
+"TEMP","PRODUCT",15449)
+
+"TEMP","PRODUCT",15456)
+
+"TEMP","PRODUCT",15458)
+
+"TEMP","PRODUCT",15459)
+
+"TEMP","PRODUCT",15461)
+
+"TEMP","PRODUCT",15462)
+
+"TEMP","PRODUCT",15463)
+
+"TEMP","PRODUCT",15466)
+
+"TEMP","PRODUCT",15468)
+
+"TEMP","PRODUCT",15476)
+
+"TEMP","PRODUCT",15485)
+
+"TEMP","PRODUCT",15488)
+
+"TEMP","PRODUCT",15492)
+
+"TEMP","PRODUCT",15496)
+
+"TEMP","PRODUCT",15504)
+
+"TEMP","PRODUCT",15505)
+
+"TEMP","PRODUCT",15506)
+
+"TEMP","PRODUCT",15507)
+
+"TEMP","PRODUCT",15515)
+
+"TEMP","PRODUCT",15523)
+
+"TEMP","PRODUCT",15525)
+
+"TEMP","PRODUCT",15526)
+
+"TEMP","PRODUCT",15528)
+
+"TEMP","PRODUCT",15529)
+
+"TEMP","PRODUCT",15530)
+
+"TEMP","PRODUCT",15541)
+
+"TEMP","PRODUCT",15542)
+
+"TEMP","PRODUCT",15543)
+
+"TEMP","PRODUCT",15544)
+
+"TEMP","PRODUCT",15545)
+
+"TEMP","PRODUCT",15546)
+
+"TEMP","PRODUCT",15547)
+
+"TEMP","PRODUCT",15548)
+
+"TEMP","PRODUCT",15549)
+
+"TEMP","PRODUCT",15550)
+
+"TEMP","PRODUCT",15551)
+
+"TEMP","PRODUCT",15552)
+
+"TEMP","PRODUCT",15555)
+
+"TEMP","PRODUCT",15558)
+
+"TEMP","PRODUCT",15559)
+
+"TEMP","PRODUCT",15563)
+
+"TEMP","PRODUCT",15564)
+
+"TEMP","PRODUCT",15568)
+
+"TEMP","PRODUCT",15575)
+
+"TEMP","PRODUCT",15576)
+
+"TEMP","PRODUCT",15579)
+
+"TEMP","PRODUCT",15581)
+
+"TEMP","PRODUCT",15582)
+
+"TEMP","PRODUCT",15583)
+
+"TEMP","PRODUCT",15584)
+
+"TEMP","PRODUCT",15585)
+
+"TEMP","PRODUCT",15586)
+
+"TEMP","PRODUCT",15587)
+
+"TEMP","PRODUCT",15604)
+
+"TEMP","PRODUCT",15605)
+
+"TEMP","PRODUCT",15609)
+
+"TEMP","PRODUCT",15610)
+
+"TEMP","PRODUCT",15612)
+
+"TEMP","PRODUCT",15614)
+
+"TEMP","PRODUCT",15653)
+
+"TEMP","PRODUCT",15664)
+
+"TEMP","PRODUCT",15670)
+
+"TEMP","PRODUCT",15677)
+
+"TEMP","PRODUCT",15678)
+
+"TEMP","PRODUCT",15679)
+
+"TEMP","PRODUCT",15690)
+
+"TEMP","PRODUCT",15698)
+
+"TEMP","PRODUCT",15700)
+
+"TEMP","PRODUCT",15701)
+
+"TEMP","PRODUCT",15722)
+
+"TEMP","PRODUCT",15728)
+
+"TEMP","PRODUCT",15741)
+
+"TEMP","PRODUCT",15745)
+
+"TEMP","PRODUCT",15752)
+
+"TEMP","PRODUCT",15764)
+
+"TEMP","PRODUCT",15839)
+
+"TEMP","PRODUCT",15843)
+
+"TEMP","PRODUCT",15844)
+
+"TEMP","PRODUCT",15845)
+
+"TEMP","PRODUCT",15847)
+
+"TEMP","PRODUCT",15858)
+
+"TEMP","PRODUCT",15859)
+
+"TEMP","PRODUCT",15860)
+
+"TEMP","PRODUCT",15862)
+
+"TEMP","PRODUCT",15864)
+
+"TEMP","PRODUCT",15865)
+
+"TEMP","PRODUCT",15866)
+
+"TEMP","PRODUCT",15869)
+
+"TEMP","PRODUCT",15871)
+
+"TEMP","PRODUCT",15877)
+
+"TEMP","PRODUCT",15882)
+
+"TEMP","PRODUCT",15890)
+
+"TEMP","PRODUCT",15891)
+
+"TEMP","PRODUCT",15892)
+
+"TEMP","PRODUCT",15893)
+
+"TEMP","PRODUCT",15908)
+
+"TEMP","PRODUCT",15909)
+
+"TEMP","PRODUCT",15911)
+
+"TEMP","PRODUCT",15913)
+
+"TEMP","PRODUCT",15916)
+
+"TEMP","PRODUCT",15917)
+
+"TEMP","PRODUCT",15918)
+
+"TEMP","PRODUCT",15919)
+
+"TEMP","PRODUCT",15920)
+
+"TEMP","PRODUCT",15921)
+
+"TEMP","PRODUCT",15930)
+
+"TEMP","PRODUCT",15932)
+
+"TEMP","PRODUCT",15933)
+
+"TEMP","PRODUCT",15936)
+
+"TEMP","PRODUCT",15943)
+
+"TEMP","PRODUCT",15949)
+
+"TEMP","PRODUCT",15950)
+
+"TEMP","PRODUCT",15956)
+
+"TEMP","PRODUCT",15958)
+
+"TEMP","PRODUCT",15963)
+
+"TEMP","PRODUCT",15964)
+
+"TEMP","PRODUCT",15965)
+
+"TEMP","PRODUCT",15966)
+
+"TEMP","PRODUCT",15969)
+
+"TEMP","PRODUCT",15972)
+
+"TEMP","PRODUCT",15975)
+
+"TEMP","PRODUCT",15977)
+
+"TEMP","PRODUCT",15979)
+
+"TEMP","PRODUCT",15981)
+
+"TEMP","PRODUCT",15990)
+
+"TEMP","PRODUCT",15991)
+
+"TEMP","PRODUCT",15992)
+
+"TEMP","PRODUCT",15994)
+
+"TEMP","PRODUCT",16001)
+
+"TEMP","PRODUCT",16010)
+
+"TEMP","PRODUCT",16017)
+
+"TEMP","PRODUCT",16018)
+
+"TEMP","PRODUCT",16038)
+
+"TEMP","PRODUCT",16043)
+
+"TEMP","PRODUCT",16064)
+
+"TEMP","PRODUCT",16065)
+
+"TEMP","PRODUCT",16071)
+
+"TEMP","PRODUCT",16077)
+
+"TEMP","PRODUCT",16078)
+
+"TEMP","PRODUCT",16079)
+
+"TEMP","PRODUCT",16080)
+
+"TEMP","PRODUCT",16081)
+
+"TEMP","PRODUCT",16088)
+
+"TEMP","PRODUCT",16095)
+
+"TEMP","PRODUCT",16096)
+
+"TEMP","PRODUCT",16129)
+
+"TEMP","PRODUCT",16133)
+
+"TEMP","PRODUCT",16134)
+
+"TEMP","PRODUCT",16144)
+
+"TEMP","PRODUCT",16163)
+
+"TEMP","PRODUCT",16173)
+
+"TEMP","PRODUCT",16174)
+
+"TEMP","PRODUCT",16175)
+
+"TEMP","PRODUCT",16193)
+
+"TEMP","PRODUCT",16198)
+
+"TEMP","PRODUCT",16199)
+
+"TEMP","PRODUCT",16200)
+
+"TEMP","PRODUCT",16206)
+
+"TEMP","PRODUCT",16207)
+
+"TEMP","PRODUCT",16208)
+
+"TEMP","PRODUCT",16209)
+
+"TEMP","PRODUCT",16210)
+
+"TEMP","PRODUCT",16217)
+
+"TEMP","PRODUCT",16232)
+
+"TEMP","PRODUCT",16236)
+
+"TEMP","PRODUCT",16245)
+
+"TEMP","PRODUCT",16257)
+
+"TEMP","PRODUCT",16264)
+
+"TEMP","PRODUCT",16267)
+
+"TEMP","PRODUCT",16269)
+
+"TEMP","PRODUCT",16279)
+
+"TEMP","PRODUCT",16283)
+
+"TEMP","PRODUCT",16325)
+
+"TEMP","PRODUCT",16327)
+
+"TEMP","PRODUCT",16328)
+
+"TEMP","PRODUCT",16329)
+
+"TEMP","PRODUCT",16330)
+
+"TEMP","PRODUCT",16331)
+
+"TEMP","PRODUCT",16332)
+
+"TEMP","PRODUCT",16333)
+
+"TEMP","PRODUCT",16334)
+
+"TEMP","PRODUCT",16335)
+
+"TEMP","PRODUCT",16336)
+
+"TEMP","PRODUCT",16349)
+
+"TEMP","PRODUCT",16356)
+
+"TEMP","PRODUCT",16367)
+
+"TEMP","PRODUCT",16368)
+
+"TEMP","PRODUCT",16370)
+
+"TEMP","PRODUCT",16374)
+
+"TEMP","PRODUCT",16381)
+
+"TEMP","PRODUCT",16392)
+
+"TEMP","PRODUCT",16394)
+
+"TEMP","PRODUCT",16395)
+
+"TEMP","PRODUCT",16396)
+
+"TEMP","PRODUCT",16400)
+
+"TEMP","PRODUCT",16401)
+
+"TEMP","PRODUCT",16402)
+
+"TEMP","PRODUCT",16403)
+
+"TEMP","PRODUCT",16404)
+
+"TEMP","PRODUCT",16405)
+
+"TEMP","PRODUCT",16406)
+
+"TEMP","PRODUCT",16419)
+
+"TEMP","PRODUCT",16431)
+
+"TEMP","PRODUCT",16433)
+
+"TEMP","PRODUCT",16437)
+
+"TEMP","PRODUCT",16439)
+
+"TEMP","PRODUCT",16442)
+
+"TEMP","PRODUCT",16443)
+
+"TEMP","PRODUCT",16452)
+
+"TEMP","PRODUCT",16460)
+
+"TEMP","PRODUCT",16466)
+
+"TEMP","PRODUCT",16482)
+
+"TEMP","PRODUCT",16483)
+
+"TEMP","PRODUCT",16486)
+
+"TEMP","PRODUCT",16488)
+
+"TEMP","PRODUCT",16492)
+
+"TEMP","PRODUCT",16499)
+
+"TEMP","PRODUCT",16506)
+
+"TEMP","PRODUCT",16507)
+
+"TEMP","PRODUCT",16511)
+
+"TEMP","PRODUCT",16518)
+
+"TEMP","PRODUCT",16519)
+
+"TEMP","PRODUCT",16523)
+
+"TEMP","PRODUCT",16543)
+
+"TEMP","PRODUCT",16546)
+
+"TEMP","PRODUCT",16551)
+
+"TEMP","PRODUCT",16552)
+
+"TEMP","PRODUCT",16556)
+
+"TEMP","PRODUCT",16557)
+
+"TEMP","PRODUCT",16560)
+
+"TEMP","PRODUCT",16563)
+
+"TEMP","PRODUCT",16566)
+
+"TEMP","PRODUCT",16578)
+
+"TEMP","PRODUCT",16582)
+
+"TEMP","PRODUCT",16583)
+
+"TEMP","PRODUCT",16584)
+
+"TEMP","PRODUCT",16585)
+
+"TEMP","PRODUCT",16597)
+
+"TEMP","PRODUCT",16598)
+
+"TEMP","PRODUCT",16601)
+
+"TEMP","PRODUCT",16628)
+
+"TEMP","PRODUCT",16632)
+
+"TEMP","PRODUCT",16633)
+
+"TEMP","PRODUCT",16653)
+
+"TEMP","PRODUCT",16656)
+
+"TEMP","PRODUCT",16657)
+
+"TEMP","PRODUCT",16658)
+
+"TEMP","PRODUCT",16661)
+
+"TEMP","PRODUCT",16671)
+
+"TEMP","PRODUCT",16672)
+
+"TEMP","PRODUCT",16680)
+
+"TEMP","PRODUCT",16689)
+
+"TEMP","PRODUCT",16690)
+
+"TEMP","PRODUCT",16691)
+
+"TEMP","PRODUCT",16692)
+
+"TEMP","PRODUCT",16693)
+
+"TEMP","PRODUCT",16705)
+
+"TEMP","PRODUCT",16706)
+
+"TEMP","PRODUCT",16735)
+
+"TEMP","PRODUCT",16743)
+
+"TEMP","PRODUCT",16748)
+
+"TEMP","PRODUCT",16749)
+
+"TEMP","PRODUCT",16769)
+
+"TEMP","PRODUCT",16772)
+
+"TEMP","PRODUCT",16773)
+
+"TEMP","PRODUCT",16783)
+
+"TEMP","PRODUCT",16784)
+
+"TEMP","PRODUCT",16785)
+
+"TEMP","PRODUCT",16790)
+
+"TEMP","PRODUCT",16792)
+
+"TEMP","PRODUCT",16797)
+
+"TEMP","PRODUCT",16798)
+
+"TEMP","PRODUCT",16803)
+
+"TEMP","PRODUCT",16818)
+
+"TEMP","PRODUCT",16833)
+
+"TEMP","PRODUCT",16837)
+
+"TEMP","PRODUCT",16838)
+
+"TEMP","PRODUCT",16843)
+
+"TEMP","PRODUCT",16845)
+
+"TEMP","PRODUCT",16847)
+
+"TEMP","PRODUCT",16848)
+
+"TEMP","PRODUCT",16851)
+
+"TEMP","PRODUCT",16852)
+
+"TEMP","PRODUCT",16853)
+
+"TEMP","PRODUCT",16854)
+
+"TEMP","PRODUCT",16855)
+
+"TEMP","PRODUCT",16856)
+
+"TEMP","PRODUCT",16870)
+
+"TEMP","PRODUCT",16876)
+
+"TEMP","PRODUCT",16878)
+
+"TEMP","PRODUCT",16880)
+
+"TEMP","PRODUCT",16882)
+
+"TEMP","PRODUCT",16884)
+
+"TEMP","PRODUCT",16885)
+
+"TEMP","PRODUCT",16887)
+
+"TEMP","PRODUCT",16890)
+
+"TEMP","PRODUCT",16891)
+
+"TEMP","PRODUCT",16893)
+
+"TEMP","PRODUCT",16896)
+
+"TEMP","PRODUCT",16898)
+
+"TEMP","PRODUCT",16899)
+
+"TEMP","PRODUCT",16903)
+
+"TEMP","PRODUCT",16916)
+
+"TEMP","PRODUCT",16917)
+
+"TEMP","PRODUCT",16918)
+
+"TEMP","PRODUCT",16919)
+
+"TEMP","PRODUCT",16920)
+
+"TEMP","PRODUCT",16921)
+
+"TEMP","PRODUCT",16922)
+
+"TEMP","PRODUCT",16926)
+
+"TEMP","PRODUCT",16938)
+
+"TEMP","PRODUCT",16940)
+
+"TEMP","PRODUCT",16951)
+
+"TEMP","PRODUCT",16952)
+
+"TEMP","PRODUCT",16969)
+
+"TEMP","PRODUCT",16970)
+
+"TEMP","PRODUCT",16971)
+
+"TEMP","PRODUCT",16972)
+
+"TEMP","PRODUCT",16973)
+
+"TEMP","PRODUCT",16987)
+
+"TEMP","PRODUCT",16988)
+
+"TEMP","PRODUCT",16989)
+
+"TEMP","PRODUCT",16990)
+
+"TEMP","PRODUCT",16991)
+
+"TEMP","PRODUCT",16998)
+
+"TEMP","PRODUCT",17000)
+
+"TEMP","PRODUCT",17002)
+
+"TEMP","PRODUCT",17005)
+
+"TEMP","PRODUCT",17011)
+
+"TEMP","PRODUCT",17012)
+
+"TEMP","PRODUCT",17013)
+
+"TEMP","PRODUCT",17020)
+
+"TEMP","PRODUCT",17033)
+
+"TEMP","PRODUCT",17045)
+
+"TEMP","PRODUCT",17050)
+
+"TEMP","PRODUCT",17051)
+
+"TEMP","PRODUCT",17059)
+
+"TEMP","PRODUCT",17060)
+
+"TEMP","PRODUCT",17061)
+
+"TEMP","PRODUCT",17066)
+
+"TEMP","PRODUCT",17070)
+
+"TEMP","PRODUCT",17071)
+
+"TEMP","PRODUCT",17072)
+
+"TEMP","PRODUCT",17086)
+
+"TEMP","PRODUCT",17091)
+
+"TEMP","PRODUCT",17100)
+
+"TEMP","PRODUCT",17103)
+
+"TEMP","PRODUCT",17110)
+
+"TEMP","PRODUCT",17113)
+
+"TEMP","PRODUCT",17118)
+
+"TEMP","PRODUCT",17121)
+
+"TEMP","PRODUCT",17122)
+
+"TEMP","PRODUCT",17123)
+
+"TEMP","PRODUCT",17127)
+
+"TEMP","PRODUCT",17130)
+
+"TEMP","PRODUCT",17144)
+
+"TEMP","PRODUCT",17146)
+
+"TEMP","PRODUCT",17147)
+
+"TEMP","PRODUCT",17152)
+
+"TEMP","PRODUCT",17155)
+
+"TEMP","PRODUCT",17158)
+
+"TEMP","PRODUCT",17166)
+
+"TEMP","PRODUCT",17174)
+
+"TEMP","PRODUCT",17181)
+
+"TEMP","PRODUCT",17187)
+
+"TEMP","PRODUCT",17217)
+
+"TEMP","PRODUCT",17222)
+
+"TEMP","PRODUCT",17234)
+
+"TEMP","PRODUCT",17247)
+
+"TEMP","PRODUCT",17249)
+
+"TEMP","PRODUCT",17252)
+
+"TEMP","PRODUCT",17259)
+
+"TEMP","PRODUCT",17260)
+
+"TEMP","PRODUCT",17261)
+
+"TEMP","PRODUCT",17262)
+
+"TEMP","PRODUCT",17263)
+
+"TEMP","PRODUCT",17264)
+
+"TEMP","PRODUCT",17267)
+
+"TEMP","PRODUCT",17268)
+
+"TEMP","PRODUCT",17269)
+
+"TEMP","PRODUCT",17270)
+
+"TEMP","PRODUCT",17276)
+
+"TEMP","PRODUCT",17277)
+
+"TEMP","PRODUCT",17278)
+
+"TEMP","PRODUCT",17279)
+
+"TEMP","PRODUCT",17280)
+
+"TEMP","PRODUCT",17281)
+
+"TEMP","PRODUCT",17282)
+
+"TEMP","PRODUCT",17283)
+
+"TEMP","PRODUCT",17284)
+
+"TEMP","PRODUCT",17285)
+
+"TEMP","PRODUCT",17286)
+
+"TEMP","PRODUCT",17287)
+
+"TEMP","PRODUCT",17288)
+
+"TEMP","PRODUCT",17289)
+
+"TEMP","PRODUCT",17290)
+
+"TEMP","PRODUCT",17293)
+
+"TEMP","PRODUCT",17295)
+
+"TEMP","PRODUCT",17296)
+
+"TEMP","PRODUCT",17310)
+
+"TEMP","PRODUCT",17313)
+
+"TEMP","PRODUCT",17319)
+
+"TEMP","PRODUCT",17320)
+
+"TEMP","PRODUCT",17321)
+
+"TEMP","PRODUCT",17322)
+
+"TEMP","PRODUCT",17323)
+
+"TEMP","PRODUCT",17324)
+
+"TEMP","PRODUCT",17326)
+
+"TEMP","PRODUCT",17345)
+
+"TEMP","PRODUCT",17349)
+
+"TEMP","PRODUCT",17350)
+
+"TEMP","PRODUCT",17363)
+
+"TEMP","PRODUCT",17365)
+
+"TEMP","PRODUCT",17386)
+
+"TEMP","PRODUCT",17388)
+
+"TEMP","PRODUCT",17392)
+
+"TEMP","PRODUCT",17400)
+
+"TEMP","PRODUCT",17401)
+
+"TEMP","PRODUCT",17402)
+
+"TEMP","PRODUCT",17403)
+
+"TEMP","PRODUCT",17404)
+
+"TEMP","PRODUCT",17405)
+
+"TEMP","PRODUCT",17406)
+
+"TEMP","PRODUCT",17407)
+
+"TEMP","PRODUCT",17410)
+
+"TEMP","PRODUCT",17421)
+
+"TEMP","PRODUCT",17422)
+
+"TEMP","PRODUCT",17423)
+
+"TEMP","PRODUCT",17425)
+
+"TEMP","PRODUCT",17431)
+
+"TEMP","PRODUCT",17438)
+
+"TEMP","PRODUCT",17441)
+
+"TEMP","PRODUCT",17445)
+
+"TEMP","PRODUCT",17448)
+
+"TEMP","PRODUCT",17449)
+
+"TEMP","PRODUCT",17450)
+
+"TEMP","PRODUCT",17458)
+
+"TEMP","PRODUCT",17462)
+
+"TEMP","PRODUCT",17463)
+
+"TEMP","PRODUCT",17465)
+
+"TEMP","PRODUCT",17474)
+
+"TEMP","PRODUCT",17476)
+
+"TEMP","PRODUCT",17477)
+
+"TEMP","PRODUCT",17478)
+
+"TEMP","PRODUCT",17480)
+
+"TEMP","PRODUCT",17481)
+
+"TEMP","PRODUCT",17484)
+
+"TEMP","PRODUCT",17494)
+
+"TEMP","PRODUCT",17495)
+
+"TEMP","PRODUCT",17496)
+
+"TEMP","PRODUCT",17499)
+
+"TEMP","PRODUCT",17503)
+
+"TEMP","PRODUCT",17504)
+
+"TEMP","PRODUCT",17505)
+
+"TEMP","PRODUCT",17508)
+
+"TEMP","PRODUCT",17509)
+
+"TEMP","PRODUCT",17521)
+
+"TEMP","PRODUCT",17524)
+
+"TEMP","PRODUCT",17526)
+
+"TEMP","PRODUCT",17530)
+
+"TEMP","PRODUCT",17532)
+
+"TEMP","PRODUCT",17533)
+
+"TEMP","PRODUCT",17538)
+
+"TEMP","PRODUCT",17539)
+
+"TEMP","PRODUCT",17540)
+
+"TEMP","PRODUCT",17541)
+
+"TEMP","PRODUCT",17544)
+
+"TEMP","PRODUCT",17556)
+
+"TEMP","PRODUCT",17557)
+
+"TEMP","PRODUCT",17558)
+
+"TEMP","PRODUCT",17589)
+
+"TEMP","PRODUCT",17592)
+
+"TEMP","PRODUCT",17593)
+
+"TEMP","PRODUCT",17597)
+
+"TEMP","PRODUCT",17604)
+
+"TEMP","PRODUCT",17608)
+
+"TEMP","PRODUCT",17609)
+
+"TEMP","PRODUCT",17614)
+
+"TEMP","PRODUCT",17615)
+
+"TEMP","PRODUCT",17625)
+
+"TEMP","PRODUCT",17640)
+
+"TEMP","PRODUCT",17655)
+
+"TEMP","PRODUCT",17657)
+
+"TEMP","PRODUCT",17663)
+
+"TEMP","PRODUCT",17664)
+
+"TEMP","PRODUCT",17665)
+
+"TEMP","PRODUCT",17666)
+
+"TEMP","PRODUCT",17667)
+
+"TEMP","PRODUCT",17668)
+
+"TEMP","PRODUCT",17669)
+
+"TEMP","PRODUCT",17670)
+
+"TEMP","PRODUCT",17672)
+
+"TEMP","PRODUCT",17675)
+
+"TEMP","PRODUCT",17678)
+
+"TEMP","PRODUCT",17685)
+
+"TEMP","PRODUCT",17698)
+
+"TEMP","PRODUCT",17722)
+
+"TEMP","PRODUCT",17725)
+
+"TEMP","PRODUCT",17728)
+
+"TEMP","PRODUCT",17730)
+
+"TEMP","PRODUCT",17775)
+
+"TEMP","PRODUCT",17785)
+
+"TEMP","PRODUCT",17786)
+
+"TEMP","PRODUCT",17787)
+
+"TEMP","PRODUCT",17793)
+
+"TEMP","PRODUCT",17812)
+
+"TEMP","PRODUCT",17816)
+
+"TEMP","PRODUCT",17823)
+
+"TEMP","PRODUCT",17840)
+
+"TEMP","PRODUCT",17843)
+
+"TEMP","PRODUCT",17845)
+
+"TEMP","PRODUCT",17846)
+
+"TEMP","PRODUCT",17847)
+
+"TEMP","PRODUCT",17848)
+
+"TEMP","PRODUCT",17849)
+
+"TEMP","PRODUCT",17850)
+
+"TEMP","PRODUCT",17851)
+
+"TEMP","PRODUCT",17852)
+
+"TEMP","PRODUCT",17853)
+
+"TEMP","PRODUCT",17854)
+
+"TEMP","PRODUCT",17857)
+
+"TEMP","PRODUCT",17859)
+
+"TEMP","PRODUCT",17860)
+
+"TEMP","PRODUCT",17861)
+
+"TEMP","PRODUCT",17875)
+
+"TEMP","PRODUCT",17877)
+
+"TEMP","PRODUCT",17896)
+
+"TEMP","PRODUCT",17897)
+
+"TEMP","PRODUCT",17898)
+
+"TEMP","PRODUCT",17907)
+
+"TEMP","PRODUCT",17912)
+
+"TEMP","PRODUCT",17924)
+
+"TEMP","PRODUCT",17928)
+
+"TEMP","PRODUCT",17935)
+
+"TEMP","PRODUCT",17941)
+
+"TEMP","PRODUCT",17942)
+
+"TEMP","PRODUCT",17943)
+
+"TEMP","PRODUCT",17944)
+
+"TEMP","PRODUCT",17945)
+
+"TEMP","PRODUCT",17946)
+
+"TEMP","PRODUCT",17947)
+
+"TEMP","PRODUCT",17948)
+
+"TEMP","PRODUCT",17949)
+
+"TEMP","PRODUCT",17973)
+
+"TEMP","PRODUCT",17974)
+
+"TEMP","PRODUCT",17978)
+
+"TEMP","PRODUCT",17979)
+
+"TEMP","PRODUCT",17991)
+
+"TEMP","PRODUCT",18003)
+
+"TEMP","PRODUCT",18007)
+
+"TEMP","PRODUCT",18009)
+
+"TEMP","PRODUCT",18025)
+
+"TEMP","PRODUCT",18030)
+
+"TEMP","PRODUCT",18034)
+
+"TEMP","PRODUCT",18040)
+
+"TEMP","PRODUCT",18049)
+
+"TEMP","PRODUCT",18059)
+
+"TEMP","PRODUCT",18064)
+
+"TEMP","PRODUCT",18065)
+
+"TEMP","PRODUCT",18071)
+
+"TEMP","PRODUCT",18096)
+
+"TEMP","PRODUCT",18107)
+
+"TEMP","PRODUCT",18112)
+
+"TEMP","PRODUCT",18114)
+
+"TEMP","PRODUCT",18115)
+
+"TEMP","PRODUCT",18122)
+
+"TEMP","PRODUCT",18125)
+
+"TEMP","PRODUCT",18131)
+
+"TEMP","PRODUCT",18132)
+
+"TEMP","PRODUCT",18133)
+
+"TEMP","PRODUCT",18152)
+
+"TEMP","PRODUCT",18170)
+
+"TEMP","PRODUCT",18174)
+
+"TEMP","PRODUCT",18176)
+
+"TEMP","PRODUCT",18179)
+
+"TEMP","PRODUCT",18184)
+
+"TEMP","PRODUCT",18196)
+
+"TEMP","PRODUCT",18197)
+
+"TEMP","PRODUCT",18198)
+
+"TEMP","PRODUCT",18201)
+
+"TEMP","PRODUCT",18202)
+
+"TEMP","PRODUCT",18213)
+
+"TEMP","PRODUCT",18222)
+
+"TEMP","PRODUCT",18223)
+
+"TEMP","PRODUCT",18224)
+
+"TEMP","PRODUCT",18242)
+
+"TEMP","PRODUCT",18243)
+
+"TEMP","PRODUCT",18247)
+
+"TEMP","PRODUCT",18249)
+
+"TEMP","PRODUCT",18250)
+
+"TEMP","PRODUCT",18257)
+
+"TEMP","PRODUCT",18258)
+
+"TEMP","PRODUCT",18278)
+
+"TEMP","PRODUCT",18289)
+
+"TEMP","PRODUCT",18298)
+
+"TEMP","PRODUCT",18299)
+
+"TEMP","PRODUCT",18310)
+
+"TEMP","PRODUCT",18330)
+
+"TEMP","PRODUCT",18342)
+
+"TEMP","PRODUCT",18385)
+
+"TEMP","PRODUCT",18388)
+
+"TEMP","PRODUCT",18405)
+
+"TEMP","PRODUCT",18406)
+
+"TEMP","PRODUCT",18407)
+
+"TEMP","PRODUCT",18408)
+
+"TEMP","PRODUCT",18411)
+
+"TEMP","PRODUCT",18442)
+
+"TEMP","PRODUCT",18443)
+
+"TEMP","PRODUCT",18444)
+
+"TEMP","PRODUCT",18445)
+
+"TEMP","PRODUCT",18446)
+
+"TEMP","PRODUCT",18447)
+
+"TEMP","PRODUCT",18450)
+
+"TEMP","PRODUCT",18471)
+
+"TEMP","PRODUCT",18477)
+
+"TEMP","PRODUCT",18481)
+
+"TEMP","PRODUCT",18484)
+
+"TEMP","PRODUCT",18487)
+
+"TEMP","PRODUCT",18505)
+
+"TEMP","PRODUCT",18506)
+
+"TEMP","PRODUCT",18535)
+
+"TEMP","PRODUCT",18540)
+
+"TEMP","PRODUCT",18655)
+
+"TEMP","PRODUCT",18656)
+
+"TEMP","PRODUCT",18662)
+
+"TEMP","PRODUCT",18664)
+
+"TEMP","PRODUCT",18669)
+
+"TEMP","PRODUCT",18670)
+
+"TEMP","PRODUCT",18688)
+
+"TEMP","PRODUCT",18691)
+
+"TEMP","PRODUCT",18710)
+
+"TEMP","PRODUCT",18741)
+
+"TEMP","PRODUCT",18744)
+
+"TEMP","PRODUCT",18763)
+
+"TEMP","PRODUCT",18773)
+
+"TEMP","PRODUCT",18774)
+
+"TEMP","PRODUCT",18803)
+
+"TEMP","PRODUCT",18804)
+
+"TEMP","PRODUCT",18805)
+
+"TEMP","PRODUCT",18812)
+
+"TEMP","PRODUCT",18814)
+
+"TEMP","PRODUCT",18840)
+
+"TEMP","PRODUCT",18851)
+
+"TEMP","PRODUCT",18852)
+
+"TEMP","PRODUCT",18853)
+
+"TEMP","PRODUCT",18854)
+
+"TEMP","PRODUCT",18858)
+
+"TEMP","PRODUCT",18860)
+
+"TEMP","PRODUCT",18866)
+
+"TEMP","PRODUCT",18869)
+
+"TEMP","PRODUCT",18874)
+
+"TEMP","PRODUCT",18884)
+
+"TEMP","PRODUCT",19035)
+
+"TEMP","PRODUCT",19036)
+
+"TEMP","PRODUCT",19037)
+
+"TEMP","PRODUCT",19039)
+
+"TEMP","PRODUCT",19047)
+
+"TEMP","PRODUCT",19048)
+
+"TEMP","PRODUCT",19049)
+
+"TEMP","PRODUCT",19050)
+
+"TEMP","PRODUCT",19056)
+
+"TEMP","PRODUCT",19080)
+
+"TEMP","PRODUCT",19081)
+
+"TEMP","PRODUCT",19082)
+
+"TEMP","PRODUCT",19083)
+
+"TEMP","PRODUCT",19084)
+
+"TEMP","PRODUCT",19085)
+
+"TEMP","PRODUCT",19086)
+
+"TEMP","PRODUCT",19087)
+
+"TEMP","PRODUCT",19088)
+
+"TEMP","PRODUCT",19089)
+
+"TEMP","PRODUCT",19090)
+
+"TEMP","PRODUCT",19091)
+
+"TEMP","PRODUCT",19092)
+
+"TEMP","PRODUCT",19093)
+
+"TEMP","PRODUCT",19094)
+
+"TEMP","PRODUCT",19095)
+
+"TEMP","PRODUCT",19096)
+
+"TEMP","PRODUCT",19097)
+
+"TEMP","PRODUCT",19108)
+
+"TEMP","PRODUCT",19124)
+
+"TEMP","PRODUCT",19125)
+
+"TEMP","PRODUCT",19138)
+
+"TEMP","PRODUCT",19139)
+
+"TEMP","PRODUCT",19140)
+
+"TEMP","PRODUCT",19141)
+
+"TEMP","PRODUCT",19159)
+
+"TEMP","PRODUCT",19160)
+
+"TEMP","PRODUCT",19173)
+
+"TEMP","PRODUCT",19237)
+
+"TEMP","PRODUCT",19314)
+
+"TEMP","PRODUCT",19315)
+
+"TEMP","PRODUCT",19316)
+
+"TEMP","PRODUCT",19319)
+
+"TEMP","PRODUCT",19333)
+
+"TEMP","PRODUCT",19343)
+
+"TEMP","PRODUCT",19362)
+
+"TEMP","PRODUCT",19377)
+
+"TEMP","PRODUCT",19378)
+
+"TEMP","PRODUCT",19437)
+
+"TEMP","PRODUCT",19457)
+
+"TEMP","PRODUCT",19458)
+
+"TEMP","PRODUCT",19459)
+
+"TEMP","PRODUCT",19461)
+
+"TEMP","PRODUCT",19463)
+
+"TEMP","PRODUCT",19465)
+
+"TEMP","PRODUCT",19472)
+
+"TEMP","PRODUCT",19483)
+
+"TEMP","PRODUCT",19484)
+
+"TEMP","PRODUCT",19485)
+
+"TEMP","PRODUCT",19488)
+
+"TEMP","PRODUCT",19504)
+
+"TEMP","PRODUCT",19512)
+
+"TEMP","PRODUCT",19516)
+
+"TEMP","PRODUCT",19517)
+
+"TEMP","PRODUCT",19518)
+
+"TEMP","PRODUCT",19519)
+
+"TEMP","PRODUCT",19520)
+
+"TEMP","PRODUCT",19521)
+
+"TEMP","PRODUCT",19523)
+
+"TEMP","PRODUCT",19582)
+
+"TEMP","PRODUCT",19583)
+
+"TEMP","PRODUCT",19584)
+
+"TEMP","PRODUCT",19585)
+
+"TEMP","PRODUCT",19586)
+
+"TEMP","PRODUCT",19587)
+
+"TEMP","PRODUCT",19588)
+
+"TEMP","PRODUCT",19589)
+
+"TEMP","PRODUCT",19590)
+
+"TEMP","PRODUCT",19604)
+
+"TEMP","PRODUCT",19605)
+
+"TEMP","PRODUCT",19606)
+
+"TEMP","PRODUCT",19616)
+
+"TEMP","PRODUCT",19621)
+
+"TEMP","PRODUCT",19622)
+
+"TEMP","PRODUCT",19642)
+
+"TEMP","PRODUCT",19663)
+
+"TEMP","PRODUCT",19748)
+
+"TEMP","PRODUCT",19791)
+
+"TEMP","PRODUCT",19792)
+
+"TEMP","PRODUCT",19793)
+
+"TEMP","PRODUCT",19794)
+
+"TEMP","PRODUCT",19803)
+
+"TEMP","PRODUCT",19863)
+
+"TEMP","PRODUCT",19894)
+
+"TEMP","PRODUCT",19910)
+
+"TEMP","PRODUCT",19931)
+
+"TEMP","PRODUCT",19953)
+
+"TEMP","PRODUCT",19954)
+
+"TEMP","PRODUCT",19957)
+
+"TEMP","PRODUCT",19958)
+
+"TEMP","PRODUCT",19972)
+
+"TEMP","PRODUCT",20002)
+
+"TEMP","PRODUCT",20006)
+
+"TEMP","PRODUCT",20009)
+
+"TEMP","PRODUCT",20010)
+
+"TEMP","PRODUCT",20011)
+
+"TEMP","PRODUCT",20012)
+
+"TEMP","PRODUCT",20033)
+
+"TEMP","PRODUCT",20035)
+
+"TEMP","PRODUCT",20044)
+
+"TEMP","PRODUCT",20050)
+
+"TEMP","PRODUCT",20061)
+
+"TEMP","PRODUCT",20062)
+
+"TEMP","PRODUCT",20073)
+
+"TEMP","PRODUCT",20075)
+
+"TEMP","PRODUCT",20090)
+
+"TEMP","PRODUCT",20096)
+
+"TEMP","PRODUCT",20097)
+
+"TEMP","PRODUCT",20098)
+
+"TEMP","PRODUCT",20099)
+
+"TEMP","PRODUCT",20103)
+
+"TEMP","PRODUCT",20122)
+
+"TEMP","PRODUCT",20186)
+
+"TEMP","PRODUCT",20187)
+
+"TEMP","PRODUCT",20188)
+
+"TEMP","PRODUCT",20225)
+
+"TEMP","PRODUCT",20226)
+
+"TEMP","PRODUCT",20228)
+
+"TEMP","PRODUCT",20230)
+
+"TEMP","PRODUCT",20257)
+
+"TEMP","PRODUCT",20276)
+
+"TEMP","PRODUCT",20295)
+
+"TEMP","PRODUCT",20296)
+
+"TEMP","PRODUCT",20314)
+
+"TEMP","PRODUCT",20397)
+
+"TEMP","PRODUCT",20432)
+
+"TEMP","PRODUCT",20451)
+
+"TEMP","PRODUCT",20453)
+
+"TEMP","PRODUCT",20506)
+
+"TEMP","PRODUCT",20541)
+
+"TEMP","PRODUCT",20589)
+
+"TEMP","PRODUCT",20604)
+
+"TEMP","PRODUCT",20605)
+
+"TEMP","PRODUCT",20606)
+
+"TEMP","PRODUCT",20607)
+
+"TEMP","PRODUCT",20608)
+
+"TEMP","PRODUCT",20609)
+
+"TEMP","PRODUCT",20610)
+
+"TEMP","PRODUCT",20611)
+
+"TEMP","PRODUCT",20612)
+
+"TEMP","PRODUCT",20613)
+
+"TEMP","PRODUCT",20655)
+
+"TEMP","PRODUCT",20659)
+
+"TEMP","PRODUCT",20661)
+
+"TEMP","PRODUCT",20682)
+
+"TEMP","PRODUCT",20687)
+
+"TEMP","PRODUCT",20699)
+
+"TEMP","PRODUCT",20714)
+
+"TEMP","PRODUCT",20719)
+
+"TEMP","PRODUCT",20733)
+
+"TEMP","PRODUCT",20782)
+
+"TEMP","PRODUCT",20863)
+
+"TEMP","PRODUCT",20901)
+
+"TEMP","PRODUCT",20991)
+
+"TEMP","PRODUCT",20992)
+
+"TEMP","PRODUCT",20994)
+
+"TEMP","PRODUCT",21059)
+
+"TEMP","PRODUCT",21060)
+
+"TEMP","PRODUCT",21111)
+
+"TEMP","PRODUCT",21176)
+
+"TEMP","PRODUCT",21195)
+
+"TEMP","PRODUCT",21202)
+
+"TEMP","PRODUCT",21217)
+
+"TEMP","PRODUCT",21243)
+
+"TEMP","PRODUCT",21263)
+
+"TEMP","PRODUCT",21266)
+
+"TEMP","PRODUCT",21314)
+
+"TEMP","PRODUCT",21336)
+
+"TEMP","PRODUCT",21415)
+
+"TEMP","PRODUCT",21458)
+
+"TEMP","PRODUCT",21536)
+
+"TEMP","PRODUCT",21537)
+
+"TEMP","PRODUCT",21538)
+
+"TEMP","PRODUCT",21539)
+
+"TEMP","PRODUCT",21540)
+
+"TEMP","PRODUCT",21541)
+
+"TEMP","PRODUCT",21555)
+
+"TEMP","PRODUCT",21567)
+
+"TEMP","PRODUCT",21593)
+
+"TEMP","PRODUCT",21625)
+
+"TEMP","PRODUCT",21729)
+
+"TEMP","PRODUCT",21749)
+
+"TEMP","PRODUCT",21751)
+
+"TEMP","PRODUCT",21850)
+
+"TEMP","PRODUCT",21864)
+
+"TEMP","PRODUCT",21871)
+
+"TEMP","PRODUCT",21937)
+
+"TEMP","PRODUCT",21939)
+
+"TEMP","PRODUCT",21941)
+
+"TEMP","PRODUCT",21943)
+
+"TEMP","PRODUCT",21989)
+
+"TEMP","PRODUCT",21999)
+
+"TEMP","PRODUCT",22069)
+
+"TEMP","PRODUCT",22070)
+
+"TEMP","PRODUCT",22081)
+
+"TEMP","PRODUCT",22109)
+
+"TEMP","PRODUCT",22126)
+
+"TEMP","PRODUCT",22176)
+
+"TEMP","PRODUCT",22193)
+
+"TEMP","PRODUCT",22195)
+
+"TEMP","PRODUCT",22196)
+
+"TEMP","PRODUCT",22217)
+
+"TEMP","PRODUCT",22365)
+
+"TEMP","PRODUCT",22408)
+
+"TEMP","PRODUCT",22412)
+
+"TEMP","PRODUCT",22438)
+
+"TEMP","PRODUCT",22439)
+
+"TEMP","PRODUCT",22579)
+
+"TEMP","PRODUCT",22625)
+
+"TEMP","PRODUCT",22632)
+
+"TEMP","PRODUCT",22655)
+
+"TEMP","PRODUCT",22690)
+
+"TEMP","PRODUCT",22702)
+
+"TEMP","PRODUCT",22744)
+
+"TEMP","PRODUCT",22772)
+
+"TEMP","PRODUCT",22815)
+
+"TEMP","PRODUCT",22893)
+
+"TEMP","PRODUCT",22964)
+
+"TEMP","PRODUCT",23051)
+
+"TEMP","PRODUCT",23053)
+
+"TEMP","PRODUCT",23093)
+
+"TEMP","PRODUCT",23178)
+
+"TEMP","PRODUCT",23282)
+
+"TEMP","PRODUCT",23283)
+
+"TEMP","PRODUCT",23294)
+
+"TEMP","PRODUCT",23296)
+
+"TEMP","PRODUCT",23350)
+
+"TEMP","PRODUCT",23351)
+
+"TEMP","PRODUCT",23356)
+
+"TEMP","PRODUCT",23357)
+
+"TEMP","PRODUCT",23518)
+
+"TEMP","PRODUCT",23548)
+
+"TEMP","PRODUCT",23645)
+
+"TEMP","PRODUCT",23646)
+
+"TEMP","PRODUCT",23647)
+
+"TEMP","PRODUCT",23682)
+
+"TEMP","PRODUCT",23701)
+
+"TEMP","PRODUCT",23725)
+
+"TEMP","PRODUCT",23886)
+
+"TEMP","PRODUCT",23962)
+
+"TEMP","PRODUCT",24058)
+
+"TEMP","PRODUCT",24070)
+
+"TEMP","PRODUCT",24099)
+
+"TEMP","PRODUCT",24153)
+
+"TEMP","PRODUCT",24202)
+
+"TEMP","TEXT",1)
+unmatched from the National Drug File (NDF). The VA Product
+"TEMP","TEXT",2)
+name and CMOP ID corresponding to the unmatched local drug file
+"TEMP","TEXT",3)
+name are listed on the indented line beneath each entry. An
+"TEMP","TEXT",4)
+Inactivation Date may be listed for entries when this reason
+"TEMP","TEXT",5)
+applies. Until you rematch these entries to NDF, they will not
+"TEMP","TEXT",6)
+transmit to CMOP and drug-drug interaction checks will not check
+"TEMP","TEXT",7)
+for these products. It is critical that you rematch these
+"TEMP","TEXT",8)
+products immediately. You may also need to match a new
+"TEMP","TEXT",9)
+orderable item. Any possible dosages and local possible
+"TEMP","TEXT",10)
+dosages for these unmatched products have been deleted.
+"TEMP","TEXT",11)
+Therefore, the dosages for each unmatched product should
+"TEMP","TEXT",12)
+be reviewed after the rematch or recreated if the product
+"TEMP","TEXT",13)
+can not be rematched to a VA Product through the NDF
+"TEMP","TEXT",14)
+matching process.
+"TEMP","TEXT",15)
+
+"TEMP","TEXT",16)
+ DRUG IEN INACTIVATION
+"TEMP","TEXT",17)
+ DATE
+"TEMP","TEXT",18)
+
+"TEMP","TREC")
+9003
+"VER")
+8.0^22.0
+**END**
+**END**
diff --git a/Packages/National Drug File/Patches/PSN_4.0_376/PSN-4_SEQ-362_PAT-376.TXT b/Packages/National Drug File/Patches/PSN_4.0_376/PSN-4_SEQ-362_PAT-376.TXT
new file mode 100644
index 0000000..dbf953d
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_376/PSN-4_SEQ-362_PAT-376.TXT
@@ -0,0 +1,139 @@
+
+=============================================================================
+Run Date: OCT 28, 2013 Designation: PSN*4*376
+Package : PSN - NATIONAL DRUG FILE Priority: Mandatory
+Version : 4 SEQ #362 Status: Released
+ Compliance Date: NOV 04, 2013
+=============================================================================
+
+Associated patches: (v)PSN*4*375 <<= must be installed BEFORE `PSN*4*376'
+
+Subject: DATA UPDATES - FY14 #1
+
+Category:
+ - Routine
+ - Other
+
+Description:
+============
+
+ NOTE: This patch is part of NDF Data Update FY14 #1, which is comprised
+ of two patches, PSN*4*376 and PSN*4*377.
+
+ This patch provides updates to data in several of the files associated with the
+ National Drug File (NDF) application. This patch generates four mail messages.
+
+ All are sent from NDF MANAGER to members of the NDF DATA mail group, holders of
+ the PSNMGR security key, and the person installing the patch. The first
+ message, with the subject DATA UPDATE FOR NDF, lists new products, CMOP ID (if
+ one exists), dispense units, and associated NDCs, products for which the
+ national formulary indicator has changed, products that have been unmatched
+ from CMOP, and products for which the national formulary restriction has
+ changed. The second, with the subject UPDATED INTERACTIONS, lists interactions
+ that have been added, edited, or inactivated. The third, with the subject DRUGS
+ UNMATCHED FROM NATIONAL DRUG FILE, lists entries in the DRUG file (#50) which
+ have been unmatched from NDF. The fourth, with the subject INTERACTIONS and
+ ALLERGIES UPDATED, lists interactions and allergies which have been changed
+ because they were created with ingredients that are no longer primary
+ ingredients.
+
+ **ATTENTION: CMOP SITES ONLY**
+
+ Do not load and install or queue to install this patch while Consolidated Mail
+ Outpatient Pharmacy (CMOP) prescriptions are being transmitted. If
+ transmissions are in progress, incorrect prescription information may be sent
+ to the CMOP. To determine if a CMOP transmission is in progress, examine
+ TaskMan for jobs entitled "CMOP Data Transmission".
+
+ Associated Remedy Tickets:
+ ==========================
+ N/A
+
+ Test Sites:
+ ===========
+ CENTRAL PLAINS HCS
+ OKLAHOMA CITY, OK
+ PUGET SOUND HCS
+
+ Note: CHILLICOTHE, OH also installed, but did not test fully.
+
+ Installation Instructions and Software Retrieval:
+ =================================================
+
+ This patch can be obtained from the ANONYMOUS.SOFTWARE directory at one of the
+ OI Field Offices. The preferred method is to FTP the file from
+ DOWNLOAD.VISTA.DOMAIN.EXT, which will transmit the file from the first
+ available server. Alternatively, sites may elect to retrieve the file from a
+ specific OI Field Office.
+
+ OI FIELD OFFICE FTP ADDRESS DIRECTORY
+ Albany FTP.FO-ALBANY.DOMAIN.EXT anonymous.software
+ Hines FTP.FO-HINES.DOMAIN.EXT anonymous.software
+ Salt Lake City FTP.FO-SLC.DOMAIN.EXT anonymous.software
+
+ The software distribution includes:
+
+ FILE NAME DESCRIPTION BLOCK SIZE
+
+ NDF4P376.KID KIDS Build 2111 blocks
+
+
+ National Drug File (NDF) and Pharmacy Data Management (PDM) users should be off
+ the system when this patch is installed. Installation takes less than ten
+ minutes. This patch should be installed during non-peak requirement hours.
+
+ The environment check routine for this patch checks that the installing person
+ is a valid user, and that the patch has not been installed.
+
+ 1. Retrieve the file NDF4P376.KID using one of the methods described
+ above.
+
+ 2. From the Kernel Installation & Distribution System menu, select
+ the Installation menu.
+
+ 3. From this menu, select the option Load a Distribution and select
+ NDF4P376.KID.
+
+ 4. From this menu, you may choose to use the option Verify Checksums in
+ Transport Global. When prompted, select PSN*4.0*376. All components of
+ this patch are new, so the option Backup a Transport Global and
+ the option Compare Transport Global to Current System do not have
+ to be invoked.
+
+ 5. Use the Install Package(s) option and select PSN*4.0*376.
+
+ 6. When prompted "Want KIDS to INHIBIT LOGONs during the install? NO//"
+ respond NO.
+
+ 7. When prompted "Want to DISABLE Scheduled Options, Menu Options, and
+ Protocols? NO//" respond NO.
+
+ 8. Note: The environment check routine PSN376E and the post-install
+ routine PSN376D will be automatically deleted from your system upon
+ completion of the installation.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+;;4.0;NATIONAL DRUG FILE;**[Patch List]**; 30 Oct 98;Build 76
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: PSN376D
+ Before: n/a After: B75477035 **376**
+Routine Name: PSN376E
+ Before: n/a After: B582702 **376**
+
+=============================================================================
+User Information:
+Entered By : ANWER,MOHAMED Date Entered : SEP 10, 2013
+Completed By: GREER,MIKE Date Completed: OCT 25, 2013
+Released By : TEAGUE,LYN Date Released : OCT 28, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/National Drug File/Patches/PSN_4.0_377/NDF4P377.KIDs b/Packages/National Drug File/Patches/PSN_4.0_377/NDF4P377.KIDs
new file mode 100644
index 0000000..871fa8c
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_377/NDF4P377.KIDs
@@ -0,0 +1,284 @@
+KIDS Distribution saved on Oct 03, 2013 at 17:08:28
+PSN*4*377
+**KIDS**:PSN*4.0*377^
+
+**INSTALL NAME**
+PSN*4.0*377
+"BLD",1526,0)
+PSN*4.0*377^NATIONAL DRUG FILE^0^3131003^y
+"BLD",1526,1,0)
+^^4^4^3121231^^^^
+"BLD",1526,1,1,0)
+The environment check routine for this patch checks to see that the
+"BLD",1526,1,2,0)
+installer is a valid user.
+"BLD",1526,1,3,0)
+The post-install routine for this patch matches entries in the VA PRODUCT
+"BLD",1526,1,4,0)
+file (#50.68) to the proper PMIs.
+"BLD",1526,4,0)
+^9.64PA^^
+"BLD",1526,6.3)
+78
+"BLD",1526,"ABPKG")
+n
+"BLD",1526,"INID")
+y^y
+"BLD",1526,"INIT")
+PSN377P
+"BLD",1526,"KRN",0)
+^9.67PA^9002226^21
+"BLD",1526,"KRN",.4,0)
+.4
+"BLD",1526,"KRN",.4,"NM",0)
+^9.68A^^
+"BLD",1526,"KRN",.401,0)
+.401
+"BLD",1526,"KRN",.402,0)
+.402
+"BLD",1526,"KRN",.403,0)
+.403
+"BLD",1526,"KRN",.5,0)
+.5
+"BLD",1526,"KRN",.84,0)
+.84
+"BLD",1526,"KRN",3.6,0)
+3.6
+"BLD",1526,"KRN",3.8,0)
+3.8
+"BLD",1526,"KRN",9.2,0)
+9.2
+"BLD",1526,"KRN",9.8,0)
+9.8
+"BLD",1526,"KRN",9.8,"NM",0)
+^9.68A^^0
+"BLD",1526,"KRN",19,0)
+19
+"BLD",1526,"KRN",19,"NM",0)
+^9.68A^^
+"BLD",1526,"KRN",19.1,0)
+19.1
+"BLD",1526,"KRN",19.1,"NM",0)
+^9.68A^^
+"BLD",1526,"KRN",101,0)
+101
+"BLD",1526,"KRN",101,"NM",0)
+^9.68A^^
+"BLD",1526,"KRN",409.61,0)
+409.61
+"BLD",1526,"KRN",771,0)
+771
+"BLD",1526,"KRN",779.2,0)
+779.2
+"BLD",1526,"KRN",870,0)
+870
+"BLD",1526,"KRN",8989.51,0)
+8989.51
+"BLD",1526,"KRN",8989.52,0)
+8989.52
+"BLD",1526,"KRN",8994,0)
+8994
+"BLD",1526,"KRN",9002226,0)
+9002226
+"BLD",1526,"KRN","B",.4,.4)
+
+"BLD",1526,"KRN","B",.401,.401)
+
+"BLD",1526,"KRN","B",.402,.402)
+
+"BLD",1526,"KRN","B",.403,.403)
+
+"BLD",1526,"KRN","B",.5,.5)
+
+"BLD",1526,"KRN","B",.84,.84)
+
+"BLD",1526,"KRN","B",3.6,3.6)
+
+"BLD",1526,"KRN","B",3.8,3.8)
+
+"BLD",1526,"KRN","B",9.2,9.2)
+
+"BLD",1526,"KRN","B",9.8,9.8)
+
+"BLD",1526,"KRN","B",19,19)
+
+"BLD",1526,"KRN","B",19.1,19.1)
+
+"BLD",1526,"KRN","B",101,101)
+
+"BLD",1526,"KRN","B",409.61,409.61)
+
+"BLD",1526,"KRN","B",771,771)
+
+"BLD",1526,"KRN","B",779.2,779.2)
+
+"BLD",1526,"KRN","B",870,870)
+
+"BLD",1526,"KRN","B",8989.51,8989.51)
+
+"BLD",1526,"KRN","B",8989.52,8989.52)
+
+"BLD",1526,"KRN","B",8994,8994)
+
+"BLD",1526,"KRN","B",9002226,9002226)
+
+"BLD",1526,"PRE")
+PSN377E
+"BLD",1526,"PRET")
+PSNPMIND
+"BLD",1526,"QDEF")
+^^^^NO^^^^NO^^YES
+"BLD",1526,"QUES",0)
+^9.62^^
+"BLD",1526,"REQB",0)
+^9.611^1^1
+"BLD",1526,"REQB",1,0)
+PSN*4.0*376^1
+"BLD",1526,"REQB","B","PSN*4.0*376",1)
+
+"INIT")
+PSN377P
+"MBREQ")
+0
+"PKG",114,-1)
+1^1
+"PKG",114,0)
+NATIONAL DRUG FILE^PSN^This is the National Drug File Package V 4
+"PKG",114,20,0)
+^9.402P^^
+"PKG",114,22,0)
+^9.49I^1^1
+"PKG",114,22,1,0)
+4.0^3041105
+"PKG",114,22,1,"PAH",1,0)
+377^3131003
+"PKG",114,22,1,"PAH",1,1,0)
+^^4^4^3131003
+"PKG",114,22,1,"PAH",1,1,1,0)
+The environment check routine for this patch checks to see that the
+"PKG",114,22,1,"PAH",1,1,2,0)
+installer is a valid user.
+"PKG",114,22,1,"PAH",1,1,3,0)
+The post-install routine for this patch matches entries in the VA PRODUCT
+"PKG",114,22,1,"PAH",1,1,4,0)
+file (#50.68) to the proper PMIs.
+"PRE")
+PSN377E
+"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")
+YES
+"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","PSN377E")
+0^^B217681
+"RTN","PSN377E",1,0)
+PSN377E ;BHM/DB-Environment Check for PMI data updates ; 02 Oct 2013 2:45 PM
+"RTN","PSN377E",2,0)
+ ;;4.0;NATIONAL DRUG FILE;**377**; 30 Oct 98;Build 78
+"RTN","PSN377E",3,0)
+ ;
+"RTN","PSN377E",4,0)
+ I $D(DUZ)#2 N DIC,X,Y S DIC=200,DIC(0)="N",X="`"_DUZ D ^DIC I Y>0
+"RTN","PSN377E",5,0)
+ E W !,"You must be a valid user."
+"RTN","PSN377E",6,0)
+ Q
+"RTN","PSN377P")
+0^^B1182278
+"RTN","PSN377P",1,0)
+PSN377P ;BIR/WRT-Unwind Transport Global and set pieces in VA PRODUCT file ; 02 Oct 2013 2:46 PM
+"RTN","PSN377P",2,0)
+ ;;4.0;NATIONAL DRUG FILE;**377**; 30 Oct 98;Build 78
+"RTN","PSN377P",3,0)
+ ;
+"RTN","PSN377P",4,0)
+BUILD ;MATCH PRODUCTS
+"RTN","PSN377P",5,0)
+ I '$D(XPDGREF) Q
+"RTN","PSN377P",6,0)
+ N DA,I,J,K,LINE,PSN,ROOT,X
+"RTN","PSN377P",7,0)
+ S ROOT=$NA(@XPDGREF@("DATA")),J=0
+"RTN","PSN377P",8,0)
+ K ^TMP($J)
+"RTN","PSN377P",9,0)
+ F S J=$O(@ROOT@(J)) Q:'J S LINE=^(J),K=$L(LINE,"|")-1 F I=1:1:K S X=$P(LINE,"|",I),^TMP($J,$P(X,"^"))=$P(X,"^",2,4)
+"RTN","PSN377P",10,0)
+ S DA=0 F S DA=$O(^PSNDF(50.68,DA)) Q:'DA S X=$P($G(^(DA,1)),"^",1,4) S:$D(^TMP($J,DA)) X=X_"^"_^(DA) S ^PSNDF(50.68,DA,1)=X
+"RTN","PSN377P",11,0)
+ K ^TMP($J)
+"RTN","PSN377P",12,0)
+ K DA,I,J,K,LINE,PSN,ROOT,X
+"RTN","PSN377P",13,0)
+ Q
+"VER")
+8.0^22.0
+**END**
+**END**
diff --git a/Packages/National Drug File/Patches/PSN_4.0_377/PSN-4_SEQ-363_PAT-377.TXT b/Packages/National Drug File/Patches/PSN_4.0_377/PSN-4_SEQ-363_PAT-377.TXT
new file mode 100644
index 0000000..143fe6b
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_377/PSN-4_SEQ-363_PAT-377.TXT
@@ -0,0 +1,128 @@
+
+=============================================================================
+Run Date: OCT 28, 2013 Designation: PSN*4*377
+Package : PSN - NATIONAL DRUG FILE Priority: Mandatory
+Version : 4 SEQ #363 Status: Released
+ Compliance Date: NOV 04, 2013
+=============================================================================
+
+Associated patches: (v)PSN*4*376 <<= must be installed BEFORE `PSN*4*377'
+
+Subject: PMI MAPPING - FY14 #1
+
+Category:
+ - Routine
+ - Other
+
+Description:
+============
+
+
+ NOTE: This patch is part of NDF Data Update FY14 #1, which is comprised
+ of two patches, PSN*4*376 and PSN*4*377.
+
+ The environment check routine for this patch checks to see that the installer
+ is a valid user. The post-install routine for this patch matches entries in
+ the VA PRODUCT file (#50.68) to the proper PMIs.
+
+
+ Associated Remedy Tickets:
+ ==========================
+ None
+
+ Test Sites:
+ ===========
+ CENTRAL PLAINS HCS
+ OKLAHOMA CITY, OK
+ PUGET SOUND HCS
+
+ Note: CHILLICOTHE, OH also installed, but did not test fully.
+
+ Installation Instructions and Software Retrieval:
+ =================================================
+ This patch can be obtained from the ANONYMOUS.SOFTWARE directory at one of the
+ OI Field Offices. The preferred method is to FTP the file from
+ DOWNLOAD.VISTA.DOMAIN.EXT, which will transmit the file from the first
+ available server. Alternatively, sites may elect to retrieve the file from a
+ specific OI Field Office.
+
+ OI FIELD OFFICE FTP ADDRESS DIRECTORY
+ Albany FTP.FO-ALBANY.DOMAIN.EXT anonymous.software
+ Hines FTP.FO-HINES.DOMAIN.EXT anonymous.software
+ Salt Lake City FTP.FO-SLC.DOMAIN.EXT anonymous.software
+
+ The software distribution includes:
+
+ FILE NAME DESCRIPTION BLOCK SIZE
+
+ NDF4P377.KID KIDS Build 625 blocks
+
+
+ Users may remain on the system while this patch is installed. Installation
+ (excluding the time required to download the file to your system) takes less
+ than ten minutes. This patch should be installed during non-peak requirement
+ hours. The Print a PMI Sheet [PSNPMIS PRINT], Patient Prescription Processing
+ [PSO LM BACKDOOR ORDERS], Release Medication [PSO RELEASE], and Reprint an
+ Outpatient Rx Label [PSO RXRPT] options should be placed out of order during
+ the installation.
+
+ 1. Retrieve the file NDF4P377.KID using one of the methods described
+ above.
+
+ 2. From the Kernel Installation & Distribution System menu, select
+ the Installation menu.
+
+ 3. From this menu, select the option Load a Distribution and select
+ NDF4P377.KID.
+
+ 4. From this menu, you may choose to use the option Verify Checksums in
+ Transport Global. When prompted, select PSN*4.0*377. All components of
+ this patch are new, so the option Backup a Transport Global and
+ the option Compare Transport Global to Current System do not have
+ to be invoked.
+
+ 5. Use the Install Package(s) option and select PSN*4.0*377.
+
+ 6. When prompted "Want KIDS to INHIBIT LOGONs during the install? NO//"
+ respond NO.
+
+ 7. When prompted "Want to DISABLE Scheduled Options, Menu Options, and
+ Protocols? YES//" respond YES. Select the following options
+ to disable.
+
+ Option Name Menu Text
+ ----------------------- ------------------------------
+ PSNPMIS PRINT Print a PMI Sheet
+ PSO LM BACKDOOR ORDERS Patient Prescription Processing
+ PSO RELEASE Release Medication
+ PSO RXRPT Reprint an Outpatient Rx Label
+
+ 8. Note:The environment check routine PSN377E and the post-install routine
+ PSN377P will be automatically deleted from your system upon completion of
+ the installation.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+;;4.0;NATIONAL DRUG FILE;**[Patch List]**; 30 Oct 98;Build 78
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: PSN377E
+ Before: n/a After: B217681 **377**
+Routine Name: PSN377P
+ Before: n/a After: B1182278 **377**
+
+=============================================================================
+User Information:
+Entered By : ANWER,MOHAMED Date Entered : SEP 10, 2013
+Completed By: GREER,MIKE Date Completed: OCT 25, 2013
+Released By : TEAGUE,LYN Date Released : OCT 28, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/National Drug File/Patches/PSN_4.0_378/NDF4P378.KIDs b/Packages/National Drug File/Patches/PSN_4.0_378/NDF4P378.KIDs
new file mode 100644
index 0000000..7ec1763
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_378/NDF4P378.KIDs
@@ -0,0 +1,356 @@
+KIDS Distribution saved on Nov 07, 2013 at 10:47:33
+PSN*4*378
+**KIDS**:PSN*4.0*378^
+
+**INSTALL NAME**
+PSN*4.0*378
+"BLD",1527,0)
+PSN*4.0*378^NATIONAL DRUG FILE^0^3131107^y
+"BLD",1527,1,0)
+^^17^17^3130807^^^^
+"BLD",1527,1,1,0)
+This patch provides updates to data in several of the files associated
+"BLD",1527,1,2,0)
+with the Patient Medication Instruction Sheet (PMI) portion of the
+"BLD",1527,1,3,0)
+National Drug File (NDF) application. The seven files are:
+"BLD",1527,1,4,0)
+ 50.621 PMI-ENGLISH
+"BLD",1527,1,5,0)
+ 50.622 PMI-SPANISH
+"BLD",1527,1,6,0)
+ 50.623 PMI MAP-ENGLISH
+"BLD",1527,1,7,0)
+ 50.624 PMI MAP-SPANISH
+"BLD",1527,1,8,0)
+ 50.625 WARNING LABEL-ENGLISH
+"BLD",1527,1,9,0)
+ 50.626 WARNING LABEL-SPANISH
+"BLD",1527,1,10,0)
+ 50.627 WARNING LABEL MAP
+"BLD",1527,1,11,0)
+
+"BLD",1527,1,12,0)
+The environment check routine for this patch checks to see that the
+"BLD",1527,1,13,0)
+installer is a valid user.
+"BLD",1527,1,14,0)
+The post-install routine for this patch deletes existing entries in these
+"BLD",1527,1,15,0)
+files, loads the new data, and rematches entries in the VA PRODUCT file
+"BLD",1527,1,16,0)
+(#50.68) to the proper PMIs.
+"BLD",1527,1,17,0)
+The source of the data for the PMIs is First Data Bank.
+"BLD",1527,4,0)
+^9.64PA^^
+"BLD",1527,6.3)
+76
+"BLD",1527,"ABPKG")
+n
+"BLD",1527,"INID")
+y^y
+"BLD",1527,"INIT")
+PSN378P
+"BLD",1527,"KRN",0)
+^9.67PA^9002226^21
+"BLD",1527,"KRN",.4,0)
+.4
+"BLD",1527,"KRN",.4,"NM",0)
+^9.68A^^
+"BLD",1527,"KRN",.401,0)
+.401
+"BLD",1527,"KRN",.402,0)
+.402
+"BLD",1527,"KRN",.403,0)
+.403
+"BLD",1527,"KRN",.5,0)
+.5
+"BLD",1527,"KRN",.84,0)
+.84
+"BLD",1527,"KRN",3.6,0)
+3.6
+"BLD",1527,"KRN",3.8,0)
+3.8
+"BLD",1527,"KRN",9.2,0)
+9.2
+"BLD",1527,"KRN",9.8,0)
+9.8
+"BLD",1527,"KRN",9.8,"NM",0)
+^9.68A^^0
+"BLD",1527,"KRN",19,0)
+19
+"BLD",1527,"KRN",19,"NM",0)
+^9.68A^^
+"BLD",1527,"KRN",19.1,0)
+19.1
+"BLD",1527,"KRN",19.1,"NM",0)
+^9.68A^^
+"BLD",1527,"KRN",101,0)
+101
+"BLD",1527,"KRN",101,"NM",0)
+^9.68A^^
+"BLD",1527,"KRN",409.61,0)
+409.61
+"BLD",1527,"KRN",771,0)
+771
+"BLD",1527,"KRN",779.2,0)
+779.2
+"BLD",1527,"KRN",870,0)
+870
+"BLD",1527,"KRN",8989.51,0)
+8989.51
+"BLD",1527,"KRN",8989.52,0)
+8989.52
+"BLD",1527,"KRN",8994,0)
+8994
+"BLD",1527,"KRN",9002226,0)
+9002226
+"BLD",1527,"KRN",9002226,"NM",0)
+^9.68A^^
+"BLD",1527,"KRN","B",.4,.4)
+
+"BLD",1527,"KRN","B",.401,.401)
+
+"BLD",1527,"KRN","B",.402,.402)
+
+"BLD",1527,"KRN","B",.403,.403)
+
+"BLD",1527,"KRN","B",.5,.5)
+
+"BLD",1527,"KRN","B",.84,.84)
+
+"BLD",1527,"KRN","B",3.6,3.6)
+
+"BLD",1527,"KRN","B",3.8,3.8)
+
+"BLD",1527,"KRN","B",9.2,9.2)
+
+"BLD",1527,"KRN","B",9.8,9.8)
+
+"BLD",1527,"KRN","B",19,19)
+
+"BLD",1527,"KRN","B",19.1,19.1)
+
+"BLD",1527,"KRN","B",101,101)
+
+"BLD",1527,"KRN","B",409.61,409.61)
+
+"BLD",1527,"KRN","B",771,771)
+
+"BLD",1527,"KRN","B",779.2,779.2)
+
+"BLD",1527,"KRN","B",870,870)
+
+"BLD",1527,"KRN","B",8989.51,8989.51)
+
+"BLD",1527,"KRN","B",8989.52,8989.52)
+
+"BLD",1527,"KRN","B",8994,8994)
+
+"BLD",1527,"KRN","B",9002226,9002226)
+
+"BLD",1527,"PRE")
+PSN378E
+"BLD",1527,"PRET")
+PSNPMI
+"BLD",1527,"QDEF")
+^^^^NO^^^^NO^^YES
+"BLD",1527,"QUES",0)
+^9.62^^
+"BLD",1527,"REQB",0)
+^9.611^1^1
+"BLD",1527,"REQB",1,0)
+PSN*4.0*376^1
+"BLD",1527,"REQB","B","PSN*4.0*376",1)
+
+"INIT")
+PSN378P
+"MBREQ")
+0
+"PKG",114,-1)
+1^1
+"PKG",114,0)
+NATIONAL DRUG FILE^PSN^This is the National Drug File Package V 4
+"PKG",114,20,0)
+^9.402P^^
+"PKG",114,22,0)
+^9.49I^1^1
+"PKG",114,22,1,0)
+4.0^3041105
+"PKG",114,22,1,"PAH",1,0)
+378^3131107
+"PKG",114,22,1,"PAH",1,1,0)
+^^17^17^3131107
+"PKG",114,22,1,"PAH",1,1,1,0)
+This patch provides updates to data in several of the files associated
+"PKG",114,22,1,"PAH",1,1,2,0)
+with the Patient Medication Instruction Sheet (PMI) portion of the
+"PKG",114,22,1,"PAH",1,1,3,0)
+National Drug File (NDF) application. The seven files are:
+"PKG",114,22,1,"PAH",1,1,4,0)
+ 50.621 PMI-ENGLISH
+"PKG",114,22,1,"PAH",1,1,5,0)
+ 50.622 PMI-SPANISH
+"PKG",114,22,1,"PAH",1,1,6,0)
+ 50.623 PMI MAP-ENGLISH
+"PKG",114,22,1,"PAH",1,1,7,0)
+ 50.624 PMI MAP-SPANISH
+"PKG",114,22,1,"PAH",1,1,8,0)
+ 50.625 WARNING LABEL-ENGLISH
+"PKG",114,22,1,"PAH",1,1,9,0)
+ 50.626 WARNING LABEL-SPANISH
+"PKG",114,22,1,"PAH",1,1,10,0)
+ 50.627 WARNING LABEL MAP
+"PKG",114,22,1,"PAH",1,1,11,0)
+
+"PKG",114,22,1,"PAH",1,1,12,0)
+The environment check routine for this patch checks to see that the
+"PKG",114,22,1,"PAH",1,1,13,0)
+installer is a valid user.
+"PKG",114,22,1,"PAH",1,1,14,0)
+The post-install routine for this patch deletes existing entries in these
+"PKG",114,22,1,"PAH",1,1,15,0)
+files, loads the new data, and rematches entries in the VA PRODUCT file
+"PKG",114,22,1,"PAH",1,1,16,0)
+(#50.68) to the proper PMIs.
+"PKG",114,22,1,"PAH",1,1,17,0)
+The source of the data for the PMIs is First Data Bank.
+"PRE")
+PSN378E
+"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")
+YES
+"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","PSN378E")
+0^^B217688
+"RTN","PSN378E",1,0)
+PSN378E ;BHM/DB-Environment Check for PMI data updates ; 06 Nov 2013 3:47 PM
+"RTN","PSN378E",2,0)
+ ;;4.0;NATIONAL DRUG FILE;**378**; 30 Oct 98;Build 76
+"RTN","PSN378E",3,0)
+ ;
+"RTN","PSN378E",4,0)
+ I $D(DUZ)#2 N DIC,X,Y S DIC=200,DIC(0)="N",X="`"_DUZ D ^DIC I Y>0
+"RTN","PSN378E",5,0)
+ E W !,"You must be a valid user."
+"RTN","PSN378E",6,0)
+ Q
+"RTN","PSN378P")
+0^^B1382825
+"RTN","PSN378P",1,0)
+PSN378P ;BIR/WRT-Unwind Transport Global and set pieces in VA PRODUCT file ; 06 Nov 2013 3:48 PM
+"RTN","PSN378P",2,0)
+ ;;4.0;NATIONAL DRUG FILE;**378**; 30 Oct 98;Build 76
+"RTN","PSN378P",3,0)
+ ;
+"RTN","PSN378P",4,0)
+BUILD ;GET PMIS INFO FROM TRANSPORT GLOBAL AND LOAD
+"RTN","PSN378P",5,0)
+ I '$D(XPDGREF) Q
+"RTN","PSN378P",6,0)
+ N DA,I,J,K,LINE,PSN,ROOT,X
+"RTN","PSN378P",7,0)
+ F PSN=50.621:.001:50.627 K ^PS(PSN)
+"RTN","PSN378P",8,0)
+ S ROOT=$NA(@XPDGREF@("DATA")),J=0
+"RTN","PSN378P",9,0)
+ K ^TMP($J)
+"RTN","PSN378P",10,0)
+ F S J=$O(@ROOT@(J)) Q:'J S LINE=^(J),K=$L(LINE,"|")-1 F I=1:1:K S X=$P(LINE,"|",I),^TMP($J,$P(X,"^"))=$P(X,"^",2,4)
+"RTN","PSN378P",11,0)
+ S DA=0 F S DA=$O(^PSNDF(50.68,DA)) Q:'DA S X=$P($G(^(DA,1)),"^",1,4) S:$D(^TMP($J,DA)) X=X_"^"_^(DA) S ^PSNDF(50.68,DA,1)=X
+"RTN","PSN378P",12,0)
+ K ^TMP($J)
+"RTN","PSN378P",13,0)
+ F PSN=50.621:.001:50.627 M ^PS(PSN)=@XPDGREF@(PSN)
+"RTN","PSN378P",14,0)
+ K DA,I,J,K,LINE,PSN,ROOT,X
+"RTN","PSN378P",15,0)
+ Q
+"TEMP",50.621,0)
+PMI-ENGLISH^50.621^^
+"TEMP",50.622,0)
+PMI-SPANISH^50.622^^
+"TEMP",50.623,0)
+PMI MAP-ENGLISH^50.623^^
+"TEMP",50.624,0)
+PMI MAP-SPANISH^50.624^^
+"TEMP",50.625,0)
+WARNING LABEL-ENGLISH^50.625^^
+"TEMP",50.626,0)
+WARNING LABEL-SPANISH^50.626^^
+"TEMP",50.627,0)
+WARNING LABEL MAP^50.627^^
+"VER")
+8.0^22.0
+**END**
+**END**
diff --git a/Packages/National Drug File/Patches/PSN_4.0_378/PSN-4_SEQ-364_PAT-378.TXT b/Packages/National Drug File/Patches/PSN_4.0_378/PSN-4_SEQ-364_PAT-378.TXT
new file mode 100644
index 0000000..a00c943
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_378/PSN-4_SEQ-364_PAT-378.TXT
@@ -0,0 +1,138 @@
+
+=============================================================================
+Run Date: NOV 12, 2013 Designation: PSN*4*378
+Package : PSN - NATIONAL DRUG FILE Priority: EMERGENCY
+Version : 4 SEQ #364 Status: Released
+ Compliance Date: DEC 06, 2013
+=============================================================================
+
+Associated patches: (v)PSN*4*376 <<= must be installed BEFORE `PSN*4*378'
+
+Subject: PMI UPDATE -NOVEMBER 2013
+
+Category:
+ - Routine
+ - Other
+
+Description:
+============
+
+ IMPORTANT NOTE: As directed by the Secretary of the Department of Veterans
+ Affairs, this patch is being released with a 24 hour compliance date for
+ installation.
+
+ This patch provides updates to data in several of the files associated with the
+ Patient Medication Instruction Sheet (PMI) portion of the National Drug File
+ (NDF) application. The seven files are:
+ 50.621 PMI-ENGLISH
+ 50.622 PMI-SPANISH
+ 50.623 PMI MAP-ENGLISH
+ 50.624 PMI MAP-SPANISH
+ 50.625 WARNING LABEL-ENGLISH
+ 50.626 WARNING LABEL-SPANISH
+ 50.627 WARNING LABEL MAP
+
+ The environment check routine for this patch checks to see that the installer
+ is a valid user. The post-install routine for this patch deletes existing
+ entries in these files, loads the new data, and rematches entries in the VA
+ PRODUCT file (#50.68) to the proper PMIs. The source of the data for the PMIs
+ is First Data Bank. Medication instruction sheets contained in this patch were
+ created from the First Data Bank release dated 11/06/2013.
+
+
+ Associated Remedy Tickets:
+ ==========================
+ None
+
+ Test Sites:
+ ===========
+ N/A
+
+ Installation Instructions and Software Retrieval:
+ =================================================
+
+ This patch can be obtained from the ANONYMOUS.SOFTWARE directory at one of the
+ OI Field Offices. The preferred method is to FTP the file from
+ DOWNLOAD.VISTA.DOMAIN.EXT, which will transmit the file from the first
+ available server. Alternatively, sites may elect to retrieve the file from a
+ specific OI Field Office.
+
+ OI FIELD OFFICE FTP ADDRESS DIRECTORY
+ Albany FTP.FO-ALBANY.DOMAIN.EXT anonymous.software
+ Hines FTP.FO-HINES.DOMAIN.EXT anonymous.software
+ Salt Lake City FTP.FO-SLC.DOMAIN.EXT anonymous.software
+
+ The software distribution includes:
+
+ FILE NAME DESCRIPTION BLOCK SIZE
+
+ NDF4P378.KID KIDS Build 163136 blocks
+
+ Users may remain on the system while this patch is installed. Installation
+ (excluding the time required to download the file to your system) takes less
+ than ten minutes. This patch should be installed during non-peak requirement
+ hours. The Print a PMI Sheet [PSNPMIS PRINT], Patient Prescription Processing
+ [PSO LM BACKDOOR ORDERS], Release Medication [PSO RELEASE], and Reprint an
+ Outpatient Rx Label [PSO RXRPT] options should be placed out of order during
+ the installation.
+
+ 1. Retrieve the file NDF4P378.KID using one of the methods described
+ above.
+
+ 2. From the Kernel Installation & Distribution System menu, select
+ the Installation menu.
+
+ 3. From this menu, select the option Load a Distribution and select
+ NDF4P378.KID.
+
+ 4. From this menu, you may choose to use the option Verify Checksums in
+ Transport Global. When prompted, select PSN*4.0*378. All components
+ of this patch are new, so the option Backup a Transport Global and
+ the option Compare Transport Global to Current System do not have
+ to be invoked.
+
+ 5. Use the Install Package(s) option and select PSN*4.0*378.
+
+ 6. When prompted "Want KIDS to INHIBIT LOGONs during the install? NO//"
+ respond NO.
+
+ 7. When prompted "Want to DISABLE Scheduled Options, Menu Options, and
+ Protocols? YES//" respond YES. Select the following options
+ to disable.
+
+ Option Name Menu Text
+ ----------------------- ------------------------------
+ PSNPMIS PRINT Print a PMI Sheet
+ PSO LM BACKDOOR ORDERS Patient Prescription Processing
+ PSO RELEASE Release Medication
+ PSO RXRPT Reprint an Outpatient Rx Label
+
+ 8. Note: The environment check routine PSN378E and the post-install
+ routine PSN378P will be automatically deleted from your system upon
+ completion of the installation.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+;;4.0;NATIONAL DRUG FILE;**[Patch List]**; 30 Oct 98;Build 76
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: PSN378E
+ Before: n/a After: B217688 **378**
+Routine Name: PSN378P
+ Before: n/a After: B1382825 **378**
+
+=============================================================================
+User Information:
+Entered By : WOLF,HONORATA Date Entered : OCT 17, 2013
+Completed By: GREER,MIKE Date Completed: NOV 07, 2013
+Released By : TEAGUE,LYN Date Released : NOV 12, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/National Drug File/Patches/PSN_4.0_379/.gitignore b/Packages/National Drug File/Patches/PSN_4.0_379/.gitignore
new file mode 100644
index 0000000..e8c9c6d
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_379/.gitignore
@@ -0,0 +1 @@
+NDF4P379.KID
diff --git a/Packages/National Drug File/Patches/PSN_4.0_379/NDF4P379.KID.json b/Packages/National Drug File/Patches/PSN_4.0_379/NDF4P379.KID.json
new file mode 100644
index 0000000..6985b58
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_379/NDF4P379.KID.json
@@ -0,0 +1,14 @@
+{
+ "header": [
+ "KIDS Distribution saved on Nov 08, 2013 at 10:24:25",
+ "PSN*4*379"
+ ],
+ "builds": [
+ {
+ "dependency": [
+ "PSN*4.0*378"
+ ],
+ "name": "PSN*4.0*379"
+ }
+ ]
+}
diff --git a/Packages/National Drug File/Patches/PSN_4.0_379/NDF4P379.KID.sha1 b/Packages/National Drug File/Patches/PSN_4.0_379/NDF4P379.KID.sha1
new file mode 100644
index 0000000..dd4a50c
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_379/NDF4P379.KID.sha1
@@ -0,0 +1 @@
+97ea2c6eef10c26fe0ebac4986bdb71aaffe372a
diff --git a/Packages/National Drug File/Patches/PSN_4.0_379/PSN-4_SEQ-365_PAT-379.TXT b/Packages/National Drug File/Patches/PSN_4.0_379/PSN-4_SEQ-365_PAT-379.TXT
new file mode 100644
index 0000000..dc3b031
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_379/PSN-4_SEQ-365_PAT-379.TXT
@@ -0,0 +1,139 @@
+
+=============================================================================
+Run Date: NOV 25, 2013 Designation: PSN*4*379
+Package : PSN - NATIONAL DRUG FILE Priority: Mandatory
+Version : 4 SEQ #365 Status: Released
+ Compliance Date: DEC 04, 2013
+=============================================================================
+
+Associated patches: (v)PSN*4*378 <<= must be installed BEFORE `PSN*4*379'
+
+Subject: DATA UPDATES - FY14 #2
+
+Category:
+ - Routine
+ - Other
+
+Description:
+============
+
+ NOTE: This patch is part of NDF Data Update FY14 #2, which is comprised
+ of two patches, PSN*4*379 and PSN*4*380.
+
+ This patch provides updates to data in several of the files associated with the
+ National Drug File (NDF) application. This patch generates four mail messages.
+
+ All are sent from NDF MANAGER to members of the NDF DATA mail group, holders of
+ the PSNMGR security key, and the person installing the patch. The first
+ message, with the subject DATA UPDATE FOR NDF, lists new products, CMOP ID (if
+ one exists), dispense units, and associated NDCs, products for which the
+ national formulary indicator has changed, products that have been unmatched
+ from CMOP, and products for which the national formulary restriction has
+ changed. The second, with the subject UPDATED INTERACTIONS, lists interactions
+ that have been added, edited, or inactivated. The third, with the subject DRUGS
+ UNMATCHED FROM NATIONAL DRUG FILE, lists entries in the DRUG file (#50) which
+ have been unmatched from NDF. The fourth, with the subject INTERACTIONS and
+ ALLERGIES UPDATED, lists interactions and allergies which have been changed
+ because they were created with ingredients that are no longer primary
+ ingredients.
+
+ **ATTENTION: CMOP SITES ONLY**
+
+ Do not load and install or queue to install this patch while Consolidated Mail
+ Outpatient Pharmacy (CMOP) prescriptions are being transmitted. If
+ transmissions are in progress, incorrect prescription information may be sent
+ to the CMOP. To determine if a CMOP transmission is in progress, examine
+ TaskMan for jobs entitled "CMOP Data Transmission".
+
+ Associated Remedy Tickets:
+ ==========================
+ N/A
+
+ Test Sites:
+ ===========
+ CENTRAL PLAINS HCS
+ CHILLICOTHE, OH
+ NEW YORK HCS
+ OKLAHOMA CITY, OK
+ PALO ALTO HCS
+
+ Installation Instructions and Software Retrieval:
+ =================================================
+
+ This patch can be obtained from the ANONYMOUS.SOFTWARE directory at one of the
+ OI Field Offices. The preferred method is to FTP the file from
+ DOWNLOAD.VISTA.DOMAIN.EXT, which will transmit the file from the first
+ available server. Alternatively, sites may elect to retrieve the file from a
+ specific OI Field Office.
+
+ OI FIELD OFFICE FTP ADDRESS DIRECTORY
+ Albany FTP.FO-ALBANY.DOMAIN.EXT anonymous.software
+ Hines FTP.FO-HINES.DOMAIN.EXT anonymous.software
+ Salt Lake City FTP.FO-SLC.DOMAIN.EXT anonymous.software
+
+ The software distribution includes:
+
+ FILE NAME DESCRIPTION BLOCK SIZE
+
+ NDF4P379.KID KIDS Build 2460 blocks
+
+
+ National Drug File (NDF) and Pharmacy Data Management (PDM) users should be off
+ the system when this patch is installed. Installation takes less than ten
+ minutes. This patch should be installed during non-peak requirement hours.
+
+ The environment check routine for this patch checks that the installing person
+ is a valid user, and that the patch has not been installed.
+
+ 1. Retrieve the file NDF4P379.KID using one of the methods described
+ above.
+
+ 2. From the Kernel Installation & Distribution System menu, select
+ the Installation menu.
+
+ 3. From this menu, select the option Load a Distribution and select
+ NDF4P379.KID.
+
+ 4. From this menu, you may choose to use the option Verify Checksums in
+ Transport Global. When prompted, select PSN*4.0*379. All components of
+ this patch are new, so the option Backup a Transport Global and
+ the option Compare Transport Global to Current System do not have
+ to be invoked.
+
+ 5. Use the Install Package(s) option and select PSN*4.0*379.
+
+ 6. When prompted "Want KIDS to INHIBIT LOGONs during the install? NO//"
+ respond NO.
+
+ 7. When prompted "Want to DISABLE Scheduled Options, Menu Options, and
+ Protocols? NO//" respond NO.
+
+ 8. Note: The environment check routine PSN379E and the post-install
+ routine PSN379D will be automatically deleted from your system upon
+ completion of the installation.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+;;4.0;NATIONAL DRUG FILE;**[Patch List]**; 30 Oct 98;Build 77
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: PSN379D
+ Before: n/a After: B75477056 **379**
+Routine Name: PSN379E
+ Before: n/a After: B582723 **379**
+
+=============================================================================
+User Information:
+Entered By : WOLF,HONORATA Date Entered : OCT 17, 2013
+Completed By: GREER,MIKE Date Completed: NOV 22, 2013
+Released By : MUSGROVE,STEVE Date Released : NOV 25, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/National Drug File/Patches/PSN_4.0_380/NDF4P380.KIDs b/Packages/National Drug File/Patches/PSN_4.0_380/NDF4P380.KIDs
new file mode 100644
index 0000000..938e0e9
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_380/NDF4P380.KIDs
@@ -0,0 +1,284 @@
+KIDS Distribution saved on Nov 08, 2013 at 10:42:20
+PSN*4*380
+**KIDS**:PSN*4.0*380^
+
+**INSTALL NAME**
+PSN*4.0*380
+"BLD",1529,0)
+PSN*4.0*380^NATIONAL DRUG FILE^0^3131108^y
+"BLD",1529,1,0)
+^^4^4^3121231^^^^
+"BLD",1529,1,1,0)
+The environment check routine for this patch checks to see that the
+"BLD",1529,1,2,0)
+installer is a valid user.
+"BLD",1529,1,3,0)
+The post-install routine for this patch matches entries in the VA PRODUCT
+"BLD",1529,1,4,0)
+file (#50.68) to the proper PMIs.
+"BLD",1529,4,0)
+^9.64PA^^
+"BLD",1529,6.3)
+79
+"BLD",1529,"ABPKG")
+n
+"BLD",1529,"INID")
+y^y
+"BLD",1529,"INIT")
+PSN380P
+"BLD",1529,"KRN",0)
+^9.67PA^9002226^21
+"BLD",1529,"KRN",.4,0)
+.4
+"BLD",1529,"KRN",.4,"NM",0)
+^9.68A^^
+"BLD",1529,"KRN",.401,0)
+.401
+"BLD",1529,"KRN",.402,0)
+.402
+"BLD",1529,"KRN",.403,0)
+.403
+"BLD",1529,"KRN",.5,0)
+.5
+"BLD",1529,"KRN",.84,0)
+.84
+"BLD",1529,"KRN",3.6,0)
+3.6
+"BLD",1529,"KRN",3.8,0)
+3.8
+"BLD",1529,"KRN",9.2,0)
+9.2
+"BLD",1529,"KRN",9.8,0)
+9.8
+"BLD",1529,"KRN",9.8,"NM",0)
+^9.68A^^0
+"BLD",1529,"KRN",19,0)
+19
+"BLD",1529,"KRN",19,"NM",0)
+^9.68A^^
+"BLD",1529,"KRN",19.1,0)
+19.1
+"BLD",1529,"KRN",19.1,"NM",0)
+^9.68A^^
+"BLD",1529,"KRN",101,0)
+101
+"BLD",1529,"KRN",101,"NM",0)
+^9.68A^^
+"BLD",1529,"KRN",409.61,0)
+409.61
+"BLD",1529,"KRN",771,0)
+771
+"BLD",1529,"KRN",779.2,0)
+779.2
+"BLD",1529,"KRN",870,0)
+870
+"BLD",1529,"KRN",8989.51,0)
+8989.51
+"BLD",1529,"KRN",8989.52,0)
+8989.52
+"BLD",1529,"KRN",8994,0)
+8994
+"BLD",1529,"KRN",9002226,0)
+9002226
+"BLD",1529,"KRN","B",.4,.4)
+
+"BLD",1529,"KRN","B",.401,.401)
+
+"BLD",1529,"KRN","B",.402,.402)
+
+"BLD",1529,"KRN","B",.403,.403)
+
+"BLD",1529,"KRN","B",.5,.5)
+
+"BLD",1529,"KRN","B",.84,.84)
+
+"BLD",1529,"KRN","B",3.6,3.6)
+
+"BLD",1529,"KRN","B",3.8,3.8)
+
+"BLD",1529,"KRN","B",9.2,9.2)
+
+"BLD",1529,"KRN","B",9.8,9.8)
+
+"BLD",1529,"KRN","B",19,19)
+
+"BLD",1529,"KRN","B",19.1,19.1)
+
+"BLD",1529,"KRN","B",101,101)
+
+"BLD",1529,"KRN","B",409.61,409.61)
+
+"BLD",1529,"KRN","B",771,771)
+
+"BLD",1529,"KRN","B",779.2,779.2)
+
+"BLD",1529,"KRN","B",870,870)
+
+"BLD",1529,"KRN","B",8989.51,8989.51)
+
+"BLD",1529,"KRN","B",8989.52,8989.52)
+
+"BLD",1529,"KRN","B",8994,8994)
+
+"BLD",1529,"KRN","B",9002226,9002226)
+
+"BLD",1529,"PRE")
+PSN380E
+"BLD",1529,"PRET")
+PSNPMIND
+"BLD",1529,"QDEF")
+^^^^NO^^^^NO^^YES
+"BLD",1529,"QUES",0)
+^9.62^^
+"BLD",1529,"REQB",0)
+^9.611^1^1
+"BLD",1529,"REQB",1,0)
+PSN*4.0*379^1
+"BLD",1529,"REQB","B","PSN*4.0*379",1)
+
+"INIT")
+PSN380P
+"MBREQ")
+0
+"PKG",114,-1)
+1^1
+"PKG",114,0)
+NATIONAL DRUG FILE^PSN^This is the National Drug File Package V 4
+"PKG",114,20,0)
+^9.402P^^
+"PKG",114,22,0)
+^9.49I^1^1
+"PKG",114,22,1,0)
+4.0^3041105
+"PKG",114,22,1,"PAH",1,0)
+380^3131108
+"PKG",114,22,1,"PAH",1,1,0)
+^^4^4^3131108
+"PKG",114,22,1,"PAH",1,1,1,0)
+The environment check routine for this patch checks to see that the
+"PKG",114,22,1,"PAH",1,1,2,0)
+installer is a valid user.
+"PKG",114,22,1,"PAH",1,1,3,0)
+The post-install routine for this patch matches entries in the VA PRODUCT
+"PKG",114,22,1,"PAH",1,1,4,0)
+file (#50.68) to the proper PMIs.
+"PRE")
+PSN380E
+"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")
+YES
+"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","PSN380E")
+0^^B217638
+"RTN","PSN380E",1,0)
+PSN380E ;BHM/DB-Environment Check for PMI data updates ; 07 Nov 2013 1:21 PM
+"RTN","PSN380E",2,0)
+ ;;4.0;NATIONAL DRUG FILE;**380**; 30 Oct 98;Build 79
+"RTN","PSN380E",3,0)
+ ;
+"RTN","PSN380E",4,0)
+ I $D(DUZ)#2 N DIC,X,Y S DIC=200,DIC(0)="N",X="`"_DUZ D ^DIC I Y>0
+"RTN","PSN380E",5,0)
+ E W !,"You must be a valid user."
+"RTN","PSN380E",6,0)
+ Q
+"RTN","PSN380P")
+0^^B1182235
+"RTN","PSN380P",1,0)
+PSN380P ;BIR/WRT-Unwind Transport Global and set pieces in VA PRODUCT file ; 07 Nov 2013 1:22 PM
+"RTN","PSN380P",2,0)
+ ;;4.0;NATIONAL DRUG FILE;**380**; 30 Oct 98;Build 79
+"RTN","PSN380P",3,0)
+ ;
+"RTN","PSN380P",4,0)
+BUILD ;MATCH PRODUCTS
+"RTN","PSN380P",5,0)
+ I '$D(XPDGREF) Q
+"RTN","PSN380P",6,0)
+ N DA,I,J,K,LINE,PSN,ROOT,X
+"RTN","PSN380P",7,0)
+ S ROOT=$NA(@XPDGREF@("DATA")),J=0
+"RTN","PSN380P",8,0)
+ K ^TMP($J)
+"RTN","PSN380P",9,0)
+ F S J=$O(@ROOT@(J)) Q:'J S LINE=^(J),K=$L(LINE,"|")-1 F I=1:1:K S X=$P(LINE,"|",I),^TMP($J,$P(X,"^"))=$P(X,"^",2,4)
+"RTN","PSN380P",10,0)
+ S DA=0 F S DA=$O(^PSNDF(50.68,DA)) Q:'DA S X=$P($G(^(DA,1)),"^",1,4) S:$D(^TMP($J,DA)) X=X_"^"_^(DA) S ^PSNDF(50.68,DA,1)=X
+"RTN","PSN380P",11,0)
+ K ^TMP($J)
+"RTN","PSN380P",12,0)
+ K DA,I,J,K,LINE,PSN,ROOT,X
+"RTN","PSN380P",13,0)
+ Q
+"VER")
+8.0^22.0
+**END**
+**END**
diff --git a/Packages/National Drug File/Patches/PSN_4.0_380/PSN-4_SEQ-366_PAT-380.TXT b/Packages/National Drug File/Patches/PSN_4.0_380/PSN-4_SEQ-366_PAT-380.TXT
new file mode 100644
index 0000000..e23b638
--- /dev/null
+++ b/Packages/National Drug File/Patches/PSN_4.0_380/PSN-4_SEQ-366_PAT-380.TXT
@@ -0,0 +1,128 @@
+
+=============================================================================
+Run Date: NOV 25, 2013 Designation: PSN*4*380
+Package : PSN - NATIONAL DRUG FILE Priority: Mandatory
+Version : 4 SEQ #366 Status: Released
+ Compliance Date: DEC 04, 2013
+=============================================================================
+
+Associated patches: (v)PSN*4*379 <<= must be installed BEFORE `PSN*4*380'
+
+Subject: PMI MAPPING - FY14 #2
+
+Category:
+ - Routine
+ - Other
+
+Description:
+============
+
+
+ NOTE: This patch is part of NDF Data Update FY14 #2, which is comprised
+ of two patches, PSN*4*379 and PSN*4*380.
+
+ The environment check routine for this patch checks to see that the installer
+ is a valid user. The post-install routine for this patch matches entries in
+ the VA PRODUCT file (#50.68) to the proper PMIs.
+
+
+ Associated Remedy Tickets:
+ ==========================
+ None
+
+ Test Sites:
+ ===========
+ CENTRAL PLAINS HCS
+ CHILLICOTHE, OH
+ NEW YORK HCS
+ OKLAHOMA CITY, OK
+ PALO ALTO HCS
+
+ Installation Instructions and Software Retrieval:
+ =================================================
+ This patch can be obtained from the ANONYMOUS.SOFTWARE directory at one of the
+ OI Field Offices. The preferred method is to FTP the file from
+ DOWNLOAD.VISTA.DOMAIN.EXT, which will transmit the file from the first
+ available server. Alternatively, sites may elect to retrieve the file from a
+ specific OI Field Office.
+
+ OI FIELD OFFICE FTP ADDRESS DIRECTORY
+ Albany FTP.FO-ALBANY.DOMAIN.EXT anonymous.software
+ Hines FTP.FO-HINES.DOMAIN.EXT anonymous.software
+ Salt Lake City FTP.FO-SLC.DOMAIN.EXT anonymous.software
+
+ The software distribution includes:
+
+ FILE NAME DESCRIPTION BLOCK SIZE
+
+ NDF4P380.KID KIDS Build 627 blocks
+
+
+ Users may remain on the system while this patch is installed. Installation
+ (excluding the time required to download the file to your system) takes less
+ than ten minutes. This patch should be installed during non-peak requirement
+ hours. The Print a PMI Sheet [PSNPMIS PRINT], Patient Prescription Processing
+ [PSO LM BACKDOOR ORDERS], Release Medication [PSO RELEASE], and Reprint an
+ Outpatient Rx Label [PSO RXRPT] options should be placed out of order during
+ the installation.
+
+ 1. Retrieve the file NDF4P380.KID using one of the methods described
+ above.
+
+ 2. From the Kernel Installation & Distribution System menu, select
+ the Installation menu.
+
+ 3. From this menu, select the option Load a Distribution and select
+ NDF4P380.KID.
+
+ 4. From this menu, you may choose to use the option Verify Checksums in
+ Transport Global. When prompted, select PSN*4.0*380. All components of
+ this patch are new, so the option Backup a Transport Global and
+ the option Compare Transport Global to Current System do not have
+ to be invoked.
+
+ 5. Use the Install Package(s) option and select PSN*4.0*380.
+
+ 6. When prompted "Want KIDS to INHIBIT LOGONs during the install? NO//"
+ respond NO.
+
+ 7. When prompted "Want to DISABLE Scheduled Options, Menu Options, and
+ Protocols? YES//" respond YES. Select the following options
+ to disable.
+
+ Option Name Menu Text
+ ----------------------- ------------------------------
+ PSNPMIS PRINT Print a PMI Sheet
+ PSO LM BACKDOOR ORDERS Patient Prescription Processing
+ PSO RELEASE Release Medication
+ PSO RXRPT Reprint an Outpatient Rx Label
+
+ 8. Note:The environment check routine PSN380E and the post-install routine
+ PSN380P will be automatically deleted from your system upon completion of
+ the installation.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+;;4.0;NATIONAL DRUG FILE;**[Patch List]**; 30 Oct 98;Build 79
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: PSN380E
+ Before: n/a After: B217638 **380**
+Routine Name: PSN380P
+ Before: n/a After: B1182235 **380**
+
+=============================================================================
+User Information:
+Entered By : WOLF,HONORATA Date Entered : OCT 17, 2013
+Completed By: GREER,MIKE Date Completed: NOV 22, 2013
+Released By : MUSGROVE,STEVE Date Released : NOV 25, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/Occupational Health Record-Keeping System/Patches/OHRS_1.4_10/OHRS-1P4_SEQ-10_PAT-10.TXT b/Packages/Occupational Health Record-Keeping System/Patches/OHRS_1.4_10/OHRS-1P4_SEQ-10_PAT-10.TXT
new file mode 100644
index 0000000..054d53e
--- /dev/null
+++ b/Packages/Occupational Health Record-Keeping System/Patches/OHRS_1.4_10/OHRS-1P4_SEQ-10_PAT-10.TXT
@@ -0,0 +1,133 @@
+
+=============================================================================
+Run Date: NOV 15, 2013 Designation: OHRS*1.4*10
+Package : OHRS - OCCUPAT HEALTH RECORD-KEEPIN Priority: Mandatory
+Version : 1.4 SEQ #10 Status: Released
+ Compliance Date: DEC 16, 2013
+=============================================================================
+
+
+Subject: OHRS 1.4.10 Maintenance Updates
+
+Category:
+ - Informational
+
+Description:
+============
+
+ *************************************************************
+ This is to announce the updates to CISS-OHRS web application
+ version 1.4.10 will be rolled out nationally November 18, 2013
+ *************************************************************
+
+ RELEASE INFORMATION:
+ ====================
+ This is an informational release notice only.
+
+
+ BLOOD BANK CLEARANCE
+ ====================
+ EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: OHRS*1.4*10
+ does not alter or modify any VistA Blood Bank software design
+ safeguards or safety critical elements functions.
+
+ RISK ANALYSIS: Changes made by patch OHRS*1.4*10 have no effect on Blood
+ Bank software functionality, therefore RISK is none.
+
+
+ SOFTWARE CHANGES:
+ ================
+
+ 1. CCR2923 - The OHRS database has been updated with ICD-10 codes, so
+ that they are available for use when ICD-10 codes are
+ mandated for use.
+
+ 2. CCR3055 - The Fit Test notifications are now only available as an
+ option when documenting a fit test notification.
+
+ 3. CCR3136 - An application error was being displayed on Manual
+ Reconcile when merging data for Other Federal Agency(OFA)
+ patient data that doesn't have a Duty Station or Work
+ Location. The application error is no longer displayed.
+
+ The Manual Reconcile screen will display the Duty Station
+ in the 1st column if the data is in the OFA file
+
+ 4. CCR3021 - When PAID employees are dropped from the paid data load,
+ OHRS will update the separation date for PAID
+ employees who are no longer appearing in the PAID Load.
+
+ 5. CCR3117 - PAID Data Load job process will not replace an existing
+ valid e-mail address with a Null e-mail value when sent
+ by PAID Data Load.
+
+ 6. CCR3135 - Patient Import Data Load process was not accepting 3 digits
+ value for the station field nor accepting 4 digit values for
+ the duty station field during Patient Import data load
+ process. The system will now accept the 3 digits for the
+ station field and 4 digit values for the duty station.
+
+ 7. CCR3114 - Date calendar box on the Date field in OHRS application is
+ not being properly read by the screen reader (JAWS). JAWS
+ will now read instructions for the date field.
+
+
+ 8. CCR3126 - JAWS was not reading the Required (*) fields in the Risk
+ Profile screen as a required field combo box.
+ JAWS is now reading the required fields as expected.
+
+ 9. CCR3128 - JAWS was not reading the message on the "Report
+ Extension" popup message box on the completed reports
+ tab. JAWS is now reading the popup message as expected.
+
+
+ SYSTEM REQUIREMENTS:
+ ======================
+ n/a
+
+
+ SOFTWARE RETRIEVAL:
+ =====================
+ n/a
+
+
+ REMEDY TICKET(S) and OVERVIEW:
+ ==============================
+ n/a
+
+
+ TEST SITES:
+ ======================
+ Philadelphia VAMC, PA
+ Southern Arizona (SAVHCS), AZ
+ Albany VAMC, NY
+
+
+ DOCUMENTATION:
+ ======================
+ The User Guide is available on VA Documentation Library (VDL) at:
+ http://www.domain.ext/vdl/ in the HealtheVet section.
+
+
+ ADDITIONAL INFORMATION:
+ =======================
+ If you have any questions concerning the implementation of this
+ application, please contact the VA Service Desk at 1-888-596-4357
+ or log a Remedy Ticket via Remedy for CISS-OHRS
+
+Routine Information:
+====================
+No routines included.
+
+=============================================================================
+User Information:
+Entered By : DAVIS,SHAWNTA Date Entered : OCT 07, 2013
+Completed By: KAUR,RENE Date Completed: NOV 06, 2013
+Released By : MOODY,SUSAN Date Released : NOV 15, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/Oncology/Patches/ONC_2.11_53/.gitignore b/Packages/Oncology/Patches/ONC_2.11_53/.gitignore
new file mode 100644
index 0000000..2607cc4
--- /dev/null
+++ b/Packages/Oncology/Patches/ONC_2.11_53/.gitignore
@@ -0,0 +1 @@
+ONC211P53.KID
diff --git a/Packages/Order Entry Results Reporting/Patches/OR_3.0_380/OR-3_SEQ-324_PAT-380.KIDS b/Packages/Order Entry Results Reporting/Patches/OR_3.0_380/OR-3_SEQ-324_PAT-380.KIDS
new file mode 100644
index 0000000..7d0d89b
--- /dev/null
+++ b/Packages/Order Entry Results Reporting/Patches/OR_3.0_380/OR-3_SEQ-324_PAT-380.KIDS
@@ -0,0 +1,540 @@
+EMERGENCY Released OR*3*380 SEQ #324
+Extracted from mail message
+**KIDS**:OR*3.0*380^
+
+**INSTALL NAME**
+OR*3.0*380
+"BLD",8794,0)
+OR*3.0*380^ORDER ENTRY/RESULTS REPORTING^0^3130917^y
+"BLD",8794,4,0)
+^9.64PA^^
+"BLD",8794,6.3)
+2
+"BLD",8794,"KRN",0)
+^9.67PA^779.2^20
+"BLD",8794,"KRN",.4,0)
+.4
+"BLD",8794,"KRN",.401,0)
+.401
+"BLD",8794,"KRN",.402,0)
+.402
+"BLD",8794,"KRN",.403,0)
+.403
+"BLD",8794,"KRN",.5,0)
+.5
+"BLD",8794,"KRN",.84,0)
+.84
+"BLD",8794,"KRN",3.6,0)
+3.6
+"BLD",8794,"KRN",3.8,0)
+3.8
+"BLD",8794,"KRN",9.2,0)
+9.2
+"BLD",8794,"KRN",9.8,0)
+9.8
+"BLD",8794,"KRN",9.8,"NM",0)
+^9.68A^1^1
+"BLD",8794,"KRN",9.8,"NM",1,0)
+ORCMED^^0^B62390463
+"BLD",8794,"KRN",9.8,"NM","B","ORCMED",1)
+
+"BLD",8794,"KRN",19,0)
+19
+"BLD",8794,"KRN",19.1,0)
+19.1
+"BLD",8794,"KRN",101,0)
+101
+"BLD",8794,"KRN",409.61,0)
+409.61
+"BLD",8794,"KRN",771,0)
+771
+"BLD",8794,"KRN",779.2,0)
+779.2
+"BLD",8794,"KRN",870,0)
+870
+"BLD",8794,"KRN",8989.51,0)
+8989.51
+"BLD",8794,"KRN",8989.52,0)
+8989.52
+"BLD",8794,"KRN",8994,0)
+8994
+"BLD",8794,"KRN","B",.4,.4)
+
+"BLD",8794,"KRN","B",.401,.401)
+
+"BLD",8794,"KRN","B",.402,.402)
+
+"BLD",8794,"KRN","B",.403,.403)
+
+"BLD",8794,"KRN","B",.5,.5)
+
+"BLD",8794,"KRN","B",.84,.84)
+
+"BLD",8794,"KRN","B",3.6,3.6)
+
+"BLD",8794,"KRN","B",3.8,3.8)
+
+"BLD",8794,"KRN","B",9.2,9.2)
+
+"BLD",8794,"KRN","B",9.8,9.8)
+
+"BLD",8794,"KRN","B",19,19)
+
+"BLD",8794,"KRN","B",19.1,19.1)
+
+"BLD",8794,"KRN","B",101,101)
+
+"BLD",8794,"KRN","B",409.61,409.61)
+
+"BLD",8794,"KRN","B",771,771)
+
+"BLD",8794,"KRN","B",779.2,779.2)
+
+"BLD",8794,"KRN","B",870,870)
+
+"BLD",8794,"KRN","B",8989.51,8989.51)
+
+"BLD",8794,"KRN","B",8989.52,8989.52)
+
+"BLD",8794,"KRN","B",8994,8994)
+
+"BLD",8794,"QUES",0)
+^9.62^^
+"BLD",8794,"REQB",0)
+^9.611^1^1
+"BLD",8794,"REQB",1,0)
+OR*3.0*371^2
+"BLD",8794,"REQB","B","OR*3.0*371",1)
+
+"MBREQ")
+0
+"PKG",170,-1)
+1^1
+"PKG",170,0)
+ORDER ENTRY/RESULTS REPORTING^OR^Order Entry/Results Reporting
+"PKG",170,20,0)
+^9.402P^^
+"PKG",170,22,0)
+^9.49I^1^1
+"PKG",170,22,1,0)
+3.0^2971217^2980917^11712
+"PKG",170,22,1,"PAH",1,0)
+380^3130917
+"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","ORCMED")
+0^1^B62390463^B65467847
+"RTN","ORCMED",1,0)
+ORCMED ;SLC/MKB-Medication actions ;09/17/13 12:31
+"RTN","ORCMED",2,0)
+ ;;3.0;ORDER ENTRY/RESULTS REPORTING;**4,7,38,48,94,141,178,190,195,243,306,371,380**;Dec 17, 1997;Build 2
+"RTN","ORCMED",3,0)
+XFER ; -- transfer to in/outpt meds
+"RTN","ORCMED",4,0)
+ N ORPTLK,ORTYPE,ORXFER,ORSRC,ORCAT,OREVENT,X,ORINPT,ORIDLG,ORODLG,ORIVDLG,ORNMSP,ORCNT,ORI,NMBR,ORIFN,OLDIFN,ORDIALOG,ORDG,ORCHECK,ORQUIT,ORDUZ,ORLOG,FIRST,ORDITM,ORD,ORERR
+"RTN","ORCMED",5,0)
+ S ORPTLK=$$LOCK^ORX2(+ORVP) I 'ORPTLK D G XFQ ; lock pt chart
+"RTN","ORCMED",6,0)
+ . W !!,$C(7),$P(ORPTLK,U,2) H 2
+"RTN","ORCMED",7,0)
+ . S:'$D(VALMBCK) VALMBCK=""
+"RTN","ORCMED",8,0)
+ I '$G(ORNMBR) S ORNMBR=$$ORDERS^ORCHART("transfer") G:'ORNMBR XFQ
+"RTN","ORCMED",9,0)
+ D FULL^VALM1 S VALMBCK="R",ORTYPE="Q",ORXFER=1,ORDUZ=DUZ,ORSRC="X"
+"RTN","ORCMED",10,0)
+ S X=$P($P($G(^TMP("OR",$J,"CURRENT",0)),U,3),";",3) S:X="" X=$G(ORWARD)
+"RTN","ORCMED",11,0)
+ S ORCAT=$S(X:"O",1:"I") I ORCAT="I"!$G(ORWARD) D Q:$G(OREVENT)="^"
+"RTN","ORCMED",12,0)
+ . W !!,$$CURRENT^OREVNT
+"RTN","ORCMED",13,0)
+ . S X=$$DELAY^ORCACT I X="^" S OREVENT="^" Q
+"RTN","ORCMED",14,0)
+ . S:X OREVENT=+$$PTEVENT^OREVNT(+ORVP,1)
+"RTN","ORCMED",15,0)
+ I '$G(ORL) S ORL=$S($G(OREVENT):$$LOC^OREVNTX(OREVENT),1:$$LOCATION^ORCMENU1) G:ORL="^" XFQ
+"RTN","ORCMED",16,0)
+ S ORINPT=$$INPT^ORCD,ORNP=$$PROVIDER^ORCMENU1 G:ORNP="^" XFQ
+"RTN","ORCMED",17,0)
+ I 'ORINPT,ORCAT="I" D IMOLOC^ORIMO(.ORINPT,+ORL,+ORVP) S:ORINPT<0 ORINPT=0 ;allow inpt meds at this location?
+"RTN","ORCMED",18,0)
+ S ORIDLG=+$O(^ORD(101.41,"AB","PSJ OR PAT OE",0))
+"RTN","ORCMED",19,0)
+ S ORODLG=+$O(^ORD(101.41,"AB","PSO OERR",0))
+"RTN","ORCMED",20,0)
+ S ORIVDLG=+$O(^ORD(101.41,"AB","PSJI OR PAT FLUID OE",0))
+"RTN","ORCMED",21,0)
+ D PROVIDER^ORCDPSIV G:$G(ORQUIT) XFQ ;X:$D(^ORD(101.41,ORDIALOG,3)) ^(3)
+"RTN","ORCMED",22,0)
+ S ORNMSP="PS" D DISPLAY^ORCHECK
+"RTN","ORCMED",23,0)
+ S ORCNT=$L(ORNMBR,",") S:$P(ORNMBR,",",ORCNT)'>0 ORCNT=ORCNT-1
+"RTN","ORCMED",24,0)
+XF1 F ORI=1:1:ORCNT S NMBR=$P(ORNMBR,",",ORI) D:NMBR I $D(ORQUIT),ORI<ORCNT Q:'$$CONT ;if not last one, ask
+"RTN","ORCMED",25,0)
+ . K ORIFN,ORDIALOG,ORDG,ORDOSE,ORCHECK,ORQUIT,ORERR
+"RTN","ORCMED",26,0)
+ . K ^TMP("PSJMR",$J),^TMP("ORWORD",$J),^TMP("ORSIG",$J)
+"RTN","ORCMED",27,0)
+ . S OLDIFN=+$P($G(^TMP("OR",$J,ORTAB,"IDX",NMBR)),U,4)
+"RTN","ORCMED",28,0)
+ . S ORDITM=$$ORDITEM^ORCACT(OLDIFN) D SUBHDR^ORCACT(ORDITM)
+"RTN","ORCMED",29,0)
+ . I '$$VALID^ORCACT0(OLDIFN,"XFR",.ORERR) W !,ORERR H 2 Q
+"RTN","ORCMED",30,0)
+ . S ORD=$P($G(^OR(100,OLDIFN,0)),U,5) Q:ORD'["101.41" ;error msg?
+"RTN","ORCMED",31,0)
+ . S ORDIALOG=$S(+ORD=ORIVDLG:ORIVDLG,ORCAT="I":ORIDLG,1:ORODLG)
+"RTN","ORCMED",32,0)
+ . S ORDG=+$P($G(^ORD(101.41,ORDIALOG,0)),U,5)
+"RTN","ORCMED",33,0)
+ . D GETDLG^ORCD(ORDIALOG),GETORDER^ORCD(OLDIFN)
+"RTN","ORCMED",34,0)
+ . I ORDIALOG'=ORIVDLG D OUT:ORCAT="I",IN:ORCAT="O" ;convert data
+"RTN","ORCMED",35,0)
+ . K ORDIALOG($$PTR^ORCD("OR GTX START DATE/TIME"),1)
+"RTN","ORCMED",36,0)
+ . K ORDIALOG($$PTR^ORCD("OR GTX NOW"),1)
+"RTN","ORCMED",37,0)
+ . S ORLOG=+$E($$NOW^XLFDT,1,12),FIRST=1
+"RTN","ORCMED",38,0)
+XF2 . D DIALOG^ORCDLG Q:$G(ORQUIT)&FIRST K ORQUIT
+"RTN","ORCMED",39,0)
+ . D ACCEPT^ORCHECK(),DISPLAY^ORCDLG S X=$$OK^ORCDLG I X="^" S ORQUIT=1 Q
+"RTN","ORCMED",40,0)
+ . I X="E" K ORCHECK S FIRST=0 G XF2
+"RTN","ORCMED",41,0)
+ . I X="C" W !?10,"... order cancelled.",! Q
+"RTN","ORCMED",42,0)
+ . I X="P" D
+"RTN","ORCMED",43,0)
+ . . D EN^ORCSAVE W !?10,$S(ORIFN:"... order placed.",1:"ERROR"),!
+"RTN","ORCMED",44,0)
+ . . S:$G(ORIFN) ^TMP("ORNEW",$J,ORIFN,1)=""
+"RTN","ORCMED",45,0)
+ . . I '$D(^TMP("ORECALL",$J,ORDIALOG)) M ^(ORDIALOG)=ORDIALOG M:$D(^TMP("ORWORD",$J)) ^TMP("ORECALL",$J,ORDIALOG)=^TMP("ORWORD",$J) ;save 1st values
+"RTN","ORCMED",46,0)
+XFQ D EXIT^ORCDPS1 ;X:$D(^ORD(101.41,ORDIALOG,4)) ^(4)
+"RTN","ORCMED",47,0)
+ K ^TMP("ORWORD",$J),^TMP("ORSIG",$J)
+"RTN","ORCMED",48,0)
+ D:'$D(^TMP("ORNEW",$J)) UNLOCK^ORX2(+ORVP) ;unlock if no new orders
+"RTN","ORCMED",49,0)
+ Q
+"RTN","ORCMED",50,0)
+ ;
+"RTN","ORCMED",51,0)
+IN ; -- Kill extra values, Reset ID's/DD from Inpt dialog
+"RTN","ORCMED",52,0)
+ N ORD1,ORDLI,ORDFIN,ORDCNT,ORDORIG,ORDORIGF
+"RTN","ORCMED",53,0)
+ N P F P="START DATE/TIME","NOW" K ORDIALOG($$PTR(P),1)
+"RTN","ORCMED",54,0)
+ S ORD1=$P($G(ORDIALOG($$PTR("DOSE"),1)),"&",5)
+"RTN","ORCMED",55,0)
+ S ORDORIG=ORDIALOG($$PTR("INSTRUCTIONS"),1)
+"RTN","ORCMED",56,0)
+ D DOSES("O")
+"RTN","ORCMED",57,0)
+ Q:'$L(ORD1)
+"RTN","ORCMED",58,0)
+ S ORDFIN="",ORDCNT=0,ORDORIGF=0
+"RTN","ORCMED",59,0)
+ ;look in the new instructions list for the original inpatient instructions and the dose
+"RTN","ORCMED",60,0)
+ S ORDLI=0 F S ORDLI=$O(ORDIALOG($$PTR("INSTRUCTIONS"),"LIST",ORDLI)) Q:'ORDLI D
+"RTN","ORCMED",61,0)
+ .I $P(ORDIALOG($$PTR("INSTRUCTIONS"),"LIST",ORDLI),U)=ORDORIG S ORDORIGF=1
+"RTN","ORCMED",62,0)
+ ;If original instructions was not in the new instructions list then replace the instructions
+"RTN","ORCMED",63,0)
+ I ORDORIGF=0 D
+"RTN","ORCMED",64,0)
+ .I ORDCNT=1 S ORDIALOG($$PTR("INSTRUCTIONS"),1)=ORDFIN ;only one item in the list found containing the dose string - set the instructions to the item found
+"RTN","ORCMED",65,0)
+ .I ORDCNT=0 S ORDIALOG($$PTR("INSTRUCTIONS"),1)="" ;no items in the list found containing the dose string - blank the instructions
+"RTN","ORCMED",66,0)
+ .I ORDCNT>1 S ORDIALOG($$PTR("INSTRUCTIONS"),1)="" ;more than one item in the list found containing the dose string - blank the instructions
+"RTN","ORCMED",67,0)
+ Q
+"RTN","ORCMED",68,0)
+ ;
+"RTN","ORCMED",69,0)
+OUT ; -- Kill extra values, Reset ID's/DD from Outpt dialog
+"RTN","ORCMED",70,0)
+ N ORD1,ORDLI,ORDFIN,ORDCNT,ORDORIG,ORDORIGF
+"RTN","ORCMED",71,0)
+ S ORD1=$P($G(ORDIALOG($$PTR("DOSE"),1)),"&",5)
+"RTN","ORCMED",72,0)
+ S ORDORIG=ORDIALOG($$PTR("INSTRUCTIONS"),1)
+"RTN","ORCMED",73,0)
+ N P I '$O(ORDIALOG($$PTR("INSTRUCTIONS"),0)) D ;old sig in comments
+"RTN","ORCMED",74,0)
+ . N WP S WP=$$PTR("WORD PROCESSING 1") K ^TMP("ORSIG",$J)
+"RTN","ORCMED",75,0)
+ . M ^TMP("ORSIG",$J)=^TMP("ORWORD",$J,WP,1)
+"RTN","ORCMED",76,0)
+ . K ORDIALOG(WP,1),^TMP("ORWORD",$J,WP,1)
+"RTN","ORCMED",77,0)
+ F P="PATIENT INSTRUCTIONS","START DATE/TIME","DAYS SUPPLY","QUANTITY","REFILLS","ROUTING","SERVICE CONNECTED" K ORDIALOG($$PTR(P),1)
+"RTN","ORCMED",78,0)
+ I $G(ORDIALOG($$PTR("URGENCY"),1))=99 K ORDIALOG($$PTR("URGENCY"),1)
+"RTN","ORCMED",79,0)
+ D DOSES("I")
+"RTN","ORCMED",80,0)
+ Q:'$L(ORD1)
+"RTN","ORCMED",81,0)
+ S ORDFIN="",ORDCNT=0,ORDORIGF=0
+"RTN","ORCMED",82,0)
+ ;look in the new instructions list for the original inpatient instructions and the dose
+"RTN","ORCMED",83,0)
+ S ORDLI=0 F S ORDLI=$O(ORDIALOG($$PTR("INSTRUCTIONS"),"LIST",ORDLI)) Q:'ORDLI D
+"RTN","ORCMED",84,0)
+ .I $P(ORDIALOG($$PTR("INSTRUCTIONS"),"LIST",ORDLI),U)=ORDORIG S ORDORIGF=1
+"RTN","ORCMED",85,0)
+ ;If original instructions was not in the new instructions list then replace the instructions
+"RTN","ORCMED",86,0)
+ I ORDORIGF=0 D
+"RTN","ORCMED",87,0)
+ .I ORDCNT=1 S ORDIALOG($$PTR("INSTRUCTIONS"),1)=ORDFIN ;only one item in the list found containing the dose string - set the instructions to the item found
+"RTN","ORCMED",88,0)
+ .I ORDCNT=0 S ORDIALOG($$PTR("INSTRUCTIONS"),1)="" ;no items in the list found containing the dose string - blank the instructions
+"RTN","ORCMED",89,0)
+ .I ORDCNT>1 S ORDIALOG($$PTR("INSTRUCTIONS"),1)="" ;more than one item in the list found containing the dose string - blank the instructions
+"RTN","ORCMED",90,0)
+ Q
+"RTN","ORCMED",91,0)
+ ;
+"RTN","ORCMED",92,0)
+DOSES(TYPE) ; -- Convert doses to new TYPE, reset ID strings
+"RTN","ORCMED",93,0)
+ N PSOI,ORMED,PROMPT,DOSE,DRUG,I,X,DD,DRUG0,STR
+"RTN","ORCMED",94,0)
+ F I="DISPENSE DRUG","STRENGTH","DRUG NAME","SIG" K ORDIALOG($$PTR(I),1)
+"RTN","ORCMED",95,0)
+ S PSOI=+$P($G(^ORD(101.43,+$G(ORDIALOG($$PTR("ORDERABLE ITEM"),1)),0)),U,2),ORMED=$P($G(^(0)),U)
+"RTN","ORCMED",96,0)
+ D DOSE^PSSORUTL(.ORDOSE,PSOI,TYPE,+ORVP) I $G(ORDOSE(1))=-1 K ORDOSE
+"RTN","ORCMED",97,0)
+ S PROMPT=$$PTR("INSTRUCTIONS"),DOSE=$$PTR("DOSE")
+"RTN","ORCMED",98,0)
+ S DRUG=$$PTR("DISPENSE DRUG") D D1^ORCDPS2
+"RTN","ORCMED",99,0)
+ S I=0 F S I=$O(ORDIALOG(PROMPT,I)) Q:I'>0 D
+"RTN","ORCMED",100,0)
+ . K ORDIALOG(DOSE,I) S X=$G(ORDIALOG(PROMPT,I)) Q:'$L(X)
+"RTN","ORCMED",101,0)
+ . S X=$$UP^XLFSTR(X),DD=+$G(ORDIALOG(PROMPT,"LIST","D",X)) Q:'DD
+"RTN","ORCMED",102,0)
+ . S ORDIALOG(DOSE,I)=$TR($G(ORDOSE("DD",DD,X)),"^","&")
+"RTN","ORCMED",103,0)
+ . S ORDIALOG(DRUG,I)=DD,DRUG0=$G(ORDOSE("DD",DD))
+"RTN","ORCMED",104,0)
+ . S STR=$P(DRUG0,U,5)_$P(DRUG0,U,6)
+"RTN","ORCMED",105,0)
+ . I STR'>0 S:'$G(ORDOSE(1)) ORDIALOG($$PTR("DRUG NAME"),1)=$P(DRUG0,U) Q
+"RTN","ORCMED",106,0)
+ . I ORMED'[STR,TYPE="O"!'$G(ORDOSE(1)) S ORDIALOG($$PTR("STRENGTH"),1)=STR
+"RTN","ORCMED",107,0)
+ Q
+"RTN","ORCMED",108,0)
+ ;
+"RTN","ORCMED",109,0)
+CONT() ; -- Want to continue processing orders?
+"RTN","ORCMED",110,0)
+ N X,Y,DIR
+"RTN","ORCMED",111,0)
+ S DIR(0)="YA",DIR("A")="Do you want to continue transferring orders? ",DIR("B")="YES"
+"RTN","ORCMED",112,0)
+ S DIR("?")="Enter YES to continue transferring the remaining orders selected, or NO to quit this option."
+"RTN","ORCMED",113,0)
+ D ^DIR
+"RTN","ORCMED",114,0)
+ Q +Y
+"RTN","ORCMED",115,0)
+ ;
+"RTN","ORCMED",116,0)
+SHOWSIG ; -- Show old sig for transfer in ^TMP("ORSIG",$J)
+"RTN","ORCMED",117,0)
+ N ORTX,I,X,ORMAX S ORMAX=72
+"RTN","ORCMED",118,0)
+ S I=0 F S I=$O(^TMP("ORSIG",$J,I)) Q:I'>0 S X=$G(^(I,0)) D:$L(X) TXT^ORCHTAB
+"RTN","ORCMED",119,0)
+ S I=0 F S I=$O(ORTX(I)) Q:I'>0 W !,$S(I=1:"(Sig: ",1:" ")_ORTX(I)
+"RTN","ORCMED",120,0)
+ W ")"
+"RTN","ORCMED",121,0)
+ Q
+"RTN","ORCMED",122,0)
+ ;
+"RTN","ORCMED",123,0)
+PTR(NAME) ; -- Returns pointer to OR GTX NAME
+"RTN","ORCMED",124,0)
+ Q +$O(^ORD(101.41,"AB",$E("OR GTX "_NAME,1,63),0))
+"RTN","ORCMED",125,0)
+ ;
+"RTN","ORCMED",126,0)
+REFILLS ; -- Request a refill for med orders
+"RTN","ORCMED",127,0)
+ ; ORNMBR = #,#,...,# of selected orders
+"RTN","ORCMED",128,0)
+ ;
+"RTN","ORCMED",129,0)
+ N ORLK,ORI,NMBR,IDX,ORIFN,ORDITM,ORERR,ORQUIT,OROUT
+"RTN","ORCMED",130,0)
+ I '$G(ORNMBR) S ORNMBR=$$ORDERS^ORCHART("") G:'ORNMBR RFQ
+"RTN","ORCMED",131,0)
+ D FREEZE^ORCMENU S VALMBCK="R"
+"RTN","ORCMED",132,0)
+ S ORNP=$$PROVIDER^ORCMENU1 G:ORNP="^" RFQ
+"RTN","ORCMED",133,0)
+ S:'$G(ORL) ORL=$$LOCATION^ORCMENU1 G:ORL="^" RFQ
+"RTN","ORCMED",134,0)
+ S OROUT=$$ROUTING G:OROUT="^" RFQ
+"RTN","ORCMED",135,0)
+ F ORI=1:1:$L(ORNMBR,",") S NMBR=$P(ORNMBR,",",ORI) D:NMBR Q:$D(ORQUIT)
+"RTN","ORCMED",136,0)
+ . S IDX=$G(^TMP("OR",$J,"CURRENT","IDX",NMBR)),ORIFN=+$P(IDX,U,4)
+"RTN","ORCMED",137,0)
+ . Q:'ORIFN I '$D(^OR(100,ORIFN,0)) W !,"Invalid order number!" H 2 Q
+"RTN","ORCMED",138,0)
+ . S ORDITM=$$ORDITEM^ORCACT(ORIFN) D SUBHDR^ORCACT(ORDITM)
+"RTN","ORCMED",139,0)
+ . I '$$VALID^ORCACT0(ORIFN,"RF",.ORERR) W !,ORERR H 2 Q
+"RTN","ORCMED",140,0)
+ . S ORLK=$$LOCK1^ORX2(+ORIFN) I 'ORLK W !,$P(ORLK,U,2) H 2 Q
+"RTN","ORCMED",141,0)
+ . D REF^ORMBLDPS(ORIFN,OROUT),UNLK1^ORX2(+ORIFN)
+"RTN","ORCMED",142,0)
+ . W !?10,"... refill requested.",$$RETURN
+"RTN","ORCMED",143,0)
+RFQ Q
+"RTN","ORCMED",144,0)
+ ;
+"RTN","ORCMED",145,0)
+RETURN() ; -- press return to cont
+"RTN","ORCMED",146,0)
+ N X W !,"Press <return> to continue ..." R X:DTIME
+"RTN","ORCMED",147,0)
+ Q ""
+"RTN","ORCMED",148,0)
+ ;
+"RTN","ORCMED",149,0)
+ROUTING() ; -- Routing for refill
+"RTN","ORCMED",150,0)
+ N X,Y,DIR S DIR(0)="SAM^W:WINDOW;M:MAIL;C:ADMINISTERED IN CLINIC;"
+"RTN","ORCMED",151,0)
+ S DIR("A")="Routing: ",DIR("B")=$S($D(^PSX(550,"C")):"MAIL",1:"WINDOW")
+"RTN","ORCMED",152,0)
+ S DIR("?")="Select how the patient is to receive this refill, by mail or at the window or in the clinic"
+"RTN","ORCMED",153,0)
+ D ^DIR S:$D(DTOUT)!(X["^") Y="^"
+"RTN","ORCMED",154,0)
+ Q Y
+"RTN","ORCMED",155,0)
+ ;
+"RTN","ORCMED",156,0)
+NW ; -- Order New Medication from Meds tab
+"RTN","ORCMED",157,0)
+ ; Requires ORDIALOG = name of pkg dialog
+"RTN","ORCMED",158,0)
+ ; OREVENT = event, if delaying orders
+"RTN","ORCMED",159,0)
+ ; OREVENT("TS") = treating spec, if admission or transfer
+"RTN","ORCMED",160,0)
+ N ORPTLK G:'$L($G(ORDIALOG)) NWQ
+"RTN","ORCMED",161,0)
+ S ORPTLK=$$LOCK^ORX2(+ORVP) I 'ORPTLK W !!,$C(7),$P(ORPTLK,U,2) H 2 Q
+"RTN","ORCMED",162,0)
+ D FREEZE^ORCMENU S VALMBCK="R"
+"RTN","ORCMED",163,0)
+ S ORNP=$$PROVIDER^ORCMENU1 G:ORNP="^" NWQ
+"RTN","ORCMED",164,0)
+ I '$G(ORL) S ORL=$S($G(OREVENT):$$LOC^OREVNTX(OREVENT),1:$$LOCATION^ORCMENU1) G:ORL["^" NWQ
+"RTN","ORCMED",165,0)
+ S ORDIALOG=$O(^ORD(101.41,"AB",$E(ORDIALOG,1,63),0)) G:'ORDIALOG NWQ
+"RTN","ORCMED",166,0)
+ D ADD^ORCDLG,REBLD^ORCMENU:$D(^TMP("ORNEW",$J))
+"RTN","ORCMED",167,0)
+ K ORDIALOG,^TMP("ORWORD",$J),^TMP("ORECALL",$J) S VALMBCK="R"
+"RTN","ORCMED",168,0)
+NWQ D:'$D(^TMP("ORNEW",$J)) UNLOCK^ORX2(+ORVP) ;unlock if no new orders
+"RTN","ORCMED",169,0)
+ Q
+"VER")
+8.0^22.0
+"BLD",8794,6)
+^324
+**END**
+**END**
diff --git a/Packages/Order Entry Results Reporting/Patches/OR_3.0_380/OR-3_SEQ-324_PAT-380.TXT b/Packages/Order Entry Results Reporting/Patches/OR_3.0_380/OR-3_SEQ-324_PAT-380.TXT
new file mode 100644
index 0000000..464cbf8
--- /dev/null
+++ b/Packages/Order Entry Results Reporting/Patches/OR_3.0_380/OR-3_SEQ-324_PAT-380.TXT
@@ -0,0 +1,243 @@
+$TXT Created by HAWSEY,JASON at CPRS29.FO-SLC.DOMAIN.EXT (KIDS) on Tuesday, 09/17/13 at 12:31
+=============================================================================
+Run Date: OCT 16, 2013 Designation: OR*3*380
+Package : OR - ORDER ENTRY/RESULTS REPORTING Priority: EMERGENCY
+Version : 3 SEQ #324 Status: Released
+ Compliance Date: OCT 18, 2013
+=============================================================================
+
+Associated patches: (v)OR*3*371 <<= must be installed BEFORE `OR*3*380'
+
+Subject: CORRECT TRANSFER MEDICATION ORDER ISSUE
+
+Category:
+ - Routine
+
+Description:
+============
+
+ This patch corrects an issue related to transferring a medication from
+ either Inpatient to Outpatient or vice-versa. In specific scenarios, a
+ wrong dosage is automatically placed in the order dialog upon
+ transferring the medication resulting in a possible overdose.
+
+ For example: Suppose there is an orderable item configured with a 20 MG
+ Outpatient dosage and a 120 MG Inpatient dosage (note that there is no 20
+ MG Inpatient dosage). If the provider attempts to transfer an Outpatient
+ medication order with the 20 MG dosage to an Inpatient medication order,
+ the 120 MG dosage is automatically selected because it contains the
+ characters "20 MG". In this scenario, the automatic dosage selection
+ creates a 6-fold increase over the intended dosage.
+
+ **********IMPORTANT NOTICE**********
+
+ 1. This patch is being released as an emergency patch with a non-standard
+ emergency compliance date. This is to allow the sites that have NOT
+ installed OR*3*371 (CPRS GUI V29 Follow-up Patch) to have time to get that
+ installed before installing OR*3*380.
+
+ 2. The Pre/Post Installation Review section contains a list of sites that
+ should NOT install OR*3*380 until explicitly told to do so.
+
+ 3. If your site is not exempted from installation, you should install
+ OR*3*380 within 2 days of national release.
+
+ Patch Components
+ ================
+
+ Files & Fields Associated:
+
+ File Name (Number) Field Name (Number) New/Modified/Deleted
+ ------------------ ------------------- --------------------
+ N/A
+
+ Forms Associated:
+
+ Form Name File # New/Modified/Deleted
+ --------- ------ --------------------
+ N/A
+
+ Mail Groups Associated:
+
+ Mail Group Name New/Modified/Deleted
+ --------------- --------------------
+ N/A
+
+ Options Associated:
+
+ Option Name Type New/Modified/Deleted
+ ----------- ---- --------------------
+ N/A
+
+ Protocols Associated:
+
+ Protocol Name New/Modified/Deleted
+ ------------- --------------------
+ N/A
+
+ Security Keys Associated:
+
+ Security Key Name
+ -----------------
+ N/A
+
+ Templates Associated:
+
+ Template Name Type File Name (Number) New/Modified/Deleted
+ ------------- ---- ------------------ --------------------
+ N/A
+
+
+ Additional Information:
+
+ New Service Requests (NSRs)
+ ----------------------------
+ N/A
+
+ Patient Safety Issues (PSIs)
+ -----------------------------
+ PSPO 2472
+
+ Remedy Ticket(s) & Overview
+ ---------------------------
+ 1. INC000000906468 - OERR - Orders Tab: Dosage being changed transferring
+ med orders from outpatient to inpatient
+
+ Problem:
+ ========
+ The dosage of a med order was being changed to a higher dosage when
+ transferring it from outpatient to inpatient or from inpatient to
+ outpatient.
+
+ Resolution:
+ ===========
+ CPRS developers have corrected this problem such that in this case the
+ dosage will be blanked out and the provider will have to enter or select
+ a dosage manually.
+
+ 2. INC000000904483 - Duplicate of INC000000906468
+
+ Test Sites:
+ ----------
+
+
+ Patch Installation:
+
+ Pre/Post Installation Overview
+ ------------------------------
+ The following sites should NOT install OR*3*380 until explicitly told to
+ do so by the CPRS development team:
+
+ Albuquerque, NM
+ Asheville, NC
+ Atlanta, GA
+ Augusta, GA
+ Bay Pines, FL
+ Beckley, WV
+ Birmingham, AL
+ Boise, ID
+ Central Alabama HCS
+ Charleston, SC
+ Chillicothe, OH
+ Columbia, SC
+ Connecticut HCS
+ Dublin, GA
+ Durham, NC
+ Fayetteville, NC
+ Hampton, VA
+ Heartland-West HCS
+ Honolulu, HI
+ Hudson Valley HCS
+ Manila OC, PI
+ Miami, FL
+ New York HCS
+ North Chicago, IL
+ North Florida/South Georgia HCS
+ Northern California HCS
+ Palo Alto HCS
+ Phoenix, AZ
+ Portland, OR
+ Puget Sound HCS
+ Richmond, VA
+ Roseburg, OR
+ Salem, VA
+ Salisbury, NC
+ San Juan, PR
+ Tuscaloosa, AL
+ West Palm Beach, FL
+ White city, OR
+ Wilmington, DE
+
+ Installation Instructions
+ -------------------------
+ This patch may be installed with users on the system although it is
+ recommended that it be installed during non-peak hours to minimize
+ potential disruption to users. This patch should take less than 5 minutes
+ to install.
+
+ Pre-Installation Instructions
+ -----------------------------
+ 1. Choose the PackMan message containing this patch.
+
+ 2. Choose the INSTALL/CHECK MESSAGE PackMan option.
+
+ 3. From the Kernel Installation and Distribution System Menu, select
+ the Installation Menu. From this menu, you may elect to use the
+ following option. When prompted for the INSTALL enter the patch #(ex.
+ OR*3.0*380):
+
+ a. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DDs or templates.
+ b. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this patch
+ is installed. It compares all components of this patch
+ (routines, DDs, templates, etc.).
+ c. Verify Checksums in Transport Global - This option will allow
+ you to ensure the integrity of the routines that are in the
+ transport global.
+
+ 4. From the Installation Menu, select the Install Package(s) option and
+ choose the patch to install.
+
+ 5. When prompted 'Want KIDS to Rebuild Menu Trees Upon Completion of
+ Install? NO//'
+
+ 6. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
+ NO//'
+
+ 7. When prompted 'Want to DISABLE Scheduled Options, Menu Options,
+ and Protocols? NO//
+
+ 8. If prompted "Delay Install (Minutes): (0 - 60): 0// respond 0.
+
+ Post-Installation Instructions
+ -----------------------------
+ N/A
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;3.0;ORDER ENTRY/RESULTS REPORTING;**[Patch List]**;Dec 17, 1997;Build 2
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: ORCMED
+ Before: B65467847 After: B62390463 **4,7,38,48,94,141,178,190,195,
+ 243,306,371,380**
+
+Routine list of preceding patches: 371
+
+=============================================================================
+User Information:
+Entered By : CRUMLEY,JAMIE Date Entered : SEP 16, 2013
+Completed By: PHELPS,TY Date Completed: OCT 11, 2013
+Released By : DILTZ-ANDARY,TAMARA Date Released : OCT 16, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/PAID/Patches/PRS_4.0_137/PRS-4_SEQ-127_PAT-137.KIDS b/Packages/PAID/Patches/PRS_4.0_137/PRS-4_SEQ-127_PAT-137.KIDS
new file mode 100644
index 0000000..197e34f
--- /dev/null
+++ b/Packages/PAID/Patches/PRS_4.0_137/PRS-4_SEQ-127_PAT-137.KIDS
@@ -0,0 +1,1014 @@
+Released PRS*4*137 SEQ #127
+Extracted from mail message
+**KIDS**:PRS*4.0*137^
+
+**INSTALL NAME**
+PRS*4.0*137
+"BLD",9169,0)
+PRS*4.0*137^PAID^0^3121025^y
+"BLD",9169,1,0)
+^^4^4^3121025^
+"BLD",9169,1,1,0)
+This patch corrects two issues:
+"BLD",9169,1,2,0)
+1.Intermittant nurse entitled to but not able to post on call.
+"BLD",9169,1,3,0)
+2.PRS MONTH CALENDAR option does not include pay periods past 2012 or
+"BLD",9169,1,4,0)
+holidays past 2013.
+"BLD",9169,4,0)
+^9.64PA^^
+"BLD",9169,6.3)
+4
+"BLD",9169,"ABPKG")
+n
+"BLD",9169,"KRN",0)
+^9.67PA^779.2^20
+"BLD",9169,"KRN",.4,0)
+.4
+"BLD",9169,"KRN",.401,0)
+.401
+"BLD",9169,"KRN",.402,0)
+.402
+"BLD",9169,"KRN",.403,0)
+.403
+"BLD",9169,"KRN",.5,0)
+.5
+"BLD",9169,"KRN",.84,0)
+.84
+"BLD",9169,"KRN",3.6,0)
+3.6
+"BLD",9169,"KRN",3.8,0)
+3.8
+"BLD",9169,"KRN",9.2,0)
+9.2
+"BLD",9169,"KRN",9.8,0)
+9.8
+"BLD",9169,"KRN",9.8,"NM",0)
+^9.68A^2^2
+"BLD",9169,"KRN",9.8,"NM",1,0)
+PRSLIB01^^0^B52519137
+"BLD",9169,"KRN",9.8,"NM",2,0)
+PRSATP^^0^B35038644
+"BLD",9169,"KRN",9.8,"NM","B","PRSATP",2)
+
+"BLD",9169,"KRN",9.8,"NM","B","PRSLIB01",1)
+
+"BLD",9169,"KRN",19,0)
+19
+"BLD",9169,"KRN",19.1,0)
+19.1
+"BLD",9169,"KRN",101,0)
+101
+"BLD",9169,"KRN",409.61,0)
+409.61
+"BLD",9169,"KRN",771,0)
+771
+"BLD",9169,"KRN",779.2,0)
+779.2
+"BLD",9169,"KRN",870,0)
+870
+"BLD",9169,"KRN",8989.51,0)
+8989.51
+"BLD",9169,"KRN",8989.52,0)
+8989.52
+"BLD",9169,"KRN",8994,0)
+8994
+"BLD",9169,"KRN","B",.4,.4)
+
+"BLD",9169,"KRN","B",.401,.401)
+
+"BLD",9169,"KRN","B",.402,.402)
+
+"BLD",9169,"KRN","B",.403,.403)
+
+"BLD",9169,"KRN","B",.5,.5)
+
+"BLD",9169,"KRN","B",.84,.84)
+
+"BLD",9169,"KRN","B",3.6,3.6)
+
+"BLD",9169,"KRN","B",3.8,3.8)
+
+"BLD",9169,"KRN","B",9.2,9.2)
+
+"BLD",9169,"KRN","B",9.8,9.8)
+
+"BLD",9169,"KRN","B",19,19)
+
+"BLD",9169,"KRN","B",19.1,19.1)
+
+"BLD",9169,"KRN","B",101,101)
+
+"BLD",9169,"KRN","B",409.61,409.61)
+
+"BLD",9169,"KRN","B",771,771)
+
+"BLD",9169,"KRN","B",779.2,779.2)
+
+"BLD",9169,"KRN","B",870,870)
+
+"BLD",9169,"KRN","B",8989.51,8989.51)
+
+"BLD",9169,"KRN","B",8989.52,8989.52)
+
+"BLD",9169,"KRN","B",8994,8994)
+
+"BLD",9169,"QDEF")
+^^^^^^^^^^YES
+"BLD",9169,"QUES",0)
+^9.62^^
+"BLD",9169,"REQB",0)
+^9.611^2^2
+"BLD",9169,"REQB",1,0)
+PRS*4.0*93^2
+"BLD",9169,"REQB",2,0)
+PRS*4.0*132^2
+"BLD",9169,"REQB","B","PRS*4.0*132",2)
+
+"BLD",9169,"REQB","B","PRS*4.0*93",1)
+
+"MBREQ")
+0
+"PKG",408,-1)
+1^1
+"PKG",408,0)
+PAID^PRS^PAID
+"PKG",408,20,0)
+^9.402P^^
+"PKG",408,22,0)
+^9.49I^1^1
+"PKG",408,22,1,0)
+4.0^2950912^2960130
+"PKG",408,22,1,"PAH",1,0)
+137^3121025
+"PKG",408,22,1,"PAH",1,1,0)
+^^4^4^3121025
+"PKG",408,22,1,"PAH",1,1,1,0)
+This patch corrects two issues:
+"PKG",408,22,1,"PAH",1,1,2,0)
+1.Intermittant nurse entitled to but not able to post on call.
+"PKG",408,22,1,"PAH",1,1,3,0)
+2.PRS MONTH CALENDAR option does not include pay periods past 2012 or
+"PKG",408,22,1,"PAH",1,1,4,0)
+holidays past 2013.
+"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")
+YES
+"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","PRSATP")
+0^2^B35038644^B34908799
+"RTN","PRSATP",1,0)
+PRSATP ;HISC/REL,WIRMFO/MGD/PLT - Timekeeper Post Time ;4/13/2012
+"RTN","PRSATP",2,0)
+ ;;4.0;PAID;**22,57,69,92,102,93,112,126,132,137**;Sep 21, 1995;Build 4
+"RTN","PRSATP",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","PRSATP",4,0)
+ ; input (from calling option)
+"RTN","PRSATP",5,0)
+ ; PTPF - (optional) part-time physician flag, true (=1) when called
+"RTN","PRSATP",6,0)
+ ; by the posting option for part-time physicians with a memo.
+"RTN","PRSATP",7,0)
+ ;
+"RTN","PRSATP",8,0)
+ N GLOB ; global reference for employee's time & attendance record.
+"RTN","PRSATP",9,0)
+ N PRSDT
+"RTN","PRSATP",10,0)
+ S PRSTLV=2 D ^PRSAUTL G:TLI<1 EX S %DT="X",X="T+3" D ^%DT
+"RTN","PRSATP",11,0)
+ S %DT="AEPX",%DT("A")="Posting Date: ",%DT("B")="T-1",%DT(0)=-Y W ! D ^%DT
+"RTN","PRSATP",12,0)
+ G:Y<1 EX S (PRSDT,D1)=Y S Y=$G(^PRST(458,"AD",D1)),PPI=$P(Y,"^",1),DAY=$P(Y,"^",2)
+"RTN","PRSATP",13,0)
+ I PPI="" W !!,$C(7),"Pay Period is Not Open Yet!" G EX
+"RTN","PRSATP",14,0)
+ S PPE=$P($G(^PRST(458,PPI,0)),"^",1),DTE=$P($G(^PRST(458,PPI,2)),"^",DAY),DTI=$P($G(^(1)),"^",DAY)
+"RTN","PRSATP",15,0)
+D2 W !!,"Would you like to edit the T & A RECORDs in alphabetical order" S %=1 D YN^DICN I % S LP=% G EX:%=-1,LOOP:%=1,NME
+"RTN","PRSATP",16,0)
+ W !!,"Answer YES if you want all RECORDs brought up for which no data"
+"RTN","PRSATP",17,0)
+ W !,"has been entered." G D2
+"RTN","PRSATP",18,0)
+ ;
+"RTN","PRSATP",19,0)
+ ;
+"RTN","PRSATP",20,0)
+LOOP ;
+"RTN","PRSATP",21,0)
+ S LP=1,NN=""
+"RTN","PRSATP",22,0)
+ F S NN=$O(^PRSPC("ATL"_TLE,NN)) Q:NN="" F DFN=0:0 S DFN=$O(^PRSPC("ATL"_TLE,NN,DFN)) Q:DFN<1 I $$PTPSCR(DFN,PRSDT,$G(PTPF)) S GLOB="" D POST D:GLOB]"" UNLOCK^PRSLIB00(GLOB),NURSEPOC^PRSNEETP(TLI,PPI,DFN,PRSDT) I 'LP G EX
+"RTN","PRSATP",23,0)
+ G EX
+"RTN","PRSATP",24,0)
+NME K DIC S DIC("A")="Select EMPLOYEE: ",DIC("S")="I $P(^(0),""^"",8)=TLE,$D(^PRST(458,PPI,""E"",+Y)),$$PTPSCR^PRSATP(+Y,PRSDT,$G(PTPF))",DIC(0)="AEQM",DIC="^PRSPC(",D="ATL"_TLE W ! D IX^DIC S DFN=+Y K DIC
+"RTN","PRSATP",25,0)
+ G:DFN<1 EX S GLOB="" D POST D:GLOB]"" UNLOCK^PRSLIB00(GLOB),NURSEPOC^PRSNEETP(TLI,PPI,DFN,PRSDT) G NME
+"RTN","PRSATP",26,0)
+POST S TC=$P($G(^PRST(458,PPI,"E",DFN,"D",DAY,0)),"^",2),TC2=$P($G(^(0)),"^",13)
+"RTN","PRSATP",27,0)
+ I 'TC Q:LP'=2 W !!?5,"This Employee has no tour entered for this date." Q
+"RTN","PRSATP",28,0)
+ I "T"'[$P($G(^PRST(458,PPI,"E",DFN,0)),"^",2) W:LP=2 $C(7),!!,"This Employee has already been sent to Payroll." Q
+"RTN","PRSATP",29,0)
+ S STAT=$P($G(^PRST(458,PPI,"E",DFN,"D",DAY,10)),"^",1)
+"RTN","PRSATP",30,0)
+ I LP=1,"1 3 4"[TC!(STAT'="") Q
+"RTN","PRSATP",31,0)
+ ;
+"RTN","PRSATP",32,0)
+ ; check if ESR is approved when posting PT Phy with memo
+"RTN","PRSATP",33,0)
+ I $G(PTPF),$P($G(^PRST(458,PPI,"E",DFN,"D",DAY,7)),U)=5 D Q:'Y!$D(DIRUT)
+"RTN","PRSATP",34,0)
+ . W $C(7),!
+"RTN","PRSATP",35,0)
+ . W !,"This day was auto-posted from an approved Electronic Subsidiary Record (ESR)."
+"RTN","PRSATP",36,0)
+ . W !,"Normally, changes should be accomplished by having the T & L supervisor return"
+"RTN","PRSATP",37,0)
+ . W !,"the ESR day to the part-time physician for correction."
+"RTN","PRSATP",38,0)
+ . W !,"An exception to the above is when AWOL, On Suspension, or Non-Pay must be"
+"RTN","PRSATP",39,0)
+ . W !,"posted, since those can not be entered via the ESR.",!
+"RTN","PRSATP",40,0)
+ . S DIR(0)="Y"
+"RTN","PRSATP",41,0)
+ . S DIR("A")="Do you want to manually post this day on the timecard"
+"RTN","PRSATP",42,0)
+ . S DIR("B")="NO"
+"RTN","PRSATP",43,0)
+ . D ^DIR K DIR
+"RTN","PRSATP",44,0)
+ ;
+"RTN","PRSATP",45,0)
+ ; lock employee record for editing by timekeeper
+"RTN","PRSATP",46,0)
+ I '$$AVAILREC^PRSLIB00("TK",.GLOB,.STOP) S:LP=1&$G(STOP) LP=0 Q
+"RTN","PRSATP",47,0)
+ D ^PRSADP1,LP,^PRSATP2,^PRSAENT
+"RTN","PRSATP",48,0)
+ G P0:TC>4,P0:TC=2,P0:TC=3,P3:TC=4,P1
+"RTN","PRSATP",49,0)
+P0 R !!,"Did Employee Only Work Scheduled Tour? ",X:DTIME S:'$T X="^^" S:X["^^" LP=0 Q:X["^" S X=$TR(X,"yesnor","YESNOR")
+"RTN","PRSATP",50,0)
+ S:X="" X="*" I $P("YES",X,1)'="",$P("NO",X,1)'="",X'="R" W $C(7),!?5," Answer YES or NO or R for Normal Posting with Remarks" G P0
+"RTN","PRSATP",51,0)
+ S X=$E(X,1) I "YR"'[X G P1
+"RTN","PRSATP",52,0)
+ S PTY=1 I STAT'="" K ^PRST(458,PPI,"E",DFN,"D",DAY,2),^(3)
+"RTN","PRSATP",53,0)
+ I TC=3 S $P(^PRST(458,PPI,"E",DFN,"D",DAY,2),"^",3)="RG",STAT="T"
+"RTN","PRSATP",54,0)
+ I STAT'="",$P($G(^PRST(458,PPI,"E",DFN,"D",DAY,0)),"^",12) D NOW^%DTC S NOW=%,TT="HW" D S0^PRSAPPH
+"RTN","PRSATP",55,0)
+ S LV="" D A2^PRSATP0:X="R" G UPD
+"RTN","PRSATP",56,0)
+P1 R !!,"Was Employee Absent the Entire Tour? ",X:DTIME S:'$T X="^" Q:X["^" S X=$TR(X,"yesno","YESNO")
+"RTN","PRSATP",57,0)
+ S:X="" X="*" I $P("YES",X,1)'="",$P("NO",X,1)'="" W $C(7)," Answer YES or NO" G P1
+"RTN","PRSATP",58,0)
+ I X?1"Y".E D ^PRSATP0 Q:X["^" G UPD
+"RTN","PRSATP",59,0)
+ ;
+"RTN","PRSATP",60,0)
+ ;for daily employees if you say they didn't work and they were not absent
+"RTN","PRSATP",61,0)
+ ;then effectively you have not created any posting for the day and we
+"RTN","PRSATP",62,0)
+ ;clean up any prior posting
+"RTN","PRSATP",63,0)
+ I $E(ENT,1,2)["D" D Q
+"RTN","PRSATP",64,0)
+ . K ^PRST(458,PPI,"E",DFN,"D",DAY,2),^(3),^(10)
+"RTN","PRSATP",65,0)
+ . D CLEANTW^PRSATPTW(PPI,DFN,DAY)
+"RTN","PRSATP",66,0)
+ ;
+"RTN","PRSATP",67,0)
+P3 S ZENT=$S($E(ENT,2)="H"&('$G(PTPF)):"RG ",$E(ENT,1,2)="00":"RG ",1:"")
+"RTN","PRSATP",68,0)
+ I TC=1 D OT S:$P($G(^PRST(458,PPI,"E",DFN,"D",DAY,0)),"^",12)&(AC="M2E") ZENT=ZENT_"HW " S ZENT=ZENT_"NP CP " G P31
+"RTN","PRSATP",69,0)
+ I TC=3!(TC=4) D LV,OT S:$P($G(^PRST(458,PPI,"E",DFN,"D",DAY,0)),"^",12)&($E(ENT,22)) ZENT=ZENT_"HW " G P31 ;PRS*137
+"RTN","PRSATP",70,0)
+ D LV,OT S ZENT=ZENT_"TV TR " S:$P($G(^PRST(458,PPI,"E",DFN,"D",DAY,0)),"^",12) ZENT=ZENT_"HX HW "
+"RTN","PRSATP",71,0)
+P31 S DDSFILE=458,DDSFILE(1)=458.02,DA(2)=PPI,DA(1)=DFN,DA=DAY
+"RTN","PRSATP",72,0)
+ S Z=$G(^PRST(458,PPI,"E",DFN,"D",DAY,2)) K ZS
+"RTN","PRSATP",73,0)
+ S DR="[PRSA TP POST1]" D ^DDS K DS
+"RTN","PRSATP",74,0)
+ ; timekeeper has indicated there are exceptions, if they don't enter any, quit.
+"RTN","PRSATP",75,0)
+ I '$D(ZS) QUIT:'$D(^PRST(458,PPI,"E",DFN,"D",DAY,2)) S PTY=3 G UPD
+"RTN","PRSATP",76,0)
+ I ZS'="" S ^PRST(458,PPI,"E",DFN,"D",DAY,2)=ZS,PTY=3 G UPD
+"RTN","PRSATP",77,0)
+ ; if employee had exceptions, but timekeeper deletes them, then clear posting
+"RTN","PRSATP",78,0)
+ ; data because prompts that the employee was not absent and did not work
+"RTN","PRSATP",79,0)
+ ; entire tour were answered such that there must be exceptions
+"RTN","PRSATP",80,0)
+ I $D(^PRST(458,PPI,"E",DFN,"D",DAY,2)) D
+"RTN","PRSATP",81,0)
+ . K ^(2),^(3),^(10)
+"RTN","PRSATP",82,0)
+ . D CLEANTW^PRSATPTW(PPI,DFN,DAY)
+"RTN","PRSATP",83,0)
+ Q
+"RTN","PRSATP",84,0)
+UPD ; Update status
+"RTN","PRSATP",85,0)
+ D TELEWORK^PRSATPTW(PPI,DFN,DAY,STAT,PTY,TC)
+"RTN","PRSATP",86,0)
+ D NOW^%DTC
+"RTN","PRSATP",87,0)
+ S $P(^PRST(458,PPI,"E",DFN,"D",DAY,10),"^",1,4)="T^"_DUZ_"^"_%_"^"_PTY
+"RTN","PRSATP",88,0)
+ N DAH,DBH,HOL,QUIT
+"RTN","PRSATP",89,0)
+ S (DAH,DBH,HOL,QUIT)=""
+"RTN","PRSATP",90,0)
+ ;
+"RTN","PRSATP",91,0)
+ ; Check to holiday encapsulated by a form a non-pay
+"RTN","PRSATP",92,0)
+ D HENCAP^PRSATP3(PPI,DFN,DAY,.DBH,.HOL,.DAH,.QUIT)
+"RTN","PRSATP",93,0)
+ Q:QUIT
+"RTN","PRSATP",94,0)
+ D UPDT^PRSATP3(DFN,DBH,HOL,DAH)
+"RTN","PRSATP",95,0)
+ K DAH,DBH,HOL,QUIT
+"RTN","PRSATP",96,0)
+ Q
+"RTN","PRSATP",97,0)
+LP W !!,"Enter '^' to bypass this employee." W:LP=1 " Enter '^^' to stop T&L editing." W ! Q
+"RTN","PRSATP",98,0)
+LV S Z1="30 31 31 31 32 33 28 35 35 30 36 37 38",Z2="AL SL CB AD NL WP CU AA DL RL NP CP HX"
+"RTN","PRSATP",99,0)
+ ;
+"RTN","PRSATP",100,0)
+ ; Check to see if the employee is entitled to Military Leave and add
+"RTN","PRSATP",101,0)
+ ; ML to list if they are. Added to be compliant with Public Law
+"RTN","PRSATP",102,0)
+ ; 106-554.
+"RTN","PRSATP",103,0)
+ S:$E(ENT,34) Z1=Z1_" 34",Z2=Z2_" ML"
+"RTN","PRSATP",104,0)
+ ;9/3 month employee entitled RS with recess hours in file# 458.8
+"RTN","PRSATP",105,0)
+ S:$E(ENT,5)&$P($$RSHR^PRSU1B2(DFN,PPE),U,DAY>7+1) Z1=Z1_" 5",Z2=Z2_" RS"
+"RTN","PRSATP",106,0)
+ F K=1:1:$L(Z1," ") I $E(ENT,$P(Z1," ",K)) S ZENT=ZENT_$P(Z2," ",K)_" "
+"RTN","PRSATP",107,0)
+ QUIT
+"RTN","PRSATP",108,0)
+ ;
+"RTN","PRSATP",109,0)
+OT ; Get entitled out-of-tour types of time
+"RTN","PRSATP",110,0)
+ S Z1="12 28 26",Z2="OT CT ON" F K=1:1:3 I $E(ENT,$P(Z1," ",K)) S ZENT=ZENT_$P(Z2," ",K)_" " I ZENT'["UN" S ZENT=ZENT_"UN "
+"RTN","PRSATP",111,0)
+ I $E(ENT,29),'$E(ENT,26) S ZENT=ZENT_"SB " S:ZENT'["UN" ZENT=ZENT_"UN "
+"RTN","PRSATP",112,0)
+ ; Allow Stand By for employees w/ Prem Pay Ind = W or V
+"RTN","PRSATP",113,0)
+ I $E(ENT,29),$E(ENT,26),"^W^V^"[(U_PMP_U) S ZENT=ZENT_"SB " S:ZENT'["UN" ZENT=ZENT_"UN "
+"RTN","PRSATP",114,0)
+ Q
+"RTN","PRSATP",115,0)
+EX ;clean up lock global which is set in $$AVAILREC^PRSLIB00
+"RTN","PRSATP",116,0)
+ K ^TMP($J,"LOCK")
+"RTN","PRSATP",117,0)
+ ;generic cleanup
+"RTN","PRSATP",118,0)
+ G KILL^XUSCLEAN
+"RTN","PRSATP",119,0)
+ ;
+"RTN","PRSATP",120,0)
+PTPSCR(PRSIEN,PSTDT,PTPF) ; part-time physician screen extrinsic function
+"RTN","PRSATP",121,0)
+ ; input
+"RTN","PRSATP",122,0)
+ ; PRSIEN - Employee IEN (file 450)
+"RTN","PRSATP",123,0)
+ ; PSTDT - Date being posted (FileMan internal)
+"RTN","PRSATP",124,0)
+ ; PTPF - (opt) Part-time physician flag, equals true (1) when screen
+"RTN","PRSATP",125,0)
+ ; should only allow selection of part-time physician with
+"RTN","PRSATP",126,0)
+ ; memo and false (null or 0) when screen should only
+"RTN","PRSATP",127,0)
+ ; allow selection of employees that are not part-time
+"RTN","PRSATP",128,0)
+ ; physicians with memo.
+"RTN","PRSATP",129,0)
+ ; result
+"RTN","PRSATP",130,0)
+ ; returns a boolean value (1 or 0) or null
+"RTN","PRSATP",131,0)
+ ; =1 if employee passed screen
+"RTN","PRSATP",132,0)
+ ; (PTPF true and employee is PTP with memo) OR
+"RTN","PRSATP",133,0)
+ ; (PTPF false and employee is not PTP with memo)
+"RTN","PRSATP",134,0)
+ ; =0 if employee did not pass screen
+"RTN","PRSATP",135,0)
+ ; =null value if required inputs were not provided
+"RTN","PRSATP",136,0)
+ ;
+"RTN","PRSATP",137,0)
+ N PRSRET,PTPM
+"RTN","PRSATP",138,0)
+ S PTPF=$G(PTPF)
+"RTN","PRSATP",139,0)
+ S PRSRET="" ; init return
+"RTN","PRSATP",140,0)
+ I PRSIEN,PSTDT D
+"RTN","PRSATP",141,0)
+ . ; determine if employee is PT physician with memo on the posting date
+"RTN","PRSATP",142,0)
+ . S PTPM=$S($$MIEN^PRSPUT1(PRSIEN,PSTDT)>0:1,1:0)
+"RTN","PRSATP",143,0)
+ . ; apply screen
+"RTN","PRSATP",144,0)
+ . S PRSRET=$S(PTPF&PTPM:1,'PTPF&'PTPM:1,1:0)
+"RTN","PRSATP",145,0)
+ ;
+"RTN","PRSATP",146,0)
+ Q PRSRET
+"RTN","PRSATP",147,0)
+ ;
+"RTN","PRSATP",148,0)
+ ;PRSATP
+"RTN","PRSLIB01")
+0^1^B52519137^B52516097
+"RTN","PRSLIB01",1,0)
+PRSLIB01 ;JAH/WCIOFO-PAID UTILITIES AND LIBRARY 01 ;Mar 25, 2005
+"RTN","PRSLIB01",2,0)
+ ;;4.0;PAID;**45,93,137**;Sep 21, 1995;Build 4
+"RTN","PRSLIB01",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","PRSLIB01",4,0)
+ Q
+"RTN","PRSLIB01",5,0)
+MAIN ;DISPLAY MONTHLY CALENDAR FOR ANY DATE
+"RTN","PRSLIB01",6,0)
+ N OUT
+"RTN","PRSLIB01",7,0)
+ F D CALENDAR(.OUT) Q:OUT
+"RTN","PRSLIB01",8,0)
+ Q
+"RTN","PRSLIB01",9,0)
+ ;= = = = = = = = = = = = = = = = = = = = = = = = = = =
+"RTN","PRSLIB01",10,0)
+CALENDAR(OUT) ;
+"RTN","PRSLIB01",11,0)
+ ; Ask user for a date and quit if not a valid date.
+"RTN","PRSLIB01",12,0)
+ ; Get # of days in the month the user has selected.
+"RTN","PRSLIB01",13,0)
+ ; Get the weekday for the 1st day of the selected month.
+"RTN","PRSLIB01",14,0)
+ ; If necessary get days elapsed from jan 1 to 1st day of selected mo.
+"RTN","PRSLIB01",15,0)
+ ; Display the month.
+"RTN","PRSLIB01",16,0)
+ ;
+"RTN","PRSLIB01",17,0)
+ S OUT=1
+"RTN","PRSLIB01",18,0)
+ N ZFMDATE,%DT,DAY1,Y,MONTH,DAYS,YEAR,FIRSTDAY,LASTDAY,SHOWJULI,HIGHLITE
+"RTN","PRSLIB01",19,0)
+ N COUNT,HDR
+"RTN","PRSLIB01",20,0)
+ ;
+"RTN","PRSLIB01",21,0)
+ S %DT="AE" D ^%DT S ZFMDATE=Y ; Ask date.
+"RTN","PRSLIB01",22,0)
+ Q:Y<1
+"RTN","PRSLIB01",23,0)
+ ; if picked month has today-highlight
+"RTN","PRSLIB01",24,0)
+ S HIGHLITE=0
+"RTN","PRSLIB01",25,0)
+ I $E(Y,1,5)=$E(DT,1,5) S HIGHLITE=+$E(DT,6,7)
+"RTN","PRSLIB01",26,0)
+ ;
+"RTN","PRSLIB01",27,0)
+ ; Ask if they want to see the elapsed days calendar.
+"RTN","PRSLIB01",28,0)
+ S SHOWJULI=$$ASKJULIA()
+"RTN","PRSLIB01",29,0)
+ Q:Y<0
+"RTN","PRSLIB01",30,0)
+ ;
+"RTN","PRSLIB01",31,0)
+ ; Days in the month.
+"RTN","PRSLIB01",32,0)
+ S MONTH=$E(ZFMDATE,4,5),YEAR=$E(ZFMDATE,1,3)+1700
+"RTN","PRSLIB01",33,0)
+ S DAYS=$$DAYSINMO(YEAR,MONTH)
+"RTN","PRSLIB01",34,0)
+ ;
+"RTN","PRSLIB01",35,0)
+ S FIRSTDAY=$E(ZFMDATE,1,5)_"01",LASTDAY=$E(ZFMDATE,1,5)_DAYS
+"RTN","PRSLIB01",36,0)
+ ;
+"RTN","PRSLIB01",37,0)
+ ;Get the day #s of pay periods in this month
+"RTN","PRSLIB01",38,0)
+ N PPS
+"RTN","PRSLIB01",39,0)
+ I FIRSTDAY<3180000 D GETPPS(FIRSTDAY,LASTDAY)
+"RTN","PRSLIB01",40,0)
+ ;
+"RTN","PRSLIB01",41,0)
+ S DAY1=$$WEEKDAY1(ZFMDATE) ; Weekday of the 1st.
+"RTN","PRSLIB01",42,0)
+ ;
+"RTN","PRSLIB01",43,0)
+ ;
+"RTN","PRSLIB01",44,0)
+ S HDR=$$GETHEAD(Y)
+"RTN","PRSLIB01",45,0)
+ W @IOF,!
+"RTN","PRSLIB01",46,0)
+ W "---------------",HDR,"------------"
+"RTN","PRSLIB01",47,0)
+ D DISPMO(DAY1,DAYS,HIGHLITE) ; Display month.
+"RTN","PRSLIB01",48,0)
+ I SHOWJULI D
+"RTN","PRSLIB01",49,0)
+ . N JULID1
+"RTN","PRSLIB01",50,0)
+ . S JULID1=$$GETJULI(FIRSTDAY,YEAR)
+"RTN","PRSLIB01",51,0)
+ . W !!,"-------Elapsed Days Calendar---------"
+"RTN","PRSLIB01",52,0)
+ . D DISPJULI(DAY1,DAYS,JULID1)
+"RTN","PRSLIB01",53,0)
+ W !,"---------------Holidays------------",!
+"RTN","PRSLIB01",54,0)
+ ;
+"RTN","PRSLIB01",55,0)
+ ;DISPLAY HOLIDAYS
+"RTN","PRSLIB01",56,0)
+ ;
+"RTN","PRSLIB01",57,0)
+ N HO,HD,PRS8D,HOLIDAY
+"RTN","PRSLIB01",58,0)
+ S PRS8D=$E(ZFMDATE,2,3) D EN^PRS8HD
+"RTN","PRSLIB01",59,0)
+ S FIRSTDAY=$E(FIRSTDAY,1,5)_"00"
+"RTN","PRSLIB01",60,0)
+ S HOLIDAY=FIRSTDAY
+"RTN","PRSLIB01",61,0)
+ S COUNT=0
+"RTN","PRSLIB01",62,0)
+ I FIRSTDAY<3190000 D
+"RTN","PRSLIB01",63,0)
+ .F S HOLIDAY=$O(HD(HOLIDAY)) Q:HOLIDAY>LASTDAY!(HOLIDAY="") D
+"RTN","PRSLIB01",64,0)
+ .. W !,?2,$P(HD(HOLIDAY),"^",2)," ",+$E(HOLIDAY,6,7),?15,$P(HD(HOLIDAY),"^")
+"RTN","PRSLIB01",65,0)
+ .. S COUNT=COUNT+1
+"RTN","PRSLIB01",66,0)
+ E W " Sorry, Can't find holidays past 2018." S COUNT=COUNT+1
+"RTN","PRSLIB01",67,0)
+ I COUNT<1 W !," No Holidays this month."
+"RTN","PRSLIB01",68,0)
+ W !,"-----------------------------------",!
+"RTN","PRSLIB01",69,0)
+ S OUT=0
+"RTN","PRSLIB01",70,0)
+ Q
+"RTN","PRSLIB01",71,0)
+ ;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+"RTN","PRSLIB01",72,0)
+ ;
+"RTN","PRSLIB01",73,0)
+SILMO(PRSDT) ;SILENT CALL TO DISPLAY MONTH
+"RTN","PRSLIB01",74,0)
+ ; INPUT: PRSDT - must be fileman date
+"RTN","PRSLIB01",75,0)
+ ;
+"RTN","PRSLIB01",76,0)
+ N X,Y,%DT,DAY1,Y,MONTH,DAYS,YEAR,FIRSTDAY,LASTDAY,HIGHLITE,COUNT,HDR
+"RTN","PRSLIB01",77,0)
+ S X=PRSDT D ^%DT Q:Y<0
+"RTN","PRSLIB01",78,0)
+ ; if month has today-highlight
+"RTN","PRSLIB01",79,0)
+ S HIGHLITE=0
+"RTN","PRSLIB01",80,0)
+ I $E(Y,1,5)=$E(DT,1,5) S HIGHLITE=+$E(DT,6,7)
+"RTN","PRSLIB01",81,0)
+ S MONTH=$E(PRSDT,4,5),YEAR=$E(PRSDT,1,3)+1700
+"RTN","PRSLIB01",82,0)
+ S DAYS=$$DAYSINMO(YEAR,MONTH)
+"RTN","PRSLIB01",83,0)
+ S FIRSTDAY=$E(PRSDT,1,5)_"01",LASTDAY=$E(PRSDT,1,5)_DAYS
+"RTN","PRSLIB01",84,0)
+ ;
+"RTN","PRSLIB01",85,0)
+ ;Get day #s of pps in month
+"RTN","PRSLIB01",86,0)
+ N PPS
+"RTN","PRSLIB01",87,0)
+ I FIRSTDAY<3180000 D GETPPS(FIRSTDAY,LASTDAY)
+"RTN","PRSLIB01",88,0)
+ S DAY1=$$WEEKDAY1(PRSDT)
+"RTN","PRSLIB01",89,0)
+ S HDR=$$GETHEAD(Y)
+"RTN","PRSLIB01",90,0)
+ W @IOF,!,"---------------",HDR,"------------"
+"RTN","PRSLIB01",91,0)
+ D DISPMO(DAY1,DAYS,HIGHLITE)
+"RTN","PRSLIB01",92,0)
+ W !,"---------------Holidays------------",!
+"RTN","PRSLIB01",93,0)
+ ;
+"RTN","PRSLIB01",94,0)
+ ;holidays
+"RTN","PRSLIB01",95,0)
+ N HO,HD,PRS8D,HOLIDAY
+"RTN","PRSLIB01",96,0)
+ S PRS8D=$E(PRSDT,2,3) D EN^PRS8HD
+"RTN","PRSLIB01",97,0)
+ S FIRSTDAY=$E(FIRSTDAY,1,5)_"00"
+"RTN","PRSLIB01",98,0)
+ S HOLIDAY=FIRSTDAY
+"RTN","PRSLIB01",99,0)
+ S COUNT=0
+"RTN","PRSLIB01",100,0)
+ I FIRSTDAY<3190000 D
+"RTN","PRSLIB01",101,0)
+ .F S HOLIDAY=$O(HD(HOLIDAY)) Q:HOLIDAY>LASTDAY!(HOLIDAY="") D
+"RTN","PRSLIB01",102,0)
+ .. W !,?2,$P(HD(HOLIDAY),"^",2)," ",+$E(HOLIDAY,6,7),?15,$P(HD(HOLIDAY),"^")
+"RTN","PRSLIB01",103,0)
+ .. S COUNT=COUNT+1
+"RTN","PRSLIB01",104,0)
+ E W " Sorry, Can't find holidays past 2018." S COUNT=COUNT+1
+"RTN","PRSLIB01",105,0)
+ I COUNT<1 W !," No Holidays this month."
+"RTN","PRSLIB01",106,0)
+ W !,"-----------------------------------",!
+"RTN","PRSLIB01",107,0)
+ Q
+"RTN","PRSLIB01",108,0)
+ ;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+"RTN","PRSLIB01",109,0)
+ ;
+"RTN","PRSLIB01",110,0)
+GETPPS(FIRSTDAY,LASTDAY) ;
+"RTN","PRSLIB01",111,0)
+ N D1,PPE,PPDAY,PPI,PP4Y
+"RTN","PRSLIB01",112,0)
+ S D1=FIRSTDAY D PP^PRSAPPU
+"RTN","PRSLIB01",113,0)
+ D NX^PRSAPPU
+"RTN","PRSLIB01",114,0)
+ I D1<FIRSTDAY S PPE=$E($$NXTPP^PRSAPPU(PPE),3,7) D NX^PRSAPPU
+"RTN","PRSLIB01",115,0)
+ S PPDAY=+$E(D1,6,7)
+"RTN","PRSLIB01",116,0)
+ S PPS(PPDAY)=PPE
+"RTN","PRSLIB01",117,0)
+ F D Q:D1>LASTDAY
+"RTN","PRSLIB01",118,0)
+ . S PPE=$E($$NXTPP^PRSAPPU(PPE),3,7) D NX^PRSAPPU
+"RTN","PRSLIB01",119,0)
+ . Q:D1>LASTDAY
+"RTN","PRSLIB01",120,0)
+ . S PPDAY=+$E(D1,6,7)
+"RTN","PRSLIB01",121,0)
+ . S PPS(PPDAY)=PPE
+"RTN","PRSLIB01",122,0)
+ Q
+"RTN","PRSLIB01",123,0)
+ ;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+"RTN","PRSLIB01",124,0)
+ ;
+"RTN","PRSLIB01",125,0)
+GETHEAD(Y) ;
+"RTN","PRSLIB01",126,0)
+ N YEAR,MONTH,HDR,LENOFDT
+"RTN","PRSLIB01",127,0)
+ S HDR=$$FMTE^XLFDT(Y,"1D")
+"RTN","PRSLIB01",128,0)
+ S MONTH=$P(HDR," ")
+"RTN","PRSLIB01",129,0)
+ S LENOFDT=$L(HDR," ")
+"RTN","PRSLIB01",130,0)
+ S YEAR=$P(HDR," ",LENOFDT)
+"RTN","PRSLIB01",131,0)
+ Q MONTH_" "_YEAR
+"RTN","PRSLIB01",132,0)
+ ;
+"RTN","PRSLIB01",133,0)
+ ;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+"RTN","PRSLIB01",134,0)
+ ;
+"RTN","PRSLIB01",135,0)
+WEEKDAY1(ZDATE) ;get the weekday of the 1st day of the month
+"RTN","PRSLIB01",136,0)
+ ; INPUT: ZDATE - FileMan date, used as the month to display
+"RTN","PRSLIB01",137,0)
+ ; OUTPUT: return - Integer corresponding to day of week
+"RTN","PRSLIB01",138,0)
+ ; (i.e. Sunday[1], Monday[2]) for the 1st day of
+"RTN","PRSLIB01",139,0)
+ ; the month
+"RTN","PRSLIB01",140,0)
+ S ZDATE=$E(ZDATE,1,5)_"01"
+"RTN","PRSLIB01",141,0)
+ Q $$DOW^XLFDT(ZDATE,1)
+"RTN","PRSLIB01",142,0)
+ ;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+"RTN","PRSLIB01",143,0)
+ ;
+"RTN","PRSLIB01",144,0)
+DISPMO(DAYNO,NODAYS,HL) ;DISPLAY ENTIRE MONTH
+"RTN","PRSLIB01",145,0)
+ ;SAMPLE CALL: D DISPMO(4,30) Produces a 30 month with day 1
+"RTN","PRSLIB01",146,0)
+ ; beginning on Wednesday.
+"RTN","PRSLIB01",147,0)
+ ;
+"RTN","PRSLIB01",148,0)
+ ;Set up reverse video ON & OFF for today highlight
+"RTN","PRSLIB01",149,0)
+ I $G(HL)>0 N IORVOFF,IORVON S X="IORVOFF;IORVON" D ENDR^%ZISS
+"RTN","PRSLIB01",150,0)
+ ;
+"RTN","PRSLIB01",151,0)
+ N DAYS,DAYPOS,I,PPOFFSET,CNTDWN,BLDTAB
+"RTN","PRSLIB01",152,0)
+ S PPOFFSET=6,(BLDTAB,CNTDWN)=0
+"RTN","PRSLIB01",153,0)
+ S DAYS="SUN MON TUE WED THU FRI SAT"
+"RTN","PRSLIB01",154,0)
+ W !,?PPOFFSET," ",DAYS,!
+"RTN","PRSLIB01",155,0)
+ F I=1:1:NODAYS D
+"RTN","PRSLIB01",156,0)
+ . S DAYPOS=(DAYNO+I-1)#7
+"RTN","PRSLIB01",157,0)
+ . I DAYPOS=0 W ! I $G(PPS(I))'="" W PPS(I)
+"RTN","PRSLIB01",158,0)
+ . I ($G(HL)=I)!($G(CNTDWN)>0) D
+"RTN","PRSLIB01",159,0)
+ .. I $G(HL)=I D
+"RTN","PRSLIB01",160,0)
+ ... S BLDTAB=(PPOFFSET+((DAYPOS+1)*(4)-$S($L(I)=2:1,1:0)))
+"RTN","PRSLIB01",161,0)
+ ... W ?BLDTAB,IORVON,I,IORVOFF
+"RTN","PRSLIB01",162,0)
+ ... S BLDTAB=($X-BLDTAB)-$L(I)
+"RTN","PRSLIB01",163,0)
+ ...; S BLDTAB=($X-BLDTAB)-1
+"RTN","PRSLIB01",164,0)
+ ... S CNTDWN=6-DAYPOS
+"RTN","PRSLIB01",165,0)
+ .. E D
+"RTN","PRSLIB01",166,0)
+ ... W ?(BLDTAB+(PPOFFSET+((DAYPOS+1)*(4)-$S($L(I)=2:1,1:0)))),I
+"RTN","PRSLIB01",167,0)
+ ... S CNTDWN=CNTDWN-1
+"RTN","PRSLIB01",168,0)
+ . E D
+"RTN","PRSLIB01",169,0)
+ .. W ?(PPOFFSET+((DAYPOS+1)*(4)-$S($L(I)=2:1,1:0))),I
+"RTN","PRSLIB01",170,0)
+ Q
+"RTN","PRSLIB01",171,0)
+ ;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+"RTN","PRSLIB01",172,0)
+ ;=======================
+"RTN","PRSLIB01",173,0)
+ ;
+"RTN","PRSLIB01",174,0)
+ASKJULIA() ;RETURN RESPONSE--DO YOU WANT A CALENDAR A with dates
+"RTN","PRSLIB01",175,0)
+ ; expressed as the number of days elapsed since January 1?
+"RTN","PRSLIB01",176,0)
+ N DIR,DIRUT,Y
+"RTN","PRSLIB01",177,0)
+ W !!
+"RTN","PRSLIB01",178,0)
+ S DIR("A")="Include Calendar with elapsed days since Jan 1."
+"RTN","PRSLIB01",179,0)
+ S DIR(0)="Y"
+"RTN","PRSLIB01",180,0)
+ S DIR("B")="Y"
+"RTN","PRSLIB01",181,0)
+ S DIR("?",1)="Hit return to display a calendar with dates expressed as"
+"RTN","PRSLIB01",182,0)
+ S DIR("?",2)="the number of days elapsed since January 1."
+"RTN","PRSLIB01",183,0)
+ S DIR("?",3)="Days are numbered sequentially from 1 to 365 or 366 in a"
+"RTN","PRSLIB01",184,0)
+ S DIR("?",4)="leap year. January 1st is day number 1 and December 31st"
+"RTN","PRSLIB01",185,0)
+ S DIR("?",5)="is day 365 in a non leap year. This calendar is often"
+"RTN","PRSLIB01",186,0)
+ S DIR("?",6)="(but incorrectly), called a Julian Calendar."
+"RTN","PRSLIB01",187,0)
+ S DIR("?",7)="------------------------------------------------------"
+"RTN","PRSLIB01",188,0)
+ S DIR("?",8)="Julian Calendar"
+"RTN","PRSLIB01",189,0)
+ S DIR("?",9)="==============="
+"RTN","PRSLIB01",190,0)
+ S DIR("?",10)=" The solar calendar introduced by Julius Caesar in Rome "
+"RTN","PRSLIB01",191,0)
+ S DIR("?",11)=" in 46 B.C., having a year of 12 months and 365 days and"
+"RTN","PRSLIB01",192,0)
+ S DIR("?",12)=" a leap year of 366 days every fourth year. It was"
+"RTN","PRSLIB01",193,0)
+ S DIR("?",13)=" eventually replaced by the Gregorian calendar."
+"RTN","PRSLIB01",194,0)
+ S DIR("?",14)="------------------------------------------------------"
+"RTN","PRSLIB01",195,0)
+ S DIR("?")=" Hit return to include the elapsed days calendar."
+"RTN","PRSLIB01",196,0)
+ D ^DIR
+"RTN","PRSLIB01",197,0)
+ Q Y
+"RTN","PRSLIB01",198,0)
+ ;=======================
+"RTN","PRSLIB01",199,0)
+DISPJULI(DAYNO,NODAYS,JULIAND1) ;
+"RTN","PRSLIB01",200,0)
+ ; DISPLAY GREGORIAN AND JULIAN CALENDAR SIDE BY SIDE
+"RTN","PRSLIB01",201,0)
+ ;SAMPLE CALL: D DISPMO(4,30) Produces a 30 month with day 1
+"RTN","PRSLIB01",202,0)
+ ; beginning on Wednesday.
+"RTN","PRSLIB01",203,0)
+ ;
+"RTN","PRSLIB01",204,0)
+ N DAYS,DAYPOS,I,PPOFFSET
+"RTN","PRSLIB01",205,0)
+ S PPOFFSET=6
+"RTN","PRSLIB01",206,0)
+ W !
+"RTN","PRSLIB01",207,0)
+ F I=1:1:NODAYS D
+"RTN","PRSLIB01",208,0)
+ . S DAYPOS=(DAYNO+I-1)#7
+"RTN","PRSLIB01",209,0)
+ . I DAYPOS=0 W ! I $G(PPS(I))'="" W PPS(I)
+"RTN","PRSLIB01",210,0)
+ . W ?(PPOFFSET+((DAYPOS+1)*4-($L(I+JULIAND1)-1))),I+JULIAND1
+"RTN","PRSLIB01",211,0)
+ Q
+"RTN","PRSLIB01",212,0)
+ ;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+"RTN","PRSLIB01",213,0)
+ ;
+"RTN","PRSLIB01",214,0)
+PAYROLMO(DAYNO,NODAYS) ;PAYROLL STYLE DISPLAY OF ENTIRE MONTH
+"RTN","PRSLIB01",215,0)
+ ;SAMPLE CALL: D DISPMO(4,30) Produces a 30 month with day 1
+"RTN","PRSLIB01",216,0)
+ ; beginning on Wednessday.
+"RTN","PRSLIB01",217,0)
+ ;
+"RTN","PRSLIB01",218,0)
+ N DAYS,DAYPOS,I
+"RTN","PRSLIB01",219,0)
+ S DAYS="SUN MON TUE WED THU FRI SAT"
+"RTN","PRSLIB01",220,0)
+ W !," ",DAYS,!
+"RTN","PRSLIB01",221,0)
+ F I=1:1:NODAYS D
+"RTN","PRSLIB01",222,0)
+ . S DAYPOS=(DAYNO+I-1)#7
+"RTN","PRSLIB01",223,0)
+ . I DAYPOS=0 W !
+"RTN","PRSLIB01",224,0)
+ . W ?((DAYPOS+1)*(4)-$S($L(I)=2:1,1:0)),I
+"RTN","PRSLIB01",225,0)
+ Q
+"RTN","PRSLIB01",226,0)
+DAYSINMO(Y,M) ; Return number of days in month based on year and month
+"RTN","PRSLIB01",227,0)
+ ; Input: Y = year in 4 digit format between 1700 and 3000
+"RTN","PRSLIB01",228,0)
+ ; M = month expressed as an integer from 1 to 12 (Jan - Dec)
+"RTN","PRSLIB01",229,0)
+ ;
+"RTN","PRSLIB01",230,0)
+ N GOODY,GOODM S (GOODY,GOODM)=0
+"RTN","PRSLIB01",231,0)
+ I Y<2700,Y>1700 S GOODY=1
+"RTN","PRSLIB01",232,0)
+ I M>0,M<13 S GOODM=1
+"RTN","PRSLIB01",233,0)
+ Q:'(GOODM&GOODY) 0
+"RTN","PRSLIB01",234,0)
+ Q $P("31^"_(28+$$LEAPYR^PRSLIB00(YEAR))_"^31^30^31^30^31^31^30^31^30^31",U,MONTH)
+"RTN","PRSLIB01",235,0)
+ ;= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+"RTN","PRSLIB01",236,0)
+GETJULI(ZFMDATE,YEAR) ;
+"RTN","PRSLIB01",237,0)
+ N X1,X2
+"RTN","PRSLIB01",238,0)
+ S X2=YEAR-1700_"0101"
+"RTN","PRSLIB01",239,0)
+ S X1=ZFMDATE
+"RTN","PRSLIB01",240,0)
+ D ^%DTC
+"RTN","PRSLIB01",241,0)
+ Q X
+"VER")
+8.0^22.0
+"BLD",9169,6)
+^127
+**END**
+**END**
diff --git a/Packages/PAID/Patches/PRS_4.0_137/PRS-4_SEQ-127_PAT-137.TXT b/Packages/PAID/Patches/PRS_4.0_137/PRS-4_SEQ-127_PAT-137.TXT
new file mode 100644
index 0000000..8c063e5
--- /dev/null
+++ b/Packages/PAID/Patches/PRS_4.0_137/PRS-4_SEQ-127_PAT-137.TXT
@@ -0,0 +1,160 @@
+$TXT Created by GOLDSMITH,RHONDA at MNTVBB.FO-ALBANY.DOMAIN.EXT (KIDS) on Thursday, 10/25/12 at 14:58
+=============================================================================
+Run Date: NOV 25, 2013 Designation: PRS*4*137
+Package : PRS - PAID Priority: Mandatory
+Version : 4 SEQ #127 Status: Released
+ Compliance Date: DEC 26, 2013
+=============================================================================
+
+Associated patches: (v)PRS*4*132 <<= must be installed BEFORE `PRS*4*137'
+
+Subject: INTERMITTENT ON CALL; MONTHLY CALENDAR FIX
+
+Category:
+ - Routine
+
+Description:
+============
+
+ This patch corrects two issues:
+ 1. Intermittent nurse entitled to but not able to post on call.
+ 2. PRS MONTH CALENDAR option does not include pay periods past 2012 or
+ holidays past 2013.
+
+ ASSOCIATED NSR(s):
+ ==================
+ N/A
+
+ ASSOCIATED REMEDY TICKET(S):
+ ============================
+ 1. INC000000712254 - Can't Post On Call
+ 2. INC000000761251 - PAID Other: Option needs updating
+ Duplicate(s)
+ INC000000810212 - Monthly Calendar Option Problem
+
+ PARTICIPATING TEST SITES:
+ =========================
+ Bay Pines VAHCS
+ Birmingham VAMC
+ VA Maryland HCS
+
+ Remedy Overview:
+ ================
+ 1. INC000000712254 - Can't Post On Call
+
+ Problem:
+ --------
+ Intermittent nurse entitled to but not able to post on call in the
+ Post Employee Time option in the Timekeeper Menu. On Call is not one
+ of the available types of time during posting of the timecard.
+
+ Resolution:
+ -----------
+ Modified routine PRSATP to allow the On Call 'Type of Time' for posting
+ on entitled Intermittent employees.
+
+
+ 2. INC000000761251 - PAID Other: Option needs updating
+
+ Problem:
+ --------
+ Option [PRS MONTH CALENDAR] does not display pay periods starting in 2013
+ and does not display holidays beginning in 2014.
+
+ Resolution:
+ -----------
+ Modified routine PRSLIB01 to display pay periods and holidays past 2013
+ and 2014.
+
+
+ INSTALLATION INSTRUCTIONS:
+ ==========================
+ If installed during the normal workday, it is recommended that the PAID
+ users be off the system. Other VISTA users will not be affected.
+
+ Install Time - less than 2 minutes.
+
+ 1. Choose the PackMan message containing this patch and invoke the
+ INSTALL/CHECK MESSAGE PackMan option.
+
+ 2. Start up the Kernel Installation and Distribution System Menu
+ [XPD MAIN]:
+
+ Edits and Distribution ...
+ Utilities ...
+ Installation ...
+ Patch Monitor Main Menu ...
+
+ Select Kernel Installation & Distribution System Option: INStallation
+ ---
+ 1 Load a Distribution
+ 2 Verify Checksums in Transport Global
+ 3 Print Transport Global
+ 4 Compare Transport Global to Current System
+ 5 Backup a Transport Global
+ 6 Install Package(s)
+ Restart Install of Package(s)
+ Unload a Distribution
+
+ Select Installation Option:
+
+ 3. From this menu, you may elect to use the following options
+ (When prompted for the INSTALL NAME, enter PRS*4.0*137):
+
+ a. Print Transport Global - this option will allow you to view
+ the components of the KIDS build.
+ b. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this patch
+ is installed. It compares all components of this patch
+ (routines, DD's, templates, etc.).
+ c. Verify Checksums in Transport Global - This option will allow
+ you to ensure the integrity of the routines that are in the
+ transport global.
+ d. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DD's or templates.
+
+ 4. Use the Install Package(s) option and select the package
+ PRS*4.0*137.
+
+ a. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
+ NO//', answer NO
+ b. When prompted 'Want to DISABLE Scheduled Options, Menu
+ Options, and Protocols? YES//', answer YES.
+ c. When prompted 'Enter options you wish to mark as 'Out Of
+ Order':', enter
+
+ [PRSA TK POST] Post Employee Time
+ [PRS MONTH CALENDAR] Monthly Calendar
+
+ d. When prompted 'Enter protocols you wish to mark as 'Out Of
+ Order':', press <return>.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;4.0;PAID;**[Patch List]**;Sep 21, 1995;Build 4
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: PRSATP
+ Before: B34908799 After: B35038644 **22,57,69,92,102,93,112,126,
+ 132,137**
+Routine Name: PRSLIB01
+ Before: B52516097 After: B52519137 **45,93,137**
+
+Routine list of preceding patches: 132
+
+=============================================================================
+User Information:
+Entered By : GOLDSMITH,RHONDA Date Entered : AUG 30, 2012
+Completed By: SHERMAN,BILL Date Completed: NOV 20, 2013
+Released By : CARTER,LYNN Date Released : NOV 25, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/RPC Broker/Patches/XWB_1.1_50/XWB-1P1_SEQ-47_PAT-50.TXT b/Packages/RPC Broker/Patches/XWB_1.1_50/XWB-1P1_SEQ-47_PAT-50.TXT
new file mode 100644
index 0000000..3fdcec5
--- /dev/null
+++ b/Packages/RPC Broker/Patches/XWB_1.1_50/XWB-1P1_SEQ-47_PAT-50.TXT
@@ -0,0 +1,516 @@
+
+=============================================================================
+Run Date: NOV 27, 2013 Designation: XWB*1.1*50
+Package : XWB - RPC BROKER Priority: Mandatory
+Version : 1.1 SEQ #47 Status: Released
+ Compliance Date: DEC 28, 2013
+=============================================================================
+
+
+Subject: RPC Broker BDK - SSH Enabled
+
+Category:
+ - Informational
+ - Enhancement (Mandatory)
+ - Other
+
+Description:
+============
+
+ Patch XWB*1.1*50 BDK32 SSH Enabled, with support for Delphi XE2, XE3, XE4,
+ and XE5.
+
+ There is no action for VHA sites required by this patch. This patch is
+ Programmer-Only Client-Only. There is no server side (VistA PackMan or
+ KIDS) part to the patch. There are no client side (Windows executable)
+ components for VHA production workstations. The patch is intended for
+ Delphi developer client workstations only.
+
+ This patch provides support for the Delphi versions XE2, XE3, XE4, and XE5
+ and removes support for obsolete versions of Delphi.
+
+ RPC Broker Patch XWB*1.1*50 provides Secure Shell (SSH) support for the
+ Attachmate Reflections terminal emulator software using SSH tunneling to
+ provide secure data transfer between the client and the VistA M Server.
+ It also provides for the use of open source PuTTY Link (Plink) for secure
+ channels for those who may be using the RPC Broker outside of the VA and
+ require secure connections.
+
+ For SSH Tunneling using Attachmate Reflection, inclusion of "SSH" set as
+ a command line option or as a property within the application (set to
+ Attachmate Reflection) will generally require the following command line
+ parameters to be set:
+ SSHPort=portnumber to specify a particular port number
+ if not specified, it will use the port
+ number for the remote server.
+ SSHUser=username for remote server, where username is of the form
+ xxxvista and the xxx is the stations three letter
+ Abbreviation.
+
+ For SSH Tunneling using open source PuTTY Link (Plink), inclusion of
+ "PLINK" set as command line option or as a property within the application
+ will generally require the following command line parameters to be set:
+ SSHPort=portnumber to specify a particular port number
+
+ The patch is distributed as a zip file (XWB_1_1_P50.zip) on the anonymous
+ directory sites. The zip file contains all of the source code and
+ instructions for compiling and installing for each version of Delphi
+ listed above, as well as a few sample programs.
+
+ The installation requires less than 30 Megabytes of disk space on a
+ workstation.
+
+ The patch priority is Mandatory (since there is no choice for optional).
+
+
+ Blood Bank Team Coordination:
+ =============================
+ Clearance - Not required for client-side only patches.
+
+
+ Patch Components
+ ================
+
+ New Service Requests (NSRs)
+ ----------------------------
+ N/A
+
+
+ Patient Safety Issues (PSIs)
+ -----------------------------
+ N/A
+
+
+ Remedy Ticket(s) & Overview
+ ---------------------------
+
+ 1. INC886661 XE3 Broker error message illegible
+
+ Problem:
+ -------
+ While testing CPRS, developers noticed that error messages coming back
+ from the broker were illegible (looked like Chinese characters and other
+ wingdings).
+
+ Resolution:
+ ----------
+ CPRS developers recommended changes to a Delphi function that interfaces
+ with the Windows WinSock API. These changes have been incorporated into
+ the XWB*1.1*50 version of the Broker Development Kit for all Delphi
+ versions.
+
+
+ Test Sites:
+ ----------
+ Not applicable. Not tested at field sites. Not tested independently.
+ Patch contains shared code that is tested during GUI development and
+ deployment. No production client-side or server-side software is
+ included.
+
+
+ Software & Documentation Retrieval Instructions
+ -----------------------------------------------
+ The most up-to-date VA Remote Procedure Call (RPC) Broker end-user
+ documentation is available on the VHA Software Document Library (VDL) at
+ the following Internet Website:
+ http://www.domain.ext/vdl/application.asp?appid=23
+
+ NOTE: VistA documentation is made available online in Microsoft Word
+ format (.DOC) and Adobe Acrobat Portable Document Format (.PDF).
+
+ Software is contained in the XWB_1_1_P50.zip file.
+
+ Documentation is contained in the XWB_1_1_P50_README.txt file, which
+ contains updated instructions for installing the RPC Broker BDK.
+ Complete documentation for the RPC Broker package is being updated and
+ will be available on the VDL.
+
+ The preferred method for obtaining these files is to use File Transfer
+ Protocol (FTP) to download them from:
+ ftp://download.vista.domain.ext/
+ This transmits the files from the first available FTP server. The
+ files are located in the [anonymous.software] directory. Sites may also
+ elect to retrieve software directly from a specific server as follows:
+
+ Albany ftp.fo-albany.domain.ext <ftp://ftp.fo-albany.domain.ext>
+ Hines ftp.fo-hines.domain.ext <ftp://ftp.fo-hines.domain.ext>
+ Salt Lake City ftp.fo-slc.domain.ext <ftp://ftp.fo-slc.domain.ext>
+
+ Title File Name FTP Mode
+ -----------------------------------------------------------------------
+ BDK32 SSH Enabled XWB_1_1_P50.zip Binary
+ XWB*1.1*50 READ ME XWB_1_1_P50_README.txt Ascii
+
+
+ Routine Information:
+ ====================
+
+ Server Side:
+ ------------
+ No M routines included
+
+
+ List of preceding patches:
+ XWB*1.1*13, XWB*1.1*26, XWB*1.1*47
+
+
+ The client-side (developer) software distribution includes:
+
+ Date Time Bytes Filename
+ ---------- -------- ----------- -------------
+ 11/01/2013 07:40 AM 6,635,580 XWB_1_1_P50.zip
+
+ Client Side:
+ ------------
+
+ The following is a list of the files included in the zip file and their
+ CRC-32 values assuming that the zip file has been unzipped into the
+ directory (C:\Program Files (x86)\Vista). The locations would differ if
+ the files are installed under another location.
+
+
+ Date Time Bytes Filename
+ ---------- -------- ----------- -------------
+
+ Directory of C:\Program Files (x86)\vista\BDK32
+
+ 11/01/2013 08:26 AM <DIR> .
+ 11/01/2013 08:26 AM <DIR> ..
+ 11/01/2013 08:25 AM <DIR> Help
+ 11/01/2013 08:26 AM <DIR> Samples
+ 11/01/2013 08:27 AM <DIR> Source
+ 10/29/2013 02:45 PM 5,177 XWB_1_1_P50_README.TXT
+ 1 File(s) 5,177 bytes
+
+ Directory of C:\Program Files (x86)\vista\BDK32\Help
+
+ 11/01/2013 08:25 AM <DIR> .
+ 11/01/2013 08:25 AM <DIR> ..
+ 06/15/2004 10:14 AM 2,305 broker.als
+ 07/02/2008 12:56 PM 5,732 broker.cnt
+ 07/02/2008 12:56 PM 419,834 Broker.hlp
+ 01/10/2005 02:55 PM 6,039 broker.toc
+ 08/04/2000 04:25 PM 49,152 INETWH32.dll
+ 09/21/2002 01:33 AM 1,089,536 ROBOEX32.DLL
+ 6 File(s) 1,572,598 bytes
+
+ Directory of C:\Program Files (x86)\vista\BDK32\Samples
+
+ 11/01/2013 08:26 AM <DIR> .
+ 11/01/2013 08:26 AM <DIR> ..
+ 11/01/2013 08:26 AM <DIR> BrokerEx
+ 11/01/2013 08:26 AM <DIR> SilentSignOn
+ 0 File(s) 0 bytes
+
+ Directory of C:\Program Files (x86)\vista\BDK32\Samples\BrokerEx
+
+ 11/01/2013 08:26 AM <DIR> .
+ 11/01/2013 08:26 AM <DIR> ..
+ 08/25/2008 06:33 PM 386 BrokerExample.cfg
+ 08/25/2008 06:33 PM 1,618 BrokerExample.dof
+ 04/03/2003 10:49 AM 434 BrokerExample.dpr
+ 09/23/2013 04:31 PM 9,287 BrokerExample.dproj
+ 09/23/2013 04:31 PM 62 BrokerExample.dproj.local
+ 09/23/2013 04:31 PM 2,851,328 BrokerExample.exe
+ 09/23/2013 04:31 PM 227 BrokerExample.identcache
+ 09/23/2013 04:30 PM 5,564 BrokerExample.res
+ 08/01/2013 11:31 AM 204 BrokerExample.VA508
+ 08/01/2013 11:31 AM 4,286 BrokerExample_Icon.ico
+ 09/23/2013 04:31 PM 26,209 fBrokerExample.dcu
+ 08/25/2008 05:44 PM 16,740 fBrokerExample.dfm
+ 08/25/2008 05:44 PM 17,207 fBrokerExample.pas
+ 09/23/2013 04:31 PM 4,598 fOkToTerminate.dcu
+ 12/07/2006 04:20 PM 1,354 fOkToTerminate.dfm
+ 12/07/2006 04:15 PM 447 fOkToTerminate.pas
+ 11/04/2002 02:38 PM 83,095 frmVistAAbout.dfm
+ 07/21/2004 11:39 AM 9,165 frmVistAAbout.pas
+ 09/23/2013 04:31 PM 11,843 fVistAAbout.dcu
+ 11/04/2002 02:38 PM 83,095 fVistAAbout.dfm
+ 07/21/2004 11:40 AM 9,163 fVistAAbout.pas
+ 21 File(s) 3,136,312 bytes
+
+ Directory of C:\Program Files (x86)\vista\BDK32\Samples\SilentSignOn
+
+ 11/01/2013 08:26 AM <DIR> .
+ 11/01/2013 08:26 AM <DIR> ..
+ 04/27/2010 10:57 AM 264 Error.Log
+ 08/01/2013 11:39 AM 11,839 frmVistAAbout.dcu
+ 11/04/2002 03:38 PM 83,095 frmVistAAbout.dfm
+ 11/29/2001 04:56 PM 9,165 frmVistAAbout.pas
+ 08/01/2013 11:35 AM 10,366 fXWBAppHandle1.dcu
+ 08/01/2013 11:37 AM 4,271 fXWBAppHandle1.dfm
+ 07/21/2004 04:40 PM 3,702 fXWBAppHandle1.pas
+ 08/01/2013 11:38 AM 8,875 fXWBAppHandle2.dcu
+ 10/16/2012 11:02 AM 3,173 fXWBAppHandle2.dfm
+ 05/20/2004 04:44 PM 2,665 fXWBAppHandle2.pas
+ 08/01/2013 11:38 AM 9,716 fXWBAVCodes.dcu
+ 10/16/2012 11:03 AM 5,030 fXWBAVCodes.dfm
+ 11/05/2002 03:28 PM 3,264 fXWBAVCodes.pas
+ 08/01/2013 11:39 AM 9,696 fXWBOnFail.dcu
+ 10/16/2012 11:05 AM 5,063 fXWBOnFail.dfm
+ 11/05/2002 03:27 PM 2,944 fXWBOnFail.pas
+ 09/24/2001 10:12 AM 2,179 ReadMeForSamples.txt
+ 06/17/2008 03:14 PM 386 XWBAppHandle1.cfg
+ 06/17/2008 03:14 PM 1,187 XWBAppHandle1.dof
+ 09/24/2001 09:55 AM 211 XWBAppHandle1.dpr
+ 08/01/2013 11:37 AM 9,510 XWBAppHandle1.dproj
+ 08/01/2013 11:37 AM 62 XWBAppHandle1.dproj.local
+ 08/01/2013 11:35 AM 2,527,232 XWBAppHandle1.exe
+ 08/01/2013 11:37 AM 275 XWBAppHandle1.identcache
+ 08/01/2013 11:35 AM 2,048 XWBAppHandle1.res
+ 08/01/2013 11:35 AM 355 XWBAppHandle1.VA508
+ 10/10/2012 03:51 PM 766 XWBAppHandle1_Icon.ico
+ 06/17/2008 03:14 PM 386 XWBAppHandle2.cfg
+ 06/17/2008 03:14 PM 1,178 XWBAppHandle2.dof
+ 09/24/2001 09:56 AM 211 XWBAppHandle2.dpr
+ 08/01/2013 11:37 AM 9,492 XWBAppHandle2.dproj
+ 08/01/2013 11:37 AM 62 XWBAppHandle2.dproj.local
+ 08/01/2013 11:38 AM 2,524,672 XWBAppHandle2.exe
+ 08/01/2013 11:38 AM 275 XWBAppHandle2.identcache
+ 08/01/2013 11:38 AM 2,048 XWBAppHandle2.res
+ 08/01/2013 11:37 AM 355 XWBAppHandle2.VA508
+ 10/10/2012 03:50 PM 766 XWBAppHandle2_Icon.ico
+ 06/17/2008 03:15 PM 386 XWBAVCodes.cfg
+ 06/17/2008 03:15 PM 1,726 XWBAVCodes.dof
+ 02/20/2002 12:29 PM 298 XWBAVCodes.dpr
+ 08/01/2013 11:38 AM 10,181 XWBAVCodes.dproj
+ 08/01/2013 11:38 AM 62 XWBAVCodes.dproj.local
+ 08/01/2013 11:38 AM 2,483,712 XWBAVCodes.exe
+ 08/01/2013 11:38 AM 404 XWBAVCodes.identcache
+ 08/01/2013 11:38 AM 2,048 XWBAVCodes.res
+ 08/01/2013 11:38 AM 725 XWBAVCodes.VA508
+ 10/10/2012 03:48 PM 766 XWBAVCodes_Icon.ico
+ 06/17/2008 03:15 PM 386 XWBOnFail.cfg
+ 06/17/2008 03:15 PM 1,164 XWBOnFail.dof
+ 09/24/2001 09:41 AM 220 XWBOnFail.dpr
+ 08/01/2013 11:39 AM 9,451 XWBOnFail.dproj
+ 08/01/2013 11:39 AM 62 XWBOnFail.dproj.local
+ 08/01/2013 11:39 AM 2,525,696 XWBOnFail.exe
+ 08/01/2013 11:39 AM 267 XWBOnFail.identcache
+ 08/01/2013 11:39 AM 2,048 XWBOnFail.res
+ 08/01/2013 11:39 AM 375 XWBOnFail.VA508
+ 10/10/2012 03:48 PM 766 XWBOnFail_Icon.ico
+ 57 File(s) 10,297,527 bytes
+
+ Directory of C:\Program Files (x86)\vista\BDK32\Source
+
+ 11/01/2013 08:27 AM <DIR> .
+ 11/01/2013 08:27 AM <DIR> ..
+ 09/23/2013 04:31 PM 4,792 AddServer.dcu
+ 08/01/2013 12:43 PM 1,636 AddServer.dfm
+ 08/01/2013 12:46 PM 1,145 AddServer.pas
+ 09/23/2013 04:31 PM 17,635 CCOWRPCBroker.dcu
+ 08/01/2013 12:46 PM 23,301 CCOWRPCBroker.pas
+ 09/23/2013 04:31 PM 757 CCOW_const.dcu
+ 08/01/2013 01:28 PM 1,358 CCOW_const.pas
+ 08/01/2013 11:26 AM 1,457 dunit.ini
+ 09/23/2013 04:31 PM 4,417 fDebugInfo.dcu
+ 08/01/2013 12:47 PM 696 fDebugInfo.dfm
+ 08/01/2013 12:47 PM 1,009 fDebugInfo.pas
+ 09/23/2013 04:31 PM 4,900 fPlinkpw.dcu
+ 09/23/2013 09:15 AM 994 fPlinkpw.dfm
+ 09/23/2013 09:15 AM 1,470 fPlinkpw.pas
+ 09/23/2013 04:31 PM 5,440 frmSignonMessage.dcu
+ 08/01/2013 12:48 PM 5,723 frmSignonMessage.dfm
+ 08/01/2013 12:48 PM 1,466 frmSignonMessage.pas
+ 08/01/2013 11:23 AM 11,856 frmVistAAbout.dcu
+ 11/04/2002 03:38 PM 83,095 frmVistAAbout.dfm
+ 06/17/2008 01:47 PM 9,686 frmVistAAbout.pas
+ 09/23/2013 04:31 PM 5,351 fRPCBErrMsg.dcu
+ 08/01/2013 12:50 PM 891 fRPCBErrMsg.dfm
+ 08/01/2013 12:50 PM 1,611 fRPCBErrMsg.pas
+ 01/16/2002 03:10 PM 328 fRPCSharedBrokerSessionMgr1.dfm
+ 06/17/2008 01:47 PM 763 fRPCSharedBrokerSessionMgr1.pas
+ 09/23/2013 04:31 PM 4,500 fSgnonDlg.dcu
+ 08/01/2013 12:51 PM 6,205 fSgnonDlg.dfm
+ 08/01/2013 12:51 PM 1,043 fSgnonDlg.pas
+ 11/04/2002 05:12 PM 6,203 fSignonConfigColor.dfm
+ 06/17/2008 01:47 PM 845 fSignonConfigColor.pas
+ 09/23/2013 04:31 PM 4,906 fSSHUsername.dcu
+ 09/23/2013 09:16 AM 979 fSSHUsername.dfm
+ 09/23/2013 09:15 AM 1,464 fSSHUsername.pas
+ 08/01/2013 11:23 AM 10,807 fVistaBar.dcu
+ 04/05/2002 03:22 PM 687 fVistaBar.dfm
+ 06/17/2008 01:47 PM 4,949 fVistaBar.pas
+ 01/07/2002 05:16 PM 3,440 fVistaBar.res
+ 09/23/2013 04:31 PM 6,042 Hash.dcu
+ 08/01/2013 12:52 PM 3,953 Hash.pas
+ 10/12/2007 01:17 PM 3,146 IISBase.inc
+ 09/23/2013 04:31 PM 19,899 Loginfrm.dcu
+ 08/01/2013 12:53 PM 25,893 Loginfrm.dfm
+ 08/01/2013 12:53 PM 14,502 Loginfrm.pas
+ 09/23/2013 04:31 PM 2,285 MFunStr.dcu
+ 08/01/2013 12:55 PM 2,915 MFunStr.pas
+ 09/23/2013 04:18 PM 6,741 RpcbEdtr.dcu
+ 06/17/2008 01:47 PM 4,547 Rpcbedtr.pas
+ 09/23/2013 04:31 PM 15,342 Rpcberr.dcu
+ 08/01/2013 12:56 PM 1,667 RpcbErr.dfm
+ 08/01/2013 12:56 PM 7,449 RpcbErr.pas
+ 09/23/2013 04:31 PM 14,485 Rpcconf1.dcu
+ 08/01/2013 12:58 PM 8,076 Rpcconf1.dfm
+ 08/01/2013 12:59 PM 8,899 Rpcconf1.pas
+ 09/23/2013 04:31 PM 16,483 RpcNet.dcu
+ 09/19/2002 11:12 AM 358 Rpcnet.dfm
+ 08/01/2013 12:59 PM 12,980 Rpcnet.pas
+ 01/18/2002 04:29 PM 480 RPCSharedBrokerSessionMgr1_TLB.dcr
+ 09/23/2013 04:20 PM 37,270 RPCSharedBrokerSessionMgr1_TLB.dcu
+ 09/23/2013 09:23 AM 42,885 RPCSharedBrokerSessionMgr1_TLB.pas
+ 09/23/2013 04:20 PM 11,813
+ RPCSharedBrokerSessionMgr1_TLB_SRB.dcu
+ 09/23/2013 09:23 AM 17,536
+ RPCSharedBrokerSessionMgr1_TLB_SRB.pas
+ 09/23/2013 04:31 PM 8,846 RpcSLogin.dcu
+ 08/01/2013 01:00 PM 10,818 RpcSlogin.pas
+ 09/23/2013 04:31 PM 11,357 seldiv.dcu
+ 08/01/2013 01:02 PM 6,269 SelDiv.dfm
+ 08/01/2013 01:02 PM 8,063 SelDiv.pas
+ 09/23/2013 04:31 PM 25,579 Sgnoncnf.dcu
+ 08/01/2013 01:03 PM 6,403 SgnonCnf.dfm
+ 08/01/2013 01:03 PM 19,416 SgnonCnf.pas
+ 03/29/2002 03:58 PM 936 SharedRPCBroker.dcr
+ 09/23/2013 04:20 PM 24,702 SharedRPCBroker.dcu
+ 09/23/2013 09:24 AM 26,152 SharedRPCBroker.pas
+ 09/23/2013 04:20 PM 925 SharedRPCBrokerReg.dcu
+ 09/23/2013 09:25 AM 999 SharedRPCBrokerReg.pas
+ 09/23/2013 04:20 PM 5,081 SharedRPCBrokerSink.dcu
+ 09/23/2013 09:24 AM 4,452 SharedRPCBrokerSink.pas
+ 08/01/2013 11:17 AM 4,286 SharedRPCBroker_D2007_Icon.ico
+ 09/23/2013 04:00 PM 835 SharedRPCBroker_DXE2.dpk
+ 09/23/2013 04:01 PM 6,447 SharedRPCBroker_DXE2.dproj
+ 09/23/2013 04:01 PM 372 SharedRPCBroker_DXE2.dproj.local
+ 09/23/2013 04:00 PM 96 SharedRPCBroker_DXE2.otares
+ 09/23/2013 04:01 PM 4,812 SharedRPCBroker_DXE2.res
+ 09/23/2013 04:00 PM 4,286 SharedRPCBroker_DXE2_Icon.ico
+ 09/23/2013 04:10 PM 835 SharedRPCBroker_DXE3.dpk
+ 09/23/2013 04:10 PM 8,048 SharedRPCBroker_DXE3.dproj
+ 09/23/2013 04:10 PM 372 SharedRPCBroker_DXE3.dproj.local
+ 09/23/2013 04:09 PM 96 SharedRPCBroker_DXE3.otares
+ 09/23/2013 04:10 PM 4,812 SharedRPCBroker_DXE3.res
+ 09/23/2013 04:09 PM 4,286 SharedRPCBroker_DXE3_Icon.ico
+ 09/23/2013 04:15 PM 835 SharedRPCBroker_DXE4.dpk
+ 09/23/2013 04:16 PM 8,769 SharedRPCBroker_DXE4.dproj
+ 09/23/2013 04:16 PM 372 SharedRPCBroker_DXE4.dproj.local
+ 09/23/2013 04:15 PM 96 SharedRPCBroker_DXE4.otares
+ 09/23/2013 04:16 PM 4,812 SharedRPCBroker_DXE4.res
+ 09/23/2013 04:15 PM 4,286 SharedRPCBroker_DXE4_Icon.ico
+ 09/23/2013 09:26 AM 819 SharedRPCBroker_DXE5.dpk
+ 09/23/2013 04:20 PM 9,936 SharedRPCBroker_DXE5.dproj
+ 09/23/2013 04:20 PM 669 SharedRPCBroker_DXE5.dproj.local
+ 09/23/2013 09:25 AM 110 SharedRPCBroker_DXE5.identcache
+ 09/23/2013 04:20 PM 4,816 SharedRPCBroker_DXE5.res
+ 08/01/2013 11:11 AM 4,286 SharedRPCBroker_R2007_Icon.ico
+ 09/23/2013 03:58 PM 970 SharedRPCBroker_RXE2.dpk
+ 09/23/2013 03:58 PM 6,337 SharedRPCBroker_RXE2.dproj
+ 09/23/2013 03:58 PM 372 SharedRPCBroker_RXE2.dproj.local
+ 09/23/2013 03:57 PM 96 SharedRPCBroker_RXE2.otares
+ 09/23/2013 03:58 PM 4,812 SharedRPCBroker_RXE2.res
+ 09/23/2013 03:57 PM 4,286 SharedRPCBroker_RXE2_Icon.ico
+ 09/23/2013 04:08 PM 970 SharedRPCBroker_RXE3.dpk
+ 09/23/2013 04:08 PM 7,946 SharedRPCBroker_RXE3.dproj
+ 09/23/2013 04:08 PM 372 SharedRPCBroker_RXE3.dproj.local
+ 09/23/2013 04:07 PM 96 SharedRPCBroker_RXE3.otares
+ 09/23/2013 04:08 PM 4,812 SharedRPCBroker_RXE3.res
+ 09/23/2013 04:07 PM 4,286 SharedRPCBroker_RXE3_Icon.ico
+ 09/23/2013 04:15 PM 970 SharedRPCBroker_RXE4.dpk
+ 09/23/2013 04:15 PM 8,649 SharedRPCBroker_RXE4.dproj
+ 09/23/2013 04:15 PM 372 SharedRPCBroker_RXE4.dproj.local
+ 09/23/2013 04:14 PM 96 SharedRPCBroker_RXE4.otares
+ 09/23/2013 04:15 PM 4,812 SharedRPCBroker_RXE4.res
+ 09/23/2013 04:14 PM 4,286 SharedRPCBroker_RXE4_Icon.ico
+ 09/23/2013 09:24 AM 937 SharedRPCBroker_RXE5.dpk
+ 09/23/2013 09:24 AM 10,089 SharedRPCBroker_RXE5.dproj
+ 09/23/2013 09:24 AM 669 SharedRPCBroker_RXE5.dproj.local
+ 09/23/2013 09:24 AM 454 SharedRPCBroker_RXE5.identcache
+ 09/23/2013 09:24 AM 4,816 SharedRPCBroker_RXE5.res
+ 09/23/2013 04:31 PM 6,167 Splvista.dcu
+ 11/05/2002 05:50 PM 534,916 Splvista.dfm
+ 08/01/2013 01:04 PM 2,566 Splvista.pas
+ 06/10/2004 11:36 AM 406 TCCOWRPCBroker.bmp
+ 09/23/2013 04:31 PM 69,198 Trpcb.dcu
+ 08/01/2013 01:10 PM 78,570 Trpcb.pas
+ 06/17/2008 01:47 PM 68,475 uSharedBroker1.pas
+ 08/01/2013 11:25 AM 15,133 uUnitTestBroker.dcu
+ 06/17/2008 01:47 PM 5,893 uUnitTestBroker.pas
+ 06/17/2008 01:47 PM 4,190 uUnitTestMFunStr.pas
+ 09/23/2013 04:31 PM 14,840 VCEdit.dcu
+ 08/01/2013 01:18 PM 5,868 VCEdit.dfm
+ 08/01/2013 01:18 PM 8,576 VCEdit.pas
+ 02/09/2004 11:12 AM 2,604 VERGENCECONTEXTORLib_TLB.dcr
+ 09/23/2013 04:31 PM 59,882 VERGENCECONTEXTORLib_TLB.dcu
+ 08/01/2013 01:19 PM 63,846 VERGENCECONTEXTORLib_TLB.pas
+ 09/23/2013 04:31 PM 49,005 Wsockc.dcu
+ 08/01/2013 01:21 PM 60,692 wsockc.pas
+ 09/23/2013 04:31 PM 2,776 XlfSid.dcu
+ 08/01/2013 01:23 PM 4,567 XlfSid.pas
+ 09/23/2013 04:18 PM 1,317 XWBReg.dcu
+ 06/17/2008 01:47 PM 1,300 XWBReg.pas
+ 09/23/2013 04:31 PM 66,597 XWBRich20.dcu
+ 08/01/2013 01:25 PM 48,554 XWBRich20.pas
+ 09/23/2013 04:31 PM 9,524 Xwbut1.dcu
+ 08/01/2013 01:26 PM 10,214 Xwbut1.pas
+ 08/01/2013 10:39 AM 766 XWB_D2007_Icon.ico
+ 05/04/2004 04:36 PM 1,832 XWB_DXE2.dcr
+ 08/01/2013 10:42 AM 813 XWB_DXE2.dpk
+ 09/23/2013 03:52 PM 9,181 XWB_DXE2.dproj
+ 09/23/2013 03:52 PM 389 XWB_DXE2.dproj.local
+ 09/23/2013 03:52 PM 1,292 XWB_DXE2.res
+ 05/04/2004 04:36 PM 1,832 XWB_DXE3.dcr
+ 08/01/2013 10:57 AM 813 XWB_DXE3.dpk
+ 09/23/2013 04:07 PM 10,373 XWB_DXE3.dproj
+ 09/23/2013 04:07 PM 661 XWB_DXE3.dproj.local
+ 09/23/2013 04:07 PM 1,292 XWB_DXE3.res
+ 05/04/2004 04:36 PM 1,832 XWB_DXE4.dcr
+ 09/23/2013 04:12 PM 813 XWB_DXE4.dpk
+ 09/23/2013 04:13 PM 10,184 XWB_DXE4.dproj
+ 09/23/2013 04:13 PM 1,161 XWB_DXE4.dproj.local
+ 09/23/2013 04:13 PM 1,296 XWB_DXE4.res
+ 05/04/2004 04:36 PM 1,832 XWB_DXE5.dcr
+ 09/23/2013 09:18 AM 813 XWB_DXE5.dpk
+ 09/23/2013 04:19 PM 10,853 XWB_DXE5.dproj
+ 09/23/2013 04:19 PM 1,165 XWB_DXE5.dproj.local
+ 09/23/2013 04:18 PM 1,296 XWB_DXE5.res
+ 08/01/2013 10:29 AM 766 XWB_R2007_Icon.ico
+ 09/23/2013 03:39 PM 1,904 XWB_RXE2.dpk
+ 09/23/2013 03:39 PM 11,219 XWB_RXE2.dproj
+ 09/23/2013 03:39 PM 683 XWB_RXE2.dproj.local
+ 09/23/2013 03:39 PM 2,523 XWB_RXE2.identcache
+ 09/23/2013 03:39 PM 1,296 XWB_RXE2.res
+ 08/01/2013 10:33 AM 2,185 XWB_RXE2.VA508
+ 09/23/2013 04:06 PM 1,904 XWB_RXE3.dpk
+ 09/23/2013 04:06 PM 12,423 XWB_RXE3.dproj
+ 09/23/2013 04:06 PM 1,175 XWB_RXE3.dproj.local
+ 09/23/2013 04:06 PM 2,523 XWB_RXE3.identcache
+ 09/23/2013 04:06 PM 1,296 XWB_RXE3.res
+ 08/01/2013 10:56 AM 2,185 XWB_RXE3.VA508
+ 09/23/2013 03:09 PM 1,904 XWB_RXE4.dpk
+ 09/23/2013 03:10 PM 12,626 XWB_RXE4.dproj
+ 09/23/2013 03:10 PM 1,227 XWB_RXE4.dproj.local
+ 09/23/2013 03:11 PM 2,523 XWB_RXE4.identcache
+ 09/23/2013 03:10 PM 1,296 XWB_RXE4.res
+ 08/01/2013 01:27 PM 2,196 XWB_RXE4.VA508
+ 09/23/2013 09:13 AM 1,904 XWB_RXE5.dpk
+ 09/23/2013 09:16 AM 13,286 XWB_RXE5.dproj
+ 09/23/2013 09:16 AM 1,459 XWB_RXE5.dproj.local
+ 09/23/2013 10:52 AM 2,523 XWB_RXE5.identcache
+ 09/23/2013 09:16 AM 1,296 XWB_RXE5.res
+ 195 File(s) 2,174,830 bytes
+
+ Total Files Listed:
+ 280 File(s) 17,186,444 bytes
+
+Routine Information:
+====================
+No routines included.
+
+=============================================================================
+User Information:
+Entered By : IVEY,JOEL Date Entered : AUG 24, 2008
+Completed By: BEST,LISA Date Completed: NOV 15, 2013
+Released By : PALMER,MICHAEL Date Released : NOV 27, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/RPC Broker/Testing/MUnit/.gitignore b/Packages/RPC Broker/Testing/MUnit/.gitignore
new file mode 100644
index 0000000..5af5408
--- /dev/null
+++ b/Packages/RPC Broker/Testing/MUnit/.gitignore
@@ -0,0 +1 @@
+ZZUTM2MC.m
diff --git a/Packages/Radiology Nuclear Medicine/Patches/RA_5.0_110/RA-5_SEQ-104_PAT-110.KIDS b/Packages/Radiology Nuclear Medicine/Patches/RA_5.0_110/RA-5_SEQ-104_PAT-110.KIDS
new file mode 100644
index 0000000..0051818
--- /dev/null
+++ b/Packages/Radiology Nuclear Medicine/Patches/RA_5.0_110/RA-5_SEQ-104_PAT-110.KIDS
@@ -0,0 +1,532 @@
+Released RA*5*110 SEQ #104
+Extracted from mail message
+**KIDS**:RA*5.0*110^
+
+**INSTALL NAME**
+RA*5.0*110
+"BLD",7977,0)
+RA*5.0*110^RADIOLOGY/NUCLEAR MEDICINE^0^3130509^y
+"BLD",7977,4,0)
+^9.64PA^^
+"BLD",7977,6.3)
+2
+"BLD",7977,"INI")
+
+"BLD",7977,"KRN",0)
+^9.67PA^779.2^20
+"BLD",7977,"KRN",.4,0)
+.4
+"BLD",7977,"KRN",.401,0)
+.401
+"BLD",7977,"KRN",.402,0)
+.402
+"BLD",7977,"KRN",.403,0)
+.403
+"BLD",7977,"KRN",.5,0)
+.5
+"BLD",7977,"KRN",.84,0)
+.84
+"BLD",7977,"KRN",3.6,0)
+3.6
+"BLD",7977,"KRN",3.8,0)
+3.8
+"BLD",7977,"KRN",9.2,0)
+9.2
+"BLD",7977,"KRN",9.8,0)
+9.8
+"BLD",7977,"KRN",9.8,"NM",0)
+^9.68A^1^1
+"BLD",7977,"KRN",9.8,"NM",1,0)
+RAPROD^^0^B48293236
+"BLD",7977,"KRN",9.8,"NM","B","RAPROD",1)
+
+"BLD",7977,"KRN",19,0)
+19
+"BLD",7977,"KRN",19.1,0)
+19.1
+"BLD",7977,"KRN",101,0)
+101
+"BLD",7977,"KRN",409.61,0)
+409.61
+"BLD",7977,"KRN",771,0)
+771
+"BLD",7977,"KRN",779.2,0)
+779.2
+"BLD",7977,"KRN",870,0)
+870
+"BLD",7977,"KRN",8989.51,0)
+8989.51
+"BLD",7977,"KRN",8989.52,0)
+8989.52
+"BLD",7977,"KRN",8994,0)
+8994
+"BLD",7977,"KRN","B",.4,.4)
+
+"BLD",7977,"KRN","B",.401,.401)
+
+"BLD",7977,"KRN","B",.402,.402)
+
+"BLD",7977,"KRN","B",.403,.403)
+
+"BLD",7977,"KRN","B",.5,.5)
+
+"BLD",7977,"KRN","B",.84,.84)
+
+"BLD",7977,"KRN","B",3.6,3.6)
+
+"BLD",7977,"KRN","B",3.8,3.8)
+
+"BLD",7977,"KRN","B",9.2,9.2)
+
+"BLD",7977,"KRN","B",9.8,9.8)
+
+"BLD",7977,"KRN","B",19,19)
+
+"BLD",7977,"KRN","B",19.1,19.1)
+
+"BLD",7977,"KRN","B",101,101)
+
+"BLD",7977,"KRN","B",409.61,409.61)
+
+"BLD",7977,"KRN","B",771,771)
+
+"BLD",7977,"KRN","B",779.2,779.2)
+
+"BLD",7977,"KRN","B",870,870)
+
+"BLD",7977,"KRN","B",8989.51,8989.51)
+
+"BLD",7977,"KRN","B",8989.52,8989.52)
+
+"BLD",7977,"KRN","B",8994,8994)
+
+"BLD",7977,"QUES",0)
+^9.62^^
+"BLD",7977,"REQB",0)
+^9.611^1^1
+"BLD",7977,"REQB",1,0)
+RA*5.0*47^1
+"BLD",7977,"REQB","B","RA*5.0*47",1)
+
+"MBREQ")
+0
+"PKG",18,-1)
+1^1
+"PKG",18,0)
+RADIOLOGY/NUCLEAR MEDICINE^RA^REGISTERS PATIENTS,RECORDS EXAMS,PROFILES,AMIS REPORTS
+"PKG",18,20,0)
+^9.402P^^
+"PKG",18,22,0)
+^9.49I^1^1
+"PKG",18,22,1,0)
+5.0^3051109^2980407^50
+"PKG",18,22,1,"PAH",1,0)
+110^3130509
+"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","RAPROD")
+0^1^B48293236^B45447427
+"RTN","RAPROD",1,0)
+RAPROD ;HISC/FPT,GJC AISC/MJK-Detailed Exam View ; 5/9/13 2:02pm
+"RTN","RAPROD",2,0)
+ ;;5.0;Radiology/Nuclear Medicine;**10,35,45,56,99,47,110**;Mar 16, 1998;Build 2
+"RTN","RAPROD",3,0)
+ ;Supported IA #2056 GET1^DIQ
+"RTN","RAPROD",4,0)
+ ;Supported IA #2053 UPDATE^DIE
+"RTN","RAPROD",5,0)
+ ;Supported IA #10040 ^SC(
+"RTN","RAPROD",6,0)
+ ;Supported IA #10060 ^VA(200
+"RTN","RAPROD",7,0)
+ ;
+"RTN","RAPROD",8,0)
+ ;05/09/2013 Patch RA*5*110 Rem Ticket 321499 eliminate subscript err
+"RTN","RAPROD",9,0)
+ ;
+"RTN","RAPROD",10,0)
+START S RADI=^RADPT(RADFN,"DT",RADTI,0) S:$D(^("P",RACNI,"COMP")) RA("COMP")=^("COMP") S RA("REA")=$S($D(^("R")):^("R"),1:"")
+"RTN","RAPROD",11,0)
+ S RA("TECH")=$O(^RADPT(RADFN,"DT",RADTI,"P",RACNI,"TC",0)) I RA("TECH") S RA("TECH")=$S($D(^VA(200,+^(RA("TECH"),0),0)):$P(^(0),"^"),1:"")
+"RTN","RAPROD",12,0)
+ S X=$P(Y(0),"^",4),RA("CAT")=$S(X="I":"INPATIENT",X="O":"OUTPATIENT",X="S":"SHARING",X="C":"CONTRACT",X="R":"RESEARCH",X="E":"EMPLOYEE",1:"UNKNOWN")
+"RTN","RAPROD",13,0)
+ S RA("RST")=$$RSTAT^RAO7PC1A
+"RTN","RAPROD",14,0)
+ F I=1:1:13 S Y=$T(LIST+I),@$P(Y,";",3)=$S($D(@($P(Y,";",4)_+$P(@$P(Y,";",5),"^",$P(Y,";",6))_",0)")):$P(^(0),"^"),1:"")
+"RTN","RAPROD",15,0)
+ ;
+"RTN","RAPROD",16,0)
+ N RAOPRC ; this will be the Requested Procedure defined only if it
+"RTN","RAPROD",17,0)
+ ; differs from the Registered Procedure
+"RTN","RAPROD",18,0)
+ I +$P(Y(0),U,11),($$DPROC^RAUTL15(RADFN,RADTI,RACNI,+$P(Y(0),U,11))]"") D
+"RTN","RAPROD",19,0)
+ . S RAOPRC=$$GET1^DIQ(75.1,+$P(Y(0),"^",11)_",",2)
+"RTN","RAPROD",20,0)
+ . Q
+"RTN","RAPROD",21,0)
+VIEW W @IOF S X="",$P(X,"=",80)="" W X K X
+"RTN","RAPROD",22,0)
+ W !?2,"Name : ",RANME," ",RASSN
+"RTN","RAPROD",23,0)
+ W !?2,"Division : ",$E(RA("DIV"),1,20),?40,"Category : ",RA("CAT")
+"RTN","RAPROD",24,0)
+ W !?2,"Location : ",$S($D(^SC(+RA("LOC"),0)):$P(^(0),"^"),1:"Unknown"),?40,"Ward : ",$E(RA("WRD"),1,24)
+"RTN","RAPROD",25,0)
+ W !?2,"Exam Date : ",RADATE,?40,"Service : ",$E(RA("SERV"),1,24)
+"RTN","RAPROD",26,0)
+ N RASSAN,RACNDSP S RASSAN=$$SSANVAL^RAHLRU1(RADFN,RADTI,RACNI)
+"RTN","RAPROD",27,0)
+ S RACNDSP=$S((RASSAN'=""):RASSAN,1:RACN)
+"RTN","RAPROD",28,0)
+ I $$USESSAN^RAHLRU1() W !?2,"Case No. : ",RACNDSP W ?40,"Bedsection : ",$E(RA("BED"),1,24)
+"RTN","RAPROD",29,0)
+ I '$$USESSAN^RAHLRU1() W !?2,"Case No. : ",RACN W ?40,"Bedsection : ",$E(RA("BED"),1,24)
+"RTN","RAPROD",30,0)
+ W !?40,"Clinic : ",$E(RA("CL"),1,24)
+"RTN","RAPROD",31,0)
+ S Y=$E(RA("CAT")) I "CSR"[Y W !?40,$E($S("C"=Y:"Contract : "_RA("CONT"),"S"=Y:"Sharing : "_RA("CONT"),"R"=Y:"Research : "_RA("REA"),1:""),1,38)
+"RTN","RAPROD",32,0)
+ W:$X>1 ! S X="",$P(X,"-",80)="" W X K X
+"RTN","RAPROD",33,0)
+ W !?2,"Registered : ",$E(RAPRC,1,60) D PRCCPT
+"RTN","RAPROD",34,0)
+ W:$G(RAOPRC)]"" !?2,"Requested : ",$E(RAOPRC,1,60)
+"RTN","RAPROD",35,0)
+ W !?2,"Requesting Phy: ",$E(RA("PHY"),1,20),?40,"Exam Status : ",$S($D(^RA(72,RAST,0)):$E($P(^(0),"^"),1,24),1:"")
+"RTN","RAPROD",36,0)
+ W !?2,"Int'g Resident: ",$E(RA("RES"),1,20),?40,"Report Status: ",$E(RA("RST"),1,21)
+"RTN","RAPROD",37,0)
+ S RAPREVER=+$P($G(^RARPT(RARPT,0)),"^",13)
+"RTN","RAPROD",38,0)
+ W !?2,"Pre-Verified : ",$E($S($D(^VA(200,RAPREVER,0)):$P(^(0),"^",1),1:"NO"),1,20),?40,"Cam/Equip/Rm : ",$E(RA("RM"),1,20) K RAPREVER
+"RTN","RAPROD",39,0)
+ W !?2,"Int'g Staff : ",$E(RA("STAFF"),1,20),?40,"Diagnosis : ",$E(RA("DIA"),1,24)
+"RTN","RAPROD",40,0)
+ W !?2,"Technologist : ",$E(RA("TECH"),1,20),?40,"Complication : ",$E(RA("CMP"),1,24)
+"RTN","RAPROD",41,0)
+ I $D(RA("COMP")) W !?2,"Comment : " F I=1:60 Q:$E(RA("COMP"),I,I+59)']"" W ?18,$E(RA("COMP"),I,I+59)
+"RTN","RAPROD",42,0)
+ ;W:$X>1 !
+"RTN","RAPROD",43,0)
+ W !
+"RTN","RAPROD",44,0)
+ I $$PTSEX^RAUTL8(RADFN)="F" D ;get pt sex and display pregnancy status for females, ptch #99
+"RTN","RAPROD",45,0)
+ .N RAOR751 S RAOR751=$P($G(^RADPT(RADFN,"DT",RADTI,"P",RACNI,0)),U,11)
+"RTN","RAPROD",46,0)
+ .W ?2,"Pregnant at time of order entry: ",$$GET1^DIQ(75.1,$G(RAOR751)_",",13)
+"RTN","RAPROD",47,0)
+ K RAFL W ?47,"Films :" F I=0:0 S I=$O(^RADPT(RADFN,"DT",RADTI,"P",RACNI,"F",I)) Q:I'>0 I $D(^(I,0)) S X=^(0) W ?55,$S($D(^RA(78.4,+$P(X,"^"),0)):$P(^(0),"^"),1:"Unknown")," - ",+$P(X,"^",2),!
+"RTN","RAPROD",48,0)
+ W:$X>1 ! S X="",$P(X,"-",34)="" W X
+"RTN","RAPROD",49,0)
+ W "Modifiers" W $E(X,1,32) K X
+"RTN","RAPROD",50,0)
+ W !?2,"Proc Modifiers:" D MODS^RAUTL2 F I=1:1 Q:$P(Y,", ",I)']"" W ?18,$P(Y,", ",I),!
+"RTN","RAPROD",51,0)
+ N J
+"RTN","RAPROD",52,0)
+ W !?2,"CPT Modifiers : " W:Y(1)="None" Y(1),!
+"RTN","RAPROD",53,0)
+ I Y(1)'="None" F I=1:1 Q:$P(Y(2),", ",I)']"" S J=$P(Y(2),", ",I),J=$$BASICMOD^RACPTMSC(J,DT) W ?18,$P(J,"^",2)," ",$P(J,"^",3),! I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT W @IOF W !
+"RTN","RAPROD",54,0)
+ Q:+$G(RAXIT)
+"RTN","RAPROD",55,0)
+ I $Y>(IOSL-4) S RAXIT=$$EOS^RAUTL5() Q:RAXIT W @IOF W !
+"RTN","RAPROD",56,0)
+ Q:+$G(RAXIT)
+"RTN","RAPROD",57,0)
+ ;
+"RTN","RAPROD",58,0)
+ ;check for Contrast Media data, print it if it exists.
+"RTN","RAPROD",59,0)
+ I $O(^RADPT(RADFN,"DT",RADTI,"P",RACNI,"CM",0)) D
+"RTN","RAPROD",60,0)
+ .W !?2,"Contrast Media: " S RACM=1
+"RTN","RAPROD",61,0)
+ .N DIWF,DIWL,DIWR,DIWT,X,Z
+"RTN","RAPROD",62,0)
+ .S X=$$CM^RADEM1(RADFN,RADTI,RACNI),DIWL=20,DIWF="C50"
+"RTN","RAPROD",63,0)
+ .D ^DIWP S Z=0
+"RTN","RAPROD",64,0)
+ .F S Z=$O(^UTILITY($J,"W",DIWL,Z)) Q:'Z D
+"RTN","RAPROD",65,0)
+ ..W ?18,^UTILITY($J,"W",DIWL,Z,0)
+"RTN","RAPROD",66,0)
+ ..W:+$O(^UTILITY($J,"W",DIWL,Z)) !
+"RTN","RAPROD",67,0)
+ ..Q
+"RTN","RAPROD",68,0)
+ .K ^UTILITY($J,"W")
+"RTN","RAPROD",69,0)
+ .Q
+"RTN","RAPROD",70,0)
+ ;
+"RTN","RAPROD",71,0)
+ I $O(^RADPT(RADFN,"DT",RADTI,"P",RACNI,"RX",0)) D PHARM^RAPROD2(RACNI_","_RADTI_","_RADFN_",") W ! ; display pharmaceutical data
+"RTN","RAPROD",72,0)
+ I +$G(RAXIT) K RAXIT Q
+"RTN","RAPROD",73,0)
+ I +$P($G(^RADPT(RADFN,"DT",RADTI,"P",RACNI,0)),"^",28) D RDIO^RAPROD2(+$P(^(0),"^",28)) W ! ; display radiopharm data
+"RTN","RAPROD",74,0)
+ I +$G(RAXIT) K RAXIT Q
+"RTN","RAPROD",75,0)
+ W:$X>1 ! S X="",$P(X,"=",80)="" W X K X
+"RTN","RAPROD",76,0)
+ G ^RAPROD1
+"RTN","RAPROD",77,0)
+ ;
+"RTN","RAPROD",78,0)
+PRCCPT ; display Proc's abbrv, proc type, CPT
+"RTN","RAPROD",79,0)
+ Q:$G(RADTI)="" Q:$G(RACNI)=""
+"RTN","RAPROD",80,0)
+ ;
+"RTN","RAPROD",81,0)
+ N RADISPLY
+"RTN","RAPROD",82,0)
+ S RADISPLY=$G(^RAMIS(71,+$P($G(^RADPT(+RADFN,"DT",+RADTI,"P",+RACNI,0)),U,2),0)) ; set $ZR to file 71 before calling prccpt^radd1
+"RTN","RAPROD",83,0)
+ S RADISPLY=$$PRCCPT^RADD1()
+"RTN","RAPROD",84,0)
+ W ?54,RADISPLY
+"RTN","RAPROD",85,0)
+ Q
+"RTN","RAPROD",86,0)
+SETL ;Set long display preference
+"RTN","RAPROD",87,0)
+ N RA1,RA2,DIR
+"RTN","RAPROD",88,0)
+ S RA1=$O(^RA(79,0)) Q:'RA1
+"RTN","RAPROD",89,0)
+ S RA2=$O(^RA(79,RA1,"LDIS","B",DUZ,0))
+"RTN","RAPROD",90,0)
+ I RA2 D Q
+"RTN","RAPROD",91,0)
+ . W !!,"Your preference for Long Display of Procedures has already been set."
+"RTN","RAPROD",92,0)
+ . S DIR(0)="Y",DIR("A")="Do you want to delete your preference ",DIR("B")="No"
+"RTN","RAPROD",93,0)
+ . S DIR("?",1)="If you answer 'Yes', then all Radiology reports requested by you will"
+"RTN","RAPROD",94,0)
+ . S DIR("?",2)="will default to the condensed display, which means that repeated procedures"
+"RTN","RAPROD",95,0)
+ . S DIR("?")="and associated modifiers will only be listed once."
+"RTN","RAPROD",96,0)
+ . D ^DIR
+"RTN","RAPROD",97,0)
+ . Q:'Y
+"RTN","RAPROD",98,0)
+ . D DEL150
+"RTN","RAPROD",99,0)
+ . Q
+"RTN","RAPROD",100,0)
+ W !
+"RTN","RAPROD",101,0)
+ S DIR(0)="Y",DIR("A",1)="Do you want to set your preference for Long Display of Procedures"
+"RTN","RAPROD",102,0)
+ S DIR("A")="in all Radiology reports ",DIR("B")="No"
+"RTN","RAPROD",103,0)
+ S DIR("?",1)="If you answer 'Yes', then all Radiology reports requested by you will"
+"RTN","RAPROD",104,0)
+ S DIR("?",2)="list all repeated procedures and associated modifiers instead of"
+"RTN","RAPROD",105,0)
+ S DIR("?")="listing repeated procedures only once, which is the condensed (default) format."
+"RTN","RAPROD",106,0)
+ D ^DIR
+"RTN","RAPROD",107,0)
+ Q:'Y
+"RTN","RAPROD",108,0)
+ D STUF150
+"RTN","RAPROD",109,0)
+ Q
+"RTN","RAPROD",110,0)
+DEL150 ;Delete user ien from 1st record in file 79's field 150
+"RTN","RAPROD",111,0)
+ ; note: DIK utility looks for DA(1) here
+"RTN","RAPROD",112,0)
+ Q:'$D(DUZ)#2
+"RTN","RAPROD",113,0)
+ S DA(1)=$O(^RA(79,0)) Q:'DA(1)
+"RTN","RAPROD",114,0)
+ S DIK="^RA(79,"_DA(1)_",""LDIS"","
+"RTN","RAPROD",115,0)
+ S DA=$O(^RA(79,DA(1),"LDIS","B",DUZ,0))
+"RTN","RAPROD",116,0)
+ Q:'DA
+"RTN","RAPROD",117,0)
+ D ^DIK
+"RTN","RAPROD",118,0)
+ K DIK,DA
+"RTN","RAPROD",119,0)
+ W !!,"Your preference for Long Display of Procedures has been removed.",!
+"RTN","RAPROD",120,0)
+ Q
+"RTN","RAPROD",121,0)
+STUF150 ;Stuff user ien into 1st record in file 79's field 150
+"RTN","RAPROD",122,0)
+ Q:'$D(DUZ)#2
+"RTN","RAPROD",123,0)
+ S RA1=$O(^RA(79,0)) Q:'RA1
+"RTN","RAPROD",124,0)
+ K RAFDA,RAIEN,RAMSG
+"RTN","RAPROD",125,0)
+ S RAFDA(79.03,"?+2,"_RA1_",",.01)=DUZ
+"RTN","RAPROD",126,0)
+ D UPDATE^DIE("","RAFDA","RAIEN","RAMSG")
+"RTN","RAPROD",127,0)
+ W !!,"Your preference for Long Display of Procedures has been set.",!
+"RTN","RAPROD",128,0)
+ Q
+"RTN","RAPROD",129,0)
+CDIS ; set up RACDIS array to store 1st non-duplicate proc+pmod+cptmod
+"RTN","RAPROD",130,0)
+ N N1,N2,R1,RA71,Y
+"RTN","RAPROD",131,0)
+ K RACDIS
+"RTN","RAPROD",132,0)
+ D LDIS
+"RTN","RAPROD",133,0)
+ S N1=0
+"RTN","RAPROD",134,0)
+ F S N1=$O(^RADPT(RADFN,"DT",RADTI,"P",N1)) Q:'N1 S R1=$G(^(N1,0)) D:R1]""
+"RTN","RAPROD",135,0)
+ . S RA71=$P(R1,U,2),RACNI=N1
+"RTN","RAPROD",136,0)
+ . ; 05/09/2013 Patch RA*5*110 Rem Ticket 321499
+"RTN","RAPROD",137,0)
+ . ; Added next line to emliminate a subscript error in CPRS
+"RTN","RAPROD",138,0)
+ . Q:RA71=""
+"RTN","RAPROD",139,0)
+ . D MODS^RAUTL2
+"RTN","RAPROD",140,0)
+ . S RACDIS("B",RA71,Y,Y(1),N1)=""
+"RTN","RAPROD",141,0)
+ . S N2=$O(RACDIS("B",RA71,Y,Y(1),0))
+"RTN","RAPROD",142,0)
+ . S RACDIS(N2)=$G(RACDIS(N2))+1 ;increment lowest ien of same proc+pmod+cptmod
+"RTN","RAPROD",143,0)
+ . S:RACDIS(N2)>1 RACDIS("RAFLDUP")=1 ;>1 same proc+pmod+cptmod
+"RTN","RAPROD",144,0)
+ . Q
+"RTN","RAPROD",145,0)
+ Q
+"RTN","RAPROD",146,0)
+LDIS ; See if user prefers Long Display of Procedures
+"RTN","RAPROD",147,0)
+ N RA1
+"RTN","RAPROD",148,0)
+ S RA1=$O(^RA(79,0)) Q:'RA1
+"RTN","RAPROD",149,0)
+ S:$O(^RA(79,RA1,"LDIS","B",DUZ,0)) RALDIS=1
+"RTN","RAPROD",150,0)
+ Q
+"RTN","RAPROD",151,0)
+LIST ;
+"RTN","RAPROD",152,0)
+ ;;RA("DIV");^DIC(4,;RADI;3
+"RTN","RAPROD",153,0)
+ ;;RA("LOC");^RA(79.1,;RADI;4
+"RTN","RAPROD",154,0)
+ ;;RA("WRD");^DIC(42,;Y(0);6
+"RTN","RAPROD",155,0)
+ ;;RA("SERV");^DIC(49,;Y(0);7
+"RTN","RAPROD",156,0)
+ ;;RA("CL");^SC(;Y(0);8
+"RTN","RAPROD",157,0)
+ ;;RA("CONT");^DIC(34,;Y(0);9
+"RTN","RAPROD",158,0)
+ ;;RA("RES");^VA(200,;Y(0);12
+"RTN","RAPROD",159,0)
+ ;;RA("DIA");^RA(78.3,;Y(0);13
+"RTN","RAPROD",160,0)
+ ;;RA("PHY");^VA(200,;Y(0);14
+"RTN","RAPROD",161,0)
+ ;;RA("STAFF");^VA(200,;Y(0);15
+"RTN","RAPROD",162,0)
+ ;;RA("CMP");^RA(78.1,;Y(0);16
+"RTN","RAPROD",163,0)
+ ;;RA("RM");^RA(78.6,;Y(0);18
+"RTN","RAPROD",164,0)
+ ;;RA("BED");^DIC(42.4,;Y(0);19
+"VER")
+8.0^22.0
+"BLD",7977,6)
+^104
+**END**
+**END**
diff --git a/Packages/Radiology Nuclear Medicine/Patches/RA_5.0_110/RA-5_SEQ-104_PAT-110.TXT b/Packages/Radiology Nuclear Medicine/Patches/RA_5.0_110/RA-5_SEQ-104_PAT-110.TXT
new file mode 100644
index 0000000..6788d60
--- /dev/null
+++ b/Packages/Radiology Nuclear Medicine/Patches/RA_5.0_110/RA-5_SEQ-104_PAT-110.TXT
@@ -0,0 +1,119 @@
+$TXT Created by MCNEILE,KEN at DEV.DEV.FO-HINES.DOMAIN.EXT (KIDS) on Thursday, 05/09/13 at 14:19
+=============================================================================
+Run Date: NOV 21, 2013 Designation: RA*5*110
+Package : RA - RADIOLOGY/NUCLEAR MEDICINE Priority: Mandatory
+Version : 5 SEQ #104 Status: Released
+ Compliance Date: DEC 22, 2013
+=============================================================================
+
+Associated patches: (v)RA*5*47 <<= must be installed BEFORE `RA*5*110'
+
+Subject: CORRECT SUBSCRIPT ERROR IN RAPROD
+
+Category:
+ - Routine
+
+Description:
+============
+
+ This patch will correct the following issue:
+
+ When attempting to display Radiology exams in CPRS (Imaging - local
+ only), CPRS will be interrupted with a subscript error when the procedure
+ code is missing.
+
+ Associated Remedy Tickets:
+ ==========================
+ HD0000000341299 - CDIS+8^RAPROD
+
+ Associated NSR(s):
+ ==================
+ N/A
+
+ Participating Test Sites:
+ =========================
+ Detroit, MI.
+ South Texas HCS
+ Texas Valley Coastal Bend HCS
+
+ Remedy Overview:
+ ================
+ HD0000000341299 - CDIS+8^RAPROD
+
+ Problem:
+ --------
+ When entering a parent procedure during Radiology Exam Entry/Patient
+ Registration it is possible to have an abnormal termination of a session
+ either by closing your terminal session or by shutting down your device.
+ If this happens at the precise moment that you have elected to enter a
+ descendent exam but have not yet entered a procedure code for this exam,
+ an error is not relayed until attempting to display the associated report
+ in CPRS (Imaging - local only). At that point a subscript error is
+ generated.
+
+ Resolution :
+ ------------
+ A modification will be made to routine RAPROD to not produce the subscript
+ error by having the routine sense the absence of the procedure code and
+ return to the executing for loop.
+
+ ==================== Installation Instructions ====================
+
+ If installed during the normal workday, it is recommended that the
+ Radiology users be off the system. Other VISTA users will not be affected.
+ Install Time is less than 2 minutes.
+
+ 1. Use the INSTALL/CHECK MESSAGE option on the PackMan menu.
+
+ 2. From the Kernel Installation & Distribution System menu, select the
+ Installation menu.
+
+ 3. From this menu, you may select to use the following options (when
+ prompted for INSTALL NAME, enter RA*5.0*110)
+
+ a. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DD's or templates.
+
+ b. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this patch
+ is installed. It compares all components of this patch
+ (routines, DD's, templates, etc.).
+
+ c. Verify Checksums in Transport Global - This option will allow
+ you to ensure the integrity of the routines that are in the
+ transport global.
+
+ 4. Use the Install Package(s) option and select the package RA*5.0*110
+
+ 5. When prompted "Want KIDS to INHIBIT LOGONs during the install?
+ NO//" answer NO
+
+ 6. When prompted "Want to DISABLE Scheduled Options, Menu Options, and
+ Protocols? NO//" answer NO
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;5.0;Radiology/Nuclear Medicine;**[Patch List]**;Mar 16, 1998;Build 2
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: RAPROD
+ Before: B45447427 After: B48293236 **10,35,45,56,99,47,110**
+
+Routine list of preceding patches: 47
+
+=============================================================================
+User Information:
+Entered By : MCNEILE,KEN Date Entered : JUL 11, 2011
+Completed By: DUCKWORTH,TIM Date Completed: NOV 14, 2013
+Released By : MILLIGAN,KERRY Date Released : NOV 21, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/Registration/Patches/DG_5.3_847/DG-5P3_SEQ-769_PAT-847.KIDS b/Packages/Registration/Patches/DG_5.3_847/DG-5P3_SEQ-769_PAT-847.KIDS
new file mode 100644
index 0000000..fffcdfd
--- /dev/null
+++ b/Packages/Registration/Patches/DG_5.3_847/DG-5P3_SEQ-769_PAT-847.KIDS
@@ -0,0 +1,522 @@
+Released DG*5.3*847 SEQ #769
+Extracted from mail message
+**KIDS**:DG*5.3*847^
+
+**INSTALL NAME**
+DG*5.3*847
+"BLD",9082,0)
+DG*5.3*847^REGISTRATION^0^3130522^y
+"BLD",9082,1,0)
+^^5^5^3130522^
+"BLD",9082,1,1,0)
+This patch addresses 4 issues:
+"BLD",9082,1,2,0)
+In PATIENT file (#2), the trigger is not working correctly for
+"BLD",9082,1,3,0)
+fields ADDRESS CHANGE SOURCE (#.119), CELLULAR NUMBER CHANGE
+"BLD",9082,1,4,0)
+SOURCE (#.1311), PAGER NUMBER CHANGE SOURCE (#.1313), and EMAIL ADDRESS
+"BLD",9082,1,5,0)
+CHANGE SOURCE (#.137).
+"BLD",9082,4,0)
+^9.64PA^2^1
+"BLD",9082,4,2,0)
+2
+"BLD",9082,4,2,2,0)
+^9.641^2^1
+"BLD",9082,4,2,2,2,0)
+PATIENT (File-top level)
+"BLD",9082,4,2,2,2,1,0)
+^9.6411^.137^4
+"BLD",9082,4,2,2,2,1,.119,0)
+ADDRESS CHANGE SOURCE
+"BLD",9082,4,2,2,2,1,.1311,0)
+CELLULAR NUMBER CHANGE SOURCE
+"BLD",9082,4,2,2,2,1,.1313,0)
+PAGER NUMBER CHANGE SOURCE
+"BLD",9082,4,2,2,2,1,.137,0)
+EMAIL ADDRESS CHANGE SOURCE
+"BLD",9082,4,2,222)
+y^n^p^^^^n^^n
+"BLD",9082,4,2,224)
+
+"BLD",9082,4,"APDD",2,2)
+
+"BLD",9082,4,"APDD",2,2,.119)
+
+"BLD",9082,4,"APDD",2,2,.1311)
+
+"BLD",9082,4,"APDD",2,2,.1313)
+
+"BLD",9082,4,"APDD",2,2,.137)
+
+"BLD",9082,4,"B",2,2)
+
+"BLD",9082,6.3)
+6
+"BLD",9082,"ABPKG")
+n
+"BLD",9082,"INI")
+EN^DG53P847
+"BLD",9082,"INID")
+^^y
+"BLD",9082,"KRN",0)
+^9.67PA^779.2^20
+"BLD",9082,"KRN",.4,0)
+.4
+"BLD",9082,"KRN",.401,0)
+.401
+"BLD",9082,"KRN",.402,0)
+.402
+"BLD",9082,"KRN",.403,0)
+.403
+"BLD",9082,"KRN",.5,0)
+.5
+"BLD",9082,"KRN",.84,0)
+.84
+"BLD",9082,"KRN",3.6,0)
+3.6
+"BLD",9082,"KRN",3.8,0)
+3.8
+"BLD",9082,"KRN",9.2,0)
+9.2
+"BLD",9082,"KRN",9.8,0)
+9.8
+"BLD",9082,"KRN",9.8,"NM",0)
+^9.68A^1^1
+"BLD",9082,"KRN",9.8,"NM",1,0)
+DG53P847^^0^B510306
+"BLD",9082,"KRN",9.8,"NM","B","DG53P847",1)
+
+"BLD",9082,"KRN",19,0)
+19
+"BLD",9082,"KRN",19,"NM",0)
+^9.68A^^
+"BLD",9082,"KRN",19.1,0)
+19.1
+"BLD",9082,"KRN",101,0)
+101
+"BLD",9082,"KRN",409.61,0)
+409.61
+"BLD",9082,"KRN",771,0)
+771
+"BLD",9082,"KRN",779.2,0)
+779.2
+"BLD",9082,"KRN",870,0)
+870
+"BLD",9082,"KRN",8989.51,0)
+8989.51
+"BLD",9082,"KRN",8989.52,0)
+8989.52
+"BLD",9082,"KRN",8994,0)
+8994
+"BLD",9082,"KRN","B",.4,.4)
+
+"BLD",9082,"KRN","B",.401,.401)
+
+"BLD",9082,"KRN","B",.402,.402)
+
+"BLD",9082,"KRN","B",.403,.403)
+
+"BLD",9082,"KRN","B",.5,.5)
+
+"BLD",9082,"KRN","B",.84,.84)
+
+"BLD",9082,"KRN","B",3.6,3.6)
+
+"BLD",9082,"KRN","B",3.8,3.8)
+
+"BLD",9082,"KRN","B",9.2,9.2)
+
+"BLD",9082,"KRN","B",9.8,9.8)
+
+"BLD",9082,"KRN","B",19,19)
+
+"BLD",9082,"KRN","B",19.1,19.1)
+
+"BLD",9082,"KRN","B",101,101)
+
+"BLD",9082,"KRN","B",409.61,409.61)
+
+"BLD",9082,"KRN","B",771,771)
+
+"BLD",9082,"KRN","B",779.2,779.2)
+
+"BLD",9082,"KRN","B",870,870)
+
+"BLD",9082,"KRN","B",8989.51,8989.51)
+
+"BLD",9082,"KRN","B",8989.52,8989.52)
+
+"BLD",9082,"KRN","B",8994,8994)
+
+"BLD",9082,"QUES",0)
+^9.62^^
+"BLD",9082,"REQB",0)
+^9.611^^
+"FIA",2)
+PATIENT
+"FIA",2,0)
+^DPT(
+"FIA",2,0,0)
+2I
+"FIA",2,0,1)
+y^n^p^^^^n^^n
+"FIA",2,0,10)
+
+"FIA",2,0,11)
+
+"FIA",2,0,"RLRO")
+
+"FIA",2,0,"VR")
+5.3^DG
+"FIA",2,2)
+1
+"FIA",2,2,.119)
+
+"FIA",2,2,.1311)
+
+"FIA",2,2,.1313)
+
+"FIA",2,2,.137)
+
+"INI")
+EN^DG53P847
+"MBREQ")
+0
+"PKG",5,-1)
+1^1
+"PKG",5,0)
+REGISTRATION^DG^PATIENT REGISTRATION, ADMISSION, DISCHARGE, EMBOSSER
+"PKG",5,20,0)
+^9.402P^^
+"PKG",5,22,0)
+^9.49I^1^1
+"PKG",5,22,1,0)
+5.3^2930813
+"PKG",5,22,1,"PAH",1,0)
+847^3130522
+"PKG",5,22,1,"PAH",1,1,0)
+^^5^5^3130522
+"PKG",5,22,1,"PAH",1,1,1,0)
+This patch addresses 4 issues:
+"PKG",5,22,1,"PAH",1,1,2,0)
+In PATIENT file (#2), the trigger is not working correctly for
+"PKG",5,22,1,"PAH",1,1,3,0)
+fields ADDRESS CHANGE SOURCE (#.119), CELLULAR NUMBER CHANGE
+"PKG",5,22,1,"PAH",1,1,4,0)
+SOURCE (#.1311), PAGER NUMBER CHANGE SOURCE (#.1313), and EMAIL ADDRESS
+"PKG",5,22,1,"PAH",1,1,5,0)
+CHANGE SOURCE (#.137).
+"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","DG53P847")
+0^1^B510306^n/a
+"RTN","DG53P847",1,0)
+DG53P847 ;ALB/RC - PRE-INSTALL DG*5.3*847 ; 4/26/12
+"RTN","DG53P847",2,0)
+ ;;5.3;Registration;**847**;Aug 13, 1993;Build 6
+"RTN","DG53P847",3,0)
+ Q
+"RTN","DG53P847",4,0)
+EN ;Post install entry point
+"RTN","DG53P847",5,0)
+ N DGX,Y
+"RTN","DG53P847",6,0)
+ F DGX="DEL" D
+"RTN","DG53P847",7,0)
+ .S Y=$$NEWCP^XPDUTL(DGX,DGX_"^DG53P847")
+"RTN","DG53P847",8,0)
+ .I 'Y D BMES^XPDUTL("ERROR creating "_DGX_" checkpoint.")
+"RTN","DG53P847",9,0)
+ Q
+"RTN","DG53P847",10,0)
+DEL ;Delete trigger on field .119, .1311, .1313, .137 of file 2.
+"RTN","DG53P847",11,0)
+ N DGFILE,DGFIELD,DGREF
+"RTN","DG53P847",12,0)
+ F DGFIELD=.119,.1311,.1313,.137 S DGFILE=2,DGREF=1 D
+"RTN","DG53P847",13,0)
+ . D DELIX^DDMOD(DGFILE,DGFIELD,DGREF)
+"RTN","DG53P847",14,0)
+ Q
+"VER")
+8.0^22.0
+"^DD",2,2,.119,0)
+ADDRESS CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;NCOA:NCOA;BVA:BVA;VAINS:VAINS;USPS:USPS;LACS:LACS;VOA:VOA;^.11;14^Q
+"^DD",2,2,.119,1,0)
+^.1
+"^DD",2,2,.119,1,1,0)
+^^TRIGGER^2^.12
+"^DD",2,2,.119,1,1,1)
+X ^DD(2,.119,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,"")) X ^DD(2,.119,1,1,1.4)
+"^DD",2,2,.119,1,1,1.3)
+K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.119,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="VAMC"
+"^DD",2,2,.119,1,1,1.4)
+S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,15)=DIV,DIH=2,DIG=.12 D ^DICR
+"^DD",2,2,.119,1,1,2)
+K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.119,0)),U,3) S X=$P($P(Y(1),$C(59)_X_":",2),$C(59))="VAMC" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" X ^DD(2,.119,1,1,2.4)
+"^DD",2,2,.119,1,1,2.4)
+S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,15)=DIV,DIH=2,DIG=.12 D ^DICR
+"^DD",2,2,.119,1,1,"%D",0)
+^^5^5^3130514^
+"^DD",2,2,.119,1,1,"%D",1,0)
+This cross-reference will trigger the population of the
+"^DD",2,2,.119,1,1,"%D",2,0)
+ADDRESS CHANGE SITE field with the appropriate station
+"^DD",2,2,.119,1,1,"%D",3,0)
+number if the ADDRESS CHANGE SOURCE equals "VAMC". The
+"^DD",2,2,.119,1,1,"%D",4,0)
+ADDRESS CHANGE SITE field should be overwritten for cases
+"^DD",2,2,.119,1,1,"%D",5,0)
+where the site would be incorrect (i.e. uploading Z05 message).
+"^DD",2,2,.119,1,1,"CREATE CONDITION")
+ADDRESS CHANGE SOURCE="VAMC"
+"^DD",2,2,.119,1,1,"CREATE VALUE")
+S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
+"^DD",2,2,.119,1,1,"DELETE CONDITION")
+OLD ADDRESS CHANGE SOURCE="VAMC"
+"^DD",2,2,.119,1,1,"DELETE VALUE")
+@
+"^DD",2,2,.119,1,1,"DT")
+3130514
+"^DD",2,2,.119,1,1,"FIELD")
+ADDRESS CHANGE SITE
+"^DD",2,2,.119,3)
+Please enter the source of the address change.
+"^DD",2,2,.119,5,1,0)
+2^.118^1
+"^DD",2,2,.119,21,0)
+^.001^1^1^3130509^^^^
+"^DD",2,2,.119,21,1,0)
+This field will hold the source of the Last address change.
+"^DD",2,2,.119,"DT")
+3130514
+"^DD",2,2,.1311,0)
+CELLULAR NUMBER CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;VOA:VOA;^.13;10^Q
+"^DD",2,2,.1311,1,0)
+^.1
+"^DD",2,2,.1311,1,1,0)
+^^TRIGGER^2^.13111
+"^DD",2,2,.1311,1,1,1)
+X ^DD(2,.1311,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,"")) X ^DD(2,.1311,1,1,1.4)
+"^DD",2,2,.1311,1,1,1.3)
+K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1311,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="VAMC"
+"^DD",2,2,.1311,1,1,1.4)
+S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,11)=DIV,DIH=2,DIG=.13111 D ^DICR
+"^DD",2,2,.1311,1,1,2)
+K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1311,0)),U,3) S X=$P($P(Y(1),$C(59)_X_":",2),$C(59))="VAMC" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" X ^DD(2,.1311,1,1,2.4)
+"^DD",2,2,.1311,1,1,2.4)
+S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,11)=DIV,DIH=2,DIG=.13111 D ^DICR
+"^DD",2,2,.1311,1,1,"%D",0)
+^^5^5^3130522^
+"^DD",2,2,.1311,1,1,"%D",1,0)
+This cross-reference will trigger the population of the CELLULAR NUMBER
+"^DD",2,2,.1311,1,1,"%D",2,0)
+CHANGE SITE field with the appropriate station number if the CELLULAR
+"^DD",2,2,.1311,1,1,"%D",3,0)
+NUMBER CHANGE SOURCE equals "VAMC". The CELLULAR NUMBER CHANGE SITE field
+"^DD",2,2,.1311,1,1,"%D",4,0)
+should be overwritten for cases where the site would be incorrect (i.e.
+"^DD",2,2,.1311,1,1,"%D",5,0)
+uploading Z05 message).
+"^DD",2,2,.1311,1,1,"CREATE CONDITION")
+CELLULAR NUMBER CHANGE SOURCE="VAMC"
+"^DD",2,2,.1311,1,1,"CREATE VALUE")
+S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
+"^DD",2,2,.1311,1,1,"DELETE CONDITION")
+OLD CELLULAR NUMBER CHANGE SOU="VAMC"
+"^DD",2,2,.1311,1,1,"DELETE VALUE")
+@
+"^DD",2,2,.1311,1,1,"DT")
+3130522
+"^DD",2,2,.1311,1,1,"FIELD")
+CELLULAR NUMBER CHANGE SITE
+"^DD",2,2,.1311,3)
+Please enter the source of the Cellular number change.
+"^DD",2,2,.1311,5,1,0)
+2^.139^1
+"^DD",2,2,.1311,21,0)
+^^2^2^3060410^
+"^DD",2,2,.1311,21,1,0)
+This field will hold the source of the last Cellular number
+"^DD",2,2,.1311,21,2,0)
+change.
+"^DD",2,2,.1311,"DT")
+3130522
+"^DD",2,2,.1313,0)
+PAGER NUMBER CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;VOA:VOA;^.13;13^Q
+"^DD",2,2,.1313,1,0)
+^.1
+"^DD",2,2,.1313,1,1,0)
+^^TRIGGER^2^.1314
+"^DD",2,2,.1313,1,1,1)
+X ^DD(2,.1313,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,"")) X ^DD(2,.1313,1,1,1.4)
+"^DD",2,2,.1313,1,1,1.3)
+K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1313,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="VAMC"
+"^DD",2,2,.1313,1,1,1.4)
+S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,14)=DIV,DIH=2,DIG=.1314 D ^DICR
+"^DD",2,2,.1313,1,1,2)
+K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1313,0)),U,3) S X=$P($P(Y(1),$C(59)_X_":",2),$C(59))="VAMC" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" X ^DD(2,.1313,1,1,2.4)
+"^DD",2,2,.1313,1,1,2.4)
+S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,14)=DIV,DIH=2,DIG=.1314 D ^DICR
+"^DD",2,2,.1313,1,1,"%D",0)
+^^5^5^3130522^
+"^DD",2,2,.1313,1,1,"%D",1,0)
+This cross-reference will trigger the population of the PAGER NUMBER
+"^DD",2,2,.1313,1,1,"%D",2,0)
+CHANGE SITE field with the appropriate station number if the PAGER NUMBER
+"^DD",2,2,.1313,1,1,"%D",3,0)
+CHANGE SOURCE equals "VAMC". The PAGER NUMBER CHANGE SITE field should be
+"^DD",2,2,.1313,1,1,"%D",4,0)
+overwritten for cases where the site would be incorrect (i.e. uploading
+"^DD",2,2,.1313,1,1,"%D",5,0)
+Z05 message).
+"^DD",2,2,.1313,1,1,"CREATE CONDITION")
+PAGER NUMBER CHANGE SOURCE="VAMC"
+"^DD",2,2,.1313,1,1,"CREATE VALUE")
+S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
+"^DD",2,2,.1313,1,1,"DELETE CONDITION")
+OLD PAGER NUMBER CHANGE SOURCE="VAMC"
+"^DD",2,2,.1313,1,1,"DELETE VALUE")
+@
+"^DD",2,2,.1313,1,1,"DT")
+3130522
+"^DD",2,2,.1313,1,1,"FIELD")
+PAGER NUMBER CHANGE SITE
+"^DD",2,2,.1313,3)
+Please enter the source of the Pager number change.
+"^DD",2,2,.1313,5,1,0)
+2^.1312^1
+"^DD",2,2,.1313,21,0)
+^^2^2^3060410^
+"^DD",2,2,.1313,21,1,0)
+This field will hold the source of the last Pager number
+"^DD",2,2,.1313,21,2,0)
+change.
+"^DD",2,2,.1313,"DT")
+3130522
+"^DD",2,2,.137,0)
+EMAIL ADDRESS CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;VOA:VOA;^.13;7^Q
+"^DD",2,2,.137,1,0)
+^.1
+"^DD",2,2,.137,1,1,0)
+^^TRIGGER^2^.138
+"^DD",2,2,.137,1,1,1)
+X ^DD(2,.137,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,"")) X ^DD(2,.137,1,1,1.4)
+"^DD",2,2,.137,1,1,1.3)
+K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.137,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="VAMC"
+"^DD",2,2,.137,1,1,1.4)
+S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,8)=DIV,DIH=2,DIG=.138 D ^DICR
+"^DD",2,2,.137,1,1,2)
+K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.137,0)),U,3) S X=$P($P(Y(1),$C(59)_X_":",2),$C(59))="VAMC" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(2,.137,1,1,2.4)
+"^DD",2,2,.137,1,1,2.4)
+S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,8)=DIV,DIH=2,DIG=.138 D ^DICR
+"^DD",2,2,.137,1,1,"%D",0)
+^^5^5^3130522^
+"^DD",2,2,.137,1,1,"%D",1,0)
+This cross-reference will trigger the population of the EMAIL ADDRESS
+"^DD",2,2,.137,1,1,"%D",2,0)
+CHANGE SITE field with the appropriate station number if the EMAIL ADDRESS
+"^DD",2,2,.137,1,1,"%D",3,0)
+CHANGE SOURCE equals "VAMC". The EMAIL ADDRESS CHANGE SITE field should be
+"^DD",2,2,.137,1,1,"%D",4,0)
+overwritten for cases where the site would be incorrect (i.e. uploading
+"^DD",2,2,.137,1,1,"%D",5,0)
+Z05 message).
+"^DD",2,2,.137,1,1,"CREATE CONDITION")
+EMAIL ADDRESS CHANGE SOURCE="VAMC"
+"^DD",2,2,.137,1,1,"CREATE VALUE")
+S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,"D",X,""))
+"^DD",2,2,.137,1,1,"DELETE CONDITION")
+OLD EMAIL ADDRESS CHANGE SOURC="VAMC"
+"^DD",2,2,.137,1,1,"DELETE VALUE")
+@
+"^DD",2,2,.137,1,1,"DT")
+3130522
+"^DD",2,2,.137,1,1,"FIELD")
+EMAIL ADDRESS CHANGE SITE
+"^DD",2,2,.137,3)
+Please enter the source of the EMAIL address change.
+"^DD",2,2,.137,5,1,0)
+2^.136^1
+"^DD",2,2,.137,21,0)
+^^1^1^3060410^
+"^DD",2,2,.137,21,1,0)
+This field will hold the source of the last EMAIL address change.
+"^DD",2,2,.137,"DT")
+3130522
+"BLD",9082,6)
+^769
+**END**
+**END**
diff --git a/Packages/Registration/Patches/DG_5.3_847/DG-5P3_SEQ-769_PAT-847.TXT b/Packages/Registration/Patches/DG_5.3_847/DG-5P3_SEQ-769_PAT-847.TXT
new file mode 100644
index 0000000..9ff3094
--- /dev/null
+++ b/Packages/Registration/Patches/DG_5.3_847/DG-5P3_SEQ-769_PAT-847.TXT
@@ -0,0 +1,256 @@
+$TXT Created by GOLDSMITH,RHONDA at MNTVBB.FO-ALBANY.DOMAIN.EXT (KIDS) on Wednesday, 05/22/13 at 17:21
+=============================================================================
+Run Date: OCT 23, 2013 Designation: DG*5.3*847
+Package : DG - REGISTRATION Priority: Mandatory
+Version : 5.3 SEQ #769 Status: Released
+ Compliance Date: NOV 23, 2013
+=============================================================================
+
+
+Subject: CORRECT TRIGGERS IN 4 FIELDS OF THE PATIENT FILE
+
+Category:
+ - Data Dictionary
+ - Routine
+
+Description:
+============
+
+ This patch addresses the following 4 issues:
+ 1. Incorrect trigger for ADDRESS CHANGE SOURCE (#.119) field in the
+ PATIENT (#2) file
+ 2. Incorrect trigger for CELLULAR NUMBER CHANGE SOURCE (#.1311)
+ field in the PATIENT (#2) file
+ 3. Incorrect trigger for PAGER NUMBER CHANGE SOURCE (#.1313) field
+ in the PATIENT (#2) file
+ 4. Incorrect trigger for EMAIL ADDRESS CHANGE SOURCE (#.137) field
+ in the PATIENT (#2) file
+
+
+
+ Associated NSR(s):
+ ==================
+ N/A
+
+ Associated Remedy ticket(s):
+ ============================
+ 1. INC000000599219 Triggers ADDRESS CHANGE SOURCE
+ (file #2,field #.119)
+ 2. INC000000599224 Triggers CELLULAR NUMBER CHANGE SOURCE
+ (file #2, field #.1311)
+ 3. INC000000599226 Triggers PAGER NUMBER CHANGE SOURCE
+ (file #2, field #.1313)
+ 4. INC000000599227 Triggers EMAIL ADDRESS CHANGE SOURCE
+ (file #2, field #.137)
+
+
+
+ Participating Test Sites:
+ =========================
+ Connecticut HCS - (West Haven) - Integrated Large
+ Salisbury - W.G. (Bill) Hefner VA Medical Center - Large
+ Wilmington - VA Medical Center - Medium
+
+ Remedy Overview:
+ ================
+
+ 1. INC000000599219 Triggers ADDRESS CHANGE SOURCE
+ (file #2,field #.119)
+
+ Problem:
+ --------
+ This field triggers the population of the ADDRESS CHANGE SITE field (#.12)
+ of the PATIENT file (#2). It is incorrectly populating that field with the
+ local VAMC institution no matter what value is entered into the
+ ADDRESS CHANGE SOURCE field (#.119). It is only supposed to populate the
+ ADDRESS CHANGE SITE field (#.12) when "VAMC" is entered into the
+ ADDRESS CHANGE SOURCE field (#.119).
+ Also, The ADDRESS CHANGE SITE field (#.12) does not change if the ADDRESS
+ CHANGE SOURCE field (#.119) is changed or deleted.
+
+
+ Resolution:
+ -----------
+ Corrected the trigger to the following:
+ ADDRESS CHANGE SOURCE="VAMC"
+ Also, the CHANGE/DELETE CONDITION has been updated to delete the value
+ in the ADDRESS CHANGE SITE field if the ADDRESS CHANGE SOURCE is
+ changed or deleted.
+
+
+ 2. INC000000599224 Triggers CELLULAR NUMBER CHANGE SOURCE
+ (file #2, field #.1311)
+
+ Problem:
+ --------
+ This field triggers the population of the CELLULAR NUMBER CHANGE SITE
+ field (#.13111) of the PATIENT file (#2). It is incorrectly populating
+ that field with the local VAMC institution no matter what value is
+ entered into the CELLULAR NUMBER CHANGE SOURCE field (#.1311). It is
+ only supposed to populate the CELLULAR NUMBER CHANGE SITE field (#.13111)
+ when "VAMC" is entered into the CELLULAR NUMBER CHANGE SOURCE
+ field (#.1311).
+ Also, The CELLULAR NUMBER CHANGE SITE field (#.12) does not change
+ if the CELLULAR NUMBER CHANGE SOURCE field (#.119) is changed or deleted.
+
+ Resolution:
+ -----------
+ Corrected the trigger to the following:
+ CELLULAR NUMBER CHANGE SOURCE="VAMC"
+ Also, the CHANGE/DELETE CONDITION has been updated to delete the value
+ in the CELLULAR NUMBER CHANGE SITE field if the CELLULAR NUMBER
+ CHANGE SOURCE is changed or deleted.
+
+
+ 3. INC000000599226 Triggers PAGER NUMBER CHANGE SOURCE
+ (file #2, field #.1313)
+
+ Problem:
+ --------
+ This field triggers the population of the PAGER NUMBER CHANGE SITE
+ field (#.1314) of the PATIENT file (#2). It is incorrectly populating
+ that field with the local VAMC institution no matter what value is
+ entered into the PAGER NUMBER CHANGE SOURCE field (#.1313). It is only
+ supposed to populate the PAGER NUMBER CHANGE SITE field (#.1314) when
+ "VAMC" is entered into the PAGER NUMBER CHANGE SOURCE field (#.1313).
+ Also, The PAGER NUMBER CHANGE SITE field (#.12) does not change if
+ the PAGER NUMBER CHANGE SOURCE field (#.119) is changed or deleted.
+
+ Resolution:
+ -----------
+ Corrected the trigger to the following:
+ PAGER NUMBER CHANGE SOURCE="VAMC"
+ Also, the CHANGE/DELETE CONDITION has been updated to delete the value
+ in the PAGER NUMBER CHANGE SITE field if the PAGER NUMBER CHANGE
+ SOURCE is changed or deleted.
+
+
+ 4. INC000000599227 Triggers EMAIL ADDRESS CHANGE SOURCE
+ (file #2, field #.137)
+
+ Problem:
+ --------
+ This field triggers the population of the EMAIL ADDRESS CHANGE SITE
+ field (#.138) of the PATIENT file (#2). It is incorrectly populating
+ that field with the local VAMC institution no matter what value is
+ entered into the EMAIL ADDRESS CHANGE SOURCE field (#.137). It is
+ only supposed to populate the EMAIL ADDRESS CHANGE SITE field (#.138)
+ when "VAMC" is entered into the EMAIL ADDRESS CHANGE SOURCE
+ field (#.137).
+ Also, The EMAIL ADDRESS CHANGE SITE field (#.12) does not change if
+ the EMAIL ADDRESS CHANGE SOURCE field (#.119) is changed or deleted.
+
+ Resolution:
+ -----------
+ Corrected the trigger to the following:
+ EMAIL ADDRESS CHANGE SOURCE="VAMC"
+ Also, the CHANGE/DELETE CONDITION has been updated to delete the value
+ in the EMAIL ADDRESS CHANGE SITE field if the EMAIL ADDRESS CHANGE
+ SOURCE is changed or deleted.
+
+
+ Technical
+ =========
+ The following partial Data Dictionary entries are included.
+
+ UP SEND DATA USER
+ DATE SEC. COMES SITE RSLV OVER
+ FILE # FILE NAME DD CODE W/FILE DATA PTRS RIDE
+ ---------------------------------------------------------------------------
+
+ 2 PATIENT YES NO NO NO
+
+ Partial DD: subDD: 2 fld: .119
+ fld: .1311
+ fld: .1313
+ fld: .137
+
+
+ Installation Instructions:
+ ==========================
+
+ ***** NOTE ********
+ A Pre-Install routine is included in this patch. The routine will
+ delete all remnants of the old triggers before install so that the
+ new triggers will install accurately.
+
+ The Pre-Install routine DG53P847 will be deleted after patch install.
+ *******************
+
+ It is recommended that the patch be installed after regular work
+ hours and Registration users be off the system. Other VistA users
+ should not be affected.
+
+ Install Time - less than 2 minutes.
+
+ 1. Choose the PackMan message containing this patch and invoke the
+ INSTALL/CHECK MESSAGE PackMan option.
+
+ 2. Start up the Kernel Installation and Distribution System Menu
+ [XPD MAIN]:
+
+ Edits and Distribution ...
+ Utilities ...
+ Installation ...
+ Patch Monitor Main Menu ...
+
+ Select Kernel Installation & Distribution System Option: INStallation
+ ---
+ 1 Load a Distribution
+ 2 Verify Checksums in Transport Global
+ 3 Print Transport Global
+ 4 Compare Transport Global to Current System
+ 5 Backup a Transport Global
+ 6 Install Package(s)
+ Restart Install of Package(s)
+ Unload a Distribution
+
+ Select Installation Option:
+
+ 3. From this menu, you may elect to use the following options
+ (When prompted for the INSTALL NAME, enter DG*5.3*847):
+
+ a. Print Transport Global - this option will allow you to view
+ the components of the KIDS build.
+ b. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this patch
+ is installed. It compares all components of this patch
+ (routines, DD's, templates, etc.).
+ c. Verify Checksums in Transport Global - This option will allow
+ you to ensure the integrity of the routines that are in the
+ transport global.
+ d. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DD's or templates.
+
+ 4. Use the Install Package(s) option and select the package
+ DG*5.3*847.
+
+ a. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
+ NO//', answer NO
+ b. When prompted 'Want to DISABLE Scheduled Options, Menu
+ Options, and Protocols? NO//', answer NO.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;5.3;Registration;**[Patch List]**;Aug 13, 1993;Build 6
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: DG53P847
+ Before: n/a After: B510306 **847**
+
+=============================================================================
+User Information:
+Entered By : GOLDSMITH,RHONDA Date Entered : AUG 02, 2011
+Completed By: MIRANDA,RAUL Date Completed: OCT 21, 2013
+Released By : ADAMS,RITA W Date Released : OCT 23, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/Registration/Testing/RAS/REGMain01_suite.py b/Packages/Registration/Testing/RAS/REGMain01_suite.py
index 6edb02c..a2da9bd 100644
--- a/Packages/Registration/Testing/RAS/REGMain01_suite.py
+++ b/Packages/Registration/Testing/RAS/REGMain01_suite.py
@@ -246,14 +246,14 @@ def reg_test007(test_suite_details):
test_driver.pre_test_run(test_suite_details)
try:
VistA1 = test_driver.connect_VistA(test_suite_details)
- reg = Actions(VistA1, user='SM1234', code='SM12345!!')
+ reg = Actions(VistA1, user='SM1234', code='SM1234!!!')
reg.signon()
reg.adduser(name='JONES,JOE', ssn='000000050', gender='M', initials='JJ', acode='fakejoe1', vcode1='1SWUSH1234!!')
VistA1 = test_driver.connect_VistA(testname + '_01', result_dir, namespace)
reg = Actions(VistA1)
reg.sigsetup(acode='fakejoe1', vcode1='1SWUSH1234!!', vcode2='1SWUSH12345!!', sigcode='JOEJ123')
VistA1 = test_driver.connect_VistA(testname + '_02', result_dir, namespace)
- reg = Actions(VistA1, user='SM1234', code='SM12345!!')
+ reg = Actions(VistA1, user='SM1234', code='SM1234!!!')
reg.signon()
reg.adduser(name='BURKE,BARBARA', ssn='000000051', gender='F', initials='BB', acode='fakebar1', vcode1='1OIG1234!!')
VistA1 = test_driver.connect_VistA(testname + '_03', result_dir, namespace)
diff --git a/Packages/Scheduling/Patches/SD_5.3_592/SD-5P3_SEQ-500_PAT-592.KIDS b/Packages/Scheduling/Patches/SD_5.3_592/SD-5P3_SEQ-500_PAT-592.KIDS
new file mode 100644
index 0000000..4ced0bd
--- /dev/null
+++ b/Packages/Scheduling/Patches/SD_5.3_592/SD-5P3_SEQ-500_PAT-592.KIDS
@@ -0,0 +1,584 @@
+Released SD*5.3*592 SEQ #500
+Extracted from mail message
+**KIDS**:SD*5.3*592^
+
+**INSTALL NAME**
+SD*5.3*592
+"BLD",9278,0)
+SD*5.3*592^SCHEDULING^0^3130716^y
+"BLD",9278,1,0)
+^^6^6^3130404^
+"BLD",9278,1,1,0)
+
+"BLD",9278,1,2,0)
+1. When an appointment is cancelled, the software rounds and files the
+"BLD",9278,1,3,0)
+ cancellation date/time rather than filing the precise time.
+"BLD",9278,1,4,0)
+
+"BLD",9278,1,5,0)
+2. When a user attempts to cancel a checked out appointment, a warning
+"BLD",9278,1,6,0)
+ message is displayed with the incorrect appointment number.
+"BLD",9278,4,0)
+^9.64PA^^
+"BLD",9278,6.3)
+4
+"BLD",9278,"KRN",0)
+^9.67PA^779.2^20
+"BLD",9278,"KRN",.4,0)
+.4
+"BLD",9278,"KRN",.401,0)
+.401
+"BLD",9278,"KRN",.402,0)
+.402
+"BLD",9278,"KRN",.403,0)
+.403
+"BLD",9278,"KRN",.5,0)
+.5
+"BLD",9278,"KRN",.84,0)
+.84
+"BLD",9278,"KRN",3.6,0)
+3.6
+"BLD",9278,"KRN",3.8,0)
+3.8
+"BLD",9278,"KRN",9.2,0)
+9.2
+"BLD",9278,"KRN",9.8,0)
+9.8
+"BLD",9278,"KRN",9.8,"NM",0)
+^9.68A^2^2
+"BLD",9278,"KRN",9.8,"NM",1,0)
+SDAMC^^0^B15376797
+"BLD",9278,"KRN",9.8,"NM",2,0)
+SDCNP0^^0^B37888084
+"BLD",9278,"KRN",9.8,"NM","B","SDAMC",1)
+
+"BLD",9278,"KRN",9.8,"NM","B","SDCNP0",2)
+
+"BLD",9278,"KRN",19,0)
+19
+"BLD",9278,"KRN",19.1,0)
+19.1
+"BLD",9278,"KRN",101,0)
+101
+"BLD",9278,"KRN",409.61,0)
+409.61
+"BLD",9278,"KRN",771,0)
+771
+"BLD",9278,"KRN",779.2,0)
+779.2
+"BLD",9278,"KRN",870,0)
+870
+"BLD",9278,"KRN",8989.51,0)
+8989.51
+"BLD",9278,"KRN",8989.52,0)
+8989.52
+"BLD",9278,"KRN",8994,0)
+8994
+"BLD",9278,"KRN","B",.4,.4)
+
+"BLD",9278,"KRN","B",.401,.401)
+
+"BLD",9278,"KRN","B",.402,.402)
+
+"BLD",9278,"KRN","B",.403,.403)
+
+"BLD",9278,"KRN","B",.5,.5)
+
+"BLD",9278,"KRN","B",.84,.84)
+
+"BLD",9278,"KRN","B",3.6,3.6)
+
+"BLD",9278,"KRN","B",3.8,3.8)
+
+"BLD",9278,"KRN","B",9.2,9.2)
+
+"BLD",9278,"KRN","B",9.8,9.8)
+
+"BLD",9278,"KRN","B",19,19)
+
+"BLD",9278,"KRN","B",19.1,19.1)
+
+"BLD",9278,"KRN","B",101,101)
+
+"BLD",9278,"KRN","B",409.61,409.61)
+
+"BLD",9278,"KRN","B",771,771)
+
+"BLD",9278,"KRN","B",779.2,779.2)
+
+"BLD",9278,"KRN","B",870,870)
+
+"BLD",9278,"KRN","B",8989.51,8989.51)
+
+"BLD",9278,"KRN","B",8989.52,8989.52)
+
+"BLD",9278,"KRN","B",8994,8994)
+
+"BLD",9278,"QDEF")
+^^^^^^^^^^YES
+"BLD",9278,"QUES",0)
+^9.62^^
+"BLD",9278,"REQB",0)
+^9.611^2^2
+"BLD",9278,"REQB",1,0)
+SD*5.3*572^2
+"BLD",9278,"REQB",2,0)
+SD*5.3*597^2
+"BLD",9278,"REQB","B","SD*5.3*572",1)
+
+"BLD",9278,"REQB","B","SD*5.3*597",2)
+
+"MBREQ")
+0
+"PKG",16,-1)
+1^1
+"PKG",16,0)
+SCHEDULING^SD^APPOINTMENTS,PROFILES,LETTERS,AMIS REPORTS
+"PKG",16,20,0)
+^9.402P^^
+"PKG",16,22,0)
+^9.49I^1^1
+"PKG",16,22,1,0)
+5.3^2930813
+"PKG",16,22,1,"PAH",1,0)
+592^3130716
+"PKG",16,22,1,"PAH",1,1,0)
+^^6^6^3130716
+"PKG",16,22,1,"PAH",1,1,1,0)
+
+"PKG",16,22,1,"PAH",1,1,2,0)
+1. When an appointment is cancelled, the software rounds and files the
+"PKG",16,22,1,"PAH",1,1,3,0)
+ cancellation date/time rather than filing the precise time.
+"PKG",16,22,1,"PAH",1,1,4,0)
+
+"PKG",16,22,1,"PAH",1,1,5,0)
+2. When a user attempts to cancel a checked out appointment, a warning
+"PKG",16,22,1,"PAH",1,1,6,0)
+ message is displayed with the incorrect appointment number.
+"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")
+YES
+"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","SDAMC")
+0^1^B15376797^B14510209
+"RTN","SDAMC",1,0)
+SDAMC ;ALB/MJK - Cancel Appt Action ; 8/31/05 3:02pm ; 12/26/08 12:26pm ; 5/25/12 12:40pm
+"RTN","SDAMC",2,0)
+ ;;5.3;Scheduling;**20,28,32,46,263,414,444,478,538,554,597,592**;Aug 13, 1993;Build 4
+"RTN","SDAMC",3,0)
+ ;
+"RTN","SDAMC",4,0)
+ ; Reference/ICR
+"RTN","SDAMC",5,0)
+ ; ^VALM1 - 10116
+"RTN","SDAMC",6,0)
+ ; ^VALM2 - 10119
+"RTN","SDAMC",7,0)
+ ;
+"RTN","SDAMC",8,0)
+EN ; -- protocol SDAM APPT CANCEL entry pt
+"RTN","SDAMC",9,0)
+ ; input: VALMY := array entries
+"RTN","SDAMC",10,0)
+ ;
+"RTN","SDAMC",11,0)
+ N SDI,SDAT,VALMY,SDAMCIDT,CNT,L,SDWH,SDCP,SDREM,SDSCR,SDMSG,SCLHOLD
+"RTN","SDAMC",12,0)
+ K ^UTILITY($J)
+"RTN","SDAMC",13,0)
+ ;
+"RTN","SDAMC",14,0)
+ ;
+"RTN","SDAMC",15,0)
+ I '$D(DFN),$G(SDFN),($G(SDAMTYP)="P") S DFN=SDFN
+"RTN","SDAMC",16,0)
+ ;
+"RTN","SDAMC",17,0)
+ S VALMBCK=""
+"RTN","SDAMC",18,0)
+ D SEL^VALM2,CHK G ENQ:'$O(VALMY(0))
+"RTN","SDAMC",19,0)
+ D FULL^VALM1 S VALMBCK="R"
+"RTN","SDAMC",20,0)
+ S SDWH=$$WHO,SDCP=$S(SDWH="C":0,1:1) G ENQ:SDWH=-1
+"RTN","SDAMC",21,0)
+ S SDSCR=$$RSN(SDWH) G ENQ:SDSCR=-1
+"RTN","SDAMC",22,0)
+ S (TMPD,SDREM)=$$REM G ENQ:SDREM=-1 ;SD/478
+"RTN","SDAMC",23,0)
+ S (SDI,CNT,L)=0
+"RTN","SDAMC",24,0)
+ ;set L=SDI SD*5.3*592
+"RTN","SDAMC",25,0)
+ F S SDI=$O(VALMY(SDI)) Q:'SDI I $D(^TMP("SDAMIDX",$J,SDI)) K SDAT S SDAT=^(SDI),L=SDI W !,^TMP("SDAM",$J,+SDAT,0) D CAN($P(SDAT,U,2),$P(SDAT,U,3),.CNT,.L,SDWH,SDCP,SDSCR,SDREM)
+"RTN","SDAMC",26,0)
+ I SDAMTYP="P" D BLD^SDAM1
+"RTN","SDAMC",27,0)
+ I SDAMTYP="C" D BLD^SDAM3
+"RTN","SDAMC",28,0)
+ENQ Q
+"RTN","SDAMC",29,0)
+ ;
+"RTN","SDAMC",30,0)
+CAN(DFN,SDT,CNT,L,SDWH,SDCP,SDSCR,SDREM) ;
+"RTN","SDAMC",31,0)
+ N A1,NDT S NDT=SDT
+"RTN","SDAMC",32,0)
+ I $P($G(^DPT(DFN,"S",NDT,0)),U,2)["C" W !!,"Appointment already cancelled" H 2 Q
+"RTN","SDAMC",33,0)
+ ;removed L=L\1+1 which incorrectly incremented the variable L SD*5.3*592
+"RTN","SDAMC",34,0)
+ I $D(^DPT(DFN,"S",NDT,0)) S SD0=^(0) I $P(SD0,"^",2)'["C" S SC=+SD0,APL="" D FLEN^SDCNP1A S ^UTILITY($J,"SDCNP",L)=NDT_"^"_SC_"^"_COV_"^"_APL_"^^"_APL_"^^^^^^"_SDSP D CHKSO^SDCNP0 ;SD/478
+"RTN","SDAMC",35,0)
+ ;SD*5.3*414 next line added to set hold variable SCLHOLD for clinic ptr
+"RTN","SDAMC",36,0)
+ S APP=1,A1=L\1 S SCLHOLD=$P(^UTILITY($J,"SDCNP",A1),U,2) D BEGD^SDCNP0
+"RTN","SDAMC",37,0)
+ D MES,NOPE W ! S (CNT,L)=0 K ^UTILITY($J,"SDCNP")
+"RTN","SDAMC",38,0)
+ Q
+"RTN","SDAMC",39,0)
+CANQ(SDFN,SDCLN) ; SD*5.3*554 - Passes in SDFN, SDCLN
+"RTN","SDAMC",40,0)
+ ;Wait List Message
+"RTN","SDAMC",41,0)
+ ;
+"RTN","SDAMC",42,0)
+ I SDFN=""!(SDCLN="") Q ;Checks to make sure that SDFN and SDCLN are set to a non null value - PATCH SD*5.3*597
+"RTN","SDAMC",43,0)
+ N SDOMES S SDOMES="" I $D(^SDWL(409.3,"SC",SDCLN)) D
+"RTN","SDAMC",44,0)
+ .N SDWL S SDWL="" F S SDWL=$O(^SDWL(409.3,"SC",SDCLN,SDWL)) Q:SDWL="" D Q:SDOMES
+"RTN","SDAMC",45,0)
+ ..I $P(^SDWL(409.3,SDWL,0),U,17)="O" I $P(^SDWL(409.3,SDWL,0),U)=$G(SDFN) D S SDOMES=1
+"RTN","SDAMC",46,0)
+ ...W !,?1,"There are Wait List entries waiting for an Appointment for this patient in ",!?1,$P(^SC(SDCLN,0),U,1)," Clinic.",!
+"RTN","SDAMC",47,0)
+ W ! S DIR(0)="E" D ^DIR W !
+"RTN","SDAMC",48,0)
+ K SCLHOLD,SC,COV,APP,SDCLN
+"RTN","SDAMC",49,0)
+ Q
+"RTN","SDAMC",50,0)
+MES ; -- set error message
+"RTN","SDAMC",51,0)
+ S SDMSG="W !,""Enter appt. numbers separated by commas and/or a range separated"",!,""by dashes (ie 2,4,6-9)"" H 2"
+"RTN","SDAMC",52,0)
+ Q
+"RTN","SDAMC",53,0)
+ ;
+"RTN","SDAMC",54,0)
+WHO() ;
+"RTN","SDAMC",55,0)
+ W ! S DIR(0)="SOA^PC:PATIENT;C:CLINIC",DIR("A")="Appointments cancelled by (P)atient or (C)linic: ",DIR("B")="Patient"
+"RTN","SDAMC",56,0)
+ D ^DIR K DIR
+"RTN","SDAMC",57,0)
+ Q $S(Y=""!(Y="^"):-1,1:Y)
+"RTN","SDAMC",58,0)
+ ;
+"RTN","SDAMC",59,0)
+RSN(SDWH) ;
+"RTN","SDAMC",60,0)
+RSN1 W ! S DIC="^SD(409.2,",DIC(0)="AEMQ",DIC("S")="I '$P(^(0),U,4),"""_$E(SDWH)_"B""[$P(^(0),U,2)" D ^DIC K DIC
+"RTN","SDAMC",61,0)
+ I X["^" G RSNQ
+"RTN","SDAMC",62,0)
+ I Y<0 W *7 G RSN1
+"RTN","SDAMC",63,0)
+RSNQ Q +Y
+"RTN","SDAMC",64,0)
+ ;
+"RTN","SDAMC",65,0)
+REM() ;
+"RTN","SDAMC",66,0)
+ W ! S DIR(0)="2.98,17" D ^DIR K DIR
+"RTN","SDAMC",67,0)
+ I $E(X)="^" S Y=-1
+"RTN","SDAMC",68,0)
+ Q Y
+"RTN","SDAMC",69,0)
+ ;
+"RTN","SDAMC",70,0)
+NOPE ;
+"RTN","SDAMC",71,0)
+ N SDEND,SDPAUSE
+"RTN","SDAMC",72,0)
+ S:'CNT SDPAUSE=1
+"RTN","SDAMC",73,0)
+ D NOPE^SDCNP1
+"RTN","SDAMC",74,0)
+ D:$G(SDPAUSE) PAUSE^VALM1
+"RTN","SDAMC",75,0)
+ Q
+"RTN","SDAMC",76,0)
+ ;
+"RTN","SDAMC",77,0)
+CHK ; -- check if status of appt permits cancelling
+"RTN","SDAMC",78,0)
+ N SDI S SDI=0
+"RTN","SDAMC",79,0)
+ F S SDI=$O(VALMY(SDI)) Q:'SDI I $D(^TMP("SDAMIDX",$J,SDI)) K SDAT S SDAT=^(SDI) I '$D(^SD(409.63,"ACAN",1,+$$STATUS^SDAM1($P(SDAT,U,2),$P(SDAT,U,3),+$G(^DPT(+$P(SDAT,U,2),"S",+$P(SDAT,U,3),0)),$G(^(0))))) D
+"RTN","SDAMC",80,0)
+ .W !,^TMP("SDAM",$J,+SDAT,0),!!,*7,"You cannot cancel this appointment."
+"RTN","SDAMC",81,0)
+ .K VALMY(SDI) D PAUSE^VALM1
+"RTN","SDAMC",82,0)
+ Q
+"RTN","SDCNP0")
+0^2^B37888084^B34578981
+"RTN","SDCNP0",1,0)
+SDCNP0 ;ALB/LDB - CANCEL APPT. FOR A PATIENT ; 3/2/05 3:13pm
+"RTN","SDCNP0",2,0)
+ ;;5.3;Scheduling;**132,167,478,517,572,592**;Aug 13, 1993;Build 4
+"RTN","SDCNP0",3,0)
+ ;
+"RTN","SDCNP0",4,0)
+ ; Reference/ICR
+"RTN","SDCNP0",5,0)
+ ; ^VALM1 - 10116
+"RTN","SDCNP0",6,0)
+ ;
+"RTN","SDCNP0",7,0)
+EN2 D WAIT^DICD S NDT=HDT/1,L=0 F J=1:1 S NDT=$O(^DPT(DFN,"S",NDT)) Q:NDT'>0!(SDPV&(NDT'<SDTM)) S SD0=^(NDT,0) I $P(SD0,"^",2)'["C" S SC=+SD0,L=L\1+1,APL="" D FLEN^SDCNP1A S ^UTILITY($J,"SDCNP",L)=NDT_"^"_SC_"^"_COV_"^"_APL_"^^"_APL D CHKSO
+"RTN","SDCNP0",8,0)
+WH1 G:L'>0 NO S (SDCTRL,SDCTR)=0,APP="" N SDITEM W:'SDERR @IOF
+"RTN","SDCNP0",9,0)
+ W ! F Z=0:0 S Z=$O(^UTILITY($J,"SDCNP",Z)) Q:Z'>0 S SDITEM=$J($S(Z\1=Z:"("_$J(Z,2)_") ",1:""),5) D Q:SDCTRL
+"RTN","SDCNP0",10,0)
+ .I SDITEM["(" W !,SDITEM S HLDCSND=""
+"RTN","SDCNP0",11,0)
+ .I SDITEM'["(" W SDITEM
+"RTN","SDCNP0",12,0)
+ .S AT=$S($P(^(Z),"^",2)'?.N:1,1:0),Y=$P($P(^(Z),"^"),".") D DT^SDM0 S X=$P(^(Z),"^"),^(Z,"CNT")="" X ^DD("FUNC",2,1) W " ",$J(X,8) D MORE W:AT ! Q:SDCTRL
+"RTN","SDCNP0",13,0)
+ S:SDERR SDCTRL=1 I Z>0 G:SDCTRL&(APP']"") NOPE^SDCNP1 G:SDCTRL DEL
+"RTN","SDCNP0",14,0)
+ D WH G NOPE^SDCNP1:APP']"",DEL
+"RTN","SDCNP0",15,0)
+WH W !!,"SELECT APPOINTMENTS TO BE CANCELLED" W:Z>0 " OR HIT RETURN TO CONTINUE DISPLAY" R ": ",APP:DTIME I '$T!(APP="^") S SDCTRL=1,APP="" Q
+"RTN","SDCNP0",16,0)
+ S SDMSG="W !,""Enter appt. numbers separated by commas and/or a range separated"",!,""by dashes (ie 2,4,6-9)"" H 2" I APP["?" X SDMSG G WH
+"RTN","SDCNP0",17,0)
+ S SDCTRL=$S(APP']"":0,1:1) Q
+"RTN","SDCNP0",18,0)
+DEL S SDERR=0 F J=1:1 S SDDH=$P(APP,",",J) Q:SDDH']"" D MTCH^SDCNP1
+"RTN","SDCNP0",19,0)
+ G:SDERR WH1
+"RTN","SDCNP0",20,0)
+DEL1 F J=1:1 S SDDH=$P(APP,",",J) Q:SDDH']"" S SDDI=$P(SDDH,"-"),SDDM=$P(SDDH,"-",2) D CKK^SDCNP1A Q:SDERR D CKK1^SDCNP1A Q:SDERR Q:'SDDI F A1=SDDI:1:$S(SDDM:SDDM,1:SDDI) D BEGD
+"RTN","SDCNP0",21,0)
+ G:SDERR WH1 G NOPE^SDCNP1
+"RTN","SDCNP0",22,0)
+BEGD S (SD,S)=$P(^UTILITY($J,"SDCNP",A1),"^",1),I=$P(^UTILITY($J,"SDCNP",A1),"^",2)
+"RTN","SDCNP0",23,0)
+ S SL=^SC(I,"SL"),X=$P(SL,U,3),STARTDAY=$S($L(X):X,1:8),SB=STARTDAY-1/100,X=$P(SL,U,6),HSI=$S(X:X,1:4),SI=$S(X="":4,X<3:4,X:X,1:4),STR="#@!$* XXWVUTSRQPONMLKJIHGFEDCBA0123456789jklmnopqrstuvwxyz",SDDIF=$S(HSI<3:8/HSI,1:2) K Y
+"RTN","SDCNP0",24,0)
+ I $$CODT^SDCOU(DFN,+^UTILITY($J,"SDCNP",A1),+$P(^(A1),U,2)) W !,*7,">>> Appointment #",A1," has a check out date and cannot be cancelled." Q
+"RTN","SDCNP0",25,0)
+ D PROT^SDCNP1A Q:SDPRT=1 D CAN S $P(^UTILITY($J,"SDCNP",A1),"^",4)="*** JUST CANCELLED ***" Q
+"RTN","SDCNP0",26,0)
+CAN Q:$P(^UTILITY($J,"SDCNP",A1),"^",4)["JUST CANCELLED" S CNT=CNT+1,DIV=$S($P(^SC(I,0),"^",15)]"":" "_$P(^(0),"^",15),1:" 1") I $D(^DPT("ASDPSD","C",DIV,I,S,DFN)) K ^(DFN)
+"RTN","SDCNP0",27,0)
+ N SDATA,SDCPHDL,SDNOW,SDCLI S SDCPHDL=$$HANDLE^SDAMEVT(1) D BEFORE^SDAMEVT(.SDATA,DFN,S,I,"",SDCPHDL)
+"RTN","SDCNP0",28,0)
+ S SDCLI=I ;changed variable name I to SDCLI(Hospital location file IEN) as the value of I is manipulated by ^DIE SD*5.3*592
+"RTN","SDCNP0",29,0)
+ S:'$D(^DPT(DFN,"S",0)) ^(0)="^2.98P^^" I $D(SDREM) S DIE="^DPT("_DFN_",""S"",",(DA,Y)=S,DA(1)=DFN,DR="17///^S X="_"""""_SDREM_""""" D ^DIE K DIE,DR
+"RTN","SDCNP0",30,0)
+ S ^DPT("ASDCN",SDCLI,DA,DA(1))=$S(SDWH["P":1,1:"") K DA
+"RTN","SDCNP0",31,0)
+ ;removed rounding logic for time and changed direct global writes to fileman call SD*5.3*592
+"RTN","SDCNP0",32,0)
+ D NOW^%DTC S SDNOW=%,DIE="^DPT("_DFN_",""S"",",DA=S,DA(1)=DFN,DR="3///^S X=SDWH;14////^S X=DUZ;15///^S X=SDNOW;16////^S X=SDSCR" D ^DIE K DIE,DR,DA
+"RTN","SDCNP0",33,0)
+ S (DA,Y)=0 F X=0:0 S X=+$O(^SC(SDCLI,"S",S,1,X)) Q:'$D(^(X,0)) D C Q:Y&(DA)
+"RTN","SDCNP0",34,0)
+ I $D(^DPT("ASDPSD","B",DIV,S\1,DFN)) D CK1
+"RTN","SDCNP0",35,0)
+ Q:'Y S SL=$P(^SC(SDCLI,"S",S,1,Y,0),U,2) I DA,'$D(^("OB")) K ^SC(SDCLI,"S",S,1,DA,"OB")
+"RTN","SDCNP0",36,0)
+ S SDDA=DA,SDTTM=S,SDRT="D",SDPL=Y,SDSC=SDCLI D RT^SDUTL D CANCEL^SDCNSLT S Y=SDPL,S=SDTTM,SDCLI=SDSC,DA=SDDA K SDDA ;SD/478
+"RTN","SDCNP0",37,0)
+ S SDNODE=^SC(SDCLI,"S",S,1,Y,0),^SC("ARAD",SDCLI,S,DFN)="N",TLNK=$P($G(^SC(SDCLI,"S",S,1,Y,"CONS")),U) K ^SC(SDCLI,"S",S,1,Y) K:$O(^SC(SDCLI,"S",S,0))'>0 ^SC(SDCLI,"S",S,0) D CLRK^SDCNP1 ;SD/478
+"RTN","SDCNP0",38,0)
+ K:TLNK'="" ^SC("AWAS1",TLNK),TLNK ;SD/478
+"RTN","SDCNP0",39,0)
+ ;S SDNODE=^SC(I,"S",S,1,Y,0),^SC("ARAD",I,S,DFN)="N" S DA(2)=I,DA(1)=S,DA=Y,DIK="^SC("_DA(2)_",""S"","_DA(1)_",1," D ^DIK K:$O(^SC(I,"S",S,0))'>0 ^SC(I,"S",S,0) D CLRK^SDCNP1 ;SD/478
+"RTN","SDCNP0",40,0)
+ D EVT
+"RTN","SDCNP0",41,0)
+ Q:'$D(^SC(SDCLI,"ST",SD\1,1))
+"RTN","SDCNP0",42,0)
+EN01 S S=^SC(SDCLI,"ST",SD\1,1),Y=SD#1-SB*100,ST=Y#1*SI\.6+(Y\1*SI),SS=SL*HSI/60
+"RTN","SDCNP0",43,0)
+ I Y'<1 F I=ST+ST:SDDIF S Y=$E(STR,$F(STR,$E(S,I+1))) Q:Y="" S S=$E(S,1,I)_Y_$E(S,I+2,999),SS=SS-1 Q:SS'>0
+"RTN","SDCNP0",44,0)
+ S ^(1)=S Q ;NAKED REFERENCE - ^SC(IFN,"ST",Date,1)
+"RTN","SDCNP0",45,0)
+C I +^SC(SDCLI,"S",S,1,X,0)=DFN S Y=X Q ;changed variable name I to SDCLI SD*5.3*592
+"RTN","SDCNP0",46,0)
+ Q:'$D(^("OB"))!DA S:^("OB")?1"O".E DA=X Q
+"RTN","SDCNP0",47,0)
+NO W !,"NO ",$S('SDPV:"PENDING",1:"PREVIOUS")," APPOINTMENTS",*7,*7,*7
+"RTN","SDCNP0",48,0)
+ D END^SDCNP G RD^SDCNP
+"RTN","SDCNP0",49,0)
+ Q
+"RTN","SDCNP0",50,0)
+CHKSO S COV=$S($P(^DPT(DFN,"S",NDT,0),"^",11)=1:" (COLLATERAL) ",1:"") F SDJ=3,4,5 I $P(^DPT(DFN,"S",NDT,0),"^",SDJ)]"" S L=L+.1,^UTILITY($J,"SDCNP",L)=$P(^(0),"^",SDJ)_"^"_$S(SDJ=3:"LAB",SDJ=4:"XRAY",1:"EKG")_"^0^0"
+"RTN","SDCNP0",51,0)
+ Q
+"RTN","SDCNP0",52,0)
+MORE S SDCTR=SDCTR+2 I AT W ?41,$P(^UTILITY($J,"SDCNP",Z),"^",2) G OVR
+"RTN","SDCNP0",53,0)
+ W " ",$S($P(^UTILITY($J,"SDCNP",Z),"^",4)?.N:"("_$P(^(Z),"^",4)_" MIN) ",1:$P(^(Z),"^",4))," ",$S($D(^SC($P(^(Z),"^",2),0)):$P(^(0),"^",1),1:"DELETED CLINIC"),$P(^UTILITY($J,"SDCNP",Z),"^",3) ;SD/478
+"RTN","SDCNP0",54,0)
+ N CSND,CSDT,CSSD,CONSULT,Y
+"RTN","SDCNP0",55,0)
+ S CSND=^UTILITY($J,"SDCNP",Z),CSDT=$P(CSND,U),CSSD=$P(CSND,U,2),HLDCSND=CSND S CONSULT=$$CONSULT(CSSD,CSDT) I +$G(CONSULT) S Y=$P(^GMR(123,CONSULT,0),U) D DD^%DT W !?5,"CONSULT ",Y,"/ ",CONSULT
+"RTN","SDCNP0",56,0)
+ D STATUS($X>55)
+"RTN","SDCNP0",57,0)
+OVR ;Following code added SD/517
+"RTN","SDCNP0",58,0)
+ I '$D(CSND) I $G(HLDCSND) I (($P(HLDCSND,U,4)="")!($P(HLDCSND,U,6)="")) D
+"RTN","SDCNP0",59,0)
+ .W !!,"**********************************************************************"
+"RTN","SDCNP0",60,0)
+ .W !,"* WARNING: There is a data inconsistency or data corruption problem *"
+"RTN","SDCNP0",61,0)
+ .W !,"* with the above appointment. Corrective action needs to be taken. *"
+"RTN","SDCNP0",62,0)
+ .W !,"* Please cancel the appointment above. If it is a valid appointment,*"
+"RTN","SDCNP0",63,0)
+ .W !,"* it will have to be re-entered via Appointment Management. *"
+"RTN","SDCNP0",64,0)
+ .W !,"**********************************************************************"
+"RTN","SDCNP0",65,0)
+ .S SDCTR=21
+"RTN","SDCNP0",66,0)
+ .K HLDCSND
+"RTN","SDCNP0",67,0)
+ ;
+"RTN","SDCNP0",68,0)
+ I SDCTR>20,$O(^UTILITY($J,"SDCNP",Z)) S (SDCTRL,SDCTR)=0 W *7 D WH W:'SDCTRL @IOF
+"RTN","SDCNP0",69,0)
+ Q
+"RTN","SDCNP0",70,0)
+ ;
+"RTN","SDCNP0",71,0)
+CONSULT(CSSD,CSDT) ;
+"RTN","SDCNP0",72,0)
+ N CSI S CONSULT=""
+"RTN","SDCNP0",73,0)
+ S CSI=0 F S CSI=$O(^SC(CSSD,"S",CSDT,1,CSI)) Q:'+CSI I $P($G(^SC(CSSD,"S",CSDT,1,CSI,0)),U)=DFN S CONSULT=$P($G(^SC(CSSD,"S",CSDT,1,CSI,"CONS")),U) Q ;SD/478
+"RTN","SDCNP0",74,0)
+ Q CONSULT
+"RTN","SDCNP0",75,0)
+CK1 S SDX=0 F SD1=S\1:0 S SD1=$O(^DPT(DFN,"S",SD1)) Q:'SD1!((SD1\1)'=(S\1)) I $P(^(SD1,0),"^",2)'["C",$P(^(0),"^",2)'["N" S SDX=1 Q
+"RTN","SDCNP0",76,0)
+ Q:SDX F SD1=2,4 I $D(^SC("AAS",SD1,S\1,DFN)) S SDX=1 Q
+"RTN","SDCNP0",77,0)
+ Q:SDX IF $D(^SCE(+$$EXAE^SDOE(DFN,S\1,S\1),0)) S SDX=1
+"RTN","SDCNP0",78,0)
+ Q:SDX K ^DPT("ASDPSD","B",DIV,S\1,DFN) Q
+"RTN","SDCNP0",79,0)
+ ;
+"RTN","SDCNP0",80,0)
+STATUS(LF) ;
+"RTN","SDCNP0",81,0)
+ W:LF !
+"RTN","SDCNP0",82,0)
+ W ?55,"(",$E($$LOWER^VALM1($P($$STATUS^SDAM1(DFN,+^UTILITY($J,"SDCNP",Z),+$P(^(Z),U,2),$G(^DPT(DFN,"S",+^(Z),0))),";",3)),1,23),")"
+"RTN","SDCNP0",83,0)
+ W:'LF !
+"RTN","SDCNP0",84,0)
+ Q
+"RTN","SDCNP0",85,0)
+ ;
+"RTN","SDCNP0",86,0)
+EVT ; -- separate tag if need to NEW vars
+"RTN","SDCNP0",87,0)
+ N I,STR,SS,SL,SD,SB,SI,HSI,J,APP,S,A1,STARTDAY,CNT,DIV,SDERR,SDDIF
+"RTN","SDCNP0",88,0)
+ D CANCEL^SDAMEVT(.SDATA,DFN,SDTTM,SDSC,SDPL,0,SDCPHDL)
+"RTN","SDCNP0",89,0)
+ Q
+"VER")
+8.0^22.0
+"BLD",9278,6)
+^500
+**END**
+**END**
diff --git a/Packages/Scheduling/Patches/SD_5.3_592/SD-5P3_SEQ-500_PAT-592.TXT b/Packages/Scheduling/Patches/SD_5.3_592/SD-5P3_SEQ-500_PAT-592.TXT
new file mode 100644
index 0000000..7348f7c
--- /dev/null
+++ b/Packages/Scheduling/Patches/SD_5.3_592/SD-5P3_SEQ-500_PAT-592.TXT
@@ -0,0 +1,193 @@
+$TXT Created by SPILLER,RICHARD at MNTVBB.FO-ALBANY.DOMAIN.EXT (KIDS) on Tuesday, 07/16/13 at 09:22
+=============================================================================
+Run Date: OCT 23, 2013 Designation: SD*5.3*592
+Package : SD - SCHEDULING Priority: Mandatory
+Version : 5.3 SEQ #500 Status: Released
+ Compliance Date: NOV 23, 2013
+=============================================================================
+
+Associated patches: (v)SD*5.3*572 <<= must be installed BEFORE `SD*5.3*592'
+ (v)SD*5.3*597 <<= must be installed BEFORE `SD*5.3*592'
+
+Subject: FIX APPT CANCELLATION TIME AND WARNING MESSAGE FOR APPT CANCEL
+
+Category:
+ - Routine
+
+Description:
+============
+
+ This patch addresses two Scheduling issues:
+
+ 1. When an appointment is cancelled, the software rounds and files the
+ cancellation date/time rather than filing the precise time.
+
+ 2. When a user attempts to cancel a checked out appointment, a warning
+ message is displayed with the incorrect appointment number.
+
+
+ ASSOCIATED REMEDY TICKETS:
+ ==========================
+ 1) INC000000599584 - Appointment Cancellation Time Not Precise
+ Duplicate:
+ INC000000616591 - Appointment Cancellation time is not exact
+ INC000000725262 - Cancel Appointment issue
+ INC000000788758 - Cancel Appointment time issue
+ INC000000870347 - Scheduling - Other:
+
+ 2) INC000000713571 - Display issue with Appointment Cancellation
+
+ ASSOCIATED NSR(S):
+ ==================
+ N/A
+
+ PARTICIPATING TEST SITES:
+ =========================
+ Central Texas HCS
+ Memphis, TN
+ Upstate New York HCS
+
+ REMEDY TICKET OVERVIEW:
+ =======================
+ 1) INC000000599584 - Appointment Cancellation Time Not Precise
+
+ Problem:
+ --------
+ When an appointment is cancelled the software rounds and files the
+ date/time rather than filing the precise time. Depending which applies,
+ cancellation date/time and no-show date/time are both stored in
+ NO-SHOW/CANCEL DATE/TIME field (#15) of the APPOINTMENT sub-file (#2.98)
+ of the PATIENT file (#2). No-show date/times are not rounded off and the
+ precise time is filed. Cancellation date/times should be filed in the
+ same manner, with no rounding of the time.
+
+ Resolution:
+ -----------
+ Routine SDCNP0 will be modified to remove the logic that is rounding
+ the time before filing a cancellation date/time, so that it files the
+ precise time, the same as with no-show date/times.
+
+ 2) INC000000713571 - Display issue with Appointment Cancellation
+
+ Problem:
+ --------
+ If a user goes into option APPOINTMENT MANAGEMENT [SDAM APPT MGT],
+ either by clinic or by patient, and they attempt to cancel an
+ appointment while another user on another session has checked out
+ that same appointment, a warning message is displayed. This message
+ will be partially incorrect if the selected appointment was not the
+ first appointment in the appointment list. The first line of the
+ warning message will echo back and display the correctly selected
+ appointment from the list. However, the second line of the message
+ will always read:
+ ">>> Appointment #1 has a check out date and cannot be cancelled."
+
+ Although the statement is correct, it indicates the wrong appointment
+ number from the appointment list (unless the first appointment in the
+ list was the one selected).
+
+ Resolution:
+ -----------
+ Routine SDAMC will be modified to setup the proper appointment list
+ selection variable therefore what is displayed is the correct information to
+ the user.
+
+
+ INSTALLATION INSTRUCTIONS:
+ ==========================
+ This patch can be loaded with users in the system, but it is recommended
+ that it be installed when user activity is very low.
+
+ Installation time will be less than five minutes.
+
+ 1. Load Transport Global
+ ----------------------
+ Choose the PackMan message containing this patch and invoke the
+ INSTALL/CHECK MESSAGE PackMan option.
+
+ 2. Start Up KIDS
+ -------------
+ Start up the Kernel Installation and Distribution System Menu [XPD
+ MAIN]:
+
+ Edits and Distribution ...
+ Utilities ...
+ Installation ...
+
+ Select Kernel Installation & Distribution System Option: INStallation
+ ---
+ Load a Distribution
+ Print Transport Global
+ Compare Transport Global to Current System
+ Verify Checksums in Transport Global
+ Install Package(s)
+ Restart Install of Package(s)
+ Unload a Distribution
+ Backup a Transport Global
+
+ 3. Select Installation Option:
+ ---------------------------
+ NOTE: The following are OPTIONAL - (When prompted for the INSTALL
+ NAME, enter SD*5.3*592):
+
+ a. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DD's or templates.
+ b. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this patch
+ is installed. It compares all components of this patch
+ (routines, DD's, templates, etc.).
+ c. Verify Checksums in Transport Global - This option will allow
+ you to ensure the integrity of the routines that are in the
+ transport global.
+
+ 4. Select Installation Option: Install Package(s)
+ ---------------------------------------------------
+ **This is the step to start the installation of this KIDS patch:
+
+ a. Choose the Install Package(s) option to start the patch install.
+
+ b. When prompted, "Want KIDS to INHIBIT LOGONs during the install?
+ NO//", respond NO.
+
+ c. When prompted, "Want to DISABLE Scheduled Options, Menu
+ Options, and Protocols? YES//", respond YES.
+
+ Enter options you wish to mark as 'Out Of Order':
+
+ Appointment Management [SDAM APPT MGT]
+ Make Appointment [SDM]
+ Cancel Appointment [SD CANCEL APPOINTMENT]
+
+
+ When prompted, 'Enter protocols you wish to mark as 'Out of Order':',
+ enter: <ENTER>
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;5.3;Scheduling;**[Patch List]**;Aug 13, 1993;Build 4
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: SDAMC
+ Before: B14510209 After: B15376797 **20,28,32,46,263,414,444,478,
+ 538,554,597,592**
+Routine Name: SDCNP0
+ Before: B34578981 After: B37888084 **132,167,478,517,572,592**
+
+Routine list of preceding patches: 572, 597
+
+=============================================================================
+User Information:
+Entered By : CURTIS,RICHARD Date Entered : JAN 05, 2012
+Completed By: SESSLER,APRIL Date Completed: OCT 17, 2013
+Released By : FLANAGAN,PATTY Date Released : OCT 23, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/Scheduling/Testing/RAS/SCMain01_suite.py b/Packages/Scheduling/Testing/RAS/SCMain01_suite.py
index 9c33927..1ccf962 100644
--- a/Packages/Scheduling/Testing/RAS/SCMain01_suite.py
+++ b/Packages/Scheduling/Testing/RAS/SCMain01_suite.py
@@ -459,7 +459,7 @@ def sc_test012(test_suite_details):
try:
# create new user with SDOB keys
VistA1 = test_driver.connect_VistA(test_suite_details)
- SC = Actions(VistA1, user='SM1234', code='SM12345!!')
+ SC = Actions(VistA1, user='SM1234', code='SM1234!!!')
SC.signon()
SC.adduser(name='CRANE,JON', ssn='000000065', gender='M', initials='JC', acode='fakejon1', vcode1='1SWUSH1234!!')
SC.signoff()
diff --git a/Packages/Uncategorized/Listing_of_Released_VistA_Patches_2013.csv b/Packages/Uncategorized/Listing_of_Released_VistA_Patches_2013.csv
index 78c87b9..f40b634 100644
--- a/Packages/Uncategorized/Listing_of_Released_VistA_Patches_2013.csv
+++ b/Packages/Uncategorized/Listing_of_Released_VistA_Patches_2013.csv
@@ -42,14 +42,14 @@ small s denotes Redacted",REDACTED INFO IN FOIA RELEASE
40,TRUE,2013-02-11,VERIFIED,337,PSN*4*349,ROUTINE,NATIONAL DRUG FILE,NDF4P349.KIDs,Yes,
41,TRUE,2013-02-11,VERIFIED,445,IB*2*459,ROUTINE,INTEGRATED BILLING,IB_20_459.KID,,
42,TRUE,2013-02-11,VERIFIED,257,PRCA*4.5*280,INFORMATIONAL,ACCOUNTS RECEIVABLE,IB_20_459.KID,,
-43,TRUE,2013-02-11,VERIFIED,313,OR*3*352,ROUTINE,ORDER ENTRY/RESULTS REPORTING,ALSO MOCHA FOLDER,,
-44,TRUE,2013-02-11,VERIFIED,152,PSS*1*164,ENHANCEMENT,PHARMACY DATA MANAGEMENT,ALSO MOCHA FOLDER,Yes,
-45,TRUE,2013-02-11,VERIFIED,153,PSS*1*169,ROUTINE,PHARMACY DATA MANAGEMENT,ALSO MOCHA FOLDER,,
-46,TRUE,2013-02-11,VERIFIED,345,PSO*7*390,ROUTINE,OUTPATIENT PHARMACY,ALSO MOCHA FOLDER,,
-47,TRUE,2013-02-11,VERIFIED,346,PSO*7*417,ROUTINE,OUTPATIENT PHARMACY,ALSO MOCHA FOLDER,,
-48,TRUE,2013-02-11,VERIFIED,241,PSJ*5*268,ROUTINE,INPATIENT MEDICATIONS,ALSO MOCHA FOLDER,,
-49,TRUE,2013-02-11,VERIFIED,242,PSJ*5*260,ROUTINE,INPATIENT MEDICATIONS,ALSO MOCHA FOLDER,,
-50,TRUE,2013-02-11,VERIFIED,243,PSJ*5*288,ROUTINE,INPATIENT MEDICATIONS,ALSO MOCHA FOLDER,,
+43,TRUE,2013-02-11,VERIFIED,313,OR*3*352,ROUTINE,ORDER ENTRY/RESULTS REPORTING,PREM - MOCHA,,
+44,TRUE,2013-02-11,VERIFIED,152,PSS*1*164,ENHANCEMENT,PHARMACY DATA MANAGEMENT,PREM - MOCHA,Yes,
+45,TRUE,2013-02-11,VERIFIED,153,PSS*1*169,ROUTINE,PHARMACY DATA MANAGEMENT,PREM - MOCHA,,
+46,TRUE,2013-02-11,VERIFIED,345,PSO*7*390,ROUTINE,OUTPATIENT PHARMACY,PREM - MOCHA,,
+47,TRUE,2013-02-11,VERIFIED,346,PSO*7*417,ROUTINE,OUTPATIENT PHARMACY,PREM - MOCHA,,
+48,TRUE,2013-02-11,VERIFIED,241,PSJ*5*268,ROUTINE,INPATIENT MEDICATIONS,PREM - MOCHA,,
+49,TRUE,2013-02-11,VERIFIED,242,PSJ*5*260,ROUTINE,INPATIENT MEDICATIONS,PREM - MOCHA,,
+50,TRUE,2013-02-11,VERIFIED,243,PSJ*5*288,ROUTINE,INPATIENT MEDICATIONS,PREM - MOCHA,,
51,TRUE,2013-02-12,VERIFIED,314,OR*3*315,ROUTINE,ORDER ENTRY/RESULTS REPORTING,,,
52,TRUE,2013-02-12,VERIFIED,94,GMTS*2.7*96,ROUTINE,HEALTH SUMMARY,,,
53,TRUE,2013-02-12,VERIFIED,490,XU*8*618,INFORMATIONAL,VA KERNEL,INFORMATION ONLY,,
@@ -185,7 +185,7 @@ small s denotes Redacted",REDACTED INFO IN FOIA RELEASE
183,TRUE,2013-06-19,VERIFIED,6,MHV*1*10,ENHANCEMENT,MY HEALTHEVET,,YES,
184,TRUE,2013-06-20,VERIFIED,350,PSN*4*362,ROUTINE,NATIONAL DRUG FILE,NDF4P362.KIDs,Yes,
185,TRUE,2013-06-20,VERIFIED,351,PSN*4*363,ROUTINE,NATIONAL DRUG FILE,NDF4P363.KIDs,Yes,
-186,TRUE,2013-06-20,VERIFIED,319,OR*3*366,ROUTINE,ORDER ENTRY/RESULTS REPORTING,ALSO MOCHA FOLDER,,
+186,TRUE,2013-06-20,VERIFIED,319,OR*3*366,ROUTINE,ORDER ENTRY/RESULTS REPORTING,PREM - MOCHA,,
187,TRUE,2013-06-20,VERIFIED,58,VBEC*1*59,INFORMATIONAL,VISTA BLOOD BANK,,,
188,TRUE,2013-06-21,VERIFIED,61,ICD*18*69,ROUTINE,DRG GROUPER,,,
189,TRUE,2013-06-24,VERIFIED,250,TIU*1*274,ROUTINE,TEXT INTEGRATION UTILITY,,,
@@ -325,3 +325,48 @@ small s denotes Redacted",REDACTED INFO IN FOIA RELEASE
323,TRUE,2013-11-12,VERIFIED,460,IB*2*508,ENHANCEMENT,INTEGRATED BILLING,,,
324,TRUE,2013-11-12,VERIFIED,63,ICD*18*70,ROUTINE,CPT/HCPCS CODES,,,
325,TRUE,2013-11-12,VERIFIED,10,OHRS*1.4*10,INFORMATIONAL,OCCUPATIONAL HEALTH RECORD SYSTEM,,,
+326,TRUE,2013-11-18,VERIFIED,260,PRCA*4.5*296,ROUTINE,ACCOUNTS RECEIVABLE,,,
+327,TRUE,2013-11-21,VERIFIED,104,RA*5*110,ROUTINE,RADIOLOGY,,,
+328,TRUE,2013-11-21,VERIFIED,63,VBEC*1*84,INFORMATIONAL,VISTA BLOOD BANK,,,
+329,TRUE,2013-11-22,VERIFIED,61,PSB*3*59,ROUTINE,BAR CODE MED ADMIN,PSB_3_59.KID,,
+330,TRUE,2013-11-25,VERIFIED,365,PSN*4*379,ROUTINE,NATIONAL DRUG FILE,NDF4P379.KID,,
+331,TRUE,2013-11-25,VERIFIED,366,PSN*4*380,ROUTINE,NATIONAL DRUG FILE,NDF4P380.KIDs,YES,
+332,TRUE,2013-11-25,VERIFIED,127,PRS*4*137,ROUTINE,PAID,,,
+333,TRUE,2013-11-27,VERIFIED,47,XWB*1.1*50,INFORMATIONAL,RPC BROKER,INFORMATION ONLY,,
+334,TRUE,2013-11-27,VERIFIED,35,FH*5.5*30,ROUTINE,NUTRITION AND FOOD SERVICES,,,
+335,TRUE,2013-12-02,VERIFIED,252,PSJ*5*229,ROUTINE,INPATIENT MEDICATIONS,,,
+336,TRUE,2013-12-02,VERIFIED,157,PSS*1*174,ROUTINE,PHARMACY DATA MANAGEMENT,,,
+337,TRUE,2013-12-02,VERIFIED,253,PSJ*5*289,ROUTINE,INPATIENT MEDICATIONS,,,
+338,TRUE,2013-12-03,VERIFIED,88,EAS*1*105,ROUTINE,ENROLLMENT APPLICATION SYSTEM,,,
+339,TRUE,2013-12-05,VERIFIED,1,PREM*1.1*1,INFORMATIONAL,MOCHA,,,
+340,TRUE,2013-12-09,VERIFIED,367,PSN*4*381,ROUTINE,NATIONAL DRUG FILE,NDF4P381.KIDs,YES,
+341,TRUE,2013-12-09,VERIFIED,101,GMTS*2.7*107,ROUTINE,HEALTH SUMMARY,,,
+342,TRUE,2013-12-10,VERIFIED,127,HL*1.6*161,ROUTINE,HEALTH LEVEL 7,,,
+343,TRUE,2013-12-10,VERIFIED,461,IB*2*507,ROUTINE,INTEGRATED BILLING,,,
+344,TRUE,2013-12-10,VERIFIED,770,DG*5.3*867,ROUTINE,REGISTRATION,"NEWBORN_1_2_DG_FB_IB.KIDs
+ALSO IN NEWBORN FOLDER",YES,
+345,TRUE,2013-12-10,VERIFIED,123,FB*3.5*146,OTHER,FEE BASIS,"NEWBORN_1_2_DG_FB_IB.KIDs
+ALSO IN NEWBORN FOLDER",YES,
+346,TRUE,2013-12-10,VERIFIED,462,IB*2*499,OTHER,INTEGRATED BILLING,"NEWBORN_1_2_DG_FB_IB.KIDs
+ALSO IN NEWBORN FOLDER",YES,
+347,TRUE,2013-12-11,VERIFIED,463,IB*2*512,ROUTINE,INTEGRATED BILLING,,,
+348,TRUE,2013-12-11,VERIFIED,64,ICD*18*72,ROUTINE,CPT/HCPCS CODES,,YES,
+349,TRUE,2013-12-12,VERIFIED,158,PSS*1*172,DATA,PHARMACY DATA MANAGEMENT,,,
+350,TRUE,2013-12-12,VERIFIED,325,OR*3*266,ROUTINE,ORDER ENTRY/RESULTS REPORTING,,,
+351,TRUE,2013-12-12,VERIFIED,254,PSJ*5*279,ROUTINE,INPATIENT MEDICATIONS,,,
+352,TRUE,2013-12-12,VERIFIED,62,PSB*3*70,ENHANCEMENT,BAR CODE MED ADMIN,,,
+353,TRUE,2013-12-12,VERIFIED,17,ACKQ*3*22,ROUTINE,QUASAR,,,
+354,TRUE,2013-12-17,VERIFIED,23,DGBT*1*21,ROUTINE,BENEFICIARY TRAVEL,,,
+355,TRUE,2013-12-23,VERIFIED,368,PSN*4*382,ROUTINE,NATIONAL DRUG FILE,NDF4P382.KID,,
+356,TRUE,2013-12-23,VERIFIED,369,PSN*4*383,ROUTINE,NATIONAL DRUG FILE,NDF4P383.KIDs,YES,
+357,TRUE,2013-12-23,VERIFIED,326,OR*3*372,OTHER,ORDER ENTRY/RESULTS REPORTING,,,
+358,TRUE,2013-12-23,VERIFIED,64,VBEC*1*65,INFORMATIONAL,VISTA BLOOD BANK,INFORMATION ONLY,,
+359,TRUE,2013-12-24,VERIFIED,114,EC*2*121,PATCH FOR A PATCH,EVENT CAPTURE,EC_2_P121_scrubbed.ZIPs,YES,
+360,TRUE,2013-12-26,VERIFIED,14,BPS*1*15,ROUTINE,HIPAA,BPS_1_15_PSO_IB_PSX_PRCA.KIDs,YES,
+361,TRUE,2013-12-26,VERIFIED,464,IB*2*494,DATA,INTEGRATED BILLING,BPS_1_15_PSO_IB_PSX_PRCA.KIDs,YES,
+362,TRUE,2013-12-26,VERIFIED,281,PRCA*4.5*295,ROUTINE,ACCOUNTS RECEIVABLE,BPS_1_15_PSO_IB_PSX_PRCA.KIDs,YES,
+363,TRUE,2013-12-26,VERIFIED,359,PSO*7*421,DATA,OUTPATIENT PHARMACY,BPS_1_15_PSO_IB_PSX_PRCA.KIDs,YES,
+364,TRUE,2013-12-26,VERIFIED,65,PSX*2*74,ROUTINE,CMOP,BPS_1_15_PSO_IB_PSX_PRCA.KIDs,YES,
+365,TRUE,2013-12-27,VERIFIED,771,DG*5.3*875,ROUTINE,REGISTRATION,DG_53_P875.KID,,
+366,TRUE,2013-12-27,VERIFIED,89,EAS*1*114,ROUTINE,ENROLLMENT APPLICATION SYSTEM,DG_53_P875.KID,,
+367,TRUE,2013-12-27,VERIFIED,465,IB*2*514,ROUTINE,INTEGRATED BILLING,DG_53_P875.KID,,
diff --git a/Packages/VA FileMan/Testing/.gitattributes b/Packages/VA FileMan/Testing/.gitattributes
new file mode 100644
index 0000000..7debfb3
--- /dev/null
+++ b/Packages/VA FileMan/Testing/.gitattributes
@@ -0,0 +1 @@
+DMUFI* -whitespace
diff --git a/Packages/VBECS/Patches/VBEC_1.0_63/VBEC-1_SEQ-62_PAT-63.TXT b/Packages/VBECS/Patches/VBEC_1.0_63/VBEC-1_SEQ-62_PAT-63.TXT
new file mode 100644
index 0000000..54bf9f7
--- /dev/null
+++ b/Packages/VBECS/Patches/VBEC_1.0_63/VBEC-1_SEQ-62_PAT-63.TXT
@@ -0,0 +1,266 @@
+
+=============================================================================
+Run Date: OCT 28, 2013 Designation: VBEC*1*63
+Package : VBEC - VBECS Priority: Mandatory
+Version : 1 SEQ #62 Status: Released
+ Compliance Date: NOV 05, 2013
+=============================================================================
+
+
+Subject: OCTOBER 2013 WINDOWS UPDATES FOR VBECS
+
+Category:
+ - Informational
+
+Description:
+============
+
+ This patch serves to alert VA facilities using the Vista Blood
+ Establishment Computer Software (VBECS) that Microsoft Windows Updates
+ are available for immediate installation.
+
+ If the VBECS servers are serviced by a second group, i.e. a Regional
+ Data Center, it is the responsibility of the local IRM support person
+ for VBECS to ensure that all parties who need to see this Update
+ Information for 'their' VBECS system sees it. The local support should
+ follow local policies to forward such information to their Server
+ Administrators.
+
+ Sites who have not installed VBECS have no action to take with this
+ informational patch.
+
+ This patch is released with a seven (7) day compliance because the
+ updates address security vulnerabilities in Microsoft Windows. Failure
+ to comply with the installation of Windows Updates could expose the
+ VBECS servers and software to security threats.
+
+
+ BLOOD BANK CLEARANCE
+ =====================
+
+ EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch VBEC*1.0*63 contains
+ changes to a package referenced in BBM Team Review of VISTA Patches.
+ This patch does not alter or modify any VistA Blood Bank software
+ design safeguards or safety critical elements functions.
+
+ RISK ANALYSIS: Changes made by patch VBEC*1.0*63 have no effect on Blood
+ Bank software functionality, therefore RISK is none.
+
+
+ Windows Updates
+ ================
+ If your servers are maintained at a data center, ignore this section
+ since data center personnel will install updates.
+
+ The Microsoft Windows Update patches must be installed on the VBECS
+ Servers. The updates will take approximately 1 hour and 2 reboots to
+ fully install all patches. The list of updates includes:
+
+ KB951847**
+ KB2879017
+ KB2861188
+ KB2858302v2
+ KB2847311
+ KB2862330
+ KB2862335
+ KB2864058
+ KB2868038
+ KB2883150
+ KB2756918
+ KB2844285v2
+ KB2742596
+ KB2789643
+ KB2863239
+ KB2729450
+ KB2833940
+ KB2656352
+ KB2861189
+ KB2832411
+ KB961118
+ KB2861697
+ KB2840629
+ KB2736416
+ KB2604111
+ KB963707
+ KB982168***
+ KB982524***
+ KB2604092***
+ KB890830*
+ These patches appear in Add/Remove Programs after installation, but
+ not as an update:
+ KB976765
+ KB958481
+ KB977354
+ KB954550v5
+
+ Following installation of all KB security patches some additional
+ Updates will appear on the server. These updates are a result of
+ the approved KB installations and do not require verification.
+
+ *Note: Windows Update KB890830 is a malicious software removal tool
+ and does not appear in the list of applied patches after
+ installation.
+
+ **Note: This is the .NET framework 3.5 Service Pack 1 It will
+ appear in Add/Remove Programs after installation, but
+ not as an update.
+
+ ***Note: These do not appear in Add/Remove Programs after installation.
+
+ The VBECS development team must test every Microsoft Windows update. Once
+ the development team is satisfied that the update causes no adverse
+ effects, Clinical Product Support (CPS) will give the sites permission to
+ apply the update by releasing this informational patch.
+
+ Updates are approved with Windows Server Update Service. Approved updates
+ will be downloaded to your servers automatically. However, a server
+ administrator must install the updates locally.
+
+ Windows Update instructions:
+ ============================
+
+ The updates will take 1 hour to perform and require 2 reboots to install
+ all patches.
+
+ 1) Since most updates require a reboot, coordinate a time with the
+ Blood Bank manager to apply the updates. All Blood Bank users must
+ be logged off the VBECS server before updates can begin.
+
+ 2) At the agreed upon down time, log on to the VBECS cluster as a user
+ with server administrator privileges.
+
+ 3) Use the Cluster Administrator Tool to verify which node is active
+ (Windows Updates should not be installed on an active node):
+
+ a. Click on START, CONTROL PANEL, ADMINISTRATIVE TOOLS, CLUSTER
+ ADMINISTRATOR.
+ b. If the OPEN CONNECTION TO CLUSTER window appears, enter the
+ VBECS cluster name and click OK.
+ c. When Cluster Administrator has opened click on the folder titled
+ "Groups".
+ d. The server name listed on the right side under the Owner column
+ is the "Active" node.
+ e. Record the server name listed under Owner, this is the active
+ node. The other server in the VBECS cluster is the passive node.
+ f. Log off of the VBECS cluster server once the server name of the
+ active node is determined.
+
+ 4) Log on to the passive node of the VBECS cluster as a user with
+ server administrator privileges.
+
+ 5) Verify all users (other than the user installing the Windows updates)
+ are off the VBECS server (do not proceed until all users are logged
+ off):
+
+ a. Open Task Manager: click on START, RUN; Type TASKMGR and click OK.
+ b. Select the USERS tab to see the users who are logged on to the
+ server.
+ c. Right click on each user's name and click on SEND MESSAGE to send
+ a message to the user asking them to log off the system.
+ d. Wait for all users to logoff. If a user's status is Disconnected,
+ right click the user's name and click on LOG OFF.
+ e. Close TASK MANAGER after all users are logged off the server.
+
+ 6) A yellow shield shaped icon should appear in the System Tray (lower
+ right corner of desktop) indicating updates are available for
+ installation.
+
+ 7) If the yellow shield shaped icon fails to appear after waiting one
+ minute, perform the following steps:
+
+ a. Click on START, RUN.
+ b. Type WUAUCLT.EXE /DETECTNOW and click OK.
+ c. The yellow shield shaped icon can take up to 30 minutes to appear
+ after entering the WUAUCLT.EXE /DETECTNOW command.
+ d. If the icon does not appear after 30 minutes, click on START,
+ ADMINISTRATIVE TOOLS, SERVICES.
+ e. Right-click the service named "Automatic Updates" and select
+ RESTART.
+ f. If the yellow shield icon does not appear within 5 minutes,
+ contact the VA Service Desk (VASD) or file a Remedy ticket.
+
+ 8) Click on the yellow shield shaped icon in the System Tray.
+
+ 9) Leave Express Install selected. Click INSTALL.
+
+ 10) When the update process is complete, you will be prompted to reboot.
+ Reboot the server at this time.
+
+ 11) Log back on to the passive node of the VBECS cluster as a user with
+ server administrator privileges.
+
+ 12) A yellow shield shaped icon should again appear in the System
+ Tray (lower right corner of desktop) indicating more updates are
+ available for installation. If the yellow shield does not display
+ follow the steps in step #7.
+
+ 13) Click on the yellow shield shaped icon in the System Tray.
+
+ 14) Leave Express Install selected. Click INSTALL.
+
+ 15) When the update process is complete, you will be prompted to reboot
+ again. Reboot the server at this time.
+
+ 16) After the reboot is completed (this may take several minutes), log
+ on to the passive node that is now fully patched. Open the Cluster
+ Administrator tool and perform these steps in order:
+
+ a. Expand the Groups folder.
+ b. Right click the VBECS Group TEST and select TAKE OFFLINE.
+ c. Right click the VBECS Group PROD and select TAKE OFFLINE.
+ d. Right click the Group 1 and select TAKE OFFLINE.
+ e. Right click the Group 0 and select TAKE OFFLINE.
+ f. Right click on the Cluster Group and select MOVE GROUP - wait
+ until the group is ONLINE before proceeding to the next step
+ (this may take up to 5 minutes).
+ g. Right click on each remaining groups and select MOVE GROUP
+ (VBECS Group TEST, VBECS Group PROD, Group 1, and Group 0).
+ h. Right click on Group 0 and select BRING ONLINE - wait until the
+ group is ONLINE before proceeding to the next step
+ (this may take up to 5 minutes).
+ i. Right click on Group 1 and select BRING ONLINE.
+ j. Right click on VBECS Group PROD and select BRING ONLINE.
+ k. Right click on VBECS Group TEST and select BRING ONLINE.
+ l. Examine the Resources folder. All resources should be owned by the
+ server that has just been patched (making it the active node).
+ m. Close Cluster Administrator.
+
+ 17) Log off the patched server which is now the active node.
+
+ 18) Log on to the unpatched server and repeat steps 5-15.
+
+ 19) At this point, if the Server Windows Update process is complete and
+ there are no outstanding issues, notify the Blood Bank Manager that
+ the VBECS system is once again available for use. If any issues are
+ encountered, contact the VA Service Desk (VASD) or file a Remedy
+ ticket.
+
+
+ ========================================================================
+
+ NOTE: Do not change the system! The U.S. Food and Drug Administration
+ classifies this software as a medical device. Unauthorized modifications
+ will render this device an adulterated medical device under Section 501
+ of the Medical Device Amendments to the Federal Food, Drug, and Cosmetic
+ Act. Acquiring and implementing this software through the Freedom of
+ Information Act require the implementer to assume total responsibility
+ for the software and become a registered manufacturer of a medical
+ device, subject to FDA regulations. Adding to or updating VBECS software
+ without permission is prohibited.
+
+Routine Information:
+====================
+No routines included.
+
+=============================================================================
+User Information:
+Entered By : HA,THANH-HUONG HUU Date Entered : OCT 18, 2013
+Completed By: KANIA,KEVIN Date Completed: OCT 28, 2013
+Released By : CHRISTENSEN,LINDA L Date Released : OCT 28, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/VBECS/Patches/VBEC_1.0_64/VBEC-1_SEQ-63_PAT-64.TXT b/Packages/VBECS/Patches/VBEC_1.0_64/VBEC-1_SEQ-63_PAT-64.TXT
new file mode 100644
index 0000000..816f2d9
--- /dev/null
+++ b/Packages/VBECS/Patches/VBEC_1.0_64/VBEC-1_SEQ-63_PAT-64.TXT
@@ -0,0 +1,207 @@
+
+=============================================================================
+Run Date: NOV 21, 2013 Designation: VBEC*1*64
+Package : VBEC - VBECS Priority: Mandatory
+Version : 1 SEQ #63 Status: Released
+ Compliance Date: DEC 01, 2013
+=============================================================================
+
+
+Subject: NOVEMBER 2013 WINDOWS UPDATES FOR VBECS
+
+Category:
+ - Informational
+
+Description:
+============
+
+ This patch serves to alert VA facilities using the Vista Blood
+ Establishment Computer Software (VBECS) that Microsoft Windows Updates
+ are available for immediate installation.
+
+ If the VBECS servers are serviced by a second group, i.e. a Regional
+ Data Center, it is the responsibility of the local IRM support person
+ for VBECS to ensure that all parties who need to see this Update
+ Information for 'their' VBECS system sees it. The local support should
+ follow local policies to forward such information to their Server
+ Administrators.
+
+ Sites who have not installed VBECS have no action to take with this
+ informational patch.
+
+ This patch is released with a seven (7) day compliance because the
+ updates address security vulnerabilities in Microsoft Windows. Failure
+ to comply with the installation of Windows Updates could expose the
+ VBECS servers and software to security threats.
+
+
+ BLOOD BANK CLEARANCE
+ =====================
+
+ EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch VBEC*1.0*64 contains
+ changes to a package referenced in BBM Team Review of VISTA Patches.
+ This patch does not alter or modify any VistA Blood Bank software
+ design safeguards or safety critical elements functions.
+
+ RISK ANALYSIS: Changes made by patch VBEC*1.0*64 have no effect on Blood
+ Bank software functionality, therefore RISK is none.
+
+
+ Windows Updates
+ ================
+ If your servers are maintained at a data center, ignore this section
+ since data center personnel will install updates.
+
+ These Microsoft Windows Update patches must be installed on the VBECS
+ servers:
+
+
+ KB2862152
+ KB2868626
+ KB2876331
+ KB2900986
+ KB2888505
+ KB890830*
+
+ **Note: Windows Update KB890830 is a malicious software removal tool
+ and does not appear in the list of applied patches after
+ installation.
+
+ The VBECS development team must test every Microsoft Windows update. Once
+ the development team is satisfied that the update causes no adverse
+ effects, Clinical Product Support (CPS) will give the sites permission to
+ apply the update by releasing this informational patch.
+
+ Updates are approved with Windows Server Update Service. Approved updates
+ will be downloaded to your servers automatically. However, a server
+ administrator must install the updates locally.
+
+ Windows Update instructions:
+ ============================
+
+ 1) Since most updates require a reboot, coordinate a time with the
+ Blood Bank manager to apply the updates. All Blood Bank users must
+ be logged off the VBECS server before updates can begin.
+
+ 2) At the agreed upon down time, log on to the VBECS cluster as a user
+ with server administrator privileges.
+
+ 3) Use the Cluster Administrator Tool to verify which node is active
+ (Windows Updates should not be installed on an active node):
+
+ a. Click on START, CONTROL PANEL, ADMINISTRATIVE TOOLS, CLUSTER
+ ADMINISTRATOR.
+ b. If the OPEN CONNECTION TO CLUSTER window appears, enter the
+ VBECS cluster name and click OK.
+ c. When Cluster Administrator has opened click on the folder titled
+ "Groups".
+ d. The server name listed on the right side under the Owner column
+ is the "Active" node.
+ e. Record the server name listed under Owner, this is the active
+ node. The other server in the VBECS cluster is the passive node.
+ f. Log off of the VBECS cluster server once the server name of the
+ active node is determined.
+
+ 4) Log on to the passive node of the VBECS cluster as a user with
+ server administrator privileges.
+
+ 5) Verify all users (other than the user installing the Windows updates)
+ are off the VBECS server (do not proceed until all users are logged
+ off):
+
+ a. Open Task Manager: click on START, RUN; Type TASKMGR and click OK.
+ b. Select the USERS tab to see the users who are logged on to the
+ server.
+ c. Right click on each user's name and click on SEND MESSAGE to send
+ a message to the user asking them to log off the system.
+ d. Wait for all users to logoff. If a user's status is Disconnected,
+ right click the user's name and click on LOG OFF.
+ e. Close TASK MANAGER after all users are logged off the server.
+
+ 6) A yellow shield shaped icon should appear in the System Tray (lower
+ right corner of desktop) indicating updates are available for
+ installation.
+
+ 7) If the yellow shield shaped icon fails to appear after waiting one
+ minute, perform the following steps:
+
+ a. Click on START, RUN.
+ b. Type WUAUCLT.EXE /DETECTNOW and click OK.
+ c. The yellow shield shaped icon can take up to 30 minutes to appear
+ after entering the WUAUCLT.EXE /DETECTNOW command.
+ d. If the icon does not appear after 30 minutes, click on START,
+ ADMINISTRATIVE TOOLS, SERVICES.
+ e. Right-click the service named "Automatic Updates" and select
+ RESTART.
+ f. If the yellow shield icon does not appear within 5 minutes,
+ contact the VA Service Desk (VASD) or file a Remedy ticket.
+ 8) Click on the yellow shield shaped icon in the System Tray.
+
+ 9) Leave Express Install selected. Click INSTALL.
+
+ 10) When the update process is complete, you may be prompted to reboot.
+ Reboot the server at this time.
+
+ 11) After the reboot is completed (this may take several minutes), log
+ on to the passive node that is now fully patched. Open the Cluster
+ Administrator tool and perform these steps in order:
+
+ a. Expand the Groups folder.
+ b. Right click the VBECS Group TEST and select TAKE OFFLINE.
+ c. Right click the VBECS Group PROD and select TAKE OFFLINE.
+ d. Right click the Group 1 and select TAKE OFFLINE.
+ e. Right click the Group 0 and select TAKE OFFLINE.
+ f. Right click on the Cluster Group and select MOVE GROUP - wait
+ until the group is ONLINE before proceeding to the next step
+ (this may take up to 5 minutes).
+ g. Right click on each remaining groups and select MOVE GROUP
+ (VBECS Group TEST, VBECS Group PROD, Group 1, and Group 0).
+ h. Right click on Group 0 and select BRING ONLINE - wait until the
+ group is ONLINE before proceeding to the next step
+ (this may take up to 5 minutes).
+ i. Right click on Group 1 and select BRING ONLINE.
+ j. Right click on VBECS Group PROD and select BRING ONLINE.
+ k. Right click on VBECS Group TEST and select BRING ONLINE.
+ l. Examine the Resources folder. All resources should be owned by the
+ server that has just been patched (making it the active node).
+ m. Close Cluster Administrator.
+
+ 12) Log off the patched server which is now the active node.
+
+ 13) Log on to the unpatched server and repeat steps 5-10.
+
+ 14) At this point, if the Server Windows Update process is complete and
+ there are no outstanding issues, notify the Blood Bank Manager that
+ the VBECS system is once again available for use. If any issues are
+ encountered, contact the VA Service Desk (VASD) or file a Remedy
+ ticket.
+
+
+ ========================================================================
+
+ NOTE: Do not change the system! The U.S. Food and Drug Administration
+ classifies this software as a medical device. Unauthorized modifications
+ will render this device an adulterated medical device under Section 501
+ of the Medical Device Amendments to the Federal Food, Drug, and Cosmetic
+ Act. Acquiring and implementing this software through the Freedom of
+ Information Act require the implementer to assume total responsibility
+ for the software and become a registered manufacturer of a medical
+ device, subject to FDA regulations. Adding to or updating VBECS software
+ without permission is prohibited.
+
+Routine Information:
+====================
+No routines included.
+
+=============================================================================
+User Information:
+Entered By : ROBERTS,JERILYN Date Entered : NOV 20, 2013
+Completed By: MORTON,RANDY Date Completed: NOV 20, 2013
+Released By : KACHEL,MARY KAY Date Released : NOV 21, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Packages/Virtual Patient Record/Patches/VPR_1.0_2/VPR-1_SEQ-2_PAT-2.KIDS b/Packages/Virtual Patient Record/Patches/VPR_1.0_2/VPR-1_SEQ-2_PAT-2.KIDS
new file mode 100644
index 0000000..74399b2
--- /dev/null
+++ b/Packages/Virtual Patient Record/Patches/VPR_1.0_2/VPR-1_SEQ-2_PAT-2.KIDS
@@ -0,0 +1,10556 @@
+Released VPR*1*2 SEQ #2
+Extracted from mail message
+**KIDS**:VPR*1.0*2^
+
+**INSTALL NAME**
+VPR*1.0*2
+"BLD",8071,0)
+VPR*1.0*2^VIRTUAL PATIENT RECORD^0^3130910^y
+"BLD",8071,1,0)
+^9.61A^2^2^3120924^^^^
+"BLD",8071,1,1,0)
+The Virtual Patient Record (VPR) data extract RPC, which returns data
+"BLD",8071,1,2,0)
+from the local VistA system, is updated in this patch.
+"BLD",8071,4,0)
+^9.64PA^^0
+"BLD",8071,6.3)
+317
+"BLD",8071,"ABPKG")
+n
+"BLD",8071,"INI")
+
+"BLD",8071,"INIT")
+POST^VPRP2I
+"BLD",8071,"KRN",0)
+^9.67PA^779.2^20
+"BLD",8071,"KRN",.4,0)
+.4
+"BLD",8071,"KRN",.4,"NM",0)
+^9.68A^^
+"BLD",8071,"KRN",.401,0)
+.401
+"BLD",8071,"KRN",.402,0)
+.402
+"BLD",8071,"KRN",.403,0)
+.403
+"BLD",8071,"KRN",.5,0)
+.5
+"BLD",8071,"KRN",.84,0)
+.84
+"BLD",8071,"KRN",3.6,0)
+3.6
+"BLD",8071,"KRN",3.8,0)
+3.8
+"BLD",8071,"KRN",9.2,0)
+9.2
+"BLD",8071,"KRN",9.8,0)
+9.8
+"BLD",8071,"KRN",9.8,"NM",0)
+^9.68A^37^32
+"BLD",8071,"KRN",9.8,"NM",2,0)
+VPRDJ^^0^B22186238
+"BLD",8071,"KRN",9.8,"NM",3,0)
+VPRDJ0^^0^B87481337
+"BLD",8071,"KRN",9.8,"NM",4,0)
+VPRDJ01^^0^B39474581
+"BLD",8071,"KRN",9.8,"NM",5,0)
+VPRDJ02^^0^B43626306
+"BLD",8071,"KRN",9.8,"NM",6,0)
+VPRDJ03^^0^B49743518
+"BLD",8071,"KRN",9.8,"NM",7,0)
+VPRDJ04^^0^B47678729
+"BLD",8071,"KRN",9.8,"NM",8,0)
+VPRDJ05^^0^B76359424
+"BLD",8071,"KRN",9.8,"NM",9,0)
+VPRDJ06^^0^B49853799
+"BLD",8071,"KRN",9.8,"NM",10,0)
+VPRDJ07^^0^B19635784
+"BLD",8071,"KRN",9.8,"NM",11,0)
+VPRDJ08^^0^B60175705
+"BLD",8071,"KRN",9.8,"NM",12,0)
+VPRDJ09^^0^B37647658
+"BLD",8071,"KRN",9.8,"NM",14,0)
+VPRJSON^^0^B11235996
+"BLD",8071,"KRN",9.8,"NM",15,0)
+VPRJSOND^^0^B63619549
+"BLD",8071,"KRN",9.8,"NM",16,0)
+VPRJSONE^^0^B20857447
+"BLD",8071,"KRN",9.8,"NM",17,0)
+VPRUTILS^^0^B9723974
+"BLD",8071,"KRN",9.8,"NM",18,0)
+VPRDJ05V^^0^B45875553
+"BLD",8071,"KRN",9.8,"NM",21,0)
+VPRDJ00^^0^B58623073
+"BLD",8071,"KRN",9.8,"NM",22,0)
+VPRDMDC^^0^B58663659
+"BLD",8071,"KRN",9.8,"NM",23,0)
+VPRDCRC^^0^B46793433
+"BLD",8071,"KRN",9.8,"NM",24,0)
+VPRDJ04A^^0^B36420588
+"BLD",8071,"KRN",9.8,"NM",25,0)
+VPRDJ08A^^0^B39219672
+"BLD",8071,"KRN",9.8,"NM",27,0)
+VPRD^^0^B29175301
+"BLD",8071,"KRN",9.8,"NM",28,0)
+VPRDGMPL^^0^B27827751
+"BLD",8071,"KRN",9.8,"NM",29,0)
+VPRDLRA^^0^B76865545
+"BLD",8071,"KRN",9.8,"NM",30,0)
+VPRDTIU^^0^B81103735
+"BLD",8071,"KRN",9.8,"NM",31,0)
+VPRDVSIT^^0^B89271062
+"BLD",8071,"KRN",9.8,"NM",32,0)
+VPRDJT^^0^B9998610
+"BLD",8071,"KRN",9.8,"NM",33,0)
+VPRDMC^^0^B58353015
+"BLD",8071,"KRN",9.8,"NM",34,0)
+VPRP2I^^0^B236349
+"BLD",8071,"KRN",9.8,"NM",35,0)
+VPRDLR^^0^B24009801
+"BLD",8071,"KRN",9.8,"NM",36,0)
+VPRDLRO^^0^B27947758
+"BLD",8071,"KRN",9.8,"NM",37,0)
+VPRDPXIM^^0^B15866293
+"BLD",8071,"KRN",9.8,"NM","B","VPRD",27)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDCRC",23)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDGMPL",28)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ",2)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ0",3)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ00",21)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ01",4)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ02",5)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ03",6)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ04",7)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ04A",24)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ05",8)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ05V",18)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ06",9)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ07",10)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ08",11)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ08A",25)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJ09",12)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDJT",32)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDLR",35)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDLRA",29)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDLRO",36)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDMC",33)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDMDC",22)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDPXIM",37)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDTIU",30)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRDVSIT",31)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRJSON",14)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRJSOND",15)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRJSONE",16)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRP2I",34)
+
+"BLD",8071,"KRN",9.8,"NM","B","VPRUTILS",17)
+
+"BLD",8071,"KRN",19,0)
+19
+"BLD",8071,"KRN",19,"NM",0)
+^9.68A^1^1
+"BLD",8071,"KRN",19,"NM",1,0)
+VPR TEST JSON^^0
+"BLD",8071,"KRN",19,"NM","B","VPR TEST JSON",1)
+
+"BLD",8071,"KRN",19.1,0)
+19.1
+"BLD",8071,"KRN",19.1,"NM",0)
+^9.68A^^0
+"BLD",8071,"KRN",101,0)
+101
+"BLD",8071,"KRN",101,"NM",0)
+^9.68A^^0
+"BLD",8071,"KRN",409.61,0)
+409.61
+"BLD",8071,"KRN",771,0)
+771
+"BLD",8071,"KRN",779.2,0)
+779.2
+"BLD",8071,"KRN",870,0)
+870
+"BLD",8071,"KRN",8989.51,0)
+8989.51
+"BLD",8071,"KRN",8989.51,"NM",0)
+^9.68A^3^3
+"BLD",8071,"KRN",8989.51,"NM",1,0)
+VPR OBS VIEW TYPE^^0
+"BLD",8071,"KRN",8989.51,"NM",2,0)
+VPR VERSION^^0
+"BLD",8071,"KRN",8989.51,"NM",3,0)
+VPR SYSTEM NAME^^0
+"BLD",8071,"KRN",8989.51,"NM","B","VPR OBS VIEW TYPE",1)
+
+"BLD",8071,"KRN",8989.51,"NM","B","VPR SYSTEM NAME",3)
+
+"BLD",8071,"KRN",8989.51,"NM","B","VPR VERSION",2)
+
+"BLD",8071,"KRN",8989.52,0)
+8989.52
+"BLD",8071,"KRN",8994,0)
+8994
+"BLD",8071,"KRN",8994,"NM",0)
+^9.68A^17^2
+"BLD",8071,"KRN",8994,"NM",16,0)
+VPR GET PATIENT DATA JSON^^0
+"BLD",8071,"KRN",8994,"NM",17,0)
+VPR GET CHECKSUM^^0
+"BLD",8071,"KRN",8994,"NM","B","VPR GET CHECKSUM",17)
+
+"BLD",8071,"KRN",8994,"NM","B","VPR GET PATIENT DATA JSON",16)
+
+"BLD",8071,"KRN","B",.4,.4)
+
+"BLD",8071,"KRN","B",.401,.401)
+
+"BLD",8071,"KRN","B",.402,.402)
+
+"BLD",8071,"KRN","B",.403,.403)
+
+"BLD",8071,"KRN","B",.5,.5)
+
+"BLD",8071,"KRN","B",.84,.84)
+
+"BLD",8071,"KRN","B",3.6,3.6)
+
+"BLD",8071,"KRN","B",3.8,3.8)
+
+"BLD",8071,"KRN","B",9.2,9.2)
+
+"BLD",8071,"KRN","B",9.8,9.8)
+
+"BLD",8071,"KRN","B",19,19)
+
+"BLD",8071,"KRN","B",19.1,19.1)
+
+"BLD",8071,"KRN","B",101,101)
+
+"BLD",8071,"KRN","B",409.61,409.61)
+
+"BLD",8071,"KRN","B",771,771)
+
+"BLD",8071,"KRN","B",779.2,779.2)
+
+"BLD",8071,"KRN","B",870,870)
+
+"BLD",8071,"KRN","B",8989.51,8989.51)
+
+"BLD",8071,"KRN","B",8989.52,8989.52)
+
+"BLD",8071,"KRN","B",8994,8994)
+
+"BLD",8071,"PRE")
+
+"BLD",8071,"QUES",0)
+^9.62^^
+"BLD",8071,"REQB",0)
+^9.611^1^1
+"BLD",8071,"REQB",1,0)
+VPR*1.0*1^2
+"BLD",8071,"REQB","B","VPR*1.0*1",1)
+
+"INIT")
+POST^VPRP2I
+"KRN",19,14102,-1)
+0^1
+"KRN",19,14102,0)
+VPR TEST JSON^View JSON results^^R^^^^^^^^VIRTUAL PATIENT RECORD
+"KRN",19,14102,1,0)
+^^2^2^3130723^
+"KRN",19,14102,1,1,0)
+This option provides a way to run the VPR GET PATIENT DATA JSON remote
+"KRN",19,14102,1,2,0)
+procedure call from within VistA and view the results onscreen.
+"KRN",19,14102,25)
+EN^VPRDJT
+"KRN",19,14102,"U")
+VIEW JSON RESULTS
+"KRN",8989.5,17299,0)
+571;DIC(9.4,^VPR VERSION^1
+"KRN",8989.5,17299,1)
+1.02
+"KRN",8989.51,671,-1)
+0^1
+"KRN",8989.51,671,0)
+VPR OBS VIEW TYPE^Observation View Type^1^GUID
+"KRN",8989.51,671,1)
+S^IV:IV;F:Foley;D:Drain;V:Vitals;I:I&O^Select the type of item described in this view.
+"KRN",8989.51,671,6)
+F^1:40^Enter the GUID for this observation view.
+"KRN",8989.51,671,20,0)
+^8989.512^2^2^3130806^^
+"KRN",8989.51,671,20,1,0)
+This parameter will assign a type to those groups of observations,
+"KRN",8989.51,671,20,2,0)
+or views, in CLiO that describe an instance of catheter care.
+"KRN",8989.51,671,30,0)
+^8989.513I^1^1
+"KRN",8989.51,671,30,1,0)
+1^4.2
+"KRN",8989.51,672,-1)
+0^2
+"KRN",8989.51,672,0)
+VPR VERSION^VPR Version^^^Version:
+"KRN",8989.51,672,1)
+N^1:99:2^Enter the current version number of the VPR data extracts.
+"KRN",8989.51,672,20,0)
+^^3^3^3130723^
+"KRN",8989.51,672,20,1,0)
+This parameter holds the current version number of the Virtual Patient
+"KRN",8989.51,672,20,2,0)
+Record (VPR) data extract RPC's, in the form V.PP where V is the
+"KRN",8989.51,672,20,3,0)
+package version number and PP is the latest patch number.
+"KRN",8989.51,672,30,0)
+^8989.513I^1^1
+"KRN",8989.51,672,30,1,0)
+1^9.4
+"KRN",8989.51,673,-1)
+0^3
+"KRN",8989.51,673,0)
+VPR SYSTEM NAME^Hashed System Name
+"KRN",8989.51,673,1)
+F^1:10^Enter the CRC hashed name for this system.
+"KRN",8989.51,673,20,0)
+^^3^3^3130905^
+"KRN",8989.51,673,20,1,0)
+This parameter holds the name of this VistA system, as a hashed base 16
+"KRN",8989.51,673,20,2,0)
+value. It is calculated by a VPR patch post-init and stuffed into the
+"KRN",8989.51,673,20,3,0)
+SYStem level value, and should NOT be modified.
+"KRN",8989.51,673,30,0)
+^8989.513I^1^1
+"KRN",8989.51,673,30,1,0)
+1^4.2
+"KRN",8994,2930,-1)
+0^16
+"KRN",8994,2930,0)
+VPR GET PATIENT DATA JSON^GET^VPRDJ^4^S^^^0^1^^1
+"KRN",8994,2930,1,0)
+^8994.01^2^2^3121003^^^^
+"KRN",8994,2930,1,1,0)
+This RPC retrieves the requested data from VistA, and returns it in
+"KRN",8994,2930,1,2,0)
+^TMP("VPR",$J,n) as JSON.
+"KRN",8994,2930,2,0)
+^8994.02A^1^1
+"KRN",8994,2930,2,1,0)
+FILTER^2^^0^1
+"KRN",8994,2930,2,1,1,0)
+^8994.021^1^1^3120629^^^^
+"KRN",8994,2930,2,1,1,1,0)
+List of name-value pairs defining the search.
+"KRN",8994,2930,2,"B","FILTER",1)
+
+"KRN",8994,2930,2,"PARAMSEQ",1,1)
+
+"KRN",8994,2930,3,0)
+^8994.03^1^1^3120629^^^^
+"KRN",8994,2930,3,1,0)
+Text array formatted as JSON
+"KRN",8994,2956,-1)
+0^17
+"KRN",8994,2956,0)
+VPR GET CHECKSUM^CHECK^VPRDCRC^4^S^^^0^1^^1
+"KRN",8994,2956,1,0)
+^8994.01^1^1^3130418^^^^
+"KRN",8994,2956,1,1,0)
+This RPC retrieves the requested data from VistA and returns its checksum.
+"KRN",8994,2956,2,0)
+^8994.02A^1^1
+"KRN",8994,2956,2,1,0)
+FILTER^2^^0^1
+"KRN",8994,2956,2,1,1,0)
+^8994.021^1^1^3130418^^^^
+"KRN",8994,2956,2,1,1,1,0)
+List of name-value pairs defining the search.
+"KRN",8994,2956,2,"B","FILTER",1)
+
+"KRN",8994,2956,2,"PARAMSEQ",1,1)
+
+"KRN",8994,2956,3,0)
+^8994.03^1^1^3130418^^^^
+"KRN",8994,2956,3,1,0)
+The CRC32 checksum value of the data.
+"MBREQ")
+0
+"ORD",16,8994)
+8994;16;1;;;;;;;RPCDEL^XPDIA1
+"ORD",16,8994,0)
+REMOTE PROCEDURE
+"ORD",18,19)
+19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
+"ORD",18,19,0)
+OPTION
+"ORD",20,8989.51)
+8989.51;20;;;PAR1E1^XPDTA2;PAR1F1^XPDIA3;PAR1E1^XPDIA3;PAR1F2^XPDIA3;;PAR1DEL^XPDIA3(%)
+"ORD",20,8989.51,0)
+PARAMETER DEFINITION
+"PKG",571,-1)
+1^1
+"PKG",571,0)
+VIRTUAL PATIENT RECORD^VPR^Utilities to manage a virtual copy of the patient record
+"PKG",571,20,0)
+^9.402P^^
+"PKG",571,22,0)
+^9.49I^1^1
+"PKG",571,22,1,0)
+1.0^3110804^3110525^1085
+"PKG",571,22,1,"PAH",1,0)
+2^3130910^1086
+"PKG",571,22,1,"PAH",1,1,0)
+^^2^2^3130910
+"PKG",571,22,1,"PAH",1,1,1,0)
+The Virtual Patient Record (VPR) data extract RPC, which returns data
+"PKG",571,22,1,"PAH",1,1,2,0)
+from the local VistA system, is updated in this patch.
+"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")
+32
+"RTN","VPRD")
+0^27^B29175301^B28899728
+"RTN","VPRD",1,0)
+VPRD ;SLC/MKB -- Serve VistA data as XML via RPC ;8/2/11 15:29
+"RTN","VPRD",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**1,2**;Sep 01, 2011;Build 317
+"RTN","VPRD",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRD",4,0)
+ ;
+"RTN","VPRD",5,0)
+ ; External References DBIA#
+"RTN","VPRD",6,0)
+ ; ------------------- -----
+"RTN","VPRD",7,0)
+ ; ^DPT 10035
+"RTN","VPRD",8,0)
+ ; ^SC 10040
+"RTN","VPRD",9,0)
+ ; DIQ 2056
+"RTN","VPRD",10,0)
+ ; MPIF001 2701
+"RTN","VPRD",11,0)
+ ; VASITE 10112
+"RTN","VPRD",12,0)
+ ; XLFDT 10103
+"RTN","VPRD",13,0)
+ ; XLFSTR 10104
+"RTN","VPRD",14,0)
+ ; XPAR 2263
+"RTN","VPRD",15,0)
+ ; XUAF4 2171
+"RTN","VPRD",16,0)
+ ;
+"RTN","VPRD",17,0)
+GET(VPR,DFN,TYPE,START,STOP,MAX,ID,FILTER) ; -- Return search results as XML in @VPR@(n)
+"RTN","VPRD",18,0)
+ ; RPC = VPR GET PATIENT DATA
+"RTN","VPRD",19,0)
+ N ICN,VPRI,VPRTOTL,VPRTEXT
+"RTN","VPRD",20,0)
+ S VPR=$NA(^TMP("VPR",$J)) K @VPR
+"RTN","VPRD",21,0)
+ S VPRTEXT=+$G(FILTER("text")) ;include report/document text?
+"RTN","VPRD",22,0)
+ ;
+"RTN","VPRD",23,0)
+ ; parse & validate input parameters
+"RTN","VPRD",24,0)
+ S ICN=+$P($G(DFN),";",2),DFN=+$G(DFN),ID=$G(ID)
+"RTN","VPRD",25,0)
+ I DFN<1,ICN S DFN=+$$GETDFN^MPIF001(ICN)
+"RTN","VPRD",26,0)
+ S TYPE=$$LOW^XLFSTR($G(TYPE)) I TYPE="" S TYPE=$$ALL
+"RTN","VPRD",27,0)
+ I TYPE'="new",DFN<1!'$D(^DPT(DFN)) D ERR(1,DFN) G GTQ
+"RTN","VPRD",28,0)
+ S:'$G(START) START=1410102 S:'$G(STOP) STOP=4141015 S:'$G(MAX) MAX=9999
+"RTN","VPRD",29,0)
+ I START,STOP,STOP<START N X S X=START,START=STOP,STOP=X ;switch
+"RTN","VPRD",30,0)
+ I STOP,$L(STOP,".")<2 S STOP=STOP_".24"
+"RTN","VPRD",31,0)
+ I ID="",$D(FILTER("id")) S ID=FILTER("id")
+"RTN","VPRD",32,0)
+ ;
+"RTN","VPRD",33,0)
+ ; extract data
+"RTN","VPRD",34,0)
+ N VPRTYPE,VPRP,VPRHDR,VPRTAG,VPRTN
+"RTN","VPRD",35,0)
+ S VPRTYPE=TYPE D ADD("<results version='1.1' timeZone='"_$$TZ^XLFDT_"' >")
+"RTN","VPRD",36,0)
+ F VPRP=1:1:$L(VPRTYPE,";") S VPRTAG=$P(VPRTYPE,";",VPRP) I $L(VPRTAG) D
+"RTN","VPRD",37,0)
+ . S VPRTN="EN^"_$$RTN(.VPRTAG) Q:'$L($T(@VPRTN)) ;D ERR(2) Q
+"RTN","VPRD",38,0)
+ . D ADD("<"_VPRTAG) S VPRHDR=VPRI,VPRTOTL=0
+"RTN","VPRD",39,0)
+ . D @(VPRTN_"(DFN,START,STOP,MAX,ID)")
+"RTN","VPRD",40,0)
+ . S @VPR@(VPRHDR)=@VPR@(VPRHDR)_" total='"_+$G(VPRTOTL)_"' >" D ADD("</"_VPRTAG_">")
+"RTN","VPRD",41,0)
+ D ADD("</results>")
+"RTN","VPRD",42,0)
+ ;
+"RTN","VPRD",43,0)
+GTQ ; end
+"RTN","VPRD",44,0)
+ Q
+"RTN","VPRD",45,0)
+ ;
+"RTN","VPRD",46,0)
+RTN(X) ; -- Return name of VPRDxxxx routine for clinical domain X
+"RTN","VPRD",47,0)
+ ; X is also enforced as expected group tag name, if passed by ref
+"RTN","VPRD",48,0)
+ N Y S Y="VPRD",X=$G(X) I X="" Q Y
+"RTN","VPRD",49,0)
+ I X["accession" S Y="VPRDLRA",X="accessions"
+"RTN","VPRD",50,0)
+ I X["allerg" S Y="VPRDGMRA",X="reactions"
+"RTN","VPRD",51,0)
+ I X["appointment" S Y="VPRDSDAM",X="appointments"
+"RTN","VPRD",52,0)
+ I X["clinicalProc" S Y="VPRDMC",X="clinicalProcedures"
+"RTN","VPRD",53,0)
+ I X["consult" S Y="VPRDGMRC",X="consults"
+"RTN","VPRD",54,0)
+ I X["demograph" S Y="VPRDPT",X="demographics"
+"RTN","VPRD",55,0)
+ I X["document" S Y="VPRDTIU",X="documents"
+"RTN","VPRD",56,0)
+ I X["factor" S Y="VPRDPXHF",X="healthFactors"
+"RTN","VPRD",57,0)
+ I X["flag" S Y="VPRDGPF",X="flags"
+"RTN","VPRD",58,0)
+ I X["immunization" S Y="VPRDPXIM",X="immunizations"
+"RTN","VPRD",59,0)
+ I X["skin" S Y="VPRDPXSK",X="skinTests"
+"RTN","VPRD",60,0)
+ I X?1"exam".E S Y="VPRDPXAM",X="exams"
+"RTN","VPRD",61,0)
+ I X["educat" S Y="VPRDPXED",X="educationTopics"
+"RTN","VPRD",62,0)
+ I X["insur" S Y="VPRDIB",X="insurancePolicies"
+"RTN","VPRD",63,0)
+ I X["polic" S Y="VPRDIB",X="insurancePolicies"
+"RTN","VPRD",64,0)
+ I X["lab" S Y="VPRDLR",X="labs"
+"RTN","VPRD",65,0)
+ I X["panel" S Y="VPRDLRO",X="panels"
+"RTN","VPRD",66,0)
+ I X["med" S Y="VPRDPS",X="meds"
+"RTN","VPRD",67,0)
+ I X["pharm" S Y="VPRDPSOR",X="meds"
+"RTN","VPRD",68,0)
+ I X["observ" S Y="VPRDMDC",X="observations"
+"RTN","VPRD",69,0)
+ I X["order" S Y="VPRDOR",X="orders"
+"RTN","VPRD",70,0)
+ I X["patient" S Y="VPRDPT",X="demographics"
+"RTN","VPRD",71,0)
+ I X["problem" S Y="VPRDGMPL",X="problems"
+"RTN","VPRD",72,0)
+ I X["procedure" S Y="VPRDPROC",X="procedures"
+"RTN","VPRD",73,0)
+ I X["reaction" S Y="VPRDGMRA",X="reactions"
+"RTN","VPRD",74,0)
+ I X["surg" S Y="VPRDSR",X="surgeries"
+"RTN","VPRD",75,0)
+ I X["visit" S Y="VPRDVSIT",X="visits"
+"RTN","VPRD",76,0)
+ I X["vital" S Y="VPRDGMV",X="vitals"
+"RTN","VPRD",77,0)
+ I X["rad" S Y="VPRDRA",X="radiologyExams"
+"RTN","VPRD",78,0)
+ I X["xray" S Y="VPRDRA",X="radiologyExams"
+"RTN","VPRD",79,0)
+ ; X["new" S Y="VPRDX",X="patients"
+"RTN","VPRD",80,0)
+ Q Y
+"RTN","VPRD",81,0)
+ ;
+"RTN","VPRD",82,0)
+TAG(X) ; -- return plural name for group tags
+"RTN","VPRD",83,0)
+ N Y S:X'?1.L X=$$LOW^XLFSTR(X)
+"RTN","VPRD",84,0)
+ I $E(X,$L(X))="s" S Y=X
+"RTN","VPRD",85,0)
+ I $E(X,$L(X))="y" S Y=$E(X,1,$L(X)-1)_"ies"
+"RTN","VPRD",86,0)
+ E S Y=X_"s"
+"RTN","VPRD",87,0)
+ Q Y
+"RTN","VPRD",88,0)
+ ;
+"RTN","VPRD",89,0)
+ALL() ; -- return string for all types of data
+"RTN","VPRD",90,0)
+ Q "demographics;reactions;problems;vitals;labs;meds;immunizations;observation;visits;appointments;documents;procedures;consults;flags;factors;skinTests;exams;education;insurance"
+"RTN","VPRD",91,0)
+ ;
+"RTN","VPRD",92,0)
+ERR(X,VAL) ; -- return error message
+"RTN","VPRD",93,0)
+ N MSG S MSG="Error"
+"RTN","VPRD",94,0)
+ I X=1 S MSG="Patient with dfn '"_$G(VAL)_"' not found"
+"RTN","VPRD",95,0)
+ I X=2 S MSG="Requested domain type '"_$G(VAL)_"' not recognized"
+"RTN","VPRD",96,0)
+ I X=99 S MSG="Unknown request"
+"RTN","VPRD",97,0)
+ ;
+"RTN","VPRD",98,0)
+ D ADD("<error>")
+"RTN","VPRD",99,0)
+ D ADD("<message>"_MSG_"</message>")
+"RTN","VPRD",100,0)
+ D ADD("</error>")
+"RTN","VPRD",101,0)
+ Q
+"RTN","VPRD",102,0)
+ ;
+"RTN","VPRD",103,0)
+ESC(X) ; -- escape outgoing XML
+"RTN","VPRD",104,0)
+ ; Q $ZCONVERT(X,"O","HTML") ; uncomment for fastest performance on Cache
+"RTN","VPRD",105,0)
+ ;
+"RTN","VPRD",106,0)
+ N I,Y,QOT S QOT=""""
+"RTN","VPRD",107,0)
+ S Y=$P(X,"&") F I=2:1:$L(X,"&") S Y=Y_"&"_$P(X,"&",I)
+"RTN","VPRD",108,0)
+ S X=Y,Y=$P(X,"<") F I=2:1:$L(X,"<") S Y=Y_"<"_$P(X,"<",I)
+"RTN","VPRD",109,0)
+ S X=Y,Y=$P(X,">") F I=2:1:$L(X,">") S Y=Y_">"_$P(X,">",I)
+"RTN","VPRD",110,0)
+ S X=Y,Y=$P(X,"'") F I=2:1:$L(X,"'") S Y=Y_"'"_$P(X,"'",I)
+"RTN","VPRD",111,0)
+ S X=Y,Y=$P(X,QOT) F I=2:1:$L(X,QOT) S Y=Y_"""_$P(X,QOT,I)
+"RTN","VPRD",112,0)
+ Q Y
+"RTN","VPRD",113,0)
+ ;
+"RTN","VPRD",114,0)
+ADD(X) ; Add a line @VPR@(n)=X
+"RTN","VPRD",115,0)
+ S VPRI=$G(VPRI)+1
+"RTN","VPRD",116,0)
+ S @VPR@(VPRI)=X
+"RTN","VPRD",117,0)
+ Q
+"RTN","VPRD",118,0)
+ ;
+"RTN","VPRD",119,0)
+STRING(ARRAY) ; -- Return text in ARRAY(n) or ARRAY(n,0) as a string
+"RTN","VPRD",120,0)
+ N I,X,Y S Y=""
+"RTN","VPRD",121,0)
+ S I=+$O(ARRAY("")) I I=0 S I=+$O(ARRAY(0))
+"RTN","VPRD",122,0)
+ S Y=$S($D(ARRAY(I,0)):ARRAY(I,0),1:$G(ARRAY(I)))
+"RTN","VPRD",123,0)
+ F S I=$O(ARRAY(I)) Q:I<1 D
+"RTN","VPRD",124,0)
+ . S X=$S($D(ARRAY(I,0)):ARRAY(I,0),1:ARRAY(I))
+"RTN","VPRD",125,0)
+ . I $E(X)=" " S Y=Y_$C(13,10)_X Q
+"RTN","VPRD",126,0)
+ . S Y=Y_$S($E(Y,$L(Y))=" ":"",1:" ")_X
+"RTN","VPRD",127,0)
+ Q Y
+"RTN","VPRD",128,0)
+ ;
+"RTN","VPRD",129,0)
+FAC(X) ; -- return Institution file station# for location X
+"RTN","VPRD",130,0)
+ N HLOC,FAC,Y0,Y S Y=""
+"RTN","VPRD",131,0)
+ S HLOC=$G(^SC(+$G(X),0)),FAC=$P(HLOC,U,4)
+"RTN","VPRD",132,0)
+ ; Get P:4 via Med Ctr Div, if not directly linked
+"RTN","VPRD",133,0)
+ I 'FAC,$P(HLOC,U,15) S FAC=$$GET1^DIQ(44,+$G(X)_",","3.5:.07","I")
+"RTN","VPRD",134,0)
+ S Y0=$S(FAC:$$NS^XUAF4(FAC),1:$P($$SITE^VASITE,U,2,3)) ;name^stn#
+"RTN","VPRD",135,0)
+ S:$L(Y0) Y=$P(Y0,U,2)_U_$P(Y0,U) ;switch to stn#^name
+"RTN","VPRD",136,0)
+ I $L(Y),'Y S $P(Y,U)=FAC
+"RTN","VPRD",137,0)
+ Q Y
+"RTN","VPRD",138,0)
+ ;
+"RTN","VPRD",139,0)
+VUID(IEN,FILE) ; -- Return VUID for item
+"RTN","VPRD",140,0)
+ Q $$GET1^DIQ(FILE,IEN_",",99.99)
+"RTN","VPRD",141,0)
+ ;
+"RTN","VPRD",142,0)
+VERSION(RET) ; -- Return current version of data extracts
+"RTN","VPRD",143,0)
+ S RET=$$GET^XPAR("ALL","VPR VERSION")
+"RTN","VPRD",144,0)
+ Q
+"RTN","VPRDCRC")
+0^23^B46793433^n/a
+"RTN","VPRDCRC",1,0)
+VPRDCRC ;SLC/MKB,AGP -- Compute CRC32 for VistA data ;7/26/13 11:09am
+"RTN","VPRDCRC",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDCRC",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDCRC",4,0)
+ ;
+"RTN","VPRDCRC",5,0)
+ ; External References DBIA#
+"RTN","VPRDCRC",6,0)
+ ; ------------------- -----
+"RTN","VPRDCRC",7,0)
+ ; ^DPT 10035
+"RTN","VPRDCRC",8,0)
+ ; %ZTLOAD 10063
+"RTN","VPRDCRC",9,0)
+ ; MPIF001 2701
+"RTN","VPRDCRC",10,0)
+ ; XLFCRC 3156
+"RTN","VPRDCRC",11,0)
+ ; XLFDT 10103
+"RTN","VPRDCRC",12,0)
+ ;
+"RTN","VPRDCRC",13,0)
+CHECK(VPRCRC,FILTER) ; -- Return CRC32 checksums of VistA data
+"RTN","VPRDCRC",14,0)
+ ; RPC = VPR GET CHECKSUM
+"RTN","VPRDCRC",15,0)
+ ; where FILTER("system") = name of calling/client system
+"RTN","VPRDCRC",16,0)
+ ; FILTER("patientId") = DFN or DFN;ICN
+"RTN","VPRDCRC",17,0)
+ ; FILTER("domain") = name of desired data type (see VPRDJ0)
+"RTN","VPRDCRC",18,0)
+ ; FILTER("uid") = single item id to return [opt]
+"RTN","VPRDCRC",19,0)
+ ; FILTER("start") = start date.time of search [opt]
+"RTN","VPRDCRC",20,0)
+ ; FILTER("stop") = stop date.time of search [opt]
+"RTN","VPRDCRC",21,0)
+ ; FILTER("queued") = true or false
+"RTN","VPRDCRC",22,0)
+ ;
+"RTN","VPRDCRC",23,0)
+ ; VPRCRC returns the name of the ^TMP array containing the results
+"RTN","VPRDCRC",24,0)
+ ;
+"RTN","VPRDCRC",25,0)
+ N DFN,NODE,QUEUED,SYS,VPRSYS
+"RTN","VPRDCRC",26,0)
+ K ^TMP("VPRDCRC",$J),VPRCRC
+"RTN","VPRDCRC",27,0)
+ S SYS=$G(FILTER("system")) I SYS="" Q
+"RTN","VPRDCRC",28,0)
+ S DFN=$G(FILTER("patientId")) I DFN="" Q
+"RTN","VPRDCRC",29,0)
+ S QUEUED=$G(FILTER("queued"))
+"RTN","VPRDCRC",30,0)
+ S NODE="VPRDCRC "_SYS_"-"_"-"_DFN
+"RTN","VPRDCRC",31,0)
+ S FILTER("node")=NODE
+"RTN","VPRDCRC",32,0)
+ S VPRSYS=$$GET^XPAR("SYS","VPR SYSTEM NAME")
+"RTN","VPRDCRC",33,0)
+ ;
+"RTN","VPRDCRC",34,0)
+ ; - if not queued, generate checksums and exit w/values in ^TMP
+"RTN","VPRDCRC",35,0)
+ I QUEUED'="true" D Q
+"RTN","VPRDCRC",36,0)
+ . S ^XTMP(NODE,0)=$$FMADD^XLFDT(DT,1)_U_DT_U_"Checksum for Server "_SYS_" patient "_DFN
+"RTN","VPRDCRC",37,0)
+ . D EN(.FILTER)
+"RTN","VPRDCRC",38,0)
+ . M ^TMP("VPRDCRC",$J)=^XTMP(NODE,"data")
+"RTN","VPRDCRC",39,0)
+ . S VPRCRC=$NA(^TMP("VPRDCRC",$J))
+"RTN","VPRDCRC",40,0)
+ . K ^XTMP(NODE)
+"RTN","VPRDCRC",41,0)
+ ;
+"RTN","VPRDCRC",42,0)
+ ; - Queue job if not started, else return data if done
+"RTN","VPRDCRC",43,0)
+ I +$G(^XTMP(NODE,"start"))=0 D QUEUED(.FILTER,NODE,SYS,DFN) Q
+"RTN","VPRDCRC",44,0)
+ I +$G(^XTMP(NODE,"stop"))>0 D K ^XTMP(NODE)
+"RTN","VPRDCRC",45,0)
+ . I $G(^XTMP(NODE,"error"))'="" S VPRCRC=^XTMP(NODE,"error") Q
+"RTN","VPRDCRC",46,0)
+ . S VPRCRC=$NA(^TMP("VPRDCRC",$J))
+"RTN","VPRDCRC",47,0)
+ . M ^TMP("VPRDCRC",$J)=^XTMP(NODE,"data")
+"RTN","VPRDCRC",48,0)
+ Q
+"RTN","VPRDCRC",49,0)
+ ;
+"RTN","VPRDCRC",50,0)
+QUEUED(FILTER,NODE,SYS,DFN) ; -- start job to generate checksums
+"RTN","VPRDCRC",51,0)
+ N ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTDTH,ZTSK
+"RTN","VPRDCRC",52,0)
+ S ^XTMP(NODE,0)=$$FMADD^XLFDT(DT,1)_U_DT_U_"Checksum for Server "_SYS_" patient "_DFN
+"RTN","VPRDCRC",53,0)
+ S ZTRTN="EN1^VPRDCRC",ZTDESC="Patient Checksum Extract for "_DFN
+"RTN","VPRDCRC",54,0)
+ S ZTDTH=$$NOW^XLFDT(),ZTIO="",ZTSAVE("FILTER(")=""
+"RTN","VPRDCRC",55,0)
+ S ^XTMP(NODE,"start")=$$NOW^XLFDT()
+"RTN","VPRDCRC",56,0)
+ D ^%ZTLOAD I +$G(ZTSK)>0 S ^XTMP(NODE,"task")=+$G(ZTSK) Q ;success
+"RTN","VPRDCRC",57,0)
+ S ^XTMP(NODE,"error")="Cannot start a task job"
+"RTN","VPRDCRC",58,0)
+ S ^XTMP(NODE,"stop")=$$NOW^XLFDT()
+"RTN","VPRDCRC",59,0)
+ S ^XTMP(NODE,"task")=ZTSK
+"RTN","VPRDCRC",60,0)
+ Q
+"RTN","VPRDCRC",61,0)
+ ;
+"RTN","VPRDCRC",62,0)
+EN(FILTER) ; -- Return CRC values of requested data in ^XTMP(node,"data") as JSON
+"RTN","VPRDCRC",63,0)
+EN1 ; [entry point for queued job]
+"RTN","VPRDCRC",64,0)
+ ;
+"RTN","VPRDCRC",65,0)
+ N ICN,DFN,NODE,UID,VPRP,TYPE,VPRTN,CRC
+"RTN","VPRDCRC",66,0)
+ N VPRCRC,VPRSTART,VPRSTOP,VPRMAX,VPRI,VPRID,VPRTYPE ;for VPRDJ0
+"RTN","VPRDCRC",67,0)
+ K ^TMP("VPRCRC",$J),^TMP("VPRCRCF",$J)
+"RTN","VPRDCRC",68,0)
+ ;
+"RTN","VPRDCRC",69,0)
+ ; parse & validate input parameters
+"RTN","VPRDCRC",70,0)
+ S DFN=$G(FILTER("patientId")),VPRCRC=""
+"RTN","VPRDCRC",71,0)
+ S ICN=+$P($G(DFN),";",2),DFN=+$G(DFN)
+"RTN","VPRDCRC",72,0)
+ I DFN<1,ICN S DFN=+$$GETDFN^MPIF001(ICN)
+"RTN","VPRDCRC",73,0)
+ Q:DFN<1!'$D(^DPT(DFN))
+"RTN","VPRDCRC",74,0)
+ S NODE=$G(FILTER("node")) I NODE="" S NODE="VPRDCRC"
+"RTN","VPRDCRC",75,0)
+ ;
+"RTN","VPRDCRC",76,0)
+ S VPRMAX=9999,VPRI=0 ;for VPRDJ0
+"RTN","VPRDCRC",77,0)
+ S VPRSTART=+$G(FILTER("start"),1410102)
+"RTN","VPRDCRC",78,0)
+ S VPRSTOP=+$G(FILTER("stop"),4141015)
+"RTN","VPRDCRC",79,0)
+ S UID=$G(FILTER("uid")),VPRTYPE=$G(FILTER("domain"))
+"RTN","VPRDCRC",80,0)
+ I $L(UID) S VPRTYPE=$P(UID,":",3),VPRID=$P(UID,":",6)
+"RTN","VPRDCRC",81,0)
+ E S:VPRTYPE="" VPRTYPE=$$ALL
+"RTN","VPRDCRC",82,0)
+ ;
+"RTN","VPRDCRC",83,0)
+ F VPRP=1:1:$L(VPRTYPE,";") S TYPE=$P(VPRTYPE,";",VPRP) I $L(TYPE) D
+"RTN","VPRDCRC",84,0)
+ . S VPRTN=$$TAG^VPRDJ(TYPE)_"^VPRDJ0" Q:'$L($T(@VPRTN))
+"RTN","VPRDCRC",85,0)
+ . D @VPRTN
+"RTN","VPRDCRC",86,0)
+ ;
+"RTN","VPRDCRC",87,0)
+ I $L(UID) D G ENQ ;single item
+"RTN","VPRDCRC",88,0)
+ . S CRC=$G(^TMP("VPRCRC",$J,VPRTYPE,UID))
+"RTN","VPRDCRC",89,0)
+ . S ^XTMP(NODE,"data",1)=CRC,^XTMP(NODE,"stop")=$$NOW^XLFDT()
+"RTN","VPRDCRC",90,0)
+ ; generate checksum for each domain requested
+"RTN","VPRDCRC",91,0)
+ S TYPE="" F S TYPE=$O(^TMP("VPRCRC",$J,TYPE)) Q:TYPE="" D
+"RTN","VPRDCRC",92,0)
+ . S CRC="" D GET($NA(^TMP("VPRCRC",$J,TYPE)),.CRC)
+"RTN","VPRDCRC",93,0)
+ . S ^TMP("VPRCRC",$J,TYPE)=CRC
+"RTN","VPRDCRC",94,0)
+ I $L(VPRTYPE,";")>1 D ;get whole-chart checksum
+"RTN","VPRDCRC",95,0)
+ . S CRC="" D GET($NA(^TMP("VPRCRC",$J)),.CRC)
+"RTN","VPRDCRC",96,0)
+ . S ^TMP("VPRCRC",$J,"patient")=CRC
+"RTN","VPRDCRC",97,0)
+ ;
+"RTN","VPRDCRC",98,0)
+ENCODE ; -- return list(s) of checksums as JSON
+"RTN","VPRDCRC",99,0)
+ D PREP
+"RTN","VPRDCRC",100,0)
+ D ENCODE^VPRJSON($NA(^TMP("VPRCRCF",$J)),$NA(^XTMP(NODE,"data")),"ERROR")
+"RTN","VPRDCRC",101,0)
+ S ^XTMP(NODE,"stop")=$$NOW^XLFDT()
+"RTN","VPRDCRC",102,0)
+ ;
+"RTN","VPRDCRC",103,0)
+ENQ K ^TMP("VPRCRC",$J),^TMP("VPRCRCF",$J)
+"RTN","VPRDCRC",104,0)
+ Q
+"RTN","VPRDCRC",105,0)
+ ;
+"RTN","VPRDCRC",106,0)
+PREP ; -- reformat ^TMP("VPRCRC",$J) for JSON utility -> ^TMP("VPRCRCF",$J)
+"RTN","VPRDCRC",107,0)
+ N DCNT,DOMAIN,UID,UCNT
+"RTN","VPRDCRC",108,0)
+ S DOMAIN="",DCNT=0
+"RTN","VPRDCRC",109,0)
+ F S DOMAIN=$O(^TMP("VPRCRC",$J,DOMAIN)) Q:DOMAIN="" D
+"RTN","VPRDCRC",110,0)
+ . S ^TMP("VPRCRCF",$J,DOMAIN,"crc")=^TMP("VPRCRC",$J,DOMAIN)
+"RTN","VPRDCRC",111,0)
+ . S UCNT=0,UID="" F S UID=$O(^TMP("VPRCRC",$J,DOMAIN,UID)) Q:UID="" D
+"RTN","VPRDCRC",112,0)
+ .. S UCNT=UCNT+1,^TMP("VPRCRCF",$J,DOMAIN,"uids",UCNT,UID)=^TMP("VPRCRC",$J,DOMAIN,UID)
+"RTN","VPRDCRC",113,0)
+ Q
+"RTN","VPRDCRC",114,0)
+ ;
+"RTN","VPRDCRC",115,0)
+GET(LIST,CRC) ; -- compute CRC32 value for LIST of strings
+"RTN","VPRDCRC",116,0)
+ N I S CRC=$G(CRC),I=""
+"RTN","VPRDCRC",117,0)
+ F S I=$O(@LIST@(I)) Q:I="" I $G(@LIST@(I))'="" S CRC=$$CRC32^XLFCRC(I_":"_ at LIST@(I),CRC)
+"RTN","VPRDCRC",118,0)
+ Q
+"RTN","VPRDCRC",119,0)
+ ;
+"RTN","VPRDCRC",120,0)
+ONE(ARRAY,COLL) ; -- process one data item [save result in ^TMP]
+"RTN","VPRDCRC",121,0)
+ N LIST,UID,ATTR,CRC
+"RTN","VPRDCRC",122,0)
+ S LIST=$$ATTR(COLL),UID=$G(@ARRAY@("uid")) Q:UID=""
+"RTN","VPRDCRC",123,0)
+ S ATTR="" F S ATTR=$O(@ARRAY@(ATTR)) Q:ATTR="" I LIST'[(U_ATTR_U) K @ARRAY@(ATTR)
+"RTN","VPRDCRC",124,0)
+ D GET(ARRAY,.CRC)
+"RTN","VPRDCRC",125,0)
+ S ^TMP("VPRCRC",$J,COLL,UID)=CRC
+"RTN","VPRDCRC",126,0)
+ S VPRI=VPRI+1
+"RTN","VPRDCRC",127,0)
+ Q
+"RTN","VPRDCRC",128,0)
+ ;
+"RTN","VPRDCRC",129,0)
+GET1(ARRAY,COLL) ; -- process one data item [return result]
+"RTN","VPRDCRC",130,0)
+ N LIST,ATTR,ITEM,CRC
+"RTN","VPRDCRC",131,0)
+ S LIST=$$ATTR(COLL)
+"RTN","VPRDCRC",132,0)
+ S ATTR="" F S ATTR=$O(@ARRAY@(ATTR)) Q:ATTR="" I LIST[(U_ATTR_U) S ITEM(ATTR)=@ARRAY@(ATTR)
+"RTN","VPRDCRC",133,0)
+ D GET(ITEM,.CRC)
+"RTN","VPRDCRC",134,0)
+ Q CRC
+"RTN","VPRDCRC",135,0)
+ ;
+"RTN","VPRDCRC",136,0)
+ALL() ; -- return string for all types of data
+"RTN","VPRDCRC",137,0)
+ Q "problem;allergy;consult;vital;lab;procedure;obs;order;treatment;med;ptf;factor;immunization;exam;cpt;education;pov;skin;image;appointment;surgery;document;visit;mh"
+"RTN","VPRDCRC",138,0)
+ ;
+"RTN","VPRDCRC",139,0)
+ATTR(X) ; -- return list of attributes needed for collection X
+"RTN","VPRDCRC",140,0)
+ N Y S Y=""
+"RTN","VPRDCRC",141,0)
+ I X="vital" S Y="^observed^typeName^result^"
+"RTN","VPRDCRC",142,0)
+ I X="problem" S Y="^onset^problemText^statusName^"
+"RTN","VPRDCRC",143,0)
+ I X="allergy" S Y="^entered^summary^"
+"RTN","VPRDCRC",144,0)
+ I X="order" S Y="^start^name^statusName^"
+"RTN","VPRDCRC",145,0)
+ I X="treatment" S Y="^start^name^statusName^"
+"RTN","VPRDCRC",146,0)
+ I X="med" S Y="^overallstart^name^vaStatus^"
+"RTN","VPRDCRC",147,0)
+ I X="consult" S Y="^startDate^typeName^statusName^"
+"RTN","VPRDCRC",148,0)
+ I X="procedure" S Y="^dateTime^name^statusName^"
+"RTN","VPRDCRC",149,0)
+ I X="obs" S Y="^observed^typeName^result^"
+"RTN","VPRDCRC",150,0)
+ I X="lab" S Y="^observed^typeName^"
+"RTN","VPRDCRC",151,0)
+ I X="image" S Y="^dateTime^name^statusName^"
+"RTN","VPRDCRC",152,0)
+ I X="surgery" S Y="^dateTime^typeName^statusName^"
+"RTN","VPRDCRC",153,0)
+ I X="document" S Y="^referenceDateTime^localTitle^statusName^"
+"RTN","VPRDCRC",154,0)
+ I X="mh" S Y="^administeredDateTime^name^"
+"RTN","VPRDCRC",155,0)
+ I X="immunization" S Y="^administeredDateTime^name^"
+"RTN","VPRDCRC",156,0)
+ I X="pov" S Y="^entered^name^"
+"RTN","VPRDCRC",157,0)
+ I X="skin" S Y="^entered^name^result^"
+"RTN","VPRDCRC",158,0)
+ I X="exam" S Y="^entered^name^result^"
+"RTN","VPRDCRC",159,0)
+ I X="cpt" S Y="^entered^name^"
+"RTN","VPRDCRC",160,0)
+ I X="education" S Y="^entered^name^result^"
+"RTN","VPRDCRC",161,0)
+ I X="factor" S Y="^entered^name^"
+"RTN","VPRDCRC",162,0)
+ I X="appointment" S Y="^dateTime^typeName^appointmentStatus^"
+"RTN","VPRDCRC",163,0)
+ I X="visit" S Y="^dateTime^typeName^"
+"RTN","VPRDCRC",164,0)
+ I X="ptf" S Y="^arrivalDateTime^icdCode^"
+"RTN","VPRDCRC",165,0)
+ Q Y
+"RTN","VPRDCRC",166,0)
+ ;
+"RTN","VPRDCRC",167,0)
+ ;
+"RTN","VPRDCRC",168,0)
+TEST(FILTER) ;
+"RTN","VPRDCRC",169,0)
+ N DONE,OUT
+"RTN","VPRDCRC",170,0)
+ S DONE=0
+"RTN","VPRDCRC",171,0)
+ F D Q:DONE=1
+"RTN","VPRDCRC",172,0)
+ .D CHECK(.OUT,.FILTER)
+"RTN","VPRDCRC",173,0)
+ .H 1 W !,$D(OUT)
+"RTN","VPRDCRC",174,0)
+ .I $D(OUT)>0 S DONE=1
+"RTN","VPRDCRC",175,0)
+ Q
+"RTN","VPRDGMPL")
+0^28^B27827751^B27790775
+"RTN","VPRDGMPL",1,0)
+VPRDGMPL ;SLC/MKB -- Problem extract ;8/2/11 15:29
+"RTN","VPRDGMPL",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**1,2**;Sep 01, 2011;Build 317
+"RTN","VPRDGMPL",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDGMPL",4,0)
+ ;
+"RTN","VPRDGMPL",5,0)
+ ; External References DBIA#
+"RTN","VPRDGMPL",6,0)
+ ; ------------------- -----
+"RTN","VPRDGMPL",7,0)
+ ; ^AUPNPROB 5703
+"RTN","VPRDGMPL",8,0)
+ ; ^DPT 10035
+"RTN","VPRDGMPL",9,0)
+ ; ^VA(200 10060
+"RTN","VPRDGMPL",10,0)
+ ; ^WV(790.05 5772
+"RTN","VPRDGMPL",11,0)
+ ; %DT 10003
+"RTN","VPRDGMPL",12,0)
+ ; DIQ 2056
+"RTN","VPRDGMPL",13,0)
+ ; GMPLUTL2 2741
+"RTN","VPRDGMPL",14,0)
+ ; SDUTL3 1252
+"RTN","VPRDGMPL",15,0)
+ ; XLFDT 10103
+"RTN","VPRDGMPL",16,0)
+ ; XUAF4 2171
+"RTN","VPRDGMPL",17,0)
+ ;
+"RTN","VPRDGMPL",18,0)
+ ; ------------ Get problems from VistA ------------
+"RTN","VPRDGMPL",19,0)
+ ;
+"RTN","VPRDGMPL",20,0)
+EN(DFN,BEG,END,MAX,IFN) ; -- find patient's problems
+"RTN","VPRDGMPL",21,0)
+ N VPRSTS,VPRPROB,VPRN,VPRITM,VPRCNT,X
+"RTN","VPRDGMPL",22,0)
+ ;
+"RTN","VPRDGMPL",23,0)
+ ; get one problem
+"RTN","VPRDGMPL",24,0)
+ I $G(IFN)="790.05" D WV(.VPRITM,1),XML(.VPRITM):$D(VPRITM) Q
+"RTN","VPRDGMPL",25,0)
+ I $G(IFN) D EN1(IFN,.VPRITM),XML(.VPRITM) Q
+"RTN","VPRDGMPL",26,0)
+ ;
+"RTN","VPRDGMPL",27,0)
+ ; get all patient problems
+"RTN","VPRDGMPL",28,0)
+ S DFN=+$G(DFN) Q:DFN<1
+"RTN","VPRDGMPL",29,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999),VPRCNT=0
+"RTN","VPRDGMPL",30,0)
+ S VPRSTS=$G(FILTER("status")) ;default = all problems
+"RTN","VPRDGMPL",31,0)
+ D LIST^GMPLUTL2(.VPRPROB,DFN,VPRSTS)
+"RTN","VPRDGMPL",32,0)
+ S VPRN=0 F S VPRN=$O(VPRPROB(VPRN)) Q:(VPRN<1)!(VPRCNT'<MAX) D
+"RTN","VPRDGMPL",33,0)
+ . S X=$P(VPRPROB(VPRN),U,5) I X,(X<BEG)!(X>END) Q ;onset
+"RTN","VPRDGMPL",34,0)
+ . S X=+VPRPROB(VPRN) K VPRITM ;ien
+"RTN","VPRDGMPL",35,0)
+ . D EN1(X,.VPRITM),XML(.VPRITM)
+"RTN","VPRDGMPL",36,0)
+ . S VPRCNT=VPRCNT+1
+"RTN","VPRDGMPL",37,0)
+ I $P($G(^DPT(DFN,0)),U,2)="F" D WV(.VPRITM),XML(.VPRITM):$D(VPRITM)
+"RTN","VPRDGMPL",38,0)
+ Q
+"RTN","VPRDGMPL",39,0)
+ ;
+"RTN","VPRDGMPL",40,0)
+EN1(ID,PROB) ; -- return a problem in PROB("attribute")=value
+"RTN","VPRDGMPL",41,0)
+ N VPRL,X,I,J K PROB
+"RTN","VPRDGMPL",42,0)
+ S ID=+$G(ID) Q:ID<1 ;invalid ien
+"RTN","VPRDGMPL",43,0)
+ D DETAIL^GMPLUTL2(ID,.VPRL) Q:'$D(VPRL) ;doesn't exist
+"RTN","VPRDGMPL",44,0)
+ S PROB("id")=ID ;,PROB("lexiconID")=+X1 ;SNOMED?
+"RTN","VPRDGMPL",45,0)
+ S PROB("name")=$G(VPRL("NARRATIVE"))
+"RTN","VPRDGMPL",46,0)
+ S X=$G(VPRL("MODIFIED")) S:$L(X) PROB("updated")=$$DATE(X)
+"RTN","VPRDGMPL",47,0)
+ S PROB("icd")=$G(VPRL("DIAGNOSIS"))
+"RTN","VPRDGMPL",48,0)
+ S X=$G(VPRL("STATUS")) S:$L(X) PROB("status")=$E(X)_U_X
+"RTN","VPRDGMPL",49,0)
+ S X=$G(VPRL("HISTORY")) S:$L(X) PROB("history")=$E(X)_U_X
+"RTN","VPRDGMPL",50,0)
+ S X=$G(VPRL("PRIORITY")) S:$L(X) PROB("acuity")=$E(X)_U_X
+"RTN","VPRDGMPL",51,0)
+ S X=$G(VPRL("ONSET")) S:$L(X) PROB("onset")=$$DATE(X)
+"RTN","VPRDGMPL",52,0)
+ S X=$$GET1^DIQ(9000011,ID_",",1.07,"I") S:X PROB("resolved")=X
+"RTN","VPRDGMPL",53,0)
+ S X=$P($G(VPRL("ENTERED")),U) S:$L(X) PROB("entered")=$$DATE(X)
+"RTN","VPRDGMPL",54,0)
+ S X=$$GET1^DIQ(9000011,ID_",",1.02,"I")
+"RTN","VPRDGMPL",55,0)
+ S:X="P" PROB("unverified")=0,PROB("removed")=0
+"RTN","VPRDGMPL",56,0)
+ S:X="T" PROB("unverified")=1,PROB("removed")=0
+"RTN","VPRDGMPL",57,0)
+ S:X="H" PROB("unverified")=0,PROB("removed")=1
+"RTN","VPRDGMPL",58,0)
+ S X=$G(VPRL("SC")),X=$S(X="YES":1,X="NO":0,1:"")
+"RTN","VPRDGMPL",59,0)
+ S:$L(X) PROB("sc")=X I $G(VPRL("EXPOSURE")) D ;ao^rad^pgulf^hnc^mst^cv
+"RTN","VPRDGMPL",60,0)
+ . S I=0 F S I=$O(VPRL("EXPOSURE",I)) Q:I<1 D
+"RTN","VPRDGMPL",61,0)
+ .. S X=$G(VPRL("EXPOSURE",I))
+"RTN","VPRDGMPL",62,0)
+ .. S PROB("exposure",I)=$$EXP(X)
+"RTN","VPRDGMPL",63,0)
+ S X=$G(VPRL("PROVIDER")) S:$L(X) PROB("provider")=$$GET1^DIQ(9000011,ID_",",1.05,"I")_U_X
+"RTN","VPRDGMPL",64,0)
+ S X=$$GET1^DIQ(9000011,ID_",",1.06) S:$L(X) PROB("service")=X
+"RTN","VPRDGMPL",65,0)
+ S X=$G(VPRL("CLINIC")) S:$L(X) PROB("location")=X
+"RTN","VPRDGMPL",66,0)
+ S X=+$$GET1^DIQ(9000011,ID_",",.06,"I")
+"RTN","VPRDGMPL",67,0)
+ S:X PROB("facility")=$$STA^XUAF4(X)_U_$P($$NS^XUAF4(X),U)
+"RTN","VPRDGMPL",68,0)
+ I 'X S PROB("facility")=$$FAC^VPRD ;local stn#^name
+"RTN","VPRDGMPL",69,0)
+CMT ; comments
+"RTN","VPRDGMPL",70,0)
+ Q:'$G(VPRL("COMMENT"))
+"RTN","VPRDGMPL",71,0)
+ S I=0 F S I=$O(VPRL("COMMENT",I)) Q:I<1 D
+"RTN","VPRDGMPL",72,0)
+ . S X=$G(VPRL("COMMENT",I))
+"RTN","VPRDGMPL",73,0)
+ . S PROB("comment",I)=$$DATE($P(X,U))_U_$P(X,U,2,3)
+"RTN","VPRDGMPL",74,0)
+ . ; = date ^ name of author ^ text
+"RTN","VPRDGMPL",75,0)
+ Q
+"RTN","VPRDGMPL",76,0)
+ ;
+"RTN","VPRDGMPL",77,0)
+WV(PROB,UPD) ; -- return a pregnancy log entry in PROB("attribute")=value
+"RTN","VPRDGMPL",78,0)
+ N I,X0,Y K PROB
+"RTN","VPRDGMPL",79,0)
+ S I=$O(^WV(790.05,"C",DFN,""),-1) Q:'I ;last entry
+"RTN","VPRDGMPL",80,0)
+ S X0=$G(^WV(790.05,I,0)),Y=0
+"RTN","VPRDGMPL",81,0)
+ ; status=YES, future due date (allow past 14 days)
+"RTN","VPRDGMPL",82,0)
+ I $P(X0,U,3),$P(X0,U,4)'<$$FMADD^XLFDT(DT,-14) S Y=1
+"RTN","VPRDGMPL",83,0)
+ I 'Y,'$G(UPD) Q
+"RTN","VPRDGMPL",84,0)
+ ; continue if pregnant, or update requested
+"RTN","VPRDGMPL",85,0)
+ S PROB("id")="790.05",PROB("entered")=+X0
+"RTN","VPRDGMPL",86,0)
+ S PROB("name")="Pregnancy",PROB("icd")="V22.2"
+"RTN","VPRDGMPL",87,0)
+ ; PROB("problemType")=64572001 ;HITSP/Condition
+"RTN","VPRDGMPL",88,0)
+ S PROB("status")=$S(Y:"A^ACTIVE",1:"I^INACTIVE")
+"RTN","VPRDGMPL",89,0)
+ S PROB("resolved")=$P(X0,U,4) ;due date
+"RTN","VPRDGMPL",90,0)
+ S PROB("provider")=$$OUTPTPR^SDUTL3(DFN) ;primary care
+"RTN","VPRDGMPL",91,0)
+ S PROB("facility")=$$FAC^VPRD
+"RTN","VPRDGMPL",92,0)
+ Q
+"RTN","VPRDGMPL",93,0)
+ ;
+"RTN","VPRDGMPL",94,0)
+DATE(X) ; -- Return internal form of date X
+"RTN","VPRDGMPL",95,0)
+ N %DT,Y
+"RTN","VPRDGMPL",96,0)
+ S %DT="" D ^%DT S:Y<1 Y=X
+"RTN","VPRDGMPL",97,0)
+ Q Y
+"RTN","VPRDGMPL",98,0)
+ ;
+"RTN","VPRDGMPL",99,0)
+VA200(X) ; -- Return ien of New Person X
+"RTN","VPRDGMPL",100,0)
+ N Y S Y=$S($L($G(X)):+$O(^VA(200,"B",X,0)),1:"")
+"RTN","VPRDGMPL",101,0)
+ Q Y
+"RTN","VPRDGMPL",102,0)
+ ;
+"RTN","VPRDGMPL",103,0)
+EXP(X) ; -- Return code for exposure name X
+"RTN","VPRDGMPL",104,0)
+ N Y S Y="",X=$E($G(X))
+"RTN","VPRDGMPL",105,0)
+ I X="A" S Y="AO" ;agent orange
+"RTN","VPRDGMPL",106,0)
+ I X="R" S Y="IR" ;ionizing radiation
+"RTN","VPRDGMPL",107,0)
+ I X="E" S Y="PG" ;persian gulf
+"RTN","VPRDGMPL",108,0)
+ I X="H" S Y="HNC" ;head/neck cancer
+"RTN","VPRDGMPL",109,0)
+ I X="M" S Y="MST" ;military sexual trauma
+"RTN","VPRDGMPL",110,0)
+ I X="C" S Y="CV" ;combat vet
+"RTN","VPRDGMPL",111,0)
+ I X="S" S Y="SHAD"
+"RTN","VPRDGMPL",112,0)
+ Q Y
+"RTN","VPRDGMPL",113,0)
+ ;
+"RTN","VPRDGMPL",114,0)
+ ; ------------ Return data to middle tier ------------
+"RTN","VPRDGMPL",115,0)
+ ;
+"RTN","VPRDGMPL",116,0)
+XML(PROB) ; -- Return patient problem as XML in @VPR@(I)
+"RTN","VPRDGMPL",117,0)
+ N ATT,I,X,Y,P,TAG
+"RTN","VPRDGMPL",118,0)
+ D ADD("<problem>") S VPRTOTL=$G(VPRTOTL)+1
+"RTN","VPRDGMPL",119,0)
+ S ATT="" F S ATT=$O(PROB(ATT)) Q:ATT="" D D:$L(Y) ADD(Y)
+"RTN","VPRDGMPL",120,0)
+ . I ATT="exposure" D S Y="" Q
+"RTN","VPRDGMPL",121,0)
+ .. S Y="<exposures>" D ADD(Y)
+"RTN","VPRDGMPL",122,0)
+ .. S I=0 F S I=$O(PROB(ATT,I)) Q:I<1 S X=$G(PROB(ATT,I)) S:$L(X) Y="<exposure value='"_X_"' />" D ADD(Y)
+"RTN","VPRDGMPL",123,0)
+ .. D ADD("</exposures>")
+"RTN","VPRDGMPL",124,0)
+ . I ATT="comment" D S Y="" Q
+"RTN","VPRDGMPL",125,0)
+ .. D ADD("<comments>")
+"RTN","VPRDGMPL",126,0)
+ .. S I=0 F S I=$O(PROB(ATT,I)) Q:I<1 S X=$G(PROB(ATT,I)) D
+"RTN","VPRDGMPL",127,0)
+ ... S Y="<comment id='"_I
+"RTN","VPRDGMPL",128,0)
+ ... S:$L($P(X,U,1)) Y=Y_"' entered='"_$P(X,U)
+"RTN","VPRDGMPL",129,0)
+ ... S:$L($P(X,U,2)) Y=Y_"' enteredBy='"_$$ESC^VPRD($P(X,U,2))
+"RTN","VPRDGMPL",130,0)
+ ... S:$L($P(X,U,3)) Y=Y_"' commentText='"_$$ESC^VPRD($P(X,U,3))
+"RTN","VPRDGMPL",131,0)
+ ... S Y=Y_"' />" D ADD(Y)
+"RTN","VPRDGMPL",132,0)
+ .. D ADD("</comments>")
+"RTN","VPRDGMPL",133,0)
+ . S X=$G(PROB(ATT)),Y="" Q:'$L(X)
+"RTN","VPRDGMPL",134,0)
+ . I X'["^" S Y="<"_ATT_" value='"_$$ESC^VPRD(X)_"' />" Q
+"RTN","VPRDGMPL",135,0)
+ . I $L(X)>1 D S Y=""
+"RTN","VPRDGMPL",136,0)
+ .. S Y="<"_ATT_" "
+"RTN","VPRDGMPL",137,0)
+ .. F P=1:1 S TAG=$P("code^name^Z",U,P) Q:TAG="Z" I $L($P(X,U,P)) S Y=Y_TAG_"='"_$$ESC^VPRD($P(X,U,P))_"' "
+"RTN","VPRDGMPL",138,0)
+ .. S Y=Y_"/>" D ADD(Y)
+"RTN","VPRDGMPL",139,0)
+ D ADD("</problem>")
+"RTN","VPRDGMPL",140,0)
+ Q
+"RTN","VPRDGMPL",141,0)
+ ;
+"RTN","VPRDGMPL",142,0)
+ADD(X) ; Add a line @VPR@(n)=X
+"RTN","VPRDGMPL",143,0)
+ S VPRI=$G(VPRI)+1
+"RTN","VPRDGMPL",144,0)
+ S @VPR@(VPRI)=X
+"RTN","VPRDGMPL",145,0)
+ Q
+"RTN","VPRDJ")
+0^2^B22186238^n/a
+"RTN","VPRDJ",1,0)
+VPRDJ ;SLC/MKB -- Serve VistA data as JSON via RPC ;10/18/12 6:26pm
+"RTN","VPRDJ",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ",4,0)
+ ;
+"RTN","VPRDJ",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ",7,0)
+ ; ^DPT 10035
+"RTN","VPRDJ",8,0)
+ ; MPIF001 2701
+"RTN","VPRDJ",9,0)
+ ; XLFDT 10103
+"RTN","VPRDJ",10,0)
+ ; XLFSTR 10104
+"RTN","VPRDJ",11,0)
+ ; XUPARAM 2541
+"RTN","VPRDJ",12,0)
+ ;
+"RTN","VPRDJ",13,0)
+GET(VPR,FILTER) ; -- Return search results as JSON in @VPR@(n)
+"RTN","VPRDJ",14,0)
+ ; RPC = VPR GET PATIENT DATA JSON
+"RTN","VPRDJ",15,0)
+ ; where FILTER("patientId") = DFN or DFN;ICN
+"RTN","VPRDJ",16,0)
+ ; FILTER("domain") = name of desired data type (see VPRDJ0)
+"RTN","VPRDJ",17,0)
+ ; FILTER("text") = boolean, to include document text [opt]
+"RTN","VPRDJ",18,0)
+ ; FILTER("start") = start date.time of search [opt]
+"RTN","VPRDJ",19,0)
+ ; FILTER("stop") = stop date.time of search [opt]
+"RTN","VPRDJ",20,0)
+ ; FILTER("max") = maximum number of items to return [opt]
+"RTN","VPRDJ",21,0)
+ ; FILTER("id") = single item id to return [opt]
+"RTN","VPRDJ",22,0)
+ ; FILTER("uid") = single record uid to return [opt]
+"RTN","VPRDJ",23,0)
+ ;
+"RTN","VPRDJ",24,0)
+ N ICN,DFN,VPRSYS,VPRTYPE,VPRSTART,VPRSTOP,VPRMAX,VPRI,VPRID,VPRTEXT,VPRP,VPRTN,VPRERR
+"RTN","VPRDJ",25,0)
+ S VPR=$NA(^TMP("VPR",$J)),VPRI=0 K @VPR
+"RTN","VPRDJ",26,0)
+ S VPRSYS=$$GET^XPAR("SYS","VPR SYSTEM NAME")
+"RTN","VPRDJ",27,0)
+ S DT=$$DT^XLFDT ;for crossing midnight boundary
+"RTN","VPRDJ",28,0)
+ ;
+"RTN","VPRDJ",29,0)
+ I $G(FILTER("uid"))'="" D SEPUID(.FILTER)
+"RTN","VPRDJ",30,0)
+ ; parse & validate input parameters
+"RTN","VPRDJ",31,0)
+ S DFN=$G(FILTER("patientId"))
+"RTN","VPRDJ",32,0)
+ S ICN=+$P($G(DFN),";",2),DFN=+$G(DFN)
+"RTN","VPRDJ",33,0)
+ I DFN<1,ICN S DFN=+$$GETDFN^MPIF001(ICN)
+"RTN","VPRDJ",34,0)
+ ;
+"RTN","VPRDJ",35,0)
+ S VPRTYPE=$G(FILTER("domain")) S:VPRTYPE="" VPRTYPE=$$ALL
+"RTN","VPRDJ",36,0)
+ I $D(ZTQUEUED) S VPR=$NA(^XTMP(VPRBATCH,DFN,VPRTYPE)) K @VPR
+"RTN","VPRDJ",37,0)
+ I VPRTYPE'="new",DFN<1!'$D(^DPT(DFN)) S VPRERR=$$ERR(1,DFN) G GTQ
+"RTN","VPRDJ",38,0)
+ ;
+"RTN","VPRDJ",39,0)
+ S VPRSTART=+$G(FILTER("start"),1410102)
+"RTN","VPRDJ",40,0)
+ S VPRSTOP=+$G(FILTER("stop"),4141015)
+"RTN","VPRDJ",41,0)
+ S VPRMAX=+$G(FILTER("max"),9999)
+"RTN","VPRDJ",42,0)
+ I VPRSTART,VPRSTOP,VPRSTOP<VPRSTART D
+"RTN","VPRDJ",43,0)
+ . N X S X=VPRSTART,VPRSTART=VPRSTOP,VPRSTOP=X
+"RTN","VPRDJ",44,0)
+ I VPRSTOP,$L(VPRSTOP,".")<2 S VPRSTOP=VPRSTOP_".24"
+"RTN","VPRDJ",45,0)
+ ;
+"RTN","VPRDJ",46,0)
+ S VPRID=$G(FILTER("id"))
+"RTN","VPRDJ",47,0)
+ S VPRTEXT=+$G(FILTER("text"),1) ;default = true/text
+"RTN","VPRDJ",48,0)
+ ;
+"RTN","VPRDJ",49,0)
+ ; extract data
+"RTN","VPRDJ",50,0)
+ I VPRTYPE="new",$L($T(EN^VPRDJX)) D EN^VPRDJX(VPRID,VPRMAX) Q ;data updates
+"RTN","VPRDJ",51,0)
+ F VPRP=1:1:$L(VPRTYPE,";") S TYPE=$P(VPRTYPE,";",VPRP) I $L(TYPE) D
+"RTN","VPRDJ",52,0)
+ . S VPRTN=$$TAG(TYPE)_"^VPRDJ0" Q:'$L($T(@VPRTN))
+"RTN","VPRDJ",53,0)
+ . D @VPRTN
+"RTN","VPRDJ",54,0)
+ ;
+"RTN","VPRDJ",55,0)
+GTQ ; add item count and terminating characters
+"RTN","VPRDJ",56,0)
+ S @VPR@(.5)="{""apiVersion"":""1.01"",""params"":{"_$$SYS_"},"
+"RTN","VPRDJ",57,0)
+ I $D(VPRERR) S @VPR@(1)="""error"":{""message"":"""_VPRERR_"""}}" Q
+"RTN","VPRDJ",58,0)
+ I '$D(@VPR)!'$G(VPRI) S @VPR@(1)="""data"":{""totalItems"":0,""items"":[]}}" Q
+"RTN","VPRDJ",59,0)
+ ;
+"RTN","VPRDJ",60,0)
+ S @VPR@(.6)="""data"":{""updated"":"""_$$HL7NOW_""",""totalItems"":"_VPRI_",""items"":["
+"RTN","VPRDJ",61,0)
+ S VPRI=VPRI+1, at VPR@(VPRI)="]}}"
+"RTN","VPRDJ",62,0)
+ K ^TMP("VPRTEXT",$J)
+"RTN","VPRDJ",63,0)
+ Q
+"RTN","VPRDJ",64,0)
+ ;
+"RTN","VPRDJ",65,0)
+SEPUID(FILTER) ; -- separate uid into FILTER pieces
+"RTN","VPRDJ",66,0)
+ N UID
+"RTN","VPRDJ",67,0)
+ S UID=$G(FILTER("uid")) K FILTER("uid") Q:UID=""
+"RTN","VPRDJ",68,0)
+ I $P(UID,":",4)'=VPRSYS Q
+"RTN","VPRDJ",69,0)
+ S FILTER("patientId")=$P(UID,":",5)
+"RTN","VPRDJ",70,0)
+ S FILTER("domain")=$P(UID,":",3)
+"RTN","VPRDJ",71,0)
+ S FILTER("id")=$P(UID,":",6)
+"RTN","VPRDJ",72,0)
+ Q
+"RTN","VPRDJ",73,0)
+ ;
+"RTN","VPRDJ",74,0)
+SYS() ; -- return system info for JSON header
+"RTN","VPRDJ",75,0)
+ Q """domain"":"""_$$KSP^XUPARAM("WHERE")_""",""systemId"":"""_VPRSYS_""""
+"RTN","VPRDJ",76,0)
+ ;
+"RTN","VPRDJ",77,0)
+TAG(X) ; -- Return linetag in VPRDJ0 routine for clinical domain X
+"RTN","VPRDJ",78,0)
+ N Y S X=$G(X,"Z")
+"RTN","VPRDJ",79,0)
+ S Y=$E($$UP^XLFSTR(X),1,8)
+"RTN","VPRDJ",80,0)
+ S:'$L($T(@(Y_"^VPRDJ0"))) Y="VPR"
+"RTN","VPRDJ",81,0)
+ Q Y
+"RTN","VPRDJ",82,0)
+ ;
+"RTN","VPRDJ",83,0)
+ALL() ; -- return string for all types of data
+"RTN","VPRDJ",84,0)
+ Q "patient;problem;allergy;consult;vital;lab;procedure;obs;order;treatment;med;ptf;factor;immunization;exam;cpt;education;pov;skin;image;appointment;surgery;document;visit"
+"RTN","VPRDJ",85,0)
+ ;
+"RTN","VPRDJ",86,0)
+ERR(X,VAL) ; -- return error message
+"RTN","VPRDJ",87,0)
+ N MSG S MSG="Error"
+"RTN","VPRDJ",88,0)
+ I X=1 S MSG="Patient with dfn '"_$G(VAL)_"' not found"
+"RTN","VPRDJ",89,0)
+ I X=2 S MSG="Domain type '"_$G(VAL)_"' not recognized"
+"RTN","VPRDJ",90,0)
+ I X=3 S MSG="UID '"_$G(VAL)_"' not found"
+"RTN","VPRDJ",91,0)
+ I X=4 S MSG="Unable to create new object"
+"RTN","VPRDJ",92,0)
+ I X=99 S MSG="Unknown request"
+"RTN","VPRDJ",93,0)
+ Q MSG
+"RTN","VPRDJ",94,0)
+ ;
+"RTN","VPRDJ",95,0)
+HL7NOW() ; -- Return current time in HL7 format
+"RTN","VPRDJ",96,0)
+ Q $P($$FMTHL7^XLFDT($$NOW^XLFDT),"-")
+"RTN","VPRDJ",97,0)
+ ;
+"RTN","VPRDJ",98,0)
+ADD(ITEM,COLL) ; -- add ITEM to results
+"RTN","VPRDJ",99,0)
+ I $D(VPRCRC),$D(COLL) D ONE^VPRDCRC(ITEM,COLL) Q ;checksum
+"RTN","VPRDJ",100,0)
+ ; -- add ITEM to @VPR@(VPRI) to return JSON
+"RTN","VPRDJ",101,0)
+ N VPRY,VPRERR
+"RTN","VPRDJ",102,0)
+ D ENCODE^VPRJSON(ITEM,"VPRY","VPRERR")
+"RTN","VPRDJ",103,0)
+ I $D(VPRERR) D ;return ERRor instead of ITEM
+"RTN","VPRDJ",104,0)
+ . N VPRTMP,VPRTXT,VPRITM
+"RTN","VPRDJ",105,0)
+ . M VPRITM=@ITEM K VPRY
+"RTN","VPRDJ",106,0)
+ . S VPRTXT(1)="Problem encoding json output."
+"RTN","VPRDJ",107,0)
+ . D SETERROR^VPRUTILS(.VPRTMP,.VPRERR,.VPRTXT,.VPRITM)
+"RTN","VPRDJ",108,0)
+ . K VPRERR D ENCODE^VPRJSON("VPRTMP","VPRY","VPRERR")
+"RTN","VPRDJ",109,0)
+ I $D(VPRY) D
+"RTN","VPRDJ",110,0)
+ . S VPRI=VPRI+1 S:VPRI>1 @VPR@(VPRI,.3)=","
+"RTN","VPRDJ",111,0)
+ . M @VPR@(VPRI)=VPRY
+"RTN","VPRDJ",112,0)
+ Q
+"RTN","VPRDJ",113,0)
+ ;
+"RTN","VPRDJ",114,0)
+TEST(DFN,TYPE,ID,TEXT,IN) ; -- test GET, write results to screen
+"RTN","VPRDJ",115,0)
+ N OUT,IDX
+"RTN","VPRDJ",116,0)
+ S U="^"
+"RTN","VPRDJ",117,0)
+ S:'$D(IN("systemID")) IN("systemID")=$$GET^XPAR("SYS","VPR SYSTEM NAME")
+"RTN","VPRDJ",118,0)
+ S IN("patientId")=+$G(DFN)
+"RTN","VPRDJ",119,0)
+ S IN("domain")=$G(TYPE)
+"RTN","VPRDJ",120,0)
+ S:$D(ID) IN("id")=ID
+"RTN","VPRDJ",121,0)
+ S:$D(TEXT) IN("text")=TEXT
+"RTN","VPRDJ",122,0)
+ D GET(.OUT,.IN)
+"RTN","VPRDJ",123,0)
+ ;
+"RTN","VPRDJ",124,0)
+ S IDX=OUT
+"RTN","VPRDJ",125,0)
+ F S IDX=$Q(@IDX) Q:IDX'?1"^TMP(""VPR"","1.N.E Q:+$P(IDX,",",2)'=$J W !, at IDX
+"RTN","VPRDJ",126,0)
+ Q
+"RTN","VPRDJ0")
+0^3^B87481337^n/a
+"RTN","VPRDJ0",1,0)
+VPRDJ0 ;SLC/MKB -- Serve VistA data as JSON cont ;6/25/12 16:11
+"RTN","VPRDJ0",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ0",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ0",4,0)
+ ;
+"RTN","VPRDJ0",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ0",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ0",7,0)
+ ; ^DPT 10035 <see VPRDJ0* for others>
+"RTN","VPRDJ0",8,0)
+ ;
+"RTN","VPRDJ0",9,0)
+ ; All tags expect DFN, VPRSTART, VPRSTOP, VPRMAX, VPRID, VPRTEXT
+"RTN","VPRDJ0",10,0)
+ ;
+"RTN","VPRDJ0",11,0)
+PATIENT ; -- Patient Registration
+"RTN","VPRDJ0",12,0)
+ D DPT1^VPRDJ00
+"RTN","VPRDJ0",13,0)
+ Q
+"RTN","VPRDJ0",14,0)
+ ;
+"RTN","VPRDJ0",15,0)
+PROBLEM ; -- Problem List
+"RTN","VPRDJ0",16,0)
+ I $G(VPRID) D GMPL1^VPRDJ02(VPRID) Q
+"RTN","VPRDJ0",17,0)
+ N ID,VPRSTS,VPRPROB,VPRN,X
+"RTN","VPRDJ0",18,0)
+ S VPRSTS=$G(FILTER("status")) ;default = all problems
+"RTN","VPRDJ0",19,0)
+ D LIST^GMPLUTL2(.VPRPROB,DFN,VPRSTS)
+"RTN","VPRDJ0",20,0)
+ S VPRN=0 F S VPRN=$O(VPRPROB(VPRN)) Q:(VPRN<1)!(VPRI'<VPRMAX) D
+"RTN","VPRDJ0",21,0)
+ . S X=$P(VPRPROB(VPRN),U,6) I X,(X<VPRSTART)!(X>VPRSTOP) Q ;last updated
+"RTN","VPRDJ0",22,0)
+ . S ID=+VPRPROB(VPRN) D GMPL1^VPRDJ02(ID)
+"RTN","VPRDJ0",23,0)
+ Q
+"RTN","VPRDJ0",24,0)
+ ;
+"RTN","VPRDJ0",25,0)
+ALLERGY ; -- Allergies/Adverse Reactions
+"RTN","VPRDJ0",26,0)
+ N GMRAL,ID D EN1^GMRADPT
+"RTN","VPRDJ0",27,0)
+ I 'GMRAL Q ;D NKA^VPRDJ02 Q
+"RTN","VPRDJ0",28,0)
+ I $G(VPRID) D GMRA1^VPRDJ02(VPRID) Q
+"RTN","VPRDJ0",29,0)
+ S ID=0 F S ID=+$O(GMRAL(ID)) Q:ID<1 D GMRA1^VPRDJ02(ID) Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",30,0)
+ Q
+"RTN","VPRDJ0",31,0)
+ ;
+"RTN","VPRDJ0",32,0)
+CONSULT ; -- Consult/Request Tracking
+"RTN","VPRDJ0",33,0)
+ N VPRN,VPRX,ID
+"RTN","VPRDJ0",34,0)
+ D OER^GMRCSLM1(DFN,"",VPRSTART,VPRSTOP,"")
+"RTN","VPRDJ0",35,0)
+ S VPRN=0 F S VPRN=$O(^TMP("GMRCR",$J,"CS",VPRN)) Q:VPRN<1!(VPRN>VPRMAX) S VPRX=$G(^(VPRN,0)) Q:$E(VPRX)="<" D
+"RTN","VPRDJ0",36,0)
+ . I $G(VPRID),VPRID'=+VPRX Q
+"RTN","VPRDJ0",37,0)
+ . D GMRC1^VPRDJ03(+VPRX)
+"RTN","VPRDJ0",38,0)
+ K ^TMP("GMRCR",$J,"CS")
+"RTN","VPRDJ0",39,0)
+ Q
+"RTN","VPRDJ0",40,0)
+ ;
+"RTN","VPRDJ0",41,0)
+VITAL ; -- GMR Vital Measurements
+"RTN","VPRDJ0",42,0)
+ I $L($G(VPRID)) D GMV1^VPRDJ02(VPRID) Q
+"RTN","VPRDJ0",43,0)
+ N GMRVSTR,VPRIDT,VPRTYP,ID
+"RTN","VPRDJ0",44,0)
+ S GMRVSTR="BP;T;R;P;HT;WT;CVP;CG;PO2;PN"
+"RTN","VPRDJ0",45,0)
+ S GMRVSTR(0)=VPRSTART_U_VPRSTOP_U_VPRMAX_"^1"
+"RTN","VPRDJ0",46,0)
+ D EN1^GMRVUT0
+"RTN","VPRDJ0",47,0)
+ S VPRIDT=0 F S VPRIDT=$O(^UTILITY($J,"GMRVD",VPRIDT)) Q:VPRIDT<1 D Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",48,0)
+ . S VPRTYP="" F S VPRTYP=$O(^UTILITY($J,"GMRVD",VPRIDT,VPRTYP)) Q:VPRTYP="" D
+"RTN","VPRDJ0",49,0)
+ .. S ID=$O(^UTILITY($J,"GMRVD",VPRIDT,VPRTYP,0)) D GMV1^VPRDJ02(ID)
+"RTN","VPRDJ0",50,0)
+ K ^UTILITY($J,"GMRVD")
+"RTN","VPRDJ0",51,0)
+ Q
+"RTN","VPRDJ0",52,0)
+ ;
+"RTN","VPRDJ0",53,0)
+LAB ; -- Lab Results
+"RTN","VPRDJ0",54,0)
+ N LRDFN,VPRSUB,VPRIDT,VPRN,VPRP,VPRACC,BEG,END,SUB,ORPK,ID,X
+"RTN","VPRDJ0",55,0)
+ S LRDFN=$G(^DPT(DFN,"LR")),VPRSUB=$G(FILTER("category"))
+"RTN","VPRDJ0",56,0)
+ S BEG=VPRSTART,END=VPRSTOP,VPRID=$G(VPRID),ORPK=""
+"RTN","VPRDJ0",57,0)
+ I $L(VPRID) D ;reset for LR7OR1
+"RTN","VPRDJ0",58,0)
+ . I VPRID S ORPK=VPRID,VPRID=$P(VPRID,";",4,99) Q:VPRID="" ;order
+"RTN","VPRDJ0",59,0)
+ . S VPRSUB=$P(VPRID,";"),VPRIDT=+$P(VPRID,";",2)
+"RTN","VPRDJ0",60,0)
+ . S:VPRIDT (BEG,END)=9999999-VPRIDT
+"RTN","VPRDJ0",61,0)
+ S SUB=VPRSUB I $L(SUB),"CH^MI"'[SUB S SUB="AP"
+"RTN","VPRDJ0",62,0)
+ D RR^LR7OR1(DFN,ORPK,BEG,END,SUB,,,VPRMAX)
+"RTN","VPRDJ0",63,0)
+ S VPRSUB="" F S VPRSUB=$O(^TMP("LRRR",$J,DFN,VPRSUB)) Q:VPRSUB="" D
+"RTN","VPRDJ0",64,0)
+ . S VPRIDT=0 F S VPRIDT=$O(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT)) Q:VPRIDT<1 I $O(^(VPRIDT,0)) D Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",65,0)
+ .. I VPRSUB="MI" S ID=VPRSUB_";"_VPRIDT D MI^VPRDJ06 Q
+"RTN","VPRDJ0",66,0)
+ .. I VPRSUB'="CH" S ID=VPRSUB_";"_VPRIDT D AP^VPRDJ06 Q
+"RTN","VPRDJ0",67,0)
+ .. D ACC^VPRDJ06 ;get chem accession data
+"RTN","VPRDJ0",68,0)
+ .. S VPRP=0 F S VPRP=$O(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT,VPRP)) Q:VPRP<1 S X=+$G(^(VPRP)) D
+"RTN","VPRDJ0",69,0)
+ ... S VPRN=$$LRDN^LRPXAPIU(X) I $L(VPRID,";")>2,VPRN'=$P(VPRID,";",3) Q
+"RTN","VPRDJ0",70,0)
+ ... S ID=VPRSUB_";"_VPRIDT_";"_VPRN D CH1^VPRDJ06
+"RTN","VPRDJ0",71,0)
+ K ^TMP("LRRR",$J),^TMP("LRX",$J)
+"RTN","VPRDJ0",72,0)
+ Q
+"RTN","VPRDJ0",73,0)
+ ;
+"RTN","VPRDJ0",74,0)
+PROCEDUR ; -- Clinical Procedures
+"RTN","VPRDJ0",75,0)
+ N VPRN,VPRX,BEG,END,ID
+"RTN","VPRDJ0",76,0)
+ S BEG=VPRSTART,END=VPRSTOP
+"RTN","VPRDJ0",77,0)
+ I $G(VPRID) D ;reset dates for VPRID only
+"RTN","VPRDJ0",78,0)
+ . N VPRMC,IEN,FILE,X
+"RTN","VPRDJ0",79,0)
+ . S IEN=+VPRID,FILE=+$P(VPRID,"(",2) Q:FILE=702 Q:'FILE
+"RTN","VPRDJ0",80,0)
+ . D MEDLKUP^MCARUTL3(.VPRMC,FILE,IEN)
+"RTN","VPRDJ0",81,0)
+ . S X=$P(VPRMC,U,6) S:X (BEG,END)=X
+"RTN","VPRDJ0",82,0)
+ D MDPS1^VPRDJ03(DFN,BEG,END,VPRMAX) ;gets ^TMP("MDHSP",$J)
+"RTN","VPRDJ0",83,0)
+ S VPRN=0 F S VPRN=$O(^TMP("MDHSP",$J,VPRN)) Q:VPRN<1 S VPRX=$G(^(VPRN)) D
+"RTN","VPRDJ0",84,0)
+ . I $G(VPRID),+VPRID'=+$P(VPRX,U,2) Q ;update 1 procedure
+"RTN","VPRDJ0",85,0)
+ . D MC1^VPRDJ03($G(VPRID)) ;uses VPRX
+"RTN","VPRDJ0",86,0)
+ K ^TMP("MDHSP",$J)
+"RTN","VPRDJ0",87,0)
+ Q
+"RTN","VPRDJ0",88,0)
+ ;
+"RTN","VPRDJ0",89,0)
+OBS ; -- Clinical Observations (CLiO)
+"RTN","VPRDJ0",90,0)
+ N VPRCLIO,VPRN,ID,X
+"RTN","VPRDJ0",91,0)
+ I $L($G(VPRID)) D MDC1^VPRDJ03(VPRID) Q
+"RTN","VPRDJ0",92,0)
+ D QRYPT^VPRDMDC("VPRCLIO",DFN,VPRSTART,VPRSTOP) ;all [verified] observations
+"RTN","VPRDJ0",93,0)
+ S VPRN=0 F S VPRN=$O(VPRCLIO(VPRN)) Q:(VPRN<1)!(VPRI'<VPRMAX) D
+"RTN","VPRDJ0",94,0)
+ . S ID=$G(VPRCLIO(VPRN)) ;GUID
+"RTN","VPRDJ0",95,0)
+ . D MDC1^VPRDJ03(ID)
+"RTN","VPRDJ0",96,0)
+ Q
+"RTN","VPRDJ0",97,0)
+ ;
+"RTN","VPRDJ0",98,0)
+ORDER ; -- Order Entry
+"RTN","VPRDJ0",99,0)
+ N ORLIST,VPRN,DAD,ID,X,X3,X4
+"RTN","VPRDJ0",100,0)
+ I $G(VPRID) S ORLIST=$H D OR1^VPRDJ01(VPRID) G ORQ
+"RTN","VPRDJ0",101,0)
+ D EN^ORQ1(DFN_";DPT(",,6,,VPRSTART,VPRSTOP,,,,1)
+"RTN","VPRDJ0",102,0)
+ S VPRN=0 F S VPRN=$O(^TMP("ORR",$J,ORLIST,VPRN)) Q:VPRN<1 S ID=$G(^(VPRN)) D Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",103,0)
+ . Q:$D(^TMP("ORGOTIT",$J,+ID)) Q:$P(ID,";",2)>1 S ID=+ID ;actions
+"RTN","VPRDJ0",104,0)
+ . S X3=$G(^OR(100,ID,3)),X4=$G(^(4))
+"RTN","VPRDJ0",105,0)
+ . Q:$P(X3,U,3)=13 I X4["P",$P(X3,U,3)=1!($P(X3,U,3)=12) Q ;cancelled
+"RTN","VPRDJ0",106,0)
+ . S DAD=+$P(X3,U,9) I DAD D:'$D(^TMP("ORGOTIT",$J,DAD)) OR1^VPRDJ01(DAD) Q
+"RTN","VPRDJ0",107,0)
+ . D OR1^VPRDJ01(ID)
+"RTN","VPRDJ0",108,0)
+ORQ ; end
+"RTN","VPRDJ0",109,0)
+ K ^TMP("ORR",$J),^TMP("ORGOTIT",$J)
+"RTN","VPRDJ0",110,0)
+ Q
+"RTN","VPRDJ0",111,0)
+ ;
+"RTN","VPRDJ0",112,0)
+TREATMEN ; -- Nursing Treatments (orders)
+"RTN","VPRDJ0",113,0)
+ N ORLIST,ORDG,VPRN,ID,X,X3,X4
+"RTN","VPRDJ0",114,0)
+ I $G(VPRID) S ORLIST=$H D NTX1^VPRDJ01(VPRID) G TXQ
+"RTN","VPRDJ0",115,0)
+ S ORDG=+$O(^ORD(100.98,"B","NTX",0))
+"RTN","VPRDJ0",116,0)
+ D EN^ORQ1(DFN_";DPT(",ORDG,6,,VPRSTART,VPRSTOP,,,,1)
+"RTN","VPRDJ0",117,0)
+ S VPRN=0 F S VPRN=$O(^TMP("ORR",$J,ORLIST,VPRN)) Q:VPRN<1 S ID=$G(^(VPRN)) D Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",118,0)
+ . Q:$D(^TMP("ORGOTIT",$J,+ID)) Q:$P(ID,";",2)>1 S ID=+ID ;actions
+"RTN","VPRDJ0",119,0)
+ . S X3=$G(^OR(100,ID,3)),X4=$G(^(4))
+"RTN","VPRDJ0",120,0)
+ . Q:$P(X3,U,3)=13 I X4["P",$P(X3,U,3)=1!($P(X3,U,3)=12) Q ;cancelled
+"RTN","VPRDJ0",121,0)
+ . D NTX1^VPRDJ01(ID)
+"RTN","VPRDJ0",122,0)
+TXQ ; end
+"RTN","VPRDJ0",123,0)
+ K ^TMP("ORR",$J),^TMP("ORGOTIT",$J)
+"RTN","VPRDJ0",124,0)
+ Q
+"RTN","VPRDJ0",125,0)
+ ;
+"RTN","VPRDJ0",126,0)
+MED ; -- Pharmacy
+"RTN","VPRDJ0",127,0)
+ N ORDIALOG I $G(VPRID),$D(^OR(100,+VPRID)) D PS1^VPRDJ05(VPRID) Q ;get 1 order
+"RTN","VPRDJ0",128,0)
+ N TYPE,ORDG,ORVP,ORLIST,VPRN,ORLIST,X3,X4,DAD,ID
+"RTN","VPRDJ0",129,0)
+ S TYPE=$G(FILTER("vaType")) S:$L(TYPE) TYPE=$S(TYPE="N":"NV",TYPE="V":"IV",1:TYPE)_" "
+"RTN","VPRDJ0",130,0)
+ S ORDG=+$O(^ORD(100.98,"B",TYPE_"RX",0)),ORVP=DFN_";DPT("
+"RTN","VPRDJ0",131,0)
+ D EN^ORQ1(ORVP,ORDG,6,,VPRSTART,VPRSTOP)
+"RTN","VPRDJ0",132,0)
+ K ^TMP("VPROR",$J) S VPRN=0
+"RTN","VPRDJ0",133,0)
+ F S VPRN=$O(^TMP("ORR",$J,ORLIST,VPRN)) Q:VPRN<1 S ID=$G(^(VPRN)) D Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",134,0)
+ . Q:$D(^TMP("VPROR",$J,+ID)) Q:$P(ID,";",2)>1 S ID=+ID
+"RTN","VPRDJ0",135,0)
+ . S X3=$G(^OR(100,ID,3)),X4=$G(^(4))
+"RTN","VPRDJ0",136,0)
+ . Q:$P(X3,U,3)=13 I X4["P",$P(X3,U,3)=1!($P(X3,U,3)=12) Q ;cancelled
+"RTN","VPRDJ0",137,0)
+ . S DAD=$P(X3,U,9) I DAD Q:$D(^TMP("VPROR",$J,DAD)) S ID=DAD
+"RTN","VPRDJ0",138,0)
+ . D PS1^VPRDJ05(ID) S ^TMP("VPROR",$J,ID)=""
+"RTN","VPRDJ0",139,0)
+ K ^TMP("VPROR",$J),^TMP("ORR",$J),^TMP("ORGOTIT",$J),^TMP($J,"PSOI")
+"RTN","VPRDJ0",140,0)
+ Q
+"RTN","VPRDJ0",141,0)
+ ;
+"RTN","VPRDJ0",142,0)
+PTF ; -- Patient Treatment File
+"RTN","VPRDJ0",143,0)
+ N VPRIDT,ID,P,TYPE
+"RTN","VPRDJ0",144,0)
+ I $G(VPRID),VPRID'=+VPRID D PTFA^VPRDJ04A(VPRID) Q
+"RTN","VPRDJ0",145,0)
+ I $G(VPRID) D Q:'$D(^TMP("VPRPX",$J)) ;update via DGPM = ien only
+"RTN","VPRDJ0",146,0)
+ . N X,Y,I S VPRIDT=9999999 ;so build ^TMP nodes
+"RTN","VPRDJ0",147,0)
+ . D RPC^DGPTFAPI(.Y,VPRID)
+"RTN","VPRDJ0",148,0)
+ . S X=$P($G(Y(1)),U,3) I $L(X) S ^TMP("VPRPX",$J,VPRIDT,VPRID_";70;DXLS")=X_U
+"RTN","VPRDJ0",149,0)
+ . F I=1:1:9 S X=$P($G(Y(2)),U,I) I $L(X) S ^TMP("VPRPX",$J,VPRIDT,VPRID_";70;D SD"_I)=X_U
+"RTN","VPRDJ0",150,0)
+ D:'$G(VPRID) PTF^VPRDJ09 ;sort ^PXRMINDX into ^TMP("VPRPX",$J,IDT)
+"RTN","VPRDJ0",151,0)
+ S VPRIDT=0 F S VPRIDT=$O(^TMP("VPRPX",$J,VPRIDT)) Q:VPRIDT<1 D Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",152,0)
+ . S ID="" F S ID=$O(^TMP("VPRPX",$J,VPRIDT,ID)) Q:ID="" D PTF1^VPRDJ04A Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",153,0)
+ K ^TMP("VPRPX",$J)
+"RTN","VPRDJ0",154,0)
+ Q
+"RTN","VPRDJ0",155,0)
+ ;
+"RTN","VPRDJ0",156,0)
+FACTOR D PX^VPRDJ09(9000010.23) Q ; -- PCE Health Factors
+"RTN","VPRDJ0",157,0)
+IMMUNIZA D PX^VPRDJ09(9000010.11) Q ; -- PCE Immunizations
+"RTN","VPRDJ0",158,0)
+EXAM D PX^VPRDJ09(9000010.13) Q ; -- PCE Exams
+"RTN","VPRDJ0",159,0)
+CPT D PX^VPRDJ09(9000010.18) Q ; -- PCE CPT
+"RTN","VPRDJ0",160,0)
+EDUCATIO D PX^VPRDJ09(9000010.16) Q ; -- PCE Patient Education
+"RTN","VPRDJ0",161,0)
+POV D PX^VPRDJ09(9000010.07) Q ; -- PCE Purpose of Visit (POV)
+"RTN","VPRDJ0",162,0)
+SKIN D PX^VPRDJ09(9000010.12) Q ; -- PCE Skin Tests
+"RTN","VPRDJ0",163,0)
+ ;
+"RTN","VPRDJ0",164,0)
+IMAGE ; -- Radiology/Nuclear Medicine
+"RTN","VPRDJ0",165,0)
+ D EN1^RAO7PC1(DFN,VPRSTART,VPRSTOP,VPRMAX_"P")
+"RTN","VPRDJ0",166,0)
+ I $G(VPRID) D RA1^VPRDJ07(VPRID) G IMQ
+"RTN","VPRDJ0",167,0)
+ N ID S ID=""
+"RTN","VPRDJ0",168,0)
+ F S ID=$O(^TMP($J,"RAE1",DFN,ID)) Q:ID="" D RA1^VPRDJ07(ID) Q:VPRI'<+VPRMAX
+"RTN","VPRDJ0",169,0)
+IMQ ; end
+"RTN","VPRDJ0",170,0)
+ K ^TMP($J,"RAE1")
+"RTN","VPRDJ0",171,0)
+ Q
+"RTN","VPRDJ0",172,0)
+ ;
+"RTN","VPRDJ0",173,0)
+APPOINTM ; -- Scheduling/Appointment Mgt
+"RTN","VPRDJ0",174,0)
+ N VPRX,VPRNUM,VPRDT,X,VPRA,ID
+"RTN","VPRDJ0",175,0)
+ S VPRX(1)=VPRSTART_";"_VPRSTOP,VPRX(4)=DFN,ID=$G(VPRID)
+"RTN","VPRDJ0",176,0)
+ S VPRX("FLDS")="1;2;3;6;9;10;11;13",VPRX("SORT")="P"
+"RTN","VPRDJ0",177,0)
+ I $L(ID) G:$E(ID)="H" DGS^VPRDJ04 D Q
+"RTN","VPRDJ0",178,0)
+ . S VPRDT=$P(ID,";",2),VPRX(1)=$P(ID,";",2)_";"_$P(ID,";",2)
+"RTN","VPRDJ0",179,0)
+ . S VPRX(2)=$P(ID,";",3)
+"RTN","VPRDJ0",180,0)
+ . S VPRNUM=$$SDAPI^SDAMA301(.VPRX)
+"RTN","VPRDJ0",181,0)
+ . D:VPRNUM>0 SDAM1^VPRDJ04
+"RTN","VPRDJ0",182,0)
+ . K ^TMP($J,"SDAMA301",DFN)
+"RTN","VPRDJ0",183,0)
+ ; appointments
+"RTN","VPRDJ0",184,0)
+ S VPRX(3)="R;I;NS;NSR;NT" ;no cancelled appt's
+"RTN","VPRDJ0",185,0)
+ S VPRNUM=$$SDAPI^SDAMA301(.VPRX),VPRDT=0
+"RTN","VPRDJ0",186,0)
+ F S VPRDT=$O(^TMP($J,"SDAMA301",DFN,VPRDT)) Q:VPRDT<1 D Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",187,0)
+ . S X=$P($G(^TMP($J,"SDAMA301",DFN,VPRDT)),U,3)
+"RTN","VPRDJ0",188,0)
+ . ;I VPRDT<DT,$P(X,";")'["NS" Q ;no prior kept appt's
+"RTN","VPRDJ0",189,0)
+ . D SDAM1^VPRDJ04
+"RTN","VPRDJ0",190,0)
+ K ^TMP($J,"SDAMA301",DFN)
+"RTN","VPRDJ0",191,0)
+ Q
+"RTN","VPRDJ0",192,0)
+ ;
+"RTN","VPRDJ0",193,0)
+SURGERY ; -- Surgery
+"RTN","VPRDJ0",194,0)
+ I $G(VPRID) D SR1^VPRDJ07(VPRID) Q
+"RTN","VPRDJ0",195,0)
+ Q:'$L($T(LIST^SROESTV))
+"RTN","VPRDJ0",196,0)
+ N SHOWADD S SHOWADD=1 ;to omit leading '+' with note titles
+"RTN","VPRDJ0",197,0)
+ N VPRN,VPRY,ID D LIST^SROESTV(.VPRY,DFN,VPRSTART,VPRSTOP,VPRMAX,1)
+"RTN","VPRDJ0",198,0)
+ S VPRN=0 F S VPRN=$O(@VPRY@(VPRN)) Q:VPRN<1 D
+"RTN","VPRDJ0",199,0)
+ . S ID=+$G(@VPRY@(VPRN)) D:ID SR1^VPRDJ07(ID)
+"RTN","VPRDJ0",200,0)
+ K @VPRY
+"RTN","VPRDJ0",201,0)
+ Q
+"RTN","VPRDJ0",202,0)
+ ;
+"RTN","VPRDJ0",203,0)
+DOCUMENT ; -- Text Integration Utilities
+"RTN","VPRDJ0",204,0)
+ N VPRC,CLS,VPRS,CTXT,VPRY,VPRN,VPRX,ID
+"RTN","VPRDJ0",205,0)
+ I $L($G(VPRID)) D TIU1^VPRDJ08(VPRID) Q
+"RTN","VPRDJ0",206,0)
+ N CLASS,SUBCLASS,STATUS
+"RTN","VPRDJ0",207,0)
+ D SETUP^VPRDJ08 ;define search criteria
+"RTN","VPRDJ0",208,0)
+ F VPRC=1:1:$L(CLASS,U) S CLS=$P(CLASS,U,VPRC) D Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",209,0)
+ . I CLS="CP" D CP^VPRDJ08A(DFN,VPRSTART,VPRSTOP,VPRMAX) Q
+"RTN","VPRDJ0",210,0)
+ . I CLS="RA" D RA^VPRDJ08A(DFN,VPRSTART,VPRSTOP,VPRMAX) Q
+"RTN","VPRDJ0",211,0)
+ . I CLS="LR" D LR^VPRDJ08A(DFN,VPRSTART,VPRSTOP,VPRMAX) Q
+"RTN","VPRDJ0",212,0)
+ . ; TIU document classes, by sig status
+"RTN","VPRDJ0",213,0)
+ . F VPRS=1:1:$L(STATUS,U) S CTXT=$P(STATUS,U,VPRS) D Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",214,0)
+ .. D CONTEXT^TIUSRVLO(.VPRY,CLS,CTXT,DFN,VPRSTART,VPRSTOP,,VPRMAX,,1)
+"RTN","VPRDJ0",215,0)
+ .. S VPRN=0 F S VPRN=$O(@VPRY@(VPRN)) Q:VPRN<1 D Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",216,0)
+ ... S VPRX=$G(@VPRY@(VPRN)) Q:'$$MATCH^VPRDJ08(VPRX,CTXT)
+"RTN","VPRDJ0",217,0)
+ ... Q:$D(^TMP("VPRD",$J,+VPRX)) ;already included
+"RTN","VPRDJ0",218,0)
+ ... D EN1^VPRDJ08(VPRX,CLS)
+"RTN","VPRDJ0",219,0)
+ .. K @VPRY
+"RTN","VPRDJ0",220,0)
+ Q
+"RTN","VPRDJ0",221,0)
+ ;
+"RTN","VPRDJ0",222,0)
+VISIT ; -- Visits
+"RTN","VPRDJ0",223,0)
+ I $L($G(VPRID)) D VSIT1^VPRDJ04(VPRID) Q
+"RTN","VPRDJ0",224,0)
+ N VPRDT,VPRLOC,END,ID
+"RTN","VPRDJ0",225,0)
+ N VPRADMIT S VPRADMIT=+$G(^DPT(DFN,.105)) ;current admission
+"RTN","VPRDJ0",226,0)
+ S END=VPRSTOP I VPRSTOP,VPRSTOP'["." S END=VPRSTOP_".24" ;assume end of day
+"RTN","VPRDJ0",227,0)
+ S VPRDT=END F S VPRDT=$O(^AUPNVSIT("AET",DFN,VPRDT),-1) Q:VPRDT<VPRSTART D Q:VPRI'<VPRMAX
+"RTN","VPRDJ0",228,0)
+ . S VPRLOC=0 F S VPRLOC=$O(^AUPNVSIT("AET",DFN,VPRDT,VPRLOC)) Q:VPRLOC<1 D
+"RTN","VPRDJ0",229,0)
+ .. S ID=0 F S ID=$O(^AUPNVSIT("AET",DFN,VPRDT,VPRLOC,"P",ID)) Q:ID<1 D VSIT1^VPRDJ04(ID)
+"RTN","VPRDJ0",230,0)
+ ; kill VPRADMIT in VSIT1 if adm is included, but add unless filtered
+"RTN","VPRDJ0",231,0)
+ I $G(VPRADMIT),VPRMAX'<9999,VPRSTART'>1410102 D VSIT1^VPRDJ04("H"_VPRADMIT)
+"RTN","VPRDJ0",232,0)
+ Q
+"RTN","VPRDJ0",233,0)
+ ;
+"RTN","VPRDJ0",234,0)
+VPR ; -- VPR Patient Objects
+"RTN","VPRDJ0",235,0)
+ D VPR^VPRDJ02($G(TYPE))
+"RTN","VPRDJ0",236,0)
+ Q
+"RTN","VPRDJ0",237,0)
+ ;
+"RTN","VPRDJ0",238,0)
+MH ; -- Mental Health
+"RTN","VPRDJ0",239,0)
+ I $L($T(MH^VPRDJ09M)) D MH^VPRDJ09M
+"RTN","VPRDJ0",240,0)
+ Q
+"RTN","VPRDJ00")
+0^21^B58623073^n/a
+"RTN","VPRDJ00",1,0)
+VPRDJ00 ;SLC/MKB -- Patient demographics ;8/11/11 15:29
+"RTN","VPRDJ00",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ00",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ00",4,0)
+ ;
+"RTN","VPRDJ00",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ00",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ00",7,0)
+ ; ^AUPNVSIT 2028
+"RTN","VPRDJ00",8,0)
+ ; ^DPT 10035
+"RTN","VPRDJ00",9,0)
+ ; DGCV 4156
+"RTN","VPRDJ00",10,0)
+ ; DGMSTAPI 2716
+"RTN","VPRDJ00",11,0)
+ ; DGNTAPI 3457
+"RTN","VPRDJ00",12,0)
+ ; DGPFAPI 3860
+"RTN","VPRDJ00",13,0)
+ ; DGRPDB 4807
+"RTN","VPRDJ00",14,0)
+ ; DIQ 2056
+"RTN","VPRDJ00",15,0)
+ ; MPIF001 2701
+"RTN","VPRDJ00",16,0)
+ ; SDUTL3 1252
+"RTN","VPRDJ00",17,0)
+ ; VADPT 10061
+"RTN","VPRDJ00",18,0)
+ ; VAFCTFU1 2990
+"RTN","VPRDJ00",19,0)
+ ; VASITE 10112
+"RTN","VPRDJ00",20,0)
+ ; XUAF4 2171
+"RTN","VPRDJ00",21,0)
+ ;
+"RTN","VPRDJ00",22,0)
+ ; All tags expect DFN, VPRID, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ00",23,0)
+ ;
+"RTN","VPRDJ00",24,0)
+DPT1 ; -- Demographics [VPRSTART,VPRSTOP,VPRMAX,VPRID not currently used here]
+"RTN","VPRDJ00",25,0)
+ N PAT,SYS S SYS=$$SITE^VASITE
+"RTN","VPRDJ00",26,0)
+ D DEM,SVC,PRF,ATC,SUPP,ALIAS,FAC,PC
+"RTN","VPRDJ00",27,0)
+ I $D(PAT)>9 D ADD^VPRDJ("PAT")
+"RTN","VPRDJ00",28,0)
+ Q
+"RTN","VPRDJ00",29,0)
+ ;
+"RTN","VPRDJ00",30,0)
+DEM ;-demographic data
+"RTN","VPRDJ00",31,0)
+ N VADM,VA,VAERR,X
+"RTN","VPRDJ00",32,0)
+ S X=+$$GETICN^MPIF001(DFN) S:X>1 PAT("icn")=X
+"RTN","VPRDJ00",33,0)
+ D DEM^VADPT S X=VADM(1),PAT("fullName")=X
+"RTN","VPRDJ00",34,0)
+ S PAT("familyName")=$P(X,","),PAT("givenNames")=$P(X,",",2,99)
+"RTN","VPRDJ00",35,0)
+ S PAT("ssn")=$P(VADM(2),U),PAT("localId")=DFN
+"RTN","VPRDJ00",36,0)
+ S PAT("uid")=$$SETUID^VPRUTILS("patient",DFN,DFN)
+"RTN","VPRDJ00",37,0)
+ S:$D(VA("BID")) PAT("briefId")=$E(X)_VA("BID")
+"RTN","VPRDJ00",38,0)
+ S X=+$P($P(VADM(3),U),"."),PAT("dateOfBirth")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ00",39,0)
+ S X=$P(VADM(5),U),PAT("genderCode")="urn:va:pat-gender:"_X,PAT("genderName")=$$NAME(X,"gender")
+"RTN","VPRDJ00",40,0)
+ S X=+$P($P(VADM(6),U),".") S:X PAT("died")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ00",41,0)
+ S X=$$GET1^DIQ(38.1,DFN_",",2,"I") S:$L(X) PAT("sensitive")=$$BOOL(X)
+"RTN","VPRDJ00",42,0)
+ S X=+VADM(9) S:X PAT("religionCode")="urn:va:pat-religion:"_X,PAT("religionName")=$$NAME(X,"religion")
+"RTN","VPRDJ00",43,0)
+ S X=$P(VADM(10),U,2) I $L(X) D ;PAT("maritalStatus")=$E(X)
+"RTN","VPRDJ00",44,0)
+ . S X=$E(X),X=$S(X="S":"L",X="N":"S",1:X)
+"RTN","VPRDJ00",45,0)
+ . S PAT("maritalStatuses",1,"code")="urn:va:pat-maritalStatus:"_X
+"RTN","VPRDJ00",46,0)
+ . S PAT("maritalStatuses",1,"name")=$$NAME(X,"maritalStatus")
+"RTN","VPRDJ00",47,0)
+ I VADM(11) D
+"RTN","VPRDJ00",48,0)
+ . N I S I=0
+"RTN","VPRDJ00",49,0)
+ . F S I=$O(VADM(11,I)) Q:I<1 S X=+VADM(11,I),PAT("ethnicities",X,"ethnicity")=$$GET1^DIQ(2.06,X_","_DFN_",",".01:3")
+"RTN","VPRDJ00",50,0)
+ I VADM(12) D
+"RTN","VPRDJ00",51,0)
+ . N I S I=0
+"RTN","VPRDJ00",52,0)
+ . F S I=$O(VADM(12,I)) Q:I<1 S X=+VADM(12,I),PAT("races",X,"race")=$$GET1^DIQ(2.02,X_","_DFN_",",".01:3")
+"RTN","VPRDJ00",53,0)
+ Q
+"RTN","VPRDJ00",54,0)
+SVC ;-service data
+"RTN","VPRDJ00",55,0)
+ N VAEL,VASV,VAERR,X,Y,I,AO,IR,PGF,HNC,MST,CV
+"RTN","VPRDJ00",56,0)
+ D 7^VADPT
+"RTN","VPRDJ00",57,0)
+ ; PAT("veteran")=VAEL(4)
+"RTN","VPRDJ00",58,0)
+ S PAT("veteran","serviceConnected")=$$BOOL(+VAEL(3))
+"RTN","VPRDJ00",59,0)
+ S:VAEL(3) PAT("veteran","serviceConnectionPercent")=+$P(VAEL(3),U,2)
+"RTN","VPRDJ00",60,0)
+ S X=+$G(^DPT(DFN,"LR")) S:X PAT("veteran","lrdfn")=X
+"RTN","VPRDJ00",61,0)
+ ;
+"RTN","VPRDJ00",62,0)
+ ; exposures
+"RTN","VPRDJ00",63,0)
+ S AO=VASV(2),IR=VASV(3)
+"RTN","VPRDJ00",64,0)
+ S PGF=VASV(11)!VASV(12)!VASV(13) ;OIF/OEF
+"RTN","VPRDJ00",65,0)
+ S X=$$GETCUR^DGNTAPI(DFN,"HNC"),X=+($G(HNC("STAT")))
+"RTN","VPRDJ00",66,0)
+ S HNC=$S(X=4:1,X=5:1,X=1:0,X=6:0,1:"")
+"RTN","VPRDJ00",67,0)
+ S X=$P($$GETSTAT^DGMSTAPI(DFN),U,2),MST=$S(X="Y":1,X="N":0,1:"")
+"RTN","VPRDJ00",68,0)
+ S X=$$CVEDT^DGCV(DFN),CV=$S(+X<0:"",+X=0:0,$P(X,U,3):1,1:0)
+"RTN","VPRDJ00",69,0)
+ S X=AO_U_IR_U_PGF_U_HNC_U_MST_U_CV
+"RTN","VPRDJ00",70,0)
+ F P=1:1:6 S I=$P(X,U,P),$P(X,U,P)=$S(I:"Yes",I=0:"No",1:"Unknown")
+"RTN","VPRDJ00",71,0)
+ S NM="agent-orange^ionizing-radiation^sw-asia^head-neck-cancer^mst^combat-vet"
+"RTN","VPRDJ00",72,0)
+ F P=1:1:6 S PAT("exposures",P,"uid")="urn:va:"_$P(NM,U,P)_":"_$E($P(X,U,P)),PAT("exposures",P,"name")=$P(X,U,P)
+"RTN","VPRDJ00",73,0)
+ ;
+"RTN","VPRDJ00",74,0)
+ ; rated disabilities [DGRPDB]
+"RTN","VPRDJ00",75,0)
+ N VPRDIS,DIS,NM,DX
+"RTN","VPRDJ00",76,0)
+ D RDIS^DGRPDB(DFN,.VPRDIS)
+"RTN","VPRDJ00",77,0)
+ S I=0 F S I=$O(VPRDIS(I)) Q:I<1 D
+"RTN","VPRDJ00",78,0)
+ . S DIS=VPRDIS(I)
+"RTN","VPRDJ00",79,0)
+ . S NM=$$GET1^DIQ(31,+DIS_",",.01),DX=$$GET1^DIQ(31,+DIS_",",2)
+"RTN","VPRDJ00",80,0)
+ . S PAT("disability",+DX)=NM_U_$P(DIS,U,2,3) ;name^%^sc
+"RTN","VPRDJ00",81,0)
+ Q
+"RTN","VPRDJ00",82,0)
+PRF ;-patient record flags
+"RTN","VPRDJ00",83,0)
+ N VPRPF,I,NAME,TEXT
+"RTN","VPRDJ00",84,0)
+ Q:'$$GETACT^DGPFAPI(DFN,"VPRPF")
+"RTN","VPRDJ00",85,0)
+ S I=0 F S I=$O(VPRPF(I)) Q:I<1 D
+"RTN","VPRDJ00",86,0)
+ . S NAME=$P(VPRPF(I,"FLAG"),U,2)
+"RTN","VPRDJ00",87,0)
+ . M TEXT=VPRPF(I,"NARR")
+"RTN","VPRDJ00",88,0)
+ . S PAT("flags",I,"name")=NAME
+"RTN","VPRDJ00",89,0)
+ . S PAT("flags",I,"text")=$$STRING^VPRD(.TEXT)
+"RTN","VPRDJ00",90,0)
+ Q
+"RTN","VPRDJ00",91,0)
+ATC ;-address & telecom
+"RTN","VPRDJ00",92,0)
+ N VAPA,I,X,P,NM
+"RTN","VPRDJ00",93,0)
+ S VAPA("P")="" D ADD^VADPT ;permanent address
+"RTN","VPRDJ00",94,0)
+ S:$L(VAPA(1)) PAT("addresses",1,"streetLine1")=VAPA(1)
+"RTN","VPRDJ00",95,0)
+ S X=VAPA(2) I $L(X),$L(VAPA(3)) S X=X_" "_VAPA(3)
+"RTN","VPRDJ00",96,0)
+ S:$L(X) PAT("addresses",1,"streetLine2")=X
+"RTN","VPRDJ00",97,0)
+ S:$L(VAPA(4)) PAT("addresses",1,"city")=VAPA(4)
+"RTN","VPRDJ00",98,0)
+ S X=$P(VAPA(5),U,2) S:$L(X) PAT("addresses",1,"stateProvince")=X
+"RTN","VPRDJ00",99,0)
+ S X=$P(VAPA(11),U,2) S:$L(X) PAT("addresses",1,"postalCode")=X
+"RTN","VPRDJ00",100,0)
+ ;
+"RTN","VPRDJ00",101,0)
+ ; X=home^cell^work phones
+"RTN","VPRDJ00",102,0)
+ S X=$$FORMAT(VAPA(8))_U_$$FORMAT($$GET1^DIQ(2,DFN_",",.134))_U_$$FORMAT($$GET1^DIQ(2,DFN_",",.132))
+"RTN","VPRDJ00",103,0)
+ S NM="H^MC^WP" F P=1:1:3 I $L($P(X,U,P)) D
+"RTN","VPRDJ00",104,0)
+ . S I=$P(NM,U,P),PAT("telecoms",P,"usageCode")=I
+"RTN","VPRDJ00",105,0)
+ . S PAT("telecoms",P,"usageName")=$S(I="WP":"work place",I="MC":"mobile contact",1:"home address")
+"RTN","VPRDJ00",106,0)
+ . S PAT("telecoms",P,"telecom")=$P(X,U,P)
+"RTN","VPRDJ00",107,0)
+ Q
+"RTN","VPRDJ00",108,0)
+SUPP ;-support contacts
+"RTN","VPRDJ00",109,0)
+ N VAOA,A,I,X,TYPE,S
+"RTN","VPRDJ00",110,0)
+ S S=0 F A="",1 K VAOA D
+"RTN","VPRDJ00",111,0)
+ . S:A VAOA("A")=A D OAD^VADPT Q:'$L($G(VAOA(9)))
+"RTN","VPRDJ00",112,0)
+ . S S=S+1,TYPE=$S(A=1:"ECON^Emergency Contact",1:"NOK^Next of Kin")
+"RTN","VPRDJ00",113,0)
+ . S PAT("supports",S,"contactTypeCode")="urn:va:pat-contact:"_$P(TYPE,U)
+"RTN","VPRDJ00",114,0)
+ . S PAT("supports",S,"contactTypeName")=$P(TYPE,U,2)
+"RTN","VPRDJ00",115,0)
+ . S:$L(VAOA(9)) PAT("supports",S,"name")=VAOA(9)
+"RTN","VPRDJ00",116,0)
+ . S:$L(VAOA(10)) PAT("supports",S,"relationship")=VAOA(10)
+"RTN","VPRDJ00",117,0)
+ . S:$L(VAOA(1)) PAT("supports",S,"addresses",1,"streetLine1")=VAOA(1)
+"RTN","VPRDJ00",118,0)
+ . S X=VAOA(2) I $L(X),$L(VAOA(3)) S X=X_" "_VAOA(3)
+"RTN","VPRDJ00",119,0)
+ . S:$L(X) PAT("supports",S,"addresses",1,"streetLine2")=X
+"RTN","VPRDJ00",120,0)
+ . S:$L(VAOA(4)) PAT("supports",S,"addresses",1,"city")=VAOA(4)
+"RTN","VPRDJ00",121,0)
+ . S X=$P(VAOA(5),U,2) S:$L(X) PAT("supports",S,"addresses",1,"stateProvince")=X
+"RTN","VPRDJ00",122,0)
+ . S X=$P(VAOA(11),U,2) S:$L(X) PAT("supports",S,"addresses",1,"postalCode")=X
+"RTN","VPRDJ00",123,0)
+ . S I=$S(A=1:.33011,1:.21011),X=$$FORMAT(VAOA(8))_U_U_$$FORMAT($$GET1^DIQ(2,DFN_",",I))
+"RTN","VPRDJ00",124,0)
+ . ; X=home^cell^work phones
+"RTN","VPRDJ00",125,0)
+ . S NM="H^MC^WP" F P=1:1:3 I $L($P(X,U,P)) D
+"RTN","VPRDJ00",126,0)
+ .. S I=$P(NM,U,P),PAT("supports",S,"telecomList",P,"usageCode")=I
+"RTN","VPRDJ00",127,0)
+ .. S PAT("supports",S,"telecomList",P,"usageName")=$S(I="WP":"work place",I="MC":"mobile contact",1:"home address")
+"RTN","VPRDJ00",128,0)
+ .. S PAT("supports",S,"telecomList",P,"telecom")=$P(X,U,P)
+"RTN","VPRDJ00",129,0)
+ Q
+"RTN","VPRDJ00",130,0)
+ALIAS ;-other names used
+"RTN","VPRDJ00",131,0)
+ N I,X
+"RTN","VPRDJ00",132,0)
+ S I=0 F S I=$O(^DPT(DFN,.01,I)) Q:I<1 S X=$G(^(I,0)) D
+"RTN","VPRDJ00",133,0)
+ . S PAT("aliases",I,"fullName")=$P(X,U)
+"RTN","VPRDJ00",134,0)
+ Q
+"RTN","VPRDJ00",135,0)
+FAC ;-treating facilities [see FACLIST^ORWCIRN]
+"RTN","VPRDJ00",136,0)
+ N IFN S DFN=+$G(DFN) Q:DFN<1
+"RTN","VPRDJ00",137,0)
+ N VPRY,HOME,LAST,I,X,IEN,VASITE
+"RTN","VPRDJ00",138,0)
+ S X=$$ALL^VASITE ;VASITE(stn#)=stn# for all local
+"RTN","VPRDJ00",139,0)
+ I $L($T(TFL^VAFCTFU1)) D TFL^VAFCTFU1(.VPRY,DFN)
+"RTN","VPRDJ00",140,0)
+ S HOME=+$P($G(^DPT(DFN,"MPI")),U,3) ;home facility
+"RTN","VPRDJ00",141,0)
+ I $P($G(VPRY(1)),U)<0 D ;not setup
+"RTN","VPRDJ00",142,0)
+ . S X=$O(^AUPNVSIT("AA",DFN,0)),LAST=$S(X:9999999-$P(X,"."),1:"")
+"RTN","VPRDJ00",143,0)
+ . S X=$$SITE^VASITE
+"RTN","VPRDJ00",144,0)
+ . S VPRY(1)=$P(X,U,3)_U_$P(X,U,2)_U_LAST_U_$$GET1^DIQ(4,+X_",",60)
+"RTN","VPRDJ00",145,0)
+ S I=0 F S I=$O(VPRY(I)) Q:I<1 D
+"RTN","VPRDJ00",146,0)
+ . S X=VPRY(I) Q:$P(X,U)="" ;unknown
+"RTN","VPRDJ00",147,0)
+ . S IEN=+$$IEN^XUAF4($P(X,U))
+"RTN","VPRDJ00",148,0)
+ . I +X=776!(+X=200) S $P(X,U,2)="DEPT. OF DEFENSE"
+"RTN","VPRDJ00",149,0)
+ . S PAT("facilities",I,"code")=$P(X,U) ;stn#
+"RTN","VPRDJ00",150,0)
+ . S PAT("facilities",I,"name")=$P(X,U,2) ;name
+"RTN","VPRDJ00",151,0)
+ . S:IEN=HOME PAT("facilities",I,"homeSite")="true"
+"RTN","VPRDJ00",152,0)
+ . S:$L($P(X,U,3)) PAT("facilities",I,"latestDate")=$$JSONDT^VPRUTILS($P($P(X,U,3),"."))
+"RTN","VPRDJ00",153,0)
+ . I $D(VASITE(+X)) D
+"RTN","VPRDJ00",154,0)
+ .. S PAT("facilities",I,"localPatientId")=DFN
+"RTN","VPRDJ00",155,0)
+ .. S PAT("facilities",I,"systemId")=VPRSYS
+"RTN","VPRDJ00",156,0)
+ Q
+"RTN","VPRDJ00",157,0)
+PC ;-primary care assignments
+"RTN","VPRDJ00",158,0)
+ N X S X=$$OUTPTPR^SDUTL3(DFN) I X D
+"RTN","VPRDJ00",159,0)
+ . S PAT("pcProviderUid")=$$SETUID^VPRUTILS("user",,+X)
+"RTN","VPRDJ00",160,0)
+ . S PAT("pcProviderName")=$P(X,U,2)
+"RTN","VPRDJ00",161,0)
+ S X=$$OUTPTTM^SDUTL3(DFN) I X D
+"RTN","VPRDJ00",162,0)
+ . S PAT("pcTeamUid")=$$SETUID^VPRUTILS("team",,+X)
+"RTN","VPRDJ00",163,0)
+ . S PAT("pcTeamName")=$$GET1^DIQ(404.51,+X_",",.01)
+"RTN","VPRDJ00",164,0)
+ Q
+"RTN","VPRDJ00",165,0)
+ ;
+"RTN","VPRDJ00",166,0)
+FORMAT(X) ; -- enforce (xxx)xxx-xxxx phone format
+"RTN","VPRDJ00",167,0)
+ S X=$G(X) I X?1"("3N1")"3N1"-"4N.E Q X
+"RTN","VPRDJ00",168,0)
+ N P,N,I,Y S P=""
+"RTN","VPRDJ00",169,0)
+ F I=1:1:$L(X) S N=$E(X,I) I N=+N S P=P_N
+"RTN","VPRDJ00",170,0)
+ S:$L(P)<10 P=$E("0000000000",1,10-$L(P))_P
+"RTN","VPRDJ00",171,0)
+ S Y=$S(P:"("_$E(P,1,3)_")"_$E(P,4,6)_"-"_$E(P,7,10),1:"")
+"RTN","VPRDJ00",172,0)
+ Q Y
+"RTN","VPRDJ00",173,0)
+ ;
+"RTN","VPRDJ00",174,0)
+NAME(CODE,SET) ; -- Return expanded name for code set
+"RTN","VPRDJ00",175,0)
+ N Y S Y="",CODE=$G(CODE)
+"RTN","VPRDJ00",176,0)
+ I $G(SET)="gender" S Y=$S(CODE="F":"Female",CODE="M":"Male",1:"Unknown")
+"RTN","VPRDJ00",177,0)
+ I $G(SET)="maritalStatus" S Y=$S(CODE="D":"Divorced",CODE="M":"Married",CODE="W":"Widowed",CODE="L":"Legally Separated",CODE="S":"Never Married",1:"Unknown")
+"RTN","VPRDJ00",178,0)
+ I $G(SET)="religion" S Y=$$GET1^DIQ(13,CODE_",",.01)
+"RTN","VPRDJ00",179,0)
+ Q Y
+"RTN","VPRDJ00",180,0)
+ ;
+"RTN","VPRDJ00",181,0)
+BOOL(X) ;
+"RTN","VPRDJ00",182,0)
+ Q $S(X>0:"true",1:"false")
+"RTN","VPRDJ01")
+0^4^B39474581^n/a
+"RTN","VPRDJ01",1,0)
+VPRDJ01 ;SLC/MKB -- Orders ;6/25/12 16:11
+"RTN","VPRDJ01",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ01",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ01",4,0)
+ ;
+"RTN","VPRDJ01",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ01",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ01",7,0)
+ ; ^DPT 10035
+"RTN","VPRDJ01",8,0)
+ ; ^OR(100 5771
+"RTN","VPRDJ01",9,0)
+ ; ^ORA(102.4 5769
+"RTN","VPRDJ01",10,0)
+ ; ^ORD(100.98 873
+"RTN","VPRDJ01",11,0)
+ ; ^PXRMINDX 4290
+"RTN","VPRDJ01",12,0)
+ ; ^RADPT 2480
+"RTN","VPRDJ01",13,0)
+ ; ^SC 10040
+"RTN","VPRDJ01",14,0)
+ ; ^VA(200 10060
+"RTN","VPRDJ01",15,0)
+ ; DIC 2051
+"RTN","VPRDJ01",16,0)
+ ; DIQ 2056
+"RTN","VPRDJ01",17,0)
+ ; GMRCGUIB 2980
+"RTN","VPRDJ01",18,0)
+ ; LR7OU1 2955
+"RTN","VPRDJ01",19,0)
+ ; ORQ1,^TMP("ORR" 3154
+"RTN","VPRDJ01",20,0)
+ ; ORQ12,^TMP("ORR" 5704
+"RTN","VPRDJ01",21,0)
+ ; ORX8 2467
+"RTN","VPRDJ01",22,0)
+ ; PSS51P1 4546
+"RTN","VPRDJ01",23,0)
+ ;
+"RTN","VPRDJ01",24,0)
+ ; All tags expect DFN, ID, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ01",25,0)
+ ;
+"RTN","VPRDJ01",26,0)
+OR1(ID) ; -- order ID >> ^TMP("ORR",$J,ORLIST,VPRN)
+"RTN","VPRDJ01",27,0)
+ N ORDER,CHILD,VPRC
+"RTN","VPRDJ01",28,0)
+ D ORX(ID,.ORDER)
+"RTN","VPRDJ01",29,0)
+ S VPRC=0 F S VPRC=$O(^OR(100,ID,2,VPRC)) Q:VPRC<1 D
+"RTN","VPRDJ01",30,0)
+ . K CHILD D ORX(VPRC,.CHILD)
+"RTN","VPRDJ01",31,0)
+ . M ORDER("children",VPRC)=CHILD
+"RTN","VPRDJ01",32,0)
+ D ADD^VPRDJ("ORDER","order")
+"RTN","VPRDJ01",33,0)
+ Q
+"RTN","VPRDJ01",34,0)
+ORX(IFN,ORD) ; -- extract order IFN into ORD("attribute")
+"RTN","VPRDJ01",35,0)
+ N ORLIST,ORLST,X0,X8,LOC,X,I,DA
+"RTN","VPRDJ01",36,0)
+ S ORLST=$S(+$G(VPRN):VPRN-1,1:0) S:'$D(ORLIST) ORLIST=$H
+"RTN","VPRDJ01",37,0)
+ D GET^ORQ12(IFN,ORLIST,1)
+"RTN","VPRDJ01",38,0)
+ S X0=$G(^TMP("ORR",$J,ORLIST,ORLST))
+"RTN","VPRDJ01",39,0)
+ ;
+"RTN","VPRDJ01",40,0)
+ S ORD("localId")=IFN,ORD("uid")=$$SETUID^VPRUTILS("order",DFN,IFN)
+"RTN","VPRDJ01",41,0)
+ S X=$$OI^ORX8(+X0) I $L(X) D
+"RTN","VPRDJ01",42,0)
+ . N ARRAY,NAME
+"RTN","VPRDJ01",43,0)
+ . S ARRAY("Code")=1_U_"oi",ARRAY("Name")=2,ARRAY("PackageRef")=3
+"RTN","VPRDJ01",44,0)
+ . D SPLITVAL^VPRUTILS(X,.ARRAY) S ORD("name")=ARRAY("Name")
+"RTN","VPRDJ01",45,0)
+ . S NAME="" F S NAME=$O(ARRAY(NAME)) Q:NAME="" S ORD("oi"_NAME)=$G(ARRAY(NAME))
+"RTN","VPRDJ01",46,0)
+ S ORD("displayGroup")=$P(X0,U,2)
+"RTN","VPRDJ01",47,0)
+ S ORD("entered")=$$JSONDT^VPRUTILS($P(X0,U,3))
+"RTN","VPRDJ01",48,0)
+ S ORD("start")=$$TM($P(X0,U,4)),ORD("stop")=$$TM($P(X0,U,5))
+"RTN","VPRDJ01",49,0)
+ S ORD("statusCode")="urn:va:order-status:"_$P(X0,U,7)
+"RTN","VPRDJ01",50,0)
+ S ORD("statusName")=$P(X0,U,6)
+"RTN","VPRDJ01",51,0)
+ S ORD("statusVuid")="urn:va:vuid:"_$$STS^VPRDOR($P(X0,U,7))
+"RTN","VPRDJ01",52,0)
+ D SETTEXT^VPRUTILS($NA(^TMP("ORR",$J,ORLIST,ORLST,"TX")),$NA(^TMP("VPRTEXT",$J,IFN)))
+"RTN","VPRDJ01",53,0)
+ M ORD("content","\")=^TMP("VPRTEXT",$J,IFN)
+"RTN","VPRDJ01",54,0)
+ S X=$$GET1^DIQ(100,IFN_",",1,"I") I X D
+"RTN","VPRDJ01",55,0)
+ . S ORD("providerUid")=$$SETUID^VPRUTILS("user",,+X)
+"RTN","VPRDJ01",56,0)
+ . S ORD("providerName")=$P($G(^VA(200,+X,0)),U)
+"RTN","VPRDJ01",57,0)
+ S LOC=+$$GET1^DIQ(100,IFN_",",6,"I"),FAC=$$FAC^VPRD(LOC) I LOC D
+"RTN","VPRDJ01",58,0)
+ . S ORD("locationName")=$P($G(^SC(LOC,0)),U)
+"RTN","VPRDJ01",59,0)
+ . S ORD("locationUid")=$$SETUID^VPRUTILS("location",,LOC)
+"RTN","VPRDJ01",60,0)
+ D FACILITY^VPRUTILS(FAC,"ORD")
+"RTN","VPRDJ01",61,0)
+ S ORD("service")=$$GET1^DIQ(100,IFN_",","12:1")
+"RTN","VPRDJ01",62,0)
+ S X=$$GET1^DIQ(100,IFN_",",9,"I") S:X ORD("predecessor")=$$SETUID^VPRUTILS("order",DFN,+X)
+"RTN","VPRDJ01",63,0)
+ S X=$$GET1^DIQ(100,IFN_",",9.1,"I") S:X ORD("successor")=$$SETUID^VPRUTILS("order",DFN,+X)
+"RTN","VPRDJ01",64,0)
+ D RESULTS
+"RTN","VPRDJ01",65,0)
+ ; sign/verify
+"RTN","VPRDJ01",66,0)
+ S X8=$G(^OR(100,IFN,8,1,0)),I=0 I $P(X8,U,6) D ;signed
+"RTN","VPRDJ01",67,0)
+ . N PROV S PROV=$P(X8,U,5) S:PROV<1 PROV=$P(X8,U,3) ;if on chart,
+"RTN","VPRDJ01",68,0)
+ . D USER(.I,"S",PROV,$P(X8,U,6)) ; use provider
+"RTN","VPRDJ01",69,0)
+ I $P(X8,U,9) D USER(.I,"N",$P(X8,U,8),$P(X8,U,9)) ;nurse
+"RTN","VPRDJ01",70,0)
+ I $P(X8,U,11) D USER(.I,"C",$P(X8,U,10),$P(X8,U,11)) ;clerk
+"RTN","VPRDJ01",71,0)
+ I $P(X8,U,19) D USER(.I,"R",$P(X8,U,18),$P(X8,U,19)) ;chart review
+"RTN","VPRDJ01",72,0)
+ Q
+"RTN","VPRDJ01",73,0)
+ ; acknowledgements
+"RTN","VPRDJ01",74,0)
+ S DA=0 F S DA=$O(^ORA(102.4,"B",+IFN,DA)) Q:DA<1 D
+"RTN","VPRDJ01",75,0)
+ . S X0=$G(^ORA(102.4,DA,0)) Q:'$P(X0,U,3) ;stub - not ack'd
+"RTN","VPRDJ01",76,0)
+ . S X=+$P(X0,U,2),X=$S(X:X_U_$P($G(^VA(200,X,0)),U),1:U)
+"RTN","VPRDJ01",77,0)
+ . S ORD("acknowledgement",DA)=X_U_$P(X0,U,3)
+"RTN","VPRDJ01",78,0)
+ Q
+"RTN","VPRDJ01",79,0)
+ ;
+"RTN","VPRDJ01",80,0)
+RESULTS ; -- add ORD("results",n,"uid") list
+"RTN","VPRDJ01",81,0)
+ N ORPK,ORPKG,ORDG
+"RTN","VPRDJ01",82,0)
+ S ORPK=$G(^OR(100,IFN,4)),ORPKG=ORD("service"),ORDG=ORD("displayGroup")
+"RTN","VPRDJ01",83,0)
+ I ORPKG="GMRC" D Q
+"RTN","VPRDJ01",84,0)
+ . N VPRD,I,N,X D DOCLIST^GMRCGUIB(.VPRD,+ORPK)
+"RTN","VPRDJ01",85,0)
+ . S N=1,ORD("results",N,"uid")=$$SETUID^VPRUTILS("consult",DFN,+ORPK)
+"RTN","VPRDJ01",86,0)
+ . S I=0 F S I=$O(VPRD(50,I)) Q:I<1 S X=$G(VPRD(50,I)) D
+"RTN","VPRDJ01",87,0)
+ .. Q:'$D(@(U_$P(X,";",2)_+X_")")) ;text deleted
+"RTN","VPRDJ01",88,0)
+ .. S N=N+1,ORD("results",N,"uid")=$$SETUID^VPRUTILS("document",DFN,+X)
+"RTN","VPRDJ01",89,0)
+ . Q:ORDG'="PROC"
+"RTN","VPRDJ01",90,0)
+ . N VPRC D FIND^DIC(702,,"@","Q",+ORPK,,"ACON",,,"VPRC") ;CP
+"RTN","VPRDJ01",91,0)
+ . S I=0 F S I=$O(VPRC("DILIST",2,I)) Q:I<1 D
+"RTN","VPRDJ01",92,0)
+ .. S X=+$G(VPRC("DILIST",2,I))_";MDD(702,"
+"RTN","VPRDJ01",93,0)
+ .. S N=N+1,ORD("results",N,"uid")=$$SETUID^VPRUTILS("procedure",DFN,X)
+"RTN","VPRDJ01",94,0)
+ I ORPKG="LR" D Q
+"RTN","VPRDJ01",95,0)
+ . Q:$L(ORPK,";")'>3 ;no results yet, or parent order
+"RTN","VPRDJ01",96,0)
+ . N SUB,IDT,CDT,ITM,VPRT,ID,T,N,LRDFN,IDX
+"RTN","VPRDJ01",97,0)
+ . S SUB=$P(ORPK,";",4),IDT=$P(ORPK,";",5),CDT=9999999-IDT
+"RTN","VPRDJ01",98,0)
+ . I SUB="CH" D Q
+"RTN","VPRDJ01",99,0)
+ .. S ITM=+$G(ORD("oiPackageRef")) D EXPAND^LR7OU1(ITM,.VPRT)
+"RTN","VPRDJ01",100,0)
+ .. S (T,N)=0 F S T=$O(VPRT(T)) Q:T<1 S ID=$O(^PXRMINDX(63,"PI",DFN,T,CDT,"")) I $L(ID) S N=N+1,ORD("results",N,"uid")=$$SETUID^VPRUTILS("lab",DFN,$P(ID,";",2,9))
+"RTN","VPRDJ01",101,0)
+ . I SUB="MI" D Q
+"RTN","VPRDJ01",102,0)
+ .. S ITM="M;A;",N=0,LRDFN=$G(^DPT(DFN,"LR"))
+"RTN","VPRDJ01",103,0)
+ .. F S ITM=$O(^PXRMINDX(63,"PI",DFN,ITM)) Q:$E(ITM,1,4)'="M;A;" I $D(^(ITM,CDT)) D
+"RTN","VPRDJ01",104,0)
+ ... S IDX=LRDFN_";MI;"_IDT
+"RTN","VPRDJ01",105,0)
+ ... F S IDX=$O(^PXRMINDX(63,"PI",DFN,ITM,CDT,IDX)) Q:IDX="" S ID=$P(IDX,";",2,99),N=N+1,ORD("results",N,"uid")=$$SETUID^VPRUTILS("lab",DFN,ID)
+"RTN","VPRDJ01",106,0)
+ .. S N=N+1,ORD("results",N,"uid")=$$SETUID^VPRUTILS("document",DFN,SUB_";"_IDT)
+"RTN","VPRDJ01",107,0)
+ . ; SUB:"AP" [AU,CY,EM,SP]
+"RTN","VPRDJ01",108,0)
+ . S ORD("results",1,"uid")=$$SETUID^VPRUTILS("lab",DFN,SUB_";"_IDT)
+"RTN","VPRDJ01",109,0)
+ . S ORD("results",2,"uid")=$$SETUID^VPRUTILS("document",DFN,SUB_";"_IDT)
+"RTN","VPRDJ01",110,0)
+ I ORPKG["PS" D Q
+"RTN","VPRDJ01",111,0)
+ . S:ORPK ORD("results",1,"uid")=$$SETUID^VPRUTILS("med",DFN,IFN)
+"RTN","VPRDJ01",112,0)
+ I ORPKG="RA" D Q
+"RTN","VPRDJ01",113,0)
+ . N IDT,CN S IDT=+$O(^RADPT("AO",+ORPK,DFN,0)) Q:'IDT
+"RTN","VPRDJ01",114,0)
+ . S CN=0 F S CN=$O(^RADPT("AO",+ORPK,DFN,IDT,CN)) Q:CN<1 S ORD("results",CN,"uid")=$$SETUID^VPRUTILS("image",DFN,IDT_"-"_CN)
+"RTN","VPRDJ01",115,0)
+ ; rest should be generic (OR) orders
+"RTN","VPRDJ01",116,0)
+ I ORDG="NTX" S ORD("results",1,"uid")=$$SETUID^VPRUTILS("treatment",DFN,IFN) Q
+"RTN","VPRDJ01",117,0)
+ I ORDG="V/M" Q ;no link
+"RTN","VPRDJ01",118,0)
+ Q
+"RTN","VPRDJ01",119,0)
+ ;
+"RTN","VPRDJ01",120,0)
+NTX1(IFN) ; -- extract nursing treatment order IFN into NTX("attribute")
+"RTN","VPRDJ01",121,0)
+ N NTX,X
+"RTN","VPRDJ01",122,0)
+ D ORX(IFN,.NTX) ;get basic order info
+"RTN","VPRDJ01",123,0)
+ S NTX("orderUid")=NTX("uid")
+"RTN","VPRDJ01",124,0)
+ S NTX("uid")=$$SETUID^VPRUTILS("treatment",DFN,IFN)
+"RTN","VPRDJ01",125,0)
+ S X=$$VALUE^ORX8(IFN,"COMMENT") S:$L(X) NTX("instructions")=X
+"RTN","VPRDJ01",126,0)
+ S X=$$VALUE^ORX8(IFN,"SCHEDULE") I X D
+"RTN","VPRDJ01",127,0)
+ . D ZERO^PSS51P1(X,,,,"VPRS")
+"RTN","VPRDJ01",128,0)
+ . S NTX("scheduleName")=$G(^TMP($J,"VPRS",X,.01))
+"RTN","VPRDJ01",129,0)
+ . S NTX("adminTimes")=$G(^TMP($J,"VPRS",X,1))
+"RTN","VPRDJ01",130,0)
+ . K ^TMP($J,"VPRS")
+"RTN","VPRDJ01",131,0)
+ D ADD^VPRDJ("NTX","treatment")
+"RTN","VPRDJ01",132,0)
+ Q
+"RTN","VPRDJ01",133,0)
+ ;
+"RTN","VPRDJ01",134,0)
+USER(N,ROLE,IEN,DATE) ; -- add signature/verification data
+"RTN","VPRDJ01",135,0)
+ S N=+$G(N)+1
+"RTN","VPRDJ01",136,0)
+ S ORD("clinicians",N,"signedDateTime")=$$JSONDT^VPRUTILS(DATE)
+"RTN","VPRDJ01",137,0)
+ S ORD("clinicians",N,"role")=$G(ROLE)
+"RTN","VPRDJ01",138,0)
+ Q:+$G(IEN)<1
+"RTN","VPRDJ01",139,0)
+ S ORD("clinicians",N,"uid")=$$SETUID^VPRUTILS("user",,IEN)
+"RTN","VPRDJ01",140,0)
+ S ORD("clinicians",N,"name")=$P($G(^VA(200,IEN,0)),U)
+"RTN","VPRDJ01",141,0)
+ Q
+"RTN","VPRDJ01",142,0)
+ ;
+"RTN","VPRDJ01",143,0)
+TM(X) ; -- strip seconds off a FM time
+"RTN","VPRDJ01",144,0)
+ N D,T,Y S D=$P(X,"."),T=$P(X,".",2)
+"RTN","VPRDJ01",145,0)
+ S Y=D_$S(T:"."_$E(T,1,4),1:"")
+"RTN","VPRDJ01",146,0)
+ S Y=$$JSONDT^VPRUTILS(Y)
+"RTN","VPRDJ01",147,0)
+ Q Y
+"RTN","VPRDJ02")
+0^5^B43626306^n/a
+"RTN","VPRDJ02",1,0)
+VPRDJ02 ;SLC/MKB -- Problems,Allergies,Vitals ;6/25/12 16:11
+"RTN","VPRDJ02",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ02",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ02",4,0)
+ ;
+"RTN","VPRDJ02",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ02",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ02",7,0)
+ ; ^PXRMINDX 4290
+"RTN","VPRDJ02",8,0)
+ ; ^SC 10040
+"RTN","VPRDJ02",9,0)
+ ; DIC 2051
+"RTN","VPRDJ02",10,0)
+ ; DIQ 2056
+"RTN","VPRDJ02",11,0)
+ ; GMPLUTL2 2741
+"RTN","VPRDJ02",12,0)
+ ; GMRADPT 10099
+"RTN","VPRDJ02",13,0)
+ ; GMRAOR2 2422
+"RTN","VPRDJ02",14,0)
+ ; GMRVUT0,^UTILITY($J 1446
+"RTN","VPRDJ02",15,0)
+ ; GMVGETQL 5048
+"RTN","VPRDJ02",16,0)
+ ; GMVGETVT 5047
+"RTN","VPRDJ02",17,0)
+ ; GMVUTL 5046
+"RTN","VPRDJ02",18,0)
+ ; ICDCODE 3990
+"RTN","VPRDJ02",19,0)
+ ; XLFSTR 10104
+"RTN","VPRDJ02",20,0)
+ ; XUAF4 2171
+"RTN","VPRDJ02",21,0)
+ ;
+"RTN","VPRDJ02",22,0)
+ ; All tags expect DFN, ID, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ02",23,0)
+ ;
+"RTN","VPRDJ02",24,0)
+GMPL1(ID) ; -- problem
+"RTN","VPRDJ02",25,0)
+ N VPRL,PROB,X,I,DATE,USER,FAC
+"RTN","VPRDJ02",26,0)
+ D DETAIL^GMPLUTL2(ID,.VPRL) Q:'$D(VPRL) ;doesn't exist
+"RTN","VPRDJ02",27,0)
+ ;
+"RTN","VPRDJ02",28,0)
+ S PROB("uid")=$$SETUID^VPRUTILS("problem",DFN,ID),PROB("localId")=ID
+"RTN","VPRDJ02",29,0)
+ S PROB("problemText")=$G(VPRL("NARRATIVE"))
+"RTN","VPRDJ02",30,0)
+ S DATE=$P($G(VPRL("ENTERED")),U)
+"RTN","VPRDJ02",31,0)
+ S:$L(DATE) DATE=$$DATE^VPRDGMPL(DATE),PROB("entered")=$$JSONDT^VPRUTILS(DATE)
+"RTN","VPRDJ02",32,0)
+ S X=$G(VPRL("DIAGNOSIS")) I $L(X) D
+"RTN","VPRDJ02",33,0)
+ . N ICD9ZN,DIAG
+"RTN","VPRDJ02",34,0)
+ . I DATE'>0 S DATE=DT
+"RTN","VPRDJ02",35,0)
+ . S ICD9ZN=$$ICDDX^ICDCODE(X,DATE),DIAG=$S($P($G(ICD9ZN),U,4)'="":$P(ICD9ZN,U,4),1:X)
+"RTN","VPRDJ02",36,0)
+ . S PROB("icdCode")=$$SETNCS^VPRUTILS("icd",X),PROB("icdName")=DIAG
+"RTN","VPRDJ02",37,0)
+ S X=$G(VPRL("ONSET")) S:$L(X) X=$$DATE^VPRDGMPL(X),PROB("onset")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ02",38,0)
+ S X=$G(VPRL("MODIFIED")) S:$L(X) X=$$DATE^VPRDGMPL(X),PROB("updated")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ02",39,0)
+ S X=$G(VPRL("STATUS")) I $L(X) D
+"RTN","VPRDJ02",40,0)
+ . S PROB("statusName")=X,X=$E(X)
+"RTN","VPRDJ02",41,0)
+ . S X=$S(X="A":55561003,X="I":73425007,1:"")
+"RTN","VPRDJ02",42,0)
+ . S PROB("statusCode")=$$SETNCS^VPRUTILS("sct",X)
+"RTN","VPRDJ02",43,0)
+ S X=$G(VPRL("PRIORITY")) I X]"" D
+"RTN","VPRDJ02",44,0)
+ . S X=$$LOW^XLFSTR(X),PROB("acuityName")=X
+"RTN","VPRDJ02",45,0)
+ . S PROB("acuityCode")=$$SETVURN^VPRUTILS("prob-acuity",$E(X))
+"RTN","VPRDJ02",46,0)
+ S X=$$GET1^DIQ(9000011,ID_",",1.07,"I") S:X PROB("resolved")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ02",47,0)
+ S X=$$GET1^DIQ(9000011,ID_",",1.02,"I")
+"RTN","VPRDJ02",48,0)
+ S:X="P" PROB("unverified")="false",PROB("removed")="false"
+"RTN","VPRDJ02",49,0)
+ S:X="T" PROB("unverified")="true",PROB("removed")="false"
+"RTN","VPRDJ02",50,0)
+ S:X="H" PROB("unverified")="false",PROB("removed")="true"
+"RTN","VPRDJ02",51,0)
+ S X=$G(VPRL("SC")),X=$S(X="YES":"",X="NO":"false",1:"")
+"RTN","VPRDJ02",52,0)
+ S:$L(X) PROB("serviceConnected")=X
+"RTN","VPRDJ02",53,0)
+ S X=$G(VPRL("PROVIDER")) I $L(X) D
+"RTN","VPRDJ02",54,0)
+ . S PROB("providerName")=X,X=$$GET1^DIQ(9000011,ID_",",1.05,"I")
+"RTN","VPRDJ02",55,0)
+ . S PROB("providerUid")=$$SETUID^VPRUTILS("user",,+X)
+"RTN","VPRDJ02",56,0)
+ S X=$$GET1^DIQ(9000011,ID_",",1.06) S:$L(X) PROB("service")=X
+"RTN","VPRDJ02",57,0)
+ S X=$G(VPRL("CLINIC")) I $L(X) D
+"RTN","VPRDJ02",58,0)
+ . S PROB("locationName")=X
+"RTN","VPRDJ02",59,0)
+ . N LOC S LOC=+$$FIND1^DIC(44,,"QX",X)
+"RTN","VPRDJ02",60,0)
+ . S:LOC PROB("locationUid")=$$SETUID^VPRUTILS("location",,LOC)
+"RTN","VPRDJ02",61,0)
+ S X=+$$GET1^DIQ(9000011,ID_",",.06,"I")
+"RTN","VPRDJ02",62,0)
+ S:X FAC=$$STA^XUAF4(X)_U_$P($$NS^XUAF4(X),U)
+"RTN","VPRDJ02",63,0)
+ I 'X S FAC=$$FAC^VPRD ;local stn#^name
+"RTN","VPRDJ02",64,0)
+ D FACILITY^VPRUTILS(FAC,"PROB")
+"RTN","VPRDJ02",65,0)
+ S I=0 F S I=$O(VPRL("COMMENT",I)) Q:I<1 D
+"RTN","VPRDJ02",66,0)
+ . S X=$G(VPRL("COMMENT",I))
+"RTN","VPRDJ02",67,0)
+ . S USER=$$VA200^VPRDGMPL($P(X,U,2)),DATE=$$DATE^VPRDGMPL($P(X,U))
+"RTN","VPRDJ02",68,0)
+ . S PROB("comments",I,"enteredByCode")=$$SETUID^VPRUTILS("user",,+USER)
+"RTN","VPRDJ02",69,0)
+ . S PROB("comments",I,"enteredByName")=$P(X,U,2)
+"RTN","VPRDJ02",70,0)
+ . S PROB("comments",I,"entered")=$$JSONDT^VPRUTILS(DATE)
+"RTN","VPRDJ02",71,0)
+ . S PROB("comments",I,"comment")=$P(X,U,3)
+"RTN","VPRDJ02",72,0)
+ D ADD^VPRDJ("PROB","problem")
+"RTN","VPRDJ02",73,0)
+ Q
+"RTN","VPRDJ02",74,0)
+ ;
+"RTN","VPRDJ02",75,0)
+GMRA1(ID) ; -- allergy/reaction GMRAL(ID)
+"RTN","VPRDJ02",76,0)
+ N GMRA,VPRY,REAC,X,Y,I
+"RTN","VPRDJ02",77,0)
+ S GMRA=$G(GMRAL(ID)) D EN1^GMRAOR2(ID,"VPRY")
+"RTN","VPRDJ02",78,0)
+ ;
+"RTN","VPRDJ02",79,0)
+ S X=$P(VPRY,U,10) I $L(X) S X=$$DATE^VPRDGMRA(X) Q:X<VPRSTART Q:X>VPRSTOP S REAC("entered")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ02",80,0)
+ S X=$$FAC^VPRD D FACILITY^VPRUTILS(X,"REAC")
+"RTN","VPRDJ02",81,0)
+ S REAC("kind")="Allergy / Adverse Reaction"
+"RTN","VPRDJ02",82,0)
+ S REAC("localId")=ID,REAC("uid")=$$SETUID^VPRUTILS("allergy",DFN,ID)
+"RTN","VPRDJ02",83,0)
+ S (REAC("summary"),REAC("products",1,"name"))=$P(VPRY,U) I $P(GMRA,U,9) D
+"RTN","VPRDJ02",84,0)
+ . S X=$P(GMRA,U,9),REAC("reference")=X
+"RTN","VPRDJ02",85,0)
+ . S Y=+$P(X,"(",2) I 'Y,X["PSDRUG" S Y=50
+"RTN","VPRDJ02",86,0)
+ . S I=$$VUID^VPRD(+X,Y),REAC("products",1,"vuid")=$$SETVURN^VPRUTILS("vuid",I)
+"RTN","VPRDJ02",87,0)
+ S REAC("historical")=$S($E($P(VPRY,U,5))="H":"true",1:"false")
+"RTN","VPRDJ02",88,0)
+ ; REAC("adverseEventTypeName")=$P(VPRY,U,7)_" "_$P(VPRY,U,6) ;TYPE_MECH
+"RTN","VPRDJ02",89,0)
+ I $P(VPRY,U,4)="VERIFIED",$P(VPRY,U,9) S REAC("verified")=$$JSONDT^VPRUTILS($P(VPRY,U,9))
+"RTN","VPRDJ02",90,0)
+ ; reactions
+"RTN","VPRDJ02",91,0)
+ S I=0 F S I=$O(GMRAL(ID,"S",I)) Q:I<1 D
+"RTN","VPRDJ02",92,0)
+ . S X=$G(GMRAL(ID,"S",I))
+"RTN","VPRDJ02",93,0)
+ . S REAC("reactions",I,"name")=$P(X,";")
+"RTN","VPRDJ02",94,0)
+ . S Y=$$VUID^VPRD(+$P(X,";",2),120.83)
+"RTN","VPRDJ02",95,0)
+ . S REAC("reactions",I,"vuid")=$$SETVURN^VPRUTILS("vuid",Y)
+"RTN","VPRDJ02",96,0)
+ I GMRA="" S REAC("removed")="true" ;entered in error
+"RTN","VPRDJ02",97,0)
+ D ADD^VPRDJ("REAC","allergy")
+"RTN","VPRDJ02",98,0)
+ Q
+"RTN","VPRDJ02",99,0)
+ ;
+"RTN","VPRDJ02",100,0)
+NKA ; -- no assessment or NKA [GMRAL=0 or ""]
+"RTN","VPRDJ02",101,0)
+ N REAC,X
+"RTN","VPRDJ02",102,0)
+ S REAC("assessment")=$S(GMRAL=0:"nka",1:"not done")
+"RTN","VPRDJ02",103,0)
+ S X=$$FAC^VPRD D FACILITY^VPRUTILS(X,"REAC")
+"RTN","VPRDJ02",104,0)
+ D ADD^VPRDJ("REAC","allergy")
+"RTN","VPRDJ02",105,0)
+ Q
+"RTN","VPRDJ02",106,0)
+ ;
+"RTN","VPRDJ02",107,0)
+GMV1(ID) ; -- vital/measurement ^UTILITY($J,"GMRVD",VPRIDT,VPRTYP,ID)
+"RTN","VPRDJ02",108,0)
+ N VIT,VPRY,X0,TYPE,LOC,FAC,X,Y,MRES,MUNT,HIGH,LOW,I
+"RTN","VPRDJ02",109,0)
+ D GETREC^GMVUTL(.VPRY,ID,1) S X0=$G(VPRY(0))
+"RTN","VPRDJ02",110,0)
+ ; GMRVUT0 returns CLiO data with a pseudo-ID >> get real ID
+"RTN","VPRDJ02",111,0)
+ I X0="",$G(VPRIDT),$D(VPRTYP) D ;[from VPRDJ0]
+"RTN","VPRDJ02",112,0)
+ . N GMRVD S GMRVD=$G(^UTILITY($J,"GMRVD",VPRIDT,VPRTYP,ID))
+"RTN","VPRDJ02",113,0)
+ . S ID=$O(^PXRMINDX(120.5,"PI",DFN,$P(GMRVD,U,3),+GMRVD,""))
+"RTN","VPRDJ02",114,0)
+ . I $L(ID) D GETREC^GMVUTL(.VPRY,ID,1) S X0=$G(VPRY(0))
+"RTN","VPRDJ02",115,0)
+ Q:X0=""
+"RTN","VPRDJ02",116,0)
+ ;
+"RTN","VPRDJ02",117,0)
+ S VIT("localId")=ID,VIT("kind")="Vital Sign"
+"RTN","VPRDJ02",118,0)
+ S VIT("uid")=$$SETUID^VPRUTILS("vital",DFN,ID)
+"RTN","VPRDJ02",119,0)
+ S VIT("observed")=$$JSONDT^VPRUTILS(+X0)
+"RTN","VPRDJ02",120,0)
+ S VIT("resulted")=$$JSONDT^VPRUTILS(+$P(X0,U,4))
+"RTN","VPRDJ02",121,0)
+ S TYPE=$$FIELD^GMVGETVT(+$P(X0,U,3),2)
+"RTN","VPRDJ02",122,0)
+ S VIT("displayName")=TYPE
+"RTN","VPRDJ02",123,0)
+ S VIT("typeName")=$$FIELD^GMVGETVT($P(X0,U,3),1)
+"RTN","VPRDJ02",124,0)
+ S VIT("typeCode")="urn:va:vuid:"_$$FIELD^GMVGETVT($P(X0,U,3),4)
+"RTN","VPRDJ02",125,0)
+ S X=$P(X0,U,8),VIT("result")=X
+"RTN","VPRDJ02",126,0)
+ S VIT("units")=$$UNIT^VPRDGMV(TYPE),(MRES,MUNT)=""
+"RTN","VPRDJ02",127,0)
+ I TYPE="T" S MUNT="C",MRES=$J(X-32*5/9,0,1) ;EN1^GMRVUTL
+"RTN","VPRDJ02",128,0)
+ I TYPE="HT" S MUNT="cm",MRES=$J(2.54*X,0,2) ;EN2^GMRVUTL
+"RTN","VPRDJ02",129,0)
+ I TYPE="WT" S MUNT="kg",MRES=$J(X/2.2,0,2) ;EN3^GMRVUTL
+"RTN","VPRDJ02",130,0)
+ I TYPE="CG" S MUNT="cm",MRES=$J(2.54*X,0,2)
+"RTN","VPRDJ02",131,0)
+ S:MRES VIT("metricResult")=MRES,VIT("metricUnits")=MUNT
+"RTN","VPRDJ02",132,0)
+ S X=$$RANGE^VPRDGMV(TYPE) I $L(X) S VIT("high")=$P(X,U),VIT("low")=$P(X,U,2)
+"RTN","VPRDJ02",133,0)
+ S VIT("summary")=VIT("typeName")_" "_VIT("result")_" "_VIT("units")
+"RTN","VPRDJ02",134,0)
+ F I=1:1:$L(VPRY(5),U) S X=$P(VPRY(5),U,I) I X D
+"RTN","VPRDJ02",135,0)
+ . S VIT("qualifiers",I,"name")=$$FIELD^GMVGETQL(X,1)
+"RTN","VPRDJ02",136,0)
+ . S VIT("qualifiers",I,"vuid")=$$FIELD^GMVGETQL(X,3)
+"RTN","VPRDJ02",137,0)
+ I $G(VPRY(2)) S VIT("removed")="true" ;entered in error
+"RTN","VPRDJ02",138,0)
+ S LOC=+$P(X0,U,5),FAC=$$FAC^VPRD(LOC)
+"RTN","VPRDJ02",139,0)
+ S VIT("locationUid")=$$SETUID^VPRUTILS("location",,LOC)
+"RTN","VPRDJ02",140,0)
+ S VIT("locationName")=$S(LOC:$P($G(^SC(LOC,0)),U),1:"unknown")
+"RTN","VPRDJ02",141,0)
+ D FACILITY^VPRUTILS(FAC,"VIT")
+"RTN","VPRDJ02",142,0)
+ D ADD^VPRDJ("VIT","vital")
+"RTN","VPRDJ02",143,0)
+ Q
+"RTN","VPRDJ02",144,0)
+ ;
+"RTN","VPRDJ02",145,0)
+VPR(COLL) ; -- VPR Patient Objects
+"RTN","VPRDJ02",146,0)
+ N ID I $L($G(VPRID)) D Q
+"RTN","VPRDJ02",147,0)
+ . S ID=+VPRID I 'ID S ID=+$O(^VPR(560.1,"B",VPRID,0)) ;IEN or UID
+"RTN","VPRDJ02",148,0)
+ . D:ID VPR1(560.1,ID)
+"RTN","VPRDJ02",149,0)
+ Q:$G(COLL)="" ;error
+"RTN","VPRDJ02",150,0)
+ S ID=0 F S ID=$O(^VPR(560.1,"C",DFN,COLL,ID)) Q:ID<1 D VPR1(560.1,ID)
+"RTN","VPRDJ02",151,0)
+ Q
+"RTN","VPRDJ02",152,0)
+VPR1(FNUM,ID) ; -- [patient] object
+"RTN","VPRDJ02",153,0)
+ N I,X,VPRY
+"RTN","VPRDJ02",154,0)
+ S I=0 F S I=$O(^VPR(FNUM,ID,1,I)) Q:I<1 S X=$G(^(I,0)),VPRY(I)=X
+"RTN","VPRDJ02",155,0)
+ I $D(VPRY) D ;already encoded JSON
+"RTN","VPRDJ02",156,0)
+ . S VPRI=VPRI+1 S:VPRI>1 @VPR@(VPRI,.3)=","
+"RTN","VPRDJ02",157,0)
+ . M @VPR@(VPRI)=VPRY
+"RTN","VPRDJ02",158,0)
+ Q
+"RTN","VPRDJ03")
+0^6^B49743518^n/a
+"RTN","VPRDJ03",1,0)
+VPRDJ03 ;SLC/MKB -- Consults,ClinProcedures,CLiO ;6/25/12 16:11
+"RTN","VPRDJ03",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ03",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ03",4,0)
+ ;
+"RTN","VPRDJ03",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ03",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ03",7,0)
+ ; ^SC 10040
+"RTN","VPRDJ03",8,0)
+ ; ^TIU(8925.1 5677
+"RTN","VPRDJ03",9,0)
+ ; ^VA(200 10060
+"RTN","VPRDJ03",10,0)
+ ; %DT 10003
+"RTN","VPRDJ03",11,0)
+ ; DILFD 2055
+"RTN","VPRDJ03",12,0)
+ ; DIQ 2056
+"RTN","VPRDJ03",13,0)
+ ; GMRCGUIB 2980
+"RTN","VPRDJ03",14,0)
+ ; GMRCSLM1,^TMP("GMRCR" 2740
+"RTN","VPRDJ03",15,0)
+ ; MCARUTL3 3280
+"RTN","VPRDJ03",16,0)
+ ; MDPS1,^TMP("MDHSP" 4230
+"RTN","VPRDJ03",17,0)
+ ; ORX8 2467
+"RTN","VPRDJ03",18,0)
+ ; TIULQ 2693
+"RTN","VPRDJ03",19,0)
+ ; TIUSRVLO 2834
+"RTN","VPRDJ03",20,0)
+ ; XLFSTR 10104
+"RTN","VPRDJ03",21,0)
+ ; XUAF4 2171
+"RTN","VPRDJ03",22,0)
+ ;
+"RTN","VPRDJ03",23,0)
+ ; All tags expect DFN, ID, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ03",24,0)
+ ;
+"RTN","VPRDJ03",25,0)
+GMRC1(ID) ; -- consult/request VPRX=^TMP("GMRCR",$J,"CS",VPRN,0)
+"RTN","VPRDJ03",26,0)
+ N CONS,ORDER,VPRD,X0,X,VPRJ,VPRTIU,NT
+"RTN","VPRDJ03",27,0)
+ S CONS("localId")=+VPRX,CONS("uid")=$$SETUID^VPRUTILS("consult",DFN,+VPRX)
+"RTN","VPRDJ03",28,0)
+ S CONS("dateTime")=$$JSONDT^VPRUTILS($P(VPRX,U,2))
+"RTN","VPRDJ03",29,0)
+ S CONS("statusName")=$P(VPRX,U,3),CONS("service")=$P(VPRX,U,4)
+"RTN","VPRDJ03",30,0)
+ S CONS("consultProcedure")=$P(VPRX,U,5)
+"RTN","VPRDJ03",31,0)
+ I $P(VPRX,U,6)="*" S CONS("interpretation")="SIGNIFICANT FINDINGS"
+"RTN","VPRDJ03",32,0)
+ S CONS("typeName")=$P(VPRX,U,7),CONS("category")=$P(VPRX,U,9)
+"RTN","VPRDJ03",33,0)
+ S ORDER=+$P(VPRX,U,8),CONS("orderName")=$P($$OI^ORX8(ORDER),U,2)
+"RTN","VPRDJ03",34,0)
+ S CONS("orderUid")=$$SETUID^VPRUTILS("order",DFN,ORDER)
+"RTN","VPRDJ03",35,0)
+ D DOCLIST^GMRCGUIB(.VPRD,+VPRX) S X0=$G(VPRD(0)) ;=^GMR(123,ID,0)
+"RTN","VPRDJ03",36,0)
+ S X=+$P(X0,U,14) I X D ;ordering provider
+"RTN","VPRDJ03",37,0)
+ . S CONS("providerUid")=$$SETUID^VPRUTILS("user",,X)
+"RTN","VPRDJ03",38,0)
+ . S CONS("providerName")=$P($G(^VA(200,X,0)),U)
+"RTN","VPRDJ03",39,0)
+ S VPRJ=0 F S VPRJ=$O(VPRD(50,VPRJ)) Q:VPRJ<1 S X=$G(VPRD(50,VPRJ)) D
+"RTN","VPRDJ03",40,0)
+ . Q:'$D(@(U_$P(X,";",2)_+X_")")) ;text deleted
+"RTN","VPRDJ03",41,0)
+ . S CONS("results",VPRJ,"uid")=$$SETUID^VPRUTILS("document",DFN,+X)
+"RTN","VPRDJ03",42,0)
+ . D EXTRACT^TIULQ(+X,"VPRTIU",,.01)
+"RTN","VPRDJ03",43,0)
+ . S CONS("results",VPRJ,"localTitle")=$G(VPRTIU(+X,.01,"E"))
+"RTN","VPRDJ03",44,0)
+ . S NT=$$GET1^DIQ(8925.1,+$G(VPRTIU(+X,.01,"I"))_",",1501)
+"RTN","VPRDJ03",45,0)
+ . S:$L(NT) CONS("results",VPRJ,"nationalTitle")=NT
+"RTN","VPRDJ03",46,0)
+ S X=$P(X0,U,21),X=$S(X:$$STA^XUAF4(X)_U_$P($$NS^XUAF4(X),U),1:$$FAC^VPRD)
+"RTN","VPRDJ03",47,0)
+ D FACILITY^VPRUTILS(X,"CONS")
+"RTN","VPRDJ03",48,0)
+ D ADD^VPRDJ("CONS","consult")
+"RTN","VPRDJ03",49,0)
+ Q
+"RTN","VPRDJ03",50,0)
+ ;
+"RTN","VPRDJ03",51,0)
+MDPS1(DFN,BEG,END,MAX) ; -- perform CP search (scope variables)
+"RTN","VPRDJ03",52,0)
+ N MCARCODE,MCARDT,MCARPROC,MCESKEY,MCESSEC,MCFILE,MDC,MDIMG,RES
+"RTN","VPRDJ03",53,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999)
+"RTN","VPRDJ03",54,0)
+ K ^TMP("MDHSP",$J) S RES=""
+"RTN","VPRDJ03",55,0)
+ D EN1^MDPS1(.RES,DFN,BEG,END,MAX,"",0) ;RES=^TMP("MDHSP",$J)
+"RTN","VPRDJ03",56,0)
+ Q
+"RTN","VPRDJ03",57,0)
+ ;
+"RTN","VPRDJ03",58,0)
+MC1(ID) ; -- clinical procedure VPRX=^TMP("MDHSP",$J,VPRN)
+"RTN","VPRDJ03",59,0)
+ N X,Y,%DT,DATE,RTN,GBL,CONS,TIUN,VPRD,X0,PROC,VPRT,LOC,FAC
+"RTN","VPRDJ03",60,0)
+ S RTN=$P(VPRX,U,3,4) Q:RTN="PRPRO^MDPS4" ;skip non-CP items
+"RTN","VPRDJ03",61,0)
+ S X=$P(VPRX,U,6),%DT="TXS" D ^%DT Q:Y'>0 S DATE=Y
+"RTN","VPRDJ03",62,0)
+ S GBL=+$P(VPRX,U,2)_";"_$S(RTN="PR702^MDPS1":"MDD(702,",1:$$ROOT^VPRDMC(DFN,$P(VPRX,U,11),DATE))
+"RTN","VPRDJ03",63,0)
+ Q:'GBL I $G(ID),ID'=GBL Q ;unknown, or not requested
+"RTN","VPRDJ03",64,0)
+ ;
+"RTN","VPRDJ03",65,0)
+ S CONS=+$P(VPRX,U,13) D:CONS DOCLIST^GMRCGUIB(.VPRD,CONS) S X0=$G(VPRD(0)) ;=^GMR(123,ID,0)
+"RTN","VPRDJ03",66,0)
+ S TIUN=+$P(VPRX,U,14) S:TIUN TIUN=TIUN_U_$$RESOLVE^TIUSRVLO(TIUN)
+"RTN","VPRDJ03",67,0)
+ S PROC("localId")=GBL,PROC("category")="CP"
+"RTN","VPRDJ03",68,0)
+ S PROC("uid")=$$SETUID^VPRUTILS("procedure",DFN,GBL)
+"RTN","VPRDJ03",69,0)
+ S PROC("name")=$P(VPRX,U),PROC("dateTime")=$$JSONDT^VPRUTILS(DATE)
+"RTN","VPRDJ03",70,0)
+ S X=$P(VPRX,U,7) S:$L(X) PROC("interpretation")=X
+"RTN","VPRDJ03",71,0)
+ S PROC("kind")="Procedure"
+"RTN","VPRDJ03",72,0)
+ I CONS,X0 D
+"RTN","VPRDJ03",73,0)
+ . N VPRJ S PROC("requested")=$$JSONDT^VPRUTILS(+X0)
+"RTN","VPRDJ03",74,0)
+ . S PROC("consultUid")=$$SETUID^VPRUTILS("consult",DFN,CONS)
+"RTN","VPRDJ03",75,0)
+ . S PROC("orderUid")=$$SETUID^VPRUTILS("order",DFN,+$P(X0,U,3))
+"RTN","VPRDJ03",76,0)
+ . S PROC("statusName")=$$EXTERNAL^DILFD(123,8,,$P(X0,U,12))
+"RTN","VPRDJ03",77,0)
+ . S VPRJ=0 F S VPRJ=$O(VPRD(50,VPRJ)) Q:VPRJ<1 S X=+$G(VPRD(50,VPRJ)) D
+"RTN","VPRDJ03",78,0)
+ .. D NOTE(X)
+"RTN","VPRDJ03",79,0)
+ .. S:'TIUN TIUN=X_U_$$RESOLVE^TIUSRVLO(X)
+"RTN","VPRDJ03",80,0)
+ I TIUN D
+"RTN","VPRDJ03",81,0)
+ . S X=$P(TIUN,U,5) I X D
+"RTN","VPRDJ03",82,0)
+ .. S PROC("providers",1,"providerUid")=$$SETUID^VPRUTILS("user",,+X)
+"RTN","VPRDJ03",83,0)
+ .. S PROC("providers",1,"providerName")=$P(X,";",3)
+"RTN","VPRDJ03",84,0)
+ . S:$P(TIUN,U,11) PROC("hasImages")="true"
+"RTN","VPRDJ03",85,0)
+ . K VPRT D EXTRACT^TIULQ(+TIUN,"VPRT",,".03;.05;1211",,,"I")
+"RTN","VPRDJ03",86,0)
+ . S X=+$G(VPRT(+TIUN,.03,"I")),PROC("encounterUid")=$$SETUID^VPRUTILS("visit",DFN,X)
+"RTN","VPRDJ03",87,0)
+ . S LOC=+$G(VPRT(+TIUN,1211,"I")) I LOC S LOC=LOC_U_$P($G(^SC(LOC,0)),U)
+"RTN","VPRDJ03",88,0)
+ . E S X=$P(TIUN,U,6) S:$L(X) LOC=+$O(^SC("B",X,0))_U_X
+"RTN","VPRDJ03",89,0)
+ . S:LOC PROC("locationUid")=$$SETUID^VPRUTILS("location",,+LOC),PROC("locationName")=$P(LOC,U,2),FAC=$$FAC^VPRD(+LOC)
+"RTN","VPRDJ03",90,0)
+ . I '$D(PROC("statusName")) S X=+$G(VPRT(+TIUN,.05,"I")),PROC("statusName")=$S(X<6:"PARTIAL RESULTS",1:"COMPLETE")
+"RTN","VPRDJ03",91,0)
+ . I '$G(PROC("results",+TIUN)) D NOTE(+TIUN)
+"RTN","VPRDJ03",92,0)
+ ; if no consult or note/visit ...
+"RTN","VPRDJ03",93,0)
+ S:'$D(PROC("statusName")) PROC("statusName")="COMPLETE"
+"RTN","VPRDJ03",94,0)
+ I '$D(FAC) S X=$P(X0,U,21),FAC=$S(X:$$STA^XUAF4(X)_U_$P($$NS^XUAF4(X),U),1:$$FAC^VPRD)
+"RTN","VPRDJ03",95,0)
+ D FACILITY^VPRUTILS(FAC,"PROC")
+"RTN","VPRDJ03",96,0)
+ D ADD^VPRDJ("PROC","procedure")
+"RTN","VPRDJ03",97,0)
+ Q
+"RTN","VPRDJ03",98,0)
+ ;
+"RTN","VPRDJ03",99,0)
+NOTE(DA) ; -- add TIU note info
+"RTN","VPRDJ03",100,0)
+ N VPRT,NT,TEXT
+"RTN","VPRDJ03",101,0)
+ D EXTRACT^TIULQ(DA,"VPRT",,.01)
+"RTN","VPRDJ03",102,0)
+ S PROC("results",DA,"uid")=$$SETUID^VPRUTILS("document",+$G(DFN),DA)
+"RTN","VPRDJ03",103,0)
+ S PROC("results",DA,"localTitle")=$G(VPRT(DA,.01,"E"))
+"RTN","VPRDJ03",104,0)
+ S NT=$$GET1^DIQ(8925.1,+$G(VPRT(DA,.01,"I"))_",",1501)
+"RTN","VPRDJ03",105,0)
+ S:$L(NT) PROC("results",DA,"nationalTitle")=NT
+"RTN","VPRDJ03",106,0)
+ Q
+"RTN","VPRDJ03",107,0)
+ ;
+"RTN","VPRDJ03",108,0)
+MDC1(ID) ; -- clinical observation
+"RTN","VPRDJ03",109,0)
+ N GUID,CLIO,VPRC,VPRT,LOC,FAC,I,X,Y
+"RTN","VPRDJ03",110,0)
+ S GUID=$G(ID) Q:GUID="" ;invalid GUID
+"RTN","VPRDJ03",111,0)
+ D QRYOBS^VPRDMDC("VPRC",GUID) Q:'$D(VPRC) ;doesn't exist
+"RTN","VPRDJ03",112,0)
+ Q:$L($G(VPRC("PARENT_ID","E"))) ;PARENT also in list
+"RTN","VPRDJ03",113,0)
+ ;
+"RTN","VPRDJ03",114,0)
+ S CLIO("localId")=GUID,CLIO("uid")=$$SETUID^VPRUTILS("obs",DFN,GUID)
+"RTN","VPRDJ03",115,0)
+ S X=$G(VPRC("TERM_ID","I")) S:X CLIO("typeVuid")="urn:va:vuid:"_X
+"RTN","VPRDJ03",116,0)
+ S CLIO("typeCode")="urn:va:clioterminology:"_$G(VPRC("TERM_ID","GUID"))
+"RTN","VPRDJ03",117,0)
+ S CLIO("typeName")=$G(VPRC("TERM_ID","E"))
+"RTN","VPRDJ03",118,0)
+ S CLIO("result")=$G(VPRC("SVALUE","E"))
+"RTN","VPRDJ03",119,0)
+ S X=$G(VPRC("UNIT_ID","ABBV")) S:$L(X) CLIO("units")=X
+"RTN","VPRDJ03",120,0)
+ S X=$G(VPRC("ENTERED_DATE_TIME","I")),CLIO("entered")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ03",121,0)
+ S X=$G(VPRC("OBSERVED_DATE_TIME","I")),CLIO("observed")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ03",122,0)
+ D QRYTYPES^VPRDMDC("VPRT")
+"RTN","VPRDJ03",123,0)
+ F I=3,5 S X=$G(VPRT(I,"XML")) I $L($G(VPRC(X,"E"))) D
+"RTN","VPRDJ03",124,0)
+ . S Y=VPRT(I,"NAME"),Y=$S(Y="LOCATION":"bodySite",1:$$LOW^XLFSTR(Y))
+"RTN","VPRDJ03",125,0)
+ . S CLIO(Y_"Code")=VPRC(X,"I"),CLIO(Y_"Name")=VPRC(X,"E")
+"RTN","VPRDJ03",126,0)
+ F I=4,6,7 S X=$G(VPRT(I,"XML")) I $L($G(VPRC(X,"E"))) D
+"RTN","VPRDJ03",127,0)
+ . S CLIO("qualifiers",I,"type")=$$LOW^XLFSTR(VPRT(I,"NAME"))
+"RTN","VPRDJ03",128,0)
+ . S CLIO("qualifiers",I,"code")=VPRC(X,"I")
+"RTN","VPRDJ03",129,0)
+ . S CLIO("qualifiers",I,"name")=VPRC(X,"E")
+"RTN","VPRDJ03",130,0)
+ S X=$G(VPRC("RANGE","E")) I $L(X) D
+"RTN","VPRDJ03",131,0)
+ . S Y=$S(X="Out of Bounds Low":"<",X="Out of Bounds High":">",1:$E(X))
+"RTN","VPRDJ03",132,0)
+ . S CLIO("interpretationCode")="urn:hl7:observation-interpretation:"_Y
+"RTN","VPRDJ03",133,0)
+ . S CLIO("interpretationName")=$S(X="<":"Low off scale",X=">":"High off scale",1:X)
+"RTN","VPRDJ03",134,0)
+ ; X=$G(VPRC("STATUS","E")) S:$L(X) CLIO("resultStatus")=$S(X="unverified":"active",1:"complete")
+"RTN","VPRDJ03",135,0)
+ I $D(VPRC("SUPP_PAGE")) D ;add set info
+"RTN","VPRDJ03",136,0)
+ . S CLIO("setID")=$G(VPRC("SUPP_PAGE","GUID"))
+"RTN","VPRDJ03",137,0)
+ . S CLIO("setName")=$G(VPRC("SUPP_PAGE","DISPLAY_NAME"))
+"RTN","VPRDJ03",138,0)
+ . S X=$G(VPRC("SUPP_PAGE","TYPE")) S:$L(X) CLIO("setType")=X
+"RTN","VPRDJ03",139,0)
+ . S X=$G(VPRC("SUPP_PAGE","ACTIVATED_DATE_TIME")) S:X CLIO("setStart")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ03",140,0)
+ . S X=$G(VPRC("SUPP_PAGE","DEACTIVATED_DATE_TIME")) S:X CLIO("setStop")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ03",141,0)
+ S CLIO("statusCode")="urn:va:observation-status:complete",CLIO("statusName")="complete"
+"RTN","VPRDJ03",142,0)
+ S LOC=$G(VPRC("HOSPITAL_LOCATION_ID","I")),FAC=$$FAC^VPRD(LOC)
+"RTN","VPRDJ03",143,0)
+ S CLIO("locationUid")=$$SETUID^VPRUTILS("location",,LOC)
+"RTN","VPRDJ03",144,0)
+ S CLIO("locationName")=$G(VPRC("HOSPITAL_LOCATION_ID","E"))
+"RTN","VPRDJ03",145,0)
+ D FACILITY^VPRUTILS(FAC,"CLIO")
+"RTN","VPRDJ03",146,0)
+ S X=$G(VPRC("COMMENT","E")) S:$L(X) CLIO("comment")=X
+"RTN","VPRDJ03",147,0)
+ D ADD^VPRDJ("CLIO","obs")
+"RTN","VPRDJ03",148,0)
+ Q
+"RTN","VPRDJ04")
+0^7^B47678729^n/a
+"RTN","VPRDJ04",1,0)
+VPRDJ04 ;SLC/MKB -- Appointments,Visits ;6/25/12 16:11
+"RTN","VPRDJ04",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ04",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ04",4,0)
+ ;
+"RTN","VPRDJ04",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ04",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ04",7,0)
+ ; ^AUPNVSIT 2028
+"RTN","VPRDJ04",8,0)
+ ; ^DGS(41.1 3796
+"RTN","VPRDJ04",9,0)
+ ; ^DIC(42 10039
+"RTN","VPRDJ04",10,0)
+ ; ^SC 10040
+"RTN","VPRDJ04",11,0)
+ ; ^VA(200 10060
+"RTN","VPRDJ04",12,0)
+ ; DIQ 2056
+"RTN","VPRDJ04",13,0)
+ ; ICPTCOD 1995
+"RTN","VPRDJ04",14,0)
+ ; PXAPI,^TMP("PXKENC" 1894
+"RTN","VPRDJ04",15,0)
+ ; SDAMA301 4433
+"RTN","VPRDJ04",16,0)
+ ; XLFDT 10103
+"RTN","VPRDJ04",17,0)
+ ; XUAF4 2171
+"RTN","VPRDJ04",18,0)
+ ;
+"RTN","VPRDJ04",19,0)
+ ; All tags expect DFN, ID, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ04",20,0)
+ ;
+"RTN","VPRDJ04",21,0)
+SDAM1 ; -- appointment ^TMP($J,"SDAMA301",DFN,VPRDT)
+"RTN","VPRDJ04",22,0)
+ N NODE,HLOC,APPT,X,STS,CLS,FAC,SV,PRV
+"RTN","VPRDJ04",23,0)
+ S NODE=$G(^TMP($J,"SDAMA301",DFN,VPRDT))
+"RTN","VPRDJ04",24,0)
+ ;
+"RTN","VPRDJ04",25,0)
+ S HLOC=$P(NODE,U,2),X="A;"_VPRDT_";"_+HLOC
+"RTN","VPRDJ04",26,0)
+ I $L($G(ID)),$P(ID,";",1,3)'=X Q
+"RTN","VPRDJ04",27,0)
+ S APPT("localId")=X,APPT("uid")=$$SETUID^VPRUTILS("appointment",DFN,X)
+"RTN","VPRDJ04",28,0)
+ S X=$P(NODE,U,10),APPT("typeCode")=$P(X,";"),APPT("typeName")=$P(X,";",2)
+"RTN","VPRDJ04",29,0)
+ S STS=$P(NODE,U,3),CLS=$S($E(STS)="I":"I",1:"O")
+"RTN","VPRDJ04",30,0)
+ S APPT("dateTime")=$$JSONDT^VPRUTILS(VPRDT)
+"RTN","VPRDJ04",31,0)
+ S:$L($P(NODE,U,6)) APPT("comment")=$P(NODE,U,6)
+"RTN","VPRDJ04",32,0)
+ S:$P(NODE,U,9) APPT("checkIn")=$$JSONDT^VPRUTILS($P(NODE,U,9))
+"RTN","VPRDJ04",33,0)
+ S:$P(NODE,U,11) APPT("checkOut")=$$JSONDT^VPRUTILS($P(NODE,U,11))
+"RTN","VPRDJ04",34,0)
+ I $L(ID,";")>3 S APPT("reasonName")=$P(ID,";",4),PRV=+$P(ID,";",5) ;from SDAM event
+"RTN","VPRDJ04",35,0)
+ S FAC=$$FAC^VPRD(+HLOC) D FACILITY^VPRUTILS(FAC,"APPT") I HLOC D
+"RTN","VPRDJ04",36,0)
+ . S APPT("locationName")=$P(HLOC,";",2)
+"RTN","VPRDJ04",37,0)
+ . S APPT("locationUid")=$$SETUID^VPRUTILS("location",,+HLOC)
+"RTN","VPRDJ04",38,0)
+ . S X=$$AMIS^VPRDVSIT(+$P(NODE,U,13))
+"RTN","VPRDJ04",39,0)
+ . S:$L(X) APPT("stopCodeUid")="urn:va:stop-code:"_$P(X,U),APPT("stopCodeName")=$P(X,U,2)
+"RTN","VPRDJ04",40,0)
+ . S SV=$$GET1^DIQ(44,+HLOC_",",9.5,"I")
+"RTN","VPRDJ04",41,0)
+ . I SV S APPT("service")=$$SERV^VPRDSDAM(SV)
+"RTN","VPRDJ04",42,0)
+ . ;find default provider
+"RTN","VPRDJ04",43,0)
+ . S:'$G(PRV) PRV=+$$GET1^DIQ(44,+HLOC_",",16,"I") I 'PRV D
+"RTN","VPRDJ04",44,0)
+ .. N VPRP,I,FIRST
+"RTN","VPRDJ04",45,0)
+ .. D GETS^DIQ(44,+HLOC_",","2600*","I","VPRP")
+"RTN","VPRDJ04",46,0)
+ .. S FIRST=$O(VPRP(44.1,"")),I=""
+"RTN","VPRDJ04",47,0)
+ .. F S I=$O(VPRP(44.1,I)) Q:I="" I $G(VPRP(44.1,I,.02,"I")) S PRV=$G(VPRP(44.1,I,.01,"I")) Q
+"RTN","VPRDJ04",48,0)
+ .. I 'PRV,FIRST S PRV=$G(VPRP(44.1,FIRST,.01,"I"))
+"RTN","VPRDJ04",49,0)
+ I $G(PRV) S APPT("providers",1,"providerUid")=$$SETUID^VPRUTILS("user",,PRV),APPT("providers",1,"providerName")=$P($G(^VA(200,PRV,0)),U)
+"RTN","VPRDJ04",50,0)
+ I $G(SV) S APPT("summary")="${"_APPT("service")_"}:"_$P(HLOC,";",2)
+"RTN","VPRDJ04",51,0)
+ S APPT("patientClassCode")="urn:va:patient-class:"_$S(CLS="I":"IMP",1:"AMB")
+"RTN","VPRDJ04",52,0)
+ S APPT("patientClassName")=$S(CLS="I":"Inpatient",1:"Ambulatory")
+"RTN","VPRDJ04",53,0)
+ S APPT("categoryCode")="urn:va:encounter-category:OV",APPT("categoryName")="Outpatient Visit"
+"RTN","VPRDJ04",54,0)
+ S APPT("appointmentStatus")=$P(STS,";",2)
+"RTN","VPRDJ04",55,0)
+ D ADD^VPRDJ("APPT","appointment")
+"RTN","VPRDJ04",56,0)
+ Q
+"RTN","VPRDJ04",57,0)
+ ;
+"RTN","VPRDJ04",58,0)
+DGS ; scheduled admissions [from APPOINTM^VPRDJ0]
+"RTN","VPRDJ04",59,0)
+ S VPRA=0 F S VPRA=$O(^DGS(41.1,"B",DFN,VPRA)) Q:VPRA<1 D Q:VPRI'<VPRMAX
+"RTN","VPRDJ04",60,0)
+ . S VPRX=$G(^DGS(41.1,VPRA,0))
+"RTN","VPRDJ04",61,0)
+ . I $L($G(ID)),+$P(ID,";",2)=+$P(VPRX,U,2) D DGS1(VPRA) Q
+"RTN","VPRDJ04",62,0)
+ . Q:$P(VPRX,U,13) Q:$P(VPRX,U,17) ;cancelled or admitted
+"RTN","VPRDJ04",63,0)
+ . S X=$P(VPRX,U,2) Q:X<VPRSTART!(X>VPRSTOP) ;out of date range
+"RTN","VPRDJ04",64,0)
+ . D DGS1(VPRA)
+"RTN","VPRDJ04",65,0)
+ Q
+"RTN","VPRDJ04",66,0)
+ ;
+"RTN","VPRDJ04",67,0)
+DGS1(IFN) ; -- scheduled admission
+"RTN","VPRDJ04",68,0)
+ N ADM,X0,DATE,HLOC,FAC,SV,X
+"RTN","VPRDJ04",69,0)
+ S X0=$G(^DGS(41.1,+$G(IFN),0)) Q:X0="" ;deleted
+"RTN","VPRDJ04",70,0)
+ ;
+"RTN","VPRDJ04",71,0)
+ S DATE=+$P(X0,U,2),HLOC=+$G(^DIC(42,+$P(X0,U,8),44))
+"RTN","VPRDJ04",72,0)
+ S X="H;"_DATE,ADM("localId")=X,ADM("uid")=$$SETUID^VPRUTILS("appointment",DFN,X)
+"RTN","VPRDJ04",73,0)
+ S ADM("dateTime")=$$JSONDT^VPRUTILS(DATE)
+"RTN","VPRDJ04",74,0)
+ S FAC=$$FAC^VPRD(+HLOC) D FACILITY^VPRUTILS(FAC,"ADM") I HLOC D
+"RTN","VPRDJ04",75,0)
+ . S HLOC=+HLOC_";"_$P($G(^SC(+HLOC,0)),U)
+"RTN","VPRDJ04",76,0)
+ . S ADM("uid")=ADM("uid")_";"_+HLOC
+"RTN","VPRDJ04",77,0)
+ . S ADM("locationName")=$P(HLOC,";",2)
+"RTN","VPRDJ04",78,0)
+ . S ADM("locationUid")=$$SETUID^VPRUTILS("location",,+HLOC)
+"RTN","VPRDJ04",79,0)
+ . S X=$$GET1^DIQ(44,+HLOC_",",8,"I"),X=$$AMIS^VPRDVSIT(X)
+"RTN","VPRDJ04",80,0)
+ . S:$L(X) ADM("stopCodeUid")="urn:va:stop-code:"_$P(X,U),ADM("stopCodeName")=$P(X,U,2)
+"RTN","VPRDJ04",81,0)
+ . S SV=$$GET1^DIQ(44,+HLOC_",",9.5,"I")
+"RTN","VPRDJ04",82,0)
+ . I SV S ADM("service")=$$SERV^VPRDSDAM(SV)
+"RTN","VPRDJ04",83,0)
+ I $G(SV) S ADM("summary")="${"_ADM("service")_"}:"_$P(HLOC,";",2)
+"RTN","VPRDJ04",84,0)
+ S X=+$P(X0,U,5) I X D
+"RTN","VPRDJ04",85,0)
+ . S ADM("providers",1,"providerUid")=$$SETUID^VPRUTILS("user",,X)
+"RTN","VPRDJ04",86,0)
+ . S ADM("providers",1,"providerName")=$P($G(^VA(200,X,0)),U)
+"RTN","VPRDJ04",87,0)
+ S ADM("patientClassCode")="urn:va:patient-class:IMP",ADM("patientClassName")="Inpatient"
+"RTN","VPRDJ04",88,0)
+ S ADM("categoryCode")="urn:va:encounter-category:AD",ADM("categoryName")="Admission"
+"RTN","VPRDJ04",89,0)
+ S ADM("appointmentStatus")=$S($P(X0,U,17):"ADMITTED",$P(X0,U,13):"CANCELLED",1:"SCHEDULED")
+"RTN","VPRDJ04",90,0)
+ D ADD^VPRDJ("ADM","appointment")
+"RTN","VPRDJ04",91,0)
+ Q
+"RTN","VPRDJ04",92,0)
+ ;
+"RTN","VPRDJ04",93,0)
+VSIT1(ID) ; -- visit
+"RTN","VPRDJ04",94,0)
+ N VST,X0,X15,X,FAC,LOC,CATG,AMIS,INPT,DA
+"RTN","VPRDJ04",95,0)
+ I $G(ID)?1"H"1.N D ADM^VPRDJ04A(ID) Q
+"RTN","VPRDJ04",96,0)
+ D ENCEVENT^PXAPI(ID)
+"RTN","VPRDJ04",97,0)
+ ;
+"RTN","VPRDJ04",98,0)
+ S X0=$G(^TMP("PXKENC",$J,ID,"VST",ID,0)),X15=$G(^(150))
+"RTN","VPRDJ04",99,0)
+ Q:$P(X15,U,3)'="P" Q:$P(X0,U,7)="E" Q:$P(X0,U,12) ;primary, not historical or child
+"RTN","VPRDJ04",100,0)
+ I $P(X0,U,7)="H" D ADM^VPRDJ04A(ID,+X0) Q
+"RTN","VPRDJ04",101,0)
+ S VST("localId")=ID,VST("uid")=$$SETUID^VPRUTILS("visit",DFN,ID)
+"RTN","VPRDJ04",102,0)
+ S VST("dateTime")=$$JSONDT^VPRUTILS(+X0)
+"RTN","VPRDJ04",103,0)
+ S:$P(X0,U,18) VST("checkOut")=$$JSONDT^VPRUTILS($P(X0,U,18))
+"RTN","VPRDJ04",104,0)
+ S FAC=+$P(X0,U,6),CATG=$P(X0,U,7),LOC=+$P(X0,U,22)
+"RTN","VPRDJ04",105,0)
+ S:FAC X=$$STA^XUAF4(FAC)_U_$P($$NS^XUAF4(FAC),U)
+"RTN","VPRDJ04",106,0)
+ S:'FAC X=$$FAC^VPRD(LOC) D FACILITY^VPRUTILS(X,"VST")
+"RTN","VPRDJ04",107,0)
+ S X=$S(CATG="H":"AD",CATG="C":"CR",CATG="T":"TC",CATG="N":"U",CATG="R":"NH","D^X"[CATG:"O",1:"OV")
+"RTN","VPRDJ04",108,0)
+ S VST("categoryCode")="urn:va:encounter-category:"_X
+"RTN","VPRDJ04",109,0)
+ S VST("categoryName")=$S(X="AD":"Admission",X="CR":"Chart Review",X="TC":"Phone Contact",X="U":"Unknown",X="NH":"Nursing Home",X="O":"Other",1:"Outpatient Visit")
+"RTN","VPRDJ04",110,0)
+ S INPT=$P(X15,U,2) S:INPT="" INPT=$S("H^I^R^D"[CATG:1,1:0)
+"RTN","VPRDJ04",111,0)
+ S X=$$CPT^VPRDVSIT(ID) S:X VST("typeName")=$P($$CPT^ICPTCOD(X),U,3)
+"RTN","VPRDJ04",112,0)
+ I 'X S VST("typeName")=$S('INPT&LOC:$P($G(^SC(LOC,0)),U)_" VISIT",1:$$CATG^VPRDVSIT(CATG))
+"RTN","VPRDJ04",113,0)
+ S VST("patientClassCode")="urn:va:patient-class:"_$S(INPT:"IMP",1:"AMB")
+"RTN","VPRDJ04",114,0)
+ S VST("patientClassName")=$S(INPT:"Inpatient",1:"Ambulatory")
+"RTN","VPRDJ04",115,0)
+ S X=$P(X0,U,8) S:X AMIS=$$AMIS^VPRDVSIT(X) I LOC D
+"RTN","VPRDJ04",116,0)
+ . N L0 S L0=$G(^SC(LOC,0))
+"RTN","VPRDJ04",117,0)
+ . I 'X S AMIS=$$AMIS^VPRDVSIT($P(L0,U,7))
+"RTN","VPRDJ04",118,0)
+ . S VST("locationUid")=$$SETUID^VPRUTILS("location",,+LOC)
+"RTN","VPRDJ04",119,0)
+ . S VST("locationName")=$P(L0,U)
+"RTN","VPRDJ04",120,0)
+ . S X=$$SERV^VPRDVSIT($P(L0,U,20)) Q:X=""
+"RTN","VPRDJ04",121,0)
+ . S:$L(X) VST("service")=X,VST("summary")="${"_VST("service")_"}:"_$P(L0,U)
+"RTN","VPRDJ04",122,0)
+ S:$D(AMIS) VST("stopCodeUid")="urn:va:stop-code:"_$P(AMIS,U),VST("stopCodeName")=$P(AMIS,U,2)
+"RTN","VPRDJ04",123,0)
+ S X=$$POV^VPRDVSIT(ID) S:$L(X) VST("reasonUid")=$$SETNCS^VPRUTILS("icd",$P(X,U)),VST("reasonName")=$P(X,U,2)
+"RTN","VPRDJ04",124,0)
+ ; provider(s)
+"RTN","VPRDJ04",125,0)
+ S DA=0 F S DA=$O(^TMP("PXKENC",$J,ID,"PRV",DA)) Q:DA<1 S X0=$G(^(DA,0)) D
+"RTN","VPRDJ04",126,0)
+ . I $P(X0,U,4)="P" D PROV("VST",DA,+X0,"P",1) Q ;primary
+"RTN","VPRDJ04",127,0)
+ . D PROV("VST",DA,+X0,"S") ;secondary
+"RTN","VPRDJ04",128,0)
+ K ^TMP("PXKENC",$J,ID)
+"RTN","VPRDJ04",129,0)
+ ; note(s)
+"RTN","VPRDJ04",130,0)
+ D TIU^VPRDJ04A(ID,.VST)
+"RTN","VPRDJ04",131,0)
+ D ADD^VPRDJ("VST","visit")
+"RTN","VPRDJ04",132,0)
+ Q
+"RTN","VPRDJ04",133,0)
+ ;
+"RTN","VPRDJ04",134,0)
+PROV(ARR,I,IEN,ROLE,PRIM) ; -- add providers
+"RTN","VPRDJ04",135,0)
+ S @ARR@("providers",I,"providerUid")=$$SETUID^VPRUTILS("user",,+IEN)
+"RTN","VPRDJ04",136,0)
+ S @ARR@("providers",I,"providerName")=$P($G(^VA(200,+IEN,0)),U)
+"RTN","VPRDJ04",137,0)
+ S @ARR@("providers",I,"role")=ROLE
+"RTN","VPRDJ04",138,0)
+ S:$G(PRIM) @ARR@("providers",I,"primary")="true"
+"RTN","VPRDJ04",139,0)
+ Q
+"RTN","VPRDJ04",140,0)
+ ;
+"RTN","VPRDJ04",141,0)
+NAME(IEN) ; -- Return a string 'name' for the visit
+"RTN","VPRDJ04",142,0)
+ N Y,X0,LOC,DATE
+"RTN","VPRDJ04",143,0)
+ S X0=$G(^AUPNVSIT(+$G(IEN),0)),Y=""
+"RTN","VPRDJ04",144,0)
+ S DATE=+X0,LOC=+$P(X0,U,22) S:LOC LOC=$P($G(^SC(LOC,0)),U)_" "
+"RTN","VPRDJ04",145,0)
+ S Y=LOC_$$FMTE^XLFDT(DATE,"1D") ;Mon DD, YYYY
+"RTN","VPRDJ04",146,0)
+ Q Y
+"RTN","VPRDJ04A")
+0^24^B36420588^n/a
+"RTN","VPRDJ04A",1,0)
+VPRDJ04A ;SLC/MKB -- Admissions,PTF ;7/25/13
+"RTN","VPRDJ04A",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ04A",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ04A",4,0)
+ ;
+"RTN","VPRDJ04A",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ04A",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ04A",7,0)
+ ; ^AUPNVSIT 2028
+"RTN","VPRDJ04A",8,0)
+ ; ^DGPM 1865
+"RTN","VPRDJ04A",9,0)
+ ; ^DIC(42 10039
+"RTN","VPRDJ04A",10,0)
+ ; ^DPT 10035
+"RTN","VPRDJ04A",11,0)
+ ; ^SC 10040
+"RTN","VPRDJ04A",12,0)
+ ; ^VA(200 10060
+"RTN","VPRDJ04A",13,0)
+ ; DGPTFAPI 3157
+"RTN","VPRDJ04A",14,0)
+ ; DIC 2051
+"RTN","VPRDJ04A",15,0)
+ ; DILFD 2055
+"RTN","VPRDJ04A",16,0)
+ ; DIQ 2056
+"RTN","VPRDJ04A",17,0)
+ ; ICDCODE 3990
+"RTN","VPRDJ04A",18,0)
+ ; ICPTCOD 1995
+"RTN","VPRDJ04A",19,0)
+ ; VADPT 10061
+"RTN","VPRDJ04A",20,0)
+ ; XUAF4 2171
+"RTN","VPRDJ04A",21,0)
+ ;
+"RTN","VPRDJ04A",22,0)
+ ; All tags expect DFN, ID, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ04A",23,0)
+ ;
+"RTN","VPRDJ04A",24,0)
+ADM(ID,DATE) ; -- admission [from VSIT1]
+"RTN","VPRDJ04A",25,0)
+ N ADM,VADMVT,VAIP,VAERR,MVT,SPEC,HLOC,FAC,ICD,I
+"RTN","VPRDJ04A",26,0)
+ S ID=$G(ID),DATE=+$G(DATE) Q:ID="" ;Q:DATE<1
+"RTN","VPRDJ04A",27,0)
+ I ID S VAIP("D")=DATE,VST=+ID
+"RTN","VPRDJ04A",28,0)
+ I ID?1"H"1.N S VAIP("E")=+$E(ID,2,99),VST=0
+"RTN","VPRDJ04A",29,0)
+ D IN5^VADPT Q:'$G(VAIP(1)) ;deleted
+"RTN","VPRDJ04A",30,0)
+ S VADMVT=+$G(VAIP(13)),ID="H"_VADMVT
+"RTN","VPRDJ04A",31,0)
+ S ADM("localId")=ID,ADM("uid")=$$SETUID^VPRUTILS("visit",DFN,ID)
+"RTN","VPRDJ04A",32,0)
+ S:'DATE DATE=+$G(VAIP(13,1)) S:'VST VST=$$VISIT(DFN,DATE)
+"RTN","VPRDJ04A",33,0)
+ S (ADM("dateTime"),ADM("stay","arrivalDateTime"))=$$JSONDT^VPRUTILS(DATE)
+"RTN","VPRDJ04A",34,0)
+ S:$L($P(VAIP(6),U,2)) ADM("roomBed")=$P(VAIP(6),U,2)
+"RTN","VPRDJ04A",35,0)
+ S MVT=13,I=0 I VADMVT=$G(^DPT(DFN,.105)) D ;if current admission,
+"RTN","VPRDJ04A",36,0)
+ . S ADM("current")="true",MVT=14 ; use last movement info
+"RTN","VPRDJ04A",37,0)
+ . S X=$G(^DPT(DFN,.101)) S:$L(X) ADM("roomBed")=X
+"RTN","VPRDJ04A",38,0)
+ . K VPRADMIT ;kill flag from VPRDJ0
+"RTN","VPRDJ04A",39,0)
+ S SPEC=$G(VAIP(MVT,6)),ADM("specialty")=$P(SPEC,U,2)
+"RTN","VPRDJ04A",40,0)
+ S X=$$SERV^VPRDVSIT(+SPEC),ADM("service")=X
+"RTN","VPRDJ04A",41,0)
+ S HLOC=+$G(^DIC(42,+$G(VAIP(MVT,4)),44)),FAC=$$FAC^VPRD(+HLOC) I HLOC D
+"RTN","VPRDJ04A",42,0)
+ . S ADM("locationUid")=$$SETUID^VPRUTILS("location",,+HLOC)
+"RTN","VPRDJ04A",43,0)
+ . S ADM("locationName")=$P($G(^SC(HLOC,0)),U)
+"RTN","VPRDJ04A",44,0)
+ . S X=$$AMIS^VPRDVSIT($P($G(^SC(HLOC,0)),U,7))
+"RTN","VPRDJ04A",45,0)
+ . S:$L($G(X)) ADM("stopCodeUid")="urn:va:stop-code:"_$P(X,U),ADM("stopCodeName")=$P(X,U,2)
+"RTN","VPRDJ04A",46,0)
+ . S ADM("summary")="${"_ADM("service")_"}:"_ADM("locationName")
+"RTN","VPRDJ04A",47,0)
+ D FACILITY^VPRUTILS(FAC,"ADM")
+"RTN","VPRDJ04A",48,0)
+ S ADM("categoryCode")="urn:va:encounter-category:AD",ADM("categoryName")="Admission"
+"RTN","VPRDJ04A",49,0)
+ S ADM("patientClassCode")="urn:va:patient-class:IMP",ADM("patientClassName")="Inpatient"
+"RTN","VPRDJ04A",50,0)
+ I $G(VAIP(17)) S ADM("stay","dischargeDateTime")=$$JSONDT^VPRUTILS(+$G(VAIP(17,1)))
+"RTN","VPRDJ04A",51,0)
+ I $G(VAIP(18)) S I=I+1 D PROV("ADM",I,+VAIP(18),"A") ;attending
+"RTN","VPRDJ04A",52,0)
+ I $G(VAIP(MVT,5)) S I=I+1 D PROV("ADM",I,+VAIP(MVT,5),"P",1) ;primary
+"RTN","VPRDJ04A",53,0)
+ S ICD=$$POV^VPRDVSIT(VST) S:'ICD ICD=$$PTF^VPRDVSIT(DFN,VAIP(12)) ;PTF>ICD
+"RTN","VPRDJ04A",54,0)
+ I $L(ICD)<2 S ADM("reasonName")=$G(VAIP(MVT,7))
+"RTN","VPRDJ04A",55,0)
+ E S ADM("reasonUid")=$$SETNCS^VPRUTILS("icd",ICD),ADM("reasonName")=$P(ICD,U,2)
+"RTN","VPRDJ04A",56,0)
+ S X=$$CPT^VPRDVSIT(VST),ADM("typeName")=$S(X:$P($$CPT^ICPTCOD(X),U,3),1:$$CATG^VPRDVSIT("H"))
+"RTN","VPRDJ04A",57,0)
+ D MVT(VADMVT) ;sub-movements
+"RTN","VPRDJ04A",58,0)
+ D TIU(VST,.ADM) ;notes/summary
+"RTN","VPRDJ04A",59,0)
+ D ADD^VPRDJ("ADM","visit")
+"RTN","VPRDJ04A",60,0)
+ Q
+"RTN","VPRDJ04A",61,0)
+ ;
+"RTN","VPRDJ04A",62,0)
+TIU(VISIT,ARR) ; -- add notes to ARR("document")
+"RTN","VPRDJ04A",63,0)
+ N X,Y,I,VPRX,LT,NT,DA,CNT,VPRY
+"RTN","VPRDJ04A",64,0)
+ D FIND^DIC(8925,,.01,"QX",+$G(VISIT),,"V",,,"VPRX")
+"RTN","VPRDJ04A",65,0)
+ S Y="",(I,CNT)=0
+"RTN","VPRDJ04A",66,0)
+ F S I=$O(VPRX("DILIST",1,I)) Q:I<1 D
+"RTN","VPRDJ04A",67,0)
+ . S LT=$G(VPRX("DILIST","ID",I,.01)) Q:$P(LT," ")="Addendum"
+"RTN","VPRDJ04A",68,0)
+ . S DA=$G(VPRX("DILIST",2,I))
+"RTN","VPRDJ04A",69,0)
+ . S NT=$$GET1^DIQ(8925,+DA_",",".01:1501")
+"RTN","VPRDJ04A",70,0)
+ . S CNT=CNT+1,ARR("documents",CNT,"uid")=$$SETUID^VPRUTILS("document",DFN,+DA)
+"RTN","VPRDJ04A",71,0)
+ . S ARR("documents",CNT,"localTitle")=LT
+"RTN","VPRDJ04A",72,0)
+ . S:$L(NT) ARR("documents",CNT,"nationalTitle")=NT
+"RTN","VPRDJ04A",73,0)
+ Q
+"RTN","VPRDJ04A",74,0)
+ ;
+"RTN","VPRDJ04A",75,0)
+PROV(ARR,I,IEN,ROLE,PRIM) ; -- add providers
+"RTN","VPRDJ04A",76,0)
+ S @ARR@("providers",I,"providerUid")=$$SETUID^VPRUTILS("user",,+IEN)
+"RTN","VPRDJ04A",77,0)
+ S @ARR@("providers",I,"providerName")=$P($G(^VA(200,+IEN,0)),U)
+"RTN","VPRDJ04A",78,0)
+ S @ARR@("providers",I,"role")=ROLE
+"RTN","VPRDJ04A",79,0)
+ S:$G(PRIM) @ARR@("providers",I,"primary")="true"
+"RTN","VPRDJ04A",80,0)
+ Q
+"RTN","VPRDJ04A",81,0)
+ ;
+"RTN","VPRDJ04A",82,0)
+MVT(CA) ; -- add movements to ADM("movement",i,"attribute")
+"RTN","VPRDJ04A",83,0)
+ N DATE,DA,CNT,X S (DATE,CNT)=0
+"RTN","VPRDJ04A",84,0)
+ F S DATE=$O(^DGPM("APCA",DFN,CA,DATE)) Q:DATE<1 S DA=+$O(^(DATE,0)) I DA'=CA D
+"RTN","VPRDJ04A",85,0)
+ . S X0=$G(^DGPM(DA,0)),CNT=CNT+1
+"RTN","VPRDJ04A",86,0)
+ . S ADM("movements",CNT,"localId")=DA
+"RTN","VPRDJ04A",87,0)
+ . S ADM("movements",CNT,"dateTime")=$$JSONDT^VPRUTILS(DATE)
+"RTN","VPRDJ04A",88,0)
+ . S ADM("movements",CNT,"movementType")=$$EXTERNAL^DILFD(405,.02,,$P(X0,U,2))
+"RTN","VPRDJ04A",89,0)
+ . S X=+$P(X0,U,19) I X D
+"RTN","VPRDJ04A",90,0)
+ .. S ADM("movements",CNT,"providerUid")=$$SETUID^VPRUTILS("user",,X)
+"RTN","VPRDJ04A",91,0)
+ .. S ADM("movements",CNT,"providerName")=$P($G(^VA(200,X,0)),U)
+"RTN","VPRDJ04A",92,0)
+ . S X=+$P(X0,U,9)
+"RTN","VPRDJ04A",93,0)
+ . S:X ADM("movements",CNT,"specialty")=$$EXTERNAL^DILFD(405,.09,,X)
+"RTN","VPRDJ04A",94,0)
+ . S HLOC=+$G(^DIC(42,+$P(X0,U,6),44)),FAC=$$FAC^VPRD(HLOC) I HLOC D
+"RTN","VPRDJ04A",95,0)
+ .. S ADM("movements",CNT,"locationUid")=$$SETUID^VPRUTILS("location",,HLOC)
+"RTN","VPRDJ04A",96,0)
+ .. S ADM("movements",CNT,"locationName")=$P($G(^SC(HLOC,0)),U)
+"RTN","VPRDJ04A",97,0)
+ Q
+"RTN","VPRDJ04A",98,0)
+ ;
+"RTN","VPRDJ04A",99,0)
+PTFA(ID) ; -- find ID in ^PXRMINDX(FNUM), fall thru to PX1 if successful
+"RTN","VPRDJ04A",100,0)
+ N ROOT,IDX,ITEM,DATE K ^TMP("VPRPX",$J)
+"RTN","VPRDJ04A",101,0)
+ S P=$L(ID,";"),TYPE=$P(ID,";",P),ID=$P(ID,";",1,P-1)
+"RTN","VPRDJ04A",102,0)
+ S ROOT="^PXRMINDX(45,""ICD9"",""PNI"","_+$G(DFN)_","_""""_TYPE_""""
+"RTN","VPRDJ04A",103,0)
+ S IDX=ROOT_")" F S IDX=$Q(@IDX) Q:$P(IDX,",",1,5)'=ROOT D
+"RTN","VPRDJ04A",104,0)
+ . I """"_ID_""")"'=$P(IDX,",",8) Q
+"RTN","VPRDJ04A",105,0)
+ . S DATE=+$P(IDX,",",7),ITEM=+$P(IDX,",",6)
+"RTN","VPRDJ04A",106,0)
+ . S VPRIDT=9999999-DATE,^TMP("VPRPX",$J,VPRIDT,ID_";"_TYPE)=ITEM_U_DATE
+"RTN","VPRDJ04A",107,0)
+ Q:'$D(^TMP("VPRPX",$J)) ;not found
+"RTN","VPRDJ04A",108,0)
+ S ID=ID_";"_TYPE
+"RTN","VPRDJ04A",109,0)
+PTF1 ; -- PTF where ID=iens;TYPE
+"RTN","VPRDJ04A",110,0)
+ ; Expects ^TMP("VPRPX",$J,VPRIDT,ID)=ITM^[DISCHARGE]DATE
+"RTN","VPRDJ04A",111,0)
+ N TMP,PTF,ADM,DIS,VAIN,VAINDT,HLOC,FAC,X,Y,VISIT,X0
+"RTN","VPRDJ04A",112,0)
+ ; PTF^DGPTPXRM(+ID,.VPRF)
+"RTN","VPRDJ04A",113,0)
+ S TMP=$G(^TMP("VPRPX",$J,VPRIDT,ID))
+"RTN","VPRDJ04A",114,0)
+ ;
+"RTN","VPRDJ04A",115,0)
+ S PTF("localId")=ID,PTF("uid")=$$SETUID^VPRUTILS("ptf",DFN,ID)
+"RTN","VPRDJ04A",116,0)
+ S P=$L(ID,";"),TYPE=$P(ID,";",P) S:TYPE="DXLS" PTF("principalDx")="true"
+"RTN","VPRDJ04A",117,0)
+ S X=$$ICDDX^ICDCODE($P(TMP,U),$P(TMP,U,2)),Y=$S($P(X,U,4)'="":$P(X,U,4),1:$P(X,U,2))
+"RTN","VPRDJ04A",118,0)
+ S PTF("icdCode")=$$SETNCS^VPRUTILS("icd",$P(X,U,2)),PTF("icdName")=Y
+"RTN","VPRDJ04A",119,0)
+ S DIS=$P(TMP,U,2) S:DIS VAINDT=DIS-.0001 D INP^VADPT
+"RTN","VPRDJ04A",120,0)
+ S ADM=+$G(VAIN(7)),HLOC=+$G(^DIC(42,+$G(VAIN(4)),44))
+"RTN","VPRDJ04A",121,0)
+ S:ADM PTF("arrivalDateTime")=$$JSONDT^VPRUTILS(ADM)
+"RTN","VPRDJ04A",122,0)
+ S:DIS PTF("dischargeDateTime")=$$JSONDT^VPRUTILS(DIS)
+"RTN","VPRDJ04A",123,0)
+ S FAC=$$FAC^VPRD(HLOC)
+"RTN","VPRDJ04A",124,0)
+ S VISIT=+$$VISIT(DFN,ADM) I VISIT D
+"RTN","VPRDJ04A",125,0)
+ . S PTF("encounterUid")=$$SETUID^VPRUTILS("visit",DFN,VISIT)
+"RTN","VPRDJ04A",126,0)
+ . S PTF("encounterName")=$$NAME^VPRDJ04(VISIT) Q:FAC
+"RTN","VPRDJ04A",127,0)
+ . S X0=$G(^AUPNVSIT(+VISIT,0)),FAC=+$P(X0,U,6)
+"RTN","VPRDJ04A",128,0)
+ . S:FAC X=$$STA^XUAF4(FAC)_U_$P($$NS^XUAF4(FAC),U)
+"RTN","VPRDJ04A",129,0)
+ . S:'FAC X=$$FAC^VPRD(+$P(X0,U,22)) ;location
+"RTN","VPRDJ04A",130,0)
+ D:FAC FACILITY^VPRUTILS(FAC,"PTF")
+"RTN","VPRDJ04A",131,0)
+ D ADD^VPRDJ("PTF","ptf")
+"RTN","VPRDJ04A",132,0)
+ Q
+"RTN","VPRDJ04A",133,0)
+ ;
+"RTN","VPRDJ04A",134,0)
+VISIT(DFN,DATE) ; -- Return visit# for admission
+"RTN","VPRDJ04A",135,0)
+ N X,Y
+"RTN","VPRDJ04A",136,0)
+ S X=9999999-$P(DATE,".")_"."_$P(DATE,".",2)
+"RTN","VPRDJ04A",137,0)
+ S Y=+$O(^AUPNVSIT("AAH",DFN,X,0))
+"RTN","VPRDJ04A",138,0)
+ Q Y
+"RTN","VPRDJ05")
+0^8^B76359424^n/a
+"RTN","VPRDJ05",1,0)
+VPRDJ05 ;SLC/MKB -- Medications by order ;8/2/11 15:29
+"RTN","VPRDJ05",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ05",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ05",4,0)
+ ;
+"RTN","VPRDJ05",5,0)
+ ; External References: see VPRDJ05V for DBIA list
+"RTN","VPRDJ05",6,0)
+ ;
+"RTN","VPRDJ05",7,0)
+ ; All tags expect DFN, ID, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ05",8,0)
+ ;
+"RTN","VPRDJ05",9,0)
+PS1(ID) ; -- med order
+"RTN","VPRDJ05",10,0)
+ N ORPK,TYPE S ID=+$G(ID)
+"RTN","VPRDJ05",11,0)
+ S ORPK=$$PKGID^ORX8(ID),TYPE=$E(ORPK,$L(ORPK)) S:TYPE=+TYPE TYPE="R"
+"RTN","VPRDJ05",12,0)
+ ;
+"RTN","VPRDJ05",13,0)
+ N ORUPCHUK,ORVP,ORPCL,ORDUZ,ORODT,ORSTRT,ORSTOP,ORL,ORTO,ORSTS,ORNP,ORPV,ORTX
+"RTN","VPRDJ05",14,0)
+ N MED,CLS,OI,X,LOC,FAC,DRUG,DA,CNT,VPRESP
+"RTN","VPRDJ05",15,0)
+ S X=$S(ORPK:$E(ORPK,$L(ORPK)),1:"Z") S:X=+X X="R" ;last char = PS file
+"RTN","VPRDJ05",16,0)
+ S CLS=$S("RSN"[X:"O","UV"[X:"I",1:$$GET1^DIQ(100,ID_",",10,"I"))
+"RTN","VPRDJ05",17,0)
+ S MED("uid")=$$SETUID^VPRUTILS("med",DFN,ID)
+"RTN","VPRDJ05",18,0)
+ S MED("orders",1,"orderUid")=$$SETUID^VPRUTILS("order",DFN,ID)
+"RTN","VPRDJ05",19,0)
+ S X=$$GET1^DIQ(100,ID_",",9,"I") S:X MED("orders",1,"predecessor")=$$SETUID^VPRUTILS("med",DFN,+X)
+"RTN","VPRDJ05",20,0)
+ S X=$$GET1^DIQ(100,ID_",",9.1,"I") S:X MED("orders",1,"successor")=$$SETUID^VPRUTILS("med",DFN,+X)
+"RTN","VPRDJ05",21,0)
+ S:ORPK MED("localId")=ORPK_";"_CLS
+"RTN","VPRDJ05",22,0)
+ D EN^ORX8(ID) S X="" F S X=$O(ORUPCHUK(X)) Q:X="" S:$D(ORUPCHUK(X))#2 @X=ORUPCHUK(X)
+"RTN","VPRDJ05",23,0)
+ S:$G(ORODT) MED("orders",1,"ordered")=$$JSONDT^VPRUTILS(ORODT)
+"RTN","VPRDJ05",24,0)
+ S:$G(ORNP) MED("orders",1,"providerUid")=$$SETUID^VPRUTILS("user",,+ORNP),MED("orders",1,"providerName")=$P(ORNP,U,2)
+"RTN","VPRDJ05",25,0)
+ S LOC=+$G(ORL),FAC=$$FAC^VPRD(LOC) I LOC D
+"RTN","VPRDJ05",26,0)
+ . S MED("orders",1,"locationUid")=$$SETUID^VPRUTILS("location",,LOC)
+"RTN","VPRDJ05",27,0)
+ . S MED("orders",1,"locationName")=$P(^SC(LOC,0),U)
+"RTN","VPRDJ05",28,0)
+ D FACILITY^VPRUTILS(FAC,"MED")
+"RTN","VPRDJ05",29,0)
+ S:$G(ORSTRT) MED("overallStart")=$$JSONDT^VPRUTILS(ORSTRT)
+"RTN","VPRDJ05",30,0)
+ S:$G(ORSTOP) (MED("stopped"),MED("overallStop"))=$$JSONDT^VPRUTILS(ORSTOP)
+"RTN","VPRDJ05",31,0)
+ S MED("vaStatus")=$P($G(ORSTS),U,2)
+"RTN","VPRDJ05",32,0)
+ S MED("medStatusName")=$$STATUS^VPRDPSOR(+$G(ORSTS))
+"RTN","VPRDJ05",33,0)
+ S MED("medStatus")=$$MEDSTAT^VPRDJ05V(MED("medStatusName"))
+"RTN","VPRDJ05",34,0)
+ I CLS="I" D
+"RTN","VPRDJ05",35,0)
+ . S:$P($G(^SC(+$G(LOC),0)),U,25) MED("IMO")="true"
+"RTN","VPRDJ05",36,0)
+ . S X=$P($G(^OR(100,ID,3)),U,9) S:X MED("parent")=X
+"RTN","VPRDJ05",37,0)
+ I ORPK D OEL^PSOORRL(DFN,ORPK_";"_CLS)
+"RTN","VPRDJ05",38,0)
+ S X=$S(ORPK["N":"N",1:CLS),MED("vaType")=X,MED("medType")=$$TYPE^VPRDJ05V(X)
+"RTN","VPRDJ05",39,0)
+ I CLS="O" S MED("type")=$S(ORPK["N":"OTC",1:"Prescription")
+"RTN","VPRDJ05",40,0)
+ S X=$G(VPRESP("COMMENT",1)) S:$L(X) MED("comment")=X
+"RTN","VPRDJ05",41,0)
+ I $$ISIV^VPRDJ05V G IV1^VPRDJ05V
+"RTN","VPRDJ05",42,0)
+ ;
+"RTN","VPRDJ05",43,0)
+A ; - Get order responses
+"RTN","VPRDJ05",44,0)
+ S OI=$$OI^ORX8(ID) I OI D
+"RTN","VPRDJ05",45,0)
+ . S X=$P(OI,U,2) S:$E(X,$L(X))=" " X=$E(X,1,$L(X)-1)
+"RTN","VPRDJ05",46,0)
+ . S MED("name")=X
+"RTN","VPRDJ05",47,0)
+ . D ZERO^PSS50P7(+$P(OI,U,3),,,"PSOI")
+"RTN","VPRDJ05",48,0)
+ . S MED("productFormName")=$P($G(^TMP($J,"PSOI",+$P(OI,U,3),.02)),U,2)
+"RTN","VPRDJ05",49,0)
+ . S:+$G(^TMP($J,"PSOI",+$P(OI,U,3),.09)) MED("supply")="true"
+"RTN","VPRDJ05",50,0)
+ D RESP^VPRDPSOR(ID,.VPRESP) ;order responses
+"RTN","VPRDJ05",51,0)
+ S DRUG=+$G(^TMP("PS",$J,"DD",1,0)) S:'DRUG DRUG=+$G(VPRESP("DRUG",1))
+"RTN","VPRDJ05",52,0)
+ S MED("sig")=$S(CLS="I":"Give: ",1:"")_$G(VPRESP("SIG",1)) ;ORTX(2)
+"RTN","VPRDJ05",53,0)
+ I CLS="O",'$L($G(VPRESP("SIG",1))),'$D(VPRESP("INSTR")) S MED("sig")=$G(VPRESP("COMMENT",1)) ;old Rx
+"RTN","VPRDJ05",54,0)
+ ;
+"RTN","VPRDJ05",55,0)
+B ; - Get dosages
+"RTN","VPRDJ05",56,0)
+ I '$O(^OR(100,ID,2,0)) D ;single dose or OP
+"RTN","VPRDJ05",57,0)
+ . N VPRY,START,STOP,DUR,CONJ,MIN
+"RTN","VPRDJ05",58,0)
+ . S START=$G(ORSTRT),STOP=$G(ORSTOP),MIN=0
+"RTN","VPRDJ05",59,0)
+ . S CNT=0 F S CNT=$O(VPRESP("INSTR",CNT)) Q:CNT<1 D
+"RTN","VPRDJ05",60,0)
+ .. K VPRY D DOSE(.VPRY,CNT) M MED("dosages",CNT)=VPRY
+"RTN","VPRDJ05",61,0)
+ .. ;determine start & stop per dose
+"RTN","VPRDJ05",62,0)
+ .. S MED("dosages",CNT,"relativeStart")=MIN
+"RTN","VPRDJ05",63,0)
+ .. S DUR=$G(VPRY("complexDuration")),CONJ=$G(VPRY("complexConjunction"))
+"RTN","VPRDJ05",64,0)
+ .. S STOP=$S(DUR:$$STOP(START,DUR),1:STOP)
+"RTN","VPRDJ05",65,0)
+ .. S:START MED("dosages",CNT,"start")=$$JSONDT^VPRUTILS(START)
+"RTN","VPRDJ05",66,0)
+ .. S:STOP MED("dosages",CNT,"stop")=$$JSONDT^VPRUTILS(STOP)
+"RTN","VPRDJ05",67,0)
+ .. S X=$$RELTIME(START,STOP,DUR,MIN),MED("dosages",CNT,"relativeStop")=$S($E(X)=".":0_X,1:X)
+"RTN","VPRDJ05",68,0)
+ .. I $E(CONJ)="T",DUR S START=STOP,MIN=X
+"RTN","VPRDJ05",69,0)
+ I $O(^OR(100,ID,2,0)) D
+"RTN","VPRDJ05",70,0)
+ . N DD,CONJ,VPRY,MIN
+"RTN","VPRDJ05",71,0)
+ . M CONJ=VPRESP("CONJ"),DUR=VPRESP("DAYS") S MIN=0
+"RTN","VPRDJ05",72,0)
+ . S (DA,CNT)=0 F S DA=$O(^OR(100,ID,2,DA)) Q:DA<1 D ;child orders
+"RTN","VPRDJ05",73,0)
+ .. K VPRESP,VPRY D RESP^VPRDPSOR(DA,.VPRESP),DOSE(.VPRY,1)
+"RTN","VPRDJ05",74,0)
+ .. S CNT=CNT+1 M MED("dosages",CNT)=VPRY
+"RTN","VPRDJ05",75,0)
+ .. S MED("dosages",CNT,"relativeStart")=MIN
+"RTN","VPRDJ05",76,0)
+ .. S MED("dosages",CNT,"complexConjunction")=$G(CONJ(CNT))
+"RTN","VPRDJ05",77,0)
+ .. S MED("dosages",CNT,"complexDuration")=$G(DUR(CNT))
+"RTN","VPRDJ05",78,0)
+ .. S MED("dosages",CNT,"relatedOrder")=DA
+"RTN","VPRDJ05",79,0)
+ .. S X=$P($G(^OR(100,DA,0)),U,8,9)
+"RTN","VPRDJ05",80,0)
+ .. S:$P(X,U) MED("dosages",CNT,"start")=$$JSONDT^VPRUTILS($P(X,U))
+"RTN","VPRDJ05",81,0)
+ .. S:$P(X,U,2) MED("dosages",CNT,"stop")=$$JSONDT^VPRUTILS($P(X,U,2))
+"RTN","VPRDJ05",82,0)
+ .. I $P(X,U,2)>$G(ORSTOP) S ORSTOP=$P(X,U,2) ;get last stop time
+"RTN","VPRDJ05",83,0)
+ .. S X=$$RELTIME($P(X,U),$P(X,U,2),$G(DUR(CNT)),MIN)
+"RTN","VPRDJ05",84,0)
+ .. S MED("dosages",CNT,"relativeStop")=$S($E(X)=".":0_X,1:X) S:$G(CONJ(CNT))="T" MIN=X
+"RTN","VPRDJ05",85,0)
+ .. S:'DRUG DD=+$G(VPRESP("DRUG",1)),DD(DD,DA)="" ;dispense drug(s)
+"RTN","VPRDJ05",86,0)
+ .. ; get ^TMP("PS",$J) from 1st child, if Inpt parent:
+"RTN","VPRDJ05",87,0)
+ .. I '$D(^TMP("PS",$J)) S ORPK=$$PKGID^ORX8(DA) D OEL^PSOORRL(DFN,ORPK_";"_CLS)
+"RTN","VPRDJ05",88,0)
+ . S MED("stopped")=$$JSONDT^VPRUTILS($G(ORSTOP)) ;reset from last child order
+"RTN","VPRDJ05",89,0)
+ . S DD=$O(DD(0)) I DD,'$O(DD(DD)) S DRUG=DD Q ;1 drug for order
+"RTN","VPRDJ05",90,0)
+ . S (DD,CNT)=0 F S DD=$O(DD(DD)) Q:DD<1 S DA=0 F S DA=$O(DD(DD,DA)) Q:DA<1 S CNT=CNT+1 D NDF(DD,CNT,DA)
+"RTN","VPRDJ05",91,0)
+ ;
+"RTN","VPRDJ05",92,0)
+C ; - Get OP data
+"RTN","VPRDJ05",93,0)
+ I CLS="O",ORPK'["N" D
+"RTN","VPRDJ05",94,0)
+ . S MED("orders",1,"quantityOrdered")=$G(VPRESP("QTY",1))
+"RTN","VPRDJ05",95,0)
+ . S MED("orders",1,"daysSupply")=$G(VPRESP("SUPPLY",1))
+"RTN","VPRDJ05",96,0)
+ . S MED("orders",1,"vaRouting")=$G(VPRESP("PICKUP",1))
+"RTN","VPRDJ05",97,0)
+ . S MED("orders",1,"fillsAllowed")=$G(VPRESP("REFILLS",1))
+"RTN","VPRDJ05",98,0)
+ . S MED("patientInstruction")=$G(VPRESP("PI",1))
+"RTN","VPRDJ05",99,0)
+ . Q:ORPK["P"!(ORPK["S") ;pending
+"RTN","VPRDJ05",100,0)
+ . N VPR,RX0,RX1,FILL,RFD,MW,REL
+"RTN","VPRDJ05",101,0)
+ . K ^TMP("PSOR",$J) D EN^PSOORDER(DFN,+ORPK)
+"RTN","VPRDJ05",102,0)
+ . S RX0=$G(^TMP("PSOR",$J,+ORPK,0)),RX1=$G(^(1)),MED("orders",1,"prescriptionId")=$P(RX0,U,5)
+"RTN","VPRDJ05",103,0)
+ . I '$G(VPRESP("QTY",1)) S MED("orders",1,"quantityOrdered")=$P(RX0,U,6)
+"RTN","VPRDJ05",104,0)
+ . I '$G(VPRESP("SUPPLY",1)) S MED("orders",1,"daysSupply")=$P(RX0,U,7)
+"RTN","VPRDJ05",105,0)
+ . S MED("orders",1,"fillsRemaining")=$P(RX0,U,9),MED("lastFilled")=$$JSONDT^VPRUTILS($P(RX0,U,3))
+"RTN","VPRDJ05",106,0)
+ . S I=$P(RX0,U,2) I I S FILL(I)=I_"^^^"_$P(RX0,U,6,7)_"^^^"_$P(RX0,U,13)_"^^"_$P(RX1,U,6) ;original fill
+"RTN","VPRDJ05",107,0)
+ . S I=0 F S I=$O(^TMP("PSOR",$J,+ORPK,"REF",I)) Q:I<1 S X=$G(^(I,0)),FILL(+X)=X
+"RTN","VPRDJ05",108,0)
+ . S I=0 F S I=$O(^TMP("PSOR",$J,+ORPK,"RPAR",I)) Q:I<1 S X=$G(^(I,0)),$P(X,U,14)=1,FILL(+X)=X
+"RTN","VPRDJ05",109,0)
+ . S (I,RFD)=0 F S RFD=$O(FILL(RFD)) Q:RFD<1 S X=$G(FILL(RFD)) D ;sort 1st
+"RTN","VPRDJ05",110,0)
+ .. S I=I+1,MW=$P($P(X,U,10),";"),REL=$P($P(X,U,8),".")
+"RTN","VPRDJ05",111,0)
+ .. S MED("fills",I,"dispenseDate")=$$JSONDT^VPRUTILS($P(RFD,"."))
+"RTN","VPRDJ05",112,0)
+ .. S MED("fills",I,"releaseDate")=$$JSONDT^VPRUTILS(REL)
+"RTN","VPRDJ05",113,0)
+ .. S MED("fills",I,"routing")=MW
+"RTN","VPRDJ05",114,0)
+ .. S MED("fills",I,"quantityDispensed")=$P(X,U,4)
+"RTN","VPRDJ05",115,0)
+ .. S MED("fills",I,"daysSupplyDispensed")=$P(X,U,5)
+"RTN","VPRDJ05",116,0)
+ .. S:$P(X,U,14) MED("fills",I,"partial")=1 ;"true"
+"RTN","VPRDJ05",117,0)
+ . S X=$S($P(RX0,U,11):$P(RX0,U,11),$P(RX0,U,10):$P(RX0,U,10),1:0)
+"RTN","VPRDJ05",118,0)
+ . S:X MED("orders",1,"fillCost")=X
+"RTN","VPRDJ05",119,0)
+ . S X=$$GET1^PSODI(52,+ORPK_",",26,"I") S:X MED("overallStop")=$$JSONDT^VPRUTILS($P(X,U,2)) ;1^expirationDate
+"RTN","VPRDJ05",120,0)
+ I CLS="I" D
+"RTN","VPRDJ05",121,0)
+ . S X=$$GET1^DIQ(55.06,+ORPK_","_DFN_",",25,"I")
+"RTN","VPRDJ05",122,0)
+ . S:X MED("overallStop")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ05",123,0)
+ . D BCMA^VPRDJ05V(.MED,DFN,ORPK)
+"RTN","VPRDJ05",124,0)
+ ;
+"RTN","VPRDJ05",125,0)
+PSQ ; finish
+"RTN","VPRDJ05",126,0)
+ D:DRUG NDF(+DRUG)
+"RTN","VPRDJ05",127,0)
+ S MED("qualifiedName")=$G(MED("name"))
+"RTN","VPRDJ05",128,0)
+ S X=+$P($G(^TMP("PS",$J,"RXN",0)),U,5)
+"RTN","VPRDJ05",129,0)
+ S:X MED("orders",1,"pharmacistUid")=$$SETUID^VPRUTILS("user",,X),MED("orders",1,"pharmacistName")=$P($G(^VA(200,X,0)),U)
+"RTN","VPRDJ05",130,0)
+ K ^TMP("PS",$J),^TMP($J,"PSOI"),^TMP("PSOR",$J)
+"RTN","VPRDJ05",131,0)
+ D ADD^VPRDJ("MED","med")
+"RTN","VPRDJ05",132,0)
+ Q
+"RTN","VPRDJ05",133,0)
+ ;
+"RTN","VPRDJ05",134,0)
+DOSE(Y,N) ; -- return dosage data from VPRESP(ID,N) to Y("name")
+"RTN","VPRDJ05",135,0)
+ N X,DUR,CONJ S N=+$G(N,1) K Y
+"RTN","VPRDJ05",136,0)
+ S X=$P($G(VPRESP("DOSE",N)),"&",1,2) ; units per dose + noun
+"RTN","VPRDJ05",137,0)
+ S Y("dose")=$S($L(X)>2:$TR(X,"&"," "),1:$P(X,"&"))
+"RTN","VPRDJ05",138,0)
+ S Y("units")=$P(X,"&",2)
+"RTN","VPRDJ05",139,0)
+ S X=+$G(VPRESP("ROUTE",N)) D ALL^PSS51P2(X,,,,"VPRTE")
+"RTN","VPRDJ05",140,0)
+ S Y("routeName")=$G(^TMP($J,"VPRTE",X,1))
+"RTN","VPRDJ05",141,0)
+ S X=$G(VPRESP("SCHEDULE",N)) I $L(X) S Y("scheduleName")=X D SCH^VPRDJ05V(X)
+"RTN","VPRDJ05",142,0)
+ S X=$G(VPRESP("ADMIN",N)) S:$L(X) Y("adminTimes")=X
+"RTN","VPRDJ05",143,0)
+ S X=$G(VPRESP("DAYS",N)) S:$L(X) Y("complexDuration")=X,DUR=X
+"RTN","VPRDJ05",144,0)
+ S X=$G(VPRESP("CONJ",N)) S:$L(X) Y("complexConjunction")=X,CONJ=X
+"RTN","VPRDJ05",145,0)
+ I $L($G(CONJ)),'$L($G(DUR)) D ;look ahead to find duration
+"RTN","VPRDJ05",146,0)
+ . N I,D S I=$O(VPRESP("DAYS",N)),D=$S(I:$G(VPRESP("DAYS",I)),1:"")
+"RTN","VPRDJ05",147,0)
+ . S:$L(D) Y("complexDuration")=D
+"RTN","VPRDJ05",148,0)
+ K ^TMP($J,"VPRTE")
+"RTN","VPRDJ05",149,0)
+ Q
+"RTN","VPRDJ05",150,0)
+ ;
+"RTN","VPRDJ05",151,0)
+STOP(BEG,X) ; -- Return date after adding X to BEG
+"RTN","VPRDJ05",152,0)
+ N D,H,M,UNT,Y
+"RTN","VPRDJ05",153,0)
+ S Y=BEG,(D,H,M)=0,UNT=$P(X,+X,2),X=+X
+"RTN","VPRDJ05",154,0)
+ S UNT=$S($E(UNT)=" ":$E(UNT,2),1:$E(UNT)) I UNT="" S UNT="D"
+"RTN","VPRDJ05",155,0)
+ S:UNT="L" D=30*X
+"RTN","VPRDJ05",156,0)
+ S:UNT="W" D=7*X
+"RTN","VPRDJ05",157,0)
+ S:UNT="D" D=X
+"RTN","VPRDJ05",158,0)
+ S:UNT="H" H=X
+"RTN","VPRDJ05",159,0)
+ S:UNT="M" M=X
+"RTN","VPRDJ05",160,0)
+ S Y=$$FMADD^XLFDT(BEG,D,H,M)
+"RTN","VPRDJ05",161,0)
+ Q Y
+"RTN","VPRDJ05",162,0)
+ ;
+"RTN","VPRDJ05",163,0)
+NDF(DRUG,VPI,ORD) ; -- Set NDF data for dispense DRUG ien
+"RTN","VPRDJ05",164,0)
+ ; code ^ name ^ vuid [^ role ^ concentration ^ order]
+"RTN","VPRDJ05",165,0)
+ N LEN,VPRX,STR,VUID,X,I
+"RTN","VPRDJ05",166,0)
+ S DRUG=+$G(DRUG) Q:'DRUG
+"RTN","VPRDJ05",167,0)
+ D EN^PSSDI(50,,50,"901;902",DRUG,"VPRX")
+"RTN","VPRDJ05",168,0)
+ S STR=$S($G(VPRX(50,DRUG,901)):$G(VPRX(50,DRUG,901))_" "_$G(VPRX(50,DRUG,902)),1:"")
+"RTN","VPRDJ05",169,0)
+ D NDF^PSS50(DRUG,,,,,"NDF") S VPI=+$G(VPI,1)
+"RTN","VPRDJ05",170,0)
+ ;
+"RTN","VPRDJ05",171,0)
+ S MED("products",VPI,"ingredientRole")="urn:sct:410942007" ;Drug
+"RTN","VPRDJ05",172,0)
+ S:$G(ORD) MED("products",VPI,"relatedOrder")=ORD
+"RTN","VPRDJ05",173,0)
+ S:$G(STR) MED("products",VPI,"strength")=STR
+"RTN","VPRDJ05",174,0)
+ S X=$G(MED("name")) S:$L(X) MED("products",VPI,"ingredientName")=X
+"RTN","VPRDJ05",175,0)
+ ;
+"RTN","VPRDJ05",176,0)
+ S X=$G(^TMP($J,"NDF",DRUG,20)) ;VA Generic
+"RTN","VPRDJ05",177,0)
+ S MED("products",VPI,"ingredientCode")="urn:va:vuid:"_$$VUID^VPRD(+X,50.6)
+"RTN","VPRDJ05",178,0)
+ S MED("products",VPI,"ingredientCodeName")=$P(X,U,2)
+"RTN","VPRDJ05",179,0)
+ ;
+"RTN","VPRDJ05",180,0)
+ S X=$G(^TMP($J,"NDF",DRUG,22)) ;VA Product
+"RTN","VPRDJ05",181,0)
+ S MED("products",VPI,"suppliedCode")="urn:va:vuid:"_$$VUID^VPRD(+X,50.68)
+"RTN","VPRDJ05",182,0)
+ S MED("products",VPI,"suppliedName")=$P(X,U,2)
+"RTN","VPRDJ05",183,0)
+ ;
+"RTN","VPRDJ05",184,0)
+ S X=$G(^TMP($J,"NDF",DRUG,25)) ;VA Drug Class
+"RTN","VPRDJ05",185,0)
+ S MED("products",VPI,"drugClassCode")="urn:vadc:"_$P(X,U,2)
+"RTN","VPRDJ05",186,0)
+ S MED("products",VPI,"drugClassName")=$P(X,U,3)
+"RTN","VPRDJ05",187,0)
+ ;
+"RTN","VPRDJ05",188,0)
+ K ^TMP($J,"NDF")
+"RTN","VPRDJ05",189,0)
+ Q
+"RTN","VPRDJ05",190,0)
+ ;
+"RTN","VPRDJ05",191,0)
+RELTIME(START,STOP,DUR,MIN) ; -- Return #min for dose
+"RTN","VPRDJ05",192,0)
+ N Y S Y=0
+"RTN","VPRDJ05",193,0)
+ I START>0,STOP>0 S Y=$$FMDIFF^XLFDT(STOP,START,2)\60 I 1
+"RTN","VPRDJ05",194,0)
+ E I DUR S Y=$$TOMIN(DUR) I 1
+"RTN","VPRDJ05",195,0)
+ E S Y=$G(VPRESP("SUPPLY",1))*1440
+"RTN","VPRDJ05",196,0)
+ S Y=$S(Y:Y+MIN,1:MIN)
+"RTN","VPRDJ05",197,0)
+ Q Y
+"RTN","VPRDJ05",198,0)
+ ;
+"RTN","VPRDJ05",199,0)
+TOMIN(DUR) ;
+"RTN","VPRDJ05",200,0)
+ N RESULT,TIME,UNIT
+"RTN","VPRDJ05",201,0)
+ S UNIT=$$UP^XLFSTR($E($P(DUR," ",2)))
+"RTN","VPRDJ05",202,0)
+ I UNIT="" Q 0
+"RTN","VPRDJ05",203,0)
+ S TIME=$P(DUR," ")
+"RTN","VPRDJ05",204,0)
+ S RESULT=$S(UNIT="M":TIME,UNIT="H":TIME*60,UNIT="D":TIME*1440,UNIT="W":TIME*10080,UNIT="L":TIME*43200,1:0)
+"RTN","VPRDJ05",205,0)
+ Q RESULT
+"RTN","VPRDJ05V")
+0^18^B45875553^n/a
+"RTN","VPRDJ05V",1,0)
+VPRDJ05V ;SLC/MKB -- IV/Infusions ;8/2/11 15:29
+"RTN","VPRDJ05V",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ05V",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ05V",4,0)
+ ;
+"RTN","VPRDJ05V",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ05V",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ05V",7,0)
+ ; ^OR(100 5771
+"RTN","VPRDJ05V",8,0)
+ ; ^ORD(100.98 873
+"RTN","VPRDJ05V",9,0)
+ ; ^ORD(101.43 2843
+"RTN","VPRDJ05V",10,0)
+ ; ^PSB(53.79 5909
+"RTN","VPRDJ05V",11,0)
+ ; ^SC 10040
+"RTN","VPRDJ05V",12,0)
+ ; ^VA(200 10060
+"RTN","VPRDJ05V",13,0)
+ ; DIQ 2056
+"RTN","VPRDJ05V",14,0)
+ ; ORQ1,^TMP("ORR" 3154
+"RTN","VPRDJ05V",15,0)
+ ; ORX8 2467,3071
+"RTN","VPRDJ05V",16,0)
+ ; PSODI 4858
+"RTN","VPRDJ05V",17,0)
+ ; PSOORDER,^TMP("PSOR" 1878
+"RTN","VPRDJ05V",18,0)
+ ; PSOORRL,^TMP("PS" 2400
+"RTN","VPRDJ05V",19,0)
+ ; PSS50 4483
+"RTN","VPRDJ05V",20,0)
+ ; PSS50P7 4662
+"RTN","VPRDJ05V",21,0)
+ ; PSS51P1 4546
+"RTN","VPRDJ05V",22,0)
+ ; PSS51P2 4548
+"RTN","VPRDJ05V",23,0)
+ ; PSS52P6 4549
+"RTN","VPRDJ05V",24,0)
+ ; PSS52P7 4550
+"RTN","VPRDJ05V",25,0)
+ ; PSSDI 4551
+"RTN","VPRDJ05V",26,0)
+ ; XLFDT 10103
+"RTN","VPRDJ05V",27,0)
+ ; XLFSTR 10104
+"RTN","VPRDJ05V",28,0)
+ ;
+"RTN","VPRDJ05V",29,0)
+ ; All tags expect DFN, ID, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ05V",30,0)
+ ;
+"RTN","VPRDJ05V",31,0)
+ISIV() ; -- Return 1 or 0, if order is for IV/infusion
+"RTN","VPRDJ05V",32,0)
+ I ORPK["V" Q 1
+"RTN","VPRDJ05V",33,0)
+ I $P($G(ORTO),U,2)?1"IV".E Q 1
+"RTN","VPRDJ05V",34,0)
+ I +$G(ORPCL)=130 Q 1
+"RTN","VPRDJ05V",35,0)
+ I $G(^TMP("PS",$J,"B",0)) Q 1
+"RTN","VPRDJ05V",36,0)
+ Q 0
+"RTN","VPRDJ05V",37,0)
+ ;
+"RTN","VPRDJ05V",38,0)
+IV1 ; -- IV fluid, Infusion order [continued from VPRDJ05]
+"RTN","VPRDJ05V",39,0)
+ ; [Also expects ORPK, OEL^PSOORRL data]
+"RTN","VPRDJ05V",40,0)
+ N PS,PS0,X,X0,RTE,I,ADD,BASE
+"RTN","VPRDJ05V",41,0)
+ S MED("vaType")="V",MED("medType")="urn:sct:105903003"
+"RTN","VPRDJ05V",42,0)
+ S (ADD,BASE)=""
+"RTN","VPRDJ05V",43,0)
+ I ORPK,$D(^TMP("PS",$J)) D G IVQ
+"RTN","VPRDJ05V",44,0)
+ . M PS=^TMP("PS",$J) S PS0=$G(PS(0)),MED("name")=$P(PS0,U)
+"RTN","VPRDJ05V",45,0)
+ . S X=$G(PS("MDR",1,0)) S:$L(X) MED("dosages",1,"routeName")=X
+"RTN","VPRDJ05V",46,0)
+ . S X=$P($G(PS("SCH",1,0)),U) I $L(X) D
+"RTN","VPRDJ05V",47,0)
+ .. S MED("dosages",1,"scheduleName")=X
+"RTN","VPRDJ05V",48,0)
+ .. N Y D SCH(X)
+"RTN","VPRDJ05V",49,0)
+ .. M MED("dosages",1)=Y
+"RTN","VPRDJ05V",50,0)
+ . S X=$G(PS("ADM",1,0)) S:$L(X) MED("dosages",1,"adminTimes")=X
+"RTN","VPRDJ05V",51,0)
+ . S X=$P(PS0,U,2) I X["INFUSE OVER" S MED("dosages",1,"duration")=X
+"RTN","VPRDJ05V",52,0)
+ . E S MED("dosages",1,"ivRate")=X
+"RTN","VPRDJ05V",53,0)
+ . S X=$G(PS("IVLIM",0)) S:$L(X) MED("dosages",1,"restriction")=$$IVLIM(X)
+"RTN","VPRDJ05V",54,0)
+ . S X=+$P($G(PS("RXN",0)),U,5)
+"RTN","VPRDJ05V",55,0)
+ . S:X MED("orders",1,"pharmacistUid")=$$SETUID^VPRUTILS("user",,X),MED("orders",1,"pharmacistName")=$P($G(^VA(200,X,0)),U)
+"RTN","VPRDJ05V",56,0)
+ . D IVP
+"RTN","VPRDJ05V",57,0)
+ ; no med in PS (pending or cancelled), so use Order values
+"RTN","VPRDJ05V",58,0)
+ S RTE=+$$VALUE^ORX8(ID,"ROUTE") I RTE D
+"RTN","VPRDJ05V",59,0)
+ . D ALL^PSS51P2(RTE,,,,"VPRTE")
+"RTN","VPRDJ05V",60,0)
+ . S MED("dosages",1,"routeName")=$G(^TMP($J,"VPRTE",RTE,1))
+"RTN","VPRDJ05V",61,0)
+ S X=$$VALUE^ORX8(ID,"SCHEDULE") I $L(X) D
+"RTN","VPRDJ05V",62,0)
+ . S MED("dosages",1,"scheduleName")=X
+"RTN","VPRDJ05V",63,0)
+ . N Y D SCH(X)
+"RTN","VPRDJ05V",64,0)
+ . M MED("dosages",1)=Y
+"RTN","VPRDJ05V",65,0)
+ S X=$$VALUE^ORX8(ID,"ADMIN") S:$L(X) MED("dosages",1,"adminTimes")=X
+"RTN","VPRDJ05V",66,0)
+ S X=$$VALUE^ORX8(ID,"RATE")
+"RTN","VPRDJ05V",67,0)
+ I X["INFUSE OVER" S MED("dosages",1,"duration")=X
+"RTN","VPRDJ05V",68,0)
+ E S MED("dosages",1,"ivRate")=X
+"RTN","VPRDJ05V",69,0)
+ S I=0 F S I=$O(^OR(100,ID,.1,I)) Q:I<1 S X=+$G(^(I,0)) D
+"RTN","VPRDJ05V",70,0)
+ . S X0=$G(^ORD(101.43,X,0)),MED("name")=$P(X0,U)
+"RTN","VPRDJ05V",71,0)
+ . S MED("products",I,"ingredientName")=$P(X0,U)
+"RTN","VPRDJ05V",72,0)
+ S X=$$VALUE^ORX8(ID,"DAYS") I $L(X) D S MED("dosages",1,"restriction")=X
+"RTN","VPRDJ05V",73,0)
+ . I X?1.A1.N S X=$$IVLIM(X) Q
+"RTN","VPRDJ05V",74,0)
+ . ; CPRS format = "for a total of 3 doses" or "with total volume 100ml"
+"RTN","VPRDJ05V",75,0)
+ . F I=1:1:$L(X) I $E(X,I)=+$E(X,I) S X=$E(X,I,$L(X)) Q
+"RTN","VPRDJ05V",76,0)
+IVQ ; done
+"RTN","VPRDJ05V",77,0)
+ K ^TMP("PS",$J),^TMP($J,"VPRTE")
+"RTN","VPRDJ05V",78,0)
+ S MED("qualifiedName")=ADD_$S($L(ADD)&$L(BASE):" in ",1:"")_BASE
+"RTN","VPRDJ05V",79,0)
+ D BCMA(.MED,DFN,ORPK)
+"RTN","VPRDJ05V",80,0)
+ D ADD^VPRDJ("MED","med")
+"RTN","VPRDJ05V",81,0)
+ Q
+"RTN","VPRDJ05V",82,0)
+ ;
+"RTN","VPRDJ05V",83,0)
+IVP ; -- add IV products
+"RTN","VPRDJ05V",84,0)
+ ; [expects PS("A") & PS("B") data arrays from IV1]
+"RTN","VPRDJ05V",85,0)
+ N VPI,N,NAME,IEN,DRUG,OI,X S N=0
+"RTN","VPRDJ05V",86,0)
+ ; IV Additives
+"RTN","VPRDJ05V",87,0)
+ S VPI=0 F S VPI=$O(PS("A",VPI)) Q:VPI<1 D
+"RTN","VPRDJ05V",88,0)
+ . K ^TMP($J,"VPRPSIV") S NAME=$P($G(PS("A",VPI,0)),U)
+"RTN","VPRDJ05V",89,0)
+ . D ZERO^PSS52P6("",NAME,"","VPRPSIV")
+"RTN","VPRDJ05V",90,0)
+ . S IEN=$O(^TMP($J,"VPRPSIV",0)),DRUG=+$G(^(IEN,1)) Q:IEN<1
+"RTN","VPRDJ05V",91,0)
+ . S OI=$G(^TMP($J,"VPRPSIV",IEN,15)) S:OI NAME=$$NAME(+OI)
+"RTN","VPRDJ05V",92,0)
+ . S N=N+1 D:DRUG NDF(DRUG,N,"A",NAME)
+"RTN","VPRDJ05V",93,0)
+ . S MED("products",N,"strength")=$P($G(PS("A",VPI,0)),U,2)
+"RTN","VPRDJ05V",94,0)
+ ; IV Base Solutions
+"RTN","VPRDJ05V",95,0)
+ S VPI=0 F S VPI=$O(PS("B",VPI)) Q:VPI<1 D
+"RTN","VPRDJ05V",96,0)
+ . K ^TMP($J,"VPRPSIV") S NAME=$P($G(PS("B",VPI,0)),U)
+"RTN","VPRDJ05V",97,0)
+ . D ZERO^PSS52P7("",NAME,"","VPRPSIV")
+"RTN","VPRDJ05V",98,0)
+ . S IEN=$O(^TMP($J,"VPRPSIV",0)),DRUG=+$G(^(IEN,1)) Q:IEN<1
+"RTN","VPRDJ05V",99,0)
+ . S OI=$G(^TMP($J,"VPRPSIV",IEN,9)) S:OI NAME=$$NAME(+OI)
+"RTN","VPRDJ05V",100,0)
+ . S N=N+1 D:DRUG NDF(DRUG,N,"B",NAME)
+"RTN","VPRDJ05V",101,0)
+ . S MED("products",N,"volume")=$P($G(PS("B",VPI,0)),U,2)
+"RTN","VPRDJ05V",102,0)
+ K ^TMP($J,"VPRPSIV")
+"RTN","VPRDJ05V",103,0)
+ Q
+"RTN","VPRDJ05V",104,0)
+ ;
+"RTN","VPRDJ05V",105,0)
+NAME(PSOI) ; -- return name_form of PS orderable item
+"RTN","VPRDJ05V",106,0)
+ N Y,VPRX S PSOI=+$G(PSOI),Y=""
+"RTN","VPRDJ05V",107,0)
+ D EN^PSSDI(50.7,,50.7,".01;.02",PSOI,"VPRX")
+"RTN","VPRDJ05V",108,0)
+ S:$D(VPRX) Y=$G(VPRX(50.7,PSOI,.01))_" "_$G(VPRX(50.7,PSOI,.02))
+"RTN","VPRDJ05V",109,0)
+ Q Y
+"RTN","VPRDJ05V",110,0)
+ ;
+"RTN","VPRDJ05V",111,0)
+NDF(DRUG,VPI,ROLE,OI) ; -- Set NDF data for dispense DRUG ien
+"RTN","VPRDJ05V",112,0)
+ ; code ^ name ^ vuid ^ role ^ concentration
+"RTN","VPRDJ05V",113,0)
+ N VPRX,VUID,X,I,CONC,NM
+"RTN","VPRDJ05V",114,0)
+ S DRUG=+$G(DRUG) Q:'DRUG
+"RTN","VPRDJ05V",115,0)
+ D NDF^PSS50(DRUG,,,,,"NDF")
+"RTN","VPRDJ05V",116,0)
+ S CONC=$P($G(PS(ROLE,VPI,0)),U,2),NM=""
+"RTN","VPRDJ05V",117,0)
+ ;
+"RTN","VPRDJ05V",118,0)
+ S MED("products",VPI,"ingredientRole")=$$ROLE(ROLE)
+"RTN","VPRDJ05V",119,0)
+ S OI=$G(OI) S:$L(OI) MED("products",VPI,"ingredientName")=OI,NM=OI
+"RTN","VPRDJ05V",120,0)
+ ; NM=X
+"RTN","VPRDJ05V",121,0)
+ ;
+"RTN","VPRDJ05V",122,0)
+ S X=$G(^TMP($J,"NDF",DRUG,20)) I X D ;VA Generic
+"RTN","VPRDJ05V",123,0)
+ . S MED("products",VPI,"ingredientCode")="urn:va:vuid:"_$$VUID^VPRD(+X,50.6)
+"RTN","VPRDJ05V",124,0)
+ . S MED("products",VPI,"ingredientCodeName")=$P(X,U,2)
+"RTN","VPRDJ05V",125,0)
+ ;
+"RTN","VPRDJ05V",126,0)
+ S X=$G(^TMP($J,"NDF",DRUG,22)) I X D ;VA Product
+"RTN","VPRDJ05V",127,0)
+ . S MED("products",VPI,"suppliedCode")="urn:va:vuid:"_$$VUID^VPRD(+X,50.68)
+"RTN","VPRDJ05V",128,0)
+ . S MED("products",VPI,"suppliedName")=$P(X,U,2)_" "_CONC
+"RTN","VPRDJ05V",129,0)
+ . S:NM="" NM=$P(X,U,2)
+"RTN","VPRDJ05V",130,0)
+ ;
+"RTN","VPRDJ05V",131,0)
+ S X=$G(^TMP($J,"NDF",DRUG,25)) I X D ;VA Drug Class
+"RTN","VPRDJ05V",132,0)
+ . S MED("products",VPI,"drugClassCode")="urn:vadc:"_$P(X,U,2)
+"RTN","VPRDJ05V",133,0)
+ . S MED("products",VPI,"drugClassName")=$P(X,U,3)
+"RTN","VPRDJ05V",134,0)
+ . S:NM="" NM=$P(X,U,3)
+"RTN","VPRDJ05V",135,0)
+ ;
+"RTN","VPRDJ05V",136,0)
+ I $L(NM),ROLE="A" S ADD=ADD_$S($L(ADD):", ",1:"")_NM
+"RTN","VPRDJ05V",137,0)
+ I $L(NM),ROLE="B" S BASE=BASE_$S($L(BASE):", ",1:"")_NM
+"RTN","VPRDJ05V",138,0)
+ K ^TMP($J,"NDF",DRUG)
+"RTN","VPRDJ05V",139,0)
+ Q
+"RTN","VPRDJ05V",140,0)
+ ;
+"RTN","VPRDJ05V",141,0)
+IVLIM(X) ; -- Return expanded version of IV Limit X
+"RTN","VPRDJ05V",142,0)
+ I '$L($G(X)) Q ""
+"RTN","VPRDJ05V",143,0)
+ N Y,VAL,UNT,I
+"RTN","VPRDJ05V",144,0)
+ S Y="",X=$$UP^XLFSTR(X)
+"RTN","VPRDJ05V",145,0)
+ I X?1"DOSES".E S X="A"_$P(X,"DOSES",2)
+"RTN","VPRDJ05V",146,0)
+ S UNT=$E(X),VAL=0 F I=2:1:$L(X) I $E(X,I) S VAL=$E(X,I,$L(X)) Q
+"RTN","VPRDJ05V",147,0)
+ I UNT="A" S Y=+VAL_$S(+VAL>1:" doses",1:" dose")
+"RTN","VPRDJ05V",148,0)
+ I UNT="D" S Y=+VAL_$S(+VAL>1:" days",1:" day")
+"RTN","VPRDJ05V",149,0)
+ I UNT="H" S Y=+VAL_$S(+VAL>1:" hours",1:" hour")
+"RTN","VPRDJ05V",150,0)
+ I UNT="C" S Y=+VAL_" CC"
+"RTN","VPRDJ05V",151,0)
+ I UNT="M" S Y=+VAL_" ml"
+"RTN","VPRDJ05V",152,0)
+ I UNT="L" S Y=+VAL_" L"
+"RTN","VPRDJ05V",153,0)
+ Q Y
+"RTN","VPRDJ05V",154,0)
+ ;
+"RTN","VPRDJ05V",155,0)
+ROLE(X) ;
+"RTN","VPRDJ05V",156,0)
+ N RESULT,TXT,Y
+"RTN","VPRDJ05V",157,0)
+ S RESULT="",TXT="urn:sct:"
+"RTN","VPRDJ05V",158,0)
+ S RESULT=$S(X="A":TXT_"418804003",X="B":TXT_"418297009",1:TXT_"410942007")
+"RTN","VPRDJ05V",159,0)
+ Q RESULT
+"RTN","VPRDJ05V",160,0)
+ ;
+"RTN","VPRDJ05V",161,0)
+MEDSTAT(X) ;
+"RTN","VPRDJ05V",162,0)
+ N Y S Y="urn:sct:"
+"RTN","VPRDJ05V",163,0)
+ S Y=Y_$S(X="active":"55561003",X="historical":"392521001","hold":"421139008",1:"73425007")
+"RTN","VPRDJ05V",164,0)
+ Q Y
+"RTN","VPRDJ05V",165,0)
+ ;
+"RTN","VPRDJ05V",166,0)
+TYPE(VA) ;
+"RTN","VPRDJ05V",167,0)
+ N RESULT,TXT,Y
+"RTN","VPRDJ05V",168,0)
+ S RESULT="",TXT="urn:sct:"
+"RTN","VPRDJ05V",169,0)
+ S RESULT=$S(VA="N":TXT_"329505003",VA="O":TXT_"73639000",1:TXT_"105903003")
+"RTN","VPRDJ05V",170,0)
+ Q RESULT
+"RTN","VPRDJ05V",171,0)
+ ;
+"RTN","VPRDJ05V",172,0)
+SCH(NAME) ; -- Return other schedule info
+"RTN","VPRDJ05V",173,0)
+ N I K ^TMP($J,"VPRS")
+"RTN","VPRDJ05V",174,0)
+ I NAME?.E1" PRN" S NAME=$P(NAME," PRN") Q:NAME="" ;strip off PRN for search
+"RTN","VPRDJ05V",175,0)
+ D ZERO^PSS51P1("",NAME,"PSJ",,"VPRS")
+"RTN","VPRDJ05V",176,0)
+ S I=+$O(^TMP($J,"VPRS","B",NAME,0)) Q:'I
+"RTN","VPRDJ05V",177,0)
+ S Y("scheduleFreq")=+$G(^TMP($J,"VPRS",I,2))
+"RTN","VPRDJ05V",178,0)
+ S Y("scheduleType")=$P($G(^TMP($J,"VPRS",I,5)),U,2)
+"RTN","VPRDJ05V",179,0)
+ K ^TMP($J,"VPRS")
+"RTN","VPRDJ05V",180,0)
+ Q
+"RTN","VPRDJ05V",181,0)
+ ;
+"RTN","VPRDJ05V",182,0)
+BCMA(Y,DFN,ORPK) ; -- administration times
+"RTN","VPRDJ05V",183,0)
+ Q:$G(DFN)<1 Q:$G(ORPK)<1
+"RTN","VPRDJ05V",184,0)
+ N ADT,DA,CNT,STS S (ADT,CNT)=0
+"RTN","VPRDJ05V",185,0)
+ F S ADT=$O(^PSB(53.79,"AORDX",DFN,ORPK,ADT)) Q:ADT<1 D
+"RTN","VPRDJ05V",186,0)
+ . S DA=0 F S DA=+$O(^PSB(53.79,"AORDX",DFN,ORPK,ADT,DA)) Q:DA<1 D
+"RTN","VPRDJ05V",187,0)
+ .. S STS=$$GET1^DIQ(53.79,DA_",",.09) Q:STS="REMOVED"
+"RTN","VPRDJ05V",188,0)
+ .. S CNT=CNT+1,Y("administrations",CNT,"status")=STS
+"RTN","VPRDJ05V",189,0)
+ .. S Y("administrations",CNT,"dateTime")=$$JSONDT^VPRUTILS(ADT)
+"RTN","VPRDJ05V",190,0)
+ Q
+"RTN","VPRDJ06")
+0^9^B49853799^n/a
+"RTN","VPRDJ06",1,0)
+VPRDJ06 ;SLC/MKB -- Laboratory ;6/25/12 16:11
+"RTN","VPRDJ06",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ06",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ06",4,0)
+ ;
+"RTN","VPRDJ06",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ06",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ06",7,0)
+ ; ^LAB(60 10054
+"RTN","VPRDJ06",8,0)
+ ; ^LR 525
+"RTN","VPRDJ06",9,0)
+ ; ^PXRMINDX 4290
+"RTN","VPRDJ06",10,0)
+ ; ^TMP("LRRR" [LR7OR1] 2503
+"RTN","VPRDJ06",11,0)
+ ; DIQ 2056
+"RTN","VPRDJ06",12,0)
+ ; LR7OR1,^TMP("LRRR" 2503
+"RTN","VPRDJ06",13,0)
+ ; LRPXAPI 4245
+"RTN","VPRDJ06",14,0)
+ ; LRPXAPIU 4246
+"RTN","VPRDJ06",15,0)
+ ; XLFSTR 10104
+"RTN","VPRDJ06",16,0)
+ ; XUAF4 2171
+"RTN","VPRDJ06",17,0)
+ ;
+"RTN","VPRDJ06",18,0)
+ ; All tags expect DFN, ID, LRDFN, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ06",19,0)
+ ; & ^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT,VPRP),VPRN
+"RTN","VPRDJ06",20,0)
+ ;
+"RTN","VPRDJ06",21,0)
+CH1 ; -- lab ID = CH;VPRIDT;VPRN
+"RTN","VPRDJ06",22,0)
+ N LAB,LRI,X,X0,SPC,LOINC,ORD,CMMT
+"RTN","VPRDJ06",23,0)
+ M LAB=VPRACC ;get accession info
+"RTN","VPRDJ06",24,0)
+ S LAB("localId")=ID,LAB("uid")=$$SETUID^VPRUTILS("lab",DFN,ID)
+"RTN","VPRDJ06",25,0)
+ S LAB("categoryCode")="urn:va:lab-category:CH"
+"RTN","VPRDJ06",26,0)
+ S LAB("categoryName")="Laboratory"
+"RTN","VPRDJ06",27,0)
+ S LAB("displayOrder")=VPRP
+"RTN","VPRDJ06",28,0)
+ S LRI=$G(^LR(LRDFN,"CH",VPRIDT,VPRN))
+"RTN","VPRDJ06",29,0)
+ S X0=$G(^TMP("LRRR",$J,DFN,"CH",VPRIDT,VPRP)),SPC=+$P(X0,U,19)
+"RTN","VPRDJ06",30,0)
+ S LAB("typeId")=+X0,LAB("typeName")=$P($G(^LAB(60,+X0,0)),U)
+"RTN","VPRDJ06",31,0)
+ S:$L($P(X0,U,2)) LAB("result")=$P(X0,U,2)
+"RTN","VPRDJ06",32,0)
+ S:$L($P(X0,U,4)) LAB("units")=$P(X0,U,4)
+"RTN","VPRDJ06",33,0)
+ S X=$P(X0,U,5) I $L(X),X["-" S LAB("low")=$$TRIM^XLFSTR($P(X,"-")),LAB("high")=$$TRIM^XLFSTR($P(X,"-",2))
+"RTN","VPRDJ06",34,0)
+ S X=$P(X0,U,3) I $L(X) D
+"RTN","VPRDJ06",35,0)
+ . S:X["*" X=$S(X["L":"LL",1:"HH")
+"RTN","VPRDJ06",36,0)
+ . S LAB("interpretationCode")="urn:hl7:observation-interpretation:"_X
+"RTN","VPRDJ06",37,0)
+ . S LAB("interpretationName")=$S(X["L":"Low",1:"High")_$S($L(X)>1:" alert",1:"")
+"RTN","VPRDJ06",38,0)
+ S LAB("displayName")=$S($L($P(X0,U,15)):$P(X0,U,15),1:LAB("test"))
+"RTN","VPRDJ06",39,0)
+ S ORD=+$P(X0,U,17) S:ORD LAB("labOrderId")=ORD
+"RTN","VPRDJ06",40,0)
+ S X=$$ORDER^VPRDLR(ORD,+X0) S:X LAB("orderUid")=$$SETUID^VPRUTILS("order",DFN,X)
+"RTN","VPRDJ06",41,0)
+ S LOINC=$P($P(LRI,U,3),"!",3) ;S:'LOINC LOINC=$$LOINC(+X0,SPC)
+"RTN","VPRDJ06",42,0)
+ I LOINC S LAB("typeCode")="urn:lnc:"_$$GET1^DIQ(95.3,+LOINC_",",.01),LAB("vuid")="urn:va:vuid:"_$$VUID^VPRD(+LOINC,95.3)
+"RTN","VPRDJ06",43,0)
+ I 'LOINC S LAB("typeCode")="urn:va:ien:60:"_+X0_":"_SPC
+"RTN","VPRDJ06",44,0)
+ I $D(^TMP("LRRR",$J,DFN,"CH",VPRIDT,"N")) M CMMT=^("N") S LAB("comment")=$$STRING^VPRD(.CMMT)
+"RTN","VPRDJ06",45,0)
+ S LAB("statusCode")="urn:va:lab-status:completed",LAB("statusName")="completed"
+"RTN","VPRDJ06",46,0)
+ D ADD^VPRDJ("LAB","lab")
+"RTN","VPRDJ06",47,0)
+ Q
+"RTN","VPRDJ06",48,0)
+ ;
+"RTN","VPRDJ06",49,0)
+ACC ; -- put accession-level data in VPRACC("attribute")
+"RTN","VPRDJ06",50,0)
+ N LR0,CDT,SPC,X K VPRACC
+"RTN","VPRDJ06",51,0)
+ S LR0=$G(^LR(LRDFN,VPRSUB,VPRIDT,0))
+"RTN","VPRDJ06",52,0)
+ S CDT=9999999-VPRIDT,VPRACC("observed")=$$DATE(CDT)
+"RTN","VPRDJ06",53,0)
+ S VPRACC("resulted")=$$DATE($P(LR0,U,3)),SPC=+$P(LR0,U,5) I SPC D
+"RTN","VPRDJ06",54,0)
+ . N IENS,VPRY S IENS=SPC_","
+"RTN","VPRDJ06",55,0)
+ . D GETS^DIQ(61,IENS,".01;4.1",,"VPRY")
+"RTN","VPRDJ06",56,0)
+ . S VPRACC("specimen")=$G(VPRY(61,IENS,.01))
+"RTN","VPRDJ06",57,0)
+ . S VPRACC("sample")=$G(VPRY(61,IENS,4.1))
+"RTN","VPRDJ06",58,0)
+ S VPRACC("groupUid")=$$SETUID^VPRUTILS("accession",DFN,VPRSUB_";"_VPRIDT)
+"RTN","VPRDJ06",59,0)
+ S VPRACC("groupName")=$P(LR0,U,6)
+"RTN","VPRDJ06",60,0)
+ S X=+$P(LR0,U,14) D D FACILITY^VPRUTILS(X,"VPRACC")
+"RTN","VPRDJ06",61,0)
+ . S:X X=$$STA^XUAF4(X)_U_$P($$NS^XUAF4(X),U)
+"RTN","VPRDJ06",62,0)
+ . I 'X S X=$$FAC^VPRD ;local stn#^name
+"RTN","VPRDJ06",63,0)
+ Q
+"RTN","VPRDJ06",64,0)
+ ;
+"RTN","VPRDJ06",65,0)
+MI ; -- microbiology accession ID = MI;VPRIDT
+"RTN","VPRDJ06",66,0)
+ N LAB,CDT,LR0,X,ACC,FAC,X0,X1,X2,IDX,VPRM,VPRPX,VPRITM,DA,FLD
+"RTN","VPRDJ06",67,0)
+ S LAB("localId")=ID,LAB("uid")=$$SETUID^VPRUTILS("lab",DFN,ID)
+"RTN","VPRDJ06",68,0)
+ S LAB("categoryCode")="urn:va:lab-category:MI"
+"RTN","VPRDJ06",69,0)
+ S LAB("categoryName")="Microbiology"
+"RTN","VPRDJ06",70,0)
+ S LAB("statusCode")="urn:va:lab-status:completed",LAB("statusName")="completed"
+"RTN","VPRDJ06",71,0)
+ S CDT=9999999-VPRIDT,LAB("observed")=$$DATE(CDT)
+"RTN","VPRDJ06",72,0)
+ S LR0=$G(^LR(LRDFN,"MI",VPRIDT,0))
+"RTN","VPRDJ06",73,0)
+ S:$P(LR0,U,3) LAB("resulted")=$$DATE($P(LR0,U,3))
+"RTN","VPRDJ06",74,0)
+ S X=+$P(LR0,U,5) I X D ;specimen
+"RTN","VPRDJ06",75,0)
+ . N IENS,VPRY S IENS=X_","
+"RTN","VPRDJ06",76,0)
+ . D GETS^DIQ(61,IENS,".01;2",,"VPRY")
+"RTN","VPRDJ06",77,0)
+ . S LAB("specimen")=$G(VPRY(61,IENS,.01))
+"RTN","VPRDJ06",78,0)
+ . S LAB("sample")=$$GET1^DIQ(61,X_",",4.1)
+"RTN","VPRDJ06",79,0)
+ S LAB("groupName")=$P(LR0,U,6),ACC=$P(ID,";",1,2) ;accession#
+"RTN","VPRDJ06",80,0)
+ S LAB("groupUid")=$$SETUID^VPRUTILS("accession",DFN,ACC)
+"RTN","VPRDJ06",81,0)
+ S X=$P(LR0,U,14),FAC=$S(X:$$STA^XUAF4(X)_U_$P($$NS^XUAF4(X),U),1:$$FAC^VPRD)
+"RTN","VPRDJ06",82,0)
+ D FACILITY^VPRUTILS(FAC,"LAB")
+"RTN","VPRDJ06",83,0)
+ ; get results from ^TMP
+"RTN","VPRDJ06",84,0)
+ S VPRN=0 F S VPRN=$O(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT,VPRN)) Q:VPRN<1 D
+"RTN","VPRDJ06",85,0)
+ . S X0=$G(^TMP("LRRR",$J,DFN,"MI",VPRIDT,VPRN)),X1=$P(X0,U),X2=$P(X0,U,2)
+"RTN","VPRDJ06",86,0)
+ . I X1="URINE SCREEN" S LAB("urineScreen")=X2 Q
+"RTN","VPRDJ06",87,0)
+ . ; X1="ORGANISM" S LAB("organism")=$P(X2,";"),LAB("organismQty")=$P(X2,";",2)
+"RTN","VPRDJ06",88,0)
+ . I X1="GRAM STAIN" S LAB("gramStain",VPRN,"result")=X2 Q
+"RTN","VPRDJ06",89,0)
+ . I X1="Bacteriology Remark(s)" S LAB("bactRemarks")=X2 Q
+"RTN","VPRDJ06",90,0)
+ ; get other results from ^PXRMINDX
+"RTN","VPRDJ06",91,0)
+ S X=$O(^PXRMINDX(63,"PDI",DFN,CDT,"M;T;0")) I X?1"M;T;"1.N D
+"RTN","VPRDJ06",92,0)
+ . S IDX=$O(^PXRMINDX(63,"PDI",DFN,CDT,X,"")) K VPRM
+"RTN","VPRDJ06",93,0)
+ . D LRPXRM^LRPXAPI(.VPRM,IDX,X) Q:VPRM<1
+"RTN","VPRDJ06",94,0)
+ . S LAB("typeName")=$P(VPRM,U,2)
+"RTN","VPRDJ06",95,0)
+ . S LAB("typeCode")="urn:va:ien:60:"_+VPRM_":"_+$P(VPRM,U,7)
+"RTN","VPRDJ06",96,0)
+ F VPRPX="M;O;","M;A;" D
+"RTN","VPRDJ06",97,0)
+ . S VPRITM=VPRPX F S VPRITM=$O(^PXRMINDX(63,"PDI",DFN,CDT,VPRITM)) Q:$E(VPRITM,1,4)'=VPRPX D
+"RTN","VPRDJ06",98,0)
+ .. S IDX=$O(^PXRMINDX(63,"PDI",DFN,CDT,VPRITM,"")) K VPRM
+"RTN","VPRDJ06",99,0)
+ .. S DA=$P(IDX,";",5),FLD=$P(IDX,";",6)
+"RTN","VPRDJ06",100,0)
+ .. D LRPXRM^LRPXAPI(.VPRM,IDX,VPRITM) Q:'$L($G(VPRM))
+"RTN","VPRDJ06",101,0)
+ .. I VPRPX["O" S LAB("organisms",DA,"name")=$P(VPRM,U,2),LAB("organisms",DA,"qty")=$P(VPRM,U,4) Q
+"RTN","VPRDJ06",102,0)
+ .. I VPRPX["A" D Q
+"RTN","VPRDJ06",103,0)
+ ... S LAB("organisms",DA,"drugs",FLD,"name")=$P(VPRM,U,2)
+"RTN","VPRDJ06",104,0)
+ ... S LAB("organisms",DA,"drugs",FLD,"result")=$P(VPRM,U,3)
+"RTN","VPRDJ06",105,0)
+ ... S LAB("organisms",DA,"drugs",FLD,"interp")=$P(VPRM,U,4)
+"RTN","VPRDJ06",106,0)
+ ... S:$L($P(VPRM,U,5)) LAB("organisms",DA,"drugs",FLD,"restrict")=$P(VPRM,U,5)
+"RTN","VPRDJ06",107,0)
+ ;
+"RTN","VPRDJ06",108,0)
+ S LAB("results",1,"uid")=ACC
+"RTN","VPRDJ06",109,0)
+ S LAB("results",1,"resultUid")=$$SETUID^VPRUTILS("document",DFN,ACC)
+"RTN","VPRDJ06",110,0)
+ S LAB("results",1,"localTitle")="LR MICROBIOLOGY REPORT"
+"RTN","VPRDJ06",111,0)
+ I $L($G(^LR(LRDFN,"MI",VPRIDT,99))) S LAB("comment")=^(99)
+"RTN","VPRDJ06",112,0)
+ D ADD^VPRDJ("LAB","lab")
+"RTN","VPRDJ06",113,0)
+ Q
+"RTN","VPRDJ06",114,0)
+ ;
+"RTN","VPRDJ06",115,0)
+ITEM() ; -- find ITEM string from ^PXRMINDX [uses LRDFN,ID,DFN,CDT]
+"RTN","VPRDJ06",116,0)
+ N ITM,IDX,Y S Y=""
+"RTN","VPRDJ06",117,0)
+ S IDX=LRDFN_";"_ID,ITM="M"
+"RTN","VPRDJ06",118,0)
+ F S ITM=$O(^PXRMINDX(63,"PI",DFN,ITM)) Q:$E(ITM)'="M" I $D(^PXRMINDX(63,"PI",DFN,ITM,CDT,IDX)) S Y=ITM Q
+"RTN","VPRDJ06",119,0)
+ Q Y
+"RTN","VPRDJ06",120,0)
+ ;
+"RTN","VPRDJ06",121,0)
+AP ; -- pathology ID = VPRSUB;VPRIDT
+"RTN","VPRDJ06",122,0)
+ N LAB,LR0,X,I,NODE
+"RTN","VPRDJ06",123,0)
+ S LAB("localId")=ID,LAB("organizerType")="accession"
+"RTN","VPRDJ06",124,0)
+ S LAB("uid")=$$SETUID^VPRUTILS("lab",DFN,ID)
+"RTN","VPRDJ06",125,0)
+ S LAB("categoryCode")="urn:va:lab-category:"_VPRSUB
+"RTN","VPRDJ06",126,0)
+ S LAB("categoryName")=$S(VPRSUB="BB":"Blood Bank",VPRSUB="SP":"Surgical Pathology",1:"Pathology")
+"RTN","VPRDJ06",127,0)
+ S LAB("statusCode")="urn:va:lab-status:completed",LAB("statusName")="completed"
+"RTN","VPRDJ06",128,0)
+ S CDT=9999999-VPRIDT,LAB("observed")=$$DATE(CDT)
+"RTN","VPRDJ06",129,0)
+ S LR0=$G(^LR(LRDFN,VPRSUB,VPRIDT,0))
+"RTN","VPRDJ06",130,0)
+ S LAB("resulted")=$$DATE($P(LR0,U,11)),LAB("groupName")=$P(LR0,U,6)
+"RTN","VPRDJ06",131,0)
+ S X="",I=0 F S I=$O(^LR(LRDFN,VPRSUB,VPRIDT,.1,I)) Q:I<1 S X=X_$S($L(X):", ",1:"")_$P($G(^(I,0)),U)
+"RTN","VPRDJ06",132,0)
+ S:$L(X) LAB("specimen")=X
+"RTN","VPRDJ06",133,0)
+ D FACILITY^VPRUTILS($$FAC^VPRD,"LAB")
+"RTN","VPRDJ06",134,0)
+ S NODE=$S(VPRSUB="AU":$NA(^LR(LRDFN,101)),1:$NA(^LR(LRDFN,VPRSUB,VPRIDT,.05)))
+"RTN","VPRDJ06",135,0)
+ S I=0 F S I=$O(@NODE@(I)) Q:I<1 S X=+$P($G(@NODE@(I,0)),U,2) I X D
+"RTN","VPRDJ06",136,0)
+ . N LT,NT
+"RTN","VPRDJ06",137,0)
+ . S LT=$$GET1^DIQ(8925,+X_",",.01) Q:$P(LT," ")="Addendum"
+"RTN","VPRDJ06",138,0)
+ . S NT=$$GET1^DIQ(8925,+X_",",".01:1501") S:NT="" NT="LABORATORY NOTE"
+"RTN","VPRDJ06",139,0)
+ . S LAB("results",I,"uid")=LAB("uid")_";0"
+"RTN","VPRDJ06",140,0)
+ . S LAB("results",I,"resultUid")=$$SETUID^VPRUTILS("document",DFN,X)
+"RTN","VPRDJ06",141,0)
+ . S LAB("results",I,"localTitle")=LT
+"RTN","VPRDJ06",142,0)
+ . S LAB("results",I,"nationalTitle")=NT
+"RTN","VPRDJ06",143,0)
+ I '$O(LAB("results",0)) D ;non-TIU reports
+"RTN","VPRDJ06",144,0)
+ . S LAB("results",1,"uid")=LAB("uid")_";0"
+"RTN","VPRDJ06",145,0)
+ . S LAB("results",1,"resultUid")=$$SETUID^VPRUTILS("document",DFN,ID)
+"RTN","VPRDJ06",146,0)
+ . S LAB("results",1,"localTitle")="LR "_$$NAME^VPRDLRA(VPRSUB)_" REPORT"
+"RTN","VPRDJ06",147,0)
+ . S LAB("results",1,"nationalTitle")="LABORATORY NOTE"
+"RTN","VPRDJ06",148,0)
+ D ADD^VPRDJ("LAB","lab")
+"RTN","VPRDJ06",149,0)
+ ;
+"RTN","VPRDJ06",150,0)
+DATE(X) ; -- strip off seconds, return JSON format
+"RTN","VPRDJ06",151,0)
+ N Y S Y=$G(X)
+"RTN","VPRDJ06",152,0)
+ I $L($P(Y,".",2))>4 S Y=$P(Y,".")_"."_$E($P(Y,".",2),1,4) ;strip seconds
+"RTN","VPRDJ06",153,0)
+ S:Y Y=$$JSONDT^VPRUTILS(Y)
+"RTN","VPRDJ06",154,0)
+ Q Y
+"RTN","VPRDJ07")
+0^10^B19635784^n/a
+"RTN","VPRDJ07",1,0)
+VPRDJ07 ;SLC/MKB -- Radiology,Surgery ;6/25/12 16:11
+"RTN","VPRDJ07",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ07",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ07",4,0)
+ ;
+"RTN","VPRDJ07",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ07",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ07",7,0)
+ ; ^SC 10040
+"RTN","VPRDJ07",8,0)
+ ; ^VA(200 10060
+"RTN","VPRDJ07",9,0)
+ ; DIC 2051
+"RTN","VPRDJ07",10,0)
+ ; DIQ 2056
+"RTN","VPRDJ07",11,0)
+ ; RAO7PC1 2043,2265
+"RTN","VPRDJ07",12,0)
+ ; SROESTV 3533
+"RTN","VPRDJ07",13,0)
+ ;
+"RTN","VPRDJ07",14,0)
+ ; All tags expect DFN, ID, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ07",15,0)
+ ;
+"RTN","VPRDJ07",16,0)
+RA1(ID) ; -- radiology exam ^TMP($J,"RAE1",DFN,ID)
+"RTN","VPRDJ07",17,0)
+ N EXAM,X0,SET,PROC,DATE,LOC,X,Y,IENS,ID3,N
+"RTN","VPRDJ07",18,0)
+ S X0=$G(^TMP($J,"RAE1",DFN,ID)),SET=$G(^(ID,"CPRS")),PROC=$P(X0,U) Q:X0=""
+"RTN","VPRDJ07",19,0)
+ S EXAM("localId")=ID,EXAM("uid")=$$SETUID^VPRUTILS("image",DFN,ID)
+"RTN","VPRDJ07",20,0)
+ S EXAM("name")=PROC,EXAM("case")=$P(X0,U,2),EXAM("category")="RA"
+"RTN","VPRDJ07",21,0)
+ S DATE=9999999.9999-+ID,EXAM("dateTime")=$$JSONDT^VPRUTILS(DATE)
+"RTN","VPRDJ07",22,0)
+ I $P(X0,U,5) D ;report exists
+"RTN","VPRDJ07",23,0)
+ . N NM S NM=$S(+SET=2:$P(SET,U,2),1:PROC) ;2 = shared report
+"RTN","VPRDJ07",24,0)
+ . S EXAM("results",1,"uid")=$$SETUID^VPRUTILS("document",DFN,ID)
+"RTN","VPRDJ07",25,0)
+ . S EXAM("results",1,"localTitle")=NM
+"RTN","VPRDJ07",26,0)
+ . S EXAM("verified")=$S($E($P(X0,U,3))="V":"true",1:"false")
+"RTN","VPRDJ07",27,0)
+ S:$L($P(X0,U,6)) EXAM("statusName")=$P($P(X0,U,6),"~",2)
+"RTN","VPRDJ07",28,0)
+ S X=$P(X0,U,7),LOC="" I $L(X) D
+"RTN","VPRDJ07",29,0)
+ . S EXAM("imageLocation")=X,EXAM("locationName")=X
+"RTN","VPRDJ07",30,0)
+ . S LOC=+$O(^SC("B",X,0))
+"RTN","VPRDJ07",31,0)
+ . S EXAM("locationUid")=$$SETUID^VPRUTILS("location",,LOC)
+"RTN","VPRDJ07",32,0)
+ S X=$$FAC^VPRD(LOC) D FACILITY^VPRUTILS(X,"EXAM")
+"RTN","VPRDJ07",33,0)
+ I $L($P(X0,U,8)) S X=$P($P(X0,U,8),"~",2),EXAM("imagingTypeUid")=$$SETVURN^VPRUTILS("imaging-Type",X)
+"RTN","VPRDJ07",34,0)
+ S X=$P(X0,U,10) I X D
+"RTN","VPRDJ07",35,0)
+ . N CPT S CPT=$$CPT^VPRDRA(X)
+"RTN","VPRDJ07",36,0)
+ . S (EXAM("typeName"),EXAM("summary"))=$P(CPT,U,2)
+"RTN","VPRDJ07",37,0)
+ . ;I $D(^TMP($J,"RAE1",DFN,ID,"CMOD")) M EXAM("modifier")=^("CMOD")
+"RTN","VPRDJ07",38,0)
+ I $P(X0,U,11) D
+"RTN","VPRDJ07",39,0)
+ . S EXAM("orderUid")=$$SETUID^VPRUTILS("order",DFN,+$P(X0,U,11))
+"RTN","VPRDJ07",40,0)
+ . S EXAM("orderName")=$S($L(SET):$P(SET,U,2),1:PROC)
+"RTN","VPRDJ07",41,0)
+ S EXAM("hasImages")=$S($P(X0,U,12)="Y":"true",1:"false")
+"RTN","VPRDJ07",42,0)
+ I $P(X0,U,4)="Y"!($P(X0,U,9)="Y") S EXAM("interpretation")="ABNORMAL"
+"RTN","VPRDJ07",43,0)
+ S IENS=$P(ID,"-",2)_","_+ID_","_DFN_","
+"RTN","VPRDJ07",44,0)
+ S X=$$GET1^DIQ(70.03,IENS,27,"I") I X D
+"RTN","VPRDJ07",45,0)
+ . S EXAM("encounterUid")=$$SETUID^VPRUTILS("visit",DFN,+X)
+"RTN","VPRDJ07",46,0)
+ . S EXAM("encounterName")=$$NAME^VPRDJ04(+X)
+"RTN","VPRDJ07",47,0)
+ S ID3=DFN_U_$TR(ID,"-","^") D EN3^RAO7PC1(ID3) D ;get additional values
+"RTN","VPRDJ07",48,0)
+ . S X=+$G(^TMP($J,"RAE2",DFN,+$P(ID3,U,3),PROC,"P")) Q:'X
+"RTN","VPRDJ07",49,0)
+ . S EXAM("providers",1,"providerUid")=$$SETUID^VPRUTILS("user",,X)
+"RTN","VPRDJ07",50,0)
+ . S EXAM("providers",1,"providerName")=$P($G(^VA(200,X,0)),U),N=0
+"RTN","VPRDJ07",51,0)
+ . F S N=$O(^TMP($J,"RAE2",DFN,+$P(ID3,U,3),PROC,"D",N)) Q:N<1 S X=$G(^(N)) D
+"RTN","VPRDJ07",52,0)
+ .. S EXAM("diagnosis",N,"code")=X
+"RTN","VPRDJ07",53,0)
+ .. S:N=1 EXAM("diagnosis",N,"primary")="true"
+"RTN","VPRDJ07",54,0)
+ .. N EXP S EXP=$$LEX(X) S:EXP EXAM("diagnosis",N,"lexicon")=X
+"RTN","VPRDJ07",55,0)
+ . K ^TMP($J,"RAE2",DFN)
+"RTN","VPRDJ07",56,0)
+ S EXAM("kind")="Imaging"
+"RTN","VPRDJ07",57,0)
+ D ADD^VPRDJ("EXAM","image")
+"RTN","VPRDJ07",58,0)
+ Q
+"RTN","VPRDJ07",59,0)
+ ;
+"RTN","VPRDJ07",60,0)
+LEX(X) ; -- Return Lexicon ptr for a Dx Code
+"RTN","VPRDJ07",61,0)
+ N X,Y,DIC,LEX
+"RTN","VPRDJ07",62,0)
+ S DIC=78.3,DIC(0)="BFOXZ" D ^DIC
+"RTN","VPRDJ07",63,0)
+ S LEX=$P($G(Y(0)),U,6)
+"RTN","VPRDJ07",64,0)
+ Q LEX
+"RTN","VPRDJ07",65,0)
+ ;
+"RTN","VPRDJ07",66,0)
+SR1(ID) ; -- surgery
+"RTN","VPRDJ07",67,0)
+ N SURG,VPRX,VPRY,X,Y,I
+"RTN","VPRDJ07",68,0)
+ D ONE^SROESTV("VPRY",ID) S VPRX=$G(VPRY(ID)) Q:VPRX=""
+"RTN","VPRDJ07",69,0)
+ S SURG("localId")=ID,SURG("uid")=$$SETUID^VPRUTILS("surgery",DFN,ID)
+"RTN","VPRDJ07",70,0)
+ S X=$P(VPRX,U,2),SURG("statusName")="COMPLETED"
+"RTN","VPRDJ07",71,0)
+ I X?1"* Aborted * ".E S X=$E(X,13,999),SURG("statusName")="ABORTED"
+"RTN","VPRDJ07",72,0)
+ S (SURG("typeName"),SURG("summary"))=X
+"RTN","VPRDJ07",73,0)
+ S SURG("dateTime")=$$JSONDT^VPRUTILS($P(VPRX,U,3))
+"RTN","VPRDJ07",74,0)
+ S X=$P(VPRX,U,4) I X D
+"RTN","VPRDJ07",75,0)
+ . S SURG("providers",1,"providerUid")=$$SETUID^VPRUTILS("user",,+X)
+"RTN","VPRDJ07",76,0)
+ . S SURG("providers",1,"providerName")=$P(X,";",2)
+"RTN","VPRDJ07",77,0)
+ S X=$$GET1^DIQ(130,ID_",",50,"I"),X=$$FAC^VPRD(X)
+"RTN","VPRDJ07",78,0)
+ D FACILITY^VPRUTILS(X,"SURG")
+"RTN","VPRDJ07",79,0)
+ S X=$$GET1^DIQ(130,ID_",",.015,"I") I X D
+"RTN","VPRDJ07",80,0)
+ . S SURG("encounterUid")=$$SETUID^VPRUTILS("visit",DFN,+X)
+"RTN","VPRDJ07",81,0)
+ . S SURG("encounterName")=$$NAME^VPRDJ04(+X)
+"RTN","VPRDJ07",82,0)
+ S X=$$GET1^DIQ(136,ID_",",.02,"I") I X D
+"RTN","VPRDJ07",83,0)
+ . S X=$$CPT^VPRDSR(X)
+"RTN","VPRDJ07",84,0)
+ . S (SURG("typeName"),SURG("summary"))=$P(X,U,2)
+"RTN","VPRDJ07",85,0)
+ . S SURG("typeCode")=$$SETNCS^VPRUTILS("cpt",+X)
+"RTN","VPRDJ07",86,0)
+ S I=0 F S I=$O(VPRY(ID,I)) Q:I<1 S X=$G(VPRY(ID,I)) I X D
+"RTN","VPRDJ07",87,0)
+ . N LT,NT S LT=$P(X,U,2) Q:$P(LT," ")="Addendum"
+"RTN","VPRDJ07",88,0)
+ . S NT=$$GET1^DIQ(8925,+X_",",".01:1501")
+"RTN","VPRDJ07",89,0)
+ . S SURG("results",I,"uid")=$$SETUID^VPRUTILS("document",DFN,+X)
+"RTN","VPRDJ07",90,0)
+ . S SURG("results",I,"localTitle")=LT
+"RTN","VPRDJ07",91,0)
+ . S:$L(NT) SURG("results",I,"nationalTitle")=NT
+"RTN","VPRDJ07",92,0)
+ S SURG("kind")="Surgery",SURG("category")="SR"
+"RTN","VPRDJ07",93,0)
+ K ^TMP("TIULIST",$J)
+"RTN","VPRDJ07",94,0)
+ D ADD^VPRDJ("SURG","surgery")
+"RTN","VPRDJ07",95,0)
+ Q
+"RTN","VPRDJ08")
+0^11^B60175705^n/a
+"RTN","VPRDJ08",1,0)
+VPRDJ08 ;SLC/MKB -- Documents ;6/25/12 16:11
+"RTN","VPRDJ08",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ08",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ08",4,0)
+ ;
+"RTN","VPRDJ08",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ08",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ08",7,0)
+ ; ^SC 10040
+"RTN","VPRDJ08",8,0)
+ ; ^TIU(8925.1 2321,5677
+"RTN","VPRDJ08",9,0)
+ ; ^TIU(8926.1 5678
+"RTN","VPRDJ08",10,0)
+ ; ^VA(200 10060
+"RTN","VPRDJ08",11,0)
+ ; DIQ 2056
+"RTN","VPRDJ08",12,0)
+ ; RAO7PC1 2043
+"RTN","VPRDJ08",13,0)
+ ; TIUCNSLT 5546
+"RTN","VPRDJ08",14,0)
+ ; TIUCP 3568
+"RTN","VPRDJ08",15,0)
+ ; TIULQ 2693
+"RTN","VPRDJ08",16,0)
+ ; TIULX 3058
+"RTN","VPRDJ08",17,0)
+ ; TIUSROI 5676
+"RTN","VPRDJ08",18,0)
+ ; TIUSRVLO 2834,2865
+"RTN","VPRDJ08",19,0)
+ ; XLFSTR 10104
+"RTN","VPRDJ08",20,0)
+ ;
+"RTN","VPRDJ08",21,0)
+ ; All tags expect DFN, ID, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ08",22,0)
+ ;
+"RTN","VPRDJ08",23,0)
+TIU1(ID) ; -- document
+"RTN","VPRDJ08",24,0)
+ I ID[";" D Q
+"RTN","VPRDJ08",25,0)
+ . I ID D EN1($$CP1^VPRDJ08A(DFN,ID),"CP") Q ;CP
+"RTN","VPRDJ08",26,0)
+ . D EN1($$LR1^VPRDJ08A(DFN,ID),"LR") Q ;Lab
+"RTN","VPRDJ08",27,0)
+ I ID["-" D Q ;Radiology
+"RTN","VPRDJ08",28,0)
+ . S (BEG,END)=9999999.9999-+ID D EN1^RAO7PC1(DFN,BEG,END,"99P")
+"RTN","VPRDJ08",29,0)
+ . Q:'$D(^TMP($J,"RAE1",DFN,ID)) ;deleted
+"RTN","VPRDJ08",30,0)
+ . D EN1($$RA1^VPRDJ08A(DFN,ID),"RA") K ^TMP($J,"RAE1")
+"RTN","VPRDJ08",31,0)
+ D EN1(ID,38)
+"RTN","VPRDJ08",32,0)
+ Q
+"RTN","VPRDJ08",33,0)
+ ;
+"RTN","VPRDJ08",34,0)
+EN1(VPRX,TIU) ; -- document
+"RTN","VPRDJ08",35,0)
+ ; Expects DFN, VPRX=IEN^$$RESOLVE^TIUSRVLO(IEN) or equivalent
+"RTN","VPRDJ08",36,0)
+ ; TIU = document class#, or code (CP, RA, LR) if non-TIU
+"RTN","VPRDJ08",37,0)
+ N DOC,IEN,X,VPRTIU,ES,I,TEXT,SUB,VPRY,ERR
+"RTN","VPRDJ08",38,0)
+ S IEN=$P($G(VPRX),U),TIU=$G(TIU) Q:IEN="" ;invalid ien
+"RTN","VPRDJ08",39,0)
+ ;
+"RTN","VPRDJ08",40,0)
+ I +VPRX=VPRX,TIU D ;get TIU data string, if needed
+"RTN","VPRDJ08",41,0)
+ . N SHOWADD,DA S SHOWADD=1,DA=+VPRX
+"RTN","VPRDJ08",42,0)
+ . S VPRX=DA_U_$$RESOLVE^TIUSRVLO(DA)
+"RTN","VPRDJ08",43,0)
+ Q:"UNKNOWN"[$P($G(VPRX),U,2) ;null or invalid
+"RTN","VPRDJ08",44,0)
+ S DOC("localId")=IEN,DOC("uid")=$$SETUID^VPRUTILS("document",DFN,IEN)
+"RTN","VPRDJ08",45,0)
+ S DOC("localTitle")=$P(VPRX,U,2)
+"RTN","VPRDJ08",46,0)
+ S DOC("referenceDateTime")=$$JSONDT^VPRUTILS($P(VPRX,U,3))
+"RTN","VPRDJ08",47,0)
+ S X=$P(VPRX,U,6) D ;S:$L(X) DOC("location")=X
+"RTN","VPRDJ08",48,0)
+ . N LOC,FAC S LOC=$S($L(X):+$O(^SC("B",X,0)),1:0)
+"RTN","VPRDJ08",49,0)
+ . S X=$$FAC^VPRD(LOC)
+"RTN","VPRDJ08",50,0)
+ . S DOC("facilityCode")=$P(X,U),DOC("facilityName")=$P(X,U,2)
+"RTN","VPRDJ08",51,0)
+ S X=$P(VPRX,U,7) S:$L(X) DOC("statusName")=X
+"RTN","VPRDJ08",52,0)
+ S:$P(VPRX,U,11) DOC("images")=+$P(VPRX,U,11)
+"RTN","VPRDJ08",53,0)
+ S:$L($P(VPRX,U,12)) DOC("subject")=$P(VPRX,U,12)
+"RTN","VPRDJ08",54,0)
+ I $P(VPRX,U,14)>5 S DOC("parent")=$P(VPRX,U,14) ;ID notes
+"RTN","VPRDJ08",55,0)
+A ; national title
+"RTN","VPRDJ08",56,0)
+ S X=$S(TIU:$$GET1^DIQ(8925,IEN_",",".01:1501","I"),1:$P(VPRX,U,10))
+"RTN","VPRDJ08",57,0)
+ I X D ;National Title + attributes
+"RTN","VPRDJ08",58,0)
+ . N IENS,TIU,Y,FNUM,NAME
+"RTN","VPRDJ08",59,0)
+ . S IENS=X_"," D GETS^DIQ(8926.1,IENS,"*","IE","TIU")
+"RTN","VPRDJ08",60,0)
+ . S DOC("nationalTitle","vuid")="urn:va:vuid:"_$G(TIU(8926.1,IENS,99.99,"E"))
+"RTN","VPRDJ08",61,0)
+ . S DOC("nationalTitle","title")=$G(TIU(8926.1,IENS,.01,"E"))
+"RTN","VPRDJ08",62,0)
+ . F I=".04^Subject^2",".05^Role^3",".06^Setting^4",".07^Service^5",".08^Type^6" D
+"RTN","VPRDJ08",63,0)
+ .. S Y=+$G(TIU(8926.1,IENS,+I,"I")) Q:Y'>0
+"RTN","VPRDJ08",64,0)
+ .. S FNUM="8926."_+$P(I,U,3),NAME=$$LOW^XLFSTR($P(I,U,2))
+"RTN","VPRDJ08",65,0)
+ .. S DOC("nationalTitle"_$P(I,U,2),"vuid")="urn:va:vuid:"_$$VUID^VPRD(Y,FNUM)
+"RTN","VPRDJ08",66,0)
+ .. S DOC("nationalTitle"_$P(I,U,2),NAME)=$G(TIU(8926.1,IENS,+I,"E"))
+"RTN","VPRDJ08",67,0)
+B ; other TIU data
+"RTN","VPRDJ08",68,0)
+ D:TIU EXTRACT^TIULQ(IEN,"VPRTIU",,".01:.05;.09;1201;1202;1208;1209;1301;1501:1508",,1,,1) ;".01:.04;1501:1508")
+"RTN","VPRDJ08",69,0)
+ S X=$G(VPRTIU(IEN,1201,"I")) S:X DOC("entered")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ08",70,0)
+ S X=$G(VPRTIU(IEN,.09,"E")) S:$L(X) DOC("urgency")=X
+"RTN","VPRDJ08",71,0)
+ S X=TIU I TIU S X=+$G(VPRTIU(IEN,.01,"I")),X=$$CATG^VPRDTIU(X) ;2U type code
+"RTN","VPRDJ08",72,0)
+ S DOC("documentTypeCode")=X,DOC("documentTypeName")=$$TYPE(X)
+"RTN","VPRDJ08",73,0)
+ S DOC("documentClass")=$S(X="LR":"LR LABORATORY REPORTS",X="SR":"SURGICAL REPORTS",X="CP":"CLINICAL PROCEDURES",X="RA":"RADIOLOGY REPORTS",X="DS":"DISCHARGE SUMMARY",1:"PROGRESS NOTES")
+"RTN","VPRDJ08",74,0)
+ S X=$S(TIU:$G(VPRTIU(IEN,.03,"I")),1:$P(VPRX,U,8))
+"RTN","VPRDJ08",75,0)
+ S:X DOC("encounterUid")=$$SETUID^VPRUTILS("visit",DFN,X),DOC("encounterName")=$$NAME^VPRDJ04(X)
+"RTN","VPRDJ08",76,0)
+C ; text blocks, signatures
+"RTN","VPRDJ08",77,0)
+ N VPRT,VPRA,VPRADD
+"RTN","VPRDJ08",78,0)
+ S DOC("text",1,"dateTime")=DOC("referenceDateTime")
+"RTN","VPRDJ08",79,0)
+ S DOC("text",1,"status")=$G(DOC("statusName"))
+"RTN","VPRDJ08",80,0)
+ S DOC("text",1,"uid")=DOC("uid")
+"RTN","VPRDJ08",81,0)
+ S VPRT=1,X=$P(VPRX,U,5),I=0
+"RTN","VPRDJ08",82,0)
+ I X D USER(.I,+X,$P(X,";",3),"A") ;author
+"RTN","VPRDJ08",83,0)
+ M ES=VPRTIU(IEN) S X=$P(VPRX,"//",2) ;non-TIU, put into ES for use:
+"RTN","VPRDJ08",84,0)
+ I $L(X) S ES(1502,"I")=+X,ES(1502,"E")=$P(X,";",2),ES(1501,"I")=$P(X,";",3)
+"RTN","VPRDJ08",85,0)
+ I $G(ES(1501,"I")) D USER(.I,ES(1502,"I"),ES(1502,"E"),"S",ES(1501,"I")) ;signer
+"RTN","VPRDJ08",86,0)
+ I $G(ES(1507,"I")) D USER(.I,ES(1508,"I"),ES(1508,"E"),"C",ES(1507,"I")) ;cosigner
+"RTN","VPRDJ08",87,0)
+ I $G(ES(1208,"I")) D USER(.I,ES(1208,"I"),ES(1208,"E"),"X") ;expected cosigner
+"RTN","VPRDJ08",88,0)
+ S X=+$G(ES(1209,"I")) I X D
+"RTN","VPRDJ08",89,0)
+ . S DOC("attendingUid")=$$SETUID^VPRUTILS("user",,X)
+"RTN","VPRDJ08",90,0)
+ . S DOC("attendingName")=$P($G(^VA(200,X,0)),U)
+"RTN","VPRDJ08",91,0)
+ I $G(VPRTEXT) D
+"RTN","VPRDJ08",92,0)
+ . S X=$S(TIU:$NA(VPRTIU(IEN,"TEXT")),1:$NA(^TMP("VPRTEXT",$J,IEN)))
+"RTN","VPRDJ08",93,0)
+ . K ^TMP($J,"VPR TIU TEXT")
+"RTN","VPRDJ08",94,0)
+ . D SETTEXT^VPRUTILS(X,$NA(^TMP($J,"VPR TIU TEXT")))
+"RTN","VPRDJ08",95,0)
+ . M DOC("text",1,"content","\")=^TMP($J,"VPR TIU TEXT")
+"RTN","VPRDJ08",96,0)
+D ; addenda
+"RTN","VPRDJ08",97,0)
+ S VPRA=0 F S VPRA=$O(VPRTIU(IEN,"ZADD",VPRA)) Q:VPRA<1 D
+"RTN","VPRDJ08",98,0)
+ . S VPRT=VPRT+1,I=0 K VPRADD M VPRADD=VPRTIU(IEN,"ZADD",VPRA)
+"RTN","VPRDJ08",99,0)
+ . S DOC("text",VPRT,"status")=$G(VPRADD(.05,"E"))
+"RTN","VPRDJ08",100,0)
+ . S DOC("text",VPRT,"uid")=$$SETUID^VPRUTILS("document",DFN,VPRA)
+"RTN","VPRDJ08",101,0)
+ . S DOC("text",VPRT,"dateTime")=$$JSONDT^VPRUTILS($G(VPRADD(1301,"I")))
+"RTN","VPRDJ08",102,0)
+ . I $G(VPRADD(1202,"I")) D USER(.I,VPRADD(1202,"I"),VPRADD(1202,"E"),"A")
+"RTN","VPRDJ08",103,0)
+ . I $G(VPRADD(1501,"I")) D USER(.I,VPRADD(1502,"I"),VPRADD(1502,"E"),"S",VPRADD(1501,"I"))
+"RTN","VPRDJ08",104,0)
+ . I $G(VPRADD(1507,"I")) D USER(.I,VPRADD(1508,"I"),VPRADD(1508,"E"),"C",VPRADD(1507,"I"))
+"RTN","VPRDJ08",105,0)
+ . Q:'$G(VPRTEXT) K ^TMP($J,"VPR TIU TEXT")
+"RTN","VPRDJ08",106,0)
+ . S X=$NA(VPRTIU(IEN,"ZADD",VPRA,"TEXT"))
+"RTN","VPRDJ08",107,0)
+ . D SETTEXT^VPRUTILS(X,$NA(^TMP($J,"VPR TIU TEXT")))
+"RTN","VPRDJ08",108,0)
+ . M DOC("text",VPRT,"content","\")=^TMP($J,"VPR TIU TEXT")
+"RTN","VPRDJ08",109,0)
+ENQ ; end
+"RTN","VPRDJ08",110,0)
+ K ^TMP($J,"VPR TIU TEXT")
+"RTN","VPRDJ08",111,0)
+ D ADD^VPRDJ("DOC","document")
+"RTN","VPRDJ08",112,0)
+ Q
+"RTN","VPRDJ08",113,0)
+ ;
+"RTN","VPRDJ08",114,0)
+USER(N,IEN,NAME,ROLE,DATE) ; -- set author, signer(s)
+"RTN","VPRDJ08",115,0)
+ Q:'$G(IEN) S N=+$G(N)+1
+"RTN","VPRDJ08",116,0)
+ S DOC("text",VPRT,"clinicians",N,"uid")=$$SETUID^VPRUTILS("user",,IEN)
+"RTN","VPRDJ08",117,0)
+ S DOC("text",VPRT,"clinicians",N,"name")=$S($L($G(NAME)):NAME,1:$P($G(^VA(200,IEN,0)),U))
+"RTN","VPRDJ08",118,0)
+ S DOC("text",VPRT,"clinicians",N,"role")=$G(ROLE)
+"RTN","VPRDJ08",119,0)
+ Q:'$G(DATE) ;not co/signed
+"RTN","VPRDJ08",120,0)
+ S DOC("text",VPRT,"clinicians",N,"signedDateTime")=$$JSONDT^VPRUTILS(DATE)
+"RTN","VPRDJ08",121,0)
+ S DOC("text",VPRT,"clinicians",N,"signature")=$$SIG^VPRDTIU(IEN)
+"RTN","VPRDJ08",122,0)
+ Q
+"RTN","VPRDJ08",123,0)
+ ;
+"RTN","VPRDJ08",124,0)
+ ; ------------ Get/apply search criteria ------------
+"RTN","VPRDJ08",125,0)
+ ; [from DOCUMENT^VPRDJ0]
+"RTN","VPRDJ08",126,0)
+ ;
+"RTN","VPRDJ08",127,0)
+SETUP ; -- convert FILTER("attribute") = value to TIU criteria
+"RTN","VPRDJ08",128,0)
+ ; Expects: FILTER("category") = code (see $$CATG)
+"RTN","VPRDJ08",129,0)
+ ; FILTER("status") = 'signed','unsigned','all'
+"RTN","VPRDJ08",130,0)
+ ; Returns: CLASS,[SUBCLASS,STATUS]
+"RTN","VPRDJ08",131,0)
+ ;
+"RTN","VPRDJ08",132,0)
+ N TYPE,STS,CP
+"RTN","VPRDJ08",133,0)
+ S TYPE=$$UP^XLFSTR($G(FILTER("category")))
+"RTN","VPRDJ08",134,0)
+ S CLASS=0,(SUBCLASS,STATUS)=""
+"RTN","VPRDJ08",135,0)
+ ;
+"RTN","VPRDJ08",136,0)
+ ; status [default='signed']
+"RTN","VPRDJ08",137,0)
+ S STS=$$LOW^XLFSTR($G(FILTER("status")))
+"RTN","VPRDJ08",138,0)
+ S STATUS=$S(STS?1"unsig".E:2,STS="all":"5^2",1:5) ;TIUSRVLO statuses
+"RTN","VPRDJ08",139,0)
+ ;
+"RTN","VPRDJ08",140,0)
+ ; all documents
+"RTN","VPRDJ08",141,0)
+ S:TYPE="" TYPE="ALL"
+"RTN","VPRDJ08",142,0)
+ I TYPE="ALL" S CLASS="3^244^"_+$$CLASS^TIUSROI("SURGICAL REPORTS")_"^CP^LR^RA" Q
+"RTN","VPRDJ08",143,0)
+ ;
+"RTN","VPRDJ08",144,0)
+ I TYPE="PN" S CLASS=3 Q ;Progress Notes
+"RTN","VPRDJ08",145,0)
+ I TYPE="CR" S CLASS=3,SUBCLASS=$$CLASS^TIUCNSLT Q ;Consults
+"RTN","VPRDJ08",146,0)
+ I TYPE="CWAD" S CLASS=3,SUBCLASS="25^27^30^31" Q ;CWAD
+"RTN","VPRDJ08",147,0)
+ I TYPE="C" S CLASS=3,SUBCLASS=30 Q ;Crisis Note
+"RTN","VPRDJ08",148,0)
+ I TYPE="W" S CLASS=3,SUBCLASS=31 Q ;Clinical Warning
+"RTN","VPRDJ08",149,0)
+ I TYPE="A" S CLASS=3,SUBCLASS=25 Q ;Allergy Note
+"RTN","VPRDJ08",150,0)
+ I TYPE="D" S CLASS=3,SUBCLASS=27 Q ;Advance Directive
+"RTN","VPRDJ08",151,0)
+ ;
+"RTN","VPRDJ08",152,0)
+ I TYPE="DS" S CLASS=244 Q ;Discharge Summary
+"RTN","VPRDJ08",153,0)
+ ;
+"RTN","VPRDJ08",154,0)
+ I TYPE="SR" S CLASS=$$CLASS^TIUSROI("SURGICAL REPORTS") Q
+"RTN","VPRDJ08",155,0)
+ I TYPE="CP" D Q ;Clin Procedures
+"RTN","VPRDJ08",156,0)
+ . I STATUS'=2 S CLASS="CP" ; if unsigned,
+"RTN","VPRDJ08",157,0)
+ . E D CPCLASS^TIUCP(.CP) S CLASS=CP ; use TIU class#
+"RTN","VPRDJ08",158,0)
+ ;
+"RTN","VPRDJ08",159,0)
+ I TYPE="LR" S CLASS=$S(STATUS=2:$$LR,1:"LR") Q ;Lab/Pathology
+"RTN","VPRDJ08",160,0)
+ ;
+"RTN","VPRDJ08",161,0)
+ I TYPE="RA" S CLASS="RA" Q ;Radiology
+"RTN","VPRDJ08",162,0)
+ ;
+"RTN","VPRDJ08",163,0)
+ Q
+"RTN","VPRDJ08",164,0)
+ ;
+"RTN","VPRDJ08",165,0)
+LR() ; -- Return ien of Lab class
+"RTN","VPRDJ08",166,0)
+ N Y S Y=+$O(^TIU(8925.1,"B","LR LABORATORY REPORTS",0))
+"RTN","VPRDJ08",167,0)
+ I Y>0,$S($P($G(^TIU(8925.1,Y,0)),U,4)="CL":0,$P($G(^(0)),U,4)="DC":0,1:1) S Y=0
+"RTN","VPRDJ08",168,0)
+ Q Y
+"RTN","VPRDJ08",169,0)
+ ;
+"RTN","VPRDJ08",170,0)
+MATCH(DOC,STS) ; -- Return 1 or 0, if document DA matches search criteria
+"RTN","VPRDJ08",171,0)
+ N Y,DA,LOCAL,NATL,X0,OK S Y=0
+"RTN","VPRDJ08",172,0)
+ S DA=+$G(DOC) G:DA<1 MQ
+"RTN","VPRDJ08",173,0)
+ ; include addenda if pulling only unsigned items
+"RTN","VPRDJ08",174,0)
+ I $P(DOC,U,2)?1"Addendum ".E,STATUS'=2 G MQ
+"RTN","VPRDJ08",175,0)
+ ; TIU unsigned list can include completed parent notes
+"RTN","VPRDJ08",176,0)
+ I $G(STS)=2,$P(DOC,U,7)'="unsigned" G MQ
+"RTN","VPRDJ08",177,0)
+ S LOCAL=$$GET1^DIQ(8925,DA_",",.01,"I") ;local Title 8925.1 ien
+"RTN","VPRDJ08",178,0)
+ I $L(SUBCLASS) D G:'OK MQ
+"RTN","VPRDJ08",179,0)
+ . N I,X S OK=0
+"RTN","VPRDJ08",180,0)
+ . F I=1:1:$L(SUBCLASS,"^") S X=$P(SUBCLASS,U,I) I $$ISA^TIULX(LOCAL,X) S OK=1 Q
+"RTN","VPRDJ08",181,0)
+ S Y=1
+"RTN","VPRDJ08",182,0)
+MQ Q Y
+"RTN","VPRDJ08",183,0)
+ ;
+"RTN","VPRDJ08",184,0)
+TYPE(X) ; -- Return name of category type X
+"RTN","VPRDJ08",185,0)
+ S X=$G(X)
+"RTN","VPRDJ08",186,0)
+ I X="PN" Q "Progress Note"
+"RTN","VPRDJ08",187,0)
+ I X="DS" Q "Discharge Summary"
+"RTN","VPRDJ08",188,0)
+ I X="CP" Q "Clinical Procedure"
+"RTN","VPRDJ08",189,0)
+ I X="SR" Q "Surgery Report"
+"RTN","VPRDJ08",190,0)
+ I X="LR" Q "Laboratory Report"
+"RTN","VPRDJ08",191,0)
+ I X="RA" Q "Radiology Report"
+"RTN","VPRDJ08",192,0)
+ I X="CR" Q "Consult Report"
+"RTN","VPRDJ08",193,0)
+ I X="C" Q "Crisis Note"
+"RTN","VPRDJ08",194,0)
+ I X="W" Q "Clinical Warning"
+"RTN","VPRDJ08",195,0)
+ I X="A" Q "Allergy/Adverse Reaction"
+"RTN","VPRDJ08",196,0)
+ I X="D" Q "Advance Directive"
+"RTN","VPRDJ08",197,0)
+ Q ""
+"RTN","VPRDJ08A")
+0^25^B39219672^n/a
+"RTN","VPRDJ08A",1,0)
+VPRDJ08A ;SLC/MKB -- Documents cont ;6/25/12 16:11
+"RTN","VPRDJ08A",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ08A",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ08A",4,0)
+ ;
+"RTN","VPRDJ08A",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ08A",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ08A",7,0)
+ ; ^DPT 10035
+"RTN","VPRDJ08A",8,0)
+ ; ^LR 525
+"RTN","VPRDJ08A",9,0)
+ ; ^RADPT 2480
+"RTN","VPRDJ08A",10,0)
+ ; ^RARPT 5605
+"RTN","VPRDJ08A",11,0)
+ ; ^SC 10040
+"RTN","VPRDJ08A",12,0)
+ ; ^TMP("MDHSP" [MDPS1] 4230
+"RTN","VPRDJ08A",13,0)
+ ; ^VA(200 10060
+"RTN","VPRDJ08A",14,0)
+ ; %DT 10003
+"RTN","VPRDJ08A",15,0)
+ ; DIQ 2056
+"RTN","VPRDJ08A",16,0)
+ ; GMRCGUIB 2980
+"RTN","VPRDJ08A",17,0)
+ ; LR7OR1,^TMP("LRRR" 2503
+"RTN","VPRDJ08A",18,0)
+ ; MCARUTL3 3280
+"RTN","VPRDJ08A",19,0)
+ ; PXAPI 1894
+"RTN","VPRDJ08A",20,0)
+ ; RAO7PC1 2043,2265
+"RTN","VPRDJ08A",21,0)
+ ; RAO7PC3 2877
+"RTN","VPRDJ08A",22,0)
+ ;
+"RTN","VPRDJ08A",23,0)
+ ; All tags expect DFN, ID, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ08A",24,0)
+ ;
+"RTN","VPRDJ08A",25,0)
+ ; ------------------------------------------------------------------
+"RTN","VPRDJ08A",26,0)
+ ; documentClass = CLINICAL PROCEDURES
+"RTN","VPRDJ08A",27,0)
+ ; nationalTitle = 4696566^PROCEDURE REPORT
+"RTN","VPRDJ08A",28,0)
+ ; Service = 4696471^PROCEDURE
+"RTN","VPRDJ08A",29,0)
+ ; Type = 4696123^REPORT
+"RTN","VPRDJ08A",30,0)
+ ;
+"RTN","VPRDJ08A",31,0)
+CP(DFN,BEG,END,MAX) ; -- Medicine reports
+"RTN","VPRDJ08A",32,0)
+ N VPRN,VPRX,RTN,TIUN,CONS,VPRD,I,DA,X,Y,%DT,DATE,GBL
+"RTN","VPRDJ08A",33,0)
+ S DFN=+$G(DFN) Q:$G(DFN)<1
+"RTN","VPRDJ08A",34,0)
+ D MDPS1^VPRDJ03(DFN,BEG,END,MAX) ;gets ^TMP("MDHSP",$J)
+"RTN","VPRDJ08A",35,0)
+ S VPRN=0 F S VPRN=$O(^TMP("MDHSP",$J,VPRN)) Q:VPRN<1 S VPRX=$G(^(VPRN)) D
+"RTN","VPRDJ08A",36,0)
+ . S RTN=$P(VPRX,U,3,4) ;Q:RTN="PRPRO^MDPS4" ;skip non-CP items
+"RTN","VPRDJ08A",37,0)
+ . S TIUN=+$P(VPRX,U,14)
+"RTN","VPRDJ08A",38,0)
+ . I TIUN D EN1^VPRDJ08(TIUN,38) ;38=TIU Clinical Document
+"RTN","VPRDJ08A",39,0)
+ . S CONS=+$P(VPRX,U,13) D:CONS DOCLIST^GMRCGUIB(.VPRD,CONS)
+"RTN","VPRDJ08A",40,0)
+ . K DA S I=0 F S I=$O(VPRD(50,I)) Q:I<1 D
+"RTN","VPRDJ08A",41,0)
+ .. S DA=+VPRD(50,I) Q:DA=TIUN
+"RTN","VPRDJ08A",42,0)
+ .. D EN1^VPRDJ08(DA,38)
+"RTN","VPRDJ08A",43,0)
+ . Q:TIUN!$G(DA) ;done [got TIU note(s)]
+"RTN","VPRDJ08A",44,0)
+ . Q:RTN="PR702^MDPS1" ;CP, but no TIU note yet
+"RTN","VPRDJ08A",45,0)
+ . Q:RTN="PRPRO^MDPS4" ;non-CP procedure
+"RTN","VPRDJ08A",46,0)
+ . ; find ID for pre-TIU report
+"RTN","VPRDJ08A",47,0)
+ . S X=$P(VPRX,U,6),%DT="TXS" D ^%DT Q:Y'>0 S DATE=Y
+"RTN","VPRDJ08A",48,0)
+ . S GBL=+$P(VPRX,U,2)_";"_$$ROOT^VPRDMC(DFN,$P(VPRX,U,11),DATE)
+"RTN","VPRDJ08A",49,0)
+ . I GBL S X=$$CP1(DFN,GBL) D EN1^VPRDJ08(X,"CP")
+"RTN","VPRDJ08A",50,0)
+ K ^TMP("MDHSP",$J),^TMP("VPRTEXT",$J)
+"RTN","VPRDJ08A",51,0)
+ Q
+"RTN","VPRDJ08A",52,0)
+ ;
+"RTN","VPRDJ08A",53,0)
+CP1(DFN,ID) ; -- return report data as TIU string [$$RESOLVE]
+"RTN","VPRDJ08A",54,0)
+ S DFN=+$G(DFN),ID=$G(ID) I DFN<1!'$L(ID) Q ""
+"RTN","VPRDJ08A",55,0)
+ N Y,VPRY,VPRFN,X,NAME,DATE,STS,USER,SIGN,TEXT
+"RTN","VPRDJ08A",56,0)
+ S VPRFN=+$P(ID,"(",2)
+"RTN","VPRDJ08A",57,0)
+ D MEDLKUP^MCARUTL3(.VPRY,VPRFN,+ID)
+"RTN","VPRDJ08A",58,0)
+ I VPRY<1 Q "" ;error in CP
+"RTN","VPRDJ08A",59,0)
+ S NAME=$P(VPRY,U,9),DATE=$P(VPRY,U,6)
+"RTN","VPRDJ08A",60,0)
+ S X=$$GET1^DIQ(VPRFN,+ID_",",1506)
+"RTN","VPRDJ08A",61,0)
+ S STS=$S($L(X):X,1:"COMPLETED")
+"RTN","VPRDJ08A",62,0)
+ S X=+$$GET1^DIQ(VPRFN,+ID_",",701,"I"),(USER,SIGN)=""
+"RTN","VPRDJ08A",63,0)
+ S:X USER=X_";;"_$P($G(^VA(200,X,0)),U)
+"RTN","VPRDJ08A",64,0)
+ S X=+$$GET1^DIQ(VPRFN,+ID_",",1503,"I")
+"RTN","VPRDJ08A",65,0)
+ S:X SIGN="//"_X_";"_$P($G(^VA(200,X,0)),U)_";"_$$GET1^DIQ(VPRFN,+ID_",",1505,"I")
+"RTN","VPRDJ08A",66,0)
+ ; VST=$$GET1^DIQ(VPRFN,+ID_",",900,"I")
+"RTN","VPRDJ08A",67,0)
+ S Y=ID_U_NAME_U_DATE_U_U_USER_U_U_STS_"^^^2461^"_SIGN
+"RTN","VPRDJ08A",68,0)
+ S:$G(VPRTEXT) TEXT=$$TEXT^VPRDMC(DFN,ID,NAME) ;^TMP("VPRTEXT",$J,ID)
+"RTN","VPRDJ08A",69,0)
+ Q Y
+"RTN","VPRDJ08A",70,0)
+ ;
+"RTN","VPRDJ08A",71,0)
+ ; ------------------------------------------------------------------
+"RTN","VPRDJ08A",72,0)
+ ; documentClass = LR LABORATORY REPORTS
+"RTN","VPRDJ08A",73,0)
+ ; nationalTitle = 4697105^LABORATORY NOTE
+"RTN","VPRDJ08A",74,0)
+ ; Subject = 4697104^LABORATORY
+"RTN","VPRDJ08A",75,0)
+ ; Type = 4696120^NOTE
+"RTN","VPRDJ08A",76,0)
+ ;
+"RTN","VPRDJ08A",77,0)
+LR(DFN,BEG,END,MAX) ; -- Lab reports
+"RTN","VPRDJ08A",78,0)
+ N VPRSUB,VPRIDT,VPRITM,VPRTIU,VPRXID,LRDFN,IVDT,VPRN,DA
+"RTN","VPRDJ08A",79,0)
+ S DFN=+$G(DFN) Q:$G(DFN)<1
+"RTN","VPRDJ08A",80,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999)
+"RTN","VPRDJ08A",81,0)
+ S LRDFN=+$G(^DPT(DFN,"LR")),IVDT=9999999-+$G(^LR(LRDFN,"AU")) ;LR7OB63D error
+"RTN","VPRDJ08A",82,0)
+ K ^TMP("LRRR",$J,DFN) D RR^LR7OR1(DFN,,BEG,END,"AP",,,MAX)
+"RTN","VPRDJ08A",83,0)
+ S VPRSUB="" F S VPRSUB=$O(^TMP("LRRR",$J,DFN,VPRSUB)) Q:VPRSUB="" D
+"RTN","VPRDJ08A",84,0)
+ . S VPRIDT=0 F S VPRIDT=$O(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT)) Q:VPRIDT<1 I $O(^(VPRIDT,0)) D
+"RTN","VPRDJ08A",85,0)
+ .. S VPRTIU=$S(VPRSUB="AU":$NA(^LR(LRDFN,101)),1:$NA(^LR(LRDFN,VPRSUB,VPRIDT,.05)))
+"RTN","VPRDJ08A",86,0)
+ .. K VPRITM S VPRXID=VPRSUB_";"_VPRIDT
+"RTN","VPRDJ08A",87,0)
+ .. I '$O(@VPRTIU@(0)) S VPRX=$$LR1(DFN,VPRXID) D EN1^VPRDJ08(VPRX,"LR") Q
+"RTN","VPRDJ08A",88,0)
+ .. S VPRN=0 F S VPRN=$O(@VPRTIU@(VPRN)) Q:VPRN<1 D ;38=TIU Clin Doc
+"RTN","VPRDJ08A",89,0)
+ ... S DA=+$P($G(@VPRTIU@(VPRN,0)),U,2)
+"RTN","VPRDJ08A",90,0)
+ ... D:DA EN1^VPRDJ08(DA,38)
+"RTN","VPRDJ08A",91,0)
+ K ^TMP("LRRR",$J,DFN),^TMP("VPRTEXT",$J)
+"RTN","VPRDJ08A",92,0)
+ Q
+"RTN","VPRDJ08A",93,0)
+ ;
+"RTN","VPRDJ08A",94,0)
+LR1(DFN,ID) ; -- return report data as TIU string [$$RESOLVE]
+"RTN","VPRDJ08A",95,0)
+ S DFN=+$G(DFN),ID=$G(ID) I DFN<1!'$L(ID) Q ""
+"RTN","VPRDJ08A",96,0)
+ N Y,SUB,IDT,LRDFN,LR0,NAME,LOC,USER,VST,SIGN,TEXT
+"RTN","VPRDJ08A",97,0)
+ K ^TMP("VPRTEXT",$J,ID)
+"RTN","VPRDJ08A",98,0)
+ S SUB=$P(ID,";"),IDT=+$P(ID,";",2),LRDFN=$G(^DPT(DFN,"LR"))
+"RTN","VPRDJ08A",99,0)
+ S LR0=$S(SUB="AU":$G(^LR(LRDFN,"AU")),1:$G(^LR(LRDFN,SUB,IDT,0)))
+"RTN","VPRDJ08A",100,0)
+ S NAME="LR "_$$NAME^VPRDLRA(SUB)_" REPORT"
+"RTN","VPRDJ08A",101,0)
+ S LOC=$P(LR0,U,$S(SUB="AU":5,1:8)) D ;look-up visit
+"RTN","VPRDJ08A",102,0)
+ . N CDT,SC S CDT=9999999-IDT,SC="",X=0
+"RTN","VPRDJ08A",103,0)
+ . S:$L(LOC) SC=+$O(^SC("B",LOC,0))
+"RTN","VPRDJ08A",104,0)
+ . I CDT,LOC S X=$$GETENC^PXAPI(DFN,CDT,SC)
+"RTN","VPRDJ08A",105,0)
+ . S:X VST=+X
+"RTN","VPRDJ08A",106,0)
+ S X=+$P(LR0,U,$S(SUB="AU":10,1:2)) ;pathologist[author]
+"RTN","VPRDJ08A",107,0)
+ S USER=$S(X:X_";;"_$P($G(^VA(200,X,0)),U),1:""),SIGN=""
+"RTN","VPRDJ08A",108,0)
+ S X=$S(SUB="AU":$P(LR0,U,15,16),1:$P(LR0,U,11)_U_$P(LR0,U,13)) ;released
+"RTN","VPRDJ08A",109,0)
+ S:X SIGN="//"_+$P(X,U,2)_";"_$P($G(^VA(200,+$P(X,U,2),0)),U)_";"_+X
+"RTN","VPRDJ08A",110,0)
+ S Y=ID_U_NAME_U_(9999999-IDT)_U_U_USER_U_LOC_"^COMPLETED^"_$G(VST)_"^^2753^"_SIGN
+"RTN","VPRDJ08A",111,0)
+ S:$G(VPRTEXT) TEXT=$$TEXT^VPRDLRA(DFN,SUB,IDT) ;^TMP("VPRTEXT",$J,ID)
+"RTN","VPRDJ08A",112,0)
+ Q Y
+"RTN","VPRDJ08A",113,0)
+ ;
+"RTN","VPRDJ08A",114,0)
+ ; ------------------------------------------------------------------
+"RTN","VPRDJ08A",115,0)
+ ; nationalTitle = 4695068^RADIOLOGY REPORT
+"RTN","VPRDJ08A",116,0)
+ ; Subject = 4693357^RADIOLOGY
+"RTN","VPRDJ08A",117,0)
+ ; Type = 4696123^REPORT
+"RTN","VPRDJ08A",118,0)
+ ;
+"RTN","VPRDJ08A",119,0)
+RA(DFN,BEG,END,MAX) ; -- Radiology reports
+"RTN","VPRDJ08A",120,0)
+ N VPRXID,STS,PSET
+"RTN","VPRDJ08A",121,0)
+ S DFN=+$G(DFN) Q:DFN<1
+"RTN","VPRDJ08A",122,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999)_"P"
+"RTN","VPRDJ08A",123,0)
+ K ^TMP($J,"RAE1") D EN1^RAO7PC1(DFN,BEG,END,MAX)
+"RTN","VPRDJ08A",124,0)
+ S VPRXID="" F S VPRXID=$O(^TMP($J,"RAE1",DFN,VPRXID)) Q:VPRXID="" D
+"RTN","VPRDJ08A",125,0)
+ . S STS=$P($G(^TMP($J,"RAE1",DFN,VPRXID)),U,3),PSET=$G(^(VPRXID,"CPRS"))
+"RTN","VPRDJ08A",126,0)
+ . Q:STS="No Report"!(STS="Deleted") ;!(STS["Draft")
+"RTN","VPRDJ08A",127,0)
+ . I +PSET=2,$G(PSET(+VPRXID,$P(PSET,U,2))) Q ;already have report
+"RTN","VPRDJ08A",128,0)
+ . S VPRX=$$RA1(DFN,VPRXID) D EN1^VPRDJ08(VPRX,"RA")
+"RTN","VPRDJ08A",129,0)
+ . I +PSET=2 S PSET(+VPRXID,$P(PSET,U,2))=$P(VPRXID,"-",2) ;parent
+"RTN","VPRDJ08A",130,0)
+ K ^TMP($J,"RAE1"),^TMP("VPRTEXT",$J)
+"RTN","VPRDJ08A",131,0)
+ Q
+"RTN","VPRDJ08A",132,0)
+ ;
+"RTN","VPRDJ08A",133,0)
+RA1(DFN,ID) ; -- return report data as TIU string [$$RESOLVE]
+"RTN","VPRDJ08A",134,0)
+ S DFN=+$G(DFN),ID=$G(ID) I DFN<1!'$L(ID) Q ""
+"RTN","VPRDJ08A",135,0)
+ N EXAM,CASE,PROC,RAE3,RAE1,TEXT,I,X,Y,DATE,LOC,STS,IENS,VST,USER,SIGN
+"RTN","VPRDJ08A",136,0)
+ K RPT,^TMP("VPRTEXT",$J,ID)
+"RTN","VPRDJ08A",137,0)
+ S EXAM=DFN_U_$TR(ID,"-","^") D
+"RTN","VPRDJ08A",138,0)
+ . N DFN D EN3^RAO7PC3(EXAM) ;report
+"RTN","VPRDJ08A",139,0)
+ . D EN3^RAO7PC1(EXAM) ;add'l values
+"RTN","VPRDJ08A",140,0)
+ S CASE=$O(^TMP($J,"RAE3",DFN,0)),PROC=$O(^(CASE,"")),RAE3=$G(^(PROC))
+"RTN","VPRDJ08A",141,0)
+ S RAE1=$G(^TMP($J,"RAE1",DFN,ID))
+"RTN","VPRDJ08A",142,0)
+ I $G(VPRTEXT) D
+"RTN","VPRDJ08A",143,0)
+ . S TEXT=$NA(^TMP("VPRTEXT",$J,ID))
+"RTN","VPRDJ08A",144,0)
+ . S I=0 F S I=$O(^TMP($J,"RAE3",DFN,CASE,PROC,I)) Q:I<1 S X=^(I), at TEXT@(I)=X
+"RTN","VPRDJ08A",145,0)
+ S DATE=9999999.9999-(+ID),LOC=$P(RAE1,U,7),STS=$P(RAE3,U)
+"RTN","VPRDJ08A",146,0)
+ S IENS=$P(ID,"-",2)_","_+ID_","_DFN_","
+"RTN","VPRDJ08A",147,0)
+ S VST=$$GET1^DIQ(70.03,IENS,27,"I")
+"RTN","VPRDJ08A",148,0)
+ S X=+$G(^TMP($J,"RAE2",DFN,CASE,PROC,"P")),(USER,SIGN)=""
+"RTN","VPRDJ08A",149,0)
+ S:X USER=X_";;"_$P($G(^VA(200,X,0)),U)
+"RTN","VPRDJ08A",150,0)
+ S X=$G(^TMP($J,"RAE2",DFN,CASE,PROC,"V"))
+"RTN","VPRDJ08A",151,0)
+ S:X SIGN="//"_+X_";"_$P($G(^VA(200,+X,0)),U)_";"_$$GET1^DIQ(74,+$P(RAE1,U,5)_",",7,"I")
+"RTN","VPRDJ08A",152,0)
+ I $D(^TMP($J,"RAE3",DFN,"PRINT_SET")) S PROC=$G(^("ORD")) ;use parent, if printset
+"RTN","VPRDJ08A",153,0)
+ S Y=ID_U_PROC_U_DATE_U_U_USER_U_LOC_U_STS_U_VST_"^^1901^"_SIGN
+"RTN","VPRDJ08A",154,0)
+ K ^TMP($J,"RAE3",DFN),^TMP($J,"RAE2",DFN)
+"RTN","VPRDJ08A",155,0)
+ Q Y
+"RTN","VPRDJ09")
+0^12^B37647658^n/a
+"RTN","VPRDJ09",1,0)
+VPRDJ09 ;SLC/MKB -- PCE ;8/2/11 15:29
+"RTN","VPRDJ09",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJ09",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJ09",4,0)
+ ;
+"RTN","VPRDJ09",5,0)
+ ; External References DBIA#
+"RTN","VPRDJ09",6,0)
+ ; ------------------- -----
+"RTN","VPRDJ09",7,0)
+ ; ^AUPNVSIT 2028
+"RTN","VPRDJ09",8,0)
+ ; ^PXRMINDX 4290
+"RTN","VPRDJ09",9,0)
+ ; ^SC 10040
+"RTN","VPRDJ09",10,0)
+ ; ^VA(200 10060
+"RTN","VPRDJ09",11,0)
+ ; DIC 2051
+"RTN","VPRDJ09",12,0)
+ ; DILFD 2055
+"RTN","VPRDJ09",13,0)
+ ; DIQ 2056
+"RTN","VPRDJ09",14,0)
+ ; PXAPI,^TMP("PXKENC" 1894
+"RTN","VPRDJ09",15,0)
+ ; VALM1 10116
+"RTN","VPRDJ09",16,0)
+ ; XUAF4 2171
+"RTN","VPRDJ09",17,0)
+ ;
+"RTN","VPRDJ09",18,0)
+ ; All tags expect DFN, ID, [VPRSTART, VPRSTOP, VPRMAX, VPRTEXT]
+"RTN","VPRDJ09",19,0)
+ ;
+"RTN","VPRDJ09",20,0)
+PX(FNUM) ; -- PCE item(s)
+"RTN","VPRDJ09",21,0)
+ I $G(VPRID) D PXA(VPRID) Q
+"RTN","VPRDJ09",22,0)
+ N VPRIDT,ID D SORT ;sort ^PXRMINDX into ^TMP("VPRPX",$J,IDT)
+"RTN","VPRDJ09",23,0)
+ S VPRIDT=0 F S VPRIDT=$O(^TMP("VPRPX",$J,VPRIDT)) Q:VPRIDT<1 D Q:VPRI'<VPRMAX
+"RTN","VPRDJ09",24,0)
+ . S ID=0 F S ID=$O(^TMP("VPRPX",$J,VPRIDT,ID)) Q:ID<1 D PX1 Q:VPRI'<VPRMAX
+"RTN","VPRDJ09",25,0)
+ K ^TMP("VPRPX",$J)
+"RTN","VPRDJ09",26,0)
+ Q
+"RTN","VPRDJ09",27,0)
+ ;
+"RTN","VPRDJ09",28,0)
+PXA(ID) ; -- find ID in ^PXRMINDX(FNUM), fall thru to PX1 if successful
+"RTN","VPRDJ09",29,0)
+ N N,ROOT,IDX,P,ITEM,DATE,VPRIDT
+"RTN","VPRDJ09",30,0)
+ S N=+$P(FNUM,".",2) K ^TMP("VPRPX",$J)
+"RTN","VPRDJ09",31,0)
+ I N=7!(N=18) S ROOT="^PXRMINDX("_FNUM_",""PPI"","_+$G(DFN)
+"RTN","VPRDJ09",32,0)
+ E S ROOT="^PXRMINDX("_FNUM_",""PI"","_+$G(DFN)
+"RTN","VPRDJ09",33,0)
+ S IDX=ROOT_")" F S IDX=$Q(@IDX) Q:$P(IDX,",",1,3)'=ROOT D
+"RTN","VPRDJ09",34,0)
+ . S P=$L(IDX,",") Q:ID'=+$P(IDX,",",P) ;last subscript
+"RTN","VPRDJ09",35,0)
+ . S DATE=+$P(IDX,",",P-1),ITEM=+$P(IDX,",",P-2)
+"RTN","VPRDJ09",36,0)
+ . S VPRIDT=9999999-DATE,^TMP("VPRPX",$J,VPRIDT,ID)=ITEM_U_DATE
+"RTN","VPRDJ09",37,0)
+ Q:'$D(^TMP("VPRPX",$J)) ;not found
+"RTN","VPRDJ09",38,0)
+PX1 ; -- PCE ^TMP("VPRPX",$J,VPRIDT,ID)=ITM^DATE for FNUM
+"RTN","VPRDJ09",39,0)
+ N N,COLL,TAG,VPRF,FLD,TMP,VISIT,X0,X12,FAC,LOC,X,Y,PCE
+"RTN","VPRDJ09",40,0)
+ S N=+$P(FNUM,".",2),TAG=$S(N=7:"VPOV",N=11:"VIMM",N=12:"VSKIN",N=13:"VXAM",N=16:"VPEDU",N=18:"VCPT",1:"VHF")
+"RTN","VPRDJ09",41,0)
+ D @(TAG_"^PXPXRM(ID,.VPRF)")
+"RTN","VPRDJ09",42,0)
+ ;
+"RTN","VPRDJ09",43,0)
+ S PCE("localId")=ID,TMP=$G(^TMP("VPRPX",$J,VPRIDT,ID))
+"RTN","VPRDJ09",44,0)
+ S COLL=$S(N=7:"pov",N=11:"immunization",N=12:"skin",N=13:"exam",N=16:"education",N=18:"cpt",1:"factor")
+"RTN","VPRDJ09",45,0)
+ S PCE("uid")=$$SETUID^VPRUTILS(COLL,DFN,ID)
+"RTN","VPRDJ09",46,0)
+ ; TAG=$S(N=23:"recorded",N=11:"administeredDateTime",1:"dateTimeEntered")
+"RTN","VPRDJ09",47,0)
+ S TAG=$S(N=11:"administeredDateTime",1:"entered")
+"RTN","VPRDJ09",48,0)
+ S PCE(TAG)=$$JSONDT^VPRUTILS($P(TMP,U,2))
+"RTN","VPRDJ09",49,0)
+ S PCE("name")=$$EXTERNAL^DILFD(FNUM,.01,,+TMP)
+"RTN","VPRDJ09",50,0)
+ S VISIT=+$G(VPRF("VISIT")),PCE("encounterUid")=$$SETUID^VPRUTILS("visit",DFN,VISIT)
+"RTN","VPRDJ09",51,0)
+ S PCE("encounterName")=$$NAME^VPRDJ04(VISIT)
+"RTN","VPRDJ09",52,0)
+ S X0=$G(^AUPNVSIT(+VISIT,0)),FAC=+$P(X0,U,6),LOC=+$P(X0,U,22)
+"RTN","VPRDJ09",53,0)
+ S:FAC X=$$STA^XUAF4(FAC)_U_$P($$NS^XUAF4(FAC),U)
+"RTN","VPRDJ09",54,0)
+ S:'FAC X=$$FAC^VPRD(LOC)
+"RTN","VPRDJ09",55,0)
+ D FACILITY^VPRUTILS(X,"PCE")
+"RTN","VPRDJ09",56,0)
+ S:LOC PCE("locationUid")=$$SETUID^VPRUTILS("location",,LOC),PCE("locationName")=$P($G(^SC(LOC,0)),U)
+"RTN","VPRDJ09",57,0)
+ S X=$G(VPRF("COMMENTS")) S:$L(X) PCE("comment")=X
+"RTN","VPRDJ09",58,0)
+POV I FNUM=9000010.07 D G PXQ
+"RTN","VPRDJ09",59,0)
+ . S X=$G(VPRF("PRIMARY/SECONDARY")),PCE("type")=$S($L(X):X,1:"U")
+"RTN","VPRDJ09",60,0)
+ . S X=PCE("name"),PCE("icdCode")=$$SETNCS^VPRUTILS("icd",X)
+"RTN","VPRDJ09",61,0)
+ . S X=$G(VPRF("PROVIDER NARRATIVE")),PCE("name")=$$EXTERNAL^DILFD(9000010.07,.04,,X)
+"RTN","VPRDJ09",62,0)
+CPT I FNUM=9000010.18 D G PXQ
+"RTN","VPRDJ09",63,0)
+ . S X=$G(VPRF("PRINCIPAL PROCEDURE")),PCE("type")=$S($L(X):X,1:"U")
+"RTN","VPRDJ09",64,0)
+ . S X=PCE("name"),PCE("cptCode")=$$SETNCS^VPRUTILS("cpt",X)
+"RTN","VPRDJ09",65,0)
+ . S X=$G(VPRF("PROVIDER NARRATIVE")),PCE("name")=$$EXTERNAL^DILFD(9000010.18,.04,,X)
+"RTN","VPRDJ09",66,0)
+ . S PCE("quantity")=VPRF("QUANTITY")
+"RTN","VPRDJ09",67,0)
+ S X=$G(VPRF("VALUE")),FLD=$S(FNUM=9000010.16:.06,1:.04)
+"RTN","VPRDJ09",68,0)
+ S Y=$$EXTERNAL^DILFD(FNUM,FLD,,X)
+"RTN","VPRDJ09",69,0)
+IM I FNUM=9000010.11 D G PXQ ;immunization
+"RTN","VPRDJ09",70,0)
+ . S:$L(Y) PCE("seriesName")=Y,PCE("seriesCode")=$$SETUID^VPRUTILS("series",DFN,Y)
+"RTN","VPRDJ09",71,0)
+ . S X=$G(VPRF("REACTION")) I $L(X) D
+"RTN","VPRDJ09",72,0)
+ .. S PCE("reactionName")=$$EXTERNAL^DILFD(9000010.11,.06,,X)
+"RTN","VPRDJ09",73,0)
+ .. S PCE("reactionCode")=$$SETUID^VPRUTILS("reaction",DFN,X)
+"RTN","VPRDJ09",74,0)
+ . S PCE("contraindicated")=$S(+$G(VPRF("CONTRAINDICATED")):"true",1:"false")
+"RTN","VPRDJ09",75,0)
+ . I '$D(^TMP("PXKENC",$J,VISIT)) D ENCEVENT^PXAPI(VISIT,1)
+"RTN","VPRDJ09",76,0)
+ . S X12=$G(^TMP("PXKENC",$J,VISIT,"IMM",ID,12))
+"RTN","VPRDJ09",77,0)
+ . S X=$P(X12,U,4) S:'X X=$P(X12,U,2)
+"RTN","VPRDJ09",78,0)
+ . I 'X S I=0 F S I=$O(^TMP("PXKENC",$J,VISIT,"PRV",I)) Q:I<1 I $P($G(^(I,0)),U,4)="P" S X=+^(0) Q
+"RTN","VPRDJ09",79,0)
+ . S:X PCE("performerUid")=$$SETUID^VPRUTILS("user",,+X),PCE("performerName")=$P($G(^VA(200,X,0)),U)
+"RTN","VPRDJ09",80,0)
+ . ; CPT mapping
+"RTN","VPRDJ09",81,0)
+ . S X=+$$FIND1^DIC(811.1,,"QX",+TMP_";AUTTIMM(","B") I X>0 D
+"RTN","VPRDJ09",82,0)
+ .. S Y=$$GET1^DIQ(811.1,X_",",.02,"I") Q:Y<1
+"RTN","VPRDJ09",83,0)
+ .. N CPT S CPT=$G(@(U_$P(Y,";",2)_+Y_",0)"))
+"RTN","VPRDJ09",84,0)
+ .. S PCE("cptCode")=$$SETNCS^VPRUTILS("cpt",+CPT)
+"RTN","VPRDJ09",85,0)
+ .. S (PCE("summary"),PCE("cptName"))=$P(CPT,U,2)
+"RTN","VPRDJ09",86,0)
+HF I FNUM=9000010.23 D G PXQ ;health factor
+"RTN","VPRDJ09",87,0)
+ . S:$L(X) PCE("severityUid")=$$SETVURN^VPRUTILS("factor-severity",X),PCE("severityName")=$$LOWER^VALM1(Y)
+"RTN","VPRDJ09",88,0)
+ . S X=$$GET1^DIQ(9999999.64,+TMP_",",.03,"I") I X D
+"RTN","VPRDJ09",89,0)
+ .. S PCE("categoryUid")=$$SETVURN^VPRUTILS("factor-category",X)
+"RTN","VPRDJ09",90,0)
+ .. S PCE("categoryName")=$$EXTERNAL^DILFD(9999999.64,.03,"",X)
+"RTN","VPRDJ09",91,0)
+ . S X=$$GET1^DIQ(9999999.64,+TMP_",",.08)
+"RTN","VPRDJ09",92,0)
+ . I $E(X)="Y" S PCE("display")="true"
+"RTN","VPRDJ09",93,0)
+ . S PCE("kind")="Health Factor",PCE("summary")=PCE("name")
+"RTN","VPRDJ09",94,0)
+SK I FNUM=9000010.12 D ;skin test [fall thru to set result]
+"RTN","VPRDJ09",95,0)
+ . S X=$G(VPRF("READING")) S:$L(X) PCE("reading")=X
+"RTN","VPRDJ09",96,0)
+ . S X=$G(VPRF("DATE READ")) S:X PCE("dateRead")=$$JSONDT^VPRUTILS(X)
+"RTN","VPRDJ09",97,0)
+ S:$L(Y) PCE("result")=Y
+"RTN","VPRDJ09",98,0)
+PXQ ;finish
+"RTN","VPRDJ09",99,0)
+ D ADD^VPRDJ("PCE",COLL)
+"RTN","VPRDJ09",100,0)
+ Q
+"RTN","VPRDJ09",101,0)
+ ;
+"RTN","VPRDJ09",102,0)
+SORT ; -- build ^TMP("VPRPX",$J,9999999-DATE,DA)=ITEM^DATE in range
+"RTN","VPRDJ09",103,0)
+ N TYPE,ITEM,DATE,DA,IDT K ^TMP("VPRPX",$J)
+"RTN","VPRDJ09",104,0)
+ I FNUM=9000010.07!(FNUM=9000010.18) G PPI
+"RTN","VPRDJ09",105,0)
+PI ; from ^PXRMINDX(FNUM,"PI",DFN,ITEM,DATE,DA)
+"RTN","VPRDJ09",106,0)
+ S ITEM=0 F S ITEM=$O(^PXRMINDX(FNUM,"PI",+$G(DFN),ITEM)) Q:ITEM<1 D
+"RTN","VPRDJ09",107,0)
+ . S DATE=0 F S DATE=$O(^PXRMINDX(FNUM,"PI",+$G(DFN),ITEM,DATE)) Q:DATE<1 D
+"RTN","VPRDJ09",108,0)
+ .. Q:DATE<VPRSTART Q:DATE>VPRSTOP S IDT=9999999-DATE
+"RTN","VPRDJ09",109,0)
+ .. S DA=0 F S DA=$O(^PXRMINDX(FNUM,"PI",+$G(DFN),ITEM,DATE,DA)) Q:DA<1 S ^TMP("VPRPX",$J,IDT,DA)=ITEM_U_DATE
+"RTN","VPRDJ09",110,0)
+ Q
+"RTN","VPRDJ09",111,0)
+PPI ; from ^PXRMINDX(FNUM,"PPI",DFN,TYPE,ITEM,DATE,DA)
+"RTN","VPRDJ09",112,0)
+ S TYPE="" F S TYPE=$O(^PXRMINDX(FNUM,"PPI",+$G(DFN),TYPE)) Q:TYPE="" D
+"RTN","VPRDJ09",113,0)
+ . S ITEM=0 F S ITEM=$O(^PXRMINDX(FNUM,"PPI",+$G(DFN),TYPE,ITEM)) Q:ITEM<1 D
+"RTN","VPRDJ09",114,0)
+ .. S DATE=0 F S DATE=$O(^PXRMINDX(FNUM,"PPI",+$G(DFN),TYPE,ITEM,DATE)) Q:DATE<1 D
+"RTN","VPRDJ09",115,0)
+ ... Q:DATE<VPRSTART Q:DATE>VPRSTOP S IDT=9999999-DATE
+"RTN","VPRDJ09",116,0)
+ ... S DA=0 F S DA=$O(^PXRMINDX(FNUM,"PPI",+$G(DFN),TYPE,ITEM,DATE,DA)) Q:DA<1 S ^TMP("VPRPX",$J,IDT,DA)=ITEM_U_DATE
+"RTN","VPRDJ09",117,0)
+ Q
+"RTN","VPRDJ09",118,0)
+PTF ; from ^PXRMINDX(45,"ICD9","PNI",DFN,TYPE,ITEM,DATE,DA)
+"RTN","VPRDJ09",119,0)
+ S TYPE="" F S TYPE=$O(^PXRMINDX(45,"ICD9","PNI",+$G(DFN),TYPE)) Q:TYPE="" D
+"RTN","VPRDJ09",120,0)
+ . S ITEM=0 F S ITEM=$O(^PXRMINDX(45,"ICD9","PNI",+$G(DFN),TYPE,ITEM)) Q:ITEM<1 D
+"RTN","VPRDJ09",121,0)
+ .. S DATE=0 F S DATE=$O(^PXRMINDX(45,"ICD9","PNI",+$G(DFN),TYPE,ITEM,DATE)) Q:DATE<1 D
+"RTN","VPRDJ09",122,0)
+ ... Q:DATE<VPRSTART Q:DATE>VPRSTOP S IDT=9999999-DATE
+"RTN","VPRDJ09",123,0)
+ ... S DA="" F S DA=$O(^PXRMINDX(45,"ICD9","PNI",+$G(DFN),TYPE,ITEM,DATE,DA)) Q:DA="" S ^TMP("VPRPX",$J,IDT,DA_";"_TYPE)=ITEM_U_DATE
+"RTN","VPRDJ09",124,0)
+ Q
+"RTN","VPRDJT")
+0^32^B9998610^n/a
+"RTN","VPRDJT",1,0)
+VPRDJT ;SLC/MKB -- Test VistA data JSON RPC ;10/18/12 6:26pm
+"RTN","VPRDJT",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDJT",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDJT",4,0)
+ ;
+"RTN","VPRDJT",5,0)
+ ; External References DBIA#
+"RTN","VPRDJT",6,0)
+ ; ------------------- -----
+"RTN","VPRDJT",7,0)
+ ; DIC 2051
+"RTN","VPRDJT",8,0)
+ ; DIR 10026
+"RTN","VPRDJT",9,0)
+ ;
+"RTN","VPRDJT",10,0)
+EN ; -- test GET^VPRDJ, write results to screen
+"RTN","VPRDJT",11,0)
+ N DFN,TYPE,TEXT,START,STOP,MAX,ID,IN,OUT,IDX
+"RTN","VPRDJT",12,0)
+ F S DFN=$$PATIENT Q:DFN<1 D
+"RTN","VPRDJT",13,0)
+ . F S TYPE=$$DOMAIN Q:"^"[TYPE D
+"RTN","VPRDJT",14,0)
+ .. D RPC W !!
+"RTN","VPRDJT",15,0)
+ .. K IN,TEXT,START,STOP,MAX
+"RTN","VPRDJT",16,0)
+ Q
+"RTN","VPRDJT",17,0)
+ ;
+"RTN","VPRDJT",18,0)
+RPC ; -- get search parameters, run and display
+"RTN","VPRDJT",19,0)
+ I TYPE="DOCUMENT" S TEXT=$$SHOW Q:TEXT="^"
+"RTN","VPRDJT",20,0)
+ S START=$$START Q:START="^"
+"RTN","VPRDJT",21,0)
+ I START S STOP=$$STOP(START) Q:STOP="^"
+"RTN","VPRDJT",22,0)
+ S MAX=$$TOTAL Q:MAX="^"
+"RTN","VPRDJT",23,0)
+ ; ID=$$ITEM
+"RTN","VPRDJT",24,0)
+ ;
+"RTN","VPRDJT",25,0)
+ S IN("patientId")=+$G(DFN)
+"RTN","VPRDJT",26,0)
+ S IN("domain")=$G(TYPE)
+"RTN","VPRDJT",27,0)
+ S:$L($G(TEXT)) IN("text")=TEXT
+"RTN","VPRDJT",28,0)
+ S:$G(START) IN("start")=START
+"RTN","VPRDJT",29,0)
+ S:$G(STOP) IN("stop")=STOP
+"RTN","VPRDJT",30,0)
+ S:$G(MAX) IN("max")=MAX
+"RTN","VPRDJT",31,0)
+ S:$D(ID) IN("id")=ID
+"RTN","VPRDJT",32,0)
+ D GET^VPRDJ(.OUT,.IN)
+"RTN","VPRDJT",33,0)
+ ;
+"RTN","VPRDJT",34,0)
+ S IDX=OUT W !
+"RTN","VPRDJT",35,0)
+ F S IDX=$Q(@IDX) Q:IDX'?1"^TMP(""VPR"","1.N.E Q:+$P(IDX,",",2)'=$J W !, at IDX
+"RTN","VPRDJT",36,0)
+ Q
+"RTN","VPRDJT",37,0)
+ ;
+"RTN","VPRDJT",38,0)
+PATIENT() ; -- select patient
+"RTN","VPRDJT",39,0)
+ N X,Y,DIC
+"RTN","VPRDJT",40,0)
+ S DIC=2,DIC(0)="AEQM" D ^DIC
+"RTN","VPRDJT",41,0)
+ Q Y
+"RTN","VPRDJT",42,0)
+ ;
+"RTN","VPRDJT",43,0)
+DOMAIN() ; -- select domain
+"RTN","VPRDJT",44,0)
+ N X,Y,I,DIR,VPR
+"RTN","VPRDJT",45,0)
+ S DIR(0)="SAO^",DIR("A")="Select DOMAIN: "
+"RTN","VPRDJT",46,0)
+ F I=1:1 S X=$P($T(TYPE+I),";",3) Q:X=99 S DIR(0)=DIR(0)_X_";",VPR(+X)=$P(X,":",2)
+"RTN","VPRDJT",47,0)
+ D ^DIR S:Y Y=VPR(Y)
+"RTN","VPRDJT",48,0)
+ I Y="RADIOLOGY" S Y="IMAGE"
+"RTN","VPRDJT",49,0)
+ Q Y
+"RTN","VPRDJT",50,0)
+ ;
+"RTN","VPRDJT",51,0)
+TYPE ;;CODE:NAME
+"RTN","VPRDJT",52,0)
+ ;;1:ALLERGY
+"RTN","VPRDJT",53,0)
+ ;;2:APPOINTMENT
+"RTN","VPRDJT",54,0)
+ ;;3:CONSULT
+"RTN","VPRDJT",55,0)
+ ;;4:CPT
+"RTN","VPRDJT",56,0)
+ ;;5:DOCUMENT
+"RTN","VPRDJT",57,0)
+ ;;6:EDUCATION
+"RTN","VPRDJT",58,0)
+ ;;7:EXAM
+"RTN","VPRDJT",59,0)
+ ;;8:FACTOR
+"RTN","VPRDJT",60,0)
+ ;;9:IMMUNIZATION
+"RTN","VPRDJT",61,0)
+ ;;10:LAB
+"RTN","VPRDJT",62,0)
+ ;;11:MED
+"RTN","VPRDJT",63,0)
+ ;;12:OBSERVATION
+"RTN","VPRDJT",64,0)
+ ;;13:ORDER
+"RTN","VPRDJT",65,0)
+ ;;14:PATIENT
+"RTN","VPRDJT",66,0)
+ ;;15:POV
+"RTN","VPRDJT",67,0)
+ ;;16:PROBLEM
+"RTN","VPRDJT",68,0)
+ ;;17:PROCEDURE
+"RTN","VPRDJT",69,0)
+ ;;18:RADIOLOGY
+"RTN","VPRDJT",70,0)
+ ;;19:SKIN
+"RTN","VPRDJT",71,0)
+ ;;20:SURGERY
+"RTN","VPRDJT",72,0)
+ ;;21:VISIT
+"RTN","VPRDJT",73,0)
+ ;;22:VITAL
+"RTN","VPRDJT",74,0)
+ ;;99
+"RTN","VPRDJT",75,0)
+ ;
+"RTN","VPRDJT",76,0)
+SHOW() ; -- true/false to include body of note
+"RTN","VPRDJT",77,0)
+ N X,Y,DIR,DUOUT,DTOUT
+"RTN","VPRDJT",78,0)
+ S DIR(0)="YAO",DIR("A")="Include the text of each document? "
+"RTN","VPRDJT",79,0)
+ D ^DIR S:$D(DTOUT) Y="^"
+"RTN","VPRDJT",80,0)
+ Q Y
+"RTN","VPRDJT",81,0)
+ ;
+"RTN","VPRDJT",82,0)
+START() ; -- select a start date
+"RTN","VPRDJT",83,0)
+ N X,Y,DIR,DUOUT,DTOUT
+"RTN","VPRDJT",84,0)
+ S DIR(0)="DAO^::AEPT",DIR("A")="Select START DATE: "
+"RTN","VPRDJT",85,0)
+ S DIR("?")="Enter an optional date[.time] to begin searching for data"
+"RTN","VPRDJT",86,0)
+ D ^DIR S:$D(DTOUT) Y="^"
+"RTN","VPRDJT",87,0)
+ Q Y
+"RTN","VPRDJT",88,0)
+ ;
+"RTN","VPRDJT",89,0)
+STOP(START) ; -- select a stop date
+"RTN","VPRDJT",90,0)
+ N X,Y,DIR,DUOUT,DTOUT
+"RTN","VPRDJT",91,0)
+ S DIR(0)="DA^"_START_"::AEPT",DIR("A")="Select STOP DATE: "
+"RTN","VPRDJT",92,0)
+ S DIR("?")="Enter a date[.time] after the START to end searching for data"
+"RTN","VPRDJT",93,0)
+ D ^DIR S:$D(DTOUT) Y="^"
+"RTN","VPRDJT",94,0)
+ Q Y
+"RTN","VPRDJT",95,0)
+ ;
+"RTN","VPRDJT",96,0)
+TOTAL() ; -- select the max# to return
+"RTN","VPRDJT",97,0)
+ N X,Y,DIR,DUOUT,DTOUT
+"RTN","VPRDJT",98,0)
+ S DIR(0)="NAO^1:9999",DIR("A")="Select TOTAL #items: "
+"RTN","VPRDJT",99,0)
+ S DIR("?")="Enter an optional maximum number of items to return, up to 9999"
+"RTN","VPRDJT",100,0)
+ D ^DIR S:$D(DTOUT) Y="^"
+"RTN","VPRDJT",101,0)
+ Q Y
+"RTN","VPRDLR")
+0^35^B24009801^B24712747
+"RTN","VPRDLR",1,0)
+VPRDLR ;SLC/MKB -- Laboratory extract ;8/2/11 15:29
+"RTN","VPRDLR",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDLR",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDLR",4,0)
+ ;
+"RTN","VPRDLR",5,0)
+ ; External References DBIA#
+"RTN","VPRDLR",6,0)
+ ; ------------------- -----
+"RTN","VPRDLR",7,0)
+ ; ^DPT 10035
+"RTN","VPRDLR",8,0)
+ ; ^LAB(60 10054
+"RTN","VPRDLR",9,0)
+ ; ^LAB(61 524
+"RTN","VPRDLR",10,0)
+ ; ^LRO(69 2407
+"RTN","VPRDLR",11,0)
+ ; ^LR 525
+"RTN","VPRDLR",12,0)
+ ; DIC 2051
+"RTN","VPRDLR",13,0)
+ ; DIQ 2056
+"RTN","VPRDLR",14,0)
+ ; LR7OR1,^TMP("LRRR",$J) 2503
+"RTN","VPRDLR",15,0)
+ ; LRPXAPIU 4246
+"RTN","VPRDLR",16,0)
+ ; XUAF4 2171
+"RTN","VPRDLR",17,0)
+ ;
+"RTN","VPRDLR",18,0)
+ ; ------------ Get results from VistA ------------
+"RTN","VPRDLR",19,0)
+ ;
+"RTN","VPRDLR",20,0)
+EN(DFN,BEG,END,MAX,ID) ; -- find patient's lab results
+"RTN","VPRDLR",21,0)
+ N VPRSUB,VPRIDT,VPRN,VPRP,VPRITM,LRDFN,SUB,X
+"RTN","VPRDLR",22,0)
+ S DFN=+$G(DFN) Q:$G(DFN)<1
+"RTN","VPRDLR",23,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999)
+"RTN","VPRDLR",24,0)
+ K ^TMP("LRRR",$J,DFN) S LRDFN=$G(^DPT(DFN,"LR")),VPRSUB="CH"
+"RTN","VPRDLR",25,0)
+ ;
+"RTN","VPRDLR",26,0)
+ ; get result(s)
+"RTN","VPRDLR",27,0)
+ I $L($G(ID)) D ;reset for LR7OR1
+"RTN","VPRDLR",28,0)
+ . S VPRSUB=$P(ID,";"),VPRIDT=+$P(ID,";",2)
+"RTN","VPRDLR",29,0)
+ . S:VPRIDT (BEG,END)=9999999-VPRIDT
+"RTN","VPRDLR",30,0)
+ ;
+"RTN","VPRDLR",31,0)
+ D RR^LR7OR1(DFN,,BEG,END,VPRSUB,,,MAX)
+"RTN","VPRDLR",32,0)
+ S VPRSUB="" F S VPRSUB=$O(^TMP("LRRR",$J,DFN,VPRSUB)) Q:VPRSUB="" D
+"RTN","VPRDLR",33,0)
+ . S VPRIDT=0 F S VPRIDT=$O(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT)) Q:VPRIDT<1 D
+"RTN","VPRDLR",34,0)
+ .. S VPRP=0 F S VPRP=$O(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT,VPRP)) Q:VPRP<1 S X=+$G(^(VPRP)) D
+"RTN","VPRDLR",35,0)
+ ... S VPRN=$$LRDN^LRPXAPIU(X) I $L($G(ID),";")>2,VPRN'=$P(ID,";",3) Q
+"RTN","VPRDLR",36,0)
+ ... K VPRITM S SUB=$S("CH^MI"[VPRSUB:VPRSUB,1:"AP")_"(.VPRITM)"
+"RTN","VPRDLR",37,0)
+ ... D @SUB,XML(.VPRITM)
+"RTN","VPRDLR",38,0)
+ K ^TMP("LRRR",$J,DFN)
+"RTN","VPRDLR",39,0)
+ Q
+"RTN","VPRDLR",40,0)
+ ;
+"RTN","VPRDLR",41,0)
+CH(LAB) ; -- return a Chemistry result in LAB("attribute")=value
+"RTN","VPRDLR",42,0)
+ ; Expects ^TMP("LRRR",$J,DFN,"CH",VPRIDT,VPRP),VPRN,LRDFN
+"RTN","VPRDLR",43,0)
+ N X0,CDT,LR0,LRI,X,LOINC,ORD,CMMT K LAB
+"RTN","VPRDLR",44,0)
+ S X0=$G(^TMP("LRRR",$J,DFN,"CH",VPRIDT,VPRP))
+"RTN","VPRDLR",45,0)
+ S LAB("id")="CH;"_VPRIDT_";"_VPRN,LAB("type")="CH"
+"RTN","VPRDLR",46,0)
+ S CDT=9999999-VPRIDT,LAB("collected")=CDT
+"RTN","VPRDLR",47,0)
+ S LR0=$G(^LR(LRDFN,"CH",VPRIDT,0)),LRI=$G(^(VPRN))
+"RTN","VPRDLR",48,0)
+ S LAB("status")="completed",LAB("resulted")=$P(LR0,U,3)
+"RTN","VPRDLR",49,0)
+ S LAB("test")=$P($G(^LAB(60,+X0,0)),U) ;$P(X0,U,10)?
+"RTN","VPRDLR",50,0)
+ S:$L($P(X0,U,2)) LAB("result")=$P(X0,U,2)
+"RTN","VPRDLR",51,0)
+ S:$L($P(X0,U,4)) LAB("units")=$P(X0,U,4)
+"RTN","VPRDLR",52,0)
+ S:$L($P(X0,U,3)) LAB("interpretation")=$P(X0,U,3)
+"RTN","VPRDLR",53,0)
+ S X=$P(X0,U,5) I $L(X),X["-" S LAB("low")=$P(X,"-"),LAB("high")=$P(X,"-",2)
+"RTN","VPRDLR",54,0)
+ S LAB("localName")=$S($L($P(X0,U,15)):$P(X0,U,15),1:LAB("test"))
+"RTN","VPRDLR",55,0)
+ S LAB("groupName")=$P(X0,U,16) ;accession#
+"RTN","VPRDLR",56,0)
+ S X=+$P(X0,U,19) I X D ;specimen
+"RTN","VPRDLR",57,0)
+ . N IENS,VPRY S IENS=X_","
+"RTN","VPRDLR",58,0)
+ . D GETS^DIQ(61,IENS,".01;2",,"VPRY")
+"RTN","VPRDLR",59,0)
+ . S LAB("specimen")=$G(VPRY(61,IENS,2))_U_$G(VPRY(61,IENS,.01)) ;SNOMED^name
+"RTN","VPRDLR",60,0)
+ . S LAB("sample")=$$GET1^DIQ(61,X_",",4.1) ;name
+"RTN","VPRDLR",61,0)
+ S ORD=+$P(X0,U,17) S:ORD LAB("labOrderID")=ORD
+"RTN","VPRDLR",62,0)
+ S X=$$ORDER(ORD,+X0) S:X LAB("orderID")=X
+"RTN","VPRDLR",63,0)
+ S X=$P($P(LRI,U,3),"!",3) S:X LOINC=$$GET1^DIQ(95.3,X_",",.01)
+"RTN","VPRDLR",64,0)
+ I $G(LOINC) S LAB("loinc")=LOINC,LAB("vuid")=$$VUID^VPRD(+LOINC,95.3)
+"RTN","VPRDLR",65,0)
+ S X=$P(LR0,U,14)
+"RTN","VPRDLR",66,0)
+ S:X LAB("facility")=$$STA^XUAF4(X)_U_$P($$NS^XUAF4(X),U)
+"RTN","VPRDLR",67,0)
+ I 'X S LAB("facility")=$$FAC^VPRD ;local stn#^name
+"RTN","VPRDLR",68,0)
+ I $D(^TMP("LRRR",$J,DFN,"CH",VPRIDT,"N")) M CMMT=^("N") S LAB("comment")=$$STRING^VPRD(.CMMT)
+"RTN","VPRDLR",69,0)
+ Q
+"RTN","VPRDLR",70,0)
+ ;
+"RTN","VPRDLR",71,0)
+ORDER(LABORD,TEST) ; -- return #100 order for Lab order# & Test
+"RTN","VPRDLR",72,0)
+ N Y,D,S,T S Y=""
+"RTN","VPRDLR",73,0)
+ S D=$O(^LRO(69,"C",LABORD,0)) I D D
+"RTN","VPRDLR",74,0)
+ . S S=0 F S S=$O(^LRO(69,"C",LABORD,D,S)) Q:S<1 D
+"RTN","VPRDLR",75,0)
+ .. S T=0 F S T=$O(^LRO(69,D,1,S,2,T)) Q:T<1 I +$G(^(T,0))=TEST S Y=+$P(^(0),U,7)
+"RTN","VPRDLR",76,0)
+ Q Y
+"RTN","VPRDLR",77,0)
+ ;
+"RTN","VPRDLR",78,0)
+MI(LAB) ; -- return a Microbiology result in LAB("attribute")=value
+"RTN","VPRDLR",79,0)
+ ; Expects ^TMP("LRRR",$J,DFN,"MI",VPRIDT,VPRP),LRDFN
+"RTN","VPRDLR",80,0)
+ N ID,CDT,X0,X,CMMT,LR0 K LAB
+"RTN","VPRDLR",81,0)
+ S X0=$G(^TMP("LRRR",$J,DFN,"MI",VPRIDT,VPRP)) Q:$L($P(X0,U))'>1
+"RTN","VPRDLR",82,0)
+ S LAB("id")="MI;"_VPRIDT_"#"_VPRP,LAB("status")="completed"
+"RTN","VPRDLR",83,0)
+ S LAB("type")="MI",CDT=9999999-VPRIDT,LAB("collected")=CDT
+"RTN","VPRDLR",84,0)
+ S LR0=$G(^LR(LRDFN,"MI",VPRIDT,0)),LAB("resulted")=$P(LR0,U,3)
+"RTN","VPRDLR",85,0)
+ S:$L($P(X0,U,2)) LAB("result")=$P(X0,U,2)
+"RTN","VPRDLR",86,0)
+ S:$L($P(X0,U,4)) LAB("units")=$P(X0,U,4)
+"RTN","VPRDLR",87,0)
+ S:$L($P(X0,U,3)) LAB("interpretation")=$P(X0,U,3)
+"RTN","VPRDLR",88,0)
+ S (LAB("test"),LAB("localName"))=$P(X0,U,15)
+"RTN","VPRDLR",89,0)
+ S X=+$P(X0,U,19) I X D ;specimen
+"RTN","VPRDLR",90,0)
+ . N IENS,VPRY S IENS=X_","
+"RTN","VPRDLR",91,0)
+ . D GETS^DIQ(61,IENS,".01;2",,"VPRY")
+"RTN","VPRDLR",92,0)
+ . S LAB("specimen")=$G(VPRY(61,IENS,2))_U_$G(VPRY(61,IENS,.01)) ;SNOMED^name
+"RTN","VPRDLR",93,0)
+ . S LAB("sample")=$$GET1^DIQ(61,X_",",4.1) ;name
+"RTN","VPRDLR",94,0)
+ S X=$P(LR0,U,14)
+"RTN","VPRDLR",95,0)
+ S:X LAB("facility")=$$STA^XUAF4(X)_U_$P($$NS^XUAF4(X),U)
+"RTN","VPRDLR",96,0)
+ I 'X S LAB("facility")=$$FAC^VPRD ;local stn#^name
+"RTN","VPRDLR",97,0)
+ I $D(^TMP("LRRR",$J,DFN,"MI",VPRIDT,"N")) M CMMT=^("N") S LAB("comment")=$$STRING^VPRD(.CMMT)
+"RTN","VPRDLR",98,0)
+ Q
+"RTN","VPRDLR",99,0)
+ ;
+"RTN","VPRDLR",100,0)
+AP(LAB) ; -- return a Pathology result in LAB("attribute")=value
+"RTN","VPRDLR",101,0)
+ K LAB ;implemented in VPRDLRA
+"RTN","VPRDLR",102,0)
+ Q
+"RTN","VPRDLR",103,0)
+ ;
+"RTN","VPRDLR",104,0)
+ ; ------------ Return data to middle tier ------------
+"RTN","VPRDLR",105,0)
+ ;
+"RTN","VPRDLR",106,0)
+XML(LAB) ; -- Return result as XML in @VPR@(#)
+"RTN","VPRDLR",107,0)
+ N ATT,X,Y,P,NAMES,TAG
+"RTN","VPRDLR",108,0)
+ D ADD("<lab>") S VPRTOTL=$G(VPRTOTL)+1
+"RTN","VPRDLR",109,0)
+ S ATT="" F S ATT=$O(LAB(ATT)) Q:ATT="" D D:$L(Y) ADD(Y)
+"RTN","VPRDLR",110,0)
+ . S X=$G(LAB(ATT)),Y="" Q:'$L(X)
+"RTN","VPRDLR",111,0)
+ . I ATT="comment" S Y="<"_ATT_" xml:space='preserve'>"_$$ESC^VPRD(X)_"</"_ATT_">" Q
+"RTN","VPRDLR",112,0)
+ . I X'["^" S Y="<"_ATT_" value='"_$$ESC^VPRD(X)_"' />" Q
+"RTN","VPRDLR",113,0)
+ . I $L(X)>1 D S Y=""
+"RTN","VPRDLR",114,0)
+ .. S Y="<"_ATT_" ",NAMES="code^name^Z"
+"RTN","VPRDLR",115,0)
+ .. F P=1:1 S TAG=$P(NAMES,U,P) Q:TAG="Z" I $L($P(X,U,P)) S Y=Y_TAG_"='"_$$ESC^VPRD($P(X,U,P))_"' "
+"RTN","VPRDLR",116,0)
+ .. S Y=Y_"/>" D ADD(Y)
+"RTN","VPRDLR",117,0)
+ D ADD("</lab>")
+"RTN","VPRDLR",118,0)
+ Q
+"RTN","VPRDLR",119,0)
+ ;
+"RTN","VPRDLR",120,0)
+ADD(X) ; -- Add a line @VPR@(n)=X
+"RTN","VPRDLR",121,0)
+ S VPRI=$G(VPRI)+1
+"RTN","VPRDLR",122,0)
+ S @VPR@(VPRI)=X
+"RTN","VPRDLR",123,0)
+ Q
+"RTN","VPRDLRA")
+0^29^B76865545^B76300469
+"RTN","VPRDLRA",1,0)
+VPRDLRA ;SLC/MKB -- Laboratory extract by accession ;8/2/11 15:29
+"RTN","VPRDLRA",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**1,2**;Sep 01, 2011;Build 317
+"RTN","VPRDLRA",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDLRA",4,0)
+ ;
+"RTN","VPRDLRA",5,0)
+ ; External References DBIA#
+"RTN","VPRDLRA",6,0)
+ ; ------------------- -----
+"RTN","VPRDLRA",7,0)
+ ; ^DPT 10035
+"RTN","VPRDLRA",8,0)
+ ; ^LAB(60 10054
+"RTN","VPRDLRA",9,0)
+ ; ^LAB(61 524
+"RTN","VPRDLRA",10,0)
+ ; ^LRO(68 1963
+"RTN","VPRDLRA",11,0)
+ ; ^LRO(69 2407
+"RTN","VPRDLRA",12,0)
+ ; ^LR 525
+"RTN","VPRDLRA",13,0)
+ ; ^SC 10040
+"RTN","VPRDLRA",14,0)
+ ; ^VA(200 10060
+"RTN","VPRDLRA",15,0)
+ ; DIC 2051
+"RTN","VPRDLRA",16,0)
+ ; DIQ 2056
+"RTN","VPRDLRA",17,0)
+ ; LR7OR1,^TMP("LRRR",$J) 2503
+"RTN","VPRDLRA",18,0)
+ ; LR7OSUM,^TMP("LRC",$J), 2766
+"RTN","VPRDLRA",19,0)
+ ; ^TMP("LRH",$J),^TMP("LRT",$J)
+"RTN","VPRDLRA",20,0)
+ ; LRPXAPIU 4246
+"RTN","VPRDLRA",21,0)
+ ; PXAPI 1894
+"RTN","VPRDLRA",22,0)
+ ; XUAF4 2171
+"RTN","VPRDLRA",23,0)
+ ;
+"RTN","VPRDLRA",24,0)
+ ; ------------ Get results from VistA ------------
+"RTN","VPRDLRA",25,0)
+ ;
+"RTN","VPRDLRA",26,0)
+EN(DFN,BEG,END,MAX,ID) ; -- find patient's lab results
+"RTN","VPRDLRA",27,0)
+ N VPRSUB,VPRIDT,VPRP,VPRITM,LRDFN,LR0,ORD,X
+"RTN","VPRDLRA",28,0)
+ S DFN=+$G(DFN) Q:$G(DFN)<1
+"RTN","VPRDLRA",29,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999)
+"RTN","VPRDLRA",30,0)
+ S LRDFN=$G(^DPT(DFN,"LR")),VPRSUB=$G(FILTER("type"))
+"RTN","VPRDLRA",31,0)
+ K ^TMP("LRRR",$J,DFN)
+"RTN","VPRDLRA",32,0)
+ ;
+"RTN","VPRDLRA",33,0)
+ ; get result(s)
+"RTN","VPRDLRA",34,0)
+ I $L($G(ID)) D ;reset search parameters
+"RTN","VPRDLRA",35,0)
+ . S VPRSUB=$P(ID,";"),VPRIDT=+$P(ID,";",2)
+"RTN","VPRDLRA",36,0)
+ . S:VPRIDT (BEG,END)=9999999-VPRIDT
+"RTN","VPRDLRA",37,0)
+ ;
+"RTN","VPRDLRA",38,0)
+ D RR^LR7OR1(DFN,,BEG,END,VPRSUB,,,MAX)
+"RTN","VPRDLRA",39,0)
+ S VPRSUB="" F S VPRSUB=$O(^TMP("LRRR",$J,DFN,VPRSUB)) Q:VPRSUB="" D
+"RTN","VPRDLRA",40,0)
+ . S VPRIDT=0 F S VPRIDT=$O(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT)) Q:VPRIDT<1 I $O(^(VPRIDT,0)) D
+"RTN","VPRDLRA",41,0)
+ .. K VPRITM,ORD,CMMT,^TMP("VPRTEXT",$J)
+"RTN","VPRDLRA",42,0)
+ .. I "CH^MI"'[VPRSUB D AP(.VPRITM),XML(.VPRITM) Q
+"RTN","VPRDLRA",43,0)
+ .. S VPRITM("type")=VPRSUB,VPRITM("id")=VPRSUB_";"_VPRIDT
+"RTN","VPRDLRA",44,0)
+ .. S VPRITM("collected")=9999999-VPRIDT,VPRITM("status")="completed"
+"RTN","VPRDLRA",45,0)
+ .. S LR0=$G(^LR(LRDFN,VPRSUB,VPRIDT,0))
+"RTN","VPRDLRA",46,0)
+ .. S VPRITM("resulted")=$P(LR0,U,3),X=+$P(LR0,U,5) I X D
+"RTN","VPRDLRA",47,0)
+ ... N IENS,VPRY S IENS=X_","
+"RTN","VPRDLRA",48,0)
+ ... D GETS^DIQ(61,IENS,".01;2;4.1",,"VPRY")
+"RTN","VPRDLRA",49,0)
+ ... S VPRITM("specimen")=$G(VPRY(61,IENS,2))_U_$G(VPRY(61,IENS,.01)) ;SNOMED^name
+"RTN","VPRDLRA",50,0)
+ ... S VPRITM("sample")=$G(VPRY(61,IENS,4.1)) ;name
+"RTN","VPRDLRA",51,0)
+ .. S X=$P(LR0,U,6),VPRITM("name")=$$AREA(X),VPRITM("groupName")=X
+"RTN","VPRDLRA",52,0)
+ .. S X=+$P(LR0,U,14) S:X VPRITM("facility")=$$STA^XUAF4(X)_U_$P($$NS^XUAF4(X),U)
+"RTN","VPRDLRA",53,0)
+ .. I 'X S VPRITM("facility")=$$FAC^VPRD ;local stn#^name
+"RTN","VPRDLRA",54,0)
+ .. I VPRSUB="MI" D ;report
+"RTN","VPRDLRA",55,0)
+ ... S VPRITM("document",1)=VPRSUB_";"_VPRIDT_"^LR MICROBIOLOGY REPORT^LABORATORY NOTE"
+"RTN","VPRDLRA",56,0)
+ ... S:$G(VPRTEXT) VPRITM("document",1,"content")=$$TEXT(DFN,VPRSUB,VPRIDT)
+"RTN","VPRDLRA",57,0)
+ .. S VPRP=0 F S VPRP=$O(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT,VPRP)) Q:VPRP<1 D
+"RTN","VPRDLRA",58,0)
+ ... S X=$S(VPRSUB="MI":$$MI,1:$$CH)
+"RTN","VPRDLRA",59,0)
+ ... S:$L(X) VPRITM("value",VPRP)=X
+"RTN","VPRDLRA",60,0)
+ ... S:$G(ORD) VPRITM("labOrderID")=ORD
+"RTN","VPRDLRA",61,0)
+ .. I $D(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT,"N")) M CMMT=^("N") S VPRITM("comment")=$$STRING^VPRD(.CMMT)
+"RTN","VPRDLRA",62,0)
+ .. D XML(.VPRITM)
+"RTN","VPRDLRA",63,0)
+ K ^TMP("LRRR",$J,DFN),^TMP("VPRTEXT",$J)
+"RTN","VPRDLRA",64,0)
+ Q
+"RTN","VPRDLRA",65,0)
+ ;
+"RTN","VPRDLRA",66,0)
+CH() ; -- return a Chemistry result as:
+"RTN","VPRDLRA",67,0)
+ ; id^test^result^interpretation^units^low^high^localName^loinc^vuid^order
+"RTN","VPRDLRA",68,0)
+ ; Expects ^TMP("LRRR",$J,DFN,"CH",VPRIDT,VPRP),LRDFN
+"RTN","VPRDLRA",69,0)
+ N X,Y,X0,VPRN,NODE,CMMT,LOINC
+"RTN","VPRDLRA",70,0)
+ S X0=$G(^TMP("LRRR",$J,DFN,"CH",VPRIDT,VPRP)),VPRN=$$LRDN^LRPXAPIU(+X0)
+"RTN","VPRDLRA",71,0)
+ S NODE=$G(^LR(LRDFN,"CH",VPRIDT,VPRN))
+"RTN","VPRDLRA",72,0)
+ S X=$P($G(^LAB(60,+X0,0)),U)
+"RTN","VPRDLRA",73,0)
+ S Y="CH;"_VPRIDT_";"_VPRN_U_X_U_$P(X0,U,2,4)
+"RTN","VPRDLRA",74,0)
+ S X=$P(X0,U,5) I $L(X),X["-" S X=$TR(X,"- ","^"),$P(Y,U,6,7)=X
+"RTN","VPRDLRA",75,0)
+ S $P(Y,U,8)=$P(X0,U,15) ;test short name
+"RTN","VPRDLRA",76,0)
+ S X=$P($P(NODE,U,3),"!",3) S:X LOINC=$$GET1^DIQ(95.3,X_",",.01)
+"RTN","VPRDLRA",77,0)
+ S:$G(LOINC) $P(Y,U,9,10)=LOINC_U_$$VUID^VPRD(+LOINC,95.3)
+"RTN","VPRDLRA",78,0)
+ S ORD=+$P(X0,U,17),X=$$ORDER(ORD,+X0) S:X $P(Y,U,11)=X
+"RTN","VPRDLRA",79,0)
+ Q Y
+"RTN","VPRDLRA",80,0)
+ ;
+"RTN","VPRDLRA",81,0)
+MI() ; -- return a Microbiology result as:
+"RTN","VPRDLRA",82,0)
+ ; id^test^result^interpretation^units
+"RTN","VPRDLRA",83,0)
+ ; Expects ^TMP("LRRR",$J,DFN,"MI",VPRIDT,VPRP)
+"RTN","VPRDLRA",84,0)
+ N Y,X0
+"RTN","VPRDLRA",85,0)
+ S X0=$G(^TMP("LRRR",$J,DFN,"MI",VPRIDT,VPRP)),Y=""
+"RTN","VPRDLRA",86,0)
+ S:$L($P(X0,U))>1 Y="MI;"_VPRIDT_";"_VPRP_U_$P(X0,U,1,4)
+"RTN","VPRDLRA",87,0)
+ S ORD=+$P(X0,U,17)
+"RTN","VPRDLRA",88,0)
+ Q Y
+"RTN","VPRDLRA",89,0)
+ ;
+"RTN","VPRDLRA",90,0)
+AP(LAB) ; -- return a Pathology result in LAB("attribute")=value
+"RTN","VPRDLRA",91,0)
+ N LR0,X,I,NODE
+"RTN","VPRDLRA",92,0)
+ S LR0=$G(^LR(LRDFN,VPRSUB,VPRIDT,0))
+"RTN","VPRDLRA",93,0)
+ S LAB("type")=VPRSUB,LAB("id")=VPRSUB_";"_VPRIDT
+"RTN","VPRDLRA",94,0)
+ S LAB("collected")=9999999-VPRIDT,LAB("status")="completed"
+"RTN","VPRDLRA",95,0)
+ S LAB("resulted")=$P(LR0,U,11),LAB("groupName")=$P(LR0,U,6)
+"RTN","VPRDLRA",96,0)
+ S X="",I=0 F S I=$O(^LR(LRDFN,VPRSUB,VPRIDT,.1,I)) Q:I<1 S X=X_$S($L(X):", ",1:"")_$P($G(^(I,0)),U)
+"RTN","VPRDLRA",97,0)
+ S:$L(X) LAB("specimen")=U_X
+"RTN","VPRDLRA",98,0)
+ S LAB("facility")=$$FAC^VPRD
+"RTN","VPRDLRA",99,0)
+ S NODE=$S(VPRSUB="AU":$NA(^LR(LRDFN,101)),1:$NA(^LR(LRDFN,VPRSUB,VPRIDT,.05)))
+"RTN","VPRDLRA",100,0)
+ S I=0 F S I=$O(@NODE@(I)) Q:I<1 S X=+$P($G(@NODE@(I,0)),U,2) I X D
+"RTN","VPRDLRA",101,0)
+ . N LT,NT,VPRY
+"RTN","VPRDLRA",102,0)
+ . S LT=$$GET1^DIQ(8925,+X_",",.01) Q:$P(LT," ")="Addendum"
+"RTN","VPRDLRA",103,0)
+ . S NT=$$GET1^DIQ(8925,+X_",",".01:1501") S:NT="" NT="LABORATORY NOTE"
+"RTN","VPRDLRA",104,0)
+ . S LAB("document",I)=+X_U_LT_U_NT
+"RTN","VPRDLRA",105,0)
+ . S:$G(VPRTEXT) LAB("document",I,"content")=$$TEXT^VPRDTIU(+X)
+"RTN","VPRDLRA",106,0)
+ I '$O(LAB("document",0)) D ;non-TIU reports
+"RTN","VPRDLRA",107,0)
+ . S LAB("document",1)=VPRSUB_";"_VPRIDT_"^LR "_$$NAME(VPRSUB)_" REPORT^LABORATORY NOTE"
+"RTN","VPRDLRA",108,0)
+ . S:$G(VPRTEXT) LAB("document",1,"content")=$$TEXT(DFN,VPRSUB,VPRIDT)
+"RTN","VPRDLRA",109,0)
+ Q
+"RTN","VPRDLRA",110,0)
+ ;
+"RTN","VPRDLRA",111,0)
+ORDER(LABORD,TEST) ; -- return #100 order number for Lab order# & Test
+"RTN","VPRDLRA",112,0)
+ N Y,D,S,T
+"RTN","VPRDLRA",113,0)
+ S D=$P(9999999-VPRIDT,"."),Y=""
+"RTN","VPRDLRA",114,0)
+ S S=0 F S S=$O(^LRO(69,"C",LABORD,D,S)) Q:S<1 D Q:Y
+"RTN","VPRDLRA",115,0)
+ . S T=0 F S T=$O(^LRO(69,D,1,S,2,T)) Q:T<1 I 'TEST!(+$G(^(T,0))=TEST) S Y=+$P(^(0),U,7)
+"RTN","VPRDLRA",116,0)
+ Q Y
+"RTN","VPRDLRA",117,0)
+ ;
+"RTN","VPRDLRA",118,0)
+NAME(X) ; -- Return name of subscript X
+"RTN","VPRDLRA",119,0)
+ I X="AU" Q "AUTOPSY"
+"RTN","VPRDLRA",120,0)
+ I X="BB" Q "BLOOD BANK"
+"RTN","VPRDLRA",121,0)
+ I X="CH" Q "CHEM,HEM,TOX,RIA,SER,etc."
+"RTN","VPRDLRA",122,0)
+ I X="CY" Q "CYTOPATHOLOGY"
+"RTN","VPRDLRA",123,0)
+ I X="EM" Q "ELECTRON MICROSCOPY"
+"RTN","VPRDLRA",124,0)
+ I X="MI" Q "MICROBIOLOGY"
+"RTN","VPRDLRA",125,0)
+ I X="SP" Q "SURGICAL PATHOLOGY"
+"RTN","VPRDLRA",126,0)
+ Q "ANATOMIC PATHOLOGY"
+"RTN","VPRDLRA",127,0)
+ ;
+"RTN","VPRDLRA",128,0)
+AREA(ACCNUM) ; -- Return name of accession area
+"RTN","VPRDLRA",129,0)
+ N X,Y,VPRA
+"RTN","VPRDLRA",130,0)
+ S X=$P($G(ACCNUM)," "),Y=""
+"RTN","VPRDLRA",131,0)
+ I $L(X) D FIND^DIC(68,,.01,"QX",X,,,,,"VPRA")
+"RTN","VPRDLRA",132,0)
+ S Y=$G(VPRA("DILIST",1,1))
+"RTN","VPRDLRA",133,0)
+ Q Y
+"RTN","VPRDLRA",134,0)
+ ;
+"RTN","VPRDLRA",135,0)
+ ; ------------ Get report(s) [via VPRDTIU] ------------
+"RTN","VPRDLRA",136,0)
+ ;
+"RTN","VPRDLRA",137,0)
+RPTS(DFN,BEG,END,MAX) ; -- find patient's lab reports
+"RTN","VPRDLRA",138,0)
+ N VPRSUB,VPRIDT,VPRITM,VPRTIU,VPRXID,LRDFN,VPRN,DA
+"RTN","VPRDLRA",139,0)
+ S DFN=+$G(DFN) Q:$G(DFN)<1
+"RTN","VPRDLRA",140,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999)
+"RTN","VPRDLRA",141,0)
+ S LRDFN=$G(^DPT(DFN,"LR"))
+"RTN","VPRDLRA",142,0)
+ K ^TMP("LRRR",$J,DFN) D RR^LR7OR1(DFN,,BEG,END,"AP",,,MAX)
+"RTN","VPRDLRA",143,0)
+ S VPRSUB="" F S VPRSUB=$O(^TMP("LRRR",$J,DFN,VPRSUB)) Q:VPRSUB="" D
+"RTN","VPRDLRA",144,0)
+ . S VPRIDT=0 F S VPRIDT=$O(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT)) Q:VPRIDT<1 I $O(^(VPRIDT,0)) D
+"RTN","VPRDLRA",145,0)
+ .. S VPRTIU=$S(VPRSUB="AU":$NA(^LR(LRDFN,101)),1:$NA(^LR(LRDFN,VPRSUB,VPRIDT,.05)))
+"RTN","VPRDLRA",146,0)
+ .. K VPRITM S VPRXID=VPRSUB_";"_VPRIDT
+"RTN","VPRDLRA",147,0)
+ .. I '$O(@VPRTIU@(0)) D RPT1(DFN,VPRXID,.VPRITM),XML^VPRDTIU(.VPRITM):$D(VPRITM) Q
+"RTN","VPRDLRA",148,0)
+ .. S VPRN=0 F S VPRN=$O(@VPRTIU@(VPRN)) Q:VPRN<1 D
+"RTN","VPRDLRA",149,0)
+ ... S DA=+$P($G(@VPRTIU@(VPRN,0)),U,2) Q:DA<1 K VPRITM
+"RTN","VPRDLRA",150,0)
+ ... D EN1^VPRDTIU(DA,.VPRITM),XML^VPRDTIU(.VPRITM):$D(VPRITM)
+"RTN","VPRDLRA",151,0)
+ K ^TMP("LRRR",$J,DFN),^TMP("VPRTEXT",$J)
+"RTN","VPRDLRA",152,0)
+ Q
+"RTN","VPRDLRA",153,0)
+ ;
+"RTN","VPRDLRA",154,0)
+RPT1(DFN,ID,RPT) ; -- return report as a TIU document
+"RTN","VPRDLRA",155,0)
+ S DFN=+$G(DFN),ID=$G(ID) Q:DFN<1 Q:'$L(ID)
+"RTN","VPRDLRA",156,0)
+ N SUB,IDT,LRDFN,LR0,X,LOC
+"RTN","VPRDLRA",157,0)
+ K RPT,^TMP("VPRTEXT",$J)
+"RTN","VPRDLRA",158,0)
+ S SUB=$P(ID,";"),IDT=+$P(ID,";",2),LRDFN=$G(^DPT(DFN,"LR"))
+"RTN","VPRDLRA",159,0)
+ S LR0=$S(SUB="AU":$G(^LR(LRDFN,"AU")),1:$G(^LR(LRDFN,SUB,IDT,0)))
+"RTN","VPRDLRA",160,0)
+ S RPT("id")=ID,RPT("referenceDateTime")=9999999-IDT
+"RTN","VPRDLRA",161,0)
+ S RPT("localTitle")="LR "_$$NAME(SUB)_" REPORT"
+"RTN","VPRDLRA",162,0)
+ S RPT("documentClass")="LR LABORATORY REPORTS"
+"RTN","VPRDLRA",163,0)
+ S RPT("nationalTitle")="4697105^LABORATORY NOTE"
+"RTN","VPRDLRA",164,0)
+ S RPT("nationalTitleSubject")="4697104^LABORATORY"
+"RTN","VPRDLRA",165,0)
+ S RPT("nationalTitleType")="4696120^NOTE"
+"RTN","VPRDLRA",166,0)
+ S RPT("type")="LR",RPT("status")="COMPLETED"
+"RTN","VPRDLRA",167,0)
+ S:$G(FILTER("loinc")) RPT("loinc")=$P(FILTER("loinc"),U)
+"RTN","VPRDLRA",168,0)
+ S X=$P(LR0,U,$S(SUB="AU":5,1:8)),LOC="" S:$L(X) LOC=+$O(^SC("B",X,0))
+"RTN","VPRDLRA",169,0)
+ S RPT("facility")=$$FAC^VPRD(LOC)
+"RTN","VPRDLRA",170,0)
+ I LOC D ;look-up visit
+"RTN","VPRDLRA",171,0)
+ . N CDT S CDT=9999999-IDT
+"RTN","VPRDLRA",172,0)
+ . S X=$$GETENC^PXAPI(DFN,CDT,LOC)
+"RTN","VPRDLRA",173,0)
+ . S:X RPT("encounter")=+X
+"RTN","VPRDLRA",174,0)
+ S X=+$P(LR0,U,$S(SUB="AU":10,1:2)) ;pathologist
+"RTN","VPRDLRA",175,0)
+ S:X RPT("clinician",1)=X_U_$P($G(^VA(200,X,0)),U)_"^A"
+"RTN","VPRDLRA",176,0)
+ S X=$S(SUB="AU":$P(LR0,U,15,16),1:$P(LR0,U,11)_U_$P(LR0,U,13)) I X D
+"RTN","VPRDLRA",177,0)
+ . N Y S Y=$P(X,U,2)
+"RTN","VPRDLRA",178,0)
+ . S RPT("clinician",2)=Y_U_$P($G(^VA(200,+Y,0)),U)_"^S^"_+X_U_$P($G(^VA(200,+Y,20)),U,2)
+"RTN","VPRDLRA",179,0)
+ S:$G(VPRTEXT) RPT("content")=$$TEXT(DFN,SUB,IDT)
+"RTN","VPRDLRA",180,0)
+ Q
+"RTN","VPRDLRA",181,0)
+ ;
+"RTN","VPRDLRA",182,0)
+TEXT(DFN,SUB,IDT) ; -- Get report text, return temp array name
+"RTN","VPRDLRA",183,0)
+ N LRDFN,DATE,NAME,VPRS,VPRY,I,X,Y
+"RTN","VPRDLRA",184,0)
+ K ^TMP("LRC",$J),^TMP("LRH",$J),^TMP("LRT",$J)
+"RTN","VPRDLRA",185,0)
+ S DATE=9999999-+$G(IDT),NAME=$S(SUB="EM":"EM",1:$$NAME(SUB)),VPRS(NAME)=""
+"RTN","VPRDLRA",186,0)
+ D EN^LR7OSUM(.VPRY,DFN,DATE,DATE,,,.VPRS)
+"RTN","VPRDLRA",187,0)
+ S Y=$NA(^TMP("VPRTEXT",$J,SUB_";"_IDT)) K @Y
+"RTN","VPRDLRA",188,0)
+ S I=+$G(^TMP("LRH",$J,NAME)) ;LRH=header
+"RTN","VPRDLRA",189,0)
+ F S I=$O(^TMP("LRC",$J,I)) Q:I<1 S X=$G(^(I,0)) Q:X?1."=" S @Y@(I)=X
+"RTN","VPRDLRA",190,0)
+ K ^TMP("LRC",$J),^TMP("LRH",$J),^TMP("LRT",$J)
+"RTN","VPRDLRA",191,0)
+ Q Y
+"RTN","VPRDLRA",192,0)
+ ;
+"RTN","VPRDLRA",193,0)
+ ; ------------ Return data to middle tier ------------
+"RTN","VPRDLRA",194,0)
+ ;
+"RTN","VPRDLRA",195,0)
+XML(LAB) ; -- Return result as XML in @VPR@(#)
+"RTN","VPRDLRA",196,0)
+ N ATT,X,Y,NAMES,I,J
+"RTN","VPRDLRA",197,0)
+ D ADD("<accession>") S VPRTOTL=$G(VPRTOTL)+1
+"RTN","VPRDLRA",198,0)
+ S ATT="" F S ATT=$O(LAB(ATT)) Q:ATT="" D D:$L(Y) ADD(Y)
+"RTN","VPRDLRA",199,0)
+ . I $O(LAB(ATT,0)) D S Y="" Q
+"RTN","VPRDLRA",200,0)
+ .. D ADD("<"_ATT_"s>")
+"RTN","VPRDLRA",201,0)
+ .. S NAMES=$S(ATT="document":"id^localTitle^nationalTitle^Z",ATT="value":"id^test^result^interpretation^units^low^high^localName^loinc^vuid^order^Z",1:"code^name^Z")
+"RTN","VPRDLRA",202,0)
+ .. S I=0 F S I=$O(LAB(ATT,I)) Q:I<1 D
+"RTN","VPRDLRA",203,0)
+ ... S X=$G(LAB(ATT,I))
+"RTN","VPRDLRA",204,0)
+ ... S Y="<"_ATT_" "_$$LOOP ;_"/>" D ADD(Y)
+"RTN","VPRDLRA",205,0)
+ ... S X=$G(LAB(ATT,I,"content")) I '$L(X) S Y=Y_"/>" D ADD(Y) Q
+"RTN","VPRDLRA",206,0)
+ ... S Y=Y_">" D ADD(Y)
+"RTN","VPRDLRA",207,0)
+ ... S Y="<content xml:space='preserve'>" D ADD(Y)
+"RTN","VPRDLRA",208,0)
+ ... S J=0 F S J=$O(@X@(J)) Q:J<1 S Y=$$ESC^VPRD(@X@(J)) D ADD(Y)
+"RTN","VPRDLRA",209,0)
+ ... D ADD("</content>"),ADD("</"_ATT_">")
+"RTN","VPRDLRA",210,0)
+ .. D ADD("</"_ATT_"s>")
+"RTN","VPRDLRA",211,0)
+ . S X=$G(LAB(ATT)),Y="" Q:'$L(X)
+"RTN","VPRDLRA",212,0)
+ . I ATT="comment" S Y="<"_ATT_" xml:space='preserve'>"_$$ESC^VPRD(X)_"</"_ATT_">" Q
+"RTN","VPRDLRA",213,0)
+ . I X'["^" S Y="<"_ATT_" value='"_$$ESC^VPRD(X)_"' />" Q
+"RTN","VPRDLRA",214,0)
+ . I $L(X)>1 D S Y=""
+"RTN","VPRDLRA",215,0)
+ .. S NAMES="code^name^Z"
+"RTN","VPRDLRA",216,0)
+ .. S Y="<"_ATT_" "_$$LOOP_"/>" D ADD(Y)
+"RTN","VPRDLRA",217,0)
+ D ADD("</accession>")
+"RTN","VPRDLRA",218,0)
+ Q
+"RTN","VPRDLRA",219,0)
+ ;
+"RTN","VPRDLRA",220,0)
+LOOP() ; -- build sub-items string from NAMES and X
+"RTN","VPRDLRA",221,0)
+ N STR,P,TAG S STR=""
+"RTN","VPRDLRA",222,0)
+ F P=1:1 S TAG=$P(NAMES,U,P) Q:TAG="Z" I $L($P(X,U,P)) S STR=STR_TAG_"='"_$$ESC^VPRD($P(X,U,P))_"' "
+"RTN","VPRDLRA",223,0)
+ Q STR
+"RTN","VPRDLRA",224,0)
+ ;
+"RTN","VPRDLRA",225,0)
+ADD(X) ; -- Add a line @VPR@(n)=X
+"RTN","VPRDLRA",226,0)
+ S VPRI=$G(VPRI)+1
+"RTN","VPRDLRA",227,0)
+ S @VPR@(VPRI)=X
+"RTN","VPRDLRA",228,0)
+ Q
+"RTN","VPRDLRO")
+0^36^B27947758^B27350157
+"RTN","VPRDLRO",1,0)
+VPRDLRO ;SLC/MKB -- Laboratory extract by order/panel ;8/2/11 15:29
+"RTN","VPRDLRO",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDLRO",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDLRO",4,0)
+ ;
+"RTN","VPRDLRO",5,0)
+ ; External References DBIA#
+"RTN","VPRDLRO",6,0)
+ ; ------------------- -----
+"RTN","VPRDLRO",7,0)
+ ; ^DPT 10035
+"RTN","VPRDLRO",8,0)
+ ; ^LAB(60 10054
+"RTN","VPRDLRO",9,0)
+ ; ^LAB(61 524
+"RTN","VPRDLRO",10,0)
+ ; ^LRO(69 2407
+"RTN","VPRDLRO",11,0)
+ ; ^LR 525
+"RTN","VPRDLRO",12,0)
+ ; DIQ 2056
+"RTN","VPRDLRO",13,0)
+ ; LR7OR1,^TMP("LRRR",$J) 2503
+"RTN","VPRDLRO",14,0)
+ ; LR7OU1 2955
+"RTN","VPRDLRO",15,0)
+ ; LRPXAPIU 4246
+"RTN","VPRDLRO",16,0)
+ ; ORX8 3071
+"RTN","VPRDLRO",17,0)
+ ; XUAF4 2171
+"RTN","VPRDLRO",18,0)
+ ;
+"RTN","VPRDLRO",19,0)
+ ; ------------ Get results from VistA ------------
+"RTN","VPRDLRO",20,0)
+ ;
+"RTN","VPRDLRO",21,0)
+EN(DFN,BEG,END,MAX,ID) ; -- find patient's lab results
+"RTN","VPRDLRO",22,0)
+ N VPRSUB,VPRIDT,VPRN,VPRLRO,VPRT,VPRITM,CMMT,LRDFN,LR0,X
+"RTN","VPRDLRO",23,0)
+ S DFN=+$G(DFN) Q:$G(DFN)<1
+"RTN","VPRDLRO",24,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999)
+"RTN","VPRDLRO",25,0)
+ S LRDFN=$G(^DPT(DFN,"LR")),VPRSUB="CH"
+"RTN","VPRDLRO",26,0)
+ K ^TMP("LRRR",$J,DFN)
+"RTN","VPRDLRO",27,0)
+ ;
+"RTN","VPRDLRO",28,0)
+ ; get result(s)
+"RTN","VPRDLRO",29,0)
+ I $G(ID) D RR^LR7OR1(DFN,ID)
+"RTN","VPRDLRO",30,0)
+ I '$G(ID) D ;no id, or accession format (no lab order)
+"RTN","VPRDLRO",31,0)
+ . S:$G(ID)'="" VPRSUB=$P(ID,";"),(BEG,END)=9999999-$P(ID,";",2)
+"RTN","VPRDLRO",32,0)
+ . D RR^LR7OR1(DFN,,BEG,END,VPRSUB,,,MAX)
+"RTN","VPRDLRO",33,0)
+ ;
+"RTN","VPRDLRO",34,0)
+ S VPRSUB="" F S VPRSUB=$O(^TMP("LRRR",$J,DFN,VPRSUB)) Q:VPRSUB="" D
+"RTN","VPRDLRO",35,0)
+ . S VPRIDT=0 F S VPRIDT=$O(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT)) Q:VPRIDT<1 I $O(^(VPRIDT,0)) D
+"RTN","VPRDLRO",36,0)
+ .. I "CH^MI"'[VPRSUB Q
+"RTN","VPRDLRO",37,0)
+ .. D SORT ;group accession by lab orders > VPRLRO(panel,VPRN)=data node
+"RTN","VPRDLRO",38,0)
+ .. S VPRT="" F S VPRT=$O(VPRLRO(VPRT)) Q:VPRT="" D
+"RTN","VPRDLRO",39,0)
+ ... K VPRITM,CMMT S X=$G(VPRLRO(VPRT))
+"RTN","VPRDLRO",40,0)
+ ... I $G(ID),$P(ID,";",1,3)'=$P($P(X,U,3),";",1,3) Q ;single order/specimen
+"RTN","VPRDLRO",41,0)
+ ... S VPRITM("id")=$P(X,U,3),VPRITM("order")=$P(X,U,1,2)
+"RTN","VPRDLRO",42,0)
+ ... S VPRITM("type")=VPRSUB,VPRITM("status")="completed"
+"RTN","VPRDLRO",43,0)
+ ... S VPRITM("collected")=9999999-VPRIDT
+"RTN","VPRDLRO",44,0)
+ ... S LR0=$G(^LR(LRDFN,VPRSUB,VPRIDT,0))
+"RTN","VPRDLRO",45,0)
+ ... S VPRITM("resulted")=$P(LR0,U,3),X=+$P(LR0,U,5) I X D ;specimen
+"RTN","VPRDLRO",46,0)
+ .... N IENS,VPRY S IENS=X_","
+"RTN","VPRDLRO",47,0)
+ .... D GETS^DIQ(61,IENS,".01:2",,"VPRY")
+"RTN","VPRDLRO",48,0)
+ .... S VPRITM("specimen")=$G(VPRY(61,IENS,2))_U_$G(VPRY(61,IENS,.01)) ;SNOMED^name
+"RTN","VPRDLRO",49,0)
+ .... S VPRITM("sample")=$$GET1^DIQ(61,X_",",4.1) ;name
+"RTN","VPRDLRO",50,0)
+ ... S VPRITM("groupName")=$P(LR0,U,6),X=+$P(LR0,U,14)
+"RTN","VPRDLRO",51,0)
+ ... S:X VPRITM("facility")=$$STA^XUAF4(X)_U_$P($$NS^XUAF4(X),U)
+"RTN","VPRDLRO",52,0)
+ ... I 'X S VPRITM("facility")=$$FAC^VPRD ;local stn#^name
+"RTN","VPRDLRO",53,0)
+ ... S VPRN=0 F S VPRN=$O(VPRLRO(VPRT,VPRN)) Q:VPRN<1 D
+"RTN","VPRDLRO",54,0)
+ .... S X=$G(VPRLRO(VPRT,VPRN))
+"RTN","VPRDLRO",55,0)
+ .... S:VPRSUB="CH" VPRITM("value",VPRN)=$$CH(X)
+"RTN","VPRDLRO",56,0)
+ .... S:VPRSUB="MI" VPRITM("value",VPRN)=$$MI(X)
+"RTN","VPRDLRO",57,0)
+ ... I $D(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT,"N")) M CMMT=^("N") S VPRITM("comment")=$$STRING^VPRD(.CMMT)
+"RTN","VPRDLRO",58,0)
+ ... D XML(.VPRITM)
+"RTN","VPRDLRO",59,0)
+ K ^TMP("LRRR",$J,DFN)
+"RTN","VPRDLRO",60,0)
+ Q
+"RTN","VPRDLRO",61,0)
+ ;
+"RTN","VPRDLRO",62,0)
+SORT ; -- return VPRLRO(PANEL) = CPRS order# ^ panel/test name ^ Lab Order string
+"RTN","VPRDLRO",63,0)
+ ; VPRLRO(PANEL,VPRN) = result node
+"RTN","VPRDLRO",64,0)
+ N VPRP,X0,NUM,ORD,ODT,SN,T,T0,ORIFN,I,VPRY,VPRLRT K VPRLRO
+"RTN","VPRDLRO",65,0)
+ S VPRP=$O(^TMP("LRRR",$J,DFN,VPRSUB,VPRIDT,0)),X0=$G(^(VPRP)) ;first
+"RTN","VPRDLRO",66,0)
+ S NUM=$P(X0,U,16),ORD=$P(X0,U,17),ODT=+$P(9999999-VPRIDT,".")
+"RTN","VPRDLRO",67,0)
+ ; - build VPRLRT list of result nodes for each test/panel
+"RTN","VPRDLRO",68,0)
+ I ORD S SN=0 F S SN=$O(^LRO(69,"C",ORD,ODT,SN)) Q:SN<1 D Q:$D(VPRLRT)
+"RTN","VPRDLRO",69,0)
+ . I $G(ID),$P(ID,";",3)'=SN Q
+"RTN","VPRDLRO",70,0)
+ . S T=0 F S T=+$O(^LRO(69,ODT,1,SN,2,T)) Q:T<1 D
+"RTN","VPRDLRO",71,0)
+ .. I $G(ID),$P(ID,";",4),T'=$P(ID,";",4) Q
+"RTN","VPRDLRO",72,0)
+ .. S T0=$G(^LRO(69,ODT,1,SN,2,T,0))
+"RTN","VPRDLRO",73,0)
+ .. ; is test/panel part of same accession?
+"RTN","VPRDLRO",74,0)
+ .. S ORIFN=+$P(T0,U,7)
+"RTN","VPRDLRO",75,0)
+ .. Q:VPRIDT'=$P($$PKGID^ORX8(ORIFN),";",5)
+"RTN","VPRDLRO",76,0)
+ .. ; expand panel into unit tests
+"RTN","VPRDLRO",77,0)
+ .. K VPRY D EXPAND^LR7OU1(+T0,.VPRY)
+"RTN","VPRDLRO",78,0)
+ .. S I=0 F S I=$O(VPRY(I)) Q:I<1 S VPRLRT(I,+T0)="" ;VPRLRT(test,panel)=""
+"RTN","VPRDLRO",79,0)
+ .. S VPRLRO(+T0)=$P(T0,U,7)_U_$P($G(^LAB(60,+T0,0)),U)_U_ORD_";"_ODT_";"_SN_";"_T
+"RTN","VPRDLRO",80,0)
+ S:'$D(VPRLRO) VPRLRO(0)=$S(VPRSUB="MI":"^MICROBIOLOGY^MI;",1:"^ACCESSION^CH;")_VPRIDT ;no Lab Order
+"RTN","VPRDLRO",81,0)
+ ; - build VPRLRO(panel#,VPRN) = ^TMP node
+"RTN","VPRDLRO",82,0)
+ S VPRP=0 F S VPRP=$O(^TMP("LRRR",$J,DFN,"CH",VPRIDT,VPRP)) Q:VPRP<1 S X0=$G(^(VPRP)) D
+"RTN","VPRDLRO",83,0)
+ . S VPRN=$$LRDN^LRPXAPIU(+X0)
+"RTN","VPRDLRO",84,0)
+ . I '$D(VPRLRT(+X0)) S VPRLRO(0,VPRN)=X0 Q ;no Lab Order
+"RTN","VPRDLRO",85,0)
+ . S T=0 F S T=$O(VPRLRT(+X0,T)) Q:T<1 S VPRLRO(T,VPRN)=X0
+"RTN","VPRDLRO",86,0)
+ Q
+"RTN","VPRDLRO",87,0)
+ ;
+"RTN","VPRDLRO",88,0)
+CH(X0) ; -- return a Chemistry result as:
+"RTN","VPRDLRO",89,0)
+ ; id^test^result^interpretation^units^low^high^loinc^vuid
+"RTN","VPRDLRO",90,0)
+ ; Expects X0=^TMP("LRRR",$J,DFN,"CH",VPRIDT,VPRP),VPRN,LRDFN
+"RTN","VPRDLRO",91,0)
+ N X,Y,NODE,LOINC
+"RTN","VPRDLRO",92,0)
+ S NODE=$G(^LR(LRDFN,"CH",VPRIDT,VPRN))
+"RTN","VPRDLRO",93,0)
+ S X=$P($G(^LAB(60,+X0,0)),U)
+"RTN","VPRDLRO",94,0)
+ S Y="CH;"_VPRIDT_";"_VPRN_U_X_U_$P(X0,U,2,4)
+"RTN","VPRDLRO",95,0)
+ S X=$P(X0,U,5) I $L(X),X["-" S X=$TR(X,"- ","^"),$P(Y,U,6,7)=X
+"RTN","VPRDLRO",96,0)
+ S X=$P($P(NODE,U,3),"!",3) S:X LOINC=$$GET1^DIQ(95.3,X_",",.01)
+"RTN","VPRDLRO",97,0)
+ S:$G(LOINC) $P(Y,U,8,9)=LOINC_U_$$VUID^VPRD(+LOINC,95.3)
+"RTN","VPRDLRO",98,0)
+ Q Y
+"RTN","VPRDLRO",99,0)
+ ;
+"RTN","VPRDLRO",100,0)
+MI(X0) ; -- return a Microbiology result as:
+"RTN","VPRDLRO",101,0)
+ ; id^test^result^interpretation^units
+"RTN","VPRDLRO",102,0)
+ ; Expects X0=^TMP("LRRR",$J,DFN,"MI",VPRIDT,VPRP)
+"RTN","VPRDLRO",103,0)
+ N Y S Y=""
+"RTN","VPRDLRO",104,0)
+ S:$L($P(X0,U))>1 Y="MI;"_VPRIDT_";"_VPRN_U_$P(X0,U,1,4)
+"RTN","VPRDLRO",105,0)
+ Q Y
+"RTN","VPRDLRO",106,0)
+ ;
+"RTN","VPRDLRO",107,0)
+ ; ------------ Return data to middle tier ------------
+"RTN","VPRDLRO",108,0)
+ ;
+"RTN","VPRDLRO",109,0)
+XML(LAB) ; -- Return result as XML in @VPR@(#)
+"RTN","VPRDLRO",110,0)
+ N ATT,X,Y,I,J,P,NAMES,TAG
+"RTN","VPRDLRO",111,0)
+ D ADD("<panel>") S VPRTOTL=$G(VPRTOTL)+1
+"RTN","VPRDLRO",112,0)
+ S ATT="" F S ATT=$O(LAB(ATT)) Q:ATT="" D D:$L(Y) ADD(Y)
+"RTN","VPRDLRO",113,0)
+ . I $O(LAB(ATT,0)) D S Y="" Q
+"RTN","VPRDLRO",114,0)
+ .. D ADD("<"_ATT_"s>")
+"RTN","VPRDLRO",115,0)
+ .. I ATT="value" S NAMES="id^test^result^interpretation^units^low^high^loinc^vuid^Z"
+"RTN","VPRDLRO",116,0)
+ .. E S NAMES="code^name^Z"
+"RTN","VPRDLRO",117,0)
+ .. S I=0 F S I=$O(LAB(ATT,I)) Q:I<1 D
+"RTN","VPRDLRO",118,0)
+ ... S X=$G(LAB(ATT,I)),Y="<"_ATT_" "_$$LOOP_"/>" D ADD(Y)
+"RTN","VPRDLRO",119,0)
+ .. D ADD("</"_ATT_"s>")
+"RTN","VPRDLRO",120,0)
+ . S X=$G(LAB(ATT)),Y="" Q:'$L(X)
+"RTN","VPRDLRO",121,0)
+ . I ATT="comment" S Y="<"_ATT_" xml:space='preserve'>"_$$ESC^VPRD(X)_"</"_ATT_">" Q
+"RTN","VPRDLRO",122,0)
+ . I X'["^" S Y="<"_ATT_" value='"_$$ESC^VPRD(X)_"' />" Q
+"RTN","VPRDLRO",123,0)
+ . I $L(X)>1 S NAMES="code^name^Z",Y="<"_ATT_" "_$$LOOP_"/>"
+"RTN","VPRDLRO",124,0)
+ D ADD("</panel>")
+"RTN","VPRDLRO",125,0)
+ Q
+"RTN","VPRDLRO",126,0)
+ ;
+"RTN","VPRDLRO",127,0)
+LOOP() ; -- build sub-items string from NAMES and X
+"RTN","VPRDLRO",128,0)
+ N STR,P,TAG S STR=""
+"RTN","VPRDLRO",129,0)
+ F P=1:1 S TAG=$P(NAMES,U,P) Q:TAG="Z" I $L($P(X,U,P)) S STR=STR_TAG_"='"_$$ESC^VPRD($P(X,U,P))_"' "
+"RTN","VPRDLRO",130,0)
+ Q STR
+"RTN","VPRDLRO",131,0)
+ ;
+"RTN","VPRDLRO",132,0)
+ADD(X) ; -- Add a line @VPR@(n)=X
+"RTN","VPRDLRO",133,0)
+ S VPRI=$G(VPRI)+1
+"RTN","VPRDLRO",134,0)
+ S @VPR@(VPRI)=X
+"RTN","VPRDLRO",135,0)
+ Q
+"RTN","VPRDMC")
+0^33^B58353015^B58328454
+"RTN","VPRDMC",1,0)
+VPRDMC ;SLC/MKB -- Clinical Procedures (Medicine) ;3/14/12 09:03
+"RTN","VPRDMC",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**1,2**;Sep 01, 2011;Build 317
+"RTN","VPRDMC",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDMC",4,0)
+ ;
+"RTN","VPRDMC",5,0)
+ ; External References DBIA#
+"RTN","VPRDMC",6,0)
+ ; ------------------- -----
+"RTN","VPRDMC",7,0)
+ ; ^SC 10040
+"RTN","VPRDMC",8,0)
+ ; ^TIU(8925.1 5677
+"RTN","VPRDMC",9,0)
+ ; ^VA(200 10060
+"RTN","VPRDMC",10,0)
+ ; %DT 10003
+"RTN","VPRDMC",11,0)
+ ; DILFD 2055
+"RTN","VPRDMC",12,0)
+ ; DIQ 2056
+"RTN","VPRDMC",13,0)
+ ; GMRCGUIB 2980
+"RTN","VPRDMC",14,0)
+ ; ICPTCOD 1995
+"RTN","VPRDMC",15,0)
+ ; MCARUTL2 3279
+"RTN","VPRDMC",16,0)
+ ; MCARUTL3 3280
+"RTN","VPRDMC",17,0)
+ ; MDPS1,^TMP("MDHSP"/"MDPTXT" 4230
+"RTN","VPRDMC",18,0)
+ ; TIULQ 2693
+"RTN","VPRDMC",19,0)
+ ; TIUSRVLO 2834
+"RTN","VPRDMC",20,0)
+ ; XUAF4 2171
+"RTN","VPRDMC",21,0)
+ ;
+"RTN","VPRDMC",22,0)
+ ; ------------ Get procedures from VistA ------------
+"RTN","VPRDMC",23,0)
+ ;
+"RTN","VPRDMC",24,0)
+EN(DFN,BEG,END,MAX,ID) ; -- find patient's procedures
+"RTN","VPRDMC",25,0)
+ N VPRITM,RES,VPRN,VPRX,RTN,DATE,CONS,TIUN,X0,DA,GBL,X,Y,%DT,VPRT,LT,NT,LOC
+"RTN","VPRDMC",26,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999)
+"RTN","VPRDMC",27,0)
+ S DFN=+$G(DFN) Q:DFN<1
+"RTN","VPRDMC",28,0)
+ ;
+"RTN","VPRDMC",29,0)
+ ; get one procedure
+"RTN","VPRDMC",30,0)
+ I $G(ID) D ;reset dates for MDPS1
+"RTN","VPRDMC",31,0)
+ . N VPRMC,IEN,FILE
+"RTN","VPRDMC",32,0)
+ . S IEN=+ID,FILE=+$P(ID,"(",2) Q:FILE=702
+"RTN","VPRDMC",33,0)
+ . D MEDLKUP^MCARUTL3(.VPRMC,FILE,IEN)
+"RTN","VPRDMC",34,0)
+ . S X=$P(VPRMC,U,6) S:X (BEG,END)=X
+"RTN","VPRDMC",35,0)
+ ;
+"RTN","VPRDMC",36,0)
+ ; get all procedures
+"RTN","VPRDMC",37,0)
+ K ^TMP("MDHSP",$J) S RES=""
+"RTN","VPRDMC",38,0)
+ D EN1^MDPS1(RES,DFN,BEG,END,MAX,"",0)
+"RTN","VPRDMC",39,0)
+ S VPRN=0 F S VPRN=$O(^TMP("MDHSP",$J,VPRN)) Q:VPRN<1 S VPRX=$G(^(VPRN)) D
+"RTN","VPRDMC",40,0)
+ . I $G(ID),ID'=+$P(VPRX,U,2) Q ;update one procedure
+"RTN","VPRDMC",41,0)
+ . S RTN=$P(VPRX,U,3,4) Q:RTN="PRPRO^MDPS4" ;skip non-CP items
+"RTN","VPRDMC",42,0)
+ . S X=$P(VPRX,U,6),%DT="TX" D ^%DT S:Y>0 DATE=Y
+"RTN","VPRDMC",43,0)
+ . S GBL=+$P(VPRX,U,2)_";"_$S(RTN="PR702^MDPS1":"MDD(702,",1:$$ROOT(DFN,$P(VPRX,U,11),DATE))
+"RTN","VPRDMC",44,0)
+ . Q:'GBL I $G(ID),ID'=GBL Q ;unknown, or not requested
+"RTN","VPRDMC",45,0)
+ . ;
+"RTN","VPRDMC",46,0)
+ . S CONS=+$P(VPRX,U,13) D:CONS DOCLIST^GMRCGUIB(.VPRD,CONS) S X0=$G(VPRD(0)) ;=^GMR(123,ID,0)
+"RTN","VPRDMC",47,0)
+ . S TIUN=+$P(VPRX,U,14) S:TIUN TIUN=TIUN_U_$$RESOLVE^TIUSRVLO(TIUN)
+"RTN","VPRDMC",48,0)
+A . ;
+"RTN","VPRDMC",49,0)
+ . K VPRITM S VPRITM("id")=GBL,VPRITM("name")=$P(VPRX,U)
+"RTN","VPRDMC",50,0)
+ . S VPRITM("dateTime")=DATE,VPRITM("category")="CP"
+"RTN","VPRDMC",51,0)
+ . S X=$P(VPRX,U,7) S:$L(X) VPRITM("interpretation")=X
+"RTN","VPRDMC",52,0)
+ . I CONS,X0 D
+"RTN","VPRDMC",53,0)
+ .. N VPRJ S VPRITM("consult")=CONS
+"RTN","VPRDMC",54,0)
+ .. S VPRITM("requested")=+X0,VPRITM("order")=+$P(X0,U,3)
+"RTN","VPRDMC",55,0)
+ .. S VPRITM("status")=$$EXTERNAL^DILFD(123,8,,$P(X0,U,12))
+"RTN","VPRDMC",56,0)
+ .. S VPRJ=0 F S VPRJ=$O(VPRD(50,VPRJ)) Q:VPRJ<1 S X=+$G(VPRD(50,VPRJ)) D
+"RTN","VPRDMC",57,0)
+ ... K VPRT D EXTRACT^TIULQ(X,"VPRT",,.01) S LT=$G(VPRT(X,.01,"E"))
+"RTN","VPRDMC",58,0)
+ ... S NT=$$GET1^DIQ(8925.1,+$G(VPRT(X,.01,"I"))_",",1501)
+"RTN","VPRDMC",59,0)
+ ... S VPRITM("document",X)=X_U_LT_U_NT ;ien^local^national title
+"RTN","VPRDMC",60,0)
+ ... S:$G(VPRTEXT) VPRITM("document",X,"content")=$$TEXT^VPRDTIU(X)
+"RTN","VPRDMC",61,0)
+ ... S:'TIUN TIUN=X ;get supporting fields
+"RTN","VPRDMC",62,0)
+B . ;
+"RTN","VPRDMC",63,0)
+ . I TIUN D
+"RTN","VPRDMC",64,0)
+ .. S X=$P(TIUN,U,5) S:X VPRITM("provider")=+X_U_$P(X,";",3)
+"RTN","VPRDMC",65,0)
+ .. S:$P(TIUN,U,11) VPRITM("hasImages")=1
+"RTN","VPRDMC",66,0)
+ .. K VPRT D EXTRACT^TIULQ(+TIUN,"VPRT",,".03;.05;1211",,,"I")
+"RTN","VPRDMC",67,0)
+ .. S VPRITM("encounter")=+$G(VPRT(+TIUN,.03,"I"))
+"RTN","VPRDMC",68,0)
+ .. S LOC=+$G(VPRT(+TIUN,1211,"I")) I LOC S LOC=LOC_U_$P($G(^SC(LOC,0)),U)
+"RTN","VPRDMC",69,0)
+ .. E S X=$P(TIUN,U,6) S:$L(X) LOC=+$O(^SC("B",X,0))_U_X
+"RTN","VPRDMC",70,0)
+ .. S:LOC VPRITM("location")=LOC,VPRITM("facility")=$$FAC^VPRD(+LOC)
+"RTN","VPRDMC",71,0)
+ .. I '$D(VPRITM("status")) S X=+$G(VPRT(+TIUN,.05,"I")),VPRITM("status")=$S(X<6:"PARTIAL RESULTS",1:"COMPLETE")
+"RTN","VPRDMC",72,0)
+ .. I '$G(VPRITM("document",+TIUN)) D
+"RTN","VPRDMC",73,0)
+ ... K VPRT D EXTRACT^TIULQ(+TIUN,"VPRT",,.01,,,"I")
+"RTN","VPRDMC",74,0)
+ ... S NT=$$GET1^DIQ(8925.1,+$G(VPRT(+TIUN,.01,"I"))_",",1501)
+"RTN","VPRDMC",75,0)
+ ... S VPRITM("document",+TIUN)=$P(TIUN,U,1,2)_U_NT ;ien^local^national title
+"RTN","VPRDMC",76,0)
+ ... S:$G(VPRTEXT) VPRITM("document",+TIUN,"content")=$$TEXT^VPRDTIU(+TIUN)
+"RTN","VPRDMC",77,0)
+C . ;
+"RTN","VPRDMC",78,0)
+ . ; if no consult or note/visit ...
+"RTN","VPRDMC",79,0)
+ . I '$D(VPRITM("facility")) S X=$P(X0,U,21),VPRITM("facility")=$S(X:$$STA^XUAF4(X)_U_$P($$NS^XUAF4(X),U),1:$$FAC^VPRD)
+"RTN","VPRDMC",80,0)
+ . I '$D(VPRITM("status")) S VPRITM("status")="COMPLETE"
+"RTN","VPRDMC",81,0)
+ . ;I DA D ;get CPT code from #697.2
+"RTN","VPRDMC",82,0)
+ . ;. K VPRT D GETS^DIQ(697.2,DA_",","1000*",,"VPRT")
+"RTN","VPRDMC",83,0)
+ . ;. N IENS S IENS=$O(VPRT(697.21,"")) Q:IENS=""
+"RTN","VPRDMC",84,0)
+ . ;. S X=VPRT(697.21,IENS,.01),VPRITM("type")=$$CPT(X)
+"RTN","VPRDMC",85,0)
+ . ;
+"RTN","VPRDMC",86,0)
+ . D XML(.VPRITM)
+"RTN","VPRDMC",87,0)
+ENQ ;
+"RTN","VPRDMC",88,0)
+ K ^TMP("MDHSP",$J),^TMP("VPRTEXT",$J)
+"RTN","VPRDMC",89,0)
+ Q
+"RTN","VPRDMC",90,0)
+ ;
+"RTN","VPRDMC",91,0)
+ROOT(DFN,NAME,DATE) ; -- return vptr ID for procedure instance
+"RTN","VPRDMC",92,0)
+ N VPRMC,Y
+"RTN","VPRDMC",93,0)
+ D SUB^MCARUTL2(.VPRMC,DFN,NAME,DATE,DATE)
+"RTN","VPRDMC",94,0)
+ S Y=$S(+$G(VPRMC):$P($G(VPRMC(VPRMC)),U,4)_",",1:"")
+"RTN","VPRDMC",95,0)
+ Q Y
+"RTN","VPRDMC",96,0)
+ ;
+"RTN","VPRDMC",97,0)
+CPT(IEN) ; -- return code^description for CPT code, or "^" if error
+"RTN","VPRDMC",98,0)
+ N X0,VPRX,N,I,X,Y S IEN=+$G(IEN)
+"RTN","VPRDMC",99,0)
+ S X0=$$CPT^ICPTCOD(IEN) I X0<0 Q "^"
+"RTN","VPRDMC",100,0)
+ S Y=$P(X0,U,2,3) ;CPT Code^Short Name
+"RTN","VPRDMC",101,0)
+ S N=$$CPTD^ICPTCOD($P(Y,U),"VPRX") ;CPT Description
+"RTN","VPRDMC",102,0)
+ I N>0,$L($G(VPRX(1))) D
+"RTN","VPRDMC",103,0)
+ . S X=$G(VPRX(1)),I=1
+"RTN","VPRDMC",104,0)
+ . F S I=$O(VPRX(I)) Q:I<1 Q:VPRX(I)=" " S X=X_" "_VPRX(I)
+"RTN","VPRDMC",105,0)
+ . S $P(Y,U,2)=X
+"RTN","VPRDMC",106,0)
+ Q Y
+"RTN","VPRDMC",107,0)
+ ;
+"RTN","VPRDMC",108,0)
+ ; ------------ Get report(s) [via VPRDTIU] ------------
+"RTN","VPRDMC",109,0)
+ ;
+"RTN","VPRDMC",110,0)
+RPTS(DFN,BEG,END,MAX) ; -- find patient's medicine reports
+"RTN","VPRDMC",111,0)
+ N VPRITM,VPRN,VPRX,RTN,TIUN,CONS,VPRD,I,DA,X,Y,%DT,DATE,GBL,RES
+"RTN","VPRDMC",112,0)
+ S DFN=+$G(DFN) Q:$G(DFN)<1
+"RTN","VPRDMC",113,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999),RES=""
+"RTN","VPRDMC",114,0)
+ K ^TMP("MDHSP",$J) D EN1^MDPS1(RES,DFN,BEG,END,MAX,"",0)
+"RTN","VPRDMC",115,0)
+ S VPRN=0 F S VPRN=$O(^TMP("MDHSP",$J,VPRN)) Q:VPRN<1 S VPRX=$G(^(VPRN)) D
+"RTN","VPRDMC",116,0)
+ . S RTN=$P(VPRX,U,3,4) ;Q:RTN="PRPRO^MDPS4" ;skip non-CP items
+"RTN","VPRDMC",117,0)
+ . S TIUN=+$P(VPRX,U,14) K VPRITM
+"RTN","VPRDMC",118,0)
+ . I TIUN D EN1^VPRDTIU(TIUN,.VPRITM),XML^VPRDTIU(.VPRITM):$D(VPRITM)
+"RTN","VPRDMC",119,0)
+ . S CONS=+$P(VPRX,U,13) D:CONS DOCLIST^GMRCGUIB(.VPRD,CONS)
+"RTN","VPRDMC",120,0)
+ . S I=0 F S I=$O(VPRD(50,I)) Q:I<1 D
+"RTN","VPRDMC",121,0)
+ .. K VPRITM S DA=+VPRD(50,I) Q:DA=TIUN
+"RTN","VPRDMC",122,0)
+ .. D EN1^VPRDTIU(DA,.VPRITM),XML^VPRDTIU(.VPRITM):$D(VPRITM)
+"RTN","VPRDMC",123,0)
+ . Q:TIUN!$G(DA) ;done [got TIU note(s)]
+"RTN","VPRDMC",124,0)
+ . Q:RTN="PR702^MDPS1" ;CP, but no TIU note yet
+"RTN","VPRDMC",125,0)
+ . Q:RTN="PRPRO^MDPS4" ;non-CP procedure
+"RTN","VPRDMC",126,0)
+ . ; find ID for pre-TIU report
+"RTN","VPRDMC",127,0)
+ . S X=$P(VPRX,U,6),%DT="TX" D ^%DT S:Y>0 DATE=Y
+"RTN","VPRDMC",128,0)
+ . S GBL=+$P(VPRX,U,2)_";"_$$ROOT(DFN,$P(VPRX,U,11),DATE)
+"RTN","VPRDMC",129,0)
+ . I GBL D RPT1(DFN,GBL,.VPRITM),XML^VPRDTIU(.VPRITM):$D(VPRITM)
+"RTN","VPRDMC",130,0)
+ K ^TMP("MDHSP",$J),^TMP("VPRTEXT",$J)
+"RTN","VPRDMC",131,0)
+ Q
+"RTN","VPRDMC",132,0)
+ ;
+"RTN","VPRDMC",133,0)
+RPT1(DFN,ID,RPT) ; -- return report as a TIU document
+"RTN","VPRDMC",134,0)
+ S DFN=+$G(DFN),ID=$G(ID) Q:DFN<1 Q:'$L(ID)
+"RTN","VPRDMC",135,0)
+ N VPRY,VPRFN,X
+"RTN","VPRDMC",136,0)
+ S VPRFN=+$P(ID,"(",2)
+"RTN","VPRDMC",137,0)
+ D MEDLKUP^MCARUTL3(.VPRY,VPRFN,+ID)
+"RTN","VPRDMC",138,0)
+ S RPT("id")=ID,RPT("referenceDateTime")=$P(VPRY,U,6)
+"RTN","VPRDMC",139,0)
+ S RPT("localTitle")=$P(VPRY,U,9),RPT("category")="CP"
+"RTN","VPRDMC",140,0)
+ S RPT("documentClass")="CLINICAL PROCEDURES"
+"RTN","VPRDMC",141,0)
+ S RPT("nationalTitle")="4696566^PROCEDURE REPORT"
+"RTN","VPRDMC",142,0)
+ S RPT("nationalTitleService")="4696471^PROCEDURE"
+"RTN","VPRDMC",143,0)
+ S RPT("nationalTitleType")="4696123^REPORT"
+"RTN","VPRDMC",144,0)
+ S:$G(FILTER("loinc")) RPT("loinc")=$P(FILTER("loinc"),U)
+"RTN","VPRDMC",145,0)
+ S X=$$GET1^DIQ(VPRFN,+ID_",",1506)
+"RTN","VPRDMC",146,0)
+ S RPT("status")=$S($L(X):X,1:"COMPLETED")
+"RTN","VPRDMC",147,0)
+ S X=+$$GET1^DIQ(VPRFN,+ID_",",701,"I")
+"RTN","VPRDMC",148,0)
+ S:X RPT("clinician",1)=X_U_$P($G(^VA(200,X,0)),U)_"^A"
+"RTN","VPRDMC",149,0)
+ S X=+$$GET1^DIQ(VPRFN,+ID_",",1503,"I")
+"RTN","VPRDMC",150,0)
+ S:X RPT("clinician",2)=X_U_$P($G(^VA(200,X,0)),U)_"^S^"_$$GET1^DIQ(VPRFN,+ID_",",1505,"I")_U_$$SIG^VPRDTIU(X)
+"RTN","VPRDMC",151,0)
+ ; RPT("encounter")=$$GET1^DIQ(VPRFN,+ID_",",900,"I")
+"RTN","VPRDMC",152,0)
+ S RPT("facility")=$$FAC^VPRD
+"RTN","VPRDMC",153,0)
+ S:$G(VPRTEXT) RPT("content")=$$TEXT(DFN,ID,$P(VPRY,U,9))
+"RTN","VPRDMC",154,0)
+ Q
+"RTN","VPRDMC",155,0)
+ ;
+"RTN","VPRDMC",156,0)
+TEXT(DFN,ID,NAME) ; -- Get report text, return temp array name
+"RTN","VPRDMC",157,0)
+ N MCARGDA,MCPRO,MDALL,I,X,Y
+"RTN","VPRDMC",158,0)
+ S MCARGDA=+$G(ID),MCPRO=NAME,MDALL=1 D PR690^MDPS1
+"RTN","VPRDMC",159,0)
+ K ^TMP("VPRTEXT",$J,ID)
+"RTN","VPRDMC",160,0)
+ S I=0 F S I=$O(^TMP("MDPTXT",$J,MCARGDA,MCPRO,I)) Q:I<1 S X=$G(^(I,0)),^TMP("VPRTEXT",$J,ID,I)=X
+"RTN","VPRDMC",161,0)
+ S Y=$NA(^TMP("VPRTEXT",$J,ID))
+"RTN","VPRDMC",162,0)
+ Q Y
+"RTN","VPRDMC",163,0)
+ ;
+"RTN","VPRDMC",164,0)
+ ; ------------ Return data to middle tier ------------
+"RTN","VPRDMC",165,0)
+ ;
+"RTN","VPRDMC",166,0)
+XML(PROC) ; -- Return patient procedure as XML
+"RTN","VPRDMC",167,0)
+ ; as <element code='123' displayName='ABC' />
+"RTN","VPRDMC",168,0)
+ N ATT,X,Y,I,J,NAMES
+"RTN","VPRDMC",169,0)
+ D ADD("<procedure>") S VPRTOTL=$G(VPRTOTL)+1
+"RTN","VPRDMC",170,0)
+ S ATT="" F S ATT=$O(PROC(ATT)) Q:ATT="" D D:$L(Y) ADD(Y)
+"RTN","VPRDMC",171,0)
+ . S NAMES=$S(ATT="document":"id^localTitle^nationalTitle^Z",1:"code^name^Z")
+"RTN","VPRDMC",172,0)
+ . I $O(PROC(ATT,0)) D S Y="" Q ;multiples
+"RTN","VPRDMC",173,0)
+ .. D ADD("<"_ATT_"s>")
+"RTN","VPRDMC",174,0)
+ .. S I=0 F S I=$O(PROC(ATT,I)) Q:I<1 D
+"RTN","VPRDMC",175,0)
+ ... S X=$G(PROC(ATT,I)),Y="<"_ATT_" "_$$LOOP
+"RTN","VPRDMC",176,0)
+ ... S X=$G(PROC(ATT,I,"content")) I '$L(X) S Y=Y_"/>" D ADD(Y) Q
+"RTN","VPRDMC",177,0)
+ ... S Y=Y_">" D ADD(Y)
+"RTN","VPRDMC",178,0)
+ ... S Y="<content xml:space='preserve'>" D ADD(Y)
+"RTN","VPRDMC",179,0)
+ ... S J=0 F S J=$O(@X@(J)) Q:J<1 S Y=$$ESC^VPRD(@X@(J)) D ADD(Y)
+"RTN","VPRDMC",180,0)
+ ... D ADD("</content>"),ADD("</"_ATT_">")
+"RTN","VPRDMC",181,0)
+ .. D ADD("</"_ATT_"s>")
+"RTN","VPRDMC",182,0)
+ . S X=$G(PROC(ATT)),Y="" Q:'$L(X)
+"RTN","VPRDMC",183,0)
+ . I X'["^" S Y="<"_ATT_" value='"_$$ESC^VPRD(X)_"' />" Q
+"RTN","VPRDMC",184,0)
+ . I $L(X)>1 S Y="<"_ATT_" "_$$LOOP_"/>"
+"RTN","VPRDMC",185,0)
+ D ADD("</procedure>")
+"RTN","VPRDMC",186,0)
+ Q
+"RTN","VPRDMC",187,0)
+ ;
+"RTN","VPRDMC",188,0)
+LOOP() ; -- build sub-items string from NAMES and X
+"RTN","VPRDMC",189,0)
+ N STR,P,TAG S STR=""
+"RTN","VPRDMC",190,0)
+ F P=1:1 S TAG=$P(NAMES,U,P) Q:TAG="Z" I $L($P(X,U,P)) S STR=STR_TAG_"='"_$$ESC^VPRD($P(X,U,P))_"' "
+"RTN","VPRDMC",191,0)
+ Q STR
+"RTN","VPRDMC",192,0)
+ ;
+"RTN","VPRDMC",193,0)
+ADD(X) ; Add a line @VPR@(n)=X
+"RTN","VPRDMC",194,0)
+ S VPRI=$G(VPRI)+1
+"RTN","VPRDMC",195,0)
+ S @VPR@(VPRI)=X
+"RTN","VPRDMC",196,0)
+ Q
+"RTN","VPRDMDC")
+0^22^B58663659^B44678829
+"RTN","VPRDMDC",1,0)
+VPRDMDC ;SLC/MKB,DP -- CLiO extract ;8/2/11 15:29
+"RTN","VPRDMDC",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**1,2**;Sep 01, 2011;Build 317
+"RTN","VPRDMDC",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDMDC",4,0)
+ ;
+"RTN","VPRDMDC",5,0)
+ ; External References DBIA#
+"RTN","VPRDMDC",6,0)
+ ; ------------------- -----
+"RTN","VPRDMDC",7,0)
+ ; ^MDC(704.101 5748 (Private)
+"RTN","VPRDMDC",8,0)
+ ; ^MDC(704.102 5809 (Private)
+"RTN","VPRDMDC",9,0)
+ ; ^MDC(704.1122 5999 (Private)
+"RTN","VPRDMDC",10,0)
+ ; ^MDC(704.116 5995 (Private)
+"RTN","VPRDMDC",11,0)
+ ; ^MDC(704.1161 5996 (Private)
+"RTN","VPRDMDC",12,0)
+ ; ^MDC(704.117 5810 (Private)
+"RTN","VPRDMDC",13,0)
+ ; ^MDC(704.118 5811 (Private)
+"RTN","VPRDMDC",14,0)
+ ; DIC 2051
+"RTN","VPRDMDC",15,0)
+ ; DIQ 2056
+"RTN","VPRDMDC",16,0)
+ ; XLFDT 10103
+"RTN","VPRDMDC",17,0)
+ ; XLFSTR 10104
+"RTN","VPRDMDC",18,0)
+ ; XPAR 2263
+"RTN","VPRDMDC",19,0)
+ ;
+"RTN","VPRDMDC",20,0)
+ ; ------------ Get observations from VistA ------------
+"RTN","VPRDMDC",21,0)
+ ;
+"RTN","VPRDMDC",22,0)
+EN(DFN,BEG,END,MAX,ID) ; -- find patient's observations
+"RTN","VPRDMDC",23,0)
+ N VPRCLIO,VPRN,VPRITM,VPRCNT,X
+"RTN","VPRDMDC",24,0)
+ ;
+"RTN","VPRDMDC",25,0)
+ ; get one observation
+"RTN","VPRDMDC",26,0)
+ I $L($G(ID)) D EN1(ID,.VPRITM),XML(.VPRITM) Q
+"RTN","VPRDMDC",27,0)
+ ;
+"RTN","VPRDMDC",28,0)
+ ; get all patient observations
+"RTN","VPRDMDC",29,0)
+ S DFN=+$G(DFN) Q:DFN<1
+"RTN","VPRDMDC",30,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999),VPRCNT=0
+"RTN","VPRDMDC",31,0)
+ ;D QRYPT^MDCLIO1("VPRCLIO",DFN,BEG,END) ;all [verified] observations
+"RTN","VPRDMDC",32,0)
+ D QRYPT("VPRCLIO",DFN,BEG,END) ;all [verified] observations
+"RTN","VPRDMDC",33,0)
+ S VPRN=0 F S VPRN=$O(VPRCLIO(VPRN)) Q:(VPRN<1)!(VPRCNT'<MAX) D
+"RTN","VPRDMDC",34,0)
+ . S ID=$G(VPRCLIO(VPRN)) K VPRITM ;GUID
+"RTN","VPRDMDC",35,0)
+ . D EN1(ID,.VPRITM) Q:'$D(VPRITM)
+"RTN","VPRDMDC",36,0)
+ . D XML(.VPRITM) S VPRCNT=VPRCNT+1
+"RTN","VPRDMDC",37,0)
+ Q
+"RTN","VPRDMDC",38,0)
+ ;
+"RTN","VPRDMDC",39,0)
+EN1(GUID,CLIO) ; -- return an observation in CLIO("attribute")=value
+"RTN","VPRDMDC",40,0)
+ N VPRT,VPRC,LOC,I,X,Y K CLIO
+"RTN","VPRDMDC",41,0)
+ S GUID=$G(GUID) Q:GUID="" ;invalid GUID
+"RTN","VPRDMDC",42,0)
+ ;D QRYOBS^MDCLIO1("VPRC",GUID) Q:'$D(VPRC) ;doesn't exist
+"RTN","VPRDMDC",43,0)
+ D QRYOBS("VPRC",GUID) Q:'$D(VPRC) ;doesn't exist
+"RTN","VPRDMDC",44,0)
+ Q:$L($G(VPRC("PARENT_ID","E"))) ;PARENT also in list
+"RTN","VPRDMDC",45,0)
+ S CLIO("id")=GUID,CLIO("vuid")=$G(VPRC("TERM_ID","I"))
+"RTN","VPRDMDC",46,0)
+ S CLIO("name")=$G(VPRC("TERM_ID","E"))
+"RTN","VPRDMDC",47,0)
+ S CLIO("value")=$G(VPRC("SVALUE","E"))
+"RTN","VPRDMDC",48,0)
+ S CLIO("units")=$G(VPRC("UNIT_ID","ABBV"))
+"RTN","VPRDMDC",49,0)
+ S CLIO("entered")=$G(VPRC("ENTERED_DATE_TIME","I"))
+"RTN","VPRDMDC",50,0)
+ S CLIO("observed")=$G(VPRC("OBSERVED_DATE_TIME","I"))
+"RTN","VPRDMDC",51,0)
+ ;D QRYTYPES^MDCLIO1("VPRT")
+"RTN","VPRDMDC",52,0)
+ D QRYTYPES("VPRT")
+"RTN","VPRDMDC",53,0)
+ F I=3:1:7 S X=$G(VPRT(I,"XML")) Q:I<1 I $L($G(VPRC(X,"E"))) D
+"RTN","VPRDMDC",54,0)
+ . S Y=VPRT(I,"NAME"),Y=$S(Y="LOCATION":"bodySite",1:$$LOW^XLFSTR(Y))
+"RTN","VPRDMDC",55,0)
+ . S CLIO(Y)=VPRC(X,"I")_U_VPRC(X,"E")
+"RTN","VPRDMDC",56,0)
+ S CLIO("range")=$G(VPRC("RANGE","E"))
+"RTN","VPRDMDC",57,0)
+ S CLIO("status")=$G(VPRC("STATUS","E"))
+"RTN","VPRDMDC",58,0)
+ S LOC=$G(VPRC("HOSPITAL_LOCATION_ID","I")),CLIO("facility")=$$FAC^VPRD(LOC)
+"RTN","VPRDMDC",59,0)
+ S CLIO("location")=LOC_U_$G(VPRC("HOSPITAL_LOCATION_ID","E"))
+"RTN","VPRDMDC",60,0)
+ S CLIO("comment")=$G(VPRC("COMMENT","E"))
+"RTN","VPRDMDC",61,0)
+ Q
+"RTN","VPRDMDC",62,0)
+ ;
+"RTN","VPRDMDC",63,0)
+ ; ------------ Return data to middle tier ------------
+"RTN","VPRDMDC",64,0)
+ ;
+"RTN","VPRDMDC",65,0)
+XML(OBS) ; -- Return observation as XML in @VPR@(#)
+"RTN","VPRDMDC",66,0)
+ N ATT,X,Y,I,J,P,NAMES,TAG
+"RTN","VPRDMDC",67,0)
+ D ADD("<observation>") S VPRTOTL=$G(VPRTOTL)+1
+"RTN","VPRDMDC",68,0)
+ S ATT="" F S ATT=$O(OBS(ATT)) Q:ATT="" D
+"RTN","VPRDMDC",69,0)
+ . S X=$G(OBS(ATT)),Y="" Q:'$L(X)
+"RTN","VPRDMDC",70,0)
+ . I X'["^" S Y="<"_ATT_" value='"_$$ESC^VPRD(X)_"' />" D ADD(Y) Q
+"RTN","VPRDMDC",71,0)
+ . I $L(X)>1 D
+"RTN","VPRDMDC",72,0)
+ .. S Y="<"_ATT_" "
+"RTN","VPRDMDC",73,0)
+ .. F P=1:1 S TAG=$P("code^name^Z",U,P) Q:TAG="Z" I $L($P(X,U,P)) S Y=Y_TAG_"='"_$$ESC^VPRD($P(X,U,P))_"' "
+"RTN","VPRDMDC",74,0)
+ .. S Y=Y_"/>" D ADD(Y)
+"RTN","VPRDMDC",75,0)
+ D ADD("</observation>")
+"RTN","VPRDMDC",76,0)
+ Q
+"RTN","VPRDMDC",77,0)
+ ;
+"RTN","VPRDMDC",78,0)
+LOOP() ; -- build sub-items string from NAMES and X
+"RTN","VPRDMDC",79,0)
+ N STR,P,TAG S STR=""
+"RTN","VPRDMDC",80,0)
+ F P=1:1 S TAG=$P(NAMES,U,P) Q:TAG="Z" I $L($P(X,U,P)) S STR=STR_TAG_"='"_$$ESC^VPRD($P(X,U,P))_"' "
+"RTN","VPRDMDC",81,0)
+ Q STR
+"RTN","VPRDMDC",82,0)
+ ;
+"RTN","VPRDMDC",83,0)
+ADD(X) ; Add a line @VPR@(n)=X
+"RTN","VPRDMDC",84,0)
+ S VPRI=$G(VPRI)+1
+"RTN","VPRDMDC",85,0)
+ S @VPR@(VPRI)=X
+"RTN","VPRDMDC",86,0)
+ Q
+"RTN","VPRDMDC",87,0)
+ ;
+"RTN","VPRDMDC",88,0)
+ ; -- CliO specific code accessing the ^MDC( global for data
+"RTN","VPRDMDC",89,0)
+ ;
+"RTN","VPRDMDC",90,0)
+QRYPT(VPRRET,VPRDFN,VPRFR,VPRTO,VPRSTAT) ; List of observations by pt, datetime, status
+"RTN","VPRDMDC",91,0)
+ K @VPRRET
+"RTN","VPRDMDC",92,0)
+ N VPRDT,VPRIEN
+"RTN","VPRDMDC",93,0)
+ S VPRSTAT=$G(VPRSTAT,1) ; Default to Verified
+"RTN","VPRDMDC",94,0)
+ F VPRDT=VPRFR-.0000001:0 S VPRDT=$O(^MDC(704.117,"AS",VPRSTAT,VPRDFN,VPRDT)) Q:'VPRDT!(VPRDT>VPRTO) D
+"RTN","VPRDMDC",95,0)
+ . F VPRIEN=0:0 S VPRIEN=$O(^MDC(704.117,"AS",VPRSTAT,VPRDFN,VPRDT,VPRIEN)) Q:'VPRIEN D
+"RTN","VPRDMDC",96,0)
+ . . S:$P(^MDC(704.117,VPRIEN,0),U,9)=VPRSTAT @VPRRET@(VPRIEN)=$P(^MDC(704.117,VPRIEN,0),U)
+"RTN","VPRDMDC",97,0)
+ Q
+"RTN","VPRDMDC",98,0)
+ ;
+"RTN","VPRDMDC",99,0)
+QRYOBS(VPRRET,VPRID) ; Return a single observation
+"RTN","VPRDMDC",100,0)
+ K @VPRRET
+"RTN","VPRDMDC",101,0)
+ N VPRTMP,VPRIEN
+"RTN","VPRDMDC",102,0)
+ S VPRIEN=$$FIND1^DIC(704.117,"","PKX",VPRID,"PK")
+"RTN","VPRDMDC",103,0)
+ I VPRIEN<1 S @VPRRET@(0)="-1^No such observation '"_VPRID_"'" Q
+"RTN","VPRDMDC",104,0)
+ D GETS^DIQ(704.117,VPRIEN_",","*","EIR","VPRTMP")
+"RTN","VPRDMDC",105,0)
+ M @VPRRET=VPRTMP(704.117,VPRIEN_",") K VPRTMP
+"RTN","VPRDMDC",106,0)
+ S @VPRRET@("TERM_ID","I")=$$GET1^DIQ(704.117,VPRIEN_",",".07:99.99")
+"RTN","VPRDMDC",107,0)
+ S @VPRRET@("TERM_ID","E")=$$GET1^DIQ(704.117,VPRIEN_",",".07:.02")
+"RTN","VPRDMDC",108,0)
+ S @VPRRET@("TERM_ID","GUID")=$$GET1^DIQ(704.117,VPRIEN_",",".07")
+"RTN","VPRDMDC",109,0)
+ S @VPRRET@("TERM_ID","ABBV")=$$GET1^DIQ(704.117,VPRIEN_",",".07:.03")
+"RTN","VPRDMDC",110,0)
+ D:$$GET1^DIQ(704.117,VPRIEN_",",".07:.06","I")=3 ; Coded data values
+"RTN","VPRDMDC",111,0)
+ . S VPRTMP=$$FIND1^DIC(704.101,"","PKX", at VPRRET@("SVALUE","I"),"PK")
+"RTN","VPRDMDC",112,0)
+ . S @VPRRET@("SVALUE","E")=$$GET1^DIQ(704.101,VPRTMP_",",.02)
+"RTN","VPRDMDC",113,0)
+ D QRYQUAL(VPRRET,VPRIEN)
+"RTN","VPRDMDC",114,0)
+ D QRYCTX($NA(@VPRRET@("CONTEXT")),VPRID)
+"RTN","VPRDMDC",115,0)
+ D QRYSET(VPRRET,VPRIEN)
+"RTN","VPRDMDC",116,0)
+ Q
+"RTN","VPRDMDC",117,0)
+ ;
+"RTN","VPRDMDC",118,0)
+QRYQUAL(VPRRET,VPRIEN) ; Returns the qualifiers for obs in VPRIEN
+"RTN","VPRDMDC",119,0)
+ ; We do NOT want to kill VPRRET here because it points at the parent node of the return
+"RTN","VPRDMDC",120,0)
+ N VPRQUAL
+"RTN","VPRDMDC",121,0)
+ F Y=0:0 S Y=$O(^MDC(704.118,"PK",VPRIEN,Y)) Q:'Y D
+"RTN","VPRDMDC",122,0)
+ . S VPRQUAL=$$GET1^DIQ(704.101,Y_",",".05:.02")
+"RTN","VPRDMDC",123,0)
+ . S @VPRRET@(VPRQUAL,"I")=$$GET1^DIQ(704.101,Y_",","99.99")
+"RTN","VPRDMDC",124,0)
+ . S @VPRRET@(VPRQUAL,"E")=$$GET1^DIQ(704.101,Y_",",".02")
+"RTN","VPRDMDC",125,0)
+ . S @VPRRET@(VPRQUAL,"GUID")=$$GET1^DIQ(704.101,Y_",",".01")
+"RTN","VPRDMDC",126,0)
+ . S @VPRRET@(VPRQUAL,"ABBV")=$$GET1^DIQ(704.101,Y_",",".03")
+"RTN","VPRDMDC",127,0)
+ Q
+"RTN","VPRDMDC",128,0)
+ ;
+"RTN","VPRDMDC",129,0)
+QRYCTX(VPRRET,VPRID) ; We need a terminology based context observation relationship here
+"RTN","VPRDMDC",130,0)
+ N VPRIEN,VPRCTX,VPRDT,VPRFR,VPRTO,VPRDFN,VPRTERM,VPRCNT,VPRXID,VPROBS
+"RTN","VPRDMDC",131,0)
+ S VPRIEN=+$$FIND1^DIC(704.117,"","PKX",VPRID,"PK") Q:VPRIEN<1
+"RTN","VPRDMDC",132,0)
+ S VPRCTX=$$GET1^DIQ(704.117,VPRIEN_",",.07) ; GET THE PRIMARY TERM (GUID)
+"RTN","VPRDMDC",133,0)
+ ; FILTER OUT EVERYTHING BUT SpO2 for now
+"RTN","VPRDMDC",134,0)
+ Q:VPRCTX'="{5F84DD55-3CCF-094C-2536-B51EB7FAD999}"
+"RTN","VPRDMDC",135,0)
+ S VPRDFN=+$$GET1^DIQ(704.117,VPRIEN_",",.08,"I") ; GET THE PATIENT
+"RTN","VPRDMDC",136,0)
+ S VPRDT=+$$GET1^DIQ(704.117,VPRIEN_",",.05,"I") ; GET THE OBS DATE
+"RTN","VPRDMDC",137,0)
+ S VPRFR=$$FMADD^XLFDT(VPRDT,0,0,0,-30) ; PREVIOUS 30 SECONDS
+"RTN","VPRDMDC",138,0)
+ S VPRTO=$$FMADD^XLFDT(VPRDT,0,0,0,30) ; NEXT 30 SECONDS
+"RTN","VPRDMDC",139,0)
+ ; Now we find the context observations
+"RTN","VPRDMDC",140,0)
+ F VPRDT=VPRFR:0 S VPRDT=$O(^MDC(704.117,"PT",VPRDFN,VPRDT)) Q:'VPRDT!(VPRDT>VPRTO) D
+"RTN","VPRDMDC",141,0)
+ . F VPROBS=0:0 S VPROBS=$O(^MDC(704.117,"PT",VPRDFN,VPRDT,VPROBS)) Q:'VPROBS D
+"RTN","VPRDMDC",142,0)
+ . . Q:$$GET1^DIQ(704.117,VPROBS_",",.09,"I")'=1 ; Verfied Only
+"RTN","VPRDMDC",143,0)
+ . . S VPRXID=$$GET1^DIQ(704.117,VPROBS_",",.01)
+"RTN","VPRDMDC",144,0)
+ . . Q:VPRXID=VPRID ; You should ignore yourself in this loop
+"RTN","VPRDMDC",145,0)
+ . . S VPRTERM=$$GET1^DIQ(704.117,VPROBS_",",".07")
+"RTN","VPRDMDC",146,0)
+ . . ; INSERT FILTER CODE FOR O2 Flowrate and Concentration here - In the future we will find all context terms for an observation in terminology
+"RTN","VPRDMDC",147,0)
+ . . Q:(VPRTERM'="{56F82CAC-3564-46CE-A520-1025020DADE9}")&(VPRTERM'="{3BB314E8-9BBB-480E-B34E-B56EDE43BAC4}")
+"RTN","VPRDMDC",148,0)
+ . . S VPRCNT=$O(@VPRRET@(""),-1)+1, at VPRRET@(0)=VPRCNT
+"RTN","VPRDMDC",149,0)
+ . . S @VPRRET@(VPRCNT,"OBS_ID","I")=VPRXID
+"RTN","VPRDMDC",150,0)
+ . . S @VPRRET@(VPRCNT,"OBS_ID","E")=VPRXID
+"RTN","VPRDMDC",151,0)
+ . . S @VPRRET@(VPRCNT,"TERM_ID","I")=$$GET1^DIQ(704.117,VPROBS_",",".07:99.99")
+"RTN","VPRDMDC",152,0)
+ . . S @VPRRET@(VPRCNT,"TERM_ID","E")=$$GET1^DIQ(704.117,VPROBS_",",".07:.02")
+"RTN","VPRDMDC",153,0)
+ . . S @VPRRET@(VPRCNT,"SVALUE","I")=$$GET1^DIQ(704.117,VPROBS_",",".1","I")
+"RTN","VPRDMDC",154,0)
+ . . S @VPRRET@(VPRCNT,"SVALUE","E")=$$GET1^DIQ(704.117,VPROBS_",",".1","E")
+"RTN","VPRDMDC",155,0)
+ . . D QRYQUAL($NA(@VPRRET@(VPRCNT)),VPROBS)
+"RTN","VPRDMDC",156,0)
+ Q
+"RTN","VPRDMDC",157,0)
+ ;
+"RTN","VPRDMDC",158,0)
+QRYSET(VPRRET,VPRIEN) ; Return the Obs Set/View information
+"RTN","VPRDMDC",159,0)
+ N VPRDFN,VPRSET,VPRDT,VPRPG,VPRVW,X
+"RTN","VPRDMDC",160,0)
+ S VPRDFN=+$G(@VPRRET@("PATIENT_ID","I"))
+"RTN","VPRDMDC",161,0)
+ S VPRSET=+$O(^MDC(704.1161,"AS",VPRIEN,0)) Q:VPRSET<1 ;not part of set
+"RTN","VPRDMDC",162,0)
+ S @VPRRET@("SET_ID","GUID")=$$GET1^DIQ(704.116,VPRSET_",",".01")
+"RTN","VPRDMDC",163,0)
+ S VPRDT=$$GET1^DIQ(704.116,VPRSET_",",".02","I")
+"RTN","VPRDMDC",164,0)
+ ; loop backwards to find supplemental page for Obs_Set
+"RTN","VPRDMDC",165,0)
+ F S VPRDT=$O(^MDC(704.1122,"ADT",VPRDFN,VPRDT),-1) Q:VPRDT<1 D Q:VPRPG ;found
+"RTN","VPRDMDC",166,0)
+ . S VPRPG=+$O(^MDC(704.1122,"ADT",VPRDFN,VPRDT,0))
+"RTN","VPRDMDC",167,0)
+ . I $P($G(^MDC(704.1122,VPRPG,0)),U,10)'=VPRSET S VPRPG="" Q
+"RTN","VPRDMDC",168,0)
+ . S @VPRRET@("SUPP_PAGE","GUID")=$$GET1^DIQ(704.1122,VPRPG_",",".01")
+"RTN","VPRDMDC",169,0)
+ . S @VPRRET@("SUPP_PAGE","DISPLAY_NAME")=$$GET1^DIQ(704.1122,VPRPG_",",".08")
+"RTN","VPRDMDC",170,0)
+ . S @VPRRET@("SUPP_PAGE","ACTIVATED_DATE_TIME")=$$GET1^DIQ(704.1122,VPRPG_",",".11","I")
+"RTN","VPRDMDC",171,0)
+ . S @VPRRET@("SUPP_PAGE","DEACTIVATED_DATE_TIME")=$$GET1^DIQ(704.1122,VPRPG_",",".21","I")
+"RTN","VPRDMDC",172,0)
+ . S VPRVW=$$GET1^DIQ(704.1122,VPRPG_",",".02"),X=$$GET^XPAR("ALL","VPR OBS VIEW TYPE",VPRVW,"E")
+"RTN","VPRDMDC",173,0)
+ . I $L(X) S @VPRRET@("SUPP_PAGE","TYPE")=X
+"RTN","VPRDMDC",174,0)
+ Q
+"RTN","VPRDMDC",175,0)
+ ;
+"RTN","VPRDMDC",176,0)
+QRYTYPES(VPRRET) ; Return the terminology Term Types
+"RTN","VPRDMDC",177,0)
+ K @VPRRET
+"RTN","VPRDMDC",178,0)
+ N X
+"RTN","VPRDMDC",179,0)
+ F X=0:0 S X=$O(^MDC(704.102,X)) Q:'X D
+"RTN","VPRDMDC",180,0)
+ . S @VPRRET@(X,"NAME")=$P(^MDC(704.102,X,0),U,1)
+"RTN","VPRDMDC",181,0)
+ . S @VPRRET@(X,"XML")=$P(^MDC(704.102,X,0),U,2)
+"RTN","VPRDMDC",182,0)
+ . S @VPRRET@("B",$P(^MDC(704.102,X,0),U,1),X)=""
+"RTN","VPRDMDC",183,0)
+ Q
+"RTN","VPRDPXIM")
+0^37^B15866293^B15857859
+"RTN","VPRDPXIM",1,0)
+VPRDPXIM ;SLC/MKB -- Immunizations extract ;8/2/11 15:29
+"RTN","VPRDPXIM",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRDPXIM",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDPXIM",4,0)
+ ;
+"RTN","VPRDPXIM",5,0)
+ ; External References DBIA#
+"RTN","VPRDPXIM",6,0)
+ ; ------------------- -----
+"RTN","VPRDPXIM",7,0)
+ ; ^PXRMINDX 4290
+"RTN","VPRDPXIM",8,0)
+ ; ^SC 10040
+"RTN","VPRDPXIM",9,0)
+ ; ^VA(200 10060
+"RTN","VPRDPXIM",10,0)
+ ; DILFD 2055
+"RTN","VPRDPXIM",11,0)
+ ; DIQ 2056
+"RTN","VPRDPXIM",12,0)
+ ; PXAPI 1894
+"RTN","VPRDPXIM",13,0)
+ ; PXPXRM 4250
+"RTN","VPRDPXIM",14,0)
+ ; XUAF4 2171
+"RTN","VPRDPXIM",15,0)
+ ;
+"RTN","VPRDPXIM",16,0)
+ ; ------------ Get immunizations from VistA ------------
+"RTN","VPRDPXIM",17,0)
+ ;
+"RTN","VPRDPXIM",18,0)
+EN(DFN,BEG,END,MAX,IFN) ; -- find patient's immunizations
+"RTN","VPRDPXIM",19,0)
+ S DFN=+$G(DFN) Q:DFN<1 ;invalid patient
+"RTN","VPRDPXIM",20,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999),VPRCNT=0
+"RTN","VPRDPXIM",21,0)
+ N VPRIDT,VPRN,VPRITM,VPRCNT
+"RTN","VPRDPXIM",22,0)
+ ;
+"RTN","VPRDPXIM",23,0)
+ ; get one immunization
+"RTN","VPRDPXIM",24,0)
+ I $G(IFN) D Q
+"RTN","VPRDPXIM",25,0)
+ . N IMZ,DATE K ^TMP("VPRIMM",$J)
+"RTN","VPRDPXIM",26,0)
+ . S IMZ=0 F S IMZ=$O(^PXRMINDX(9000010.11,"PI",+$G(DFN),IMZ)) Q:IMZ<1 D Q:$D(VPRITM)
+"RTN","VPRDPXIM",27,0)
+ .. S DATE=0 F S DATE=$O(^PXRMINDX(9000010.11,"PI",+$G(DFN),IMZ,DATE)) Q:DATE<1 I $D(^(DATE,IFN)) D Q
+"RTN","VPRDPXIM",28,0)
+ ... S VPRIDT=9999999-DATE,VPRN=IFN
+"RTN","VPRDPXIM",29,0)
+ ... S ^TMP("VPRIMM",$J,VPRIDT,IFN)=IMZ_U_DATE ;SORT node
+"RTN","VPRDPXIM",30,0)
+ ... D EN1(IFN,.VPRITM),XML(.VPRITM)
+"RTN","VPRDPXIM",31,0)
+ . K ^TMP("VPRIMM",$J),^TMP("PXKENC",$J)
+"RTN","VPRDPXIM",32,0)
+ ;
+"RTN","VPRDPXIM",33,0)
+ ; get all immunizations
+"RTN","VPRDPXIM",34,0)
+ D SORT(DFN,BEG,END) S VPRCNT=0
+"RTN","VPRDPXIM",35,0)
+ S VPRIDT=0 F S VPRIDT=$O(^TMP("VPRIMM",$J,VPRIDT)) Q:VPRIDT<1 D Q:VPRCNT'<MAX
+"RTN","VPRDPXIM",36,0)
+ . S VPRN=0 F S VPRN=$O(^TMP("VPRIMM",$J,VPRIDT,VPRN)) Q:VPRN<1 D Q:VPRCNT'<MAX
+"RTN","VPRDPXIM",37,0)
+ .. K VPRITM D EN1(VPRN,.VPRITM) Q:'$D(VPRITM)
+"RTN","VPRDPXIM",38,0)
+ .. D XML(.VPRITM) S VPRCNT=VPRCNT+1
+"RTN","VPRDPXIM",39,0)
+ K ^TMP("VPRIMM",$J),^TMP("PXKENC",$J)
+"RTN","VPRDPXIM",40,0)
+ Q
+"RTN","VPRDPXIM",41,0)
+ ;
+"RTN","VPRDPXIM",42,0)
+SORT(DFN,START,STOP) ; -- build ^TMP("VPRIMM",$J,9999999-DATE,DA)=IMM^DATE in range
+"RTN","VPRDPXIM",43,0)
+ ; from ^PXRMINDX(9000010.11,"PI",DFN,IMM,DATE,DA)
+"RTN","VPRDPXIM",44,0)
+ N IMZ,DATE,DA,IDT K ^TMP("VPRIMM",$J)
+"RTN","VPRDPXIM",45,0)
+ S IMZ=0 F S IMZ=$O(^PXRMINDX(9000010.11,"PI",+$G(DFN),IMZ)) Q:IMZ<1 D
+"RTN","VPRDPXIM",46,0)
+ . S DATE=0 F S DATE=$O(^PXRMINDX(9000010.11,"PI",+$G(DFN),IMZ,DATE)) Q:DATE<1 D
+"RTN","VPRDPXIM",47,0)
+ .. Q:DATE<START Q:DATE>STOP S IDT=9999999-DATE
+"RTN","VPRDPXIM",48,0)
+ .. S DA=0 F S DA=$O(^PXRMINDX(9000010.11,"PI",+$G(DFN),IMZ,DATE,DA)) Q:DA<1 S ^TMP("VPRIMM",$J,IDT,DA)=IMZ_U_DATE
+"RTN","VPRDPXIM",49,0)
+ Q
+"RTN","VPRDPXIM",50,0)
+ ;
+"RTN","VPRDPXIM",51,0)
+EN1(IEN,IMM) ; -- return an immunization in IMM("attribute")=value
+"RTN","VPRDPXIM",52,0)
+ ; Expects ^TMP("VPRIMM",$J,VPRIDT,VPRN)=IMM^DATE from EN/SORT
+"RTN","VPRDPXIM",53,0)
+ N TMP,VPRM,VISIT,X0,FAC,LOC,X12,X,I K IMM
+"RTN","VPRDPXIM",54,0)
+ S TMP=$G(^TMP("VPRIMM",$J,VPRIDT,VPRN))
+"RTN","VPRDPXIM",55,0)
+ S IMM("id")=IEN,IMM("administered")=+$P(TMP,U,2)
+"RTN","VPRDPXIM",56,0)
+ S IMM("name")=$$EXTERNAL^DILFD(9000010.11,.01,,+TMP)
+"RTN","VPRDPXIM",57,0)
+ D VIMM^PXPXRM(IEN,.VPRM)
+"RTN","VPRDPXIM",58,0)
+ S X=$G(VPRM("SERIES")),IMM("series")=$$EXTERNAL^DILFD(9000010.11,.04,,X)
+"RTN","VPRDPXIM",59,0)
+ S X=$G(VPRM("REACTION")),IMM("reaction")=$$EXTERNAL^DILFD(9000010.11,.06,,X)
+"RTN","VPRDPXIM",60,0)
+ S IMM("contraindicated")=+$G(VPRM("CONTRAINDICATED"))
+"RTN","VPRDPXIM",61,0)
+ S IMM("comment")=$G(VPRM("COMMENTS"))
+"RTN","VPRDPXIM",62,0)
+ S VISIT=+$G(VPRM("VISIT")),IMM("encounter")=VISIT
+"RTN","VPRDPXIM",63,0)
+ I '$D(^TMP("PXKENC",$J,VISIT)) D ENCEVENT^PXAPI(VISIT,1)
+"RTN","VPRDPXIM",64,0)
+ S X0=$G(^TMP("PXKENC",$J,VISIT,"VST",VISIT,0))
+"RTN","VPRDPXIM",65,0)
+ S FAC=+$P(X0,U,6),LOC=+$P(X0,U,22)
+"RTN","VPRDPXIM",66,0)
+ S:FAC IMM("facility")=$$STA^XUAF4(FAC)_U_$P($$NS^XUAF4(FAC),U)
+"RTN","VPRDPXIM",67,0)
+ S:'FAC IMM("facility")=$$FAC^VPRD(LOC)
+"RTN","VPRDPXIM",68,0)
+ S IMM("location")=$P($G(^SC(LOC,0)),U)
+"RTN","VPRDPXIM",69,0)
+ S X12=$G(^TMP("PXKENC",$J,VISIT,"IMM",IEN,12))
+"RTN","VPRDPXIM",70,0)
+ S X=$P(X12,U,4) S:'X X=$P(X12,U,2)
+"RTN","VPRDPXIM",71,0)
+ I 'X S I=0 F S I=$O(^TMP("PXKENC",$J,VISIT,"PRV",I)) Q:I<1 I $P($G(^(I,0)),U,4)="P" S X=+^(0) Q
+"RTN","VPRDPXIM",72,0)
+ S:X IMM("provider")=X_U_$P($G(^VA(200,X,0)),U)
+"RTN","VPRDPXIM",73,0)
+ ; CPT mapping
+"RTN","VPRDPXIM",74,0)
+ S X=+$$FIND1^DIC(811.1,,"QX",+TMP_";AUTTIMM(","B") I X>0 D
+"RTN","VPRDPXIM",75,0)
+ . S Y=$$GET1^DIQ(811.1,X_",",.02,"I") Q:Y<1
+"RTN","VPRDPXIM",76,0)
+ . N CPT S CPT=$G(@(U_$P(Y,";",2)_+Y_",0)"))
+"RTN","VPRDPXIM",77,0)
+ . S IMM("cpt")=$P(CPT,U,1,2)
+"RTN","VPRDPXIM",78,0)
+ Q
+"RTN","VPRDPXIM",79,0)
+ ;
+"RTN","VPRDPXIM",80,0)
+ ; ------------ Return data to middle tier ------------
+"RTN","VPRDPXIM",81,0)
+ ;
+"RTN","VPRDPXIM",82,0)
+XML(IMM) ; -- Return immunizations as XML
+"RTN","VPRDPXIM",83,0)
+ N ATT,X,Y,I,P,NAMES,TAG
+"RTN","VPRDPXIM",84,0)
+ D ADD("<immunization>") S VPRTOTL=$G(VPRTOTL)+1
+"RTN","VPRDPXIM",85,0)
+ S ATT="" F S ATT=$O(IMM(ATT)) Q:ATT="" D
+"RTN","VPRDPXIM",86,0)
+ . S X=$G(IMM(ATT)),Y="" Q:'$L(X)
+"RTN","VPRDPXIM",87,0)
+ . I X'["^" S Y="<"_ATT_" value='"_$$ESC^VPRD(X)_"' />" D ADD(Y) Q
+"RTN","VPRDPXIM",88,0)
+ . I $L(X)>1 D
+"RTN","VPRDPXIM",89,0)
+ .. S Y="<"_ATT_" "
+"RTN","VPRDPXIM",90,0)
+ .. F P=1:1 S TAG=$P("code^name^Z",U,P) Q:TAG="Z" I $L($P(X,U,P)) S Y=Y_TAG_"='"_$$ESC^VPRD($P(X,U,P))_"' "
+"RTN","VPRDPXIM",91,0)
+ .. S Y=Y_"/>" D ADD(Y)
+"RTN","VPRDPXIM",92,0)
+ D ADD("</immunization>")
+"RTN","VPRDPXIM",93,0)
+ Q
+"RTN","VPRDPXIM",94,0)
+ ;
+"RTN","VPRDPXIM",95,0)
+ADD(X) ; -- Add a line @VPR@(n)=X
+"RTN","VPRDPXIM",96,0)
+ S VPRI=$G(VPRI)+1
+"RTN","VPRDPXIM",97,0)
+ S @VPR@(VPRI)=X
+"RTN","VPRDPXIM",98,0)
+ Q
+"RTN","VPRDTIU")
+0^30^B81103735^B80235055
+"RTN","VPRDTIU",1,0)
+VPRDTIU ;SLC/MKB -- TIU extract ;8/2/11 15:29
+"RTN","VPRDTIU",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**1,2**;Sep 01, 2011;Build 317
+"RTN","VPRDTIU",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDTIU",4,0)
+ ;
+"RTN","VPRDTIU",5,0)
+ ; External References DBIA#
+"RTN","VPRDTIU",6,0)
+ ; ------------------- -----
+"RTN","VPRDTIU",7,0)
+ ; ^SC( 10040
+"RTN","VPRDTIU",8,0)
+ ; ^TIU(8925.1 2321,5677
+"RTN","VPRDTIU",9,0)
+ ; ^TIU(8926.1 5678
+"RTN","VPRDTIU",10,0)
+ ; ^VA(200 10060
+"RTN","VPRDTIU",11,0)
+ ; DIQ 2056
+"RTN","VPRDTIU",12,0)
+ ; RAO7PC1 2043
+"RTN","VPRDTIU",13,0)
+ ; TIUCNSLT 5546
+"RTN","VPRDTIU",14,0)
+ ; TIUCP 3568
+"RTN","VPRDTIU",15,0)
+ ; TIULQ 2693
+"RTN","VPRDTIU",16,0)
+ ; TIULX 3058
+"RTN","VPRDTIU",17,0)
+ ; TIUSROI 5676
+"RTN","VPRDTIU",18,0)
+ ; TIUSRVLO 2834,2865
+"RTN","VPRDTIU",19,0)
+ ; TIUSRVR1 2944
+"RTN","VPRDTIU",20,0)
+ ; XLFSTR 10104
+"RTN","VPRDTIU",21,0)
+ ;
+"RTN","VPRDTIU",22,0)
+ ; ------------ Get documents from VistA ------------
+"RTN","VPRDTIU",23,0)
+ ;
+"RTN","VPRDTIU",24,0)
+EN(DFN,BEG,END,MAX,ID) ; -- find patient's documents
+"RTN","VPRDTIU",25,0)
+ N VPRITM,VPRN,VPRX,VPRY,VPRCNT
+"RTN","VPRDTIU",26,0)
+ S DFN=+$G(DFN) Q:$G(DFN)<1
+"RTN","VPRDTIU",27,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999)
+"RTN","VPRDTIU",28,0)
+ ;
+"RTN","VPRDTIU",29,0)
+ ; get one document
+"RTN","VPRDTIU",30,0)
+ I $L($G(ID)),ID[";" D G ENQ
+"RTN","VPRDTIU",31,0)
+ . I ID D RPT1^VPRDMC(DFN,ID,.VPRITM),XML(.VPRITM) Q ;CP
+"RTN","VPRDTIU",32,0)
+ . D RPT1^VPRDLRA(DFN,ID,.VPRITM),XML(.VPRITM) Q ;Lab
+"RTN","VPRDTIU",33,0)
+ I $G(ID),ID["-" D G ENQ ;Radiology
+"RTN","VPRDTIU",34,0)
+ . S (BEG,END)=9999999.9999-+ID D EN1^RAO7PC1(DFN,BEG,END,"99P")
+"RTN","VPRDTIU",35,0)
+ . D RPT1^VPRDRA(DFN,ID,.VPRITM),XML(.VPRITM)
+"RTN","VPRDTIU",36,0)
+ . K ^TMP($J,"RAE1")
+"RTN","VPRDTIU",37,0)
+ I $G(ID) D EN1(ID,.VPRITM),XML(.VPRITM):$D(VPRITM) G ENQ
+"RTN","VPRDTIU",38,0)
+ ;
+"RTN","VPRDTIU",39,0)
+ ; get all documents
+"RTN","VPRDTIU",40,0)
+ N CLASS,SUBCLASS,TITLE,SERVICE,SUBJECT,NOTSUBJ,STATUS,VPRC,CLS,VPRS,CTXT
+"RTN","VPRDTIU",41,0)
+ D SETUP S VPRCNT=0 ;define search criteria
+"RTN","VPRDTIU",42,0)
+ I CLASS="CP" D RPTS^VPRDMC(DFN,BEG,END,MAX) Q
+"RTN","VPRDTIU",43,0)
+ I CLASS="RA" D RPTS^VPRDRA(DFN,BEG,END,MAX) Q
+"RTN","VPRDTIU",44,0)
+ I CLASS="LR" D RPTS^VPRDLRA(DFN,BEG,END,MAX) Q
+"RTN","VPRDTIU",45,0)
+ F VPRC=1:1:$L(CLASS,U) S CLS=$P(CLASS,U,VPRC) D Q:VPRCNT'<MAX
+"RTN","VPRDTIU",46,0)
+ . F VPRS=1:1:$L(STATUS,U) S CTXT=$P(STATUS,U,VPRS) D Q:VPRCNT'<MAX
+"RTN","VPRDTIU",47,0)
+ .. D CONTEXT^TIUSRVLO(.VPRY,CLS,CTXT,DFN,BEG,END,,MAX,,1)
+"RTN","VPRDTIU",48,0)
+ .. S VPRN=0 F S VPRN=$O(@VPRY@(VPRN)) Q:VPRN<1 D Q:VPRCNT'<MAX
+"RTN","VPRDTIU",49,0)
+ ... S VPRX=$G(@VPRY@(VPRN)) Q:'$$MATCH(VPRX)
+"RTN","VPRDTIU",50,0)
+ ... Q:$D(^TMP("VPRD",$J,+VPRX)) ;already included
+"RTN","VPRDTIU",51,0)
+ ... K VPRITM D EN1(VPRX,.VPRITM) Q:'$D(VPRITM)
+"RTN","VPRDTIU",52,0)
+ ... D XML(.VPRITM) S VPRCNT=VPRCNT+1
+"RTN","VPRDTIU",53,0)
+ .. K @VPRY
+"RTN","VPRDTIU",54,0)
+ENQ ; end
+"RTN","VPRDTIU",55,0)
+ K ^TMP("VPRTEXT",$J)
+"RTN","VPRDTIU",56,0)
+ Q
+"RTN","VPRDTIU",57,0)
+ ;
+"RTN","VPRDTIU",58,0)
+EN1(VPRX,DOC) ; -- return a document in DOC("attribute")=value
+"RTN","VPRDTIU",59,0)
+ ; Expects DFN, VPRX=IEN^$$RESOLVE^TIUSRVLO(IEN)
+"RTN","VPRDTIU",60,0)
+ N IEN,X,NAME,VPRTIU,ES,I,VPRY
+"RTN","VPRDTIU",61,0)
+ K DOC,^TMP("VPRTEXT",$J)
+"RTN","VPRDTIU",62,0)
+ S IEN=+$G(VPRX) Q:IEN<1 ;invalid ien
+"RTN","VPRDTIU",63,0)
+ I +VPRX=VPRX D ;get data string, if needed
+"RTN","VPRDTIU",64,0)
+ . N SHOWADD,DA S SHOWADD=1,DA=+VPRX
+"RTN","VPRDTIU",65,0)
+ . S VPRX=DA_U_$$RESOLVE^TIUSRVLO(DA)
+"RTN","VPRDTIU",66,0)
+ Q:"UNKNOWN"[$P($G(VPRX),U,2) ;null or invalid
+"RTN","VPRDTIU",67,0)
+ S NAME=$P(VPRX,U,2) ;I $P(VPRX,U,14),$P(NAME," ")="Addendum" Q
+"RTN","VPRDTIU",68,0)
+ S DOC("id")=IEN,DOC("localTitle")=NAME
+"RTN","VPRDTIU",69,0)
+ D EXTRACT^TIULQ(IEN,"VPRTIU",,".01:.04;1501:1508")
+"RTN","VPRDTIU",70,0)
+ S X=$$GET1^DIQ(8925,IEN_",",".01:1501","I") I X D
+"RTN","VPRDTIU",71,0)
+ . N IENS,TIU,Y,FNUM
+"RTN","VPRDTIU",72,0)
+ . S IENS=X_"," D GETS^DIQ(8926.1,IENS,"*","IE","TIU")
+"RTN","VPRDTIU",73,0)
+ . S DOC("nationalTitle")=$G(TIU(8926.1,IENS,99.99,"E"))_U_$G(TIU(8926.1,IENS,.01,"E"))
+"RTN","VPRDTIU",74,0)
+ . F I=".04^Subject^2",".05^Role^3",".06^Setting^4",".07^Service^5",".08^Type^6" D
+"RTN","VPRDTIU",75,0)
+ .. S Y=+$G(TIU(8926.1,IENS,+I,"I")) Q:Y'>0
+"RTN","VPRDTIU",76,0)
+ .. S FNUM="8926."_+$P(I,U,3)
+"RTN","VPRDTIU",77,0)
+ .. S DOC("nationalTitle"_$P(I,U,2))=$$VUID^VPRD(Y,FNUM)_U_$G(TIU(8926.1,IENS,+I,"E"))
+"RTN","VPRDTIU",78,0)
+ S:$G(FILTER("loinc")) DOC("loinc")=$P(FILTER("loinc"),U)
+"RTN","VPRDTIU",79,0)
+ S X=+$G(VPRTIU(IEN,.01,"I")),X=$$CATG(X),(DOC("type"),DOC("category"))=X
+"RTN","VPRDTIU",80,0)
+ S DOC("documentClass")=$S(X="LR":"LR LABORATORY REPORTS",X="SR":"SURGICAL REPORTS",X="CP":"CLINICAL PROCEDURES",X="DS":"DISCHARGE SUMMARY",1:"PROGRESS NOTES")
+"RTN","VPRDTIU",81,0)
+ S DOC("referenceDateTime")=$P(VPRX,U,3)
+"RTN","VPRDTIU",82,0)
+ S X=$P(VPRX,U,6) D ;S:$L(X) DOC("location")=X
+"RTN","VPRDTIU",83,0)
+ . N LOC S LOC=$S($L(X):+$O(^SC("B",X,0)),1:0)
+"RTN","VPRDTIU",84,0)
+ . S DOC("facility")=$$FAC^VPRD(LOC)
+"RTN","VPRDTIU",85,0)
+ S X=$P(VPRX,U,7) S:$L(X) DOC("status")=X
+"RTN","VPRDTIU",86,0)
+ S:$P(VPRX,U,11) DOC("images")=+$P(VPRX,U,11)
+"RTN","VPRDTIU",87,0)
+ S:$L($P(VPRX,U,12)) DOC("subject")=$P(VPRX,U,12)
+"RTN","VPRDTIU",88,0)
+ ; X=$S($P(VPRX,U,13)[">":"C",$P(VPRX,U,13)["<":"I",1:"") ;componentType
+"RTN","VPRDTIU",89,0)
+ I $P(VPRX,U,14)>5 S DOC("parent")=$P(VPRX,U,14) ;ID notes
+"RTN","VPRDTIU",90,0)
+ S DOC("encounter")=$G(VPRTIU(IEN,.03,"I"))
+"RTN","VPRDTIU",91,0)
+ S:$G(VPRTEXT) DOC("content")=$$TEXT(IEN)
+"RTN","VPRDTIU",92,0)
+ ; providers &/or signatures
+"RTN","VPRDTIU",93,0)
+ S X=$P(VPRX,U,5),I=0 S:X I=I+1,DOC("clinician",I)=+X_U_$P(X,";",3)_"^A" ;author
+"RTN","VPRDTIU",94,0)
+ M ES=VPRTIU(IEN) I ES(1501,"I") D
+"RTN","VPRDTIU",95,0)
+ . S I=I+1
+"RTN","VPRDTIU",96,0)
+ . S DOC("clinician",I)=ES(1502,"I")_U_ES(1502,"E")_"^S^"_ES(1501,"I")_U_$$SIG(ES(1502,"I"))
+"RTN","VPRDTIU",97,0)
+ I ES(1507,"I") D ; cosigner
+"RTN","VPRDTIU",98,0)
+ . S I=I+1
+"RTN","VPRDTIU",99,0)
+ . S DOC("clinician",I)=ES(1508,"I")_U_ES(1508,"E")_"^C^"_ES(1507,"I")_U_$$SIG(ES(1508,"I"))
+"RTN","VPRDTIU",100,0)
+ Q
+"RTN","VPRDTIU",101,0)
+ ;
+"RTN","VPRDTIU",102,0)
+CATG(DA) ; -- Return a code for document type #8925.1 DA
+"RTN","VPRDTIU",103,0)
+ N X
+"RTN","VPRDTIU",104,0)
+ D ISCNSLT^TIUCNSLT(.X,DA) I X Q "CR" ;consult result
+"RTN","VPRDTIU",105,0)
+ I $$ISA^TIULX(DA,25) Q "A" ;CWAD note/Allergy
+"RTN","VPRDTIU",106,0)
+ I $$ISA^TIULX(DA,27) Q "D" ;CWAD note/Advance Directive
+"RTN","VPRDTIU",107,0)
+ I $$ISA^TIULX(DA,30) Q "C" ;CWAD note/Crisis Note
+"RTN","VPRDTIU",108,0)
+ I $$ISA^TIULX(DA,31) Q "W" ;CWAD note/Clinical Warning
+"RTN","VPRDTIU",109,0)
+ I $$ISA^TIULX(DA,3) Q "PN" ;progress note
+"RTN","VPRDTIU",110,0)
+ ;
+"RTN","VPRDTIU",111,0)
+ I $$ISA^TIULX(DA,244) Q "DS" ;discharge summary
+"RTN","VPRDTIU",112,0)
+ D ISCP^TIUCP(.X,DA) I X Q "CP" ;clinical procedure
+"RTN","VPRDTIU",113,0)
+ D ISSURG^TIUSROI(.X,DA) I X Q "SR" ;surgery
+"RTN","VPRDTIU",114,0)
+ I $$ISA^TIULX(DA,$$LR) Q "LR" ;laboratory
+"RTN","VPRDTIU",115,0)
+ Q ""
+"RTN","VPRDTIU",116,0)
+ ;
+"RTN","VPRDTIU",117,0)
+LR() ; -- Return ien of Lab class
+"RTN","VPRDTIU",118,0)
+ N Y S Y=+$O(^TIU(8925.1,"B","LR LABORATORY REPORTS",0))
+"RTN","VPRDTIU",119,0)
+ I Y>0,$S($P($G(^TIU(8925.1,Y,0)),U,4)="CL":0,$P($G(^(0)),U,4)="DC":0,1:1) S Y=0
+"RTN","VPRDTIU",120,0)
+ Q Y
+"RTN","VPRDTIU",121,0)
+ ;
+"RTN","VPRDTIU",122,0)
+SIG(X) ; -- Return Signature Block Name_Title
+"RTN","VPRDTIU",123,0)
+ N X20,Y S X20=$G(^VA(200,+$G(X),20))
+"RTN","VPRDTIU",124,0)
+ S Y=$P(X20,U,2)_" "_$P(X20,U,3)
+"RTN","VPRDTIU",125,0)
+ Q Y
+"RTN","VPRDTIU",126,0)
+ ;
+"RTN","VPRDTIU",127,0)
+RPT(VPRY,IFN) ; -- Return text of document in @VPRY@(n)
+"RTN","VPRDTIU",128,0)
+ N I,J ;protect for calling loops
+"RTN","VPRDTIU",129,0)
+ D TGET^TIUSRVR1(.VPRY,IFN)
+"RTN","VPRDTIU",130,0)
+ Q
+"RTN","VPRDTIU",131,0)
+ ;
+"RTN","VPRDTIU",132,0)
+TEXT(IFN) ; -- Get document IFN text, return temp array name
+"RTN","VPRDTIU",133,0)
+ N VPRY,Y,I,J ;protect I&J for calling loops
+"RTN","VPRDTIU",134,0)
+ S IFN=+$G(IFN) D TGET^TIUSRVR1(.VPRY,IFN)
+"RTN","VPRDTIU",135,0)
+ M ^TMP("VPRTEXT",$J,IFN)=@VPRY K @VPRY
+"RTN","VPRDTIU",136,0)
+ S Y=$NA(^TMP("VPRTEXT",$J,IFN))
+"RTN","VPRDTIU",137,0)
+ Q Y
+"RTN","VPRDTIU",138,0)
+ ;
+"RTN","VPRDTIU",139,0)
+ ; ------------ Return data to middle tier ------------
+"RTN","VPRDTIU",140,0)
+ ;
+"RTN","VPRDTIU",141,0)
+XML(DOC) ; -- Return patient documents as XML
+"RTN","VPRDTIU",142,0)
+ N ATT,X,Y,NAMES,TYPE,I
+"RTN","VPRDTIU",143,0)
+ D ADD("<document>") S VPRTOTL=$G(VPRTOTL)+1
+"RTN","VPRDTIU",144,0)
+ S ATT="" F S ATT=$O(DOC(ATT)) Q:ATT="" D D:$L(Y) ADD(Y)
+"RTN","VPRDTIU",145,0)
+ . I $O(DOC(ATT,0)) D S Y="" Q ;multiples
+"RTN","VPRDTIU",146,0)
+ .. D ADD("<"_ATT_"s>")
+"RTN","VPRDTIU",147,0)
+ .. S I=0 F S I=$O(DOC(ATT,I)) Q:I<1 D
+"RTN","VPRDTIU",148,0)
+ ... S X=$G(DOC(ATT,I)),NAMES=""
+"RTN","VPRDTIU",149,0)
+ ... I ATT="clinician" S NAMES="code^name^role^dateTime^signature^Z"
+"RTN","VPRDTIU",150,0)
+ ... S Y="<"_ATT_" "_$$LOOP_"/>" D ADD(Y)
+"RTN","VPRDTIU",151,0)
+ .. D ADD("</"_ATT_"s>")
+"RTN","VPRDTIU",152,0)
+ . S X=$G(DOC(ATT)),Y="" Q:'$L(X)
+"RTN","VPRDTIU",153,0)
+ . I ATT="content" D S Y="" Q ;text
+"RTN","VPRDTIU",154,0)
+ .. S Y="<content xml:space='preserve'>" D ADD(Y)
+"RTN","VPRDTIU",155,0)
+ .. S I=0 F S I=$O(@X@(I)) Q:I<1 S Y=$$ESC^VPRD(@X@(I)) D ADD(Y)
+"RTN","VPRDTIU",156,0)
+ .. D ADD("</content>")
+"RTN","VPRDTIU",157,0)
+ . I X'["^" S Y="<"_ATT_" value='"_$$ESC^VPRD(X)_"' />" Q
+"RTN","VPRDTIU",158,0)
+ . I $L(X)>1 S NAMES="code^name^Z",Y="<"_ATT_" "_$$LOOP_"/>"
+"RTN","VPRDTIU",159,0)
+ D ADD("</document>")
+"RTN","VPRDTIU",160,0)
+ Q
+"RTN","VPRDTIU",161,0)
+ ;
+"RTN","VPRDTIU",162,0)
+LOOP() ; -- build sub-items string from NAMES and X
+"RTN","VPRDTIU",163,0)
+ N STR,P,TAG S STR=""
+"RTN","VPRDTIU",164,0)
+ F P=1:1 S TAG=$P(NAMES,U,P) Q:TAG="Z" I $L($P(X,U,P)) S STR=STR_TAG_"='"_$$ESC^VPRD($P(X,U,P))_"' "
+"RTN","VPRDTIU",165,0)
+ Q STR
+"RTN","VPRDTIU",166,0)
+ ;
+"RTN","VPRDTIU",167,0)
+ADD(X) ; Add a line @VPR@(n)=X
+"RTN","VPRDTIU",168,0)
+ S VPRI=$G(VPRI)+1
+"RTN","VPRDTIU",169,0)
+ S @VPR@(VPRI)=X
+"RTN","VPRDTIU",170,0)
+ Q
+"RTN","VPRDTIU",171,0)
+ ;
+"RTN","VPRDTIU",172,0)
+ ; ------------ Get/apply search criteria ------------
+"RTN","VPRDTIU",173,0)
+ ;
+"RTN","VPRDTIU",174,0)
+SETUP ; -- convert FILTER("attribute") = value to TIU criteria
+"RTN","VPRDTIU",175,0)
+ ; Expects: FILTER("category") = code (see $$CATG)
+"RTN","VPRDTIU",176,0)
+ ; FILTER("loinc") = LOINC
+"RTN","VPRDTIU",177,0)
+ ; FILTER("status") = 'all','completed','unsigned'
+"RTN","VPRDTIU",178,0)
+ ; Returns CLASS,[SUBCLASS,TITLE,SERVICE,SUBJECT,STATUS]
+"RTN","VPRDTIU",179,0)
+ ;
+"RTN","VPRDTIU",180,0)
+ N LOINC,TYPE,STS,CP
+"RTN","VPRDTIU",181,0)
+ S LOINC=+$G(FILTER("loinc")),TYPE=$$UP^XLFSTR($G(FILTER("category")))
+"RTN","VPRDTIU",182,0)
+ S CLASS="3^244",(SUBCLASS,TITLE,SERVICE,SUBJECT,NOTSUBJ,STATUS)=""
+"RTN","VPRDTIU",183,0)
+ ;
+"RTN","VPRDTIU",184,0)
+ ; status [default='complete']
+"RTN","VPRDTIU",185,0)
+ S STS=$$LOW^XLFSTR($G(FILTER("status")))
+"RTN","VPRDTIU",186,0)
+ S STATUS=$S(STS?1"unsig".E:2,STS="all":"5^2",1:5) ;TIUSRVLO statuses
+"RTN","VPRDTIU",187,0)
+ ;
+"RTN","VPRDTIU",188,0)
+ ; progress notes
+"RTN","VPRDTIU",189,0)
+ I TYPE="PN" S CLASS=3 Q
+"RTN","VPRDTIU",190,0)
+ I TYPE="CR"!(LOINC=11488) S CLASS=3,SUBCLASS=+$$CLASS^TIUCNSLT Q
+"RTN","VPRDTIU",191,0)
+ ; LOINC=26442 S CLASS=3,SUBJECT="^114^" Q ;OB/GYN
+"RTN","VPRDTIU",192,0)
+ I LOINC=34117 S CLASS=3,SERVICE="^88^" Q ;H&P
+"RTN","VPRDTIU",193,0)
+ I TYPE="CWAD" S CLASS=3,SUBCLASS="25^27^30^31" Q ;CWAD
+"RTN","VPRDTIU",194,0)
+ I TYPE="C" S CLASS=3,SUBCLASS=30 Q ;Crisis Note
+"RTN","VPRDTIU",195,0)
+ I TYPE="W" S CLASS=3,SUBCLASS=31 Q ;Clinical Warning
+"RTN","VPRDTIU",196,0)
+ I TYPE="A" S CLASS=3,SUBCLASS=25 Q ;Allergy Note
+"RTN","VPRDTIU",197,0)
+ I TYPE="D"!(LOINC=42348) S CLASS=3,SUBCLASS=27 Q ;Advance Directive
+"RTN","VPRDTIU",198,0)
+ ;
+"RTN","VPRDTIU",199,0)
+ ; discharge summaries
+"RTN","VPRDTIU",200,0)
+ I TYPE="DS"!(LOINC=18842) S CLASS=244 Q
+"RTN","VPRDTIU",201,0)
+ ;
+"RTN","VPRDTIU",202,0)
+ ; procedures
+"RTN","VPRDTIU",203,0)
+ I TYPE="SR"!(LOINC=29752) S CLASS=+$$CLASS^TIUSROI("SURGICAL REPORTS") Q
+"RTN","VPRDTIU",204,0)
+ D CPCLASS^TIUCP(.CP)
+"RTN","VPRDTIU",205,0)
+ I TYPE="CP" S CLASS=$S(STATUS=2:CP,1:"CP") Q ;CLINICAL PROCEDURES
+"RTN","VPRDTIU",206,0)
+ I LOINC=26441 D Q ;CARDIOLOGY
+"RTN","VPRDTIU",207,0)
+ . S CLASS=CP_"^3"
+"RTN","VPRDTIU",208,0)
+ . S SUBJECT="^18^142^174^",SERVICE="^75^76^115^"
+"RTN","VPRDTIU",209,0)
+ I LOINC=27896 D Q ;PULMONARY
+"RTN","VPRDTIU",210,0)
+ . S CLASS=CP_"^3"
+"RTN","VPRDTIU",211,0)
+ . S SUBJECT="^23^142^",SERVICE="^75^76^115^"
+"RTN","VPRDTIU",212,0)
+ I LOINC=27895 D Q ;GASTROENTEROLOGY
+"RTN","VPRDTIU",213,0)
+ . S CLASS=CP_"^3"
+"RTN","VPRDTIU",214,0)
+ . S SUBJECT="^20^",SERVICE="^75^76^115^"
+"RTN","VPRDTIU",215,0)
+ I LOINC=27897 D Q ;NEUROLOGY
+"RTN","VPRDTIU",216,0)
+ . S CLASS=CP_"^3"
+"RTN","VPRDTIU",217,0)
+ . S SUBJECT="^44^45^52^111^112^143^146^",SERVICE="^75^76^115^"
+"RTN","VPRDTIU",218,0)
+ I LOINC=28619 D Q ;OPHTH/OPTOMETRY
+"RTN","VPRDTIU",219,0)
+ . S CLASS=CP_"^3"
+"RTN","VPRDTIU",220,0)
+ . S SUBJECT="^13^14^103^",SERVICE="^75^76^115^"
+"RTN","VPRDTIU",221,0)
+ I LOINC=28634 D Q ;MISC/ALL OTHERS
+"RTN","VPRDTIU",222,0)
+ . S CLASS=CP_"^3",SERVICE="^75^76^115^"
+"RTN","VPRDTIU",223,0)
+ . S NOTSUBJ="^18^142^174^23^142^20^44^45^52^111^112^143^146^13^14^103^"
+"RTN","VPRDTIU",224,0)
+ I LOINC=28570 D Q ;UNSPECIFIED/ALL
+"RTN","VPRDTIU",225,0)
+ . S CLASS=CP_"^3"
+"RTN","VPRDTIU",226,0)
+ . S SERVICE="^75^76^115^"
+"RTN","VPRDTIU",227,0)
+ ;
+"RTN","VPRDTIU",228,0)
+ ; pathology/lab
+"RTN","VPRDTIU",229,0)
+ I TYPE="LR"!(LOINC=27898) S CLASS=$S(STATUS=2:$$LR,1:"LR") Q
+"RTN","VPRDTIU",230,0)
+ ;
+"RTN","VPRDTIU",231,0)
+ ; radiology
+"RTN","VPRDTIU",232,0)
+ I TYPE="RA"!(LOINC=18726) S CLASS="RA" Q
+"RTN","VPRDTIU",233,0)
+ ;
+"RTN","VPRDTIU",234,0)
+ ; unknown
+"RTN","VPRDTIU",235,0)
+ I $L(TYPE)!LOINC S CLASS=0
+"RTN","VPRDTIU",236,0)
+ Q
+"RTN","VPRDTIU",237,0)
+ ;
+"RTN","VPRDTIU",238,0)
+MATCH(DOC) ; -- Return 1 or 0, if document DA matches search criteria
+"RTN","VPRDTIU",239,0)
+ N Y,DA,LOCAL,NATL,X0,OK S Y=0
+"RTN","VPRDTIU",240,0)
+ S DA=+$G(DOC) G:DA<1 MQ
+"RTN","VPRDTIU",241,0)
+ ; include addenda if pulling only unsigned items:
+"RTN","VPRDTIU",242,0)
+ I $P(DOC,U,2)?1"Addendum ".E,STATUS'=2 G MQ
+"RTN","VPRDTIU",243,0)
+ ; remove completed parent notes from TIU unsigned list:
+"RTN","VPRDTIU",244,0)
+ I CTXT=2,$P(DOC,U,7)'="unsigned" G MQ
+"RTN","VPRDTIU",245,0)
+ ; remove Uncosigned notes from 'complete' view:
+"RTN","VPRDTIU",246,0)
+ I STATUS=5,$P(DOC,U,7)="uncosigned" G MQ
+"RTN","VPRDTIU",247,0)
+ ; Check title & attributes for a match ...
+"RTN","VPRDTIU",248,0)
+ S LOCAL=$$GET1^DIQ(8925,DA_",",.01,"I") ;local Title 8925.1 ien
+"RTN","VPRDTIU",249,0)
+ I $L(SUBCLASS) D G:'OK MQ
+"RTN","VPRDTIU",250,0)
+ . N I,X S OK=0
+"RTN","VPRDTIU",251,0)
+ . F I=1:1:$L(SUBCLASS,"^") S X=$P(SUBCLASS,U,I) I $$ISA^TIULX(LOCAL,X) S OK=1 Q
+"RTN","VPRDTIU",252,0)
+ S NATL=+$$GET1^DIQ(8925.1,LOCAL_",",1501,"I") ;Natl Title 8926.1 ien
+"RTN","VPRDTIU",253,0)
+ I $L(TITLE) G:TITLE'[(U_+NATL_U) MQ
+"RTN","VPRDTIU",254,0)
+ S X0=$G(^TIU(8926.1,NATL,0))
+"RTN","VPRDTIU",255,0)
+ I $L(SERVICE) G:SERVICE'[(U_+$P(X0,U,7)_U) MQ
+"RTN","VPRDTIU",256,0)
+ I $L(SUBJECT) G:SUBJECT'[(U_+$P(X0,U,4)_U) MQ
+"RTN","VPRDTIU",257,0)
+ I $L(NOTSUBJ) G:NOTSUBJ[(U_+$P(X0,U,4)_U) MQ
+"RTN","VPRDTIU",258,0)
+ S Y=1
+"RTN","VPRDTIU",259,0)
+MQ Q Y
+"RTN","VPRDVSIT")
+0^31^B89271062^B89381077
+"RTN","VPRDVSIT",1,0)
+VPRDVSIT ;SLC/MKB -- Visit/Encounter extract ;8/2/11 15:29
+"RTN","VPRDVSIT",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**1,2**;Sep 01, 2011;Build 317
+"RTN","VPRDVSIT",3,0)
+ ;;Per VHA Directive 2004-038, this routine should not be modified.
+"RTN","VPRDVSIT",4,0)
+ ;
+"RTN","VPRDVSIT",5,0)
+ ; External References DBIA#
+"RTN","VPRDVSIT",6,0)
+ ; ------------------- -----
+"RTN","VPRDVSIT",7,0)
+ ; ^AUPNVSIT 2028
+"RTN","VPRDVSIT",8,0)
+ ; ^DIC(40.7 557
+"RTN","VPRDVSIT",9,0)
+ ; ^DIC(42 10039
+"RTN","VPRDVSIT",10,0)
+ ; ^DIC(45.7 1154
+"RTN","VPRDVSIT",11,0)
+ ; ^DPT( 10035
+"RTN","VPRDVSIT",12,0)
+ ; ^SC 10040
+"RTN","VPRDVSIT",13,0)
+ ; ^VA(200 10060
+"RTN","VPRDVSIT",14,0)
+ ; DGPTFAPI 3157
+"RTN","VPRDVSIT",15,0)
+ ; DIC 2051
+"RTN","VPRDVSIT",16,0)
+ ; DILFD 2055
+"RTN","VPRDVSIT",17,0)
+ ; DIQ 2056
+"RTN","VPRDVSIT",18,0)
+ ; ICDCODE 3990
+"RTN","VPRDVSIT",19,0)
+ ; ICPTCOD 1995
+"RTN","VPRDVSIT",20,0)
+ ; PXAPI,^TMP("PXKENC",$J 1894
+"RTN","VPRDVSIT",21,0)
+ ; SDOE 2546
+"RTN","VPRDVSIT",22,0)
+ ; VADPT 10061
+"RTN","VPRDVSIT",23,0)
+ ; VADPT2 325
+"RTN","VPRDVSIT",24,0)
+ ; XUAF4 2171
+"RTN","VPRDVSIT",25,0)
+ ;
+"RTN","VPRDVSIT",26,0)
+ ; ------------ Get encounter(s) from VistA ------------
+"RTN","VPRDVSIT",27,0)
+ ;
+"RTN","VPRDVSIT",28,0)
+EN(DFN,BEG,END,MAX,ID) ; -- find patient's visits and appointments
+"RTN","VPRDVSIT",29,0)
+ N VPRCNT,VPRITM,VPRDT,VPRLOC,VPRDA
+"RTN","VPRDVSIT",30,0)
+ S DFN=+$G(DFN) Q:DFN<1
+"RTN","VPRDVSIT",31,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999)
+"RTN","VPRDVSIT",32,0)
+ ;
+"RTN","VPRDVSIT",33,0)
+ ; get one visit
+"RTN","VPRDVSIT",34,0)
+ I $G(ID) D EN1(ID,.VPRITM),XML(.VPRITM) G ENQ
+"RTN","VPRDVSIT",35,0)
+ ;
+"RTN","VPRDVSIT",36,0)
+ ; -- get all visits
+"RTN","VPRDVSIT",37,0)
+ I END,END'["." S END=END_".24" ;assume end of day
+"RTN","VPRDVSIT",38,0)
+ S VPRCNT=0
+"RTN","VPRDVSIT",39,0)
+ ;F S IDX=$Q(@IDX,-1) Q:DFN'=$P(IDX,",",2) Q:$P(IDX,",",3)<BEG I $P(IDX,",",5)["P" D
+"RTN","VPRDVSIT",40,0)
+ S VPRDT=END F S VPRDT=$O(^AUPNVSIT("AET",DFN,VPRDT),-1) Q:VPRDT<BEG D Q:VPRCNT'<MAX
+"RTN","VPRDVSIT",41,0)
+ . S VPRLOC=0 F S VPRLOC=$O(^AUPNVSIT("AET",DFN,VPRDT,VPRLOC)) Q:VPRLOC<1 D
+"RTN","VPRDVSIT",42,0)
+ .. S VPRDA=0 F S VPRDA=$O(^AUPNVSIT("AET",DFN,VPRDT,VPRLOC,"P",VPRDA)) Q:VPRDA<1 D
+"RTN","VPRDVSIT",43,0)
+ ... K VPRITM D EN1(VPRDA,.VPRITM) Q:'$D(VPRITM)
+"RTN","VPRDVSIT",44,0)
+ ... D XML(.VPRITM) S VPRCNT=VPRCNT+1
+"RTN","VPRDVSIT",45,0)
+ENQ ; end
+"RTN","VPRDVSIT",46,0)
+ K ^TMP("VPRTEXT",$J)
+"RTN","VPRDVSIT",47,0)
+ Q
+"RTN","VPRDVSIT",48,0)
+ ;
+"RTN","VPRDVSIT",49,0)
+ENAA(DFN,BEG,END,MAX,ID) ; -- find patient's visits and appointments [AA]
+"RTN","VPRDVSIT",50,0)
+ N IDT,DA,VPRCNT,VPRITM
+"RTN","VPRDVSIT",51,0)
+ S DFN=+$G(DFN) Q:DFN<1
+"RTN","VPRDVSIT",52,0)
+ S BEG=$G(BEG,1410101),END=$G(END,4141015),MAX=$G(MAX,9999)
+"RTN","VPRDVSIT",53,0)
+ I $G(ID) D EN1(ID,.VPRITM),XML(.VPRITM) Q ;one visit
+"RTN","VPRDVSIT",54,0)
+ D IDT S VPRCNT=0
+"RTN","VPRDVSIT",55,0)
+ S IDT=BEG F S IDT=$O(^AUPNVSIT("AA",DFN,IDT)) Q:IDT<1!(IDT>END) D Q:VPRCNT'<MAX
+"RTN","VPRDVSIT",56,0)
+ . S DA=0 F S DA=$O(^AUPNVSIT("AA",DFN,IDT,DA)) Q:DA<1 D
+"RTN","VPRDVSIT",57,0)
+ .. K VPRITM D EN1(DA,.VPRITM) Q:'$D(VPRITM)
+"RTN","VPRDVSIT",58,0)
+ .. D XML(.VPRITM) S VPRCNT=VPRCNT+1
+"RTN","VPRDVSIT",59,0)
+ Q
+"RTN","VPRDVSIT",60,0)
+IDT ; -- invert BEG and END dates for visit format:
+"RTN","VPRDVSIT",61,0)
+ ; IDT=(9999999-$P(VDT,"."))_"."_$P(VDT,".",2)
+"RTN","VPRDVSIT",62,0)
+ N X S X=BEG
+"RTN","VPRDVSIT",63,0)
+ S BEG=(9999999-$P(END,"."))
+"RTN","VPRDVSIT",64,0)
+ S END=(9999999-$P(X,"."))_".2359"
+"RTN","VPRDVSIT",65,0)
+ Q
+"RTN","VPRDVSIT",66,0)
+ ;
+"RTN","VPRDVSIT",67,0)
+EN1(IEN,VST) ; -- return a visit in VST("attribute")=value
+"RTN","VPRDVSIT",68,0)
+ N X0,X15,X,FAC,LOC,CATG,INPT,DA
+"RTN","VPRDVSIT",69,0)
+ K VST,^TMP("VPRTEXT",$J)
+"RTN","VPRDVSIT",70,0)
+ S IEN=+$G(IEN) Q:IEN<1 ;invalid
+"RTN","VPRDVSIT",71,0)
+ D ENCEVENT^PXAPI(IEN)
+"RTN","VPRDVSIT",72,0)
+ S X0=$G(^TMP("PXKENC",$J,IEN,"VST",IEN,0)),X15=$G(^(150))
+"RTN","VPRDVSIT",73,0)
+ Q:$P(X15,U,3)'="P" Q:$P(X0,U,7)="E" ;want primary, not historical
+"RTN","VPRDVSIT",74,0)
+ I $P(X0,U,7)="H" D ADM(IEN,+X0,.VST) Q
+"RTN","VPRDVSIT",75,0)
+ S VST("id")=IEN,VST("dateTime")=+X0
+"RTN","VPRDVSIT",76,0)
+ S FAC=+$P(X0,U,6),CATG=$P(X0,U,7),LOC=+$P(X0,U,22)
+"RTN","VPRDVSIT",77,0)
+ S:FAC VST("facility")=$$STA^XUAF4(FAC)_U_$P($$NS^XUAF4(FAC),U)
+"RTN","VPRDVSIT",78,0)
+ S:'FAC VST("facility")=$$FAC^VPRD(LOC)
+"RTN","VPRDVSIT",79,0)
+ S VST("serviceCategory")=CATG_U_$$CATG(CATG)
+"RTN","VPRDVSIT",80,0)
+ S VST("visitString")=LOC_";"_+X0_";"_CATG
+"RTN","VPRDVSIT",81,0)
+ S INPT=$P(X15,U,2) S:INPT="" INPT=$S("H^I^R^D"[CATG:1,1:0)
+"RTN","VPRDVSIT",82,0)
+ S X=$$CPT(IEN) S:X VST("type")=$P($$CPT^ICPTCOD(X),U,2,3)
+"RTN","VPRDVSIT",83,0)
+ I 'X S VST("type")=U_$S('INPT&LOC:$P($G(^SC(LOC,0)),U)_" VISIT",1:$$CATG(CATG))
+"RTN","VPRDVSIT",84,0)
+ S VST("patientClass")=$S(INPT:"IMP",1:"AMB")
+"RTN","VPRDVSIT",85,0)
+ S X=$P(X0,U,8) S:X VST("stopCode")=$$AMIS(X) I LOC D
+"RTN","VPRDVSIT",86,0)
+ . N L0 S L0=$G(^SC(LOC,0))
+"RTN","VPRDVSIT",87,0)
+ . I 'X S VST("stopCode")=$$AMIS($P(L0,U,7))
+"RTN","VPRDVSIT",88,0)
+ . S VST("location")=$P(L0,U),VST("service")=$$SERV($P(L0,U,20))
+"RTN","VPRDVSIT",89,0)
+ . S X=$P(L0,U,18) S:X VST("creditStopCode")=$$AMIS(X)
+"RTN","VPRDVSIT",90,0)
+ S VST("reason")=$$POV(IEN)
+"RTN","VPRDVSIT",91,0)
+ ; provider(s)
+"RTN","VPRDVSIT",92,0)
+ S DA=0 F S DA=$O(^TMP("PXKENC",$J,IEN,"PRV",DA)) Q:DA<1 S X0=$G(^(DA,0)) D
+"RTN","VPRDVSIT",93,0)
+ . S VST("provider",DA)=+X0_U_$P($G(^VA(200,+X0,0)),U)_$S($P(X0,U,4)="P":"^P^1",1:"^S^")
+"RTN","VPRDVSIT",94,0)
+ ; note(s)
+"RTN","VPRDVSIT",95,0)
+ D TIU(IEN)
+"RTN","VPRDVSIT",96,0)
+ K ^TMP("PXKENC",$J,IEN)
+"RTN","VPRDVSIT",97,0)
+ Q
+"RTN","VPRDVSIT",98,0)
+ ;
+"RTN","VPRDVSIT",99,0)
+TIU(VISIT) ; -- add notes to VST("document")
+"RTN","VPRDVSIT",100,0)
+ N X,Y,I,VPRX,LT,NT,DA,CNT,VPRY
+"RTN","VPRDVSIT",101,0)
+ D FIND^DIC(8925,,.01,"QX",+$G(VISIT),,"V",,,"VPRX")
+"RTN","VPRDVSIT",102,0)
+ S Y="",(I,CNT)=0
+"RTN","VPRDVSIT",103,0)
+ F S I=$O(VPRX("DILIST",1,I)) Q:I<1 D
+"RTN","VPRDVSIT",104,0)
+ . S LT=$G(VPRX("DILIST","ID",I,.01)) Q:$P(LT," ")="Addendum"
+"RTN","VPRDVSIT",105,0)
+ . S DA=$G(VPRX("DILIST",2,I))
+"RTN","VPRDVSIT",106,0)
+ . S NT=$$GET1^DIQ(8925,+DA_",",".01:1501")
+"RTN","VPRDVSIT",107,0)
+ . S CNT=CNT+1,VST("document",CNT)=DA_U_LT_U_NT
+"RTN","VPRDVSIT",108,0)
+ . S:$G(VPRTEXT) VST("document",CNT,"content")=$$TEXT^VPRDTIU(DA)
+"RTN","VPRDVSIT",109,0)
+ Q
+"RTN","VPRDVSIT",110,0)
+ ;
+"RTN","VPRDVSIT",111,0)
+POV(VISIT) ; -- return the primary Purpose of Visit as ICD^ProviderNarrative
+"RTN","VPRDVSIT",112,0)
+ N DA,Y,X,X0,ICD S Y=""
+"RTN","VPRDVSIT",113,0)
+ S DA=0 F S DA=$O(^TMP("PXKENC",$J,VISIT,"POV",DA)) Q:DA<1 S X0=$G(^(DA,0)) I $P(X0,U,12)="P" D Q:$L(Y)
+"RTN","VPRDVSIT",114,0)
+ . S X=+$P(X0,U,4),ICD=$$ICD(+X0)
+"RTN","VPRDVSIT",115,0)
+ . S Y=ICD_U_$$EXTERNAL^DILFD(9000010.07,.04,,X)
+"RTN","VPRDVSIT",116,0)
+ Q Y
+"RTN","VPRDVSIT",117,0)
+ ;
+"RTN","VPRDVSIT",118,0)
+ICD(IEN) ; -- return code^description for ICD code, or "^" if error
+"RTN","VPRDVSIT",119,0)
+ N X0,VPRX,N,I,X,Y S IEN=+$G(IEN)
+"RTN","VPRDVSIT",120,0)
+ S X0=$$ICDDX^ICDCODE(IEN) I X0<0 Q "^"
+"RTN","VPRDVSIT",121,0)
+ S Y=$P(X0,U,2)_U_$P(X0,U,4) ;ICD Code^Dx name
+"RTN","VPRDVSIT",122,0)
+ S N=$$ICDD^ICDCODE($P(Y,U),"VPRX") ;ICD Description
+"RTN","VPRDVSIT",123,0)
+ I N>0,$L($G(VPRX(1))) S $P(Y,U,2)=VPRX(1)
+"RTN","VPRDVSIT",124,0)
+ Q Y
+"RTN","VPRDVSIT",125,0)
+ ;
+"RTN","VPRDVSIT",126,0)
+CPT(VISIT) ; -- Return CPT code of encounter type
+"RTN","VPRDVSIT",127,0)
+ N DA,Y,X,X0 S Y=""
+"RTN","VPRDVSIT",128,0)
+ S DA=0 F S DA=$O(^TMP("PXKENC",$J,VISIT,"CPT",DA)) Q:DA<1 S X0=$G(^(DA,0)) D Q:$L(Y)
+"RTN","VPRDVSIT",129,0)
+ . S X=$P(X0,U) I X?1"992"2N S Y=X Q
+"RTN","VPRDVSIT",130,0)
+ Q Y
+"RTN","VPRDVSIT",131,0)
+ ;
+"RTN","VPRDVSIT",132,0)
+AMIS(X) ; -- return the AMIS code^name of Credit Stop X
+"RTN","VPRDVSIT",133,0)
+ N Y,X0 S Y=""
+"RTN","VPRDVSIT",134,0)
+ S X0=$G(^DIC(40.7,+$G(X),0)) S:$L(X0) Y=$P(X0,U,2)_U_$P(X0,U)
+"RTN","VPRDVSIT",135,0)
+ Q Y
+"RTN","VPRDVSIT",136,0)
+ ;
+"RTN","VPRDVSIT",137,0)
+CATG(X) ; -- Return name of visit Service Category code X
+"RTN","VPRDVSIT",138,0)
+ N Y S Y=""
+"RTN","VPRDVSIT",139,0)
+ I X="A" S Y="AMBULATORY"
+"RTN","VPRDVSIT",140,0)
+ I X="H" S Y="HOSPITALIZATION"
+"RTN","VPRDVSIT",141,0)
+ I X="I" S Y="IN HOSPITAL"
+"RTN","VPRDVSIT",142,0)
+ I X="C" S Y="CHART REVIEW"
+"RTN","VPRDVSIT",143,0)
+ I X="T" S Y="TELECOMMUNICATIONS"
+"RTN","VPRDVSIT",144,0)
+ I X="N" S Y="NOT FOUND"
+"RTN","VPRDVSIT",145,0)
+ I X="S" S Y="DAY SURGERY"
+"RTN","VPRDVSIT",146,0)
+ I X="O" S Y="OBSERVATION"
+"RTN","VPRDVSIT",147,0)
+ I X="E" S Y="EVENT (HISTORICAL)"
+"RTN","VPRDVSIT",148,0)
+ I X="R" S Y="NURSING HOME"
+"RTN","VPRDVSIT",149,0)
+ I X="D" S Y="DAILY HOSPITALIZATION DATA"
+"RTN","VPRDVSIT",150,0)
+ I X="X" S Y="ANCILLARY PACKAGE DAILY DATA"
+"RTN","VPRDVSIT",151,0)
+ Q Y
+"RTN","VPRDVSIT",152,0)
+ ;
+"RTN","VPRDVSIT",153,0)
+SERV(FTS) ; -- Return #42.4 Service for a Facility Treating Specialty
+"RTN","VPRDVSIT",154,0)
+ N Y S Y="",FTS=+$G(FTS)
+"RTN","VPRDVSIT",155,0)
+ S Y=$$GET1^DIQ(45.7,FTS_",","1:3","E")
+"RTN","VPRDVSIT",156,0)
+ Q Y
+"RTN","VPRDVSIT",157,0)
+ ;
+"RTN","VPRDVSIT",158,0)
+ADM(IEN,DATE,ADM) ; -- return an admission in ADM("attribute")=value
+"RTN","VPRDVSIT",159,0)
+ N VAINDT,VADMVT,VAIP,VAIN,VAERR,HLOC,ICD,I K ADM
+"RTN","VPRDVSIT",160,0)
+ S IEN=+$G(IEN),DATE=+$G(DATE) Q:IEN<1 Q:DATE<1
+"RTN","VPRDVSIT",161,0)
+ S VAINDT=DATE D ADM^VADPT2 Q:VADMVT<1
+"RTN","VPRDVSIT",162,0)
+ I VADMVT=$G(^DPT(DFN,.105)) D INPT Q ;current inpatient
+"RTN","VPRDVSIT",163,0)
+ S VAIP("E")=VADMVT D IN5^VADPT Q:'$G(VAIP(1)) ;deleted
+"RTN","VPRDVSIT",164,0)
+ S ADM("id")=IEN,ADM("patientClass")="IMP"
+"RTN","VPRDVSIT",165,0)
+ ; ADM("admitType")=$P($G(VAIP(4)),U,2)
+"RTN","VPRDVSIT",166,0)
+ S DATE=+$G(VAIP(13,1)),(ADM("dateTime"),ADM("arrivalDateTime"))=DATE,I=0
+"RTN","VPRDVSIT",167,0)
+ S:$G(VAIP(7)) I=I+1,ADM("provider",I)=VAIP(7)_"^P^1" ;primary
+"RTN","VPRDVSIT",168,0)
+ S:$G(VAIP(18)) I=I+1,ADM("provider",I)=VAIP(18)_"^A" ;attending
+"RTN","VPRDVSIT",169,0)
+ S ADM("specialty")=$P($G(VAIP(8)),U,2)
+"RTN","VPRDVSIT",170,0)
+ S X=$$SERV(+$G(VAIP(8))),ADM("service")=X
+"RTN","VPRDVSIT",171,0)
+ S ICD=$$POV(IEN) S:'ICD ICD=$$PTF(DFN,VAIP(12)) ;PTF>ICD
+"RTN","VPRDVSIT",172,0)
+ S ADM("reason")=ICD_U_$G(VAIP(9)) ;ICD code^description^Dx text
+"RTN","VPRDVSIT",173,0)
+ S HLOC=+$G(^DIC(42,+$G(VAIP(5)),44))
+"RTN","VPRDVSIT",174,0)
+ S:HLOC ADM("location")=$P($G(^SC(HLOC,0)),U)
+"RTN","VPRDVSIT",175,0)
+ S ADM("facility")=$$FAC^VPRD(+HLOC),ADM("roomBed")=$P(VAIP(6),U,2)
+"RTN","VPRDVSIT",176,0)
+ S ADM("serviceCategory")="H^HOSPITALIZATION"
+"RTN","VPRDVSIT",177,0)
+ S X=$$CPT(IEN),ADM("type")=$S(X:$P($$CPT^ICPTCOD(X),U,2,3),1:U_$$CATG("H"))
+"RTN","VPRDVSIT",178,0)
+ I $G(VAIP(17)) D
+"RTN","VPRDVSIT",179,0)
+ . S ADM("departureDateTime")=+$G(VAIP(17,1))
+"RTN","VPRDVSIT",180,0)
+ . ; ADM("disposition")=$G(VAIP(17,3)) ;Discharge Mvt Type
+"RTN","VPRDVSIT",181,0)
+ S ADM("visitString")=HLOC_";"_DATE_";H"
+"RTN","VPRDVSIT",182,0)
+ D TIU(IEN) ;notes/summary
+"RTN","VPRDVSIT",183,0)
+ Q
+"RTN","VPRDVSIT",184,0)
+ ;
+"RTN","VPRDVSIT",185,0)
+INPT ; -- return current admission in ADM("attribute")=value [from ADM]
+"RTN","VPRDVSIT",186,0)
+ K VAINDT D INP^VADPT Q:VAIN(1)<1
+"RTN","VPRDVSIT",187,0)
+ S ADM("id")=IEN,ADM("patientClass")="IMP"
+"RTN","VPRDVSIT",188,0)
+ ; ADM("admitType")=$P($G(VAIN(8)),U,2)
+"RTN","VPRDVSIT",189,0)
+ S DATE=+$G(VAIN(7)),(ADM("dateTime"),ADM("arrivalDateTime"))=DATE,I=0
+"RTN","VPRDVSIT",190,0)
+ S:$G(VAIN(2)) I=I+1,ADM("provider",I)=VAIN(2)_"^P^1" ;primary
+"RTN","VPRDVSIT",191,0)
+ S:$G(VAIN(11)) I=I+1,ADM("provider",I)=VAIN(11)_"^A" ;attending
+"RTN","VPRDVSIT",192,0)
+ S ADM("specialty")=$P($G(VAIN(3)),U,2)
+"RTN","VPRDVSIT",193,0)
+ S X=$$SERV(+$G(VAIN(3))),ADM("service")=X
+"RTN","VPRDVSIT",194,0)
+ S ICD=$$POV(IEN) S:'ICD ICD=$$PTF(DFN,VAIN(10)) ;PTF>ICD
+"RTN","VPRDVSIT",195,0)
+ S ADM("reason")=ICD_U_$G(VAIN(9)) ;ICD code^description^Dx text
+"RTN","VPRDVSIT",196,0)
+ S HLOC=+$G(^DIC(42,+$G(VAIN(4)),44))
+"RTN","VPRDVSIT",197,0)
+ S:HLOC ADM("location")=$P($G(^SC(HLOC,0)),U)
+"RTN","VPRDVSIT",198,0)
+ S ADM("facility")=$$FAC^VPRD(+HLOC),ADM("roomBed")=VAIN(5)
+"RTN","VPRDVSIT",199,0)
+ S ADM("serviceCategory")="H^HOSPITALIZATION"
+"RTN","VPRDVSIT",200,0)
+ S X=$$CPT(IEN),ADM("type")=$S(X:$P($$CPT^ICPTCOD(X),U,2,3),1:U_$$CATG("H"))
+"RTN","VPRDVSIT",201,0)
+ ; ADM("visitString")=HLOC_";"_DATE_";H"
+"RTN","VPRDVSIT",202,0)
+ D TIU(IEN) ;notes/summary
+"RTN","VPRDVSIT",203,0)
+ Q
+"RTN","VPRDVSIT",204,0)
+ ;
+"RTN","VPRDVSIT",205,0)
+PTF(DFN,PTF) ; -- return ICD code^description for a PTF record
+"RTN","VPRDVSIT",206,0)
+ N VPRPTF,N,VPRX
+"RTN","VPRDVSIT",207,0)
+ D:$G(PTF) RPC^DGPTFAPI(.VPRPTF,+PTF) I $G(VPRPTF(0))<1 Q "^"
+"RTN","VPRDVSIT",208,0)
+ S Y=$P($G(VPRPTF(1)),U,3)_U
+"RTN","VPRDVSIT",209,0)
+ S N=$$ICDD^ICDCODE(Y,"VPRX") ;ICD Description
+"RTN","VPRDVSIT",210,0)
+ I N>0,$L($G(VPRX(1))) S Y=Y_VPRX(1)
+"RTN","VPRDVSIT",211,0)
+ Q Y
+"RTN","VPRDVSIT",212,0)
+ ;
+"RTN","VPRDVSIT",213,0)
+ENC(IEN,ENC) ; -- return an encounter in ENC("attribute")=value
+"RTN","VPRDVSIT",214,0)
+ N X0,DATE,HLOC,TYPE,STS,X,Y K ENC
+"RTN","VPRDVSIT",215,0)
+ S IEN=+$G(IEN) Q:IEN<1 ;invalid ien
+"RTN","VPRDVSIT",216,0)
+ S ENC("id")="E"_IEN,X0=$$GETOE^SDOE(IEN) ;^SCE(IEN,0) node
+"RTN","VPRDVSIT",217,0)
+ S DATE=+X0,ENC("dateTime")=DATE
+"RTN","VPRDVSIT",218,0)
+ S HLOC=+$P(X0,U,4) I HLOC D
+"RTN","VPRDVSIT",219,0)
+ . S HLOC=HLOC_U_$P($G(^SC(HLOC,0)),U)
+"RTN","VPRDVSIT",220,0)
+ . S ENC("location")=$P(HLOC,U,2)
+"RTN","VPRDVSIT",221,0)
+ . S X=$$GET1^DIQ(44,+HLOC_",",9.5,"I")
+"RTN","VPRDVSIT",222,0)
+ . I X S ENC("service")=$$SERV(X)
+"RTN","VPRDVSIT",223,0)
+ S ENC("facility")=$$FAC^VPRD(+HLOC)
+"RTN","VPRDVSIT",224,0)
+ S STS=$$EXTERNAL^DILFD(409.68,.12,,$P(X0,U,12))
+"RTN","VPRDVSIT",225,0)
+ S X=$S(STS?1"INP".E:"IMP",1:"AMB"),ENC("patientClass")=X,TYPE=$E(X)
+"RTN","VPRDVSIT",226,0)
+ S ENC("type")=U_$S(HLOC:$P(HLOC,U,2)_" VISIT",1:$$CATG(TYPE))
+"RTN","VPRDVSIT",227,0)
+ S ENC("serviceCategory")=TYPE_U_$$CATG(TYPE)
+"RTN","VPRDVSIT",228,0)
+ S ENC("visitString")=+HLOC_";"_DATE_";"_TYPE
+"RTN","VPRDVSIT",229,0)
+ Q
+"RTN","VPRDVSIT",230,0)
+ ;
+"RTN","VPRDVSIT",231,0)
+ ; ------------ Return data to middle tier ------------
+"RTN","VPRDVSIT",232,0)
+ ;
+"RTN","VPRDVSIT",233,0)
+XML(VISIT) ; -- Return patient visit as XML
+"RTN","VPRDVSIT",234,0)
+ N ATT,X,Y,NAMES,I,J
+"RTN","VPRDVSIT",235,0)
+ D ADD("<visit>") S VPRTOTL=$G(VPRTOTL)+1
+"RTN","VPRDVSIT",236,0)
+ S ATT="" F S ATT=$O(VISIT(ATT)) Q:ATT="" D D:$L(Y) ADD(Y)
+"RTN","VPRDVSIT",237,0)
+ . I $O(VISIT(ATT,0)) D S Y="" Q ;multiples
+"RTN","VPRDVSIT",238,0)
+ .. D ADD("<"_ATT_"s>")
+"RTN","VPRDVSIT",239,0)
+ .. S I=0 F S I=$O(VISIT(ATT,I)) Q:I<1 D
+"RTN","VPRDVSIT",240,0)
+ ... S X=$G(VISIT(ATT,I)),NAMES=""
+"RTN","VPRDVSIT",241,0)
+ ... I ATT="document" S NAMES="id^localTitle^nationalTitle^Z"
+"RTN","VPRDVSIT",242,0)
+ ... I ATT="provider" S NAMES="code^name^role^primary^Z"
+"RTN","VPRDVSIT",243,0)
+ ... S Y="<"_ATT_" "_$$LOOP ;_"/>" D ADD(Y)
+"RTN","VPRDVSIT",244,0)
+ ... S X=$G(VISIT(ATT,I,"content")) I '$L(X) S Y=Y_"/>" D ADD(Y) Q
+"RTN","VPRDVSIT",245,0)
+ ... S Y=Y_">" D ADD(Y)
+"RTN","VPRDVSIT",246,0)
+ ... S Y="<content xml:space='preserve'>" D ADD(Y)
+"RTN","VPRDVSIT",247,0)
+ ... S J=0 F S J=$O(@X@(J)) Q:J<1 S Y=$$ESC^VPRD(@X@(J)) D ADD(Y)
+"RTN","VPRDVSIT",248,0)
+ ... D ADD("</content>"),ADD("</"_ATT_">")
+"RTN","VPRDVSIT",249,0)
+ .. D ADD("</"_ATT_"s>")
+"RTN","VPRDVSIT",250,0)
+ . S X=$G(VISIT(ATT)),Y="" Q:'$L(X)
+"RTN","VPRDVSIT",251,0)
+ . S NAMES="code^name^"_$S(ATT="reason":"narrative^",1:"")_"Z"
+"RTN","VPRDVSIT",252,0)
+ . I X'["^" S Y="<"_ATT_" value='"_$$ESC^VPRD(X)_"' />" Q
+"RTN","VPRDVSIT",253,0)
+ . I $L(X)>1 S Y="<"_ATT_" "_$$LOOP_"/>"
+"RTN","VPRDVSIT",254,0)
+ D ADD("</visit>")
+"RTN","VPRDVSIT",255,0)
+ Q
+"RTN","VPRDVSIT",256,0)
+ ;
+"RTN","VPRDVSIT",257,0)
+LOOP() ; -- build sub-items string from NAMES and X
+"RTN","VPRDVSIT",258,0)
+ N STR,P,TAG S STR=""
+"RTN","VPRDVSIT",259,0)
+ F P=1:1 S TAG=$P(NAMES,U,P) Q:TAG="Z" I $L($P(X,U,P)) S STR=STR_TAG_"='"_$$ESC^VPRD($P(X,U,P))_"' "
+"RTN","VPRDVSIT",260,0)
+ Q STR
+"RTN","VPRDVSIT",261,0)
+ ;
+"RTN","VPRDVSIT",262,0)
+ADD(X) ; -- Add a line @VPR@(n)=X
+"RTN","VPRDVSIT",263,0)
+ S VPRI=$G(VPRI)+1
+"RTN","VPRDVSIT",264,0)
+ S @VPR@(VPRI)=X
+"RTN","VPRDVSIT",265,0)
+ Q
+"RTN","VPRJSON")
+0^14^B11235996^n/a
+"RTN","VPRJSON",1,0)
+VPRJSON ;SLC/KCM -- Decode/Encode JSON ;8/14/13 11:22
+"RTN","VPRJSON",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRJSON",3,0)
+ ;
+"RTN","VPRJSON",4,0)
+ ; Note: Since the routines use closed array references, VVROOT and VVERR
+"RTN","VPRJSON",5,0)
+ ; are used to reduce risk of naming conflicts on the closed array.
+"RTN","VPRJSON",6,0)
+ ;
+"RTN","VPRJSON",7,0)
+DECODE(VVJSON,VVROOT,VVERR) ; Set JSON object into closed array ref VVROOT
+"RTN","VPRJSON",8,0)
+ ; Examples: D DECODE^VPRJSON("MYJSON","LOCALVAR","LOCALERR")
+"RTN","VPRJSON",9,0)
+ ; D DECODE^VPRJSON("^MYJSON(1)","^GLO(99)","^TMP($J)")
+"RTN","VPRJSON",10,0)
+ ;
+"RTN","VPRJSON",11,0)
+ ; VVJSON: string/array containing serialized JSON object
+"RTN","VPRJSON",12,0)
+ ; VVROOT: closed array reference for M representation of object
+"RTN","VPRJSON",13,0)
+ ; VVERR: contains error messages, defaults to ^TMP("VPRJERR",$J)
+"RTN","VPRJSON",14,0)
+ ;
+"RTN","VPRJSON",15,0)
+ ; VVIDX: points to next character in JSON string to process
+"RTN","VPRJSON",16,0)
+ ; VVSTACK: manages stack of subscripts
+"RTN","VPRJSON",17,0)
+ ; VVPROP: true if next string is property name, otherwise treat as value
+"RTN","VPRJSON",18,0)
+ ;
+"RTN","VPRJSON",19,0)
+ G DIRECT^VPRJSOND
+"RTN","VPRJSON",20,0)
+ ;
+"RTN","VPRJSON",21,0)
+ENCODE(VVROOT,VVJSON,VVERR) ; VVROOT (M structure) --> VVJSON (array of strings)
+"RTN","VPRJSON",22,0)
+ ; Examples: D ENCODE^VPRJSON("^GLO(99,2)","^TMP($J)")
+"RTN","VPRJSON",23,0)
+ ; D ENCODE^VPRJSON("LOCALVAR","MYJSON","LOCALERR")
+"RTN","VPRJSON",24,0)
+ ;
+"RTN","VPRJSON",25,0)
+ ; VVROOT: closed array reference for M representation of object
+"RTN","VPRJSON",26,0)
+ ; VVJSON: destination variable for the string array formatted as JSON
+"RTN","VPRJSON",27,0)
+ ; VVERR: contains error messages, defaults to ^TMP("VPRJERR",$J)
+"RTN","VPRJSON",28,0)
+ ;
+"RTN","VPRJSON",29,0)
+ G DIRECT^VPRJSONE
+"RTN","VPRJSON",30,0)
+ ;
+"RTN","VPRJSON",31,0)
+ ;
+"RTN","VPRJSON",32,0)
+ESC(X) ; Escape string for JSON
+"RTN","VPRJSON",33,0)
+ Q $$ESC^VPRJSONE(X)
+"RTN","VPRJSON",34,0)
+ ;
+"RTN","VPRJSON",35,0)
+UES(X) ; Unescape JSON string
+"RTN","VPRJSON",36,0)
+ Q $$UES^VPRJSOND(X)
+"RTN","VPRJSON",37,0)
+ ;
+"RTN","VPRJSON",38,0)
+ERRX(ID,VAL) ; Set the appropriate error message
+"RTN","VPRJSON",39,0)
+ ; switch (ID) -- XERRX ends statement
+"RTN","VPRJSON",40,0)
+ N ERRMSG
+"RTN","VPRJSON",41,0)
+ ;
+"RTN","VPRJSON",42,0)
+ ; Decode Error Messages
+"RTN","VPRJSON",43,0)
+ ;
+"RTN","VPRJSON",44,0)
+ I ID="STL{" S ERRMSG="Stack too large for new object." G XERRX
+"RTN","VPRJSON",45,0)
+ I ID="SUF}" S ERRMSG="Stack Underflow - extra } found" G XERRX
+"RTN","VPRJSON",46,0)
+ I ID="STL[" S ERRMSG="Stack too large for new array." G XERRX
+"RTN","VPRJSON",47,0)
+ I ID="SUF]" S ERRMSG="Stack Underflow - extra ] found." G XERRX
+"RTN","VPRJSON",48,0)
+ I ID="OBM" S ERRMSG="Array mismatch - expected ] got }." G XERRX
+"RTN","VPRJSON",49,0)
+ I ID="ARM" S ERRMSG="Object mismatch - expected } got ]." G XERRX
+"RTN","VPRJSON",50,0)
+ I ID="MPN" S ERRMSG="Missing property name." G XERRX
+"RTN","VPRJSON",51,0)
+ I ID="EXT" S ERRMSG="Expected true, got "_VAL G XERRX
+"RTN","VPRJSON",52,0)
+ I ID="EXF" S ERRMSG="Expected false, got "_VAL G XERRX
+"RTN","VPRJSON",53,0)
+ I ID="EXN" S ERRMSG="Expected null, got "_VAL G XERRX
+"RTN","VPRJSON",54,0)
+ I ID="TKN" S ERRMSG="Unable to identify type of token, value was "_VAL G XERRX
+"RTN","VPRJSON",55,0)
+ I ID="SCT" S ERRMSG="Stack mismatch - exit stack level was "_VAL G XERRX
+"RTN","VPRJSON",56,0)
+ I ID="EIQ" S ERRMSG="Close quote not found before end of input." G XERRX
+"RTN","VPRJSON",57,0)
+ I ID="EIU" S ERRMSG="Unexpected end of input while unescaping." G XERRX
+"RTN","VPRJSON",58,0)
+ I ID="RSB" S ERRMSG="Reverse search for \ past beginning of input." G XERRX
+"RTN","VPRJSON",59,0)
+ I ID="ORN" S ERRMSG="Overrun while scanning name." G XERRX
+"RTN","VPRJSON",60,0)
+ I ID="OR#" S ERRMSG="Overrun while scanning number." G XERRX
+"RTN","VPRJSON",61,0)
+ I ID="ORB" S ERRMSG="Overrun while scanning boolean." G XERRX
+"RTN","VPRJSON",62,0)
+ I ID="ESC" S ERRMSG="Escaped character not recognized"_VAL G XERRX
+"RTN","VPRJSON",63,0)
+ ;
+"RTN","VPRJSON",64,0)
+ ; Encode Error Messages
+"RTN","VPRJSON",65,0)
+ ;
+"RTN","VPRJSON",66,0)
+ I ID="SOB" S ERRMSG="Unable to serialize node as object, value was "_VAL G XERRX
+"RTN","VPRJSON",67,0)
+ I ID="SAR" S ERRMSG="Unable to serialize node as array, value was "_VAL G XERRX
+"RTN","VPRJSON",68,0)
+ S ERRMSG="Unspecified error "_ID_" "_$G(VAL)
+"RTN","VPRJSON",69,0)
+XERRX ; end switch
+"RTN","VPRJSON",70,0)
+ S @VVERR@(0)=$G(@VVERR@(0))+1
+"RTN","VPRJSON",71,0)
+ S @VVERR@(@VVERR@(0))=ERRMSG
+"RTN","VPRJSON",72,0)
+ S VVERRORS=VVERRORS+1
+"RTN","VPRJSON",73,0)
+ Q
+"RTN","VPRJSOND")
+0^15^B63619549^n/a
+"RTN","VPRJSOND",1,0)
+VPRJSOND ;SLC/KCM -- Decode JSON
+"RTN","VPRJSOND",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRJSOND",3,0)
+ ;
+"RTN","VPRJSOND",4,0)
+DECODE(VVJSON,VVROOT,VVERR) ; Set JSON object into closed array ref VVROOT
+"RTN","VPRJSOND",5,0)
+ ;
+"RTN","VPRJSOND",6,0)
+DIRECT ; TAG for use by DECODE^VPRJSON
+"RTN","VPRJSOND",7,0)
+ ;
+"RTN","VPRJSOND",8,0)
+ ; Examples: D DECODE^VPRJSON("MYJSON","LOCALVAR","LOCALERR")
+"RTN","VPRJSOND",9,0)
+ ; D DECODE^VPRJSON("^MYJSON(1)","^GLO(99)","^TMP($J)")
+"RTN","VPRJSOND",10,0)
+ ;
+"RTN","VPRJSOND",11,0)
+ ; VVJSON: string/array containing serialized JSON object
+"RTN","VPRJSOND",12,0)
+ ; VVROOT: closed array reference for M representation of object
+"RTN","VPRJSOND",13,0)
+ ; VVERR: contains error messages, defaults to ^TMP("VPRJERR",$J)
+"RTN","VPRJSOND",14,0)
+ ;
+"RTN","VPRJSOND",15,0)
+ ; VVIDX: points to next character in JSON string to process
+"RTN","VPRJSOND",16,0)
+ ; VVSTACK: manages stack of subscripts
+"RTN","VPRJSOND",17,0)
+ ; VVPROP: true if next string is property name, otherwise treat as value
+"RTN","VPRJSOND",18,0)
+ ;
+"RTN","VPRJSOND",19,0)
+ N VVMAX S VVMAX=4000 ; limit document lines to 4000 characters
+"RTN","VPRJSOND",20,0)
+ S VVERR=$G(VVERR,"^TMP(""VPRJERR"",$J)")
+"RTN","VPRJSOND",21,0)
+ ; If a simple string is passed in, move it to an temp array (VVINPUT)
+"RTN","VPRJSOND",22,0)
+ ; so that the processing is consistently on an array.
+"RTN","VPRJSOND",23,0)
+ I $D(@VVJSON)=1 N VVINPUT S VVINPUT(1)=@VVJSON,VVJSON="VVINPUT"
+"RTN","VPRJSOND",24,0)
+ S VVROOT=$NA(@VVROOT@("Z")),VVROOT=$E(VVROOT,1,$L(VVROOT)-4) ; make open array ref
+"RTN","VPRJSOND",25,0)
+ N VVLINE,VVIDX,VVSTACK,VVPROP,VVTYPE,VVERRORS
+"RTN","VPRJSOND",26,0)
+ S VVLINE=$O(@VVJSON@("")),VVIDX=1,VVSTACK=0,VVPROP=0,VVERRORS=0
+"RTN","VPRJSOND",27,0)
+ F S VVTYPE=$$NXTKN() Q:VVTYPE="" D I VVERRORS Q
+"RTN","VPRJSOND",28,0)
+ . I VVTYPE="{" S VVSTACK=VVSTACK+1,VVSTACK(VVSTACK)="",VVPROP=1 D:VVSTACK>64 ERRX("STL{") Q
+"RTN","VPRJSOND",29,0)
+ . I VVTYPE="}" D:VVSTACK(VVSTACK) ERRX("OBM") S VVSTACK=VVSTACK-1 D:VVSTACK<0 ERRX("SUF}") Q
+"RTN","VPRJSOND",30,0)
+ . I VVTYPE="[" S VVSTACK=VVSTACK+1,VVSTACK(VVSTACK)=1 D:VVSTACK>64 ERRX("STL[") Q
+"RTN","VPRJSOND",31,0)
+ . I VVTYPE="]" D:'VVSTACK(VVSTACK) ERRX("ARM") S VVSTACK=VVSTACK-1 D:VVSTACK<0 ERRX("SUF]") Q
+"RTN","VPRJSOND",32,0)
+ . I VVTYPE="," D Q
+"RTN","VPRJSOND",33,0)
+ . . I VVSTACK(VVSTACK) S VVSTACK(VVSTACK)=VVSTACK(VVSTACK)+1 ; next in array
+"RTN","VPRJSOND",34,0)
+ . . E S VVPROP=1 ; or next property name
+"RTN","VPRJSOND",35,0)
+ . I VVTYPE=":" S VVPROP=0 D:'$L($G(VVSTACK(VVSTACK))) ERRX("MPN") Q
+"RTN","VPRJSOND",36,0)
+ . I VVTYPE="""" D Q
+"RTN","VPRJSOND",37,0)
+ . . I VVPROP S VVSTACK(VVSTACK)=$$NAMPARS() I 1
+"RTN","VPRJSOND",38,0)
+ . . E D ADDSTR
+"RTN","VPRJSOND",39,0)
+ . S VVTYPE=$TR(VVTYPE,"TFN","tfn")
+"RTN","VPRJSOND",40,0)
+ . I VVTYPE="t" D SETBOOL("t") Q
+"RTN","VPRJSOND",41,0)
+ . I VVTYPE="f" D SETBOOL("f") Q
+"RTN","VPRJSOND",42,0)
+ . I VVTYPE="n" D SETBOOL("n") Q
+"RTN","VPRJSOND",43,0)
+ . I "0123456789+-.eE"[VVTYPE S @$$CURNODE()=$$NUMPARS(VVTYPE) Q
+"RTN","VPRJSOND",44,0)
+ . D ERRX("TKN",VVTYPE)
+"RTN","VPRJSOND",45,0)
+ I VVSTACK'=0 D ERRX("SCT",VVSTACK)
+"RTN","VPRJSOND",46,0)
+ Q
+"RTN","VPRJSOND",47,0)
+NXTKN() ; Move the pointers to the beginning of the next token
+"RTN","VPRJSOND",48,0)
+ N VVDONE,VVEOF,VVTOKEN
+"RTN","VPRJSOND",49,0)
+ S VVDONE=0,VVEOF=0 F D Q:VVDONE!VVEOF ; eat spaces & new lines until next visible char
+"RTN","VPRJSOND",50,0)
+ . I VVIDX>$L(@VVJSON@(VVLINE)) S VVLINE=$O(@VVJSON@(VVLINE)),VVIDX=1 I 'VVLINE S VVEOF=1 Q
+"RTN","VPRJSOND",51,0)
+ . I $A(@VVJSON@(VVLINE),VVIDX)>32 S VVDONE=1 Q
+"RTN","VPRJSOND",52,0)
+ . S VVIDX=VVIDX+1
+"RTN","VPRJSOND",53,0)
+ Q:VVEOF "" ; we're at the end of input
+"RTN","VPRJSOND",54,0)
+ S VVTOKEN=$E(@VVJSON@(VVLINE),VVIDX),VVIDX=VVIDX+1
+"RTN","VPRJSOND",55,0)
+ Q VVTOKEN
+"RTN","VPRJSOND",56,0)
+ ;
+"RTN","VPRJSOND",57,0)
+ADDSTR ; Add string value to current node, escaping text along the way
+"RTN","VPRJSOND",58,0)
+ ; Expects VVLINE,VVIDX to reference that starting point of the index
+"RTN","VPRJSOND",59,0)
+ ; TODO: add a mechanism to specify names that should not be escaped
+"RTN","VPRJSOND",60,0)
+ ; just store as ":")= and ":",n)=
+"RTN","VPRJSOND",61,0)
+ ;
+"RTN","VPRJSOND",62,0)
+ ; Happy path -- we find the end quote in the same line
+"RTN","VPRJSOND",63,0)
+ N VVEND,VVX
+"RTN","VPRJSOND",64,0)
+ S VVEND=$F(@VVJSON@(VVLINE),"""",VVIDX)
+"RTN","VPRJSOND",65,0)
+ I VVEND,($E(@VVJSON@(VVLINE),VVEND-2)'="\") D SETSTR QUIT ;normal
+"RTN","VPRJSOND",66,0)
+ I VVEND,$$ISCLOSEQ(VVLINE) D SETSTR QUIT ;close quote preceded by escaped \
+"RTN","VPRJSOND",67,0)
+ ;
+"RTN","VPRJSOND",68,0)
+ ; Less happy path -- first quote wasn't close quote
+"RTN","VPRJSOND",69,0)
+ N VVDONE,VVTLINE
+"RTN","VPRJSOND",70,0)
+ S VVDONE=0,VVTLINE=VVLINE ; VVTLINE for temporary increment of VVLINE
+"RTN","VPRJSOND",71,0)
+ F D Q:VVDONE Q:VVERRORS
+"RTN","VPRJSOND",72,0)
+ . ;if no quote on current line advance line, scan again
+"RTN","VPRJSOND",73,0)
+ . I 'VVEND S VVTLINE=VVTLINE+1,VVEND=1 I '$D(@VVJSON@(VVTLINE)) D ERRX("EIQ") Q
+"RTN","VPRJSOND",74,0)
+ . S VVEND=$F(@VVJSON@(VVTLINE),"""",VVEND)
+"RTN","VPRJSOND",75,0)
+ . Q:'VVEND ; continue on to next line if no quote found on this one
+"RTN","VPRJSOND",76,0)
+ . I (VVEND>2),($E(@VVJSON@(VVTLINE),VVEND-2)'="\") S VVDONE=1 Q ; found quote position
+"RTN","VPRJSOND",77,0)
+ . S VVDONE=$$ISCLOSEQ(VVTLINE) ; see if this is an escaped quote or closing quote
+"RTN","VPRJSOND",78,0)
+ Q:VVERRORS
+"RTN","VPRJSOND",79,0)
+ ; unescape from VVIDX to VVEND, using \-extension nodes as necessary
+"RTN","VPRJSOND",80,0)
+ D UESEXT
+"RTN","VPRJSOND",81,0)
+ ; now we need to move VVLINE and VVIDX to next parsing point
+"RTN","VPRJSOND",82,0)
+ S VVLINE=VVTLINE,VVIDX=VVEND
+"RTN","VPRJSOND",83,0)
+ Q
+"RTN","VPRJSOND",84,0)
+SETSTR ; Set simple string value from within same line
+"RTN","VPRJSOND",85,0)
+ ; expects VVJSON, VVLINE, VVINX, VVEND
+"RTN","VPRJSOND",86,0)
+ N VVX
+"RTN","VPRJSOND",87,0)
+ S VVX=$E(@VVJSON@(VVLINE),VVIDX,VVEND-2),VVIDX=VVEND
+"RTN","VPRJSOND",88,0)
+ S @$$CURNODE()=$$UES(VVX)
+"RTN","VPRJSOND",89,0)
+ I (+VVX=VVX)!($E(VVX,1,2)="0.")!($E(VVX,1,3)="-0.") S @$$CURNODE()@("\s")=""
+"RTN","VPRJSOND",90,0)
+ I VVIDX>$L(@VVJSON@(VVLINE)) S VVLINE=VVLINE+1,VVIDX=1
+"RTN","VPRJSOND",91,0)
+ Q
+"RTN","VPRJSOND",92,0)
+UESEXT ; unescape from VVLINE,VVIDX to VVTLINE,VVEND & extend (\) if necessary
+"RTN","VPRJSOND",93,0)
+ ; expects VVLINE,VVIDX,VVTLINE,VVEND
+"RTN","VPRJSOND",94,0)
+ N VVI,VVY,VVSTART,VVSTOP,VVDONE,VVBUF,VVNODE,VVMORE,VVTO
+"RTN","VPRJSOND",95,0)
+ S VVNODE=$$CURNODE(),VVBUF="",VVMORE=0,VVSTOP=VVEND-2
+"RTN","VPRJSOND",96,0)
+ S VVI=VVIDX,VVY=VVLINE,VVDONE=0
+"RTN","VPRJSOND",97,0)
+ F D Q:VVDONE Q:VVERRORS
+"RTN","VPRJSOND",98,0)
+ . S VVSTART=VVI,VVI=$F(@VVJSON@(VVY),"\",VVI)
+"RTN","VPRJSOND",99,0)
+ . ; if we are on the last line, don't extract past VVSTOP
+"RTN","VPRJSOND",100,0)
+ . I (VVY=VVTLINE) S VVTO=$S('VVI:VVSTOP,VVI>VVSTOP:VVSTOP,1:VVI-2) I 1
+"RTN","VPRJSOND",101,0)
+ . E S VVTO=$S('VVI:99999,1:VVI-2)
+"RTN","VPRJSOND",102,0)
+ . D ADDBUF($E(@VVJSON@(VVY),VVSTART,VVTO))
+"RTN","VPRJSOND",103,0)
+ . I (VVY'<VVTLINE),(('VVI)!(VVI>VVSTOP)) S VVDONE=1 QUIT ; now past close quote
+"RTN","VPRJSOND",104,0)
+ . I 'VVI S VVY=VVY+1,VVI=1 QUIT ; nothing escaped, go to next line
+"RTN","VPRJSOND",105,0)
+ . I VVI>$L(@VVJSON@(VVY)) S VVY=VVY+1,VVI=1 I '$D(@VVJSON@(VVY)) D ERRX("EIU")
+"RTN","VPRJSOND",106,0)
+ . N VVTGT S VVTGT=$E(@VVJSON@(VVY),VVI)
+"RTN","VPRJSOND",107,0)
+ . I VVTGT="u" D I 1
+"RTN","VPRJSOND",108,0)
+ . . N VVTGTC S VVTGTC=$E(@VVJSON@(VVY),VVI+1,VVI+4),VVI=VVI+4
+"RTN","VPRJSOND",109,0)
+ . . I $L(VVTGTC)<4 S VVY=VVY+1,VVI=4-$L(VVTGTC),VVTGTC=VVTGTC_$E(@VVJSON@(VVY),1,VVI)
+"RTN","VPRJSOND",110,0)
+ . . D ADDBUF($C($$DEC^XLFUTL(VVTGTC,16)))
+"RTN","VPRJSOND",111,0)
+ . E D ADDBUF($$REALCHAR(VVTGT))
+"RTN","VPRJSOND",112,0)
+ . S VVI=VVI+1
+"RTN","VPRJSOND",113,0)
+ . I (VVY'<VVTLINE),(VVI>VVSTOP) S VVDONE=1 ; VVI incremented past stop
+"RTN","VPRJSOND",114,0)
+ Q:VVERRORS
+"RTN","VPRJSOND",115,0)
+ D SAVEBUF
+"RTN","VPRJSOND",116,0)
+ Q
+"RTN","VPRJSOND",117,0)
+ADDBUF(VVX) ; add buffer of characters to destination
+"RTN","VPRJSOND",118,0)
+ ; expects VVBUF,VVMAX,VVNODE,VVMORE to be defined
+"RTN","VPRJSOND",119,0)
+ ; used directly by ADDSTR
+"RTN","VPRJSOND",120,0)
+ I $L(VVX)+$L(VVBUF)>VVMAX D SAVEBUF
+"RTN","VPRJSOND",121,0)
+ S VVBUF=VVBUF_VVX
+"RTN","VPRJSOND",122,0)
+ Q
+"RTN","VPRJSOND",123,0)
+SAVEBUF ; write out buffer to destination
+"RTN","VPRJSOND",124,0)
+ ; expects VVBUF,VVMAX,VVNODE,VVMORE to be defined
+"RTN","VPRJSOND",125,0)
+ ; used directly by ADDSTR,ADDBUF
+"RTN","VPRJSOND",126,0)
+ I VVMORE S @VVNODE@("\",VVMORE)=VVBUF
+"RTN","VPRJSOND",127,0)
+ I 'VVMORE S @VVNODE=VVBUF I $L(VVBUF)<19,+$E(VVBUF,1,18) S @VVNODE@("\s")=""
+"RTN","VPRJSOND",128,0)
+ S VVMORE=VVMORE+1,VVBUF=""
+"RTN","VPRJSOND",129,0)
+ Q
+"RTN","VPRJSOND",130,0)
+ISCLOSEQ(VVBLINE) ; return true if this is a closing, rather than escaped, quote
+"RTN","VPRJSOND",131,0)
+ ; expects
+"RTN","VPRJSOND",132,0)
+ ; VVJSON: lines of the JSON encoded string
+"RTN","VPRJSOND",133,0)
+ ; VVIDX: points to 1st character of the segment
+"RTN","VPRJSOND",134,0)
+ ; VVLINE: points to the line in which the segment starts
+"RTN","VPRJSOND",135,0)
+ ; VVEND: points to 1st character after the " (may be past the end of the line)
+"RTN","VPRJSOND",136,0)
+ ; used directly by ADDSTR
+"RTN","VPRJSOND",137,0)
+ N VVBS,VVBIDX,VVBDONE
+"RTN","VPRJSOND",138,0)
+ S VVBS=0,VVBIDX=VVEND-2,VVBDONE=0 ; VVBIDX starts at 1st character before quote
+"RTN","VPRJSOND",139,0)
+ ; count the backslashes preceding the quote (odd number means the quote was escaped)
+"RTN","VPRJSOND",140,0)
+ F D Q:VVBDONE!VVERRORS
+"RTN","VPRJSOND",141,0)
+ . I VVBIDX<1 D Q ; when VVBIDX<1 go back a line
+"RTN","VPRJSOND",142,0)
+ . . S VVBLINE=VVBLINE-1 I VVBLINE<VVLINE D ERRX("RSB") Q
+"RTN","VPRJSOND",143,0)
+ . . S VVBIDX=$L(@VVJSON@(VVBLINE))
+"RTN","VPRJSOND",144,0)
+ . I $E(@VVJSON@(VVBLINE),VVBIDX)'="\" S VVBDONE=1 Q
+"RTN","VPRJSOND",145,0)
+ . S VVBS=VVBS+1,VVBIDX=VVBIDX-1
+"RTN","VPRJSOND",146,0)
+ Q VVBS#2=0 ; VVBS is even if this is a close quote
+"RTN","VPRJSOND",147,0)
+ ;
+"RTN","VPRJSOND",148,0)
+NAMPARS() ; Return parsed name, advancing index past the close quote
+"RTN","VPRJSOND",149,0)
+ ; -- This assumes no embedded quotes are in the name itself --
+"RTN","VPRJSOND",150,0)
+ N VVEND,VVDONE,VVNAME
+"RTN","VPRJSOND",151,0)
+ S VVDONE=0,VVNAME=""
+"RTN","VPRJSOND",152,0)
+ F D Q:VVDONE Q:VVERRORS
+"RTN","VPRJSOND",153,0)
+ . S VVEND=$F(@VVJSON@(VVLINE),"""",VVIDX)
+"RTN","VPRJSOND",154,0)
+ . I VVEND S VVNAME=VVNAME_$E(@VVJSON@(VVLINE),VVIDX,VVEND-2),VVIDX=VVEND,VVDONE=1
+"RTN","VPRJSOND",155,0)
+ . I 'VVEND S VVNAME=VVNAME_$E(@VVJSON@(VVLINE),VVIDX,$L(@VVJSON@(VVLINE)))
+"RTN","VPRJSOND",156,0)
+ . I 'VVEND!(VVEND>$L(@VVJSON@(VVLINE))) S VVLINE=VVLINE+1,VVIDX=1 I '$D(@VVJSON@(VVLINE)) D ERRX("ORN")
+"RTN","VPRJSOND",157,0)
+ Q VVNAME
+"RTN","VPRJSOND",158,0)
+ ;
+"RTN","VPRJSOND",159,0)
+NUMPARS(VVDIGIT) ; Return parsed number, advancing index past the end of the number
+"RTN","VPRJSOND",160,0)
+ ; VVIDX intially references the second digit
+"RTN","VPRJSOND",161,0)
+ N VVDONE,VVNUM
+"RTN","VPRJSOND",162,0)
+ S VVDONE=0,VVNUM=VVDIGIT
+"RTN","VPRJSOND",163,0)
+ F D Q:VVDONE Q:VVERRORS
+"RTN","VPRJSOND",164,0)
+ . I '("0123456789+-.eE"[$E(@VVJSON@(VVLINE),VVIDX)) S VVDONE=1 Q
+"RTN","VPRJSOND",165,0)
+ . S VVNUM=VVNUM_$E(@VVJSON@(VVLINE),VVIDX)
+"RTN","VPRJSOND",166,0)
+ . S VVIDX=VVIDX+1 I VVIDX>$L(@VVJSON@(VVLINE)) S VVLINE=VVLINE+1,VVIDX=1 I '$D(@VVJSON@(VVLINE)) D ERRX("OR#")
+"RTN","VPRJSOND",167,0)
+ Q VVNUM
+"RTN","VPRJSOND",168,0)
+ ;
+"RTN","VPRJSOND",169,0)
+SETBOOL(VVLTR) ; Return parsed value, advancing index past the end of the value
+"RTN","VPRJSOND",170,0)
+ N VVDONE,VVBOOL,VVX
+"RTN","VPRJSOND",171,0)
+ S VVDONE=0,VVBOOL=VVLTR
+"RTN","VPRJSOND",172,0)
+ F D Q:VVDONE Q:VVERRORS
+"RTN","VPRJSOND",173,0)
+ . S VVX=$TR($E(@VVJSON@(VVLINE),VVIDX),"TRUEFALSN","truefalsn")
+"RTN","VPRJSOND",174,0)
+ . I '("truefalsn"[VVX) S VVDONE=1 Q
+"RTN","VPRJSOND",175,0)
+ . S VVBOOL=VVBOOL_VVX
+"RTN","VPRJSOND",176,0)
+ . S VVIDX=VVIDX+1 I VVIDX>$L(@VVJSON@(VVLINE)) S VVLINE=VVLINE+1,VVIDX=1 I '$D(@VVJSON@(VVLINE)) D ERRX("ORB")
+"RTN","VPRJSOND",177,0)
+ I VVLTR="t",(VVBOOL'="true") D ERRX("EXT",VVTYPE)
+"RTN","VPRJSOND",178,0)
+ I VVLTR="f",(VVBOOL'="false") D ERRX("EXF",VVTYPE)
+"RTN","VPRJSOND",179,0)
+ I VVLTR="n",(VVBOOL'="null") D ERRX("EXN",VVTYPE)
+"RTN","VPRJSOND",180,0)
+ S @$$CURNODE()=VVBOOL
+"RTN","VPRJSOND",181,0)
+ Q
+"RTN","VPRJSOND",182,0)
+ ;
+"RTN","VPRJSOND",183,0)
+OSETBOOL(VVX) ; set a value and increment VVIDX
+"RTN","VPRJSOND",184,0)
+ S @$$CURNODE()=VVX
+"RTN","VPRJSOND",185,0)
+ S VVIDX=VVIDX+$L(VVX)-1
+"RTN","VPRJSOND",186,0)
+ N VVDIFF S VVDIFF=VVIDX-$L(@VVJSON@(VVLINE)) ; in case VVIDX moves to next line
+"RTN","VPRJSOND",187,0)
+ I VVDIFF>0 S VVLINE=VVLINE+1,VVIDX=VVDIFF I '$D(@VVJSON@(VVLINE)) D ERRX("ORB")
+"RTN","VPRJSOND",188,0)
+ Q
+"RTN","VPRJSOND",189,0)
+CURNODE() ; Return a global/local variable name based on VVSTACK
+"RTN","VPRJSOND",190,0)
+ ; Expects VVSTACK to be defined already
+"RTN","VPRJSOND",191,0)
+ N VVI,VVSUBS
+"RTN","VPRJSOND",192,0)
+ S VVSUBS=""
+"RTN","VPRJSOND",193,0)
+ F VVI=1:1:VVSTACK S:VVI>1 VVSUBS=VVSUBS_"," D
+"RTN","VPRJSOND",194,0)
+ . I VVSTACK(VVI) S VVSUBS=VVSUBS_VVSTACK(VVI)
+"RTN","VPRJSOND",195,0)
+ . E S VVSUBS=VVSUBS_""""_VVSTACK(VVI)_""""
+"RTN","VPRJSOND",196,0)
+ Q VVROOT_VVSUBS_")"
+"RTN","VPRJSOND",197,0)
+ ;
+"RTN","VPRJSOND",198,0)
+UES(X) ; Unescape JSON string
+"RTN","VPRJSOND",199,0)
+ ; copy segments from START to POS-2 (right before \)
+"RTN","VPRJSOND",200,0)
+ ; translate target character (which is at $F position)
+"RTN","VPRJSOND",201,0)
+ N POS,Y,START
+"RTN","VPRJSOND",202,0)
+ S POS=0,Y=""
+"RTN","VPRJSOND",203,0)
+ F S START=POS+1 D Q:START>$L(X)
+"RTN","VPRJSOND",204,0)
+ . S POS=$F(X,"\",START) ; find next position
+"RTN","VPRJSOND",205,0)
+ . I 'POS S Y=Y_$E(X,START,$L(X)),POS=$L(X) Q
+"RTN","VPRJSOND",206,0)
+ . ; otherwise handle escaped char
+"RTN","VPRJSOND",207,0)
+ . N TGT
+"RTN","VPRJSOND",208,0)
+ . S TGT=$E(X,POS),Y=Y_$E(X,START,POS-2)
+"RTN","VPRJSOND",209,0)
+ . I TGT="u" S Y=Y_$C($$DEC^XLFUTL($E(X,POS+1,POS+4),16)),POS=POS+4 Q
+"RTN","VPRJSOND",210,0)
+ . S Y=Y_$$REALCHAR(TGT)
+"RTN","VPRJSOND",211,0)
+ Q Y
+"RTN","VPRJSOND",212,0)
+ ;
+"RTN","VPRJSOND",213,0)
+REALCHAR(C) ; Return actual character from escaped
+"RTN","VPRJSOND",214,0)
+ I C="""" Q """"
+"RTN","VPRJSOND",215,0)
+ I C="/" Q "/"
+"RTN","VPRJSOND",216,0)
+ I C="\" Q "\"
+"RTN","VPRJSOND",217,0)
+ I C="b" Q $C(8)
+"RTN","VPRJSOND",218,0)
+ I C="f" Q $C(12)
+"RTN","VPRJSOND",219,0)
+ I C="n" Q $C(10)
+"RTN","VPRJSOND",220,0)
+ I C="r" Q $C(13)
+"RTN","VPRJSOND",221,0)
+ I C="t" Q $C(9)
+"RTN","VPRJSOND",222,0)
+ I C="u" ;case covered above in $$DEC^XLFUTL calls
+"RTN","VPRJSOND",223,0)
+ ;otherwise
+"RTN","VPRJSOND",224,0)
+ I $L($G(VVERR)) D ERRX("ESC",C)
+"RTN","VPRJSOND",225,0)
+ Q C
+"RTN","VPRJSOND",226,0)
+ ;
+"RTN","VPRJSOND",227,0)
+ERRX(ID,VAL) ; Set the appropriate error message
+"RTN","VPRJSOND",228,0)
+ D ERRX^VPRJSON(ID,$G(VAL))
+"RTN","VPRJSOND",229,0)
+ Q
+"RTN","VPRJSONE")
+0^16^B20857447^n/a
+"RTN","VPRJSONE",1,0)
+VPRJSONE ;SLC/KCM -- Encode JSON
+"RTN","VPRJSONE",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRJSONE",3,0)
+ ;
+"RTN","VPRJSONE",4,0)
+ENCODE(VVROOT,VVJSON,VVERR) ; VVROOT (M structure) --> VVJSON (array of strings)
+"RTN","VPRJSONE",5,0)
+ ;
+"RTN","VPRJSONE",6,0)
+DIRECT ; TAG for use by ENCODE^VPRJSON
+"RTN","VPRJSONE",7,0)
+ ;
+"RTN","VPRJSONE",8,0)
+ ; Examples: D ENCODE^VPRJSON("^GLO(99,2)","^TMP($J)")
+"RTN","VPRJSONE",9,0)
+ ; D ENCODE^VPRJSON("LOCALVAR","MYJSON","LOCALERR")
+"RTN","VPRJSONE",10,0)
+ ;
+"RTN","VPRJSONE",11,0)
+ ; VVROOT: closed array reference for M representation of object
+"RTN","VPRJSONE",12,0)
+ ; VVJSON: destination variable for the string array formatted as JSON
+"RTN","VPRJSONE",13,0)
+ ; VVERR: contains error messages, defaults to ^TMP("VPRJERR",$J)
+"RTN","VPRJSONE",14,0)
+ ;
+"RTN","VPRJSONE",15,0)
+ S VVERR=$G(VVERR,"^TMP(""VPRJERR"",$J)")
+"RTN","VPRJSONE",16,0)
+ I '$L($G(VVROOT)) ; set error info
+"RTN","VPRJSONE",17,0)
+ I '$L($G(VVJSON)) ; set error info
+"RTN","VPRJSONE",18,0)
+ N VVLINE,VVMAX,VVERRORS
+"RTN","VPRJSONE",19,0)
+ S VVLINE=1,VVMAX=4000,VVERRORS=0 ; 96 more bytes of wiggle room
+"RTN","VPRJSONE",20,0)
+ S @VVJSON@(VVLINE)=""
+"RTN","VPRJSONE",21,0)
+ D SEROBJ(VVROOT)
+"RTN","VPRJSONE",22,0)
+ Q
+"RTN","VPRJSONE",23,0)
+ ;
+"RTN","VPRJSONE",24,0)
+SEROBJ(VVROOT) ; Serialize into a JSON object
+"RTN","VPRJSONE",25,0)
+ N VVFIRST,VVSUB,VVNXT
+"RTN","VPRJSONE",26,0)
+ S @VVJSON@(VVLINE)=@VVJSON@(VVLINE)_"{"
+"RTN","VPRJSONE",27,0)
+ S VVFIRST=1
+"RTN","VPRJSONE",28,0)
+ S VVSUB="" F S VVSUB=$O(@VVROOT@(VVSUB)) Q:VVSUB="" D
+"RTN","VPRJSONE",29,0)
+ . S:'VVFIRST @VVJSON@(VVLINE)=@VVJSON@(VVLINE)_"," S VVFIRST=0
+"RTN","VPRJSONE",30,0)
+ . ; get the name part
+"RTN","VPRJSONE",31,0)
+ . D SERNAME(VVSUB)
+"RTN","VPRJSONE",32,0)
+ . ; if this is a value, serialize it
+"RTN","VPRJSONE",33,0)
+ . I $$ISVALUE(VVROOT,VVSUB) D SERVAL(VVROOT,VVSUB) Q
+"RTN","VPRJSONE",34,0)
+ . ; otherwise navigate to the next child object or array
+"RTN","VPRJSONE",35,0)
+ . I $D(@VVROOT@(VVSUB))=10 S VVNXT=$O(@VVROOT@(VVSUB,"")) D Q
+"RTN","VPRJSONE",36,0)
+ . . I +VVNXT D SERARY($NA(@VVROOT@(VVSUB))) I 1
+"RTN","VPRJSONE",37,0)
+ . . E D SEROBJ($NA(@VVROOT@(VVSUB)))
+"RTN","VPRJSONE",38,0)
+ . D ERRX("SOB",VVSUB) ; should quit loop before here
+"RTN","VPRJSONE",39,0)
+ S @VVJSON@(VVLINE)=@VVJSON@(VVLINE)_"}"
+"RTN","VPRJSONE",40,0)
+ Q
+"RTN","VPRJSONE",41,0)
+SERARY(VVROOT) ; Serialize into a JSON array
+"RTN","VPRJSONE",42,0)
+ N VVFIRST,VVI,VVNXT
+"RTN","VPRJSONE",43,0)
+ S @VVJSON@(VVLINE)=@VVJSON@(VVLINE)_"["
+"RTN","VPRJSONE",44,0)
+ S VVFIRST=1
+"RTN","VPRJSONE",45,0)
+ S VVI=0 F S VVI=$O(@VVROOT@(VVI)) Q:'VVI D
+"RTN","VPRJSONE",46,0)
+ . S:'VVFIRST @VVJSON@(VVLINE)=@VVJSON@(VVLINE)_"," S VVFIRST=0
+"RTN","VPRJSONE",47,0)
+ . I $$ISVALUE(VVROOT,VVI) D SERVAL(VVROOT,VVI) Q ; write value
+"RTN","VPRJSONE",48,0)
+ . I $D(@VVROOT@(VVI))=10 S VVNXT=$O(@VVROOT@(VVI,"")) D Q
+"RTN","VPRJSONE",49,0)
+ . . I +VVNXT D SERARY($NA(@VVROOT@(VVI))) I 1
+"RTN","VPRJSONE",50,0)
+ . . E D SEROBJ($NA(@VVROOT@(VVI)))
+"RTN","VPRJSONE",51,0)
+ . D ERRX("SAR",VVI) ; should quit loop before here
+"RTN","VPRJSONE",52,0)
+ S @VVJSON@(VVLINE)=@VVJSON@(VVLINE)_"]"
+"RTN","VPRJSONE",53,0)
+ Q
+"RTN","VPRJSONE",54,0)
+SERNAME(VVSUB) ; Serialize the object name into JSON string
+"RTN","VPRJSONE",55,0)
+ I ($L(VVSUB)+$L(@VVJSON@(VVLINE)))>VVMAX S VVLINE=VVLINE+1, at VVJSON@(VVLINE)=""
+"RTN","VPRJSONE",56,0)
+ S @VVJSON@(VVLINE)=@VVJSON@(VVLINE)_""""_VVSUB_""""_":"
+"RTN","VPRJSONE",57,0)
+ Q
+"RTN","VPRJSONE",58,0)
+SERVAL(VVROOT,VVSUB) ; Serialize X into appropriate JSON representation
+"RTN","VPRJSONE",59,0)
+ N VVX,VVI
+"RTN","VPRJSONE",60,0)
+ ; if the node is already in JSON format, just add it
+"RTN","VPRJSONE",61,0)
+ I $D(@VVROOT@(VVSUB,":")) D QUIT ; <-- jump out here if preformatted
+"RTN","VPRJSONE",62,0)
+ . S VVX=$G(@VVROOT@(VVSUB,":")) D:$L(VVX) CONCAT
+"RTN","VPRJSONE",63,0)
+ . S VVI=0 F S VVI=$O(@VVROOT@(VVSUB,":",VVI)) Q:'VVI S VVX=@VVROOT@(VVSUB,":",VVI) D CONCAT
+"RTN","VPRJSONE",64,0)
+ ;
+"RTN","VPRJSONE",65,0)
+ S VVX=$G(@VVROOT@(VVSUB))
+"RTN","VPRJSONE",66,0)
+ ; handle the numeric, boolean, and null types
+"RTN","VPRJSONE",67,0)
+ I '$D(@VVROOT@(VVSUB,"\s")),$$NUMERIC(VVX) D CONCAT QUIT
+"RTN","VPRJSONE",68,0)
+ I (VVX="true")!(VVX="false")!(VVX="null") D CONCAT QUIT
+"RTN","VPRJSONE",69,0)
+ ;I $E(vX)=$C(186) S vX=$E(vX,2,$L(vX)) ; remove the "string-forcing" char
+"RTN","VPRJSONE",70,0)
+ ; otherwise treat it as a string type
+"RTN","VPRJSONE",71,0)
+ S VVX=""""_$$ESC(VVX) ; open quote
+"RTN","VPRJSONE",72,0)
+ D CONCAT
+"RTN","VPRJSONE",73,0)
+ I $D(@VVROOT@(VVSUB,"\")) D ; handle continuation nodes
+"RTN","VPRJSONE",74,0)
+ . S VVI=0 F S VVI=$O(@VVROOT@(VVSUB,"\",VVI)) Q:'VVI D
+"RTN","VPRJSONE",75,0)
+ . . S VVX=$$ESC(@VVROOT@(VVSUB,"\",VVI))
+"RTN","VPRJSONE",76,0)
+ . . D CONCAT
+"RTN","VPRJSONE",77,0)
+ S VVX="""" D CONCAT ; close quote
+"RTN","VPRJSONE",78,0)
+ Q
+"RTN","VPRJSONE",79,0)
+CONCAT ; come here to concatenate to JSON string
+"RTN","VPRJSONE",80,0)
+ I ($L(VVX)+$L(@VVJSON@(VVLINE)))>VVMAX S VVLINE=VVLINE+1, at VVJSON@(VVLINE)=""
+"RTN","VPRJSONE",81,0)
+ S @VVJSON@(VVLINE)=@VVJSON@(VVLINE)_VVX
+"RTN","VPRJSONE",82,0)
+ Q
+"RTN","VPRJSONE",83,0)
+ISVALUE(VVROOT,VVSUB) ; Return true if this is a value node
+"RTN","VPRJSONE",84,0)
+ I $D(@VVROOT@(VVSUB))#2 Q 1
+"RTN","VPRJSONE",85,0)
+ N VVX S VVX=$O(@VVROOT@(VVSUB,""))
+"RTN","VPRJSONE",86,0)
+ Q:VVX="\" 1
+"RTN","VPRJSONE",87,0)
+ Q:VVX=":" 1
+"RTN","VPRJSONE",88,0)
+ Q 0
+"RTN","VPRJSONE",89,0)
+ ;
+"RTN","VPRJSONE",90,0)
+NUMERIC(X) ; Return true if the numeric
+"RTN","VPRJSONE",91,0)
+ I $L(X)>18 Q 0 ; string (too long for numeric)
+"RTN","VPRJSONE",92,0)
+ I X=0 Q 1 ; numeric (value is zero)
+"RTN","VPRJSONE",93,0)
+ I +X=0 Q 0 ; string
+"RTN","VPRJSONE",94,0)
+ I $E(X,1)="." Q 0 ; not a JSON number (although numeric in M)
+"RTN","VPRJSONE",95,0)
+ I $E(X,1,2)="-." Q 0 ; not a JSON number
+"RTN","VPRJSONE",96,0)
+ I +X=X Q 1 ; numeric
+"RTN","VPRJSONE",97,0)
+ I X?1"0."1.n Q 1 ; positive fraction
+"RTN","VPRJSONE",98,0)
+ I X?1"-0."1.N Q 1 ; negative fraction
+"RTN","VPRJSONE",99,0)
+ S X=$TR(X,"e","E")
+"RTN","VPRJSONE",100,0)
+ I X?.1"-"1.N.1".".N1"E".1"+"1.N Q 1 ; {-}99{.99}E{+}99
+"RTN","VPRJSONE",101,0)
+ I X?.1"-"1.N.1".".N1"E-"1.N Q 1 ; {-}99{.99}E-99
+"RTN","VPRJSONE",102,0)
+ Q 0
+"RTN","VPRJSONE",103,0)
+ ;
+"RTN","VPRJSONE",104,0)
+ESC(X) ; Escape string for JSON
+"RTN","VPRJSONE",105,0)
+ N Y,I,PAIR,FROM,TO
+"RTN","VPRJSONE",106,0)
+ S Y=X
+"RTN","VPRJSONE",107,0)
+ F PAIR="\\","""""","//",$C(8,98),$C(12,102),$C(10,110),$C(13,114),$C(9,116) D
+"RTN","VPRJSONE",108,0)
+ . S FROM=$E(PAIR),TO=$E(PAIR,2)
+"RTN","VPRJSONE",109,0)
+ . S X=Y,Y=$P(X,FROM) F I=2:1:$L(X,FROM) S Y=Y_"\"_TO_$P(X,FROM,I)
+"RTN","VPRJSONE",110,0)
+ I Y?.E1.C.E S X=Y,Y="" F I=1:1:$L(X) S FROM=$A(X,I) D
+"RTN","VPRJSONE",111,0)
+ . ; skip NUL character, otherwise encode ctrl-char
+"RTN","VPRJSONE",112,0)
+ . I FROM<32 Q:FROM=0 S Y=Y_$$UCODE(FROM) Q
+"RTN","VPRJSONE",113,0)
+ . I FROM>126,(FROM<160) S Y=Y_$$UCODE(FROM) Q
+"RTN","VPRJSONE",114,0)
+ . S Y=Y_$E(X,I)
+"RTN","VPRJSONE",115,0)
+ Q Y
+"RTN","VPRJSONE",116,0)
+ ;
+"RTN","VPRJSONE",117,0)
+UCODE(C) ; Return \u00nn representation of decimal character value
+"RTN","VPRJSONE",118,0)
+ N H S H="0000"_$$CNV^XLFUTL(C,16)
+"RTN","VPRJSONE",119,0)
+ Q "\u"_$E(H,$L(H)-3,$L(H))
+"RTN","VPRJSONE",120,0)
+ ;
+"RTN","VPRJSONE",121,0)
+ERRX(ID,VAL) ; Set the appropriate error message
+"RTN","VPRJSONE",122,0)
+ D ERRX^VPRJSON(ID,$G(VAL))
+"RTN","VPRJSONE",123,0)
+ Q
+"RTN","VPRP2I")
+0^34^B236349^n/a
+"RTN","VPRP2I",1,0)
+VPRP2I ;SLC/MKB -- VPR patch 2 post install ;8/14/13 11:22
+"RTN","VPRP2I",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRP2I",3,0)
+ ;
+"RTN","VPRP2I",4,0)
+ ; External References DBIA#
+"RTN","VPRP2I",5,0)
+ ; ------------------- -----
+"RTN","VPRP2I",6,0)
+ ; XPAR 2263
+"RTN","VPRP2I",7,0)
+ ;
+"RTN","VPRP2I",8,0)
+PRE ; -- pre init
+"RTN","VPRP2I",9,0)
+ Q
+"RTN","VPRP2I",10,0)
+ ;
+"RTN","VPRP2I",11,0)
+POST ; -- post init
+"RTN","VPRP2I",12,0)
+ D PUT^XPAR("PKG","VPR VERSION",1,"1.02")
+"RTN","VPRP2I",13,0)
+ D PUT^XPAR("SYS","VPR SYSTEM NAME",1,$$SYS^VPRUTILS)
+"RTN","VPRP2I",14,0)
+ Q
+"RTN","VPRUTILS")
+0^17^B9723974^n/a
+"RTN","VPRUTILS",1,0)
+VPRUTILS ;SLC/AGP -- VPR utilities routine ;8/14/13 11:22
+"RTN","VPRUTILS",2,0)
+ ;;1.0;VIRTUAL PATIENT RECORD;**2**;Sep 01, 2011;Build 317
+"RTN","VPRUTILS",3,0)
+ ;
+"RTN","VPRUTILS",4,0)
+ ; External References DBIA#
+"RTN","VPRUTILS",5,0)
+ ; ------------------- -----
+"RTN","VPRUTILS",6,0)
+ ; XLFCRC 3156
+"RTN","VPRUTILS",7,0)
+ ; XLFDT 10103
+"RTN","VPRUTILS",8,0)
+ ; XLFUTL 2622
+"RTN","VPRUTILS",9,0)
+ ; XUPARAM 2541
+"RTN","VPRUTILS",10,0)
+ ;
+"RTN","VPRUTILS",11,0)
+ Q
+"RTN","VPRUTILS",12,0)
+ ;
+"RTN","VPRUTILS",13,0)
+SETERROR(RESULT,ERROR,EXTERROR,DATA) ; -- error text for JSON
+"RTN","VPRUTILS",14,0)
+ N CNT,TEMP,VPRTEMP,XCNT
+"RTN","VPRUTILS",15,0)
+ S VPRTEMP="VPRXTEMP ERRORS"
+"RTN","VPRUTILS",16,0)
+ I '$D(^XTMP(VPRTEMP,0)) S ^XTMP(VPRTEMP,0)=$$FMADD^XLFDT(DT,7)_U_DT_U_"VPR ERROR GLOBAL"
+"RTN","VPRUTILS",17,0)
+ S RESULT("success")="false"
+"RTN","VPRUTILS",18,0)
+ I $D(DATA) S XCNT=$O(^XTMP(VPRTEMP,""),-1)+1 M ^XTMP(VPRTEMP,XCNT,"ERROR")=DATA
+"RTN","VPRUTILS",19,0)
+ I $D(ERROR) D SETERRTX(.TEMP,.ERROR) S RESULT("error","code")=TEMP
+"RTN","VPRUTILS",20,0)
+ I +$G(XCNT)>0 S RESULT("error","code")=$G(RESULT("error","code"))_" See ^XTMP("_VPRTEMP_","_XCNT_",DATA) for data"
+"RTN","VPRUTILS",21,0)
+ I $D(EXTERROR) D SETERRTX(.TEMP,.EXTERROR) I TEMP'="" S RESULT("error","message")=TEMP
+"RTN","VPRUTILS",22,0)
+ ;
+"RTN","VPRUTILS",23,0)
+ Q
+"RTN","VPRUTILS",24,0)
+ ;
+"RTN","VPRUTILS",25,0)
+SETERRTX(TEMP,ERROR) ;
+"RTN","VPRUTILS",26,0)
+ S TEMP=""
+"RTN","VPRUTILS",27,0)
+ S CNT=0 F S CNT=$O(ERROR(CNT)) Q:CNT'>0 D
+"RTN","VPRUTILS",28,0)
+ .S TEMP=$S(TEMP'="":TEMP=TEMP_$C(13,10)_ERROR(CNT),1:ERROR(CNT))
+"RTN","VPRUTILS",29,0)
+ Q
+"RTN","VPRUTILS",30,0)
+ ;
+"RTN","VPRUTILS",31,0)
+SETTEXT(X,VALUE) ; -- format word processing
+"RTN","VPRUTILS",32,0)
+ N FIRST,I,LINE
+"RTN","VPRUTILS",33,0)
+ S FIRST=1
+"RTN","VPRUTILS",34,0)
+ S I=0 F S I=$O(@X@(I)) Q:I<1 D
+"RTN","VPRUTILS",35,0)
+ .S LINE=$S($D(@X@(I,0)):@X@(I,0),1:@X@(I))
+"RTN","VPRUTILS",36,0)
+ .; FIRST=1 S @VALUE@(I)=LINE,FIRST=0 Q
+"RTN","VPRUTILS",37,0)
+ .S @VALUE@(I)=LINE_$C(13)_$C(10)
+"RTN","VPRUTILS",38,0)
+ Q
+"RTN","VPRUTILS",39,0)
+ ;
+"RTN","VPRUTILS",40,0)
+SPLITVAL(NODE,ARRAY) ; -- split a value into a list
+"RTN","VPRUTILS",41,0)
+ N CNT,NAME,VALUE,FIELD
+"RTN","VPRUTILS",42,0)
+ S NAME="" F S NAME=$O(ARRAY(NAME)) Q:NAME="" D
+"RTN","VPRUTILS",43,0)
+ .S CNT=+ARRAY(NAME)
+"RTN","VPRUTILS",44,0)
+ .S VALUE=$P($G(NODE),U,CNT)
+"RTN","VPRUTILS",45,0)
+ .I NAME="Code" S FIELD=$P(ARRAY(NAME),U,2) S VALUE=$$SETVURN(FIELD,VALUE)
+"RTN","VPRUTILS",46,0)
+ .S ARRAY(NAME)=VALUE
+"RTN","VPRUTILS",47,0)
+ Q
+"RTN","VPRUTILS",48,0)
+ ;
+"RTN","VPRUTILS",49,0)
+SETPROV(NODE,PROV) ; -- providers
+"RTN","VPRUTILS",50,0)
+ S PROV("providerUid")=$$SETUID("user",,+NODE)
+"RTN","VPRUTILS",51,0)
+ S PROV("providerName")=$P(NODE,U,2)
+"RTN","VPRUTILS",52,0)
+ Q
+"RTN","VPRUTILS",53,0)
+ ;
+"RTN","VPRUTILS",54,0)
+SETUID(DOMAIN,PAT,ID,ADDDATA) ; -- create uid string
+"RTN","VPRUTILS",55,0)
+ N RESULT,SYS
+"RTN","VPRUTILS",56,0)
+ S SYS=$S($D(VPRSYS):VPRSYS,1:$$GET^XPAR("SYS","VPR SYSTEM NAME"))
+"RTN","VPRUTILS",57,0)
+ S RESULT="urn:va:"_DOMAIN_":"_SYS_":"_$S($G(PAT):PAT_":",1:"")_ID
+"RTN","VPRUTILS",58,0)
+ I $L($G(ADDDATA)) S RESULT=RESULT_":"_ADDDATA
+"RTN","VPRUTILS",59,0)
+ Q RESULT
+"RTN","VPRUTILS",60,0)
+ ;
+"RTN","VPRUTILS",61,0)
+SETFCURN(DOMAIN,FACILITY,VALUE) ; -- create facility urn
+"RTN","VPRUTILS",62,0)
+ Q "urn:va:"_DOMAIN_":"_FACILITY_":"_VALUE
+"RTN","VPRUTILS",63,0)
+ ;
+"RTN","VPRUTILS",64,0)
+SETVURN(DOMAIN,VALUE) ; -- create VA urn
+"RTN","VPRUTILS",65,0)
+ N RESULT S RESULT=""
+"RTN","VPRUTILS",66,0)
+ S RESULT="urn:va:"_DOMAIN_":"_VALUE
+"RTN","VPRUTILS",67,0)
+ Q RESULT
+"RTN","VPRUTILS",68,0)
+ ;
+"RTN","VPRUTILS",69,0)
+SYS() ; -- return hashed system name
+"RTN","VPRUTILS",70,0)
+ Q $$BASE^XLFUTL($$CRC16^XLFCRC($$KSP^XUPARAM("WHERE")),10,16)
+"RTN","VPRUTILS",71,0)
+ ;
+"RTN","VPRUTILS",72,0)
+SETNCS(CODESET,VALUE) ; -- create national codeset urn
+"RTN","VPRUTILS",73,0)
+ Q "urn:"_CODESET_":"_VALUE
+"RTN","VPRUTILS",74,0)
+ ;
+"RTN","VPRUTILS",75,0)
+JSONDT(X) ; -- convert FileMan DT to HL7 DT for JSON
+"RTN","VPRUTILS",76,0)
+ N D,DATE,M,TIME,Y
+"RTN","VPRUTILS",77,0)
+ S DATE=$P($$FMTHL7^XLFDT(X),"-")
+"RTN","VPRUTILS",78,0)
+ I $L(DATE)>8 S TIME=$E(DATE,9,$L(DATE))
+"RTN","VPRUTILS",79,0)
+ S Y=$E(DATE,1,4),M=$E(DATE,5,6),D=$E(DATE,7,8)
+"RTN","VPRUTILS",80,0)
+ K DATE
+"RTN","VPRUTILS",81,0)
+ S DATE=Y I M>0 S DATE=DATE_M S:D>0 DATE=DATE_D
+"RTN","VPRUTILS",82,0)
+ I $G(TIME)'="" S DATE=DATE_TIME
+"RTN","VPRUTILS",83,0)
+ Q DATE
+"RTN","VPRUTILS",84,0)
+ ;
+"RTN","VPRUTILS",85,0)
+FACILITY(X,Y) ; -- add facility info to array for JSON
+"RTN","VPRUTILS",86,0)
+ ; X=STATION NUMBER^STATION NAME
+"RTN","VPRUTILS",87,0)
+ ; Y=Variable array name
+"RTN","VPRUTILS",88,0)
+ ; >D FACILITY^VPRUTILS("500^CAMP MASTER","LAB")
+"RTN","VPRUTILS",89,0)
+ ;
+"RTN","VPRUTILS",90,0)
+ S @Y@("facilityCode")=$P(X,"^")
+"RTN","VPRUTILS",91,0)
+ S @Y@("facilityName")=$P(X,"^",2)
+"RTN","VPRUTILS",92,0)
+ Q
+"VER")
+8.0^22.0
+"BLD",8071,6)
+^2
+**END**
+**END**
diff --git a/Packages/Virtual Patient Record/Patches/VPR_1.0_2/VPR-1_SEQ-2_PAT-2.TXT b/Packages/Virtual Patient Record/Patches/VPR_1.0_2/VPR-1_SEQ-2_PAT-2.TXT
new file mode 100644
index 0000000..3e00210
--- /dev/null
+++ b/Packages/Virtual Patient Record/Patches/VPR_1.0_2/VPR-1_SEQ-2_PAT-2.TXT
@@ -0,0 +1,266 @@
+$TXT Created by BUECHLER,Melanie at DAYT79.FO-BAYPINES.DOMAIN.EXT (KIDS) on Tuesday, 09/10/13 at 10:49
+=============================================================================
+Run Date: NOV 05, 2013 Designation: VPR*1*2
+Package : VPR - VIRTUAL PATIENT RECORD Priority: Mandatory
+Version : 1 SEQ #2 Status: Released
+ Compliance Date: DEC 06, 2013
+=============================================================================
+
+Associated patches: (v)VPR*1*1 <<= must be installed BEFORE `VPR*1*2'
+
+Subject: VPR JSON
+
+Category:
+ - Routine
+ - Other
+
+Description:
+============
+
+ This patch to the Virtual Patient Record (VPR) package provides a new
+ remote procedure call (RPC) to enable extraction of patient health data
+ from a Veterans Health Information Systems and Technology Architecture
+ (VistA) database in JavaScript Object Notation (JSON) format, for use in
+ new web applications such as the Health Management Platform (HMP). This
+ patch will also correct a reported issue with VPR 1.0.
+
+
+ New Service Requests (NSRs)
+ ===========================
+ N/A
+
+
+ Patient Safety Issues (PSIs)
+ ============================
+ PSPO #2275
+
+
+ Remedy Tickets & Issues
+ =======================
+
+ 1. HD0000000719354 NwHIN Uncosigned Notes
+
+ Issue:
+ -----
+ Nationwide Health Information Network (NwHIN) uses the VPR data extract
+ RPC to request completed documents from VistA, but VPR is getting all
+ signed notes from Text Integration Utilities (TIU); notes also needing a
+ cosignature to be complete are included and returned in the resulting
+ VPR XML document.
+
+ Resolution:
+ ----------
+ A filter will be added to the VPR documents extract, and notes that
+ still require a cosignature will no longer be included in the results
+ for complete documents. [Note: NwHIN added a similar filter to their
+ Adapter v5 client, released in September 2012, so users of that
+ application may not see any change with this patch.]
+
+
+ 2. [no Remedy#] New Data Extract RPC
+
+ Issue:
+ -----
+ New web applications in development, such as HMP, need VistA data
+ returned in the JSON format.
+
+ Resolution:
+ ----------
+ This patch adds VPR GET PATIENT DATA JSON to the REMOTE PROCEDURE file
+ (#8994), and new routines to support it. Data is pulled from VistA
+ applications in the same way as the previously released RPC, but the
+ results are formatted as JSON instead of XML.
+
+ An option to allow viewing the JSON results is also included in this
+ patch. The View JSON results option [VPR TEST JSON] may be assigned
+ to users who desire or need to see the raw results of this RPC; the input
+ parameters will be prompted for and passed into the RPC, and the results
+ displayed onscreen.
+
+ For example:
+
+ Select OPTION NAME: VPR TEST JSON View JSON results
+ View JSON results
+ Select PATIENT NAME: AVIVAPATIENT,SIX 2-2-57 666000926 NO
+ NSC VETERAN AVIVAUSER,FIVE PRIMARY CARE TEAM2
+ Enrollment Priority: Category: IN PROCESS End Date:
+
+ Select DOMAIN: VITAL
+ Select START DATE: T (JUL 25, 2013)
+ Select STOP DATE: T (JUL 25, 2013)
+ Select TOTAL #items:
+
+ {"apiVersion":"1.01","params":{"domain":"DEV.HMPDEV.VAINNOVATIONS.US",
+ "systemId":"F484"},
+ "data":{"updated":"20130725162437","totalItems":1,"items":[
+ {"displayName":"R","facilityCode":"500D","facilityName":"SLC-FO HMP DEV",
+ "high":30,"kind":"Vital Sign","localId":43506,"locationName":"GEN MED",
+ "locationUid":"urn:va:location:F484:9","low":8,"observed":20130725090949,
+ "qualifiers":[{"name":"SPONTANEOUS","vuid":4688706}],"result":41,
+ "resulted":20130725091049,"summary":"RESPIRATION 41 \/min","typeCode":
+ "urn:va:vuid:4688725","typeName":"RESPIRATION","uid":"urn:va:F484:100847:
+ vital:43506","units":"\/min"}
+ ]}}
+
+
+ Select DOMAIN:
+ Select PATIENT NAME:
+
+
+ Test Sites:
+ ==========
+ San Diego, CA
+ Loma Linda, CA
+ Greater Los Angeles Health Care System
+ Portland, OR
+
+
+ Documentation Retrieval Instructions
+ ====================================
+ Updated documentation describing the new functionality introduced by this
+ patch is available.
+
+ The preferred method is to FTP the files from:
+ ftp://download.vista.domain.ext/
+ This transmits the files from the first available FTP server. Sites may
+ also elect to retrieve software directly from a specific server:
+
+ Albany ftp.fo-albany.domain.ext <ftp://ftp.fo-albany.domain.ext>
+ Hines ftp.fo-hines.domain.ext <ftp://ftp.fo-hines.domain.ext>
+ Salt Lake City ftp.fo-slc.domain.ext <ftp://ftp.fo-slc.domain.ext>
+
+ Documentation can also be found on the VA Software Documentation Library:
+ http://www4.domain.ext/vdl/
+
+ Title File Name FTP Mode
+ -----------------------------------------------------------------------
+ VPR Technical Manual VPR_TM.PDF binary
+
+
+ Installation Instructions
+ =========================
+ This patch may be installed with users on the system although it is
+ recommended that it be installed during non-peak hours to minimize
+ potential disruption to users. This patch should take less than 1 minute
+ to install.
+
+ 1. Choose the PackMan message containing this patch.
+
+ 2. Choose the INSTALL/CHECK MESSAGE PackMan option.
+
+ 3. From the Kernel Installation and Distribution System Menu, select
+ the Installation Menu. From this menu, you may elect to use the
+ following option. When prompted for the INSTALL, enter VPR*1.0*2.
+
+ a. Backup a Transport Global - This option will create a backup
+ message of any routines exported with this patch. It will not
+ backup any other changes such as DDs or templates.
+ b. Compare Transport Global to Current System - This option will
+ allow you to view all changes that will be made when this patch
+ is installed. It compares all components of this patch
+ (routines, DDs, templates, etc.).
+ c. Verify Checksums in Transport Global - This option will allow
+ you to ensure the integrity of the routines that are in the
+ transport global.
+
+ 4. From the Installation Menu, select the Install Package(s) option and
+ choose the patch to install.
+
+ 5. When prompted Want KIDS to Rebuild Menu Trees Upon Completion of
+ Install? NO//' enter NO.
+
+ 6. When prompted 'Want KIDS to INHIBIT LOGONs during the install?
+ NO//' enter NO.
+
+ 7. When prompted 'Want to DISABLE Scheduled Options, Menu Options,
+ and Protocols? NO//' enter NO.
+
+ 8. If prompted Delay Install (Minutes): (0 60): 0// respond 0.
+
+Routine Information:
+====================
+The second line of each of these routines now looks like:
+ ;;1.0;VIRTUAL PATIENT RECORD;**[Patch List]**;Sep 01, 2011;Build 317
+
+The checksums below are new checksums, and
+ can be checked with CHECK1^XTSUMBLD.
+
+Routine Name: VPRD
+ Before: B28899728 After: B29175301 **1,2**
+Routine Name: VPRDCRC
+ Before: n/a After: B46793433 **2**
+Routine Name: VPRDGMPL
+ Before: B27790775 After: B27827751 **1,2**
+Routine Name: VPRDJ
+ Before: n/a After: B22186238 **2**
+Routine Name: VPRDJ0
+ Before: n/a After: B87481337 **2**
+Routine Name: VPRDJ00
+ Before: n/a After: B58623073 **2**
+Routine Name: VPRDJ01
+ Before: n/a After: B39474581 **2**
+Routine Name: VPRDJ02
+ Before: n/a After: B43626306 **2**
+Routine Name: VPRDJ03
+ Before: n/a After: B49743518 **2**
+Routine Name: VPRDJ04
+ Before: n/a After: B47678729 **2**
+Routine Name: VPRDJ04A
+ Before: n/a After: B36420588 **2**
+Routine Name: VPRDJ05
+ Before: n/a After: B76359424 **2**
+Routine Name: VPRDJ05V
+ Before: n/a After: B45875553 **2**
+Routine Name: VPRDJ06
+ Before: n/a After: B49853799 **2**
+Routine Name: VPRDJ07
+ Before: n/a After: B19635784 **2**
+Routine Name: VPRDJ08
+ Before: n/a After: B60175705 **2**
+Routine Name: VPRDJ08A
+ Before: n/a After: B39219672 **2**
+Routine Name: VPRDJ09
+ Before: n/a After: B37647658 **2**
+Routine Name: VPRDJT
+ Before: n/a After: B9998610 **2**
+Routine Name: VPRDLR
+ Before: B24712747 After: B24009801 **2**
+Routine Name: VPRDLRA
+ Before: B76300469 After: B76865545 **1,2**
+Routine Name: VPRDLRO
+ Before: B27350157 After: B27947758 **2**
+Routine Name: VPRDMC
+ Before: B58328454 After: B58353015 **1,2**
+Routine Name: VPRDMDC
+ Before: B44678829 After: B58663659 **1,2**
+Routine Name: VPRDPXIM
+ Before: B15857859 After: B15866293 **2**
+Routine Name: VPRDTIU
+ Before: B80235055 After: B81103735 **1,2**
+Routine Name: VPRDVSIT
+ Before: B89381077 After: B89271062 **1,2**
+Routine Name: VPRJSON
+ Before: n/a After: B11235996 **2**
+Routine Name: VPRJSOND
+ Before: n/a After: B63619549 **2**
+Routine Name: VPRJSONE
+ Before: n/a After: B20857447 **2**
+Routine Name: VPRP2I
+ Before: n/a After: B236349 **2**
+Routine Name: VPRUTILS
+ Before: n/a After: B9723974 **2**
+
+Routine list of preceding patches: 1
+
+=============================================================================
+User Information:
+Entered By : BUECHLER,MELANIE K Date Entered : JUL 31, 2013
+Completed By: CHIPMAN,HONEY Date Completed: NOV 05, 2013
+Released By : HINES,RICK Date Released : NOV 05, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+$END TXT
diff --git a/Packages/VistA Web/Patches/WEBV_1.0_29/WEBV-1_SEQ-24_PAT-29.TXT b/Packages/VistA Web/Patches/WEBV_1.0_29/WEBV-1_SEQ-24_PAT-29.TXT
new file mode 100644
index 0000000..756ae11
--- /dev/null
+++ b/Packages/VistA Web/Patches/WEBV_1.0_29/WEBV-1_SEQ-24_PAT-29.TXT
@@ -0,0 +1,176 @@
+
+=============================================================================
+Run Date: NOV 05, 2013 Designation: WEBV*1*29
+Package : WEBV - VISTA WEB Priority: Mandatory
+Version : 1 SEQ #24 Status: Released
+ Compliance Date: DEC 06, 2013
+=============================================================================
+
+
+Subject: VistA Web 16.1.3: CPRSv29 issue & HDR connection update
+
+Category:
+ - Informational
+ - Other
+
+Description:
+============
+
+ ***************************** PLEASE NOTE *******************************
+ * *
+ * Version 16.1.3 of VistaWeb (build last updated 09/05/13) will be *
+ * promoted to the production server for national release on 11/13/13 *
+ * *
+ * NOTE: This patch is loaded on the National Vista Web server. There is *
+ * nothing that local sites can or need to do besides communicate *
+ * changes to users. *
+ * *
+ *************************************************************************
+
+ VistaWeb (VW) v16.1.3 includes the following fixes:
+
+ - Changing VistAWeb from Cross-Application Integration Protocol (CAIP) and
+ Naming Directory Service (NDS) to Web Service.
+
+ - Problem List table in Vista Web was showing incorrect data. An update
+ was made from where Problem List table data is being pulled so correct
+ data now displays in Vista Web
+
+ - Change Menu Name for eHealth Exchange Data Update.
+
+
+ ASSOCIATED REMEDY TICKET(s):
+ ============================
+ 1) INC000000891531 - Changing how VistAWeb connects to Health Data
+ Repository (HDR).
+ 2) INC000000895617 - Problem List table in VistAWeb showing incorrect
+ Data.
+ Duplicate:
+ ==========
+ INC000000888921 - VistAWeb Patient List Issue
+ INC000000895278 - VistAWeb Patient List Issue
+ INC000000900166 - VistAWeb Patient List Issue
+
+ 3) INC000000903523 - VistAWeb - WEBV (Stand Alone) Issue: Change Menu
+ Name for eHealth Exchange Data.
+
+
+ ASSOCIATED NSR(s):
+ ==================
+ N/A
+
+
+ PARTICIPATING TEST SITES:
+ =========================
+ New Jersey HCS
+ Puget Sound HCS
+ San Diego, CA
+
+
+ REMEDY TICKET OVERVIEW:
+ =======================
+ 1) INC000000891531 - Changing how VistAWeb connects to Health Data
+ Repository (HDR)
+
+ Problem:
+ ========
+ Health Data Repository (HDR) is deprecating the way VistaWeb currently
+ pulls data from HDR. Changing from Cross-Application Integration Protocol
+ (CAIP) and Naming Directory Service (NDS) to Web Service. If VistaWeb
+ connection is not updated, HDR data will not display in VistAWeb.
+
+ Solution:
+ =========
+ Update VistAWeb to connect to HDR in a new way.
+
+
+ 2) INC000000895617 - Problem List table in VistAWeb showing incorrect
+ data.
+
+ Problem:
+ ========
+ Computerized Patient Record System (CPRS) version 29 changed the way where
+ Problem List data is being. Because of this, VistAWeb is showing
+ incorrect data in Problem List table in VistAWeb.
+
+ Solution:
+ =========
+ Code has been modified in VistAWeb to display the correct data for the
+ Problem List.
+
+
+ 3) INC0000009035231 - VistAWeb - WEBV (Stand Alone) Issue: Change Menu
+ Name for eHealth Exchange Data.
+
+ Problem:
+ ========
+ A link in VistAWeb needs to be changed from 'Health Summaries (Non-VA)' to
+ 'Health Summaries (Non-VA) for TREATMENT only'. This change is required to
+ textually alert users of VistaWeb that are accessing Health Summaries
+ Non-VA is for the purpose of treatment ONLY. Otherwise, the VA is in
+ violation of the eHealth Exchange Data Use and Reciprocal Support
+ Agreement (DURSA) which is legally binding.
+
+ Solution:
+ =========
+ Change link name from 'Health Summaries (Non-VA)' to 'Health Summaries
+ (Non-VA) for TREATMENT only'.
+
+
+ DOCUMENTATION INFORMATION:
+ ==========================
+ Please refer to the VistAWeb CPRS Access and Installation Guide, the
+ VistAWeb User Manual and the VistAWeb Technical Guide for more
+ information. The manuals are provided in Microsoft Word and Adobe PDF
+ formats on the web at the following addresses:
+
+ http://www.domain.ext/vdl
+ http://vista.domain.ext/vistaweb
+
+ The Adobe PDF files are also available for FTP transfer. The preferred
+ method is to FTP the files from:
+
+ - download.vista.domain.ext.
+
+ This transmits the files from the first available FTP server.
+ Sites may also elect to retrieve documents directly from a specific
+ server, as shown below. These files MUST be obtained in BINARY mode.
+
+ CIO FIELD OFFICE FTP ADDRESS DIRECTORY:
+
+ Albany ftp.fo-albany.domain.ext [anonymous.software]
+ Hines ftp.fo-hines.domain.ext [anonymous.software]
+ Salt Lake City ftp.fo-slc.domain.ext [anonymous.software]
+
+ Username is "anonymous" without the quotes. You must FTP in BINARY mode.
+ Once in the FTP server, change directory into the software directory
+ (i.e., cd software). The names of the files are as shown below:
+
+ WEBV_1_29_IG.zip
+
+ The following files can be found in zip file above:
+
+ NVW_Prod_v16 1 3_Install_Guide_20130906.doc
+ NVW_Prod_v16 1 3_Install_Guide_20130906.pdf
+
+
+ INSTALLATION INSTRUCTIONS:
+ ==========================
+ N/A
+
+Routine Information:
+====================
+No routines included.
+
+=============================================================================
+User Information:
+Entered By : KATIC,SASA Date Entered : SEP 06, 2013
+Completed By: SESSLER,APRIL Date Completed: OCT 31, 2013
+Released By : ERICKSON,REBECCA J Date Released : NOV 05, 2013
+=============================================================================
+
+
+Packman Mail Message:
+=====================
+
+No routines included
diff --git a/Python/Pexpect/.gitattributes b/Python/Pexpect/.gitattributes
new file mode 100644
index 0000000..352981f
--- /dev/null
+++ b/Python/Pexpect/.gitattributes
@@ -0,0 +1 @@
+*.py -whitespace
diff --git a/Python/vista/OSEHRAHelper.py b/Python/vista/OSEHRAHelper.py
index 196ebfb..6fdef98 100644
--- a/Python/vista/OSEHRAHelper.py
+++ b/Python/vista/OSEHRAHelper.py
@@ -156,10 +156,6 @@ class ConnectWinCache(ConnectMUMPS):
path,filename = os.path.split(logfile)
self.MenuLocation=[]
self.lastconnection=""
- try:
- self.ZN(namespace)
- except IndexError, no_namechange:
- pass
self.optionParentDict = []
self.optionMenuTextDict = []
@@ -267,10 +263,6 @@ class ConnectLinuxCache(ConnectMUMPS):
path,filename = os.path.split(logfile)
self.MenuLocation=[]
self.lastconnection=""
- try:
- self.ZN(namespace)
- except IndexError, no_namechange:
- pass
self.optionParentDict = []
self.optionMenuTextDict = []
diff --git a/Python/vista/OSEHRASetup.py b/Python/vista/OSEHRASetup.py
new file mode 100644
index 0000000..7646518
--- /dev/null
+++ b/Python/vista/OSEHRASetup.py
@@ -0,0 +1,1180 @@
+#---------------------------------------------------------------------------
+# Copyright 2013 The Open Source Electronic Health Record Agent
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#---------------------------------------------------------------------------
+import sys
+import os
+import time
+from OSEHRAHelper import PROMPT
+
+def startFileman(VistA):
+ # Start FileMan as the programmer user and set XUMF to 1 which lets the user
+ # change information in Kernel files
+ # Starts at the VistA Prompt
+ VistA.wait(PROMPT)
+ VistA.write('S DUZ=1 S XUMF=1 D Q^DI')
+ VistA.wait('Select OPTION:')
+
+def signonZU(VistA,acc_code,ver_code):
+ # Sign a user into the ZU menu system
+ # The User must have a valid access code and verify code.
+ # If the user needs to change the Verify Code, the script will append a "!" to the old code
+ # and use that as the new one.
+ # Starts at the VistA prompt.
+ VistA.wait(PROMPT,60)
+ VistA.write('D ^ZU')
+ VistA.wait('ACCESS CODE:')
+ VistA.write(acc_code)
+ VistA.wait('VERIFY CODE:')
+ VistA.write(ver_code)
+ index = VistA.multiwait(['TYPE NAME','verify code:'])
+ if index==1:
+ VistA.write(ver_code)
+ VistA.wait('VERIFY CODE:')
+ VistA.write(ver_code+"!")
+ VistA.wait('right:')
+ VistA.write(ver_code+"!")
+ VistA.wait('TYPE NAME:')
+ VistA.write('')
+
+def initializeFileman(VistA,site_name,site_number):
+ # Initializes FileMan via the DINIT routine.
+ # The command needs a site name to change to and a local site number
+ # Script uses value of CMake variable TEST_VISTA_SETUP_SITE_NAME as the name
+ # and 6161 as the site number.
+ VistA.write('D ^DINIT')
+ VistA.wait('Initialize VA FileMan now?')
+ VistA.write('Yes')
+ VistA.wait('SITE NAME:')
+ VistA.write(site_name)
+ VistA.wait('SITE NUMBER')
+ VistA.write(site_number)
+ # It will also change the operating system file to match the local environment type
+ # found by the set up.
+ VistA.wait('Do you want to change the MUMPS OPERATING SYSTEM File?')
+ VistA.write('Yes')
+ VistA.wait('TYPE OF MUMPS SYSTEM YOU ARE USING')
+ if VistA.type=='cache':
+ VistA.write('CACHE')
+ else:
+ VistA.write('GT.M(UNIX)')
+ VistA.wait(PROMPT,60)
+ # Use the ZUSET routine to rename the correct ZU* for the system.
+ VistA.write('D ^ZUSET')
+ VistA.wait('Rename')
+ VistA.write('Yes')
+
+def setupPrimaryHFSDir(VistA,hfs_dir):
+ # Set up the primary HFS directory from the
+ # Kernel System Parameters file
+ #
+ # "@" to remove or set a new file path.
+ startFileman(VistA)
+ VistA.write('1')
+ VistA.wait('INPUT TO WHAT FILE')
+ VistA.write('KERNEL SYSTEM PARAMETERS')
+ VistA.wait('EDIT WHICH FIELD')
+ VistA.write('PRIMARY HFS DIRECTORY')
+ VistA.wait('THEN EDIT FIELD')
+ VistA.write('')
+ VistA.wait('DOMAIN NAME')
+ # `1 is the notation to grab the entry with a number of 1
+ VistA.write('`1')
+ VistA.wait('PRIMARY HFS DIRECTORY')
+ VistA.write(os.path.normpath(hfs_dir))
+ # Multiwait to capture the possible outcomes:
+ # SURE YOU WANT TO DELETE: File has an entry and the @ will delete it
+ # DOMAIN NAME: Entry was an acceptable response
+ # PRIMARY HFS DIRECTORY: Response was not accepted, could be due to
+ # deleting an empty file entry
+ index = VistA.multiwait(['SURE YOU WANT TO DELETE','DOMAIN NAME','PRIMARY HFS DIRECTORY'])
+ if index == 0:
+ VistA.write('Y')
+ VistA.wait('DOMAIN NAME')
+ if index == 2:
+ VistA.write("")
+ VistA.wait("DOMAIN NAME")
+ VistA.write('')
+ VistA.wait('Select OPTION:')
+ VistA.write('')
+
+def configureNULLDevice(VistA):
+ # Ensure that the null device is correctly configured by adding
+ # a $I for the correct platform rather than VMS and removing
+ # sign-on capabilities
+ startFileman(VistA)
+ VistA.write('1')
+ VistA.wait('INPUT TO WHAT FILE')
+ VistA.write('DEVICE')
+ VistA.wait('EDIT WHICH FIELD')
+ VistA.write('$I\rSIGN-ON/SYSTEM DEVICE\r')
+ VistA.wait('NAME:')
+ VistA.write('NULL\r1')
+ VistA.wait('//')
+ # Path added is dependent on the platform that is being used.
+ if sys.platform=='win32':
+ VistA.write('//./nul\rNO\r')
+ else:
+ VistA.write('/dev/null\rNO\r')
+ VistA.wait("Select OPTION")
+ VistA.write("")
+
+def setupVistADomain(VistA,site_name):
+ # Enter the site name into the DOMAIN file via FileMan
+ startFileman(VistA)
+ VistA.write('1')
+ VistA.wait('INPUT TO WHAT FILE')
+ VistA.write('DOMAIN\r')
+ VistA.wait('Select DOMAIN NAME')
+ VistA.write(site_name)
+ # Multiwait for possible outcomes:
+ # Are you adding: Domain is new and will add it to the system
+ # NAME: Domain exists already
+ index = VistA.multiwait(["Are you adding","NAME"])
+ if index == 0:
+ VistA.write("Y")
+ else:
+ VistA.write("")
+ VistA.wait("FLAGS")
+ VistA.write('^\r\r')
+ VistA.wait(PROMPT,60)
+ # christen the domain via the XMUDCHR routine.
+ VistA.write('D CHRISTEN^XMUDCHR')
+ VistA.wait('Are you sure you want to change the name of this facility?')
+ VistA.write('Yes')
+ VistA.wait('Select DOMAIN NAME')
+ VistA.write(site_name)
+ VistA.wait('PARENT')
+ VistA.write('')
+ VistA.wait('TIME ZONE')
+ # Attempts to pull the timezone from the local machine via Python
+ # If entry is not accepted, will default to EST
+ VistA.write(time.strftime('%Z').replace(' Time',''))
+ index = VistA.multiwait([VistA.prompt,'TIME ZONE'])
+ if index==1:
+ VistA.write('EST')
+ VistA.wait(PROMPT,60)
+ # Next, Find IEN of new site name and add entries of new domain to
+ # Kernel System Parameters and RPC Broker Site Parameters files
+ VistA.IEN('DOMAIN',site_name)
+ VistA.wait(PROMPT,60)
+ VistA.write('S $P(^XWB(8994.1,1,0),"^")=' + VistA.IENumber)
+ VistA.write('S $P(^XTV(8989.3,1,0),"^")=' + VistA.IENumber)
+ # Then, re-index both files with the FileMan Utility.
+ startFileman(VistA)
+ VistA.write('UTILITY')
+ VistA.wait('UTILITY OPTION')
+ VistA.write('RE')
+ VistA.wait('MODIFY WHAT FILE')
+ VistA.write('8989.3\rNO\rY\rY')
+ VistA.wait('UTILITY OPTION')
+ VistA.write('RE')
+ VistA.wait('MODIFY WHAT FILE')
+ VistA.write('8994.1\rNO\rY\rY\r')
+ VistA.wait('Select OPTION')
+ VistA.write("")
+
+def setupBoxVolPair(VistA,volume_set,site_name,tcp_port):
+ # Query the instance for the Box-volume pair of the machine
+ VistA.getenv(volume_set)
+ # Rename the first Box-volume entry in the Taskman Site Parameters file
+ # to match what was queried above
+ startFileman(VistA)
+ VistA.write('1')
+ VistA.wait('INPUT TO WHAT FILE')
+ VistA.write('14.7')
+ VistA.wait('ALL//')
+ VistA.write('')
+ VistA.wait('Select TASKMAN SITE PARAMETERS BOX-VOLUME PAIR:')
+ VistA.write('`1')
+ VistA.wait('//')
+ VistA.write(VistA.boxvol)
+ VistA.wait('RESERVED')
+ VistA.write('^\r')
+ #time.sleep(5)
+ # Add the Box-volume pair to the RPC Broker parameters for the local domain
+ # Also adds the information for the new style RPC Broker Listener on the supplied TCP port
+ # if a Cache system, will start a task to start the Listener, and put the
+ # listener under the Listener Starter's control
+ # if a GT.M system, will create the information but not start it.
+ VistA.wait('Select OPTION')
+ VistA.write('1')
+ VistA.wait('INPUT TO WHAT FILE')
+ VistA.write('8994.1')
+ VistA.wait('EDIT WHICH FIELD')
+ VistA.write('LISTENER')
+ VistA.wait("SUB-FIELD")
+ VistA.write("")
+ VistA.wait("THEN EDIT FIELD")
+ VistA.write("")
+ VistA.wait('Select RPC BROKER SITE PARAMETERS DOMAIN NAME')
+ VistA.write(site_name)
+ VistA.wait("OK")
+ VistA.write("Y")
+ VistA.wait("BOX-VOLUME PAIR")
+ VistA.write(VistA.boxvol + '\r')
+ VistA.wait("BOX-VOLUME PAIR")
+ VistA.write("")
+ VistA.wait("Select PORT")
+ VistA.write(tcp_port + '\rY')
+ if VistA.type=='cache':
+ VistA.write('1\r1\r1\r')
+ else:
+ VistA.write('1\r\r\r')
+ VistA.wait("Select OPTION")
+ VistA.write("")
+
+def setupVolumeSet(VistA,site_name,volume_set,namespace=""):
+ # Rename first entry in the Volume Set file to match
+ # the CMake value of TEST_VISTA_SETUP_VOLUME_SET.
+ startFileman(VistA)
+ VistA.write('1')
+ VistA.wait('INPUT TO WHAT FILE')
+ VistA.write('14.5\r')
+ VistA.wait('Select VOLUME SET')
+ VistA.write('`1')
+ VistA.wait('VOLUME SET:')
+ VistA.write(volume_set+ '\r\r\r\r\r')
+ VistA.wait('TASKMAN FILES UCI')
+ if VistA.type=='cache':
+ VistA.write(namespace+'\r\r\r\r\r\r')
+ else:
+ VistA.write(volume_set +'\r\r\r\r\r\r')
+ # Add the Volume set information to the Kernel System Parameters File
+ VistA.wait('Select OPTION')
+ VistA.write('1')
+ VistA.wait('INPUT TO WHAT FILE')
+ VistA.write('KERNEL SYSTEM PARAMETERS\rVOLUME SET\r\r')
+ VistA.wait('Select KERNEL SYSTEM PARAMETERS DOMAIN NAME:')
+ VistA.write(site_name + '\r')
+ VistA.wait('VOLUME SET')
+ VistA.write(volume_set)
+ index = VistA.multiwait(['Are you adding','VOLUME SET'])
+ if index==0:
+ VistA.write('Y')
+ elif index==1:
+ VistA.write('')
+ # Set up basic information about sign-on to the domain via the Volume Set
+ VistA.wait('MAX SIGNON ALLOWED')
+ VistA.write('500')
+ VistA.wait('LOG SYSTEM RT')
+ VistA.write('N')
+ VistA.wait('VOLUME SET')
+ VistA.write('\r\r')
+
+def scheduleXWBListener(VistA):
+ # If using Cache as the M environment, Schedule a task to start the
+ # XWB Listener Starter on the start up of TaskMan
+ VistA.wait(PROMPT)
+ VistA.write('S DUZ=1 D ^XUP')
+ VistA.wait('Select OPTION NAME')
+ VistA.write('EVE\r1')
+ VistA.wait('Systems Manager Menu')
+ VistA.write('Taskman Management')
+ VistA.wait('Select Taskman Management')
+ VistA.write('SCHED')
+ VistA.wait('reschedule:')
+ VistA.write('XWB LISTENER STARTER\rY')
+ VistA.wait('COMMAND:')
+ VistA.write('\r^SPECIAL QUEUEING\rSTARTUP\rS\rE\r')
+ VistA.wait('Select Taskman Management')
+ VistA.write('')
+ VistA.wait('Systems Manager Menu')
+ VistA.write('')
+ VistA.wait('Do you really want to halt')
+ VistA.write('Y')
+
+def restartTaskMan(VistA):
+ # Restarts the TaskMan instance via the Taskman Management Utilities Menu.
+
+ VistA.wait(PROMPT)
+ VistA.write('S DUZ=1 D ^XUP')
+ VistA.wait('Select OPTION NAME')
+ VistA.write('EVE\r1')
+ VistA.wait('Systems Manager Menu')
+ VistA.write('Taskman Management')
+ VistA.wait('Select Taskman Management')
+ VistA.write('Taskman Management Utilities')
+ VistA.wait('Select Taskman Management Utilities')
+ VistA.write('Restart Task Manager\rY')
+ VistA.wait('Select Taskman Management Utilities')
+ VistA.write('')
+ VistA.wait('Select Taskman Management')
+ VistA.write('')
+ VistA.wait('Select Systems Manager Menu')
+ VistA.write('')
+ VistA.wait('Do you really want to halt')
+ VistA.write('Y')
+ VistA.wait(PROMPT)
+ VistA.write('K')
+
+def addSystemManager(VistA):
+ # Add the super user System Manager via the User Management Menu
+ # Set basic information about the user: Name,SSN, Sex ....
+ VistA.wait(PROMPT,60)
+ VistA.write('S DUZ=1 D ^XUP')
+ VistA.wait('Select OPTION NAME')
+ VistA.write('EVE\r1')
+ VistA.wait('Systems Manager Menu')
+ VistA.write('USER MANAGEMENT')
+ VistA.wait('User Management')
+ VistA.write('ADD')
+ VistA.wait('Enter NEW PERSON')
+ VistA.write('MANAGER,SYSTEM')
+ index = VistA.multiwait(['Are you adding','Want to reactivate'])
+ if index == 0:
+ VistA.write('Y')
+ VistA.wait('INITIAL:')
+ VistA.write('SM')
+ VistA.wait('SSN:')
+ VistA.write('000000001')
+ VistA.wait('SEX:')
+ VistA.write('M')
+ VistA.wait('NPI')
+ VistA.write('')
+ VistA.wait('NAME COMPONENTS')
+ # A ScreenMan form opens at this point, and the following information is set:
+ # Primary Menu: EVE
+ # Secondary Menu: OR PARAM COORDINATOR MENU, TIU IRM MAINTENANCE MENU,
+ # XPAR MENU TOOLS,DG REGISTER PATIENT
+ # Access Code: SM1234
+ # Verify Code: SM1234!!
+ VistA.write('\r\r\r\r\r^PRIMARY MENU OPTION\rEVE\r1\r^Want to edit ACCESS CODE\rY\rSM1234\rSM1234\r^Want to edit VERIFY CODE\rY\rSM1234!!\rSM1234!!\r^SECONDARY MENU OPTIONS\rOR PARAM COORDINATOR MENU\rY\r\r\r\rTIU IRM MAINTENANCE MENU\rY\r\r\r\rXPAR MENU TOOLS\rY\r\r\r\rDG REGISTER PATIENT\rY\r\r\r\r^MULTIPLE SIGN-ON\r1\r1\r99\r^SERVICE/SECTION\rIRM\r^\rY')
+ # Exiting the ScreenMan form, Allocate Security Keys
+ # For Kernel Access: XUMGR, XUPROG, XUPROGMODE
+ # and Scheduling Access: SD SUPERVISOR, SDWL PARAMETER, SDWL MENU
+ VistA.wait('User Account Access Letter')
+ VistA.write('NO')
+ VistA.wait('wish to allocate security keys?')
+ VistA.write('Y')
+ VistA.wait('Allocate key')
+ VistA.write('XUMGR')
+ VistA.wait('Another key')
+ VistA.write('XUPROG\r1')
+ VistA.wait('Another key')
+ VistA.write('XUPROGMODE')
+ VistA.wait('Another key')
+ VistA.write('SD SUPERVISOR')
+ VistA.wait('Another key')
+ VistA.write('SDWL PARAMETER')
+ VistA.wait('Another key')
+ VistA.write('SDWL MENU')
+ VistA.wait('Another key')
+ VistA.write('')
+ VistA.wait('Another holder')
+ VistA.write('')
+ VistA.wait('YES//')
+ VistA.write('')
+ VistA.wait('mail groups?')
+ VistA.write('\r')
+ VistA.wait('Systems Manager Menu')
+ VistA.write('\rY')
+ VistA.wait(PROMPT,60)
+ # Get the record number of the user that was just created
+ VistA.IEN('NEW PERSON','MANAGER,SYSTEM')
+ VistA.wait(PROMPT,60)
+ # Set a piece of the New Person global corresponding to the MANAGER,SYSTEM
+ # to "@" to tell FileMan that user is a programmer
+ VistA.write('S DUZ=' + VistA.IENumber + ' S $P(^VA(200,DUZ,0),"^",4)="@"')
+
+
+def addInstitution(VistA,inst_name,station_number):
+ # In FileMan, add a entry to the Institution file
+ # Pass in the name and number as arguments to allow for
+ # multiple additions.
+ startFileman(VistA)
+ VistA.write('1')
+ VistA.wait('INPUT TO WHAT FILE:')
+ VistA.write('4')
+ VistA.wait('EDIT WHICH FIELD')
+ VistA.write('STATION NUMBER')
+ VistA.wait('THEN EDIT FIELD')
+ VistA.write('')
+ VistA.wait('Select INSTITUTION NAME:')
+ VistA.write(inst_name)
+ index = VistA.multiwait(['Are you adding','STATION NUMBER'])
+ if index==0:
+ VistA.write('Y')
+ VistA.wait('STATION NUMBER:')
+ VistA.write(station_number)
+ VistA.wait('Select INSTITUTION NAME:')
+ VistA.write('')
+ VistA.wait('Select OPTION:')
+ VistA.write('')
+
+def addDivision(VistA,div_name, facility_number,station_number):
+ # Adds a division to the VistA instance via FileMan,
+ # Each Division needs a name and a facility number. The station number
+ # points back to the recently created Institution
+ startFileman(VistA)
+ VistA.write('1')
+ VistA.wait('INPUT TO WHAT FILE:')
+ VistA.write('40.8')
+ VistA.wait('EDIT WHICH FIELD')
+ VistA.write('FACILITY NUMBER')
+ VistA.wait('THEN EDIT FIELD')
+ VistA.write('INSTITUTION FILE POINTER')
+ VistA.wait('THEN EDIT FIELD')
+ VistA.write('')
+ VistA.wait('DIVISION NAME')
+ VistA.write(div_name)
+ VistA.wait('Are you adding')
+ VistA.write('Y')
+ VistA.wait('MEDICAL CENTER DIVISION NUM:')
+ VistA.write('')
+ VistA.wait('FACILITY NUMBER')
+ VistA.write(facility_number)
+ VistA.write('')
+ VistA.wait('INSTITUTION FILE POINTER')
+ VistA.write(station_number)
+ VistA.wait('DIVISION NAME')
+ VistA.write('')
+ VistA.wait('Select OPTION')
+ VistA.write('')
+
+def setupStrepTest(VistA):
+ # The Sikuli test for CPRS orders a Streptozyme test for the patient
+ # This information ensures the test can be ordered at the VistA Health care
+ # Facility
+
+ # Add a NUMERIC IDENTIFIER to the Chemistry ACCESSION Area
+ # This is necessary to add a laboratory test to an Accession
+ # area at an Institution.
+ startFileman(VistA)
+ VistA.write('1')
+ VistA.wait('INPUT TO WHAT FILE')
+ VistA.write('ACCESSION\r1')
+ VistA.wait('EDIT WHICH FIELD')
+ VistA.write('.4\r')
+ VistA.wait('Select ACCESSION AREA')
+ VistA.write('CHEMISTRY')
+ VistA.wait('NUMERIC IDENTIFIER')
+ VistA.write('CH\r')
+
+ # Change the STREPTOZYME test to be accessioned through the Chemistry
+ # area at the Vista Health Care institution
+ VistA.wait('OPTION')
+ VistA.write('1')
+ VistA.wait('INPUT TO WHAT FILE')
+ VistA.write('LABORATORY TEST')
+ VistA.wait('EDIT WHICH FIELD')
+ VistA.write('ACCESSION AREA\r\r')
+ VistA.wait('Select LABORATORY TEST NAME')
+ VistA.write('STREPTOZYME')
+ VistA.wait('Select INSTITUTION')
+ VistA.write('VISTA HEALTH CARE')
+ VistA.wait('ACCESSION AREA')
+ VistA.write('CHEMISTRY')
+ VistA.wait('Select LABORATORY TEST NAME')
+ VistA.write('')
+ # Change the Package Prefix of the ONCE schedule to be
+ # used by the Laboratory
+ VistA.wait('OPTION')
+ VistA.write('1')
+ VistA.wait('INPUT TO WHAT FILE')
+ VistA.write('ADMINISTRATION SCHEDULE')
+ VistA.wait('EDIT WHICH FIELD')
+ VistA.write('PACKAGE PREFIX\r')
+ VistA.wait('Select ADMINISTRATION SCHEDULE NAME')
+ VistA.write('ONCE')
+ VistA.wait('P')
+ VistA.write('LR')
+ VistA.wait('ADMINISTRATION SCHEDULE')
+ VistA.write('')
+ VistA.wait('Select OPTION')
+ VistA.write('')
+
+ # Set Up the Quick Order entry for the Strep Throat
+ # Default to a one time, swab collection.
+ VistA.wait(PROMPT)
+ VistA.write('K D ^XUP')
+ VistA.wait("Access Code")
+ VistA.write("SM1234")
+ index = VistA.multiwait(['Select OPTION NAME','TERMINAL TYPE NAME'])
+ if index ==1:
+ VistA.write("C-VT220")
+ VistA.wait("Select OPTION NAME")
+ VistA.write("Systems Manager Menu")
+ VistA.wait('Systems Manager Menu')
+ VistA.write('CPRS Configuration')
+ VistA.wait('CPRS Configuration')
+ VistA.write('MM')
+ VistA.wait('Order Menu Management')
+ VistA.write('QO')
+ VistA.wait('Select QUICK ORDER NAME')
+ VistA.write('LRZ STREP TEST')
+ VistA.wait('Are you adding')
+ VistA.write('Y')
+ VistA.wait('TYPE OF QUICK ORDER')
+ VistA.write('LAB\r')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('STREP TEST')
+ VistA.wait('VERIFY ORDER')
+ VistA.write('Y')
+ VistA.wait('DESCRIPTION')
+ VistA.write('N\r')
+ VistA.wait('Lab Test')
+ VistA.write('STREP\r2')
+ VistA.wait('Collected By')
+ VistA.write('SP')
+ VistA.wait('Collection Sample')
+ VistA.write('SWAB\r')
+ VistA.wait('Collection Date/Time')
+ VistA.write('TODAY\r')
+ VistA.wait('How often')
+ VistA.write('ONCE')
+ VistA.wait('PLACE//')
+ VistA.write('\r\r')
+ VistA.wait('Option')
+ VistA.write('ST')
+ VistA.wait('Select ORDER SET NAME')
+ VistA.write('STREP TEST')
+ VistA.wait('Are you adding')
+ VistA.write('Y')
+ VistA.wait('Do you wish to copy')
+ VistA.write('No\r')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('Strep Test\r\r\r')
+ VistA.wait('COMPONENT SEQUENCE')
+ VistA.write('10\r')
+ VistA.wait('ITEM:')
+ VistA.write('LRZ STREP TEST\r\r\r\r') # Return to EVE menu
+ VistA.wait("Systems Manager Menu")
+ VistA.write("")
+ VistA.wait("Do you really")
+ VistA.write("Y")
+
+def registerVitalsCPRS(VistA):
+ # Register the DLL versions for Vitals and the executable version for
+ # CPRS through the XPAR Menu. This information should match the versions
+ # that will be used during testing.
+ # Files can be downloaded: http://www.osehra.org/document/guis-used-automatic-functional-testing
+ VistA.wait(PROMPT,60)
+ VistA.write('S GMVDLL=\"GMV_VITALSVIEWENTER.DLL:v. 08/11/09 15:00\"')
+ VistA.wait(PROMPT,60)
+ VistA.write('D EN^XPAR(\"SYS\",\"GMV DLL VERSION\",GMVDLL,1)')
+ VistA.wait(PROMPT,60)
+ VistA.write('S GMVDLL=\"GMV_VITALSVIEWENTER.DLL:v. 01/21/11 12:52\"')
+ VistA.wait(PROMPT,60)
+ VistA.write('D EN^XPAR(\"SYS\",\"GMV DLL VERSION\",GMVDLL,1)')
+ VistA.wait(PROMPT,60)
+ VistA.write('S GMVGUI=\"VITALSMANAGER.EXE:5.0.26.1\"')
+ VistA.wait(PROMPT,60)
+ VistA.write('D EN^XPAR(\"SYS\",\"GMV GUI VERSION\",GMVGUI,1)')
+
+def addDoctor(VistA,name,init,SSN,sex,AC,VC1):
+ # Adds a Doctor user into the system via the User Management Menu as
+ # the System Manager.
+ # Needs:
+ # Doctor Name, Doctor Initials, SSN, Sex, Access Code, Verify Code
+ VistA.write('USER MANAGEMENT')
+ VistA.wait('User Management')
+ VistA.write('ADD')
+ VistA.wait('name')
+ VistA.write(name+'\rY')
+ VistA.wait('INITIAL:')
+ VistA.write(init)
+ VistA.wait('SSN:')
+ VistA.write(SSN)
+ VistA.wait('SEX:')
+ VistA.write(sex)
+ VistA.wait('NPI')
+ VistA.write('')
+ VistA.wait('NAME COMPONENTS')
+ # A ScreenMan form opens at this point, and the following information is set:
+ # Primary Menu: XUCORE
+ # Secondary Menu: GMPL MGT MENU, OR CPRS GUI CHART, GMV V/M GUI
+ # Access Code: <passed as argument>
+ # Verify Code: <passed as argument>
+ # No restriction on Patient Selection
+ # Allowed multiple sign-ons
+ # Allopathic and Osteopathic Physicians as the Person Class
+ # Core CPRS Tab access
+ VistA.write('\r\r\r\r\r^PRIMARY MENU OPTION\rXUCOR\r^SECONDARY MENU OPTIONS\rGMPL MGT MENU\rY\r\r\r\rOR CPRS GUI CHART\rY\r\r\r\rGMV V/M GUI\rY\r\r\r\r^Want to edit ACCESS CODE\rY\r'+AC+'\r'+AC+'\r^Want to edit VERIFY CODE\rY\r'+VC1+'\r'+VC1+'\rVISTA HEALTH CARE\rY\r\r\r\r\r^SERVICE/SECTION\rIRM\r^Language\r\r767\rY\rY\rT-1\r\r^RESTRICT PATIENT SELECTION\r0\r\rCOR\rY\rT-1\r\r^MULTIPLE SIGN-ON\r1\r1\r99\r^\rE\rY')
+ # Exiting the ScreenMan form, Allocate Security Keys
+ # PROVIDER,GMV MANAGER,LRLAB,LRVERIFY,ORES,SD SUPERVISOR,SDWL PARAMETER,SDWL MENU,
+ VistA.wait('User Account Access Letter')
+ VistA.write('NO')
+ VistA.wait('wish to allocate security keys?')
+ VistA.write('Y')
+ VistA.wait('Allocate key')
+ VistA.write('PROVIDER\r1')
+ VistA.wait('Another key')
+ VistA.write('GMV MANAGER')
+ VistA.wait('Another key')
+ VistA.write('LRLAB')
+ VistA.wait('Another key')
+ VistA.write('LRVERIFY')
+ VistA.wait('Another key')
+ VistA.write('ORES')
+ VistA.wait('Another key')
+ VistA.write('SD SUPERVISOR')
+ VistA.wait('Another key')
+ VistA.write('SDWL PARAMETER')
+ VistA.wait('Another key')
+ VistA.write('SDWL MENU')
+ VistA.wait('Another key')
+ VistA.write('')
+ VistA.wait('Another holder')
+ VistA.write('')
+ VistA.wait('Do you wish to proceed')
+ VistA.write('Yes')
+ VistA.wait('add this user to mail groups')
+ VistA.write('NO')
+ VistA.wait("User Management")
+ VistA.write("")
+
+def addNurse(VistA,name,init,SSN,sex,AC,VC1):
+ # Adds a Nurse user into the system via the User Management Menu as
+ # the System Manager.
+ # Needs:
+ # Nurse Name, Nurse Initials, SSN, Sex, Access Code, Verify Code
+ VistA.wait("Systems Manager Menu")
+ VistA.write("User Management")
+ VistA.wait('User Management')
+ VistA.write('ADD')
+ VistA.wait('name')
+ VistA.write(name+'\rY')
+ VistA.wait('INITIAL:')
+ VistA.write(init)
+ VistA.wait('SSN:')
+ VistA.write(SSN)
+ VistA.wait('SEX:')
+ VistA.write(sex)
+ VistA.wait('NPI')
+ VistA.write('')
+ VistA.wait('NAME COMPONENTS')
+ # A ScreenMan form opens at this point, and the following information is set:
+ # Primary Menu: XUCORE
+ # Secondary Menu: GMPL MGT MENU, OR CPRS GUI CHART, GMV V/M GUI
+ # Access Code: <passed as argument>
+ # Verify Code: <passed as argument>
+ # No restriction on Patient Selection
+ # Allowed multiple sign-ons
+ # Nursing Service Provider as the Person Class
+ # Core CPRS Tab access
+ VistA.write('\r\r\r\r\r^PRIMARY MENU OPTION\rXUCOR\r^SECONDARY MENU OPTIONS\rGMPL MGT MENU\rY\r\r\r\rOR CPRS GUI CHART\rY\r\r\r\rGMV V/M GUI\rY\r\r\r\r^Want to edit ACCESS CODE\rY\r'+AC+'\r'+AC+'\r^Want to edit VERIFY CODE\rY\r'+VC1+'\r'+VC1+'\rVISTA HEALTH CARE\rY\r\r\r\r\r^SERVICE/SECTION\rIRM\r^Language\r\r289\rY\rY\rT-1\r\r^RESTRICT PATIENT SELECTION\r0\r\rCOR\rY\rT-1\r\r^MULTIPLE SIGN-ON\r1\r1\r99\r^\rE\rY')
+ # Exiting the ScreenMan form, Allocate Security Keys
+ # PROVIDER,ORELSE
+ VistA.wait('User Account Access Letter')
+ VistA.write('NO')
+ VistA.wait('wish to allocate security keys?')
+ VistA.write('Y')
+ VistA.wait('Allocate key')
+ VistA.write('PROVIDER\r1')
+ VistA.wait('Another key')
+ VistA.write('ORELSE\r')
+ VistA.wait('Another holder')
+ VistA.write('')
+ VistA.wait('Do you wish to proceed')
+ VistA.write('Yes')
+ VistA.wait('add this user to mail groups')
+ VistA.write('NO')
+ VistA.wait("User Management")
+ VistA.write("")
+
+def addClerk(VistA,name,init,SSN,sex,AC,VC1):
+ # Adds a Clerk user into the system via the User Management Menu as
+ # the System Manager.
+ # Needs:
+ # Clerk Name, Clerk Initials, SSN, Sex, Access Code, Verify Code
+ VistA.wait("Systems Manager Menu")
+ VistA.write("User Management")
+ VistA.wait('User Management')
+ VistA.write('ADD')
+ VistA.wait('name')
+ VistA.write(name+'\rY')
+ VistA.wait('INITIAL:')
+ VistA.write(init)
+ VistA.wait('SSN:')
+ VistA.write(SSN)
+ VistA.wait('SEX:')
+ VistA.write(sex)
+ VistA.wait('NPI')
+ VistA.write('')
+ VistA.wait('NAME COMPONENTS')
+ # A ScreenMan form opens at this point, and the following information is set:
+ # Primary Menu: XUCORE
+ # Secondary Menu: GMPL DATA ENTRY
+ # Access Code: <passed as argument>
+ # Verify Code: <passed as argument>
+ # No restriction on Patient Selection
+ # Allowed multiple sign-ons
+ # Core CPRS Tab access
+ VistA.write('\r\r\r\r\r^PRIMARY MENU OPTION\rXUCOR\r^SECONDARY MENU OPTIONS\rGMPL DATA ENTRY\rY\r\r\r\rOR CPRS GUI CHART\rY\r\r\r\rGMV V/M GUI\rY\r\r\r\r^Want to edit ACCESS CODE\rY\r'+AC+'\r'+AC+'\r^Want to edit VERIFY CODE\rY\r'+VC1+'\r'+VC1+'\rVISTA HEALTH CARE\rY\r\r\r\r\r^SERVICE/SECTION\rIRM\r^RESTRICT PATIENT SELECTION\r0\r\rCOR\rY\rT-1\r\r^MULTIPLE SIGN-ON\r1\r1\r99\r^\rE\rY')
+ # Exiting the ScreenMan form, Allocate Security Key
+ # ORELSE
+ VistA.wait('User Account Access Letter')
+ VistA.write('NO')
+ VistA.wait('wish to allocate security keys?')
+ VistA.write('Y')
+ VistA.wait('Allocate key')
+ VistA.write('ORELSE')
+ VistA.wait('Another key')
+ VistA.write('')
+ VistA.wait('Another holder')
+ VistA.write('')
+ VistA.wait('Do you wish to proceed')
+ VistA.write('Yes')
+ VistA.wait('add this user to mail groups')
+ VistA.write('NO')
+ VistA.wait("User Management")
+ VistA.write("")
+
+def createOrderMenu(VistA):
+ # Create the Quick Order Menu to have the LRZ Strep Test as a selectable option while
+ # not removing the old entries.
+ VistA.wait('Systems Manager Menu')
+ VistA.write('CPRS Configuration') # We can jump straight to the CPRS (Clin Coord) menu
+ VistA.wait('CPRS Configuration')
+ VistA.write('MM') # Order Menu Management
+ VistA.wait('Order Menu Management')
+ VistA.write('MN') # Enter/edit order menus
+ VistA.wait('ORDER MENU:')
+ VistA.write('ORZ GEN MED WRITE ORDERS LIST') # New menu name
+ VistA.wait('Are you adding')
+ VistA.write('Y')
+ VistA.wait('Do you wish to copy an existing menu')
+ VistA.write('N')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('') # Ignored by GUI
+ VistA.wait('Edit') # DESCRIPTION field
+ VistA.write('N')
+ #VistA.write('General Medicine Write Orders list') # Menu description
+ #VistA.wait('2')
+ #VistA.write('') # End of DESCRIPTION
+ #VistA.wait('EDIT') # Editor options
+ #VistA.write('') # We are done with the DESCRIPTION
+ VistA.wait('COLUMN WIDTH')
+ VistA.write('80') # Default to 80 characters
+ VistA.wait('MNEMONIC WIDTH')
+ VistA.write('') # Ignored by GUI
+ VistA.wait('PATH SWITCH')
+ VistA.write('') # Ignored by GUI
+ VistA.wait('ENTRY ACTION')
+ VistA.write('') # Shown because we have programmer access - Ignore this field
+ VistA.wait('EXIT ACTION')
+ VistA.write('') # Shown because we have programmer access - Ignore this field
+ # Begin ScreenMan form
+ VistA.wait('Action')
+ VistA.write('Add')
+ VistA.wait('Add')
+ VistA.write('Menu Items') # Add Menu Items to this Order Menu
+ # Add items to menu - repeat for each menu item
+ # Begin 'Add New Orders' menu
+ VistA.wait('ITEM')
+ VistA.write('OR ADD MENU CLINICIAN')
+ VistA.wait('ROW')
+ VistA.write('1')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'Add New Orders'
+ # Begin 'Allergies' package menu
+ VistA.wait('ITEM')
+ VistA.write('GMRAOR ALLERGY ENTER/EDIT')
+ VistA.wait('ROW')
+ VistA.write('2')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'Allergies'
+ # Begin 'Diet' package menu
+ VistA.wait('ITEM')
+ VistA.write('FHW1')
+ VistA.wait('ROW')
+ VistA.write('3')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'Diet'
+ # Begin 'Meds, Inpatient' package menu
+ VistA.wait('ITEM')
+ VistA.write('PSJ OR PAT OE')
+ VistA.wait('ROW')
+ VistA.write('4')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'Meds, Inpatient'
+ # Begin 'Meds, Non-VA' package menu
+ VistA.wait('ITEM')
+ VistA.write('PSH OERR')
+ VistA.wait('ROW')
+ VistA.write('5')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'Meds, Non-VA'
+ # Begin 'Meds, Outpatient' package menu
+ VistA.wait('ITEM')
+ VistA.write('PSO OERR')
+ VistA.wait('ROW')
+ VistA.write('6')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'Meds, Outpatient'
+ # Begin 'IV Fluids' package menu
+ VistA.wait('ITEM')
+ VistA.write('PSJI OR PAT FLUID OE')
+ VistA.wait('ROW')
+ VistA.write('7')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'IV Fluids'
+ # Begin 'Lab Tests' package menu
+ VistA.wait('ITEM')
+ VistA.write('LR OTHER LAB TESTS')
+ VistA.wait('ROW')
+ VistA.write('8')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'Lab Tests'
+ # Begin 'Imaging' package menu
+ VistA.wait('ITEM')
+ VistA.write('RA OERR EXAM')
+ VistA.wait('ROW')
+ VistA.write('9')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'Imaging'
+ # Begin 'Consult' package menu
+ VistA.wait('ITEM')
+ VistA.write('GMRCOR CONSULT')
+ VistA.wait('ROW')
+ VistA.write('10')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'Consult'
+ # Begin 'Procedure' package menu
+ VistA.wait('ITEM')
+ VistA.write('GMRCOR REQUEST')
+ VistA.wait('ROW')
+ VistA.write('11')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'Procedure'
+ # Begin 'Vitals' package menu
+ VistA.wait('ITEM')
+ VistA.write('GMRVOR')
+ VistA.wait('CHOOSE') # There is more than one GMRVOR* menu
+ VistA.write('1') # GMRVOR is the entire menu name and is the first one
+ VistA.wait('ROW')
+ VistA.write('12')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'Vitals'
+ # Begin 'Text Only Order' package menu
+ VistA.wait('ITEM')
+ VistA.write('OR GXTEXT WORD PROCESSING ORDER')
+ VistA.wait('ROW')
+ VistA.write('13')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'Text Only Order'
+ # Begin 'STREP TEST' quick order menu
+ VistA.wait('ITEM')
+ VistA.write('LRZ STREP TEST')
+ VistA.wait('ROW')
+ VistA.write('14')
+ VistA.wait('COLUMN')
+ VistA.write('1')
+ VistA.wait('DISPLAY TEXT')
+ VistA.write('')
+ VistA.wait('MNEMONIC')
+ VistA.write('')
+ # End 'STREP TEST'
+ VistA.wait('ITEM')
+ VistA.write('') # Done adding menus
+ VistA.wait('Action')
+ VistA.write('Quit') # Done editing this menu
+ VistA.wait('Order Menu Management') # Need to get to CPRS Manager Menu
+ VistA.write('General Parameter Tools')
+ VistA.wait('General Parameter Tools') # The System Manager has this as a secondary menu (can jump to it)
+ VistA.write('EP') # Edit Parameter
+ VistA.wait('PARAMETER DEFINITION NAME')
+ VistA.write('ORWDX WRITE ORDERS LIST') # Parameter used to control Write Orders list
+ VistA.wait('selection')
+ VistA.write('8') # Set it for the entire System
+ VistA.wait('Order Dialog')
+ VistA.write('ORZ GEN MED WRITE ORDERS LIST') # Order menu we want to use
+ VistA.write('\r\r\r\r') # we are done. Stay at the EVE menu
+
+def addAllergiesPermission(VistA):
+ # Add permissions for all users to mark an Allergy as "Entered in error"
+ # in CPRS. Done in the CPRS Configuration menu.
+ # Start from the Systems Manager Menu
+ # Exits to Systems Manager Menu
+ VistA.wait('Systems Manager Menu')
+ VistA.write('CPRS Configuration')
+ VistA.wait('CPRS Configuration')
+ VistA.write('GUI PARAMETERS')
+ VistA.wait('GUI Parameters')
+ VistA.write('GUI Mark Allergy Entered in Error')
+ VistA.wait('Enter selection')
+ VistA.write('4\rY\r\r')
+
+def addTemplatePermission(VistA,init):
+ # Add permission for the Nurse to create note templates that can be
+ # shared in the domain.
+ VistA.wait('Systems Manager Menu')
+ VistA.write('TIU Maintenance')
+ VistA.wait('TIU Maintenance')
+ VistA.write('User Class Management')
+ VistA.wait('User Class Management')
+ VistA.write('List Membership by User')
+ VistA.wait('Select USER')
+ VistA.write('MS\rAdd\rClinical Coordinator\rT-1\r\r\r')
+ VistA.wait('Option')
+ VistA.write('\r')
+
+def createClinic(VistA,name,abbrv,service):
+ # Add clinic via the XUP menu to allow scheduling
+ # Clinic Information:
+ # Clinic meets at the Facility: Yes
+ # Non-Count clinic: No
+ # Stop Code: 301 (General Internal Medicine)
+ # Allowable consecutive no-shows: 0
+ # Max # days for booking in future: 90
+ # Time for Clinic start: 80
+ # Max # days for Auto-rebook: 90
+ # Maximum Overbooks per day: 0
+ # Length of Appointment: 30
+ # Variable Length Appointments?: Y
+ # Display increments per hour: 2
+ VistA.wait('Systems Manager Menu')
+ VistA.write('Core Applications')
+ VistA.wait('Core Applications')
+ VistA.write('Scheduling Manager')
+ VistA.wait('Scheduling Manager\'s Menu')
+ VistA.write('Supervisor Menu')
+ VistA.wait('Supervisor Menu')
+ VistA.write('Set up a Clinic')
+ VistA.wait('Select CLINIC NAME')
+ VistA.write(name)
+ VistA.wait('Are you adding')
+ VistA.write('Y')
+ VistA.wait('NAME')
+ VistA.write('')
+ VistA.wait('ABBREVIATION')
+ VistA.write(abbrv)
+ VistA.wait('CLINIC MEETS')
+ VistA.write('Y')
+ VistA.wait('SERVICE')
+ VistA.write(service)
+ VistA.wait('NON-COUNT CLINIC')
+ VistA.write('N')
+ VistA.wait('STOP CODE NUMBER')
+ VistA.write('301\r\r')
+ VistA.wait('TELEPHONE')
+ VistA.write('555-555-1414\r\r\r\r\r\r\r\r\r\r\r')
+ VistA.wait('ALLOWABLE CONSECUTIVE NO-SHOWS')
+ VistA.write('0')
+ VistA.wait('FUTURE BOOKING')
+ VistA.write('90')
+ VistA.wait('HOUR CLINIC DISPLAY BEGINS')
+ VistA.write('8\r')
+ VistA.wait('AUTO-REBOOK')
+ VistA.write('90\r\r\r\r\r')
+ VistA.wait('MAXIMUM')
+ VistA.write('0\r')
+ VistA.wait('LENGTH OF APP')
+ VistA.write('30')
+ VistA.wait('VARIABLE')
+ VistA.write('Yes')
+ VistA.wait('DISPLAY INCREMENTS PER HOUR')
+ VistA.write('2')
+ # Sets availability for Clinic. Dates below are for a work week (Mon-Fri)
+ # Sets 4 appointment slots from 8am to 3pm with a half hour lunch break of
+ # no appointments. This will be set for all week days in future.
+ dates = ['JUL 2,2012','JUL 3,2012','JUL 4,2012','JUL 5,2012','JUL 6,2012']
+ for date in dates:
+ VistA.wait('AVAILABILITY DATE')
+ VistA.write(date)
+ VistA.wait('TIME')
+ VistA.write('0800-1200\r4')
+ VistA.wait('TIME')
+ VistA.write('1230-1500\r4')
+ VistA.wait('TIME')
+ VistA.write('')
+ VistA.wait('PATTERN OK')
+ VistA.write('Yes')
+ VistA.wait('AVAILABILITY DATE')
+ VistA.write('\r\r\r\r\r')
+ VistA.wait('Do you really want to halt?')
+ VistA.write('Y')
+
+def setupElectronicSignature(VistA,AC,VC1,VC2,sigcode):
+ # Signs a created user into the ZU Menu system to add a signature code for
+ # document signing. It will force the user to change the verify code,
+ VistA.wait(PROMPT,60)
+ VistA.write('D ^ZU')
+ VistA.wait('ACCESS CODE:')
+ VistA.write(AC)
+ VistA.wait('VERIFY CODE:')
+ VistA.write(VC1)
+ VistA.wait('verify code:')
+ VistA.write(VC1)
+ VistA.wait('VERIFY CODE:')
+ VistA.write(VC2)
+ VistA.wait('right:')
+ VistA.write(VC2)
+ VistA.wait('TYPE NAME')
+ VistA.write('')
+ # then will enter the User's Toolbox to change the signature information.
+ VistA.wait('Core Applications')
+ VistA.write('USER\'s TOOLBOX')
+ VistA.wait('Toolbox')
+ VistA.write('ELE')
+ VistA.wait('INITIAL')
+ VistA.write('')
+ VistA.wait('SIGNATURE BLOCK PRINTED NAME')
+ VistA.write('')
+ VistA.wait('SIGNATURE BLOCK TITLE')
+ VistA.write('\r\r\r')
+ VistA.wait('SIGNATURE CODE')
+ VistA.write(sigcode)
+ VistA.wait('SIGNATURE CODE FOR VERIFICATION')
+ VistA.write(sigcode)
+ VistA.wait('Toolbox')
+ VistA.write('\r\r\r')
+
+# Add patient through the
+# Function arguments:
+# VistA, Patient Name, Patient Sex,Patient DOB, Patient SSN, Patient Veteran?
+def addPatient(VistA,name,sex,DOB,SSN,vet):
+ VistA.wait("Core Applications")
+ VistA.write("ADT Manager Menu")
+ index = VistA.multiwait(['to continue','Select ADT Manager Menu'])
+ if index == 0:
+ VistA.write('')
+ VistA.wait('ADT Manager Menu')
+ VistA.write("Registration Menu")
+ VistA.wait("Registration Menu")
+ VistA.write('Register a Patient')
+ index = VistA.multiwait(['PATIENT NAME',"Select 1010 printer"])
+ if index == 1:
+ VistA.write("NULL")
+ VistA.wait('PATIENT NAME')
+ VistA.write(name +'\rY')
+ VistA.wait('SEX')
+ VistA.write(sex)
+ VistA.wait('DATE OF BIRTH')
+ VistA.write(DOB)
+ VistA.wait('SOCIAL SECURITY NUMBER')
+ VistA.write(SSN)
+ VistA.wait('TYPE')
+ VistA.write('NON-VETERAN')
+ VistA.wait('PATIENT VETERAN')
+ VistA.write(vet)
+ VistA.wait('SERVICE CONNECTED')
+ VistA.write('NO')
+ VistA.wait('MULTIPLE BIRTH INDICATOR')
+ VistA.write('')
+ VistA.wait('//')
+ VistA.write('^\r')
+ VistA.wait('MAIDEN NAME:')
+ VistA.write('')
+ VistA.wait('[CITY]')
+ VistA.write('Santa Monica')
+ VistA.wait('[STATE]')
+ VistA.write('California')
+ VistA.wait('ALIAS')
+ VistA.write('')
+ if VistA.type=='cache':
+ # Enter in more information about the patient.
+ VistA.wait('exit:')
+ VistA.write('\r')
+ VistA.wait('Patient Data')
+ VistA.write('Y')
+ VistA.wait('QUIT')
+ VistA.write('4')
+ VistA.wait('COUNTRY')
+ VistA.write('')
+ VistA.wait('STREET ADDRESS')
+ VistA.write('834 Ocean Vista Avenue\r')
+ VistA.wait('ZIP')
+ VistA.write('90401')
+ VistA.wait('CITY')
+ VistA.write('1')
+ VistA.wait('PHONE NUMBER')
+ VistA.write('310-555-2233\r\r')
+ VistA.wait('changes')
+ VistA.write('Y\r')
+ VistA.wait('QUIT')
+ VistA.write('\r\r')
+ VistA.wait('QUIT')
+ VistA.write('1')
+ VistA.wait('PRIMARY NOK')
+ VistA.write('Carter,David J Sr')
+ VistA.wait('RELATIONSHIP')
+ VistA.write('FATHER')
+ VistA.wait('ADDRESS')
+ VistA.write('Y')
+ VistA.wait('WORK PHONE')
+ VistA.write('310-555-9876\r^')
+ VistA.wait('condition')
+ VistA.write('N')
+ VistA.wait('today')
+ VistA.write('Y')
+ VistA.wait('Registration login')
+ VistA.write('NOW')
+ VistA.wait(PROMPT)
\ No newline at end of file
diff --git a/Python/vista/ParseCSVforPackagePrefixes.py b/Python/vista/ParseCSVforPackagePrefixes.py
index 90eaf86..4a4e211 100644
--- a/Python/vista/ParseCSVforPackagePrefixes.py
+++ b/Python/vista/ParseCSVforPackagePrefixes.py
@@ -100,10 +100,43 @@ def FindPackagePrefixes(packagename,packages_csv_file):
prefixes = sorted(included_prefixes+excluded_prefixes)
return [str(x) for x in prefixes]
+def FindPackageFiles(packagename,packages_csv_file):
+ packages_csv = csv.DictReader(open(packages_csv_file,'rb'))
+ package_dir_name = packagename.replace('_',' ')
+ packageprefix = []
+ """
+ This section finds the FileMan file names that are contained in each package. The
+ list will be passed to the "Verify Fields" Utility option of FileMan to check the
+ database as a test.
+
+ At this point, we will simply return the list for each package.
+ """
+
+ included = set()
+ inSpecifiedPackage=False
+ for fields in packages_csv:
+ newDirName = fields['Directory Name']
+ if newDirName:
+ if newDirName == package_dir_name:
+ inSpecifiedPackage=True
+ elif inSpecifiedPackage:
+ break
+ if inSpecifiedPackage:
+ filenum = fields['File Numbers']
+ if filenum:
+ included.add(filenum)
+
+ included_File_Names = [Prefix( "",x) for x in included]
+ File_Names = sorted(included_File_Names)
+ return [str(x) for x in File_Names]
+
if __name__ == '__main__':
print ('sys.argv is %s' % sys.argv)
if len(sys.argv) <= 1:
print ('Need the two arguments arguments:packagename,packages_csv_file ')
sys.exit()
prefixes = FindPackagePrefixes(sys.argv[1], sys.argv[2])
+ files = FindPackageFiles(sys.argv[1], sys.argv[2])
print prefixes
+ print "********************************"
+ print files
\ No newline at end of file
diff --git a/Scripts/.gitattributes b/Scripts/.gitattributes
new file mode 100644
index 0000000..5bbc4a8
--- /dev/null
+++ b/Scripts/.gitattributes
@@ -0,0 +1,2 @@
+# Ignore whitespace and size attributes from top-level directory.
+* !whitespace !hooks.MaxObjectKiB
diff --git a/Scripts/GitSetup/.gitattributes b/Scripts/GitSetup/.gitattributes
new file mode 100644
index 0000000..3323f94
--- /dev/null
+++ b/Scripts/GitSetup/.gitattributes
@@ -0,0 +1,9 @@
+.git* export-ignore
+
+# Exclude from source archives files specific to Git work tree.
+* export-ignore
+
+config* eol=lf whitespace=indent-with-non-tab
+git-* eol=lf whitespace=indent-with-non-tab
+tips eol=lf whitespace=indent-with-non-tab
+setup-* eol=lf whitespace=indent-with-non-tab
diff --git a/Scripts/GitSetup/LICENSE b/Scripts/GitSetup/LICENSE
new file mode 100644
index 0000000..d645695
--- /dev/null
+++ b/Scripts/GitSetup/LICENSE
@@ -0,0 +1,202 @@
+
+ Apache License
+ Version 2.0, January 2004
+ http://www.apache.org/licenses/
+
+ TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
+
+ 1. Definitions.
+
+ "License" shall mean the terms and conditions for use, reproduction,
+ and distribution as defined by Sections 1 through 9 of this document.
+
+ "Licensor" shall mean the copyright owner or entity authorized by
+ the copyright owner that is granting the License.
+
+ "Legal Entity" shall mean the union of the acting entity and all
+ other entities that control, are controlled by, or are under common
+ control with that entity. For the purposes of this definition,
+ "control" means (i) the power, direct or indirect, to cause the
+ direction or management of such entity, whether by contract or
+ otherwise, or (ii) ownership of fifty percent (50%) or more of the
+ outstanding shares, or (iii) beneficial ownership of such entity.
+
+ "You" (or "Your") shall mean an individual or Legal Entity
+ exercising permissions granted by this License.
+
+ "Source" form shall mean the preferred form for making modifications,
+ including but not limited to software source code, documentation
+ source, and configuration files.
+
+ "Object" form shall mean any form resulting from mechanical
+ transformation or translation of a Source form, including but
+ not limited to compiled object code, generated documentation,
+ and conversions to other media types.
+
+ "Work" shall mean the work of authorship, whether in Source or
+ Object form, made available under the License, as indicated by a
+ copyright notice that is included in or attached to the work
+ (an example is provided in the Appendix below).
+
+ "Derivative Works" shall mean any work, whether in Source or Object
+ form, that is based on (or derived from) the Work and for which the
+ editorial revisions, annotations, elaborations, or other modifications
+ represent, as a whole, an original work of authorship. For the purposes
+ of this License, Derivative Works shall not include works that remain
+ separable from, or merely link (or bind by name) to the interfaces of,
+ the Work and Derivative Works thereof.
+
+ "Contribution" shall mean any work of authorship, including
+ the original version of the Work and any modifications or additions
+ to that Work or Derivative Works thereof, that is intentionally
+ submitted to Licensor for inclusion in the Work by the copyright owner
+ or by an individual or Legal Entity authorized to submit on behalf of
+ the copyright owner. For the purposes of this definition, "submitted"
+ means any form of electronic, verbal, or written communication sent
+ to the Licensor or its representatives, including but not limited to
+ communication on electronic mailing lists, source code control systems,
+ and issue tracking systems that are managed by, or on behalf of, the
+ Licensor for the purpose of discussing and improving the Work, but
+ excluding communication that is conspicuously marked or otherwise
+ designated in writing by the copyright owner as "Not a Contribution."
+
+ "Contributor" shall mean Licensor and any individual or Legal Entity
+ on behalf of whom a Contribution has been received by Licensor and
+ subsequently incorporated within the Work.
+
+ 2. Grant of Copyright License. Subject to the terms and conditions of
+ this License, each Contributor hereby grants to You a perpetual,
+ worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+ copyright license to reproduce, prepare Derivative Works of,
+ publicly display, publicly perform, sublicense, and distribute the
+ Work and such Derivative Works in Source or Object form.
+
+ 3. Grant of Patent License. Subject to the terms and conditions of
+ this License, each Contributor hereby grants to You a perpetual,
+ worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+ (except as stated in this section) patent license to make, have made,
+ use, offer to sell, sell, import, and otherwise transfer the Work,
+ where such license applies only to those patent claims licensable
+ by such Contributor that are necessarily infringed by their
+ Contribution(s) alone or by combination of their Contribution(s)
+ with the Work to which such Contribution(s) was submitted. If You
+ institute patent litigation against any entity (including a
+ cross-claim or counterclaim in a lawsuit) alleging that the Work
+ or a Contribution incorporated within the Work constitutes direct
+ or contributory patent infringement, then any patent licenses
+ granted to You under this License for that Work shall terminate
+ as of the date such litigation is filed.
+
+ 4. Redistribution. You may reproduce and distribute copies of the
+ Work or Derivative Works thereof in any medium, with or without
+ modifications, and in Source or Object form, provided that You
+ meet the following conditions:
+
+ (a) You must give any other recipients of the Work or
+ Derivative Works a copy of this License; and
+
+ (b) You must cause any modified files to carry prominent notices
+ stating that You changed the files; and
+
+ (c) You must retain, in the Source form of any Derivative Works
+ that You distribute, all copyright, patent, trademark, and
+ attribution notices from the Source form of the Work,
+ excluding those notices that do not pertain to any part of
+ the Derivative Works; and
+
+ (d) If the Work includes a "NOTICE" text file as part of its
+ distribution, then any Derivative Works that You distribute must
+ include a readable copy of the attribution notices contained
+ within such NOTICE file, excluding those notices that do not
+ pertain to any part of the Derivative Works, in at least one
+ of the following places: within a NOTICE text file distributed
+ as part of the Derivative Works; within the Source form or
+ documentation, if provided along with the Derivative Works; or,
+ within a display generated by the Derivative Works, if and
+ wherever such third-party notices normally appear. The contents
+ of the NOTICE file are for informational purposes only and
+ do not modify the License. You may add Your own attribution
+ notices within Derivative Works that You distribute, alongside
+ or as an addendum to the NOTICE text from the Work, provided
+ that such additional attribution notices cannot be construed
+ as modifying the License.
+
+ You may add Your own copyright statement to Your modifications and
+ may provide additional or different license terms and conditions
+ for use, reproduction, or distribution of Your modifications, or
+ for any such Derivative Works as a whole, provided Your use,
+ reproduction, and distribution of the Work otherwise complies with
+ the conditions stated in this License.
+
+ 5. Submission of Contributions. Unless You explicitly state otherwise,
+ any Contribution intentionally submitted for inclusion in the Work
+ by You to the Licensor shall be under the terms and conditions of
+ this License, without any additional terms or conditions.
+ Notwithstanding the above, nothing herein shall supersede or modify
+ the terms of any separate license agreement you may have executed
+ with Licensor regarding such Contributions.
+
+ 6. Trademarks. This License does not grant permission to use the trade
+ names, trademarks, service marks, or product names of the Licensor,
+ except as required for reasonable and customary use in describing the
+ origin of the Work and reproducing the content of the NOTICE file.
+
+ 7. Disclaimer of Warranty. Unless required by applicable law or
+ agreed to in writing, Licensor provides the Work (and each
+ Contributor provides its Contributions) on an "AS IS" BASIS,
+ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+ implied, including, without limitation, any warranties or conditions
+ of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
+ PARTICULAR PURPOSE. You are solely responsible for determining the
+ appropriateness of using or redistributing the Work and assume any
+ risks associated with Your exercise of permissions under this License.
+
+ 8. Limitation of Liability. In no event and under no legal theory,
+ whether in tort (including negligence), contract, or otherwise,
+ unless required by applicable law (such as deliberate and grossly
+ negligent acts) or agreed to in writing, shall any Contributor be
+ liable to You for damages, including any direct, indirect, special,
+ incidental, or consequential damages of any character arising as a
+ result of this License or out of the use or inability to use the
+ Work (including but not limited to damages for loss of goodwill,
+ work stoppage, computer failure or malfunction, or any and all
+ other commercial damages or losses), even if such Contributor
+ has been advised of the possibility of such damages.
+
+ 9. Accepting Warranty or Additional Liability. While redistributing
+ the Work or Derivative Works thereof, You may choose to offer,
+ and charge a fee for, acceptance of support, warranty, indemnity,
+ or other liability obligations and/or rights consistent with this
+ License. However, in accepting such obligations, You may act only
+ on Your own behalf and on Your sole responsibility, not on behalf
+ of any other Contributor, and only if You agree to indemnify,
+ defend, and hold each Contributor harmless for any liability
+ incurred by, or claims asserted against, such Contributor by reason
+ of your accepting any such warranty or additional liability.
+
+ END OF TERMS AND CONDITIONS
+
+ APPENDIX: How to apply the Apache License to your work.
+
+ To apply the Apache License to your work, attach the following
+ boilerplate notice, with the fields enclosed by brackets "[]"
+ replaced with your own identifying information. (Don't include
+ the brackets!) The text should be enclosed in the appropriate
+ comment syntax for the file format. We also recommend that a
+ file or class name and description of purpose be included on the
+ same "printed page" as the copyright notice for easier
+ identification within third-party archives.
+
+ Copyright [yyyy] [name of copyright owner]
+
+ Licensed under the Apache License, Version 2.0 (the "License");
+ you may not use this file except in compliance with the License.
+ You may obtain a copy of the License at
+
+ http://www.apache.org/licenses/LICENSE-2.0
+
+ Unless required by applicable law or agreed to in writing, software
+ distributed under the License is distributed on an "AS IS" BASIS,
+ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ See the License for the specific language governing permissions and
+ limitations under the License.
diff --git a/Scripts/GitSetup/NOTICE b/Scripts/GitSetup/NOTICE
new file mode 100644
index 0000000..0d32c02
--- /dev/null
+++ b/Scripts/GitSetup/NOTICE
@@ -0,0 +1,5 @@
+Kitware Local Git Setup Scripts
+Copyright 2010-2012 Kitware, Inc.
+
+This product includes software developed at Kitware, Inc.
+(http://www.kitware.com/).
diff --git a/Scripts/GitSetup/README b/Scripts/GitSetup/README
new file mode 100644
index 0000000..cf468fb
--- /dev/null
+++ b/Scripts/GitSetup/README
@@ -0,0 +1,80 @@
+Kitware Local Git Setup Scripts
+
+
+Introduction
+------------
+
+This is a collection of local Git development setup scripts meant for
+inclusion in project source trees to aid their development workflow.
+Project-specific information needed by the scripts may be configured
+in a "config" file added next to them in the project.
+
+
+Import
+------
+
+A project may import these scripts into their source tree by
+initializing a subtree merge. Bring up a Git prompt and set the
+current working directory inside a clone of the target project.
+Fetch the "setup" branch from the GitSetup repository:
+
+ $ git fetch ../GitSetup setup:setup
+
+Prepare to merge the branch but place the content in a subdirectory.
+Any prefix (with trailing '/') may be chosen so long as it is used
+consistently within a project through the rest of these instructions:
+
+ $ git merge -s ours --no-commit setup
+ $ git read-tree -u --prefix=Utilities/GitSetup/ setup
+
+Commit the merge with an informative message:
+
+ $ git commit
+ ------------------------------------------------------------------------
+ Merge branch 'setup'
+
+ Add Utilities/GitSetup/ directory using subtree merge from
+ the general GitSetup repository "setup" branch.
+ ------------------------------------------------------------------------
+
+
+Configuration
+-------------
+
+Read the "Project configuration instructions" comment in each script.
+Add a "config" file next to the scripts with desired configuration
+(optionally copy and modify "config.sample"). For example, to
+configure the "setup-hooks" script:
+
+ $ git config -f Utilities/GitSetup/config hooks.url "$url"
+
+where "$url" is the project repository publishing the "hooks" branch.
+When finished, add and commit the configuration file:
+
+ $ git add Utilities/GitSetup/config
+ $ git commit
+
+
+Update
+------
+
+A project may update these scripts from the GitSetup repository.
+Bring up a Git prompt and set the current working directory inside a
+clone of the target project. Fetch the "setup" branch from the
+GitSetup repository:
+
+ $ git fetch ../GitSetup setup:setup
+
+Merge the "setup" branch into the subtree:
+
+ $ git merge -X subtree=Utilities/GitSetup setup
+
+where "Utilities/GitSetup" is the same prefix used during the import
+setup, but without a trailing '/'.
+
+
+License
+-------
+
+Distributed under the Apache License 2.0.
+See LICENSE and NOTICE for details.
diff --git a/Scripts/GitSetup/SetupGitAliases.sh b/Scripts/GitSetup/SetupGitAliases.sh
new file mode 100755
index 0000000..da3fa37
--- /dev/null
+++ b/Scripts/GitSetup/SetupGitAliases.sh
@@ -0,0 +1,22 @@
+#!/usr/bin/env bash
+#---------------------------------------------------------------------------
+# Copyright 2011-2012 The Open Source Electronic Health Record Agent
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#---------------------------------------------------------------------------
+
+# General aliases that could be global
+git config alias.prepush 'log --graph --stat origin/master..'
+
+# Alias to push the current topic branch to Gerrit
+git config alias.gerrit-push "!bash Scripts/GitSetup/git-gerrit-push"
diff --git a/Scripts/GitSetup/config b/Scripts/GitSetup/config
new file mode 100644
index 0000000..ec50a7b
--- /dev/null
+++ b/Scripts/GitSetup/config
@@ -0,0 +1,7 @@
+[hooks]
+ url = http://code.osehra.org/VistA.git
+[gerrit]
+ project = VistA
+ site = http://review.code.osehra.org
+ url = http://review.code.osehra.org/VistA.git
+ pushurl = $username at review.code.osehra.org:VistA.git
diff --git a/Scripts/GitSetup/config.sample b/Scripts/GitSetup/config.sample
new file mode 100644
index 0000000..bba2382
--- /dev/null
+++ b/Scripts/GitSetup/config.sample
@@ -0,0 +1,22 @@
+# Kitware Local Git Setup Scripts - Sample Project Configuration
+#
+# Copy to "config" and edit as necessary.
+
+[hooks]
+ url = http://public.kitware.com/GitSetup.git
+ #branch = hooks
+
+[ssh]
+ host = public.kitware.com
+ key = id_git_public
+ request-url = https://www.kitware.com/Admin/SendPassword.cgi
+
+[stage]
+ #url = git://public.kitware.com/stage/Project.git
+ #pushurl = git at public.kitware.com:stage/Project.git
+
+[gerrit]
+ #project = Project
+ site = http://review.source.kitware.com
+ # pushurl placeholder "$username" is literal
+ pushurl = $username at review.source.kitware.com:Project
diff --git a/Scripts/GitSetup/git-gerrit-push b/Scripts/GitSetup/git-gerrit-push
new file mode 100755
index 0000000..2471490
--- /dev/null
+++ b/Scripts/GitSetup/git-gerrit-push
@@ -0,0 +1,73 @@
+#!/usr/bin/env bash
+#=============================================================================
+# Copyright 2010-2012 Kitware, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#=============================================================================
+
+USAGE="[<remote>] [--no-topic] [--dry-run] [--]"
+OPTIONS_SPEC=
+SUBDIRECTORY_OK=Yes
+. "$(git --exec-path)/git-sh-setup"
+
+#-----------------------------------------------------------------------------
+
+remote=''
+refspecs=''
+no_topic=''
+dry_run=''
+
+# Parse the command line options.
+while test $# != 0; do
+ case "$1" in
+ --no-topic) no_topic=1 ;;
+ --dry-run) dry_run=--dry-run ;;
+ --) shift; break ;;
+ -*) usage ;;
+ *) test -z "$remote" || usage ; remote="$1" ;;
+ esac
+ shift
+done
+test $# = 0 || usage
+
+# Default remote.
+test -n "$remote" || remote="gerrit"
+
+if test -z "$no_topic"; then
+ # Identify and validate the topic branch name.
+ topic="$(git symbolic-ref HEAD | sed -e 's|^refs/heads/||')"
+ if test "$topic" = "master"; then
+ die 'Please name your topic:
+ git checkout -b descriptive-name'
+ fi
+ refspecs="HEAD:refs/for/master/$topic"
+fi
+
+# Exit early if we have nothing to push.
+if test -z "$refspecs"; then
+ echo "Nothing to push!"
+ exit 0
+fi
+
+# Fetch the current upstream master branch head.
+# This helps the computation of a minimal pack to push.
+echo "Fetching $remote master"
+fetch_out=$(git fetch "$remote" master 2>&1) || die "$fetch_out"
+
+# Push. Save output and exit code.
+echo "Pushing to $remote"
+push_stdout=$(git push --porcelain $dry_run "$remote" $refspecs); push_exit=$?
+echo "$push_stdout"
+
+# Reproduce the push exit code.
+exit $push_exit
diff --git a/Scripts/GitSetup/setup-gerrit b/Scripts/GitSetup/setup-gerrit
new file mode 100755
index 0000000..6d46e3c
--- /dev/null
+++ b/Scripts/GitSetup/setup-gerrit
@@ -0,0 +1,147 @@
+#!/usr/bin/env bash
+#=============================================================================
+# Copyright 2010-2012 Kitware, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#=============================================================================
+
+# Run this script to set up the local Git repository to push to
+# a Gerrit Code Review instance for this project.
+
+# Project configuration instructions:
+#
+# - Run a Gerrit Code Review server
+#
+# - Populate adjacent "config" file with:
+# gerrit.site = Top Gerrit URL (not project-specific)
+# gerrit.project = Name of project in Gerrit
+# gerrit.pushurl = Review site push URL with "$username" placeholder
+# gerrit.remote = Gerrit remote name, if not "gerrit"
+# gerrit.url = Gerrit project URL, if not "$site/p/$project"
+# optionally with "$username" placeholder
+
+die() {
+ echo 1>&2 "$@" ; exit 1
+}
+
+# Make sure we are inside the repository.
+cd "${BASH_SOURCE%/*}" &&
+
+# Load the project configuration.
+site=$(git config -f config --get gerrit.site) &&
+project=$(git config -f config --get gerrit.project) &&
+remote=$(git config -f config --get gerrit.remote ||
+ echo "gerrit") &&
+fetchurl_=$(git config -f config --get gerrit.url ||
+ echo "$site/p/$project") &&
+pushurl_=$(git config -f config --get gerrit.pushurl ||
+ git config -f config --get gerrit.url) ||
+die 'This project is not configured to use Gerrit.'
+
+# Get current gerrit push URL.
+pushurl=$(git config --get remote."$remote".pushurl ||
+ git config --get remote."$remote".url || echo '') &&
+
+# Tell user about current configuration.
+if test -n "$pushurl"; then
+ echo 'Remote "'"$remote"'" is currently configured to push to
+
+ '"$pushurl"'
+' &&
+ read -ep 'Reconfigure Gerrit? [y/N]: ' ans &&
+ if [ "$ans" == "y" ] || [ "$ans" == "Y" ]; then
+ setup=1
+ else
+ setup=''
+ fi
+else
+ echo 'Remote "'"$remote"'" is not yet configured.
+
+'"$project"' changes must be pushed to our Gerrit Code Review site:
+
+ '"$site/p/$project"'
+
+Register a Gerrit account and select a username (used below).
+You will need an OpenID:
+
+ http://openid.net/get-an-openid/
+' &&
+ read -ep 'Configure Gerrit? [Y/n]: ' ans &&
+ if [ "$ans" == "n" ] || [ "$ans" == "N" ]; then
+ exit 0
+ else
+ setup=1
+ fi
+fi &&
+
+# Perform setup if necessary.
+if test -n "$setup"; then
+ echo 'Sign-in to Gerrit to get/set your username at
+
+ '"$site"'/#/settings
+
+Add your SSH public keys at
+
+ '"$site"'/#/settings/ssh-keys
+' &&
+ read -ep "Gerrit username? [$USER]: " gu &&
+ if test -z "$gu"; then
+ gu="$USER"
+ fi &&
+ fetchurl="${fetchurl_/\$username/$gu}" &&
+ if test -z "$pushurl"; then
+ git remote add "$remote" "$fetchurl"
+ else
+ git config remote."$remote".url "$fetchurl"
+ fi &&
+ pushurl="${pushurl_/\$username/$gu}" &&
+ if test "$pushurl" != "$fetchurl"; then
+ git config remote."$remote".pushurl "$pushurl"
+ fi &&
+ echo 'Remote "'"$remote"'" is now configured to push to
+
+ '"$pushurl"'
+'
+fi &&
+
+# Optionally test Gerrit access.
+if test -n "$pushurl"; then
+ read -ep 'Test access to Gerrit (SSH)? [y/N]: ' ans &&
+ if [ "$ans" == "y" ] || [ "$ans" == "Y" ]; then
+ echo -n 'Testing Gerrit access by SSH...'
+ if git ls-remote --heads "$pushurl" >/dev/null; then
+ echo 'passed.'
+ else
+ echo 'failed.' &&
+ die 'Could not access Gerrit. Add your SSH public keys at
+
+ '"$site"'/#/settings/ssh-keys
+'
+ fi
+ fi
+fi &&
+
+# Set up GerritId hook.
+hook=$(git config --get hooks.GerritId || echo '') &&
+if test -z "$hook"; then
+ echo '
+Enabling GerritId hook to add a "Change-Id" footer to commit
+messages for interaction with Gerrit. Run
+
+ git config hooks.GerritId false
+
+to disable this feature (but you will be on your own).' &&
+ git config hooks.GerritId true
+else
+ echo 'GerritId hook already configured to "'"$hook"'".'
+fi
diff --git a/Scripts/GitSetup/setup-hooks b/Scripts/GitSetup/setup-hooks
new file mode 100755
index 0000000..c07985a
--- /dev/null
+++ b/Scripts/GitSetup/setup-hooks
@@ -0,0 +1,63 @@
+#!/usr/bin/env bash
+#=============================================================================
+# Copyright 2010-2012 Kitware, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#=============================================================================
+
+# Run this script to set up local Git hooks for this project.
+
+# Project configuration instructions:
+#
+# - Publish a "hooks" branch in the project repository such that
+# clones will have "refs/remotes/origin/hooks".
+#
+# - Populate adjacent "config" file with:
+# hooks.url = Repository URL publishing "hooks" branch
+# hooks.branch = Repository branch instead of "hooks"
+
+egrep-q() {
+ egrep "$@" >/dev/null 2>/dev/null
+}
+
+die() {
+ echo 1>&2 "$@" ; exit 1
+}
+
+# Make sure we are inside the repository.
+cd "${BASH_SOURCE%/*}" &&
+
+# Select a hooks branch.
+if url=$(git config --get hooks.url); then
+ # Fetch hooks from locally configured repository.
+ branch=$(git config hooks.branch || echo hooks)
+elif git for-each-ref refs/remotes/origin/hooks 2>/dev/null |
+ egrep-q 'refs/remotes/origin/hooks$'; then
+ # Use hooks cloned from origin.
+ url=.. && branch=remotes/origin/hooks
+elif url=$(git config -f config --get hooks.url); then
+ # Fetch hooks from project-configured repository.
+ branch=$(git config -f config hooks.branch || echo hooks)
+else
+ die 'This project is not configured to install local hooks.'
+fi &&
+
+# Populate ".git/hooks".
+echo 'Setting up git hooks...' &&
+git_dir=$(git rev-parse --git-dir) &&
+cd "$git_dir/hooks" &&
+if ! test -e .git; then
+ git init -q || die 'Could not run git init for hooks.'
+fi &&
+git fetch -q "$url" "$branch" &&
+git reset -q --hard FETCH_HEAD || die 'Failed to install hooks'
diff --git a/Scripts/GitSetup/setup-ssh b/Scripts/GitSetup/setup-ssh
new file mode 100755
index 0000000..8920a5b
--- /dev/null
+++ b/Scripts/GitSetup/setup-ssh
@@ -0,0 +1,111 @@
+#!/usr/bin/env bash
+#=============================================================================
+# Copyright 2010-2012 Kitware, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#=============================================================================
+
+# Run this script to set up ssh push access to the repository host.
+
+# Project configuration instructions:
+#
+# - Populate adjacent "config" file with:
+# ssh.host = Repository host name
+# ssh.user = Username on host, if not "git"
+# ssh.key = Local ssh key name
+# ssh.request-url = Web page URL to request ssh access
+
+egrep-q() {
+ egrep "$@" >/dev/null 2>/dev/null
+}
+
+die() {
+ echo 1>&2 "$@" ; exit 1
+}
+
+# Make sure we are inside the repository.
+cd "${BASH_SOURCE%/*}" &&
+
+# Load the project configuration.
+host=$(git config -f config --get ssh.host) &&
+user=$(git config -f config --get ssh.user || echo git) &&
+key=$(git config -f config --get ssh.key) &&
+request_url=$(git config -f config --get ssh.request-url) ||
+die 'This project is not configured for ssh push access.'
+
+# Check for existing configuration.
+if test -r ~/.ssh/config &&
+ egrep-q 'Host[= ]'"${host//\./\\.}" ~/.ssh/config; then
+ echo 'Host "'"$host"'" is already in ~/.ssh/config' &&
+ setup= &&
+ question='Test'
+else
+ echo 'Host "'"$host"'" not found in ~/.ssh/config' &&
+ setup=1 &&
+ question='Setup and test'
+fi &&
+
+# Ask the user whether to make changes.
+echo '' &&
+read -ep "${question} push access by ssh to $user@$host? [y/N]: " access &&
+if test "$access" != "y" -a "$access" != "Y"; then
+ exit 0
+fi &&
+
+# Setup host configuration if necessary.
+if test -n "$setup"; then
+ if ! test -d ~/.ssh; then
+ mkdir -p ~/.ssh &&
+ chmod 700 ~/.ssh
+ fi &&
+ if ! test -f ~/.ssh/config; then
+ touch ~/.ssh/config &&
+ chmod 600 ~/.ssh/config
+ fi &&
+ ssh_config='Host='"$host"'
+ IdentityFile ~/.ssh/'"$key" &&
+ echo "Adding to ~/.ssh/config:
+
+$ssh_config
+" &&
+ echo "$ssh_config" >> ~/.ssh/config &&
+ if ! test -e ~/.ssh/"$key"; then
+ if test -f ~/.ssh/id_rsa; then
+ # Take care of the common case.
+ ln -s id_rsa ~/.ssh/"$key"
+ echo '
+Assuming ~/.ssh/id_rsa is the private key corresponding to the public key for
+
+ '"$user@$host"'
+
+If this is incorrect place private key at "~/.ssh/'"$key"'".'
+ else
+ echo '
+Place the private key corresponding to the public key registered for
+
+ '"$user@$host"'
+
+at "~/.ssh/'"$key"'".'
+ fi
+ read -e -n 1 -p 'Press any key to continue...'
+ fi
+fi || exit 1
+
+# Test access configuration.
+echo 'Testing ssh push access to "'"$user@$host"'"...' &&
+if ! ssh "$user@$host" info; then
+ die 'No ssh push access to "'"$user@$host"'". You may need to request access at
+
+ '"$request_url"'
+'
+fi
diff --git a/Scripts/GitSetup/setup-stage b/Scripts/GitSetup/setup-stage
new file mode 100755
index 0000000..ce6ec45
--- /dev/null
+++ b/Scripts/GitSetup/setup-stage
@@ -0,0 +1,82 @@
+#!/usr/bin/env bash
+#=============================================================================
+# Copyright 2010-2012 Kitware, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#=============================================================================
+
+# Run this script to set up the topic stage for pushing changes.
+
+# Project configuration instructions:
+#
+# - Run a Topic Stage repository next to the main project repository.
+#
+# - Populate adjacent "config" file with:
+# stage.url = Topic Stage repository URL
+# stage.pushurl = Topic Stage push URL if not "$url"
+
+egrep-q() {
+ egrep "$@" >/dev/null 2>/dev/null
+}
+
+die() {
+ echo 1>&2 "$@" ; exit 1
+}
+
+# Make sure we are inside the repository.
+cd "${BASH_SOURCE%/*}" &&
+
+# Load the project configuration.
+fetchurl_=$(git config -f config --get stage.url) &&
+pushurl_=$(git config -f config --get stage.pushurl || echo "$fetchurl_") &&
+remote=$(git config -f config --get stage.remote || echo 'stage') ||
+die 'This project is not configured to use a topic stage.'
+
+# Get current stage push URL.
+pushurl=$(git config --get remote."$remote".pushurl ||
+ git config --get remote."$remote".url || echo '') &&
+
+# Tell user about current configuration.
+if test -n "$pushurl"; then
+ echo 'Remote "'"$remote"'" is currently configured to push to
+
+ '"$pushurl"'
+' &&
+ read -ep 'Reconfigure Topic Stage? [y/N]: ' ans &&
+ if [ "$ans" == "y" ] || [ "$ans" == "Y" ]; then
+ setup=1
+ else
+ setup=''
+ fi
+else
+ setup=1
+fi
+
+# Perform setup if necessary.
+if test -n "$setup"; then
+ echo 'Setting up the topic stage...' &&
+ fetchurl="${fetchurl_}" &&
+ if test -z "$pushurl"; then
+ git remote add "$remote" "$fetchurl"
+ else
+ git config remote."$remote".url "$fetchurl"
+ fi &&
+ pushurl="${pushurl_}" &&
+ if test "$pushurl" != "$fetchurl"; then
+ git config remote."$remote".pushurl "$pushurl"
+ fi &&
+ echo 'Remote "'"$remote"'" is now configured to push to
+
+ '"$pushurl"'
+'
+fi || die 'Could not configure the topic stage remote.'
diff --git a/Scripts/GitSetup/setup-user b/Scripts/GitSetup/setup-user
new file mode 100755
index 0000000..1af439c
--- /dev/null
+++ b/Scripts/GitSetup/setup-user
@@ -0,0 +1,39 @@
+#!/usr/bin/env bash
+#=============================================================================
+# Copyright 2010-2012 Kitware, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#=============================================================================
+
+# Run this script to configure Git user info in this repository.
+
+# Project configuration instructions: NONE
+
+for (( ; ; )); do
+ user_name=$(git config user.name || echo '') &&
+ user_email=$(git config user.email || echo '') &&
+ if test -n "$user_name" -a -n "$user_email"; then
+ echo 'Your commits will record as Author:
+
+ '"$user_name <$user_email>"'
+' &&
+ read -ep 'Is the author name and email address above correct? [Y/n] ' correct &&
+ if test "$correct" != "n" -a "$correct" != "N"; then
+ break
+ fi
+ fi &&
+ read -ep 'Enter your full name e.g. "John Doe": ' name &&
+ read -ep 'Enter your email address e.g. "john at gmail.com": ' email &&
+ git config user.name "$name" &&
+ git config user.email "$email"
+done
diff --git a/Scripts/GitSetup/tips b/Scripts/GitSetup/tips
new file mode 100755
index 0000000..784e1ed
--- /dev/null
+++ b/Scripts/GitSetup/tips
@@ -0,0 +1,55 @@
+#!/usr/bin/env bash
+#=============================================================================
+# Copyright 2010-2012 Kitware, Inc.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#=============================================================================
+
+# This script makes optional suggestions for working with Git.
+
+# Project configuration instructions: NONE
+
+egrep-q() {
+ egrep "$@" >/dev/null 2>/dev/null
+}
+
+# Suggest color configuration.
+if test -z "$(git config --get color.ui)"; then
+ echo '
+One may enable color output from Git commands with
+
+ git config --global color.ui auto
+'
+fi
+
+# Suggest bash completion.
+if ! bash -i -c 'echo $PS1' | egrep-q '__git_ps1'; then
+ echo '
+A dynamic, informative Git shell prompt can be obtained by sourcing
+the git bash-completion script in your "~/.bashrc". Set the PS1
+environmental variable as suggested in the comments at the top of the
+bash-completion script. You may need to install the bash-completion
+package from your distribution to obtain it.
+'
+fi
+
+# Suggest merge tool.
+if test -z "$(git config --get merge.tool)"; then
+ echo '
+One may configure Git to load a merge tool with
+
+ git config merge.tool <toolname>
+
+See "git help mergetool" for more information.
+'
+fi
diff --git a/Scripts/Install/.gitattributes b/Scripts/Install/.gitattributes
new file mode 100644
index 0000000..392ac0f
--- /dev/null
+++ b/Scripts/Install/.gitattributes
@@ -0,0 +1,3 @@
+# force shell scripts to be be unix line endings (even on windows)
+*.sh text eol=lf
+GTM/gtminstall_SHA1 text eol=lf
diff --git a/Scripts/Install/.gitignore b/Scripts/Install/.gitignore
new file mode 100644
index 0000000..2ace575
--- /dev/null
+++ b/Scripts/Install/.gitignore
@@ -0,0 +1,6 @@
+# Do not add vagrant generated folders
+.vagrant/
+
+# Do not add generated key scripts
+EC2.sh
+Rackspace.sh
diff --git a/Scripts/Install/GTM/createVistaInstance.sh b/Scripts/Install/GTM/createVistaInstance.sh
index 4f7ef18..7340d7e 100755
--- a/Scripts/Install/GTM/createVistaInstance.sh
+++ b/Scripts/Install/GTM/createVistaInstance.sh
@@ -105,6 +105,12 @@ basedir=/home/$instance
# $instance group is for permissions to other users
# $instance group is auto created by adduser script
useradd -c "$instance instance owner" -m -U $instance -s /bin/bash
+useradd -c "Tied user account for $instance" -M -N -g $instance -s /home/$instance/bin/tied.sh -d /home/$instance ${instance}tied
+useradd -c "Programmer user account for $instance" -M -N -g $instance -s /home/$instance/bin/prog.sh -d /home/$instance ${instance}prog
+
+# Change password for tied accounts
+echo ${instance}tied:tied | chpasswd
+echo ${instance}prog:prog | chpasswd
# Make instance Directories
su $instance -c "mkdir -p $basedir/{p,p/$gtmver,s,s/$gtmver,r,r/$gtmver,g,j,etc,etc/xinetd.d,log,tmp,bin,lib,www,backup}"
@@ -158,15 +164,20 @@ fi
# prog.sh - priviliged (programmer) user access
# Allow access to ZSY
+echo "#!/bin/bash" >> $basedir/bin/prog.sh
+echo "source $basedir/etc/env" >> $basedir/bin/prog.sh
+echo "export SHELL=/bin/bash" >> $basedir/bin/prog.sh
echo "#These exist for compatibility reasons" >> $basedir/bin/prog.sh
echo "alias gtm=\"\$gtm_dist/mumps -dir\"" >> $basedir/bin/prog.sh
echo "alias GTM=\"\$gtm_dist/mumps -dir\"" >> $basedir/bin/prog.sh
echo "alias gde=\"\$gtm_dist/mumps -run GDE\"" >> $basedir/bin/prog.sh
echo "alias lke=\"\$gtm_dist/mumps -run LKE\"" >> $basedir/bin/prog.sh
echo "alias dse=\"\$gtm_dist/mumps -run DSE\"" >> $basedir/bin/prog.sh
+echo "\$gtm_dist/mumps -dir" >> $basedir/bin/prog.sh
# Ensure correct permissions for prog.sh
chown $instance:$instance $basedir/bin/prog.sh
+chmod +x $basedir/bin/prog.sh
# tied.sh - unpriviliged user access
# $instance is their shell - no access to ZSY
@@ -179,6 +190,7 @@ echo "exec \$gtm_dist/mumps -run ^ZU" >> $basedir/bin/tied.sh
# Ensure correct permissions for tied.sh
chown $instance:$instance $basedir/bin/tied.sh
+chmod +x $basedir/bin/tied.sh
# Create Global mapping
# Thanks to Sam Habiel, Gus Landis, and others for the inital values
diff --git a/Scripts/IntersysCacheUtils.py b/Scripts/IntersysCacheUtils.py
index c7a33d6..f7961c1 100644
--- a/Scripts/IntersysCacheUtils.py
+++ b/Scripts/IntersysCacheUtils.py
@@ -20,6 +20,7 @@ import subprocess
import re
import argparse
from LoggerManager import logger, initConsoleLogging
+import logging
CACHE_DATA_FILE = 'CACHE.DAT'
#---------------------------------------------------------------------------
@@ -99,6 +100,50 @@ def isInstanceRunning(instanceName):
print ex
return False
"""
+ dismount/mount a local database via InterSystem Cache ^DATABASE call
+"""
+def dismountLocalDatabase(dbFilePath, testClient):
+ return _mountLocalDatabaseCommon(dbFilePath, testClient, True)
+
+def mountLocalDatabase(dbFilePath, testClient):
+ return _mountLocalDatabaseCommon(dbFilePath, testClient, False)
+
+def _mountLocalDatabaseCommon(dbFilePath, testClient,
+ isDismount, readOnly=False):
+ # convert dbFilePath to abspath
+ if not os.path.isdir(dbFilePath):
+ logging.error("%s is not a valid directory" % dbFilePath)
+ return False
+ absDbFilePath = os.path.abspath(dbFilePath)
+ conn = testClient.getConnection()
+ testClient.waitForPrompt()
+ if isDismount:
+ conn.send('D DISMOUNT^DATABASE\r')
+ else:
+ conn.send('D MOUNT^DATABASE\r')
+ conn.expect('mount\? ')
+ conn.send(os.path.normpath(absDbFilePath)+ '\r')
+ index = conn.expect(['mount of databases\? ',
+ 'mount\? '
+ ])
+ if index == 0: # confirmation the mount/dismount action
+ conn.send('Yes\r')
+ if not isDismount: # extra confirmation for mount
+ conn.expect('Mount Read Only\?')
+ if readOnly:
+ conn.send('Yes\r')
+ else:
+ conn.send('No\r')
+ conn.expect('mounted') # just double check
+ conn.expect('mount\? ')
+ conn.send('\r')
+ else: # database is already mounted/dismounted
+ conn.send('\r')
+ testClient.waitForPrompt()
+ conn.send('\r')
+ return True
+
+"""
restore Cache data file for Cache Instance provided
@instanceName: Cache instance name to restore
@bzipDataFile:
@@ -228,9 +273,34 @@ def testExtract():
destDir = '/tmp'
extractBZIP2Tarball(bzipFile, destDir)
+def testMountDisMountLocalDb():
+ from VistATestClient import createTestClientArgParser
+ from VistATestClient import VistATestClientFactory
+
+ testClientParser = createTestClientArgParser()
+ parser = argparse.ArgumentParser(description='InterSystem Cache Mount Dismount Test',
+ parents=[testClientParser])
+ parser.add_argument('-p', '--dirPath', required=True,
+ help='Enter directory path for the local database')
+ parser.add_argument('-a', '--action', choices=['M','D'],
+ required=True, type=str,
+ help='M: mount the database, D: dismount the database. '
+ 'Make sure InterSystem ^DATABASE routine is accessable via'
+ ' specified namespace.')
+ result = parser.parse_args();
+ print result
+ testClient = VistATestClientFactory.createVistATestClientWithArgs(result)
+ with testClient:
+ if result.action == 'D':
+ logging.info('Dismount LocalDB: %s' % result.dirPath)
+ dismountLocalDatabase(result.dirPath, testClient)
+ else:
+ logging.info('mount LocalDB: %s' % result.dirPath)
+ mountLocalDatabase(result.dirPath, testClient)
+
def main():
initConsoleLogging()
- pass
+ testMountDisMountLocalDb()
if __name__ == '__main__':
main()
diff --git a/Scripts/KIDSAssociatedFilesMapping.py b/Scripts/KIDSAssociatedFilesMapping.py
index 96acb3e..03c7ad2 100644
--- a/Scripts/KIDSAssociatedFilesMapping.py
+++ b/Scripts/KIDSAssociatedFilesMapping.py
@@ -43,6 +43,7 @@ KIDS_SINGLE_FILE_ASSOCIATION_DICT = {
"LEX_2_89.GBLs": "LEX*2.0*89",
"LEX_2_90.GBLs": "LEX*2.0*90",
"LEX_2_91.GBLs": "LEX*2.0*91",
+ "LEX_2_93.GBLs": "LEX*2.0*93",
}
"""
@@ -54,6 +55,7 @@ KIDS_GROUP_FILES_ASSOCIATION_DICT = {
"IBRC1201[A-F].TXT" : "IB*2.0*468",
"IBRC1210[A-F].TXT" : "IB*2.0*484",
"IBRC1301[A-F].TXT" : "IB*2.0*491",
+ "IBRC1310[A-F].TXT" : "IB*2.0*508",
}
def getAssociatedInstallName(fileName):
diff --git a/Scripts/PackRO.py b/Scripts/PackRO.py
index 2680d14..ed8194f 100755
--- a/Scripts/PackRO.py
+++ b/Scripts/PackRO.py
@@ -32,6 +32,7 @@ def pack(files, output):
sys.stderr.write('Skipping non-.m file: %s\n' % f)
continue
n = os.path.basename(f)[:-2]
+ n = n.replace("_","%")
m = open(f,"r")
output.write('%s\n'%n)
for line in m:
diff --git a/Scripts/Testing/PyUnit/.gitignore b/Scripts/Testing/PyUnit/.gitignore
new file mode 100644
index 0000000..9f7ab91
--- /dev/null
+++ b/Scripts/Testing/PyUnit/.gitignore
@@ -0,0 +1 @@
+RPCBrokerCheck.py
diff --git a/Scripts/Testing/PyUnit/Packages/.gitattributes b/Scripts/Testing/PyUnit/Packages/.gitattributes
new file mode 100644
index 0000000..0e298f1
--- /dev/null
+++ b/Scripts/Testing/PyUnit/Packages/.gitattributes
@@ -0,0 +1,4 @@
+# No whitespace checks in third-party content
+*.txt -whitespace
+*.TXTs -whitespace
+*.TXT -whitespace
diff --git a/Scripts/Testing/PyUnit/TestVistATestClient.py b/Scripts/Testing/PyUnit/TestVistATestClient.py
new file mode 100644
index 0000000..8d65445
--- /dev/null
+++ b/Scripts/Testing/PyUnit/TestVistATestClient.py
@@ -0,0 +1,44 @@
+#---------------------------------------------------------------------------
+# Copyright 2014 The Open Source Electronic Health Record Alliance
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#---------------------------------------------------------------------------
+import os
+import sys
+import unittest
+
+curDir = os.path.dirname(os.path.abspath(__file__))
+scriptDir = os.path.normpath(os.path.join(curDir, "../../"))
+if scriptDir not in sys.path:
+ sys.path.append(scriptDir)
+
+from VistATestClient import TestException, getTestClientConnArg
+from VistATestClient import testExceptionSafe, testConnection
+
+connArgs = None
+
+class TestVistATestClient(unittest.TestCase):
+ def __init__(self, methodName='runTest'):
+ unittest.TestCase.__init__(self, methodName)
+
+ def test_ExceptionSafe(self):
+ self.assertRaises(TestException, testExceptionSafe, connArgs)
+
+ def test_Connection(self):
+ result = testConnection(connArgs)
+ self.assertTrue(result)
+
+if __name__ == '__main__':
+ connArgs = getTestClientConnArg('VistA Test Client Tests')
+ suite = unittest.TestLoader().loadTestsFromTestCase(TestVistATestClient)
+ unittest.TextTestRunner(verbosity=2).run(suite)
diff --git a/Scripts/VistATestClient.py b/Scripts/VistATestClient.py
index 359fb3a..75792fa 100644
--- a/Scripts/VistATestClient.py
+++ b/Scripts/VistATestClient.py
@@ -41,6 +41,8 @@ else:
DEFAULT_TIME_OUT_VALUE = 30
CACHE_PROMPT_END = ">"
+DEFAULT_HOST='127.0.0.1'
+DEFAULT_PORT='23'
""" Base class of a VistA Test Client
"""
@@ -58,9 +60,10 @@ class VistATestClient(object):
self._namespace = namespace
self._instance = None
def createConnection(self, command, instance,
- username = None, password = None):
+ username = None, password = None,
+ hostname=DEFAULT_HOST, port=DEFAULT_PORT):
pass
- def waitForPrompt(self, timeout=None):
+ def waitForPrompt(self, timeout=DEFAULT_TIME_OUT_VALUE):
self._connection.expect(self._prompt, timeout)
def getConnection(self):
return self._connection
@@ -127,7 +130,8 @@ class VistATestClientGTMLinux(VistATestClient):
self.DEFAULT_GTM_COMMAND)
VistATestClient.__init__(self, self.GTM_ON_LINUX, gtm_prompt, None)
def createConnection(self, command, instance,
- username = None, password = None):
+ username = None, password = None,
+ hostname=DEFAULT_HOST, port=DEFAULT_PORT):
if not command:
command = self.DEFAULT_GTM_COMMAND
self._connection = pexpect.spawn(command, timeout = DEFAULT_TIME_OUT_VALUE)
@@ -151,15 +155,19 @@ class VistATestClientCache(VistATestClient):
Make sure that plink is in you %path%
"""
class VistATestClientCacheWindows(VistATestClientCache):
- DEFAULT_WIN_TELNET_CMD = "plink.exe -telnet 127.0.0.1 -P 23"
+ DEFAULT_WIN_TELNET_CMD = "plink.exe -telnet"
def __init__(self, namespace):
assert namespace, "Must provide a namespace"
prompt = namespace + CACHE_PROMPT_END
VistATestClientCache.__init__(self, self.CACHE_ON_WINDOWS, prompt, namespace)
+
def createConnection(self, command, instance,
- username = None, password = None):
+ username = None, password = None,
+ hostname=DEFAULT_HOST, port=DEFAULT_PORT):
if not command:
command = self.DEFAULT_WIN_TELNET_CMD
+ if (hostname and port):
+ command += " %s -P %s" % (hostname, port)
self._instance = instance
self._connection = winspawn(command, timeout = DEFAULT_TIME_OUT_VALUE)
assert self._connection.isalive()
@@ -174,8 +182,10 @@ class VistATestClientCacheLinux(VistATestClientCache):
assert namespace, "Must provide a namespace"
prompt = namespace + CACHE_PROMPT_END
VistATestClientCache.__init__(self, self.CACHE_ON_LINUX, prompt, namespace)
+
def createConnection(self, command, instance,
- username = None, password = None):
+ username = None, password = None,
+ hostname=DEFAULT_HOST, port=DEFAULT_PORT):
if not command:
assert instance
command = "%s %s" % (self.DEFAULT_CACHE_CMD, instance)
@@ -205,6 +215,10 @@ def createTestClientArgParser():
help='Cache username for authentication, default is None')
argGroup.add_argument('-CP', '--cachepass', default=None,
help='Cache password for authentication, default is None')
+ argGroup.add_argument('-HN', '--hostname', default='127.0.0.1',
+ help='Cache telnet host, default is localhost(127.0.0.1)')
+ argGroup.add_argument('-HT', '--hostport', default='23',
+ help='Cache telnet service port, default is 23')
return parser
class VistATestClientFactory(object):
@@ -221,11 +235,14 @@ class VistATestClientFactory(object):
namespace=arguments.namespace,
instance=arguments.instance,
username=arguments.cacheuser,
- password=arguments.cachepass)
+ password=arguments.cachepass,
+ host=arguments.hostname,
+ port=arguments.hostport)
@staticmethod
def createVistATestClient(system, prompt = None,
namespace = DEFAULT_NAMESPACE, instance = DEFAULT_INSTANCE,
- command = None, username = None, password = None):
+ command = None, username = None, password = None,
+ host=DEFAULT_HOST, port=DEFAULT_PORT):
testClient = None
assert (system > VistATestClientFactory.SYSTEM_NONE and
system < VistATestClientFactory.SYSTEM_LAST)
@@ -239,24 +256,48 @@ class VistATestClientFactory(object):
testClient = VistATestClientGTMLinux()
if not testClient:
raise Exception ("Could not create VistA Test Client")
- testClient.createConnection(command, instance, username, password)
+ testClient.createConnection(command, instance, username,
+ password, host, port)
return testClient
-def main():
+"""
+"""
+class TestException(Exception):
+ def __init__(self, description):
+ self._description = description
+ def __str__(self):
+ return repr(self._description)
+
+def testExceptionSafe(connArgs):
+ testClient = VistATestClientFactory.createVistATestClientWithArgs(connArgs)
+ """ this is to test the context manager to make sure the resource
+ is clean up even there is an exception
+ """
+ with testClient as client:
+ raise TestException("Exception Safe Testing Exception")
+
+def testConnection(connArgs):
+ retValue = False
+ testClient = VistATestClientFactory.createVistATestClientWithArgs(connArgs)
+ with testClient as client:
+ testClient.waitForPrompt()
+ retValue = True
+ return retValue
+
+def getTestClientConnArg(descr):
testClientParser = createTestClientArgParser()
- parser = argparse.ArgumentParser(description='VistA Test Client Demo',
+ parser = argparse.ArgumentParser(description=descr,
parents=[testClientParser])
result = parser.parse_args();
print (result)
+ return result
+
+def main():
import logging
initConsoleLogging(logging.INFO)
- testClient = VistATestClientFactory.createVistATestClientWithArgs(result)
- assert testClient
- """ this is to test the context manager to make sure the resource
- is clean up even there is an exception
- """
- with testClient as client:
- raise Exception("Test Exception")
+ connArgs = getTestClientConnArg("VistA Test Client Tests")
+ testConnection(connArgs)
+ testExceptionSafe(connArgs)
if __name__ == '__main__':
main()
diff --git a/Testing/CMakeLists.txt b/Testing/CMakeLists.txt
index dc03d2b..43f2bd4 100644
--- a/Testing/CMakeLists.txt
+++ b/Testing/CMakeLists.txt
@@ -100,6 +100,9 @@ elseif(CCONTROL_EXECUTABLE)
include(UseCache)
endif()
+#-----------------------------------------------------------------------------#
+##### SECTION TO SETUP THE XINDEX TESTING` #####
+#-----------------------------------------------------------------------------#
include(CommonFunctions)
option(TEST_VISTA_XINDEX "Run XINDEX on every routine in every package" ON)
if(TEST_VISTA_XINDEX)
@@ -108,10 +111,26 @@ if(TEST_VISTA_XINDEX)
foreach(package_file_name ${PACKAGES})
#Configures the CMAKE testing
set(LOGFILENAME "@TEST_VISTA_OUTPUT_DIR@/@package_file_name at Test.log")
- configure_file(${CMAKE_CURRENT_SOURCE_DIR}/XINDEXScript.cmake.in ${VISTA_BINARY_DIR}/Testing/${package_file_name}Test.cmake @ONLY)
- configure_file(${CMAKE_CURRENT_SOURCE_DIR}/XINDEXScript.py.in ${VISTA_BINARY_DIR}/Testing/${package_file_name}Test.py @ONLY)
+ configure_file(${CMAKE_CURRENT_SOURCE_DIR}/XINDEXScript.cmake.in ${VISTA_BINARY_DIR}/Testing/XINDEX/${package_file_name}Test.cmake @ONLY)
+ configure_file(${CMAKE_CURRENT_SOURCE_DIR}/XINDEXScript.py.in ${VISTA_BINARY_DIR}/Testing/XINDEX/${package_file_name}Test.py @ONLY)
#Creates the command that will be called for the Test
- add_test(XINDEX_${package_file_name} ${CMAKE_COMMAND} -P ${VISTA_BINARY_DIR}/Testing/${package_file_name}Test.cmake)
+ add_test(XINDEX_${package_file_name} ${CMAKE_COMMAND} -P ${VISTA_BINARY_DIR}/Testing/XINDEX/${package_file_name}Test.cmake)
+ endforeach()
+endif()
+
+#-----------------------------------------------------------------------------#
+##### SECTION TO SETUP THE FILEMAN "VERIFY FIELDS" TESTING #####
+#-----------------------------------------------------------------------------#
+option(TEST_VISTA_VERIFYFIELDS "Run the 'Verify Fields' FileMan Utility on every file in each package" OFF)
+mark_as_advanced(TEST_VISTA_VERIFYFIELDS)
+if(TEST_VISTA_VERIFYFIELDS)
+ FindPackages(${VISTA_SOURCE_DIR})
+ foreach(package_file_name ${PACKAGES})
+ # Configures the CMAKE testing
+ set(LOGFILENAME "@TEST_VISTA_OUTPUT_DIR@/@package_file_name at VFTest.log")
+ configure_file(${CMAKE_CURRENT_SOURCE_DIR}/VerifyFields.py.in ${VISTA_BINARY_DIR}/Testing/VerifyFields/${package_file_name}VFTest.py @ONLY)
+ # Creates the command that will be called for the Test
+ add_test(VerifyFields_${package_file_name} ${PYTHON_EXECUTABLE} ${CMAKE_CURRENT_BINARY_DIR}/VerifyFields/${package_file_name}VFTest.py)
endforeach()
endif()
@@ -221,10 +240,14 @@ add_test(PYTHON_PrefixParser ${PYTHON_EXECUTABLE} ${CMAKE_CURRENT_SOURCE_DIR}/Py
#-----------------------------------------------------------------------------#
file(GLOB PyUnitTests ${VISTA_SOURCE_DIR}/Scripts/Testing/PyUnit/Test*.py)
configure_file("${VISTA_SOURCE_DIR}/Scripts/Testing/PyUnit/RPCBrokerCheck.py.in" "${VISTA_SOURCE_DIR}/Scripts/Testing/PyUnit/RPCBrokerCheck.py")
+set(VendorArgs "")
+SetVendorArgs(VendorArgs)
foreach(PyUnitTest ${PyUnitTests})
get_filename_component(PyUnitTestName "${PyUnitTest}" NAME_WE)
if(${PyUnitTestName} STREQUAL "TestSSEP")
set(ARGUMENTS ${VISTA_TCP_HOST} ${VISTA_TCP_PORT})
+ elseif("${PyUnitTestName}" MATCHES "TestClient$")
+ set(ARGUMENTS "${VendorArgs}")
endif()
add_test(PyUnitTest_${PyUnitTestName} ${PYTHON_EXECUTABLE} ${PyUnitTest} ${ARGUMENTS})
set_tests_properties(PyUnitTest_${PyUnitTestName}
@@ -237,3 +260,11 @@ endforeach()
configure_file("${CMAKE_CURRENT_SOURCE_DIR}/Python/MenuTraversalTest.py.in" "${CMAKE_CURRENT_BINARY_DIR}/Python/MenuTraversalTest.py")
add_test(PYTHON_MenuTraversal ${PYTHON_EXECUTABLE} "${CMAKE_CURRENT_BINARY_DIR}/Python/MenuTraversalTest.py")
configure_file("${CMAKE_CURRENT_SOURCE_DIR}/Python/MenuTraversalSmokeTest.py.in" "${CMAKE_CURRENT_BINARY_DIR}/Python/MenuTraversalSmokeTest.py")
+
+#-----------------------------------------------------------------------------#
+##### SECTION TO ADD USER GENERATED TESTS #####
+#-----------------------------------------------------------------------------#
+option(TEST_VISTA_USERTEST "Add tests from the Testing/UserTest/CMakeLists.txt file?" OFF)
+if(TEST_VISTA_USERTEST)
+ add_subdirectory(UserTest)
+endif()
diff --git a/Testing/Functional/CMakeLists.txt b/Testing/Functional/CMakeLists.txt
index aa5cd6a..e2e9e40 100644
--- a/Testing/Functional/CMakeLists.txt
+++ b/Testing/Functional/CMakeLists.txt
@@ -13,7 +13,7 @@
# See the License for the specific language governing permissions and
# limitations under the License.
#---------------------------------------------------------------------------
-
+include(CommonFunctions)
if(TEST_VISTA_FUNCTIONAL_SIK)
# CPRS only runs on Windows, Thus the Sikuli and GUI test will be added only for those types of machines
if(WIN32)
@@ -61,14 +61,7 @@ if(TEST_VISTA_FUNCTIONAL_RAS)
endforeach()
file(GLOB RASUnitTests ${package}/Testing/RAS/UT*.py)
set(vendor_args "")
- if("${VENDOR_NAME}" STREQUAL "Cache")
- list(APPEND vendor_args -S 1 -CN "${VISTA_CACHE_NAMESPACE}" -CI "${VISTA_CACHE_INSTANCE}")
- if(VISTA_CACHE_USERNAME)
- list(APPEND vendor_args -CU "${VISTA_CACHE_USERNAME}" -CP "${VISTA_CACHE_PASSWORD}")
- endif()
- elseif("${VENDOR_NAME}" STREQUAL "GTM")
- list(APPEND vendor_args -S 2)
- endif()
+ SetVendorArgs(vendor_args)
foreach(RASUnitTest ${RASUnitTests})
get_filename_component(RASUnitTestName "${RASUnitTest}" NAME_WE)
add_test(RASUnitTest_${RASUnitTestName} ${PYTHON_EXECUTABLE} ${RASUnitTest} ${vendor_args})
diff --git a/Testing/OTJ/OTJTestDriver.cmake.in b/Testing/OTJ/OTJTestDriver.cmake.in
index 5492b3d..4ad9641 100644
--- a/Testing/OTJ/OTJTestDriver.cmake.in
+++ b/Testing/OTJ/OTJTestDriver.cmake.in
@@ -15,17 +15,11 @@
#---------------------------------------------------------------------------
# prepare the arguments list
+include(CommonFunctions)
set(vendor_args "")
-if("@VENDOR_NAME@" STREQUAL "Cache")
- list(APPEND vendor_args -S 1 -CN "@VISTA_CACHE_NAMESPACE@" -CI "@VISTA_CACHE_INSTANCE@")
- string(STRIP "@VISTA_CACHE_USERNAME@" cacheusr)
- string(LENGTH "${cacheusr}" userLen)
- if(userLen)
- list(APPEND vendor_args -CU "@VISTA_CACHE_USERNAME@" -CP "@VISTA_CACHE_PASSWORD@")
- endif()
-elseif("@VENROD_NAME@" STREQUAL "GTM")
- list(APPEND vendor_args -S 2)
-endif()
+SetVendorArgsConfig(vendor_args "@VENDOR_NAME@" "@VISTA_CACHE_NAMESPACE@"
+ "@VISTA_CACHE_INSTANCE@" "@VISTA_CACHE_USERNAME@"
+ "@VISTA_CACHE_PASSWORD@")
set(OTJ_PATCH_DIR "@OTJ_SUBMISSION_DIR@")
set(PATCH_INSTALL_SCRIPT "@VISTA_SOURCE_DIR@/Scripts/PatchSequenceApply.py")
set(LOG_DIR "@OTJ_LOG_DIR@/@submission_name@")
diff --git a/Testing/OTJ/VA FileMan 22.2/.gitignore b/Testing/OTJ/VA FileMan 22.2/.gitignore
new file mode 100644
index 0000000..b6e434e
--- /dev/null
+++ b/Testing/OTJ/VA FileMan 22.2/.gitignore
@@ -0,0 +1 @@
+VA-FILEMAN-22P2.RSA
diff --git a/Testing/Python/MenuTraversalSmokeTest.py.in b/Testing/Python/MenuTraversalSmokeTest.py.in
index 465b426..6217c44 100644
--- a/Testing/Python/MenuTraversalSmokeTest.py.in
+++ b/Testing/Python/MenuTraversalSmokeTest.py.in
@@ -39,6 +39,11 @@ def visitChildren(VistA,targetmenu,results):
VistA = ConnectToMUMPS("${VISTA_BINARY_DIR}/Testing/Temporary/MenuTraversalST.log","@VISTA_CACHE_INSTANCE@","@VISTA_CACHE_NAMESPACE@")
if ('${VISTA_CACHE_USERNAME}' and '${VISTA_CACHE_PASSWORD}'):
VistA.login('${VISTA_CACHE_USERNAME}','${VISTA_CACHE_PASSWORD}')
+if VistA.type=='cache':
+ try:
+ VistA.ZN('${VISTA_CACHE_NAMESPACE}')
+ except IndexError,no_namechange:
+ pass
VistA.wait(PROMPT, 60)
VistA.optionParentDict = createOptionParentDictionary(VistA,os.path.join("${VISTA_BINARY_DIR}","MenuParentMap.txt"))
VistA.optionMenuTextDict =createOptionMenuTextDictionary(VistA,os.path.join("${VISTA_BINARY_DIR}","MenuTextMap.txt"))
diff --git a/Testing/Python/MenuTraversalTest.py.in b/Testing/Python/MenuTraversalTest.py.in
index bfea719..38922e6 100644
--- a/Testing/Python/MenuTraversalTest.py.in
+++ b/Testing/Python/MenuTraversalTest.py.in
@@ -24,6 +24,11 @@ from OSEHRAHelper import ConnectToMUMPS, PROMPT
VistA = ConnectToMUMPS("${VISTA_BINARY_DIR}/Testing/Temporary/MenuTraversal.log","@VISTA_CACHE_INSTANCE@","@VISTA_CACHE_NAMESPACE@")
if ('${VISTA_CACHE_USERNAME}' and '${VISTA_CACHE_PASSWORD}'):
VistA.login('${VISTA_CACHE_USERNAME}','${VISTA_CACHE_PASSWORD}')
+if VistA.type=='cache':
+ try:
+ VistA.ZN('${VISTA_CACHE_NAMESPACE}')
+ except IndexError,no_namechange:
+ pass
VistA.wait(PROMPT, 60)
expectedresult=['Systems Manager Menu', 'Core Applications', 'Dietetic Administration', 'Production Reports', 'Forecasting']
diff --git a/Testing/Setup/ImportRG.cmake.in b/Testing/Setup/ImportRG.cmake.in
index 97884b5..08ea8b8 100644
--- a/Testing/Setup/ImportRG.cmake.in
+++ b/Testing/Setup/ImportRG.cmake.in
@@ -87,7 +87,7 @@ if((TEST_VISTA_SETUP) AND ("@VENDOR_NAME@" STREQUAL "GTM"))
endif()
message(STATUS "Importing globals...")
-if( "@VENDOR_NAME@" STREQUAL "GTM" )
+if("@VENDOR_NAME@" STREQUAL "GTM")
file(STRINGS "@VISTA_BINARY_DIR@/globals.lst" allGlobalFiles)
set(importLogFile "@VISTA_BINARY_DIR@/Testing/Log/GlobalImport0.log")
file(REMOVE ${importLogFile})
diff --git a/Testing/Setup/PostImportSetupScript.py.in b/Testing/Setup/PostImportSetupScript.py.in
index 2499782..00af8d7 100644
--- a/Testing/Setup/PostImportSetupScript.py.in
+++ b/Testing/Setup/PostImportSetupScript.py.in
@@ -23,13 +23,15 @@ This script sets up VistA after the Routines and Globals import is complete
@copyright The Open Source Electronic Health Record Agent
@license http://www.apache.org/licenses/LICENSE-2.0
'''
-
import sys
-import os
-import time
sys.path = ['${VISTA_SOURCE_DIR}/Python/vista'] + sys.path
+
+import os
+import time
+import OSEHRASetup
from OSEHRAHelper import ConnectToMUMPS,PROMPT
+
VistA=ConnectToMUMPS("${VISTA_BINARY_DIR}/Testing/Log/PostImport1.log","${VISTA_CACHE_INSTANCE}","${VISTA_CACHE_NAMESPACE}")
if ('${VISTA_CACHE_USERNAME}' and '${VISTA_CACHE_PASSWORD}'):
VistA.login('${VISTA_CACHE_USERNAME}','${VISTA_CACHE_PASSWORD}')
@@ -42,963 +44,91 @@ VistA.wait(PROMPT,60)
#---------------------------------------------------------------------
#- SECTION TO SETUP DEMO VistA SITE -
#---------------------------------------------------------------------
-#Initialze FileMan
-VistA.write('D ^DINIT')
-VistA.wait('Initialize VA FileMan now?')
-VistA.write('Yes')
-VistA.wait('SITE NAME:')
-VistA.write('${TEST_VISTA_SETUP_SITE_NAME}')
-VistA.wait('SITE NUMBER')
-VistA.write('6161')
-VistA.wait('Do you want to change the MUMPS OPERATING SYSTEM File?')
-VistA.write('Yes')
-VistA.wait('TYPE OF MUMPS SYSTEM YOU ARE USING')
-if VistA.type=='cache':
- VistA.write('CACHE')
-else:
- VistA.write('GT.M(UNIX)')
-VistA.wait(PROMPT,60)
-#Setup the ZU Routine
-VistA.write('D ^ZUSET')
-VistA.wait('Rename')
-VistA.write('Yes')
-VistA.wait(PROMPT,60)
-VistA.write('S DUZ=1 D Q^DI')
+#Initialize FileMan
+# Pass a site name from CMake and have a default site name of 6161
-# Remove the primary HFS directory from the
-# Kernel System Parameters file
-
-VistA.wait('Select OPTION:')
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE')
-VistA.write('KERNEL SYSTEM PARAMETERS')
-VistA.wait('EDIT WHICH FIELD')
-VistA.write('PRIMARY HFS DIRECTORY')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('')
-VistA.wait('DOMAIN NAME')
-VistA.write('`1')
-VistA.wait('PRIMARY HFS DIRECTORY')
-VistA.write(os.path.normpath('${TEST_VISTA_SETUP_PRIMARY_HFS_DIRECTORY}'))
-index = VistA.multiwait(['SURE YOU WANT TO DELETE','DOMAIN NAME'])
-if index == 0:
- VistA.write('Y')
- VistA.wait('DOMAIN NAME')
-VistA.write('')
+OSEHRASetup.initializeFileman(VistA,"${TEST_VISTA_SETUP_SITE_NAME}","6161")
+# Setup the primary HFS directory from the
+# Kernel System Parameters file via FileMan
+#
+# Use an "@" to remove or set a new file path.
-#Ensure that the null device is correctly configured.
-VistA.wait('Select OPTION:')
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE')
-VistA.write('DEVICE')
-VistA.wait('EDIT WHICH FIELD')
-VistA.write('$I\rSIGN-ON/SYSTEM DEVICE\r')
-VistA.wait('NAME:')
-VistA.write('NULL\r1')
-VistA.wait('//')
-if sys.platform=='win32':
- VistA.write('//./nul\rNO\r')
-else:
- VistA.write('/dev/null\rNO\r')
+OSEHRASetup.setupPrimaryHFSDir(VistA,'${TEST_VISTA_SETUP_PRIMARY_HFS_DIRECTORY}')
-#Create and Christen the New Domain
-VistA.wait('Select OPTION:')
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE')
-VistA.write('DOMAIN\r')
-VistA.wait('Select DOMAIN NAME')
-VistA.write('${TEST_VISTA_SETUP_SITE_NAME}\rY\r^\r\r')
-VistA.wait(PROMPT,60)
-VistA.write('D CHRISTEN^XMUDCHR')
-VistA.wait('Are you sure you want to change the name of this facility?')
-VistA.write('Yes')
-VistA.wait('Select DOMAIN NAME')
-VistA.write('${TEST_VISTA_SETUP_SITE_NAME}')
-VistA.wait('PARENT')
-VistA.write('')
-VistA.wait('TIME ZONE')
-VistA.write(time.strftime('%Z').replace(' Time',''))
-index = VistA.multiwait([VistA.prompt,'TIME ZONE'])
-if index==1:
- VistA.write('EST')
- VistA.wait(PROMPT,60)
-VistA.IEN('DOMAIN','${TEST_VISTA_SETUP_SITE_NAME}')
-VistA.wait(PROMPT,60)
-VistA.write('S $P(^XWB(8994.1,1,0),"^")=' + VistA.IENumber)
-VistA.write('S $P(^XTV(8989.3,1,0),"^")=' + VistA.IENumber)
-VistA.getenv('${TEST_VISTA_SETUP_VOLUME_SET}')
-VistA.wait(PROMPT,60)
-VistA.write('S DUZ=1 D Q^DI')
-VistA.wait('Select OPTION')
-VistA.write('UTILITY')
-VistA.wait('UTILITY OPTION')
-VistA.write('RE')
-VistA.wait('MODIFY WHAT FILE')
-VistA.write('8989.3\rNO\rY\rY')
-VistA.wait('UTILITY OPTION')
-VistA.write('RE')
-VistA.wait('MODIFY WHAT FILE')
-VistA.write('8994.1\rNO\rY\rY\r')
-VistA.wait('Select OPTION')
+# Ensure that the null device is correctly configured by adding
+# a $I for the correct platform rather than VMS and removing
+# sign-on capabilities
-# Set up the proper Box:Volume pair
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE')
-VistA.write('14.5\r')
-VistA.wait('Select VOLUME SET')
-VistA.write('`1')
-VistA.wait('VOLUME SET:')
-VistA.write('${TEST_VISTA_SETUP_VOLUME_SET}\r\r\r\r\r')
-VistA.wait('TASKMAN FILES UCI')
-if VistA.type=='cache':
- VistA.write('${VISTA_CACHE_NAMESPACE}\r\r\r\r\r\r')
-else:
- VistA.write('${TEST_VISTA_SETUP_VOLUME_SET}\r\r\r\r\r\r')
-VistA.wait('Select OPTION:')
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE')
-VistA.write('14.7')
-VistA.wait('ALL//')
-VistA.write('')
-VistA.wait('Select TASKMAN SITE PARAMETERS BOX-VOLUME PAIR:')
-VistA.write('`1')
-VistA.wait('//')
-VistA.write(VistA.boxvol)
-VistA.wait('RESERVED')
-VistA.write('^\r')
+OSEHRASetup.configureNULLDevice(VistA)
-VistA.wait('Select OPTION')
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE')
-VistA.write('8994.1\r')
-VistA.wait('Select RPC BROKER SITE PARAMETERS DOMAIN NAME')
-VistA.write('${TEST_VISTA_SETUP_SITE_NAME}\r\r\r\r' + VistA.boxvol + '\rY\r\r${VISTA_TCP_PORT}\rY')
-if VistA.type=='cache':
- VistA.write('1\r1\r1\r')
-else:
- VistA.write('1\r\r\r')
+# Create and Christen the New Domain:
+# Enter the site name into the DOMAIN file then
+# christen the domain via the XMUDCHR routine.
+# Finally, add entries of new domain to
+# Kernel System Parameters and RPC Broker Site Parameters
+# and re-index both files.
-VistA.wait('Select OPTION')
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE')
-VistA.write('KERNEL SYSTEM PARAMETERS\rVOLUME SET\r\r')
-VistA.wait('Select KERNEL SYSTEM PARAMETERS DOMAIN NAME:')
-VistA.write('${TEST_VISTA_SETUP_SITE_NAME}\r')
-VistA.wait('VOLUME SET')
-VistA.write('${TEST_VISTA_SETUP_VOLUME_SET}')
-index = VistA.multiwait(['Are you adding','VOLUME SET'])
-if index==0:
- VistA.write('Y')
-elif index==1:
- VistA.write('')
-VistA.wait('MAX SIGNON ALLOWED')
-VistA.write('500')
-VistA.wait('LOG SYSTEM RT')
-VistA.write('N')
-VistA.wait('VOLUME SET')
-VistA.write('\r\r')
+OSEHRASetup.setupVistADomain(VistA,"${TEST_VISTA_SETUP_SITE_NAME}")
+# Set up the proper Box:Volume pair
+# VistA.getenv will query the instance for the local Box:Volume pair
+# and save the result as the "boxvol" parameter of the VistA object
+# IE. It can be printed via 'print VistA.boxvol'
+OSEHRASetup.setupBoxVolPair(VistA,'${TEST_VISTA_SETUP_VOLUME_SET}','${TEST_VISTA_SETUP_SITE_NAME}','${VISTA_TCP_PORT}')
+OSEHRASetup.setupVolumeSet(VistA,"${TEST_VISTA_SETUP_SITE_NAME}",'${TEST_VISTA_SETUP_VOLUME_SET}',"${VISTA_CACHE_NAMESPACE}")
# Start TaskMan
if VistA.type=='cache':
- VistA.wait(PROMPT)
- VistA.write('S DUZ=1 D ^XUP')
- VistA.wait('Select OPTION NAME')
- VistA.write('EVE\r1')
- VistA.wait('Systems Manager Menu')
- VistA.write('Taskman Management')
- VistA.wait('Select Taskman Management')
- VistA.write('SCHED')
- VistA.wait('reschedule:')
- VistA.write('XWB LISTENER STARTER\rY')
- VistA.wait('COMMAND:')
- VistA.write('\r^SPECIAL QUEUEING\rSTARTUP\rS\rE\r')
- VistA.wait('Select Taskman Management')
- VistA.write('')
- VistA.wait('Systems Manager Menu')
- VistA.write('')
- VistA.wait('Do you really want to halt')
- VistA.write('Y')
-VistA.wait(PROMPT)
-VistA.write('S DUZ=1 D ^XUP')
-VistA.wait('Select OPTION NAME')
-VistA.write('EVE\r1')
-VistA.wait('Systems Manager Menu')
-VistA.write('Taskman Management')
-VistA.wait('Select Taskman Management')
-VistA.write('Taskman Management Utilities')
-VistA.wait('Select Taskman Management Utilities')
-VistA.write('Restart Task Manager\rY')
-VistA.wait('Select Taskman Management Utilities')
-VistA.write('')
-VistA.wait('Select Taskman Management')
-VistA.write('')
-VistA.wait('Select Systems Manager Menu')
-VistA.write('')
-VistA.wait('Do you really want to halt')
-VistA.write('Y')
-VistA.wait(PROMPT)
-VistA.write('K')
+ # If using Cache as the M environment, Schedule a task to start the
+ # XWB Listener Starter on the start up of TaskMan
+ OSEHRASetup.scheduleXWBListener(VistA)
+# Start TaskMan through the XUP Menu system.
+OSEHRASetup.restartTaskMan(VistA)
#Create the System Manager
-VistA.wait(PROMPT,60)
-VistA.write('S DUZ=1 D ^XUP')
-VistA.wait('Select OPTION NAME')
-VistA.write('EVE\r1')
-VistA.wait('Systems Manager Menu')
-VistA.write('USER MANAGEMENT')
-VistA.wait('User Management')
-VistA.write('ADD')
-VistA.wait(':')
-VistA.write('MANAGER,SYSTEM')
-VistA.wait('No//')
-VistA.write('Y')
-VistA.wait('INITIAL:')
-VistA.write('SM')
-VistA.wait('SSN:')
-VistA.write('000000001')
-VistA.wait('SEX:')
-VistA.write('M')
-VistA.wait('NPI')
-VistA.write('')
+OSEHRASetup.addSystemManager(VistA)
-#TODO: Give XUPROGMODE key
-VistA.wait('NAME COMPONENTS')
-VistA.write('\r\r\r\r\r^PRIMARY MENU OPTION\rEVE\r1\r^Want to edit ACCESS CODE\rY\rSM1234\rSM1234\r^Want to edit VERIFY CODE\rY\rSM1234!!\rSM1234!!\r^SECONDARY MENU OPTIONS\rOR PARAM COORDINATOR MENU\rY\r\r\r\rTIU IRM MAINTENANCE MENU\rY\r\r\r\rXPAR MENU TOOLS\rY\r\r\r\rDG REGISTER PATIENT\rY\r\r\r\r^MULTIPLE SIGN-ON\r1\r1\r99\r^SERVICE/SECTION\rIRM\r^\rY')
-VistA.wait('User Account Access Letter')
-VistA.write('NO')
-VistA.wait('wish to allocate security keys?')
-VistA.write('Y')
-VistA.wait('Allocate key')
-VistA.write('XUMGR')
-VistA.wait('Another key')
-VistA.write('XUPROG\r1')
-VistA.wait('Another key')
-VistA.write('SD SUPERVISOR')
-VistA.wait('Another key')
-VistA.write('SDWL PARAMETER')
-VistA.wait('Another key')
-VistA.write('SDWL MENU')
-VistA.wait('Another key')
-VistA.write('')
-VistA.wait('Another holder')
-VistA.write('')
-VistA.wait('YES//')
-VistA.write('')
-VistA.wait('mail groups?')
-VistA.write('\r')
-VistA.wait('Systems Manager Menu')
-# Set the Listener Starter to run when TaskMan is started
-VistA.write('\rY')
-VistA.wait(PROMPT,60)
-VistA.IEN('NEW PERSON','MANAGER,SYSTEM')
-VistA.wait(PROMPT,60)
-VistA.write('S DUZ=' + VistA.IENumber + ' S $P(^VA(200,DUZ,0),"^",4)="@"')
+# Open FileMan and create the VistA Health Care institution
+OSEHRASetup.addInstitution(VistA,"VISTA HEALTH CARE","6100")
- #Open FileMan and start by creating the VistA Health Care institution
-VistA.wait(PROMPT,60)
-VistA.write('S DUZ=1 S XUMF=1 D Q^DI')
-VistA.wait('OPTION:')
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE:')
-VistA.write('4')
-VistA.wait('EDIT WHICH FIELD')
-VistA.write('STATION NUMBER')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('')
-VistA.wait('Select INSTITUTION NAME:')
-VistA.write('VISTA HEALTH CARE')
-VistA.wait('Are you adding')
-VistA.write('Y')
-VistA.wait('STATION NUMBER:')
-VistA.write('6100')
-VistA.wait('Select INSTITUTION NAME:')
-VistA.write('')
+# Create the Medical Center Division of
+# the VistA Health Care institution
-#Next create the Medical Center Division of the VistA Health Care institution
+OSEHRASetup.addDivision(VistA,'VISTA MEDICAL CENTER',"6101","6100")
-VistA.wait('Select OPTION:')
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE:')
-VistA.write('40.8')
-VistA.wait('EDIT WHICH FIELD')
-VistA.write('FACILITY NUMBER')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('INSTITUTION FILE POINTER')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('')
-VistA.wait('DIVISION NAME')
-VistA.write('VISTA MEDICAL CENTER')
-VistA.wait('Are you adding')
-VistA.write('Y')
-VistA.wait('MEDICAL CENTER DIVISION NUM:')
-VistA.write('')
-VistA.wait('FACILITY NUMBER')
-VistA.write('6101')
-VistA.write('')
-VistA.wait('INSTITUTION FILE POINTER')
-VistA.write('6100')
-VistA.write('\r')
-
-
-VistA.wait(PROMPT,60)
-VistA.write('D Q^DI')
-VistA.wait('OPTION')
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE')
-VistA.write('ACCESSION\r1')
-VistA.wait('EDIT WHICH FIELD')
-VistA.write('.4\r')
-VistA.wait('Select ACCESSION AREA')
-VistA.write('CHEMISTRY')
-VistA.wait('NUMERIC IDENTIFIER')
-VistA.write('CH\r')
-
-#Change the STREPTOZYME test to be accessioned through the chem area and the Vista Health Care institution
-VistA.wait('OPTION')
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE')
-VistA.write('LABORATORY TEST')
-VistA.wait('EDIT WHICH FIELD')
-VistA.write('ACCESSION AREA\r\r')
-VistA.wait('Select LABORATORY TEST NAME')
-VistA.write('STREPTOZYME')
-VistA.wait('Select INSTITUTION')
-VistA.write('VISTA HEALTH CARE')
-VistA.wait('ACCESSION AREA')
-VistA.write('CHEMISTRY\r')
-
-#Change the Package Prefix of the ONCE scheudle to be used by the Laboratory
-
-VistA.wait('OPTION')
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE')
-VistA.write('ADMINISTRATION SCHEDULE')
-VistA.wait('EDIT WHICH FIELD')
-VistA.write('PACKAGE PREFIX\r')
-VistA.wait('Select ADMINISTRATION SCHEDULE NAME')
-VistA.write('ONCE\rLR\r\r')
+# The Sikuli test for CPRS orders a Streptozyme test for the patient
+# This information ensures the test can be ordered at the VistA Health care
+# Facility
+OSEHRASetup.setupStrepTest(VistA)
#Register the Vitals DLL and GUI Versions within the XPAR Menu
+OSEHRASetup.registerVitalsCPRS(VistA)
-VistA.wait(PROMPT,60)
-VistA.write('S GMVDLL=\"GMV_VITALSVIEWENTER.DLL:v. 08/11/09 15:00\"')
-VistA.wait(PROMPT,60)
-VistA.write('D EN^XPAR(\"SYS\",\"GMV DLL VERSION\",GMVDLL,1)')
-VistA.wait(PROMPT,60)
-VistA.write('S GMVDLL=\"GMV_VITALSVIEWENTER.DLL:v. 01/21/11 12:52\"')
-VistA.wait(PROMPT,60)
-VistA.write('D EN^XPAR(\"SYS\",\"GMV DLL VERSION\",GMVDLL,1)')
-VistA.wait(PROMPT,60)
-VistA.write('S GMVGUI=\"VITALSMANAGER.EXE:5.0.26.1\"')
-VistA.wait(PROMPT,60)
-VistA.write('D EN^XPAR(\"SYS\",\"GMV GUI VERSION\",GMVGUI,1)')
-
-# Sign into the ZU menu as the System,Manager and start the TCP listeneer
-
-VistA.wait(PROMPT,60)
-VistA.write('D ^ZU')
-VistA.wait('ACCESS CODE:')
-VistA.write('SM1234')
-VistA.wait('VERIFY CODE:')
-VistA.write('SM1234!!')
-VistA.wait('verify code:')
-VistA.write('SM1234!!')
-VistA.wait('VERIFY CODE:')
-VistA.write('SM12345!!')
-VistA.wait('right:')
-VistA.write('SM12345!!')
-VistA.wait('TYPE NAME:')
-VistA.write('')
+OSEHRASetup.signonZU(VistA,"SM1234","SM1234!!")
-#Enter the Doctor Robert Alexander
-VistA.write('USER MANAGEMENT')
-VistA.wait('User Management')
-VistA.write('ADD')
-VistA.wait('name')
-VistA.write('ALEXANDER,ROBERT\rY')
-VistA.wait('INITIAL:')
-VistA.write('RA')
-VistA.wait('SSN:')
-VistA.write('000000029')
-VistA.wait('SEX:')
-VistA.write('M')
-VistA.wait('NPI')
-VistA.write('')
-VistA.wait('NAME COMPONENTS')
-VistA.write('\r\r\r\r\r^PRIMARY MENU OPTION\rXUCOR\r^SECONDARY MENU OPTIONS\rGMPL MGT MENU\rY\r\r\r\rOR CPRS GUI CHART\rY\r\r\r\rGMV V/M GUI\rY\r\r\r\r^Want to edit ACCESS CODE\rY\rfakedoc1\rfakedoc1\r^Want to edit VERIFY CODE\rY\r2Doc!@#$\r2Doc!@#$\rVISTA HEALTH CARE\rY\r\r\r\r\r^SERVICE/SECTION\rIRM\r^Language\r\r767\rY\rY\rT-1\r\r^RESTRICT PATIENT SELECTION\r0\r\rCOR\rY\rT-1\r\r^MULTIPLE SIGN-ON\r1\r1\r99\r^\rE\rY')
-VistA.wait('User Account Access Letter')
-VistA.write('NO')
-VistA.wait('wish to allocate security keys?')
-VistA.write('Y')
-VistA.wait('Allocate key')
-VistA.write('PROVIDER\r1')
-VistA.wait('Another key')
-VistA.write('GMV MANAGER')
-VistA.wait('Another key')
-VistA.write('LRLAB')
-VistA.wait('Another key')
-VistA.write('LRVERIFY')
-VistA.wait('Another key')
-VistA.write('ORES')
-VistA.wait('Another key')
-VistA.write('SD SUPERVISOR')
-VistA.wait('Another key')
-VistA.write('SDWL PARAMETER')
-VistA.wait('Another key')
-VistA.write('SDWL MENU')
-VistA.wait('Another key')
-VistA.write('')
-VistA.wait('Another holder')
-VistA.write('')
-VistA.wait('Do you wish to proceed')
-VistA.write('Yes')
-VistA.wait('add this user to mail groups')
-VistA.write('NO')
+OSEHRASetup.addDoctor(VistA,"ALEXANDER,ROBERT","RA","000000029","M","fakedoc1","2Doc!@#$")
#Enter the Nurse Mary Smith
-VistA.wait('User Management')
-VistA.write('ADD')
-VistA.wait('name')
-VistA.write('SMITH,MARY\rY')
-VistA.wait('INITIAL:')
-VistA.write('MS')
-VistA.wait('SSN:')
-VistA.write('000000030')
-VistA.wait('SEX:')
-VistA.write('F')
-VistA.wait('NPI')
-VistA.write('')
-VistA.wait('NAME COMPONENTS')
-VistA.write('\r\r\r\r\r^PRIMARY MENU OPTION\rXUCOR\r^SECONDARY MENU OPTIONS\rGMPL MGT MENU\rY\r\r\r\rOR CPRS GUI CHART\rY\r\r\r\rGMV V/M GUI\rY\r\r\r\r^Want to edit ACCESS CODE\rY\rfakenurse1\rfakenurse1\r^Want to edit VERIFY CODE\rY\r2Nur!@#$\r2Nur!@#$\rVISTA HEALTH CARE\rY\r\r\r\r\r^SERVICE/SECTION\rIRM\r^Language\r\r289\rY\rY\rT-1\r\r^RESTRICT PATIENT SELECTION\r0\r\rCOR\rY\rT-1\r\r^MULTIPLE SIGN-ON\r1\r1\r99\r^\rE\rY')
-VistA.wait('User Account Access Letter')
-VistA.write('NO')
-VistA.wait('wish to allocate security keys?')
-VistA.write('Y')
-VistA.wait('Allocate key')
-VistA.write('PROVIDER\r1')
-VistA.wait('Another key')
-VistA.write('ORELSE\r')
-VistA.wait('Another holder')
-VistA.write('')
-VistA.wait('Do you wish to proceed')
-VistA.write('Yes')
-VistA.wait('add this user to mail groups')
-VistA.write('NO\r')
-
-#Create the first patient named "David Carter Jr')
-#TODO: Enter patient as a Clerk, not System Manager
-
-VistA.wait('Systems Manager Menu')
-VistA.write('Register a Patient')
-VistA.wait('PATIENT NAME')
-VistA.write('Carter,David Jr\rY')
-VistA.wait('SEX')
-VistA.write('M')
-VistA.wait('DATE OF BIRTH')
-VistA.write('03/02/2001')
-VistA.wait('SOCIAL SECURITY NUMBER')
-VistA.write('000000112')
-VistA.wait('TYPE')
-VistA.write('NON-VETERAN')
-VistA.wait('PATIENT VETERAN')
-VistA.write('NO')
-VistA.wait('SERVICE CONNECTED')
-VistA.write('NO')
-VistA.wait('MULTIPLE BIRTH INDICATOR')
-VistA.write('')
-VistA.wait('//')
-VistA.write('^\r')
-VistA.wait('MAIDEN NAME:')
-VistA.write('')
-VistA.wait('[CITY]')
-VistA.write('Santa Monica')
-VistA.wait('[STATE]')
-VistA.write('California')
-VistA.wait('ALIAS')
-VistA.write('')
-if VistA.type=='cache':
- # Enter in more information about the patient.
- VistA.wait('exit:')
- VistA.write('\r')
- VistA.wait('Patient Data')
- VistA.write('Y')
- VistA.wait('QUIT')
- VistA.write('4')
- VistA.wait('COUNTRY')
- VistA.write('')
- VistA.wait('STREET ADDRESS')
- VistA.write('834 Ocean Vista Avenue\r')
- VistA.wait('ZIP')
- VistA.write('90401')
- VistA.wait('CITY')
- VistA.write('1')
- VistA.wait('PHONE NUMBER')
- VistA.write('310-555-2233\r\r')
- VistA.wait('changes')
- VistA.write('Y\r')
- VistA.wait('QUIT')
- VistA.write('\r\r')
- VistA.wait('QUIT')
- VistA.write('1')
- VistA.wait('PRIMARY NOK')
- VistA.write('Carter,David J Sr')
- VistA.wait('RELATIONSHIP')
- VistA.write('FATHER')
- VistA.wait('ADDRESS')
- VistA.write('Y')
- VistA.wait('WORK PHONE')
- VistA.write('310-555-9876\r^')
- VistA.wait('condition')
- VistA.write('N')
- VistA.wait('today')
- VistA.write('Y\r')
-else:
- # Workaround to reconnect after GT.M crash
- '''
- Fileman-based Joe Clerk User Setup
- -- Workaround: Can't use Select User Management Option at this point as it causes unexpected exit from menu
- '''
- VistA=ConnectToMUMPS("${VISTA_BINARY_DIR}/Testing/Log/PostImport1A.log","${VISTA_CACHE_INSTANCE}","${VISTA_CACHE_NAMESPACE}")
-VistA.wait(PROMPT,60)
-VistA.write('S DUZ=1 D Q^DI')
-VistA.wait('Select OPTION:')
-VistA.write('1')
-VistA.wait('INPUT TO WHAT FILE')
-VistA.write('200')
-VistA.wait('EDIT WHICH FIELD')
-VistA.write('PRIMARY MENU OPTION')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('SECONDARY MENU OPTIONS\r')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('CPRS TAB\r')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('ACCESS CODE')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('VERIFY CODE\r1')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('DIVISION\r')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('SERVICE/SECTION')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('MULTIPLE SIGN-ON LIMIT')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('MULTIPLE SIGN-ON\r1')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('Language')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('RESTRICT PATIENT SELECTION')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('KEYS\r1\r')
-VistA.wait('THEN EDIT FIELD')
-VistA.write('\r')
-VistA.wait('Select NEW PERSON NAME')
-VistA.write('Clerk, Joe')
-VistA.wait('Are you adding')
-VistA.write('YES')
-VistA.wait('NEW PERSON INITIAL')
-VistA.write('JC\r')
-VistA.wait('PRIMARY MENU OPTION')
-VistA.write('XUCORE')
-VistA.wait('Select SECONDARY MENU OPTIONS:')
-VistA.write('GMPL DATA ENTRY\rY\r\r')
-VistA.wait('Select CPRS TAB:')
-VistA.write('COR\rY\rT\r\r')
-VistA.wait('Want to edit ACCESS CODE')
-VistA.write('Y')
-VistA.wait('Enter a new ACCESS CODE')
-VistA.write('fakeclerk1\rfakeclerk1')
-VistA.wait('Want to edit VERIFY CODE')
-VistA.write('Y')
-VistA.wait('Enter a new VERIFY CODE')
-VistA.write('2Cle!@#$\r2Cle!@#$')
-VistA.wait('Select DIVISION')
-VistA.write('VISTA HEALTH CARE\rY\r')
-VistA.wait('SERVICE/SECTION:')
-VistA.write('IRM')
-VistA.wait('MULTIPLE SIGN-ON LIMIT')
-VistA.write('99')
-VistA.wait('MULTIPLE SIGN-ON')
-VistA.write('ALLOWED')
-VistA.wait('LANGUAGE')
-VistA.write('1')
-VistA.wait('RESTRICT PATIENT SELECTION')
-VistA.write('NO')
-VistA.wait('Select KEY')
-VistA.write('ORELSE\r')
-VistA.wait('Select KEY')
-VistA.write('PROVIDER\r1\r\r')
-VistA.wait('Select NEW PERSON NAME')
-VistA.write('\r\r\r')
-
-VistA.wait(PROMPT,60)
-VistA.write('D ^ZU')
-VistA.wait('ACCESS CODE:')
-VistA.write('SM1234')
-VistA.wait('VERIFY CODE:')
-VistA.write('SM12345!!')
-VistA.wait('//')
-VistA.write('')
-
-#Set Up the Quick Order Menu for the Strep Throat
-VistA.wait('Systems Manager Menu')
-VistA.write('CPRS Configuration')
-VistA.wait('CPRS Configuration')
-VistA.write('MM')
-VistA.wait('Order Menu Management')
-VistA.write('QO')
-VistA.wait('Select QUICK ORDER NAME')
-VistA.write('LRZ STREP TEST')
-VistA.wait('Are you adding')
-VistA.write('Y')
-VistA.wait('TYPE OF QUICK ORDER')
-VistA.write('LAB\r')
-VistA.wait('DISPLAY TEXT')
-VistA.write('STREP TEST')
-VistA.wait('VERIFY ORDER')
-VistA.write('Y')
-VistA.wait('DESCRIPTION')
-VistA.write('N\r')
-VistA.wait('Lab Test')
-VistA.write('STREP\r2')
-VistA.wait('Collected By')
-VistA.write('SP')
-VistA.wait('Collection Sample')
-VistA.write('SWAB\r')
-VistA.wait('Collection Date/Time')
-VistA.write('TODAY\r')
-VistA.wait('How often')
-VistA.write('ONCE')
-VistA.wait('PLACE//')
-VistA.write('\r\r')
-VistA.wait('Option')
-VistA.write('ST')
-VistA.wait('Select ORDER SET NAME')
-VistA.write('STREP TEST')
-VistA.wait('Are you adding')
-VistA.write('Y')
-VistA.wait('Do you wish to copy')
-VistA.write('No\r')
-VistA.wait('DISPLAY TEXT')
-VistA.write('Strep Test\r\r\r')
-VistA.wait('COMPONENT SEQUENCE')
-VistA.write('10\r')
-VistA.wait('ITEM:')
-VistA.write('LRZ STREP TEST\r\r\r\r') # Return to EVE menu
+OSEHRASetup.addNurse(VistA,'SMITH,MARY','MS','000000030','F','fakenurse1','2Nur!@#$')
+# Add a clerk user with permissions for Problem List Data entry
+OSEHRASetup.addClerk(VistA,"CLERK,JOE","JC","000000112","M","fakeclerk1","2Cle!@#$")
#Create a new Order Menu
-VistA.wait('Systems Manager Menu')
-VistA.write('CPRS Configuration') # We can jump straight to the CPRS (Clin Coord) menu
-VistA.wait('CPRS Configuration')
-VistA.write('MM') # Order Menu Management
-VistA.wait('Order Menu Management')
-VistA.write('MN') # Enter/edit order menus
-VistA.wait('ORDER MENU:')
-VistA.write('ORZ GEN MED WRITE ORDERS LIST') # New menu name
-VistA.wait('Are you adding')
-VistA.write('Y')
-VistA.wait('Do you wish to copy an existing menu')
-VistA.write('N')
-VistA.wait('DISPLAY TEXT')
-VistA.write('') # Ignored by GUI
-VistA.wait('Edit') # DESCRIPTION field
-VistA.write('N')
-#VistA.write('General Medicine Write Orders list') # Menu description
-#VistA.wait('2')
-#VistA.write('') # End of DESCRIPTION
-#VistA.wait('EDIT') # Editor options
-#VistA.write('') # We are done with the DESCRIPTION
-VistA.wait('COLUMN WIDTH')
-VistA.write('80') # Default to 80 characters
-VistA.wait('MNEMONIC WIDTH')
-VistA.write('') # Ignored by GUI
-VistA.wait('PATH SWITCH')
-VistA.write('') # Ignored by GUI
-VistA.wait('ENTRY ACTION')
-VistA.write('') # Shown because we have programmer access - Ignore this field
-VistA.wait('EXIT ACTION')
-VistA.write('') # Shown because we have programmer access - Ignore this field
-# Begin ScreenMan form
-VistA.wait('Action')
-VistA.write('Add')
-VistA.wait('Add')
-VistA.write('Menu Items') # Add Menu Items to this Order Menu
-# Add items to menu - repeat for each menu item
-# Begin 'Add New Orders' menu
-VistA.wait('ITEM')
-VistA.write('OR ADD MENU CLINICIAN')
-VistA.wait('ROW')
-VistA.write('1')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'Add New Orders'
-# Begin 'Allergies' package menu
-VistA.wait('ITEM')
-VistA.write('GMRAOR ALLERGY ENTER/EDIT')
-VistA.wait('ROW')
-VistA.write('2')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'Allergies'
-# Begin 'Diet' package menu
-VistA.wait('ITEM')
-VistA.write('FHW1')
-VistA.wait('ROW')
-VistA.write('3')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'Diet'
-# Begin 'Meds, Inpatient' package menu
-VistA.wait('ITEM')
-VistA.write('PSJ OR PAT OE')
-VistA.wait('ROW')
-VistA.write('4')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'Meds, Inpatient'
-# Begin 'Meds, Non-VA' package menu
-VistA.wait('ITEM')
-VistA.write('PSH OERR')
-VistA.wait('ROW')
-VistA.write('5')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'Meds, Non-VA'
-# Begin 'Meds, Outpatient' package menu
-VistA.wait('ITEM')
-VistA.write('PSO OERR')
-VistA.wait('ROW')
-VistA.write('6')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'Meds, Outpatient'
-# Begin 'IV Fluids' package menu
-VistA.wait('ITEM')
-VistA.write('PSJI OR PAT FLUID OE')
-VistA.wait('ROW')
-VistA.write('7')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'IV Fluids'
-# Begin 'Lab Tests' package menu
-VistA.wait('ITEM')
-VistA.write('LR OTHER LAB TESTS')
-VistA.wait('ROW')
-VistA.write('8')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'Lab Tests'
-# Begin 'Imaging' package menu
-VistA.wait('ITEM')
-VistA.write('RA OERR EXAM')
-VistA.wait('ROW')
-VistA.write('9')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'Imaging'
-# Begin 'Consult' package menu
-VistA.wait('ITEM')
-VistA.write('GMRCOR CONSULT')
-VistA.wait('ROW')
-VistA.write('10')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'Consult'
-# Begin 'Procedure' package menu
-VistA.wait('ITEM')
-VistA.write('GMRCOR REQUEST')
-VistA.wait('ROW')
-VistA.write('11')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'Procedure'
-# Begin 'Vitals' package menu
-VistA.wait('ITEM')
-VistA.write('GMRVOR')
-VistA.wait('CHOOSE') # There is more than one GMRVOR* menu
-VistA.write('1') # GMRVOR is the entire menu name and is the first one
-VistA.wait('ROW')
-VistA.write('12')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'Vitals'
-# Begin 'Text Only Order' package menu
-VistA.wait('ITEM')
-VistA.write('OR GXTEXT WORD PROCESSING ORDER')
-VistA.wait('ROW')
-VistA.write('13')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'Text Only Order'
-# Begin 'STREP TEST' quick order menu
-VistA.wait('ITEM')
-VistA.write('LRZ STREP TEST')
-VistA.wait('ROW')
-VistA.write('14')
-VistA.wait('COLUMN')
-VistA.write('1')
-VistA.wait('DISPLAY TEXT')
-VistA.write('')
-VistA.wait('MNEMONIC')
-VistA.write('')
-# End 'STREP TEST'
-VistA.wait('ITEM')
-VistA.write('') # Done adding menus
-VistA.wait('Action')
-VistA.write('Quit') # Done editing this menu
-VistA.wait('Order Menu Management') # Need to get to CPRS Manager Menu
-VistA.write('General Parameter Tools')
-VistA.wait('General Parameter Tools') # The System Manager has this as a secondary menu (can jump to it)
-VistA.write('EP') # Edit Parameter
-VistA.wait('PARAMETER DEFINITION NAME')
-VistA.write('ORWDX WRITE ORDERS LIST') # Parameter used to control Write Orders list
-VistA.wait('selection')
-VistA.write('8') # Set it for the entire System
-VistA.wait('Order Dialog')
-VistA.write('ORZ GEN MED WRITE ORDERS LIST') # Order menu we want to use
-VistA.write('\r\r\r\r') # we are done. Stay at the EVE menu
+OSEHRASetup.createOrderMenu(VistA)
#Give all users of the instance permission to mark allergies as "Entered in error')
-VistA.wait('Systems Manager Menu')
-VistA.write('CPRS Configuration')
-VistA.wait('CPRS Configuration')
-VistA.write('GUI PARAMETERS')
-VistA.wait('GUI Parameters')
-VistA.write('GUI Mark Allergy Entered in Error')
-VistA.wait('Enter selection')
-VistA.write('4\rY\r\r')
-
+OSEHRASetup.addAllergiesPermission(VistA)
#Give Mary Smith permission to create shared templates
-
-VistA.wait('Systems Manager Menu')
-VistA.write('TIU Maintenance')
-VistA.wait('TIU Maintenance')
-VistA.write('User Class Management')
-VistA.wait('User Class Management')
-VistA.write('List Membership by User')
-VistA.wait('Select USER')
-VistA.write('MS\rAdd\rClinical Coordinator\rT-1\r\r\r')
-VistA.wait('Option')
-VistA.write('\r')
+OSEHRASetup.addTemplatePermission(VistA,"MS")
# Add clinic via the XUP menu to allow scheduling
-VistA.wait('Systems Manager Menu')
-VistA.write('Core Applications')
-VistA.wait('Core Applications')
-VistA.write('Scheduling Manager')
-VistA.wait('Scheduling Manager\'s Menu')
-VistA.write('Supervisor Menu')
-VistA.wait('Supervisor Menu')
-VistA.write('Set up a Clinic')
-VistA.wait('Select CLINIC NAME')
-VistA.write('VISTA HEALTH CARE')
-VistA.wait('Are you adding')
-VistA.write('Y')
-VistA.wait('NAME')
-VistA.write('')
-VistA.wait('ABBREVIATION')
-VistA.write('VHC')
-VistA.wait('CLINIC MEETS')
-VistA.write('Y')
-VistA.wait('SERVICE')
-VistA.write('M')
-VistA.wait('NON-COUNT CLINIC')
-VistA.write('N')
-VistA.wait('STOP CODE NUMBER')
-VistA.write('301\r\r')
-VistA.wait('TELEPHONE')
-VistA.write('555-555-1414\r\r\r\r\r\r\r\r\r\r\r')
-VistA.wait('ALLOWABLE CONSECUTIVE NO-SHOWS')
-VistA.write('0')
-VistA.wait('FUTURE BOOKING')
-VistA.write('90')
-VistA.wait('HOUR CLINIC DISPLAY BEGINS')
-VistA.write('8\r')
-VistA.wait('AUTO-REBOOK')
-VistA.write('90\r\r\r\r\r')
-VistA.wait('MAXIMUM')
-VistA.write('0\r')
-VistA.wait('LENGTH OF APP')
-VistA.write('30')
-VistA.wait('VARIABLE')
-VistA.write('Yes')
-VistA.wait('DISPLAY INCREMENTS PER HOUR')
-VistA.write('2')
-dates = ['JUL 2,2012','JUL 3,2012','JUL 4,2012','JUL 5,2012','JUL 6,2012']
-for date in dates:
- VistA.wait('AVAILABILITY DATE')
- VistA.write(date)
- VistA.wait('TIME')
- VistA.write('0800-1200\r4')
- VistA.wait('TIME')
- VistA.write('1230-1500\r4')
- VistA.wait('TIME')
- VistA.write('')
- VistA.wait('PATTERN OK')
- VistA.write('Yes')
-VistA.wait('AVAILABILITY DATE')
-VistA.write('\r\r\r\r\r')
-VistA.wait('Do you really want to halt?')
-VistA.write('Y')
-
+OSEHRASetup.createClinic(VistA,'VISTA HEALTH CARE','VHC','M')
time.sleep(10)
#Set up the Doctors electronic signature
@@ -1010,36 +140,7 @@ if VistA.type=='cache':
VistA.ZN('${VISTA_CACHE_NAMESPACE}')
except IndexError,no_namechange:
pass
-VistA.wait(PROMPT,60)
-VistA.write('D ^ZU')
-VistA.wait('ACCESS CODE:')
-VistA.write('fakedoc1')
-VistA.wait('VERIFY CODE:')
-VistA.write('2Doc!@#$')
-VistA.wait('verify code:')
-VistA.write('2Doc!@#$')
-VistA.wait('VERIFY CODE:')
-VistA.write('1Doc!@#$')
-VistA.wait('right:')
-VistA.write('1Doc!@#$')
-VistA.wait('TYPE NAME')
-VistA.write('')
-VistA.wait('Core Applications')
-VistA.write('USER\'s TOOLBOX')
-VistA.wait('Toolbox')
-VistA.write('ELE')
-VistA.wait('INITIAL')
-VistA.write('')
-VistA.wait('SIGNATURE BLOCK PRINTED NAME')
-VistA.write('')
-VistA.wait('SIGNATURE BLOCK TITLE')
-VistA.write('\r\r\r')
-VistA.wait('SIGNATURE CODE')
-VistA.write('ROBA123')
-VistA.wait('SIGNATURE CODE FOR VERIFICATION')
-VistA.write('ROBA123')
-VistA.wait('Toolbox')
-VistA.write('\r\r\r')
+OSEHRASetup.setupElectronicSignature(VistA,"fakedoc1",'2Doc!@#$','1Doc!@#$','ROBA123')
#Set up the Nurse electronic signature
VistA=ConnectToMUMPS("${VISTA_BINARY_DIR}/Testing/Log/PostImport4.log","${VISTA_CACHE_INSTANCE}","${VISTA_CACHE_NAMESPACE}")
@@ -1050,36 +151,7 @@ if VistA.type=='cache':
VistA.ZN('${VISTA_CACHE_NAMESPACE}')
except IndexError,no_namechange:
pass
-VistA.wait(PROMPT,60)
-VistA.write('D ^ZU')
-VistA.wait('ACCESS CODE:')
-VistA.write('fakenurse1')
-VistA.wait('VERIFY CODE:')
-VistA.write('2Nur!@#$')
-VistA.wait('verify code:')
-VistA.write('2Nur!@#$')
-VistA.wait('VERIFY CODE:')
-VistA.write('1Nur!@#$')
-VistA.wait('right:')
-VistA.write('1Nur!@#$')
-VistA.wait('//')
-VistA.write('')
-VistA.wait('Core Applications')
-VistA.write('USER\'s TOOLBOX')
-VistA.wait('Toolbox')
-VistA.write('ELE')
-VistA.wait('INITIAL')
-VistA.write('')
-VistA.wait('SIGNATURE BLOCK PRINTED NAME')
-VistA.write('')
-VistA.wait('SIGNATURE BLOCK TITLE')
-VistA.write('\r\r\r')
-VistA.wait('SIGNATURE CODE')
-VistA.write('MARYS123')
-VistA.wait('SIGNATURE CODE FOR VERIFICATION')
-VistA.write('MARYS123')
-VistA.wait('Toolbox')
-VistA.write('^\r\r\r\r\r\r')
+OSEHRASetup.setupElectronicSignature(VistA,"fakenurse1","2Nur!@#$","1Nur!@#$","MARYS123")
#Set up the Clerk verification code
VistA=ConnectToMUMPS("${VISTA_BINARY_DIR}/Testing/Log/PostImport5.log","${VISTA_CACHE_INSTANCE}","${VISTA_CACHE_NAMESPACE}")
@@ -1090,17 +162,20 @@ if VistA.type=='cache':
VistA.ZN('${VISTA_CACHE_NAMESPACE}')
except IndexError,no_namechange:
pass
-VistA.wait(PROMPT,60)
-VistA.write('D ^ZU')
-VistA.wait('ACCESS CODE:')
-VistA.write('fakeclerk1')
-VistA.wait('VERIFY CODE:')
-VistA.write('2Cle!@#$')
-VistA.wait('verify code:')
-VistA.write('2Cle!@#$')
-VistA.wait('VERIFY CODE:')
-VistA.write('1Cle!@#$')
-VistA.wait('right:')
-VistA.write('1Cle!@#$')
-VistA.wait('//')
-VistA.write('^\r\r\r\r\r\r')
+OSEHRASetup.setupElectronicSignature(VistA,"fakeclerk1","2Cle!@#$","1Cle!@#$","CLERKJ123")
+
+# Add patient to the instance using the Clerk user
+# and the Register a Patient menu option.
+# The patient can be a veteran but not service connected
+VistA=ConnectToMUMPS("${VISTA_BINARY_DIR}/Testing/Log/AddPatients.log","${VISTA_CACHE_INSTANCE}","${VISTA_CACHE_NAMESPACE}")
+if ('${VISTA_CACHE_USERNAME}' and '${VISTA_CACHE_PASSWORD}'):
+ VistA.login('${VISTA_CACHE_USERNAME}','${VISTA_CACHE_PASSWORD}')
+if VistA.type=='cache':
+ try:
+ VistA.ZN('${VISTA_CACHE_NAMESPACE}')
+ except IndexError,no_namechange:
+ pass
+# Function arguments:
+# VistA, Patient Name, Patient Sex,Patient DOB, Patient SSN, Patient Veteran?
+OSEHRASetup.signonZU(VistA,"fakeclerk1","1Cle!@#$")
+OSEHRASetup.addPatient(VistA,"Carter,David JR","M","03/02/2001","000000113","N")
\ No newline at end of file
diff --git a/Testing/UnitTest.cmake.in b/Testing/UnitTest.cmake.in
index 6178191..abb6ba9 100644
--- a/Testing/UnitTest.cmake.in
+++ b/Testing/UnitTest.cmake.in
@@ -16,16 +16,9 @@
include("@VISTA_SOURCE_DIR@/CMake/CommonFunctions.cmake")
message(STATUS "Checking MUnit Patches...")
set(vendor_args "")
-if("@VENDOR_NAME@" STREQUAL "Cache")
- list(APPEND vendor_args -S 1 -CN "@VISTA_CACHE_NAMESPACE@" -CI "@VISTA_CACHE_INSTANCE@")
- string(STRIP "@VISTA_CACHE_USERNAME@" cacheusr)
- string(LENGTH "${cacheusr}" userLen)
- if(userLen)
- list(APPEND vendor_args -CU "@VISTA_CACHE_USERNAME@" -CP "@VISTA_CACHE_PASSWORD@")
- endif()
-elseif("@VENDOR_NAME@" STREQUAL "GTM")
- list(APPEND vendor_args -S 2)
-endif()
+SetVendorArgsConfig(vendor_args "@VENDOR_NAME@" "@VISTA_CACHE_NAMESPACE@"
+ "@VISTA_CACHE_INSTANCE@" "@VISTA_CACHE_USERNAME@"
+ "@VISTA_CACHE_PASSWORD@")
set(MUNIT_PATCH_DIR "@VISTA_SOURCE_DIR@/Testing/Setup/Patches/MUnit")
set(PATCH_INSTALL_SCRIPT "@VISTA_SOURCE_DIR@/Scripts/PatchSequenceApply.py")
set(LOG_DIR "@UNITTEST_LOG_DIR@")
@@ -60,7 +53,7 @@ foreach(routine ${UNIT_TEST_FILES})
string(REPLACE "[?1l>" "" OUTPUT ${OUTPUT})
string(REPLACE "${baseline}" "" newresult ${OUTPUT})
if(${newresult} STREQUAL ${OUTPUT})
- message(FATAL_ERROR "Test Report doesn't match the baseline file in: "@VISTA_SOURCE_DIR@/Packages/@package_name@/Testing/MUnit/Data/${routine}.log"")
+ message(FATAL_ERROR "Test Report doesn't match the baseline file in: @VISTA_SOURCE_DIR@/Packages/@package_name@/Testing/MUnit/Data/${routine}.log")
endif()
endif()
endforeach()
diff --git a/Testing/UserTest/CMakeLists.txt b/Testing/UserTest/CMakeLists.txt
new file mode 100644
index 0000000..3028586
--- /dev/null
+++ b/Testing/UserTest/CMakeLists.txt
@@ -0,0 +1,28 @@
+#---------------------------------------------------------------------------
+# Copyright 2014 The Open Source Electronic Health Record Agent
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+#---------------------------------------------------------------------------
+# This file can be used to quickly add a test to the environment
+#
+# Simply add an "add_test" command to this file along with any other
+# potentially needed steps
+#
+# Example:
+# add_test(TEST1 ${PYTHON_EXECUTABLE} "--version")
+#
+#
+# For more information on add_test:
+# http://www.cmake.org/cmake/help/v2.8.12/cmake.html#command:add_test
+#---------------------------------------------------------------------------
\ No newline at end of file
diff --git a/Testing/VerifyFields.py.in b/Testing/VerifyFields.py.in
new file mode 100644
index 0000000..d6f651c
--- /dev/null
+++ b/Testing/VerifyFields.py.in
@@ -0,0 +1,111 @@
+#---------------------------------------------------------------------------
+# Copyright 2012 The Open Source Electronic Health Record Agent
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#---------------------------------------------------------------------------
+import sys,os,re,time
+sys.path = ['@VISTA_SOURCE_DIR@/Python/vista'] + sys.path
+from OSEHRAHelper import ConnectToMUMPS,PROMPT
+from ParseCSVforPackagePrefixes import FindPackageFiles
+
+VistA=ConnectToMUMPS("@LOGFILENAME@","@VISTA_CACHE_INSTANCE@","@VISTA_CACHE_NAMESPACE@")
+if ('@VISTA_CACHE_USERNAME@' and '@VISTA_CACHE_PASSWORD@'):
+ VistA.login('@VISTA_CACHE_USERNAME@','@VISTA_CACHE_PASSWORD@')
+if VistA.type=='cache':
+ try:
+ VistA.ZN('@VISTA_CACHE_NAMESPACE@')
+ except IndexError,no_namechange:
+ pass
+fileNameLst = FindPackageFiles('@package_file_name@',
+ os.path.join('@VISTA_SOURCE_DIR@',
+ 'Packages.csv'))
+failTestflag=False
+VistA.wait(PROMPT)
+VistA.write('S DUZ=1 D Q^DI')
+VistA.wait('Select OPTION')
+VistA.write('Utility Functions')
+VistA.wait('UTILITY OPTION')
+for filenum in fileNameLst:
+ skipflag=False
+ failflag=False
+ VistA.write('Verify Fields')
+ VistA.wait('MODIFY WHAT FILE')
+ VistA.write('`'+filenum)
+ index = VistA.multiwait(['VERIFY WHICH FIELD','Select UTILITY OPTION','Are you adding a new FILE','MODIFY WHAT FILE'])
+ if index == 0:
+ numentstr = re.search("[0-9,]+ entr[iesy]+",VistA.lastconnection)
+ if numentstr:
+ nument = re.search("[0-9,]+", numentstr.group(0))
+ if nument and int(nument.group(0)) >= 300000:
+ skipflag=True
+ print "File has "+nument.group(0)+" entries"
+ print "Checking fields in File# " + filenum
+ if skipflag:
+ print "Skipping entry with >300,000 entries"
+ VistA.write('^')
+ VistA.wait('UTILITY OPTION')
+ else:
+ VistA.write('ALL')
+ VistA.wait('DO YOU MEAN ALL THE FIELDS IN THE FILE')
+ VistA.write('Yes')
+ VistA.wait('DEVICE')
+ VistA.write('HOME')
+ while True:
+ index2 = VistA.multiwait(['Select UTILITY OPTION',"\<[A-Z0]+\>[A-Z0-9+]+\^",'\%GTM','CHOOSE','STORE THESE ENTRY','to continue','FIELD:'],1800)
+ if index2 == 0:
+ break
+ elif index2 == 1 or index2 == 2:
+ VistA.write('Q')
+ VistA.wait(PROMPT)
+ VistA.write('S DUZ=1 D Q^DI')
+ VistA.wait('Select OPTION')
+ VistA.write('Utility Functions')
+ VistA.wait('UTILITY OPTION')
+ break
+ elif index2 == 3:
+ VistA.write('1')
+ elif index2 >= 4:
+ failcond = ['fails','[Mm]issing','not properly set','not properly Cross-referenced']
+ for condition in failcond:
+ failstring = re.search(condition,VistA.lastconnection)
+ if failstring:
+ failflag=True
+ failTestflag=True
+ print "Problem Found in File# " + filenum + " : found '" + failstring.group(0) + "' entries"
+ if failflag:
+ print "An error has been encountered during verification"
+ print VistA.lastconnection
+ VistA.write("^")
+ VistA.wait('UTILITY OPTION')
+ break
+ else:
+ VistA.write('')
+ elif index == 1:
+ print "No Entries to verify in File# " + filenum
+ elif index == 2:
+ VistA.write("No")
+ VistA.wait('MODIFY WHAT FILE')
+ VistA.write('')
+ VistA.wait('UTILITY OPTION')
+ print "File#" + filenum + " was not able to be found in the system"
+ elif index == 3:
+ VistA.write('')
+ VistA.wait('UTILITY OPTION')
+ print "File#" + filenum + " was not able to be found in the system"
+VistA.write('')
+VistA.wait('Select OPTION')
+VistA.write('')
+VistA.wait(PROMPT)
+VistA.write('h')
+if failTestflag:
+ sys.exit(1)
diff --git a/Testing/XINDEXScript.cmake.in b/Testing/XINDEXScript.cmake.in
index 194a10e..abf82ba 100644
--- a/Testing/XINDEXScript.cmake.in
+++ b/Testing/XINDEXScript.cmake.in
@@ -16,7 +16,7 @@
include("@VISTA_SOURCE_DIR@/CMake/CommonFunctions.cmake")
#Execute the python script
-execute_process(COMMAND "@PYTHON_EXECUTABLE@" "@CMAKE_CURRENT_BINARY_DIR@/@package_file_name at Test.py" RESULT_VARIABLE return ERROR_VARIABLE ERROR)
+execute_process(COMMAND "@PYTHON_EXECUTABLE@" "@CMAKE_CURRENT_BINARY_DIR@/XINDEX/@package_file_name at Test.py" RESULT_VARIABLE return ERROR_VARIABLE ERROR)
if(NOT return EQUAL 0)
diff --git a/Utilities/Dox/Web/footer.html b/Utilities/Dox/Web/footer.html
index 6944140..c4e3de1 100644
--- a/Utilities/Dox/Web/footer.html
+++ b/Utilities/Dox/Web/footer.html
@@ -3,7 +3,7 @@
<br/>
<br/>
<br/>
-<div id="footer">�2011 Open Source Electronic Health Record Agent<br />This work is licensed under a <a href="http://creativecommons.org/licenses/by/3.0/">Creative Commons Attribution 3.0 Unported License</a> <a href="http://creativecommons.org/licenses/by/3.0/"><img alt="Creative Commons License" style="border-width:0" src="http://i.creativecommons.org/l/by/3.0/88x31.png" /></a></div>
+<div id="footer">�2011 Open Source Electronic Health Record Alliance<br />This work is licensed under a <a href="http://creativecommons.org/licenses/by/3.0/">Creative Commons Attribution 3.0 Unported License</a> <a href="http://creativecommons.org/licenses/by/3.0/"><img alt="Creative Commons License" style="border-width:0" src="http://i.creativecommons.org/l/by/3.0/88x31.png" /></a></div>
</center>
</body>
</html>
--
Alioth's /git/debian-med/git-commit-notice on /srv/git.debian.org/git/debian-med/vista.git
More information about the debian-med-commit
mailing list