KIDS Distribution saved on Jul 03, 2001@15:53:23 AUPN VERSION 99.1 PATCH 6 **KIDS**:AUPN*99.1*6^ **INSTALL NAME** AUPN*99.1*6 "BLD",97,0) AUPN*99.1*6^IHS DICTIONARIES (PATIENT)^0^3010703^n "BLD",97,1,0) ^^124^124^3010703^ "BLD",97,1,1,0) INSTALLATION NOTES FOR DICTIONARIES (PATIENT) PATCH 6 =========== "BLD",97,1,2,0) ================================================================= "BLD",97,1,3,0) PREFIX: AUPN - IHS DICTIONARIES (PATIENT) "BLD",97,1,4,0) CURRENT VERSION: 99.1 PATCH *6 PRIORITY: MANDATORY "BLD",97,1,5,0) ================================================================= "BLD",97,1,6,0) "BLD",97,1,7,0) ****** NOTE ***** NOTE **** NOTE **** NOTE **** NOTE **** NOTE **** "BLD",97,1,8,0) ******************************************************************* "BLD",97,1,9,0) *READ THE ENTIRE NOTES FILE PRIOR TO ATTEMPTING ANY INSTALLATION !* "BLD",97,1,10,0) ******************************************************************* "BLD",97,1,11,0) ****** NOTE ***** NOTE **** NOTE **** NOTE **** NOTE **** NOTE **** "BLD",97,1,12,0) "BLD",97,1,13,0) "BLD",97,1,14,0) 1. GENERAL INFORMATION "BLD",97,1,15,0) "BLD",97,1,16,0) a) Print all notes/readme files. "BLD",97,1,17,0) "BLD",97,1,18,0) b) It is recommended that the terminal output during the "BLD",97,1,19,0) installation be captured using an auxport printer "BLD",97,1,20,0) attached to the terminal at which you are performing "BLD",97,1,21,0) the software installation. This will insure a printed "BLD",97,1,22,0) audit trail if any problems should arise. "BLD",97,1,23,0) "BLD",97,1,24,0) c) This patch includes patches 1 - 6 and does the following: "BLD",97,1,25,0) 1. Removed a screen on the Medicaid Eligible Plan Name field. *1 "BLD",97,1,26,0) 2. Distributes the V LAB dictionary in order to expand the "BLD",97,1,27,0) Accession Number field to 16 characters. *1 "BLD",97,1,28,0) 3. Modifies the AUPNVMSR routine to allow a Vision value of HM. *1 "BLD",97,1,29,0) 4. Modifies the $$DOB^AUPNPAT entry point to always pass back a "BLD",97,1,30,0) 4 digit year. (AUPNPAT3) *2 "BLD",97,1,31,0) 5. Modifies the AUPNLK1I routine to always assume past dates on "BLD",97,1,32,0) a DOB input in the patient lookup. *2 "BLD",97,1,33,0) 6. Adds an "E" to the %DT set in 3 fields. *2 "BLD",97,1,34,0) 7. Adds the following fields to the Patient Dictionary: *3 "BLD",97,1,35,0) .33 USER UPDATING PRIM CARE PROV "BLD",97,1,36,0) .34 DATE PRIM CARE PROV UPDATED "BLD",97,1,37,0) .35 NUMBER IN HOUSEHOLD "BLD",97,1,38,0) .36 TOTAL HOUSEHOLD INCOME "BLD",97,1,39,0) 8. Adds 2 triggers to the PRIMARY CARE PROVIDER field of the "BLD",97,1,40,0) PATIENT File to trigger the .33/.34 fields. *3 "BLD",97,1,41,0) 9. Adds field 1211 to the Visit file (External Acct No.) *3 "BLD",97,1,42,0) 10. Updates the Admission Source, Admission Type-UB92, and "BLD",97,1,43,0) Discharge Type-UB92 fields in V Hospitalization. *3 "BLD",97,1,44,0) 11. Adds CPT MODIFIER and CPT MODIFIER 2 fields to V PROCEDURE. *3 "BLD",97,1,45,0) 12. Adds DATE PASSED TO EXTERNAL TO V LAB, V RADIOLOGY and "BLD",97,1,46,0) V MEDICATION. *3 "BLD",97,1,47,0) 13. Adds V ELDER CARE dictionary *3 "BLD",97,1,48,0) 14. Adds IHS HL7 SUPPLY INTERFACE dictionary. *3 "BLD",97,1,49,0) 15. Adds PT REFUSAL FOR SERVICE dictionary. *3 "BLD",97,1,50,0) 16. Adds BIRTH MEASUREMENT dictionary. *3 "BLD",97,1,51,0) 17. Modifies the previous community multiple to do a $G instead of "BLD",97,1,52,0) $D *4 "BLD",97,1,53,0) 18. Adds VCN, EXTERNAL ACCT NO., CHIEF COMPLAINT to the VISIT file "BLD",97,1,54,0) *4 "BLD",97,1,55,0) 19. Adds field 1501 (date passed to external) to V POV, V PROCEDURE, "BLD",97,1,56,0) V LAB, V MEDICATION, V RADIOLOGY. *4 "BLD",97,1,57,0) 20. Adds CPT Modifier fields to V RADIOLOGY. *4 "BLD",97,1,58,0) 21. Modifies input transform for TMP entry. *4 "BLD",97,1,59,0) 22. Adds VCN function call to AUPNVSIT. *4 "BLD",97,1,60,0) 23. Fixes PIN function call in AUPNPAT2. *4 "BLD",97,1,61,0) 24. Adds visit unique ID field to visit file. *5 "BLD",97,1,62,0) 25. Adds Ecode2 and Ecode3 fields to V POV. *5 "BLD",97,1,63,0) 26. Adds CPT Modifier pointer to V Transaction Code file. *5 "BLD",97,1,64,0) 27. Fixes set of codes on 4 fields in V Elder Care file. *5 "BLD",97,1,65,0) 28. Adds Health Reminder Override File (9000022). *5 "BLD",97,1,66,0) 29. Fixes patient lookup for fileman 22 (AUPNLK, AUPNLKI) *5 "BLD",97,1,67,0) 30. Adds security check (MAS 5.0)(AUPNLK) *5 "BLD",97,1,68,0) 31. Adds several fields (1301-1314) to the Visit file for a future "BLD",97,1,69,0) project. *5 "BLD",97,1,70,0) 32. Adds V UNHF per ANMC to capture hearing exam. *5 "BLD",97,1,71,0) 33. Adds V Treatment Contract per ANMC and for future use. *5 "BLD",97,1,72,0) 34. Sends out an updated V PATIENT EDUCATION dd for new patient "BLD",97,1,73,0) education "BLD",97,1,74,0) entry. *5 "BLD",97,1,75,0) 35. Adds an AE index to the Medicaid Eligible Medicaid Number field "BLD",97,1,76,0) and "BLD",97,1,77,0) reindexes it. *5 "BLD",97,1,78,0) 36. Adds .37 to Patient File - Reason Primary Provider updated *6 "BLD",97,1,79,0) 37. Adds .38 to Patient File - Envoy Eligibility date *6 "BLD",97,1,80,0) 38. Adds .39 to Patient File - Send to Registry per Portland Area "BLD",97,1,81,0) *6 "BLD",97,1,82,0) 39. Adds 1701-1710 to Patient File at the request of South Central "BLD",97,1,83,0) Foundation *6 "BLD",97,1,84,0) 40. Adds ABAT xref to .01 of V POV for Asthma Tracking *6 "BLD",97,1,85,0) 41. Adds ABAT xref to .01 of PROBLEM for Asthma Tracking *6 "BLD",97,1,86,0) 42. Modifies input transform on .01 of V CPT to override *6 "BLD",97,1,87,0) 43. Removes AQ xref from V PATHOLOGY *6 "BLD",97,1,88,0) 44. Removes AQ xref from V NARRATIVE TEXT *6 "BLD",97,1,89,0) 45. Adds V ASTHMA (9000010.41) for Asthma Tracking *6 "BLD",97,1,90,0) 46. Fixes lookup in AUPNLK *6 "BLD",97,1,91,0) 47. Adds Pain Measurement to AUPNVMS2 and AUPNVMSR *6 "BLD",97,1,92,0) 48. Modifies AUPNPCTR which sets the Current Community values, per "BLD",97,1,93,0) the "BLD",97,1,94,0) Patient Reg workgroup. *6 "BLD",97,1,95,0) "BLD",97,1,96,0) "BLD",97,1,97,0) 2. CONTENTS OF DISTRIBUTION "BLD",97,1,98,0) "BLD",97,1,99,0) a) aupn9910.06k - Patch Kids file "BLD",97,1,100,0) "BLD",97,1,101,0) b) aupn9910.06n - This Notes file "BLD",97,1,102,0) "BLD",97,1,103,0) "BLD",97,1,104,0) 3. REQUIREMENTS "BLD",97,1,105,0) "BLD",97,1,106,0) a) Kernel v 8.0 or later "BLD",97,1,107,0) b) FileMan v 21 "BLD",97,1,108,0) c) AUT v98.1 through patch 7 (this is important!) "BLD",97,1,109,0) "BLD",97,1,110,0) 4. INSTALLATION INSTRUCTIONS "BLD",97,1,111,0) "BLD",97,1,112,0) In all UCI's running IHS PATIENT DICTIONARIES (PATIENT): "BLD",97,1,113,0) "BLD",97,1,114,0) a) This is a KIDS install. Load distribution aupn9910.06k. "BLD",97,1,115,0) After it is loaded, then install it. If you need assistance "BLD",97,1,116,0) With a KIDS install please call your Area Support personnel. "BLD",97,1,117,0) b) If you have installed patch 5 run POST^AUPN99P5 "BLD",97,1,118,0) "BLD",97,1,119,0) "BLD",97,1,120,0) 5. POINT OF CONTACT "BLD",97,1,121,0) "BLD",97,1,122,0) Lori Butcher "BLD",97,1,123,0) Cimarron Medical Informatics "BLD",97,1,124,0) 520-577-2146 "BLD",97,4,0) ^9.64PA^9000010.41^26 "BLD",97,4,9000001,0) 9000001 "BLD",97,4,9000001,2,0) ^9.641^9000001.51^2 "BLD",97,4,9000001,2,9000001,0) PATIENT (File-top level) "BLD",97,4,9000001,2,9000001,1,0) ^9.6411^1710^17 "BLD",97,4,9000001,2,9000001,1,.33,0) USER UPDATING PRIM CARE PROV "BLD",97,4,9000001,2,9000001,1,.34,0) DATE PRIM CARE PROV UPDATED "BLD",97,4,9000001,2,9000001,1,.35,0) NUMBER IN HOUSEHOLD "BLD",97,4,9000001,2,9000001,1,.36,0) TOTAL HOUSEHOLD INCOME "BLD",97,4,9000001,2,9000001,1,.37,0) REASON PRIM CARE PROV CHANGED "BLD",97,4,9000001,2,9000001,1,.38,0) ENVOY ELIG DATE "BLD",97,4,9000001,2,9000001,1,.39,0) SEND TO REGISTRY "BLD",97,4,9000001,2,9000001,1,1701,0) MH PRIMARY PROVIDER "BLD",97,4,9000001,2,9000001,1,1702,0) USER UPDATING MH PROVIDER "BLD",97,4,9000001,2,9000001,1,1703,0) DATE MH PROVIDER UPDATED "BLD",97,4,9000001,2,9000001,1,1704,0) MH MED MANAGER "BLD",97,4,9000001,2,9000001,1,1705,0) USER UPDATING SEC MH PROV "BLD",97,4,9000001,2,9000001,1,1706,0) DATE SEC MH PROV UPDATED "BLD",97,4,9000001,2,9000001,1,1707,0) REASON MH PRIMARY PROV CHANGED "BLD",97,4,9000001,2,9000001,1,1708,0) REASON SEC MH PROV CHANGED "BLD",97,4,9000001,2,9000001,1,1709,0) CVD STATUS "BLD",97,4,9000001,2,9000001,1,1710,0) DATE OF CVD STATUS "BLD",97,4,9000001,2,9000001.51,0) PREVIOUS COMMUNITY (sub-file) "BLD",97,4,9000001,2,9000001.51,1,0) ^9.6411^.01^1 "BLD",97,4,9000001,2,9000001.51,1,.01,0) DATE MOVED "BLD",97,4,9000001,222) y^y^p^^^^n "BLD",97,4,9000004,0) 9000004 "BLD",97,4,9000004,2,0) ^9.641^9000004^1 "BLD",97,4,9000004,2,9000004,0) MEDICAID ELIGIBLE (File-top level) "BLD",97,4,9000004,2,9000004,1,0) ^9.6411^.03^1 "BLD",97,4,9000004,2,9000004,1,.03,0) MEDICAID NUMBER "BLD",97,4,9000004,222) y^y^p^^^^n "BLD",97,4,9000010,0) 9000010 "BLD",97,4,9000010,2,0) ^9.641^9000010^1 "BLD",97,4,9000010,2,9000010,0) VISIT (File-top level) "BLD",97,4,9000010,2,9000010,1,0) ^9.6411^1314^22 "BLD",97,4,9000010,2,9000010,1,.13,0) DATE LAST MODIFIED "BLD",97,4,9000010,2,9000010,1,.18,0) CHECK OUT DATE&TIME "BLD",97,4,9000010,2,9000010,1,.22,0) HOSPITAL LOCATION "BLD",97,4,9000010,2,9000010,1,.26,0) APPT DATE&TIME "BLD",97,4,9000010,2,9000010,1,1103,0) VCN "BLD",97,4,9000010,2,9000010,1,1104,0) UNIQUE VISIT ID "BLD",97,4,9000010,2,9000010,1,1211,0) EXTERNAL ACCT NO "BLD",97,4,9000010,2,9000010,1,1301,0) TRIAGE CHECK IN "BLD",97,4,9000010,2,9000010,1,1302,0) TRIAGE CHECK OUT "BLD",97,4,9000010,2,9000010,1,1303,0) NURSE CHECK IN "BLD",97,4,9000010,2,9000010,1,1304,0) NURSE CHECK OUT "BLD",97,4,9000010,2,9000010,1,1305,0) NURSE TX CHECK IN "BLD",97,4,9000010,2,9000010,1,1306,0) NURSE TX CHECK OUT "BLD",97,4,9000010,2,9000010,1,1307,0) DOCTOR CHECK IN "BLD",97,4,9000010,2,9000010,1,1308,0) DOCTOR CHECK OUT "BLD",97,4,9000010,2,9000010,1,1309,0) LAB CHECK IN "BLD",97,4,9000010,2,9000010,1,1310,0) LAB CHECK OUT "BLD",97,4,9000010,2,9000010,1,1311,0) PHARMACY CHECK IN "BLD",97,4,9000010,2,9000010,1,1312,0) PHARMACY CHECK OUT "BLD",97,4,9000010,2,9000010,1,1313,0) RADIOLOGY CHECK IN "BLD",97,4,9000010,2,9000010,1,1314,0) RADIOLOGY CHECK OUT "BLD",97,4,9000010,2,9000010,1,1401,0) CHIEF COMPLAINT "BLD",97,4,9000010,222) y^y^p^^^^n "BLD",97,4,9000010.01,0) 9000010.01 "BLD",97,4,9000010.01,2,0) ^9.641^9000010.01^1 "BLD",97,4,9000010.01,2,9000010.01,0) V MEASUREMENT (File-top level) "BLD",97,4,9000010.01,2,9000010.01,1,0) ^9.6411^.04^1 "BLD",97,4,9000010.01,2,9000010.01,1,.04,0) VALUE "BLD",97,4,9000010.01,222) y^y^p^^^^n "BLD",97,4,9000010.02,0) 9000010.02 "BLD",97,4,9000010.02,2,0) ^9.641^9000010.02^1 "BLD",97,4,9000010.02,2,9000010.02,0) V HOSPITALIZATION (File-top level) "BLD",97,4,9000010.02,2,9000010.02,1,0) ^9.6411^6103^3 "BLD",97,4,9000010.02,2,9000010.02,1,6101,0) ADMISSION TYPE-UB92 "BLD",97,4,9000010.02,2,9000010.02,1,6102,0) ADMISSION SOURCE-UB92 "BLD",97,4,9000010.02,2,9000010.02,1,6103,0) DISCHARGE STATUS-UB92 "BLD",97,4,9000010.02,222) y^y^p^^^^n "BLD",97,4,9000010.07,0) 9000010.07 "BLD",97,4,9000010.07,2,0) ^9.641^9000010.07^1 "BLD",97,4,9000010.07,2,9000010.07,0) V POV (File-top level) "BLD",97,4,9000010.07,2,9000010.07,1,0) ^9.6411^.01^4 "BLD",97,4,9000010.07,2,9000010.07,1,.01,0) POV "BLD",97,4,9000010.07,2,9000010.07,1,.18,0) E-CODE 2 "BLD",97,4,9000010.07,2,9000010.07,1,.19,0) E-CODE 3 "BLD",97,4,9000010.07,2,9000010.07,1,1501,0) DATE PASSED TO EXTERNAL "BLD",97,4,9000010.07,222) y^y^p^^^^n "BLD",97,4,9000010.08,0) 9000010.08 "BLD",97,4,9000010.08,2,0) ^9.641^9000010.08^1 "BLD",97,4,9000010.08,2,9000010.08,0) V PROCEDURE (File-top level) "BLD",97,4,9000010.08,2,9000010.08,1,0) ^9.6411^1501^3 "BLD",97,4,9000010.08,2,9000010.08,1,.17,0) CPT MODIFIER "BLD",97,4,9000010.08,2,9000010.08,1,.18,0) CPT MODIFIER 2 "BLD",97,4,9000010.08,2,9000010.08,1,1501,0) DATE PASSED TO EXTERNAL "BLD",97,4,9000010.08,222) y^y^p^^^^n "BLD",97,4,9000010.09,0) 9000010.09 "BLD",97,4,9000010.09,2,0) ^9.641^9000010.09^1 "BLD",97,4,9000010.09,2,9000010.09,0) V LAB (File-top level) "BLD",97,4,9000010.09,2,9000010.09,1,0) ^9.6411^.06^3 "BLD",97,4,9000010.09,2,9000010.09,1,.06,0) LR ACCESSION NO. "BLD",97,4,9000010.09,2,9000010.09,1,1112,0) LAB POV "BLD",97,4,9000010.09,2,9000010.09,1,1501,0) DATE PASSED TO EXTERNAL "BLD",97,4,9000010.09,222) y^y^p^^^^n "BLD",97,4,9000010.11,0) 9000010.11 "BLD",97,4,9000010.11,2,0) ^9.641^9000010.11^1 "BLD",97,4,9000010.11,2,9000010.11,0) V IMMUNIZATION (File-top level) "BLD",97,4,9000010.11,2,9000010.11,1,0) ^9.6411^.05^1 "BLD",97,4,9000010.11,2,9000010.11,1,.05,0) LOT "BLD",97,4,9000010.11,222) y^y^p^^^^n "BLD",97,4,9000010.14,0) 9000010.14 "BLD",97,4,9000010.14,2,0) ^9.641^9000010.14^1 "BLD",97,4,9000010.14,2,9000010.14,0) V MEDICATION (File-top level) "BLD",97,4,9000010.14,2,9000010.14,1,0) ^9.6411^1501^3 "BLD",97,4,9000010.14,2,9000010.14,1,1103,0) BILLED? "BLD",97,4,9000010.14,2,9000010.14,1,1201,0) EVENT DATE&TIME "BLD",97,4,9000010.14,2,9000010.14,1,1501,0) DATE PASSED TO EXTERNAL "BLD",97,4,9000010.14,222) y^y^p^^^^n "BLD",97,4,9000010.16,0) 9000010.16 "BLD",97,4,9000010.16,2,0) ^9.641^9000010.16^1 "BLD",97,4,9000010.16,2,9000010.16,0) V PATIENT ED (File-top level) "BLD",97,4,9000010.16,2,9000010.16,1,0) ^9.6411^1101^10 "BLD",97,4,9000010.16,2,9000010.16,1,.01,0) TOPIC "BLD",97,4,9000010.16,2,9000010.16,1,.04,0) ICD DIAGNOSIS "BLD",97,4,9000010.16,2,9000010.16,1,.041,0) ICD TEXT "BLD",97,4,9000010.16,2,9000010.16,1,.06,0) LEVEL OF UNDERSTANDING "BLD",97,4,9000010.16,2,9000010.16,1,.07,0) INDIVIDUAL/GROUP "BLD",97,4,9000010.16,2,9000010.16,1,.08,0) LENGTH OF EDUC (MINUTES) "BLD",97,4,9000010.16,2,9000010.16,1,.09,0) CPT CODE "BLD",97,4,9000010.16,2,9000010.16,1,.11,0) COMMENT "BLD",97,4,9000010.16,2,9000010.16,1,.12,0) TOPIC CATEGORY "BLD",97,4,9000010.16,2,9000010.16,1,1101,0) PROVIDER'S NARRATIVE "BLD",97,4,9000010.16,222) y^y^p^^^^n "BLD",97,4,9000010.18,0) 9000010.18 "BLD",97,4,9000010.18,2,0) ^9.641^9000010.18^1 "BLD",97,4,9000010.18,2,9000010.18,0) V CPT (File-top level) "BLD",97,4,9000010.18,2,9000010.18,1,0) ^9.6411^.01^1 "BLD",97,4,9000010.18,2,9000010.18,1,.01,0) CPT "BLD",97,4,9000010.18,222) y^y^p^^^^n "BLD",97,4,9000010.22,0) 9000010.22 "BLD",97,4,9000010.22,2,0) ^9.641^9000010.22^1 "BLD",97,4,9000010.22,2,9000010.22,0) V RADIOLOGY (File-top level) "BLD",97,4,9000010.22,2,9000010.22,1,0) ^9.6411^.08^3 "BLD",97,4,9000010.22,2,9000010.22,1,.07,0) MODIFIER "BLD",97,4,9000010.22,2,9000010.22,1,.08,0) MODIFIER 2 "BLD",97,4,9000010.22,2,9000010.22,1,1501,0) DATE PASSED TO EXTERNAL "BLD",97,4,9000010.22,222) y^y^p^^^^n "BLD",97,4,9000010.24,0) 9000010.24 "BLD",97,4,9000010.24,2,0) ^9.641^9000010.24^1 "BLD",97,4,9000010.24,2,9000010.24,0) V PATHOLOGY (File-top level) "BLD",97,4,9000010.24,2,9000010.24,1,0) ^9.6411^.04^2 "BLD",97,4,9000010.24,2,9000010.24,1,.01,0) TYPE "BLD",97,4,9000010.24,2,9000010.24,1,.04,0) SPECIMEN "BLD",97,4,9000010.24,222) y^y^p^^^^n "BLD",97,4,9000010.33,0) 9000010.33 "BLD",97,4,9000010.33,222) y^y^f^^^^n "BLD",97,4,9000010.34,0) 9000010.34 "BLD",97,4,9000010.34,2,0) ^9.641^9000010.34^1 "BLD",97,4,9000010.34,2,9000010.34,0) V NARRATIVE TEXT (File-top level) "BLD",97,4,9000010.34,2,9000010.34,1,0) ^9.6411^.01^1 "BLD",97,4,9000010.34,2,9000010.34,1,.01,0) TEXT TYPE "BLD",97,4,9000010.34,222) y^y^p^^^^n "BLD",97,4,9000010.35,0) 9000010.35 "BLD",97,4,9000010.35,222) y^y^f^^^^n "BLD",97,4,9000010.38,0) 9000010.38 "BLD",97,4,9000010.38,222) y^y^f^^^^n "BLD",97,4,9000010.39,0) 9000010.39 "BLD",97,4,9000010.39,222) y^y^f^^^^n "BLD",97,4,9000010.41,0) 9000010.41 "BLD",97,4,9000010.41,222) y^y^f^^^^n "BLD",97,4,9000011,0) 9000011 "BLD",97,4,9000011,2,0) ^9.641^9000011^1 "BLD",97,4,9000011,2,9000011,0) PROBLEM (File-top level) "BLD",97,4,9000011,2,9000011,1,0) ^9.6411^.01^2 "BLD",97,4,9000011,2,9000011,1,.01,0) DIAGNOSIS "BLD",97,4,9000011,2,9000011,1,.07,0) NMBR "BLD",97,4,9000011,222) y^y^p^^^^n "BLD",97,4,9000021,0) 9000021 "BLD",97,4,9000021,222) y^y^f^^^^n "BLD",97,4,9000022,0) 9000022 "BLD",97,4,9000022,222) y^y^f^^^^n "BLD",97,4,9000023,0) 9000023 "BLD",97,4,9000023,222) y^y^f^^^^n "BLD",97,4,9000024,0) 9000024 "BLD",97,4,9000024,222) y^y^f^^^^n "BLD",97,4,9000025,0) 9000025 "BLD",97,4,9000025,222) y^y^f^^^^n "BLD",97,4,"APDD",9000001,9000001) "BLD",97,4,"APDD",9000001,9000001,.33) "BLD",97,4,"APDD",9000001,9000001,.34) "BLD",97,4,"APDD",9000001,9000001,.35) "BLD",97,4,"APDD",9000001,9000001,.36) "BLD",97,4,"APDD",9000001,9000001,.37) "BLD",97,4,"APDD",9000001,9000001,.38) "BLD",97,4,"APDD",9000001,9000001,.39) "BLD",97,4,"APDD",9000001,9000001,1701) "BLD",97,4,"APDD",9000001,9000001,1702) "BLD",97,4,"APDD",9000001,9000001,1703) "BLD",97,4,"APDD",9000001,9000001,1704) "BLD",97,4,"APDD",9000001,9000001,1705) "BLD",97,4,"APDD",9000001,9000001,1706) "BLD",97,4,"APDD",9000001,9000001,1707) "BLD",97,4,"APDD",9000001,9000001,1708) "BLD",97,4,"APDD",9000001,9000001,1709) "BLD",97,4,"APDD",9000001,9000001,1710) "BLD",97,4,"APDD",9000001,9000001.51) "BLD",97,4,"APDD",9000001,9000001.51,.01) "BLD",97,4,"APDD",9000004,9000004) "BLD",97,4,"APDD",9000004,9000004,.03) "BLD",97,4,"APDD",9000010,9000010) "BLD",97,4,"APDD",9000010,9000010,.13) "BLD",97,4,"APDD",9000010,9000010,.18) "BLD",97,4,"APDD",9000010,9000010,.22) "BLD",97,4,"APDD",9000010,9000010,.26) "BLD",97,4,"APDD",9000010,9000010,1103) "BLD",97,4,"APDD",9000010,9000010,1104) "BLD",97,4,"APDD",9000010,9000010,1211) "BLD",97,4,"APDD",9000010,9000010,1301) "BLD",97,4,"APDD",9000010,9000010,1302) "BLD",97,4,"APDD",9000010,9000010,1303) "BLD",97,4,"APDD",9000010,9000010,1304) "BLD",97,4,"APDD",9000010,9000010,1305) "BLD",97,4,"APDD",9000010,9000010,1306) "BLD",97,4,"APDD",9000010,9000010,1307) "BLD",97,4,"APDD",9000010,9000010,1308) "BLD",97,4,"APDD",9000010,9000010,1309) "BLD",97,4,"APDD",9000010,9000010,1310) "BLD",97,4,"APDD",9000010,9000010,1311) "BLD",97,4,"APDD",9000010,9000010,1312) "BLD",97,4,"APDD",9000010,9000010,1313) "BLD",97,4,"APDD",9000010,9000010,1314) "BLD",97,4,"APDD",9000010,9000010,1401) "BLD",97,4,"APDD",9000010.01,9000010.01) "BLD",97,4,"APDD",9000010.01,9000010.01,.04) "BLD",97,4,"APDD",9000010.02,9000010.02) "BLD",97,4,"APDD",9000010.02,9000010.02,6101) "BLD",97,4,"APDD",9000010.02,9000010.02,6102) "BLD",97,4,"APDD",9000010.02,9000010.02,6103) "BLD",97,4,"APDD",9000010.07,9000010.07) "BLD",97,4,"APDD",9000010.07,9000010.07,.01) "BLD",97,4,"APDD",9000010.07,9000010.07,.18) "BLD",97,4,"APDD",9000010.07,9000010.07,.19) "BLD",97,4,"APDD",9000010.07,9000010.07,1501) "BLD",97,4,"APDD",9000010.08,9000010.08) "BLD",97,4,"APDD",9000010.08,9000010.08,.17) "BLD",97,4,"APDD",9000010.08,9000010.08,.18) "BLD",97,4,"APDD",9000010.08,9000010.08,1501) "BLD",97,4,"APDD",9000010.09,9000010.09) "BLD",97,4,"APDD",9000010.09,9000010.09,.06) "BLD",97,4,"APDD",9000010.09,9000010.09,1112) "BLD",97,4,"APDD",9000010.09,9000010.09,1501) "BLD",97,4,"APDD",9000010.11,9000010.11) "BLD",97,4,"APDD",9000010.11,9000010.11,.05) "BLD",97,4,"APDD",9000010.14,9000010.14) "BLD",97,4,"APDD",9000010.14,9000010.14,1103) "BLD",97,4,"APDD",9000010.14,9000010.14,1201) "BLD",97,4,"APDD",9000010.14,9000010.14,1501) "BLD",97,4,"APDD",9000010.16,9000010.16) "BLD",97,4,"APDD",9000010.16,9000010.16,.01) "BLD",97,4,"APDD",9000010.16,9000010.16,.04) "BLD",97,4,"APDD",9000010.16,9000010.16,.041) "BLD",97,4,"APDD",9000010.16,9000010.16,.06) "BLD",97,4,"APDD",9000010.16,9000010.16,.07) "BLD",97,4,"APDD",9000010.16,9000010.16,.08) "BLD",97,4,"APDD",9000010.16,9000010.16,.09) "BLD",97,4,"APDD",9000010.16,9000010.16,.11) "BLD",97,4,"APDD",9000010.16,9000010.16,.12) "BLD",97,4,"APDD",9000010.16,9000010.16,1101) "BLD",97,4,"APDD",9000010.18,9000010.18) "BLD",97,4,"APDD",9000010.18,9000010.18,.01) "BLD",97,4,"APDD",9000010.22,9000010.22) "BLD",97,4,"APDD",9000010.22,9000010.22,.07) "BLD",97,4,"APDD",9000010.22,9000010.22,.08) "BLD",97,4,"APDD",9000010.22,9000010.22,1501) "BLD",97,4,"APDD",9000010.24,9000010.24) "BLD",97,4,"APDD",9000010.24,9000010.24,.01) "BLD",97,4,"APDD",9000010.24,9000010.24,.04) "BLD",97,4,"APDD",9000010.34,9000010.34) "BLD",97,4,"APDD",9000010.34,9000010.34,.01) "BLD",97,4,"APDD",9000011,9000011) "BLD",97,4,"APDD",9000011,9000011,.01) "BLD",97,4,"APDD",9000011,9000011,.07) "BLD",97,4,"B",9000001,9000001) "BLD",97,4,"B",9000004,9000004) "BLD",97,4,"B",9000010,9000010) "BLD",97,4,"B",9000010.01,9000010.01) "BLD",97,4,"B",9000010.02,9000010.02) "BLD",97,4,"B",9000010.07,9000010.07) "BLD",97,4,"B",9000010.08,9000010.08) "BLD",97,4,"B",9000010.09,9000010.09) "BLD",97,4,"B",9000010.11,9000010.11) "BLD",97,4,"B",9000010.14,9000010.14) "BLD",97,4,"B",9000010.16,9000010.16) "BLD",97,4,"B",9000010.18,9000010.18) "BLD",97,4,"B",9000010.22,9000010.22) "BLD",97,4,"B",9000010.24,9000010.24) "BLD",97,4,"B",9000010.33,9000010.33) "BLD",97,4,"B",9000010.34,9000010.34) "BLD",97,4,"B",9000010.35,9000010.35) "BLD",97,4,"B",9000010.38,9000010.38) "BLD",97,4,"B",9000010.39,9000010.39) "BLD",97,4,"B",9000010.41,9000010.41) "BLD",97,4,"B",9000011,9000011) "BLD",97,4,"B",9000021,9000021) "BLD",97,4,"B",9000022,9000022) "BLD",97,4,"B",9000023,9000023) "BLD",97,4,"B",9000024,9000024) "BLD",97,4,"B",9000025,9000025) "BLD",97,"ABPKG") n "BLD",97,"INI") PRE^AUPN99P6 "BLD",97,"INIT") "BLD",97,"KRN",0) ^9.67PA^19^18 "BLD",97,"KRN",.4,0) .4 "BLD",97,"KRN",.401,0) .401 "BLD",97,"KRN",.402,0) .402 "BLD",97,"KRN",.402,"NM",0) ^9.68A^^ "BLD",97,"KRN",.403,0) .403 "BLD",97,"KRN",.5,0) .5 "BLD",97,"KRN",.84,0) .84 "BLD",97,"KRN",3.6,0) 3.6 "BLD",97,"KRN",3.8,0) 3.8 "BLD",97,"KRN",9.2,0) 9.2 "BLD",97,"KRN",9.8,0) 9.8 "BLD",97,"KRN",9.8,"NM",0) ^9.68A^12^12 "BLD",97,"KRN",9.8,"NM",1,0) AUPNVMSR^^0^B28979864 "BLD",97,"KRN",9.8,"NM",2,0) AUPNPAT3^^0^B11876368 "BLD",97,"KRN",9.8,"NM",3,0) AUPNLK1I^^0^B3604043 "BLD",97,"KRN",9.8,"NM",4,0) AUPNPAT2^^0^B15010853 "BLD",97,"KRN",9.8,"NM",5,0) AUPNVSIT^^0^B20650132 "BLD",97,"KRN",9.8,"NM",6,0) AUPNVMS2^^0^B20636234 "BLD",97,"KRN",9.8,"NM",7,0) AUPNLK^^0^B24461064 "BLD",97,"KRN",9.8,"NM",8,0) AUPNLKI^^0^B9227795 "BLD",97,"KRN",9.8,"NM",9,0) AUPNLKID^^0^B9396888 "BLD",97,"KRN",9.8,"NM",10,0) AUPN99P5^^0^B224980 "BLD",97,"KRN",9.8,"NM",11,0) AUPNPCTR^^0^B9043699 "BLD",97,"KRN",9.8,"NM",12,0) AUPN99P6^^0^B473341 "BLD",97,"KRN",9.8,"NM","B","AUPN99P5",10) "BLD",97,"KRN",9.8,"NM","B","AUPN99P6",12) "BLD",97,"KRN",9.8,"NM","B","AUPNLK",7) "BLD",97,"KRN",9.8,"NM","B","AUPNLK1I",3) "BLD",97,"KRN",9.8,"NM","B","AUPNLKI",8) "BLD",97,"KRN",9.8,"NM","B","AUPNLKID",9) "BLD",97,"KRN",9.8,"NM","B","AUPNPAT2",4) "BLD",97,"KRN",9.8,"NM","B","AUPNPAT3",2) "BLD",97,"KRN",9.8,"NM","B","AUPNPCTR",11) "BLD",97,"KRN",9.8,"NM","B","AUPNVMS2",6) "BLD",97,"KRN",9.8,"NM","B","AUPNVMSR",1) "BLD",97,"KRN",9.8,"NM","B","AUPNVSIT",5) "BLD",97,"KRN",19,0) 19 "BLD",97,"KRN",19,"NM",0) ^9.68A^^ "BLD",97,"KRN",19.1,0) 19.1 "BLD",97,"KRN",19.1,"NM",0) ^9.68A^^ "BLD",97,"KRN",101,0) 101 "BLD",97,"KRN",101,"NM",0) ^9.68A^^ "BLD",97,"KRN",409.61,0) 409.61 "BLD",97,"KRN",771,0) 771 "BLD",97,"KRN",869.2,0) 869.2 "BLD",97,"KRN",870,0) 870 "BLD",97,"KRN",8994,0) 8994 "BLD",97,"KRN","B",.4,.4) "BLD",97,"KRN","B",.401,.401) "BLD",97,"KRN","B",.402,.402) "BLD",97,"KRN","B",.403,.403) "BLD",97,"KRN","B",.5,.5) "BLD",97,"KRN","B",.84,.84) "BLD",97,"KRN","B",3.6,3.6) "BLD",97,"KRN","B",3.8,3.8) "BLD",97,"KRN","B",9.2,9.2) "BLD",97,"KRN","B",9.8,9.8) "BLD",97,"KRN","B",19,19) "BLD",97,"KRN","B",19.1,19.1) "BLD",97,"KRN","B",101,101) "BLD",97,"KRN","B",409.61,409.61) "BLD",97,"KRN","B",771,771) "BLD",97,"KRN","B",869.2,869.2) "BLD",97,"KRN","B",870,870) "BLD",97,"KRN","B",8994,8994) "BLD",97,"PRE") AUPN99P6 "BLD",97,"QUES",0) ^9.62^^ "FIA",9000001) PATIENT "FIA",9000001,0) ^AUPNPAT( "FIA",9000001,0,0) 9000001sIP "FIA",9000001,0,1) y^y^p^^^^n "FIA",9000001,0,10) "FIA",9000001,0,11) "FIA",9000001,0,"RLRO") "FIA",9000001,0,"VR") 99.1^AUPN "FIA",9000001,9000001) 1 "FIA",9000001,9000001,.33) "FIA",9000001,9000001,.34) "FIA",9000001,9000001,.35) "FIA",9000001,9000001,.36) "FIA",9000001,9000001,.37) "FIA",9000001,9000001,.38) "FIA",9000001,9000001,.39) "FIA",9000001,9000001,1701) "FIA",9000001,9000001,1702) "FIA",9000001,9000001,1703) "FIA",9000001,9000001,1704) "FIA",9000001,9000001,1705) "FIA",9000001,9000001,1706) "FIA",9000001,9000001,1707) "FIA",9000001,9000001,1708) "FIA",9000001,9000001,1709) "FIA",9000001,9000001,1710) "FIA",9000001,9000001,5101) "FIA",9000001,9000001.51) 1 "FIA",9000001,9000001.51,.01) "FIA",9000004) MEDICAID ELIGIBLE "FIA",9000004,0) ^AUPNMCD( "FIA",9000004,0,0) 9000004PI "FIA",9000004,0,1) y^y^p^^^^n "FIA",9000004,0,10) "FIA",9000004,0,11) "FIA",9000004,0,"RLRO") "FIA",9000004,0,"VR") 99.1^AUPN "FIA",9000004,9000004) 1 "FIA",9000004,9000004,.03) "FIA",9000010) VISIT "FIA",9000010,0) ^AUPNVSIT( "FIA",9000010,0,0) 9000010sID "FIA",9000010,0,1) y^y^p^^^^n "FIA",9000010,0,10) "FIA",9000010,0,11) "FIA",9000010,0,"RLRO") "FIA",9000010,0,"VR") 99.1^AUPN "FIA",9000010,9000010) 1 "FIA",9000010,9000010,.13) "FIA",9000010,9000010,.18) "FIA",9000010,9000010,.22) "FIA",9000010,9000010,.26) "FIA",9000010,9000010,1103) "FIA",9000010,9000010,1104) "FIA",9000010,9000010,1211) "FIA",9000010,9000010,1301) "FIA",9000010,9000010,1302) "FIA",9000010,9000010,1303) "FIA",9000010,9000010,1304) "FIA",9000010,9000010,1305) "FIA",9000010,9000010,1306) "FIA",9000010,9000010,1307) "FIA",9000010,9000010,1308) "FIA",9000010,9000010,1309) "FIA",9000010,9000010,1310) "FIA",9000010,9000010,1311) "FIA",9000010,9000010,1312) "FIA",9000010,9000010,1313) "FIA",9000010,9000010,1314) "FIA",9000010,9000010,1401) "FIA",9000010.01) V MEASUREMENT "FIA",9000010.01,0) ^AUPNVMSR( "FIA",9000010.01,0,0) 9000010.01AIP "FIA",9000010.01,0,1) y^y^p^^^^n "FIA",9000010.01,0,10) "FIA",9000010.01,0,11) "FIA",9000010.01,0,"RLRO") "FIA",9000010.01,0,"VR") 99.1^AUPN "FIA",9000010.01,9000010.01) 1 "FIA",9000010.01,9000010.01,.04) "FIA",9000010.02) V HOSPITALIZATION "FIA",9000010.02,0) ^AUPNVINP( "FIA",9000010.02,0,0) 9000010.02AID "FIA",9000010.02,0,1) y^y^p^^^^n "FIA",9000010.02,0,10) "FIA",9000010.02,0,11) "FIA",9000010.02,0,"RLRO") "FIA",9000010.02,0,"VR") 99.1^AUPN "FIA",9000010.02,9000010.02) 1 "FIA",9000010.02,9000010.02,6101) "FIA",9000010.02,9000010.02,6102) "FIA",9000010.02,9000010.02,6103) "FIA",9000010.07) V POV "FIA",9000010.07,0) ^AUPNVPOV( "FIA",9000010.07,0,0) 9000010.07AIP "FIA",9000010.07,0,1) y^y^p^^^^n "FIA",9000010.07,0,10) "FIA",9000010.07,0,11) "FIA",9000010.07,0,"RLRO") "FIA",9000010.07,0,"VR") 99.1^AUPN "FIA",9000010.07,9000010.07) 1 "FIA",9000010.07,9000010.07,.01) "FIA",9000010.07,9000010.07,.18) "FIA",9000010.07,9000010.07,.19) "FIA",9000010.07,9000010.07,1501) "FIA",9000010.08) V PROCEDURE "FIA",9000010.08,0) ^AUPNVPRC( "FIA",9000010.08,0,0) 9000010.08AIP "FIA",9000010.08,0,1) y^y^p^^^^n "FIA",9000010.08,0,10) "FIA",9000010.08,0,11) "FIA",9000010.08,0,"RLRO") "FIA",9000010.08,0,"VR") 99.1^AUPN "FIA",9000010.08,9000010.08) 1 "FIA",9000010.08,9000010.08,.17) "FIA",9000010.08,9000010.08,.18) "FIA",9000010.08,9000010.08,1501) "FIA",9000010.09) V LAB "FIA",9000010.09,0) ^AUPNVLAB( "FIA",9000010.09,0,0) 9000010.09API "FIA",9000010.09,0,1) y^y^p^^^^n "FIA",9000010.09,0,10) "FIA",9000010.09,0,11) "FIA",9000010.09,0,"RLRO") "FIA",9000010.09,0,"VR") 99.1^AUPN "FIA",9000010.09,9000010.09) 1 "FIA",9000010.09,9000010.09,.06) "FIA",9000010.09,9000010.09,1112) "FIA",9000010.09,9000010.09,1501) "FIA",9000010.11) V IMMUNIZATION "FIA",9000010.11,0) ^AUPNVIMM( "FIA",9000010.11,0,0) 9000010.11AIP "FIA",9000010.11,0,1) y^y^p^^^^n "FIA",9000010.11,0,10) "FIA",9000010.11,0,11) "FIA",9000010.11,0,"RLRO") "FIA",9000010.11,0,"VR") 99.1^AUPN "FIA",9000010.11,9000010.11) 1 "FIA",9000010.11,9000010.11,.05) "FIA",9000010.14) V MEDICATION "FIA",9000010.14,0) ^AUPNVMED( "FIA",9000010.14,0,0) 9000010.14API "FIA",9000010.14,0,1) y^y^p^^^^n "FIA",9000010.14,0,10) "FIA",9000010.14,0,11) "FIA",9000010.14,0,"RLRO") "FIA",9000010.14,0,"VR") 99.1^AUPN "FIA",9000010.14,9000010.14) 1 "FIA",9000010.14,9000010.14,1103) "FIA",9000010.14,9000010.14,1201) "FIA",9000010.14,9000010.14,1501) "FIA",9000010.16) V PATIENT ED "FIA",9000010.16,0) ^AUPNVPED( "FIA",9000010.16,0,0) 9000010.16AIP "FIA",9000010.16,0,1) y^y^p^^^^n "FIA",9000010.16,0,10) "FIA",9000010.16,0,11) "FIA",9000010.16,0,"RLRO") "FIA",9000010.16,0,"VR") 99.1^AUPN "FIA",9000010.16,9000010.16) 1 "FIA",9000010.16,9000010.16,.01) "FIA",9000010.16,9000010.16,.04) "FIA",9000010.16,9000010.16,.041) "FIA",9000010.16,9000010.16,.06) "FIA",9000010.16,9000010.16,.07) "FIA",9000010.16,9000010.16,.08) "FIA",9000010.16,9000010.16,.09) "FIA",9000010.16,9000010.16,.11) "FIA",9000010.16,9000010.16,.12) "FIA",9000010.16,9000010.16,1101) "FIA",9000010.18) V CPT "FIA",9000010.18,0) ^AUPNVCPT( "FIA",9000010.18,0,0) 9000010.18AIP "FIA",9000010.18,0,1) y^y^p^^^^n "FIA",9000010.18,0,10) "FIA",9000010.18,0,11) "FIA",9000010.18,0,"RLRO") "FIA",9000010.18,0,"VR") 99.1^AUPN "FIA",9000010.18,9000010.18) 1 "FIA",9000010.18,9000010.18,.01) "FIA",9000010.22) V RADIOLOGY "FIA",9000010.22,0) ^AUPNVRAD( "FIA",9000010.22,0,0) 9000010.22AIP "FIA",9000010.22,0,1) y^y^p^^^^n "FIA",9000010.22,0,10) "FIA",9000010.22,0,11) "FIA",9000010.22,0,"RLRO") "FIA",9000010.22,0,"VR") 99.1^AUPN "FIA",9000010.22,9000010.22) 1 "FIA",9000010.22,9000010.22,.07) "FIA",9000010.22,9000010.22,.08) "FIA",9000010.22,9000010.22,1501) "FIA",9000010.24) V PATHOLOGY "FIA",9000010.24,0) ^AUPNVPTH( "FIA",9000010.24,0,0) 9000010.24AIS "FIA",9000010.24,0,1) y^y^p^^^^n "FIA",9000010.24,0,10) "FIA",9000010.24,0,11) "FIA",9000010.24,0,"RLRO") "FIA",9000010.24,0,"VR") 99.1^AUPN "FIA",9000010.24,9000010.24) 1 "FIA",9000010.24,9000010.24,.01) "FIA",9000010.24,9000010.24,.04) "FIA",9000010.33) V TRANSACTION CODES "FIA",9000010.33,0) ^AUPNVTC( "FIA",9000010.33,0,0) 9000010.33AIP "FIA",9000010.33,0,1) y^y^f^^^^n "FIA",9000010.33,0,10) "FIA",9000010.33,0,11) "FIA",9000010.33,0,"RLRO") "FIA",9000010.33,0,"VR") 99.1^AUPN "FIA",9000010.33,9000010.33) 0 "FIA",9000010.34) V NARRATIVE TEXT "FIA",9000010.34,0) ^AUPNVNT( "FIA",9000010.34,0,0) 9000010.34AIP "FIA",9000010.34,0,1) y^y^p^^^^n "FIA",9000010.34,0,10) "FIA",9000010.34,0,11) "FIA",9000010.34,0,"RLRO") "FIA",9000010.34,0,"VR") 99.1^AUPN "FIA",9000010.34,9000010.34) 1 "FIA",9000010.34,9000010.34,.01) "FIA",9000010.35) V ELDER CARE "FIA",9000010.35,0) ^AUPNVELD( "FIA",9000010.35,0,0) 9000010.35AI "FIA",9000010.35,0,1) y^y^f^^^^n "FIA",9000010.35,0,10) "FIA",9000010.35,0,11) "FIA",9000010.35,0,"RLRO") "FIA",9000010.35,0,"VR") 99.1^AUPN "FIA",9000010.35,9000010.35) 0 "FIA",9000010.38) V UNHF "FIA",9000010.38,0) ^AUPNVUNH( "FIA",9000010.38,0,0) 9000010.38AIP "FIA",9000010.38,0,1) y^y^f^^^^n "FIA",9000010.38,0,10) "FIA",9000010.38,0,11) "FIA",9000010.38,0,"RLRO") "FIA",9000010.38,0,"VR") 99.1^AUPN "FIA",9000010.38,9000010.38) 0 "FIA",9000010.39) V TREATMENT CONTRACT "FIA",9000010.39,0) ^AUPNVTXC( "FIA",9000010.39,0,0) 9000010.39AIS "FIA",9000010.39,0,1) y^y^f^^^^n "FIA",9000010.39,0,10) "FIA",9000010.39,0,11) "FIA",9000010.39,0,"RLRO") "FIA",9000010.39,0,"VR") 99.1^AUPN "FIA",9000010.39,9000010.39) 0 "FIA",9000010.41) V ASTHMA "FIA",9000010.41,0) ^AUPNVAST( "FIA",9000010.41,0,0) 9000010.41AI "FIA",9000010.41,0,1) y^y^f^^^^n "FIA",9000010.41,0,10) "FIA",9000010.41,0,11) "FIA",9000010.41,0,"RLRO") "FIA",9000010.41,0,"VR") 99.1^AUPN "FIA",9000010.41,9000010.41) 0 "FIA",9000011) PROBLEM "FIA",9000011,0) ^AUPNPROB( "FIA",9000011,0,0) 9000011AIP "FIA",9000011,0,1) y^y^p^^^^n "FIA",9000011,0,10) "FIA",9000011,0,11) "FIA",9000011,0,"RLRO") "FIA",9000011,0,"VR") 99.1^AUPN "FIA",9000011,9000011) 1 "FIA",9000011,9000011,.01) "FIA",9000011,9000011,.07) "FIA",9000021) IHS HL7 SUPPLY INTERFACE "FIA",9000021,0) ^AUPNSUP( "FIA",9000021,0,0) 9000021AI "FIA",9000021,0,1) y^y^f^^^^n "FIA",9000021,0,10) "FIA",9000021,0,11) "FIA",9000021,0,"RLRO") "FIA",9000021,0,"VR") 99.1^AUPN "FIA",9000021,9000021) 0 "FIA",9000022) PATIENT REFUSALS FOR SERVICE/NMI "FIA",9000022,0) ^AUPNPREF( "FIA",9000022,0,0) 9000022AIP "FIA",9000022,0,1) y^y^f^^^^n "FIA",9000022,0,10) "FIA",9000022,0,11) "FIA",9000022,0,"RLRO") "FIA",9000022,0,"VR") 99.1^AUPN "FIA",9000022,9000022) 0 "FIA",9000023) ELDER CARE "FIA",9000023,0) ^AUPNELDC( "FIA",9000023,0,0) 9000023AIP "FIA",9000023,0,1) y^y^f^^^^n "FIA",9000023,0,10) "FIA",9000023,0,11) "FIA",9000023,0,"RLRO") "FIA",9000023,0,"VR") 99.1^AUPN "FIA",9000023,9000023) 0 "FIA",9000024) BIRTH MEASUREMENT "FIA",9000024,0) ^AUPNBMSR( "FIA",9000024,0,0) 9000024A "FIA",9000024,0,1) y^y^f^^^^n "FIA",9000024,0,10) "FIA",9000024,0,11) "FIA",9000024,0,"RLRO") "FIA",9000024,0,"VR") 99.1^AUPN "FIA",9000024,9000024) 0 "FIA",9000025) HEALTH REMINDER OVERRIDE "FIA",9000025,0) ^AUPNHMRO( "FIA",9000025,0,0) 9000025AP "FIA",9000025,0,1) y^y^f^^^^n "FIA",9000025,0,10) "FIA",9000025,0,11) "FIA",9000025,0,"RLRO") "FIA",9000025,0,"VR") 99.1^AUPN "FIA",9000025,9000025) 0 "INI") PRE^AUPN99P6 "PKG",12,-1) 1^1 "PKG",12,0) IHS DICTIONARIES (PATIENT)^AUPN^IHS PATIENT DICTIONARIES. "PKG",12,20,0) ^9.402P^^ "PKG",12,22,0) ^9.49I^1^1 "PKG",12,22,1,0) 99.1^2990309^2990412 "PKG",12,22,1,"PAH",1,0) 6^3010703 "PKG",12,22,1,"PAH",1,1,0) ^^124^124^3010703 "PKG",12,22,1,"PAH",1,1,1,0) INSTALLATION NOTES FOR DICTIONARIES (PATIENT) PATCH 6 =========== "PKG",12,22,1,"PAH",1,1,2,0) ================================================================= "PKG",12,22,1,"PAH",1,1,3,0) PREFIX: AUPN - IHS DICTIONARIES (PATIENT) "PKG",12,22,1,"PAH",1,1,4,0) CURRENT VERSION: 99.1 PATCH *6 PRIORITY: MANDATORY "PKG",12,22,1,"PAH",1,1,5,0) ================================================================= "PKG",12,22,1,"PAH",1,1,6,0) "PKG",12,22,1,"PAH",1,1,7,0) ****** NOTE ***** NOTE **** NOTE **** NOTE **** NOTE **** NOTE **** "PKG",12,22,1,"PAH",1,1,8,0) ******************************************************************* "PKG",12,22,1,"PAH",1,1,9,0) *READ THE ENTIRE NOTES FILE PRIOR TO ATTEMPTING ANY INSTALLATION !* "PKG",12,22,1,"PAH",1,1,10,0) ******************************************************************* "PKG",12,22,1,"PAH",1,1,11,0) ****** NOTE ***** NOTE **** NOTE **** NOTE **** NOTE **** NOTE **** "PKG",12,22,1,"PAH",1,1,12,0) "PKG",12,22,1,"PAH",1,1,13,0) "PKG",12,22,1,"PAH",1,1,14,0) 1. GENERAL INFORMATION "PKG",12,22,1,"PAH",1,1,15,0) "PKG",12,22,1,"PAH",1,1,16,0) a) Print all notes/readme files. "PKG",12,22,1,"PAH",1,1,17,0) "PKG",12,22,1,"PAH",1,1,18,0) b) It is recommended that the terminal output during the "PKG",12,22,1,"PAH",1,1,19,0) installation be captured using an auxport printer "PKG",12,22,1,"PAH",1,1,20,0) attached to the terminal at which you are performing "PKG",12,22,1,"PAH",1,1,21,0) the software installation. This will insure a printed "PKG",12,22,1,"PAH",1,1,22,0) audit trail if any problems should arise. "PKG",12,22,1,"PAH",1,1,23,0) "PKG",12,22,1,"PAH",1,1,24,0) c) This patch includes patches 1 - 6 and does the following: "PKG",12,22,1,"PAH",1,1,25,0) 1. Removed a screen on the Medicaid Eligible Plan Name field. *1 "PKG",12,22,1,"PAH",1,1,26,0) 2. Distributes the V LAB dictionary in order to expand the "PKG",12,22,1,"PAH",1,1,27,0) Accession Number field to 16 characters. *1 "PKG",12,22,1,"PAH",1,1,28,0) 3. Modifies the AUPNVMSR routine to allow a Vision value of HM. *1 "PKG",12,22,1,"PAH",1,1,29,0) 4. Modifies the $$DOB^AUPNPAT entry point to always pass back a "PKG",12,22,1,"PAH",1,1,30,0) 4 digit year. (AUPNPAT3) *2 "PKG",12,22,1,"PAH",1,1,31,0) 5. Modifies the AUPNLK1I routine to always assume past dates on "PKG",12,22,1,"PAH",1,1,32,0) a DOB input in the patient lookup. *2 "PKG",12,22,1,"PAH",1,1,33,0) 6. Adds an "E" to the %DT set in 3 fields. *2 "PKG",12,22,1,"PAH",1,1,34,0) 7. Adds the following fields to the Patient Dictionary: *3 "PKG",12,22,1,"PAH",1,1,35,0) .33 USER UPDATING PRIM CARE PROV "PKG",12,22,1,"PAH",1,1,36,0) .34 DATE PRIM CARE PROV UPDATED "PKG",12,22,1,"PAH",1,1,37,0) .35 NUMBER IN HOUSEHOLD "PKG",12,22,1,"PAH",1,1,38,0) .36 TOTAL HOUSEHOLD INCOME "PKG",12,22,1,"PAH",1,1,39,0) 8. Adds 2 triggers to the PRIMARY CARE PROVIDER field of the "PKG",12,22,1,"PAH",1,1,40,0) PATIENT File to trigger the .33/.34 fields. *3 "PKG",12,22,1,"PAH",1,1,41,0) 9. Adds field 1211 to the Visit file (External Acct No.) *3 "PKG",12,22,1,"PAH",1,1,42,0) 10. Updates the Admission Source, Admission Type-UB92, and "PKG",12,22,1,"PAH",1,1,43,0) Discharge Type-UB92 fields in V Hospitalization. *3 "PKG",12,22,1,"PAH",1,1,44,0) 11. Adds CPT MODIFIER and CPT MODIFIER 2 fields to V PROCEDURE. *3 "PKG",12,22,1,"PAH",1,1,45,0) 12. Adds DATE PASSED TO EXTERNAL TO V LAB, V RADIOLOGY and "PKG",12,22,1,"PAH",1,1,46,0) V MEDICATION. *3 "PKG",12,22,1,"PAH",1,1,47,0) 13. Adds V ELDER CARE dictionary *3 "PKG",12,22,1,"PAH",1,1,48,0) 14. Adds IHS HL7 SUPPLY INTERFACE dictionary. *3 "PKG",12,22,1,"PAH",1,1,49,0) 15. Adds PT REFUSAL FOR SERVICE dictionary. *3 "PKG",12,22,1,"PAH",1,1,50,0) 16. Adds BIRTH MEASUREMENT dictionary. *3 "PKG",12,22,1,"PAH",1,1,51,0) 17. Modifies the previous community multiple to do a $G instead of "PKG",12,22,1,"PAH",1,1,52,0) $D *4 "PKG",12,22,1,"PAH",1,1,53,0) 18. Adds VCN, EXTERNAL ACCT NO., CHIEF COMPLAINT to the VISIT file "PKG",12,22,1,"PAH",1,1,54,0) *4 "PKG",12,22,1,"PAH",1,1,55,0) 19. Adds field 1501 (date passed to external) to V POV, V PROCEDURE, "PKG",12,22,1,"PAH",1,1,56,0) V LAB, V MEDICATION, V RADIOLOGY. *4 "PKG",12,22,1,"PAH",1,1,57,0) 20. Adds CPT Modifier fields to V RADIOLOGY. *4 "PKG",12,22,1,"PAH",1,1,58,0) 21. Modifies input transform for TMP entry. *4 "PKG",12,22,1,"PAH",1,1,59,0) 22. Adds VCN function call to AUPNVSIT. *4 "PKG",12,22,1,"PAH",1,1,60,0) 23. Fixes PIN function call in AUPNPAT2. *4 "PKG",12,22,1,"PAH",1,1,61,0) 24. Adds visit unique ID field to visit file. *5 "PKG",12,22,1,"PAH",1,1,62,0) 25. Adds Ecode2 and Ecode3 fields to V POV. *5 "PKG",12,22,1,"PAH",1,1,63,0) 26. Adds CPT Modifier pointer to V Transaction Code file. *5 "PKG",12,22,1,"PAH",1,1,64,0) 27. Fixes set of codes on 4 fields in V Elder Care file. *5 "PKG",12,22,1,"PAH",1,1,65,0) 28. Adds Health Reminder Override File (9000022). *5 "PKG",12,22,1,"PAH",1,1,66,0) 29. Fixes patient lookup for fileman 22 (AUPNLK, AUPNLKI) *5 "PKG",12,22,1,"PAH",1,1,67,0) 30. Adds security check (MAS 5.0)(AUPNLK) *5 "PKG",12,22,1,"PAH",1,1,68,0) 31. Adds several fields (1301-1314) to the Visit file for a future "PKG",12,22,1,"PAH",1,1,69,0) project. *5 "PKG",12,22,1,"PAH",1,1,70,0) 32. Adds V UNHF per ANMC to capture hearing exam. *5 "PKG",12,22,1,"PAH",1,1,71,0) 33. Adds V Treatment Contract per ANMC and for future use. *5 "PKG",12,22,1,"PAH",1,1,72,0) 34. Sends out an updated V PATIENT EDUCATION dd for new patient "PKG",12,22,1,"PAH",1,1,73,0) education "PKG",12,22,1,"PAH",1,1,74,0) entry. *5 "PKG",12,22,1,"PAH",1,1,75,0) 35. Adds an AE index to the Medicaid Eligible Medicaid Number field "PKG",12,22,1,"PAH",1,1,76,0) and "PKG",12,22,1,"PAH",1,1,77,0) reindexes it. *5 "PKG",12,22,1,"PAH",1,1,78,0) 36. Adds .37 to Patient File - Reason Primary Provider updated *6 "PKG",12,22,1,"PAH",1,1,79,0) 37. Adds .38 to Patient File - Envoy Eligibility date *6 "PKG",12,22,1,"PAH",1,1,80,0) 38. Adds .39 to Patient File - Send to Registry per Portland Area "PKG",12,22,1,"PAH",1,1,81,0) *6 "PKG",12,22,1,"PAH",1,1,82,0) 39. Adds 1701-1710 to Patient File at the request of South Central "PKG",12,22,1,"PAH",1,1,83,0) Foundation *6 "PKG",12,22,1,"PAH",1,1,84,0) 40. Adds ABAT xref to .01 of V POV for Asthma Tracking *6 "PKG",12,22,1,"PAH",1,1,85,0) 41. Adds ABAT xref to .01 of PROBLEM for Asthma Tracking *6 "PKG",12,22,1,"PAH",1,1,86,0) 42. Modifies input transform on .01 of V CPT to override *6 "PKG",12,22,1,"PAH",1,1,87,0) 43. Removes AQ xref from V PATHOLOGY *6 "PKG",12,22,1,"PAH",1,1,88,0) 44. Removes AQ xref from V NARRATIVE TEXT *6 "PKG",12,22,1,"PAH",1,1,89,0) 45. Adds V ASTHMA (9000010.41) for Asthma Tracking *6 "PKG",12,22,1,"PAH",1,1,90,0) 46. Fixes lookup in AUPNLK *6 "PKG",12,22,1,"PAH",1,1,91,0) 47. Adds Pain Measurement to AUPNVMS2 and AUPNVMSR *6 "PKG",12,22,1,"PAH",1,1,92,0) 48. Modifies AUPNPCTR which sets the Current Community values, per "PKG",12,22,1,"PAH",1,1,93,0) the "PKG",12,22,1,"PAH",1,1,94,0) Patient Reg workgroup. *6 "PKG",12,22,1,"PAH",1,1,95,0) "PKG",12,22,1,"PAH",1,1,96,0) "PKG",12,22,1,"PAH",1,1,97,0) 2. CONTENTS OF DISTRIBUTION "PKG",12,22,1,"PAH",1,1,98,0) "PKG",12,22,1,"PAH",1,1,99,0) a) aupn9910.06k - Patch Kids file "PKG",12,22,1,"PAH",1,1,100,0) "PKG",12,22,1,"PAH",1,1,101,0) b) aupn9910.06n - This Notes file "PKG",12,22,1,"PAH",1,1,102,0) "PKG",12,22,1,"PAH",1,1,103,0) "PKG",12,22,1,"PAH",1,1,104,0) 3. REQUIREMENTS "PKG",12,22,1,"PAH",1,1,105,0) "PKG",12,22,1,"PAH",1,1,106,0) a) Kernel v 8.0 or later "PKG",12,22,1,"PAH",1,1,107,0) b) FileMan v 21 "PKG",12,22,1,"PAH",1,1,108,0) c) AUT v98.1 through patch 7 (this is important!) "PKG",12,22,1,"PAH",1,1,109,0) "PKG",12,22,1,"PAH",1,1,110,0) 4. INSTALLATION INSTRUCTIONS "PKG",12,22,1,"PAH",1,1,111,0) "PKG",12,22,1,"PAH",1,1,112,0) In all UCI's running IHS PATIENT DICTIONARIES (PATIENT): "PKG",12,22,1,"PAH",1,1,113,0) "PKG",12,22,1,"PAH",1,1,114,0) a) This is a KIDS install. Load distribution aupn9910.06k. "PKG",12,22,1,"PAH",1,1,115,0) After it is loaded, then install it. If you need assistance "PKG",12,22,1,"PAH",1,1,116,0) With a KIDS install please call your Area Support personnel. "PKG",12,22,1,"PAH",1,1,117,0) b) If you have installed patch 5 run POST^AUPN99P5 "PKG",12,22,1,"PAH",1,1,118,0) "PKG",12,22,1,"PAH",1,1,119,0) "PKG",12,22,1,"PAH",1,1,120,0) 5. POINT OF CONTACT "PKG",12,22,1,"PAH",1,1,121,0) "PKG",12,22,1,"PAH",1,1,122,0) Lori Butcher "PKG",12,22,1,"PAH",1,1,123,0) Cimarron Medical Informatics "PKG",12,22,1,"PAH",1,1,124,0) 520-577-2146 "PRE") AUPN99P6 "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","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","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") 12 "RTN","AUPN99P5") 0^10^B224980 "RTN","AUPN99P5",1,0) AUPN99P5 ; IHS/CMI/LAB - AUPN 99.1 PATCH 5 [ 03/26/01 2:29 PM ] "RTN","AUPN99P5",2,0) ;;99.1;IHS DICTIONARIES (PATIENT);**5**;MAR 09, 1999 "RTN","AUPN99P5",3,0) ; "RTN","AUPN99P5",4,0) ; The following line prevents the "Disable Options..." and "Move "RTN","AUPN99P5",5,0) ; Routines..." questions from being asked during the install. "RTN","AUPN99P5",6,0) I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0 "RTN","AUPN99P5",7,0) Q "RTN","AUPN99P5",8,0) ; "RTN","AUPN99P5",9,0) POST ;EP "RTN","AUPN99P5",10,0) ;re-index new AE xref on Medicaid Eligible "RTN","AUPN99P5",11,0) NEW DIK "RTN","AUPN99P5",12,0) S DIK="^AUPNMCD(",DIK(1)=".03^AE" D ENALL^DIK "RTN","AUPN99P5",13,0) K DIK "RTN","AUPN99P5",14,0) Q "RTN","AUPN99P6") 0^12^B473341 "RTN","AUPN99P6",1,0) AUPN99P6 ; IHS/CMI/LAB - AUPN 99.1 PATCH 6 [ 07/03/01 3:46 PM ] "RTN","AUPN99P6",2,0) ;;99.1;IHS DICTIONARIES (PATIENT);**6**;MAR 09, 1999 "RTN","AUPN99P6",3,0) ; "RTN","AUPN99P6",4,0) ; The following line prevents the "Disable Options..." and "Move "RTN","AUPN99P6",5,0) ; Routines..." questions from being asked during the install. "RTN","AUPN99P6",6,0) I $G(XPDENV)=1 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0 "RTN","AUPN99P6",7,0) Q "RTN","AUPN99P6",8,0) ; "RTN","AUPN99P6",9,0) PRE ;EP "RTN","AUPN99P6",10,0) NEW DIK "RTN","AUPN99P6",11,0) S DIK="^DD(9000010.24,",DA=.01,DA(1)=9000010.24 D ^DIK "RTN","AUPN99P6",12,0) S DIK="^DD(9000010.24,",DA=.04,DA(1)=9000010.24 D ^DIK "RTN","AUPN99P6",13,0) S DIK="^DD(9000010.34,",DA=.01,DA(1)=9000010.34 D ^DIK "RTN","AUPN99P6",14,0) Q "RTN","AUPNLK") 0^7^B24461064 "RTN","AUPNLK",1,0) AUPNLK ; IHS/CMI/LAB - IHS PATIENT LOOKUP MAIN ROUTINE 24-MAY-1993 ; [ 04/27/01 9:43 AM ] "RTN","AUPNLK",2,0) ;;99.1;IHS DICTIONARIES (PATIENT);**5,6**;MAR 09, 1999 "RTN","AUPNLK",3,0) ;patch 5 - fm v22 "RTN","AUPNLK",4,0) ;'Modified' MAS Patient Look-up Routine for ADT Version 3.6, June 1987 "RTN","AUPNLK",5,0) ; This routine will not be executed if DIC(0)["I" or caller "RTN","AUPNLK",6,0) ; used IX^DIC. "RTN","AUPNLK",7,0) ; "RTN","AUPNLK",8,0) ; AUPQF values have the following meaning: "RTN","AUPNLK",9,0) ; 0 = Initial state "RTN","AUPNLK",10,0) ; 1 = Primary error "RTN","AUPNLK",11,0) ; 2 = Operator/time out "RTN","AUPNLK",12,0) ; 3 = Retry "RTN","AUPNLK",13,0) ; 4 = Hit "RTN","AUPNLK",14,0) ; 5 = Added patient "RTN","AUPNLK",15,0) ;;EP;ENTERNAL ENTRY POINT "RTN","AUPNLK",16,0) ; "RTN","AUPNLK",17,0) START ; "RTN","AUPNLK",18,0) D ^AUPNLKI ; Initialization "RTN","AUPNLK",19,0) I AUPQF D EOJ Q "RTN","AUPNLK",20,0) D FINDPAT ; Find patient "RTN","AUPNLK",21,0) D EOJ ; Cleanup "RTN","AUPNLK",22,0) S:'$D(X) X="" "RTN","AUPNLK",23,0) Q "RTN","AUPNLK",24,0) ; "RTN","AUPNLK",25,0) FINDPAT ; FIND PATIENT "RTN","AUPNLK",26,0) I DIC(0)'["A" S AUPX=X D CHKPAT D:AUPQF=4 HIT Q "RTN","AUPNLK",27,0) F AUPL=0:0 S AUPQF=0 D ASKPAT D CHKPAT D:AUPQF=4 HIT Q:AUPQF'=3 "RTN","AUPNLK",28,0) Q "RTN","AUPNLK",29,0) ; "RTN","AUPNLK",30,0) ASKPAT ; "RTN","AUPNLK",31,0) K AUPCNT,AUPD,AUPIDS,AUPIFN,AUPIFNS,AUPNDAYS,AUPNDOB,AUPNDOD,AUPNICK,AUPNPAT,AUPNSEX,AUPNUM,AUPS,AUPSEL,DTOUT,DUOUT "RTN","AUPNLK",32,0) S AUPX="" "RTN","AUPNLK",33,0) ;W !!,$S($D(DIC("A")):DIC("A"),1:"Select PATIENT NAME: ") I $D(DIC("B")),DIC("B")]"" W DIC("B"),"// " S AUPX=DIC("B") "RTN","AUPNLK",34,0) ;D EN^DDIOL($S($D(DIC("A")):DIC("A"),1:"Select PATIENT NAME: "),"","!!") I $D(DIC("B")),DIC("B")]"" D EN^DDIOL(DIC("B")_"// ") S AUPX=DIC("B") "RTN","AUPNLK",35,0) NEW DSPVAL S DSPVAL=$S($D(DIC("A")):DIC("A"),1:"Select PATIENT NAME: ") "RTN","AUPNLK",36,0) I $D(DIC("B")),DIC("B")]"" S AUPX=DIC("B"),DSPVAL=DSPVAL_DIC("B")_"//" "RTN","AUPNLK",37,0) D EN^DDIOL(DSPVAL) "RTN","AUPNLK",38,0) R X:DTIME S:X["^" DUOUT=1 S:'$T DTOUT=1,X="^" "RTN","AUPNLK",39,0) S:X]"" AUPX=X "RTN","AUPNLK",40,0) Q "RTN","AUPNLK",41,0) ; "RTN","AUPNLK",42,0) CHKPAT ; "RTN","AUPNLK",43,0) K AUPIFNS,AUPS,AUPSEL "RTN","AUPNLK",44,0) S AUPCNT=0 "RTN","AUPNLK",45,0) I AUPX=""!(AUPX["^") S AUPQF=2 Q "RTN","AUPNLK",46,0) I AUPX["?" D ^AUPNLKH S AUPQF=3 Q "RTN","AUPNLK",47,0) ;I AUPX?1A!(AUPX'?.ANP)!($L(AUPX)>30)!($E(AUPX)=",") W:DIC(0)["Q" *7," ??" S AUPQF=3 Q "RTN","AUPNLK",48,0) I AUPX?1A!(AUPX'?.ANP)!($L(AUPX)>30)!($E(AUPX)=",") D:DIC(0)["Q" S AUPQF=3 Q "RTN","AUPNLK",49,0) .NEW % S %=$C(7)_" ??" D EN^DDIOL(%) "RTN","AUPNLK",50,0) I '$D(DIADD),AUPX'?1"""".E1"""" D LOOKUPS^AUPNLKB ; Find patient "RTN","AUPNLK",51,0) Q:AUPQF ; Quit if patient found "RTN","AUPNLK",52,0) I DIC(0)["L" D ADDPAT^AUPNLKB ; Try adding the patient "RTN","AUPNLK",53,0) Q:AUPQF ; Quit if add successful "RTN","AUPNLK",54,0) ;W:DIC(0)["Q" *7," ??" "RTN","AUPNLK",55,0) I DIC(0)["Q" D EN^DDIOL($C(7)_" ??") "RTN","AUPNLK",56,0) S AUPQF=3 "RTN","AUPNLK",57,0) Q "RTN","AUPNLK",58,0) ; "RTN","AUPNLK",59,0) HIT ; "RTN","AUPNLK",60,0) I DIC(0)["E" D WRT "RTN","AUPNLK",61,0) Q:AUPQF'=4 "RTN","AUPNLK",62,0) I '$D(DICR),$T(SENS^DGSEC4)]"" S Y=+AUPDFN D ^DGSEC S AUPDFN=Y I Y<0 S AUPQF=3 Q ;IHS/ANMC/LJF 9/1/2000 "RTN","AUPNLK",63,0) S AUPX=$P(AUPS(AUPDFN),U,2),AUPDFN=AUPDFN_U_$P(AUPS(AUPDFN),U) "RTN","AUPNLK",64,0) N DA,X S DA=+AUPDFN X $P(^DD(2,.081,0),U,5,99) I X,DIC(0)["E" D DUPECHK "RTN","AUPNLK",65,0) Q "RTN","AUPNLK",66,0) ; "RTN","AUPNLK",67,0) WRT ; "RTN","AUPNLK",68,0) I $P(@(AUPDIC_"0)"),U,2)["O"!('$D(AUPSEL)&($D(AUPNICK(AUPDFN)))) D WRT2 "RTN","AUPNLK",69,0) Q:AUPQF'=4 "RTN","AUPNLK",70,0) I '$D(AUPSEL),'$D(AUPNICK(AUPDFN)),$P($P(AUPS(AUPDFN),U,2),AUPX)="" D EN^DDIOL($E($P(AUPS(AUPDFN),U,2),$L(AUPX)+1,$L($P(AUPS(AUPDFN),U,2)))) "RTN","AUPNLK",71,0) D EN^DDIOL($S($D(AUPSEL)!($P(AUPS(AUPDFN),U)'=$P(AUPS(AUPDFN),U,2)):" "_$P(AUPS(AUPDFN),U)_" ",1:" ")) "RTN","AUPNLK",72,0) S Y=+AUPDFN X:$D(^DPT(AUPDFN,0)) DIC("W") "RTN","AUPNLK",73,0) Q "RTN","AUPNLK",74,0) ; "RTN","AUPNLK",75,0) WRT2 ; "RTN","AUPNLK",76,0) D EN^DDIOL(" "_$P(^DPT(AUPDFN,0),U)),EN^DDIOL("OK","","!?8") "RTN","AUPNLK",77,0) S %=1 D YN^DICN "RTN","AUPNLK",78,0) S:%'=1 AUPQF=3,AUPDFN=-1 "RTN","AUPNLK",79,0) K %,%Y "RTN","AUPNLK",80,0) Q "RTN","AUPNLK",81,0) ; "RTN","AUPNLK",82,0) DUPECHK ; SELECTED PATIENT HAS UNRESOLVED DUPES "RTN","AUPNLK",83,0) I $D(^VA(15,"ALK","DPT(",+Y,2)) S AUPMT=$O(^(2,0)) D DUPECHK2 Q "RTN","AUPNLK",84,0) ; Code to inform user of potential duplicates would go here. "RTN","AUPNLK",85,0) Q "RTN","AUPNLK",86,0) ; "RTN","AUPNLK",87,0) DUPECHK2 ; VERIFIED DUPE "RTN","AUPNLK",88,0) D EN^DDIOL("The patient you have selected is a 'verified duplicate' of","","!?6") "RTN","AUPNLK",89,0) D EN^DDIOL($P(^DPT(AUPMT,0),U),"","!?12") S AUPSY=Y,Y=AUPMT D SET^AUPNLKZ X DIC("W") S Y=AUPSY D RESET^AUPNLKZ "RTN","AUPNLK",90,0) D EN^DDIOL("If you are adding data for this patient please reselect!","","!?6") "RTN","AUPNLK",91,0) K AUPMT,AUPSY "RTN","AUPNLK",92,0) Q "RTN","AUPNLK",93,0) ; "RTN","AUPNLK",94,0) EOJ ; "RTN","AUPNLK",95,0) K AUPNLK("ICN") "RTN","AUPNLK",96,0) I AUPQF=1 S Y=-1 K AUPQF,AUPDIC,DIC("W") Q "RTN","AUPNLK",97,0) I AUPQF=2!(AUPQF=3) S Y=-1,X=AUPX D KILL Q "RTN","AUPNLK",98,0) S Y=AUPDFN,X=AUPX "RTN","AUPNLK",99,0) D EOJ2 "RTN","AUPNLK",100,0) D KILL "RTN","AUPNLK",101,0) Q "RTN","AUPNLK",102,0) ; "RTN","AUPNLK",103,0) EOJ2 ; "RTN","AUPNLK",104,0) ; - FOLLOW MERGE CHAIN - "RTN","AUPNLK",105,0) S AUPSY=Y "RTN","AUPNLK",106,0) F AUPL=0:0 Q:'$P(^DPT(+Y,0),U,19) S Y=$P(^(0),U,19),Y=Y_U_$P(^DPT(Y,0),U,1) ; Will abort if no ^DPT entry for Y "RTN","AUPNLK",107,0) I DIC(0)["E",Y'=AUPSY D EN^DDIOL("You now have patient "_$P(^DPT(+Y,0),U),"","!?6") "RTN","AUPNLK",108,0) K AUPSY "RTN","AUPNLK",109,0) ; -- SPACE BAR AND Y(0) -- "RTN","AUPNLK",110,0) S:DIC(0)'["F" ^DISV($S($D(DUZ)#2:DUZ,1:0),"^DPT(")=+Y,^DISV($S($D(DUZ)#2:DUZ,1:0),"^AUPNPAT(")=+Y S:DIC(0)["Z" Y(0)=^DPT(+Y,0),Y(0,0)=$P(^(0),U,1) "RTN","AUPNLK",111,0) ; -- RESET Y AND Y(0) FOR 9000001 LOOKUP -- "RTN","AUPNLK",112,0) I AUPDIC="^AUPNPAT(" S $P(Y,U,2)=+Y I DIC(0)["Z" S Y(0)=^AUPNPAT(+Y,0) "RTN","AUPNLK",113,0) ; -- POST SELECTION -- "RTN","AUPNLK",114,0) X:$D(^DD(2,0,"ACT")) ^("ACT") X:$D(^DD(9000001,0,"ACT")) ^("ACT") "RTN","AUPNLK",115,0) ; -- SET NAKED -- "RTN","AUPNLK",116,0) S:$D(AUPDIC) DIC=AUPDIC I $D(@(DIC_"+Y,0)")) "RTN","AUPNLK",117,0) ; ----- - "RTN","AUPNLK",118,0) Q "RTN","AUPNLK",119,0) ; "RTN","AUPNLK",120,0) KILL ; "RTN","AUPNLK",121,0) ; - RESTORE DIC AND DIC("S") - "RTN","AUPNLK",122,0) S:$D(AUPDIC) DIC=AUPDIC "RTN","AUPNLK",123,0) ;K DIC("S","IHSORIG"),DIC("S","IHSLOOK") K:$D(DIC("S"))<10 DIC("S") S:$D(AUPDICS) DIC("S")=AUPDICS "RTN","AUPNLK",124,0) K AUPNORIG,AUPNLOOK K:$D(DIC("S"))<10 DIC("S") S:$D(AUPDICS) DIC("S")=AUPDICS ;IHS/ANMC/CLS 09/13/2000 fm v22 "RTN","AUPNLK",125,0) ; - - - "RTN","AUPNLK",126,0) K D,DIC("W"),DO "RTN","AUPNLK",127,0) D:$D(AUPNLK("ALL")) RESET^AUPNLKZ ; Undocumented feature "RTN","AUPNLK",128,0) S AUPX=$S($D(AUPNLK("ALL")):1,1:0) K AUPNLK S:AUPX AUPNLK("ALL")=1 "RTN","AUPNLK",129,0) K AUP,AUPBEG,AUPCNT,AUPDFN,AUPDIC,AUPDICS,AUPDICW,AUPI,AUPIFN,AUPIFNS,AUPIX,AUPL,AUPNICK,AUPNUM,AUPQF,AUPS,AUPSEL,AUPX,AUPLP1,AUPMAPY "RTN","AUPNLK",130,0) Q "RTN","AUPNLK1I") 0^3^B3604043 "RTN","AUPNLK1I",1,0) AUPNLK1I ; IHS/CMI/LAB - INITIALIZATION FOR ^AUPNLK1 ; [ 06/01/99 8:07 AM ] "RTN","AUPNLK1I",2,0) ;;99.1;IHS DICTIONARIES (PATIENT);**2**;MAR 09, 1999 "RTN","AUPNLK1I",3,0) ;IHS/CMI/LAB - patch 2 Y2K "RTN","AUPNLK1I",4,0) ; "RTN","AUPNLK1I",5,0) INIT ; INITIALIZATION - FIX UP AUPX AND SET UP XREFS "RTN","AUPNLK1I",6,0) I AUPX?.E1L.E F AUPI=1:1:$L(AUPX) S:$E(AUPX,AUPI)?1L AUPX=$E(AUPX,0,AUPI-1)_$C($A(AUPX,AUPI)-32)_$E(AUPX,AUPI+1,$L(AUPX)) "RTN","AUPNLK1I",7,0) I AUPX[", " F AUPL=0:0 Q:'$F(AUPX,", ") S AUPX=$E(AUPX,1,($F(AUPX,", ")-2))_$E(AUPX,$F(AUPX,", "),$L(AUPX)) "RTN","AUPNLK1I",8,0) K AUPREFS S AUPREFS=$S(DIC(0)'["M":"B",AUPX?1A1N.N:$S($L(AUPX)<6:"CN,RM",1:"CN,RM"),AUPX?4N!(AUPX?4N1A):"SSN,CN,RM",AUPX?9N.E:"SSN,CN,RM",1:"") "RTN","AUPNLK1I",9,0) S:AUPREFS="" AUPREFS=$S(AUPX?1N.N:$S($L(AUPX)<5:"CN,RM,BS,SSN",1:"CN,RM,SSN"),AUPX?1N.E:"CN,RM",1:"B,CN,RM") S:$D(AUPIX) AUPREFS=AUPIX_","_AUPREFS "RTN","AUPNLK1I",10,0) ; - - - - - IHS DOB - - - - - "RTN","AUPNLK1I",11,0) ;beginning Y2K IHS/CMI/LAB "RTN","AUPNLK1I",12,0) ;change "X" to %DT="PX", change allowable input from 6N to 8N "RTN","AUPNLK1I",13,0) ;I DIC(0)["M",AUPX'?1N.N S %DT="X",X=$S(AUPX?1"B"6N:$E(AUPX,2,7),1:AUPX) D ^%DT S:Y'=-1 AUPDT=Y,AUPREFS=AUPREFS_",ADOB" K %DT,Y ;Y2000 IHS/CMI/LAB "RTN","AUPNLK1I",14,0) I DIC(0)["M",AUPX'?1N.N S %DT="PX",X=$S(AUPX?1"B"8N:$E(AUPX,2,9),1:AUPX) D ^%DT S:Y'=-1 AUPDT=Y,AUPREFS=AUPREFS_",ADOB" K %DT,Y ;Y2000 IHS/CMI/LAB "RTN","AUPNLK1I",15,0) ;end Y2K fix "RTN","AUPNLK1I",16,0) ; - - - - - IHS TEMPORARY CHART # - - - - - "RTN","AUPNLK1I",17,0) I AUPX?1"T"5N,$D(^AUPNPAT("D",AUPX)) S (AUPIFN,Y)=$O(^AUPNPAT("D",AUPX,0)) D SETAUP^AUPNLKUT "RTN","AUPNLK1I",18,0) ; - - - - - - - - - - - - - - - - - - - - - "RTN","AUPNLK1I",19,0) Q "RTN","AUPNLKI") 0^8^B9227795 "RTN","AUPNLKI",1,0) AUPNLKI ; IHS/CMI/LAB - IHS PATIENT LOOKUP, MAIN ROUTINE INITIALIZATION ; [ 12/05/00 8:56 AM ] "RTN","AUPNLKI",2,0) ;;99.1;IHS DICTIONARIES (PATIENT);**5**;MAR 09, 1999 "RTN","AUPNLKI",3,0) ;patch 5 fm v22 "RTN","AUPNLKI",4,0) ; "RTN","AUPNLKI",5,0) START ; INITIALIZATION "RTN","AUPNLKI",6,0) S AUPQF=0,AUPDIC=DIC "RTN","AUPNLKI",7,0) K AUPX,AUPDFN "RTN","AUPNLKI",8,0) ; "RTN","AUPNLKI",9,0) I '$D(DIC(0)) S AUPQF=1 Q "RTN","AUPNLKI",10,0) I DIC(0)'["A"&('$D(X)) S AUPQF=1 Q "RTN","AUPNLKI",11,0) I '$D(^DD("VERSION")) D:DIC(0)["E" EN^DDIOL("Unable to proceed. Fileman version node ^DD(""VERSION"") is undefined.","","!!?3") S AUPQF=1 Q "RTN","AUPNLKI",12,0) I ^DD("VERSION")<17.2 D:DIC(0)["E" EN^DDIOL("Unable to proceed. Fileman version must be at least 17.2.","","!!?3") S AUPQF=1 Q "RTN","AUPNLKI",13,0) I '$D(^DPT(0)) D:DIC(0)["E" EN^DDIOL("Unable to proceed. 0th node of ^DPT missing.","","!!?3") S AUPQF=1 Q "RTN","AUPNLKI",14,0) I '$D(^AUPNPAT(0)) D:DIC(0)["E" EN^DDIOL("Unable to proceed. 0th node of ^AUPNPAT missing.","","!!?3") S AUPQF=1 Q "RTN","AUPNLKI",15,0) I '$D(DUZ(2)) D:DIC(0)["E" EN^DDIOL("Unable to proceed. DUZ(2) is undefined.","","!!?3") S AUPQF=1 Q "RTN","AUPNLKI",16,0) I DUZ(2)="" D:DIC(0)["E" EN^DDIOL("Unable to proceed. DUZ(2) is NULL.","","!!?3") S AUPQF=1 Q "RTN","AUPNLKI",17,0) I DUZ(2),'$D(^DIC(4,DUZ(2))) D:DIC(0)["E" EN^DDIOL("Unable to proceed. DUZ(2) is not a valid Location.","","!!?3") S AUPQF=1 Q "RTN","AUPNLKI",18,0) D:$D(AUPNLK("ALL")) SET^AUPNLKZ ; Undocumented feature "RTN","AUPNLKI",19,0) ; "RTN","AUPNLKI",20,0) ; - - - - - CHART # SCREEN - - - - - "RTN","AUPNLKI",21,0) S:$D(DIC("S"))#2 AUPDICS=DIC("S") "RTN","AUPNLKI",22,0) I DUZ(2) D SETDICS "RTN","AUPNLKI",23,0) ; - - - - - SETUP DIC("W") - - - - - "RTN","AUPNLKI",24,0) ; ** AUPNLKW overrides identifiers. Must be set & killed by caller ** "RTN","AUPNLKI",25,0) K DUOUT,DTOUT S DIC="^DPT(" D DO^DIC1 S DIC("W")=$S($D(DIC("W")):DIC("W"),1:"") S:DIC("W")="W "" "" D ^AUPNLKID"!(DIC("W")="") DIC("W")=$S($D(AUPNLKW):AUPNLKW,1:"D ^AUPNLKID") "RTN","AUPNLKI",26,0) K AUPNLK("DICW") "RTN","AUPNLKI",27,0) S:$L(DIC("W"))>110 AUPNLK("DICW")=DIC("W") "RTN","AUPNLKI",28,0) S DIC("W")="D IHSDUPE^AUPNLKID "_$S($D(AUPNLK("DICW")):"X AUPNLK(""DICW"")",1:DIC("W")) "RTN","AUPNLKI",29,0) S DIC("W")=DIC("W")_" N DA,X S DA=Y X $P(^DD(2,.081,0),U,5,99) D:X EN^DDIOL("""","""",""!?10"") W @(""$E(""_DIC_""Y,0),0)"")" "RTN","AUPNLKI",30,0) S DIC("W")=DIC("W")_" I $D(AUPMAPY) S Y=AUPMAPY K AUPMAPY" "RTN","AUPNLKI",31,0) S AUPDICW=DIC("W") "RTN","AUPNLKI",32,0) Q "RTN","AUPNLKI",33,0) ; "RTN","AUPNLKI",34,0) SETDICS ;SET DIC("S") NODES "RTN","AUPNLKI",35,0) ;S DIC("S","IHSORIG")=$S($D(DIC("S")):DIC("S"),1:"I 1") "RTN","AUPNLKI",36,0) S AUPNORIG=$S($D(DIC("S")):DIC("S"),1:"I 1") ;IHS/ANMC/CLS 09/13/2000 fm v22 "RTN","AUPNLKI",37,0) ;S DIC("S","IHSLOOK")="I $D(^AUPNPAT(Y,41,DUZ(2),0))"_$S('$D(AUPNLK("INAC")):","_"$P(^(0),U,3)=""""",1:""),DIC("S")="X DIC(""S"",""IHSORIG"") I $T X DIC(""S"",""IHSLOOK"")" "RTN","AUPNLKI",38,0) S AUPNLOOK="I $D(^AUPNPAT(Y,41,DUZ(2),0))"_$S('$D(AUPNLK("INAC")):","_"$P(^(0),U,3)=""""",1:""),DIC("S")="X AUPNORIG I $T X AUPNLOOK" ;IHS/ANMC/CLS 09/13/2000 fm v22 "RTN","AUPNLKI",39,0) Q "RTN","AUPNLKID") 0^9^B9396888 "RTN","AUPNLKID",1,0) AUPNLKID ; IHS/CMI/LAB - IHS IDENTIFIERS FOR FILE 2 ; [ 03/23/01 2:19 PM ] "RTN","AUPNLKID",2,0) ;;99.1;IHS DICTIONARIES (PATIENT);**5**;MAR 09, 1999 "RTN","AUPNLKID",3,0) ; "RTN","AUPNLKID",4,0) START ; EXTERNAL ENTRY POINT - "RTN","AUPNLKID",5,0) ;W:$X>45 ! "RTN","AUPNLKID",6,0) ;beginning Y2K - display 4 digit year identifier "RTN","AUPNLKID",7,0) ;D:$X>45 EN^DDIOL("","","!") ;Y2000 commented out for 4 digit display of DOB "RTN","AUPNLKID",8,0) D:$X>43 EN^DDIOL("","","!") ;Y2000 "RTN","AUPNLKID",9,0) ; VALUE OF THE NAKED INDICATOR TO BE PROVIDED BY CALLING ROUTINE "RTN","AUPNLKID",10,0) ;I $D(DIQUIET) S ^TMP("DILIST",$J,"IHS",DICOUNT)=$P(^(0),U,2)_" "_$E($P(^(0),U,3),4,5)_"-"_$E($P(^(0),U,3),6,7)_"-"_$E($P(^(0),U,3),2,3)_" "_$J($P(^(0),U,9),9) ;IHS/ANMC/LJF 8/7/97 added for Kernel Broker calls-see ^XWBFM ;Y2000 "RTN","AUPNLKID",11,0) I $D(DIQUIET) S ^TMP("DILIST",$J,"IHS",DICOUNT)=$P(^(0),U,2)_" "_$E($P(^(0),U,3),4,5)_"-"_$E($P(^(0),U,3),6,7)_"-"_(1700+$E($P(^(0),U,3),1,3))_" "_$J($P(^(0),U,9),9) ;Y2000 "RTN","AUPNLKID",12,0) ;K AUPNA I '$D(DIQUIET) NEW % S %=$P(^(0),U,2)_" "_$E($P(^(0),U,3),4,5)_"-"_$E($P(^(0),U,3),6,7)_"-"_$E($P(^(0),U,3),2,3)_" "_$J($P(^(0),U,9),9) S AUPNA(1)=%,AUPNA(1,"F")="?45" ;Y2000 commented out and replaced with line below "RTN","AUPNLKID",13,0) K AUPNA I '$D(DIQUIET) NEW % S %=$P(^(0),U,2)_" "_$E($P(^(0),U,3),4,5)_"-"_$E($P(^(0),U,3),6,7)_"-"_(1700+$E($P(^(0),U,3),1,3))_" "_$J($P(^(0),U,9),9) S AUPNA(1)=%,AUPNA(1,"F")="?43" ;Y2000 - display 4 digit year "RTN","AUPNLKID",14,0) ;end Y2K for display of 4 digit DOB "RTN","AUPNLKID",15,0) I '$D(DIQUIET) S AUPNA(1)=$$CWAD(Y)_AUPNA(1),AUPNA(1,"F")="?37" "RTN","AUPNLKID",16,0) I $D(DUZ(2))#2,DUZ(2),'$D(DIQUIET) I $D(^AUPNPAT(Y,41,DUZ(2),0)) NEW % S %=" "_$J($P(^AUTTLOC(DUZ(2),0),U,7),4)_" "_$P(^AUPNPAT(Y,41,DUZ(2),0),U,2) S AUPNA(1)=AUPNA(1)_" "_% "RTN","AUPNLKID",17,0) I $D(DUZ(2))#2,'DUZ(2),$D(^AUPNPAT(Y,41)) D CHARTS "RTN","AUPNLKID",18,0) S:$D(DDS) DDSID=1 D EN^DDIOL(.AUPNA) K AUPNA,DDSID "RTN","AUPNLKID",19,0) W @("$E("_DIC_"Y,0),0)") ; reset the naked "RTN","AUPNLKID",20,0) Q "RTN","AUPNLKID",21,0) ; "RTN","AUPNLKID",22,0) CHARTS ; "RTN","AUPNLKID",23,0) S AUPNLKF=0 "RTN","AUPNLKID",24,0) NEW C S C=1 F AUPNLKI=0:1 S AUPNLKF=$O(^AUPNPAT(Y,41,AUPNLKF)) Q:AUPNLKF'=+AUPNLKF D "RTN","AUPNLKID",25,0) .I AUPNLKI S C=C+1 "RTN","AUPNLKID",26,0) .;beginning Y2K display 4 digit DOB spacing "RTN","AUPNLKID",27,0) .;NEW % S %=" "_$J($P(^AUTTLOC(AUPNLKF,0),U,7),4)_" "_$P(^AUPNPAT(Y,41,AUPNLKF,0),U,2)_$S($P(^(0),U,3)="":"",1:"("_$P(^(0),U,5)_")");Y2000 commented out for 4 digit year display "RTN","AUPNLKID",28,0) .NEW % S %=$J($P(^AUTTLOC(AUPNLKF,0),U,7),4)_" "_$P(^AUPNPAT(Y,41,AUPNLKF,0),U,2)_$S($P(^(0),U,3)="":"",1:"("_$P(^(0),U,5)_")") ;Y2000 "RTN","AUPNLKID",29,0) .;end Y2K "RTN","AUPNLKID",30,0) .S:'$D(AUPNA(C)) AUPNA(C)="" "RTN","AUPNLKID",31,0) .S AUPNA(C)=AUPNA(C)_" "_% S:'$D(AUPNA(C,"F")) AUPNA(C,"F")="!?65" "RTN","AUPNLKID",32,0) K AUPNLKF,AUPNLKI "RTN","AUPNLKID",33,0) Q "RTN","AUPNLKID",34,0) ; "RTN","AUPNLKID",35,0) IHSDUPE ; EXTERNAL ENTRY PONT - FOLLOW MERGE CHAIN "RTN","AUPNLKID",36,0) ; VALUE OF THE NAKED INDICATOR TO BE PROVIDED BY CALLING ROUTINE "RTN","AUPNLKID",37,0) F AUPLKL=0:0 Q:'$P(^(0),U,19) S AUPMAP=$P(^(0),U,19) D EN^DDIOL("","","!?10") ; Will abort if no ^DPT entry "RTN","AUPNLKID",38,0) K AUPLKL "RTN","AUPNLKID",39,0) I $D(AUPMAP) S AUPMAPY=Y,Y=AUPMAP K AUPMAP "RTN","AUPNLKID",40,0) W @("$E("_DIC_"Y,0),0)") ; reset the naked "RTN","AUPNLKID",41,0) Q "RTN","AUPNLKID",42,0) ; "RTN","AUPNLKID",43,0) CWAD(Y) ; -- returns cwad initials;IHS/ANMC/LJF 5/26/98 "RTN","AUPNLKID",44,0) NEW X,DFN,GMRPCWAD "RTN","AUPNLKID",45,0) S X="GMRPNOR1" X ^%ZOSF("TEST") I '$T Q " " "RTN","AUPNLKID",46,0) S X=$$CWAD^GMRPNOR1(+Y) I '$L(X) Q " " "RTN","AUPNLKID",47,0) S X="<"_X_">",X=$E(X_" ",1,7) "RTN","AUPNLKID",48,0) Q X "RTN","AUPNPAT2") 0^4^B15010853 "RTN","AUPNPAT2",1,0) AUPNPAT2 ; IHS/CMI/LAB - PATIENT ELIGIBILITY EXTRINSICS ; [ 07/13/00 1:20 PM ] "RTN","AUPNPAT2",2,0) ;;99.1;IHS DICTIONARIES (PATIENT);**4**;MAR 09, 1999 "RTN","AUPNPAT2",3,0) ; "RTN","AUPNPAT2",4,0) Q "RTN","AUPNPAT2",5,0) ; "RTN","AUPNPAT2",6,0) ;--------- "RTN","AUPNPAT2",7,0) ; MCR: Input - P = DFN "RTN","AUPNPAT2",8,0) ; D = Date "RTN","AUPNPAT2",9,0) ; Output - 1 = Yes, patient is/was MCare eligible on date D. "RTN","AUPNPAT2",10,0) ; 0 = No, or unable. "RTN","AUPNPAT2",11,0) ; "RTN","AUPNPAT2",12,0) ; Examples: I $$MCR^AUPNPAT(DFN,2930701) "RTN","AUPNPAT2",13,0) ; S AGMCR=$$MCR^AUPNPAT(DFN,DT) "RTN","AUPNPAT2",14,0) ; "RTN","AUPNPAT2",15,0) MCR(P,D) ;EP - Is patient P medicare eligible on date D. 1 = yes, 0 = no. "RTN","AUPNPAT2",16,0) ; I = IEN in ^AUPNMCR multiple. "RTN","AUPNPAT2",17,0) I '$G(P) Q 0 "RTN","AUPNPAT2",18,0) I '$G(D) Q 0 "RTN","AUPNPAT2",19,0) NEW I,Y "RTN","AUPNPAT2",20,0) S Y=0,U="^" "RTN","AUPNPAT2",21,0) I '$D(^DPT(P,0)) G MCRX "RTN","AUPNPAT2",22,0) I $P(^DPT(P,0),U,19) G MCRX "RTN","AUPNPAT2",23,0) I '$D(^AUPNPAT(P,0)) G MCRX "RTN","AUPNPAT2",24,0) I '$D(^AUPNMCR(P,11)) G MCRX "RTN","AUPNPAT2",25,0) I $D(^DPT(P,.35)),$P(^(.35),U)]"",$P(^(.35),U)D "RTN","AUPNPAT2",29,0) . I $P(^AUPNMCR(P,11,I,0),U,2)]"",$P(^(0),U,2)D "RTN","AUPNPAT2",59,0) ..I $P(^AUPNMCD(I,11,J,0),U,2)]"",$P(^(0),U,2)D "RTN","AUPNPAT2",96,0) .. I $P(^AUPNMCD(I,11,J,0),U,2)]"",$P(^(0),U,2)D "RTN","AUPNPAT2",133,0) . I $P(^AUPNPRVT(P,11,I,0),U,7)]"",$P(^(0),U,7)D Q "RTN","AUPNPAT2",168,0) . I $P(^AUPNPRVT(P,11,I,0),U,7)]"",$P(^(0),U,7)2:%1_" YRS",%<31:%_" DYS",1:%\30_" MOS") "RTN","AUPNPAT3",18,0) ; "RTN","AUPNPAT3",19,0) BEN(DFN,F) ;EP - returns classification/beneficiary in F format "RTN","AUPNPAT3",20,0) ;F="E":name of beneficiary type, F="I":ien of beneficiary type, F="C":code of beneficiary type "RTN","AUPNPAT3",21,0) I '$G(DFN) Q -1 "RTN","AUPNPAT3",22,0) I '$D(^AUPNPAT(DFN,11)) Q -1 "RTN","AUPNPAT3",23,0) I $P(^AUPNPAT(DFN,11),"^",11)="" Q "" "RTN","AUPNPAT3",24,0) I '$D(^AUTTBEN($P(^AUPNPAT(DFN,11),"^",11))) Q -1 "RTN","AUPNPAT3",25,0) S F=$G(F) "RTN","AUPNPAT3",26,0) Q $S(F="I":$P(^AUPNPAT(DFN,11),"^",11),F="E":$P(^AUTTBEN($P(^AUPNPAT(DFN,11),"^",11),0),"^"),1:$P(^AUTTBEN($P(^AUPNPAT(DFN,11),"^",11),0),"^",2)) "RTN","AUPNPAT3",27,0) ; "RTN","AUPNPAT3",28,0) CDEATH(DFN,F) ;EP - returns Cause of Death in F format "RTN","AUPNPAT3",29,0) ;F="E":ICD narrative, F="I":ien of icd code, F="C":icd code "RTN","AUPNPAT3",30,0) I '$G(DFN) Q "" "RTN","AUPNPAT3",31,0) I '$D(^AUPNPAT(DFN)) Q "" "RTN","AUPNPAT3",32,0) I '$P($G(^AUPNPAT(DFN,11)),"^",14) Q "" "RTN","AUPNPAT3",33,0) I '$D(^ICD9($P(^AUPNPAT(DFN,11),"^",14))) Q "" "RTN","AUPNPAT3",34,0) S F=$G(F) "RTN","AUPNPAT3",35,0) Q $S(F="I":$P(^AUPNPAT(DFN,11),"^",14),F="E":$P(^ICD9($P(^AUPNPAT(DFN,11),"^",14),0),"^",3),1:$P(^ICD9($P(^AUPNPAT(DFN,11),"^",14),0),"^")) "RTN","AUPNPAT3",36,0) ; "RTN","AUPNPAT3",37,0) COMMRES(DFN,F) ;EP - Given DFN, return comm of res in F format "RTN","AUPNPAT3",38,0) ;F="E":community name, F="I":community ien, F="C":community STCTYCOM code "RTN","AUPNPAT3",39,0) I '$G(DFN) Q -1 "RTN","AUPNPAT3",40,0) I '$D(^AUPNPAT(DFN,11)) Q -1 "RTN","AUPNPAT3",41,0) I $P(^AUPNPAT(DFN,11),"^",17)="" Q "" "RTN","AUPNPAT3",42,0) I '$D(^AUTTCOM($P(^AUPNPAT(DFN,11),"^",17))) Q -1 "RTN","AUPNPAT3",43,0) S F=$G(F) "RTN","AUPNPAT3",44,0) Q $S(F="I":$P(^AUPNPAT(DFN,11),"^",17),F="E":$P(^AUTTCOM($P(^AUPNPAT(DFN,11),"^",17),0),"^"),1:$P(^AUTTCOM($P(^AUPNPAT(DFN,11),"^",17),0),"^",8)) "RTN","AUPNPAT3",45,0) ; "RTN","AUPNPAT3",46,0) DOB(DFN,F) ;EP - Given DFN, return Date of Birth according to F. "RTN","AUPNPAT3",47,0) ; If F="E" produce the External form, else FM format. "RTN","AUPNPAT3",48,0) I '$G(DFN) Q -1 "RTN","AUPNPAT3",49,0) I '$D(^DPT(DFN,0)) Q -1 "RTN","AUPNPAT3",50,0) S F=$G(F) "RTN","AUPNPAT3",51,0) ;beginning Y2K mods - change 2 parameter is FMTE call to 5 "RTN","AUPNPAT3",52,0) ;Q $S(F="E":$$FMTE^XLFDT($P(^DPT(DFN,0),"^",3)),F="S":$$FMTE^XLFDT($P(^DPT(DFN,0),"^",3),2),1:$P(^DPT(DFN,0),"^",3)) ;Y2000 IHS/CMI/LAB - commented out "RTN","AUPNPAT3",53,0) Q $S(F="E":$$FMTE^XLFDT($P(^DPT(DFN,0),"^",3)),F="S":$$FMTE^XLFDT($P(^DPT(DFN,0),"^",3),5),1:$P(^DPT(DFN,0),"^",3)) ;Y2000 IHS/CMI/LAB "RTN","AUPNPAT3",54,0) ;end Y2K mods "RTN","AUPNPAT3",55,0) ; "RTN","AUPNPAT3",56,0) DOD(DFN,F) ;EP - Given DFN, return Date of Death according to F. "RTN","AUPNPAT3",57,0) ; If F="E" produce the External form, else FM format. "RTN","AUPNPAT3",58,0) I '$G(DFN) Q -1 "RTN","AUPNPAT3",59,0) I '$D(^DPT(DFN,0)) Q -1 "RTN","AUPNPAT3",60,0) S F=$G(F) "RTN","AUPNPAT3",61,0) Q $S(F="E":$$FMTE^XLFDT($P($G(^DPT(DFN,.35)),"^")),1:$P($G(^DPT(DFN,.35)),"^")) "RTN","AUPNPAT3",62,0) ; "RTN","AUPNPAT3",63,0) ELIGSTAT(DFN,F) ;EP - returns eligibility status in F format "RTN","AUPNPAT3",64,0) ;F="E":eligibility type (name), F="I":internal set of codes "RTN","AUPNPAT3",65,0) I '$G(DFN) Q -1 "RTN","AUPNPAT3",66,0) I '$D(^AUPNPAT(DFN,11)) Q -1 "RTN","AUPNPAT3",67,0) S F=$G(F) "RTN","AUPNPAT3",68,0) Q $S(F="E":$$EXTSET^XBFUNC(9000001,1112,$P(^AUPNPAT(DFN,11),"^",12)),1:$P(^AUPNPAT(DFN,11),"^",12)) "RTN","AUPNPAT3",69,0) ; "RTN","AUPNPAT3",70,0) HRN(DFN,L,F) ;EP - return HRN at L location "RTN","AUPNPAT3",71,0) ;L must be ien of location of encounter "RTN","AUPNPAT3",72,0) ;F is optional. If F=2 hrn will be prefixed with site abbreviation "RTN","AUPNPAT3",73,0) I '$G(DFN) Q -1 "RTN","AUPNPAT3",74,0) I '$D(^AUPNPAT(DFN)) Q -1 "RTN","AUPNPAT3",75,0) I '$G(L) Q -1 "RTN","AUPNPAT3",76,0) I $G(F)=2,'$D(^AUTTLOC(L,0)) Q -1 "RTN","AUPNPAT3",77,0) Q $S($D(^AUPNPAT(DFN,41,L,0)):$S($G(F)=2:$P(^AUTTLOC(L,0),"^",7)_" ",1:"")_$P(^AUPNPAT(DFN,41,L,0),"^",2),1:"") "RTN","AUPNPAT3",78,0) Q $P($G(^AUPNPAT(DFN,41,L,0)),"^",2) "RTN","AUPNPAT3",79,0) ; "RTN","AUPNPAT3",80,0) SEX(DFN) ;EP - Given DFN, return Sex. "RTN","AUPNPAT3",81,0) I '$G(DFN) Q -1 "RTN","AUPNPAT3",82,0) I '$D(^DPT(DFN,0)) Q -1 "RTN","AUPNPAT3",83,0) Q $P(^DPT(DFN,0),"^",2) "RTN","AUPNPAT3",84,0) ; "RTN","AUPNPAT3",85,0) SSN(DFN) ;EP - Given DFN, return SSN. "RTN","AUPNPAT3",86,0) I '$G(DFN) Q -1 "RTN","AUPNPAT3",87,0) I '$D(^DPT(DFN,0)) Q -1 "RTN","AUPNPAT3",88,0) Q $P(^DPT(DFN,0),"^",9) "RTN","AUPNPAT3",89,0) ; "RTN","AUPNPAT3",90,0) TRIBE(DFN,F) ;EP - Given DFN, return Tribe in F format "RTN","AUPNPAT3",91,0) ;If F="E", name of tribe returned, if F="I", internal ien of tribe "RTN","AUPNPAT3",92,0) ;returned, if F="C", tribe code returned "RTN","AUPNPAT3",93,0) I '$G(DFN) Q -1 "RTN","AUPNPAT3",94,0) I '$D(^AUPNPAT(DFN,11)) Q -1 "RTN","AUPNPAT3",95,0) I $P(^AUPNPAT(DFN,11),"^",8)="" Q "" "RTN","AUPNPAT3",96,0) I '$D(^AUTTTRI($P(^AUPNPAT(DFN,11),"^",8))) Q -1 "RTN","AUPNPAT3",97,0) S F=$G(F) "RTN","AUPNPAT3",98,0) Q $S(F="I":$P(^AUPNPAT(DFN,11),"^",8),F="E":$P(^AUTTTRI($P(^AUPNPAT(DFN,11),"^",8),0),"^"),1:$P(^AUTTTRI($P(^AUPNPAT(DFN,11),"^",8),0),"^",2)) "RTN","AUPNPAT3",99,0) ; "RTN","AUPNPCTR") 0^11^B9043699 "RTN","AUPNPCTR",1,0) AUPNPCTR ; IHS/CMI/LAB - XREF TRIGGER FROM #1117 (RESIDENCE COMMUNITY PT) TO LAST PREVIOUS COMMUNITY 24-MAY-1993 ; [ 07/03/01 2:56 PM ] "RTN","AUPNPCTR",2,0) ;;99.1;IHS DICTIONARIES (PATIENT);**6**;MAR 09, 1999 "RTN","AUPNPCTR",3,0) S ;ENTRY POINT FOR SET TRIGGERS "RTN","AUPNPCTR",4,0) S DFN=DA(1),AUPN51DA=DA NEW (DFN,DT,DUZ,U,AUPN51DA) "RTN","AUPNPCTR",5,0) D LD I AUPN5LD,AUPN5LD=AUPN51DA "RTN","AUPNPCTR",6,0) E G END ; quit if date being edited is not the last date "RTN","AUPNPCTR",7,0) D SET G END "RTN","AUPNPCTR",8,0) ;------------------------------------------------- "RTN","AUPNPCTR",9,0) K ;ENTRY POINT FOR KILL TRIGGER "RTN","AUPNPCTR",10,0) S DFN=DA(1),AUPN51DA=DA NEW (DFN,DT,DUZ,U,AUPN51DA) "RTN","AUPNPCTR",11,0) D LD I AUPN5LD,AUPN5LD=AUPN51DA "RTN","AUPNPCTR",12,0) E G END ;exit if day being deleted is not the last date "RTN","AUPNPCTR",13,0) ; find next to last date "RTN","AUPNPCTR",14,0) S (AUPN5,AUPN5NLD)=0 I ($D(^AUPNPAT(DFN,51))>1) F S AUPN5=$O(^AUPNPAT(DFN,51,AUPN5)) Q:'AUPN5 Q:AUPN5=AUPN5LD S AUPN5NLD=AUPN5 "RTN","AUPNPCTR",15,0) S AUPN5LD=AUPN5NLD "RTN","AUPNPCTR",16,0) D SET G END "RTN","AUPNPCTR",17,0) ; "RTN","AUPNPCTR",18,0) ;------------------------------------------------------------ "RTN","AUPNPCTR",19,0) LD ; find last date "RTN","AUPNPCTR",20,0) S (AUPN5,AUPN5LD)=0 "RTN","AUPNPCTR",21,0) I ($D(^AUPNPAT(DFN,51))>1) F S AUPN5=$O(^AUPNPAT(DFN,51,AUPN5)) Q:'AUPN5 S AUPN5LD=AUPN5 "RTN","AUPNPCTR",22,0) Q "RTN","AUPNPCTR",23,0) ;------------------------------------------------- "RTN","AUPNPCTR",24,0) SET ; Set Current Community , Current Residence PTR, Current Residence Date ; IHS/PAO/TMJ Fix of Subscript and DIE Call "RTN","AUPNPCTR",25,0) I AUPN5LD D I AUPNCC>0,AUPNCCN]"" "RTN","AUPNPCTR",26,0) . S AUPNCC=$P($G(^AUPNPAT(DFN,51,AUPN5LD,0)),"^",3) "RTN","AUPNPCTR",27,0) . Q:AUPNCC="" "RTN","AUPNPCTR",28,0) . S AUPNCCN=$P($G(^AUTTCOM(AUPNCC,0)),U) ; pickup Current Community Pointer and name "RTN","AUPNPCTR",29,0) E S AUPNCC="@",AUPNCCN="@" "RTN","AUPNPCTR",30,0) S DIE="^AUPNPAT(",DA=DFN,DR="1118///"_AUPNCCN D ^DIE "RTN","AUPNPCTR",31,0) K AUPNTEMP("MFI",$J) S DR="1117///"_$S(AUPNCC="@":"",1:"`")_AUPNCC D ^DIE K AUPNTEMP("MFI",$J) "RTN","AUPNPCTR",32,0) S Y="@" I AUPN5LD S Y=AUPN5LD D DD^%DT "RTN","AUPNPCTR",33,0) S DR="1113///"_Y D ^DIE K AUPNTEMP("MFI",$J) "RTN","AUPNPCTR",34,0) Q "RTN","AUPNPCTR",35,0) ;------------------------------------------------------------ "RTN","AUPNPCTR",36,0) END ; "RTN","AUPNPCTR",37,0) EXIT ; all entry points NEW (DFN,DUZ,DT,U) and exit here "RTN","AUPNPCTR",38,0) K AUPN51DA "RTN","AUPNPCTR",39,0) Q "RTN","AUPNPCTR",40,0) ;------------------------------------------------------------ "RTN","AUPNPCTR",41,0) ;------------------------------------------------------------ "RTN","AUPNPCTR",42,0) MFI ;ENTRY POINT FOR MFI "RTN","AUPNPCTR",43,0) S DFN=DA NEW (DFN,DT,DUZ,U,AUPN51DA,AUPNDOB,AUPNDOD,AUPNTEMP) "RTN","AUPNPCTR",44,0) I $D(AUPNTEMP("MFI",$J,DFN,1117)),$D(AUPNTEMP("MFI",$J,DFN,1113)) "RTN","AUPNPCTR",45,0) E Q ; wait for both fields to be set by MFI "RTN","AUPNPCTR",46,0) D SETMFI K AUPNTEMP("MFI",$J,DFN) "RTN","AUPNPCTR",47,0) D LD D SET "RTN","AUPNPCTR",48,0) G END "RTN","AUPNPCTR",49,0) ; "RTN","AUPNPCTR",50,0) ;-------------------------------------------------- "RTN","AUPNPCTR",51,0) SETMFI ; "RTN","AUPNPCTR",52,0) S:'$D(^AUPNPAT(DFN,51,0)) ^AUPNPAT(DFN,51,0)="^9000001.51D^^" "RTN","AUPNPCTR",53,0) S AUPNCC=$P(^AUPNPAT(DFN,11),U,17),AUPNDT=$P(^AUPNPAT(DFN,11),U,13) "RTN","AUPNPCTR",54,0) I $D(^AUPNPAT(DFN,51,AUPNDT,0)),$P(^(0),U)=AUPNDT,$P(^(0),U,3)=AUPNCC Q ; if node matches do not reset "RTN","AUPNPCTR",55,0) S AUPNX=0 F S AUPNX=$O(^AUPNPAT(DFN,51,AUPNX)) Q:'AUPNX S AUPNLPC=$P(^AUPNPAT(DFN,51,AUPNX,0),U,3),AUPNX1=AUPNX "RTN","AUPNPCTR",56,0) I $D(AUPNLPC),AUPNLPC=AUPNCC D DELCC "RTN","AUPNPCTR",57,0) S Y=AUPNDT D DD^%DT S X=Y,DIC="^AUPNPAT("_DFN_",51,",DIC(0)="ML",DA(1)=DFN D ^DIC K DIC,DR Q:'+Y "RTN","AUPNPCTR",58,0) S DA=AUPNDT,DA(1)=DFN,DIE="^AUPNPAT("_DFN_",51,",DR=".03////"_AUPNCC "RTN","AUPNPCTR",59,0) I $P(^AUPNPAT(DFN,51,DA,0),U,2)="" S DR=DR_";.02////"_DT "RTN","AUPNPCTR",60,0) D ^DIE "RTN","AUPNPCTR",61,0) Q "RTN","AUPNPCTR",62,0) ; "RTN","AUPNPCTR",63,0) DELCC ; Delete Last Previous community multiple "RTN","AUPNPCTR",64,0) S DA(1)=DFN,DA=AUPNX1,DIK="^AUPNPAT("_DA(1)_",51," "RTN","AUPNPCTR",65,0) D ^DIK K DA,DIK "RTN","AUPNPCTR",66,0) Q "RTN","AUPNVMS2") 0^6^B20636234 "RTN","AUPNVMS2",1,0) AUPNVMS2 ; IHS/CMI/LAB - HELP FOR V MEASUREMENT 24-MAY-1993 ; [ 06/29/01 12:57 PM ] "RTN","AUPNVMS2",2,0) ;;99.1;IHS DICTIONARIES (PATIENT);**4,6**;MAR 09, 1999 "RTN","AUPNVMS2",3,0) ;IHS/CMI/LAB - patch 4 lowered tmp level to 92 "RTN","AUPNVMS2",4,0) ; "RTN","AUPNVMS2",5,0) HELP ; HELP FOR VARIOUS TYPES "RTN","AUPNVMS2",6,0) S AUPNMTYP="H"_$P(^AUTTMSR($P(^AUPNVMSR(DA,0),U,1),0),U,1) S:AUPNMTYP="HVU" AUPNMTYP="HVC" "RTN","AUPNVMS2",7,0) Q:$T(@AUPNMTYP)="" "RTN","AUPNVMS2",8,0) F %AUI=1:1 S L=$T(@AUPNMTYP+%AUI) Q:L=""!($P(L,";;",1)'=" ") W $P(L,";;",2),! "RTN","AUPNVMS2",9,0) K AUPNMTYP "RTN","AUPNVMS2",10,0) Q "RTN","AUPNVMS2",11,0) ; "RTN","AUPNVMS2",12,0) HELP1 ;PEP; called by other packages with AUPNMTYP already set;IHS/ANMC/LJF 1/30/98 "RTN","AUPNVMS2",13,0) ; calling routine responsible for killing AUPNMTYP "RTN","AUPNVMS2",14,0) Q:$T(@AUPNMTYP)="" "RTN","AUPNVMS2",15,0) F %AUI=1:1 S L=$T(@AUPNMTYP+%AUI) Q:L=""!($P(L,";;",1)'=" ") W $P(L,";;",2),! "RTN","AUPNVMS2",16,0) Q "RTN","AUPNVMS2",17,0) ;IHS/ANMC/LJF 1/30/98 end of new subrtn "RTN","AUPNVMS2",18,0) ; "RTN","AUPNVMS2",19,0) HAUD ;; "RTN","AUPNVMS2",20,0) ;; Enter 8 readings for right ear followed by 8 readings for left ear, "RTN","AUPNVMS2",21,0) ;; all followed by slashes (/). Values must be between 0 and 110. "RTN","AUPNVMS2",22,0) ;; EXAMPLE: 100/100/100/95/90/90/85/80/105/105/105/105/100/100/95/90/ "RTN","AUPNVMS2",23,0) HBP ;; "RTN","AUPNVMS2",24,0) ;; Enter as SYSTOLIC/DIASTOLIC (120/80). SYSTOLIC must be between "RTN","AUPNVMS2",25,0) ;; 20 and 275. DIASTOLIC must be between 20 and 200. "RTN","AUPNVMS2",26,0) HCXD ;; "RTN","AUPNVMS2",27,0) ;;Enter a value between 0 and 10. "RTN","AUPNVMS2",28,0) HED ;; "RTN","AUPNVMS2",29,0) ;; Enter EDEMA as one of the following 0, 1+, 2+, 3+ or 4+ "RTN","AUPNVMS2",30,0) HEF ;; "RTN","AUPNVMS2",31,0) ;; Enter a value 0-100. "RTN","AUPNVMS2",32,0) HHC ;; "RTN","AUPNVMS2",33,0) ;; To enter head circumference in inches, enter the inches (21) "RTN","AUPNVMS2",34,0) ;; inches and decimal (21.5), or inches and fraction (21 1/2). "RTN","AUPNVMS2",35,0) ;; Must be 10-30 inches and fractional/decimal part must be a "RTN","AUPNVMS2",36,0) ;; multiple of 1/8 (.125). "RTN","AUPNVMS2",37,0) ;; "RTN","AUPNVMS2",38,0) ;; To enter head circumference in Centimeters (CHC) enter "RTN","AUPNVMS2",39,0) ;; the centimeters and decimal (30.2). "RTN","AUPNVMS2",40,0) ;; Centimeter range: 26 to 76 centimeters. "RTN","AUPNVMS2",41,0) HHE ;; "RTN","AUPNVMS2",42,0) ;; Enter N for normal, or A for abnormal. "RTN","AUPNVMS2",43,0) HPA ;; "RTN","AUPNVMS2",44,0) ;; Enter a value between 0 and 10. "RTN","AUPNVMS2",45,0) HHT ;; "RTN","AUPNVMS2",46,0) ;; Enter height in inches and fractions (64 3/4), or inches and "RTN","AUPNVMS2",47,0) ;; decimal (64.75). Height must be between 10 and 90 inches. "RTN","AUPNVMS2",48,0) ;; Centimeter range: 26 and 203. "RTN","AUPNVMS2",49,0) HPU ;; "RTN","AUPNVMS2",50,0) ;; Enter whole number between 30 and 250. "RTN","AUPNVMS2",51,0) HPR ;; "RTN","AUPNVMS2",52,0) ;; Enter PRESENTATION as one of the following: "RTN","AUPNVMS2",53,0) ;; (You may enter the number or the text or the abbreviation) "RTN","AUPNVMS2",54,0) ;; 1 - VERTEX - VT "RTN","AUPNVMS2",55,0) ;; 2 - COMPLETE BREACH - CB "RTN","AUPNVMS2",56,0) ;; 3 - DOUBLE FOOTLING - DF "RTN","AUPNVMS2",57,0) ;; 4 - SINGLE FOOTLING - SF "RTN","AUPNVMS2",58,0) ;; 5 - FRANK BREACH - FB "RTN","AUPNVMS2",59,0) ;; 6 - FACE - FA "RTN","AUPNVMS2",60,0) ;; 7 - UNSPECIFIED BREACH - UB "RTN","AUPNVMS2",61,0) ;; 8 - TRANSVERSE - TR "RTN","AUPNVMS2",62,0) ;; 9 - OTHER - OT "RTN","AUPNVMS2",63,0) ;; 10 - UNKNOWN - UNK "RTN","AUPNVMS2",64,0) HSN ;; "RTN","AUPNVMS2",65,0) ;; Enter a value between -6 and 4. "RTN","AUPNVMS2",66,0) HTMP ;; "RTN","AUPNVMS2",67,0) ;; Enter as degrees fahrenheit. Must be 92-109.9 degrees. "RTN","AUPNVMS2",68,0) HTON ;; "RTN","AUPNVMS2",69,0) ;; Enter READING for RIGHT eye, followed by a SLASH, followed "RTN","AUPNVMS2",70,0) ;; by the READING for the LEFT eye. "RTN","AUPNVMS2",71,0) ;; SLASH is REQUIRED! "RTN","AUPNVMS2",72,0) ;; Examples: 18/18, /20, 18/, 10/13 "RTN","AUPNVMS2",73,0) ;; Readings can be between 0 and 80. "RTN","AUPNVMS2",74,0) HVC ;; "RTN","AUPNVMS2",75,0) ;; Enter denominators only. The 20/ is assumed. Enter right eye "RTN","AUPNVMS2",76,0) ;; / left eye in form n/n (20/20). If right eye only enter n (20). "RTN","AUPNVMS2",77,0) ;; If left eye only enter /n (/20). Must be between 10 and 999 or "RTN","AUPNVMS2",78,0) ;; must be HM, LP or NLP. "RTN","AUPNVMS2",79,0) ;; "RTN","AUPNVMS2",80,0) ;; Numerator may be different than 20. You will be prompted to "RTN","AUPNVMS2",81,0) ;; enter numerator seperately. "RTN","AUPNVMS2",82,0) HVU ;; "RTN","AUPNVMS2",83,0) ;; SAME AS HVC. HVU CHANGED TO HVC BY HELP LOGIC. "RTN","AUPNVMS2",84,0) HWT ;; "RTN","AUPNVMS2",85,0) ;; If entering weight in LBS and OZs: enter lbs oz (132 12), "RTN","AUPNVMS2",86,0) ;; lbs fraction (132 3/4), or ;; lbs.decimal (132.75). "RTN","AUPNVMS2",87,0) ;; Weight must be 2-750 lbs and fractional/decimal part must be a "RTN","AUPNVMS2",88,0) ;; multiple of 1/16 (.0625). "RTN","AUPNVMS2",89,0) ;; "RTN","AUPNVMS2",90,0) ;; Metric ranges: "RTN","AUPNVMS2",91,0) ;; Kilograms: enter between 1 and 340 (fractions and decimals allowed) "RTN","AUPNVMS2",92,0) ;; Grams: enter between 1000 and 340000 grams (fractions and decimals allowed) "RTN","AUPNVMS2",93,0) ;; Fractions must be entered as in 4000 1/2 or 4 2/3 "RTN","AUPNVMS2",94,0) HAG ;; "RTN","AUPNVMS2",95,0) ;; Enter Abdominal Girth. Must be in the range 0-150. "RTN","AUPNVMS2",96,0) HFH ;; "RTN","AUPNVMS2",97,0) ;; Enter a Fundal Height. Must be in the range 0-100. "RTN","AUPNVMS2",98,0) HFT ;; "RTN","AUPNVMS2",99,0) ;; Enter Fetal Heart Tone. Must be in the range 0-400. "RTN","AUPNVMS2",100,0) HRS ;;Help for Respiration rate "RTN","AUPNVMS2",101,0) ;;Enter the respiration rate of the patient. Must be in range 8-90. "RTN","AUPNVMSR") 0^1^B28979864 "RTN","AUPNVMSR",1,0) AUPNVMSR ; IHS/CMI/LAB - EDITS FOR AUPNVMSR (MEASUREMENTS:9000010.04) 24-MAY-1993 ; [ 06/29/01 12:57 PM ] "RTN","AUPNVMSR",2,0) ;;99.1;IHS DICTIONARIES (PATIENT);**1,4,6**;MAR 09, 1999 "RTN","AUPNVMSR",3,0) S AUPNMTYP=$P(^AUPNVMSR(DA,0),U,1),AUPNMTYP=$P(^AUTTMSR(AUPNMTYP,0),U,1) "RTN","AUPNVMSR",4,0) D @AUPNMTYP "RTN","AUPNVMSR",5,0) K AUPNMTYP "RTN","AUPNVMSR",6,0) Q "RTN","AUPNVMSR",7,0) ; "RTN","AUPNVMSR",8,0) AUD ; (AUDIOMETRY) "RTN","AUPNVMSR",9,0) I $L(X,"/")'=17 K X Q "RTN","AUPNVMSR",10,0) F %AUI=1:1:16 S %AUX=$P(X,"/",%AUI) I %AUX'="" I %AUX'?1.3N!(+%AUX>110) K X Q "RTN","AUPNVMSR",11,0) K %AUI,%AUX "RTN","AUPNVMSR",12,0) Q "RTN","AUPNVMSR",13,0) BP ;EP (BLOOD PRESSURE) "RTN","AUPNVMSR",14,0) I $L(X)>7!($L(X)<5)!'(X?2.3N1"/"2.3N) K X Q "RTN","AUPNVMSR",15,0) S AUPNBPS=+$P(X,"/",1),AUPNBPD=+$P(X,"/",2) "RTN","AUPNVMSR",16,0) I AUPNBPS<20!(AUPNBPS>275) K X G BPX "RTN","AUPNVMSR",17,0) I AUPNBPD<20!(AUPNBPD>200) K X G BPX "RTN","AUPNVMSR",18,0) I AUPNBPS'>AUPNBPD K X G BPX "RTN","AUPNVMSR",19,0) S X=AUPNBPS_"/"_AUPNBPD "RTN","AUPNVMSR",20,0) BPX K AUPNBPS,AUPNBPD "RTN","AUPNVMSR",21,0) Q "RTN","AUPNVMSR",22,0) CXD ;;CERVIX DILATATION "RTN","AUPNVMSR",23,0) K:X<0!(X>10) X "RTN","AUPNVMSR",24,0) Q "RTN","AUPNVMSR",25,0) ED ; (EDEMA) "RTN","AUPNVMSR",26,0) I $L(X)>2!($L(X)<1) K X Q "RTN","AUPNVMSR",27,0) I +X>4 K X Q "RTN","AUPNVMSR",28,0) Q:X=0 "RTN","AUPNVMSR",29,0) I X'?1N1"+" K X Q "RTN","AUPNVMSR",30,0) Q "RTN","AUPNVMSR",31,0) EF ;EFFACEMENT "RTN","AUPNVMSR",32,0) K:X<0!(X>100) X "RTN","AUPNVMSR",33,0) Q "RTN","AUPNVMSR",34,0) HC ; (HEAD CIRCUMFERENCE) "RTN","AUPNVMSR",35,0) D:X?.E.A.E MHT "RTN","AUPNVMSR",36,0) Q:'$D(X) "RTN","AUPNVMSR",37,0) D HTHCC "RTN","AUPNVMSR",38,0) S:$P(X,".",2)?4N.N X=X+.0005,X=$P(X,".",1)_"."_$E($P(X,".",2),1,3) "RTN","AUPNVMSR",39,0) S X=+X "RTN","AUPNVMSR",40,0) Q:'$D(X) "RTN","AUPNVMSR",41,0) K:+X'=X!(X>30)!(X<10)!(X?.E1"."4N.N) X "RTN","AUPNVMSR",42,0) Q:'$D(X) "RTN","AUPNVMSR",43,0) ;K:X-(X\1)#.125 X "RTN","AUPNVMSR",44,0) Q "RTN","AUPNVMSR",45,0) HE ; (HEARING) "RTN","AUPNVMSR",46,0) K:X'="A"&(X'="N") X "RTN","AUPNVMSR",47,0) Q "RTN","AUPNVMSR",48,0) PA ;EP (PAIN) "RTN","AUPNVMSR",49,0) K:(X<0)!(X>10) X "RTN","AUPNVMSR",50,0) Q "RTN","AUPNVMSR",51,0) HT ; (HEIGHT) "RTN","AUPNVMSR",52,0) D:X?.E.A.E MHT "RTN","AUPNVMSR",53,0) Q:'$D(X) "RTN","AUPNVMSR",54,0) D HTHCC "RTN","AUPNVMSR",55,0) S:$P(X,".",2)?4N.N X=X+.0005,X=$P(X,".",1)_"."_$E($P(X,".",2),1,3) "RTN","AUPNVMSR",56,0) S X=+X "RTN","AUPNVMSR",57,0) Q:'$D(X) "RTN","AUPNVMSR",58,0) K:+X'=X!(X>90)!(X<10)!(X?.E1"."4N.N) X "RTN","AUPNVMSR",59,0) Q:'$D(X) "RTN","AUPNVMSR",60,0) ;K:X-(X\1)#.125 X "RTN","AUPNVMSR",61,0) Q "RTN","AUPNVMSR",62,0) HTHCC Q:X'["/" "RTN","AUPNVMSR",63,0) Q:X'?2N1" "1N1"/"1N "RTN","AUPNVMSR",64,0) S X=$P(X," ",1)_+("."_($P($P(X," ",2),"/",1)*1000\$P($P(X," ",2),"/",2))) "RTN","AUPNVMSR",65,0) Q "RTN","AUPNVMSR",66,0) ; "RTN","AUPNVMSR",67,0) MHT ; "RTN","AUPNVMSR",68,0) S AUPNJ=$L(X) F AUPNI=1:1:AUPNJ S AUPNC=$E(X,AUPNI) I AUPNC?1A S AUPNC=$S(AUPNC?1L:$C($A(AUPNC)-32),1:AUPNC) "RTN","AUPNVMSR",69,0) S (AUPNI,AUPNC)="" F AUPNI=1:1:AUPNJ S AUPNC=$E(X,AUPNI) Q:"C"[AUPNC "RTN","AUPNVMSR",70,0) I AUPNC="C" D @AUPNC "RTN","AUPNVMSR",71,0) K AUPNC,AUPNI,AUPNJ "RTN","AUPNVMSR",72,0) Q "RTN","AUPNVMSR",73,0) PR ; (PRESENTATION) "RTN","AUPNVMSR",74,0) NEW AUTFN,AUTVAL "RTN","AUPNVMSR",75,0) S AUTVAL=X,AUTFN=9999999.87 "RTN","AUPNVMSR",76,0) S %=$$PRLK(AUTFN,AUTVAL) "RTN","AUPNVMSR",77,0) I %="" K X Q "RTN","AUPNVMSR",78,0) S X=% "RTN","AUPNVMSR",79,0) Q:$D(ZTQUEUED) "RTN","AUPNVMSR",80,0) Q:$D(APCDATMP) ;don't talk if in APCDALVR mode "RTN","AUPNVMSR",81,0) W " ",X "RTN","AUPNVMSR",82,0) Q "RTN","AUPNVMSR",83,0) PRLK(AUTFN,AUTVAL) ; "RTN","AUPNVMSR",84,0) NEW AUTVALI "RTN","AUPNVMSR",85,0) S AUTVALI="" "RTN","AUPNVMSR",86,0) D EN^XBNEW("DIC^AUPNVMSR","AUTFN,AUTVAL,AUTVALI") "RTN","AUPNVMSR",87,0) Q AUTVALI "RTN","AUPNVMSR",88,0) PU ;EP (PULSE) "RTN","AUPNVMSR",89,0) K:+X'=X!(X>250)!(X<30)!(X?.E1"."1N.N) X "RTN","AUPNVMSR",90,0) Q "RTN","AUPNVMSR",91,0) SN ;STATION "RTN","AUPNVMSR",92,0) K:X<-6!(X>4) X "RTN","AUPNVMSR",93,0) Q "RTN","AUPNVMSR",94,0) TMP ; (TEMPERATURE) "RTN","AUPNVMSR",95,0) K:+X'=X!(X>109.9)!(X<92)!(X?.E1"."2N.N) X "RTN","AUPNVMSR",96,0) Q "RTN","AUPNVMSR",97,0) TON ; (TONOMETRY) "RTN","AUPNVMSR",98,0) I $L(X)>5!($L(X)<3)!'((X?1.3N1"/")!(X?1"/"1.3N)!(X?1.3N1"/"1.3N)) K X Q "RTN","AUPNVMSR",99,0) I $P(X,"/",1)'="" I $P(X,"/",1)<0!($P(X,"/",1)>80) K X Q "RTN","AUPNVMSR",100,0) I $P(X,"/",2)'="" I $P(X,"/",2)<0!($P(X,"/",2)>80) K X Q "RTN","AUPNVMSR",101,0) I $P(X,"/",1)]"" S X="R"_X "RTN","AUPNVMSR",102,0) I $P(X,"/",2)]"" S X=$P(X,"/",1)_"/L"_$P(X,"/",2) "RTN","AUPNVMSR",103,0) TONX ; "RTN","AUPNVMSR",104,0) K %AURR,%AURP,%AURI,%AULR,%AULP,%AULI "RTN","AUPNVMSR",105,0) Q "RTN","AUPNVMSR",106,0) VC ; (VISION CORRECTED) "RTN","AUPNVMSR",107,0) VU ; (VISION UNCORRECTED) "RTN","AUPNVMSR",108,0) I $L(X)>7!($L(X)<2) K X Q "RTN","AUPNVMSR",109,0) I '((X?2.3AN)!(X?1"/"2.3AN)!(X?2.3AN1"/"2.3AN)) K X Q "RTN","AUPNVMSR",110,0) I $P(X,"/",1)'="",+($P(X,"/",1)) I $P(X,"/",1)<10!($P(X,"/",1)>999) K X Q "RTN","AUPNVMSR",111,0) I $P(X,"/",1)'="",'($P(X,"/",1)) I $P(X,"/")'="HM"&($P(X,"/")'="LP")&($P(X,"/")'="NLP") K X Q "RTN","AUPNVMSR",112,0) I $P(X,"/",2)'="",+($P(X,"/",2)) I $P(X,"/",2)<10!($P(X,"/",2)>999) K X Q "RTN","AUPNVMSR",113,0) I $P(X,"/",2)'="",'($P(X,"/",2)) I $P(X,"/",2)'="HM"&($P(X,"/",2)'="LP")&($P(X,"/",2)'="NLP") K X Q ;IHS/CMI/LAB - patch 1 changed 3 to 2 "RTN","AUPNVMSR",114,0) Q "RTN","AUPNVMSR",115,0) WT ; (WEIGHT) "RTN","AUPNVMSR",116,0) D:X?.E.A.E MWT "RTN","AUPNVMSR",117,0) Q:'$D(X) "RTN","AUPNVMSR",118,0) D WTC "RTN","AUPNVMSR",119,0) S:$P(X,".",2)?5N.N X=X+.00005,X=$P(X,".",1)_"."_$E($P(X,".",2),1,4) "RTN","AUPNVMSR",120,0) S X=+X "RTN","AUPNVMSR",121,0) Q:'$D(X) "RTN","AUPNVMSR",122,0) K:+X'=X!(X>750)!(X<2)!(X?.E1"."5N.N) X "RTN","AUPNVMSR",123,0) Q:'$D(X) "RTN","AUPNVMSR",124,0) ;K:X-(X\1)#.0625 X "RTN","AUPNVMSR",125,0) Q "RTN","AUPNVMSR",126,0) WTC Q:+X=X!(X'[" ") "RTN","AUPNVMSR",127,0) Q:'(X?1.3N1" "1.2N!(X?1.3N1" "1.2N1"/"1.2N)) "RTN","AUPNVMSR",128,0) I X'["/" Q:+$P(X," ",2)>16 S X=+X+(+$P(X," ",2)/16) Q "RTN","AUPNVMSR",129,0) Q:+$P($P(X," ",2),"/",1)'<+$P($P(X," ",2),"/",2) "RTN","AUPNVMSR",130,0) S X=+X+((+$P(X," ",2)/$P($P(X," ",2),"/",2))) "RTN","AUPNVMSR",131,0) Q "RTN","AUPNVMSR",132,0) ; "RTN","AUPNVMSR",133,0) MWT ; "RTN","AUPNVMSR",134,0) S AUPNJ=$L(X) F AUPNI=1:1:AUPNJ S AUPNC=$E(X,AUPNI) I AUPNC?1A S AUPNC=$S(AUPNC?1L:$C($A(AUPNC)-32),1:AUPNC) "RTN","AUPNVMSR",135,0) S (AUPNI,AUPNC)="" F AUPNI=1:1:AUPNJ S AUPNC=$E(X,AUPNI) Q:"GK"[AUPNC "RTN","AUPNVMSR",136,0) I "GK"[AUPNC D @AUPNC "RTN","AUPNVMSR",137,0) K AUPNC,AUPNI,AUPNJ "RTN","AUPNVMSR",138,0) Q "RTN","AUPNVMSR",139,0) MWTC ; "RTN","AUPNVMSR",140,0) Q:+X=X!(X'[" ")!(X'["/") "RTN","AUPNVMSR",141,0) K:'(X?1.6N1" "1.2N1"/"1.2N) X "RTN","AUPNVMSR",142,0) Q:'$D(X) "RTN","AUPNVMSR",143,0) S X=+X+((+$P(X," ",2)/$P($P(X," ",2),"/",2))) "RTN","AUPNVMSR",144,0) Q "RTN","AUPNVMSR",145,0) K ; "RTN","AUPNVMSR",146,0) I X["/" S X=$P(X,AUPNC,1) D MWTC "RTN","AUPNVMSR",147,0) Q:'$D(X) "RTN","AUPNVMSR",148,0) S X=+X "RTN","AUPNVMSR",149,0) S X=(X*2.2046226) "RTN","AUPNVMSR",150,0) Q "RTN","AUPNVMSR",151,0) G ; "RTN","AUPNVMSR",152,0) I X["/" S X=$P(X,AUPNC,1) D MWTC "RTN","AUPNVMSR",153,0) Q:'$D(X) "RTN","AUPNVMSR",154,0) S X=+X "RTN","AUPNVMSR",155,0) S X=(X*.0022046226) "RTN","AUPNVMSR",156,0) Q "RTN","AUPNVMSR",157,0) C ; "RTN","AUPNVMSR",158,0) I X["/" S X=$P(X,AUPNC,1) D MWTC "RTN","AUPNVMSR",159,0) Q:'$D(X) "RTN","AUPNVMSR",160,0) S X=+X "RTN","AUPNVMSR",161,0) S X=(X*.393701) "RTN","AUPNVMSR",162,0) Q "RTN","AUPNVMSR",163,0) AG ; (ABDOMINAL GIRTH) "RTN","AUPNVMSR",164,0) K:+X'=X!(X>150)!(X<0)!(X?.E1"."1N.N) X "RTN","AUPNVMSR",165,0) Q "RTN","AUPNVMSR",166,0) FH ; Fundal Height "RTN","AUPNVMSR",167,0) K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X "RTN","AUPNVMSR",168,0) Q "RTN","AUPNVMSR",169,0) FT ; Fetal Heart Tones "RTN","AUPNVMSR",170,0) K:+X'=X!(X>400)!(X<0)!(X?.E1"."1N.N) X "RTN","AUPNVMSR",171,0) Q "RTN","AUPNVMSR",172,0) RS ;EP "RTN","AUPNVMSR",173,0) I X'?1.2N!(X<8)!(X>90) K X Q "RTN","AUPNVMSR",174,0) Q "RTN","AUPNVMSR",175,0) OUT(IEN,VAL) ;EP called from output transform "RTN","AUPNVMSR",176,0) I 'IEN Q VAL "RTN","AUPNVMSR",177,0) I '$D(^AUPNVMSR(IEN,0)) Q VAL "RTN","AUPNVMSR",178,0) NEW % S %=$P(^AUPNVMSR(IEN,0),U) "RTN","AUPNVMSR",179,0) I $P(^AUTTMSR(%,0),U)'="VC"&($P(^AUTTMSR(%,0),U)'="VU") Q VAL "RTN","AUPNVMSR",180,0) S VAL=$S($P(^AUPNVMSR(IEN,0),U,6):$P(^AUPNVMSR(IEN,0),U,6),1:"20")_"/"_$P(VAL,"/")_"-"_$S($P(^AUPNVMSR(IEN,0),U,6):$P(^AUPNVMSR(IEN,0),U,6),1:"20")_"/"_$P(VAL,"/",2) "RTN","AUPNVMSR",181,0) Q VAL "RTN","AUPNVMSR",182,0) HELP ;EP - HELP FOR VARIOUS TYPES "RTN","AUPNVMSR",183,0) D ^AUPNVMS2 "RTN","AUPNVMSR",184,0) Q "RTN","AUPNVMSR",185,0) DIC ;EP "RTN","AUPNVMSR",186,0) N X S X=AUTVAL "RTN","AUPNVMSR",187,0) S DIC=$$DIC^XBDIQ1(AUTFN) "RTN","AUPNVMSR",188,0) Q:'$L(DIC) "RTN","AUPNVMSR",189,0) S DIC(0)="M" "RTN","AUPNVMSR",190,0) D ^DIC "RTN","AUPNVMSR",191,0) S:+Y>0 AUTVALI=$P(Y,U,2) "RTN","AUPNVMSR",192,0) Q "RTN","AUPNVSIT") 0^5^B20650132 "RTN","AUPNVSIT",1,0) AUPNVSIT ; IHS/CMI/LAB - EDITS FOR AUPNVSIT (VISIT:9000010) 24-MAY-1993 ; [ 08/24/00 4:08 PM ] "RTN","AUPNVSIT",2,0) ;;99.1;IHS DICTIONARIES (PATIENT);**4**;MAR 09, 1999 "RTN","AUPNVSIT",3,0) ;IHS/CMI/LAB - added VCN entry point "RTN","AUPNVSIT",4,0) ; "RTN","AUPNVSIT",5,0) VSIT01 ;EP;9000010,.01 (VISIT,VISIT/ADMIT DATE&TIME) "RTN","AUPNVSIT",6,0) I '$D(AUPNPAT) W:'$D(AUPNTALK)&('$D(ZTQUEUED)) " " K X Q "RTN","AUPNVSIT",7,0) I $D(AUPNDOB),$D(AUPNDOD),AUPNDOB,$D(DT),DT D VSIT01B Q "RTN","AUPNVSIT",8,0) I '$D(AUPNTALK),'$D(ZTQUEUED) W " " "RTN","AUPNVSIT",9,0) K X "RTN","AUPNVSIT",10,0) Q "RTN","AUPNVSIT",11,0) VSIT01B ; "RTN","AUPNVSIT",12,0) I '$D(APCDFVOK),DT_".9999"" K X Q "RTN","AUPNVSIT",13,0) I DUZ("AG")="I",AUPNDOD,$P(X,".",1)>AUPNDOD W:'$D(AUPNTALK)&('$D(ZTQUEUED)) " " K X Q "RTN","AUPNVSIT",14,0) I $P(X,".",1)" K X Q "RTN","AUPNVSIT",15,0) Q "RTN","AUPNVSIT",16,0) ; "RTN","AUPNVSIT",17,0) POSTSLCT ; "RTN","AUPNVSIT",18,0) S AUPNVSIT=+Y,AUPNY=Y "RTN","AUPNVSIT",19,0) I '$D(AUPNPAT),$P(^AUPNVSIT(AUPNVSIT,0),U,5) S Y=$P(^(0),U,5) D ^AUPNPAT "RTN","AUPNVSIT",20,0) S Y=AUPNY K AUPNY "RTN","AUPNVSIT",21,0) Q "RTN","AUPNVSIT",22,0) ; "RTN","AUPNVSIT",23,0) ADD ; ADD TO DEPENDENCY COUNT "RTN","AUPNVSIT",24,0) L +^AUPNVSIT(X,0):10 E W:'$D(ZTQUEUED) !!,"VISIT locked. Notify programmer!",! Q "RTN","AUPNVSIT",25,0) S:$P(^AUPNVSIT(X,0),U,9)<0 $P(^(0),U,9)=0 "RTN","AUPNVSIT",26,0) S $P(^AUPNVSIT(X,0),U,9)=$P(^AUPNVSIT(X,0),U,9)+1 ;,$P(^(0),U,11)="" ;*** WILL NOT UNDELETE *** "RTN","AUPNVSIT",27,0) I $D(^AUPNVSIT("AMFI",X)),^AUPNVSIT("AMFI",X)="M" "RTN","AUPNVSIT",28,0) E I DUZ'=".5",$D(^AUTTSITE(1,0)),$P(^AUTTSITE(1,0),U,16)="V",$P(^AUPNVSIT(X,0),U,15)'="A",$P(^(0),U,15)'="D" S $P(^AUPNVSIT(X,0),U,15)="M",^AUPNVSIT("AMFI",X)="M" "RTN","AUPNVSIT",29,0) L -^AUPNVSIT(X,0) "RTN","AUPNVSIT",30,0) Q "RTN","AUPNVSIT",31,0) SUB ; SUBTRACT FROM DEPENDENCY COUNT "RTN","AUPNVSIT",32,0) L +^AUPNVSIT(X,0):10 E W:'$D(ZTQUEUED) !!,"VISIT locked. Notify programmer!",! Q "RTN","AUPNVSIT",33,0) S $P(^AUPNVSIT(X,0),U,9)=$P(^AUPNVSIT(X,0),U,9)-1 ;S:$P(^(0),U,9)<1 $P(^(0),U,11)=1 *** DON'T DELETE *** "RTN","AUPNVSIT",34,0) I $P(^AUPNVSIT(X,0),U,9)<0 S $P(^(0),U,9)=0 ; Should not happen but does "RTN","AUPNVSIT",35,0) I $P(^AUPNVSIT(X,0),U,15)="A" "RTN","AUPNVSIT",36,0) E I DUZ'=.5,$D(^AUTTSITE(1,0)),$P(^AUTTSITE(1,0),U,16)="V" S $P(^AUPNVSIT(X,0),U,15)="D",^AUPNVSIT("AMFI",X)="D" "RTN","AUPNVSIT",37,0) L -^AUPNVSIT(X,0) "RTN","AUPNVSIT",38,0) Q "RTN","AUPNVSIT",39,0) ; "RTN","AUPNVSIT",40,0) MOD ;PEP;MODIFY A VISIT OR V FILE ENTRY "RTN","AUPNVSIT",41,0) ;*******CANNOT BE CALLED FROM DIE **********CALLS DIE "RTN","AUPNVSIT",42,0) Q:$G(AUPNVSIT)="" "RTN","AUPNVSIT",43,0) Q:AUPNVSIT<0 "RTN","AUPNVSIT",44,0) Q:'$D(^AUPNVSIT(AUPNVSIT,0)) "RTN","AUPNVSIT",45,0) S DA=AUPNVSIT,DIE="^AUPNVSIT(",DR=".13////"_DT D ^DIE K DA,DIE,DIU,DIV,DR "RTN","AUPNVSIT",46,0) ;the following updates MFI information "RTN","AUPNVSIT",47,0) Q:'$D(^AUTTSITE(1,0)) "RTN","AUPNVSIT",48,0) Q:$P(^AUTTSITE(1,0),U,16)'="V" "RTN","AUPNVSIT",49,0) Q:DUZ=.5 "RTN","AUPNVSIT",50,0) I $P(^AUPNVSIT(AUPNVSIT,0),U,15)'="A",$P(^(0),U,15)'="D" S DR=".15///M",DA=AUPNVSIT,DIE="^AUPNVSIT(" D ^DIE "RTN","AUPNVSIT",51,0) K DIE,DA,DR,DIU,DIV "RTN","AUPNVSIT",52,0) Q "RTN","AUPNVSIT",53,0) ;*******CANNOT BE CALLED FROM DIE**********CALLS DIE "RTN","AUPNVSIT",54,0) DEL ;EP;*** EXTERNAL ENTRY POINT *** SET DELETE FLAG "RTN","AUPNVSIT",55,0) ; The following exclusive NEW excepted from SAC by the Director, DSD. Request dated 12.14.92. No suspense was mandated. "RTN","AUPNVSIT",56,0) N (DT,DUZ,AUPNVSIT,U) "RTN","AUPNVSIT",57,0) I $P(^AUPNVSIT(AUPNVSIT,0),U,9) S AUPNVSIT=-1 Q "RTN","AUPNVSIT",58,0) S DIK="^AUPNVSIT(",DA=AUPNVSIT,X=2 D DD^DIK,1^DIK1 "RTN","AUPNVSIT",59,0) S DA=AUPNVSIT,DR=".11///1",DIE="^AUPNVSIT(" D ^DIE K DA,DIE,DR "RTN","AUPNVSIT",60,0) I DUZ'=.5,$D(^AUTTSITE(1,0)),$P(^AUTTSITE(1,0),U,16)="V",$P(^AUPNVSIT(AUPNVSIT,0),U,15)="A" S DA=AUPNVSIT,DR=".15///@",DIE="^AUPNVSIT(" D ^DIE K DA,DIE,DR Q "RTN","AUPNVSIT",61,0) I DUZ'=.5,$D(^AUTTSITE(1,0)),$P(^AUTTSITE(1,0),U,16)="V",$P(^AUPNVSIT(AUPNVSIT,0),U,15)'="A" S DA=AUPNVSIT,DR=".15///D",DIE="^AUPNVSIT(" D ^DIE K DA,DIE,DR Q "RTN","AUPNVSIT",62,0) Q "RTN","AUPNVSIT",63,0) ; "RTN","AUPNVSIT",64,0) VCN(AUPNVSIT,AUPNADD) ;EP; *** EXTERNAL ENTRY POINT *** "RTN","AUPNVSIT",65,0) ; Returns Visit Control Number (VCN) on visit if already there "RTN","AUPNVSIT",66,0) ; Creates VCN and adds to visit if AUPNADD set to 1 "RTN","AUPNVSIT",67,0) ; Returns a number if VCN found or created; returns "" if not "RTN","AUPNVSIT",68,0) ; If asked to add VCN and failed, 2nd piece VCN = error code:msg "RTN","AUPNVSIT",69,0) ; "RTN","AUPNVSIT",70,0) ; VCN = patient ien + . + running count for patient+1 + last digit of pseudo code for the site (ex. 234.56) "RTN","AUPNVSIT",71,0) ; Running count for patient is stored in ^AUPNVSIT("AVCN",DFN) "RTN","AUPNVSIT",72,0) ; "RTN","AUPNVSIT",73,0) ; Due to call to DICN an exclusive NEW is used "RTN","AUPNVSIT",74,0) ; "RTN","AUPNVSIT",75,0) NEW X "RTN","AUPNVSIT",76,0) I '$G(AUPNVSIT) Q $S($G(AUPNADD)=1:"^1:INVALID VISIT IEN",1:"") "RTN","AUPNVSIT",77,0) S X=$P($G(^AUPNVSIT(AUPNVSIT,11)),U,3) I X Q X ;VCN already there "RTN","AUPNVSIT",78,0) I $G(AUPNADD)'=1 Q X ;return result if add not an option "RTN","AUPNVSIT",79,0) ; "RTN","AUPNVSIT",80,0) NEW (DT,DUZ,U,AUPNVSIT,AUPNADD) "RTN","AUPNVSIT",81,0) Q:'$G(^AUPNVSIT(AUPNVSIT,0)) "^1:INVALID VISIT IEN" "RTN","AUPNVSIT",82,0) Q:$P(^AUPNVSIT(AUPNVSIT,0),U,11)=1 "^2:DELETED VISIT" "RTN","AUPNVSIT",83,0) S DFN=$P(^AUPNVSIT(AUPNVSIT,0),U,5) Q:'DFN "^3:INVALID PATIENT ON VISIT" "RTN","AUPNVSIT",84,0) Q:'$G(^AUPNPAT(DFN,0)) "^3:INVALID PATIENT ON VISIT" "RTN","AUPNVSIT",85,0) Q:"ASORH"'[$P(^AUPNVSIT(AUPNVSIT,0),U,7) "^4:INVALID SERVICE CATEGORY" "RTN","AUPNVSIT",86,0) ; "RTN","AUPNVSIT",87,0) ;if vcn already exists, add to count until a good one is found "RTN","AUPNVSIT",88,0) ;S COUNT=$P(^AUPNPAT(DFN,0),U,37) ;last VCN "RTN","AUPNVSIT",89,0) ;F S COUNT=COUNT+1 Q:COUNT>99999 Q:'$D(^AUPNVSIT("VCN",DFN_"."_COUNT)) "RTN","AUPNVSIT",90,0) S COUNT=+$G(^AUPNVSIT("AVCN",DFN)) "RTN","AUPNVSIT",91,0) S ALPHA=$$ALPHA(AUPNVSIT) I ALPHA="" Q "^7:NO PSEUDO PREFIX FOR SITE" "RTN","AUPNVSIT",92,0) I ALPHA=+ALPHA Q "^8:INVALID PSEUDO PREFIX FOR SITE" "RTN","AUPNVSIT",93,0) F S COUNT=COUNT+1 Q:'$D(^AUPNVSIT("VCN",DFN_"."_COUNT_ALPHA)) "RTN","AUPNVSIT",94,0) I COUNT>99999 Q "^5:LAST VCN INVALID" "RTN","AUPNVSIT",95,0) S AUPNVCN=DFN_"."_COUNT_ALPHA "RTN","AUPNVSIT",96,0) ; "RTN","AUPNVSIT",97,0) S DIE="^AUPNVSIT(",DA=AUPNVSIT,DR="1103///"_AUPNVCN D ^DIE "RTN","AUPNVSIT",98,0) I $P($G(^AUPNVSIT(AUPNVSIT,11)),U,3)'=AUPNVCN Q "^6:DIE CALL FAILED:"_AUPNVCN "RTN","AUPNVSIT",99,0) Q AUPNVCN "RTN","AUPNVSIT",100,0) ; "RTN","AUPNVSIT",101,0) ALPHA(VISIT) ; - returns 3rd character of pseudo prefix form encounter location "RTN","AUPNVSIT",102,0) NEW X "RTN","AUPNVSIT",103,0) S X=$P($G(^AUPNVSIT(+$G(VISIT),0)),U,6) I 'X Q "" "RTN","AUPNVSIT",104,0) Q $E($P($G(^AUTTLOC(X,1)),U,2),3) "RTN","AUPNVSIT",105,0) ; "SEC","^DIC",9000010.33,9000010.33,0,"AUDIT") M "SEC","^DIC",9000010.33,9000010.33,0,"DD") @ "SEC","^DIC",9000010.33,9000010.33,0,"DEL") M "SEC","^DIC",9000010.33,9000010.33,0,"LAYGO") M "SEC","^DIC",9000010.33,9000010.33,0,"RD") M "SEC","^DIC",9000010.33,9000010.33,0,"WR") M "SEC","^DIC",9000010.35,9000010.35,0,"AUDIT") M "SEC","^DIC",9000010.35,9000010.35,0,"DD") @ "SEC","^DIC",9000010.35,9000010.35,0,"DEL") M "SEC","^DIC",9000010.35,9000010.35,0,"LAYGO") M "SEC","^DIC",9000010.35,9000010.35,0,"RD") M "SEC","^DIC",9000010.35,9000010.35,0,"WR") M "SEC","^DIC",9000010.38,9000010.38,0,"AUDIT") M "SEC","^DIC",9000010.38,9000010.38,0,"DD") @ "SEC","^DIC",9000010.38,9000010.38,0,"DEL") M "SEC","^DIC",9000010.38,9000010.38,0,"LAYGO") M "SEC","^DIC",9000010.38,9000010.38,0,"RD") M "SEC","^DIC",9000010.38,9000010.38,0,"WR") M "SEC","^DIC",9000010.39,9000010.39,0,"AUDIT") @ "SEC","^DIC",9000010.39,9000010.39,0,"DD") @ "SEC","^DIC",9000010.39,9000010.39,0,"DEL") M "SEC","^DIC",9000010.39,9000010.39,0,"LAYGO") M "SEC","^DIC",9000010.39,9000010.39,0,"RD") M "SEC","^DIC",9000010.39,9000010.39,0,"WR") M "SEC","^DIC",9000010.41,9000010.41,0,"AUDIT") M "SEC","^DIC",9000010.41,9000010.41,0,"DD") @ "SEC","^DIC",9000010.41,9000010.41,0,"DEL") M "SEC","^DIC",9000010.41,9000010.41,0,"LAYGO") M "SEC","^DIC",9000010.41,9000010.41,0,"RD") M "SEC","^DIC",9000010.41,9000010.41,0,"WR") M "SEC","^DIC",9000021,9000021,0,"AUDIT") M "SEC","^DIC",9000021,9000021,0,"DD") @ "SEC","^DIC",9000021,9000021,0,"DEL") M "SEC","^DIC",9000021,9000021,0,"LAYGO") M "SEC","^DIC",9000021,9000021,0,"RD") M "SEC","^DIC",9000021,9000021,0,"WR") M "SEC","^DIC",9000022,9000022,0,"AUDIT") M "SEC","^DIC",9000022,9000022,0,"DD") @ "SEC","^DIC",9000022,9000022,0,"DEL") M "SEC","^DIC",9000022,9000022,0,"LAYGO") M "SEC","^DIC",9000022,9000022,0,"RD") M "SEC","^DIC",9000022,9000022,0,"WR") M "SEC","^DIC",9000023,9000023,0,"AUDIT") M "SEC","^DIC",9000023,9000023,0,"DD") @ "SEC","^DIC",9000023,9000023,0,"DEL") M "SEC","^DIC",9000023,9000023,0,"LAYGO") M "SEC","^DIC",9000023,9000023,0,"RD") M "SEC","^DIC",9000023,9000023,0,"WR") M "SEC","^DIC",9000024,9000024,0,"AUDIT") M "SEC","^DIC",9000024,9000024,0,"DD") @ "SEC","^DIC",9000024,9000024,0,"DEL") M "SEC","^DIC",9000024,9000024,0,"LAYGO") M "SEC","^DIC",9000024,9000024,0,"RD") M "SEC","^DIC",9000024,9000024,0,"WR") M "SEC","^DIC",9000025,9000025,0,"AUDIT") M "SEC","^DIC",9000025,9000025,0,"DD") @ "SEC","^DIC",9000025,9000025,0,"DEL") M "SEC","^DIC",9000025,9000025,0,"LAYGO") M "SEC","^DIC",9000025,9000025,0,"RD") M "SEC","^DIC",9000025,9000025,0,"WR") M "UP",9000001,9000001.51,-1) 9000001^51 "UP",9000001,9000001.51,0) 9000001.51 "VER") 8.0^21.0 "^DD",9000001,9000001,.33,0) USER UPDATING PRIM CARE PROV^P200'^VA(200,^0;33^Q "^DD",9000001,9000001,.33,5,1,0) 9000001^.14^2 "^DD",9000001,9000001,.33,9) ^ "^DD",9000001,9000001,.33,"DT") 2990928 "^DD",9000001,9000001,.34,0) DATE PRIM CARE PROV UPDATED^D^^0;34^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",9000001,9000001,.34,5,1,0) 9000001^.14^3 "^DD",9000001,9000001,.34,9) ^ "^DD",9000001,9000001,.34,"DT") 2990928 "^DD",9000001,9000001,.35,0) NUMBER IN HOUSEHOLD^NJ2,0^^0;35^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X "^DD",9000001,9000001,.35,3) Type a Number between 0 and 99, 0 Decimal Digits "^DD",9000001,9000001,.35,"DT") 3000123 "^DD",9000001,9000001,.36,0) TOTAL HOUSEHOLD INCOME^NJ7,0^^0;36^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X "^DD",9000001,9000001,.36,3) Type a Number between 1 and 9999999, 0 Decimal Digits "^DD",9000001,9000001,.36,"DT") 3000126 "^DD",9000001,9000001,.37,0) REASON PRIM CARE PROV CHANGED^P9999999.93'^AUTTPCR(^0;37^Q "^DD",9000001,9000001,.37,1,0) ^.1 "^DD",9000001,9000001,.37,1,1,0) 9000001^REAS "^DD",9000001,9000001,.37,1,1,1) S ^AUPNPAT("REAS",$E(X,1,30),DA)="" "^DD",9000001,9000001,.37,1,1,2) K ^AUPNPAT("REAS",$E(X,1,30),DA) "^DD",9000001,9000001,.37,1,1,"DT") 3010521 "^DD",9000001,9000001,.37,"DT") 3010521 "^DD",9000001,9000001,.38,0) ENVOY ELIG DATE^D^^0;38^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",9000001,9000001,.38,"DT") 3010420 "^DD",9000001,9000001,.39,0) SEND TO REGISTRY^S^1:YES;0:NO;^0;39^Q "^DD",9000001,9000001,.39,"DT") 3010524 "^DD",9000001,9000001,1701,0) MH PRIMARY PROVIDER^P200'^VA(200,^17;1^Q "^DD",9000001,9000001,1701,1,0) ^.1^^-1 "^DD",9000001,9000001,1701,1,1,0) ^^TRIGGER^9000001^1702 "^DD",9000001,9000001,1701,1,1,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(9000001,1701,1,1,1.4) "^DD",9000001,9000001,1701,1,1,1.4) S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,2)=DIV,DIH=9000001,DIG=1702 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000001,9000001,1701,1,1,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(9000001,1701,1,1,2.4) "^DD",9000001,9000001,1701,1,1,2.4) S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,2)=DIV,DIH=9000001,DIG=1702 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000001,9000001,1701,1,1,"CREATE VALUE") S X=$G(DUZ) "^DD",9000001,9000001,1701,1,1,"DELETE VALUE") S X=$G(DUZ) "^DD",9000001,9000001,1701,1,1,"FIELD") #1702 "^DD",9000001,9000001,1701,1,2,0) ^^TRIGGER^9000001^1703 "^DD",9000001,9000001,1701,1,2,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$G(DT) X ^DD(9000001,1701,1,2,1.4) "^DD",9000001,9000001,1701,1,2,1.4) S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,3)=DIV,DIH=9000001,DIG=1703 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000001,9000001,1701,1,2,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$G(DT) X ^DD(9000001,1701,1,2,2.4) "^DD",9000001,9000001,1701,1,2,2.4) S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,3)=DIV,DIH=9000001,DIG=1703 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000001,9000001,1701,1,2,"CREATE VALUE") S X=$G(DT) "^DD",9000001,9000001,1701,1,2,"DELETE VALUE") S X=$G(DT) "^DD",9000001,9000001,1701,1,2,"DT") 3010112 "^DD",9000001,9000001,1701,1,2,"FIELD") #1703 "^DD",9000001,9000001,1701,"DT") 3010703 "^DD",9000001,9000001,1702,0) USER UPDATING MH PROVIDER^P200'^VA(200,^17;2^Q "^DD",9000001,9000001,1702,5,1,0) 9000001^1701^1 "^DD",9000001,9000001,1702,9) ^ "^DD",9000001,9000001,1702,"DT") 3010112 "^DD",9000001,9000001,1703,0) DATE MH PROVIDER UPDATED^D^^17;3^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",9000001,9000001,1703,5,1,0) 9000001^1701^2 "^DD",9000001,9000001,1703,9) ^ "^DD",9000001,9000001,1703,"DT") 3010112 "^DD",9000001,9000001,1704,0) MH MED MANAGER^P200'^VA(200,^17;4^Q "^DD",9000001,9000001,1704,1,0) ^.1^^-1 "^DD",9000001,9000001,1704,1,1,0) ^^TRIGGER^9000001^1705 "^DD",9000001,9000001,1704,1,1,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(9000001,1704,1,1,1.4) "^DD",9000001,9000001,1704,1,1,1.4) S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,5)=DIV,DIH=9000001,DIG=1705 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000001,9000001,1704,1,1,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(9000001,1704,1,1,2.4) "^DD",9000001,9000001,1704,1,1,2.4) S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,5)=DIV,DIH=9000001,DIG=1705 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000001,9000001,1704,1,1,"CREATE VALUE") S X=$G(DUZ) "^DD",9000001,9000001,1704,1,1,"DELETE VALUE") S X=$G(DUZ) "^DD",9000001,9000001,1704,1,1,"FIELD") #1705 "^DD",9000001,9000001,1704,1,2,0) ^^TRIGGER^9000001^1706 "^DD",9000001,9000001,1704,1,2,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$G(DT) X ^DD(9000001,1704,1,2,1.4) "^DD",9000001,9000001,1704,1,2,1.4) S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,6)=DIV,DIH=9000001,DIG=1706 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000001,9000001,1704,1,2,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPAT(D0,17)):^(17),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$G(DT) X ^DD(9000001,1704,1,2,2.4) "^DD",9000001,9000001,1704,1,2,2.4) S DIH=$S($D(^AUPNPAT(DIV(0),17)):^(17),1:""),DIV=X S $P(^(17),U,6)=DIV,DIH=9000001,DIG=1706 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000001,9000001,1704,1,2,"CREATE VALUE") S X=$G(DT) "^DD",9000001,9000001,1704,1,2,"DELETE VALUE") S X=$G(DT) "^DD",9000001,9000001,1704,1,2,"DT") 3010112 "^DD",9000001,9000001,1704,1,2,"FIELD") #1706 "^DD",9000001,9000001,1704,"DT") 3010703 "^DD",9000001,9000001,1705,0) USER UPDATING SEC MH PROV^P200'^VA(200,^17;5^Q "^DD",9000001,9000001,1705,5,1,0) 9000001^1704^1 "^DD",9000001,9000001,1705,9) ^ "^DD",9000001,9000001,1705,"DT") 3010112 "^DD",9000001,9000001,1706,0) DATE SEC MH PROV UPDATED^D^^17;6^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",9000001,9000001,1706,5,1,0) 9000001^1704^2 "^DD",9000001,9000001,1706,9) ^ "^DD",9000001,9000001,1706,"DT") 3010112 "^DD",9000001,9000001,1707,0) REASON MH PRIMARY PROV CHANGED^P9999999.93'^AUTTPCR(^17;7^Q "^DD",9000001,9000001,1707,.1) REASON PRIMARY MH PROVIDER CHANGED "^DD",9000001,9000001,1707,1,0) ^.1^^0 "^DD",9000001,9000001,1707,"DT") 3010312 "^DD",9000001,9000001,1708,0) REASON SEC MH PROV CHANGED^P9999999.93'^AUTTPCR(^17;8^Q "^DD",9000001,9000001,1708,.1) REASON SECONDARY MH PROVIDER CHANGED "^DD",9000001,9000001,1708,1,0) ^.1^^0 "^DD",9000001,9000001,1708,"DT") 3010312 "^DD",9000001,9000001,1709,0) CVD STATUS^S^1:ENROLLED;2:DECLINED;3:INELIGIBLE;^17;9^Q "^DD",9000001,9000001,1709,.1) CVD STATUS........ "^DD",9000001,9000001,1709,3) Enter the appropriate code from the list. "^DD",9000001,9000001,1709,21,0) ^^2^2^3010405^ "^DD",9000001,9000001,1709,21,1,0) Enter the appropriate code from the list to indicate the patient's CVD "^DD",9000001,9000001,1709,21,2,0) status. "^DD",9000001,9000001,1709,"DT") 3010405 "^DD",9000001,9000001,1710,0) DATE OF CVD STATUS^D^^17;10^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",9000001,9000001,1710,3) Enter the date the CVD status was assigned. "^DD",9000001,9000001,1710,21,0) ^^1^1^3010405^ "^DD",9000001,9000001,1710,21,1,0) Enter the date the CVD status was assigned. "^DD",9000001,9000001,1710,"DT") 3010405 "^DD",9000001,9000001,5101,0) PREVIOUS COMMUNITY^9000001.51D^^51;0 "^DD",9000001,9000001.51,0) PREVIOUS COMMUNITY SUB-FIELD^NL^.03^3 "^DD",9000001,9000001.51,0,"NM","PREVIOUS COMMUNITY") "^DD",9000001,9000001.51,.01,0) DATE MOVED^DX^^0;1^S %DT="E" D ^%DT S X=Y K:DTX) X D:$G(X) PAT5101^AUPNPED S:$D(X) DINUM=X "^DD",9000001,9000001.51,.01,1,0) ^.1^^0 "^DD",9000001,9000001.51,.01,3) TYPE A DATE BETWEEN 1890 AND TODAY "^DD",9000001,9000001.51,.01,10) 014/PADTAD "^DD",9000001,9000001.51,.01,21,0) ^3^4^4^2910612^^ "^DD",9000001,9000001.51,.01,21,1,0) The input transform forces the "DATE MOVED" field to be used as the "^DD",9000001,9000001.51,.01,21,2,0) subscript. This allows the computed field "CURRENT COMMUNITY" to get "^DD",9000001,9000001.51,.01,21,3,0) the latest community of residence regardless of the sequence entered. "^DD",9000001,9000001.51,.01,21,4,0) The CURRENT RESIDENCE field will also be triggered by activity of this multiple. "^DD",9000001,9000001.51,.01,"DT") 3000228 "^DD",9000004,9000004,.03,0) MEDICAID NUMBER^RF^^0;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<6) X "^DD",9000004,9000004,.03,1,0) ^.1 "^DD",9000004,9000004,.03,1,1,0) 9000004^AB^MUMPS "^DD",9000004,9000004,.03,1,1,1) K ^AUPNMCD("AB",$P(^AUPNMCD(DA,0),U,1),$S($P(^(0),U,4)'="":$P(^(0),U,4),1:"0"),"0",DA) S ^AUPNMCD("AB",$P(^AUPNMCD(DA,0),U,1),$S($P(^(0),U,4)'="":$P(^(0),U,4),1:"0"),X,DA)="" "^DD",9000004,9000004,.03,1,1,2) K ^AUPNMCD("AB",$P(^AUPNMCD(DA,0),U,1),$S($P(^(0),U,4)'="":$P(^(0),U,4),1:"0"),X,DA) "^DD",9000004,9000004,.03,1,2,0) 9000004^AE "^DD",9000004,9000004,.03,1,2,1) S ^AUPNMCD("AE",$E(X,1,30),DA)="" "^DD",9000004,9000004,.03,1,2,2) K ^AUPNMCD("AE",$E(X,1,30),DA) "^DD",9000004,9000004,.03,1,2,"DT") 3010326 "^DD",9000004,9000004,.03,3) ANSWER MUST BE 6-30 CHARACTERS IN LENGTH "^DD",9000004,9000004,.03,"DT") 3010326 "^DD",9000010,9000010,.13,0) DATE LAST MODIFIED^DX^^0;13^S %DT="EX" D ^%DT S X=Y K:DTX) X "^DD",9000010,9000010,.13,1,0) ^.1 "^DD",9000010,9000010,.13,1,1,0) 9000010^APCISTOO^MUMPS "^DD",9000010,9000010,.13,1,1,1) Q:DUZ("AG")["V" I $P(^AUPNVSIT(DA,0),U,14)="",'$D(DIU(0)),DUZ'=.5 K:$P(^AUPNVSIT(DA,0),U,2)]"" ^AUPNVSIT("APCIS",$P(^AUPNVSIT(DA,0),U,2),DA) S ^AUPNVSIT("APCIS",$E(X,1,30),DA)="" "^DD",9000010,9000010,.13,1,1,2) I '$D(DIU(0)) K ^AUPNVSIT("APCIS",$E(X,1,30),DA) "^DD",9000010,9000010,.13,1,1,"%D",0) ^^1^1^3001219^^^^ "^DD",9000010,9000010,.13,1,1,"%D",1,0) APCIS X-REF FOR IHS FOR DATA CENTER TRANSMISSION. "^DD",9000010,9000010,.13,1,1,"DT") 2980309 "^DD",9000010,9000010,.13,1,2,0) 9000010^ABILLTOO^MUMPS "^DD",9000010,9000010,.13,1,2,1) Q:DUZ("AG")["V" I $D(^AUTTSITE(1,0)),$P(^(0),U,15)="Y",DUZ'=.5,'$D(DIU(0)) K:$P(^AUPNVSIT(DA,0),U,2)]"" ^AUPNVSIT("ABILL",$P(^(0),U,2),DA) S ^AUPNVSIT("ABILL",X,DA)="" "^DD",9000010,9000010,.13,1,2,2) I '$D(DIU(0)) K ^AUPNVSIT("ABILL",X,DA) "^DD",9000010,9000010,.13,1,2,"%D",0) ^^1^1^2990105^^^^ "^DD",9000010,9000010,.13,1,2,"%D",1,0) IHS BILLING X-REF. "^DD",9000010,9000010,.13,1,2,"DT") 2950330 "^DD",9000010,9000010,.13,1,3,0) ^^TRIGGER^9000010^.27 "^DD",9000010,9000010,.13,1,3,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,0)):^(0),1:"") S X=$P(Y(1),U,27),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ X ^DD(9000010,.13,1,3,1.4) "^DD",9000010,9000010,.13,1,3,1.4) S DIH=$S($D(^AUPNVSIT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,27)=DIV,DIH=9000010,DIG=.27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010,9000010,.13,1,3,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSIT(D0,0)):^(0),1:"") S X=$P(Y(1),U,27),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ X ^DD(9000010,.13,1,3,2.4) "^DD",9000010,9000010,.13,1,3,2.4) S DIH=$S($D(^AUPNVSIT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,27)=DIV,DIH=9000010,DIG=.27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010,9000010,.13,1,3,"CREATE VALUE") I '$D(DIU(0)) S X=DUZ "^DD",9000010,9000010,.13,1,3,"DELETE VALUE") I '$D(DIU(0)) S X=DUZ "^DD",9000010,9000010,.13,1,3,"DT") 2960718 "^DD",9000010,9000010,.13,1,3,"FIELD") #.27 "^DD",9000010,9000010,.13,1,4,0) 9000010^AQAJ2^MUMPS "^DD",9000010,9000010,.13,1,4,1) I '$D(DIU(0)),'$D(ZTQUEUED),'$D(APCP) S AQAJSAV=$G(X),X="AQAJUPD" X ^%ZOSF("TEST") S X=AQAJSAV K AQAJSAV I $T D UPDATE^AQAJUPD(DA) D KILLNM^AQAJUTIL "^DD",9000010,9000010,.13,1,4,2) Q "^DD",9000010,9000010,.13,1,4,"%D",0) ^^4^4^2990511^^^^ "^DD",9000010,9000010,.13,1,4,"%D",1,0) UPDATES QI JCAHO IMS FILE "^DD",9000010,9000010,.13,1,4,"%D",2,0) If a facility is running the QI Linkages-JCAHO package, this xref will "^DD",9000010,9000010,.13,1,4,"%D",3,0) update the QI JCAHO IMS file for hospitalizations only that have been "^DD",9000010,9000010,.13,1,4,"%D",4,0) modified after the coding is complete. "^DD",9000010,9000010,.13,1,4,"DT") 2990511 "^DD",9000010,9000010,.13,3) TYPE A DATE BETWEEN 1960 AND TODAY "^DD",9000010,9000010,.13,5,1,0) 9000010^.02^3 "^DD",9000010,9000010,.13,20,0) ^.3LA^3^3 "^DD",9000010,9000010,.13,20,1,0) IHS "^DD",9000010,9000010,.13,20,2,0) VA "^DD",9000010,9000010,.13,20,3,0) IHS/VA "^DD",9000010,9000010,.13,21,0) ^^3^3^2950831^^ "^DD",9000010,9000010,.13,21,1,0) Date on which the visit was last modified. Any time a field in the visit "^DD",9000010,9000010,.13,21,2,0) file or a V File is added or deleted, this field is automatically updated with the current "^DD",9000010,9000010,.13,21,3,0) date. "^DD",9000010,9000010,.13,"DT") 2960718 "^DD",9000010,9000010,.18,0) CHECK OUT DATE&TIME^DX^^0;18^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,.18,3) Enter the date and time the patient checked out. "^DD",9000010,9000010,.18,21,0) ^^2^2^2951013^^ "^DD",9000010,9000010,.18,21,1,0) This field is the date and time the patient checked out for this visit. "^DD",9000010,9000010,.18,21,2,0) This field will only store the information temporarily and will be empty. "^DD",9000010,9000010,.18,23,0) ^^2^2^2951013^^ "^DD",9000010,9000010,.18,23,1,0) This data is passed from the MCCR event data capture and then passed "^DD",9000010,9000010,.18,23,2,0) from PCE to PIMS 5.3 for automated check-out. "^DD",9000010,9000010,.18,23,3,0) APCDALVR Variable = APCDALVR("APCDCODT") "^DD",9000010,9000010,.18,"DT") 2990512 "^DD",9000010,9000010,.22,0) HOSPITAL LOCATION^P44'^SC(^0;22^Q "^DD",9000010,9000010,.22,1,0) ^.1 "^DD",9000010,9000010,.22,1,1,0) 9000010^AHL^MUMPS "^DD",9000010,9000010,.22,1,1,1) I $P($G(^AUPNVSIT(DA,0)),U,22) S ^AUPNVSIT("AHL",$P(^(0),U,22),(9999999-$P($P(^(0),U,1),".",1))_"."_$P($P(^(0),U,1),".",2),DA)="" "^DD",9000010,9000010,.22,1,1,2) I $P($G(^AUPNVSIT(DA,0)),U,22) K ^AUPNVSIT("AHL",$P(^(0),U,22),(9999999-$P($P(^(0),U,1),".",1))_"."_$P($P(^(0),U,1),".",2),DA) "^DD",9000010,9000010,.22,1,1,"%D",0) ^^1^1^2950126^^^^ "^DD",9000010,9000010,.22,1,1,"%D",1,0) Hospital Location inverse date x-ref. "^DD",9000010,9000010,.22,1,1,"DT") 2950126 "^DD",9000010,9000010,.22,1,2,0) 9000010^AAAP3^MUMPS "^DD",9000010,9000010,.22,1,2,1) I $P($G(^AUPNVSIT(DA,150)),U,3)="P",$P($G(^AUPNVSIT(DA,0)),U,22)]"" S ^AUPNVSIT("AAAP",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),"P",DA)="" "^DD",9000010,9000010,.22,1,2,2) K ^AUPNVSIT("AAAP",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),X,"P",DA) "^DD",9000010,9000010,.22,1,2,"%D",0) ^^1^1^2990930^^ "^DD",9000010,9000010,.22,1,2,"%D",1,0) This is a cross reference for OE 3 and CPRS. It is made on the patient, visit date/time, hospital location, primary type of visit, visit IEN. "^DD",9000010,9000010,.22,1,2,"DT") 2990930 "^DD",9000010,9000010,.22,3) Answer with the name of the hospital location where this visit occurred. "^DD",9000010,9000010,.22,20,0) ^.3LA^1^1 "^DD",9000010,9000010,.22,20,1,0) VA "^DD",9000010,9000010,.22,21,0) ^^1^1^2950608^^^ "^DD",9000010,9000010,.22,21,1,0) The hospital location where this visit occurred. "^DD",9000010,9000010,.22,23,0) ^^1^1^2960924^ "^DD",9000010,9000010,.22,23,1,0) APCDALVR Variable = APCDALVR("APCDHL") "^DD",9000010,9000010,.22,"DT") 2950913 "^DD",9000010,9000010,.26,0) APPT DATE&TIME^DX^^0;26^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,.26,23,0) ^^1^1^2960924^ "^DD",9000010,9000010,.26,23,1,0) APCDALVR Variable = APCDALVR("APCDAPDT") "^DD",9000010,9000010,.26,"DT") 2990512 "^DD",9000010,9000010,1103,0) VCN^FI^^11;3^K:$L(X)>13!($L(X)<1) X "^DD",9000010,9000010,1103,1,0) ^.1 "^DD",9000010,9000010,1103,1,1,0) 9000010^VCN "^DD",9000010,9000010,1103,1,1,1) S ^AUPNVSIT("VCN",$E(X,1,30),DA)="" "^DD",9000010,9000010,1103,1,1,2) K ^AUPNVSIT("VCN",$E(X,1,30),DA) "^DD",9000010,9000010,1103,1,1,"DT") 3000622 "^DD",9000010,9000010,1103,1,2,0) 9000010^AVCN^MUMPS "^DD",9000010,9000010,1103,1,2,1) Q:$P(^AUPNVSIT(DA,0),U,5)="" I +$P(X,".",2)>$G(^AUPNVSIT("AVCN",$P(^AUPNVSIT(DA,0),U,5))) S ^AUPNVSIT("AVCN",$P(^AUPNVSIT(DA,0),U,5))=+$P(X,".",2) "^DD",9000010,9000010,1103,1,2,2) Q "^DD",9000010,9000010,1103,1,2,"DT") 3000823 "^DD",9000010,9000010,1103,3) Answer must be 1-13 characters in length. "^DD",9000010,9000010,1103,"DT") 3000824 "^DD",9000010,9000010,1104,0) UNIQUE VISIT ID^F^^11;4^K:$L(X)>16!($L(X)<16) X "^DD",9000010,9000010,1104,3) Answer must be 16 characters in length. "^DD",9000010,9000010,1104,"DT") 3001213 "^DD",9000010,9000010,1211,0) EXTERNAL ACCOUNT NO^F^^12;11^K:$L(X)>30!($L(X)<1) X "^DD",9000010,9000010,1211,1,0) ^.1 "^DD",9000010,9000010,1211,1,1,0) 9000010^AXT "^DD",9000010,9000010,1211,1,1,1) S ^AUPNVSIT("AXT",$E(X,1,30),DA)="" "^DD",9000010,9000010,1211,1,1,2) K ^AUPNVSIT("AXT",$E(X,1,30),DA) "^DD",9000010,9000010,1211,1,1,"%D",0) ^^1^1^3000309^ "^DD",9000010,9000010,1211,1,1,"%D",1,0) Cross reference for external account number "^DD",9000010,9000010,1211,1,1,"DT") 3000309 "^DD",9000010,9000010,1211,3) Please enter the external system account number "^DD",9000010,9000010,1211,"DT") 3000309 "^DD",9000010,9000010,1301,0) TRIAGE CHECK IN^D^^13;1^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1301,"DT") 3000202 "^DD",9000010,9000010,1302,0) TRIAGE CHECK OUT^D^^13;2^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1302,3) "^DD",9000010,9000010,1302,"DT") 3000202 "^DD",9000010,9000010,1303,0) NURSE CHECK IN^D^^13;3^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1303,3) "^DD",9000010,9000010,1303,"DT") 3000202 "^DD",9000010,9000010,1304,0) NURSE CHECK OUT^D^^13;4^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1304,3) "^DD",9000010,9000010,1304,"DT") 3000202 "^DD",9000010,9000010,1305,0) NURSE TX CHECK IN^D^^13;5^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1305,3) "^DD",9000010,9000010,1305,"DT") 3000202 "^DD",9000010,9000010,1306,0) NURSE TX CHECK OUT^D^^13;6^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1306,3) "^DD",9000010,9000010,1306,"DT") 3000202 "^DD",9000010,9000010,1307,0) DOCTOR CHECK IN^D^^13;7^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1307,3) "^DD",9000010,9000010,1307,"DT") 3000202 "^DD",9000010,9000010,1308,0) DOCTOR CHECK OUT^D^^13;8^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1308,3) "^DD",9000010,9000010,1308,"DT") 3000202 "^DD",9000010,9000010,1309,0) LAB CHECK IN^D^^13;9^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1309,3) "^DD",9000010,9000010,1309,"DT") 3000202 "^DD",9000010,9000010,1310,0) LAB CHECK OUT^D^^13;10^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1310,3) "^DD",9000010,9000010,1310,"DT") 3000202 "^DD",9000010,9000010,1311,0) PHARMACY CHECK IN^D^^13;11^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1311,3) "^DD",9000010,9000010,1311,"DT") 3000202 "^DD",9000010,9000010,1312,0) PHARMACY CHECK OUT^D^^13;12^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1312,3) "^DD",9000010,9000010,1312,"DT") 3000202 "^DD",9000010,9000010,1313,0) RADIOLOGY CHECK IN^D^^13;13^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1313,3) "^DD",9000010,9000010,1313,"DT") 3000202 "^DD",9000010,9000010,1314,0) RADIOLOGY CHECK OUT^D^^13;14^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X "^DD",9000010,9000010,1314,3) "^DD",9000010,9000010,1314,"DT") 3000202 "^DD",9000010,9000010,1401,0) CHIEF COMPLAINT^F^^14;1^K:$L(X)>80!($L(X)<3) X "^DD",9000010,9000010,1401,3) Answer must be 3-80 characters in length. "^DD",9000010,9000010,1401,"DT") 3000626 "^DD",9000010.01,9000010.01,.04,0) VALUE^RFXO^^0;4^K:X["""" X I $D(X) K:$L(X)>100!($L(X)<1) X D:$D(X) ^AUPNVMSR "^DD",9000010.01,9000010.01,.04,1,0) ^.1 "^DD",9000010.01,9000010.01,.04,1,1,0) 9000010.01^AQPC^MUMPS "^DD",9000010.01,9000010.01,.04,1,1,1) S AUPNCIXF="S" D VMSRPCT^AUPNCIX K AUPNCIXF "^DD",9000010.01,9000010.01,.04,1,1,2) S AUPNCIXF="K" D VMSRPCT^AUPNCIX K AUPNCIXF "^DD",9000010.01,9000010.01,.04,1,1,"%D",0) ^^4^4^2910725^^^^ "^DD",9000010.01,9000010.01,.04,1,1,"%D",1,0) If patient under age 18, measurement a height or weight will set a value "^DD",9000010.01,9000010.01,.04,1,1,"%D",2,0) in the .05 percentile field of this file and then execute all xrefs and set "^DD",9000010.01,9000010.01,.04,1,1,"%D",3,0) the "AQ" compound x-ref on the .05 field directly prefacing the %ile value "^DD",9000010.01,9000010.01,.04,1,1,"%D",4,0) with HPC for ht %ile and WPC for wt %ile. "^DD",9000010.01,9000010.01,.04,1,1,"DT") 2910708 "^DD",9000010.01,9000010.01,.04,1,2,0) 9000010.01^AQ "^DD",9000010.01,9000010.01,.04,1,2,1) S AUPNCIXF="S" D VMSR04^AUPNCIX K AUPNCIXF "^DD",9000010.01,9000010.01,.04,1,2,2) S AUPNCIXF="K" D VMSR04^AUPNCIX K AUPNCIXF "^DD",9000010.01,9000010.01,.04,2) S Y(0)=Y S Y=$$OUT^AUPNVMSR(D0,Y) "^DD",9000010.01,9000010.01,.04,2.1) S Y=$$OUT^AUPNVMSR(D0,Y) "^DD",9000010.01,9000010.01,.04,3) "^DD",9000010.01,9000010.01,.04,4) D HELP^AUPNVMSR "^DD",9000010.01,9000010.01,.04,23,0) ^^3^3^2960924^ "^DD",9000010.01,9000010.01,.04,23,1,0) The entry logic for each measurement type value is found in the AUPNVMSR "^DD",9000010.01,9000010.01,.04,23,2,0) routine that is executed by the input transform. "^DD",9000010.01,9000010.01,.04,23,3,0) APCDALVR Variable = APCDALVR("APCDTVAL") "^DD",9000010.01,9000010.01,.04,"DT") 3000331 "^DD",9000010.02,9000010.02,6101,0) ADMISSION TYPE-UB92^S^1:EMERGENCY;2:URGENT;3:ELECTIVE;4:NEWBORN;^61;1^Q "^DD",9000010.02,9000010.02,6101,"DT") 2990902 "^DD",9000010.02,9000010.02,6102,0) ADMISSION SOURCE-UB92^P9999999.53'^AUTTASRC(^61;2^Q "^DD",9000010.02,9000010.02,6102,3) "^DD",9000010.02,9000010.02,6102,"DT") 2990728 "^DD",9000010.02,9000010.02,6103,0) DISCHARGE STATUS-UB92^S^1:HOME;2:OTHER HOSP;3:SNF;4:INTER. CARE FAC;5:OTHER TYPE FAC;6:HOME UNDER HMO;7:LEFT AGAINST MEDICAL ADVICE;10:MENTAL HEALTH FAC;20:EXPIRED;30:STILL PATIENT;^61;3^Q "^DD",9000010.02,9000010.02,6103,"DT") 2990902 "^DD",9000010.07,9000010.07,.01,0) POV^R*P80'X^ICD9(^0;1^S:$D(APCDEIN) APCDTPCC="" S DIC("S")="D ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.07,9000010.07,.01,1,0) ^.1 "^DD",9000010.07,9000010.07,.01,1,1,0) 9000010.07^B "^DD",9000010.07,9000010.07,.01,1,1,1) S ^AUPNVPOV("B",$E(X,1,30),DA)="" "^DD",9000010.07,9000010.07,.01,1,1,2) K ^AUPNVPOV("B",$E(X,1,30),DA) "^DD",9000010.07,9000010.07,.01,1,2,0) 9000010.07^AV9^MUMPS "^DD",9000010.07,9000010.07,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000010.07,9000010.07,.01,1,2,2) Q "^DD",9000010.07,9000010.07,.01,1,3,0) 9000010.07^AE^MUMPS "^DD",9000010.07,9000010.07,.01,1,3,1) S ATXSAVE=X,X="ATXPOV" X ^%ZOSF("TEST") S X=ATXSAVE K ATXSAVE I $T S ATXAD="" D ^ATXPOV K ATXAD "^DD",9000010.07,9000010.07,.01,1,3,2) K ATXAD S ATXSAVE=X,X="ATXPOV" X ^%ZOSF("TEST") S X=ATXSAVE K ATXSAVE I $T D ^ATXPOV "^DD",9000010.07,9000010.07,.01,1,4,0) 9000010.07^ABAT^MUMPS "^DD",9000010.07,9000010.07,.01,1,4,1) I $T(EP^BATREG)]"",$E($P(^ICD9(X,0),U),1,3)=493,$D(^BATREG(0)),$G(APCDPAT),$G(APCDVSIT) D EP^BATREG(APCDPAT,DA,APCDVSIT) "^DD",9000010.07,9000010.07,.01,1,4,2) Q "^DD",9000010.07,9000010.07,.01,1,4,"DT") 3010227 "^DD",9000010.07,9000010.07,.01,3) Enter the ICD Diagnosis code or text for the problem treated at the encounter. "^DD",9000010.07,9000010.07,.01,12) POV CANNOT BE AN 'E' CODE, AN INACTIVE CODE AND IT MUST BE APPROPRIATE FOR THE PATIENT'S AGE AND SEX "^DD",9000010.07,9000010.07,.01,12.1) S DIC("S")="D ^AUPNSICD" "^DD",9000010.07,9000010.07,.01,21,0) ^^16^16^2950831^ "^DD",9000010.07,9000010.07,.01,21,1,0) POV is an abbreviation for "Purpose of Visit". Since Purpose of Visit is "^DD",9000010.07,9000010.07,.01,21,2,0) often confused with "Chief complaint", another abbreviation might better "^DD",9000010.07,9000010.07,.01,21,3,0) be "Problem of Visit". This is the Provider's conclusion about what was "^DD",9000010.07,9000010.07,.01,21,4,0) treated at the visit. The Provider should be able to indicate a preferred "^DD",9000010.07,9000010.07,.01,21,5,0) narrative for what was treated and an ICD Diagnosis code. If the problem "^DD",9000010.07,9000010.07,.01,21,6,0) treated is from the Problem List, then the problem list entry information "^DD",9000010.07,9000010.07,.01,21,7,0) can be used for the "Problem of Visit" entry. The provider can "^DD",9000010.07,9000010.07,.01,21,8,0) alternatively have this information automatically captured via scanned "^DD",9000010.07,9000010.07,.01,21,9,0) Encounter Forms (e.g., AICS - the VA's Encounter Form Data Capture "^DD",9000010.07,9000010.07,.01,21,10,0) package). "^DD",9000010.07,9000010.07,.01,21,11,0) "^DD",9000010.07,9000010.07,.01,21,12,0) At VA facilites, the ICD Diagnosis is screened by Inactive Code and it "^DD",9000010.07,9000010.07,.01,21,13,0) must be appropriate for the Patient's age and sex. "^DD",9000010.07,9000010.07,.01,21,14,0) "^DD",9000010.07,9000010.07,.01,21,15,0) At IHS facilities, the ICD Diagnosis is screened by Inactive Code, "^DD",9000010.07,9000010.07,.01,21,16,0) appropriate for the Patient's age and sex, and Not "E" codes. "^DD",9000010.07,9000010.07,.01,23,0) ^^2^2^2960925^^ "^DD",9000010.07,9000010.07,.01,23,1,0) This is a pointer to the ICD Diagnosis (#80) file. "^DD",9000010.07,9000010.07,.01,23,2,0) APCDALVR Variable = APCDALVR("APCDTPOV") "^DD",9000010.07,9000010.07,.01,"AUDIT") n "^DD",9000010.07,9000010.07,.01,"DT") 3010227 "^DD",9000010.07,9000010.07,.18,0) E-CODE 2^*P80'^ICD9(^0;18^S DIC("S")="I $E(^(0))=""E"",$E(^(0),2)>7,$P(^(0),U,9)=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.07,9000010.07,.18,12) MUST BE A VALID ECODE. "^DD",9000010.07,9000010.07,.18,12.1) S DIC("S")="I $E(^(0))=""E"",$E(^(0),2)>7,$P(^(0),U,9)=""""" "^DD",9000010.07,9000010.07,.18,"DT") 3010109 "^DD",9000010.07,9000010.07,.19,0) E-CODE 3^*P80'^ICD9(^0;19^S DIC("S")="I $E(^(0))=""E"",$E(^(0),2)>7,$P(^(0),U,9)=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.07,9000010.07,.19,12) MUST BE A VALID E CODE. "^DD",9000010.07,9000010.07,.19,12.1) S DIC("S")="I $E(^(0))=""E"",$E(^(0),2)>7,$P(^(0),U,9)=""""" "^DD",9000010.07,9000010.07,.19,"DT") 3010109 "^DD",9000010.07,9000010.07,1501,0) DATE PASSED TO EXTERNAL^D^^15;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",9000010.07,9000010.07,1501,"DT") 3000515 "^DD",9000010.08,9000010.08,.17,0) CPT MODIFIER^P9999999.88'^AUTTCMOD(^0;17^Q "^DD",9000010.08,9000010.08,.17,"DT") 2990916 "^DD",9000010.08,9000010.08,.18,0) CPT MODIFIER 2^P9999999.88'^AUTTCMOD(^0;18^Q "^DD",9000010.08,9000010.08,.18,"DT") 2990916 "^DD",9000010.08,9000010.08,1501,0) DATE PASSED TO EXTERNAL^D^^15;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",9000010.08,9000010.08,1501,"DT") 3000515 "^DD",9000010.09,9000010.09,.06,0) LR ACCESSION NO.^RF^^0;6^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<7) X "^DD",9000010.09,9000010.09,.06,1,0) ^.1 "^DD",9000010.09,9000010.09,.06,1,1,0) 9000010.09^ALR^MUMPS "^DD",9000010.09,9000010.09,.06,1,1,1) S ^AUPNVLAB("ALR",$P(^AUPNVLAB(DA,0),U,3),X,$P(^AUPNVLAB(DA,0),U),DA)="" "^DD",9000010.09,9000010.09,.06,1,1,2) K ^AUPNVLAB("ALR",$P(^AUPNVLAB(DA,0),U,3),X,$P(^AUPNVLAB(DA,0),U),DA) "^DD",9000010.09,9000010.09,.06,1,2,0) 9000010.09^ALR0 "^DD",9000010.09,9000010.09,.06,1,2,1) S ^AUPNVLAB("ALR0",$E(X,1,30),DA)="" "^DD",9000010.09,9000010.09,.06,1,2,2) K ^AUPNVLAB("ALR0",$E(X,1,30),DA) "^DD",9000010.09,9000010.09,.06,1,2,"DT") 2910419 "^DD",9000010.09,9000010.09,.06,3) Answer must be 7-16 characters in length. "^DD",9000010.09,9000010.09,.06,10) 095/LRSHVC "^DD",9000010.09,9000010.09,.06,23,0) ^^1^1^2960924^ "^DD",9000010.09,9000010.09,.06,23,1,0) APCDALVR Variable = APCDALVR("APCDTACC") "^DD",9000010.09,9000010.09,.06,"DT") 2990406 "^DD",9000010.09,9000010.09,1112,0) LAB POV^P80'^ICD9(^11;12^Q "^DD",9000010.09,9000010.09,1112,"DT") 2980813 "^DD",9000010.09,9000010.09,1501,0) DATE PASSED TO EXTERNAL^D^^15;1^S %DT="E" D ^%DT S X=Y K:Y<1 X "^DD",9000010.09,9000010.09,1501,3) Please enter the date this entry was passed to the external system "^DD",9000010.09,9000010.09,1501,"DT") 3000210 "^DD",9000010.11,9000010.11,.05,0) LOT^*P9999999.41'^AUTTIML(^0;5^S DIC("S")="I $P(^(0),U,3)=0,$D(^AUTTIML(""C"",$P(^AUPNVIMM(DA,0),U,1),Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.11,9000010.11,.05,12) LOT MUST BE AVAILABLE AND MUST BE A VALID LOT FOR THE IMMUNIZATION BEING ENTERED. "^DD",9000010.11,9000010.11,.05,12.1) S DIC("S")="I $P(^(0),U,3)=0,$D(^AUTTIML(""C"",$P(^AUPNVIMM(DA,0),U,1),Y))" "^DD",9000010.11,9000010.11,.05,23,0) ^^1^1^2960924^ "^DD",9000010.11,9000010.11,.05,23,1,0) APCDALVR Variable = APCDALVR("APCDTLOT") "^DD",9000010.11,9000010.11,.05,"DT") 2890816 "^DD",9000010.14,9000010.14,1103,0) BILLED?^S^Y:YES;N:NO;^11;3^Q "^DD",9000010.14,9000010.14,1103,"DT") 3000105 "^DD",9000010.14,9000010.14,1201,0) EVENT DATE&TIME^DX^^12;1^S %DT="ETX" D ^%DT S X=Y K:Y<1 X "^DD",9000010.14,9000010.14,1201,23,0) ^^1^1^2960924^ "^DD",9000010.14,9000010.14,1201,23,1,0) APCDALVR Variable = APCDALVR("APCDTCDT") "^DD",9000010.14,9000010.14,1201,"DT") 2951214 "^DD",9000010.14,9000010.14,1501,0) DATE PASSED TO EXTERNAL^D^^15;1^S %DT="E" D ^%DT S X=Y K:Y<1 X "^DD",9000010.14,9000010.14,1501,3) Please enter the date this entry was passed to the external syste "^DD",9000010.14,9000010.14,1501,"DT") 3000210 "^DD",9000010.16,9000010.16,.01,0) TOPIC^R*P9999999.09'^AUTTEDT(^0;1^S DIC("S")="I $P(^(0),U,3)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.16,9000010.16,.01,1,0) ^.1 "^DD",9000010.16,9000010.16,.01,1,1,0) 9000010.16^B "^DD",9000010.16,9000010.16,.01,1,1,1) S ^AUPNVPED("B",$E(X,1,30),DA)="" "^DD",9000010.16,9000010.16,.01,1,1,2) K ^AUPNVPED("B",$E(X,1,30),DA) "^DD",9000010.16,9000010.16,.01,1,2,0) 9000010.16^AV9^MUMPS "^DD",9000010.16,9000010.16,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000010.16,9000010.16,.01,1,2,2) Q "^DD",9000010.16,9000010.16,.01,3) Select the topic on which education was delivered. "^DD",9000010.16,9000010.16,.01,12) Only active Education Topics may be selected. "^DD",9000010.16,9000010.16,.01,12.1) S DIC("S")="I $P(^(0),U,3)'=1" "^DD",9000010.16,9000010.16,.01,21,0) ^^1^1^2870422^ "^DD",9000010.16,9000010.16,.01,21,1,0) Pointer to the EDUCATION TOPICS file. "^DD",9000010.16,9000010.16,.01,21,2,0) education given to the patient. "^DD",9000010.16,9000010.16,.01,23,0) ^^1^1^2960924^ "^DD",9000010.16,9000010.16,.01,23,1,0) APCDALVR Variable = APCDALVR("APCDTTOP") "^DD",9000010.16,9000010.16,.01,"DT") 2980728 "^DD",9000010.16,9000010.16,.04,0) ICD DIAGNOSIS^P80'^ICD9(^0;4^Q "^DD",9000010.16,9000010.16,.04,"DT") 3000323 "^DD",9000010.16,9000010.16,.041,0) ICD TEXT^CJ8^^ ; ^X ^DD(9000010.16,.041,9.2) S Y(9000010.16,.041,101)=$S($D(^ICD9(D0,0)):^(0),1:"") S X=$P(Y(9000010.16,.041,101),U,3) S D0=Y(9000010.16,.041,80) "^DD",9000010.16,9000010.16,.041,9) ^ "^DD",9000010.16,9000010.16,.041,9.01) 80^3;9000010.16^.04 "^DD",9000010.16,9000010.16,.041,9.1) #.04:#3 "^DD",9000010.16,9000010.16,.041,9.2) S Y(9000010.16,.041,80)=$S($D(D0):D0,1:""),Y(9000010.16,.041,1)=$S($D(^AUPNVPED(D0,0)):^(0),1:""),D0=$P(Y(9000010.16,.041,1),U,4) S:'$D(^ICD9(+D0,0)) D0=-1 "^DD",9000010.16,9000010.16,.06,0) LEVEL OF UNDERSTANDING^S^1:POOR;2:FAIR;3:GOOD;4:GROUP-NO ASSESSMENT;5:REFUSED;^0;6^Q "^DD",9000010.16,9000010.16,.06,3) Enter the number which best rates the patient's level of understanding. "^DD",9000010.16,9000010.16,.06,21,0) ^^2^2^2950901^ "^DD",9000010.16,9000010.16,.06,21,1,0) This is the provider's assessment of how well the patient understood the "^DD",9000010.16,9000010.16,.06,21,2,0) education received. "^DD",9000010.16,9000010.16,.06,23,0) ^^1^1^2960924^ "^DD",9000010.16,9000010.16,.06,23,1,0) APCDALVR Variable = APCDALVR("APCDTLOU") "^DD",9000010.16,9000010.16,.06,"DT") 2930907 "^DD",9000010.16,9000010.16,.07,0) INDIVIDUAL/GROUP^S^G:GROUP SETTING;I:INDIVIDUAL;^0;7^Q "^DD",9000010.16,9000010.16,.07,3) WAS THIS PATIENT EDUCATION PROVIDED IN A GROUP SETTING OR PROVIDED TO AN INDIVIDUAL "^DD",9000010.16,9000010.16,.07,23,0) ^^1^1^2960924^ "^DD",9000010.16,9000010.16,.07,23,1,0) APCDALVR Variable = APCDALVR("APCDTIG") "^DD",9000010.16,9000010.16,.07,"DT") 2960710 "^DD",9000010.16,9000010.16,.08,0) LENGTH OF EDUC (MINUTES)^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X "^DD",9000010.16,9000010.16,.08,3) ENTER THE NUMBER OF MINUTES THAT THIS PATIENT EDUCATION WAS PROVIDED "^DD",9000010.16,9000010.16,.08,23,0) ^^1^1^2960924^ "^DD",9000010.16,9000010.16,.08,23,1,0) APCDALVR Variable = APCDALVR("APCDTMIN") "^DD",9000010.16,9000010.16,.08,"DT") 2960924 "^DD",9000010.16,9000010.16,.09,0) CPT CODE^P81'^ICPT(^0;9^Q "^DD",9000010.16,9000010.16,.09,23,0) ^^1^1^2960924^ "^DD",9000010.16,9000010.16,.09,23,1,0) APCDALVR Variable = APCDALVR("APCDTCPT") "^DD",9000010.16,9000010.16,.09,"DT") 2960710 "^DD",9000010.16,9000010.16,.11,0) COMMENT^F^^0;11^K:$L(X)>100!($L(X)<2) X "^DD",9000010.16,9000010.16,.11,3) Answer must be 2-100 characters in length. "^DD",9000010.16,9000010.16,.11,21,0) ^^2^2^2961105^ "^DD",9000010.16,9000010.16,.11,21,1,0) This field is to capture narrative text about the patient education "^DD",9000010.16,9000010.16,.11,21,2,0) given. Will display on the health summary if present. "^DD",9000010.16,9000010.16,.11,"DT") 2981009 "^DD",9000010.16,9000010.16,.12,0) TOPIC CATEGORY^P9001002.5'^APCDEDCV(^0;12^Q "^DD",9000010.16,9000010.16,.12,1,0) ^.1^^0 "^DD",9000010.16,9000010.16,.12,"DT") 3000601 "^DD",9000010.16,9000010.16,1101,0) PROVIDER'S NARRATIVE^F^^11;1^K:$L(X)>80!($L(X)<3) X "^DD",9000010.16,9000010.16,1101,3) Answer must be 3-80 characters in length. "^DD",9000010.16,9000010.16,1101,"DT") 3000621 "^DD",9000010.18,9000010.18,.01,0) CPT^R*P81'X^ICPT(^0;1^S DIC("S")="I '$P($G(^ICPT(Y,0)),""^"",4)!($D(APCDOVR))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.18,9000010.18,.01,1,0) ^.1^^-1 "^DD",9000010.18,9000010.18,.01,1,1,0) 9000010.18^B "^DD",9000010.18,9000010.18,.01,1,1,1) S ^AUPNVCPT("B",$E(X,1,30),DA)="" "^DD",9000010.18,9000010.18,.01,1,1,2) K ^AUPNVCPT("B",$E(X,1,30),DA) "^DD",9000010.18,9000010.18,.01,1,2,0) 9000010.18^AV9^MUMPS "^DD",9000010.18,9000010.18,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000010.18,9000010.18,.01,1,2,2) Q "^DD",9000010.18,9000010.18,.01,1,3,0) 9000010.18^AATOO^MUMPS "^DD",9000010.18,9000010.18,.01,1,3,1) I $P(^AUPNVCPT(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVCPT("AA",$P(^AUPNVCPT(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),".",1)),DA)="" "^DD",9000010.18,9000010.18,.01,1,3,2) I $P(^AUPNVCPT(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVCPT("AA",$P(^AUPNVCPT(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),".",1)),DA) "^DD",9000010.18,9000010.18,.01,1,3,"%D",0) ^^4^4^2960716^^ "^DD",9000010.18,9000010.18,.01,1,3,"%D",1,0) This cross reference is used for searches in sequence by Patient, CPT "^DD",9000010.18,9000010.18,.01,1,3,"%D",2,0) internal entry number, inverted visit date, and internal entry number. "^DD",9000010.18,9000010.18,.01,1,3,"%D",3,0) "^DD",9000010.18,9000010.18,.01,1,3,"%D",4,0) "AA",PATIENT,CPT,VISIT,DA "^DD",9000010.18,9000010.18,.01,3) Enter a CPT code or the name of the procedure done to the patient. "^DD",9000010.18,9000010.18,.01,12) Only active CPTs "^DD",9000010.18,9000010.18,.01,12.1) S DIC("S")="I '$P($G(^ICPT(Y,0)),""^"",4)" "^DD",9000010.18,9000010.18,.01,21,0) ^^8^8^2950831^ "^DD",9000010.18,9000010.18,.01,21,1,0) This is the entry in the CPT file that most closely represents the "^DD",9000010.18,9000010.18,.01,21,2,0) clinical procedure done to the patient during the encounter. The "^DD",9000010.18,9000010.18,.01,21,3,0) preferred text for the procedure performed may be specified in the "^DD",9000010.18,9000010.18,.01,21,4,0) Provider Narrative field. "^DD",9000010.18,9000010.18,.01,21,5,0) "^DD",9000010.18,9000010.18,.01,21,6,0) This field is used for Administrative and Clinical purposes. If a "^DD",9000010.18,9000010.18,.01,21,7,0) procedure performed is to be billable, the CPT code must be specified "^DD",9000010.18,9000010.18,.01,21,8,0) here. "^DD",9000010.18,9000010.18,.01,23,0) ^^1^1^2960924^ "^DD",9000010.18,9000010.18,.01,23,1,0) APCDALVR Variable = APCDALVR("APCDTCPT") "^DD",9000010.18,9000010.18,.01,"AUDIT") n "^DD",9000010.18,9000010.18,.01,"DT") 2951211 "^DD",9000010.22,9000010.22,.07,0) MODIFIER^P9999999.88'^AUTTCMOD(^0;7^Q "^DD",9000010.22,9000010.22,.07,"DT") 3000626 "^DD",9000010.22,9000010.22,.08,0) MODIFIER 2^P9999999.88'^AUTTCMOD(^0;8^Q "^DD",9000010.22,9000010.22,.08,"DT") 3000626 "^DD",9000010.22,9000010.22,1501,0) DATE PASSED TO EXTERNAL^D^^15;1^S %DT="E" D ^%DT S X=Y K:Y<1 X "^DD",9000010.22,9000010.22,1501,3) Please enter the date that this entry was passed to the external system "^DD",9000010.22,9000010.22,1501,"DT") 3000210 "^DD",9000010.24,9000010.24,.01,0) TYPE^RS^C:CYTOLOGY;E:ELECTRON MICROSCOPY;S:SURGICAL PATHOLOGY;^0;1^Q "^DD",9000010.24,9000010.24,.01,1,0) ^.1^^-1 "^DD",9000010.24,9000010.24,.01,1,1,0) 9000010.24^B "^DD",9000010.24,9000010.24,.01,1,1,1) S ^AUPNVPTH("B",$E(X,1,30),DA)="" "^DD",9000010.24,9000010.24,.01,1,1,2) K ^AUPNVPTH("B",$E(X,1,30),DA) "^DD",9000010.24,9000010.24,.01,1,2,0) 9000010.24^AV9^MUMPS "^DD",9000010.24,9000010.24,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000010.24,9000010.24,.01,1,2,2) Q "^DD",9000010.24,9000010.24,.01,1,3,0) 9000010.24^AATOO^MUMPS "^DD",9000010.24,9000010.24,.01,1,3,1) I $P(^AUPNVPTH(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVPTH("AA",$P(^AUPNVPTH(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPTH(DA,0),U,3),0),".",1)),DA)="" "^DD",9000010.24,9000010.24,.01,1,3,2) I $P(^AUPNVPTH(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVPTH("AA",$P(^AUPNVPTH(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPTH(DA,0),U,3),0),".",1)),DA) "^DD",9000010.24,9000010.24,.01,3) "^DD",9000010.24,9000010.24,.01,21,0) ^^1^1^2930208^ "^DD",9000010.24,9000010.24,.01,21,1,0) Type. "^DD",9000010.24,9000010.24,.01,"DT") 3010607 "^DD",9000010.24,9000010.24,.04,0) SPECIMEN^P9999999.27^AUTNPOV(^0;4^Q "^DD",9000010.24,9000010.24,.04,1,0) ^.1^^0 "^DD",9000010.24,9000010.24,.04,3) "^DD",9000010.24,9000010.24,.04,"DT") 3010607 "^DD",9000010.33,9000010.33,0) FIELD^^1302^19 "^DD",9000010.33,9000010.33,0,"DT") 3000825 "^DD",9000010.33,9000010.33,0,"ID",.02) W " ",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),@("$E("_DIC_"Y,0),0)") "^DD",9000010.33,9000010.33,0,"ID",.03) W " " S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"") X:Y ^DD("DD") W Y S Y=AIHSY K AIHSY W @("$E("_DIC_"Y,0),0)") "^DD",9000010.33,9000010.33,0,"IX","AC",9000010.33,.02) "^DD",9000010.33,9000010.33,0,"IX","AD",9000010.33,.03) "^DD",9000010.33,9000010.33,0,"IX","AV10",9000010.33,.03) "^DD",9000010.33,9000010.33,0,"IX","AV11",9000010.33,.03) "^DD",9000010.33,9000010.33,0,"IX","AV9",9000010.33,.01) "^DD",9000010.33,9000010.33,0,"IX","B",9000010.33,.01) "^DD",9000010.33,9000010.33,0,"NM","V TRANSACTION CODES") "^DD",9000010.33,9000010.33,0,"PT",9000010.33,1208) "^DD",9000010.33,9000010.33,.01,0) TRANSACTION CODE^R*P90092.02'^BCMTCF(^0;1^S DIC("S")="I '$P(^(0),U,4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.33,9000010.33,.01,1,0) ^.1 "^DD",9000010.33,9000010.33,.01,1,1,0) 9000010.33^B "^DD",9000010.33,9000010.33,.01,1,1,1) S ^AUPNVTC("B",$E(X,1,30),DA)="" "^DD",9000010.33,9000010.33,.01,1,1,2) K ^AUPNVTC("B",$E(X,1,30),DA) "^DD",9000010.33,9000010.33,.01,1,2,0) 9000010.33^AV9^MUMPS "^DD",9000010.33,9000010.33,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000010.33,9000010.33,.01,1,2,2) Q "^DD",9000010.33,9000010.33,.01,1,3,0) ^^TRIGGER^9000010.33^.11 "^DD",9000010.33,9000010.33,.01,1,3,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,3,1.1) X ^DD(9000010.33,.01,1,3,1.4) "^DD",9000010.33,9000010.33,.01,1,3,1.1) S X=DIV X ^DD(9000010.33,.01,1,3,49.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(201)=$S($D(^BCMTCA(D0,11)):^(11),1:"") S X=$P(Y(201),U,1) S D0=I(0,0) "^DD",9000010.33,9000010.33,.01,1,3,1.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=9000010.33,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,3,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,3,2.4) "^DD",9000010.33,9000010.33,.01,1,3,2.1) S X=DIV X ^DD(9000010.33,.01,1,3,59.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(201)=$S($D(^BCMTCA(D0,11)):^(11),1:"") S X=$P(Y(201),U,1) S D0=I(0,0) "^DD",9000010.33,9000010.33,.01,1,3,2.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=9000010.33,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,3,49.2) S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"") "^DD",9000010.33,9000010.33,.01,1,3,59.2) S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"") "^DD",9000010.33,9000010.33,.01,1,3,"CREATE VALUE") #.01:#.01:#1101 "^DD",9000010.33,9000010.33,.01,1,3,"DELETE VALUE") @ "^DD",9000010.33,9000010.33,.01,1,3,"DT") 2980506 "^DD",9000010.33,9000010.33,.01,1,3,"FIELD") #.11 "^DD",9000010.33,9000010.33,.01,1,4,0) ^^TRIGGER^9000010.33^.04 "^DD",9000010.33,9000010.33,.01,1,4,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,4,1.1) X ^DD(9000010.33,.01,1,4,1.4) "^DD",9000010.33,9000010.33,.01,1,4,1.1) S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S Y(102)=$S($D(^BCMTCF(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,5),X=X S X=X S D0=I(0,0) "^DD",9000010.33,9000010.33,.01,1,4,1.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9000010.33,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,4,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,4,2.4) "^DD",9000010.33,9000010.33,.01,1,4,2.1) S X=DIV X ^DD(9000010.33,.01,1,4,59.2) S Y(101)=X S X=$P(Y(102),U,5),X=X S X=X S D0=I(0,0) "^DD",9000010.33,9000010.33,.01,1,4,2.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9000010.33,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,4,59.2) S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^BCMTCF(+D0,0)) D0=-1 S Y(102)=$S($D(^BCMTCF(D0,0)):^(0),1:"") "^DD",9000010.33,9000010.33,.01,1,4,"CREATE VALUE") #.01:INTERNAL(#.05) "^DD",9000010.33,9000010.33,.01,1,4,"DELETE VALUE") @ "^DD",9000010.33,9000010.33,.01,1,4,"DT") 2980506 "^DD",9000010.33,9000010.33,.01,1,4,"FIELD") #.04 "^DD",9000010.33,9000010.33,.01,1,5,0) ^^TRIGGER^9000010.33^.06 "^DD",9000010.33,9000010.33,.01,1,5,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,5,1.1) X ^DD(9000010.33,.01,1,5,1.4) "^DD",9000010.33,9000010.33,.01,1,5,1.1) S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S Y(101)=$S($D(^BCMTCF(D0,11)):^(11),1:"") S X=$P(Y(101),U,3) S D0=I(0,0) "^DD",9000010.33,9000010.33,.01,1,5,1.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9000010.33,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,5,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,5,2.4) "^DD",9000010.33,9000010.33,.01,1,5,2.1) S X=DIV X ^DD(9000010.33,.01,1,5,59.2) S X=$P(Y(101),U,3) S D0=I(0,0) "^DD",9000010.33,9000010.33,.01,1,5,2.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9000010.33,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,5,59.2) S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^BCMTCF(+D0,0)) D0=-1 S Y(101)=$S($D(^BCMTCF(D0,11)):^(11),1:"") "^DD",9000010.33,9000010.33,.01,1,5,"CREATE VALUE") #.01:#1103 "^DD",9000010.33,9000010.33,.01,1,5,"DELETE VALUE") @ "^DD",9000010.33,9000010.33,.01,1,5,"DT") 2980506 "^DD",9000010.33,9000010.33,.01,1,5,"FIELD") #.06 "^DD",9000010.33,9000010.33,.01,1,6,0) ^^TRIGGER^9000010.33^.05 "^DD",9000010.33,9000010.33,.01,1,6,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,6,1.1) X ^DD(9000010.33,.01,1,6,1.4) "^DD",9000010.33,9000010.33,.01,1,6,1.1) S X=DIV X ^DD(9000010.33,.01,1,6,49.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(202)=$S($D(^BCMTCA(D0,0)):^(0),1:""),Y(201)=X S X=$P(Y(202),U,5),X=X S X=X S D0=I(0,0) "^DD",9000010.33,9000010.33,.01,1,6,1.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.33,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,6,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,6,2.4) "^DD",9000010.33,9000010.33,.01,1,6,2.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.33,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,6,49.2) S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"") "^DD",9000010.33,9000010.33,.01,1,6,"CREATE VALUE") #.01:#.01:INTERNAL(#.05) "^DD",9000010.33,9000010.33,.01,1,6,"DELETE VALUE") @ "^DD",9000010.33,9000010.33,.01,1,6,"DT") 2980707 "^DD",9000010.33,9000010.33,.01,1,6,"FIELD") #.05 "^DD",9000010.33,9000010.33,.01,1,7,0) ^^TRIGGER^9000010.33^.07 "^DD",9000010.33,9000010.33,.01,1,7,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,7,1.1) X ^DD(9000010.33,.01,1,7,1.4) "^DD",9000010.33,9000010.33,.01,1,7,1.1) S X=DIV X ^DD(9000010.33,.01,1,7,49.3) S X=X S X=X S D0=I(0,0) "^DD",9000010.33,9000010.33,.01,1,7,1.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9000010.33,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,7,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,7,2.4) "^DD",9000010.33,9000010.33,.01,1,7,2.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9000010.33,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,7,49.2) S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"") "^DD",9000010.33,9000010.33,.01,1,7,49.3) X ^DD(9000010.33,.01,1,7,49.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(202)=$S($D(^BCMTCA(D0,11)):^(11),1:""),Y(201)=X S X=$P(Y(202),U,2) "^DD",9000010.33,9000010.33,.01,1,7,"CREATE VALUE") #.01:#.01:INTERNAL(#1102) "^DD",9000010.33,9000010.33,.01,1,7,"DELETE VALUE") @ "^DD",9000010.33,9000010.33,.01,1,7,"DT") 2980805 "^DD",9000010.33,9000010.33,.01,1,7,"FIELD") #.07 "^DD",9000010.33,9000010.33,.01,1,8,0) ^^TRIGGER^9000010.33^.08 "^DD",9000010.33,9000010.33,.01,1,8,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,8,1.1) X ^DD(9000010.33,.01,1,8,1.4) "^DD",9000010.33,9000010.33,.01,1,8,1.1) S X=DIV X ^DD(9000010.33,.01,1,8,49.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(201)=$S($D(^BCMTCA(D0,11)):^(11),1:"") S X=$P(Y(201),U,3) S D0=I(0,0) "^DD",9000010.33,9000010.33,.01,1,8,1.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9000010.33,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,8,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,8,2.4) "^DD",9000010.33,9000010.33,.01,1,8,2.1) S X=DIV X ^DD(9000010.33,.01,1,8,59.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(201)=$S($D(^BCMTCA(D0,11)):^(11),1:"") S X=$P(Y(201),U,3) S D0=I(0,0) "^DD",9000010.33,9000010.33,.01,1,8,2.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9000010.33,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,8,49.2) S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"") "^DD",9000010.33,9000010.33,.01,1,8,59.2) S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"") "^DD",9000010.33,9000010.33,.01,1,8,"CREATE VALUE") #.01:#.01:#1103 "^DD",9000010.33,9000010.33,.01,1,8,"DELETE VALUE") @ "^DD",9000010.33,9000010.33,.01,1,8,"DT") 2980506 "^DD",9000010.33,9000010.33,.01,1,8,"FIELD") #.08 "^DD",9000010.33,9000010.33,.01,1,9,0) ^^TRIGGER^9000010.33^.09 "^DD",9000010.33,9000010.33,.01,1,9,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,9,1.1) X ^DD(9000010.33,.01,1,9,1.4) "^DD",9000010.33,9000010.33,.01,1,9,1.1) S X=DIV X ^DD(9000010.33,.01,1,9,49.3) S X=X S X=X S D0=I(0,0) "^DD",9000010.33,9000010.33,.01,1,9,1.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=9000010.33,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,9,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,9,2.4) "^DD",9000010.33,9000010.33,.01,1,9,2.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=9000010.33,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.01,1,9,49.2) S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"") "^DD",9000010.33,9000010.33,.01,1,9,49.3) X ^DD(9000010.33,.01,1,9,49.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(202)=$S($D(^BCMTCA(D0,11)):^(11),1:""),Y(201)=X S X=$P(Y(202),U,4) "^DD",9000010.33,9000010.33,.01,1,9,"CREATE VALUE") #.01:#.01:INTERNAL(#1104) "^DD",9000010.33,9000010.33,.01,1,9,"DELETE VALUE") @ "^DD",9000010.33,9000010.33,.01,1,9,"DT") 2980707 "^DD",9000010.33,9000010.33,.01,1,9,"FIELD") #.09 "^DD",9000010.33,9000010.33,.01,3) Enter the type of item. "^DD",9000010.33,9000010.33,.01,12) Must not be an inactive code. "^DD",9000010.33,9000010.33,.01,12.1) S DIC("S")="I '$P(^(0),U,4)" "^DD",9000010.33,9000010.33,.01,"AUDIT") n "^DD",9000010.33,9000010.33,.01,"DT") 2980805 "^DD",9000010.33,9000010.33,.02,0) PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q "^DD",9000010.33,9000010.33,.02,1,0) ^.1^^-1 "^DD",9000010.33,9000010.33,.02,1,1,0) 9000010.33^AC "^DD",9000010.33,9000010.33,.02,1,1,1) S ^AUPNVTC("AC",$E(X,1,30),DA)="" "^DD",9000010.33,9000010.33,.02,1,1,2) K ^AUPNVTC("AC",$E(X,1,30),DA) "^DD",9000010.33,9000010.33,.02,"DT") 2880405 "^DD",9000010.33,9000010.33,.03,0) VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVTC(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.33,9000010.33,.03,1,0) ^.1 "^DD",9000010.33,9000010.33,.03,1,1,0) 9000010.33^AD "^DD",9000010.33,9000010.33,.03,1,1,1) S ^AUPNVTC("AD",$E(X,1,30),DA)="" "^DD",9000010.33,9000010.33,.03,1,1,2) K ^AUPNVTC("AD",$E(X,1,30),DA) "^DD",9000010.33,9000010.33,.03,1,1,"%D",0) ^^4^4^2950901^ "^DD",9000010.33,9000010.33,.03,1,1,"%D",1,0) This cross reference is used for searches by the visit pointer and "^DD",9000010.33,9000010.33,.03,1,1,"%D",2,0) internal entry number. "^DD",9000010.33,9000010.33,.03,1,1,"%D",3,0) "^DD",9000010.33,9000010.33,.03,1,1,"%D",4,0) "AD",VISIT,DA "^DD",9000010.33,9000010.33,.03,1,2,0) 9000010.33^AV11^MUMPS "^DD",9000010.33,9000010.33,.03,1,2,1) Q "^DD",9000010.33,9000010.33,.03,1,2,2) Q "^DD",9000010.33,9000010.33,.03,1,2,"DT") 2970512 "^DD",9000010.33,9000010.33,.03,1,3,0) 9000010.33^AV10^MUMPS "^DD",9000010.33,9000010.33,.03,1,3,1) D ADD^AUPNVSIT "^DD",9000010.33,9000010.33,.03,1,3,2) D SUB^AUPNVSIT "^DD",9000010.33,9000010.33,.03,1,3,"%D",0) ^^2^2^2970512^^ "^DD",9000010.33,9000010.33,.03,1,3,"%D",1,0) This cross-reference adds and subtracts from the dependent entry count in "^DD",9000010.33,9000010.33,.03,1,3,"%D",2,0) the VISIT file. "^DD",9000010.33,9000010.33,.03,3) Enter the visit date/time for the encounter where the exam was done. "^DD",9000010.33,9000010.33,.03,12) VISIT MUST BE FOR CURRENT PATIENT "^DD",9000010.33,9000010.33,.03,12.1) S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVTC(DA,0),U,2)" "^DD",9000010.33,9000010.33,.03,21,0) ^^2^2^2970512^^ "^DD",9000010.33,9000010.33,.03,21,1,0) This is the encounter in the Visit file that represents when and where the "^DD",9000010.33,9000010.33,.03,21,2,0) exam was done. "^DD",9000010.33,9000010.33,.03,"DT") 2970512 "^DD",9000010.33,9000010.33,.04,0) CAN #^P9999999.57'^AUTTCAN(^0;4^Q "^DD",9000010.33,9000010.33,.04,3) "^DD",9000010.33,9000010.33,.04,5,1,0) 9000010.33^.01^4 "^DD",9000010.33,9000010.33,.04,9) ^ "^DD",9000010.33,9000010.33,.04,"DT") 2970512 "^DD",9000010.33,9000010.33,.05,0) SERVICE CLASSIFICATION CODE^P90092.21'^BCMSCC(^0;5^Q "^DD",9000010.33,9000010.33,.05,5,1,0) 9000010.33^.01^6 "^DD",9000010.33,9000010.33,.05,9) ^ "^DD",9000010.33,9000010.33,.05,"DT") 2970512 "^DD",9000010.33,9000010.33,.06,0) CHARGE^NJ10,2^^0;6^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X "^DD",9000010.33,9000010.33,.06,3) Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits "^DD",9000010.33,9000010.33,.06,5,1,0) 9000010.33^.01^5 "^DD",9000010.33,9000010.33,.06,9) ^ "^DD",9000010.33,9000010.33,.06,"DT") 2970512 "^DD",9000010.33,9000010.33,.07,0) HCPCS^P81'^ICPT(^0;7^Q "^DD",9000010.33,9000010.33,.07,5,1,0) 9000010.33^.01^7 "^DD",9000010.33,9000010.33,.07,"DT") 2970512 "^DD",9000010.33,9000010.33,.08,0) MODIFIER^F^^0;8^K:$L(X)>2!($L(X)<2) X "^DD",9000010.33,9000010.33,.08,1,0) ^.1 "^DD",9000010.33,9000010.33,.08,1,1,0) ^^TRIGGER^9000010.33^.12 "^DD",9000010.33,9000010.33,.08,1,1,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9000010.33,.08,1,1,1.1) X ^DD(9000010.33,.08,1,1,1.4) "^DD",9000010.33,9000010.33,.08,1,1,1.1) S X=DIV S X=$S($P(^AUPNVTC(DA,0),U,8)]"":$O(^AUTTCMOD("B",$P(^AUPNVTC(DA,0),U,8),0)),1:"") "^DD",9000010.33,9000010.33,.08,1,1,1.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=9000010.33,DIG=.12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.08,1,1,2) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9000010.33,.08,1,1,2.1) X ^DD(9000010.33,.08,1,1,2.4) "^DD",9000010.33,9000010.33,.08,1,1,2.1) S X=DIV S X=$S($P(^AUPNVTC(DA,0),U,8)]"":$O(^AUTTCMOD("B",$P(^AUPNVTC(DA,0),U,8),0)),1:"") "^DD",9000010.33,9000010.33,.08,1,1,2.4) S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=9000010.33,DIG=.12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000010.33,9000010.33,.08,1,1,"CREATE VALUE") S X=$S($P(^AUPNVTC(DA,0),U,8)]"":$O(^AUTTCMOD("B",$P(^AUPNVTC(DA,0),U,8),0)),1:"") "^DD",9000010.33,9000010.33,.08,1,1,"DELETE VALUE") S X=$S($P(^AUPNVTC(DA,0),U,8)]"":$O(^AUTTCMOD("B",$P(^AUPNVTC(DA,0),U,8),0)),1:"") "^DD",9000010.33,9000010.33,.08,1,1,"DT") 3000825 "^DD",9000010.33,9000010.33,.08,1,1,"FIELD") #.12 "^DD",9000010.33,9000010.33,.08,3) Answer must be 2 characters in length. "^DD",9000010.33,9000010.33,.08,5,1,0) 9000010.33^.01^8 "^DD",9000010.33,9000010.33,.08,9) ^ "^DD",9000010.33,9000010.33,.08,"DT") 3000825 "^DD",9000010.33,9000010.33,.09,0) REVENUE CODE^P9999999.72'^AUTTREVN(^0;9^Q "^DD",9000010.33,9000010.33,.09,5,1,0) 9000010.33^.01^9 "^DD",9000010.33,9000010.33,.09,9) ^ "^DD",9000010.33,9000010.33,.09,"DT") 2970512 "^DD",9000010.33,9000010.33,.11,0) DESCRIPTION^F^^0;11^K:$L(X)>45!($L(X)<1) X "^DD",9000010.33,9000010.33,.11,3) Answer must be 1-45 characters in length. "^DD",9000010.33,9000010.33,.11,5,1,0) 9000010.33^.01^3 "^DD",9000010.33,9000010.33,.11,9) ^ "^DD",9000010.33,9000010.33,.11,"DT") 2970512 "^DD",9000010.33,9000010.33,.12,0) CPT MODIFIER PTR^P9999999.88'^AUTTCMOD(^0;12^Q "^DD",9000010.33,9000010.33,.12,5,1,0) 9000010.33^.08^1 "^DD",9000010.33,9000010.33,.12,"DT") 3000825 "^DD",9000010.33,9000010.33,1201,0) EVENT DATE AND TIME^D^^12;1^S %DT="EST" D ^%DT S X=Y K:Y<1 X "^DD",9000010.33,9000010.33,1201,3) Enter the date and time the exam was given. "^DD",9000010.33,9000010.33,1201,21,0) ^^9^9^2950901^^^^ "^DD",9000010.33,9000010.33,1201,21,1,0) This is the date and time the exam was given by the provider. This date "^DD",9000010.33,9000010.33,1201,21,2,0) and time may be different from the visit date and time. For example, for "^DD",9000010.33,9000010.33,1201,21,3,0) clinic appointment visits, the visit date and time is the date and time of the "^DD",9000010.33,9000010.33,1201,21,4,0) appointment, not the time the provider performed the clinical event. "^DD",9000010.33,9000010.33,1201,21,6,0) The date may be an imprecise date. "^DD",9000010.33,9000010.33,1201,21,7,0) "^DD",9000010.33,9000010.33,1201,21,8,0) Date and time may be within 30 days before or after the visit date, with the "^DD",9000010.33,9000010.33,1201,21,9,0) restriction the date cannot be a future date. "^DD",9000010.33,9000010.33,1201,23,0) ^^13^13^2950901^^^ "^DD",9000010.33,9000010.33,1201,23,1,0) The PCE User Interface, which allows manual entry of data, will be the "^DD",9000010.33,9000010.33,1201,23,2,0) primary source of the event date and time. The event date prompt defaults "^DD",9000010.33,9000010.33,1201,23,3,0) to the visit date, and the time is entered to reflect the actual time the "^DD",9000010.33,9000010.33,1201,23,4,0) measurement was done. The event date does not have to be the visit date, "^DD",9000010.33,9000010.33,1201,23,6,0) future date. "^DD",9000010.33,9000010.33,1201,23,7,0) "^DD",9000010.33,9000010.33,1201,23,8,0) If a user wants to enter a historical measurement, the user should use the "^DD",9000010.33,9000010.33,1201,23,9,0) Historical Encounter entry action to document the historical measurement. "^DD",9000010.33,9000010.33,1201,23,10,0) Historical entries will not be eligible for credit. "^DD",9000010.33,9000010.33,1201,23,11,0) "^DD",9000010.33,9000010.33,1201,23,12,0) PCE Data Sources for automatic (scanning) data capture will be blank "^DD",9000010.33,9000010.33,1201,23,13,0) unless the event date and time are passed to PCE for filing. "^DD",9000010.33,9000010.33,1201,"DT") 2940608 "^DD",9000010.33,9000010.33,1202,0) ORDERING PROVIDER^*P200'X^VA(200,^12;2^S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.33,9000010.33,1202,3) Enter the provider who ordered this exam. "^DD",9000010.33,9000010.33,1202,12) Select ordering provider "^DD",9000010.33,9000010.33,1202,12.1) S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))" "^DD",9000010.33,9000010.33,1202,21,0) ^^1^1^2950901^^ "^DD",9000010.33,9000010.33,1202,21,1,0) This field can be used to document the provider who ordered the exam. "^DD",9000010.33,9000010.33,1202,23,0) ^^1^1^2950901^^ "^DD",9000010.33,9000010.33,1202,23,1,0) The person entered here must hold the "AK.PROVIDER" security key. "^DD",9000010.33,9000010.33,1202,"DT") 2940608 "^DD",9000010.33,9000010.33,1203,0) CLINIC^P40.7'^DIC(40.7,^12;3^Q "^DD",9000010.33,9000010.33,1203,"DT") 2960709 "^DD",9000010.33,9000010.33,1204,0) ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q "^DD",9000010.33,9000010.33,1204,3) Enter the provider who gave the exam. "^DD",9000010.33,9000010.33,1204,21,0) ^^1^1^2950901^^^ "^DD",9000010.33,9000010.33,1204,21,1,0) This is the provider who gave the exam. "^DD",9000010.33,9000010.33,1204,23,0) ^^2^2^2950901^ "^DD",9000010.33,9000010.33,1204,23,1,0) This person can be any person in the new person file. The person does not have "^DD",9000010.33,9000010.33,1204,23,2,0) to hold the "AK.PROVIDER" security key. "^DD",9000010.33,9000010.33,1204,"DT") 2941219 "^DD",9000010.33,9000010.33,1208,0) PARENT^P9000010.33'^AUPNVTC(^12;8^Q "^DD",9000010.33,9000010.33,1208,"DT") 2960709 "^DD",9000010.33,9000010.33,1211,0) ORDERING DATE^D^^12;11^S %DT="ETX" D ^%DT S X=Y K:Y<1 X "^DD",9000010.33,9000010.33,1211,"DT") 2980902 "^DD",9000010.33,9000010.33,1301,0) FILE CREATED FROM^P1'^DIC(^13;1^Q "^DD",9000010.33,9000010.33,1301,"DT") 2960916 "^DD",9000010.33,9000010.33,1302,0) IEN OF ENTRY CREATED BY^NJ9,0^^13;2^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X "^DD",9000010.33,9000010.33,1302,3) Type a Number between 1 and 999999999, 0 Decimal Digits "^DD",9000010.33,9000010.33,1302,"DT") 2960916 "^DD",9000010.34,9000010.34,.01,0) TEXT TYPE^RP9999999.89'^AUTTNTYP(^0;1^Q "^DD",9000010.34,9000010.34,.01,1,0) ^.1^^-1 "^DD",9000010.34,9000010.34,.01,1,1,0) 9000010.34^B "^DD",9000010.34,9000010.34,.01,1,1,1) S ^AUPNVNT("B",$E(X,1,30),DA)="" "^DD",9000010.34,9000010.34,.01,1,1,2) K ^AUPNVNT("B",$E(X,1,30),DA) "^DD",9000010.34,9000010.34,.01,1,2,0) 9000010.34^AV9^MUMPS "^DD",9000010.34,9000010.34,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000010.34,9000010.34,.01,1,2,2) Q "^DD",9000010.34,9000010.34,.01,1,3,0) 9000010.34^AATOO^MUMPS "^DD",9000010.34,9000010.34,.01,1,3,1) I $P(^AUPNVNT(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVNT("AA",$P(^AUPNVNT(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVNT(DA,0),U,3),0),".",1)),DA)="" "^DD",9000010.34,9000010.34,.01,1,3,2) I $P(^AUPNVNT(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVNT("AA",$P(^AUPNVNT(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVNT(DA,0),U,3),0),".",1)),DA) "^DD",9000010.34,9000010.34,.01,1,3,"%D",0) ^^5^5^2950901^ "^DD",9000010.34,9000010.34,.01,1,3,"%D",1,0) This cross reference is used for searches in sequence by patient, Exam "^DD",9000010.34,9000010.34,.01,1,3,"%D",2,0) pointer, inverted visit date, and internal entry number. "^DD",9000010.34,9000010.34,.01,1,3,"%D",3,0) "^DD",9000010.34,9000010.34,.01,1,3,"%D",4,0) "^DD",9000010.34,9000010.34,.01,3) "^DD",9000010.34,9000010.34,.01,21,0) ^^1^1^2980729^^^ "^DD",9000010.34,9000010.34,.01,21,1,0) This is the type of narrative. "^DD",9000010.34,9000010.34,.01,"AUDIT") n "^DD",9000010.34,9000010.34,.01,"DT") 3010607 "^DD",9000010.35,9000010.35,0) FIELD^^1210^24 "^DD",9000010.35,9000010.35,0,"DDA") N "^DD",9000010.35,9000010.35,0,"DT") 3000103 "^DD",9000010.35,9000010.35,0,"ID",.02) W " ",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),@("$E("_DIC_"Y,0),0)") "^DD",9000010.35,9000010.35,0,"ID",.03) W " " S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"") X:Y ^DD("DD") W Y S Y=AIHSY K AIHSY W @("$E("_DIC_"Y,0),0)") "^DD",9000010.35,9000010.35,0,"IX","AA",9000010.35,.02) "^DD",9000010.35,9000010.35,0,"IX","AATOO",9000010.35,.03) "^DD",9000010.35,9000010.35,0,"IX","AC",9000010.35,.02) "^DD",9000010.35,9000010.35,0,"IX","AD",9000010.35,.03) "^DD",9000010.35,9000010.35,0,"IX","AV10",9000010.35,.03) "^DD",9000010.35,9000010.35,0,"IX","AV9",9000010.35,.01) "^DD",9000010.35,9000010.35,0,"IX","B",9000010.35,.01) "^DD",9000010.35,9000010.35,0,"NM","V ELDER CARE") "^DD",9000010.35,9000010.35,0,"PT",9000010.35,1208) "^DD",9000010.35,9000010.35,.01,0) FORM ID^RF^^0;1^K:$L(X)>9!($L(X)<9)!'(X?1"IHS-1-865") X "^DD",9000010.35,9000010.35,.01,1,0) ^.1^^-1 "^DD",9000010.35,9000010.35,.01,1,1,0) 9000010.35^B "^DD",9000010.35,9000010.35,.01,1,1,1) S ^AUPNVELD("B",$E(X,1,30),DA)="" "^DD",9000010.35,9000010.35,.01,1,1,2) K ^AUPNVELD("B",$E(X,1,30),DA) "^DD",9000010.35,9000010.35,.01,1,2,0) 9000010.35^AV9^MUMPS "^DD",9000010.35,9000010.35,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000010.35,9000010.35,.01,1,2,2) Q "^DD",9000010.35,9000010.35,.01,3) Answer must be 9 characters in length. "^DD",9000010.35,9000010.35,.01,12) Allow only active Exams to be selected. "^DD",9000010.35,9000010.35,.01,12.1) S DIC("S")="I $P(^(0),U,4)'=1" "^DD",9000010.35,9000010.35,.01,"AUDIT") n "^DD",9000010.35,9000010.35,.01,"DT") 3000103 "^DD",9000010.35,9000010.35,.02,0) PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q "^DD",9000010.35,9000010.35,.02,1,0) ^.1 "^DD",9000010.35,9000010.35,.02,1,1,0) 9000010.35^AC "^DD",9000010.35,9000010.35,.02,1,1,1) S ^AUPNVELD("AC",$E(X,1,30),DA)="" "^DD",9000010.35,9000010.35,.02,1,1,2) K ^AUPNVELD("AC",$E(X,1,30),DA) "^DD",9000010.35,9000010.35,.02,1,2,0) 9000010.35^AA^MUMPS "^DD",9000010.35,9000010.35,.02,1,2,1) I $P(^AUPNVELD(DA,0),U,3)]"" S ^AUPNVELD("AA",X,(9999999-$P($P(^AUPNVSIT($P(^AUPNVELD(DA,0),U,3),0),U),".")),DA)="" "^DD",9000010.35,9000010.35,.02,1,2,2) I $P(^AUPNVELD(DA,0),U,3)]"" K ^AUPNVELD("AA",X,(9999999-$P($P(^AUPNVSIT($P(^AUPNVELD(DA,0),U,3),0),U),".")),DA) "^DD",9000010.35,9000010.35,.02,1,2,"DT") 3000103 "^DD",9000010.35,9000010.35,.02,23,0) ^^1^1^2960924^ "^DD",9000010.35,9000010.35,.02,23,1,0) APCDALVR Variable = APCDALVR("APCDPAT") "^DD",9000010.35,9000010.35,.02,"DT") 2880405 "^DD",9000010.35,9000010.35,.03,0) VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVELD(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.35,9000010.35,.03,1,0) ^.1 "^DD",9000010.35,9000010.35,.03,1,1,0) 9000010.35^AD "^DD",9000010.35,9000010.35,.03,1,1,1) S ^AUPNVELD("AD",$E(X,1,30),DA)="" "^DD",9000010.35,9000010.35,.03,1,1,2) K ^AUPNVELD("AD",$E(X,1,30),DA) "^DD",9000010.35,9000010.35,.03,1,1,"%D",0) ^^4^4^2950901^ "^DD",9000010.35,9000010.35,.03,1,1,"%D",1,0) This cross reference is used for searches by the visit pointer and "^DD",9000010.35,9000010.35,.03,1,1,"%D",2,0) internal entry number. "^DD",9000010.35,9000010.35,.03,1,1,"%D",3,0) "^DD",9000010.35,9000010.35,.03,1,1,"%D",4,0) "AD",VISIT,DA "^DD",9000010.35,9000010.35,.03,1,2,0) 9000010.35^AATOO^MUMPS "^DD",9000010.35,9000010.35,.03,1,2,1) I $P(^AUPNVELD(DA,0),U,2)]"" S ^AUPNVELD("AA",$P(^AUPNVELD(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),DA)="" "^DD",9000010.35,9000010.35,.03,1,2,2) I $P(^AUPNVELD(DA,0),U,2)]"" K ^AUPNVELD("AA",$P(^AUPNVELD(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),DA) "^DD",9000010.35,9000010.35,.03,1,2,"DT") 3000103 "^DD",9000010.35,9000010.35,.03,1,3,0) 9000010.35^AV10^MUMPS "^DD",9000010.35,9000010.35,.03,1,3,1) D ADD^AUPNVSIT "^DD",9000010.35,9000010.35,.03,1,3,2) D SUB^AUPNVSIT "^DD",9000010.35,9000010.35,.03,1,3,"%D",0) ^^2^2^2940131^ "^DD",9000010.35,9000010.35,.03,1,3,"%D",1,0) This cross-reference adds and subtracts from the dependent entry count in "^DD",9000010.35,9000010.35,.03,1,3,"%D",2,0) the VISIT file. "^DD",9000010.35,9000010.35,.03,3) Enter the visit date/time for the encounter where the exam was done. "^DD",9000010.35,9000010.35,.03,12) VISIT MUST BE FOR CURRENT PATIENT "^DD",9000010.35,9000010.35,.03,12.1) S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVELD(DA,0),U,2)" "^DD",9000010.35,9000010.35,.03,23,0) ^^1^1^3000215^^ "^DD",9000010.35,9000010.35,.03,23,1,0) APCDALVR Variable = APCDALVR("APCDVSIT") "^DD",9000010.35,9000010.35,.03,"DT") 2861111 "^DD",9000010.35,9000010.35,.04,0) TOILETING^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;4^Q "^DD",9000010.35,9000010.35,.04,"DT") 3000103 "^DD",9000010.35,9000010.35,.05,0) BATHING^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;5^Q "^DD",9000010.35,9000010.35,.05,3) "^DD",9000010.35,9000010.35,.05,"DT") 3000103 "^DD",9000010.35,9000010.35,.06,0) DRESSING^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;6^Q "^DD",9000010.35,9000010.35,.06,3) "^DD",9000010.35,9000010.35,.06,"DT") 3000103 "^DD",9000010.35,9000010.35,.07,0) TRANSFERS^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;7^Q "^DD",9000010.35,9000010.35,.07,3) "^DD",9000010.35,9000010.35,.07,"DT") 3000103 "^DD",9000010.35,9000010.35,.08,0) FEEDING^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;8^Q "^DD",9000010.35,9000010.35,.08,3) "^DD",9000010.35,9000010.35,.08,"DT") 3000103 "^DD",9000010.35,9000010.35,.09,0) CONTINENCE^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;9^Q "^DD",9000010.35,9000010.35,.09,3) "^DD",9000010.35,9000010.35,.09,"DT") 3000103 "^DD",9000010.35,9000010.35,.11,0) FINANCES^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;11^Q "^DD",9000010.35,9000010.35,.11,3) "^DD",9000010.35,9000010.35,.11,"DT") 3000103 "^DD",9000010.35,9000010.35,.12,0) COOKING^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;12^Q "^DD",9000010.35,9000010.35,.12,"DT") 3000103 "^DD",9000010.35,9000010.35,.13,0) SHOPPING^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;13^Q "^DD",9000010.35,9000010.35,.13,3) "^DD",9000010.35,9000010.35,.13,"DT") 3000103 "^DD",9000010.35,9000010.35,.14,0) HOUSEWORK/CHORES^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;14^Q "^DD",9000010.35,9000010.35,.14,3) "^DD",9000010.35,9000010.35,.14,"DT") 3000103 "^DD",9000010.35,9000010.35,.15,0) MEDICATIONS^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;15^Q "^DD",9000010.35,9000010.35,.15,3) "^DD",9000010.35,9000010.35,.15,"DT") 3000103 "^DD",9000010.35,9000010.35,.16,0) TRANSPORTATION^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;16^Q "^DD",9000010.35,9000010.35,.16,3) "^DD",9000010.35,9000010.35,.16,"DT") 3000105 "^DD",9000010.35,9000010.35,.17,0) CHANGE IN FUNCTIONAL STATUS^S^S:SAME;I:IMPROVEMENT;D:DECLINE;^0;17^Q "^DD",9000010.35,9000010.35,.17,"DT") 3000103 "^DD",9000010.35,9000010.35,.18,0) IS PATIENT A CAREGIVER^S^1:YES;0:NO;^0;18^Q "^DD",9000010.35,9000010.35,.18,"DT") 3000103 "^DD",9000010.35,9000010.35,1201,0) EVENT DATE AND TIME^D^^12;1^S %DT="EST" D ^%DT S X=Y K:Y<1 X "^DD",9000010.35,9000010.35,1201,3) Enter the date and time the exam was given. "^DD",9000010.35,9000010.35,1201,21,0) ^^9^9^2950901^^^^ "^DD",9000010.35,9000010.35,1201,21,1,0) This is the date and time the exam was given by the provider. This date "^DD",9000010.35,9000010.35,1201,21,2,0) and time may be different from the visit date and time. For example, for "^DD",9000010.35,9000010.35,1201,21,3,0) clinic appointment visits, the visit date and time is the date and time of the "^DD",9000010.35,9000010.35,1201,21,4,0) appointment, not the time the provider performed the clinical event. "^DD",9000010.35,9000010.35,1201,21,6,0) The date may be an imprecise date. "^DD",9000010.35,9000010.35,1201,21,7,0) "^DD",9000010.35,9000010.35,1201,21,8,0) Date and time may be within 30 days before or after the visit date, with the "^DD",9000010.35,9000010.35,1201,21,9,0) restriction the date cannot be a future date. "^DD",9000010.35,9000010.35,1201,23,0) ^^14^14^2960924^ "^DD",9000010.35,9000010.35,1201,23,1,0) The PCE User Interface, which allows manual entry of data, will be the "^DD",9000010.35,9000010.35,1201,23,2,0) primary source of the event date and time. The event date prompt defaults "^DD",9000010.35,9000010.35,1201,23,3,0) to the visit date, and the time is entered to reflect the actual time the "^DD",9000010.35,9000010.35,1201,23,4,0) measurement was done. The event date does not have to be the visit date, "^DD",9000010.35,9000010.35,1201,23,6,0) future date. "^DD",9000010.35,9000010.35,1201,23,7,0) "^DD",9000010.35,9000010.35,1201,23,8,0) If a user wants to enter a historical measurement, the user should use the "^DD",9000010.35,9000010.35,1201,23,9,0) Historical Encounter entry action to document the historical measurement. "^DD",9000010.35,9000010.35,1201,23,10,0) Historical entries will not be eligible for credit. "^DD",9000010.35,9000010.35,1201,23,11,0) "^DD",9000010.35,9000010.35,1201,23,12,0) PCE Data Sources for automatic (scanning) data capture will be blank "^DD",9000010.35,9000010.35,1201,23,13,0) unless the event date and time are passed to PCE for filing. "^DD",9000010.35,9000010.35,1201,23,14,0) APCDALVR Variable = APCDALVR("APCDTCDT") "^DD",9000010.35,9000010.35,1201,"DT") 2940608 "^DD",9000010.35,9000010.35,1202,0) ORDERING PROVIDER^*P200'X^VA(200,^12;2^S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.35,9000010.35,1202,3) Enter the provider who ordered this exam. "^DD",9000010.35,9000010.35,1202,12) Select ordering provider "^DD",9000010.35,9000010.35,1202,12.1) S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))" "^DD",9000010.35,9000010.35,1202,21,0) ^^1^1^2950901^^ "^DD",9000010.35,9000010.35,1202,21,1,0) This field can be used to document the provider who ordered the exam. "^DD",9000010.35,9000010.35,1202,23,0) ^^2^2^2960924^ "^DD",9000010.35,9000010.35,1202,23,1,0) The person entered here must hold the "AK.PROVIDER" security key. "^DD",9000010.35,9000010.35,1202,23,2,0) APCDALVR Variable = APCDALVR("APCDTPRV") "^DD",9000010.35,9000010.35,1202,"DT") 2940608 "^DD",9000010.35,9000010.35,1203,0) CLINIC^P40.7'^DIC(40.7,^12;3^Q "^DD",9000010.35,9000010.35,1203,23,0) ^^1^1^2960924^ "^DD",9000010.35,9000010.35,1203,23,1,0) APCDALVR Variable = APCDALVR("APCDTCLN") "^DD",9000010.35,9000010.35,1203,"DT") 2960709 "^DD",9000010.35,9000010.35,1204,0) ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q "^DD",9000010.35,9000010.35,1204,3) Enter the provider who gave the exam. "^DD",9000010.35,9000010.35,1204,21,0) ^^1^1^2950901^^^ "^DD",9000010.35,9000010.35,1204,21,1,0) This is the provider who gave the exam. "^DD",9000010.35,9000010.35,1204,23,0) ^^3^3^2960924^ "^DD",9000010.35,9000010.35,1204,23,1,0) This person can be any person in the new person file. The person does not have "^DD",9000010.35,9000010.35,1204,23,2,0) to hold the "AK.PROVIDER" security key. "^DD",9000010.35,9000010.35,1204,23,3,0) APCDALVR Variable = APCDALVR("APCDTEPR") "^DD",9000010.35,9000010.35,1204,"DT") 2941219 "^DD",9000010.35,9000010.35,1208,0) PARENT^P9000010.35'^AUPNVELD(^12;8^Q "^DD",9000010.35,9000010.35,1208,23,0) ^^1^1^2960924^ "^DD",9000010.35,9000010.35,1208,23,1,0) APCDALVR Variable = APCDALVR("APCDTPNT") "^DD",9000010.35,9000010.35,1208,"DT") 2960709 "^DD",9000010.35,9000010.35,1209,0) EXTERNAL KEY^F^^12;9^K:$L(X)>20!($L(X)<1) X "^DD",9000010.35,9000010.35,1209,3) Answer must be 1-20 characters in length. "^DD",9000010.35,9000010.35,1209,23,0) ^^1^1^2960924^ "^DD",9000010.35,9000010.35,1209,23,1,0) APCDALVR Variable = APCDALVR("APCDTEXK") "^DD",9000010.35,9000010.35,1209,"DT") 2960925 "^DD",9000010.35,9000010.35,1210,0) OUTSIDE PROVIDER NAME^F^^12;10^K:$L(X)>30!($L(X)<1) X "^DD",9000010.35,9000010.35,1210,3) Answer must be 1-30 characters in length. "^DD",9000010.35,9000010.35,1210,23,0) ^^1^1^2960924^ "^DD",9000010.35,9000010.35,1210,23,1,0) APCDALVR Variable = APCDALVR("APCDTOPR") "^DD",9000010.35,9000010.35,1210,"DT") 2960925 "^DD",9000010.38,9000010.38,0) FIELD^^81101^19 "^DD",9000010.38,9000010.38,0,"DDA") N "^DD",9000010.38,9000010.38,0,"DT") 3001030 "^DD",9000010.38,9000010.38,0,"ID",.02) W " ",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),@("$E("_DIC_"Y,0),0)") "^DD",9000010.38,9000010.38,0,"ID",.03) W " " S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"") X:Y ^DD("DD") W Y S Y=AIHSY K AIHSY W @("$E("_DIC_"Y,0),0)") "^DD",9000010.38,9000010.38,0,"IX","AC",9000010.38,.02) "^DD",9000010.38,9000010.38,0,"IX","AD",9000010.38,.03) "^DD",9000010.38,9000010.38,0,"IX","AV10",9000010.38,.03) "^DD",9000010.38,9000010.38,0,"IX","AV9",9000010.38,.01) "^DD",9000010.38,9000010.38,0,"IX","B",9000010.38,.01) "^DD",9000010.38,9000010.38,0,"NM","V UNHF") "^DD",9000010.38,9000010.38,0,"PT",9000010.38,1208) "^DD",9000010.38,9000010.38,0,"VRPK") AUPN "^DD",9000010.38,9000010.38,.01,0) EXAM^R*P9999999.15'^AUTTEXAM(^0;1^S DIC("S")="I $P(^(0),U,4)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.38,9000010.38,.01,1,0) ^.1^^-1 "^DD",9000010.38,9000010.38,.01,1,1,0) 9000010.38^B "^DD",9000010.38,9000010.38,.01,1,1,1) S ^AUPNVUNH("B",$E(X,1,30),DA)="" "^DD",9000010.38,9000010.38,.01,1,1,2) K ^AUPNVUNH("B",$E(X,1,30),DA) "^DD",9000010.38,9000010.38,.01,1,2,0) 9000010.38^AV9^MUMPS "^DD",9000010.38,9000010.38,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000010.38,9000010.38,.01,1,2,2) Q "^DD",9000010.38,9000010.38,.01,3) Enter the exam which was done to the patient. "^DD",9000010.38,9000010.38,.01,12) Allow only active Exams to be selected. "^DD",9000010.38,9000010.38,.01,12.1) S DIC("S")="I $P(^(0),U,4)'=1" "^DD",9000010.38,9000010.38,.01,21,0) ^^2^2^2951024^^ "^DD",9000010.38,9000010.38,.01,21,1,0) This is the entry in the Exam file that represents what type of exam was "^DD",9000010.38,9000010.38,.01,21,2,0) done at the encounter. "^DD",9000010.38,9000010.38,.01,23,0) ^^1^1^2960924^ "^DD",9000010.38,9000010.38,.01,23,1,0) APCDALVR Variable = APCDALVR("APCDTEX") "^DD",9000010.38,9000010.38,.01,"AUDIT") n "^DD",9000010.38,9000010.38,.01,"DT") 3010227 "^DD",9000010.38,9000010.38,.019,0) EXAM CODE^CJ2^^ ; ^X ^DD(9000010.38,.019,9.3) S X=$P(Y(9000010.38,.019,101),U,2) S D0=Y(9000010.38,.019,80) "^DD",9000010.38,9000010.38,.019,9) ^ "^DD",9000010.38,9000010.38,.019,9.01) 9999999.15^.02;9000010.38^.01 "^DD",9000010.38,9000010.38,.019,9.1) EXAM:CODE "^DD",9000010.38,9000010.38,.019,9.2) S Y(9000010.38,.019,80)=$S($D(D0):D0,1:""),Y(9000010.38,.019,1)=$S($D(^AUPNVUNH(D0,0)):^(0),1:"") "^DD",9000010.38,9000010.38,.019,9.3) X ^DD(9000010.38,.019,9.2) S D0=$P(Y(9000010.38,.019,1),U,1) S:'$D(^AUTTEXAM(+D0,0)) D0=-1 S Y(9000010.38,.019,101)=$S($D(^AUTTEXAM(D0,0)):^(0),1:"") "^DD",9000010.38,9000010.38,.02,0) PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q "^DD",9000010.38,9000010.38,.02,1,0) ^.1^^-1 "^DD",9000010.38,9000010.38,.02,1,1,0) 9000010.38^AC "^DD",9000010.38,9000010.38,.02,1,1,1) S ^AUPNVUNH("AC",$E(X,1,30),DA)="" "^DD",9000010.38,9000010.38,.02,1,1,2) K ^AUPNVUNH("AC",$E(X,1,30),DA) "^DD",9000010.38,9000010.38,.02,23,0) ^^1^1^2960924^ "^DD",9000010.38,9000010.38,.02,23,1,0) APCDALVR Variable = APCDALVR("APCDPAT") "^DD",9000010.38,9000010.38,.02,"DT") 3010227 "^DD",9000010.38,9000010.38,.03,0) VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVUNH(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.38,9000010.38,.03,1,0) ^.1^^-1 "^DD",9000010.38,9000010.38,.03,1,1,0) 9000010.38^AD "^DD",9000010.38,9000010.38,.03,1,1,1) S ^AUPNVUNH("AD",$E(X,1,30),DA)="" "^DD",9000010.38,9000010.38,.03,1,1,2) K ^AUPNVUNH("AD",$E(X,1,30),DA) "^DD",9000010.38,9000010.38,.03,1,1,"%D",0) ^^4^4^2950901^ "^DD",9000010.38,9000010.38,.03,1,1,"%D",1,0) This cross reference is used for searches by the visit pointer and "^DD",9000010.38,9000010.38,.03,1,1,"%D",2,0) internal entry number. "^DD",9000010.38,9000010.38,.03,1,1,"%D",3,0) "^DD",9000010.38,9000010.38,.03,1,1,"%D",4,0) "AD",VISIT,DA "^DD",9000010.38,9000010.38,.03,1,3,0) 9000010.38^AV10^MUMPS "^DD",9000010.38,9000010.38,.03,1,3,1) D ADD^AUPNVSIT "^DD",9000010.38,9000010.38,.03,1,3,2) D SUB^AUPNVSIT "^DD",9000010.38,9000010.38,.03,1,3,"%D",0) ^^2^2^2940131^ "^DD",9000010.38,9000010.38,.03,1,3,"%D",1,0) This cross-reference adds and subtracts from the dependent entry count in "^DD",9000010.38,9000010.38,.03,1,3,"%D",2,0) the VISIT file. "^DD",9000010.38,9000010.38,.03,3) Enter the visit date/time for the encounter where the exam was done. "^DD",9000010.38,9000010.38,.03,12) VISIT MUST BE FOR CURRENT PATIENT "^DD",9000010.38,9000010.38,.03,12.1) S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVUNH(DA,0),U,2)" "^DD",9000010.38,9000010.38,.03,21,0) ^^2^2^2950901^ "^DD",9000010.38,9000010.38,.03,21,1,0) This is the encounter in the Visit file that represents when and where the "^DD",9000010.38,9000010.38,.03,21,2,0) exam was done. "^DD",9000010.38,9000010.38,.03,23,0) ^^1^1^2960924^ "^DD",9000010.38,9000010.38,.03,23,1,0) APCDALVR Variable = APCDALVR("APCDVSIT") "^DD",9000010.38,9000010.38,.03,"DT") 3010227 "^DD",9000010.38,9000010.38,.04,0) LEFT EAR RESULT^S^P:PASS;R:REFER;W:WAIVED/REFUSED;^0;4^Q "^DD",9000010.38,9000010.38,.04,1,0) ^.1^^0 "^DD",9000010.38,9000010.38,.04,23,0) ^^1^1^2960924^ "^DD",9000010.38,9000010.38,.04,23,1,0) APCDALVR Variable = APCDALVR("APCDTRES") "^DD",9000010.38,9000010.38,.04,"DT") 3010227 "^DD",9000010.38,9000010.38,.05,0) RIGHT EAR RESULT^S^P:PASS;R:REFER;W:WAIVED/REFUSED;^0;5^Q "^DD",9000010.38,9000010.38,.05,"DT") 3001012 "^DD",9000010.38,9000010.38,.06,0) SCREEN/RESCREEN^S^S:INITIAL SCREEN;R:RESCREEN;^0;6^Q "^DD",9000010.38,9000010.38,.06,"DT") 3001012 "^DD",9000010.38,9000010.38,.07,0) REFERRED TO^P9999999.06'^AUTTLOC(^0;7^Q "^DD",9000010.38,9000010.38,.07,"DT") 3001012 "^DD",9000010.38,9000010.38,.08,0) WAIVED/REFUSED^S^1:YES;0:NO;^0;8^Q "^DD",9000010.38,9000010.38,.08,"DT") 3001030 "^DD",9000010.38,9000010.38,1201,0) EVENT DATE AND TIME^D^^12;1^S %DT="EST" D ^%DT S X=Y K:Y<1 X "^DD",9000010.38,9000010.38,1201,3) Enter the date and time the exam was given. "^DD",9000010.38,9000010.38,1201,21,0) ^^9^9^2950901^^^^ "^DD",9000010.38,9000010.38,1201,21,1,0) This is the date and time the exam was given by the provider. This date "^DD",9000010.38,9000010.38,1201,21,2,0) and time may be different from the visit date and time. For example, for "^DD",9000010.38,9000010.38,1201,21,3,0) clinic appointment visits, the visit date and time is the date and time of the "^DD",9000010.38,9000010.38,1201,21,4,0) appointment, not the time the provider performed the clinical event. "^DD",9000010.38,9000010.38,1201,21,6,0) The date may be an imprecise date. "^DD",9000010.38,9000010.38,1201,21,7,0) "^DD",9000010.38,9000010.38,1201,21,8,0) Date and time may be within 30 days before or after the visit date, with the "^DD",9000010.38,9000010.38,1201,21,9,0) restriction the date cannot be a future date. "^DD",9000010.38,9000010.38,1201,23,0) ^^14^14^2960924^ "^DD",9000010.38,9000010.38,1201,23,1,0) The PCE User Interface, which allows manual entry of data, will be the "^DD",9000010.38,9000010.38,1201,23,2,0) primary source of the event date and time. The event date prompt defaults "^DD",9000010.38,9000010.38,1201,23,3,0) to the visit date, and the time is entered to reflect the actual time the "^DD",9000010.38,9000010.38,1201,23,4,0) measurement was done. The event date does not have to be the visit date, "^DD",9000010.38,9000010.38,1201,23,6,0) future date. "^DD",9000010.38,9000010.38,1201,23,7,0) "^DD",9000010.38,9000010.38,1201,23,8,0) If a user wants to enter a historical measurement, the user should use the "^DD",9000010.38,9000010.38,1201,23,9,0) Historical Encounter entry action to document the historical measurement. "^DD",9000010.38,9000010.38,1201,23,10,0) Historical entries will not be eligible for credit. "^DD",9000010.38,9000010.38,1201,23,11,0) "^DD",9000010.38,9000010.38,1201,23,12,0) PCE Data Sources for automatic (scanning) data capture will be blank "^DD",9000010.38,9000010.38,1201,23,13,0) unless the event date and time are passed to PCE for filing. "^DD",9000010.38,9000010.38,1201,23,14,0) APCDALVR Variable = APCDALVR("APCDTCDT") "^DD",9000010.38,9000010.38,1201,"DT") 2940608 "^DD",9000010.38,9000010.38,1202,0) ORDERING PROVIDER^*P200'X^VA(200,^12;2^S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.38,9000010.38,1202,3) Enter the provider who ordered this exam. "^DD",9000010.38,9000010.38,1202,12) Select ordering provider "^DD",9000010.38,9000010.38,1202,12.1) S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))" "^DD",9000010.38,9000010.38,1202,21,0) ^^1^1^2950901^^ "^DD",9000010.38,9000010.38,1202,21,1,0) This field can be used to document the provider who ordered the exam. "^DD",9000010.38,9000010.38,1202,23,0) ^^2^2^2960924^ "^DD",9000010.38,9000010.38,1202,23,1,0) The person entered here must hold the "AK.PROVIDER" security key. "^DD",9000010.38,9000010.38,1202,23,2,0) APCDALVR Variable = APCDALVR("APCDTPRV") "^DD",9000010.38,9000010.38,1202,"DT") 2940608 "^DD",9000010.38,9000010.38,1203,0) CLINIC^P40.7'^DIC(40.7,^12;3^Q "^DD",9000010.38,9000010.38,1203,23,0) ^^1^1^2960924^ "^DD",9000010.38,9000010.38,1203,23,1,0) APCDALVR Variable = APCDALVR("APCDTCLN") "^DD",9000010.38,9000010.38,1203,"DT") 2960709 "^DD",9000010.38,9000010.38,1204,0) ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q "^DD",9000010.38,9000010.38,1204,3) Enter the provider who gave the exam. "^DD",9000010.38,9000010.38,1204,21,0) ^^1^1^2950901^^^ "^DD",9000010.38,9000010.38,1204,21,1,0) This is the provider who gave the exam. "^DD",9000010.38,9000010.38,1204,23,0) ^^3^3^2960924^ "^DD",9000010.38,9000010.38,1204,23,1,0) This person can be any person in the new person file. The person does not have "^DD",9000010.38,9000010.38,1204,23,2,0) to hold the "AK.PROVIDER" security key. "^DD",9000010.38,9000010.38,1204,23,3,0) APCDALVR Variable = APCDALVR("APCDTEPR") "^DD",9000010.38,9000010.38,1204,"DT") 2941219 "^DD",9000010.38,9000010.38,1208,0) PARENT^P9000010.38'^AUPNVUNH(^12;8^Q "^DD",9000010.38,9000010.38,1208,23,0) ^^1^1^2960924^ "^DD",9000010.38,9000010.38,1208,23,1,0) APCDALVR Variable = APCDALVR("APCDTPNT") "^DD",9000010.38,9000010.38,1208,"DT") 2960709 "^DD",9000010.38,9000010.38,1209,0) EXTERNAL KEY^F^^12;9^K:$L(X)>20!($L(X)<1) X "^DD",9000010.38,9000010.38,1209,3) Answer must be 1-20 characters in length. "^DD",9000010.38,9000010.38,1209,23,0) ^^1^1^2960924^ "^DD",9000010.38,9000010.38,1209,23,1,0) APCDALVR Variable = APCDALVR("APCDTEXK") "^DD",9000010.38,9000010.38,1209,"DT") 2960925 "^DD",9000010.38,9000010.38,1210,0) OUTSIDE PROVIDER NAME^F^^12;10^K:$L(X)>30!($L(X)<1) X "^DD",9000010.38,9000010.38,1210,3) Answer must be 1-30 characters in length. "^DD",9000010.38,9000010.38,1210,23,0) ^^1^1^2960924^ "^DD",9000010.38,9000010.38,1210,23,1,0) APCDALVR Variable = APCDALVR("APCDTOPR") "^DD",9000010.38,9000010.38,1210,"DT") 2960925 "^DD",9000010.38,9000010.38,80101,0) EDITED FLAG^S^1:EDITED;^801;1^Q "^DD",9000010.38,9000010.38,80101,3) Answer is automatically entered by PCE filing logic. "^DD",9000010.38,9000010.38,80101,21,0) ^^2^2^2950901^ "^DD",9000010.38,9000010.38,80101,21,1,0) This field is automatically set to 1 if PCE detects that any original "^DD",9000010.38,9000010.38,80101,21,2,0) exam data is being edited. "^DD",9000010.38,9000010.38,80101,23,0) ^^2^2^2950901^ "^DD",9000010.38,9000010.38,80101,23,1,0) PCE filing logic automatically compares the before and after pictures of the "^DD",9000010.38,9000010.38,80101,23,2,0) record to determine if the edited flag should be set to "1". "^DD",9000010.38,9000010.38,80101,"DT") 2940608 "^DD",9000010.38,9000010.38,80102,0) DATA SOURCE^F^^801;2^K:$L(X)>85!($L(X)<2) X "^DD",9000010.38,9000010.38,80102,3) Answer is automatically entered by the PCE filing logic. "^DD",9000010.38,9000010.38,80102,21,0) ^^3^3^2950901^ "^DD",9000010.38,9000010.38,80102,21,1,0) This field is populated automatically by the PCE filing logic. The format of "^DD",9000010.38,9000010.38,80102,21,2,0) the field is as follows: Pointer to PCE data source file_"-"_A for Add or E "^DD",9000010.38,9000010.38,80102,21,3,0) for Edit_" "_DUZ of the person who entered the data_";"... "^DD",9000010.38,9000010.38,80102,23,0) ^^15^15^2950901^ "^DD",9000010.38,9000010.38,80102,23,1,0) The PCE filing logic requires a pointer to the PCE Data Source file. "^DD",9000010.38,9000010.38,80102,23,2,0) If this is not passed, then PCE filing logic will not process the data. "^DD",9000010.38,9000010.38,80102,23,3,0) "^DD",9000010.38,9000010.38,80102,23,4,0) If the record is a new record, then an "A" is used to specify the source "^DD",9000010.38,9000010.38,80102,23,6,0) compares the old and new records of information. An "E" will be "^DD",9000010.38,9000010.38,80102,23,7,0) automatically used if the filing logic finds the data has been edited. If "^DD",9000010.38,9000010.38,80102,23,8,0) "E" is used, then the Edited Flag field is automatically set to 1. "^DD",9000010.38,9000010.38,80102,23,9,0) "^DD",9000010.38,9000010.38,80102,23,10,0) The DUZ is stored in its internal format to represent the user who "^DD",9000010.38,9000010.38,80102,23,11,0) performed the addition or editing of data for this record. "^DD",9000010.38,9000010.38,80102,23,12,0) "^DD",9000010.38,9000010.38,80102,23,13,0) Iterations of editing will be concatenated to the previous Data Source "^DD",9000010.38,9000010.38,80102,23,14,0) value, up to 85 characters. "^DD",9000010.38,9000010.38,80102,23,15,0) "^DD",9000010.38,9000010.38,80102,"DT") 2940608 "^DD",9000010.38,9000010.38,81101,0) COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X "^DD",9000010.38,9000010.38,81101,3) Enter a comment 1-245 characters in length. "^DD",9000010.38,9000010.38,81101,21,0) ^^2^2^2950901^ "^DD",9000010.38,9000010.38,81101,21,1,0) This is a comment related to the patient's exam. The provider may enter this "^DD",9000010.38,9000010.38,81101,21,2,0) manually via the PCE User Interface. "^DD",9000010.38,9000010.38,81101,"DT") 2950711 "^DD",9000010.39,9000010.39,0) FIELD^^81101^16 "^DD",9000010.39,9000010.39,0,"DDA") N "^DD",9000010.39,9000010.39,0,"DT") 3010130 "^DD",9000010.39,9000010.39,0,"ID",.02) W " ",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),@("$E("_DIC_"Y,0),0)") "^DD",9000010.39,9000010.39,0,"ID",.03) W " " S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"") X:Y ^DD("DD") W Y S Y=AIHSY K AIHSY W @("$E("_DIC_"Y,0),0)") "^DD",9000010.39,9000010.39,0,"IX","AA",9000010.39,.03) "^DD",9000010.39,9000010.39,0,"IX","AATOO",9000010.39,.01) "^DD",9000010.39,9000010.39,0,"IX","AATOO2",9000010.39,.02) "^DD",9000010.39,9000010.39,0,"IX","AC",9000010.39,.02) "^DD",9000010.39,9000010.39,0,"IX","AD",9000010.39,.03) "^DD",9000010.39,9000010.39,0,"IX","AV10",9000010.39,.03) "^DD",9000010.39,9000010.39,0,"IX","AV9",9000010.39,.01) "^DD",9000010.39,9000010.39,0,"IX","B",9000010.39,.01) "^DD",9000010.39,9000010.39,0,"NM","V TREATMENT CONTRACT") "^DD",9000010.39,9000010.39,0,"PT",9000010.39,1208) "^DD",9000010.39,9000010.39,.01,0) CONTRACT TYPE^RS^M:MENTAL HEALTH;P:PAIN;^0;1^Q "^DD",9000010.39,9000010.39,.01,1,0) ^.1^^-1 "^DD",9000010.39,9000010.39,.01,1,1,0) 9000010.39^B "^DD",9000010.39,9000010.39,.01,1,1,1) S ^AUPNVTXC("B",$E(X,1,30),DA)="" "^DD",9000010.39,9000010.39,.01,1,1,2) K ^AUPNVTXC("B",$E(X,1,30),DA) "^DD",9000010.39,9000010.39,.01,1,2,0) 9000010.39^AV9^MUMPS "^DD",9000010.39,9000010.39,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000010.39,9000010.39,.01,1,2,2) Q "^DD",9000010.39,9000010.39,.01,1,3,0) 9000010.39^AATOO^MUMPS "^DD",9000010.39,9000010.39,.01,1,3,1) I $P(^AUPNVTXC(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVTXC("AA",$P(^AUPNVTXC(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVTXC(DA,0),U,3),0),".",1)),DA)="" "^DD",9000010.39,9000010.39,.01,1,3,2) I $P(^AUPNVTXC(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVTXC("AA",$P(^AUPNVTXC(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVTXC(DA,0),U,3),0),".",1)),DA) "^DD",9000010.39,9000010.39,.01,1,3,"%D",0) ^.101^4^4^3010130^^^ "^DD",9000010.39,9000010.39,.01,1,3,"%D",1,0) This cross reference is used for searches in sequence by patient, Exam "^DD",9000010.39,9000010.39,.01,1,3,"%D",2,0) pointer, inverted visit date, and internal entry number. "^DD",9000010.39,9000010.39,.01,1,3,"%D",3,0) "^DD",9000010.39,9000010.39,.01,1,3,"%D",4,0) "^DD",9000010.39,9000010.39,.01,3) "^DD",9000010.39,9000010.39,.01,21,0) ^^2^2^2951024^^ "^DD",9000010.39,9000010.39,.01,21,1,0) This is the entry in the Exam file that represents what type of exam was "^DD",9000010.39,9000010.39,.01,21,2,0) done at the encounter. "^DD",9000010.39,9000010.39,.01,23,0) ^^1^1^2960924^ "^DD",9000010.39,9000010.39,.01,23,1,0) APCDALVR Variable = APCDALVR("APCDTEX") "^DD",9000010.39,9000010.39,.01,"AUDIT") n "^DD",9000010.39,9000010.39,.01,"DT") 3010130 "^DD",9000010.39,9000010.39,.019,0) EXAM CODE^CJ2^^ ; ^X ^DD(9000010.39,.019,9.3) S X=$P(Y(9000010.39,.019,101),U,2) S D0=Y(9000010.39,.019,80) "^DD",9000010.39,9000010.39,.019,9) ^ "^DD",9000010.39,9000010.39,.019,9.01) 9999999.15^.02;9000010.39^.01 "^DD",9000010.39,9000010.39,.019,9.1) EXAM:CODE "^DD",9000010.39,9000010.39,.019,9.2) S Y(9000010.39,.019,80)=$S($D(D0):D0,1:""),Y(9000010.39,.019,1)=$S($D(^AUPNVTXC(D0,0)):^(0),1:"") "^DD",9000010.39,9000010.39,.019,9.3) X ^DD(9000010.39,.019,9.2) S D0=$P(Y(9000010.39,.019,1),U,1) S:'$D(^AUTTEXAM(+D0,0)) D0=-1 S Y(9000010.39,.019,101)=$S($D(^AUTTEXAM(D0,0)):^(0),1:"") "^DD",9000010.39,9000010.39,.02,0) PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q "^DD",9000010.39,9000010.39,.02,1,0) ^.1 "^DD",9000010.39,9000010.39,.02,1,1,0) 9000010.39^AC "^DD",9000010.39,9000010.39,.02,1,1,1) S ^AUPNVTXC("AC",$E(X,1,30),DA)="" "^DD",9000010.39,9000010.39,.02,1,1,2) K ^AUPNVTXC("AC",$E(X,1,30),DA) "^DD",9000010.39,9000010.39,.02,1,2,0) 9000010.39^AATOO2^MUMPS "^DD",9000010.39,9000010.39,.02,1,2,1) I $P(^AUPNVTXC(DA,0),U,3)]"" S ^AUPNVTXC("AA",X,$P(^AUPNVTXC(DA,0),U),(9999999-$P(+^AUPNVSIT($P(^AUPNVTXC(DA,0),U,3),0),".",1)),DA)="" "^DD",9000010.39,9000010.39,.02,1,2,2) I $P(^AUPNVTXC(DA,0),U,3)]"" K ^AUPNVTXC("AA",X,$P(^AUPNVTXC(DA,0),U),(9999999-$P(+^AUPNVSIT($P(^AUPNVTXC(DA,0),U,3),0),".",1)),DA) "^DD",9000010.39,9000010.39,.02,1,2,"DT") 3010130 "^DD",9000010.39,9000010.39,.02,23,0) ^^1^1^2960924^ "^DD",9000010.39,9000010.39,.02,23,1,0) APCDALVR Variable = APCDALVR("APCDPAT") "^DD",9000010.39,9000010.39,.02,"DT") 3010130 "^DD",9000010.39,9000010.39,.03,0) VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVTXC(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.39,9000010.39,.03,1,0) ^.1 "^DD",9000010.39,9000010.39,.03,1,1,0) 9000010.39^AD "^DD",9000010.39,9000010.39,.03,1,1,1) S ^AUPNVTXC("AD",$E(X,1,30),DA)="" "^DD",9000010.39,9000010.39,.03,1,1,2) K ^AUPNVTXC("AD",$E(X,1,30),DA) "^DD",9000010.39,9000010.39,.03,1,1,"%D",0) ^^4^4^2950901^ "^DD",9000010.39,9000010.39,.03,1,1,"%D",1,0) This cross reference is used for searches by the visit pointer and "^DD",9000010.39,9000010.39,.03,1,1,"%D",2,0) internal entry number. "^DD",9000010.39,9000010.39,.03,1,1,"%D",3,0) "^DD",9000010.39,9000010.39,.03,1,1,"%D",4,0) "AD",VISIT,DA "^DD",9000010.39,9000010.39,.03,1,2,0) 9000010.39^AA^MUMPS "^DD",9000010.39,9000010.39,.03,1,2,1) Q:$P(^AUPNVTXC(DA,0),U,2)="" S ^AUPNVTXC("AA",$P(^AUPNVTXC(DA,0),U,2),$P(^AUPNVTXC(DA,0),U),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" "^DD",9000010.39,9000010.39,.03,1,2,2) Q:$P(^AUPNVTXC(DA,0),U,2)="" K ^AUPNVTXC("AA",$P(^AUPNVTXC(DA,0),U,2),$P(^AUPNVTXC(DA,0),U),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) "^DD",9000010.39,9000010.39,.03,1,2,"%D",0) ^.101^4^4^3010130^^^ "^DD",9000010.39,9000010.39,.03,1,2,"%D",1,0) This cross reference is used for searches in sequence by patient, exam "^DD",9000010.39,9000010.39,.03,1,2,"%D",2,0) pointer, inverted visit, internal entry number. "^DD",9000010.39,9000010.39,.03,1,2,"%D",3,0) "^DD",9000010.39,9000010.39,.03,1,2,"%D",4,0) "AA",PATIENT,EXAM,VISIT,DA "^DD",9000010.39,9000010.39,.03,1,2,"DT") 3010130 "^DD",9000010.39,9000010.39,.03,1,3,0) 9000010.39^AV10^MUMPS "^DD",9000010.39,9000010.39,.03,1,3,1) D ADD^AUPNVSIT "^DD",9000010.39,9000010.39,.03,1,3,2) D SUB^AUPNVSIT "^DD",9000010.39,9000010.39,.03,1,3,"%D",0) ^^2^2^2940131^ "^DD",9000010.39,9000010.39,.03,1,3,"%D",1,0) This cross-reference adds and subtracts from the dependent entry count in "^DD",9000010.39,9000010.39,.03,1,3,"%D",2,0) the VISIT file. "^DD",9000010.39,9000010.39,.03,3) Enter the visit date/time for the encounter where the exam was done. "^DD",9000010.39,9000010.39,.03,12) VISIT MUST BE FOR CURRENT PATIENT "^DD",9000010.39,9000010.39,.03,12.1) S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVTXC(DA,0),U,2)" "^DD",9000010.39,9000010.39,.03,21,0) ^^2^2^2950901^ "^DD",9000010.39,9000010.39,.03,21,1,0) This is the encounter in the Visit file that represents when and where the "^DD",9000010.39,9000010.39,.03,21,2,0) exam was done. "^DD",9000010.39,9000010.39,.03,23,0) ^^1^1^2960924^ "^DD",9000010.39,9000010.39,.03,23,1,0) APCDALVR Variable = APCDALVR("APCDVSIT") "^DD",9000010.39,9000010.39,.03,"DT") 3010130 "^DD",9000010.39,9000010.39,.04,0) DATE INITIATED^D^^0;4^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",9000010.39,9000010.39,.04,1,0) ^.1^^0 "^DD",9000010.39,9000010.39,.04,3) "^DD",9000010.39,9000010.39,.04,23,0) ^^1^1^2960924^ "^DD",9000010.39,9000010.39,.04,23,1,0) APCDALVR Variable = APCDALVR("APCDTRES") "^DD",9000010.39,9000010.39,.04,"DT") 3010130 "^DD",9000010.39,9000010.39,.05,0) PROVIDER^P200'^VA(200,^0;5^Q "^DD",9000010.39,9000010.39,.05,"DT") 3010130 "^DD",9000010.39,9000010.39,1201,0) EVENT DATE AND TIME^D^^12;1^S %DT="EST" D ^%DT S X=Y K:Y<1 X "^DD",9000010.39,9000010.39,1201,3) Enter the date and time the exam was given. "^DD",9000010.39,9000010.39,1201,21,0) ^^9^9^2950901^^^^ "^DD",9000010.39,9000010.39,1201,21,1,0) This is the date and time the exam was given by the provider. This date "^DD",9000010.39,9000010.39,1201,21,2,0) and time may be different from the visit date and time. For example, for "^DD",9000010.39,9000010.39,1201,21,3,0) clinic appointment visits, the visit date and time is the date and time of the "^DD",9000010.39,9000010.39,1201,21,4,0) appointment, not the time the provider performed the clinical event. "^DD",9000010.39,9000010.39,1201,21,6,0) The date may be an imprecise date. "^DD",9000010.39,9000010.39,1201,21,7,0) "^DD",9000010.39,9000010.39,1201,21,8,0) Date and time may be within 30 days before or after the visit date, with the "^DD",9000010.39,9000010.39,1201,21,9,0) restriction the date cannot be a future date. "^DD",9000010.39,9000010.39,1201,23,0) ^^14^14^2960924^ "^DD",9000010.39,9000010.39,1201,23,1,0) The PCE User Interface, which allows manual entry of data, will be the "^DD",9000010.39,9000010.39,1201,23,2,0) primary source of the event date and time. The event date prompt defaults "^DD",9000010.39,9000010.39,1201,23,3,0) to the visit date, and the time is entered to reflect the actual time the "^DD",9000010.39,9000010.39,1201,23,4,0) measurement was done. The event date does not have to be the visit date, "^DD",9000010.39,9000010.39,1201,23,6,0) future date. "^DD",9000010.39,9000010.39,1201,23,7,0) "^DD",9000010.39,9000010.39,1201,23,8,0) If a user wants to enter a historical measurement, the user should use the "^DD",9000010.39,9000010.39,1201,23,9,0) Historical Encounter entry action to document the historical measurement. "^DD",9000010.39,9000010.39,1201,23,10,0) Historical entries will not be eligible for credit. "^DD",9000010.39,9000010.39,1201,23,11,0) "^DD",9000010.39,9000010.39,1201,23,12,0) PCE Data Sources for automatic (scanning) data capture will be blank "^DD",9000010.39,9000010.39,1201,23,13,0) unless the event date and time are passed to PCE for filing. "^DD",9000010.39,9000010.39,1201,23,14,0) APCDALVR Variable = APCDALVR("APCDTCDT") "^DD",9000010.39,9000010.39,1201,"DT") 2940608 "^DD",9000010.39,9000010.39,1202,0) ORDERING PROVIDER^*P200'X^VA(200,^12;2^S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.39,9000010.39,1202,3) Enter the provider who ordered this exam. "^DD",9000010.39,9000010.39,1202,12) Select ordering provider "^DD",9000010.39,9000010.39,1202,12.1) S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))" "^DD",9000010.39,9000010.39,1202,21,0) ^^1^1^3010111^^^ "^DD",9000010.39,9000010.39,1202,21,1,0) This field can be used to document the provider who ordered the exam. "^DD",9000010.39,9000010.39,1202,23,0) ^^2^2^3010111^^ "^DD",9000010.39,9000010.39,1202,23,1,0) The person entered here must hold the "AK.PROVIDER" security key. "^DD",9000010.39,9000010.39,1202,23,2,0) APCDALVR Variable = APCDALVR("APCDTPRV") "^DD",9000010.39,9000010.39,1202,"DT") 2940608 "^DD",9000010.39,9000010.39,1203,0) CLINIC^P40.7'^DIC(40.7,^12;3^Q "^DD",9000010.39,9000010.39,1203,23,0) ^^1^1^2960924^ "^DD",9000010.39,9000010.39,1203,23,1,0) APCDALVR Variable = APCDALVR("APCDTCLN") "^DD",9000010.39,9000010.39,1203,"DT") 2960709 "^DD",9000010.39,9000010.39,1204,0) ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q "^DD",9000010.39,9000010.39,1204,3) Enter the provider who gave the exam. "^DD",9000010.39,9000010.39,1204,21,0) ^^1^1^2950901^^^ "^DD",9000010.39,9000010.39,1204,21,1,0) This is the provider who gave the exam. "^DD",9000010.39,9000010.39,1204,23,0) ^^3^3^2960924^ "^DD",9000010.39,9000010.39,1204,23,1,0) This person can be any person in the new person file. The person does not have "^DD",9000010.39,9000010.39,1204,23,2,0) to hold the "AK.PROVIDER" security key. "^DD",9000010.39,9000010.39,1204,23,3,0) APCDALVR Variable = APCDALVR("APCDTEPR") "^DD",9000010.39,9000010.39,1204,"DT") 2941219 "^DD",9000010.39,9000010.39,1208,0) PARENT^P9000010.39'^AUPNVTXC(^12;8^Q "^DD",9000010.39,9000010.39,1208,23,0) ^^1^1^2960924^ "^DD",9000010.39,9000010.39,1208,23,1,0) APCDALVR Variable = APCDALVR("APCDTPNT") "^DD",9000010.39,9000010.39,1208,"DT") 2960709 "^DD",9000010.39,9000010.39,1209,0) EXTERNAL KEY^F^^12;9^K:$L(X)>20!($L(X)<1) X "^DD",9000010.39,9000010.39,1209,3) Answer must be 1-20 characters in length. "^DD",9000010.39,9000010.39,1209,23,0) ^^1^1^2960924^ "^DD",9000010.39,9000010.39,1209,23,1,0) APCDALVR Variable = APCDALVR("APCDTEXK") "^DD",9000010.39,9000010.39,1209,"DT") 2960925 "^DD",9000010.39,9000010.39,1210,0) OUTSIDE PROVIDER NAME^F^^12;10^K:$L(X)>30!($L(X)<1) X "^DD",9000010.39,9000010.39,1210,3) Answer must be 1-30 characters in length. "^DD",9000010.39,9000010.39,1210,23,0) ^^1^1^2960924^ "^DD",9000010.39,9000010.39,1210,23,1,0) APCDALVR Variable = APCDALVR("APCDTOPR") "^DD",9000010.39,9000010.39,1210,"DT") 2960925 "^DD",9000010.39,9000010.39,80101,0) EDITED FLAG^S^1:EDITED;^801;1^Q "^DD",9000010.39,9000010.39,80101,3) Answer is automatically entered by PCE filing logic. "^DD",9000010.39,9000010.39,80101,21,0) ^^2^2^2950901^ "^DD",9000010.39,9000010.39,80101,21,1,0) This field is automatically set to 1 if PCE detects that any original "^DD",9000010.39,9000010.39,80101,21,2,0) exam data is being edited. "^DD",9000010.39,9000010.39,80101,23,0) ^^2^2^2950901^ "^DD",9000010.39,9000010.39,80101,23,1,0) PCE filing logic automatically compares the before and after pictures of the "^DD",9000010.39,9000010.39,80101,23,2,0) record to determine if the edited flag should be set to "1". "^DD",9000010.39,9000010.39,80101,"DT") 2940608 "^DD",9000010.39,9000010.39,80102,0) DATA SOURCE^F^^801;2^K:$L(X)>85!($L(X)<2) X "^DD",9000010.39,9000010.39,80102,3) Answer is automatically entered by the PCE filing logic. "^DD",9000010.39,9000010.39,80102,21,0) ^^3^3^2950901^ "^DD",9000010.39,9000010.39,80102,21,1,0) This field is populated automatically by the PCE filing logic. The format of "^DD",9000010.39,9000010.39,80102,21,2,0) the field is as follows: Pointer to PCE data source file_"-"_A for Add or E "^DD",9000010.39,9000010.39,80102,21,3,0) for Edit_" "_DUZ of the person who entered the data_";"... "^DD",9000010.39,9000010.39,80102,23,0) ^^15^15^2950901^ "^DD",9000010.39,9000010.39,80102,23,1,0) The PCE filing logic requires a pointer to the PCE Data Source file. "^DD",9000010.39,9000010.39,80102,23,2,0) If this is not passed, then PCE filing logic will not process the data. "^DD",9000010.39,9000010.39,80102,23,3,0) "^DD",9000010.39,9000010.39,80102,23,4,0) If the record is a new record, then an "A" is used to specify the source "^DD",9000010.39,9000010.39,80102,23,6,0) compares the old and new records of information. An "E" will be "^DD",9000010.39,9000010.39,80102,23,7,0) automatically used if the filing logic finds the data has been edited. If "^DD",9000010.39,9000010.39,80102,23,8,0) "E" is used, then the Edited Flag field is automatically set to 1. "^DD",9000010.39,9000010.39,80102,23,9,0) "^DD",9000010.39,9000010.39,80102,23,10,0) The DUZ is stored in its internal format to represent the user who "^DD",9000010.39,9000010.39,80102,23,11,0) performed the addition or editing of data for this record. "^DD",9000010.39,9000010.39,80102,23,12,0) "^DD",9000010.39,9000010.39,80102,23,13,0) Iterations of editing will be concatenated to the previous Data Source "^DD",9000010.39,9000010.39,80102,23,14,0) value, up to 85 characters. "^DD",9000010.39,9000010.39,80102,23,15,0) "^DD",9000010.39,9000010.39,80102,"DT") 2940608 "^DD",9000010.39,9000010.39,81101,0) COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X "^DD",9000010.39,9000010.39,81101,3) Enter a comment 1-245 characters in length. "^DD",9000010.39,9000010.39,81101,21,0) ^^2^2^2950901^ "^DD",9000010.39,9000010.39,81101,21,1,0) This is a comment related to the patient's exam. The provider may enter this "^DD",9000010.39,9000010.39,81101,21,2,0) manually via the PCE User Interface. "^DD",9000010.39,9000010.39,81101,"DT") 2950711 "^DD",9000010.41,9000010.41,0) FIELD^^81101^21 "^DD",9000010.41,9000010.41,0,"DDA") N "^DD",9000010.41,9000010.41,0,"DT") 3010207 "^DD",9000010.41,9000010.41,0,"ID",.02) W " ",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),@("$E("_DIC_"Y,0),0)") "^DD",9000010.41,9000010.41,0,"ID",.03) W " " S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"") X:Y ^DD("DD") W Y S Y=AIHSY K AIHSY W @("$E("_DIC_"Y,0),0)") "^DD",9000010.41,9000010.41,0,"IX","AA",9000010.41,.02) "^DD",9000010.41,9000010.41,0,"IX","AATOO",9000010.41,.03) "^DD",9000010.41,9000010.41,0,"IX","AC",9000010.41,.02) "^DD",9000010.41,9000010.41,0,"IX","AD",9000010.41,.03) "^DD",9000010.41,9000010.41,0,"IX","AM",9000010.41,.12) "^DD",9000010.41,9000010.41,0,"IX","AMTO",9000010.41,.03) "^DD",9000010.41,9000010.41,0,"IX","AS",9000010.41,.02) "^DD",9000010.41,9000010.41,0,"IX","ASTO",9000010.41,.03) "^DD",9000010.41,9000010.41,0,"IX","ASTOO",9000010.41,.04) "^DD",9000010.41,9000010.41,0,"IX","AV10",9000010.41,.03) "^DD",9000010.41,9000010.41,0,"IX","AV9",9000010.41,.01) "^DD",9000010.41,9000010.41,0,"IX","B",9000010.41,.01) "^DD",9000010.41,9000010.41,0,"NM","V ASTHMA") "^DD",9000010.41,9000010.41,0,"PT",9000010.41,1208) "^DD",9000010.41,9000010.41,.01,0) DUMMY FIELD^RF^^0;1^K:$L(X)>1!($L(X)<1) X "^DD",9000010.41,9000010.41,.01,1,0) ^.1^^-1 "^DD",9000010.41,9000010.41,.01,1,1,0) 9000010.41^B "^DD",9000010.41,9000010.41,.01,1,1,1) S ^AUPNVAST("B",$E(X,1,30),DA)="" "^DD",9000010.41,9000010.41,.01,1,1,2) K ^AUPNVAST("B",$E(X,1,30),DA) "^DD",9000010.41,9000010.41,.01,1,2,0) 9000010.41^AV9^MUMPS "^DD",9000010.41,9000010.41,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000010.41,9000010.41,.01,1,2,2) Q "^DD",9000010.41,9000010.41,.01,3) Answer must be 1 character in length. "^DD",9000010.41,9000010.41,.01,12) Allow only active Exams to be selected. "^DD",9000010.41,9000010.41,.01,12.1) S DIC("S")="I $P(^(0),U,4)'=1" "^DD",9000010.41,9000010.41,.01,"AUDIT") n "^DD",9000010.41,9000010.41,.01,"DT") 3010206 "^DD",9000010.41,9000010.41,.02,0) PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q "^DD",9000010.41,9000010.41,.02,1,0) ^.1 "^DD",9000010.41,9000010.41,.02,1,1,0) 9000010.41^AC "^DD",9000010.41,9000010.41,.02,1,1,1) S ^AUPNVAST("AC",$E(X,1,30),DA)="" "^DD",9000010.41,9000010.41,.02,1,1,2) K ^AUPNVAST("AC",$E(X,1,30),DA) "^DD",9000010.41,9000010.41,.02,1,2,0) 9000010.41^AS^MUMPS "^DD",9000010.41,9000010.41,.02,1,2,1) I $P(^AUPNVAST(DA,0),U,3),$P(^AUPNVAST(DA,0),U,4)]"" S ^AUPNVAST("AS",X,(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA)=$P(^AUPNVAST(DA,0),U,4) "^DD",9000010.41,9000010.41,.02,1,2,2) I $P(^AUPNVAST(DA,0),U,3),$P(^AUPNVAST(DA,0),U,4)]"" K ^AUPNVAST("AS",X,(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA) "^DD",9000010.41,9000010.41,.02,1,2,"DT") 3010207 "^DD",9000010.41,9000010.41,.02,1,3,0) 9000010.41^AA^MUMPS "^DD",9000010.41,9000010.41,.02,1,3,1) I $P(^AUPNVAST(DA,0),U,3) S ^AUPNVAST("AA",X,(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA)="" "^DD",9000010.41,9000010.41,.02,1,3,2) I $P(^AUPNVAST(DA,0),U,3) K ^AUPNVAST("AA",X,(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA) "^DD",9000010.41,9000010.41,.02,1,3,"DT") 3010207 "^DD",9000010.41,9000010.41,.02,23,0) ^^1^1^2960924^ "^DD",9000010.41,9000010.41,.02,23,1,0) APCDALVR Variable = APCDALVR("APCDPAT") "^DD",9000010.41,9000010.41,.02,"DT") 3010207 "^DD",9000010.41,9000010.41,.03,0) VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVAST(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.41,9000010.41,.03,1,0) ^.1 "^DD",9000010.41,9000010.41,.03,1,1,0) 9000010.41^AD "^DD",9000010.41,9000010.41,.03,1,1,1) S ^AUPNVAST("AD",$E(X,1,30),DA)="" "^DD",9000010.41,9000010.41,.03,1,1,2) K ^AUPNVAST("AD",$E(X,1,30),DA) "^DD",9000010.41,9000010.41,.03,1,1,"%D",0) ^^4^4^2950901^ "^DD",9000010.41,9000010.41,.03,1,1,"%D",1,0) This cross reference is used for searches by the visit pointer and "^DD",9000010.41,9000010.41,.03,1,1,"%D",2,0) internal entry number. "^DD",9000010.41,9000010.41,.03,1,1,"%D",3,0) "^DD",9000010.41,9000010.41,.03,1,1,"%D",4,0) "AD",VISIT,DA "^DD",9000010.41,9000010.41,.03,1,2,0) 9000010.41^ASTO^MUMPS "^DD",9000010.41,9000010.41,.03,1,2,1) I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,4)]"" S ^AUPNVAST("AS",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),DA)=$P(^AUPNVAST(DA,0),U,4) "^DD",9000010.41,9000010.41,.03,1,2,2) I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,4)]"" K ^AUPNVAST("AS",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),DA) "^DD",9000010.41,9000010.41,.03,1,2,"DT") 3010207 "^DD",9000010.41,9000010.41,.03,1,3,0) 9000010.41^AV10^MUMPS "^DD",9000010.41,9000010.41,.03,1,3,1) D ADD^AUPNVSIT "^DD",9000010.41,9000010.41,.03,1,3,2) D SUB^AUPNVSIT "^DD",9000010.41,9000010.41,.03,1,3,"%D",0) ^^2^2^2940131^ "^DD",9000010.41,9000010.41,.03,1,3,"%D",1,0) This cross-reference adds and subtracts from the dependent entry count in "^DD",9000010.41,9000010.41,.03,1,3,"%D",2,0) the VISIT file. "^DD",9000010.41,9000010.41,.03,1,4,0) 9000010.41^AMTO^MUMPS "^DD",9000010.41,9000010.41,.03,1,4,1) I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,4)=1 S ^AUPNVAST("AM",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),$P(^AUPNVAST(DA,0),U,4),DA)="" "^DD",9000010.41,9000010.41,.03,1,4,2) I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,4)]"" K ^AUPNVAST("AM",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),$P(^AUPNVAST(DA,0),U,4),DA) "^DD",9000010.41,9000010.41,.03,1,4,"DT") 3010207 "^DD",9000010.41,9000010.41,.03,1,5,0) 9000010.41^AATOO^MUMPS "^DD",9000010.41,9000010.41,.03,1,5,1) I $P(^AUPNVAST(DA,0),U,2) S ^AUPNVAST("AA",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),DA)="" "^DD",9000010.41,9000010.41,.03,1,5,2) I $P(^AUPNVAST(DA,0),U,2) K ^AUPNVAST("AA",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT(X,0),U),".")),DA) "^DD",9000010.41,9000010.41,.03,1,5,"DT") 3010224 "^DD",9000010.41,9000010.41,.03,3) Enter the visit date/time for the encounter where the exam was done. "^DD",9000010.41,9000010.41,.03,12) VISIT MUST BE FOR CURRENT PATIENT "^DD",9000010.41,9000010.41,.03,12.1) S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVAST(DA,0),U,2)" "^DD",9000010.41,9000010.41,.03,21,0) ^^2^2^2950901^ "^DD",9000010.41,9000010.41,.03,21,1,0) This is the encounter in the Visit file that represents when and where the "^DD",9000010.41,9000010.41,.03,21,2,0) exam was done. "^DD",9000010.41,9000010.41,.03,23,0) ^^1^1^2960924^ "^DD",9000010.41,9000010.41,.03,23,1,0) APCDALVR Variable = APCDALVR("APCDVSIT") "^DD",9000010.41,9000010.41,.03,"DT") 3010224 "^DD",9000010.41,9000010.41,.04,0) SEVERITY^S^1:MILD INTERMITTENT;2:MILD PERSISTENT;3:MODERATE PERSISTENT;4:SEVERE PERSISTENT;^0;4^Q "^DD",9000010.41,9000010.41,.04,1,0) ^.1 "^DD",9000010.41,9000010.41,.04,1,1,0) 9000010.41^ASTOO^MUMPS "^DD",9000010.41,9000010.41,.04,1,1,1) I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,3) S ^AUPNVAST("AS",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA)=X "^DD",9000010.41,9000010.41,.04,1,1,2) I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,3) K ^AUPNVAST("AS",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),DA) "^DD",9000010.41,9000010.41,.04,1,1,"DT") 3010207 "^DD",9000010.41,9000010.41,.04,"DT") 3010207 "^DD",9000010.41,9000010.41,.05,0) FEV 1^NJ3,0^^0;5^K:+X'=X!(X>150)!(X<0)!(X?.E1"."1N.N) X "^DD",9000010.41,9000010.41,.05,3) Type a Number between 0 and 150, 0 Decimal Digits "^DD",9000010.41,9000010.41,.05,"DT") 3010207 "^DD",9000010.41,9000010.41,.06,0) FEV 25-75^NJ3,0^^0;6^K:+X'=X!(X>150)!(X<0)!(X?.E1"."1N.N) X "^DD",9000010.41,9000010.41,.06,3) Type a Number between 0 and 150, 0 Decimal Digits "^DD",9000010.41,9000010.41,.06,"DT") 3010207 "^DD",9000010.41,9000010.41,.07,0) PEF/BEST PF^NJ3,0^^0;7^K:+X'=X!(X>500)!(X<100)!(X?.E1"."1N.N) X "^DD",9000010.41,9000010.41,.07,3) Type a Number between 100 and 500, 0 Decimal Digits "^DD",9000010.41,9000010.41,.07,"DT") 3010207 "^DD",9000010.41,9000010.41,.08,0) ETS^S^Y:YES;N:NO;^0;8^Q "^DD",9000010.41,9000010.41,.08,"DT") 3010207 "^DD",9000010.41,9000010.41,.09,0) PARTICULATE MATTER^S^Y:YES;N:NO;^0;9^Q "^DD",9000010.41,9000010.41,.09,3) "^DD",9000010.41,9000010.41,.09,"DT") 3010207 "^DD",9000010.41,9000010.41,.11,0) DUST MITE^S^Y:YES;N:NO;^0;11^Q "^DD",9000010.41,9000010.41,.11,"DT") 3010207 "^DD",9000010.41,9000010.41,.12,0) ASTHMA MANAGEMENT PLAN^S^1:YES;0:NO;^0;12^Q "^DD",9000010.41,9000010.41,.12,1,0) ^.1 "^DD",9000010.41,9000010.41,.12,1,1,0) 9000010.41^AM^MUMPS "^DD",9000010.41,9000010.41,.12,1,1,1) I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,3),X S ^AUPNVAST("AM",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),X,DA)="" "^DD",9000010.41,9000010.41,.12,1,1,2) I $P(^AUPNVAST(DA,0),U,2),$P(^AUPNVAST(DA,0),U,3) K ^AUPNVAST("AM",$P(^AUPNVAST(DA,0),U,2),(9999999-$P($P(^AUPNVSIT($P(^AUPNVAST(DA,0),U,3),0),U),".")),X,DA) "^DD",9000010.41,9000010.41,.12,1,1,"DT") 3010207 "^DD",9000010.41,9000010.41,.12,"DT") 3010207 "^DD",9000010.41,9000010.41,1201,0) EVENT DATE AND TIME^D^^12;1^S %DT="EST" D ^%DT S X=Y K:Y<1 X "^DD",9000010.41,9000010.41,1201,3) Enter the date and time the exam was given. "^DD",9000010.41,9000010.41,1201,21,0) ^^9^9^2950901^^^^ "^DD",9000010.41,9000010.41,1201,21,1,0) This is the date and time the exam was given by the provider. This date "^DD",9000010.41,9000010.41,1201,21,2,0) and time may be different from the visit date and time. For example, for "^DD",9000010.41,9000010.41,1201,21,3,0) clinic appointment visits, the visit date and time is the date and time of the "^DD",9000010.41,9000010.41,1201,21,4,0) appointment, not the time the provider performed the clinical event. "^DD",9000010.41,9000010.41,1201,21,6,0) The date may be an imprecise date. "^DD",9000010.41,9000010.41,1201,21,7,0) "^DD",9000010.41,9000010.41,1201,21,8,0) Date and time may be within 30 days before or after the visit date, with the "^DD",9000010.41,9000010.41,1201,21,9,0) restriction the date cannot be a future date. "^DD",9000010.41,9000010.41,1201,23,0) ^^14^14^2960924^ "^DD",9000010.41,9000010.41,1201,23,1,0) The PCE User Interface, which allows manual entry of data, will be the "^DD",9000010.41,9000010.41,1201,23,2,0) primary source of the event date and time. The event date prompt defaults "^DD",9000010.41,9000010.41,1201,23,3,0) to the visit date, and the time is entered to reflect the actual time the "^DD",9000010.41,9000010.41,1201,23,4,0) measurement was done. The event date does not have to be the visit date, "^DD",9000010.41,9000010.41,1201,23,6,0) future date. "^DD",9000010.41,9000010.41,1201,23,7,0) "^DD",9000010.41,9000010.41,1201,23,8,0) If a user wants to enter a historical measurement, the user should use the "^DD",9000010.41,9000010.41,1201,23,9,0) Historical Encounter entry action to document the historical measurement. "^DD",9000010.41,9000010.41,1201,23,10,0) Historical entries will not be eligible for credit. "^DD",9000010.41,9000010.41,1201,23,11,0) "^DD",9000010.41,9000010.41,1201,23,12,0) PCE Data Sources for automatic (scanning) data capture will be blank "^DD",9000010.41,9000010.41,1201,23,13,0) unless the event date and time are passed to PCE for filing. "^DD",9000010.41,9000010.41,1201,23,14,0) APCDALVR Variable = APCDALVR("APCDTCDT") "^DD",9000010.41,9000010.41,1201,"DT") 2940608 "^DD",9000010.41,9000010.41,1202,0) ORDERING PROVIDER^*P200'X^VA(200,^12;2^S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000010.41,9000010.41,1202,3) Enter the provider who ordered this exam. "^DD",9000010.41,9000010.41,1202,12) Select ordering provider "^DD",9000010.41,9000010.41,1202,12.1) S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))" "^DD",9000010.41,9000010.41,1202,21,0) ^^1^1^3010111^^^ "^DD",9000010.41,9000010.41,1202,21,1,0) This field can be used to document the provider who ordered the exam. "^DD",9000010.41,9000010.41,1202,23,0) ^^2^2^3010111^^ "^DD",9000010.41,9000010.41,1202,23,1,0) The person entered here must hold the "AK.PROVIDER" security key. "^DD",9000010.41,9000010.41,1202,23,2,0) APCDALVR Variable = APCDALVR("APCDTPRV") "^DD",9000010.41,9000010.41,1202,"DT") 2940608 "^DD",9000010.41,9000010.41,1203,0) CLINIC^P40.7'^DIC(40.7,^12;3^Q "^DD",9000010.41,9000010.41,1203,23,0) ^^1^1^2960924^ "^DD",9000010.41,9000010.41,1203,23,1,0) APCDALVR Variable = APCDALVR("APCDTCLN") "^DD",9000010.41,9000010.41,1203,"DT") 2960709 "^DD",9000010.41,9000010.41,1204,0) ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q "^DD",9000010.41,9000010.41,1204,3) Enter the provider who gave the exam. "^DD",9000010.41,9000010.41,1204,21,0) ^^1^1^2950901^^^ "^DD",9000010.41,9000010.41,1204,21,1,0) This is the provider who gave the exam. "^DD",9000010.41,9000010.41,1204,23,0) ^^3^3^2960924^ "^DD",9000010.41,9000010.41,1204,23,1,0) This person can be any person in the new person file. The person does not have "^DD",9000010.41,9000010.41,1204,23,2,0) to hold the "AK.PROVIDER" security key. "^DD",9000010.41,9000010.41,1204,23,3,0) APCDALVR Variable = APCDALVR("APCDTEPR") "^DD",9000010.41,9000010.41,1204,"DT") 2941219 "^DD",9000010.41,9000010.41,1208,0) PARENT^P9000010.41'^AUPNVAST(^12;8^Q "^DD",9000010.41,9000010.41,1208,23,0) ^^1^1^2960924^ "^DD",9000010.41,9000010.41,1208,23,1,0) APCDALVR Variable = APCDALVR("APCDTPNT") "^DD",9000010.41,9000010.41,1208,"DT") 2960709 "^DD",9000010.41,9000010.41,1209,0) EXTERNAL KEY^F^^12;9^K:$L(X)>20!($L(X)<1) X "^DD",9000010.41,9000010.41,1209,3) Answer must be 1-20 characters in length. "^DD",9000010.41,9000010.41,1209,23,0) ^^1^1^2960924^ "^DD",9000010.41,9000010.41,1209,23,1,0) APCDALVR Variable = APCDALVR("APCDTEXK") "^DD",9000010.41,9000010.41,1209,"DT") 2960925 "^DD",9000010.41,9000010.41,1210,0) OUTSIDE PROVIDER NAME^F^^12;10^K:$L(X)>30!($L(X)<1) X "^DD",9000010.41,9000010.41,1210,3) Answer must be 1-30 characters in length. "^DD",9000010.41,9000010.41,1210,23,0) ^^1^1^2960924^ "^DD",9000010.41,9000010.41,1210,23,1,0) APCDALVR Variable = APCDALVR("APCDTOPR") "^DD",9000010.41,9000010.41,1210,"DT") 2960925 "^DD",9000010.41,9000010.41,80101,0) EDITED FLAG^S^1:EDITED;^801;1^Q "^DD",9000010.41,9000010.41,80101,3) Answer is automatically entered by PCE filing logic. "^DD",9000010.41,9000010.41,80101,21,0) ^^2^2^2950901^ "^DD",9000010.41,9000010.41,80101,21,1,0) This field is automatically set to 1 if PCE detects that any original "^DD",9000010.41,9000010.41,80101,21,2,0) exam data is being edited. "^DD",9000010.41,9000010.41,80101,23,0) ^^2^2^2950901^ "^DD",9000010.41,9000010.41,80101,23,1,0) PCE filing logic automatically compares the before and after pictures of the "^DD",9000010.41,9000010.41,80101,23,2,0) record to determine if the edited flag should be set to "1". "^DD",9000010.41,9000010.41,80101,"DT") 2940608 "^DD",9000010.41,9000010.41,80102,0) DATA SOURCE^F^^801;2^K:$L(X)>85!($L(X)<2) X "^DD",9000010.41,9000010.41,80102,3) Answer is automatically entered by the PCE filing logic. "^DD",9000010.41,9000010.41,80102,21,0) ^^3^3^2950901^ "^DD",9000010.41,9000010.41,80102,21,1,0) This field is populated automatically by the PCE filing logic. The format of "^DD",9000010.41,9000010.41,80102,21,2,0) the field is as follows: Pointer to PCE data source file_"-"_A for Add or E "^DD",9000010.41,9000010.41,80102,21,3,0) for Edit_" "_DUZ of the person who entered the data_";"... "^DD",9000010.41,9000010.41,80102,23,0) ^^15^15^2950901^ "^DD",9000010.41,9000010.41,80102,23,1,0) The PCE filing logic requires a pointer to the PCE Data Source file. "^DD",9000010.41,9000010.41,80102,23,2,0) If this is not passed, then PCE filing logic will not process the data. "^DD",9000010.41,9000010.41,80102,23,3,0) "^DD",9000010.41,9000010.41,80102,23,4,0) If the record is a new record, then an "A" is used to specify the source "^DD",9000010.41,9000010.41,80102,23,6,0) compares the old and new records of information. An "E" will be "^DD",9000010.41,9000010.41,80102,23,7,0) automatically used if the filing logic finds the data has been edited. If "^DD",9000010.41,9000010.41,80102,23,8,0) "E" is used, then the Edited Flag field is automatically set to 1. "^DD",9000010.41,9000010.41,80102,23,9,0) "^DD",9000010.41,9000010.41,80102,23,10,0) The DUZ is stored in its internal format to represent the user who "^DD",9000010.41,9000010.41,80102,23,11,0) performed the addition or editing of data for this record. "^DD",9000010.41,9000010.41,80102,23,12,0) "^DD",9000010.41,9000010.41,80102,23,13,0) Iterations of editing will be concatenated to the previous Data Source "^DD",9000010.41,9000010.41,80102,23,14,0) value, up to 85 characters. "^DD",9000010.41,9000010.41,80102,23,15,0) "^DD",9000010.41,9000010.41,80102,"DT") 2940608 "^DD",9000010.41,9000010.41,81101,0) COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X "^DD",9000010.41,9000010.41,81101,3) Enter a comment 1-245 characters in length. "^DD",9000010.41,9000010.41,81101,21,0) ^^2^2^2950901^ "^DD",9000010.41,9000010.41,81101,21,1,0) This is a comment related to the patient's exam. The provider may enter this "^DD",9000010.41,9000010.41,81101,21,2,0) manually via the PCE User Interface. "^DD",9000010.41,9000010.41,81101,"DT") 2950711 "^DD",9000011,9000011,.01,0) DIAGNOSIS^R*P80'X^ICD9(^0;1^S DIC("S")="I 1 Q:DUZ(""AG"")=""V"" I $E(^(0))'=""E"",$P(^(0),U,9)="""" Q:$P(^(0),U,10)="""" I $P(^(0),U,10)=AUPNSEX" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000011,9000011,.01,1,0) ^.1 "^DD",9000011,9000011,.01,1,1,0) 9000011^B "^DD",9000011,9000011,.01,1,1,1) S ^AUPNPROB("B",$E(X,1,30),DA)="" "^DD",9000011,9000011,.01,1,1,2) K ^AUPNPROB("B",$E(X,1,30),DA) "^DD",9000011,9000011,.01,1,2,0) 9000011^AZ9^MUMPS "^DD",9000011,9000011,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000011,9000011,.01,1,2,2) Q "^DD",9000011,9000011,.01,1,2,"%D",0) ^^2^2^2940110^^^ "^DD",9000011,9000011,.01,1,2,"%D",1,0) Controls the behaviour of the input templates used by IHS to populate "^DD",9000011,9000011,.01,1,2,"%D",2,0) and maintain this file. "^DD",9000011,9000011,.01,1,3,0) 9000011^ABAT^MUMPS "^DD",9000011,9000011,.01,1,3,1) I $T(EP^BATREG)]"",$E($P(^ICD9(X,0),U),1,3)=493,$D(^BATREG(0)),$G(APCDPAT) D EP^BATREG(APCDPAT) "^DD",9000011,9000011,.01,1,3,2) Q "^DD",9000011,9000011,.01,1,3,"DT") 3010227 "^DD",9000011,9000011,.01,3) Enter the ICD Code for this problem. "^DD",9000011,9000011,.01,12) Cannot be an E code or an inactive code and must be appropriate for the sex of the Patient. "^DD",9000011,9000011,.01,12.1) S DIC("S")="I 1 Q:DUZ(""AG"")=""V"" I $E(^(0))'=""E"",$P(^(0),U,9)="""" Q:$P(^(0),U,10)="""" I $P(^(0),U,10)=AUPNSEX" "^DD",9000011,9000011,.01,21,0) ^^2^2^2930908^^^^ "^DD",9000011,9000011,.01,21,1,0) This is the ICD coded diagnosis of the narrative entered describing "^DD",9000011,9000011,.01,21,2,0) this problem. "^DD",9000011,9000011,.01,23,0) ^^5^5^2930908^^ "^DD",9000011,9000011,.01,23,1,0) The DHCP Problem List application derives its entries from a lookup "^DD",9000011,9000011,.01,23,2,0) into the Clinical Lexicon Utility rather than the ICD Diagnosis file. "^DD",9000011,9000011,.01,23,3,0) If the term selected from the CLU is not coded to ICD, then code 799.99 "^DD",9000011,9000011,.01,23,4,0) "Other Unknown or Unspecified Cause, NEC" will be used here in order "^DD",9000011,9000011,.01,23,5,0) to be able to create a new entry. This field may later be edited. "^DD",9000011,9000011,.01,"DT") 3010227 "^DD",9000011,9000011,.07,0) NMBR^RNJ6,2X^^0;7^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X Q:'$D(X) K:$D(^AUPNPROB("AA",$P(^AUPNPROB(DA,0),U,2),$P(^(0),U,6)," "_$E("000",1,4-$L($P(X,".",1))-1)_$P(X,".",1)_"."_$P(X,".",2)_$E("00",1,3-$L($P(X,".",2))-1))) X "^DD",9000011,9000011,.07,1,0) ^.1 "^DD",9000011,9000011,.07,1,1,0) 9000011^AA^MUMPS "^DD",9000011,9000011,.07,1,1,1) S ^AUPNPROB("AA",$P(^AUPNPROB(DA,0),U,2),$P(^(0),U,6)," "_$E("000",1,4-$L($P(X,".",1))-1)_$P(X,".",1)_"."_$P(X,".",2)_$E("00",1,3-$L($P(X,".",2))-1),DA)="" "^DD",9000011,9000011,.07,1,1,2) K ^AUPNPROB("AA",$P(^AUPNPROB(DA,0),U,2),$P(^(0),U,6)," "_$E("000",1,4-$L($P(X,".",1))-1)_$P(X,".",1)_"."_$P(X,".",2)_$E("00",1,3-$L($P(X,".",2))-1),DA) "^DD",9000011,9000011,.07,1,1,"%D",0) ^^3^3^2930825^ "^DD",9000011,9000011,.07,1,1,"%D",1,0) Allows problem retrieval by patient, facility, and problem number (Nmbr); "^DD",9000011,9000011,.07,1,1,"%D",2,0) the number is used as a string in " 000.00" format to assure a consistent "^DD",9000011,9000011,.07,1,1,"%D",3,0) ordering. "^DD",9000011,9000011,.07,3) TYPE A NUMBER BETWEEN 0 AND 999.99 "^DD",9000011,9000011,.07,10) 018/PRNUMB "^DD",9000011,9000011,.07,21,0) ^^4^4^2930726^ "^DD",9000011,9000011,.07,21,1,0) This is a number which, together with the Patient (#.02) and Facility (#.06) "^DD",9000011,9000011,.07,21,2,0) fields, serves as a unique identifier for this problem. Up to 2 decimal "^DD",9000011,9000011,.07,21,3,0) places may be used to indicate that a problem is a result of, or related "^DD",9000011,9000011,.07,21,4,0) to, another problem. "^DD",9000011,9000011,.07,"DT") 2930726 "^DD",9000021,9000021,0) FIELD^^2.09^20 "^DD",9000021,9000021,0,"DDA") N "^DD",9000021,9000021,0,"DT") 3001023 "^DD",9000021,9000021,0,"ID",.02) W " ",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),@("$E("_DIC_"Y,0),0)") "^DD",9000021,9000021,0,"IX","AA",9000021,.05) "^DD",9000021,9000021,0,"IX","AATOO",9000021,.02) "^DD",9000021,9000021,0,"IX","AC",9000021,.02) "^DD",9000021,9000021,0,"IX","AD",9000021,.03) "^DD",9000021,9000021,0,"IX","ASUP",9000021,.03) "^DD",9000021,9000021,0,"IX","ASUP2",9000021,.02) "^DD",9000021,9000021,0,"IX","AV9",9000021,.01) "^DD",9000021,9000021,0,"IX","B",9000021,.01) "^DD",9000021,9000021,0,"NM","IHS HL7 SUPPLY INTERFACE") "^DD",9000021,9000021,0,"VRPK") BHP (SELLS) "^DD",9000021,9000021,.01,0) SUPPLY NAME^RF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",9000021,9000021,.01,1,0) ^.1 "^DD",9000021,9000021,.01,1,1,0) 9000021^B "^DD",9000021,9000021,.01,1,1,1) S ^AUPNSUP("B",$E(X,1,30),DA)="" "^DD",9000021,9000021,.01,1,1,2) K ^AUPNSUP("B",$E(X,1,30),DA) "^DD",9000021,9000021,.01,1,2,0) 9000021^AV9^MUMPS "^DD",9000021,9000021,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000021,9000021,.01,1,2,2) Q "^DD",9000021,9000021,.01,3) Answer must be 1-60 characters in length. "^DD",9000021,9000021,.01,12) Personal HX Diagnosis cannot be an E code or an inactive code. It must also be appropriate for the Patient's sex. "^DD",9000021,9000021,.01,12.1) S DIC("S")="I $E(^(0))'=""E"",$P(^(0),""^"",9)="""" Q:$P(^(0),U,10)="""" I $P(^(0),U,10)=AUPNSEX" "^DD",9000021,9000021,.01,21,0) ^^1^1^2990911^^ "^DD",9000021,9000021,.01,21,1,0) Name of supply "^DD",9000021,9000021,.01,"DT") 2990908 "^DD",9000021,9000021,.02,0) PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q "^DD",9000021,9000021,.02,1,0) ^.1 "^DD",9000021,9000021,.02,1,1,0) 9000021^AC "^DD",9000021,9000021,.02,1,1,1) S ^AUPNSUP("AC",$E(X,1,30),DA)="" "^DD",9000021,9000021,.02,1,1,2) K ^AUPNSUP("AC",$E(X,1,30),DA) "^DD",9000021,9000021,.02,1,2,0) 9000021^AATOO^MUMPS "^DD",9000021,9000021,.02,1,2,1) S ^AUPNSUP("AA",X,9999999,DA)="" "^DD",9000021,9000021,.02,1,2,2) K ^AUPNSUP("AA",X,9999999,DA) "^DD",9000021,9000021,.02,1,3,0) 9000021^ASUP2^MUMPS "^DD",9000021,9000021,.02,1,3,1) I X,$P(^AUPNSUP(DA,0),U,3) S ^AUPNSUP("ASUP",X,$P(^(0),U,3),DA)="" "^DD",9000021,9000021,.02,1,3,2) I X,$P(^AUPNSUP(DA,0),U,3) K ^AUPNSUP("ASUP",X,$P(^(0),U,3),DA) "^DD",9000021,9000021,.02,1,3,"DT") 2990911 "^DD",9000021,9000021,.02,3) Enter the patient name. "^DD",9000021,9000021,.02,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,.02,21,1,0) Enter the patient name. "^DD",9000021,9000021,.02,"DT") 2990911 "^DD",9000021,9000021,.03,0) DATE ISSUED^RDI^^0;3^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X "^DD",9000021,9000021,.03,1,0) ^.1 "^DD",9000021,9000021,.03,1,1,0) 9000021^AD "^DD",9000021,9000021,.03,1,1,1) S ^AUPNSUP("AD",$E(X,1,30),DA)="" "^DD",9000021,9000021,.03,1,1,2) K ^AUPNSUP("AD",$E(X,1,30),DA) "^DD",9000021,9000021,.03,1,2,0) 9000021^ASUP^MUMPS "^DD",9000021,9000021,.03,1,2,1) I X,$P(^AUPNSUP(DA,0),U,2) S ^AUPNSUP("ASUP",$P(^(0),U,2),X,DA)="" "^DD",9000021,9000021,.03,1,2,2) I X,$P(^AUPNSUP(DA,0),U,2) K ^AUPNSUP("ASUP",$P(^(0),U,2),X,DA) "^DD",9000021,9000021,.03,1,2,"DT") 2990911 "^DD",9000021,9000021,.03,3) TYPE A DATE BETWEEN 1960 AND TODAY "^DD",9000021,9000021,.03,21,0) ^^1^1^2990911^^ "^DD",9000021,9000021,.03,21,1,0) Date supply issued. "^DD",9000021,9000021,.03,"DT") 2990911 "^DD",9000021,9000021,.04,0) PROVIDER NARRATIVE^R*P9999999.27^AUTNPOV(^0;4^S DIC(0)=$S($D(APCDALVR):"LO",1:"EMQLO") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",9000021,9000021,.04,3) Enter the provider narrative. "^DD",9000021,9000021,.04,12) OLD LOOKUP "^DD",9000021,9000021,.04,12.1) S DIC(0)=$S($D(APCDALVR):"LO",1:"EMQLO") "^DD",9000021,9000021,.04,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,.04,21,1,0) Enter the provider narrative. "^DD",9000021,9000021,.04,"DT") 2881128 "^DD",9000021,9000021,.05,0) DATE OF DATA ENTRY^D^^0;5^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",9000021,9000021,.05,1,0) ^.1 "^DD",9000021,9000021,.05,1,1,0) 9000021^AA^MUMPS "^DD",9000021,9000021,.05,1,1,1) K ^AUPNSUP("AA",$P(^AUPNSUP(DA,0),U,2),9999999,DA) S ^AUPNSUP("AA",$P(^AUPNSUP(DA,0),U,2),9999999-X,DA)="" "^DD",9000021,9000021,.05,1,1,2) K ^AUPNSUP("AA",$P(^AUPNSUP(DA,0),U,2),9999999-X,DA) "^DD",9000021,9000021,.05,3) TYPE A DATE BETWEEN 1940 AND TODAY "^DD",9000021,9000021,.05,21,0) ^^1^1^2990911^^ "^DD",9000021,9000021,.05,21,1,0) Date of data entry. "^DD",9000021,9000021,.05,"DT") 2990908 "^DD",9000021,9000021,.06,0) 3P CLAIM^P9002274.3'^ABMDCLM(DUZ(2),^0;6^Q "^DD",9000021,9000021,.06,3) Enter the 3P Claim number. "^DD",9000021,9000021,.06,21,0) ^^1^1^2990911^^ "^DD",9000021,9000021,.06,21,1,0) Enter the 3P Claim number. "^DD",9000021,9000021,.06,"DT") 2990911 "^DD",9000021,9000021,.07,0) 3P BILL^P9002274.4'^ABMDBILL(DUZ(2),^0;7^Q "^DD",9000021,9000021,.07,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,.07,21,1,0) Enter the 3P Bill. "^DD",9000021,9000021,.07,"DT") 2990911 "^DD",9000021,9000021,1.01,0) TRANSACTION CODE^F^^1;1^K:$L(X)>20!($L(X)<1) X "^DD",9000021,9000021,1.01,3) Answer must be 1-20 characters in length. "^DD",9000021,9000021,1.01,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,1.01,21,1,0) Enter the transaction code. "^DD",9000021,9000021,1.01,"DT") 2990911 "^DD",9000021,9000021,1.02,0) SUPPLY NAME^F^^1;2^K:$L(X)>60!($L(X)<1) X "^DD",9000021,9000021,1.02,3) Answer must be 1-60 characters in length. "^DD",9000021,9000021,1.02,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,1.02,21,1,0) Enter the name of the supply. "^DD",9000021,9000021,1.02,"DT") 2990911 "^DD",9000021,9000021,1.03,0) MEDICATION SUPPLY^P50'^PSDRUG(^1;3^Q "^DD",9000021,9000021,1.03,3) Enter the name of the medication. "^DD",9000021,9000021,1.03,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,1.03,21,1,0) Enter the name of the medication. "^DD",9000021,9000021,1.03,"DT") 2990911 "^DD",9000021,9000021,1.04,0) GENERAL SUPPLY^F^^1;4^K:$L(X)>10!($L(X)<1) X "^DD",9000021,9000021,1.04,3) Answer must be 1-10 characters in length. "^DD",9000021,9000021,1.04,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,1.04,21,1,0) Enter the name of the supply. "^DD",9000021,9000021,1.04,"DT") 2990911 "^DD",9000021,9000021,2.01,0) SUPPLY DESCRIPTION^F^^2;1^K:$L(X)>100!($L(X)<1) X "^DD",9000021,9000021,2.01,3) Answer must be 1-100 characters in length. "^DD",9000021,9000021,2.01,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,2.01,21,1,0) Enter the description of the supply. "^DD",9000021,9000021,2.01,"DT") 3001023 "^DD",9000021,9000021,2.02,0) CHARGE DATE^D^^2;2^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X "^DD",9000021,9000021,2.02,3) Enter the date of the charge. "^DD",9000021,9000021,2.02,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,2.02,21,1,0) Enter the date of the charge. "^DD",9000021,9000021,2.02,"DT") 2990911 "^DD",9000021,9000021,2.03,0) QUANTITY^NJ6,0^^2;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",9000021,9000021,2.03,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",9000021,9000021,2.03,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,2.03,21,1,0) Enter the quantity. "^DD",9000021,9000021,2.03,"DT") 2990911 "^DD",9000021,9000021,2.04,0) UNIT PRICE^NJ9,2^^2;4^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X "^DD",9000021,9000021,2.04,3) Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits "^DD",9000021,9000021,2.04,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,2.04,21,1,0) Enter the unit cost. "^DD",9000021,9000021,2.04,"DT") 2990911 "^DD",9000021,9000021,2.05,0) HCPCS CODE^P81'^ICPT(^2;5^Q "^DD",9000021,9000021,2.05,3) Enter the HCPCS Code. "^DD",9000021,9000021,2.05,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,2.05,21,1,0) Enter the HCPCS Code. "^DD",9000021,9000021,2.05,"DT") 2990911 "^DD",9000021,9000021,2.06,0) REVENUE CODE^P9999999.72'^AUTTREVN(^2;6^Q "^DD",9000021,9000021,2.06,3) Enter the Revenue Code. "^DD",9000021,9000021,2.06,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,2.06,21,1,0) Enter the revenue code. "^DD",9000021,9000021,2.06,"DT") 2990911 "^DD",9000021,9000021,2.07,0) CORRESPONDING DX^F^^2;7^K:$L(X)>30!($L(X)<1) X "^DD",9000021,9000021,2.07,3) Answer must be 1-30 characters in length. "^DD",9000021,9000021,2.07,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,2.07,21,1,0) Enter the corresponding diagnosis. "^DD",9000021,9000021,2.07,"DT") 2990911 "^DD",9000021,9000021,2.08,0) MODIFIER^F^^2;8^K:$L(X)>10!($L(X)<1) X "^DD",9000021,9000021,2.08,3) Answer must be 1-10 characters in length. "^DD",9000021,9000021,2.08,21,0) ^^1^1^2990911^ "^DD",9000021,9000021,2.08,21,1,0) Enter the modifier. "^DD",9000021,9000021,2.08,"DT") 2990911 "^DD",9000021,9000021,2.09,0) HCPCS NAME^F^^2;9^K:$L(X)>10!($L(X)<1) X "^DD",9000021,9000021,2.09,3) Answer must be 1-10 characters in length. "^DD",9000021,9000021,2.09,"DT") 2991203 "^DD",9000022,9000022,0) FIELD^^.07^7 "^DD",9000022,9000022,0,"DT") 3000903 "^DD",9000022,9000022,0,"ID",.02) W " ",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),@("$E("_DIC_"Y,0),0)") "^DD",9000022,9000022,0,"IX","AA",9000022,.02) "^DD",9000022,9000022,0,"IX","AAONE",9000022,.05) "^DD",9000022,9000022,0,"IX","AATHREE",9000022,.03) "^DD",9000022,9000022,0,"IX","AATWO",9000022,.06) "^DD",9000022,9000022,0,"IX","AC",9000022,.02) "^DD",9000022,9000022,0,"IX","AD",9000022,.03) "^DD",9000022,9000022,0,"IX","AV9",9000022,.01) "^DD",9000022,9000022,0,"IX","B",9000022,.01) "^DD",9000022,9000022,0,"NM","PATIENT REFUSALS FOR SERVICE/NMI") "^DD",9000022,9000022,.01,0) REFUSAL TYPE^RP9999999.73'^AUTTREFT(^0;1^Q "^DD",9000022,9000022,.01,1,0) ^.1 "^DD",9000022,9000022,.01,1,1,0) 9000022^B "^DD",9000022,9000022,.01,1,1,1) S ^AUPNPREF("B",$E(X,1,30),DA)="" "^DD",9000022,9000022,.01,1,1,2) K ^AUPNPREF("B",$E(X,1,30),DA) "^DD",9000022,9000022,.01,1,2,0) 9000022^AV9^MUMPS "^DD",9000022,9000022,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000022,9000022,.01,1,2,2) Q "^DD",9000022,9000022,.01,3) "^DD",9000022,9000022,.01,"DT") 3000105 "^DD",9000022,9000022,.02,0) PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q "^DD",9000022,9000022,.02,1,0) ^.1 "^DD",9000022,9000022,.02,1,1,0) 9000022^AC "^DD",9000022,9000022,.02,1,1,1) S ^AUPNPREF("AC",$E(X,1,30),DA)="" "^DD",9000022,9000022,.02,1,1,2) K ^AUPNPREF("AC",$E(X,1,30),DA) "^DD",9000022,9000022,.02,1,2,0) 9000022^AA^MUMPS "^DD",9000022,9000022,.02,1,2,1) I $P(^AUPNPREF(DA,0),U,3)]"",$P(^(0),U,5)]"",$P(^(0),U,6)]"" S ^AUPNPREF("AA",X,$P(^AUPNPREF(DA,0),U,5),$P(^(0),U,6),(9999999-$P(^(0),U,3)),DA)="" "^DD",9000022,9000022,.02,1,2,2) I $P(^AUPNPREF(DA,0),U,3)]"",$P(^(0),U,5)]"",$P(^(0),U,6)]"" K ^AUPNPREF("AA",X,$P(^AUPNPREF(DA,0),U,5),$P(^(0),U,6),(9999999-$P(^(0),U,3)),DA) "^DD",9000022,9000022,.02,1,2,"DT") 2991203 "^DD",9000022,9000022,.02,"DT") 2991203 "^DD",9000022,9000022,.03,0) DATE REFUSED/NOT INDICATED^RD^^0;3^S %DT="E" D ^%DT S X=Y K:DTX) X "^DD",9000022,9000022,.03,1,0) ^.1 "^DD",9000022,9000022,.03,1,1,0) 9000022^AD "^DD",9000022,9000022,.03,1,1,1) S ^AUPNPREF("AD",$E(X,1,30),DA)="" "^DD",9000022,9000022,.03,1,1,2) K ^AUPNPREF("AD",$E(X,1,30),DA) "^DD",9000022,9000022,.03,1,2,0) 9000022^AATHREE^MUMPS "^DD",9000022,9000022,.03,1,2,1) I $P(^AUPNPREF(DA,0),U,2)]"",$P(^(0),U,5)]"",$P(^(0),U,6)]"" S ^AUPNPREF("AA",$P(^AUPNPREF(DA,0),U,2),$P(^(0),U,5),$P(^(0),U,6),(9999999-X),DA)="" "^DD",9000022,9000022,.03,1,2,2) I $P(^AUPNPREF(DA,0),U,2)]"",$P(^(0),U,5)]"",$P(^(0),U,6)]"" K ^AUPNPREF("AA",$P(^AUPNPREF(DA,0),U,2),$P(^(0),U,5),$P(^(0),U,6),(9999999-X),DA) "^DD",9000022,9000022,.03,1,2,"DT") 2991205 "^DD",9000022,9000022,.03,3) TYPE A DATE BETWEEN 1960 AND DT "^DD",9000022,9000022,.03,"DT") 3000710 "^DD",9000022,9000022,.04,0) REFUSAL ITEM^RF^^0;4^K:$L(X)>80!($L(X)<1) X "^DD",9000022,9000022,.04,3) Answer must be 1-80 characters in length. "^DD",9000022,9000022,.04,12) OLD LOOKUP "^DD",9000022,9000022,.04,12.1) S DIC(0)=$S($D(APCDALVR):"LO",1:"EMQLO") "^DD",9000022,9000022,.04,"DT") 2991201 "^DD",9000022,9000022,.05,0) POINTER FILE^P1'^DIC(^0;5^Q "^DD",9000022,9000022,.05,1,0) ^.1 "^DD",9000022,9000022,.05,1,1,0) 9000022^AAONE^MUMPS "^DD",9000022,9000022,.05,1,1,1) I $P(^AUPNPREF(DA,0),U,2)]"",$P(^(0),U,3)]"",$P(^(0),U,6)]"" S ^AUPNPREF("AA",$P(^AUPNPREF(DA,0),U,2),X,$P(^(0),U,6),(9999999-$P(^(0),U,3)),DA)="" "^DD",9000022,9000022,.05,1,1,2) I $P(^AUPNPREF(DA,0),U,2)]"",$P(^(0),U,3)]"",$P(^(0),U,6)]"" K ^AUPNPREF("AA",$P(^AUPNPREF(DA,0),U,2),X,$P(^(0),U,6),(9999999-$P(^(0),U,3)),DA) "^DD",9000022,9000022,.05,1,1,"DT") 2991205 "^DD",9000022,9000022,.05,3) "^DD",9000022,9000022,.05,"DT") 2991205 "^DD",9000022,9000022,.06,0) POINTER VALUE^F^^0;6^K:$L(X)>30!($L(X)<1) X "^DD",9000022,9000022,.06,1,0) ^.1 "^DD",9000022,9000022,.06,1,1,0) 9000022^AATWO^MUMPS "^DD",9000022,9000022,.06,1,1,1) I $P(^AUPNPREF(DA,0),U,2)]"",$P(^(0),U,3)]"",$P(^(0),U,5)]"" S ^AUPNPREF("AA",$P(^AUPNPREF(DA,0),U,2),$P(^(0),U,5),X,(9999999-$P(^(0),U,3)),DA)="" "^DD",9000022,9000022,.06,1,1,2) I $P(^AUPNPREF(DA,0),U,2)]"",$P(^(0),U,3)]"",$P(^(0),U,5)]"" K ^AUPNPREF("AA",$P(^AUPNPREF(DA,0),U,2),$P(^(0),U,5),X,(9999999-$P(^(0),U,3)),DA) "^DD",9000022,9000022,.06,1,1,"DT") 2991205 "^DD",9000022,9000022,.06,3) Answer must be 1-30 characters in length. "^DD",9000022,9000022,.06,"DT") 2991205 "^DD",9000022,9000022,.07,0) REASON FOR REFUSAL^S^R:REFUSED SERVICE;N:NOT MEDICALLY INDICATED;F:NO RESPONSE TO FOLLOWUP;P:PROVIDER DISCONTINUED;^0;7^Q "^DD",9000022,9000022,.07,3) "^DD",9000022,9000022,.07,"DT") 3001115 "^DD",9000023,9000023,0) FIELD^^.18^16 "^DD",9000023,9000023,0,"DDA") N "^DD",9000023,9000023,0,"DT") 3000103 "^DD",9000023,9000023,0,"IX","AV9",9000023,.01) "^DD",9000023,9000023,0,"IX","B",9000023,.01) "^DD",9000023,9000023,0,"NM","ELDER CARE") "^DD",9000023,9000023,.01,0) PATIENT^RP9000001'X^AUPNPAT(^0;1^S:$D(X) DINUM=X "^DD",9000023,9000023,.01,1,0) ^.1^^-1 "^DD",9000023,9000023,.01,1,1,0) 9000023^B "^DD",9000023,9000023,.01,1,1,1) S ^AUPNELDC("B",$E(X,1,30),DA)="" "^DD",9000023,9000023,.01,1,1,2) K ^AUPNELDC("B",$E(X,1,30),DA) "^DD",9000023,9000023,.01,1,2,0) 9000023^AV9^MUMPS "^DD",9000023,9000023,.01,1,2,1) S:$D(APCDLOOK) DIC("DR")="" "^DD",9000023,9000023,.01,1,2,2) Q "^DD",9000023,9000023,.01,3) "^DD",9000023,9000023,.01,"DT") 3000103 "^DD",9000023,9000023,.03,0) DATE LAST MODIFIED^RD^^0;3^S %DT="EX" D ^%DT S X=Y K:DTX) X "^DD",9000023,9000023,.03,1,0) ^.1^^0 "^DD",9000023,9000023,.03,3) TYPE A DATE BETWEEN 1960 AND TODAY "^DD",9000023,9000023,.03,"DT") 2931020 "^DD",9000023,9000023,.04,0) TOILETING^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;4^Q "^DD",9000023,9000023,.04,"DT") 3000103 "^DD",9000023,9000023,.05,0) BATHING^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;5^Q "^DD",9000023,9000023,.05,3) "^DD",9000023,9000023,.05,"DT") 3000103 "^DD",9000023,9000023,.06,0) DRESSING^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;6^Q "^DD",9000023,9000023,.06,3) "^DD",9000023,9000023,.06,"DT") 3000103 "^DD",9000023,9000023,.07,0) TRANSFERS^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;7^Q "^DD",9000023,9000023,.07,3) "^DD",9000023,9000023,.07,"DT") 3000103 "^DD",9000023,9000023,.08,0) FEEDING^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;8^Q "^DD",9000023,9000023,.08,3) "^DD",9000023,9000023,.08,"DT") 3000103 "^DD",9000023,9000023,.09,0) CONTINENCE^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;9^Q "^DD",9000023,9000023,.09,3) "^DD",9000023,9000023,.09,"DT") 3000103 "^DD",9000023,9000023,.11,0) FINANCES^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;11^Q "^DD",9000023,9000023,.11,3) "^DD",9000023,9000023,.11,"DT") 3000103 "^DD",9000023,9000023,.12,0) COOKING^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;12^Q "^DD",9000023,9000023,.12,3) "^DD",9000023,9000023,.12,"DT") 3000103 "^DD",9000023,9000023,.13,0) SHOPPING^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;13^Q "^DD",9000023,9000023,.13,3) "^DD",9000023,9000023,.13,"DT") 3000103 "^DD",9000023,9000023,.14,0) HOUSEWORK/CHORES^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;14^Q "^DD",9000023,9000023,.14,3) "^DD",9000023,9000023,.14,"DT") 3000103 "^DD",9000023,9000023,.15,0) MEDICATIONS^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;15^Q "^DD",9000023,9000023,.15,3) "^DD",9000023,9000023,.15,"DT") 3000103 "^DD",9000023,9000023,.16,0) TRANSPORTATION^S^I:INDEPENDENT;N:NEEDS HELP;T:TOTALLY DEPENDENT;^0;16^Q "^DD",9000023,9000023,.16,3) "^DD",9000023,9000023,.16,"DT") 3000103 "^DD",9000023,9000023,.17,0) FUNCTIONAL STATUS^S^S:SAME;I:IMPROVEMENT;D:DECLINE;^0;17^Q "^DD",9000023,9000023,.17,"DT") 3000103 "^DD",9000023,9000023,.18,0) IS PATIENT A CAREGIVER^S^1:YES;0:NO;^0;18^Q "^DD",9000023,9000023,.18,"DT") 3000103 "^DD",9000024,9000024,0) FIELD^^.09^9 "^DD",9000024,9000024,0,"IX","B",9000024,.01) "^DD",9000024,9000024,0,"NM","BIRTH MEASUREMENT") "^DD",9000024,9000024,.01,0) PATIENT^RP9000001'X^AUPNPAT(^0;1^S:$D(X) DINUM=X "^DD",9000024,9000024,.01,1,0) ^.1 "^DD",9000024,9000024,.01,1,1,0) 9000024^B "^DD",9000024,9000024,.01,1,1,1) S ^AUPNBMSR("B",$E(X,1,30),DA)="" "^DD",9000024,9000024,.01,1,1,2) K ^AUPNBMSR("B",$E(X,1,30),DA) "^DD",9000024,9000024,.01,3) "^DD",9000024,9000024,.01,"DT") 2991201 "^DD",9000024,9000024,.02,0) BIRTH WEIGHT LBS^NJ2,0^^0;2^K:+X'=X!(X>25)!(X<0)!(X?.E1"."1N.N) X "^DD",9000024,9000024,.02,3) Type a Number between 0 and 25, 0 Decimal Digits "^DD",9000024,9000024,.02,"DT") 2991009 "^DD",9000024,9000024,.03,0) BIRTH WEIGHT OZS^NJ2,0^^0;3^K:+X'=X!(X>15)!(X<0)!(X?.E1"."1N.N) X "^DD",9000024,9000024,.03,1,0) ^.1 "^DD",9000024,9000024,.03,1,1,0) ^^TRIGGER^9000024^.09 "^DD",9000024,9000024,.03,1,1,1) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9000024,.03,1,1,1.1) X ^DD(9000024,.03,1,1,1.4) "^DD",9000024,9000024,.03,1,1,1.1) S X=DIV N % S %=$G(^AUPNBMSR(DA,0)) S:$P(%,U,2)?1.N X=($P(%,U,2)*16+$P(%,U,3))*28.350,X=X\1 "^DD",9000024,9000024,.03,1,1,1.4) S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=9000024,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 "^DD",9000024,9000024,.03,1,1,2) Q "^DD",9000024,9000024,.03,1,1,"CREATE VALUE") N % S %=$G(^AUPNBMSR(DA,0)) S:$P(%,U,2)?1.N X=($P(%,U,2)*16+$P(%,U,3))*28.350,X=X\1 "^DD",9000024,9000024,.03,1,1,"DELETE VALUE") NO EFFECT "^DD",9000024,9000024,.03,1,1,"DT") 2991009 "^DD",9000024,9000024,.03,1,1,"FIELD") #.09 "^DD",9000024,9000024,.03,3) Type a Number between 0 and 15, 0 Decimal Digits "^DD",9000024,9000024,.03,"DT") 2991009 "^DD",9000024,9000024,.04,0) APGAR 1 MINUTE^NJ2,0^^0;4^K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X "^DD",9000024,9000024,.04,3) Type a Number between 0 and 10, 0 Decimal Digits "^DD",9000024,9000024,.04,"DT") 2991009 "^DD",9000024,9000024,.05,0) APGAR 5 MINUTE^NJ2,0^^0;5^K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X "^DD",9000024,9000024,.05,3) Type a Number between 0 and 10, 0 Decimal Digits "^DD",9000024,9000024,.05,"DT") 2991009 "^DD",9000024,9000024,.06,0) GESTATIONAL AGE WKS^NJ2,0^^0;6^K:+X'=X!(X>50)!(X<12)!(X?.E1"."1N.N) X "^DD",9000024,9000024,.06,3) Type a Number between 12 and 50, 0 Decimal Digits "^DD",9000024,9000024,.06,"DT") 2991009 "^DD",9000024,9000024,.07,0) DELIVERY TYPE^F^^0;7^K:$L(X)>20!($L(X)<1) X "^DD",9000024,9000024,.07,3) Answer must be 1-20 characters in length. "^DD",9000024,9000024,.07,"DT") 2991009 "^DD",9000024,9000024,.08,0) COMPLICATIONS^F^^0;8^K:$L(X)>40!($L(X)<1) X "^DD",9000024,9000024,.08,3) Answer must be 1-40 characters in length. "^DD",9000024,9000024,.08,"DT") 2991009 "^DD",9000024,9000024,.09,0) BW GRAMS^NJ5,0^^0;9^K:+X'=X!(X>10000)!(X<1)!(X?.E1"."1N.N) X "^DD",9000024,9000024,.09,3) Type a Number between 1 and 10000, 0 Decimal Digits "^DD",9000024,9000024,.09,5,1,0) 9000024^.03^1 "^DD",9000024,9000024,.09,"DT") 2991009 "^DD",9000025,9000025,0) FIELD^^.06^6 "^DD",9000025,9000025,0,"DDA") N "^DD",9000025,9000025,0,"IX","AA",9000025,.01) "^DD",9000025,9000025,0,"IX","AA1",9000025,.02) "^DD",9000025,9000025,0,"IX","AA2",9000025,.03) "^DD",9000025,9000025,0,"IX","AC",9000025,.02) "^DD",9000025,9000025,0,"IX","AC1",9000025,.02) "^DD",9000025,9000025,0,"IX","B",9000025,.01) "^DD",9000025,9000025,0,"NM","HEALTH REMINDER OVERRIDE") "^DD",9000025,9000025,.01,0) HEALTH MAINTENANCE REMINDER^RP9001018'^APCHSURV(^0;1^Q "^DD",9000025,9000025,.01,1,0) ^.1^^-1 "^DD",9000025,9000025,.01,1,1,0) 9000025^B "^DD",9000025,9000025,.01,1,1,1) S ^AUPNHMRO("B",$E(X,1,30),DA)="" "^DD",9000025,9000025,.01,1,1,2) K ^AUPNHMRO("B",$E(X,1,30),DA) "^DD",9000025,9000025,.01,1,2,0) 9000025^AA^MUMPS "^DD",9000025,9000025,.01,1,2,1) I $P(^AUPNHMRO(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNHMRO("AA",X,$P(^AUPNHMRO(DA,0),U,2),(9999999-$P(^AUPNHMRO(DA,0),U,3)),DA)="" "^DD",9000025,9000025,.01,1,2,2) I $P(^AUPNHMRO(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNHMRO("AA",X,$P(^AUPNHMRO(DA,0),U,2),(9999999-$P(^AUPNHMRO(DA,0),U,3)),DA) "^DD",9000025,9000025,.01,1,2,"DT") 2990216 "^DD",9000025,9000025,.01,3) "^DD",9000025,9000025,.01,"DT") 3010227 "^DD",9000025,9000025,.02,0) PATIENT^P9000001'^AUPNPAT(^0;2^Q "^DD",9000025,9000025,.02,1,0) ^.1^^-1 "^DD",9000025,9000025,.02,1,2,0) 9000025^AA1^MUMPS "^DD",9000025,9000025,.02,1,2,1) I $P(^AUPNHMRO(DA,0),U,3)]"" S ^AUPNHMRO("AA",$P(^AUPNHMRO(DA,0),U),X,(9999999-$P(^AUPNHMRO(DA,0),U,3)),DA)="" "^DD",9000025,9000025,.02,1,2,2) I $P(^AUPNHMRO(DA,0),U,3)]"" K ^AUPNHMRO("AA",$P(^AUPNHMRO(DA,0),U),X,(9999999-$P(^AUPNHMRO(DA,0),U,3)),DA) "^DD",9000025,9000025,.02,1,2,"DT") 2990217 "^DD",9000025,9000025,.02,1,3,0) 9000025^AC "^DD",9000025,9000025,.02,1,3,1) S ^AUPNHMRO("AC",$E(X,1,30),DA)="" "^DD",9000025,9000025,.02,1,3,2) K ^AUPNHMRO("AC",$E(X,1,30),DA) "^DD",9000025,9000025,.02,1,3,"DT") 3010116 "^DD",9000025,9000025,.02,"DT") 3010227 "^DD",9000025,9000025,.03,0) DUE DATE^RD^^0;3^S %DT="E" D ^%DT S X=Y K:Y<1 X "^DD",9000025,9000025,.03,1,0) ^.1 "^DD",9000025,9000025,.03,1,1,0) 9000025^AA2^MUMPS "^DD",9000025,9000025,.03,1,1,1) I $P(^AUPNHMRO(DA,0),U,2)]"" S ^AUPNHMRO("AA",$P(^AUPNHMRO(DA,0),U),$P(^AUPNHMRO(DA,0),U,2),(9999999-X),DA)="" "^DD",9000025,9000025,.03,1,1,2) I $P(^AUPNHMRO(DA,0),U,2)]"" K ^AUPNHMRO("AA",$P(^AUPNHMRO(DA,0),U),$P(^AUPNHMRO(DA,0),U,2),(9999999-X),DA) "^DD",9000025,9000025,.03,1,1,"DT") 2990216 "^DD",9000025,9000025,.03,"DT") 2990216 "^DD",9000025,9000025,.04,0) ENTERED BY^P200'^VA(200,^0;4^Q "^DD",9000025,9000025,.04,"DT") 2971219 "^DD",9000025,9000025,.05,0) PROVIDER/COMMENTS^RF^^0;5^K:$L(X)>80!($L(X)<2) X "^DD",9000025,9000025,.05,3) Answer must be 2-80 characters in length. "^DD",9000025,9000025,.05,"DT") 2980220 "^DD",9000025,9000025,.06,0) DATE ENTERED^D^^0;6^S %DT="EX" D ^%DT S X=Y K:Y<1 X "^DD",9000025,9000025,.06,"DT") 2990217 "^DIC",9000010.33,9000010.33,0) V TRANSACTION CODES^9000010.33AIP "^DIC",9000010.33,9000010.33,0,"GL") ^AUPNVTC( "^DIC",9000010.33,9000010.33,"%D",0) ^^0^0^2970531^^^^ "^DIC",9000010.33,9000010.33,"%D",4,0) for each visit, therefore, the VISIT field (.03) will be duplicated. "^DIC",9000010.33,"B","V TRANSACTION CODES",9000010.33) "^DIC",9000010.35,9000010.35,0) V ELDER CARE^9000010.35 "^DIC",9000010.35,9000010.35,0,"GL") ^AUPNVELD( "^DIC",9000010.35,"B","V ELDER CARE",9000010.35) "^DIC",9000010.38,9000010.38,0) V UNHF^9000010.38 "^DIC",9000010.38,9000010.38,0,"GL") ^AUPNVUNH( "^DIC",9000010.38,9000010.38,"%D",0) ^^3^3^2950901^^ "^DIC",9000010.38,9000010.38,"%D",1,0) This file contains exam information specific to a particular visit for a "^DIC",9000010.38,9000010.38,"%D",2,0) particular patient. This file contains one record for each exam for each "^DIC",9000010.38,9000010.38,"%D",3,0) visit. "^DIC",9000010.38,9000010.38,"%D",4,0) for each visit, therefore, the VISIT field (.03) will be duplicated. "^DIC",9000010.38,"B","V UNHF",9000010.38) "^DIC",9000010.39,9000010.39,0) V TREATMENT CONTRACT^9000010.39 "^DIC",9000010.39,9000010.39,0,"GL") ^AUPNVTXC( "^DIC",9000010.39,9000010.39,"%D",0) ^^3^3^3010225^^^ "^DIC",9000010.39,9000010.39,"%D",1,0) This file contains exam information specific to a particular visit for a "^DIC",9000010.39,9000010.39,"%D",2,0) particular patient. This file contains one record for each exam for each "^DIC",9000010.39,9000010.39,"%D",3,0) visit. "^DIC",9000010.39,9000010.39,"%D",4,0) for each visit, therefore, the VISIT field (.03) will be duplicated. "^DIC",9000010.39,"B","V TREATMENT CONTRACT",9000010.39) "^DIC",9000010.41,9000010.41,0) V ASTHMA^9000010.41 "^DIC",9000010.41,9000010.41,0,"GL") ^AUPNVAST( "^DIC",9000010.41,9000010.41,"%D",0) ^^3^3^3010703^^^^ "^DIC",9000010.41,9000010.41,"%D",1,0) This file contains exam information specific to a particular visit for a "^DIC",9000010.41,9000010.41,"%D",2,0) particular patient. This file contains one record for each exam for each "^DIC",9000010.41,9000010.41,"%D",3,0) visit. "^DIC",9000010.41,9000010.41,"%D",4,0) for each visit, therefore, the VISIT field (.03) will be duplicated. "^DIC",9000010.41,"B","V ASTHMA",9000010.41) "^DIC",9000021,9000021,0) IHS HL7 SUPPLY INTERFACE^9000021I "^DIC",9000021,9000021,0,"GL") ^AUPNSUP( "^DIC",9000021,9000021,"%D",0) ^^3^3^3000201^^^^ "^DIC",9000021,9000021,"%D",1,0) The IHS HL7 SUPPLY INTERFACE file contains the database for all supply "^DIC",9000021,9000021,"%D",2,0) information that is brought into RPMS from external COTS applications "^DIC",9000021,9000021,"%D",3,0) for transfer into the billing package. "^DIC",9000021,"B","IHS HL7 SUPPLY INTERFACE",9000021) "^DIC",9000022,9000022,0) PATIENT REFUSALS FOR SERVICE/NMI^9000022 "^DIC",9000022,9000022,0,"GL") ^AUPNPREF( "^DIC",9000022,9000022,"%D",0) ^^14^14^3000710^^^ "^DIC",9000022,9000022,"%D",1,0) *** WARNING *** ... The .05 field requires programmer access for delete. "^DIC",9000022,9000022,"%D",2,0) The field is optional. Once data is entered it may be changed, but never "^DIC",9000022,9000022,"%D",3,0) deleted. The affect of overriding this protection and deleting the field "^DIC",9000022,9000022,"%D",4,0) would be to leave a residual entry in the "AA" index pointing to the "^DIC",9000022,9000022,"%D",5,0) PERSONAL HISTORY entry from which the field was deleted. "^DIC",9000022,9000022,"%D",6,0) The Personal History file contains information on a patient's past health "^DIC",9000022,9000022,"%D",7,0) problems that is gathered retroactively at a patient visit. Since the "^DIC",9000022,9000022,"%D",8,0) data is the patient's view of his/her problems, not necessarily "^DIC",9000022,9000022,"%D",9,0) substantiated by a confirmed physician's diagnosis, the information is "^DIC",9000022,9000022,"%D",10,0) stored here rather than in the POV record. There will be a separate "^DIC",9000022,9000022,"%D",11,0) record for each health problem for a patient. The file contains "^DIC",9000022,9000022,"%D",12,0) backward pointers to the IHS Patient file and visit file, and data "^DIC",9000022,9000022,"%D",13,0) must exist in both of these files for the patient and visit before data "^DIC",9000022,9000022,"%D",14,0) can be entered here. "^DIC",9000022,"B","PATIENT REFUSALS FOR SERVICE/NMI",9000022) "^DIC",9000023,9000023,0) ELDER CARE^9000023 "^DIC",9000023,9000023,0,"GL") ^AUPNELDC( "^DIC",9000023,"B","ELDER CARE",9000023) "^DIC",9000024,9000024,0) BIRTH MEASUREMENT^9000024 "^DIC",9000024,9000024,0,"GL") ^AUPNBMSR( "^DIC",9000024,"B","BIRTH MEASUREMENT",9000024) "^DIC",9000025,9000025,0) HEALTH REMINDER OVERRIDE^9000025 "^DIC",9000025,9000025,0,"GL") ^AUPNHMRO( "^DIC",9000025,"B","HEALTH REMINDER OVERRIDE",9000025) **END** **END**