Annotation of freem_fileman/DINIT270.m, revision 1.1
1.1 ! snw 1: DINIT270 ;SFISC/DPC-LOAD OF FOREIGN FORMAT DD (CONT) ;1/4/94 13:37
! 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 ^DINIT271:X="" S Y=$E($T(Q+I+1),5,999),X=$E(X,4,999),@X=Y
! 5: Q Q
! 6: ;;^DD(.44,7,21,5,0)
! 7: ;;=If 0 is entered, the user will be prompted for maximum length when
! 8: ;;^DD(.44,7,21,6,0)
! 9: ;;=creating the EXPORT template. If nothing is entered, the default will be
! 10: ;;^DD(.44,7,21,7,0)
! 11: ;;=80.
! 12: ;;^DD(.44,7,"DT")
! 13: ;;=2921026
! 14: ;;^DD(.44,8,0)
! 15: ;;=QUOTE NON-NUMERIC FIELDS?^S^1:YES;0:NO;^0;10^Q
! 16: ;;^DD(.44,8,3)
! 17: ;;=Enter '1' for YES or '0' for NO.
! 18: ;;^DD(.44,8,21,0)
! 19: ;;=^^7^7^2921013^
! 20: ;;^DD(.44,8,21,1,0)
! 21: ;;=If you want the values of fields that have a data type other than numeric
! 22: ;;^DD(.44,8,21,2,0)
! 23: ;;=to be surrounded by quotation marks ("), set this field to YES.
! 24: ;;^DD(.44,8,21,3,0)
! 25: ;;=
! 26: ;;^DD(.44,8,21,4,0)
! 27: ;;=NOTE: Only numeric fields in the home file (including multiples) are
! 28: ;;^DD(.44,8,21,5,0)
! 29: ;;=automatically considered to have a numeric data type. If you want the
! 30: ;;^DD(.44,8,21,6,0)
! 31: ;;=user to indicate which fields should be numeric, answer YES to the PROMPT
! 32: ;;^DD(.44,8,21,7,0)
! 33: ;;=FOR DATA TYPE? field.
! 34: ;;^DD(.44,8,"DT")
! 35: ;;=2921013
! 36: ;;^DD(.44,9,0)
! 37: ;;=PROMPT FOR DATA TYPE?^S^1:YES;0:NO;^0;11^Q
! 38: ;;^DD(.44,9,3)
! 39: ;;=Enter '1' for YES, '0' for NO.
! 40: ;;^DD(.44,9,21,0)
! 41: ;;=^^3^3^2921013^
! 42: ;;^DD(.44,9,21,1,0)
! 43: ;;=Answer YES if you want the user to be prompted for the data type of the
! 44: ;;^DD(.44,9,21,2,0)
! 45: ;;=various fields at the time that an export template is being created.
! 46: ;;^DD(.44,9,21,3,0)
! 47: ;;=Otherwise, the data types will be automatically derived.
! 48: ;;^DD(.44,9,"DT")
! 49: ;;=2921013
! 50: ;;^DD(.44,10,0)
! 51: ;;=SEND LAST FIELD DELIMITER?^S^0:NO;1:YES;^0;12^Q
! 52: ;;^DD(.44,10,3)
! 53: ;;=Enter '1' for YES, '0' for NO.
! 54: ;;^DD(.44,10,21,0)
! 55: ;;=^^3^3^2921028^
! 56: ;;^DD(.44,10,21,1,0)
! 57: ;;=Enter NO if you do not want a field delimiter to be output after the last
! 58: ;;^DD(.44,10,21,2,0)
! 59: ;;=field in a record. Enter YES if you do want a final field delimiter
! 60: ;;^DD(.44,10,21,3,0)
! 61: ;;=output.
! 62: ;;^DD(.44,10,"DT")
! 63: ;;=2921028
! 64: ;;^DD(.44,20,0)
! 65: ;;=FILE HEADER^FX^^1;E1,245^K:$L(X)>245!($L(X)<1) X I $E($G(X))'="""" K:DUZ(0)'="@" X D:$D(X) ^DIM
! 66: ;;^DD(.44,20,3)
! 67: ;;=Answer must be standard MUMPS code or a literal string in quotes.
! 68: ;;^DD(.44,20,21,0)
! 69: ;;=^^7^7^2921001^
! 70: ;;^DD(.44,20,21,1,0)
! 71: ;;=Use this field to produce output preceding the exported records. This
! 72: ;;^DD(.44,20,21,2,0)
! 73: ;;=will become part of your exported data.
! 74: ;;^DD(.44,20,21,3,0)
! 75: ;;=
! 76: ;;^DD(.44,20,21,4,0)
! 77: ;;=Enter either a literal string enclosed in quotation marks ("like this") or
! 78: ;;^DD(.44,20,21,5,0)
! 79: ;;=MUMPS code that will WRITE the desired output when XECUTED. For example:
! 80: ;;^DD(.44,20,21,6,0)
! 81: ;;=
! 82: ;;^DD(.44,20,21,7,0)
! 83: ;;= W "EXPORT CREATED BY USER NUMBER: "_$G(DUZ)
! 84: ;;^DD(.44,20,"DT")
! 85: ;;=2921028
! 86: ;;^DD(.44,25,0)
! 87: ;;=FILE TRAILER^FX^^2;E1,245^K:$L(X)>245!($L(X)<1) X I $E($G(X))'="""" K:DUZ(0)'="@" X D:$D(X) ^DIM
! 88: ;;^DD(.44,25,3)
! 89: ;;=Answer must be standard MUMPS code or a literal string in quotes.
! 90: ;;^DD(.44,25,21,0)
! 91: ;;=^^7^7^2921001^
! 92: ;;^DD(.44,25,21,1,0)
! 93: ;;=Use this field to produce output following the the exported records. This
! 94: ;;^DD(.44,25,21,2,0)
! 95: ;;=will become part of your exported data.
! 96: ;;^DD(.44,25,21,3,0)
! 97: ;;=
! 98: ;;^DD(.44,25,21,4,0)
! 99: ;;=Enter either a literal string enclosed in quotation marks ("like this") or
! 100: ;;^DD(.44,25,21,5,0)
! 101: ;;=MUMPS code that will WRITE the desired output when XECUTED. For example:
! 102: ;;^DD(.44,25,21,6,0)
! 103: ;;=
! 104: ;;^DD(.44,25,21,7,0)
! 105: ;;= W "EXPORT CREATED BY USER NUMBER: "_$G(DUZ)
! 106: ;;^DD(.44,25,"DT")
! 107: ;;=2921028
! 108: ;;^DD(.44,27,0)
! 109: ;;=DATE FORMAT^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
! 110: ;;^DD(.44,27,3)
! 111: ;;=This is Standard MUMPS code.
! 112: ;;^DD(.44,27,9)
! 113: ;;=@
! 114: ;;^DD(.44,27,21,0)
! 115: ;;=^^6^6^2920923^
! 116: ;;^DD(.44,27,21,1,0)
! 117: ;;=If you want dates output in VA FileMan's standard external date/time
! 118: ;;^DD(.44,27,21,2,0)
! 119: ;;=format, make NO entry in this field.
! 120: ;;^DD(.44,27,21,3,0)
! 121: ;;=
! 122: ;;^DD(.44,27,21,4,0)
! 123: ;;=If you want another format, enter MUMPS code here. The variable X will
! 124: ;;^DD(.44,27,21,5,0)
! 125: ;;=contain the date/time in VA FileMan's internal format. The MUMPS code
! 126: ;;^DD(.44,27,21,6,0)
! 127: ;;=should SET Y to the date/time in the format you desire.
! 128: ;;^DD(.44,27,"DT")
! 129: ;;=2920923
! 130: ;;^DD(.44,30,0)
! 131: ;;=DESCRIPTION^.447^^3;0
! 132: ;;^DD(.44,30,21,0)
! 133: ;;=^^1^1^2920917^
! 134: ;;^DD(.44,30,21,1,0)
! 135: ;;=A description of the foreign format.
! 136: ;;^DD(.44,31,0)
! 137: ;;=USAGE NOTES^.448^^4;0
! 138: ;;^DD(.44,31,21,0)
! 139: ;;=^^2^2^2920917^
! 140: ;;^DD(.44,31,21,1,0)
! 141: ;;=Information about the use of the format; for example, which commands on
! 142: ;;^DD(.44,31,21,2,0)
! 143: ;;=the foreign system should be used to load the file.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT270.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman