Ignore:
Timestamp:
Dec 4, 2009, 12:11:15 AM (14 years ago)
Author:
George Lilly
Message:

revised back to 6/30/08 version

File:
1 edited

Legend:

Unmodified
Added
Removed

  • WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F0.m

    r613 r623  
    1 DINIT0F0        ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;4APR2007
    2         ;;22.0;VA FileMan;**152**;Mar 30, 1999;Build 10
    3         ;Per VHA Directive 2004-038, this routine should not be modified.
    4         D PRE^DINIT29P
    5         F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F1 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
    6         Q
    7 ENTRY   ;
    8         ;;^DIST(.403,.001,0)
    9         ;;=DICATT^@^@^^2981031.1257^2990319.1306^^1^0^1^1
    10         ;;^DIST(.403,.001,1)
    11         ;;=2000000
    12         ;;^DIST(.403,.001,3)
    13         ;;=3000000
    14         ;;^DIST(.403,.001,4)
    15         ;;=N
    16         ;;^DIST(.403,.001,5)
    17         ;;=Y
    18         ;;^DIST(.403,.001,6)
    19         ;;=N
    20         ;;^DIST(.403,.001,7)
    21         ;;=N
    22         ;;^DIST(.403,.001,15,0)
    23         ;;=^^36^36^2981214
    24         ;;^DIST(.403,.001,15,1,0)
    25         ;;=Pages: 1          Main form
    26         ;;^DIST(.403,.001,15,2,0)
    27         ;;=       1.1, 1.2   DESCRIPTION and TECHNICAL DESCRIPTION  text
    28         ;;^DIST(.403,.001,15,3,0)
    29         ;;=       2.1-2.8    TYPE-specific   (2.1=DATE, etc)
    30         ;;^DIST(.403,.001,15,4,0)
    31         ;;=       3          SUBSCRIPT & PIECE-position
    32         ;;^DIST(.403,.001,15,5,0)
    33         ;;=       4          SUBSCRIPT & SUB-DICTIONARY NUMBER
    34         ;;^DIST(.403,.001,15,6,0)
    35         ;;=       5          Multiples
    36         ;;^DIST(.403,.001,15,7,0)
    37         ;;=       6          SCREEN for Pointers & Sets
    38         ;;^DIST(.403,.001,15,8,0)
    39         ;;=       8          VARIABLE-POINTER extra fields for each pointer
    40         ;;^DIST(.403,.001,15,9,0)
    41         ;;=       9          "ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD?"
    42         ;;^DIST(.403,.001,15,10,0)
    43         ;;=      10          Multiple-field
    44         ;;^DIST(.403,.001,15,11,0)
    45         ;;=                                                 
    46         ;;^DIST(.403,.001,15,12,0)
    47         ;;=
    48         ;;^DIST(.403,.001,15,13,0)
    49         ;;=
    50         ;;^DIST(.403,.001,15,14,0)
    51         ;;=Branching logic:
    52         ;;^DIST(.403,.001,15,15,0)
    53         ;;=              From Field 20.5 ("MULTIPLE?")
    54         ;;^DIST(.403,.001,15,16,0)
    55         ;;=       IS THIS FIELD NEW AND IS THE USER A PROGRAMMER?
    56         ;;^DIST(.403,.001,15,17,0)
    57         ;;=          |                                      |
    58         ;;^DIST(.403,.001,15,18,0)
    59         ;;=         NO                                     YES
    60         ;;^DIST(.403,.001,15,19,0)
    61         ;;=          |                                      |
    62         ;;^DIST(.403,.001,15,20,0)
    63         ;;=          |                               IS FIELD MULTIPLE?
    64         ;;^DIST(.403,.001,15,21,0)
    65         ;;=          |                                |              |
    66         ;;^DIST(.403,.001,15,22,0)
    67         ;;=          |                               YES            NO
    68         ;;^DIST(.403,.001,15,23,0)
    69         ;;=          |                                |              |
    70         ;;^DIST(.403,.001,15,24,0)
    71         ;;=IS FIELD EDITABLE & MULTIPLE?              |              |
    72         ;;^DIST(.403,.001,15,25,0)
    73         ;;=   |                    |                  |              |
    74         ;;^DIST(.403,.001,15,26,0)
    75         ;;=   |                   YES  --------->  Page 5         Page 3
    76         ;;^DIST(.403,.001,15,27,0)
    77         ;;=   |                                       |              |
    78         ;;^DIST(.403,.001,15,28,0)
    79         ;;=   |                                 PROGRAMMER?          |
    80         ;;^DIST(.403,.001,15,29,0)
    81         ;;=   |                                  |        |          |
    82         ;;^DIST(.403,.001,15,30,0)
    83         ;;=   |                                 YES      NO          |
    84         ;;^DIST(.403,.001,15,31,0)
    85         ;;=   |                                  |        |          |
    86         ;;^DIST(.403,.001,15,32,0)
    87         ;;=   |                                Page 4     |          |
    88         ;;^DIST(.403,.001,15,33,0)
    89         ;;=   |                                  |        |          |
    90         ;;^DIST(.403,.001,15,34,0)
    91         ;;=    --------------------------------->|<------------------
    92         ;;^DIST(.403,.001,15,35,0)
    93         ;;=                                      |
    94         ;;^DIST(.403,.001,15,36,0)
    95         ;;=                           Field 98 (HELP-PROMPT)
    96         ;;^DIST(.403,.001,20)
    97         ;;=D POST^DICATTDE
    98         ;;^DIST(.403,.001,40,0)
    99         ;;=^.4031I^21^18
    100         ;;^DIST(.403,.001,40,1,0)
    101         ;;=1^^1,1
    102         ;;^DIST(.403,.001,40,1,1)
    103         ;;=Page 1
    104         ;;^DIST(.403,.001,40,1,40,0)
    105         ;;=^.4032IP^.00101^1
    106         ;;^DIST(.403,.001,40,1,40,.00101,0)
    107         ;;=.00101^1^1,1^e
    108         ;;^DIST(.403,.001,40,1,40,.00101,11)
    109         ;;=D PRE^DICATTD
    110         ;;^DIST(.403,.001,40,2,0)
    111         ;;=2.1^^4,3^^^1^12,70
    112         ;;^DIST(.403,.001,40,2,1)
    113         ;;=Page 2.1
    114         ;;^DIST(.403,.001,40,2,12)
    115         ;;=D POST1^DICATTD1
    116         ;;^DIST(.403,.001,40,2,40,0)
    117         ;;=^.4032IP^.00102^1
    118         ;;^DIST(.403,.001,40,2,40,.00102,0)
    119         ;;=.00102^1^2,3^e
    120         ;;^DIST(.403,.001,40,3,0)
    121         ;;=2.2^^4,3^^^1^9,70
    122         ;;^DIST(.403,.001,40,3,1)
    123         ;;=Page 2.2
    124         ;;^DIST(.403,.001,40,3,12)
    125         ;;=D POST2^DICATTD2
    126         ;;^DIST(.403,.001,40,3,40,0)
    127         ;;=^.4032IP^.00103^1
    128         ;;^DIST(.403,.001,40,3,40,.00103,0)
    129         ;;=.00103^1^2,3^e
    130         ;;^DIST(.403,.001,40,6,0)
    131         ;;=2.4^^3,8^^^1^7,67
    132         ;;^DIST(.403,.001,40,6,1)
    133         ;;=Page 2.4
    134         ;;^DIST(.403,.001,40,6,12)
    135         ;;=D POST4^DICATTD4
    136         ;;^DIST(.403,.001,40,6,40,0)
    137         ;;=^.4032IP^.00104^1
    138         ;;^DIST(.403,.001,40,6,40,.00104,0)
    139         ;;=.00104^1^1,1^e
    140         ;;^DIST(.403,.001,40,7,0)
    141         ;;=2.5^^4,2^^^1^8,78
    142         ;;^DIST(.403,.001,40,7,1)
    143         ;;=Page 2.5
    144         ;;^DIST(.403,.001,40,7,40,0)
    145         ;;=^.4032IP^.00105^1
    146         ;;^DIST(.403,.001,40,7,40,.00105,0)
    147         ;;=.00105^1^1,1^e
    148         ;;^DIST(.403,.001,40,8,0)
    149         ;;=2.6^^3,2^^^1^11,77
    150         ;;^DIST(.403,.001,40,8,1)
    151         ;;=Page 2.6
    152         ;;^DIST(.403,.001,40,8,12)
    153         ;;=D POST6^DICATTD6
    154         ;;^DIST(.403,.001,40,8,40,0)
    155         ;;=^.4032IP^.00106^1
    156         ;;^DIST(.403,.001,40,8,40,.00106,0)
    157         ;;=.00106^1^1,1^e
    158         ;;^DIST(.403,.001,40,9,0)
    159         ;;=2.7^^3,2^^^1^8,75
    160         ;;^DIST(.403,.001,40,9,1)
    161         ;;=Page 2.7
    162         ;;^DIST(.403,.001,40,9,12)
    163         ;;=D POST7^DICATTD7
    164         ;;^DIST(.403,.001,40,9,40,0)
    165         ;;=^.4032IP^.00107^1
    166         ;;^DIST(.403,.001,40,9,40,.00107,0)
    167         ;;=.00107^1^1,1^e
    168         ;;^DIST(.403,.001,40,10,0)
    169         ;;=2.8^^3,3^^^1^11,77
    170         ;;^DIST(.403,.001,40,10,1)
    171         ;;=Page 2.8
    172         ;;^DIST(.403,.001,40,10,40,0)
    173         ;;=^.4032IP^.00108^1
    174         ;;^DIST(.403,.001,40,10,40,.00108,0)
    175         ;;=.00108^1^1,1^e
    176         ;;^DIST(.403,.001,40,11,0)
    177         ;;=2.3^^3,6^^^1^17,70
    178         ;;^DIST(.403,.001,40,11,1)
    179         ;;=Page 2.3
    180         ;;^DIST(.403,.001,40,11,12)
    181         ;;=D POST3^DICATTD3
    182         ;;^DIST(.403,.001,40,11,40,0)
    183         ;;=^.4032IP^.00109^1
    184         ;;^DIST(.403,.001,40,11,40,.00109,0)
    185         ;;=.00109^1^1,1^e
    186         ;;^DIST(.403,.001,40,12,0)
    187         ;;=1.1^^1,1^^1
    188         ;;^DIST(.403,.001,40,12,1)
    189         ;;=Page 1.1
    190         ;;^DIST(.403,.001,40,12,40,0)
    191         ;;=^.4032IP^.0011^1
    192         ;;^DIST(.403,.001,40,12,40,.0011,0)
    193         ;;=.0011^1^1,1^e
    194         ;;^DIST(.403,.001,40,12,40,.0011,11)
    195         ;;=D WORD^DICATTD0(21)
    196         ;;^DIST(.403,.001,40,13,0)
    197         ;;=1.2^^1,1
    198         ;;^DIST(.403,.001,40,13,1)
    199         ;;=Page 1.2
    200         ;;^DIST(.403,.001,40,13,40,0)
    201         ;;=^.4032IP^.00111^1
    202         ;;^DIST(.403,.001,40,13,40,.00111,0)
    203         ;;=.00111^1^1,1^e
    204         ;;^DIST(.403,.001,40,15,0)
    205         ;;=3^^4,8^^^1^7,64
    206         ;;^DIST(.403,.001,40,15,1)
    207         ;;=Page 3
    208         ;;^DIST(.403,.001,40,15,12)
    209         ;;=D POST^DICATTDM
    210         ;;^DIST(.403,.001,40,15,40,0)
    211         ;;=^.4032IP^.00112^1
    212         ;;^DIST(.403,.001,40,15,40,.00112,0)
    213         ;;=.00112^1^2,2^e
    214         ;;^DIST(.403,.001,40,16,0)
    215         ;;=9^^3,10^^^1^7,70
    216         ;;^DIST(.403,.001,40,16,1)
    217         ;;=Page 9
    218         ;;^DIST(.403,.001,40,16,40,0)
    219         ;;=^.4032IP^.00113^1
    220         ;;^DIST(.403,.001,40,16,40,.00113,0)
    221         ;;=.00113^1^1,1^e
    222         ;;^DIST(.403,.001,40,17,0)
    223         ;;=4^^9,5^^^1^12,75
    224         ;;^DIST(.403,.001,40,17,1)
    225         ;;=Page 4
    226         ;;^DIST(.403,.001,40,17,40,0)
    227         ;;=^.4032IP^.00114^1
    228         ;;^DIST(.403,.001,40,17,40,.00114,0)
    229         ;;=.00114^1^1,1^e
     1DINIT0F0 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM  30 Mar 1999
     2 ;;22.0;VA FileMan;;Mar 30, 1999
     3 ;Per VHA Directive 10-93-142, this routine should not be modified.
     4 D PRE^DINIT29P
     5 F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F1 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
     6 Q
     7ENTRY ;
     8 ;;^DIST(.403,.001,0)
     9 ;;=DICATT^@^@^^2981031.1257^2990319.1306^^1^0^1^1
     10 ;;^DIST(.403,.001,1)
     11 ;;=2000000
     12 ;;^DIST(.403,.001,3)
     13 ;;=3000000
     14 ;;^DIST(.403,.001,4)
     15 ;;=N
     16 ;;^DIST(.403,.001,5)
     17 ;;=Y
     18 ;;^DIST(.403,.001,6)
     19 ;;=N
     20 ;;^DIST(.403,.001,7)
     21 ;;=N
     22 ;;^DIST(.403,.001,15,0)
     23 ;;=^^36^36^2981214
     24 ;;^DIST(.403,.001,15,1,0)
     25 ;;=Pages: 1          Main form
     26 ;;^DIST(.403,.001,15,2,0)
     27 ;;=       1.1, 1.2   DESCRIPTION and TECHNICAL DESCRIPTION  text
     28 ;;^DIST(.403,.001,15,3,0)
     29 ;;=       2.1-2.8    TYPE-specific   (2.1=DATE, etc)
     30 ;;^DIST(.403,.001,15,4,0)
     31 ;;=       3          SUBSCRIPT & PIECE-position
     32 ;;^DIST(.403,.001,15,5,0)
     33 ;;=       4          SUBSCRIPT & SUB-DICTIONARY NUMBER
     34 ;;^DIST(.403,.001,15,6,0)
     35 ;;=       5          Multiples
     36 ;;^DIST(.403,.001,15,7,0)
     37 ;;=       6          SCREEN for Pointers & Sets
     38 ;;^DIST(.403,.001,15,8,0)
     39 ;;=       8          VARIABLE-POINTER extra fields for each pointer
     40 ;;^DIST(.403,.001,15,9,0)
     41 ;;=       9          "ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD?"
     42 ;;^DIST(.403,.001,15,10,0)
     43 ;;=      10          Multiple-field
     44 ;;^DIST(.403,.001,15,11,0)
     45 ;;=                                                 
     46 ;;^DIST(.403,.001,15,12,0)
     47 ;;=
     48 ;;^DIST(.403,.001,15,13,0)
     49 ;;=
     50 ;;^DIST(.403,.001,15,14,0)
     51 ;;=Branching logic:
     52 ;;^DIST(.403,.001,15,15,0)
     53 ;;=              From Field 20.5 ("MULTIPLE?")
     54 ;;^DIST(.403,.001,15,16,0)
     55 ;;=       IS THIS FIELD NEW AND IS THE USER A PROGRAMMER?
     56 ;;^DIST(.403,.001,15,17,0)
     57 ;;=          |                                      |
     58 ;;^DIST(.403,.001,15,18,0)
     59 ;;=         NO                                     YES
     60 ;;^DIST(.403,.001,15,19,0)
     61 ;;=          |                                      |
     62 ;;^DIST(.403,.001,15,20,0)
     63 ;;=          |                               IS FIELD MULTIPLE?
     64 ;;^DIST(.403,.001,15,21,0)
     65 ;;=          |                                |              |
     66 ;;^DIST(.403,.001,15,22,0)
     67 ;;=          |                               YES            NO
     68 ;;^DIST(.403,.001,15,23,0)
     69 ;;=          |                                |              |
     70 ;;^DIST(.403,.001,15,24,0)
     71 ;;=IS FIELD EDITABLE & MULTIPLE?              |              |
     72 ;;^DIST(.403,.001,15,25,0)
     73 ;;=   |                    |                  |              |
     74 ;;^DIST(.403,.001,15,26,0)
     75 ;;=   |                   YES  --------->  Page 5         Page 3
     76 ;;^DIST(.403,.001,15,27,0)
     77 ;;=   |                                       |              |
     78 ;;^DIST(.403,.001,15,28,0)
     79 ;;=   |                                 PROGRAMMER?          |
     80 ;;^DIST(.403,.001,15,29,0)
     81 ;;=   |                                  |        |          |
     82 ;;^DIST(.403,.001,15,30,0)
     83 ;;=   |                                 YES      NO          |
     84 ;;^DIST(.403,.001,15,31,0)
     85 ;;=   |                                  |        |          |
     86 ;;^DIST(.403,.001,15,32,0)
     87 ;;=   |                                Page 4     |          |
     88 ;;^DIST(.403,.001,15,33,0)
     89 ;;=   |                                  |        |          |
     90 ;;^DIST(.403,.001,15,34,0)
     91 ;;=    --------------------------------->|<------------------
     92 ;;^DIST(.403,.001,15,35,0)
     93 ;;=                                      |
     94 ;;^DIST(.403,.001,15,36,0)
     95 ;;=                           Field 98 (HELP-PROMPT)
     96 ;;^DIST(.403,.001,20)
     97 ;;=D POST^DICATTDE
     98 ;;^DIST(.403,.001,40,0)
     99 ;;=^.4031I^21^18
     100 ;;^DIST(.403,.001,40,1,0)
     101 ;;=1^^1,1
     102 ;;^DIST(.403,.001,40,1,1)
     103 ;;=Page 1
     104 ;;^DIST(.403,.001,40,1,40,0)
     105 ;;=^.4032IP^.00101^1
     106 ;;^DIST(.403,.001,40,1,40,.00101,0)
     107 ;;=.00101^1^1,1^e
     108 ;;^DIST(.403,.001,40,1,40,.00101,11)
     109 ;;=D PRE^DICATTD
     110 ;;^DIST(.403,.001,40,2,0)
     111 ;;=2.1^^4,3^^^1^12,70
     112 ;;^DIST(.403,.001,40,2,1)
     113 ;;=Page 2.1
     114 ;;^DIST(.403,.001,40,2,12)
     115 ;;=D POST1^DICATTD1
     116 ;;^DIST(.403,.001,40,2,40,0)
     117 ;;=^.4032IP^.00102^1
     118 ;;^DIST(.403,.001,40,2,40,.00102,0)
     119 ;;=.00102^1^2,3^e
     120 ;;^DIST(.403,.001,40,3,0)
     121 ;;=2.2^^4,3^^^1^9,70
     122 ;;^DIST(.403,.001,40,3,1)
     123 ;;=Page 2.2
     124 ;;^DIST(.403,.001,40,3,12)
     125 ;;=D POST2^DICATTD2
     126 ;;^DIST(.403,.001,40,3,40,0)
     127 ;;=^.4032IP^.00103^1
     128 ;;^DIST(.403,.001,40,3,40,.00103,0)
     129 ;;=.00103^1^2,3^e
     130 ;;^DIST(.403,.001,40,6,0)
     131 ;;=2.4^^3,8^^^1^7,67
     132 ;;^DIST(.403,.001,40,6,1)
     133 ;;=Page 2.4
     134 ;;^DIST(.403,.001,40,6,12)
     135 ;;=D POST4^DICATTD4
     136 ;;^DIST(.403,.001,40,6,40,0)
     137 ;;=^.4032IP^.00104^1
     138 ;;^DIST(.403,.001,40,6,40,.00104,0)
     139 ;;=.00104^1^1,1^e
     140 ;;^DIST(.403,.001,40,7,0)
     141 ;;=2.5^^4,6^^^1^6,75
     142 ;;^DIST(.403,.001,40,7,1)
     143 ;;=Page 2.5
     144 ;;^DIST(.403,.001,40,7,40,0)
     145 ;;=^.4032IP^.00105^1
     146 ;;^DIST(.403,.001,40,7,40,.00105,0)
     147 ;;=.00105^1^1,1^e
     148 ;;^DIST(.403,.001,40,8,0)
     149 ;;=2.6^^3,2^^^1^11,77
     150 ;;^DIST(.403,.001,40,8,1)
     151 ;;=Page 2.6
     152 ;;^DIST(.403,.001,40,8,12)
     153 ;;=D POST6^DICATTD6
     154 ;;^DIST(.403,.001,40,8,40,0)
     155 ;;=^.4032IP^.00106^1
     156 ;;^DIST(.403,.001,40,8,40,.00106,0)
     157 ;;=.00106^1^1,1^e
     158 ;;^DIST(.403,.001,40,9,0)
     159 ;;=2.7^^3,2^^^1^8,75
     160 ;;^DIST(.403,.001,40,9,1)
     161 ;;=Page 2.7
     162 ;;^DIST(.403,.001,40,9,12)
     163 ;;=D POST7^DICATTD7
     164 ;;^DIST(.403,.001,40,9,40,0)
     165 ;;=^.4032IP^.00107^1
     166 ;;^DIST(.403,.001,40,9,40,.00107,0)
     167 ;;=.00107^1^1,1^e
     168 ;;^DIST(.403,.001,40,10,0)
     169 ;;=2.8^^3,3^^^1^11,77
     170 ;;^DIST(.403,.001,40,10,1)
     171 ;;=Page 2.8
     172 ;;^DIST(.403,.001,40,10,40,0)
     173 ;;=^.4032IP^.00108^1
     174 ;;^DIST(.403,.001,40,10,40,.00108,0)
     175 ;;=.00108^1^1,1^e
     176 ;;^DIST(.403,.001,40,11,0)
     177 ;;=2.3^^3,6^^^1^17,70
     178 ;;^DIST(.403,.001,40,11,1)
     179 ;;=Page 2.3
     180 ;;^DIST(.403,.001,40,11,12)
     181 ;;=D POST3^DICATTD3
     182 ;;^DIST(.403,.001,40,11,40,0)
     183 ;;=^.4032IP^.00109^1
     184 ;;^DIST(.403,.001,40,11,40,.00109,0)
     185 ;;=.00109^1^1,1^e
     186 ;;^DIST(.403,.001,40,12,0)
     187 ;;=1.1^^1,1^^1
     188 ;;^DIST(.403,.001,40,12,1)
     189 ;;=Page 1.1
     190 ;;^DIST(.403,.001,40,12,40,0)
     191 ;;=^.4032IP^.0011^1
     192 ;;^DIST(.403,.001,40,12,40,.0011,0)
     193 ;;=.0011^1^1,1^e
     194 ;;^DIST(.403,.001,40,12,40,.0011,11)
     195 ;;=D WORD^DICATTD0(21)
     196 ;;^DIST(.403,.001,40,13,0)
     197 ;;=1.2^^1,1
     198 ;;^DIST(.403,.001,40,13,1)
     199 ;;=Page 1.2
     200 ;;^DIST(.403,.001,40,13,40,0)
     201 ;;=^.4032IP^.00111^1
     202 ;;^DIST(.403,.001,40,13,40,.00111,0)
     203 ;;=.00111^1^1,1^e
     204 ;;^DIST(.403,.001,40,15,0)
     205 ;;=3^^4,8^^^1^7,64
     206 ;;^DIST(.403,.001,40,15,1)
     207 ;;=Page 3
     208 ;;^DIST(.403,.001,40,15,12)
     209 ;;=D POST^DICATTDM
     210 ;;^DIST(.403,.001,40,15,40,0)
     211 ;;=^.4032IP^.00112^1
     212 ;;^DIST(.403,.001,40,15,40,.00112,0)
     213 ;;=.00112^1^2,2^e
     214 ;;^DIST(.403,.001,40,16,0)
     215 ;;=9^^3,10^^^1^7,70
     216 ;;^DIST(.403,.001,40,16,1)
     217 ;;=Page 9
     218 ;;^DIST(.403,.001,40,16,40,0)
     219 ;;=^.4032IP^.00113^1
     220 ;;^DIST(.403,.001,40,16,40,.00113,0)
     221 ;;=.00113^1^1,1^e
     222 ;;^DIST(.403,.001,40,17,0)
     223 ;;=4^^9,5^^^1^12,75
     224 ;;^DIST(.403,.001,40,17,1)
     225 ;;=Page 4
     226 ;;^DIST(.403,.001,40,17,40,0)
     227 ;;=^.4032IP^.00114^1
     228 ;;^DIST(.403,.001,40,17,40,.00114,0)
     229 ;;=.00114^1^1,1^e
Note: See TracChangeset for help on using the changeset viewer.