STANDARD DATA DICTIONARY #.46 -- IMPORT TEMPLATE FILE 6/27/25 PAGE 1 STORED IN ^DIST(.46, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 22.2) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- DD ACCESS: ^ WR ACCESS: ^ DEL ACCESS: ^ LAYGO ACCESS: ^ IDENTIFIED BY: "WRITE": N D,D1,D2 S D2=^(0) S:$X>30 D1(1,"F")="!" S D=$P(D2,U,2) S:D D1(2)="("_$$DATE^DIUTL(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) CROSS REFERENCED BY: NAME(B), PRIMARY FILE(F), NAME(F1) .46,.01 NAME 0;1 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X LAST EDITED: MAY 31, 1996 HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION CROSS-REFERENCE: .46^B 1)= S ^DIST(.46,"B",$E(X,1,30),DA)="" 2)= K ^DIST(.46,"B",$E(X,1,30),DA) CROSS-REFERENCE: .46^F1^MUMPS 1)= N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,4) I DDMPX]"" S ^DIST(.46,"F"_DDMPX,X,DA)="" 2)= N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,4) I DDMPX]"" K ^DIST(.46,"F"_DDMPX,X,DA) 3)= Along with F cross-reference manages F_file# index. Creates a cross-reference based on F_file# that is used as a lookup cross-reference. Allows quick lookups by file number. .46,2 DATE CREATED 0;2 DATE INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X LAST EDITED: MAY 31, 1996 DESCRIPTION: Date that the import template was created. .46,3 READ ACCESS 0;3 FREE TEXT INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X LAST EDITED: MAY 31, 1996 HELP-PROMPT: Answer must be 1-15 characters in length. DESCRIPTION: Access codes necessary to use the Import Template. If null, anyone can use the template. .46,4 PRIMARY FILE 0;4 POINTER TO FILE FILE (#1) (Required) LAST EDITED: MAY 31, 1996 DESCRIPTION: File that is the starting point for data import. CROSS-REFERENCE: .46^F^MUMPS 1)= N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,1) I DDMPX]"" S ^DIST(.46,"F"_X,DDMPX,DA)="" 2)= N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,1) I DDMPX]"" K ^DIST(.46,"F"_X,DDMPX,DA) 3)= With F1 cross-reference manages the F_file# index. Creates an index under F_file# that is used as a compound index for lookups when the file# is known. .46,5 CREATOR 0;5 POINTER TO NEW PERSON FILE (#200) LAST EDITED: MAY 31, 1996 DESCRIPTION: Person who created the import template. .46,6 WRITE ACCESS 0;6 FREE TEXT INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X LAST EDITED: MAY 31, 1996 HELP-PROMPT: Answer must be 1-15 characters in length. DESCRIPTION: Access codes needed to change or delete the import template. If null, anyone can change or delete the template. .46,7 DATE LAST USED 0;7 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: MAY 31, 1996 DESCRIPTION: Date template was last used. .46,10 DESCRIPTION 10;0 WORD-PROCESSING #.461 LAST EDITED: MAY 31, 1996 .46,30 IMPORT FIELDS 30;0 Multiple #.463 .463,.01 IMPORT SEQUENCE 0;1 NUMBER (Required) (Multiply asked) INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X LAST EDITED: MAY 30, 1996 HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits DESCRIPTION: Sequence of fields being imported. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: .463^B 1)= S ^DIST(.46,DA(1),30,"B",$E(X,1,30),DA)="" 2)= K ^DIST(.46,DA(1),30,"B",$E(X,1,30),DA) .463,1 FILE 0;2 POINTER TO FILE FILE (#1) (Required) LAST EDITED: MAY 30, 1996 DESCRIPTION: The file or subfile number in which the imported data for a field will be filed. .463,2 FIELD 0;3 FREE TEXT (Required) INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X LAST EDITED: MAY 30, 1996 HELP-PROMPT: Answer must be 1-12 characters in length. DESCRIPTION: Field into which imported data will be filed. .463,3 LENGTH 0;4 NUMBER INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X LAST EDITED: MAY 30, 1996 HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits DESCRIPTION: Length of data for an imported field. Relevant only for fixed length imports. .463,10 PATH 10;E1,245 FREE TEXT INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X LAST EDITED: MAY 30, 1996 HELP-PROMPT: Answer must be 1-245 characters in length. DESCRIPTION: The path from the Primary File to the field being imported. Format is field#^file#[:field#^file#]... where field# is a multiple indicating subfile at next lower level. .463,20 CAPTION 20;E1,245 FREE TEXT INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X LAST EDITED: MAY 30, 1996 HELP-PROMPT: Answer must be 1-245 characters in length. DESCRIPTION: The readable description of the field being imported, including any higher level files and subfiles. FILES POINTED TO FIELDS FILE (#1) PRIMARY FILE (#4) IMPORT FIELDS:FILE (#1) NEW PERSON (#200) CREATOR (#5) INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S): DDMP SPECIFY IMPORT FEB 16, 1995@11:02 USER #0 DDMP SPECS 1 DD #.44 DDMP FIELD SELECTION DDMP FILE CHANGE DD #.44 DDMP REQUIRED LENGTH