STANDARD DATA DICTIONARY #9.4 -- PACKAGE FILE 6/27/25 PAGE 1
STORED IN ^DIC(9.4, (155 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 8.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file identifies the elements of a package that will be transported by the initialization routines created by DIFROM. The
prefix determines which namespaced entries will be retrieved from the Option, Bulletin, Help Frame, Function, and Security Key
Files as well as the namespace that will be used to name the INIT routines built by running DIFROM. The Excluded Namespace field
may be used to leave out some of these items. The File Multiple determines which files are sent with the package and whether data
is included. Print, Input, Sort and Screen (FORM) templates are brought in by namespace, for the files listed in the File
multiple. In addition, there are multiples for each type of template, that allow the user to specify individual templates outside
the namespace to retrieve. Routines to be run before and after the INIT are specified in the Environment Check Routine, Pre-init
after User Commit, and Post-Initialization Routine fields. The remaining fields are simply for documentation.
DD ACCESS: #
WR ACCESS: #
DEL ACCESS: #
LAYGO ACCESS: #
APPLICATION GROUP(S): XU
IDENTIFIED BY: PREFIX (#1)[R]
POINTED TO BY: PACKAGE field (#1.2) of the DIALOG File (#.84)
APPLICATION field (#3.1) of the ERROR TRAP SUMMARY File (#3.077)
PACKAGE FILE LINK field (#1) of the BUILD File (#9.6)
PACKAGE FILE LINK field (#1) of the INSTALL File (#9.7)
PACKAGE field (#.01) of the MERGE PACKAGES sub-field (#15.01101) of the DUPLICATE RECORD File (#15)
PACKAGE field (#12) of the OPTION File (#19)
OOS CALLING PACKAGE field (#50.02) of the HOSPITAL LOCATION File (#44)
PACKAGE field (#12) of the ORDER File (#100)
PACKAGE field (#.05) of the ORDER REASON File (#100.03)
PACKAGE field (#2) of the ORDER STATISTICS File (#100.1)
PACKAGE RESTRICTION field (#.07) of the OE/RR PRINT FIELDS File (#100.22)
TYPE OF ORDERS TO DC field (#.01) of the INCLUDED PACKAGES sub-field (#100.67) of the OE/RR AUTO-DC RULES File
(#100.6)
PACKAGE SITE PARAMETERS field (#.01) of the PACKAGE SITE PARAMETERS sub-field (#100.9901) of the ORDER PARAMETERS
File (#100.99)
PACKAGE PARAMETERS field (#.01) of the PACKAGE PARAMETERS sub-field (#100.995) of the ORDER PARAMETERS File
(#100.99)
PACKAGE field (#12) of the PROTOCOL File (#101)
PACKAGE field (#7) of the ORDER DIALOG File (#101.41)
OWNER PACKAGE field (#.05) of the ICD SEARCH API File (#130.4)
PACKAGE field (#.01) of the PACKAGE sub-field (#150.93) of the VISIT TRACKING PARAMETERS File (#150.9)
PACKAGE LINK field (#.07) of the EDP WORKSHEET COMPONENT File (#232.72)
CUSTODIAL PACKAGE field (#.01) of the VDEF CUSTODIAL PACKAGE File (#579.6)
PACKAGE field (#.02) of the HL7 MONITOR EVENT TYPE File (#776.3)
Package File Link field (#2) of the HLO APPLICATION REGISTRY File (#779.2)
DATA SOURCE field (#3) of the PREGNANCY STATUSES sub-field (#790.05) of the WV PATIENT File (#790)
DATA SOURCE field (#3) of the LACTATION STATUSES sub-field (#790.16) of the WV PATIENT File (#790)
PACKAGE field (#2) of the REMINDER GENERAL FINDINGS File (#801.46)
PACKAGE field (#3) of the NOIS PACKAGE File (#7105.5)
ALPHA/BETA TEST PACKAGE field (#.01) of the ALPHA/BETA TEST PACKAGE sub-field (#8989.332) of the KERNEL SYSTEM
PARAMETERS File (#8989.3)
ENTITY field (#.01) of the PARAMETERS File (#8989.5)
CREATING PACKAGE field (#.03) of the ALERT CRITICAL TEXT File (#8992.3)
PACKAGE field (#1.01) of the XULM LOCK DICTIONARY File (#8993)
PACKAGE field (#81202) of the VISIT File (#9000010)
PACKAGE field (#81202) of the V PROVIDER File (#9000010.06)
PACKAGE field (#81202) of the V POV File (#9000010.07)
PACKAGE field (#81202) of the V IMMUNIZATION File (#9000010.11)
PACKAGE field (#81202) of the V SKIN TEST File (#9000010.12)
PACKAGE field (#81202) of the V EXAM File (#9000010.13)
PACKAGE field (#81202) of the V TREATMENT File (#9000010.15)
PACKAGE field (#81202) of the V PATIENT ED File (#9000010.16)
PACKAGE field (#81202) of the V CPT File (#9000010.18)
PACKAGE field (#81202) of the V HEALTH FACTORS File (#9000010.23)
PACKAGE field (#81202) of the V IMM CONTRA/REFUSAL EVENTS File (#9000010.707)
PACKAGE field (#81202) of the V STANDARD CODES File (#9000010.71)
PACKAGE field (#81202) of the V IMMUNIZATION DELETED File (#9000080.11)
CROSS
REFERENCED BY: FILE AFFECTED(AMRG), FILE(AR), NAME(B), PREFIX(C), ADDITIONAL PREFIXES(C2), SYNONYM(E)
LAST MODIFIED: NOV 1,2018@17:06:02
9.4,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<4)!'(X'?1P.E) X
MAXIMUM LENGTH: 50
LAST EDITED: DEC 19, 2016
HELP-PROMPT: Answer must be 4-50 characters in length.
DESCRIPTION:
The name of this Package.
CROSS-REFERENCE: 9.4^B
1)= S ^DIC(9.4,"B",X,DA)=""
2)= K ^DIC(9.4,"B",X,DA)
9.4,1 PREFIX 0;2 FREE TEXT (Required)
NAMESPACE
INPUT TRANSFORM: K:$L(X)>4!(X'?1U1.3NU) X I $D(X) N %,%1,%2 S %="^DIC(9.4)" F %1="C","C2" S %2=$O(@%@(%1,X,0)) I %2>
0,%2-DA K X Q
LAST EDITED: FEB 23, 1989
HELP-PROMPT: Please enter the unique namespace prefix (2-4 characters, starting with an alpha).
DESCRIPTION: This is the unique namespace prefix assigned to the Package, e.g. XM for the MailMan routines and
globals, DI for the FileMan routines, etc. This field is appended to letters (like "INIT") to be
used as the names of INIT routines.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 9.4^C
1)= S ^DIC(9.4,"C",X,DA)=""
2)= K ^DIC(9.4,"C",X,DA)
9.4,2 SHORT DESCRIPTION 0;3 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>60!($L(X)<2) X
LAST EDITED: JUN 27, 1989
HELP-PROMPT: Answer must be 2-60 characters in length.
DESCRIPTION:
This is a brief description of this Package's functions.
9.4,3 DESCRIPTION 1;0 WORD-PROCESSING #9.41
DESCRIPTION:
This is a complete and detailed description of the Package's functions and capabilities.
9.4,6 FILE 4;0 POINTER Multiple #9.44 (Add New Entry without Asking)
LAST EDITED: APR 07, 1999
DESCRIPTION: Any FileMan files which are part of this Package are documented here. This multiple controls what
files (Data Dictionaries and Data) are sent in an INIT built from this Package entry.
9.44,.01 FILE 0;1 POINTER TO FILE FILE (#1) (Multiply asked)
REQUIRED FILES FOR THIS PACKAGE
INPUT TRANSFORM: S DIC("S")="I Y>1.9999" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 28, 1989
HELP-PROMPT: Please enter the name of a FILE that is known to VA FileMan.
DESCRIPTION: The name of a VA FileMan file which you wish to transport with this package. This may be any
file whose number is 2 or greater.
SCREEN: S DIC("S")="I Y>1.9999"
EXPLANATION: Select a file which is used by this package.
CROSS-REFERENCE: 9.44^B
1)= S ^DIC(9.4,DA(1),4,"B",X,DA)=""
2)= K ^DIC(9.4,DA(1),4,"B",X,DA)
CROSS-REFERENCE: 9.4^AR
1)= S ^DIC(9.4,"AR",$E(X,1,30),DA(1),DA)=""
2)= K ^DIC(9.4,"AR",$E(X,1,30),DA(1),DA)
9.44,2 FIELD 1;0 Multiple #9.45 (Add New Entry without Asking)
DESCRIPTION: The names of the FileMan Fields required by this Package. Enter data here ONLY if you wish to
send just selected fields from a Data Dictionary instead of the entire DD (i.e., a partial DD).
9.45,.01 FIELD 0;1 FREE TEXT (Multiply asked)
FIELDS REQUIRED FOR THE PACKAGE
INPUT TRANSFORM:S %=+^DIC(9.4,DA(2),4,DA(1),0),X=$S($L(X)>30:X,$D(^DD(%,"B",X)):X,X'?.NP:0,'$D(^DD(%,X,0)):0,1:$P
(^(0),U,1)) K:X=0 X
LAST EDITED: MAR 02, 1984
HELP-PROMPT: Please enter the name of a field.
DESCRIPTION: The name of a FileMan field required by this Package. This field is only to be filled in if you
wish to send only selected fields in an INIT of this file, instead of the full data dictionary.
(i.e., a partial DD).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:9.45^B
1)= S ^DIC(9.4,DA(2),4,DA(1),1,"B",X,DA)=""
2)= K ^DIC(9.4,DA(2),4,DA(1),1,"B",X,DA)
9.44,222.1 UPDATE THE DATA DICTIONARY 222;1 SET
'y' FOR YES;
'n' FOR NO;
LAST EDITED: JUN 27, 1989
DESCRIPTION: YES means that the Data Dictionary for this file should be updated when this version of the package
is installed.
NO means that this Data Dictionary has not changed since the last version, and therefore, need not
be updated.
If the Data Dictionary does not exist on the recipient system, then this field does not apply. The
DD will be put in place.
9.44,222.2 ASSIGN A VERSION NUMBER 222;2 SET
'y' FOR YES;
'n' FOR NO;
DESCRIPTION: YES means that you want to set ^DD(file#,0,"VR") to the version number of this package when the
init is finished.
NO means that you intend for the version number to remain as it is. This may mean that this DD has
no version number at all.
9.44,222.4 MAY USER OVERRIDE DD UPDATE 222;4 SET
'y' FOR YES;
'n' FOR NO;
DESCRIPTION: YES means that the user may decide at installation time whether or not to update the data
dictionary for this file.
NO means that the developer building the INIT is determining if the data dictionary is to be
updated.
9.44,222.7 DATA COMES WITH FILE 222;7 SET
'y' FOR YES;
'n' FOR NO;
OUTPUT TRANSFORM:NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 02, 1994
DESCRIPTION: YES means that the data should be included in the initialization routines.
NO means that the data should be left out.
9.44,222.8 MERGE OR OVERWRITE SITE'S DATA 222;8 SET
'm' FOR MERGE;
'o' FOR OVERWRITE;
LAST EDITED: JUN 27, 1989
DESCRIPTION: If the data being sent is to be MERGED, then only data which is not already on file at the
recipient site will be put in place.
If the data being sent is to OVERWRITE, then the data included in the initialization routines will
be put in place regardless of what is on file at the recipient site.
9.44,222.9 MAY USER OVERRIDE DATA UPDATE 222;9 SET
'y' FOR YES;
'n' FOR NO;
OUTPUT TRANSFORM:NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAY 02, 1994
DESCRIPTION: YES means that the user has the option to determine whether or not to bring in the data that has
been sent with the package. However, he does not get the ability to change from merge to overwrite
or from overwrite to merge.
No means that the developer of the INIT will control whether the data will be installed at the
target site.
9.44,223 SCREEN TO DETERMINE DD UPDATE 223;E1,245 MUMPS
INPUT TRANSFORM:K:$L(X)>240 X I $D(X) D ^DIM
LAST EDITED: SEP 27, 1989
HELP-PROMPT: This is Standard MUMPS code from 1 to 240 characters in length.
DESCRIPTION: This field contains standard MUMPS code which is used to determine whether or not a data dictionary
should be updated. This code must set $T. If $T=1, the DD will be updated. If $T=0, it will not.
This code will be executed within VA FileMan which may be being called from within MailMan which is
being called from within MenuMan. Namespace your variables.
WRITE AUTHORITY:@
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.4,7 PRINT TEMPLATE DIPT;0 Multiple #9.46
LAST EDITED: APR 07, 1999
DESCRIPTION: The names of Print Templates being sent with this Package. This multiple is used to send
non-namespaced templates in an INIT. Namespaced templates are sent automatically and need not be
listed separately.
9.46,.01 PRINT TEMPLATE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: NOV 17, 1982
HELP-PROMPT: Please enter the name of a Print Template (2-50 characters).
DESCRIPTION: The name of a Print Template being sent with this Package. This multiple is used to send
non-namespaced templates in an INIT. Namespaced templates are sent automatically and need not be
listed separately. Selected Fields for Export and Export templates cannot be sent; entering
their names here will have no effect.
9.46,2 FILE 0;2 POINTER TO FILE FILE (#1) (Required)
LAST EDITED: NOV 26, 1982
DESCRIPTION:
The FileMan file for this Print Template.
9.4,8 INPUT TEMPLATE DIE;0 Multiple #9.47
LAST EDITED: APR 07, 1999
DESCRIPTION: The names of the Input Templates being sent with this Package This multiple is used to send
non-namespaced templates in an INIT. Namespaced templates are sent automatically and need not be
listed separately.
IDENTIFIED BY: FILE(#2)[R]
9.47,.01 INPUT TEMPLATE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: NOV 17, 1982
HELP-PROMPT: Please enter the name of an Input Template (2-50 characters).
DESCRIPTION: The name of an Input Template being sent with this Package. This multiple is used to send
non-namespaced templates in an INIT. Namespaced templates are sent automatically and need not be
listed separately.
9.47,2 FILE 0;2 POINTER TO FILE FILE (#1) (Required)
LAST EDITED: NOV 26, 1982
DESCRIPTION:
The name of the FileMan file for this Input Template.
9.4,9 SORT TEMPLATE DIBT;0 Multiple #9.48
LAST EDITED: APR 07, 1999
DESCRIPTION: The names of the Sort Templates being sent with this Package. This multiple is used to send
non-namespaced templates in an INIT. Namespaced templates are sent automatically and need not be
listed separately.
9.48,.01 SORT TEMPLATE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: NOV 17, 1982
HELP-PROMPT: Please enter the name of a Sort Template (2-50 characters).
DESCRIPTION: The name of a Sort Template being sent with this Package. This multiple is used to send
non-namespaced templates in an INIT. Namespaced templates are sent automatically and need not be
listed separately.
9.48,2 FILE 0;2 POINTER TO FILE FILE (#1) (Required)
DESCRIPTION:
The FileMan file for this Sort Template.
9.4,9.1 SCREEN TEMPLATE (FORM) DIST;0 Multiple #9.485
LAST EDITED: APR 07, 1999
DESCRIPTION:
The names of Screen Templates (from the FORM file) associated with this package.
9.485,.01 SCREEN TEMPLATE (FORM) 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: MAR 20, 1991
HELP-PROMPT: Please enter the name of a Screen Template (Form), (2-50 characters).
DESCRIPTION:
The name of a Screen Template (from the FORM file) associated with this Package.
TECHNICAL DESCR: This list is originally created by the user for building an INIT, and allows the user to send
FORMS on an INIT that are outside the Package namespace. All BLOCKS associated with the FORMS
are also sent automatically.
9.485,2 FILE 0;2 POINTER TO FILE FILE (#1) (Required)
LAST EDITED: MAR 20, 1991
DESCRIPTION:
The name of the FileMan file for this Screen Template (FORM).
TECHNICAL DESCR:
This field must match the PRIMARY FILE field on the FORM file.
9.4,9.5 *MENU M;0 Multiple #9.495
LAST EDITED: JUN 03, 1994
DESCRIPTION:
This is the name of a menu-type option in another namespace.
9.495,.01 MENU 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 28, 1989
HELP-PROMPT: This is the name of a menu-type option outside this namespace.
DESCRIPTION: This is the name of an option NOT in this namespace. This option must be a menu, but it may not
exist on this system. You are entering this menu name because you want to add an option in this
package to a menu that is in another.
EXECUTABLE HELP: N DO,DIC S DIC="^DIC(19,",DIC(0)="QE",D="B",DIC("S")="I $P(^(0),U,4)=""M""" D DQ^DICQ
CROSS-REFERENCE: 9.495^B
1)= S ^DIC(9.4,DA(1),"M","B",$E(X,1,30),DA)=""
2)= K ^DIC(9.4,DA(1),"M","B",$E(X,1,30),DA)
9.495,.02 OPTION 0;2 POINTER TO OPTION FILE (#19) (Required)
INPUT TRANSFORM:S DIC("S")="I $P($P(^DIC(19,Y,0),U),$P(^DIC(9.4,DA(1),0),U,2))=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:
Y<0 X
LAST EDITED: SEP 28, 1989
DESCRIPTION:
This is an option which you wish to add to a menu in another namespace.
SCREEN: S DIC("S")="I $P($P(^DIC(19,Y,0),U),$P(^DIC(9.4,DA(1),0),U,2))="""""
EXPLANATION: Select an option in this namespace.
9.4,10 DEVELOPER (PERSON/SITE) DEV;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
HELP-PROMPT: Please enter the name of the principal Developer and Site (2-50 characters).
DESCRIPTION:
The name of the principal Developer and Site for this Package.
9.4,10.6 *LOWEST FILE NUMBER 11;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JUN 03, 1994
HELP-PROMPT: Type a Number between 0 and 999999999, 2 Decimal Digits
DESCRIPTION:
Inclusive lower bound of the range of file numbers allocated to this package.
9.4,11 *HIGHEST FILE NUMBER 11;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JUN 03, 1994
HELP-PROMPT: Type a Number between 0 and 999999999, 2 Decimal Digits
DESCRIPTION:
Inclusive upper bound of the range of file numbers assigned to this package.
9.4,11.01 DEVELOPMENT ISC 5;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3) X
LAST EDITED: AUG 15, 1984
HELP-PROMPT: Please enter the name of the ISC (3-20 characters).
DESCRIPTION:
The ISC responsible for the development and management of this Package.
9.4,11.3 CLASS 7;3 SET
'I' FOR National;
'II' FOR Inactive;
'III' FOR Local;
LAST EDITED: MAR 25, 1994
DESCRIPTION:
The ranking Class of this software Package.
9.4,13 CURRENT VERSION VERSION;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X
LAST EDITED: FEB 21, 1986
HELP-PROMPT: Enter the version of this package currently running, (1-8 characters).
DESCRIPTION: This field holds the version number of the package currently running at this site. When a package
initialization has been run, this field will be updated with the version number most recently
installed. This can be either using the old format (1.0, 16.04, etc.) or the new format (18.0T4,
19.1V2, etc.)
9.4,14 ADDITIONAL PREFIXES 14;0 Multiple #9.4014
LAST EDITED: MAR 02, 1999
9.4014,.01 ADDITIONAL PREFIXES 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>4!($L(X)<2)!'(X?1U1.3UN) X I $D(X) N %,%1,%2 S %="^DIC(9.4)" F %1="C","C2" S %2=$O(@%@(%1,X
,0)) I %2>0,%2-DA(1) K X Q
LAST EDITED: JUN 02, 1999
HELP-PROMPT: Answer must be 2-4 uppercase characters in length.
DESCRIPTION:
This multiple is to record additional PREFIXs that a package may have.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:9.4014^B
1)= S ^DIC(9.4,DA(1),14,"B",$E(X,1,30),DA)=""
2)= K ^DIC(9.4,DA(1),14,"B",$E(X,1,30),DA)
CROSS-REFERENCE:9.4^C2^MUMPS
1)= S ^DIC(9.4,"C2",X,DA(1),DA)=1
2)= K ^DIC(9.4,"C2",X,DA(1),DA)
3)= Keep
This X-ref sets the additional PREFIX into the "C" index so the standard lookup will find the
pachage with the PREFIX.
9.4,20 AFFECTS RECORD MERGE 20;0 POINTER Multiple #9.402
DESCRIPTION: This Multipule lists the files that will impact this package if a Record Merge is done on any of
the files in the list.
9.402,.01 FILE AFFECTED 0;1 POINTER TO FILE FILE (#1)
INPUT TRANSFORM: S DIC("S")="I $D(^DD(15,.01,""V"",""B"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: SEP 10, 1990
HELP-PROMPT: Pointer to a file that has been added to FILE 15's variable pointer.
DESCRIPTION:
A file that if merged will affect this package.
SCREEN: S DIC("S")="I $D(^DD(15,.01,""V"",""B"",Y))"
EXPLANATION: MUST BE VARIABLE POINTER FILE IN FIELD .01 OF FILE 15
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 9.402^B
1)= S ^DIC(9.4,DA(1),20,"B",$E(X,1,30),DA)=""
2)= K ^DIC(9.4,DA(1),20,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 9.4^AMRG
1)= S ^DIC(9.4,"AMRG",$E(X,1,30),DA(1),DA)=""
2)= K ^DIC(9.4,"AMRG",$E(X,1,30),DA(1),DA)
This xref is used by the merge process to determine if any package file entry affects the file
being merged.
9.402,3 NAME OF MERGE ROUTINE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<2)!'(X?1U1.7UN) X
LAST EDITED: AUG 16, 1990
HELP-PROMPT: Answer with a routine name (1U.1.7UN).
DESCRIPTION: This field holds the routine name to call when two records in an affected file are to be merged.
This allows the package to do any repointing or other clean-up needed before the records are
merged.
9.402,4 RECORD HAS PACKAGE DATA 1;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
LAST EDITED: AUG 16, 1990
HELP-PROMPT: This is Standard MUMPS code. To tell if this record has data in this package.
WRITE AUTHORITY: @
9.4,22 VERSION 22;0 Multiple #9.49
DESCRIPTION:
The version numbers of this Package.
IDENTIFIED BY: DATE DISTRIBUTED(#1)
9.49,.01 VERSION 0;1 FREE TEXT
INPUT TRANSFORM: K:'(X?1.3N.1".".2N.1A.2N)!(X>999)!(X'>0) X
LAST EDITED: MAR 22, 1991
HELP-PROMPT: Please enter the Version Number of this release. This can be either the old method (1.0, 16.04,
etc.) or the new (17T1, 6.0V2, etc.).
DESCRIPTION: The version number of this Package. This number is updated automatically when an INIT is built
for this package.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 9.49^B
1)= S ^DIC(9.4,DA(1),22,"B",$E(X,1,30),DA)=""
2)= K ^DIC(9.4,DA(1),22,"B",$E(X,1,30),DA)
9.49,1 DATE DISTRIBUTED 0;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 27, 1984
DESCRIPTION: The date this release was distributed. This field is updated automatically when an INIT is built
for this package.
9.49,2 DATE INSTALLED AT THIS SITE 0;3 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 02, 1984
DESCRIPTION: The date this release was installed at this site. This field is updated automatically when an
INIT is installed for this package.
9.49,3 INSTALLED BY 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 07, 1994
DESCRIPTION:
This is the person who installed this version at this site.
9.49,41 DESCRIPTION OF ENHANCEMENTS 1;0 WORD-PROCESSING #9.54
DESCRIPTION:
This is a description of the enhancements being distributed with this release.
LAST EDITED: APR 04, 1984
DESCRIPTION:
This is a description of the enhancements which are being distributed with this release.
9.49,1105 PATCH APPLICATION HISTORY PAH;0 Multiple #9.4901
9.4901,.01 PATCH APPLICATION HISTORY 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>15!($L(X)<8) X
LAST EDITED: APR 26, 1989
HELP-PROMPT: Answer must be 8-15 characters in length.
CROSS-REFERENCE: 9.4901^B
1)= S ^DIC(9.4,DA(2),22,DA(1),"PAH","B",$E(X,1,30),DA)=""
2)= K ^DIC(9.4,DA(2),22,DA(1),"PAH","B",$E(X,1,30),DA)
9.4901,.02 DATE APPLIED 0;2 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 05, 2006
HELP-PROMPT: (No range limit on date)
9.4901,.03 APPLIED BY 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: APR 26, 1989
9.4901,1 DESCRIPTION 1;0 WORD-PROCESSING #9.49011
DESCRIPTION:
This is a description of the patch being distributed with this release.
LAST EDITED: JUN 03, 1994
9.4,913 ENVIRONMENT CHECK ROUTINE PRE;1 FREE TEXT
DEVELOPERS ROUTINE RUN BEFORE 'INIT' QUESTIONS ASKED
INPUT TRANSFORM: K:$L(X)>8!($L(X)<3) X
LAST EDITED: APR 07, 1999
HELP-PROMPT: Enter name of developer's environment check routine (3-8 characters) that runs before any user
questions are asked. This routine should be used for environment check only and should not alter
data.
DESCRIPTION: The name of the developer's routine which is run at the beginning of the NAMESPACE_INIT routine.
This should just check the environment and should not alter any data, since the user has no way to
exit out of the INIT process until this program runs to completion.
TECHNICAL DESCR: A call to this routine gets inserted, by DIFROM at the beginning of the NAMESPACE_INIT routine,
before the EN entry point.
9.4,913.5 ENVIRONMENT CHECK DONE DATE PRE;2 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 07, 1999
DESCRIPTION: This is the date/time that the ENVIRONMENT CHECK routine last ran. When an INIT is run at a target
site, and it contains an ENVIRONMENT CHECK routine, this field is updated automatically.
9.4,914 POST-INITIALIZATION ROUTINE INIT;1 FREE TEXT
DEVELOPERS ROUTINE TO BRANCH TO AT END OF 'INIT' ROUTINE
INPUT TRANSFORM: K:$L(X)>8!($L(X)<3)!'(X?1UP.UN) X
LAST EDITED: APR 07, 1999
HELP-PROMPT: Enter the name of the developer's post-initialization routine (3-8 characters).
DESCRIPTION:
The name of the developer's routine which is run immediately after the installation of the package.
TECHNICAL DESCR: This routine gets inserted by DIFROM at the end of the NAMESPACE_INIT routine, after the INIT has
filed all the information, but before the quit statement.
9.4,914.5 POST-INIT COMPLETION DATE INIT;2 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 07, 1999
DESCRIPTION: This is the date/time that the POST-INIT last ran. When an INIT is run at a target site, and it
contains a POST-INIT routine, this field is updated automatically.
9.4,916 PRE-INIT AFTER USER COMMIT INI;1 FREE TEXT
DEVELOPERS ROUTINE RUN AFTER 'INIT' QUESTIONS ANSWERED
INPUT TRANSFORM: K:$L(X)>8!($L(X)<3) X
LAST EDITED: APR 07, 1999
HELP-PROMPT: Enter name of developer's pre-init routine (3-8 characters) that runs after user has answered all
INIT questions. Can be used for data conversions needed before INIT files new data.
DESCRIPTION: Name of the developer's routine that runs after the user has answered all of the questions in
NAMESPACE_INIT but before the INIT files any new data. Used for data conversions, etc. that the
developer needs to do before bringing in new data.
TECHNICAL DESCR: A call to this routine gets inserted, by DIFROM, into the NAMESPACE_INIT1 routine, after the user
has answered the last question 'ARE YOU SURE EVERYTHING'S OK?', but before filing any data.
9.4,916.5 PRE-INIT COMPLETION DATE INI;2 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 07, 1999
DESCRIPTION: This is the date/time that the PRE-INIT AFTER USER COMMIT last ran. When an INIT is run at a
target site, and it contains a PRE-INIT AFTER USER COMMIT routine, this field is updated
automatically.
9.4,919 EXCLUDED NAME SPACE EX;0 Multiple #9.432
LAST EDITED: JUN 02, 1999
DESCRIPTION: By specifying an "excluded name space", the developer will be telling the DIFROM routine not to
take OPTIONS, BULLETINS, etc. which begin with these characters. For example, if "PSZ" is an
excluded name space in the "PS" package, DIFROM will not send along OPTIONS, SECURITY KEYS,
BULLETINS, or FUNCTIONS that begin with "PSZ".
9.432,.01 EXCLUDED NAME SPACE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>7!($L(X)<2)!'(X?1U1UN.UN) X
LAST EDITED: NOV 28, 1984
HELP-PROMPT: Please enter the prefix of the excluded name space (2-7 characters).
DESCRIPTION: This specifies a sub-set of the Package's namespace which is not to be exported by the DIFROM
routines.
EXECUTABLE HELP:W !,?5,"When DIFROM builds '",$P(^DIC(9.4,D0,0),"^",2),"INIT',",!?5,"OPTIONS, FUNCTIONS, SECURITY K
EYS, and BULLETINS beginning with",!?5,"these characters WON'T be included.",!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.4,1938 MAIL GROUP MG;1 POINTER TO MAIL GROUP FILE (#3.8)
LAST EDITED: APR 08, 1999
DESCRIPTION: This field points to a mail group that will receive a mail message from KIDS when a package or
patch is installed.
9.4,1944 *BULLETINS ; COMPUTED MULTIPLE
MUMPS CODE: S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 S D=$O(^XMB(3.6,"B",X,0)) S:D="" D=-1 X:$D(^XMB(3.
6,D,0)) DICMX S X=$O(^XMB(3.6,"B",X)) I $P(X,XU,1)]""!(X="") S X="" Q
ALGORITHM: S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 Q:$P(X,XU,1)]""!(X="") S D=$O(^XMB(3.6,X,0)) S:D=
"" D=-1 X:$D(^XMB(3.6,D,0)) DICMX S X=$O(^XMB(3.6,"B",X))
LAST EDITED: JUN 06, 1994
DESCRIPTION:
This presents information about any BULLETINs which are distributed along with the Package.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.4,1945 *SECURITY KEYS ; COMPUTED MULTIPLE
MUMPS CODE: S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 X:$D(^XUSEC(X)) DICMX S X=$O(^XUSEC(X)) I $P(X,XU,
1)]""!(X="") S X="" Q
ALGORITHM: S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 X:$D(^XUSEC(X)) DICMX S X=$O(^XUSEC(X)) I $P(X,XU,
1)]""!(X="") S X="" Q
LAST EDITED: JUN 06, 1994
DESCRIPTION:
This describes the SECURITY KEYs which are distributed along with the Package.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.4,1946 *OPTIONS ; COMPUTED MULTIPLE
MUMPS CODE: S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 S D=$O(^DIC(19,"B",X,0)) S:D="" D=-1 X:$D(^DIC(19,
D,0)) DICMX S X=$O(^DIC(19,"B",X)) I $P(X,XU,1)]""!(X="") S X="" Q
ALGORITHM: S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 Q:$P(X,XU,1)]""!(X="") S D=$O(^DIC(19,"B",X,0)) S
:D="" D=-1 X:$D(^DIC(19,D,0)) DICMX S X=$O(^DIC(19,"B",X))
LAST EDITED: JUN 06, 1994
DESCRIPTION:
This lists information concerning the OPTIONs which are distributed along with the Package.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.4,15007 SYNONYM 15007;0 Multiple #9.415007
9.415007,.01 SYNONYM 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: OCT 20, 1994
HELP-PROMPT: Answer must be 2-30 characters in length.
CROSS-REFERENCE: 9.415007^B
1)= S ^DIC(9.4,DA(1),15007,"B",$E(X,1,30),DA)=""
2)= K ^DIC(9.4,DA(1),15007,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 9.4^E
1)= S ^DIC(9.4,"E",$E(X,1,30),DA(1),DA)=""
2)= K ^DIC(9.4,"E",$E(X,1,30),DA(1),DA)
This allow the lookup of a package other than it's official name. It is'nt used by the Kernel
VERSION function.
FILES POINTED TO FIELDS
FILE (#1) AFFECTS RECORD MERGE:FILE AFFECTED (#.01)
FILE:FILE (#.01)
PRINT TEMPLATE:FILE (#2)
INPUT TEMPLATE:FILE (#2)
SORT TEMPLATE:FILE (#2)
SCREEN TEMPLATE (FORM):FILE (#2)
MAIL GROUP (#3.8) MAIL GROUP (#1938)
NEW PERSON (#200) VERSION:INSTALLED BY (#3)
PATCH APPLICATION HISTORY:APPLIED BY (#.03)
OPTION (#19) *MENU:OPTION (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
CAPTIONED USER #0
DI-PKG-DEFAULT-DEFINITION JAN 11, 1993@14:05 USER #0 PACKAGE DEFAULT DEFINITION
XU-PKG-DEFAULT-DEFINITION JUL 06, 1989@16:01 USER #0 PACKAGE DEFAULT DEFINITION
SORT TEMPLATE(S):
DAVE B JUL 17, 2012@20:16 USER #42
FORM(S)/BLOCK(S):