DINIT2B8 ;SFISC/MKO-SQLI FILES ;10:51 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(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
G ^DINIT2B9
Q Q
;;^DIC(1.5216,0,"GL")
;;=^DMSQ("E",
;;^DIC("B","SQLI_TABLE_ELEMENT",1.5216)
;;=
;;^DIC(1.5216,"%D",0)
;;=^^5^5^2970806^^^
;;^DIC(1.5216,"%D",1,0)
;;=Names and domains of primary keys, columns and foreign keys.
;;^DIC(1.5216,"%D",2,0)
;;=Each represents the relational concept of an attribute, whose essential
;;^DIC(1.5216,"%D",3,0)
;;=charactaristics are a name (unique by relation) and a domain.
;;^DIC(1.5216,"%D",4,0)
;;=
;;^DIC(1.5216,"%D",5,0)
;;=See SQLI_PRIMARY_KEY, SQLI_COLUMN and SQLI_FOREIGN key for more.
;;^DD(1.5216,0)
;;=FIELD^^4^5
;;^DD(1.5216,0,"DDA")
;;=N
;;^DD(1.5216,0,"DT")
;;=2960820
;;^DD(1.5216,0,"IX","B",1.5216,.01)
;;=
;;^DD(1.5216,0,"IX","C",1.5216,1)
;;=
;;^DD(1.5216,0,"IX","D",1.5216,2)
;;=
;;^DD(1.5216,0,"IX","E",1.5216,3)
;;=
;;^DD(1.5216,0,"IX","F",1.5216,3)
;;=
;;^DD(1.5216,0,"IX","G",1.5216,2)
;;=
;;^DD(1.5216,0,"NM","SQLI_TABLE_ELEMENT")
;;=
;;^DD(1.5216,0,"PT",1.5217,.01)
;;=
;;^DD(1.5216,0,"PT",1.5218,.01)
;;=
;;^DD(1.5216,0,"PT",1.5219,.01)
;;=
;;^DD(1.5216,0,"VRPK")
;;=DI
;;^DD(1.5216,.01,0)
;;=E_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,"_")?1U.UN) X
;;^DD(1.5216,.01,.1)
;;=Table Element
;;^DD(1.5216,.01,1,0)
;;=^.1
;;^DD(1.5216,.01,1,1,0)
;;=1.5216^B
;;^DD(1.5216,.01,1,1,1)
;;=S ^DMSQ("E","B",$E(X,1,30),DA)=""
;;^DD(1.5216,.01,1,1,2)
;;=K ^DMSQ("E","B",$E(X,1,30),DA)
;;^DD(1.5216,.01,3)
;;=Answer must be 3-30 characters in length.
;;^DD(1.5216,.01,9)
;;=^
;;^DD(1.5216,.01,21,0)
;;=^^2^2^2960926^
;;^DD(1.5216,.01,21,1,0)
;;=Name of table element.
;;^DD(1.5216,.01,21,2,0)
;;=Foreign keys are suffixed _FK or PFK. Primary keys are suffixed _PK.
;;^DD(1.5216,.01,"DT")
;;=2960820
;;^DD(1.5216,1,0)
;;=E_DOMAIN^RP1.5212'^DMSQ("DM",^0;2^Q
;;^DD(1.5216,1,.1)
;;=Domain
;;^DD(1.5216,1,1,0)
;;=^.1
;;^DD(1.5216,1,1,1,0)
;;=1.5216^C
;;^DD(1.5216,1,1,1,1)
;;=S ^DMSQ("E","C",$E(X,1,30),DA)=""
;;^DD(1.5216,1,1,1,2)
;;=K ^DMSQ("E","C",$E(X,1,30),DA)
;;^DD(1.5216,1,1,1,"DT")
;;=2960823
;;^DD(1.5216,1,9)
;;=^
;;^DD(1.5216,1,21,0)
;;=^^1^1^2960926^
;;^DD(1.5216,1,21,1,0)
;;=IEN of domain in SQLI_DOMAIN
;;^DD(1.5216,1,"DT")
;;=2960926
;;^DD(1.5216,2,0)
;;=E_TABLE^RP1.5215'^DMSQ("T",^0;3^Q
;;^DD(1.5216,2,.1)
;;=Table
;;^DD(1.5216,2,1,0)
;;=^.1
;;^DD(1.5216,2,1,1,0)
;;=1.5216^D
;;^DD(1.5216,2,1,1,1)
;;=S ^DMSQ("E","D",$E(X,1,30),DA)=""
;;^DD(1.5216,2,1,1,2)
;;=K ^DMSQ("E","D",$E(X,1,30),DA)
;;^DD(1.5216,2,1,1,"DT")
;;=2960823
;;^DD(1.5216,2,1,2,0)
;;=1.5216^G^MUMPS
;;^DD(1.5216,2,1,2,1)
;;=S ^DMSQ("E","G",X,$P(^DMSQ("E",DA,0),U),DA)=""
;;^DD(1.5216,2,1,2,2)
;;=K ^DMSQ("E","G",X,$P(^DMSQ("E",DA,0),U),DA)
;;^DD(1.5216,2,1,2,"%D",0)
;;=^^1^1^2960903^
;;^DD(1.5216,2,1,2,"%D",1,0)
;;=Table element by table by name
;;^DD(1.5216,2,1,2,"DT")
;;=2960903
;;^DD(1.5216,2,9)
;;=^
;;^DD(1.5216,2,21,0)
;;=^^1^1^2960926^
;;^DD(1.5216,2,21,1,0)
;;=IEN of table in SQLI_TABLE. Required.
;;^DD(1.5216,2,"DT")
;;=2960926
;;^DD(1.5216,3,0)
;;=E_TYPE^RS^C:Column;P:Primary key;F:Foreign key;^0;4^Q
;;^DD(1.5216,3,.1)
;;=Type
;;^DD(1.5216,3,1,0)
;;=^.1
;;^DD(1.5216,3,1,1,0)
;;=1.5216^E
;;^DD(1.5216,3,1,1,1)
;;=S ^DMSQ("E","E",$E(X,1,30),DA)=""
;;^DD(1.5216,3,1,1,2)
;;=K ^DMSQ("E","E",$E(X,1,30),DA)
;;^DD(1.5216,3,1,1,"DT")
;;=2960823
;;^DD(1.5216,3,1,2,0)
;;=1.5216^F^MUMPS
;;^DD(1.5216,3,1,2,1)
;;=S ^DMSQ("E","F",$P(^DMSQ("E",DA,0),U,3),X,DA)=""
;;^DD(1.5216,3,1,2,2)
;;=K ^DMSQ("E","F",$P(^DMSQ("E",DA,0),U,3),X,DA)
;;^DD(1.5216,3,1,2,"%D",0)
;;=^^1^1^2960827^^^^
;;^DD(1.5216,3,1,2,"%D",1,0)
;;=Table element by table by type
;;^DD(1.5216,3,1,2,"DT")
;;=2960827
;;^DD(1.5216,3,9)
;;=^
;;^DD(1.5216,3,21,0)
;;=^^1^1^2960926^
;;^DD(1.5216,3,21,1,0)
;;=C for column, P for primary key, or F for foreign key
;;^DD(1.5216,3,"DT")
;;=2960926
;;^DD(1.5216,4,0)
;;=E_COMMENT^F^^0;5^K:$L(X)>60!($L(X)<3) X
;;^DD(1.5216,4,.1)
;;=Comment
;;^DD(1.5216,4,3)
;;=Answer must be 3-60 characters in length.
;;^DD(1.5216,4,9)
;;=^
;;^DD(1.5216,4,21,0)
;;=^^1^1^2960926^
;;^DD(1.5216,4,21,1,0)
;;=A short description of the element
;;^DD(1.5216,4,"DT")
;;=2960926
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT2B8 4870 printed Oct 16, 2024@18:52:13 Page 2
DINIT2B8 ;SFISC/MKO-SQLI FILES ;10:51 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(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
SET @X=Y
+8 GOTO ^DINIT2B9
Q QUIT
+1 ;;^DIC(1.5216,0,"GL")
+2 ;;=^DMSQ("E",
+3 ;;^DIC("B","SQLI_TABLE_ELEMENT",1.5216)
+4 ;;=
+5 ;;^DIC(1.5216,"%D",0)
+6 ;;=^^5^5^2970806^^^
+7 ;;^DIC(1.5216,"%D",1,0)
+8 ;;=Names and domains of primary keys, columns and foreign keys.
+9 ;;^DIC(1.5216,"%D",2,0)
+10 ;;=Each represents the relational concept of an attribute, whose essential
+11 ;;^DIC(1.5216,"%D",3,0)
+12 ;;=charactaristics are a name (unique by relation) and a domain.
+13 ;;^DIC(1.5216,"%D",4,0)
+14 ;;=
+15 ;;^DIC(1.5216,"%D",5,0)
+16 ;;=See SQLI_PRIMARY_KEY, SQLI_COLUMN and SQLI_FOREIGN key for more.
+17 ;;^DD(1.5216,0)
+18 ;;=FIELD^^4^5
+19 ;;^DD(1.5216,0,"DDA")
+20 ;;=N
+21 ;;^DD(1.5216,0,"DT")
+22 ;;=2960820
+23 ;;^DD(1.5216,0,"IX","B",1.5216,.01)
+24 ;;=
+25 ;;^DD(1.5216,0,"IX","C",1.5216,1)
+26 ;;=
+27 ;;^DD(1.5216,0,"IX","D",1.5216,2)
+28 ;;=
+29 ;;^DD(1.5216,0,"IX","E",1.5216,3)
+30 ;;=
+31 ;;^DD(1.5216,0,"IX","F",1.5216,3)
+32 ;;=
+33 ;;^DD(1.5216,0,"IX","G",1.5216,2)
+34 ;;=
+35 ;;^DD(1.5216,0,"NM","SQLI_TABLE_ELEMENT")
+36 ;;=
+37 ;;^DD(1.5216,0,"PT",1.5217,.01)
+38 ;;=
+39 ;;^DD(1.5216,0,"PT",1.5218,.01)
+40 ;;=
+41 ;;^DD(1.5216,0,"PT",1.5219,.01)
+42 ;;=
+43 ;;^DD(1.5216,0,"VRPK")
+44 ;;=DI
+45 ;;^DD(1.5216,.01,0)
+46 ;;=E_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,"_")?1U.UN) X
+47 ;;^DD(1.5216,.01,.1)
+48 ;;=Table Element
+49 ;;^DD(1.5216,.01,1,0)
+50 ;;=^.1
+51 ;;^DD(1.5216,.01,1,1,0)
+52 ;;=1.5216^B
+53 ;;^DD(1.5216,.01,1,1,1)
+54 ;;=S ^DMSQ("E","B",$E(X,1,30),DA)=""
+55 ;;^DD(1.5216,.01,1,1,2)
+56 ;;=K ^DMSQ("E","B",$E(X,1,30),DA)
+57 ;;^DD(1.5216,.01,3)
+58 ;;=Answer must be 3-30 characters in length.
+59 ;;^DD(1.5216,.01,9)
+60 ;;=^
+61 ;;^DD(1.5216,.01,21,0)
+62 ;;=^^2^2^2960926^
+63 ;;^DD(1.5216,.01,21,1,0)
+64 ;;=Name of table element.
+65 ;;^DD(1.5216,.01,21,2,0)
+66 ;;=Foreign keys are suffixed _FK or PFK. Primary keys are suffixed _PK.
+67 ;;^DD(1.5216,.01,"DT")
+68 ;;=2960820
+69 ;;^DD(1.5216,1,0)
+70 ;;=E_DOMAIN^RP1.5212'^DMSQ("DM",^0;2^Q
+71 ;;^DD(1.5216,1,.1)
+72 ;;=Domain
+73 ;;^DD(1.5216,1,1,0)
+74 ;;=^.1
+75 ;;^DD(1.5216,1,1,1,0)
+76 ;;=1.5216^C
+77 ;;^DD(1.5216,1,1,1,1)
+78 ;;=S ^DMSQ("E","C",$E(X,1,30),DA)=""
+79 ;;^DD(1.5216,1,1,1,2)
+80 ;;=K ^DMSQ("E","C",$E(X,1,30),DA)
+81 ;;^DD(1.5216,1,1,1,"DT")
+82 ;;=2960823
+83 ;;^DD(1.5216,1,9)
+84 ;;=^
+85 ;;^DD(1.5216,1,21,0)
+86 ;;=^^1^1^2960926^
+87 ;;^DD(1.5216,1,21,1,0)
+88 ;;=IEN of domain in SQLI_DOMAIN
+89 ;;^DD(1.5216,1,"DT")
+90 ;;=2960926
+91 ;;^DD(1.5216,2,0)
+92 ;;=E_TABLE^RP1.5215'^DMSQ("T",^0;3^Q
+93 ;;^DD(1.5216,2,.1)
+94 ;;=Table
+95 ;;^DD(1.5216,2,1,0)
+96 ;;=^.1
+97 ;;^DD(1.5216,2,1,1,0)
+98 ;;=1.5216^D
+99 ;;^DD(1.5216,2,1,1,1)
+100 ;;=S ^DMSQ("E","D",$E(X,1,30),DA)=""
+101 ;;^DD(1.5216,2,1,1,2)
+102 ;;=K ^DMSQ("E","D",$E(X,1,30),DA)
+103 ;;^DD(1.5216,2,1,1,"DT")
+104 ;;=2960823
+105 ;;^DD(1.5216,2,1,2,0)
+106 ;;=1.5216^G^MUMPS
+107 ;;^DD(1.5216,2,1,2,1)
+108 ;;=S ^DMSQ("E","G",X,$P(^DMSQ("E",DA,0),U),DA)=""
+109 ;;^DD(1.5216,2,1,2,2)
+110 ;;=K ^DMSQ("E","G",X,$P(^DMSQ("E",DA,0),U),DA)
+111 ;;^DD(1.5216,2,1,2,"%D",0)
+112 ;;=^^1^1^2960903^
+113 ;;^DD(1.5216,2,1,2,"%D",1,0)
+114 ;;=Table element by table by name
+115 ;;^DD(1.5216,2,1,2,"DT")
+116 ;;=2960903
+117 ;;^DD(1.5216,2,9)
+118 ;;=^
+119 ;;^DD(1.5216,2,21,0)
+120 ;;=^^1^1^2960926^
+121 ;;^DD(1.5216,2,21,1,0)
+122 ;;=IEN of table in SQLI_TABLE. Required.
+123 ;;^DD(1.5216,2,"DT")
+124 ;;=2960926
+125 ;;^DD(1.5216,3,0)
+126 ;;=E_TYPE^RS^C:Column;P:Primary key;F:Foreign key;^0;4^Q
+127 ;;^DD(1.5216,3,.1)
+128 ;;=Type
+129 ;;^DD(1.5216,3,1,0)
+130 ;;=^.1
+131 ;;^DD(1.5216,3,1,1,0)
+132 ;;=1.5216^E
+133 ;;^DD(1.5216,3,1,1,1)
+134 ;;=S ^DMSQ("E","E",$E(X,1,30),DA)=""
+135 ;;^DD(1.5216,3,1,1,2)
+136 ;;=K ^DMSQ("E","E",$E(X,1,30),DA)
+137 ;;^DD(1.5216,3,1,1,"DT")
+138 ;;=2960823
+139 ;;^DD(1.5216,3,1,2,0)
+140 ;;=1.5216^F^MUMPS
+141 ;;^DD(1.5216,3,1,2,1)
+142 ;;=S ^DMSQ("E","F",$P(^DMSQ("E",DA,0),U,3),X,DA)=""
+143 ;;^DD(1.5216,3,1,2,2)
+144 ;;=K ^DMSQ("E","F",$P(^DMSQ("E",DA,0),U,3),X,DA)
+145 ;;^DD(1.5216,3,1,2,"%D",0)
+146 ;;=^^1^1^2960827^^^^
+147 ;;^DD(1.5216,3,1,2,"%D",1,0)
+148 ;;=Table element by table by type
+149 ;;^DD(1.5216,3,1,2,"DT")
+150 ;;=2960827
+151 ;;^DD(1.5216,3,9)
+152 ;;=^
+153 ;;^DD(1.5216,3,21,0)
+154 ;;=^^1^1^2960926^
+155 ;;^DD(1.5216,3,21,1,0)
+156 ;;=C for column, P for primary key, or F for foreign key
+157 ;;^DD(1.5216,3,"DT")
+158 ;;=2960926
+159 ;;^DD(1.5216,4,0)
+160 ;;=E_COMMENT^F^^0;5^K:$L(X)>60!($L(X)<3) X
+161 ;;^DD(1.5216,4,.1)
+162 ;;=Comment
+163 ;;^DD(1.5216,4,3)
+164 ;;=Answer must be 3-60 characters in length.
+165 ;;^DD(1.5216,4,9)
+166 ;;=^
+167 ;;^DD(1.5216,4,21,0)
+168 ;;=^^1^1^2960926^
+169 ;;^DD(1.5216,4,21,1,0)
+170 ;;=A short description of the element
+171 ;;^DD(1.5216,4,"DT")
+172 ;;=2960926
