$TXT Created by TRAN,BA at NXT.KERNEL.FO-OAKLAND.MED.VA.GOV (KIDS) on Thursday, 07/08/04 at 10:12 ============================================================================= Run Date: OCT 04, 2004 Designation: XU*8*352 Package : XU - KERNEL Priority: Mandatory Version : 8 SEQ #291 Status: Released Compliance Date: NOV 04, 2004 ============================================================================= Associated patches: (v)XU*8*330 <<= must be installed BEFORE `XU*8*352' Subject: NEW PERSON FILE #200 MODIFIED Category: - Data Dictionary Description: ============ NOIS: NONE TEST SITES: - NEW ORLEANS VAMC (DSM/VMS) - MANCHESTER VAMC (CACHE/VMS) - LOMA LINDA VAMC (CACHE/VMS) - DAYTON VAMC (DSM/VMS) XU*8.0*352 This patch makes the following changes in NEW PERSON FILE #200: 1. Deletion of DIAGNOSIS DESCRIPTION, field number 1, from PERSONAL DIAGNOSES LIST, multi-valued field number 351. 2. Deletion of ACTIVE INDICATOR, field number 2, from PERSONAL DIAGNOSES LIST, multi-valued field number 351. 3. Addition of EXPRESSION, field number 1, to PERSONAL DIAGNOSES LIST, multi-valued field number 351. =====*****====== After the changes, new standard data dictionary list of field 351 looks like: DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE -------------------------------------------------------------------------- ----- This is the provider's personal list of preferred diagnoses codes. CROSS REFERENCED BY: DIAGNOSIS(B) 200.0351,.01 DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) LAST EDITED: MAR 02, 2004 DESCRIPTION: A diagnosis in the provider's preferred list. CROSS-REFERENCE: 200.0351^B 1)= S ^VA(200,DA(1),351,"B",$E(X,1,30),DA)="" 2)= K ^VA(200,DA(1),351,"B",$E(X,1,30),DA) 200.0351,1 EXPRESSION 0;2 POINTER TO EXPRESSIONS FILE (#757.01) LAST EDITED: JUL 07, 2004 DESCRIPTION: This is the diagnosis code's Lexicon expression as stored in the EXPRESSION file, file # 757.01. FILES POINTED TO FIELDS EXPRESSIONS (#757.01) EXPRESSION (#1) ICD DIAGNOSIS (#80) DIAGNOSIS (#.01) INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S): =====*****===== Routine Summary: ================ The following routines are included in this patch. The second lines of the routines now look like: