Annotation of freem_fileman/DINIT27.m, revision 1.1
1.1 ! snw 1: DINIT27 ;SFISC/DPC-LOADS DD OF FOREIGN FORMAT FILE ;01:40 PM 13 Sep 1994
! 2: ;;21.0;VA FileMan;;Dec 28, 1994
! 3: ;Per VHA Directive 10-93-142, this routine should not be modified.
! 4: F I=1:2 S X=$T(Q+I) G ^DINIT270:X="" S Y=$E($T(Q+I+1),5,999),X=$E(X,4,999),@X=Y
! 5: Q Q
! 6: ;;^DIC(.44,0,"GL")
! 7: ;;=^DIST(.44,
! 8: ;;^DIC("B","FOREIGN FORMAT",.44)
! 9: ;;=
! 10: ;;^DD(.44,0)
! 11: ;;=FIELD^^11^19
! 12: ;;^DD(.44,0,"DDA")
! 13: ;;=N
! 14: ;;^DD(.44,0,"DT")
! 15: ;;=2930107
! 16: ;;^DD(.44,0,"ID","WRITE")
! 17: ;;=D:Y<1 EN^DDIOL("** DISTRIBUTED BY VA FILEMAN **","","?35")
! 18: ;;^DD(.44,0,"IX","B",.44,.01)
! 19: ;;=
! 20: ;;^DD(.44,0,"IX","C",.441,.01)
! 21: ;;=
! 22: ;;^DD(.44,0,"NM","FOREIGN FORMAT")
! 23: ;;=
! 24: ;;^DD(.44,0,"PT",.4,105)
! 25: ;;=
! 26: ;;^DD(.44,.01,0)
! 27: ;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
! 28: ;;^DD(.44,.01,1,0)
! 29: ;;=^.1
! 30: ;;^DD(.44,.01,1,1,0)
! 31: ;;=.44^B
! 32: ;;^DD(.44,.01,1,1,1)
! 33: ;;=S ^DIST(.44,"B",$E(X,1,30),DA)=""
! 34: ;;^DD(.44,.01,1,1,2)
! 35: ;;=K ^DIST(.44,"B",$E(X,1,30),DA)
! 36: ;;^DD(.44,.01,3)
! 37: ;;=Name must be 3-30 characters in length, not starting with punctuation.
! 38: ;;^DD(.44,.01,21,0)
! 39: ;;=^^1^1^2920914^
! 40: ;;^DD(.44,.01,21,1,0)
! 41: ;;=This field identifies the format used by the non-VA FileMan application.
! 42: ;;^DD(.44,.01,"DEL",1,0)
! 43: ;;=I DA<1
! 44: ;;^DD(.44,.01,"DT")
! 45: ;;=2920914
! 46: ;;^DD(.44,1,0)
! 47: ;;=FIELD DELIMITER^FX^^0;2^K:$L(X)>15!($L(X)<1)!'((X?1AP.E)!(X?3N)!(X?3N1","3N)!(X?3N1","3N1","3N)!(X?3N1","3N1","3N1","3N)) X
! 48: ;;^DD(.44,1,3)
! 49: ;;=Answer must be 1-15 characters in length.
! 50: ;;^DD(.44,1,21,0)
! 51: ;;=^^10^10^2921028^
! 52: ;;^DD(.44,1,21,1,0)
! 53: ;;=Contents of the field delimiter is output between each field. Depending
! 54: ;;^DD(.44,1,21,2,0)
! 55: ;;=on the contents of the SEND LAST FIELD DELIMITER? field, the delimiter may
! 56: ;;^DD(.44,1,21,3,0)
! 57: ;;=be output after the last field, too. Identify the delimiter either by 1-15
! 58: ;;^DD(.44,1,21,4,0)
! 59: ;;=characters not beginning with a number or by the ASCII value of the
! 60: ;;^DD(.44,1,21,5,0)
! 61: ;;=delimiter. When specifying the ASCII value, use 3 numbers (e.g., '009'
! 62: ;;^DD(.44,1,21,6,0)
! 63: ;;=for ASCII 9). Up to four ASCII-character values can be specified,
! 64: ;;^DD(.44,1,21,7,0)
! 65: ;;=separated by commas.
! 66: ;;^DD(.44,1,21,8,0)
! 67: ;;=
! 68: ;;^DD(.44,1,21,9,0)
! 69: ;;=If 'Ask' is entered, the user will be prompted for the field delimiter
! 70: ;;^DD(.44,1,21,10,0)
! 71: ;;=when creating the EXPORT template.
! 72: ;;^DD(.44,1,"DT")
! 73: ;;=2920914
! 74: ;;^DD(.44,2,0)
! 75: ;;=RECORD DELIMITER^F^^0;3^K:$L(X)>15!($L(X)<1)!'((X?1AP.E)!(X?3N)!(X?3N1","3N)!(X?3N1","3N1","3N)!(X?3N1","3N1","3N1","3N)) X
! 76: ;;^DD(.44,2,3)
! 77: ;;=Answer must be 1-15 characters in length.
! 78: ;;^DD(.44,2,21,0)
! 79: ;;=^^8^8^2921026^
! 80: ;;^DD(.44,2,21,1,0)
! 81: ;;=Contents of the record delimiter is output after each record. Identify
! 82: ;;^DD(.44,2,21,2,0)
! 83: ;;=the delimiter either by 1-15 characters not beginning with a number or by
! 84: ;;^DD(.44,2,21,3,0)
! 85: ;;=the ASCII value of the delimiter. When specifying the ASCII value, use 3
! 86: ;;^DD(.44,2,21,4,0)
! 87: ;;=numbers (e.g., '009' for ASCII 9). Up to four ASCII-character values can
! 88: ;;^DD(.44,2,21,5,0)
! 89: ;;=be specified, separated by commas.
! 90: ;;^DD(.44,2,21,6,0)
! 91: ;;=
! 92: ;;^DD(.44,2,21,7,0)
! 93: ;;=If 'Ask' is entered, the user is prompted for the record delimiter when
! 94: ;;^DD(.44,2,21,8,0)
! 95: ;;=creating the EXPORT template.
! 96: ;;^DD(.44,2,"DT")
! 97: ;;=2920914
! 98: ;;^DD(.44,3,0)
! 99: ;;=LINE CONTINUATION CHARACTER^F^^0;4^K:$L(X)>15!($L(X)<1) X
! 100: ;;^DD(.44,3,3)
! 101: ;;=Answer must be 1-15 characters in length.
! 102: ;;^DD(.44,3,21,0)
! 103: ;;=^^1^1^2921028^
! 104: ;;^DD(.44,3,21,1,0)
! 105: ;;=Not used yet.
! 106: ;;^DD(.44,3,"DT")
! 107: ;;=2920828
! 108: ;;^DD(.44,4,0)
! 109: ;;=LINE CONTINUATION LOCATION^S^e:END OF LINE;b:BEGINNING OF LINE;^0;5^Q
! 110: ;;^DD(.44,4,21,0)
! 111: ;;=^^1^1^2920917^
! 112: ;;^DD(.44,4,21,1,0)
! 113: ;;=Not used yet.
! 114: ;;^DD(.44,4,"DT")
! 115: ;;=2920828
! 116: ;;^DD(.44,5,0)
! 117: ;;=RECORD LENGTH FIXED?^S^1:YES;0:NO;^0;6^Q
! 118: ;;^DD(.44,5,21,0)
! 119: ;;=^^3^3^2920917^
! 120: ;;^DD(.44,5,21,1,0)
! 121: ;;=Enter YES if the fields will be fixed length causing a fixed length record
! 122: ;;^DD(.44,5,21,2,0)
! 123: ;;=to be created. When the EXPORT template is created, the user is prompted
! 124: ;;^DD(.44,5,21,3,0)
! 125: ;;=for the length of each field in the TARGET file.
! 126: ;;^DD(.44,5,"DT")
! 127: ;;=2920828
! 128: ;;^DD(.44,6,0)
! 129: ;;=NEED FOREIGN FIELD NAMES?^S^1:YES;0:NO;^0;7^Q
! 130: ;;^DD(.44,6,21,0)
! 131: ;;=^^3^3^2921013^
! 132: ;;^DD(.44,6,21,1,0)
! 133: ;;=Answer YES if it is necessary to save the field names from the foreign
! 134: ;;^DD(.44,6,21,2,0)
! 135: ;;=file in the export file. The user will be prompted for the names when the
! 136: ;;^DD(.44,6,21,3,0)
! 137: ;;=EXPORT template is created.
! 138: ;;^DD(.44,6,"DT")
! 139: ;;=2920828
! 140: ;;^DD(.44,7,0)
! 141: ;;=MAXIMUM OUTPUT LENGTH^NJ4,0^^0;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
! 142: ;;^DD(.44,7,3)
! 143: ;;=Type a Number between 0 and 9999, 0 Decimal Digits
! 144: ;;^DD(.44,7,21,0)
! 145: ;;=^^7^7^2921026^
! 146: ;;^DD(.44,7,21,1,0)
! 147: ;;=The maximum length of a "line" of output; maximum number of characters
! 148: ;;^DD(.44,7,21,2,0)
! 149: ;;=before a LINE FEED is issued. For most exports, this will be the maximum
! 150: ;;^DD(.44,7,21,3,0)
! 151: ;;=record length.
! 152: ;;^DD(.44,7,21,4,0)
! 153: ;;=
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT27.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman