| [613] | 1 | DINIT2AB ;SFISC/MKO-DATA FOR KEY AND INDEX FILES ;10:50 AM 30 Mar 1999
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 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="" ^DINIT2AC S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
|
|---|
| 5 | Q
|
|---|
| 6 | ENTRY ;
|
|---|
| 7 | ;;^DD("IX",.31203,0)
|
|---|
| 8 | ;;=.312^S^Lets FileMan step through Key fields in sequence^R^^R^IR^I^.312^^^^^LS
|
|---|
| 9 | ;;^DD("IX",.31203,.1,0)
|
|---|
| 10 | ;;=^^4^4^2980911^
|
|---|
| 11 | ;;^DD("IX",.31203,.1,1,0)
|
|---|
| 12 | ;;=The S index, a compound index on all fields of the Fields multiple of the
|
|---|
| 13 | ;;^DD("IX",.31203,.1,2,0)
|
|---|
| 14 | ;;=Key file, lets FileMan step through the key fields in sequence. This is
|
|---|
| 15 | ;;^DD("IX",.31203,.1,3,0)
|
|---|
| 16 | ;;=essential for prompting, returning values, as well as for the generation
|
|---|
| 17 | ;;^DD("IX",.31203,.1,4,0)
|
|---|
| 18 | ;;=of each key's uniqueness index.
|
|---|
| 19 | ;;^DD("IX",.31203,1)
|
|---|
| 20 | ;;=S ^DD("KEY",DA(1),2,"S",X(1),X(2),X(3),DA)=""
|
|---|
| 21 | ;;^DD("IX",.31203,2)
|
|---|
| 22 | ;;=K ^DD("KEY",DA(1),2,"S",X(1),X(2),X(3),DA)
|
|---|
| 23 | ;;^DD("IX",.31203,2.5)
|
|---|
| 24 | ;;=K ^DD("KEY",DA(1),2,"S")
|
|---|
| 25 | ;;^DD("IX",.31203,11.1,0)
|
|---|
| 26 | ;;=^.114^3^3
|
|---|
| 27 | ;;^DD("IX",.31203,11.1,1,0)
|
|---|
| 28 | ;;=1^F^.312^1^^1
|
|---|
| 29 | ;;^DD("IX",.31203,11.1,2,0)
|
|---|
| 30 | ;;=2^F^.312^.01^^2
|
|---|
| 31 | ;;^DD("IX",.31203,11.1,3,0)
|
|---|
| 32 | ;;=3^F^.312^.02^^3
|
|---|
