DINIT0F2 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;12:02 PM 16 Sep 1999 [ 04/02/2003 8:25 AM ]
;;22.0;VA FileMan;**1001**;APR 1, 2003
;;22.0;VA FileMan;**8**;Mar 30, 1999
;Per VHA Directive 10-93-142, this routine should not be modified.
F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F3 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.403,.40101,40,1,0)
;;=1^^1,1^2
;;^DIST(.403,.40101,40,1,1)
;;=Page 1
;;^DIST(.403,.40101,40,1,40,0)
;;=^.4032IP^.401011^1
;;^DIST(.403,.40101,40,1,40,.401011,0)
;;=.401011^1^1,1^e
;;^DIST(.403,.40101,40,2,0)
;;=2^^1,1^^1
;;^DIST(.403,.40101,40,2,1)
;;=Page 2
;;^DIST(.403,.40101,40,2,40,0)
;;=^.4032IP^.401012^1
;;^DIST(.403,.40101,40,2,40,.401012,0)
;;=.401012^1^1,1^e
;;^DIST(.403,.40101,40,2,40,.401012,11)
;;=D EDIT^DIETED(DA)
;;^DIST(.403,.40201,0)
;;=DIEDIT^@^^^2981016.103^2990317.0933^^1^0^0^1
;;^DIST(.403,.40201,20)
;;=D POST^DIU20
;;^DIST(.403,.40201,40,0)
;;=^.4031I^1^1
;;^DIST(.403,.40201,40,1,0)
;;=1^^1,1
;;^DIST(.403,.40201,40,1,1)
;;=Page 1
;;^DIST(.403,.40201,40,1,40,0)
;;=^.4032IP^.402011^1
;;^DIST(.403,.40201,40,1,40,.402011,0)
;;=.402011^1^1,3^e
;;^DIST(.403,.40301,0)
;;=DDGF BLOCK EDIT^^^0^2930413^2990916.1055^^.403^0^0^1
;;^DIST(.403,.40301,40,0)
;;=^.4031I^2^2
;;^DIST(.403,.40301,40,1,0)
;;=1^^1,2^^^1^17,77
;;^DIST(.403,.40301,40,1,1)
;;=Edit Block Parameters
;;^DIST(.403,.40301,40,1,40,0)
;;=^.4032PI^.403012^2
;;^DIST(.403,.40301,40,1,40,.403011,0)
;;=.403011^1^1,1^e
;;^DIST(.403,.40301,40,1,40,.403012,0)
;;=.403012^2^10,1^e
;;^DIST(.403,.40301,40,1,40,.403012,1)
;;=PAGE:BLOCK:.01
;;^DIST(.403,.40301,40,2,0)
;;=11^^4,11^^^1^16,65
;;^DIST(.403,.40301,40,2,1)
;;=Page 11
;;^DIST(.403,.40301,40,2,40,0)
;;=^.4032PI^.403013^1
;;^DIST(.403,.40301,40,2,40,.403013,0)
;;=.403013^1^1,1^e
;;^DIST(.403,.40302,0)
;;=DDGF PAGE ADD^^^0^2930419^2990205.1327^^.403^0^1^1
;;^DIST(.403,.40302,40,0)
;;=^.4031I^2^2
;;^DIST(.403,.40302,40,1,0)
;;=1^^4,18^^^1^8,43
;;^DIST(.403,.40302,40,1,1)
;;=Add a New Page
;;^DIST(.403,.40302,40,1,40,0)
;;=^.4032PI^.403021^1
;;^DIST(.403,.40302,40,1,40,.403021,0)
;;=.403021^1^1,1^e
;;^DIST(.403,.40302,40,2,0)
;;=11^^4,15^^^1^9,49
;;^DIST(.403,.40302,40,2,1)
;;=Select New Page Number
;;^DIST(.403,.40302,40,2,40,0)
;;=^.4032PI^.403022^1
;;^DIST(.403,.40302,40,2,40,.403022,0)
;;=.403022^1^1,1^e
;;^DIST(.403,.40303,0)
;;=DDGF PAGE EDIT^^^0^2930419^2990205.1328^^.403^0^0^1
;;^DIST(.403,.40303,40,0)
;;=^.4031I^1^1
;;^DIST(.403,.40303,40,1,0)
;;=1^^1,3^^^1^17,77
;;^DIST(.403,.40303,40,1,1)
;;=Edit a Page
;;^DIST(.403,.40303,40,1,40,0)
;;=^.4032PI^.403031^1
;;^DIST(.403,.40303,40,1,40,.403031,0)
;;=.403031^1^1,1^e
;;^DIST(.403,.40303,40,1,40,.403031,11)
;;=I $$GET^DDSVALF("IS THIS A POP UP PAGE?") N DDGFI F DDGFI="PREVIOUS","NEXT" D UNED^DDSUTL(DDGFI_" PAGE","","",1)
;;^DIST(.403,.40304,0)
;;=DDGF PAGE SELECT^^^0^2930419^2990916.1055^^.403^0^1^1
;;^DIST(.403,.40304,40,0)
;;=^.4031I^1^1
;;^DIST(.403,.40304,40,1,0)
;;=1^^4,10^^^1^8,56
;;^DIST(.403,.40304,40,1,1)
;;=Select a Page
;;^DIST(.403,.40304,40,1,40,0)
;;=^.4032PI^.403041^1
;;^DIST(.403,.40304,40,1,40,.403041,0)
;;=.403041^1^3,3^e
;;^DIST(.403,.40305,0)
;;=DDGF FORM EDIT^^^0^2930427^2990302.0754^^.403^0^0^1
;;^DIST(.403,.40305,40,0)
;;=^.4031I^1^1
;;^DIST(.403,.40305,40,1,0)
;;=1^^1,2^^^1^16,76
;;^DIST(.403,.40305,40,1,1)
;;=Form Edit
;;^DIST(.403,.40305,40,1,40,0)
;;=^.4032PI^.403051^1
;;^DIST(.403,.40305,40,1,40,.403051,0)
;;=.403051^1^1,1^e
;;^DIST(.403,.40306,0)
;;=DDGF HEADER BLOCK EDIT^^^0^2930504^2941115.0924^^.403^0^0^1
;;^DIST(.403,.40306,40,0)
;;=^.4031I^1^1
;;^DIST(.403,.40306,40,1,0)
;;=1^^2,1^^^1^14,76
;;^DIST(.403,.40306,40,1,1)
;;=Edit/Delete the Header Block
;;^DIST(.403,.40306,40,1,40,0)
;;=^.4032PI^.403061^2
;;^DIST(.403,.40306,40,1,40,.403012,0)
;;=.403012^2^5,1^e
;;^DIST(.403,.40306,40,1,40,.403012,1)
;;=PAGE:1
;;^DIST(.403,.40306,40,1,40,.403061,0)
;;=.403061^1^1,1^e
;;^DIST(.403,.40401,0)
;;=DDGF FIELD ADD^^^0^2930331^2990916.1050^^.404^0^1^1
;;^DIST(.403,.40401,20)
;;=D VAL1^DDGFU
;;^DIST(.403,.40401,40,0)
;;=^.4031I^1^1
;;^DIST(.403,.40401,40,1,0)
;;=1^^4,12^^^1^10,59
;;^DIST(.403,.40401,40,1,1)
;;=New field
;;^DIST(.403,.40401,40,1,40,0)
;;=^.4032PI^.404011^1
;;^DIST(.403,.40401,40,1,40,.404011,0)
;;=.404011^1^3,3^e
;;^DIST(.403,.40402,0)
;;=DDGF FIELD CAPTION ONLY^^^0^2930409^2990916.1050^^.404^0^0^1
;;^DIST(.403,.40402,40,0)
;;=^.4031I^1^1
;;^DIST(.403,.40402,40,1,0)
;;=1^^1,2^^^1^9,75
;;^DIST(.403,.40402,40,1,1)
;;=Caption only field
;;^DIST(.403,.40402,40,1,40,0)
;;=^.4032PI^.404021^1
;;^DIST(.403,.40402,40,1,40,.404021,0)
;;=.404021^1^1,3^e
;;^DIST(.403,.40403,0)
;;=DDGF FIELD DD^^^0^2930510^2990916.1048^^.404^0^0^1
;;^DIST(.403,.40403,40,0)
;;=^.4031I^4^4
;;^DIST(.403,.40403,40,1,0)
;;=1^^1,1^^^1^16,77
;;^DIST(.403,.40403,40,1,1)
;;=Page 1
;;^DIST(.403,.40403,40,1,40,0)
;;=^.4032PI^.404031^1
;;^DIST(.403,.40403,40,1,40,.404031,0)
;;=.404031^1^1,1^e
;;^DIST(.403,.40403,40,2,0)
;;=11^^3,3^^^1^15,75
;;^DIST(.403,.40403,40,2,1)
;;=Single-Valued Field (Other)
;;^DIST(.403,.40403,40,2,40,0)
;;=^.4032PI^.404032^1
;;^DIST(.403,.40403,40,2,40,.404032,0)
;;=.404032^1^1,1^e
;;^DIST(.403,.40403,40,3,0)
;;=21^^3,17^^^1^15,60
;;^DIST(.403,.40403,40,3,1)
;;=Multiple-Valued Field (Other)
;;^DIST(.403,.40403,40,3,40,0)
;;=^.4032PI^.404033^1
;;^DIST(.403,.40403,40,3,40,.404033,0)
;;=.404033^1^1,1^e
;;^DIST(.403,.40403,40,4,0)
;;=31^^3,17^^^1^13,60
;;^DIST(.403,.40403,40,4,1)
;;=Word Processing Field (Other)
;;^DIST(.403,.40403,40,4,40,0)
;;=^.4032PI^.404034^1
;;^DIST(.403,.40403,40,4,40,.404034,0)
;;=.404034^1^1,1^e
;;^DIST(.403,.40404,0)
;;=DDGF FIELD FORM ONLY^^^0^2930510^2990310.0915^^.404^0^0^1
;;^DIST(.403,.40404,40,0)
;;=^.4031I^3^3
;;^DIST(.403,.40404,40,1,0)
;;=1^^1,1^^^1^16,77
;;^DIST(.403,.40404,40,1,1)
;;=Form Only Field
;;^DIST(.403,.40404,40,1,40,0)
;;=^.4032PI^.404041^1
;;^DIST(.403,.40404,40,1,40,.404041,0)
;;=.404041^1^1,1^e
;;^DIST(.403,.40404,40,2,0)
;;=11^^3,3^^^1^15,75
;;^DIST(.403,.40404,40,2,1)
;;=Other Form Only Field Params
;;^DIST(.403,.40404,40,2,40,0)
;;=^.4032PI^.404042^1
;;^DIST(.403,.40404,40,2,40,.404042,0)
;;=.404042^1^1,1^e
;;^DIST(.403,.40404,40,3,0)
;;=21^^3,3^^^1^15,75
;;^DIST(.403,.40404,40,3,1)
;;=Other Parameters
;;^DIST(.403,.40404,40,3,40,0)
;;=^.4032PI^.404032^1
;;^DIST(.403,.40404,40,3,40,.404032,0)
;;=.404032^1^1,1^e
;;^DIST(.403,.40405,0)
;;=DDGF FIELD COMPUTED^^^0^2930916^2990211.0855^^.404^0^0^1
;;^DIST(.403,.40405,40,0)
;;=^.4031I^2^2
;;^DIST(.403,.40405,40,1,0)
;;=1^^1,2^^^1^12,76
;;^DIST(.403,.40405,40,1,1)
;;=Computed Field
;;^DIST(.403,.40405,40,1,40,0)
;;=^.4032PI^.404051^1
;;^DIST(.403,.40405,40,1,40,.404051,0)
;;=.404051^1^1,1^e
DINIT0F2 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;12:02 PM 16 Sep 1999 [ 04/02/2003 8:25 AM ]
+1 ;;22.0;VA FileMan;**1001**;APR 1, 2003
+2 ;;22.0;VA FileMan;**8**;Mar 30, 1999
+3 ;Per VHA Directive 10-93-142, this routine should not be modified.
+4 FOR I=1:2
SET X=$TEXT(ENTRY+I)
IF X=""
GOTO ^DINIT0F3
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+5 QUIT
ENTRY ;
+1 ;;^DIST(.403,.40101,40,1,0)
+2 ;;=1^^1,1^2
+3 ;;^DIST(.403,.40101,40,1,1)
+4 ;;=Page 1
+5 ;;^DIST(.403,.40101,40,1,40,0)
+6 ;;=^.4032IP^.401011^1
+7 ;;^DIST(.403,.40101,40,1,40,.401011,0)
+8 ;;=.401011^1^1,1^e
+9 ;;^DIST(.403,.40101,40,2,0)
+10 ;;=2^^1,1^^1
+11 ;;^DIST(.403,.40101,40,2,1)
+12 ;;=Page 2
+13 ;;^DIST(.403,.40101,40,2,40,0)
+14 ;;=^.4032IP^.401012^1
+15 ;;^DIST(.403,.40101,40,2,40,.401012,0)
+16 ;;=.401012^1^1,1^e
+17 ;;^DIST(.403,.40101,40,2,40,.401012,11)
+18 ;;=D EDIT^DIETED(DA)
+19 ;;^DIST(.403,.40201,0)
+20 ;;=DIEDIT^@^^^2981016.103^2990317.0933^^1^0^0^1
+21 ;;^DIST(.403,.40201,20)
+22 ;;=D POST^DIU20
+23 ;;^DIST(.403,.40201,40,0)
+24 ;;=^.4031I^1^1
+25 ;;^DIST(.403,.40201,40,1,0)
+26 ;;=1^^1,1
+27 ;;^DIST(.403,.40201,40,1,1)
+28 ;;=Page 1
+29 ;;^DIST(.403,.40201,40,1,40,0)
+30 ;;=^.4032IP^.402011^1
+31 ;;^DIST(.403,.40201,40,1,40,.402011,0)
+32 ;;=.402011^1^1,3^e
+33 ;;^DIST(.403,.40301,0)
+34 ;;=DDGF BLOCK EDIT^^^0^2930413^2990916.1055^^.403^0^0^1
+35 ;;^DIST(.403,.40301,40,0)
+36 ;;=^.4031I^2^2
+37 ;;^DIST(.403,.40301,40,1,0)
+38 ;;=1^^1,2^^^1^17,77
+39 ;;^DIST(.403,.40301,40,1,1)
+40 ;;=Edit Block Parameters
+41 ;;^DIST(.403,.40301,40,1,40,0)
+42 ;;=^.4032PI^.403012^2
+43 ;;^DIST(.403,.40301,40,1,40,.403011,0)
+44 ;;=.403011^1^1,1^e
+45 ;;^DIST(.403,.40301,40,1,40,.403012,0)
+46 ;;=.403012^2^10,1^e
+47 ;;^DIST(.403,.40301,40,1,40,.403012,1)
+48 ;;=PAGE:BLOCK:.01
+49 ;;^DIST(.403,.40301,40,2,0)
+50 ;;=11^^4,11^^^1^16,65
+51 ;;^DIST(.403,.40301,40,2,1)
+52 ;;=Page 11
+53 ;;^DIST(.403,.40301,40,2,40,0)
+54 ;;=^.4032PI^.403013^1
+55 ;;^DIST(.403,.40301,40,2,40,.403013,0)
+56 ;;=.403013^1^1,1^e
+57 ;;^DIST(.403,.40302,0)
+58 ;;=DDGF PAGE ADD^^^0^2930419^2990205.1327^^.403^0^1^1
+59 ;;^DIST(.403,.40302,40,0)
+60 ;;=^.4031I^2^2
+61 ;;^DIST(.403,.40302,40,1,0)
+62 ;;=1^^4,18^^^1^8,43
+63 ;;^DIST(.403,.40302,40,1,1)
+64 ;;=Add a New Page
+65 ;;^DIST(.403,.40302,40,1,40,0)
+66 ;;=^.4032PI^.403021^1
+67 ;;^DIST(.403,.40302,40,1,40,.403021,0)
+68 ;;=.403021^1^1,1^e
+69 ;;^DIST(.403,.40302,40,2,0)
+70 ;;=11^^4,15^^^1^9,49
+71 ;;^DIST(.403,.40302,40,2,1)
+72 ;;=Select New Page Number
+73 ;;^DIST(.403,.40302,40,2,40,0)
+74 ;;=^.4032PI^.403022^1
+75 ;;^DIST(.403,.40302,40,2,40,.403022,0)
+76 ;;=.403022^1^1,1^e
+77 ;;^DIST(.403,.40303,0)
+78 ;;=DDGF PAGE EDIT^^^0^2930419^2990205.1328^^.403^0^0^1
+79 ;;^DIST(.403,.40303,40,0)
+80 ;;=^.4031I^1^1
+81 ;;^DIST(.403,.40303,40,1,0)
+82 ;;=1^^1,3^^^1^17,77
+83 ;;^DIST(.403,.40303,40,1,1)
+84 ;;=Edit a Page
+85 ;;^DIST(.403,.40303,40,1,40,0)
+86 ;;=^.4032PI^.403031^1
+87 ;;^DIST(.403,.40303,40,1,40,.403031,0)
+88 ;;=.403031^1^1,1^e
+89 ;;^DIST(.403,.40303,40,1,40,.403031,11)
+90 ;;=I $$GET^DDSVALF("IS THIS A POP UP PAGE?") N DDGFI F DDGFI="PREVIOUS","NEXT" D UNED^DDSUTL(DDGFI_" PAGE","","",1)
+91 ;;^DIST(.403,.40304,0)
+92 ;;=DDGF PAGE SELECT^^^0^2930419^2990916.1055^^.403^0^1^1
+93 ;;^DIST(.403,.40304,40,0)
+94 ;;=^.4031I^1^1
+95 ;;^DIST(.403,.40304,40,1,0)
+96 ;;=1^^4,10^^^1^8,56
+97 ;;^DIST(.403,.40304,40,1,1)
+98 ;;=Select a Page
+99 ;;^DIST(.403,.40304,40,1,40,0)
+100 ;;=^.4032PI^.403041^1
+101 ;;^DIST(.403,.40304,40,1,40,.403041,0)
+102 ;;=.403041^1^3,3^e
+103 ;;^DIST(.403,.40305,0)
+104 ;;=DDGF FORM EDIT^^^0^2930427^2990302.0754^^.403^0^0^1
+105 ;;^DIST(.403,.40305,40,0)
+106 ;;=^.4031I^1^1
+107 ;;^DIST(.403,.40305,40,1,0)
+108 ;;=1^^1,2^^^1^16,76
+109 ;;^DIST(.403,.40305,40,1,1)
+110 ;;=Form Edit
+111 ;;^DIST(.403,.40305,40,1,40,0)
+112 ;;=^.4032PI^.403051^1
+113 ;;^DIST(.403,.40305,40,1,40,.403051,0)
+114 ;;=.403051^1^1,1^e
+115 ;;^DIST(.403,.40306,0)
+116 ;;=DDGF HEADER BLOCK EDIT^^^0^2930504^2941115.0924^^.403^0^0^1
+117 ;;^DIST(.403,.40306,40,0)
+118 ;;=^.4031I^1^1
+119 ;;^DIST(.403,.40306,40,1,0)
+120 ;;=1^^2,1^^^1^14,76
+121 ;;^DIST(.403,.40306,40,1,1)
+122 ;;=Edit/Delete the Header Block
+123 ;;^DIST(.403,.40306,40,1,40,0)
+124 ;;=^.4032PI^.403061^2
+125 ;;^DIST(.403,.40306,40,1,40,.403012,0)
+126 ;;=.403012^2^5,1^e
+127 ;;^DIST(.403,.40306,40,1,40,.403012,1)
+128 ;;=PAGE:1
+129 ;;^DIST(.403,.40306,40,1,40,.403061,0)
+130 ;;=.403061^1^1,1^e
+131 ;;^DIST(.403,.40401,0)
+132 ;;=DDGF FIELD ADD^^^0^2930331^2990916.1050^^.404^0^1^1
+133 ;;^DIST(.403,.40401,20)
+134 ;;=D VAL1^DDGFU
+135 ;;^DIST(.403,.40401,40,0)
+136 ;;=^.4031I^1^1
+137 ;;^DIST(.403,.40401,40,1,0)
+138 ;;=1^^4,12^^^1^10,59
+139 ;;^DIST(.403,.40401,40,1,1)
+140 ;;=New field
+141 ;;^DIST(.403,.40401,40,1,40,0)
+142 ;;=^.4032PI^.404011^1
+143 ;;^DIST(.403,.40401,40,1,40,.404011,0)
+144 ;;=.404011^1^3,3^e
+145 ;;^DIST(.403,.40402,0)
+146 ;;=DDGF FIELD CAPTION ONLY^^^0^2930409^2990916.1050^^.404^0^0^1
+147 ;;^DIST(.403,.40402,40,0)
+148 ;;=^.4031I^1^1
+149 ;;^DIST(.403,.40402,40,1,0)
+150 ;;=1^^1,2^^^1^9,75
+151 ;;^DIST(.403,.40402,40,1,1)
+152 ;;=Caption only field
+153 ;;^DIST(.403,.40402,40,1,40,0)
+154 ;;=^.4032PI^.404021^1
+155 ;;^DIST(.403,.40402,40,1,40,.404021,0)
+156 ;;=.404021^1^1,3^e
+157 ;;^DIST(.403,.40403,0)
+158 ;;=DDGF FIELD DD^^^0^2930510^2990916.1048^^.404^0^0^1
+159 ;;^DIST(.403,.40403,40,0)
+160 ;;=^.4031I^4^4
+161 ;;^DIST(.403,.40403,40,1,0)
+162 ;;=1^^1,1^^^1^16,77
+163 ;;^DIST(.403,.40403,40,1,1)
+164 ;;=Page 1
+165 ;;^DIST(.403,.40403,40,1,40,0)
+166 ;;=^.4032PI^.404031^1
+167 ;;^DIST(.403,.40403,40,1,40,.404031,0)
+168 ;;=.404031^1^1,1^e
+169 ;;^DIST(.403,.40403,40,2,0)
+170 ;;=11^^3,3^^^1^15,75
+171 ;;^DIST(.403,.40403,40,2,1)
+172 ;;=Single-Valued Field (Other)
+173 ;;^DIST(.403,.40403,40,2,40,0)
+174 ;;=^.4032PI^.404032^1
+175 ;;^DIST(.403,.40403,40,2,40,.404032,0)
+176 ;;=.404032^1^1,1^e
+177 ;;^DIST(.403,.40403,40,3,0)
+178 ;;=21^^3,17^^^1^15,60
+179 ;;^DIST(.403,.40403,40,3,1)
+180 ;;=Multiple-Valued Field (Other)
+181 ;;^DIST(.403,.40403,40,3,40,0)
+182 ;;=^.4032PI^.404033^1
+183 ;;^DIST(.403,.40403,40,3,40,.404033,0)
+184 ;;=.404033^1^1,1^e
+185 ;;^DIST(.403,.40403,40,4,0)
+186 ;;=31^^3,17^^^1^13,60
+187 ;;^DIST(.403,.40403,40,4,1)
+188 ;;=Word Processing Field (Other)
+189 ;;^DIST(.403,.40403,40,4,40,0)
+190 ;;=^.4032PI^.404034^1
+191 ;;^DIST(.403,.40403,40,4,40,.404034,0)
+192 ;;=.404034^1^1,1^e
+193 ;;^DIST(.403,.40404,0)
+194 ;;=DDGF FIELD FORM ONLY^^^0^2930510^2990310.0915^^.404^0^0^1
+195 ;;^DIST(.403,.40404,40,0)
+196 ;;=^.4031I^3^3
+197 ;;^DIST(.403,.40404,40,1,0)
+198 ;;=1^^1,1^^^1^16,77
+199 ;;^DIST(.403,.40404,40,1,1)
+200 ;;=Form Only Field
+201 ;;^DIST(.403,.40404,40,1,40,0)
+202 ;;=^.4032PI^.404041^1
+203 ;;^DIST(.403,.40404,40,1,40,.404041,0)
+204 ;;=.404041^1^1,1^e
+205 ;;^DIST(.403,.40404,40,2,0)
+206 ;;=11^^3,3^^^1^15,75
+207 ;;^DIST(.403,.40404,40,2,1)
+208 ;;=Other Form Only Field Params
+209 ;;^DIST(.403,.40404,40,2,40,0)
+210 ;;=^.4032PI^.404042^1
+211 ;;^DIST(.403,.40404,40,2,40,.404042,0)
+212 ;;=.404042^1^1,1^e
+213 ;;^DIST(.403,.40404,40,3,0)
+214 ;;=21^^3,3^^^1^15,75
+215 ;;^DIST(.403,.40404,40,3,1)
+216 ;;=Other Parameters
+217 ;;^DIST(.403,.40404,40,3,40,0)
+218 ;;=^.4032PI^.404032^1
+219 ;;^DIST(.403,.40404,40,3,40,.404032,0)
+220 ;;=.404032^1^1,1^e
+221 ;;^DIST(.403,.40405,0)
+222 ;;=DDGF FIELD COMPUTED^^^0^2930916^2990211.0855^^.404^0^0^1
+223 ;;^DIST(.403,.40405,40,0)
+224 ;;=^.4031I^2^2
+225 ;;^DIST(.403,.40405,40,1,0)
+226 ;;=1^^1,2^^^1^12,76
+227 ;;^DIST(.403,.40405,40,1,1)
+228 ;;=Computed Field
+229 ;;^DIST(.403,.40405,40,1,40,0)
+230 ;;=^.4032PI^.404051^1
+231 ;;^DIST(.403,.40405,40,1,40,.404051,0)
+232 ;;=.404051^1^1,1^e
