Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DINIT2C0

DINIT2C0.m

Go to the documentation of this file. 
  1. DINIT2C0 ;SFISC/MKO-IMPORT TEMPLATE FILE ;10:52 AM  30 Mar 1999
  1.  ;;22.0;VA FileMan;;Mar 30, 1999
  1.  ;Per VHA Directive 10-93-142, this routine should not be modified.
  1.  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
  1.  G ^DINIT3
  1. Q Q
  1.  ;;^DIC(.46,0,"GL")
  1.  ;;=^DIST(.46,
  1.  ;;^DIC("B","IMPORT TEMPLATE",.46)
  1.  ;;=
  1.  ;;^DD(.46,0)
  1.  ;;=FIELD^^2^9
  1.  ;;^DD(.46,0,"DDA")
  1.  ;;=N
  1.  ;;^DD(.46,0,"DT")
  1.  ;;=2960531
  1.  ;;^DD(.46,0,"ID","WRITE")
  1.  ;;=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)
  1.  ;;^DD(.46,0,"IX","B",.46,.01)
  1.  ;;=
  1.  ;;^DD(.46,0,"IX","F",.46,4)
  1.  ;;=
  1.  ;;^DD(.46,0,"IX","F1",.46,.01)
  1.  ;;=
  1.  ;;^DD(.46,0,"NM","IMPORT TEMPLATE")
  1.  ;;=
  1.  ;;^DD(.46,.01,0)
  1.  ;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  1.  ;;^DD(.46,.01,1,0)
  1.  ;;=^.1^^-1
  1.  ;;^DD(.46,.01,1,1,0)
  1.  ;;=.46^B
  1.  ;;^DD(.46,.01,1,1,1)
  1.  ;;=S ^DIST(.46,"B",$E(X,1,30),DA)=""
  1.  ;;^DD(.46,.01,1,1,2)
  1.  ;;=K ^DIST(.46,"B",$E(X,1,30),DA)
  1.  ;;^DD(.46,.01,1,3,0)
  1.  ;;=.46^F1^MUMPS
  1.  ;;^DD(.46,.01,1,3,1)
  1.  ;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,4) I DDMPX]"" S ^DIST(.46,"F"_DDMPX,X,DA)=""
  1.  ;;^DD(.46,.01,1,3,2)
  1.  ;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,4) I DDMPX]"" K ^DIST(.46,"F"_DDMPX,X,DA)
  1.  ;;^DD(.46,.01,1,3,3)
  1.  ;;=Along with F cross-reference manages F_file# index.
  1.  ;;^DD(.46,.01,1,3,"%D",0)
  1.  ;;=^^2^2^2960531^^
  1.  ;;^DD(.46,.01,1,3,"%D",1,0)
  1.  ;;=Creates a cross-reference based on F_file# that is used as a lookup
  1.  ;;^DD(.46,.01,1,3,"%D",2,0)
  1.  ;;=cross-reference.  Allows quick lookups by file number.
  1.  ;;^DD(.46,.01,1,3,"DT")
  1.  ;;=2960531
  1.  ;;^DD(.46,.01,3)
  1.  ;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  1.  ;;^DD(.46,.01,"DT")
  1.  ;;=2960531
  1.  ;;^DD(.46,2,0)
  1.  ;;=DATE CREATED^D^^0;2^S %DT="E" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(.46,2,21,0)
  1.  ;;=^^1^1^2960531^
  1.  ;;^DD(.46,2,21,1,0)
  1.  ;;=Date that the import template was created.
  1.  ;;^DD(.46,2,"DT")
  1.  ;;=2960531
  1.  ;;^DD(.46,3,0)
  1.  ;;=READ ACCESS^F^^0;3^K:$L(X)>15!($L(X)<1) X
  1.  ;;^DD(.46,3,3)
  1.  ;;=Answer must be 1-15 characters in length.
  1.  ;;^DD(.46,3,21,0)
  1.  ;;=^^2^2^2960531^
  1.  ;;^DD(.46,3,21,1,0)
  1.  ;;=Access codes necessary to use the Import Template.
  1.  ;;^DD(.46,3,21,2,0)
  1.  ;;=If null, anyone can use the template.
  1.  ;;^DD(.46,3,"DT")
  1.  ;;=2960531
  1.  ;;^DD(.46,4,0)
  1.  ;;=PRIMARY FILE^RP1'^DIC(^0;4^Q
  1.  ;;^DD(.46,4,1,0)
  1.  ;;=^.1
  1.  ;;^DD(.46,4,1,1,0)
  1.  ;;=.46^F^MUMPS
  1.  ;;^DD(.46,4,1,1,1)
  1.  ;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,1) I DDMPX]"" S ^DIST(.46,"F"_X,DDMPX,DA)=""
  1.  ;;^DD(.46,4,1,1,2)
  1.  ;;=N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,1) I DDMPX]"" K ^DIST(.46,"F"_X,DDMPX,DA)
  1.  ;;^DD(.46,4,1,1,3)
  1.  ;;=With F1 cross-reference manages the F_file# index.
  1.  ;;^DD(.46,4,1,1,"%D",0)
  1.  ;;=^^2^2^2960531^
  1.  ;;^DD(.46,4,1,1,"%D",1,0)
  1.  ;;=Creates an index under F_file# that is used as a compound index for
  1.  ;;^DD(.46,4,1,1,"%D",2,0)
  1.  ;;=lookups when the file# is known.
  1.  ;;^DD(.46,4,1,1,"DT")
  1.  ;;=2960531
  1.  ;;^DD(.46,4,21,0)
  1.  ;;=^^1^1^2960531^^^
  1.  ;;^DD(.46,4,21,1,0)
  1.  ;;=File that is the starting point for data import.
  1.  ;;^DD(.46,4,"DT")
  1.  ;;=2960531
  1.  ;;^DD(.46,5,0)
  1.  ;;=CREATOR^P200'^VA(200,^0;5^Q
  1.  ;;^DD(.46,5,21,0)
  1.  ;;=^^1^1^2960531^
  1.  ;;^DD(.46,5,21,1,0)
  1.  ;;=Person who created the import template.
  1.  ;;^DD(.46,5,"DT")
  1.  ;;=2960531
  1.  ;;^DD(.46,6,0)
  1.  ;;=WRITE ACCESS^F^^0;6^K:$L(X)>15!($L(X)<1) X
  1.  ;;^DD(.46,6,3)
  1.  ;;=Answer must be 1-15 characters in length.
  1.  ;;^DD(.46,6,21,0)
  1.  ;;=^^2^2^2960531^
  1.  ;;^DD(.46,6,21,1,0)
  1.  ;;=Access codes needed to change or delete the import template.  If null,
  1.  ;;^DD(.46,6,21,2,0)
  1.  ;;=anyone can change or delete the template.
  1.  ;;^DD(.46,6,"DT")
  1.  ;;=2960531
  1.  ;;^DD(.46,7,0)
  1.  ;;=DATE LAST USED^D^^0;7^S %DT="EX" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(.46,7,21,0)
  1.  ;;=^^1^1^2960531^
  1.  ;;^DD(.46,7,21,1,0)
  1.  ;;=Date template was last used.
  1.  ;;^DD(.46,7,"DT")
  1.  ;;=2960531
  1.  ;;^DD(.46,10,0)
  1.  ;;=DESCRIPTION^.461^^10;0
  1.  ;;^DD(.46,30,0)
  1.  ;;=IMPORT FIELDS^.463^^30;0
  1.  ;;^DD(.461,0)
  1.  ;;=DESCRIPTION SUB-FIELD^^.01^1
  1.  ;;^DD(.461,0,"DT")
  1.  ;;=2960531
  1.  ;;^DD(.461,0,"NM","DESCRIPTION")
  1.  ;;=
  1.  ;;^DD(.461,0,"UP")
  1.  ;;=.46
  1.  ;;^DD(.461,.01,0)
  1.  ;;=DESCRIPTION^W^^0;1^Q
  1.  ;;^DD(.461,.01,"DT")
  1.  ;;=2960531
  1.  ;;^DD(.463,0)
  1.  ;;=IMPORT FIELDS SUB-FIELD^^20^6
  1.  ;;^DD(.463,0,"DT")
  1.  ;;=2960530
  1.  ;;^DD(.463,0,"IX","B",.463,.01)
  1.  ;;=
  1.  ;;^DD(.463,0,"NM","IMPORT FIELDS")
  1.  ;;=
  1.  ;;^DD(.463,0,"UP")
  1.  ;;=.46
  1.  ;;^DD(.463,.01,0)
  1.  ;;=IMPORT SEQUENCE^MRNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  1.  ;;^DD(.463,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(.463,.01,1,1,0)
  1.  ;;=.463^B
  1.  ;;^DD(.463,.01,1,1,1)
  1.  ;;=S ^DIST(.46,DA(1),30,"B",$E(X,1,30),DA)=""
  1.  ;;^DD(.463,.01,1,1,2)
  1.  ;;=K ^DIST(.46,DA(1),30,"B",$E(X,1,30),DA)
  1.  ;;^DD(.463,.01,3)
  1.  ;;=Type a Number between 1 and 999, 0 Decimal Digits
  1.  ;;^DD(.463,.01,21,0)
  1.  ;;=^^1^1^2960530^^
  1.  ;;^DD(.463,.01,21,1,0)
  1.  ;;=Sequence of fields being imported.
  1.  ;;^DD(.463,.01,"DT")
  1.  ;;=2960530
  1.  ;;^DD(.463,1,0)
  1.  ;;=FILE^RP1'^DIC(^0;2^Q
  1.  ;;^DD(.463,1,21,0)
  1.  ;;=^^2^2^2960530^
  1.  ;;^DD(.463,1,21,1,0)
  1.  ;;=The file or subfile number in which the imported data for a field will
  1.  ;;^DD(.463,1,21,2,0)
  1.  ;;=be filed.
  1.  ;;^DD(.463,1,"DT")
  1.  ;;=2960530
  1.  ;;^DD(.463,2,0)
  1.  ;;=FIELD^RF^^0;3^K:$L(X)>12!($L(X)<1) X
  1.  ;;^DD(.463,2,3)
  1.  ;;=Answer must be 1-12 characters in length.
  1.  ;;^DD(.463,2,21,0)
  1.  ;;=^^1^1^2960530^
  1.  ;;^DD(.463,2,21,1,0)
  1.  ;;=Field into which imported data will be filed.
  1.  ;;^DD(.463,2,"DT")
  1.  ;;=2960530
  1.  ;;^DD(.463,3,0)
  1.  ;;=LENGTH^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  1.  ;;^DD(.463,3,3)
  1.  ;;=Type a Number between 0 and 9999, 0 Decimal Digits
  1.  ;;^DD(.463,3,21,0)
  1.  ;;=^^2^2^2960530^
  1.  ;;^DD(.463,3,21,1,0)
  1.  ;;=Length of data for an imported field.  Relevant only for fixed length
  1.  ;;^DD(.463,3,21,2,0)
  1.  ;;=imports.
  1.  ;;^DD(.463,3,"DT")
  1.  ;;=2960530
  1.  ;;^DD(.463,10,0)
  1.  ;;=PATH^F^^10;E1,245^K:$L(X)>245!($L(X)<1) X
  1.  ;;^DD(.463,10,3)
  1.  ;;=Answer must be 1-245 characters in length.
  1.  ;;^DD(.463,10,21,0)
  1.  ;;=^^3^3^2960530^
  1.  ;;^DD(.463,10,21,1,0)
  1.  ;;=The path from the Primary File to the field being imported.  Format
  1.  ;;^DD(.463,10,21,2,0)
  1.  ;;=is field#^file#[:field#^file#]... where field# is a multiple indicating
  1.  ;;^DD(.463,10,21,3,0)
  1.  ;;=subfile at next lower level.
  1.  ;;^DD(.463,10,"DT")
  1.  ;;=2960530
  1.  ;;^DD(.463,20,0)
  1.  ;;=CAPTION^F^^20;E1,245^K:$L(X)>245!($L(X)<1) X
  1.  ;;^DD(.463,20,3)
  1.  ;;=Answer must be 1-245 characters in length.
  1.  ;;^DD(.463,20,21,0)
  1.  ;;=^^2^2^2960530^
  1.  ;;^DD(.463,20,21,1,0)
  1.  ;;=The readable description of the field being imported, including any
  1.  ;;^DD(.463,20,21,2,0)
  1.  ;;=higher level files and subfiles.
  1.  ;;^DD(.463,20,"DT")
  1.  ;;=2960530