STANDARD DATA DICTIONARY #9.6 -- BUILD FILE 3/24/25 PAGE 1 STORED IN ^XPD(9.6, (13421 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 Kernel Installation & Distribution System. All components of the package, i.e. templates, options, Security Keys, etc., must be listed in in this file. DD ACCESS: @ RD ACCESS: # WR ACCESS: # DEL ACCESS: # LAYGO ACCESS: # AUDIT ACCESS: # IDENTIFIED BY: PACKAGE FILE LINK (#1) "W1": D:$P(^(0),U,2) EN^DDIOL(" "_$$EXTERNAL^DILFD(9.6,1,"",$P(^(0),U,2)),"","?0") POINTED TO BY COMPUTED POINTER: BUILD(S) field (#21400) of the PRINT TEMPLATE File (#.4) BUILD(S) field (#21400) of the SORT TEMPLATE File (#.401) BUILD(S) field (#21400) of the INPUT TEMPLATE File (#.402) BUILD(S) field (#21400) of the FORM File (#.403) BUILD field (#21400) of the FILE File (#1) CROSS REFERENCED BY: NAME(B), PACKAGE FILE LINK(C) INDEXED BY: NAME (D) LAST MODIFIED: FEB 16,2024@14:15:40 9.6,.01 NAME 0;1 FREE TEXT INPUT TRANSFORM: D INPUTB^XPDET(.X) LAST EDITED: AUG 19, 2021 HELP-PROMPT: Enter Package or Patch Name and version in the format 'PACKAGE nn.n[V|T]n' or 'PATCH*nn.n*nn'. DESCRIPTION: The name and version number of this Package or Patch. i.e. KERNEL 8.0T1 or XU*8.0*1 NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 9.6^B 1)= S ^XPD(9.6,"B",$E(X,1,50),DA)="" 2)= K ^XPD(9.6,"B",$E(X,1,50),DA) FIELD INDEX: D (#471) REGULAR IR LOOKUP & SORTING Short Descr: Allows lookup without decimal on Version number Description: This cross reference will allow users to lookup entries in the BUILD file without a decimal in the Version number. Set Logic: S ^XPD(9.6,"D",$E(X,1,50),DA)="" Kill Logic: K ^XPD(9.6,"D",$E(X,1,50),DA) Whole Kill: K ^XPD(9.6,"D") X(1): NAME (9.6,.01) (Subscr 1) (Len 50) (forwards) Transform (Storage): S:$P(X,"*",2)'=+$P(X,"*",2) X=$P(X,"*")_"*"_+$P(X,"*",2)_"*"_$P(X,"*",3) 9.6,.02 DATE DISTRIBUTED 0;4 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: JUN 08, 1994 DESCRIPTION: The date this Build is distributed to the sites. 9.6,1 PACKAGE FILE LINK 0;2 POINTER TO PACKAGE FILE (#9.4) INPUT TRANSFORM: S DIC("S")="I $$PCK^XPDET(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X LAST EDITED: APR 25, 1994 DESCRIPTION: Enter this field only if you want to update the Package file when this package is installed at the recipient's site. You can only reference a Package with the same Name as your Build. If this is a patch, you can only reference a Package with the same Namespace as your Build. SCREEN: S DIC("S")="I $$PCK^XPDET(Y)" EXPLANATION: Must be the same Package Name or Namespace CROSS-REFERENCE: 9.6^C 1)= S ^XPD(9.6,"C",$E(X,1,30),DA)="" 2)= K ^XPD(9.6,"C",$E(X,1,30),DA) 9.6,2 TYPE 0;3 SET '0' FOR SINGLE PACKAGE; '1' FOR MULTI-PACKAGE; '2' FOR GLOBAL PACKAGE; LAST EDITED: JAN 05, 1995 DESCRIPTION: This field controls what can be sent as part of this Build. SINGLE PACKAGE can contain all Routines and all Build Components. MULTI-PACAGE contains only a list of other Builds. GLOBAL PACKAGE can contain Environment Check and Post-Install Routines and a list of Globals. 9.6,3 DESCRIPTION OF ENHANCEMENTS 1;0 WORD-PROCESSING #9.61 LAST EDITED: JUN 07, 1994 DESCRIPTION: A complete and detailed description of the Package's or Patch's enhancements and capabilities. 9.6,4 VERSION ; COMPUTED MUMPS CODE: S X=$$VER^XPDUTL($P($G(^XPD(9.6,D0,0)),U)) ALGORITHM: S X=$$VER^XPDUTL($P($G(^XPD(9.6,D0,0)),U)) DESCRIPTION: This field returns the version number for this package. 9.6,5 TRACK PACKAGE NATIONALLY 0;5 SET 'y' FOR YES; 'n' FOR NO; LAST EDITED: APR 22, 1994 DESCRIPTION: YES means you want to send a message to the National Package File on FORUM to track this package when it is installed at an installing site. NO means you don't want to generate a message. 9.6,6 FILE 4;0 POINTER Multiple #9.64 (Add New Entry without Asking) DESCRIPTION: Any FileMan files which are part of this Package are documented here. This multiple controls what files (Data Dictionaries and Data) are distributed from this Package entry. INDEXED BY: DATA COMES WITH FILE (AD) 9.64,.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 I $D(X) S DINUM=X LAST EDITED: NOV 04, 1993 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. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 9.64^B 1)= S ^XPD(9.6,DA(1),4,"B",X,DA)="" 2)= K ^XPD(9.6,DA(1),4,"B",X,DA) 9.64,.02 CHECKSUM 0;2 FREE TEXT INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X LAST EDITED: MAR 30, 1995 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This field contains the checksum for this Data Dictionary 9.64,1 DD NUMBER 2;0 Multiple #9.641 DESCRIPTION: DD NUMBER pertains to the top level of the file, file number, or a sub-file such as a multiple field. 9.641,.01 DD NUMBER 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) S X=$$CHKDD^DIFROMSD(D1,+$G(X),"N") K:X'>0 X S:$D(X) DINUM=+X,X=$P( X,"^",2) LAST EDITED: AUG 29, 1994 HELP-PROMPT: Enter a valid DD number for this file. DESCRIPTION: DD NUMBER pertains to the file's number or any multiple field contained within the file. This list starts with the file's top level number followed by a list of multiple fields contained within the file, if any. These DO NOT represent Field Number(s). The nesting levels are not represented. All the DD NUMBERs, file number and multiple fields, have been flatten to a single list. After selecting a valid DD NUMBER you will then be prompted to select field number(s). If a DD NUMBER is selected and no fields are selected, KIDS will send all the fields contained within, including multiple fields below the selected level. EXECUTABLE HELP:D DDIOLDD^DIFROMSD(D1) NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE:9.641^APDD^MUMPS 1)= S ^XPD(9.6,DA(2),4,"APDD",DA(1),DA)="" 2)= K ^XPD(9.6,DA(2),4,"APDD",DA(1),DA) Used to create an array structure containing Partial DDs. This array is passed to FIA^DIFROMSU as a list of DD numbers and fields to transport. 9.641,.02 CHECKSUM 0;2 FREE TEXT INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X LAST EDITED: MAR 30, 1995 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This field contains the checksum for this subDD 9.641,1 FIELD NUMBER 1;0 Multiple #9.6411 LAST EDITED: MAY 25, 1994 9.6411,.01 FIELD NUMBER 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) S X=$$FLDCHK^DIFROMSD(D2,+$G(X),"MN") K:X'>0 X S:$D(X) DINUM=+X,X =$P(X,"^",2) LAST EDITED: SEP 06, 1994 HELP-PROMPT:Enter a valid field NUMBER. DESCRIPTION: Select field(s) to be sent for this Partial Data Dictionary. Only the attributes for the field(s) selected are sent. Attributes such as identifers, "ID" nodes for a field, are not sent when sending a partial. Some attributes are considered file attributes, such as identifiers, and are only sent with a Full Data Dictionary. If the .01 field for a sub-file, multiple, is selected, the field at the level above, which points to the multiple, is automatically sent. If no field is selected, all fields will be sent, as well as the multiple fields below this level. EXECUTABLE HELP:D DDIOLFLD^DIFROMSD(D2,"M") NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE:9.64^APDD^MUMPS 1)= S ^XPD(9.6,DA(3),4,"APDD",DA(2),DA(1),DA)="" 2)= K ^XPD(9.6,DA(3),4,"APDD",DA(2),DA(1),DA) Used to create an array structure containing Partial DDs. This array is passed to FIA^DIFROMSU as a list of DD numbers and fields to transport. 9.6411,.02 CHECKSUM 0;2 FREE TEXT INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X LAST EDITED: MAR 30, 1995 HELP-PROMPT:Answer must be 3-30 characters in length. DESCRIPTION: This field contains the checksum for this field. 9.64,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, If the Data Dictionary does not exist at the installing site, then this field does not apply. The DD will be put in place. 9.64,222.2 SEND SECURITY CODE 222;2 SET 'y' FOR YES; 'n' FOR NO; LAST EDITED: FEB 11, 1994 DESCRIPTION:YES means you want to include the security protection currently on this file when it is distributed. The security protection will only be installed if the file is new at the installing site. NO means you do not want to include security codes. 9.64,222.3 SEND FULL OR PARTIAL DD 222;3 SET 'f' FOR FULL; 'p' FOR PARTIAL; LAST EDITED: DEC 20, 1994 NOTES: TRIGGERED by the DATA COMES WITH FILE field of the FILE sub-field of the BUILD File CROSS-REFERENCE:^^TRIGGER^9.64^222.7 1)= X ^DD(9.64,222.3,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XPD(9.6,D0,4,D1,222)):^(222),1:"") S X=$P(Y (1),U,7),X=X S DIU=X K Y S X=DIV S X="n" X ^DD(9.64,222.3,1,1,1.4) 1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9.64,222.3, 0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="PARTIAL" 1.4)= S DIH=$S($D(^XPD(9.6,DIV(0),4,DIV(1),222)):^(222),1:""),DIV=X S $P(^(222),U,7)=DIV,DIH=9.64,D IG=222.7 D ^DICR 2)= Q CREATE CONDITION)= SEND FULL OR PARTIAL DD="PARTIAL" CREATE VALUE)= "n" DELETE VALUE)= NO EFFECT FIELD)= #222.7 This cross-reference sets the DATA COMES WITH FILE field to 'NO' if the Data Dictionary is a PARTIAL. CROSS-REFERENCE:9.64^AC^MUMPS 1)= K:X="f" ^XPD(9.6,DA(1),4,DA,2),^XPD(9.6,DA(1),4,"APDD",DA) 2)= Q This cross-reference is to clean up the partial DD information when you send a Full DD. 9.64,222.5 RESOLVE POINTERS 222;5 SET 'y' FOR YES; 'n' FOR NO; LAST EDITED: MAY 21, 2003 DESCRIPTION:YES means you want to have all pointer type field values resolved at the installing site. NO means you do not want any pointer type field values resolved. 9.64,222.6 DATA LIST 222;6 FREE TEXT INPUT TRANSFORM:S X=$$SEL^DIFROMSS(D1,X) K:X="" X LAST EDITED: JUL 20, 1994 HELP-PROMPT:Select Sort Template containing the list of records to transport, for this file. DESCRIPTION:This is the results of a search, which is stored in a Sort template. This Sort list will contain the records to be transported. EXECUTABLE HELP:D HELP^DIFROMSS(D1) NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 9.64,222.7 DATA COMES WITH FILE 222;7 SET 'y' FOR YES; 'n' FOR NO; LAST EDITED: MAY 22, 2003 DESCRIPTION:YES means that the data should be included in the initialization routines. NO means that the data should be left out. NOTES: TRIGGERED by the SEND FULL OR PARTIAL DD field of the FILE sub-field of the BUILD File CROSS-REFERENCE:^^TRIGGER^9.64^222.3 1)= X ^DD(9.64,222.7,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XPD(9.6,D0,4,D1,222)):^(222),1:"") S X=$P(Y (1),U,3),X=X S DIU=X K Y S X=DIV S X="f" X ^DD(9.64,222.7,1,1,1.4) 1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9.64,222.7, 0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="YES" 1.4)= S DIH=$S($D(^XPD(9.6,DIV(0),4,DIV(1),222)):^(222),1:""),DIV=X S $P(^(222),U,3)=DIV,DIH=9.64,D IG=222.3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE CONDITION)= DATA COMES WITH FILE="YES" CREATE VALUE)= "f" DELETE VALUE)= NO EFFECT FIELD)= #222.3 This cross-reference sets the SEND FULL OR PATIAL DD field to FULL when sending data with a file. FIELD INDEX: AD (#249) MUMPS ACTION Short Descr: Delete fields if data no longer comes with file. Description: If DATA COMES WITH FILE (#222.7) is changed from YES (to NO or null), then make sure that any fields associated with data coming with the file are null. Set Logic: D ADXREF^XPDKRN Set Cond: S X=(X1(1)="y") Kill Logic: Q X(1): DATA COMES WITH FILE (9.64,222.7) 9.64,222.8 SITE'S DATA 222;8 SET 'a' FOR ADD ONLY IF NEW FILE; 'm' FOR MERGE; 'o' FOR OVERWRITE; 'r' FOR REPLACE; LAST EDITED: AUG 31, 1994 DESCRIPTION:ADD ONLY IF NEW will install data at the installing site only if this file is new to the site or there is no data in this file at the site. MERGE data will only bring in data which is not already on file at the installing site. OVERWRITE data will be put in place regardless of what is on file at the installing site. REPLACE will delete the installing site's data before installing data for this file. It will preserve locally developed fields, if they were created within the VA Programming Standards and Conventions. 9.64,222.9 MAY USER OVERRIDE DATA UPDATE 222;9 SET 'y' FOR YES; 'n' FOR NO; 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 this package. However, the user does not get the ability to change how to install the SITE'S DATA, i.e. MERGE to REPLACE. NO means that the developer of this package will control whether the data will be installed at the target site. 9.64,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. Namespace your variables. WRITE AUTHORITY:@ NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 9.64,224 SCREEN TO SELECT DATA 224;E1,245 MUMPS INPUT TRANSFORM:K:$L(X)>245 X D:$D(X) ^DIM LAST EDITED: JAN 19, 1994 HELP-PROMPT:This is Standard MUMPS code. DESCRIPTION:This field contains standard M code which is used to determine whether a record in a file should be exported in this package. The variable Y will be equal to the internal entry number of the current record. This code must set $T, if $T=1 then the record will be sent. If $T=0 it will not. WRITE AUTHORITY:@ 9.6,7 BUILD COMPONENTS KRN;0 POINTER Multiple #9.67 (Add New Entry without Asking) LAST EDITED: MAY 19, 1994 DESCRIPTION: The list of the components that make up a package. 9.67,.01 BUILD COMPONENT 0;1 POINTER TO FILE FILE (#1) (Multiply asked) INPUT TRANSFORM: S DINUM=+X K:'$G(XPDNEWF) X,DINUM LAST EDITED: AUG 15, 1994 DESCRIPTION: The name of a VA Fileman file that will be used as a component of a package. UNEDITABLE NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 9.67^B 1)= S ^XPD(9.6,DA(1),"KRN","B",$E(X,1,30),DA)="" 2)= K ^XPD(9.6,DA(1),"KRN","B",$E(X,1,30),DA) 9.67,10 ENTRIES NM;0 Multiple #9.68 (Add New Entry without Asking) DESCRIPTION: This multiple is a list of each record that is being sent for a component. 9.68,.01 ENTRIES 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM: K:$L(X)>45!($L(X)<2) X I $D(X) D INPUTE^XPDET(.X) LAST EDITED: MAY 17, 1994 HELP-PROMPT: Answer must be 3-45 characters in length. DESCRIPTION: The name of the component being sent. The component must exist in the pointed-to file. You can use '*' as a wild card character, i.e. XUS* means all components begining with XUS. You can also preceed the component with '-' to delete it from the list. EXECUTABLE HELP: D HELP^XPDET PRE-LOOKUP: D LOOKE^XPDET(.X) NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 9.68^B 1)= S ^XPD(9.6,DA(2),"KRN",DA(1),"NM","B",X,DA)="" 2)= K ^XPD(9.6,DA(2),"KRN",DA(1),"NM","B",X,DA) CROSS-REFERENCE: ^^TRIGGER^9.68^.02 1)= X ^DD(9.68,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^XPD(9.6,D0,"KRN",D1,"NM",D2,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9.68,.01,1,2,1.1) X ^DD(9.68,.01,1,2,1.4) 1.1)= S X=DIV S X=DIV,Y(1)=X S X=" FILE #",Y(2)=X S X=2,X=$P(Y(1),Y(2),X) 1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S Y(1)=$S($D(^XP D(9.6,D0,"KRN",D1,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S X=X<.44 1.4)= S DIH=$S($D(^XPD(9.6,DIV(0),"KRN",DIV(1),"NM",DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV, DIH=9.68,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE CONDITION)= INTERNAL(KERNEL FILES)<.44 CREATE VALUE)= $P(ENTRIES," FILE #",2) DELETE VALUE)= NO EFFECT FIELD)= FILE This trigger updates the FILE field, #.02, with the appropriate file number for this template. It is only triggered for Fileman template components. 9.68,.02 FILE 0;2 POINTER TO FILE FILE (#1) (Required) LAST EDITED: OCT 20, 1993 DESCRIPTION: The Fileman file for this Entry. WRITE AUTHORITY:^ NOTES: TRIGGERED by the ENTRIES field of the ENTRIES sub-field of the BUILD COMPONENTS sub-field of the BUILD File 9.68,.03 ACTION 0;3 SET (Required) '0' FOR SEND TO SITE; '1' FOR DELETE AT SITE; '2' FOR USE AS LINK FOR MENU/ITEM/SUBSCRIBERS; '3' FOR MERGE MENU ITEMS; '4' FOR ATTACH TO MENU; '5' FOR DISABLE DURING INSTALL; LAST EDITED: MAY 20, 2009 DESCRIPTION: This is the action you want performed at the installing site on the entry of the component you are sending for this package. SCREEN: S DIC("S")="I $$SCRA^XPDET(Y)" EXPLANATION: Enter a number 9.68,.04 CHECKSUM 0;4 FREE TEXT INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X LAST EDITED: MAR 30, 1995 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This field contains the checksum for this component. 9.6,10 MULTIPLE BUILD 10;0 Multiple #9.63 LAST EDITED: SEP 04, 1996 DESCRIPTION: This multiple contains other Builds that will be sent with this package for a multi-package distribution. It can also contain a list of patches that was rolled up into this Build. The Type field is used to distinguish the difference in its use. 9.63,.001 INSTALL ORDER NUMBER INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."3N.N) X LAST EDITED: NOV 17, 1998 HELP-PROMPT: Type a Number between 1 and 999, 2 Decimal Digits DESCRIPTION: This is the order in which this package will be installed. 9.63,.01 MULTIPLE BUILD 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X I $D(X) D INPUTMB^XPDET(.X) LAST EDITED: SEP 04, 1996 HELP-PROMPT: Enter a Build name DESCRIPTION: Name of Build that will be part of this multi-package distribution or a patch that is part of this Build definition. EXECUTABLE HELP: D HELPMB^XPDET NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 9.63^B 1)= S ^XPD(9.6,DA(1),10,"B",X,DA)="" 2)= K ^XPD(9.6,DA(1),10,"B",X,DA) 9.63,.02 REQUIRED TO CONTINUE 0;2 SET '1' FOR YES; '0' FOR NO; LAST EDITED: NOV 18, 1998 DESCRIPTION: YES: If this distribution fails KID's internal checks it will be unloaded automatically along with all other distributions in this multi-build. No user interaction will take place. NO: If this distributuion fails KID's internal checks the user will choose to either 'load it' or 'skip it' and continue with the other distributions. 9.6,11 REQUIRED BUILD REQB;0 Multiple #9.611 9.611,.01 REQUIRED BUILD 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X I $D(X) D INPUTMB^XPDET(.X) LAST EDITED: SEP 04, 1996 HELP-PROMPT: Enter a Build name DESCRIPTION: Enter a Build name, a patch or package, that is required to be installed before this Build is installed. KIDS will check the Package file, Version multiple and Patch Application History multiple, to verify that the Required Build has been installed. EXECUTABLE HELP: D HELPMB^XPDET NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 9.611^B 1)= S ^XPD(9.6,DA(1),"REQB","B",X,DA)="" 2)= K ^XPD(9.6,DA(1),"REQB","B",X,DA) 9.611,1 ACTION 0;2 SET (Required) '0' FOR Warning only; '1' FOR Don't install, remove global; '2' FOR Don't install, leave global; LAST EDITED: SEP 05, 1996 DESCRIPTION: This is the action you want to happen when installing this Build and the Required Build has not been installed at the site. 9.6,20 ALPHA/BETA TESTING ABPKG;1 SET 'y' FOR YES; 'n' FOR NO; LAST EDITED: MAR 07, 1994 DESCRIPTION: YES means this package is currently in alpha or beta test and that you want to track option usage and errors relating to this package at the sites. NO means that you want to discontinue tracking of alpha or beta testing at sites. 9.6,21 INSTALLATION MESSAGE ABPKG;2 SET 'y' FOR YES; 'n' FOR NO; LAST EDITED: MAR 07, 1994 DESCRIPTION: YES means you want a Installation Message sent when this package is installed at a site. The message will be sent to the mailgroup in the 'ADDRESS FOR USAGE REPORTING' field. 9.6,22 ADDRESS FOR USAGE REPORTING ABPKG;3 FREE TEXT INPUT TRANSFORM: K:$L(X)>60!($L(X)<5)!(X'?1"G."1U.E1"@"1U.E) X I $D(X) N DIC,XPD S DIC=4.2,DIC(0)="QEM",XPD=X,X=$P(X ,"@",2) D ^DIC S:Y>0 X=$P(XPD,"@")_"@"_$P(Y,U,2) K:Y<0 X LAST EDITED: MAR 08, 1994 HELP-PROMPT: Answer should be a group addressee network mail format (e.g., G.PKG-TEST@ISC-ANYWHERE) DESCRIPTION: This field contains a mail group at a domain to which installation, option usage, and error messages are sent. This is usually a mail group containing one or more of the developers of the package at the developing ISC. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 9.6,23 PACKAGE NAMESPACE OR PREFIX ABNS;0 Multiple #9.66 (Add New Entry without Asking) DESCRIPTION: This multiple field is used to identify the namespace or prefixes used to identify the options and routines associated with the alpha or beta test package. 9.66,.01 PACKAGE NAMESPACE OR PREFIX 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM: K:$L(X)>4!($L(X)<2) X LAST EDITED: MAR 07, 1994 HELP-PROMPT: This is (one of) the 2 to 4 character namespaces or prefixes associated with the test package DESCRIPTION: This field identifies on of the alpha/beta package namespaces. CROSS-REFERENCE: 9.66^B 1)= S ^XPD(9.6,DA(1),"ABNS","B",$E(X,1,30),DA)="" 2)= K ^XPD(9.6,DA(1),"ABNS","B",$E(X,1,30),DA) 9.66,1 EXCLUDE NAMESPACE OR PREFIX 1;0 Multiple #9.661 (Add New Entry without Asking) DESCRIPTION: This multiple field is used to indicate any specific namespaces or prefixes which begin with the current namespace or prefix which should be excluded from analyses for the alpha/beta package. Generally those namespaces which are immediately followed by the letter 'Z' are excluded. 9.661,.01 EXCLUDE NAMESPACE OR PREFIX 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM: K:$L(X)>4!($L(X)<2) X LAST EDITED: MAR 07, 1994 HELP-PROMPT: Answer must be 2-4 characters in length. DESCRIPTION: This is a specific namespace or prefix which would normally be included as a part of the alpha/beta package based on the prefix specified for the package, but is be excluded from consideration as part of the alpha/beta package. CROSS-REFERENCE: 9.661^B 1)= S ^XPD(9.6,DA(2),"ABNS",DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^XPD(9.6,DA(2),"ABNS",DA(1),1,"B",$E(X,1,30),DA) 9.6,30 GLOBAL GLO;0 Multiple #9.65 DESCRIPTION: This multiple contains the globals to transport with KIDS. 9.65,.01 GLOBAL 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM: D GLOBALE^XPDET(.X) OUTPUT TRANSFORM: S Y=$TR(Y,"'","""") LAST EDITED: JAN 06, 1995 HELP-PROMPT: Answer must be 2-30 characters in length and not begining with "^". DESCRIPTION: Enter a global name or a closed global root you want to transport. The global should not begin with a "^". i.e. %ZIS(2). PRE-LOOKUP: S X=$TR(X,"""","'") NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 9.65^B 1)= S ^XPD(9.6,DA(1),"GLO","B",$E(X,1,30),DA)="" 2)= K ^XPD(9.6,DA(1),"GLO","B",$E(X,1,30),DA) 9.65,1 KILL GLOBAL BEFORE INSTALL 0;2 SET 'y' FOR YES; 'n' FOR NO; LAST EDITED: JAN 05, 1995 DESCRIPTION: YES means that you want this global killed before it is installed at the installing site. NO means you want this global install on top of the existing global at the installing site. 9.6,50 INSTALL QUESTIONS QUES;0 Multiple #9.62 DESCRIPTION: These are the Install questions that will be asked at the installing site. All questions will use the VA Fileman Reader (DIR) and all variables need to be defined in this multiple. Only the ENVIROMENT CHECK ROUTINE will be loaded at the installing site when these questions are asked. 9.62,.01 SUBSCRIPT 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM: K:$L(X)>30!'(X?1"PRE".E!(X?1"POS".E)) X LAST EDITED: NOV 29, 1993 HELP-PROMPT: Answer must begin with "PRE" or "POS" and can be up to 30 characters in length. DESCRIPTION: This field will be used as the subscript of the users answer to the Install Questions. The first 3 character should be either "PRE" or "POS" to indicate whether the question should be asked during the pre-init or during the post-init. The answers will be in the XPDQUES array, example: If this field was set to 'PRE1 QUESTION' then XPDQUES("PRE1 QUESTION") = user response. This field is also used to determine the order of the questions. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 9.62^B 1)= S ^XPD(9.6,DA(1),"QUES","B",$E(X,1,30),DA)="" 2)= K ^XPD(9.6,DA(1),"QUES","B",$E(X,1,30),DA) 9.62,1 DIR(0) 1;E1,245 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>240!($L(X)<1) X LAST EDITED: NOV 23, 1993 HELP-PROMPT: Answer must be 1-240 characters in length. DESCRIPTION: This is the DIR(0) variable for the VA Fileman DIR routine. 9.62,2 DIR(A) A;E1,245 FREE TEXT INPUT TRANSFORM: K:$L(X)>240!($L(X)<1) X LAST EDITED: NOV 22, 1993 HELP-PROMPT: Answer must be 1-240 characters in length. DESCRIPTION: This is the DIR("A") variable for the VA Fileman DIR routine. 9.62,3 DIR(A,#) A1;0 WORD-PROCESSING #9.623 (NOWRAP) DESCRIPTION: This is the DIR("A",#) array for the VA Fileman DIR routine. LAST EDITED: NOV 22, 1993 9.62,4 DIR(B) B;1 FREE TEXT INPUT TRANSFORM: K:$L(X)>79!($L(X)<1) X LAST EDITED: NOV 22, 1993 HELP-PROMPT: Answer must be 1-79 characters in length. DESCRIPTION: This is the DIR("B") variable for the VA Fileman DIR routine. 9.62,5 DIR(?) Q;E1,245 FREE TEXT INPUT TRANSFORM: K:$L(X)>240!($L(X)<1) X LAST EDITED: NOV 22, 1993 HELP-PROMPT: Answer must be 1-240 characters in length. DESCRIPTION: This is the DIR("?") variable for the VA Fileman DIR routine. 9.62,6 DIR(?,#) Q1;0 WORD-PROCESSING #9.626 (NOWRAP) DESCRIPTION: This is the DIR("?",#) array for the VA Fileman DIR routine. LAST EDITED: NOV 22, 1993 9.62,7 DIR(??) QQ;E1,245 FREE TEXT INPUT TRANSFORM: K:$L(X)>240!($L(X)<3) X LAST EDITED: NOV 22, 1993 HELP-PROMPT: Answer must be 3-240 characters in length. DESCRIPTION: This is the DIR("??") variable for the VA Fileman DIR routine. 9.62,10 M CODE M;E1,245 MUMPS INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM LAST EDITED: NOV 29, 1993 HELP-PROMPT: This is Standard MUMPS code. DESCRIPTION: This field contains standard M code which will be executed after the DIR array has been set from the previous fields, but before the call to the DIR routine. If the developer doesn't want to ask a question, kill the DIR array. The array XPDQUES(SUBSCRIPT)=internal answer will be defined for all questions asked. This code can only make references to the ENVIORMENT CHECK ROUTINE, since it will be the only routine loaded at this time. WRITE AUTHORITY: @ 9.6,51.01 XPF1 QDEF;1 SET 'YES' FOR YES; 'NO' FOR NO; LAST EDITED: JUN 19, 2007 DESCRIPTION: Place holder for developer default answer. Not used at this time. 9.6,51.03 XPF2 QDEF;3 SET 'YES' FOR YES; 'NO' FOR NO; LAST EDITED: JUN 21, 2007 DESCRIPTION: Place holder for developer default answer. Not used at this time. TECHNICAL DESCR: The order and location of these fields are setup to match the order and index in QUESTION^XPDTC. 9.6,51.05 XPI1 QDEF;5 SET 'YES' FOR YES; 'NO' FOR NO; LAST EDITED: JUN 19, 2007 DESCRIPTION: This field holds the developer default for the Install question XPI1. 9.6,51.07 XPM1 QDEF;7 SET 'YES' FOR YES; 'NO' FOR NO; LAST EDITED: JUN 21, 2007 DESCRIPTION: Place holder for developer default answer. Not used at this time. 9.6,51.09 XPO1 QDEF;9 SET 'YES' FOR YES; 'NO' FOR NO; LAST EDITED: JUN 19, 2007 DESCRIPTION: This field holds the developer default for the Install question XPO1. 9.6,51.11 XPZ1 QDEF;11 SET 'YES' FOR YES; 'NO' FOR NO; LAST EDITED: JUN 19, 2007 DESCRIPTION: This field holds the developer default for the Install question XPZ1. 9.6,51.13 XPZ2 QDEF;13 SET 'YES' FOR YES; 'NO' FOR NO; LAST EDITED: JUN 19, 2007 DESCRIPTION: Place holder for developer default answer. Not used at this time. 9.6,61 BUILD VERSION# 6;1 NUMBER INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X LAST EDITED: MAR 02, 2021 HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits DESCRIPTION: This is the build version number used in the File Comment field for Host Files or in the Subject for PackMan messages. 9.6,62 SEQ# 6;2 NUMBER INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X LAST EDITED: DEC 16, 2019 HELP-PROMPT: Type a number between 1 and 9999, 0 decimal digits. DESCRIPTION: This is just a place holder to reserve the database location in the INSTALL file. 9.6,63 TRANSPORT BUILD NUMBER 6.3;1 NUMBER Transport Build Number INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1.N) X LAST EDITED: JUN 19, 2006 HELP-PROMPT: Type a number between 0 and 999, 0 Decimal Digits DESCRIPTION: This field holds the Transport Build Number for this package or patch. It is incremented by one every time there is a KIDS transport done. It should not be edited. During the KIDS transport this build number will be inserted into the 7th piece of the second line. During the testing of a package or patch this gives a way for support to know if the most current routines are loaded. 9.6,900 PRE-TRANSPORTATION ROUTINE PRET;E1,240 FREE TEXT INPUT TRANSFORM: K:$L(X)>66!($L(X)<3)!'(X?.1UP.15UN.1"^"1UP.15UN.1"(".E) X MAXIMUM LENGTH: 66 LAST EDITED: OCT 25, 2022 HELP-PROMPT: Enter a routine, [TAG^]ROUTINE[(parameters)], 3 to 66 characters. DESCRIPTION: The name of the routine which is run before the Transport Global is sent. You can use this routine to add nodes to the Transport Global. The variable XPDGREF will be defined to a closed global root that could be used to set the nodes. example: S @XPDGREF@("mydata",1,0)="node one of data" NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 9.6,913 ENVIRONMENT CHECK ROUTINE PRE;1 FREE TEXT DEVELOPERS ROUTINE RUN BEFORE 'INIT' QUESTIONS ASKED INPUT TRANSFORM: K:$L(X)<3!(X'?1U.15UN) X MAXIMUM LENGTH: 16 LAST EDITED: MAR 07, 2016 HELP-PROMPT: Enter name of developer's environment check routine (3-16 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 install process. This should just check the environment and should not alter any data, since the user has no way to exit out of the install process until this program runs to completion. This routine can interact with the user. If the variable XPDQUIT is set, the install process will terminate. Note: This routine must be self-contained, since it will be the only routine installed from this package at this time. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 9.6,913.1 DELETE ENV ROUTINE INID;1 SET 'y' FOR Yes; 'n' FOR No; LAST EDITED: MAR 07, 2016 HELP-PROMPT: Enter 'Yes' if you want the Environment Check Routine deleted at the end of the install. DESCRIPTION: Setting this field to YES will instruct KIDS to delete the Environment Check Routine at the end of the install. 9.6,914 POST-INSTALL ROUTINE INIT;E1,240 FREE TEXT INPUT TRANSFORM: K:$L(X)>66!($L(X)<3)!(X'?.1UP.15UN.1"^"1UP.15UN.1"(".E) X MAXIMUM LENGTH: 66 LAST EDITED: OCT 25, 2022 HELP-PROMPT: Enter the name of the developer's post-initialization [TAG^]ROUTINE[(parameters)], 3 to 66 characters. DESCRIPTION: The name of the developer's routine which is run immediately after the installation of the package. This routine cannot be interactive with the user, it might be queued to run at a later time. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 9.6,914.1 DELETE POST-INIT ROUTINE INID;2 SET 'y' FOR Yes; 'n' FOR No; LAST EDITED: APR 15, 1999 DESCRIPTION: Setting this field to YES will instruct KIDS to delete the Post-INIT Routine at the end of the install. 9.6,916 PRE-INSTALL ROUTINE INI;E1,240 FREE TEXT INPUT TRANSFORM: K:$L(X)>66!($L(X)<3)!(X'?.1UP.15UN.1"^".1UP.15UN.1"(".E) X MAXIMUM LENGTH: 66 LAST EDITED: OCT 25, 2022 HELP-PROMPT: Enter name of developer's pre-init [TAG^]ROUTINE[(parameters)], 3 to 66 characters. DESCRIPTION: Name of the developer's routine that runs after the user has answered all of the questions, but before any data or DD has been installed. All of the routines for this package will already be installed. Used for data conversions, etc. that the developer needs to do before bringing in new data. This routine cannot be interactive with the user, it might be queued to run at a later time. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 9.6,916.1 DELETE PRE-INIT ROUTINE INID;3 SET 'y' FOR Yes; 'n' FOR No; LAST EDITED: APR 15, 1999 DESCRIPTION: Setting this field to YES will instruct KIDS to delete the Pre-INIT Routine at the end of the install. 9.6,917 RESTORE ROUTINE REST;E1,240 FREE TEXT INPUT TRANSFORM: K:$L(X)>66!($L(X)<3)!(X'?1UP.15UN.1"^"1UP.15UN.1"(".E) X MAXIMUM LENGTH: 66 LAST EDITED: OCT 18, 2023 HELP-PROMPT: Enter the developer's Restore Routine [TAG^]ROUTINE, that will be used if the patch is backed out, 3 to 66 characters. DESCRIPTION: Name of the developer's routine that will become the POST-INSTALL ROUTINE in the back up Build. This routine should be used to delete any new files, fields, or data. It cannot be interactive with the user. Note: This routine must be self-contained, since it will be the only routine installed from this package during the backup. TECHNICAL DESCR: This routine should not be listed in the Kernel Components under ROUTINE nor in any of the other routine fields in this build. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER FILES POINTED TO FIELDS FILE (#1) FILE:FILE (#.01) BUILD COMPONENTS:BUILD COMPONENT (#.01) ENTRIES:FILE (#.02) PACKAGE (#9.4) PACKAGE FILE LINK (#1) INPUT TEMPLATE(S): XPD EDIT BUILD NOV 05, 1993@14:21 USER #0 PRINT TEMPLATE(S): XPD BUILD ENTRY APR 05, 1994@08:15 USER #0 BUILD ENTRY SORT TEMPLATE(S): XPD DISPLAY ENTRY APR 04, 1994@15:15 USER #0 SORT BY: @NUMBER// (User is asked range) WITHIN NUMBER, SORT BY: BUILD COMPONENTS// BUILD COMPONENTS SUB-FIELD: ENTRIES// ENTRIES SUB-FIELD: ENTRIES// FORM(S)/BLOCK(S): XPD EDIT BUILD NOV 04, 1993 USER #0 XPD EDIT BUILD HDR DD #9.6 XPD EDIT BUILD1 DD #9.6 XPD EDIT BUILD2 DD #9.6 XPD EDIT BUILD30 DD #9.67 XPD EDIT BUILD3 DD #9.68 XPD EDIT BUILD31 DD #9.67 XPD EDIT BUILD40 DD #9.64 XPD EDIT BUILD41 DD #9.6 XPD EDIT BUILD4 DD #9.64 XPD EDIT BUILD8 DD #9.6 XPD EDIT BUILD60 DD #9.6 XPD EDIT BUILD9 DD #9.6 XPD EDIT BUILD9A DD #9.66 XPD EDIT BUILD10 DD #9.66 XPD EDIT BUILD10A DD #9.661 XPD EDIT BUILD42 DD #9.641 XPD EDIT BUILD44 DD #9.64 XPD EDIT BUILD43 DD #9.6411 XPD EDIT BUILD45 DD #9.641 XPD EDIT BUILD46 DD #9.64 XPD EDIT BUILD11 DD #9.6 XPD EDIT BUILD12 DD #9.62 XPD EDIT BUILD52 DD #9.611 XPD EDIT BUILD7 DD #9.62 XPD EDIT BUILD5D DD #9.6 XPD EDIT GP SEP 06, 1996@09:35 USER #0 XPD EDIT HDR DD #9.6 XPD EDIT GP1 DD #9.6 XPD EDIT GP3 DD #9.65 XPD EDIT MP SEP 06, 1996@08:24 USER #0 XPD EDIT MP1 DD #9.6 XPD EDIT HDR DD #9.6 XPD EDIT MP2 DD #9.63 XPD EDIT MP3 DD #9.6