Return to DINIT04.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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: 	;;=