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