Return to DINIT03.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT03.m, revision 1.1.1.1

1.1       snw         1: DINIT03        ;SFISC/DPC-FORM FOR FOREIGN FORMATS ;2/24/93  13:18
                      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="" ^DINIT04 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
                      5:        Q
                      6: ENTRY  ;
                      7:        ;;^DIST(.403,.441,0)
                      8:        ;;=DDXP FF FORM1^^^^2920925^2921112.085213^^.44
                      9:        ;;^DIST(.403,.441,20)
                     10:        ;;=D FORMVAL^DDXP1
                     11:        ;;^DIST(.403,.441,40,0)
                     12:        ;;=^.4031I^3^3
                     13:        ;;^DIST(.403,.441,40,1,0)
                     14:        ;;=1^^1,1^2^2^0
                     15:        ;;^DIST(.403,.441,40,1,1)
                     16:        ;;=PAGE 1
                     17:        ;;^DIST(.403,.441,40,1,15,0)
                     18:        ;;=^^1^1^2920925^^
                     19:        ;;^DIST(.403,.441,40,1,15,1,0)
                     20:        ;;=First page for Foreign Format definition.  It contains block DDXP FF BLK1.
                     21:        ;;^DIST(.403,.441,40,1,40,0)
                     22:        ;;=^.4032PI^.441^1
                     23:        ;;^DIST(.403,.441,40,1,40,.441,0)
                     24:        ;;=.441^1^1,1^e
                     25:        ;;^DIST(.403,.441,40,1,40,"AC",1,.441)
                     26:        ;;=
                     27:        ;;^DIST(.403,.441,40,1,40,"B",.441,.441)
                     28:        ;;=
                     29:        ;;^DIST(.403,.441,40,2,0)
                     30:        ;;=2^^1,1^1^1^0
                     31:        ;;^DIST(.403,.441,40,2,1)
                     32:        ;;=PAGE 2
                     33:        ;;^DIST(.403,.441,40,2,15,0)
                     34:        ;;=^^2^2^2920925^
                     35:        ;;^DIST(.403,.441,40,2,15,1,0)
                     36:        ;;=Page 2 of the form used to define a Foreign Format.  It contains block
                     37:        ;;^DIST(.403,.441,40,2,15,2,0)
                     38:        ;;=DDXP FF BLK2 and subpage containing DDXP FF BLK3.
                     39:        ;;^DIST(.403,.441,40,2,40,0)
                     40:        ;;=^.4032PI^.442^1
                     41:        ;;^DIST(.403,.441,40,2,40,.442,0)
                     42:        ;;=.442^1^1,1^e
                     43:        ;;^DIST(.403,.441,40,2,40,"AC",1,.442)
                     44:        ;;=
                     45:        ;;^DIST(.403,.441,40,2,40,"B",.442,.442)
                     46:        ;;=
                     47:        ;;^DIST(.403,.441,40,3,0)
                     48:        ;;=3^^12,23^^^1^16,59
                     49:        ;;^DIST(.403,.441,40,3,1)
                     50:        ;;=POP-UP PAGE 1
                     51:        ;;^DIST(.403,.441,40,3,15,0)
                     52:        ;;=^^2^2^2920925^^
                     53:        ;;^DIST(.403,.441,40,3,15,1,0)
                     54:        ;;=This pop-up page is called from page 2 of DDXP FF FORM1.  It contains
                     55:        ;;^DIST(.403,.441,40,3,15,2,0)
                     56:        ;;=block DDXP FF BLK3, which has the OTHER NAME FOR FORMAT multiple.
                     57:        ;;^DIST(.403,.441,40,3,40,0)
                     58:        ;;=^.4032PI^.443^1
                     59:        ;;^DIST(.403,.441,40,3,40,.443,0)
                     60:        ;;=.443^1^1,1^e
                     61:        ;;^DIST(.403,.441,40,3,40,"AC",1,.443)
                     62:        ;;=
                     63:        ;;^DIST(.403,.441,40,3,40,"B",.443,.443)
                     64:        ;;=
                     65:        ;;^DIST(.403,.441,40,"B",1,1)
                     66:        ;;=
                     67:        ;;^DIST(.403,.441,40,"B",2,2)
                     68:        ;;=
                     69:        ;;^DIST(.403,.441,40,"B",3,3)
                     70:        ;;=
                     71:        ;;^DIST(.403,.441,40,"C","PAGE 1",1)
                     72:        ;;=
                     73:        ;;^DIST(.403,.441,40,"C","PAGE 2",2)
                     74:        ;;=
                     75:        ;;^DIST(.403,.441,40,"C","POP-UP PAGE 1",3)
                     76:        ;;=