The following code was generated by scanning the data from a global save,
and saving any code found in individual routines with references back
to the global data where the code was found.
The format of each routine is:
blank line for the first line
gnnnnnnn as the name of the routine on the
second line of four
gnnnnnnn followed by a comment as the entry point of the routine on the
third line. The comment consists of (nn) the length of the extracted string,
the global address where the string was found. If the entire entry
is code then '-LINE' is appended.
The extracted code is the last line of the set.
g0000004
g0000004 ; (12) ^DD(0,0,"ID",21) -LINE
W """"
g0000009
g0000009 ; (18) ^DD(0,.001,0)
K:$L(X)>10 X
g000000e
g000000e ; (42) ^DD(0,.01,0)
K:$L(X)>30!(X?1E)!(X["""")!(X["=") X
g0000013
g0000013 ; (7) ^DD(0,.01,1,1,0)
B
g0000014
g0000014 ; (33) ^DD(0,.01,1,1,1) -LINE
S @(DIC_"""B"",X,DA)=""""")
g0000015
g0000015 ; (28) ^DD(0,.01,1,1,2) -LINE
K @(DIC_"""B"",X,DA)")
g0000016
g0000016 ; (99) ^DD(0,.01,"DEL",.2,0) -LINE
I DUZ(0)'="@",$P(^DD(DA(1),DA,0),"^",2)["X" W !,*7,"ONLY A PROGRAMMER CAN DELETE THIS FIELD!"
g0000019
g0000019 ; (88) ^DD(0,.01,"DEL",.3,0) -LINE
W:$D(^DD("ACOMP",DA(1),DA)) !,*7,"WARNING-- A COMPUTED FIELD USES THIS FIELD!" I 0
g000001b
g000001b ; (24) ^DD(0,.01,"DEL",1,0) -LINE
I DA=.01 W *7,"??"
g000001c
g000001c ; (79) ^DD(0,.01,"DEL","ID",0) -LINE
I $D(^DD(DA(1),0,"ID",DA))!$D(^("WDI"_DA)) W !,"CAN'T DELETE IDENTIFIER!"
g000001f
g000001f ; (97) ^DD(0,.01,"DEL","T",0) -LINE
I $$TRIGQ^DICD(DA(1),DA) W *7,!,"CAN'T DELETE A FIELD THAT HAS A 'TRIGGER' POINTING TO IT!"
g0000021
g0000021 ; (94) ^DD(0,.01,"DEL","TRB",0) -LINE
S %=+$P(^DD(DA(1),DA,0),U,2) I %,$D(^DD(%,"TRB")) S DA(0)=DA,DA=% D TRIG^DIDH S DA=DA(0)
g0000029
g0000029 ; (65) ^DD(0,.1,0)
K:$L(X)>80!(+X=X) X I $D(X),@("$D("_DIC_"""B"",X,DA))") K X
g0000030
g0000030 ; (39) ^DD(0,.1,1,1,1) -LINE
S @(DIC_"""B"",$E(X,1,80),DA)=1")
g0000031
g0000031 ; (37) ^DD(0,.1,1,1,2) -LINE
K @(DIC_"""B"",$E(X,1,80),DA)")
g0000040
g0000040 ; (37) ^DD(0,.2,1,1,1) -LINE
S:X @(DIC_"""SB"",+X,DA)=""""")
g0000041
g0000041 ; (32) ^DD(0,.2,1,1,2) -LINE
K:X @(DIC_"""SB"",+X,DA)")
g0000045
g0000045 ; (38) ^DD(0,.2,1,2,1) -LINE
S:X["R" @(DIC_"""RQ"",DA)=""""")
g0000046
g0000046 ; (33) ^DD(0,.2,1,2,2) -LINE
K:X["R" @(DIC_"""RQ"",DA)")
g0000048
g0000048 ; (70) ^DD(0,.2,1,3,1) -LINE
S %=$P(X,"P",2) S:$A(%)=48!%&$D(^DD(+%,0)) ^(0,"PT",DA(1),DA)=""
g000004b
g000004b ; (58) ^DD(0,.2,1,3,2) -LINE
S %=$P(X,"P",2) K:$A(%)=48!% ^DD(+%,0,"PT",DA(1),DA)
g0000067
g0000067 ; (18) ^DD(0,.26,0)
K:$L(X)>50 X
g0000072
g0000072 ; (75) ^DD(0,.27,9.2) -LINE
F Z=2:1 S X="DI"_Z Q:$D(@X)[0 S DR=X_"="""","_DR_","_X_"="""_@X_""""
g0000089
g0000089 ; (87) ^DD(0,.4,0)
K:X'?1E.E1";"1E.E X I $D(X),@("$D("_DIC_"""GL"",$P(X,"";""),$P(X,"";"",2)))") K X
g000008f
g000008f ; (64) ^DD(0,.4,1,1,1) -LINE
S:X'?.P @(DIC_"""GL"",$P(X,"";""),$P(X,"";"",2),DA)=""""")
g0000090
g0000090 ; (59) ^DD(0,.4,1,1,2) -LINE
K:X'?.P @(DIC_"""GL"",$P(X,"";""),$P(X,"";"",2),DA)")
g00000a4
g00000a4 ; (12) ^DD(0,2,0)
D ^DIM
g00000a9
g00000a9 ; (29) ^DD(0,3,0)
K:X'?3E.E!($L(X)>200) X
g00000ae
g00000ae ; (12) ^DD(0,4,0)
D ^DIM
g00000bc
g00000bc ; (41) ^DD(0,8,0)
I DUZ(0)'="@" K:$TR(X,DUZ(0))'="" X
g00000c2
g00000c2 ; (41) ^DD(0,8.5,0)
I DUZ(0)'="@" K:$TR(X,DUZ(0))'="" X
g00000c7
g00000c7 ; (41) ^DD(0,9,0)
I DUZ(0)'="@" K:$TR(X,DUZ(0))'="" X
g00000cc
g00000cc ; (7) ^DD(0,9.01,0)
Q
g00000d3
g00000d3 ; (78) ^DD(0,9.01,1,1,1) -LINE
F %=1:1 S I=$P(X,";",%) Q:I="" S ^DD("ACOMP",+I,+$P(I,U,2),DA(1),DA)=""
g00000d5
g00000d5 ; (75) ^DD(0,9.01,1,1,2) -LINE
F %=1:1 S I=$P(X,";",%) Q:I="" K ^DD("ACOMP",+I,+$P(I,U,2),DA(1),DA)
g00000db
g00000db ; (18) ^DD(0,10,0)
K:$L(X)>99 X
g00000e5
g00000e5 ; (12) ^DD(0,12.1,0)
D ^DIM
g00000fb
g00000fb ; (28) ^DD(0,27,0)
K:$L(X)<2!($L(X)>31) X
g0000101
g0000101 ; (36) ^DD(0,27,1,1,1) -LINE
S @(DIC_"""SORT"",X,DA)=""""")
g0000102
g0000102 ; (31) ^DD(0,27,1,1,2) -LINE
K @(DIC_"""SORT"",X,DA)")
g0000107
g0000107 ; (29) ^DD(0,28,0)
K:$L(X)<2!($L(X)>200) X
g000010c
g000010c ; (7) ^DD(0,29,0)
Q
g0000111
g0000111 ; (7) ^DD(0,50,0)
Q
g0000117
g0000117 ; (7) ^DD(0,60,0)
Q
g000011c
g000011c ; (7) ^DD(0,61,0)
Q
g000013d
g000013d ; (32) ^DD(.1,.001,0)
K:X\1'=X!(X>99999)!(X<1) X
g0000142
g0000142 ; (7) ^DD(.1,.01,0)
Q
g0000147
g0000147 ; (84) ^DD(.1,.01,1,1,1) -LINE
S:$P(X,U,2)]"" @("^DD("_$P(X,"^")_",0,""IX"",$P(X,""^"",2),DA(2),DA(1))=""""")
g000014b
g000014b ; (79) ^DD(.1,.01,1,1,2) -LINE
K:$P(X,U,2)]"" @("^DD("_$P(X,"^")_",0,""IX"",$P(X,""^"",2),DA(2),DA(1))")
g0000151
g0000151 ; (32) ^DD(.1,.01,1,2,1) -LINE
S ^DD(DA(2),"IX",DA(1))=""
g0000153
g0000153 ; (72) ^DD(.1,.01,1,2,2) -LINE
I $O(^DD(DA(2),DA(1),1,0))=DA,$O(^(DA))="" K ^DD(DA(2),"IX",DA(1))
g0000159
g0000159 ; (20) ^DD(.1,.01,1,3,1) -LINE
D STRIGBY^DICD
g000015b
g000015b ; (20) ^DD(.1,.01,1,3,2) -LINE
D KTRIGBY^DICD
g000015e
g000015e ; (57) ^DD(.1,.01,1,4,1) -LINE
S Y=$P(X,"^",6) I Y S ^DD(+X,0,"MIX",Y)=$P(X,"^",2)
g0000162
g0000162 ; (222) ^DD(.1,.01,1,4,2) -LINE
S Y=$P(X,"^",6) I Y K ^DD(+X,0,"MIX",Y),^DD(+X,0,"IX",$P(X,"^",2)) F I=1:2 S %=+$P(Y,",",I),%Y=+$P(Y,",",I+1) Q:'%Y I X-%!(DA(1)-%Y) F J=0:0 S J=$O(^DD(%,%Y,1,J)) Q:'$D(^(+J,0)) I $P(^(0),"^",6)=Y K ^DD(%,%Y,1,J) Q
g0000170
g0000170 ; (7) ^DD(.1,1,0)
Q
g0000175
g0000175 ; (7) ^DD(.1,2,0)
Q
g000017a
g000017a ; (7) ^DD(.1,3,0)
Q