| DESCRIPTION OF ENHANCEMENTS |
PATCH DESIGNATION: LR*5.2*201 PACKAGE: LAB SERVICE
^DD(69.91,0,"ID",2) = W:$D(^("0")) " ",$$FMTE^XLFDT($P(^("0"),U,3),"5Z")
New Data Dictionary:
^DD(68,.097,0)= NON LAB ACCESSION AREA^S^1:YES;0:NO;^0;21^Q
Routine Listing:
Name Line Tag Description
-------------------------------------------------------------------------
LR5XCNV OBSOLETE ROUTINE - deleted
LR5XCNV0 OBSOLETE ROUTINE - deleted
LR5XCNV1 OBSOLETE ROUTINE - deleted
LR5XCNV3 OBSOLETE ROUTINE - deleted
LR5XCNV4 OBSOLETE ROUTINE - deleted
LR5XCNV5 OBSOLETE ROUTINE - deleted
LR5XCNV8 OBSOLETE ROUTINE - deleted
LR5XCNV9 OBSOLETE ROUTINE - deleted
LR5XCNVA OBSOLETE ROUTINE - deleted
PATCH DESCRIPTION:
LR5XCNVD OBSOLETE ROUTINE - deleted
LR5XCNVP OBSOLETE ROUTINE - deleted
LR5XCNVU OBSOLETE ROUTINE - deleted
LR5XCNVX OBSOLETE ROUTINE - deleted
LR5XOK OBSOLETE ROUTINE - deleted
LR5XOK3 OBSOLETE ROUTINE - deleted
LR5XOK31 OBSOLETE ROUTINE - deleted
LR5XOK5 OBSOLETE ROUTINE - deleted
LR5XOK51 OBSOLETE ROUTINE - deleted
LR5XOK8 OBSOLETE ROUTINE - deleted
This is the Year 2000 (Y2K) compliance patch containing the changes
LR5XOK81 OBSOLETE ROUTINE - deleted
LR5XOK9 OBSOLETE ROUTINE - deleted
LR5XOK91 OBSOLETE ROUTINE - deleted
LR5XOKA OBSOLETE ROUTINE - deleted
LR5XOKA1 OBSOLETE ROUTINE - deleted
LR5XOKU OBSOLETE ROUTINE - deleted
LR5XTIM2 OBSOLETE ROUTINE - deleted
LR5XTIME OBSOLETE ROUTINE - deleted
LR7OSBR1 T dd/mm/yyyy
L+1 formatting for the extra 2 century
necessary to accommodate the year 2000. 2 digit (YY) year dates are
characters.
L+2 formatting for the extra 2 century
characters.
R+1 formatting for the extra 2 century
characters.
LR7OSOS DATE dd/mm/yyyy
LR7OSUM3 UDT+7 dd/mm/yyyy
LR7OSUM6 LRUDT+3 dd/mm/yyyy
WR+5 formatting for the extra 2 century
characters.
replaced with 4 digit (CCYY) century year dates in laboratory routines
WR1+1 formatting for the extra 2 century
characters.
LR7OU5 DQ+1 Update the LRAFUNC1 to XLFDT call.
LR7OU64 CHECK+4 Update the LRAFUNC to XLFSTR call.
DQ+2 Update the LRAFUNC1 to XLFDT call.
LR7OU641 DQ+1 Update the LRAFUNC1 to XLFDT call.
LRABG1 LRABG1+35:36 Set 4-digit date.
LRAC3 LRAC3+32 dd/mm/yyyy
LRAC3+43 dd/mm/yyyy
LRAC4 Y2K New TMP file structure
for patients' permanent clinical record. 2 digit year dates are replaced
BS1 dd/mm/yyyy
LRACK STA+1 2 digit to 4 digit date
STA+3 ""
LRACM1 DIC dd/mm/yyyy
LRACM1+33 dd/mm/yyyy
LRACM1+41 dd/mm/yyyy
+1
LRACM3 LRACM3+19 dd/mm/yyyy
LRACS QUE+2 Ancillary to cumes.
LRACS2 LRACS2+3 2 digit to 4 digit date
in other laboratory routines where space was available. Because of the
LRACS3 LRIFN+2 Ancillary to cumes.
LRACSUM LRACSUM+43 Ancillary to cumes.
LRACSUM3 LRACSUM3+31 2 digit to 4 digit
LRACSUM3+37 2 digit to 4 digit
LRACSUM4 Y2K Ancillary to cumes.
LRACSUM6 LRACSUM6+4 2 digit to 4 digit
LRACSUM6+7 Display format
LRACSUM6+16 dd/mm/yyyy
lack of space, labels are still printed with 2 digit year dates.
LRAPAUA W1 Rename variable T to LRAUDT, expand to
4 digit year
END Kill new variable.
LRAPAUL PRT+1 Format output to accommodate 4 digit year.
DT Expand to 4 digit year.
H+1 Format output to accommodate 4 digit year.
QUE Fix syntax problem with DBS call exported
with LR*5.2*173
LRAPBK SH+3 Rename variable LRW(1) to LRSPDT, expand
to 4 digit year.
SH+7 Rename variable LRW(1) to LRSPDT.
LRAPDPT AP Expand to 4 digit year.
AU Expand to 4 digit year.
LRAPF F+5 Strip off seconds from Admission date
(set in another routine).
LRAPJNC W Format output to accommodate 4 digit year.
L+1 Rename variable H(4) to LRDTINT.
S+1 Rename variable H(5) to LRDTEXT, expand
to 4 digit year.
S+2 Rename variables H(4) and H(5) to LRDTINT
VERSION: 5.2 PATCH NUMBER: 201
Warning:
and LRDTEXT.
A Rename variable H(4) to LRDTINT.
H+1 Format output to accommodate 4 digit year.
END Kill new variables.
LRAPL W+2 Rename variable S(1) to LRSPECDT.
P Rename variable S(1) to LRSPECDT and
expand to 4 digit year.
END Kill new variable.
LRAPLG GETP Expand to 4 digit year, format output
to accommodate 4 digit year.
Local label routines that call DD^LRX or DT^LRX will need to be modified
LRAPPF1 EN+1 Expand to 4 digit year.
EN+4 Format output to accommodate 4 digit year.
LRAPQ W Expand to 4 digit year.
W+2 Format output to accommodate 4 digit year.
H+2 Format output to accommodate 4 digit year.
LRAPQAT1 L Expand to 4 digit year.
AU+1 Change direct global reads to ^DGPM( to
using call INP^VADPT.
A Assign local variable names to output
variables from INP^VADPT.
to call DDOLD^LRX or DTOLD^LRX to print 2-digit dates.
LRAPQOR W Expand to 4 digit year, format output to
accommodate 4 digit year.
H+2 Display format
LRAPQOR1 D Expand to 4 digit year.
W Format output to accommodate 4 digit year.
W2 Expand to 4 digit year.
H1 Format output to accommodate 4 digit year.
LRAPS1 EN Expand to 4 digit year.
EN+3 Format output to accommodate 4 digit year.
M Additional change to accommodate patch
LR*5.2*203.
LRAPSEM2 A Expand to 4 digit year. Format output
to accommodate 4 digit year.
H+2 Display format
LRAPSL SET Expand to 4 digit year.
LRAPTT B Format output to accommodate 4 digit year.
S+4 Expand to 4 digit year.
LRAPTT1 LRAPTT1+4 Format output to accommodate 4 digit year.
LRAPV I Rename variable Z to LRDATE.
1 Rename variable Z to LRDATE.
Patch LR*5.2*201 VISTA BLOOD BANK SOFTWARE V5.2
W Rename variable Z to LRDATE, expand to 4
digit year.
2+1 Rename variable Z to LRDATE.
H1 Rename variable Z to LRDATE.
LRAPWE T+2 Expand to 4 digit year.
LRAUSTA FIX Expand to 4 digit year.
WRT Rename variable M to LRSENIOR.
Rename variable M(2) to LRESIDEN.
WRT+2 Rename variable R(1) to LRAUDT.
Rename variable R(2) to LRAUCOMP.
DEVICE PRODUCT LABELING STATEMENT
Rename variable R(3) to LRFAD.
Rename variable W(15) to LRPAD.
Change LRPAD to the correct data piece.
WRT+3 Reference new variable names, format
output to accommodate 4 digit year.
WRT+4 Reference new variable name.
WRT+5 Reference new variable name.
H+1 Format output to accommodate 4 digit year
END Kill new variables before exit routine.
LRCAP64 LRCAP64+25 Replaced call to LRAFUNC1 date/time
LRCAP64+27 function to Kernel date/time calls.
LRCAP64+30 ""
LRCAP64+32 ""
LRCAP64+35 ""
LRCAP64+45 ""
LRCAP67 LRCAP67+19 Replaced call to LRAFUNC1 date/time
LRCAP67+23 function to Kernel date/time calls.
LRCAPA12 LRCAPA12+64 Display 4-digit date.
LRCAPACC LRCAPACC+53 Display 4-digit date.
LRCAPAM1 LRCAPAM1+11 Replaced call to LRAFUNC1 date/time
March 10, 1998
LRCAPAM1+12 function to Kernel date/time calls.
LRCAPAM1+15 ""
LRCAPAM2 LRCAPAM2+10 ""
LRCAPAM2+19 ""
LRCAPAM2+29 ""
LRCAPAM3 LRCAPAM3+11 ""
LRCAPAM3+18 ""
LRCAPAM3+21 ""
LRCAPAM3+29 ""
LRCAPAM3+30 ""
LRCAPAM3+55 ""
LRCAPAM3+81 ""
LRCAPAM4 LRCAPAM4+29 ""
LRCAPAM4+74 ""
LRCAPAM6 LRCAPAM6+10 ""
LRCAPAM8 LRCAPAM8+6 ""
LRCAPAM8+7 ""
LRCAPAM9 LRCAPAM9+5 ""
LRCAPAMP LRCAPAMP+13 ""
LRCAPBB LRCAPBB+7 ""
VISTA Laboratory Package patch LR*5.2*201 contains changes to software
LRCAPD2 LRCAPD2+39 ""
LRCAPDSS LRCAPDSS+17 ""
LRCAPDSS+26 ""
LRCAPMR LRCAPMR+29 ""
LRCAPMR+36 ""
LRCAPMR2 LRCAPMR2+65 ""
LRCAPR1A LRCAPR1A+7 ""
LRCAPR1A+8 ""
LRCAPR3 LRCAPR3+14 ""
LRCAPR3+23 ""
PATCH SUBJECT: Y2K LABORATORY (LR) PATCH
controlled by VHA DIRECTIVE 97-033, titled VISTA BLOOD BANK SOFTWARE
LRCAPV1S LRCAPV1S+4 ""
LRCAPV1S+5 ""
LRCENDE1 ZAP Prevent complete accession deletion.
LRDPA1 LRDPA1+16 Changed to Kernel Date/Time call
LREXPD LREXPD+20 ""
LRFAST AMIS +1 Replaced $$NOW^LRAFUNC1 with $$NOW^XLFDT.
LRGEN LRGEN+7 Cleanup Variable
LRGEN1 LRGEN1+20 Display 4-digit date.
LRGEN1+27 Display 4-digit date.
LRLIST LRLIST+5 Replaced call to LRAFUNC1 date/time
VERSION 5.2. The following routines listed as part of Group B in the
LRLIST+86 function to Kernel date/time calls.
LRLISTE LRLISTE+4 ""
LRLISTE+49 ""
LRLSTWRL LRLSTWRL+12 ""
LRMISEZ2 LRMISEZ2+26 dd/mm/yyyy
LRMISEZ4 LRMISEZ4+17 dd/mm/yyyy
LROE TASK Variable LRLBL is no longer killed.
LROLOVER EN+4 Changed to Kernel date/time call.
OVER+2 Enhanced $D statement
ROLLAH+3 Set LRAD to correct date/time
directive were modified to be Y2K compliant:
ROLLAH+13 Add $G( statement prevent undefined.
LRORD1 LEDI+1 Added $L statement for alpha characters
in UID.
LRORDIM EN+4 Changed $$DOW^LRAFUNC1 to $$DOW^XLFDT.
EN+22 Changed $$NOW^LRAFUNC1 to $$NOW^XLFDT.
CHK+1 Changed $$DOW^LRAFUNC1 to $$DOW^XLFDT.
DATE+3 Changed $$CFMTDH^LRAFUNC1 to $$FMTH^XLFDT.
DATE+7 Changed $$CDHTFM^LRAFUNC1 to
$$HTFM^XLFDT.
LRORDK KILL+7 Variable LRLABLIO is no longer killed.
LRU, LRUA, LRUPT.
LRPARAM LRPARAM+13 Replaced call to LRAFUNC1 date/time
function to Kernel date/time calls.
LRPEND LRPEND+10 ""
LRPEND+37 ""
LRQC LRQC+3 Changed to display 4-digit year date.
LRRP5 DATE+3 Changed to display 4 digit year date.
INIT+2 ""
LRRP6 LRRP6+38 dd/mm/yyyy
LRRP6+42
LRRP6A1 LRRP6A1+15 dd/mm/yyyy
LRRP6B1 LRRP6B1+12 dd/mm/yyyy
LRSMAC LRSMAC+39 Replaced call to LRAFUNC1 date/time
function to Kernel date/time calls.
LROW2RP DATE Added an "F" to the %DT flags for 'date of
order prompt.
LRSORA2 PRTEST+5 Changed to display 4-digit year date.
LRSORC1A PRINT+23 Formatting for the extra 2 century
characters.
PRNTST+9
COM+8
These are shared routines that are used by Blood Bank as well as general
LRSORD1A PRINT+23 Formatting for the extra 2 century
characters.
PRNTST+9
COM+8
LRSTOPC OBSOLETE ROUTINE - deleted
LRTOCOST LRTOCOST+5 Replaced call to LRAFUNC1 date/time
function to
LRTOCOST+7 Kernel date/time calls.
LRTOCOST+8 ""
LRTOCOST+56 ""
Laboratory software. They were modified to display a date using a 4
LRTOCOST+74 ""
LRTSTSET LRTSTSET+25 ""
LRTT5 LRTT5+38 ""
LRTT5+54 ""
LRTT5R1 LRTT5R1+27 ""
LRU T Added description of functionality to line
tag.
A Added description of functionality to line
tag, expand to 4 digit year.
D Added description of functionality to line
digit century year format and formatting was changed when necessary to
tag, expand to 4 digit year.
DA Added description of functionality to line
tag, expand to 4 digit year.
DT Checks if LRSS="BB". If not, expands to 4
digit year. Selected Blood Bank internal
displays are not modified due to current
FDA constraints.
V+3 Kill new variables.
LRUA LRUA+3 Change call to D^LRU to newly created line
tag DATE.
accommodate the extra two characters in the year.
LRUA+8 Change call to D^LRU to newly created line
tag DATE.
DATE New line tag, returns date/time in 4 digit
year format.
LRUDEL D Change call to D^LRU to newly created line
tag DATE.
REST+5 Change call to D^LRU to newly created line
tag DATE.
REST+6 Change call to D^LRU to newly created line
tag DATE.
DATE New line tag, returns date in eye-readable
month format w/ 4 digit year.
LRUER P Rename variable T to LRDATE.
P+2 Rename variable T to LRDATE, format output
to accommodate 4 digit year.
H+1 Format output to accommodate 4 digit year.
H1 Rename variable T to LRDATE, format output
to accommodate 4 digit year.
LRUMD W+1 Rename variable T(1) to LRDATE, expand to 4
digit year.
PRIORITY: MANDATORY STATUS OF PATCH: UNDER DEVELOPMENT
The above change has been reviewed by the VISTA Blood Bank Developer and
W+3 Rename variable T(1) to LRDATE.
LRUMDM W+3 Rename variable from T(1) to LRDATE, expand
to 4 digit year.
W+5 Rename variable from T(1) to LRDATE, format
output to accommodate 4 digit year.
LRUMDP W+1 Rename variable from T(1) to LRDATE, expand
to 4 digit year.
W+2 Rename variable from T(1) to LRDATE.
LRUP LRUP+3 Update the LRAFUNC1 to XLFDT call.
LRUPT FIX+2 Rename variable from Y to LRDATE, expand to
found to have no impact on the VISTA BLOOD BANK SOFTWARE version 5.2
4 digit year.
FIX+4 Rename variable from Y to LRDATE, format
output to accommodate 4 digit year.
A Rename variable from Y to LRDATE, format
output to accommodate 4 digit year.
LIST+3 Format output to accommodate 4 digit year.
MORE+1 Rename variable Y to LRDATE, format output
to accommodate 4 digit year.
HDR Format output to accommodate 4 digit year.
LRUTL STF+7 Update the LRAFUNC1 to XLFDT call.
control functions.
LRUTT W+1 Expand to 4 digit year, format output to
accommodate 4 digit year.
LRVER1 LRVER1+19 Replaced call to LRAFUNC1 date/time
function to
Kernel date/time calls.
LRVER2 LRVER2+13 Display 4-digit date.
LRVER2+27 ""
LRVR2 LRVR2+13 Display 4-digit date.
LRVR2+25 ""
LRVR2+26 Changed to Kernel Date/time call
LRWLST12 C3 Changed $$CDHTFM^LRAFUNC1 to $$HTFM^XLFDT.
LRWRKIN1 X+16 Adjust column display to accommodate
displaying
X+24 4-digit year.
LRWRKINC HED+5 Adjust column header to accommodate
displaying
HED+11 4-digit year.
LRWU4 LRWU4+2 Set Kernel variable DT using approved call
LRWU4+3 $$DT^XLFDT.
AC2+2 Added "P" to %DT variable, assume past
PROBLEM: With the upcoming turn of the century (Y2K) the Office of the
dates.
AC4+2 Display accession date with 4-digit year.
LRX DD Changed to display 4-digit year date.
DT+3 Used Kernel Date/Time call.
DDOLD Provide backward compatible format for
labels.
DTOLD Provide call to return 2 digit date.
Y2K Call to return dd/mm/yyyy Date/Time
Reference NOIS: N/A
Chief Information Office Technical Services has issued a guidelines
Reporting Site: N/A
Testing Site(s): Milwaukee, WI - Brockton/West Roxbury, MA
North Chicago, Il
ROUTINE SUMMARY:
=================
document for VISTA Software Y2K requirements. This guideline lays out
The second line of the routine now looks like:
<tab> ;;5.2;LAB SERVICE;**[patch list]**; Sep 27, 1994
the core essentials to meet or exceed OMB, GAO and congressional
requirements for Year 2000 requirements. Laboratory software has been
modified to meet or exceed these guidelines.
DATE PATCH FIRST ENTERED: JAN 27, 1998
RISK ANALYSIS: Changes made by patch LR*5.2*201 have no effect on Blood
Bank software functionality, therefore RISK is none.
EFFECT ON BLOOD BANK FUNCTIONAL REQUIREMENTS: Patch LR*5.2*201 does not
alter or modify any software design safeguards or safety critical
elements functions.
POTENTIAL IMPACT ON SITES: This patch contains changes to a routine
identified in Veterans Health Administration (VHA) Directive 97-033. The
changes have no effect in Blood Bank functionality or medical device
control functions. There is no adverse potential to sites.
VALIDATION REQUIREMENTS BY OPTION: There are no required validation
scenarios to be completed by sites after installing LR*5.2*201.
-----------------------------------------------
Software Availability:
This patch is available from one of the CIO Field Offices listed below.
All VAMC's are encouraged to use their FTP capability to obtain the
software from the appropriate directory
CIO Field Office FTP Address Directory
---------------- ------------- -----------------
Hines 152.129.1.110 anonymous.software
Albany 152.127.1.5 anonymous.software
CATEGORY OF PATCH: ROUTINE
Salt Lake 152.131.2.1 anonymous.software
File Name:LAB_Y2K.KID
Note: This patch is issued as a part of a KIDS Distribution in which
the Transport Global contains all three Laboratory Y2K patches.
The install order and patches are:
LR*5.2*203 Blood Bank
LR*5.2*201 Laboratory Service
and LA*5.2*42 Automated Instruments.
CATEGORY OF PATCH: DATA DICTIONARY
Data dictionary changes include:
Modified the write "ID" nodes for:
^DD(62.3,0,"ID",.02) = W:$D(^("0")) " ",$$FMTE^XLFDT($P(^("0"),U,2),"5Z")
^DD(67,0,"ID",.03) = W " ",$$FMTE^XLFDT($P(^(0),U,3),"5Z")
^DD(67.1,0,"ID",3) = W:$D(^("0")) " ",$$FMTE^XLFDT($P(^("0"),U,3),"5Z")
|
