Annotation of freem_fileman/DINIT04.m, revision 1.1
1.1 ! snw 1: DINIT04 ;ISCSF/DPC - BLOCK1 FOR FOREIGN FORMAT;1/11/93 2:19 PM
! 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(ENTRY+I) G:X="" ^DINIT05 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
! 5: Q
! 6: ENTRY ;
! 7: ;;^DIST(.404,.441,0)
! 8: ;;=DDXP FF BLK1^.44
! 9: ;;^DIST(.404,.441,15,0)
! 10: ;;=^^2^2^2930107^^^^
! 11: ;;^DIST(.404,.441,15,1,0)
! 12: ;;=Block makes up page 1 of DDXP FF FORM. It is used to define a foreign
! 13: ;;^DIST(.404,.441,15,2,0)
! 14: ;;=format.
! 15: ;;^DIST(.404,.441,40,0)
! 16: ;;=^.4044I^21^16
! 17: ;;^DIST(.404,.441,40,1,0)
! 18: ;;=1^FOREIGN FILE FORMAT^0^
! 19: ;;^DIST(.404,.441,40,1,1)
! 20: ;;=.01
! 21: ;;^DIST(.404,.441,40,1,2)
! 22: ;;=1,42^30^1,21^0
! 23: ;;^DIST(.404,.441,40,3,0)
! 24: ;;=3^!M^1^
! 25: ;;^DIST(.404,.441,40,3,.1)
! 26: ;;=N I S Y="" F I=1:1:21+$L($G(DDXPFMNM)) S Y=Y_"="
! 27: ;;^DIST(.404,.441,40,3,2)
! 28: ;;=^^2,21^
! 29: ;;^DIST(.404,.441,40,4,0)
! 30: ;;=4^FIELD DELIMITER^0
! 31: ;;^DIST(.404,.441,40,4,1)
! 32: ;;=1
! 33: ;;^DIST(.404,.441,40,4,2)
! 34: ;;=4,23^15^4,6^0
! 35: ;;^DIST(.404,.441,40,5,0)
! 36: ;;=5^RECORD LENGTH FIXED?^0
! 37: ;;^DIST(.404,.441,40,5,1)
! 38: ;;=5
! 39: ;;^DIST(.404,.441,40,5,2)
! 40: ;;=4,69^3^4,48^1
! 41: ;;^DIST(.404,.441,40,6,0)
! 42: ;;=4.7^RECORD DELIMITER^0
! 43: ;;^DIST(.404,.441,40,6,1)
! 44: ;;=2
! 45: ;;^DIST(.404,.441,40,6,2)
! 46: ;;=6,23^15^6,5^0
! 47: ;;^DIST(.404,.441,40,7,0)
! 48: ;;=7^MAXIMUM OUTPUT LENGTH^0
! 49: ;;^DIST(.404,.441,40,7,1)
! 50: ;;=7
! 51: ;;^DIST(.404,.441,40,7,2)
! 52: ;;=5,69^5^5,46^0
! 53: ;;^DIST(.404,.441,40,7,3)
! 54: ;;=80
! 55: ;;^DIST(.404,.441,40,8,0)
! 56: ;;=8^NEED FOREIGN FIELD NAMES?^0
! 57: ;;^DIST(.404,.441,40,8,1)
! 58: ;;=6
! 59: ;;^DIST(.404,.441,40,8,2)
! 60: ;;=6,69^3^6,43^1
! 61: ;;^DIST(.404,.441,40,9,0)
! 62: ;;=9^FILE HEADER^0
! 63: ;;^DIST(.404,.441,40,9,1)
! 64: ;;=20
! 65: ;;^DIST(.404,.441,40,9,2)
! 66: ;;=8,23^40^8,10^0
! 67: ;;^DIST(.404,.441,40,10,0)
! 68: ;;=10^FILE TRAILER^0
! 69: ;;^DIST(.404,.441,40,10,1)
! 70: ;;=25
! 71: ;;^DIST(.404,.441,40,10,2)
! 72: ;;=9,23^40^9,9^0
! 73: ;;^DIST(.404,.441,40,11,0)
! 74: ;;=11^DATE FORMAT^0
! 75: ;;^DIST(.404,.441,40,11,1)
! 76: ;;=27
! 77: ;;^DIST(.404,.441,40,11,2)
! 78: ;;=10,23^40^10,10^0
! 79: ;;^DIST(.404,.441,40,16,0)
! 80: ;;=16^Go to next page to document format.^1^
! 81: ;;^DIST(.404,.441,40,16,2)
! 82: ;;=^^17,45^
! 83: ;;^DIST(.404,.441,40,17,0)
! 84: ;;=2^PAGE 1^1^
! 85: ;;^DIST(.404,.441,40,17,2)
! 86: ;;=^^1,74^
! 87: ;;^DIST(.404,.441,40,18,0)
! 88: ;;=12^QUOTE NON-NUMERIC?^0
! 89: ;;^DIST(.404,.441,40,18,1)
! 90: ;;=8
! 91: ;;^DIST(.404,.441,40,18,2)
! 92: ;;=13,23^3^13,4^1
! 93: ;;^DIST(.404,.441,40,19,0)
! 94: ;;=13^PROMPT FOR DATA TYPE?^0
! 95: ;;^DIST(.404,.441,40,19,1)
! 96: ;;=9
! 97: ;;^DIST(.404,.441,40,19,2)
! 98: ;;=14,23^3^14,1^1
! 99: ;;^DIST(.404,.441,40,20,0)
! 100: ;;=4.5^SEND LAST DELIMITER?^0
! 101: ;;^DIST(.404,.441,40,20,1)
! 102: ;;=10
! 103: ;;^DIST(.404,.441,40,20,2)
! 104: ;;=5,23^3^5,2^1
! 105: ;;^DIST(.404,.441,40,20,3)
! 106: ;;=YES
! 107: ;;^DIST(.404,.441,40,21,0)
! 108: ;;=11.5^SUBSTITUTE FOR NULL^0
! 109: ;;^DIST(.404,.441,40,21,1)
! 110: ;;=11
! 111: ;;^DIST(.404,.441,40,21,2)
! 112: ;;=12,23^15^12,2^0
! 113: ;;^DIST(.404,.441,40,"B",1,1)
! 114: ;;=
! 115: ;;^DIST(.404,.441,40,"B",2,17)
! 116: ;;=
! 117: ;;^DIST(.404,.441,40,"B",3,3)
! 118: ;;=
! 119: ;;^DIST(.404,.441,40,"B",4,4)
! 120: ;;=
! 121: ;;^DIST(.404,.441,40,"B",4.5,20)
! 122: ;;=
! 123: ;;^DIST(.404,.441,40,"B",4.7,6)
! 124: ;;=
! 125: ;;^DIST(.404,.441,40,"B",5,5)
! 126: ;;=
! 127: ;;^DIST(.404,.441,40,"B",7,7)
! 128: ;;=
! 129: ;;^DIST(.404,.441,40,"B",8,8)
! 130: ;;=
! 131: ;;^DIST(.404,.441,40,"B",9,9)
! 132: ;;=
! 133: ;;^DIST(.404,.441,40,"B",10,10)
! 134: ;;=
! 135: ;;^DIST(.404,.441,40,"B",11,11)
! 136: ;;=
! 137: ;;^DIST(.404,.441,40,"B",11.5,21)
! 138: ;;=
! 139: ;;^DIST(.404,.441,40,"B",12,18)
! 140: ;;=
! 141: ;;^DIST(.404,.441,40,"B",13,19)
! 142: ;;=
! 143: ;;^DIST(.404,.441,40,"B",16,16)
! 144: ;;=
! 145: ;;^DIST(.404,.441,40,"C","DATE FORMAT",11)
! 146: ;;=
! 147: ;;^DIST(.404,.441,40,"C","FIELD DELIMITER",4)
! 148: ;;=
! 149: ;;^DIST(.404,.441,40,"C","FILE HEADER",9)
! 150: ;;=
! 151: ;;^DIST(.404,.441,40,"C","FILE TRAILER",10)
! 152: ;;=
! 153: ;;^DIST(.404,.441,40,"C","FOREIGN FILE FORMAT",1)
! 154: ;;=
! 155: ;;^DIST(.404,.441,40,"C","GO TO NEXT PAGE TO DOCUMENT FORMAT.",16)
! 156: ;;=
! 157: ;;^DIST(.404,.441,40,"C","MAXIMUM OUTPUT LENGTH",7)
! 158: ;;=
! 159: ;;^DIST(.404,.441,40,"C","NEED FOREIGN FIELD NAMES?",8)
! 160: ;;=
! 161: ;;^DIST(.404,.441,40,"C","PAGE 1",17)
! 162: ;;=
! 163: ;;^DIST(.404,.441,40,"C","PROMPT FOR DATA TYPE?",19)
! 164: ;;=
! 165: ;;^DIST(.404,.441,40,"C","QUOTE NON-NUMERIC?",18)
! 166: ;;=
! 167: ;;^DIST(.404,.441,40,"C","RECORD DELIMITER",6)
! 168: ;;=
! 169: ;;^DIST(.404,.441,40,"C","RECORD LENGTH FIXED?",5)
! 170: ;;=
! 171: ;;^DIST(.404,.441,40,"C","SEND LAST DELIMITER?",20)
! 172: ;;=
! 173: ;;^DIST(.404,.441,40,"C","SUBSTITUTE FOR NULL",21)
! 174: ;;=
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT04.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman