DINIT0F0 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;4APR2007
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
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
Q
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0F0 7246 printed Apr 09, 2024@21:47:33 Page 2
DINIT0F0 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;4APR2007
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 DO PRE^DINIT29P
+8 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
+9 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
