- DINIT271 ;SFISC/DPC-LOAD OF FOREIGN FORMAT DD (END) ;9/9/94 12:56
- ;;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) G ^DINIT27A:X="" S Y=$E($T(Q+I+1),5,999),X=$E(X,4,999),@X=Y
- Q Q
- ;;^DIC(.44,"%D",0)
- ;;=^^3^3^2940908^
- ;;^DIC(.44,"%D",1,0)
- ;;=This file stores the characteristics of various file export formats,
- ;;^DIC(.44,"%D",2,0)
- ;;=which are used by the Export tool in building Export Templates to send
- ;;^DIC(.44,"%D",3,0)
- ;;=data to non-M systems.
- ;;^DD(.44,11,0)
- ;;=SUBSTITUTE FOR NULL^F^^0;13^K:$L(X)>15!($L(X)<1) X
- ;;^DD(.44,11,3)
- ;;=Answer must be 1-15 characters in length.
- ;;^DD(.44,11,21,0)
- ;;=^^5^5^2930107^
- ;;^DD(.44,11,21,1,0)
- ;;=This field only affects numeric values exported in a delimited format.
- ;;^DD(.44,11,21,2,0)
- ;;=If nothing is entered in this field, data values of null will cause
- ;;^DD(.44,11,21,3,0)
- ;;=nothing to be exported for that field in the particular record. If you
- ;;^DD(.44,11,21,4,0)
- ;;=want something to be exported when the data value is null, enter the
- ;;^DD(.44,11,21,5,0)
- ;;=character or characters in this field.
- ;;^DD(.44,11,"DT")
- ;;=2930107
- ;;^DD(.44,40,0)
- ;;=FORMAT USED?^S^0:NO;1:YES;^0;9^Q
- ;;^DD(.44,40,21,0)
- ;;=^^2^2^2920925^
- ;;^DD(.44,40,21,1,0)
- ;;=When set to YES, this field means that this Foriegn Format entry has been
- ;;^DD(.44,40,21,2,0)
- ;;=used to create an Export Template.
- ;;^DD(.44,40,"DT")
- ;;=2920925
- ;;^DD(.44,50,0)
- ;;=OTHER NAME FOR FORMAT^.441^^5;0
- ;;^DD(.441,0)
- ;;=OTHER NAME FOR FORMAT SUB-FIELD^^1^2
- ;;^DD(.441,0,"DT")
- ;;=2920914
- ;;^DD(.441,0,"IX","B",.441,.01)
- ;;=
- ;;^DD(.441,0,"NM","OTHER NAME FOR FORMAT")
- ;;=
- ;;^DD(.441,0,"UP")
- ;;=.44
- ;;^DD(.441,.01,0)
- ;;=OTHER NAME FOR FORMAT^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
- ;;^DD(.441,.01,1,0)
- ;;=^.1
- ;;^DD(.441,.01,1,1,0)
- ;;=.441^B
- ;;^DD(.441,.01,1,1,1)
- ;;=S ^DIST(.44,DA(1),5,"B",$E(X,1,30),DA)=""
- ;;^DD(.441,.01,1,1,2)
- ;;=K ^DIST(.44,DA(1),5,"B",$E(X,1,30),DA)
- ;;^DD(.441,.01,1,2,0)
- ;;=.44^C
- ;;^DD(.441,.01,1,2,1)
- ;;=S ^DIST(.44,"C",$E(X,1,30),DA(1),DA)=""
- ;;^DD(.441,.01,1,2,2)
- ;;=K ^DIST(.44,"C",$E(X,1,30),DA(1),DA)
- ;;^DD(.441,.01,1,2,"%D",0)
- ;;=^^1^1^2920917^
- ;;^DD(.441,.01,1,2,"%D",1,0)
- ;;=This cross reference allows look-up of formats based on OTHER NAMES.
- ;;^DD(.441,.01,1,2,"DT")
- ;;=2920917
- ;;^DD(.441,.01,3)
- ;;=Answer must be 3-30 characters in length.
- ;;^DD(.441,.01,21,0)
- ;;=^^2^2^2920917^
- ;;^DD(.441,.01,21,1,0)
- ;;=Another name by which the foreign format might be known. This name can be
- ;;^DD(.441,.01,21,2,0)
- ;;=used to access the format.
- ;;^DD(.441,.01,"DT")
- ;;=2920917
- ;;^DD(.441,1,0)
- ;;=DESCRIPTION FOR OTHER NAME^.4411^^1;0
- ;;^DD(.441,1,21,0)
- ;;=^^1^1^2920917^
- ;;^DD(.441,1,21,1,0)
- ;;=Description and information about the format's other name.
- ;;^DD(.4411,0)
- ;;=DESCRIPTION FOR OTHER NAME SUB-FIELD^^.01^1
- ;;^DD(.4411,0,"DT")
- ;;=2920914
- ;;^DD(.4411,0,"NM","DESCRIPTION FOR OTHER NAME")
- ;;=
- ;;^DD(.4411,0,"UP")
- ;;=.441
- ;;^DD(.4411,.01,0)
- ;;=DESCRIPTION FOR OTHER NAME^W^^0;1^Q
- ;;^DD(.4411,.01,"DT")
- ;;=2920914
- ;;^DD(.447,0)
- ;;=DESCRIPTION SUB-FIELD^^.01^1
- ;;^DD(.447,0,"DT")
- ;;=2920914
- ;;^DD(.447,0,"NM","DESCRIPTION")
- ;;=
- ;;^DD(.447,0,"UP")
- ;;=.44
- ;;^DD(.447,.01,0)
- ;;=DESCRIPTION^W^^0;1^Q
- ;;^DD(.447,.01,"DT")
- ;;=2920914
- ;;^DD(.448,0)
- ;;=USAGE NOTES SUB-FIELD^^.01^1
- ;;^DD(.448,0,"DT")
- ;;=2920914
- ;;^DD(.448,0,"NM","USAGE NOTES")
- ;;=
- ;;^DD(.448,0,"UP")
- ;;=.44
- ;;^DD(.448,.01,0)
- ;;=USAGE NOTES^W^^0;1^Q
- ;;^DD(.448,.01,"DT")
- ;;=2920914
- DINIT271 ;SFISC/DPC-LOAD OF FOREIGN FORMAT DD (END) ;9/9/94 12:56
- +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=""
- GOTO ^DINIT27A
- SET Y=$EXTRACT($TEXT(Q+I+1),5,999)
- SET X=$EXTRACT(X,4,999)
- SET @X=Y
- Q QUIT
- +1 ;;^DIC(.44,"%D",0)
- +2 ;;=^^3^3^2940908^
- +3 ;;^DIC(.44,"%D",1,0)
- +4 ;;=This file stores the characteristics of various file export formats,
- +5 ;;^DIC(.44,"%D",2,0)
- +6 ;;=which are used by the Export tool in building Export Templates to send
- +7 ;;^DIC(.44,"%D",3,0)
- +8 ;;=data to non-M systems.
- +9 ;;^DD(.44,11,0)
- +10 ;;=SUBSTITUTE FOR NULL^F^^0;13^K:$L(X)>15!($L(X)<1) X
- +11 ;;^DD(.44,11,3)
- +12 ;;=Answer must be 1-15 characters in length.
- +13 ;;^DD(.44,11,21,0)
- +14 ;;=^^5^5^2930107^
- +15 ;;^DD(.44,11,21,1,0)
- +16 ;;=This field only affects numeric values exported in a delimited format.
- +17 ;;^DD(.44,11,21,2,0)
- +18 ;;=If nothing is entered in this field, data values of null will cause
- +19 ;;^DD(.44,11,21,3,0)
- +20 ;;=nothing to be exported for that field in the particular record. If you
- +21 ;;^DD(.44,11,21,4,0)
- +22 ;;=want something to be exported when the data value is null, enter the
- +23 ;;^DD(.44,11,21,5,0)
- +24 ;;=character or characters in this field.
- +25 ;;^DD(.44,11,"DT")
- +26 ;;=2930107
- +27 ;;^DD(.44,40,0)
- +28 ;;=FORMAT USED?^S^0:NO;1:YES;^0;9^Q
- +29 ;;^DD(.44,40,21,0)
- +30 ;;=^^2^2^2920925^
- +31 ;;^DD(.44,40,21,1,0)
- +32 ;;=When set to YES, this field means that this Foriegn Format entry has been
- +33 ;;^DD(.44,40,21,2,0)
- +34 ;;=used to create an Export Template.
- +35 ;;^DD(.44,40,"DT")
- +36 ;;=2920925
- +37 ;;^DD(.44,50,0)
- +38 ;;=OTHER NAME FOR FORMAT^.441^^5;0
- +39 ;;^DD(.441,0)
- +40 ;;=OTHER NAME FOR FORMAT SUB-FIELD^^1^2
- +41 ;;^DD(.441,0,"DT")
- +42 ;;=2920914
- +43 ;;^DD(.441,0,"IX","B",.441,.01)
- +44 ;;=
- +45 ;;^DD(.441,0,"NM","OTHER NAME FOR FORMAT")
- +46 ;;=
- +47 ;;^DD(.441,0,"UP")
- +48 ;;=.44
- +49 ;;^DD(.441,.01,0)
- +50 ;;=OTHER NAME FOR FORMAT^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
- +51 ;;^DD(.441,.01,1,0)
- +52 ;;=^.1
- +53 ;;^DD(.441,.01,1,1,0)
- +54 ;;=.441^B
- +55 ;;^DD(.441,.01,1,1,1)
- +56 ;;=S ^DIST(.44,DA(1),5,"B",$E(X,1,30),DA)=""
- +57 ;;^DD(.441,.01,1,1,2)
- +58 ;;=K ^DIST(.44,DA(1),5,"B",$E(X,1,30),DA)
- +59 ;;^DD(.441,.01,1,2,0)
- +60 ;;=.44^C
- +61 ;;^DD(.441,.01,1,2,1)
- +62 ;;=S ^DIST(.44,"C",$E(X,1,30),DA(1),DA)=""
- +63 ;;^DD(.441,.01,1,2,2)
- +64 ;;=K ^DIST(.44,"C",$E(X,1,30),DA(1),DA)
- +65 ;;^DD(.441,.01,1,2,"%D",0)
- +66 ;;=^^1^1^2920917^
- +67 ;;^DD(.441,.01,1,2,"%D",1,0)
- +68 ;;=This cross reference allows look-up of formats based on OTHER NAMES.
- +69 ;;^DD(.441,.01,1,2,"DT")
- +70 ;;=2920917
- +71 ;;^DD(.441,.01,3)
- +72 ;;=Answer must be 3-30 characters in length.
- +73 ;;^DD(.441,.01,21,0)
- +74 ;;=^^2^2^2920917^
- +75 ;;^DD(.441,.01,21,1,0)
- +76 ;;=Another name by which the foreign format might be known. This name can be
- +77 ;;^DD(.441,.01,21,2,0)
- +78 ;;=used to access the format.
- +79 ;;^DD(.441,.01,"DT")
- +80 ;;=2920917
- +81 ;;^DD(.441,1,0)
- +82 ;;=DESCRIPTION FOR OTHER NAME^.4411^^1;0
- +83 ;;^DD(.441,1,21,0)
- +84 ;;=^^1^1^2920917^
- +85 ;;^DD(.441,1,21,1,0)
- +86 ;;=Description and information about the format's other name.
- +87 ;;^DD(.4411,0)
- +88 ;;=DESCRIPTION FOR OTHER NAME SUB-FIELD^^.01^1
- +89 ;;^DD(.4411,0,"DT")
- +90 ;;=2920914
- +91 ;;^DD(.4411,0,"NM","DESCRIPTION FOR OTHER NAME")
- +92 ;;=
- +93 ;;^DD(.4411,0,"UP")
- +94 ;;=.441
- +95 ;;^DD(.4411,.01,0)
- +96 ;;=DESCRIPTION FOR OTHER NAME^W^^0;1^Q
- +97 ;;^DD(.4411,.01,"DT")
- +98 ;;=2920914
- +99 ;;^DD(.447,0)
- +100 ;;=DESCRIPTION SUB-FIELD^^.01^1
- +101 ;;^DD(.447,0,"DT")
- +102 ;;=2920914
- +103 ;;^DD(.447,0,"NM","DESCRIPTION")
- +104 ;;=
- +105 ;;^DD(.447,0,"UP")
- +106 ;;=.44
- +107 ;;^DD(.447,.01,0)
- +108 ;;=DESCRIPTION^W^^0;1^Q
- +109 ;;^DD(.447,.01,"DT")
- +110 ;;=2920914
- +111 ;;^DD(.448,0)
- +112 ;;=USAGE NOTES SUB-FIELD^^.01^1
- +113 ;;^DD(.448,0,"DT")
- +114 ;;=2920914
- +115 ;;^DD(.448,0,"NM","USAGE NOTES")
- +116 ;;=
- +117 ;;^DD(.448,0,"UP")
- +118 ;;=.44
- +119 ;;^DD(.448,.01,0)
- +120 ;;=USAGE NOTES^W^^0;1^Q
- +121 ;;^DD(.448,.01,"DT")
- +122 ;;=2920914
