Return to DINIT08.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT08.m, revision 1.1.1.1

1.1       snw         1: DINIT08        ;SFISC/TKW - BRING DD FOR FILE .83, COMPILED ROUTINE ;9/9/94  13:33
                      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) G:X="" ^DINIT12 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:        ;;^DIC(.83,0,"GL")
                      7:        ;;=^DI(.83,
                      8:        ;;^DIC("B","COMPILED ROUTINE",.83)
                      9:        ;;=
                     10:        ;;^DIC(.83,"%D",0)
                     11:        ;;=^^5^5^2940908^
                     12:        ;;^DIC(.83,"%D",1,0)
                     13:        ;;=This file stores information used for creating compiled SORT routines.
                     14:        ;;^DIC(.83,"%D",2,0)
                     15:        ;;=During the FileMan SORT/PRINT option, if the user has specified that a
                     16:        ;;^DIC(.83,"%D",3,0)
                     17:        ;;=sort template is compiled, a routine name is generated by concatenating
                     18:        ;;^DIC(.83,"%D",4,0)
                     19:        ;;="DIZS" with the next available number from this list.  A flag indicates
                     20:        ;;^DIC(.83,"%D",5,0)
                     21:        ;;=whether or not a number is currently in use.
                     22:        ;;^DD(.83,0)
                     23:        ;;=FIELD^^1^2
                     24:        ;;^DD(.83,0,"DDA")
                     25:        ;;=N
                     26:        ;;^DD(.83,0,"DT")
                     27:        ;;=2930331
                     28:        ;;^DD(.83,0,"IX","B",.83,.01)
                     29:        ;;=
                     30:        ;;^DD(.83,0,"IX","C",.83,1)
                     31:        ;;=
                     32:        ;;^DD(.83,0,"NM","COMPILED ROUTINE")
                     33:        ;;=
                     34:        ;;^DD(.83,.01,0)
                     35:        ;;=ROUTINE NUMBER^RNJ4,0X^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
                     36:        ;;^DD(.83,.01,1,0)
                     37:        ;;=^.1
                     38:        ;;^DD(.83,.01,1,1,0)
                     39:        ;;=.83^B
                     40:        ;;^DD(.83,.01,1,1,1)
                     41:        ;;=S ^DI(.83,"B",$E(X,1,30),DA)=""
                     42:        ;;^DD(.83,.01,1,1,2)
                     43:        ;;=K ^DI(.83,"B",$E(X,1,30),DA)
                     44:        ;;^DD(.83,.01,3)
                     45:        ;;=Type a Number between 1 and 9999, 0 Decimal Digits
                     46:        ;;^DD(.83,.01,21,0)
                     47:        ;;=^^5^5^2930331^^^
                     48:        ;;^DD(.83,.01,21,1,0)
                     49:        ;;=This is a number that can be used to generate the name of a compiled
                     50:        ;;^DD(.83,.01,21,2,0)
                     51:        ;;=SORT routine.  The literal 'DIZS' is concatenated with the number to form
                     52:        ;;^DD(.83,.01,21,3,0)
                     53:        ;;=a compiled sort routine name.  The routine will be in use only during
                     54:        ;;^DD(.83,.01,21,4,0)
                     55:        ;;=the running of a sort/print.  After the print completes, the number
                     56:        ;;^DD(.83,.01,21,5,0)
                     57:        ;;=is again made available for use.
                     58:        ;;^DD(.83,.01,23,0)
                     59:        ;;=^^4^4^2930331^^
                     60:        ;;^DD(.83,.01,23,1,0)
                     61:        ;;=Generated and used during the FileMan sort/print option.  Manipulated
                     62:        ;;^DD(.83,.01,23,2,0)
                     63:        ;;=in routine DIOZ, that is called from DIO1.  DIOZ checks a
                     64:        ;;^DD(.83,.01,23,3,0)
                     65:        ;;=cross-reference on the 'IN USE' flag to find the next available number.
                     66:        ;;^DD(.83,.01,23,4,0)
                     67:        ;;=If none are available, a new one is added to the file.
                     68:        ;;^DD(.83,.01,"DT")
                     69:        ;;=2930719
                     70:        ;;^DD(.83,1,0)
                     71:        ;;=IN USE^S^y:YES, NUMBER IS IN USE;n:NOT IN USE;^0;2^Q
                     72:        ;;^DD(.83,1,1,0)
                     73:        ;;=^.1
                     74:        ;;^DD(.83,1,1,1,0)
                     75:        ;;=.83^C
                     76:        ;;^DD(.83,1,1,1,1)
                     77:        ;;=S ^DI(.83,"C",$E(X,1,30),DA)=""
                     78:        ;;^DD(.83,1,1,1,2)
                     79:        ;;=K ^DI(.83,"C",$E(X,1,30),DA)
                     80:        ;;^DD(.83,1,1,1,"%D",0)
                     81:        ;;=^^3^3^2930331^
                     82:        ;;^DD(.83,1,1,1,"%D",1,0)
                     83:        ;;=This cross-reference is used to control when a routine number is available
                     84:        ;;^DD(.83,1,1,1,"%D",2,0)
                     85:        ;;=for use in creating a compiled sort routine, during the FileMan sort/print
                     86:        ;;^DD(.83,1,1,1,"%D",3,0)
                     87:        ;;=option.
                     88:        ;;^DD(.83,1,1,1,"DT")
                     89:        ;;=2930331
                     90:        ;;^DD(.83,1,21,0)
                     91:        ;;=^^6^6^2930331^^
                     92:        ;;^DD(.83,1,21,1,0)
                     93:        ;;=During the running of the FileMan sort/print, if the sort is compiled,
                     94:        ;;^DD(.83,1,21,2,0)
                     95:        ;;=a cross-reference on this flag is checked to find the first available
                     96:        ;;^DD(.83,1,21,3,0)
                     97:        ;;=number that is not in use.  The number is then marked in use and is
                     98:        ;;^DD(.83,1,21,4,0)
                     99:        ;;=concatenated on the end of literal 'DIZS' to create the routine name
                    100:        ;;^DD(.83,1,21,5,0)
                    101:        ;;=of the compiled routine.  After the sort/print completes, the flag is
                    102:        ;;^DD(.83,1,21,6,0)
                    103:        ;;=then reset to 'NOT IN USE'.
                    104:        ;;^DD(.83,1,23,0)
                    105:        ;;=^^5^5^2930331^^
                    106:        ;;^DD(.83,1,23,1,0)
                    107:        ;;=Manipulated in routine DIOZ that is called from the FileMan sort routine
                    108:        ;;^DD(.83,1,23,2,0)
                    109:        ;;=DIO1.  The cross-reference on this field is used to control when a number
                    110:        ;;^DD(.83,1,23,3,0)
                    111:        ;;=is available for use to create a compiled sort routine name.  After
                    112:        ;;^DD(.83,1,23,4,0)
                    113:        ;;=the sort/print runs, the flag is set back to NOT IN USE so that the
                    114:        ;;^DD(.83,1,23,5,0)
                    115:        ;;=number is again available.
                    116:        ;;^DD(.83,1,"DT")
                    117:        ;;=2930331