Return to DINIT127.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT127.m, revision 1.1.1.1

1.1       snw         1: DINIT127       ;SFISC/TKW - INITIALIZE V21 SORT TEMPLATE DD NODES ;6/24/94  11: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(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
                      5: Q      Q
                      6:        ;;^DD(.401418,3,21,0)
                      7:        ;;=^^2^2^2930201^
                      8:        ;;^DD(.401418,3,21,1,0)
                      9:        ;;=This field contains the global reference of the file to which we are
                     10:        ;;^DD(.401418,3,21,2,0)
                     11:        ;;=jumping relationally (i.e., the destination file).
                     12:        ;;^DD(.401418,3,23,0)
                     13:        ;;=^^1^1^2930201^
                     14:        ;;^DD(.401418,3,23,1,0)
                     15:        ;;=Built by COLON^DIP0 during the sort/print option.
                     16:        ;;^DD(.401418,3,"DT")
                     17:        ;;=2930201
                     18:        ;;^DD(.401418,4,0)
                     19:        ;;=MULTIVALUED FLAG^S^0:NOT MULTI-VALUED;1:YES, MULTI-VALUED;^0;5^Q
                     20:        ;;^DD(.401418,4,21,0)
                     21:        ;;=^^6^6^2930201^
                     22:        ;;^DD(.401418,4,21,1,0)
                     23:        ;;=This flag indicates whether the relational jump will result in going to
                     24:        ;;^DD(.401418,4,21,2,0)
                     25:        ;;=a file that has a many-to-one relationship to the starting (home) file
                     26:        ;;^DD(.401418,4,21,3,0)
                     27:        ;;=(i.e., a jump to a backwards pointer) or a one-to-one relationship (i.e.,
                     28:        ;;^DD(.401418,4,21,4,0)
                     29:        ;;=a forwards pointer jump).  The flag will be set to 1 to indicate that
                     30:        ;;^DD(.401418,4,21,5,0)
                     31:        ;;=that there is a many-to-one or multi-valued relationship to the home
                     32:        ;;^DD(.401418,4,21,6,0)
                     33:        ;;=file, or to 0 if not.
                     34:        ;;^DD(.401418,4,23,0)
                     35:        ;;=^^1^1^2930201^
                     36:        ;;^DD(.401418,4,23,1,0)
                     37:        ;;=Set in COLON^DIP0 during the sort/print option.
                     38:        ;;^DD(.401418,4,"DT")
                     39:        ;;=2930201
                     40:        ;;^DD(.401418,5,0)
                     41:        ;;=RELATIONAL CODE^K^^RCOD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
                     42:        ;;^DD(.401418,5,3)
                     43:        ;;=This is Standard MUMPS code, used to make a relational jump.
                     44:        ;;^DD(.401418,5,9)
                     45:        ;;=@
                     46:        ;;^DD(.401418,5,21,0)
                     47:        ;;=^^2^2^2930201^
                     48:        ;;^DD(.401418,5,21,1,0)
                     49:        ;;=This is the MUMPS code needed to perform the relational jump during the
                     50:        ;;^DD(.401418,5,21,2,0)
                     51:        ;;=sort part of the sort/print option.
                     52:        ;;^DD(.401418,5,23,0)
                     53:        ;;=^^1^1^2930201^
                     54:        ;;^DD(.401418,5,23,1,0)
                     55:        ;;=Generated from COLON^DIP0 during the sort/print option.
                     56:        ;;^DD(.401418,5,"DT")
                     57:        ;;=2930201
                     58:        ;;^DD(.401419,0)
                     59:        ;;=OVERFLOW DATA SUB-FIELD^^2^3
                     60:        ;;^DD(.401419,0,"DT")
                     61:        ;;=2930201
                     62:        ;;^DD(.401419,0,"IX","B",.401419,.01)
                     63:        ;;=
                     64:        ;;^DD(.401419,0,"NM","OVERFLOW DATA")
                     65:        ;;=
                     66:        ;;^DD(.401419,0,"UP")
                     67:        ;;=.4014
                     68:        ;;^DD(.401419,.01,0)
                     69:        ;;=FIRST SUBSCRIPT FOR OVERFLOW^MF^^0;1^K:$L(X)>20!($L(X)<1) X
                     70:        ;;^DD(.401419,.01,1,0)
                     71:        ;;=^.1
                     72:        ;;^DD(.401419,.01,1,1,0)
                     73:        ;;=.401419^B
                     74:        ;;^DD(.401419,.01,1,1,1)
                     75:        ;;=S ^DIBT(DA(2),2,DA(1),3,"B",$E(X,1,30),DA)=""
                     76:        ;;^DD(.401419,.01,1,1,2)
                     77:        ;;=K ^DIBT(DA(2),2,DA(1),3,"B",$E(X,1,30),DA)
                     78:        ;;^DD(.401419,.01,3)
                     79:        ;;=Answer must be 1-20 characters in length.  This multiple contains overflow code needed for sorting by relational or computed fields.
                     80:        ;;^DD(.401419,.01,"DT")
                     81:        ;;=2930201
                     82:        ;;^DD(.401419,1,0)
                     83:        ;;=SECOND SUBSCRIPT FOR OVERFLOW^NJ10,4^^0;2^K:+X'=X!(X>99999.9999)!(X<0)!(X?.E1"."5N.N) X
                     84:        ;;^DD(.401419,1,3)
                     85:        ;;=Type a Number between 0 and 99999.9999, 4 Decimal Digits
                     86:        ;;^DD(.401419,1,21,0)
                     87:        ;;=^^4^4^2930201^
                     88:        ;;^DD(.401419,1,21,1,0)
                     89:        ;;=This field contains the second subscript from the part of the DPP array
                     90:        ;;^DD(.401419,1,21,2,0)
                     91:        ;;=that contains overflow code executed when sorting by a field that is
                     92:        ;;^DD(.401419,1,21,3,0)
                     93:        ;;=gotten to relationally or a computed field.  Overflow code is generated
                     94:        ;;^DD(.401419,1,21,4,0)
                     95:        ;;=when needed by DICOMP.  This field will typically look something like 9.2.
                     96:        ;;^DD(.401419,1,23,0)
                     97:        ;;=^^1^1^2930201^
                     98:        ;;^DD(.401419,1,23,1,0)
                     99:        ;;=Generated by DICOMP from ^DIP0 during the sort/print option.
                    100:        ;;^DD(.401419,1,"DT")
                    101:        ;;=2930201
                    102:        ;;^DD(.401419,2,0)
                    103:        ;;=OVERFLOW CODE^K^^OVF0;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
                    104:        ;;^DD(.401419,2,3)
                    105:        ;;=This is Standard MUMPS code.
                    106:        ;;^DD(.401419,2,9)
                    107:        ;;=@
                    108:        ;;^DD(.401419,2,21,0)
                    109:        ;;=^^3^3^2930201^
                    110:        ;;^DD(.401419,2,21,1,0)
                    111:        ;;=This is MUMPS code generated when needed by DICOMP, when sorting by a
                    112:        ;;^DD(.401419,2,21,2,0)
                    113:        ;;=field that must be gotten to relationally, or a computed field.  This
                    114:        ;;^DD(.401419,2,21,3,0)
                    115:        ;;=will only be used if DICOMP generates overflow code in the X array.
                    116:        ;;^DD(.401419,2,23,0)
                    117:        ;;=^^1^1^2930201^
                    118:        ;;^DD(.401419,2,23,1,0)
                    119:        ;;=Generated by DICOMP from ^DIP0 during the sort/print option.
                    120:        ;;^DD(.401419,2,"DT")
                    121:        ;;=2930201