DINIT2C0 ;SFISC/MKO-IMPORT TEMPLATE FILE ;10:52 AM 30 Mar 1999
;;22.0;VA FileMan;;Mar 30, 1999
;Per VHA Directive 10-93-142, this routine should not be modified.
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
G ^DINIT3
Q Q
;;^DIC(.46,0,"GL")
;;=^DIST(.46,
;;^DIC("B","IMPORT TEMPLATE",.46)
;;=
;;^DD(.46,0)
;;=FIELD^^2^9
;;^DD(.46,0,"DDA")
;;=N
;;^DD(.46,0,"DT")
;;=2960531
;;^DD(.46,0,"ID","WRITE")
;;=N D,D1,D2 S D2=^(0) S:$X>30 D1(1,"F")="!" S D=$P(D2,U,2) S:D D1(2)="("_$$FMTE^DILIBF(D)_")",D1(2,"F")="?30" S D=$P(D2,U,5) S:D D1(3)="User #"_D,D1(3,"F")="?47" S D=$P(D2,U,4) S:D D1(4)=" File #"_D,D1(4,"F")="?59" D EN^DDIOL(.D1)
;;^DD(.46,0,"IX","B",.46,.01)
;;=
;;^DD(.46,0,"IX","F",.46,4)
;;=
;;^DD(.46,0,"IX","F1",.46,.01)
;;=
;;^DD(.46,0,"NM","IMPORT TEMPLATE")
;;=
;;^DD(.46,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
;;^DD(.46,.01,1,0)
;;=^.1^^-1
;;^DD(.46,.01,1,1,0)
;;=.46^B
;;^DD(.46,.01,1,1,1)
;;=S ^DIST(.46,"B",$E(X,1,30),DA)=""
;;^DD(.46,.01,1,1,2)
;;=K ^DIST(.46,"B",$E(X,1,30),DA)
;;^DD(.46,.01,1,3,0)
;;=.46^F1^MUMPS
;;^DD(.46,.01,1,3,1)
;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,4) I DDMPX]"" S ^DIST(.46,"F"_DDMPX,X,DA)=""
;;^DD(.46,.01,1,3,2)
;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,4) I DDMPX]"" K ^DIST(.46,"F"_DDMPX,X,DA)
;;^DD(.46,.01,1,3,3)
;;=Along with F cross-reference manages F_file# index.
;;^DD(.46,.01,1,3,"%D",0)
;;=^^2^2^2960531^^
;;^DD(.46,.01,1,3,"%D",1,0)
;;=Creates a cross-reference based on F_file# that is used as a lookup
;;^DD(.46,.01,1,3,"%D",2,0)
;;=cross-reference. Allows quick lookups by file number.
;;^DD(.46,.01,1,3,"DT")
;;=2960531
;;^DD(.46,.01,3)
;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
;;^DD(.46,.01,"DT")
;;=2960531
;;^DD(.46,2,0)
;;=DATE CREATED^D^^0;2^S %DT="E" D ^%DT S X=Y K:Y<1 X
;;^DD(.46,2,21,0)
;;=^^1^1^2960531^
;;^DD(.46,2,21,1,0)
;;=Date that the import template was created.
;;^DD(.46,2,"DT")
;;=2960531
;;^DD(.46,3,0)
;;=READ ACCESS^F^^0;3^K:$L(X)>15!($L(X)<1) X
;;^DD(.46,3,3)
;;=Answer must be 1-15 characters in length.
;;^DD(.46,3,21,0)
;;=^^2^2^2960531^
;;^DD(.46,3,21,1,0)
;;=Access codes necessary to use the Import Template.
;;^DD(.46,3,21,2,0)
;;=If null, anyone can use the template.
;;^DD(.46,3,"DT")
;;=2960531
;;^DD(.46,4,0)
;;=PRIMARY FILE^RP1'^DIC(^0;4^Q
;;^DD(.46,4,1,0)
;;=^.1
;;^DD(.46,4,1,1,0)
;;=.46^F^MUMPS
;;^DD(.46,4,1,1,1)
;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,1) I DDMPX]"" S ^DIST(.46,"F"_X,DDMPX,DA)=""
;;^DD(.46,4,1,1,2)
;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,1) I DDMPX]"" K ^DIST(.46,"F"_X,DDMPX,DA)
;;^DD(.46,4,1,1,3)
;;=With F1 cross-reference manages the F_file# index.
;;^DD(.46,4,1,1,"%D",0)
;;=^^2^2^2960531^
;;^DD(.46,4,1,1,"%D",1,0)
;;=Creates an index under F_file# that is used as a compound index for
;;^DD(.46,4,1,1,"%D",2,0)
;;=lookups when the file# is known.
;;^DD(.46,4,1,1,"DT")
;;=2960531
;;^DD(.46,4,21,0)
;;=^^1^1^2960531^^^
;;^DD(.46,4,21,1,0)
;;=File that is the starting point for data import.
;;^DD(.46,4,"DT")
;;=2960531
;;^DD(.46,5,0)
;;=CREATOR^P200'^VA(200,^0;5^Q
;;^DD(.46,5,21,0)
;;=^^1^1^2960531^
;;^DD(.46,5,21,1,0)
;;=Person who created the import template.
;;^DD(.46,5,"DT")
;;=2960531
;;^DD(.46,6,0)
;;=WRITE ACCESS^F^^0;6^K:$L(X)>15!($L(X)<1) X
;;^DD(.46,6,3)
;;=Answer must be 1-15 characters in length.
;;^DD(.46,6,21,0)
;;=^^2^2^2960531^
;;^DD(.46,6,21,1,0)
;;=Access codes needed to change or delete the import template. If null,
;;^DD(.46,6,21,2,0)
;;=anyone can change or delete the template.
;;^DD(.46,6,"DT")
;;=2960531
;;^DD(.46,7,0)
;;=DATE LAST USED^D^^0;7^S %DT="EX" D ^%DT S X=Y K:Y<1 X
;;^DD(.46,7,21,0)
;;=^^1^1^2960531^
;;^DD(.46,7,21,1,0)
;;=Date template was last used.
;;^DD(.46,7,"DT")
;;=2960531
;;^DD(.46,10,0)
;;=DESCRIPTION^.461^^10;0
;;^DD(.46,30,0)
;;=IMPORT FIELDS^.463^^30;0
;;^DD(.461,0)
;;=DESCRIPTION SUB-FIELD^^.01^1
;;^DD(.461,0,"DT")
;;=2960531
;;^DD(.461,0,"NM","DESCRIPTION")
;;=
;;^DD(.461,0,"UP")
;;=.46
;;^DD(.461,.01,0)
;;=DESCRIPTION^W^^0;1^Q
;;^DD(.461,.01,"DT")
;;=2960531
;;^DD(.463,0)
;;=IMPORT FIELDS SUB-FIELD^^20^6
;;^DD(.463,0,"DT")
;;=2960530
;;^DD(.463,0,"IX","B",.463,.01)
;;=
;;^DD(.463,0,"NM","IMPORT FIELDS")
;;=
;;^DD(.463,0,"UP")
;;=.46
;;^DD(.463,.01,0)
;;=IMPORT SEQUENCE^MRNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
;;^DD(.463,.01,1,0)
;;=^.1
;;^DD(.463,.01,1,1,0)
;;=.463^B
;;^DD(.463,.01,1,1,1)
;;=S ^DIST(.46,DA(1),30,"B",$E(X,1,30),DA)=""
;;^DD(.463,.01,1,1,2)
;;=K ^DIST(.46,DA(1),30,"B",$E(X,1,30),DA)
;;^DD(.463,.01,3)
;;=Type a Number between 1 and 999, 0 Decimal Digits
;;^DD(.463,.01,21,0)
;;=^^1^1^2960530^^
;;^DD(.463,.01,21,1,0)
;;=Sequence of fields being imported.
;;^DD(.463,.01,"DT")
;;=2960530
;;^DD(.463,1,0)
;;=FILE^RP1'^DIC(^0;2^Q
;;^DD(.463,1,21,0)
;;=^^2^2^2960530^
;;^DD(.463,1,21,1,0)
;;=The file or subfile number in which the imported data for a field will
;;^DD(.463,1,21,2,0)
;;=be filed.
;;^DD(.463,1,"DT")
;;=2960530
;;^DD(.463,2,0)
;;=FIELD^RF^^0;3^K:$L(X)>12!($L(X)<1) X
;;^DD(.463,2,3)
;;=Answer must be 1-12 characters in length.
;;^DD(.463,2,21,0)
;;=^^1^1^2960530^
;;^DD(.463,2,21,1,0)
;;=Field into which imported data will be filed.
;;^DD(.463,2,"DT")
;;=2960530
;;^DD(.463,3,0)
;;=LENGTH^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(.463,3,3)
;;=Type a Number between 0 and 9999, 0 Decimal Digits
;;^DD(.463,3,21,0)
;;=^^2^2^2960530^
;;^DD(.463,3,21,1,0)
;;=Length of data for an imported field. Relevant only for fixed length
;;^DD(.463,3,21,2,0)
;;=imports.
;;^DD(.463,3,"DT")
;;=2960530
;;^DD(.463,10,0)
;;=PATH^F^^10;E1,245^K:$L(X)>245!($L(X)<1) X
;;^DD(.463,10,3)
;;=Answer must be 1-245 characters in length.
;;^DD(.463,10,21,0)
;;=^^3^3^2960530^
;;^DD(.463,10,21,1,0)
;;=The path from the Primary File to the field being imported. Format
;;^DD(.463,10,21,2,0)
;;=is field#^file#[:field#^file#]... where field# is a multiple indicating
;;^DD(.463,10,21,3,0)
;;=subfile at next lower level.
;;^DD(.463,10,"DT")
;;=2960530
;;^DD(.463,20,0)
;;=CAPTION^F^^20;E1,245^K:$L(X)>245!($L(X)<1) X
;;^DD(.463,20,3)
;;=Answer must be 1-245 characters in length.
;;^DD(.463,20,21,0)
;;=^^2^2^2960530^
;;^DD(.463,20,21,1,0)
;;=The readable description of the field being imported, including any
;;^DD(.463,20,21,2,0)
;;=higher level files and subfiles.
;;^DD(.463,20,"DT")
;;=2960530
DINIT2C0 ;SFISC/MKO-IMPORT TEMPLATE FILE ;10:52 AM 30 Mar 1999
+1 ;;22.0;VA FileMan;;Mar 30, 1999
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
SET @X=Y
+4 GOTO ^DINIT3
Q QUIT
+1 ;;^DIC(.46,0,"GL")
+2 ;;=^DIST(.46,
+3 ;;^DIC("B","IMPORT TEMPLATE",.46)
+4 ;;=
+5 ;;^DD(.46,0)
+6 ;;=FIELD^^2^9
+7 ;;^DD(.46,0,"DDA")
+8 ;;=N
+9 ;;^DD(.46,0,"DT")
+10 ;;=2960531
+11 ;;^DD(.46,0,"ID","WRITE")
+12 ;;=N D,D1,D2 S D2=^(0) S:$X>30 D1(1,"F")="!" S D=$P(D2,U,2) S:D D1(2)="("_$$FMTE^DILIBF(D)_")",D1(2,"F")="?30" S D=$P(D2,U,5) S:D D1(3)="User #"_D,D1(3,"F")="?47" S D=$P(D2,U,4) S:D D1(4)=" File #"_D,D1(4,"F")="?59" D EN^DDIOL(.D1)
+13 ;;^DD(.46,0,"IX","B",.46,.01)
+14 ;;=
+15 ;;^DD(.46,0,"IX","F",.46,4)
+16 ;;=
+17 ;;^DD(.46,0,"IX","F1",.46,.01)
+18 ;;=
+19 ;;^DD(.46,0,"NM","IMPORT TEMPLATE")
+20 ;;=
+21 ;;^DD(.46,.01,0)
+22 ;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
+23 ;;^DD(.46,.01,1,0)
+24 ;;=^.1^^-1
+25 ;;^DD(.46,.01,1,1,0)
+26 ;;=.46^B
+27 ;;^DD(.46,.01,1,1,1)
+28 ;;=S ^DIST(.46,"B",$E(X,1,30),DA)=""
+29 ;;^DD(.46,.01,1,1,2)
+30 ;;=K ^DIST(.46,"B",$E(X,1,30),DA)
+31 ;;^DD(.46,.01,1,3,0)
+32 ;;=.46^F1^MUMPS
+33 ;;^DD(.46,.01,1,3,1)
+34 ;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,4) I DDMPX]"" S ^DIST(.46,"F"_DDMPX,X,DA)=""
+35 ;;^DD(.46,.01,1,3,2)
+36 ;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,4) I DDMPX]"" K ^DIST(.46,"F"_DDMPX,X,DA)
+37 ;;^DD(.46,.01,1,3,3)
+38 ;;=Along with F cross-reference manages F_file# index.
+39 ;;^DD(.46,.01,1,3,"%D",0)
+40 ;;=^^2^2^2960531^^
+41 ;;^DD(.46,.01,1,3,"%D",1,0)
+42 ;;=Creates a cross-reference based on F_file# that is used as a lookup
+43 ;;^DD(.46,.01,1,3,"%D",2,0)
+44 ;;=cross-reference. Allows quick lookups by file number.
+45 ;;^DD(.46,.01,1,3,"DT")
+46 ;;=2960531
+47 ;;^DD(.46,.01,3)
+48 ;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
+49 ;;^DD(.46,.01,"DT")
+50 ;;=2960531
+51 ;;^DD(.46,2,0)
+52 ;;=DATE CREATED^D^^0;2^S %DT="E" D ^%DT S X=Y K:Y<1 X
+53 ;;^DD(.46,2,21,0)
+54 ;;=^^1^1^2960531^
+55 ;;^DD(.46,2,21,1,0)
+56 ;;=Date that the import template was created.
+57 ;;^DD(.46,2,"DT")
+58 ;;=2960531
+59 ;;^DD(.46,3,0)
+60 ;;=READ ACCESS^F^^0;3^K:$L(X)>15!($L(X)<1) X
+61 ;;^DD(.46,3,3)
+62 ;;=Answer must be 1-15 characters in length.
+63 ;;^DD(.46,3,21,0)
+64 ;;=^^2^2^2960531^
+65 ;;^DD(.46,3,21,1,0)
+66 ;;=Access codes necessary to use the Import Template.
+67 ;;^DD(.46,3,21,2,0)
+68 ;;=If null, anyone can use the template.
+69 ;;^DD(.46,3,"DT")
+70 ;;=2960531
+71 ;;^DD(.46,4,0)
+72 ;;=PRIMARY FILE^RP1'^DIC(^0;4^Q
+73 ;;^DD(.46,4,1,0)
+74 ;;=^.1
+75 ;;^DD(.46,4,1,1,0)
+76 ;;=.46^F^MUMPS
+77 ;;^DD(.46,4,1,1,1)
+78 ;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,1) I DDMPX]"" S ^DIST(.46,"F"_X,DDMPX,DA)=""
+79 ;;^DD(.46,4,1,1,2)
+80 ;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,1) I DDMPX]"" K ^DIST(.46,"F"_X,DDMPX,DA)
+81 ;;^DD(.46,4,1,1,3)
+82 ;;=With F1 cross-reference manages the F_file# index.
+83 ;;^DD(.46,4,1,1,"%D",0)
+84 ;;=^^2^2^2960531^
+85 ;;^DD(.46,4,1,1,"%D",1,0)
+86 ;;=Creates an index under F_file# that is used as a compound index for
+87 ;;^DD(.46,4,1,1,"%D",2,0)
+88 ;;=lookups when the file# is known.
+89 ;;^DD(.46,4,1,1,"DT")
+90 ;;=2960531
+91 ;;^DD(.46,4,21,0)
+92 ;;=^^1^1^2960531^^^
+93 ;;^DD(.46,4,21,1,0)
+94 ;;=File that is the starting point for data import.
+95 ;;^DD(.46,4,"DT")
+96 ;;=2960531
+97 ;;^DD(.46,5,0)
+98 ;;=CREATOR^P200'^VA(200,^0;5^Q
+99 ;;^DD(.46,5,21,0)
+100 ;;=^^1^1^2960531^
+101 ;;^DD(.46,5,21,1,0)
+102 ;;=Person who created the import template.
+103 ;;^DD(.46,5,"DT")
+104 ;;=2960531
+105 ;;^DD(.46,6,0)
+106 ;;=WRITE ACCESS^F^^0;6^K:$L(X)>15!($L(X)<1) X
+107 ;;^DD(.46,6,3)
+108 ;;=Answer must be 1-15 characters in length.
+109 ;;^DD(.46,6,21,0)
+110 ;;=^^2^2^2960531^
+111 ;;^DD(.46,6,21,1,0)
+112 ;;=Access codes needed to change or delete the import template. If null,
+113 ;;^DD(.46,6,21,2,0)
+114 ;;=anyone can change or delete the template.
+115 ;;^DD(.46,6,"DT")
+116 ;;=2960531
+117 ;;^DD(.46,7,0)
+118 ;;=DATE LAST USED^D^^0;7^S %DT="EX" D ^%DT S X=Y K:Y<1 X
+119 ;;^DD(.46,7,21,0)
+120 ;;=^^1^1^2960531^
+121 ;;^DD(.46,7,21,1,0)
+122 ;;=Date template was last used.
+123 ;;^DD(.46,7,"DT")
+124 ;;=2960531
+125 ;;^DD(.46,10,0)
+126 ;;=DESCRIPTION^.461^^10;0
+127 ;;^DD(.46,30,0)
+128 ;;=IMPORT FIELDS^.463^^30;0
+129 ;;^DD(.461,0)
+130 ;;=DESCRIPTION SUB-FIELD^^.01^1
+131 ;;^DD(.461,0,"DT")
+132 ;;=2960531
+133 ;;^DD(.461,0,"NM","DESCRIPTION")
+134 ;;=
+135 ;;^DD(.461,0,"UP")
+136 ;;=.46
+137 ;;^DD(.461,.01,0)
+138 ;;=DESCRIPTION^W^^0;1^Q
+139 ;;^DD(.461,.01,"DT")
+140 ;;=2960531
+141 ;;^DD(.463,0)
+142 ;;=IMPORT FIELDS SUB-FIELD^^20^6
+143 ;;^DD(.463,0,"DT")
+144 ;;=2960530
+145 ;;^DD(.463,0,"IX","B",.463,.01)
+146 ;;=
+147 ;;^DD(.463,0,"NM","IMPORT FIELDS")
+148 ;;=
+149 ;;^DD(.463,0,"UP")
+150 ;;=.46
+151 ;;^DD(.463,.01,0)
+152 ;;=IMPORT SEQUENCE^MRNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
+153 ;;^DD(.463,.01,1,0)
+154 ;;=^.1
+155 ;;^DD(.463,.01,1,1,0)
+156 ;;=.463^B
+157 ;;^DD(.463,.01,1,1,1)
+158 ;;=S ^DIST(.46,DA(1),30,"B",$E(X,1,30),DA)=""
+159 ;;^DD(.463,.01,1,1,2)
+160 ;;=K ^DIST(.46,DA(1),30,"B",$E(X,1,30),DA)
+161 ;;^DD(.463,.01,3)
+162 ;;=Type a Number between 1 and 999, 0 Decimal Digits
+163 ;;^DD(.463,.01,21,0)
+164 ;;=^^1^1^2960530^^
+165 ;;^DD(.463,.01,21,1,0)
+166 ;;=Sequence of fields being imported.
+167 ;;^DD(.463,.01,"DT")
+168 ;;=2960530
+169 ;;^DD(.463,1,0)
+170 ;;=FILE^RP1'^DIC(^0;2^Q
+171 ;;^DD(.463,1,21,0)
+172 ;;=^^2^2^2960530^
+173 ;;^DD(.463,1,21,1,0)
+174 ;;=The file or subfile number in which the imported data for a field will
+175 ;;^DD(.463,1,21,2,0)
+176 ;;=be filed.
+177 ;;^DD(.463,1,"DT")
+178 ;;=2960530
+179 ;;^DD(.463,2,0)
+180 ;;=FIELD^RF^^0;3^K:$L(X)>12!($L(X)<1) X
+181 ;;^DD(.463,2,3)
+182 ;;=Answer must be 1-12 characters in length.
+183 ;;^DD(.463,2,21,0)
+184 ;;=^^1^1^2960530^
+185 ;;^DD(.463,2,21,1,0)
+186 ;;=Field into which imported data will be filed.
+187 ;;^DD(.463,2,"DT")
+188 ;;=2960530
+189 ;;^DD(.463,3,0)
+190 ;;=LENGTH^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
+191 ;;^DD(.463,3,3)
+192 ;;=Type a Number between 0 and 9999, 0 Decimal Digits
+193 ;;^DD(.463,3,21,0)
+194 ;;=^^2^2^2960530^
+195 ;;^DD(.463,3,21,1,0)
+196 ;;=Length of data for an imported field. Relevant only for fixed length
+197 ;;^DD(.463,3,21,2,0)
+198 ;;=imports.
+199 ;;^DD(.463,3,"DT")
+200 ;;=2960530
+201 ;;^DD(.463,10,0)
+202 ;;=PATH^F^^10;E1,245^K:$L(X)>245!($L(X)<1) X
+203 ;;^DD(.463,10,3)
+204 ;;=Answer must be 1-245 characters in length.
+205 ;;^DD(.463,10,21,0)
+206 ;;=^^3^3^2960530^
+207 ;;^DD(.463,10,21,1,0)
+208 ;;=The path from the Primary File to the field being imported. Format
+209 ;;^DD(.463,10,21,2,0)
+210 ;;=is field#^file#[:field#^file#]... where field# is a multiple indicating
+211 ;;^DD(.463,10,21,3,0)
+212 ;;=subfile at next lower level.
+213 ;;^DD(.463,10,"DT")
+214 ;;=2960530
+215 ;;^DD(.463,20,0)
+216 ;;=CAPTION^F^^20;E1,245^K:$L(X)>245!($L(X)<1) X
+217 ;;^DD(.463,20,3)
+218 ;;=Answer must be 1-245 characters in length.
+219 ;;^DD(.463,20,21,0)
+220 ;;=^^2^2^2960530^
+221 ;;^DD(.463,20,21,1,0)
+222 ;;=The readable description of the field being imported, including any
+223 ;;^DD(.463,20,21,2,0)
+224 ;;=higher level files and subfiles.
+225 ;;^DD(.463,20,"DT")
+226 ;;=2960530
