STANDARD DATA DICTIONARY #48 -- MAS RELEASE NOTES FILE 3/24/25 PAGE 1
STORED IN ^DG(48, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the release notes for the MAS module starting with version 3.5. Also included are the facility initialization
times, comments conerning the release, etc.
DD ACCESS: @
RD ACCESS: d
WR ACCESS: D
DEL ACCESS: @
LAYGO ACCESS: @
POINTED TO BY: OBSOLETE WITH VERSION# field (#.02) of the OBSOLETE ROUTINE sub-field (#48.08) of the MAS RELEASE NOTES File (#48)
CROSS
REFERENCED BY: RELEASE DATE(AR), VERSION NUMBER(B), PACKAGE(C), PACKAGE(D), PACKAGE(E), PACKAGE(F)
48,.01 VERSION NUMBER 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$S($L(X)>6:1,$L(X)<1:1,'+$E(X):1,1:0) X I $D(X) S DINUM=X
LAST EDITED: JUN 25, 1988
HELP-PROMPT: ENTER ADT VERSION NUMBER
DESCRIPTION:
This is the MAS Version number being distributed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 48^B
1)= S ^DG(48,"B",$E(X,1,30),DA)=""
2)= K ^DG(48,"B",$E(X,1,30),DA)
48,2 NOTIFICATION MESSAGE SENT 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 03, 1987
DESCRIPTION:
If a message was sent to the ISC the date last sent.
48,3 TRANSMISSION METHOD 0;3 SET (Required)
'L' FOR LETTER;
'M' FOR MAILMAN MESSAGE;
LAST EDITED: JUN 04, 1987
DESCRIPTION:
Was notification made via LETTER or MAILMAN message.
48,4 SCHEDULING RELEASE TOO 0;4 SET (Required)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 05, 1987
DESCRIPTION:
Was the scheduling package released with this version.
48,5 SCHEDULING VERSION 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."5N.N) X
LAST EDITED: JUN 05, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 999
DESCRIPTION:
If a scheduling release was included with this installation what was the version number?
48,6 VERSION REQUIRED TO INSTALL 0;6 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."5N.N) X
LAST EDITED: JUN 05, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 999
DESCRIPTION:
What version of MAS is required in order to install this version.
48,7 RELEASE DATE 0;7 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 05, 1987
DESCRIPTION:
Date of this release from the Albany ISC.
CROSS-REFERENCE: 48^AR^MUMPS
1)= S ^DG(48,"AR",9999999-X,DA)=""
2)= K ^DG(48,"AR",9999999-X,DA)
48,10 OPENING COMMENTS C;0 WORD-PROCESSING #48.01
DESCRIPTION: Opending comments word-processing field to explain briefly what version of MAS Release Notes are
for and any outstanding issues involved.
48,15 NEW OPTIONS NO;0 Multiple #48.02 (Add New Entry without Asking)
DESCRIPTION:
This multiple contains all new MAS menu options associated with the Version noted.
48.02,.01 NEW OPTIONS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-50 CHARACTERS IN LENGTH
DESCRIPTION:
All new MAS menu options associated with the Version noted.
CROSS-REFERENCE: 48.02^B
1)= S ^DG(48,DA(1),"NO","B",$E(X,1,30),DA)=""
2)= K ^DG(48,DA(1),"NO","B",$E(X,1,30),DA)
48.02,.02 PACKAGE 0;2 POINTER TO MAS MODULE FILE (#48.5) (Required)
LAST EDITED: AUG 23, 1989
DESCRIPTION:
The associated package for each new menu option, i.e. scheduling, ADT, IRT, etc.
CROSS-REFERENCE: 48^C
1)= S ^DG(48,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^DG(48,"C",$E(X,1,30),DA(1),DA)
48.02,1 COMMENTS C;0 WORD-PROCESSING #48.11
DESCRIPTION:
Any comments/special concerns associated with a new menu option.
48,16 NEW SECURITY KEYS NK;0 Multiple #48.016 (Add New Entry without Asking)
DESCRIPTION:
A multiple containing any new Security Keys associated with Version number noted.
48.016,.01 NEW SECURITY KEYS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: AUG 25, 1987
HELP-PROMPT: ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
DESCRIPTION:
Contains any new Security Keys associated wtih Version number noted.
CROSS-REFERENCE: 48.016^B
1)= S ^DG(48,DA(1),"NK","B",$E(X,1,30),DA)=""
2)= K ^DG(48,DA(1),"NK","B",$E(X,1,30),DA)
48.016,.02 PACKAGE 0;2 POINTER TO MAS MODULE FILE (#48.5) (Required)
LAST EDITED: AUG 23, 1989
DESCRIPTION: Package associated with any new Security Keys for Version number noted, i.e. ADT, Scheduling,
IRT, etc.
CROSS-REFERENCE: 48^D
1)= S ^DG(48,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^DG(48,"D",$E(X,1,30),DA(1),DA)
48.016,1 COMMENTS C;0 WORD-PROCESSING #48.161
DESCRIPTION:
Word processing field to describe new Security Key and any special notes/concerns.
LAST EDITED: AUG 25, 1987
48,17 NEW MAIL GROUPS MG;0 Multiple #48.017 (Add New Entry without Asking)
DESCRIPTION:
Multiple containing any new mail groups associated with Version number noted.
48.017,.01 NEW MAIL GROUPS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: AUG 25, 1987
HELP-PROMPT: ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
DESCRIPTION:
New mail groups associated with Version number noted.
CROSS-REFERENCE: 48.017^B
1)= S ^DG(48,DA(1),"MG","B",$E(X,1,30),DA)=""
2)= K ^DG(48,DA(1),"MG","B",$E(X,1,30),DA)
48.017,1 COMMENTS C;0 WORD-PROCESSING #48.171
DESCRIPTION: Word processing field to describe new mail group with instructions for set up if appropriate and
special items of interest.
LAST EDITED: AUG 25, 1987
48,20 CHANGED OPTIONS CO;0 Multiple #48.04 (Add New Entry without Asking)
DESCRIPTION:
Multiple containing any changed menu options associated with Version number noted.
48.04,.01 CHANGED OPTIONS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-50 CHARACTERS IN LENGTH
DESCRIPTION:
Any changed menu options associated with Version number noted.
CROSS-REFERENCE: 48.04^B
1)= S ^DG(48,DA(1),"CO","B",$E(X,1,30),DA)=""
2)= K ^DG(48,DA(1),"CO","B",$E(X,1,30),DA)
48.04,.02 PACKAGE 0;2 POINTER TO MAS MODULE FILE (#48.5) (Required)
LAST EDITED: AUG 23, 1989
DESCRIPTION:
Package associated with any changed menu options, i.e. IRT, ADT, Scheduling, etc.
CROSS-REFERENCE: 48^E
1)= S ^DG(48,"E",$E(X,1,30),DA(1),DA)=""
2)= K ^DG(48,"E",$E(X,1,30),DA(1),DA)
48.04,.03 FIX FOR BUG? 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 01, 1991
HELP-PROMPT: Is this change a fix to a bug from a prior version?
DESCRIPTION: This field will be 'YES' if the change made was a fix to a bug that was introduced in a prior
release.
48.04,1 COMMENTS C;0 WORD-PROCESSING #48.05
DESCRIPTION:
Word processing field to describe any changed menu options or special items of interest.
48,25 DELETED OPTIONS DO;0 Multiple #48.06 (Add New Entry without Asking)
DESCRIPTION:
Multiple containing any deleted menu options associated with Version number noted.
48.06,.01 DELETED OPTIONS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
LAST EDITED: JUL 22, 1993
HELP-PROMPT: ANSWER MUST BE 3-50 CHARACTERS IN LENGTH
DESCRIPTION:
Any deleted menu options associated with a particular MAS release.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 48.06^B
1)= S ^DG(48,DA(1),"DO","B",$E(X,1,30),DA)=""
2)= K ^DG(48,DA(1),"DO","B",$E(X,1,30),DA)
48.06,.02 PACKAGE 0;2 POINTER TO MAS MODULE FILE (#48.5) (Required)
LAST EDITED: AUG 23, 1989
DESCRIPTION:
Package associated with any deleted menu options, i.e. IRT, ADT, Scheduling, etc.
CROSS-REFERENCE: 48^F
1)= S ^DG(48,"F",$E(X,1,30),DA(1),DA)=""
2)= K ^DG(48,"F",$E(X,1,30),DA(1),DA)
48.06,.03 OPTION NAME 0;3 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3) X
LAST EDITED: AUG 12, 1988
HELP-PROMPT: ANSWER MUST BE 3-45 CHARACTERS IN LENGTH
DESCRIPTION:
The option NAME that is to be deleted with associated Version number.
CROSS-REFERENCE: 48.06^C
1)= S ^DG(48,DA(1),"DO","C",$E(X,1,30),DA)=""
2)= K ^DG(48,DA(1),"DO","C",$E(X,1,30),DA)
48.06,.04 REPOINT? 0;4 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: AUG 12, 1988
DESCRIPTION:
In deleting a menu option is it necessary to repoint to a new option or not?
48.06,.05 REPOINT TO OPTION 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<3) X
LAST EDITED: AUG 12, 1988
HELP-PROMPT: ANSWER MUST BE 3-45 CHARACTERS IN LENGTH
DESCRIPTION:
If sub-field .04 is answered "YES", enter the menu option to repoint to here.
48.06,.06 DESCRIPTION 1;0 WORD-PROCESSING #48.14
DESCRIPTION: The description field is a word-processing field that is utilized to describe what the
functionality of an option is.
LAST EDITED: JUN 12, 1992
48,30 NEW ROUTINES NR;0 Multiple #48.07
DESCRIPTION:
Multiple containing any new routines associated with Version number noted.
48.07,.01 NEW ROUTINES 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>15!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
DESCRIPTION:
List any new routines associated with current release.
CROSS-REFERENCE: 48.07^B
1)= S ^DG(48,DA(1),"NR","B",$E(X,1,30),DA)=""
2)= K ^DG(48,DA(1),"NR","B",$E(X,1,30),DA)
48,35 OBSOLETE ROUTINE DR;0 Multiple #48.08
DESCRIPTION: Multiple containing any obsolete routines that will be deleted as a result of changes in the
current release.
48.08,.01 OBSOLETE ROUTINE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>15!($L(X)<2)!(X["*") X
LAST EDITED: AUG 21, 1989
HELP-PROMPT: ANSWER MUST BE 3-15 CHARACTERS IN LENGTH. NO ASTERISKS ALLOWED.
DESCRIPTION: Any obsolete routine that will be deleted (not released) as a result of changes in the associated
Version number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 48.08^B
1)= S ^DG(48,DA(1),"DR","B",$E(X,1,30),DA)=""
2)= K ^DG(48,DA(1),"DR","B",$E(X,1,30),DA)
48.08,.02 OBSOLETE WITH VERSION# 0;2 POINTER TO MAS RELEASE NOTES FILE (#48) (Required)
LAST EDITED: JUL 25, 1988
DESCRIPTION: The Version # that the obsolete routines will be deleted and not longer released with the MAS
software.
48,40 SUGGEST MAPPING FOR ROUTINES M;0 Multiple #48.09
DESCRIPTION:
Multiple containing routines that it is recommended/suggested to map.
48.09,.01 SUGGEST MAPPING FOR ROUTINES 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>15!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
DESCRIPTION:
Routines that are suggested/recommended for mapping.
CROSS-REFERENCE: 48.09^B
1)= S ^DG(48,DA(1),"M","B",$E(X,1,30),DA)=""
2)= K ^DG(48,DA(1),"M","B",$E(X,1,30),DA)
48,41 JOURNALLING RECOMMENDATIONS J;0 Multiple #48.041
DESCRIPTION: Multiple containing information of journalling recommendations/ instructions associated with
current release.
48.041,.01 JOURNALLING RECOMMENDATIONS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>8!($L(X)<2) X
LAST EDITED: APR 19, 1989
HELP-PROMPT: ANSWER MUST BE 2-8 CHARACTERS IN LENGTH
DESCRIPTION:
Information concerning journalling recommendations/instructions associated with current release.
CROSS-REFERENCE: 48.041^B
1)= S ^DG(48,DA(1),"J","B",$E(X,1,30),DA)=""
2)= K ^DG(48,DA(1),"J","B",$E(X,1,30),DA)
48,45 FILE (DD) CHANGES F;0 WORD-PROCESSING #48.045
DESCRIPTION: Word processing field explaining and MAS File Data Dictionary changes that have occurred as a
result of changes associated with the current release.
LAST EDITED: JUN 19, 1987
48,46 PTF COMMENTS P;0 WORD-PROCESSING #48.046
DESCRIPTION: Word processing field containing comments/instructions/special items of interest/new legislation,
etc. associated with the Patient Treatment File (PTF) portion of the MAS software.
LAST EDITED: JUN 19, 1987
48,47 RUG COMMENTS RU;0 WORD-PROCESSING #48.047
DESCRIPTION: Word processing field containing comments/instructions/special items of interest/new legislation,
etc. associated with the Resource Utilization Grouper (RUG) portion of the MAS software.
LAST EDITED: JUN 19, 1987
48,48 LOOKUP COMMENTS L;0 WORD-PROCESSING #48.048
DESCRIPTION: Word processing field containing comments/instructions/related changes, etc. to the Patient (^DPT)
look up.
LAST EDITED: JUN 22, 1987
48,49 BILLING COMMENTS BILL;0 WORD-PROCESSING #48.049
DESCRIPTION: Word processing field containing comments/instructions/special items of interest/new legislation,
etc. associated with the Billing portion of the MAS software. In a future release, all billing
options, etc. will be transferred to the Integrated Billing package.
LAST EDITED: JUL 25, 1988
48,49.5 SCHEDULING COMMENTS SCH;0 WORD-PROCESSING #48.0495
DESCRIPTION: Word processing field containing comments/instructions/special items of interest/new legislation,
etc. associated with the Scheduling portion of the MAS software.
LAST EDITED: APR 19, 1989
48,49.7 DISC. WORKLOAD COMMENTS DW;0 WORD-PROCESSING #48.0497
DESCRIPTION: This field will be *'d for deletion in the MAS V5.2 release. Discretionary workload
reports/options, etc. are not longer required by VACO for use in the field.
LAST EDITED: JUN 24, 1989
48,49.8 IRT COMMENTS 49.8;0 WORD-PROCESSING #48.13
DESCRIPTION: This is a word-processing field that contains comments on new or changed functionality or special
notes on the Incomplete Record Tracking Menu in the MAS package with new releases.
IRT Comments
LAST EDITED: JAN 21, 1992
HELP-PROMPT: Enter any comments that concern the IRT package.
DESCRIPTION:
All comments in this field have to do with the IRT package.
TECHNICAL DESCR:
All comments in this field have to do with the IRT package.
48,50 CLOSING COMMENTS C1;0 WORD-PROCESSING #48.1
DESCRIPTION: Word processing containing any closing comments (summary) of any outstanding issues/new
functionality, etc. related to the current release.
48,100 DG PRE-INIT START R;1 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time the DG namespaced pre-initialization started.
48,101 DG INIT START R;2 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time the DG namespaced intialization started.
48,102 DG POST-INIT START R;3 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time the DG namespaced post-intialization started.
48,103 DG INIT END R;4 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time the DG namespaced intialization ended.
48,104 DPT PRE-INIT START R;5 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time the DPT pre-initialization started.
48,105 DPT INIT START R;6 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time the DPT intialization started
48,106 DPT POST-INIT START R;7 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time the DPT post-initialization started.
48,107 DPT INIT END R;8 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time the DPT initialization ended.
48,108 SD PRE-INIT START R;9 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 05, 1987
DESCRIPTION:
Date/time the SD namespaced pre-initialization started.
48,109 SD INIT START R;10 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time SD namespaced initialization started
48,110 SD POST-INIT START R;11 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time SD post-initialization started.
48,111 SD INIT END R;12 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time the SD initialization ended.
48,115 SPECIAL JOB STARTED R;16 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 18, 1987
DESCRIPTION: Date/time any special job was started. This may not be related to all releases, just special
cases.
48,116 SPECIAL JOB ENDED R;17 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
Date/time any special job ended. This may not be related to all releases, just special cases.
48,117 SPECIAL JOB2 DONE R;18 SET (Required)
'0' FOR NO;
'1' FOR YES;
LAST EDITED: AUG 03, 1987
DESCRIPTION:
Date/time a second special job was completed.
48,120 MAY I INCLUDE YOUR FILE SIZES? S;1 SET (Required)
'1' FOR YES;
'0' FOR NO;
DESCRIPTION: Does user wish to have program include the sizes of their files in the output received as a result
of running initializations?
48,121 DOCUMENTATION QUALITY S;2 SET (Required)
'0' FOR NONE INCLUDED;
'1' FOR POOR;
'2' FOR FAIR;
'3' FOR GOOD;
'4' FOR VERY GOOD;
'5' FOR EXCELLENT;
DESCRIPTION: User enters the range of quality they felt the documentation sent with the package release fell
into (i.e. poor, fair, good, etc.)
48,122 INSTALLATION GUIDE S;3 SET (Required)
'1' FOR POOR;
'2' FOR FAIR;
'3' FOR GOOD;
'4' FOR VERY GOOD;
'5' FOR EXCELLENT;
DESCRIPTION:
Quality of the installation guide received with the release, i.e. good, poor, fair, etc.
48,123 RELEASE NOTES S;4 SET (Required)
'1' FOR POOR;
'2' FOR FAIR;
'3' FOR GOOD;
'4' FOR VERY GOOD;
'5' FOR EXCELLENT;
DESCRIPTION:
Quality of the release notes received with the release, i.e. good, poor, fair, etc.
48,124 INITIALIZATION SATISFACTION S;5 SET (Required)
'1' FOR POOR;
'2' FOR FAIR;
'3' FOR GOOD;
'4' FOR VERY GOOD;
'5' FOR EXCELLENT;
DESCRIPTION: How was the quality of the initialization as related to IRM. Was it poor?, fair?, etc. Did the
initialization run smoothly? Were there major problems encountered? Items that may effect the
quality of the initialization quality.
48,125 USER SATISFACTION S;6 SET (Required)
'1' FOR POOR;
'2' FOR FAIR;
'3' FOR GOOD;
'4' FOR VERY GOOD;
'5' FOR EXCELLENT;
DESCRIPTION: The quality of user satisfaction. How did the users react to the installation/results of updated
software? Were they pleased? Did they find many items they felt uncomfortable with? etc.
48,126 OVERALL SATISFACTION S;7 SET (Required)
'1' FOR POOR;
'2' FOR FAIR;
'3' FOR GOOD;
'4' FOR VERY GOOD;
'5' FOR EXCELLENT;
DESCRIPTION: Rank the overall satisfaction of the release, including all documentation, initializations,
functionality, etc.
48,150 USER COMMENTS/SUGGESTIONS UC;0 WORD-PROCESSING #48.12
DESCRIPTION: Word processing field for users to express their concerns, comments, findings, reactions to the
release as a whole. Any recommendations they may have, etc.
FILES POINTED TO FIELDS
MAS MODULE (#48.5) NEW SECURITY KEYS:PACKAGE (#.02)
NEW OPTIONS:PACKAGE (#.02)
CHANGED OPTIONS:PACKAGE (#.02)
DELETED OPTIONS:PACKAGE (#.02)
MAS RELEASE NOTES (#48) OBSOLETE ROUTINE:OBSOLETE WITH VERSION# (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
CAPTIONED USER #0
DGNOTE JUL 24, 1992@08:31 USER #0 MAS VERSION 5.2 RELEASE NOTES
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):