Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DINIT2A3

DINIT2A3.m

Go to the documentation of this file.
  1. DINIT2A3 ;SFISC/MKO-KEY AND INDEX FILES ;3:21 PM 25 Apr 2002
  1. ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1. ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1. ;;Licensed under the terms of the Apache License, Version 2.0.
  1. ;
  1. 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
  1. G ^DINIT2A4
  1. Q Q
  1. ;;^DD(.111,1,21,6,0)
  1. ;;=Index file entry.
  1. ;;^DD(.111,1,"DT")
  1. ;;=2960124
  1. ;;^DD(.112,0)
  1. ;;=OVERFLOW KILL LOGIC SUB-FIELD^^2^2
  1. ;;^DD(.112,0,"DT")
  1. ;;=2960124
  1. ;;^DD(.112,0,"NM","OVERFLOW KILL LOGIC")
  1. ;;=
  1. ;;^DD(.112,0,"UP")
  1. ;;=.11
  1. ;;^DD(.112,.01,0)
  1. ;;=OVERFLOW KILL LOGIC NODE^MNJ6,0X^^0;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  1. ;;^DD(.112,.01,3)
  1. ;;=Type a Number between 1 and 999999, 0 Decimal Digits. Answer '??' for more help.
  1. ;;^DD(.112,.01,21,0)
  1. ;;=^^3^3^2980911^
  1. ;;^DD(.112,.01,21,1,0)
  1. ;;=Answer must be the number of the node under which the additional line of
  1. ;;^DD(.112,.01,21,2,0)
  1. ;;=Set Logic will be filed. Use the overflow nodes if the kill logic is too
  1. ;;^DD(.112,.01,21,3,0)
  1. ;;=long to fit in the KILL LOGIC field.
  1. ;;^DD(.112,.01,"DT")
  1. ;;=2980910
  1. ;;^DD(.112,2,0)
  1. ;;=OVERFLOW KILL LOGIC^RK^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1. ;;^DD(.112,2,3)
  1. ;;=Answer must be Standard M code. Answer '??' for more help.
  1. ;;^DD(.112,2,9)
  1. ;;=@
  1. ;;^DD(.112,2,21,0)
  1. ;;=^^6^6^2980911^
  1. ;;^DD(.112,2,21,1,0)
  1. ;;=Answer with the M code of the additional kill logic stored at this node.
  1. ;;^DD(.112,2,21,2,0)
  1. ;;=FileMan will not automatically execute this additional code, so the kill
  1. ;;^DD(.112,2,21,3,0)
  1. ;;=logic must invoke the additional code stored in this overflow node.
  1. ;;^DD(.112,2,21,4,0)
  1. ;;=
  1. ;;^DD(.112,2,21,5,0)
  1. ;;=The M code can assume that DIXR contains the internal entry number of the
  1. ;;^DD(.112,2,21,6,0)
  1. ;;=Index file entry.
  1. ;;^DD(.112,2,"DT")
  1. ;;=2960124
  1. ;;^DD(.114,0)
  1. ;;=CROSS-REFERENCE VALUES SUB-FIELD^^8^12
  1. ;;^DD(.114,0,"DT")
  1. ;;=2980723
  1. ;;^DD(.114,0,"ID",1)
  1. ;;=W ""
  1. ;;^DD(.114,0,"IX","B",.114,.01)
  1. ;;=
  1. ;;^DD(.114,0,"NM","CROSS-REFERENCE VALUES")
  1. ;;=
  1. ;;^DD(.114,0,"UP")
  1. ;;=.11
  1. ;;^DD(.114,.01,0)
  1. ;;=ORDER NUMBER^MNJ3,0^^0;1^K:+X'=X!(X>125)!(X<1)!(X?.E1"."1N.N) X
  1. ;;^DD(.114,.01,1,0)
  1. ;;=^.1
  1. ;;^DD(.114,.01,1,1,0)
  1. ;;=.114^B
  1. ;;^DD(.114,.01,1,1,1)
  1. ;;=S ^DD("IX",DA(1),11.1,"B",$E(X,1,30),DA)=""
  1. ;;^DD(.114,.01,1,1,2)
  1. ;;=K ^DD("IX",DA(1),11.1,"B",$E(X,1,30),DA)
  1. ;;^DD(.114,.01,1,1,"DT")
  1. ;;=2970320
  1. ;;^DD(.114,.01,3)
  1. ;;=Type a Number between 1 and 125, 0 Decimal Digits. Answer '??' for more help.
  1. ;;^DD(.114,.01,21,0)
  1. ;;=^^6^6^2980911^
  1. ;;^DD(.114,.01,21,1,0)
  1. ;;=Answer must be the order number of this cross-reference value.
  1. ;;^DD(.114,.01,21,2,0)
  1. ;;=
  1. ;;^DD(.114,.01,21,3,0)
  1. ;;=FileMan evaluates cross-reference values by order of "Order Number" and
  1. ;;^DD(.114,.01,21,4,0)
  1. ;;=places each value in the X(order#) array. The set and kill logic, for
  1. ;;^DD(.114,.01,21,5,0)
  1. ;;=example, can use X(2) to refer to the cross-reference value with order
  1. ;;^DD(.114,.01,21,6,0)
  1. ;;=number 2.
  1. ;;^DD(.114,.01,"DEL",1,0)
  1. ;;=I $P($G(DDS),U,2)="DIKC EDIT" D BLDLOG^DIKCFORM(DA(1)) S DIKCREB=1 I 0
  1. ;;^DD(.114,.01,"DT")
  1. ;;=3020425
  1. ;;^DD(.114,.5,0)
  1. ;;=SUBSCRIPT NUMBER^NJ3,0^^0;6^K:+X'=X!(X>125)!(X<1)!(X?.E1"."1N.N) X
  1. ;;^DD(.114,.5,1,0)
  1. ;;=^.1^^0
  1. ;;^DD(.114,.5,3)
  1. ;;=Type a Number between 1 and 125, 0 Decimal Digits. Answer '??' for more help.
  1. ;;^DD(.114,.5,21,0)
  1. ;;=^^3^3^2980911^
  1. ;;^DD(.114,.5,21,1,0)
  1. ;;=If this cross-reference value is used as a subscript in an index, enter
  1. ;;^DD(.114,.5,21,2,0)
  1. ;;=the subscript position number. The first subscript to the right of the
  1. ;;^DD(.114,.5,21,3,0)
  1. ;;=index name is subscript number 1.
  1. ;;^DD(.114,.5,"DT")
  1. ;;=2980611
  1. ;;^DD(.114,1,0)
  1. ;;=TYPE OF VALUE^RS^F:FIELD;C:COMPUTED VALUE;^0;2^Q
  1. ;;^DD(.114,1,3)
  1. ;;=Answer '??' for more help.
  1. ;;^DD(.114,1,21,0)
  1. ;;=^^4^4^2980911^
  1. ;;^DD(.114,1,21,1,0)
  1. ;;=Answer 'F' if this cross-reference value is based on the value of a field.
  1. ;;^DD(.114,1,21,2,0)
  1. ;;=
  1. ;;^DD(.114,1,21,3,0)
  1. ;;=Answer 'C' if this cross-reference value should be determined by executing
  1. ;;^DD(.114,1,21,4,0)
  1. ;;=the COMPUTED CODE.
  1. ;;^DD(.114,1,"DT")
  1. ;;=2960116
  1. ;;^DD(.114,2,0)
  1. ;;=FILE^NJ20,7^^0;3^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."8N.N) X
  1. ;;^DD(.114,2,3)
  1. ;;=Answer must be between 0 and 999999999999, with up to 7 decimal digits. Answer '??' for more help.
  1. ;;^DD(.114,2,21,0)
  1. ;;=^^2^2^2980910^
  1. ;;^DD(.114,2,21,1,0)
  1. ;;=If this cross-reference value is a field value, answer with the number of
  1. ;;^DD(.114,2,21,2,0)
  1. ;;=the file or subfile in which this field is defined.
  1. ;;^DD(.114,2,"DT")
  1. ;;=2960116
  1. ;;^DD(.114,3,0)
  1. ;;=FIELD^NJ20,7X^^0;4^D ITFLD^DIKCDD I $D(X) K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."8N.N) X
  1. ;;^DD(.114,3,3)
  1. ;;=Type a Number between 0 and 999999999999, 7 Decimal Digits. Answer '??' for more help.
  1. ;;^DD(.114,3,4)
  1. ;;=D EHFLD^DIKCDD
  1. ;;^DD(.114,3,21,0)
  1. ;;=^^1^1^2980910^^
  1. ;;^DD(.114,3,21,1,0)
  1. ;;=If this cross-reference value is a field, answer with the field number.
  1. ;;^DD(.114,3,"DT")
  1. ;;=2970902
  1. ;;^DD(.114,4,0)
  1. ;;=COMPUTED VALUE^F^^1;1^K:$L(X)>245!($L(X)<1) X
  1. ;;^DD(.114,4,3)
  1. ;;=Answer must be a valid FileMan computed expression. Answer '??' for more help.
  1. ;;^DD(.114,4,21,0)
  1. ;;=^^2^2^2960221^
  1. ;;^DD(.114,4,21,1,0)
  1. ;;=If this cross-reference value is computed, answer with the computed
  1. ;;^DD(.114,4,21,2,0)
  1. ;;=expression that evaluates to it.
  1. ;;^DD(.114,4,"DT")
  1. ;;=2960219
  1. ;;^DD(.114,4.5,0)
  1. ;;=COMPUTED CODE^K^^1.5;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1. ;;^DD(.114,4.5,3)
  1. ;;=This is Standard MUMPS code. Answer '??' for more help.
  1. ;;^DD(.114,4.5,9)
  1. ;;=@
  1. ;;^DD(.114,4.5,21,0)
  1. ;;=^^3^3^2990401^
  1. ;;^DD(.114,4.5,21,1,0)
  1. ;;=Answer with M code that sets X equal to the cross-reference value. The
  1. ;;^DD(.114,4.5,21,2,0)
  1. ;;=X(order#) array is available for those cross-reference values with lower
  1. ;;^DD(.114,4.5,21,3,0)
  1. ;;=Order Numbers, and the DA array describes the IEN of the current record.
  1. ;;^DD(.114,4.5,"DT")
  1. ;;=2960221
  1. ;;^DD(.114,5,0)
  1. ;;=TRANSFORM FOR STORAGE^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1. ;;^DD(.114,5,3)
  1. ;;=This is Standard M code. Answer '??' for more help.
  1. ;;^DD(.114,5,9)
  1. ;;=@
  1. ;;^DD(.114,5,21,0)
  1. ;;=^^14^14^3000106^
  1. ;;^DD(.114,5,21,1,0)
  1. ;;=Used only when setting or killing an entry in the index.
  1. ;;^DD(.114,5,21,2,0)
  1. ;;=
  1. ;;^DD(.114,5,21,3,0)
  1. ;;=Answer should be M code that sets the variable X to a new value. X is the
  1. ;;^DD(.114,5,21,4,0)
  1. ;;=only input variable that is guaranteed to be defined and is equal to the
  1. ;;^DD(.114,5,21,5,0)
  1. ;;=internal value of the field.
  1. ;;^DD(.114,5,21,6,0)
  1. ;;=
  1. ;;^DD(.114,5,21,7,0)
  1. ;;=TRANSFORM FOR STORAGE can be used on field-type cross-reference values to
  1. ;;^DD(.114,5,21,8,0)
  1. ;;=transform the internal value of the field before it is stored as a
  1. ;;^DD(.114,5,21,9,0)
  1. ;;=subscript in the index.
  1. ;;^DD(.114,5,21,10,0)
  1. ;;=
  1. ;;^DD(.114,5,21,11,0)
  1. ;;=If a match is made on this index during a lookup, then in order to
  1. ;;^DD(.114,5,21,12,0)
  1. ;;=properly display the resulting index value to the user, the developer may
  1. ;;^DD(.114,5,21,13,0)
  1. ;;=need to enter code into the TRANSFORM FOR DISPLAY field to transform the
  1. ;;^DD(.114,5,21,14,0)
  1. ;;=index value back to a displayable format.
  1. ;;^DD(.114,5,"DT")
  1. ;;=2980731