| DESCRIPTION OF ENHANCEMENTS |
This patch fixes a bug and contains information and examples on how to
Installation Instructions:
==========================
This patch can be installed with VISTA users online. However, it is
recommended that it be Queued for a time of generally least activity.
1. AXP sites: Review your mapped routine set. If any of the
routine(s) listed in the ROUTINE SUMMARY section are mapped, they should
be removed from the mapped set at this time.
2. Use the 'INSTALL/CHECK MESSAGE' option on the PackMan menu. This
In the following example, a user whose DUZ(0)'["@" would see the SSN
option will load the KIDS package onto your system.
3. The patch has now been loaded into a transport global on your
system. You now need to use KIDS to install the transport global.
4. On the KIDS menu, under the 'Installation' menu, use the
following options:
Print Transport Global
Compare Transport Global to Current System
Verify Checksums in Transport Global
printed twice, whereas the user whose DUZ(0)["@" would see the Patient's
Backup a Transport Global
5. On the KIDS menu, under the 'Installation' menu, use the
following option:
Select Installation Option: Install Package(s)
Select INSTALL NAME: DI*21.0*53
==========
Answer 'NO' to 'Want to DISABLE Scheduled Options, Menu
Options, and Protocols?
SSN printed once.
6. MSM Sites - Answer YES to the question 'Want to MOVE routines to
other CPUs?'. Then enter the names of your other Compute and Print
server(s).
7. AXP Sites - After the patch has been installed, rebuild your map
set, if necessary.
S FLDS=".01;C1;L22;""PATIENT"",D SSN^MYPROG;C24;R4;""SSN"""
Routine called:
MYPROG ;SFCIOFO/S0 TEST ROUTINE ; 21 Aug 98 2:06 PM
SSN ;
call an 'M' routine from a print template or the FLDS input variable to
K VA,VADM S DFN=D0 D ^VADPT
S X=$P(VA("PID"),"-",3)
W X
Q
Information:
-----------
If you use the FLDS input variable to EN1^DIP or a print template to call
an 'M' routine to evaluate and print a value, you must WRITE the value you
want printed. Examples 1 and 2 below illustrate how this is done.
EN1^DIP.
Example #1: The routine is called from a Print Template
=======================================================
Print Template:
NAME: ZZ640A DATE CREATED: AUG 13, 1998@10:21
READ ACCESS: @ FILE: MY PATIENT
USER #: 133 WRITE ACCESS: @
DATE LAST USED: AUG 14, 1998
HEADER (c): MY PATIENT LIST
FIRST PRINT FIELD: NAME;C1;L22;"PATIENT"//
THEN PRINT FIELD: D SSN^MYPROG;X
THEN PRINT FIELD: W X;C24;R4;"SSN"//
COMPILED (c): NO
Routine Called:
MYPROG ;SFCIOFO/S0 TEST ROUTINE ; 21 Aug 98 2:06 PM
SSN ;
K VA,VADM S DFN=D0 D ^VADPT
S X=$P(VA("PID"),"-",3)
Bug fixed:
Q
Example of Usage:
ZZ640A ;SFCIOFO/S0 TEST FILEMAN PRINT ; 19 Aug 98 4:03 PM
S DIC="^DIZ(640001,",BY=".01",L=0,FR=""
S FLDS="[ZZ640A]"
D EN1^DIP
Q
Example #2: The routine is called from the FLDS input variable
---------
==============================================================
Routine Called:
MYPROG ;SFCIOFO/S0 TEST ROUTINE ; 21 Aug 98 2:06 PM
SSN ;
K VA,VADM S DFN=D0 D ^VADPT
S X=$P(VA("PID"),"-",3)
Q
Example of Usage:
If the FLDS input variable to EN1^DIP contains a call to an 'M' routine,
ZZ640A ;SFCIOFO/S0 TEST FILEMAN PRINT ; 19 Aug 98 4:03 PM
S DIC="^DIZ(640001,",BY=".01",L=0,FR=""
S FLDS=".01;C1;L22;""PATIENT"",D SSN^MYPROG;X,W X;C24;""SSN"""
D EN1^DIP
Q
NOIS:
=====
ISB-0898-30889
the resulting report may differ depending on whether or not the user's
Thanks to Test Sites:
=====================
Dayton, OH
Clarksburg, WV
CIOFO-Birmingham
Routine Summary:
================
The following routines are included in this patch. The second line of
DUZ(0) contains an at-sign (@).
these routines now look like:
<tab>;;21.0;VA FileMan;**[patch list]**;Dec 28, 1994
CHECK^XTSUMBLD results:
Routine Name Before Patch After Patch Patch List
============ ============ =========== ==========
DIP22 6639498 6717942 53
|
