Return to DINIT06.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT06	;SFISC/DPC-BLOCK FOR FOREIGN FORMAT ;1/11/93  14:13
    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="" ^DINIT07 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
    5: 	Q
    6: ENTRY	;
    7: 	;;^DIST(.404,.443,0)
    8: 	;;=DDXP FF BLK3^.441^0
    9: 	;;^DIST(.404,.443,15,0)
   10: 	;;=^^2^2^2920925^^
   11: 	;;^DIST(.404,.443,15,1,0)
   12: 	;;=Block for subpage containing fields from the OTHER NAME FOR FORMAT
   13: 	;;^DIST(.404,.443,15,2,0)
   14: 	;;=multiple.  Used in defining a foreign file format.
   15: 	;;^DIST(.404,.443,40,0)
   16: 	;;=^.4044I^2^2
   17: 	;;^DIST(.404,.443,40,1,0)
   18: 	;;=1^OTHER NAME^0
   19: 	;;^DIST(.404,.443,40,1,1)
   20: 	;;=.01
   21: 	;;^DIST(.404,.443,40,1,2)
   22: 	;;=2,20^15^2,8^0
   23: 	;;^DIST(.404,.443,40,2,0)
   24: 	;;=2^DESCRIPTION (WP)^0
   25: 	;;^DIST(.404,.443,40,2,1)
   26: 	;;=1
   27: 	;;^DIST(.404,.443,40,2,2)
   28: 	;;=4,20^1^4,2^0
   29: 	;;^DIST(.404,.443,40,"B",1,1)
   30: 	;;=
   31: 	;;^DIST(.404,.443,40,"B",2,2)
   32: 	;;=
   33: 	;;^DIST(.404,.443,40,"C","DESCRIPTION (WP)",2)
   34: 	;;=
   35: 	;;^DIST(.404,.443,40,"C","OTHER NAME",1)
   36: 	;;=