DINIT2AA ;SFISC/MKO-DATA FOR KEY AND INDEX FILES ;10:50 AM 30 Mar 1999
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT2AB S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DD("IX",.001,0)
;;=0^ADEL^Delete Keys and Indexes associated with a deleted field.^MU^^F^R^I^0^^^^^A
;;^DD("IX",.001,1)
;;=Q
;;^DD("IX",.001,2)
;;=D:'$D(DICATTED)&'$D(DIU) DELXRF^DICATT4(DA(1),DA)
;;^DD("IX",.1101,0)
;;=.11^BB^The uniqueness index for the primary key of the Index file^R^^R^IR^I^.11^^^^^LS
;;^DD("IX",.1101,.1,0)
;;=^^3^3^2980611^
;;^DD("IX",.1101,.1,1,0)
;;=The BB index, on the key of the Index file, lets FileMan test potential
;;^DD("IX",.1101,.1,2,0)
;;=key values for uniqueness. It is a regular compound index with two fields,
;;^DD("IX",.1101,.1,3,0)
;;=the .01 (File) and .02 (Index Name).
;;^DD("IX",.1101,1)
;;=S ^DD("IX","BB",X(1),X(2),DA)=""
;;^DD("IX",.1101,2)
;;=K ^DD("IX","BB",X(1),X(2),DA)
;;^DD("IX",.1101,2.5)
;;=K ^DD("IX","BB")
;;^DD("IX",.1101,11.1,0)
;;=^.114^2^2
;;^DD("IX",.1101,11.1,1,0)
;;=1^F^.11^.01^^1
;;^DD("IX",.1101,11.1,2,0)
;;=2^F^.11^.02^^2
;;^DD("IX",.1102,0)
;;=.11^IX^Allows user to look up Indexes by Name.^R^^F^IR^I^.11^^^^^LS
;;^DD("IX",.1102,.1,0)
;;=^^2^2^2990303^
;;^DD("IX",.1102,.1,1,0)
;;=This 'Regular' index on the Name field (#.02) allows users to select an
;;^DD("IX",.1102,.1,2,0)
;;=index by its name.
;;^DD("IX",.1102,1)
;;=S ^DD("IX","IX",$E(X,1,30),DA)=""
;;^DD("IX",.1102,2)
;;=K ^DD("IX","IX",$E(X,1,30),DA)
;;^DD("IX",.1102,2.5)
;;=K ^DD("IX","IX")
;;^DD("IX",.1102,11.1,0)
;;=^.114IA^1^1
;;^DD("IX",.1102,11.1,1,0)
;;=1^F^.11^.02^30^1^F
;;^DD("IX",.11401,0)
;;=.114^BB^The uniqueness index of the Cross-Reference Values multiple of the Index file^R^^F^IR^I^.114^^^^^LS
;;^DD("IX",.11401,1)
;;=S ^DD("IX",DA(1),11.1,"BB",X,DA)=""
;;^DD("IX",.11401,2)
;;=K ^DD("IX",DA(1),11.1,"BB",X,DA)
;;^DD("IX",.11401,2.5)
;;=K ^DD("IX",DA(1),11.1,"BB")
;;^DD("IX",.11401,11.1,0)
;;=^.114IA^1^1
;;^DD("IX",.11401,11.1,1,0)
;;=1^F^.114^.01^^1
;;^DD("IX",.11402,0)
;;=.114^AC^Lets FileMan find cross reference values by subscript^R^^F^IR^I^.114^^^^^S
;;^DD("IX",.11402,1)
;;=S ^DD("IX",DA(1),11.1,"AC",X,DA)=""
;;^DD("IX",.11402,2)
;;=K ^DD("IX",DA(1),11.1,"AC",X,DA)
;;^DD("IX",.11402,2.5)
;;=K ^DD("IX",DA(1),11.1,"AC")
;;^DD("IX",.11402,11.1,0)
;;=^.114IA^1^1
;;^DD("IX",.11402,11.1,1,0)
;;=1^F^.114^.5^^1^F
;;^DD("IX",.11403,0)
;;=.11^F^Lets FileMan find the indexes affected when a field changes^R^^R^IR^W^.114^^^^^LS
;;^DD("IX",.11403,.1,0)
;;=^^6^6^2970303^^
;;^DD("IX",.11403,.1,1,0)
;;=The F index, is a whole file compound cross-reference on two fields in the
;;^DD("IX",.11403,.1,2,0)
;;=Cross-Reference Values multiple: File (#2) and Field (#3). It lets FileMan
;;^DD("IX",.11403,.1,3,0)
;;=identify the indexes that might be affected when a field value changes.
;;^DD("IX",.11403,.1,4,0)
;;=The checking of this index is an essential step during field level
;;^DD("IX",.11403,.1,5,0)
;;=transactions in building the list of record level cross-references that
;;^DD("IX",.11403,.1,6,0)
;;=must be fired after user-driven changes to the record are finished.
;;^DD("IX",.11403,1)
;;=S ^DD("IX","F",X(1),X(2),DA(1),DA)=""
;;^DD("IX",.11403,2)
;;=K ^DD("IX","F",X(1),X(2),DA(1),DA)
;;^DD("IX",.11403,2.5)
;;=K ^DD("IX","F")
;;^DD("IX",.11403,11.1,0)
;;=^.114^2^2
;;^DD("IX",.11403,11.1,1,0)
;;=1^F^.114^2^^1
;;^DD("IX",.11403,11.1,2,0)
;;=2^F^.114^3^^2
;;^DD("IX",.3101,0)
;;=.31^BB^The uniqueness index for the Key file^R^^R^IR^I^.31^^^^^LS
;;^DD("IX",.3101,.1,0)
;;=^^3^3^2970314^^^^
;;^DD("IX",.3101,.1,1,0)
;;=The BB index, the uniqueness index for the Key file's key, lets FileMan
;;^DD("IX",.3101,.1,2,0)
;;=test potential key values for uniqueness. It is a regular compound index
;;^DD("IX",.3101,.1,3,0)
;;=with two fields, the .01 (File) and .02 (Key Name).
;;^DD("IX",.3101,1)
;;=S ^DD("KEY","BB",X(1),X(2),DA)=""
;;^DD("IX",.3101,2)
;;=K ^DD("KEY","BB",X(1),X(2),DA)
;;^DD("IX",.3101,2.5)
;;=K ^DD("KEY","BB")
;;^DD("IX",.3101,11.1,0)
;;=^.114^2^2
;;^DD("IX",.3101,11.1,1,0)
;;=1^F^.31^.01^^1
;;^DD("IX",.3101,11.1,2,0)
;;=2^F^.31^.02^^2
;;^DD("IX",.3102,0)
;;=.31^AP^Lets FileMan determine the primary key of a file^R^^R^IR^I^.31^^^^^S
;;^DD("IX",.3102,1)
;;=S ^DD("KEY","AP",X(1),X(2),DA)=""
;;^DD("IX",.3102,1.4)
;;=S X=X(2)="P"
;;^DD("IX",.3102,2)
;;=K ^DD("KEY","AP",X(1),X(2),DA)
;;^DD("IX",.3102,2.4)
;;=S X=X(2)="P"
;;^DD("IX",.3102,2.5)
;;=K ^DD("KEY","AP")
;;^DD("IX",.3102,11.1,0)
;;=^.114I^2^2
;;^DD("IX",.3102,11.1,1,0)
;;=1^F^.31^.01^^1
;;^DD("IX",.3102,11.1,2,0)
;;=2^F^.31^1^^2
;;^DD("IX",.3103,0)
;;=.31^AU^Lets FileMan determine whether an index is a uniqueness index for a key^R^^F^IR^I^.31^^^^^S
;;^DD("IX",.3103,1)
;;=S ^DD("KEY","AU",X,DA)=""
;;^DD("IX",.3103,2)
;;=K ^DD("KEY","AU",X,DA)
;;^DD("IX",.3103,2.5)
;;=K ^DD("KEY","AU")
;;^DD("IX",.3103,11.1,0)
;;=^.114IA^1^1
;;^DD("IX",.3103,11.1,1,0)
;;=1^F^.31^3^^1^F
;;^DD("IX",.31201,0)
;;=.312^BB^The uniqueness index for Field multiple of the Key file.^R^^R^IR^I^.312^^^^^LS
;;^DD("IX",.31201,.1,0)
;;=^^3^3^2970203^^
;;^DD("IX",.31201,.1,1,0)
;;=The BB index, on the key of the Field multiple of the Key file, lets
;;^DD("IX",.31201,.1,2,0)
;;=FileMan test potential key values for uniqueness. It is a regular compound
;;^DD("IX",.31201,.1,3,0)
;;=index with two fields, the .01 (Field) and .02 (File).
;;^DD("IX",.31201,1)
;;=S ^DD("KEY",DA(1),2,"BB",X(1),X(2),DA)=""
;;^DD("IX",.31201,2)
;;=K ^DD("KEY",DA(1),2,"BB",X(1),X(2),DA)
;;^DD("IX",.31201,2.5)
;;=K ^DD("KEY",DA(1),2,"BB")
;;^DD("IX",.31201,11.1,0)
;;=^.114^2^2
;;^DD("IX",.31201,11.1,1,0)
;;=1^F^.312^.01^^1
;;^DD("IX",.31201,11.1,2,0)
;;=2^F^.312^.02^^2
;;^DD("IX",.31202,0)
;;=.31^F^Lets FileMan find the Keys that include each field^R^^R^IR^W^.312^^^^^LS
;;^DD("IX",.31202,.1,0)
;;=^^4^4^2980911^
;;^DD("IX",.31202,.1,1,0)
;;=The F index, a whole file compound cross-reference on the key of the
;;^DD("IX",.31202,.1,2,0)
;;=Fields multiple of the Key file, lets FileMan determine the keys a field
;;^DD("IX",.31202,.1,3,0)
;;=is part of. This is essential for identifying the key value uniqueness
;;^DD("IX",.31202,.1,4,0)
;;=tests that must be done when a field value changes.
;;^DD("IX",.31202,1)
;;=S ^DD("KEY","F",X(1),X(2),DA(1),DA)=""
;;^DD("IX",.31202,2)
;;=K ^DD("KEY","F",X(1),X(2),DA(1),DA)
;;^DD("IX",.31202,2.5)
;;=K ^DD("KEY","F")
;;^DD("IX",.31202,11.1,0)
;;=^.114^2^2
;;^DD("IX",.31202,11.1,1,0)
;;=1^F^.312^.02^^1
;;^DD("IX",.31202,11.1,2,0)
;;=2^F^.312^.01^^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT2AA 7181 printed Sep 23, 2025@20:27:37 Page 2
DINIT2AA ;SFISC/MKO-DATA FOR KEY AND INDEX FILES ;10:50 AM 30 Mar 1999
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 FOR I=1:2
SET X=$TEXT(ENTRY+I)
if X=""
GOTO ^DINIT2AB
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DD("IX",.001,0)
+2 ;;=0^ADEL^Delete Keys and Indexes associated with a deleted field.^MU^^F^R^I^0^^^^^A
+3 ;;^DD("IX",.001,1)
+4 ;;=Q
+5 ;;^DD("IX",.001,2)
+6 ;;=D:'$D(DICATTED)&'$D(DIU) DELXRF^DICATT4(DA(1),DA)
+7 ;;^DD("IX",.1101,0)
+8 ;;=.11^BB^The uniqueness index for the primary key of the Index file^R^^R^IR^I^.11^^^^^LS
+9 ;;^DD("IX",.1101,.1,0)
+10 ;;=^^3^3^2980611^
+11 ;;^DD("IX",.1101,.1,1,0)
+12 ;;=The BB index, on the key of the Index file, lets FileMan test potential
+13 ;;^DD("IX",.1101,.1,2,0)
+14 ;;=key values for uniqueness. It is a regular compound index with two fields,
+15 ;;^DD("IX",.1101,.1,3,0)
+16 ;;=the .01 (File) and .02 (Index Name).
+17 ;;^DD("IX",.1101,1)
+18 ;;=S ^DD("IX","BB",X(1),X(2),DA)=""
+19 ;;^DD("IX",.1101,2)
+20 ;;=K ^DD("IX","BB",X(1),X(2),DA)
+21 ;;^DD("IX",.1101,2.5)
+22 ;;=K ^DD("IX","BB")
+23 ;;^DD("IX",.1101,11.1,0)
+24 ;;=^.114^2^2
+25 ;;^DD("IX",.1101,11.1,1,0)
+26 ;;=1^F^.11^.01^^1
+27 ;;^DD("IX",.1101,11.1,2,0)
+28 ;;=2^F^.11^.02^^2
+29 ;;^DD("IX",.1102,0)
+30 ;;=.11^IX^Allows user to look up Indexes by Name.^R^^F^IR^I^.11^^^^^LS
+31 ;;^DD("IX",.1102,.1,0)
+32 ;;=^^2^2^2990303^
+33 ;;^DD("IX",.1102,.1,1,0)
+34 ;;=This 'Regular' index on the Name field (#.02) allows users to select an
+35 ;;^DD("IX",.1102,.1,2,0)
+36 ;;=index by its name.
+37 ;;^DD("IX",.1102,1)
+38 ;;=S ^DD("IX","IX",$E(X,1,30),DA)=""
+39 ;;^DD("IX",.1102,2)
+40 ;;=K ^DD("IX","IX",$E(X,1,30),DA)
+41 ;;^DD("IX",.1102,2.5)
+42 ;;=K ^DD("IX","IX")
+43 ;;^DD("IX",.1102,11.1,0)
+44 ;;=^.114IA^1^1
+45 ;;^DD("IX",.1102,11.1,1,0)
+46 ;;=1^F^.11^.02^30^1^F
+47 ;;^DD("IX",.11401,0)
+48 ;;=.114^BB^The uniqueness index of the Cross-Reference Values multiple of the Index file^R^^F^IR^I^.114^^^^^LS
+49 ;;^DD("IX",.11401,1)
+50 ;;=S ^DD("IX",DA(1),11.1,"BB",X,DA)=""
+51 ;;^DD("IX",.11401,2)
+52 ;;=K ^DD("IX",DA(1),11.1,"BB",X,DA)
+53 ;;^DD("IX",.11401,2.5)
+54 ;;=K ^DD("IX",DA(1),11.1,"BB")
+55 ;;^DD("IX",.11401,11.1,0)
+56 ;;=^.114IA^1^1
+57 ;;^DD("IX",.11401,11.1,1,0)
+58 ;;=1^F^.114^.01^^1
+59 ;;^DD("IX",.11402,0)
+60 ;;=.114^AC^Lets FileMan find cross reference values by subscript^R^^F^IR^I^.114^^^^^S
+61 ;;^DD("IX",.11402,1)
+62 ;;=S ^DD("IX",DA(1),11.1,"AC",X,DA)=""
+63 ;;^DD("IX",.11402,2)
+64 ;;=K ^DD("IX",DA(1),11.1,"AC",X,DA)
+65 ;;^DD("IX",.11402,2.5)
+66 ;;=K ^DD("IX",DA(1),11.1,"AC")
+67 ;;^DD("IX",.11402,11.1,0)
+68 ;;=^.114IA^1^1
+69 ;;^DD("IX",.11402,11.1,1,0)
+70 ;;=1^F^.114^.5^^1^F
+71 ;;^DD("IX",.11403,0)
+72 ;;=.11^F^Lets FileMan find the indexes affected when a field changes^R^^R^IR^W^.114^^^^^LS
+73 ;;^DD("IX",.11403,.1,0)
+74 ;;=^^6^6^2970303^^
+75 ;;^DD("IX",.11403,.1,1,0)
+76 ;;=The F index, is a whole file compound cross-reference on two fields in the
+77 ;;^DD("IX",.11403,.1,2,0)
+78 ;;=Cross-Reference Values multiple: File (#2) and Field (#3). It lets FileMan
+79 ;;^DD("IX",.11403,.1,3,0)
+80 ;;=identify the indexes that might be affected when a field value changes.
+81 ;;^DD("IX",.11403,.1,4,0)
+82 ;;=The checking of this index is an essential step during field level
+83 ;;^DD("IX",.11403,.1,5,0)
+84 ;;=transactions in building the list of record level cross-references that
+85 ;;^DD("IX",.11403,.1,6,0)
+86 ;;=must be fired after user-driven changes to the record are finished.
+87 ;;^DD("IX",.11403,1)
+88 ;;=S ^DD("IX","F",X(1),X(2),DA(1),DA)=""
+89 ;;^DD("IX",.11403,2)
+90 ;;=K ^DD("IX","F",X(1),X(2),DA(1),DA)
+91 ;;^DD("IX",.11403,2.5)
+92 ;;=K ^DD("IX","F")
+93 ;;^DD("IX",.11403,11.1,0)
+94 ;;=^.114^2^2
+95 ;;^DD("IX",.11403,11.1,1,0)
+96 ;;=1^F^.114^2^^1
+97 ;;^DD("IX",.11403,11.1,2,0)
+98 ;;=2^F^.114^3^^2
+99 ;;^DD("IX",.3101,0)
+100 ;;=.31^BB^The uniqueness index for the Key file^R^^R^IR^I^.31^^^^^LS
+101 ;;^DD("IX",.3101,.1,0)
+102 ;;=^^3^3^2970314^^^^
+103 ;;^DD("IX",.3101,.1,1,0)
+104 ;;=The BB index, the uniqueness index for the Key file's key, lets FileMan
+105 ;;^DD("IX",.3101,.1,2,0)
+106 ;;=test potential key values for uniqueness. It is a regular compound index
+107 ;;^DD("IX",.3101,.1,3,0)
+108 ;;=with two fields, the .01 (File) and .02 (Key Name).
+109 ;;^DD("IX",.3101,1)
+110 ;;=S ^DD("KEY","BB",X(1),X(2),DA)=""
+111 ;;^DD("IX",.3101,2)
+112 ;;=K ^DD("KEY","BB",X(1),X(2),DA)
+113 ;;^DD("IX",.3101,2.5)
+114 ;;=K ^DD("KEY","BB")
+115 ;;^DD("IX",.3101,11.1,0)
+116 ;;=^.114^2^2
+117 ;;^DD("IX",.3101,11.1,1,0)
+118 ;;=1^F^.31^.01^^1
+119 ;;^DD("IX",.3101,11.1,2,0)
+120 ;;=2^F^.31^.02^^2
+121 ;;^DD("IX",.3102,0)
+122 ;;=.31^AP^Lets FileMan determine the primary key of a file^R^^R^IR^I^.31^^^^^S
+123 ;;^DD("IX",.3102,1)
+124 ;;=S ^DD("KEY","AP",X(1),X(2),DA)=""
+125 ;;^DD("IX",.3102,1.4)
+126 ;;=S X=X(2)="P"
+127 ;;^DD("IX",.3102,2)
+128 ;;=K ^DD("KEY","AP",X(1),X(2),DA)
+129 ;;^DD("IX",.3102,2.4)
+130 ;;=S X=X(2)="P"
+131 ;;^DD("IX",.3102,2.5)
+132 ;;=K ^DD("KEY","AP")
+133 ;;^DD("IX",.3102,11.1,0)
+134 ;;=^.114I^2^2
+135 ;;^DD("IX",.3102,11.1,1,0)
+136 ;;=1^F^.31^.01^^1
+137 ;;^DD("IX",.3102,11.1,2,0)
+138 ;;=2^F^.31^1^^2
+139 ;;^DD("IX",.3103,0)
+140 ;;=.31^AU^Lets FileMan determine whether an index is a uniqueness index for a key^R^^F^IR^I^.31^^^^^S
+141 ;;^DD("IX",.3103,1)
+142 ;;=S ^DD("KEY","AU",X,DA)=""
+143 ;;^DD("IX",.3103,2)
+144 ;;=K ^DD("KEY","AU",X,DA)
+145 ;;^DD("IX",.3103,2.5)
+146 ;;=K ^DD("KEY","AU")
+147 ;;^DD("IX",.3103,11.1,0)
+148 ;;=^.114IA^1^1
+149 ;;^DD("IX",.3103,11.1,1,0)
+150 ;;=1^F^.31^3^^1^F
+151 ;;^DD("IX",.31201,0)
+152 ;;=.312^BB^The uniqueness index for Field multiple of the Key file.^R^^R^IR^I^.312^^^^^LS
+153 ;;^DD("IX",.31201,.1,0)
+154 ;;=^^3^3^2970203^^
+155 ;;^DD("IX",.31201,.1,1,0)
+156 ;;=The BB index, on the key of the Field multiple of the Key file, lets
+157 ;;^DD("IX",.31201,.1,2,0)
+158 ;;=FileMan test potential key values for uniqueness. It is a regular compound
+159 ;;^DD("IX",.31201,.1,3,0)
+160 ;;=index with two fields, the .01 (Field) and .02 (File).
+161 ;;^DD("IX",.31201,1)
+162 ;;=S ^DD("KEY",DA(1),2,"BB",X(1),X(2),DA)=""
+163 ;;^DD("IX",.31201,2)
+164 ;;=K ^DD("KEY",DA(1),2,"BB",X(1),X(2),DA)
+165 ;;^DD("IX",.31201,2.5)
+166 ;;=K ^DD("KEY",DA(1),2,"BB")
+167 ;;^DD("IX",.31201,11.1,0)
+168 ;;=^.114^2^2
+169 ;;^DD("IX",.31201,11.1,1,0)
+170 ;;=1^F^.312^.01^^1
+171 ;;^DD("IX",.31201,11.1,2,0)
+172 ;;=2^F^.312^.02^^2
+173 ;;^DD("IX",.31202,0)
+174 ;;=.31^F^Lets FileMan find the Keys that include each field^R^^R^IR^W^.312^^^^^LS
+175 ;;^DD("IX",.31202,.1,0)
+176 ;;=^^4^4^2980911^
+177 ;;^DD("IX",.31202,.1,1,0)
+178 ;;=The F index, a whole file compound cross-reference on the key of the
+179 ;;^DD("IX",.31202,.1,2,0)
+180 ;;=Fields multiple of the Key file, lets FileMan determine the keys a field
+181 ;;^DD("IX",.31202,.1,3,0)
+182 ;;=is part of. This is essential for identifying the key value uniqueness
+183 ;;^DD("IX",.31202,.1,4,0)
+184 ;;=tests that must be done when a field value changes.
+185 ;;^DD("IX",.31202,1)
+186 ;;=S ^DD("KEY","F",X(1),X(2),DA(1),DA)=""
+187 ;;^DD("IX",.31202,2)
+188 ;;=K ^DD("KEY","F",X(1),X(2),DA(1),DA)
+189 ;;^DD("IX",.31202,2.5)
+190 ;;=K ^DD("KEY","F")
+191 ;;^DD("IX",.31202,11.1,0)
+192 ;;=^.114^2^2
+193 ;;^DD("IX",.31202,11.1,1,0)
+194 ;;=1^F^.312^.02^^1
+195 ;;^DD("IX",.31202,11.1,2,0)
+196 ;;=2^F^.312^.01^^2
