Skip to content

Commit

Permalink
Install: LR*5.2*514
Browse files Browse the repository at this point in the history
Patch Subject:  ANATOMIC PATHOLOGY LOG-IN: SCREEN FOR SEX-SPECIFIC TOPOGRAPHY
Description:

============
 This patch addresses the following issue:
 Anatomic Pathology Log-In does not require that the patient's sex must
 match the SEX SPECIFIC (#2.5) field in the TOPOGRAPHY FIELD (#61) file for
 specimens (if the sex specific field is defined).
 Files & Fields Associated:
 File Name (Number)    Field Name (Number)          New/Modified/Deleted
 ------------------    --------------------------   --------------------
 CYTOPATHOLOGY:
 SPECIMEN SUB-FIELD    SPECIMEN TOPOGRAPHY (#.06)   Modified
 (#63.902)
 ELECTRON MICROSCOPY:
 SPECIMEN SUB-FIELD    SPECIMEN TOPOGRAPHY (#.06)   Modified
 (#63.202)
 SURGICAL PATHOLOGY:
 SPECIMEN SUB-FIELD    SPECIMEN TOPOGRAPHY (#.06)   Modified
 (#63.812)
 Blood Bank Review:
 =================
 EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LR*5.2*514 does not
 contain any changes to the VISTA BLOOD BANK Software as defined by
 ProPath standard titled: BBM Team Review of VistA Patches.
 EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LR*5.2*514 does not
 alter or modify any software design safeguards or safety critical
 elements functions.
 RISK ANALYSIS: Changes made by patch LR*5.2*514 have no adverse effect on
 Blood Bank software functionality, therefore RISK is none.
 VALIDATION REQUIREMENTS BY OPTION: Because of the nature of the changes
 made, no specific validation requirements exist as a result of
 installation of this patch.
 Defect Tracking System Ticket(s) & Overview:
 ===========================================
 1. INC2906846 - Anatomic Pathology Log-In Sex-Specific Topography
                 Validation
 Problem:
 -------
 The Log-in, anat path [LRAPLG] option does not require that the patient's
 sex must match any sex-specific specimen topography specimens. These
 specimens correspond to an entry from the TOPOGRAPHY FIELD (#61) file that
 is defined with "F" for "female" or "M" for "male" in the SEX SPECIFIC
 (#2.5) field. If a specimen is logged in with a sex-specific mismatch,
 that entry is not accepted during the later steps in Anatomic Pathology
 Data Entry.
 Resolution:
 ----------
 Modify the data dictionary input transforms and screens for the Surgical
 Pathology, Cytopathology, and Electron Microscopy (EM) accession areas
 with the following requirement: If the SEX SPECIFIC (#2.5) field of the
 TOPOGRAPHY FIELD (#61) file is defined, the patient's sex must match the
 field entry.
 Any entries in the TOPOGRAPHY FIELD (#61) file that have an "M" or "F"
 entry in the SEX SPECIFIC (#2.5) field will not display to the user as a
 selection choice if the entry is not the same as the patient's sex.
 NOTE: This change is not necessary for the Autopsy accession area since
 specimen topography is not entered during the Log-in, anat path [LRAPLG]
 option. The change will also not be implemented for Laboratory accession
 areas not related to Anatomic Pathology.
 Test Sites:
 ==========
 VA Puget Sound HCS
 Syracuse VAMC
 Data Dictionaries Before:
 ========================
 63.902,.06      SPECIMEN TOPOGRAPHY  0;6 POINTER TO TOPOGRAPHY FIELD
                                      FILE (#61)
                 LAST EDITED:    NOV 25, 2005
                 DESCRIPTION:    This field contains the topography
                                 location for this test.
 63.202,.06      SPECIMEN TOPOGRAPHY  0;6 POINTER TO TOPOGRAPHY FIELD
                                      FILE (#61)
                 LAST EDITED:    NOV 25, 2005
                 DESCRIPTION:    This field contains the topography
                                 location for this test.
 63.812,.06      SPECIMEN TOPOGRAPHY  0;6 POINTER TO TOPOGRAPHY FIELD
                                      FILE (#61)
                 LAST EDITED:    FEB 08, 2007
                 DESCRIPTION:    This field contains the topography
                                 location for this test.
 Data Dictionaries After:
 =======================
 63.902,.06     SPECIMEN TOPOGRAPHY   0;6 POINTER TO TOPOGRAPHY FIELD
                                      FILE (#61)
                INPUT TRANSFORM: S DIC("S")="I $P(^LAB(61,+Y,0),U,3)
                                 =""""!($P(^LAB(61,+Y,0),U,3)=$G(SEX))" D
                                 ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
                LAST EDITED:     NOV 30, 2018
                HELP-PROMPT:     This field contains the topography
                                 location for this test.
                DESCRIPTION:     This field contains the topography
                                 location for this test. If the SEX
                                 SPECIFIC (#2.5) field of the TOPOGRAPHY
                                 FIELD (#61) file is defined, the sex of
                                 the patient must match.
                SCREEN:          S DIC("S")="I $P(^LAB(61,+Y,0),U,3)
                                 =""""!($P(^LAB(61,+Y,0),U,3)=$G(SEX))"
                EXPLANATION:     If this message appears after entering a
                                 topography, the entry might be: (1) not on
                                 file; (2) misspelled; or (3) the
                                 topography has a restriction by sex that
                                 does not match the patient's sex.
 63.202,.06     SPECIMEN TOPOGRAPHY    0;6 POINTER TO TOPOGRAPHY FIELD
                                       FILE (#61)
                INPUT TRANSFORM: S DIC("S")="I $P(^LAB(61,+Y,0),U,3)
                                 =""""!($P(^LAB(61,+Y,0),U,3)=$G(SEX))" D
                                 ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
                LAST EDITED:     NOV 30, 2018
                HELP-PROMPT:     This field contains the topography
                                 location for this test.
                DESCRIPTION:     This field contains the topography
                                 location for this test. If the SEX
                                 SPECIFIC (#2.5) field of the TOPOGRAPHY
                                 FIELD (#61) file is defined, the sex of
                                 the patient must match.
                SCREEN:          S DIC("S")="I $P(^LAB(61,+Y,0),U,3)
                                 =""""!($P(^LAB(61,+Y,0),U,3)=$G(SEX))"
                EXPLANATION:     If this message appears after entering a
                                 topography, the entry might be: (1) not on
                                 file; (2) misspelled; or (3) the
                                 topography has a restriction by sex that
                                 does not match the patient's sex.
 63.812,.06     SPECIMEN TOPOGRAPHY     0;6 POINTER TO TOPOGRAPHY FIELD
                                        FILE (#61)
                INPUT TRANSFORM: S DIC("S")="I $P(^LAB(61,+Y,0),U,3)
                                 =""""!($P(^LAB(61,+Y,0),U,3)=$G(SEX))" D
                                 ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
                LAST EDITED:     NOV 30, 2018
                HELP-PROMPT:     This field contains the topography
                                 location for this test.
                DESCRIPTION:     This field contains the topography
                                 location for this test. If the SEX
                                 SPECIFIC (#2.5) field of the TOPOGRAPHY
                                 FIELD (#61) file is defined, the sex of
                                 the patient must match.
                SCREEN:          S DIC("S")="I $P(^LAB(61,+Y,0),U,3)
                                 =""""!($P(^LAB(61,+Y,0),U,3)=$G(SEX))"
                EXPLANATION:     If this message appears after entering a
                                 topography, the entry might be: (1) not on
                                 file; (2) misspelled; or (3) the
                                 topography has a restriction by sex that
                                 does not match the patient's sex.
 Patch Installation:

Use default answers for KIDS load/install questions.

Patch-Files: http://code.osehra.org/VistA.git/tree/master/Packages/Lab+Service/Patches/LR_5.2_514
  • Loading branch information
josephsnyder committed May 22, 2019
1 parent deb77cd commit 1ea75fa
Show file tree
Hide file tree
Showing 5 changed files with 223 additions and 27 deletions.
45 changes: 43 additions & 2 deletions Packages/Kernel/Globals/14.4+TASKS.zwr
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
OSEHRA ZGO Export: TASKS
22-MAY-2019 09:28:40 ZWR
^%ZTSK(-1)=4881
22-MAY-2019 10:47:56 ZWR
^%ZTSK(-1)=4885
^%ZTSK(0)="TASKS^14.4^4344"
^%ZTSK(1001,0)="TASK^XMXBULL^16^^63957,36927^63957,36927^R^^^PATCH,USER^PLA^PLA^ZTDESC^^"
^%ZTSK(1001,.02)="^PLA^^"
Expand Down Expand Up @@ -46206,6 +46206,47 @@ OSEHRA ZGO Export: TASKS
^%ZTSK(4881,.3,"DUZ(",0)="@"
^%ZTSK(4881,.3,"XQSCH")=8
^%ZTSK(4881,.3,"XQY")=9891
^%ZTSK(4882,0)="HOUR^XUTMHR^.5^^65155,38561^65155,38561^R^^^POSTMASTER^VISTA^VISTA^ZTDESC^^"
^%ZTSK(4882,.02)="^VISTA^^"
^%ZTSK(4882,.03)="Taskman Hourly Job"
^%ZTSK(4882,.04)=5629430561
^%ZTSK(4882,.1)="B^65155,38621^Task's volume set not listed in index.^^^^^^"
^%ZTSK(4882,.2)=""
^%ZTSK(4882,.21)=""
^%ZTSK(4882,.25)=""
^%ZTSK(4883,0)="ZTSK^XQ1^.5^VISTA^65155,38621^65155,38621^O^8853^HL AUTOSTART LINK MANAGER^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
^%ZTSK(4883,.02)="^VISTA^^"
^%ZTSK(4883,.03)="No Description (%ZTLOAD)"
^%ZTSK(4883,.04)=5629430621
^%ZTSK(4883,.1)="B^65155,38623^Task's volume set not listed in index.^^^^^^"
^%ZTSK(4883,.2)=""
^%ZTSK(4883,.21)=""
^%ZTSK(4883,.25)=""
^%ZTSK(4883,.3,"DUZ(",0)="@"
^%ZTSK(4883,.3,"XQSCH")=10
^%ZTSK(4883,.3,"XQY")=8853
^%ZTSK(4884,0)="ZTSK^XQ1^.5^VISTA^65155,38621^65155,38621^O^8412^HL TASK RESTART^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
^%ZTSK(4884,.02)="^VISTA^^"
^%ZTSK(4884,.03)="No Description (%ZTLOAD)"
^%ZTSK(4884,.04)=5629430621
^%ZTSK(4884,.1)="B^65155,38625^Task's volume set not listed in index.^^^^^^"
^%ZTSK(4884,.2)=""
^%ZTSK(4884,.21)=""
^%ZTSK(4884,.25)=""
^%ZTSK(4884,.3,"DUZ(",0)="@"
^%ZTSK(4884,.3,"XQSCH")=11
^%ZTSK(4884,.3,"XQY")=8412
^%ZTSK(4885,0)="ZTSK^XQ1^.5^VISTA^65155,38621^65155,38621^O^9891^XOBV LISTENER STARTUP^POSTMASTER^VISTA^VISTA^ZTDESC^VISTA^"
^%ZTSK(4885,.02)="^VISTA^^"
^%ZTSK(4885,.03)="No Description (%ZTLOAD)"
^%ZTSK(4885,.04)=5629430621
^%ZTSK(4885,.1)="B^65155,38627^Task's volume set not listed in index.^^^^^^"
^%ZTSK(4885,.2)=""
^%ZTSK(4885,.21)=""
^%ZTSK(4885,.25)=""
^%ZTSK(4885,.3,"DUZ(",0)="@"
^%ZTSK(4885,.3,"XQSCH")=8
^%ZTSK(4885,.3,"XQY")=9891
^%ZTSK(1082462,.1)="E^64013,39495^Interrupted While Running"
^%ZTSK(1082463,.1)="E^64013,39495^Interrupted While Running"
^%ZTSK(1082464,.1)="E^64013,39495^Interrupted While Running"
Expand Down
Loading

0 comments on commit 1ea75fa

Please sign in to comment.