Return to DINIT04.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

DINIT04	;ISCSF/DPC - BLOCK1 FOR FOREIGN FORMAT;1/11/93  2:19 PM
	;;21.0;VA FileMan;;Dec 28, 1994
	;Per VHA Directive 10-93-142, this routine should not be modified.
	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
	Q
ENTRY	;
	;;^DIST(.404,.441,0)
	;;=DDXP FF BLK1^.44
	;;^DIST(.404,.441,15,0)
	;;=^^2^2^2930107^^^^
	;;^DIST(.404,.441,15,1,0)
	;;=Block makes up page 1 of DDXP FF FORM.  It is used to define a foreign
	;;^DIST(.404,.441,15,2,0)
	;;=format.
	;;^DIST(.404,.441,40,0)
	;;=^.4044I^21^16
	;;^DIST(.404,.441,40,1,0)
	;;=1^FOREIGN FILE FORMAT^0^
	;;^DIST(.404,.441,40,1,1)
	;;=.01
	;;^DIST(.404,.441,40,1,2)
	;;=1,42^30^1,21^0
	;;^DIST(.404,.441,40,3,0)
	;;=3^!M^1^
	;;^DIST(.404,.441,40,3,.1)
	;;=N I S Y="" F I=1:1:21+$L($G(DDXPFMNM)) S Y=Y_"="
	;;^DIST(.404,.441,40,3,2)
	;;=^^2,21^
	;;^DIST(.404,.441,40,4,0)
	;;=4^FIELD DELIMITER^0
	;;^DIST(.404,.441,40,4,1)
	;;=1
	;;^DIST(.404,.441,40,4,2)
	;;=4,23^15^4,6^0
	;;^DIST(.404,.441,40,5,0)
	;;=5^RECORD LENGTH FIXED?^0
	;;^DIST(.404,.441,40,5,1)
	;;=5
	;;^DIST(.404,.441,40,5,2)
	;;=4,69^3^4,48^1
	;;^DIST(.404,.441,40,6,0)
	;;=4.7^RECORD DELIMITER^0
	;;^DIST(.404,.441,40,6,1)
	;;=2
	;;^DIST(.404,.441,40,6,2)
	;;=6,23^15^6,5^0
	;;^DIST(.404,.441,40,7,0)
	;;=7^MAXIMUM OUTPUT LENGTH^0
	;;^DIST(.404,.441,40,7,1)
	;;=7
	;;^DIST(.404,.441,40,7,2)
	;;=5,69^5^5,46^0
	;;^DIST(.404,.441,40,7,3)
	;;=80
	;;^DIST(.404,.441,40,8,0)
	;;=8^NEED FOREIGN FIELD NAMES?^0
	;;^DIST(.404,.441,40,8,1)
	;;=6
	;;^DIST(.404,.441,40,8,2)
	;;=6,69^3^6,43^1
	;;^DIST(.404,.441,40,9,0)
	;;=9^FILE HEADER^0
	;;^DIST(.404,.441,40,9,1)
	;;=20
	;;^DIST(.404,.441,40,9,2)
	;;=8,23^40^8,10^0
	;;^DIST(.404,.441,40,10,0)
	;;=10^FILE TRAILER^0
	;;^DIST(.404,.441,40,10,1)
	;;=25
	;;^DIST(.404,.441,40,10,2)
	;;=9,23^40^9,9^0
	;;^DIST(.404,.441,40,11,0)
	;;=11^DATE FORMAT^0
	;;^DIST(.404,.441,40,11,1)
	;;=27
	;;^DIST(.404,.441,40,11,2)
	;;=10,23^40^10,10^0
	;;^DIST(.404,.441,40,16,0)
	;;=16^Go to next page to document format.^1^
	;;^DIST(.404,.441,40,16,2)
	;;=^^17,45^
	;;^DIST(.404,.441,40,17,0)
	;;=2^PAGE 1^1^
	;;^DIST(.404,.441,40,17,2)
	;;=^^1,74^
	;;^DIST(.404,.441,40,18,0)
	;;=12^QUOTE NON-NUMERIC?^0
	;;^DIST(.404,.441,40,18,1)
	;;=8
	;;^DIST(.404,.441,40,18,2)
	;;=13,23^3^13,4^1
	;;^DIST(.404,.441,40,19,0)
	;;=13^PROMPT FOR DATA TYPE?^0
	;;^DIST(.404,.441,40,19,1)
	;;=9
	;;^DIST(.404,.441,40,19,2)
	;;=14,23^3^14,1^1
	;;^DIST(.404,.441,40,20,0)
	;;=4.5^SEND LAST DELIMITER?^0
	;;^DIST(.404,.441,40,20,1)
	;;=10
	;;^DIST(.404,.441,40,20,2)
	;;=5,23^3^5,2^1
	;;^DIST(.404,.441,40,20,3)
	;;=YES
	;;^DIST(.404,.441,40,21,0)
	;;=11.5^SUBSTITUTE FOR NULL^0
	;;^DIST(.404,.441,40,21,1)
	;;=11
	;;^DIST(.404,.441,40,21,2)
	;;=12,23^15^12,2^0
	;;^DIST(.404,.441,40,"B",1,1)
	;;=
	;;^DIST(.404,.441,40,"B",2,17)
	;;=
	;;^DIST(.404,.441,40,"B",3,3)
	;;=
	;;^DIST(.404,.441,40,"B",4,4)
	;;=
	;;^DIST(.404,.441,40,"B",4.5,20)
	;;=
	;;^DIST(.404,.441,40,"B",4.7,6)
	;;=
	;;^DIST(.404,.441,40,"B",5,5)
	;;=
	;;^DIST(.404,.441,40,"B",7,7)
	;;=
	;;^DIST(.404,.441,40,"B",8,8)
	;;=
	;;^DIST(.404,.441,40,"B",9,9)
	;;=
	;;^DIST(.404,.441,40,"B",10,10)
	;;=
	;;^DIST(.404,.441,40,"B",11,11)
	;;=
	;;^DIST(.404,.441,40,"B",11.5,21)
	;;=
	;;^DIST(.404,.441,40,"B",12,18)
	;;=
	;;^DIST(.404,.441,40,"B",13,19)
	;;=
	;;^DIST(.404,.441,40,"B",16,16)
	;;=
	;;^DIST(.404,.441,40,"C","DATE FORMAT",11)
	;;=
	;;^DIST(.404,.441,40,"C","FIELD DELIMITER",4)
	;;=
	;;^DIST(.404,.441,40,"C","FILE HEADER",9)
	;;=
	;;^DIST(.404,.441,40,"C","FILE TRAILER",10)
	;;=
	;;^DIST(.404,.441,40,"C","FOREIGN FILE FORMAT",1)
	;;=
	;;^DIST(.404,.441,40,"C","GO TO NEXT PAGE TO DOCUMENT FORMAT.",16)
	;;=
	;;^DIST(.404,.441,40,"C","MAXIMUM OUTPUT LENGTH",7)
	;;=
	;;^DIST(.404,.441,40,"C","NEED FOREIGN FIELD NAMES?",8)
	;;=
	;;^DIST(.404,.441,40,"C","PAGE 1",17)
	;;=
	;;^DIST(.404,.441,40,"C","PROMPT FOR DATA TYPE?",19)
	;;=
	;;^DIST(.404,.441,40,"C","QUOTE NON-NUMERIC?",18)
	;;=
	;;^DIST(.404,.441,40,"C","RECORD DELIMITER",6)
	;;=
	;;^DIST(.404,.441,40,"C","RECORD LENGTH FIXED?",5)
	;;=
	;;^DIST(.404,.441,40,"C","SEND LAST DELIMITER?",20)
	;;=
	;;^DIST(.404,.441,40,"C","SUBSTITUTE FOR NULL",21)
	;;=