Routine: DINIT0F0

DINIT0F0 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;4APR2007

 ;;22.0;VA FileMan;**152**;Mar 30, 1999;Build 10

 ;Per VHA Directive 2004-038, this routine should not be modified.

 D PRE^DINIT29P

 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

ENTRY ;

 ;;^DIST(.403,.001,0)

 ;;=DICATT^@^@^^2981031.1257^2990319.1306^^1^0^1^1

 ;;^DIST(.403,.001,1)

 ;;=2000000

 ;;^DIST(.403,.001,3)

 ;;=3000000

 ;;^DIST(.403,.001,4)

 ;;=N

 ;;^DIST(.403,.001,5)

 ;;=Y

 ;;^DIST(.403,.001,6)

 ;;=N

 ;;^DIST(.403,.001,7)

 ;;=N

 ;;^DIST(.403,.001,15,0)

 ;;=^^36^36^2981214

 ;;^DIST(.403,.001,15,1,0)

 ;;=Pages: 1          Main form

 ;;^DIST(.403,.001,15,2,0)

 ;;=       1.1, 1.2   DESCRIPTION and TECHNICAL DESCRIPTION  text

 ;;^DIST(.403,.001,15,3,0)

 ;;=       2.1-2.8    TYPE-specific   (2.1=DATE, etc)

 ;;^DIST(.403,.001,15,4,0)

 ;;=       3          SUBSCRIPT & PIECE-position

 ;;^DIST(.403,.001,15,5,0)

 ;;=       4          SUBSCRIPT & SUB-DICTIONARY NUMBER

 ;;^DIST(.403,.001,15,6,0)

 ;;=       5          Multiples

 ;;^DIST(.403,.001,15,7,0)

 ;;=       6          SCREEN for Pointers & Sets

 ;;^DIST(.403,.001,15,8,0)

 ;;=       8          VARIABLE-POINTER extra fields for each pointer

 ;;^DIST(.403,.001,15,9,0)

 ;;=       9          "ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD?"

 ;;^DIST(.403,.001,15,10,0)

 ;;=      10          Multiple-field

 ;;^DIST(.403,.001,15,11,0)

;;=

 ;;^DIST(.403,.001,15,12,0)

;;=

 ;;^DIST(.403,.001,15,13,0)

;;=

 ;;^DIST(.403,.001,15,14,0)

 ;;=Branching logic:

 ;;^DIST(.403,.001,15,15,0)

 ;;=              From Field 20.5 ("MULTIPLE?")

 ;;^DIST(.403,.001,15,16,0)

 ;;=       IS THIS FIELD NEW AND IS THE USER A PROGRAMMER?

 ;;^DIST(.403,.001,15,17,0)

 ;;=          |                                      |

 ;;^DIST(.403,.001,15,18,0)

 ;;=         NO                                     YES

 ;;^DIST(.403,.001,15,19,0)

 ;;=          |                                      |

 ;;^DIST(.403,.001,15,20,0)

 ;;=          |                               IS FIELD MULTIPLE?

 ;;^DIST(.403,.001,15,21,0)

 ;;=          |                                |              |

 ;;^DIST(.403,.001,15,22,0)

 ;;=          |                               YES            NO

 ;;^DIST(.403,.001,15,23,0)

 ;;=          |                                |              |

 ;;^DIST(.403,.001,15,24,0)

 ;;=IS FIELD EDITABLE & MULTIPLE?              |              |

 ;;^DIST(.403,.001,15,25,0)

 ;;=   |                    |                  |              |

 ;;^DIST(.403,.001,15,26,0)

 ;;=   |                   YES  --------->  Page 5         Page 3

 ;;^DIST(.403,.001,15,27,0)

 ;;=   |                                       |              |

 ;;^DIST(.403,.001,15,28,0)

 ;;=   |                                 PROGRAMMER?          |

 ;;^DIST(.403,.001,15,29,0)

 ;;=   |                                  |        |          |

 ;;^DIST(.403,.001,15,30,0)

 ;;=   |                                 YES      NO          |

 ;;^DIST(.403,.001,15,31,0)

 ;;=   |                                  |        |          |

 ;;^DIST(.403,.001,15,32,0)

 ;;=   |                                Page 4     |          |

 ;;^DIST(.403,.001,15,33,0)

 ;;=   |                                  |        |          |

 ;;^DIST(.403,.001,15,34,0)

 ;;=    --------------------------------->|<------------------

 ;;^DIST(.403,.001,15,35,0)

 ;;=                                      |

 ;;^DIST(.403,.001,15,36,0)

 ;;=                           Field 98 (HELP-PROMPT)

 ;;^DIST(.403,.001,20)

 ;;=D POST^DICATTDE

 ;;^DIST(.403,.001,40,0)

 ;;=^.4031I^21^18

 ;;^DIST(.403,.001,40,1,0)

 ;;=1^^1,1

 ;;^DIST(.403,.001,40,1,1)

 ;;=Page 1

 ;;^DIST(.403,.001,40,1,40,0)

 ;;=^.4032IP^.00101^1

 ;;^DIST(.403,.001,40,1,40,.00101,0)

 ;;=.00101^1^1,1^e

 ;;^DIST(.403,.001,40,1,40,.00101,11)

 ;;=D PRE^DICATTD

 ;;^DIST(.403,.001,40,2,0)

 ;;=2.1^^4,3^^^1^12,70

 ;;^DIST(.403,.001,40,2,1)

 ;;=Page 2.1

 ;;^DIST(.403,.001,40,2,12)

 ;;=D POST1^DICATTD1

 ;;^DIST(.403,.001,40,2,40,0)

 ;;=^.4032IP^.00102^1

 ;;^DIST(.403,.001,40,2,40,.00102,0)

 ;;=.00102^1^2,3^e

 ;;^DIST(.403,.001,40,3,0)

 ;;=2.2^^4,3^^^1^9,70

 ;;^DIST(.403,.001,40,3,1)

 ;;=Page 2.2

 ;;^DIST(.403,.001,40,3,12)

 ;;=D POST2^DICATTD2

 ;;^DIST(.403,.001,40,3,40,0)

 ;;=^.4032IP^.00103^1

 ;;^DIST(.403,.001,40,3,40,.00103,0)

 ;;=.00103^1^2,3^e

 ;;^DIST(.403,.001,40,6,0)

 ;;=2.4^^3,8^^^1^7,67

 ;;^DIST(.403,.001,40,6,1)

 ;;=Page 2.4

 ;;^DIST(.403,.001,40,6,12)

 ;;=D POST4^DICATTD4

 ;;^DIST(.403,.001,40,6,40,0)

 ;;=^.4032IP^.00104^1

 ;;^DIST(.403,.001,40,6,40,.00104,0)

 ;;=.00104^1^1,1^e

 ;;^DIST(.403,.001,40,7,0)

 ;;=2.5^^4,2^^^1^8,78

 ;;^DIST(.403,.001,40,7,1)

 ;;=Page 2.5

 ;;^DIST(.403,.001,40,7,40,0)

 ;;=^.4032IP^.00105^1

 ;;^DIST(.403,.001,40,7,40,.00105,0)

 ;;=.00105^1^1,1^e

 ;;^DIST(.403,.001,40,8,0)

 ;;=2.6^^3,2^^^1^11,77

 ;;^DIST(.403,.001,40,8,1)

 ;;=Page 2.6

 ;;^DIST(.403,.001,40,8,12)

 ;;=D POST6^DICATTD6

 ;;^DIST(.403,.001,40,8,40,0)

 ;;=^.4032IP^.00106^1

 ;;^DIST(.403,.001,40,8,40,.00106,0)

 ;;=.00106^1^1,1^e

 ;;^DIST(.403,.001,40,9,0)

 ;;=2.7^^3,2^^^1^8,75

 ;;^DIST(.403,.001,40,9,1)

 ;;=Page 2.7

 ;;^DIST(.403,.001,40,9,12)

 ;;=D POST7^DICATTD7

 ;;^DIST(.403,.001,40,9,40,0)

 ;;=^.4032IP^.00107^1

 ;;^DIST(.403,.001,40,9,40,.00107,0)

 ;;=.00107^1^1,1^e

 ;;^DIST(.403,.001,40,10,0)

 ;;=2.8^^3,3^^^1^11,77

 ;;^DIST(.403,.001,40,10,1)

 ;;=Page 2.8

 ;;^DIST(.403,.001,40,10,40,0)

 ;;=^.4032IP^.00108^1

 ;;^DIST(.403,.001,40,10,40,.00108,0)

 ;;=.00108^1^1,1^e

 ;;^DIST(.403,.001,40,11,0)

 ;;=2.3^^3,6^^^1^17,70

 ;;^DIST(.403,.001,40,11,1)

 ;;=Page 2.3

 ;;^DIST(.403,.001,40,11,12)

 ;;=D POST3^DICATTD3

 ;;^DIST(.403,.001,40,11,40,0)

 ;;=^.4032IP^.00109^1

 ;;^DIST(.403,.001,40,11,40,.00109,0)

 ;;=.00109^1^1,1^e

 ;;^DIST(.403,.001,40,12,0)

 ;;=1.1^^1,1^^1

 ;;^DIST(.403,.001,40,12,1)

 ;;=Page 1.1

 ;;^DIST(.403,.001,40,12,40,0)

 ;;=^.4032IP^.0011^1

 ;;^DIST(.403,.001,40,12,40,.0011,0)

 ;;=.0011^1^1,1^e

 ;;^DIST(.403,.001,40,12,40,.0011,11)

 ;;=D WORD^DICATTD0(21)

 ;;^DIST(.403,.001,40,13,0)

 ;;=1.2^^1,1

 ;;^DIST(.403,.001,40,13,1)

 ;;=Page 1.2

 ;;^DIST(.403,.001,40,13,40,0)

 ;;=^.4032IP^.00111^1

 ;;^DIST(.403,.001,40,13,40,.00111,0)

 ;;=.00111^1^1,1^e

 ;;^DIST(.403,.001,40,15,0)

 ;;=3^^4,8^^^1^7,64

 ;;^DIST(.403,.001,40,15,1)

 ;;=Page 3

 ;;^DIST(.403,.001,40,15,12)

 ;;=D POST^DICATTDM

 ;;^DIST(.403,.001,40,15,40,0)

 ;;=^.4032IP^.00112^1

 ;;^DIST(.403,.001,40,15,40,.00112,0)

 ;;=.00112^1^2,2^e

 ;;^DIST(.403,.001,40,16,0)

 ;;=9^^3,10^^^1^7,70

 ;;^DIST(.403,.001,40,16,1)

 ;;=Page 9

 ;;^DIST(.403,.001,40,16,40,0)

 ;;=^.4032IP^.00113^1

 ;;^DIST(.403,.001,40,16,40,.00113,0)

 ;;=.00113^1^1,1^e

 ;;^DIST(.403,.001,40,17,0)

 ;;=4^^9,5^^^1^12,75

 ;;^DIST(.403,.001,40,17,1)

 ;;=Page 4

 ;;^DIST(.403,.001,40,17,40,0)

 ;;=^.4032IP^.00114^1

 ;;^DIST(.403,.001,40,17,40,.00114,0)

 ;;=.00114^1^1,1^e

DINIT0F0  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;4APR2007

 +1       ;;22.0;VA FileMan;**152**;Mar 30, 1999;Build 10

 +2       ;Per VHA Directive 2004-038, this routine should not be modified.

 +3        DO PRE^DINIT29P

 +4        FOR I=1:2

               SET X=$TEXT(ENTRY+I)

               IF X=""

                   GOTO ^DINIT0F1

               SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)

               SET X=$EXTRACT(X,4,999)

               SET @X=Y

 +5        QUIT

ENTRY     ;

 +1       ;;^DIST(.403,.001,0)

 +2       ;;=DICATT^@^@^^2981031.1257^2990319.1306^^1^0^1^1

 +3       ;;^DIST(.403,.001,1)

 +4       ;;=2000000

 +5       ;;^DIST(.403,.001,3)

 +6       ;;=3000000

 +7       ;;^DIST(.403,.001,4)

 +8       ;;=N

 +9       ;;^DIST(.403,.001,5)

 +10      ;;=Y

 +11      ;;^DIST(.403,.001,6)

 +12      ;;=N

 +13      ;;^DIST(.403,.001,7)

 +14      ;;=N

 +15      ;;^DIST(.403,.001,15,0)

 +16      ;;=^^36^36^2981214

 +17      ;;^DIST(.403,.001,15,1,0)

 +18      ;;=Pages: 1          Main form

 +19      ;;^DIST(.403,.001,15,2,0)

 +20      ;;=       1.1, 1.2   DESCRIPTION and TECHNICAL DESCRIPTION  text

 +21      ;;^DIST(.403,.001,15,3,0)

 +22      ;;=       2.1-2.8    TYPE-specific   (2.1=DATE, etc)

 +23      ;;^DIST(.403,.001,15,4,0)

 +24      ;;=       3          SUBSCRIPT & PIECE-position

 +25      ;;^DIST(.403,.001,15,5,0)

 +26      ;;=       4          SUBSCRIPT & SUB-DICTIONARY NUMBER

 +27      ;;^DIST(.403,.001,15,6,0)

 +28      ;;=       5          Multiples

 +29      ;;^DIST(.403,.001,15,7,0)

 +30      ;;=       6          SCREEN for Pointers & Sets

 +31      ;;^DIST(.403,.001,15,8,0)

 +32      ;;=       8          VARIABLE-POINTER extra fields for each pointer

 +33      ;;^DIST(.403,.001,15,9,0)

 +34      ;;=       9          "ARE YOU SURE YOU WANT TO DELETE THE ENTIRE FIELD?"

 +35      ;;^DIST(.403,.001,15,10,0)

 +36      ;;=      10          Multiple-field

 +37      ;;^DIST(.403,.001,15,11,0)

 +38      ;;=

 +39      ;;^DIST(.403,.001,15,12,0)

 +40      ;;=

 +41      ;;^DIST(.403,.001,15,13,0)

 +42      ;;=

 +43      ;;^DIST(.403,.001,15,14,0)

 +44      ;;=Branching logic:

 +45      ;;^DIST(.403,.001,15,15,0)

 +46      ;;=              From Field 20.5 ("MULTIPLE?")

 +47      ;;^DIST(.403,.001,15,16,0)

 +48      ;;=       IS THIS FIELD NEW AND IS THE USER A PROGRAMMER?

 +49      ;;^DIST(.403,.001,15,17,0)

 +50      ;;=          |                                      |

 +51      ;;^DIST(.403,.001,15,18,0)

 +52      ;;=         NO                                     YES

 +53      ;;^DIST(.403,.001,15,19,0)

 +54      ;;=          |                                      |

 +55      ;;^DIST(.403,.001,15,20,0)

 +56      ;;=          |                               IS FIELD MULTIPLE?

 +57      ;;^DIST(.403,.001,15,21,0)

 +58      ;;=          |                                |              |

 +59      ;;^DIST(.403,.001,15,22,0)

 +60      ;;=          |                               YES            NO

 +61      ;;^DIST(.403,.001,15,23,0)

 +62      ;;=          |                                |              |

 +63      ;;^DIST(.403,.001,15,24,0)

 +64      ;;=IS FIELD EDITABLE & MULTIPLE?              |              |

 +65      ;;^DIST(.403,.001,15,25,0)

 +66      ;;=   |                    |                  |              |

 +67      ;;^DIST(.403,.001,15,26,0)

 +68      ;;=   |                   YES  --------->  Page 5         Page 3

 +69      ;;^DIST(.403,.001,15,27,0)

 +70      ;;=   |                                       |              |

 +71      ;;^DIST(.403,.001,15,28,0)

 +72      ;;=   |                                 PROGRAMMER?          |

 +73      ;;^DIST(.403,.001,15,29,0)

 +74      ;;=   |                                  |        |          |

 +75      ;;^DIST(.403,.001,15,30,0)

 +76      ;;=   |                                 YES      NO          |

 +77      ;;^DIST(.403,.001,15,31,0)

 +78      ;;=   |                                  |        |          |

 +79      ;;^DIST(.403,.001,15,32,0)

 +80      ;;=   |                                Page 4     |          |

 +81      ;;^DIST(.403,.001,15,33,0)

 +82      ;;=   |                                  |        |          |

 +83      ;;^DIST(.403,.001,15,34,0)

 +84      ;;=    --------------------------------->|<------------------

 +85      ;;^DIST(.403,.001,15,35,0)

 +86      ;;=                                      |

 +87      ;;^DIST(.403,.001,15,36,0)

 +88      ;;=                           Field 98 (HELP-PROMPT)

 +89      ;;^DIST(.403,.001,20)

 +90      ;;=D POST^DICATTDE

 +91      ;;^DIST(.403,.001,40,0)

 +92      ;;=^.4031I^21^18

 +93      ;;^DIST(.403,.001,40,1,0)

 +94      ;;=1^^1,1

 +95      ;;^DIST(.403,.001,40,1,1)

 +96      ;;=Page 1

 +97      ;;^DIST(.403,.001,40,1,40,0)

 +98      ;;=^.4032IP^.00101^1

 +99      ;;^DIST(.403,.001,40,1,40,.00101,0)

 +100     ;;=.00101^1^1,1^e

 +101     ;;^DIST(.403,.001,40,1,40,.00101,11)

 +102     ;;=D PRE^DICATTD

 +103     ;;^DIST(.403,.001,40,2,0)

 +104     ;;=2.1^^4,3^^^1^12,70

 +105     ;;^DIST(.403,.001,40,2,1)

 +106     ;;=Page 2.1

 +107     ;;^DIST(.403,.001,40,2,12)

 +108     ;;=D POST1^DICATTD1

 +109     ;;^DIST(.403,.001,40,2,40,0)

 +110     ;;=^.4032IP^.00102^1

 +111     ;;^DIST(.403,.001,40,2,40,.00102,0)

 +112     ;;=.00102^1^2,3^e

 +113     ;;^DIST(.403,.001,40,3,0)

 +114     ;;=2.2^^4,3^^^1^9,70

 +115     ;;^DIST(.403,.001,40,3,1)

 +116     ;;=Page 2.2

 +117     ;;^DIST(.403,.001,40,3,12)

 +118     ;;=D POST2^DICATTD2

 +119     ;;^DIST(.403,.001,40,3,40,0)

 +120     ;;=^.4032IP^.00103^1

 +121     ;;^DIST(.403,.001,40,3,40,.00103,0)

 +122     ;;=.00103^1^2,3^e

 +123     ;;^DIST(.403,.001,40,6,0)

 +124     ;;=2.4^^3,8^^^1^7,67

 +125     ;;^DIST(.403,.001,40,6,1)

 +126     ;;=Page 2.4

 +127     ;;^DIST(.403,.001,40,6,12)

 +128     ;;=D POST4^DICATTD4

 +129     ;;^DIST(.403,.001,40,6,40,0)

 +130     ;;=^.4032IP^.00104^1

 +131     ;;^DIST(.403,.001,40,6,40,.00104,0)

 +132     ;;=.00104^1^1,1^e

 +133     ;;^DIST(.403,.001,40,7,0)

 +134     ;;=2.5^^4,2^^^1^8,78

 +135     ;;^DIST(.403,.001,40,7,1)

 +136     ;;=Page 2.5

 +137     ;;^DIST(.403,.001,40,7,40,0)

 +138     ;;=^.4032IP^.00105^1

 +139     ;;^DIST(.403,.001,40,7,40,.00105,0)

 +140     ;;=.00105^1^1,1^e

 +141     ;;^DIST(.403,.001,40,8,0)

 +142     ;;=2.6^^3,2^^^1^11,77

 +143     ;;^DIST(.403,.001,40,8,1)

 +144     ;;=Page 2.6

 +145     ;;^DIST(.403,.001,40,8,12)

 +146     ;;=D POST6^DICATTD6

 +147     ;;^DIST(.403,.001,40,8,40,0)

 +148     ;;=^.4032IP^.00106^1

 +149     ;;^DIST(.403,.001,40,8,40,.00106,0)

 +150     ;;=.00106^1^1,1^e

 +151     ;;^DIST(.403,.001,40,9,0)

 +152     ;;=2.7^^3,2^^^1^8,75

 +153     ;;^DIST(.403,.001,40,9,1)

 +154     ;;=Page 2.7

 +155     ;;^DIST(.403,.001,40,9,12)

 +156     ;;=D POST7^DICATTD7

 +157     ;;^DIST(.403,.001,40,9,40,0)

 +158     ;;=^.4032IP^.00107^1

 +159     ;;^DIST(.403,.001,40,9,40,.00107,0)

 +160     ;;=.00107^1^1,1^e

 +161     ;;^DIST(.403,.001,40,10,0)

 +162     ;;=2.8^^3,3^^^1^11,77

 +163     ;;^DIST(.403,.001,40,10,1)

 +164     ;;=Page 2.8

 +165     ;;^DIST(.403,.001,40,10,40,0)

 +166     ;;=^.4032IP^.00108^1

 +167     ;;^DIST(.403,.001,40,10,40,.00108,0)

 +168     ;;=.00108^1^1,1^e

 +169     ;;^DIST(.403,.001,40,11,0)

 +170     ;;=2.3^^3,6^^^1^17,70

 +171     ;;^DIST(.403,.001,40,11,1)

 +172     ;;=Page 2.3

 +173     ;;^DIST(.403,.001,40,11,12)

 +174     ;;=D POST3^DICATTD3

 +175     ;;^DIST(.403,.001,40,11,40,0)

 +176     ;;=^.4032IP^.00109^1

 +177     ;;^DIST(.403,.001,40,11,40,.00109,0)

 +178     ;;=.00109^1^1,1^e

 +179     ;;^DIST(.403,.001,40,12,0)

 +180     ;;=1.1^^1,1^^1

 +181     ;;^DIST(.403,.001,40,12,1)

 +182     ;;=Page 1.1

 +183     ;;^DIST(.403,.001,40,12,40,0)

 +184     ;;=^.4032IP^.0011^1

 +185     ;;^DIST(.403,.001,40,12,40,.0011,0)

 +186     ;;=.0011^1^1,1^e

 +187     ;;^DIST(.403,.001,40,12,40,.0011,11)

 +188     ;;=D WORD^DICATTD0(21)

 +189     ;;^DIST(.403,.001,40,13,0)

 +190     ;;=1.2^^1,1

 +191     ;;^DIST(.403,.001,40,13,1)

 +192     ;;=Page 1.2

 +193     ;;^DIST(.403,.001,40,13,40,0)

 +194     ;;=^.4032IP^.00111^1

 +195     ;;^DIST(.403,.001,40,13,40,.00111,0)

 +196     ;;=.00111^1^1,1^e

 +197     ;;^DIST(.403,.001,40,15,0)

 +198     ;;=3^^4,8^^^1^7,64

 +199     ;;^DIST(.403,.001,40,15,1)

 +200     ;;=Page 3

 +201     ;;^DIST(.403,.001,40,15,12)

 +202     ;;=D POST^DICATTDM

 +203     ;;^DIST(.403,.001,40,15,40,0)

 +204     ;;=^.4032IP^.00112^1

 +205     ;;^DIST(.403,.001,40,15,40,.00112,0)

 +206     ;;=.00112^1^2,2^e

 +207     ;;^DIST(.403,.001,40,16,0)

 +208     ;;=9^^3,10^^^1^7,70

 +209     ;;^DIST(.403,.001,40,16,1)

 +210     ;;=Page 9

 +211     ;;^DIST(.403,.001,40,16,40,0)

 +212     ;;=^.4032IP^.00113^1

 +213     ;;^DIST(.403,.001,40,16,40,.00113,0)

 +214     ;;=.00113^1^1,1^e

 +215     ;;^DIST(.403,.001,40,17,0)

 +216     ;;=4^^9,5^^^1^12,75

 +217     ;;^DIST(.403,.001,40,17,1)

 +218     ;;=Page 4

 +219     ;;^DIST(.403,.001,40,17,40,0)

 +220     ;;=^.4032IP^.00114^1

 +221     ;;^DIST(.403,.001,40,17,40,.00114,0)

 +222     ;;=.00114^1^1,1^e

DINIT0F0.m