256 lines
7.5 KiB
Mathematica
256 lines
7.5 KiB
Mathematica
DGPTXX1 ; COMPILED XREF FOR FILE #45 ; 12/12/07
|
|
;
|
|
S DIKZK=2
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X=$P(DIKZ(0),U,2)
|
|
I X'="" S L=+^DGPT(DA,0) I L>0 K ^DGPT("AAD",L,X,DA)
|
|
S X=$P(DIKZ(0),U,2)
|
|
I X'="" K ^DGPT("AF",$E(X,1,30),DA)
|
|
S X=$P(DIKZ(0),U,2)
|
|
I X'="" K ^DGPT("AADA",X,DA)
|
|
S X=$P(DIKZ(0),U,2)
|
|
I X'="" I $P(^DGPT(DA,0),U,4),$P(^(0),U) K ^DGPT("AFEE",$P(^DGPT(DA,0),U),$E(X,1,30),DA)
|
|
S X=$P(DIKZ(0),U,4)
|
|
I X'="" I $P(^DGPT(DA,0),U),$P(^(0),U,2) K ^DGPT("AFEE",$P(^DGPT(DA,0),U),$P(^DGPT(DA,0),U,2),DA)
|
|
S X=$P(DIKZ(0),U,5)
|
|
I X'="" D
|
|
.N DIK,DIV,DIU,DIN
|
|
.K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,101)):^(101),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$S($D(^DGPT(DIV(0),101)):^(101),1:""),DIV=X S $P(^(101),U,1)=DIV,DIH=45,DIG=20 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X=$P(DIKZ(0),U,6)
|
|
I X'="" K ^DGPT("AS",$E(X,1,30),DA)
|
|
S X=$P(DIKZ(0),U,10)
|
|
I X'="" K ^DGPT("AMT",$E(X,1,30),DA)
|
|
S X=$P(DIKZ(0),U,12)
|
|
I X'="" K ^DGPT("ACENSUS",$E(X,1,30),DA)
|
|
S X=$P(DIKZ(0),U,13)
|
|
I X'="" D
|
|
.N DIK,DIV,DIU,DIN
|
|
.K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=1 S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=45,DIG=11 D ^DICR
|
|
S DIKZ(101)=$G(^DGPT(DA,101))
|
|
S X=$P(DIKZ(101),U,4)
|
|
I X'="" S %=+^DGPT(DA,0) I $D(^DPT(%,.3)) S %C=$P(^(.3),U,10) I %C S ^(.3)=$P(^(.3),U,1,9)_U_U_$P(^(.3),U,11,99) K ^DPT("ACB",%C,%),%,%C
|
|
S DIKZ("401P")=$G(^DGPT(DA,"401P"))
|
|
S X=$P(DIKZ("401P"),U,1)
|
|
I X'="" K ^DGPT(DA,"AP",X)
|
|
S X=$P(DIKZ("401P"),U,2)
|
|
I X'="" K ^DGPT(DA,"AP",X)
|
|
S X=$P(DIKZ("401P"),U,3)
|
|
I X'="" K ^DGPT(DA,"AP",X)
|
|
S X=$P(DIKZ("401P"),U,4)
|
|
I X'="" K ^DGPT(DA,"AP",X)
|
|
S X=$P(DIKZ("401P"),U,5)
|
|
I X'="" K ^DGPT(DA,"AP",X)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X=$P(DIKZ(70),U,1)
|
|
I X'="" K ^DGPT("ADS",$E(X,1,30),DA)
|
|
S X=$P(DIKZ(70),U,1)
|
|
I X'="" S %=$S($D(^DGPT(DA,"M",1,0)):^(0),1:""),%D=+$P(%,U,10),^(0)=$P(%_"^^^^^^^^^^",U,1,9)_U_X_U_$P(%,U,11,99) K ^DGPT(DA,"M","AM",%D,1),%,%D
|
|
S X=$P(DIKZ(70),U,1)
|
|
I X'="" S L=$P(^DGPT(DA,0),"^",2) I L?7N.E,$G(DIK)'="^DGPT(" S ^DGPT("AADA",L,DA)=""
|
|
S X=$P(DIKZ(70),U,2)
|
|
I X'="" I $D(^DGPT(DA,"M",1,0)) S $P(^(0),U,2)="",$P(^(0),U,16)=""
|
|
S X=$P(DIKZ(70),U,10)
|
|
I X'="" X ^DD(45,79,1,992,2)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X=$P(DIKZ(70),U,16)
|
|
I X'="" X ^DD(45,79.16,1,992,2)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X=$P(DIKZ(70),U,17)
|
|
I X'="" X ^DD(45,79.17,1,992,2)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X=$P(DIKZ(70),U,18)
|
|
I X'="" X ^DD(45,79.18,1,992,2)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X=$P(DIKZ(70),U,19)
|
|
I X'="" X ^DD(45,79.19,1,992,2)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X=$P(DIKZ(70),U,20)
|
|
I X'="" X ^DD(45,79.201,1,992,2)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X=$P(DIKZ(70),U,21)
|
|
I X'="" X ^DD(45,79.21,1,992,2)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X=$P(DIKZ(70),U,22)
|
|
I X'="" X ^DD(45,79.22,1,992,2)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X=$P(DIKZ(70),U,23)
|
|
I X'="" X ^DD(45,79.23,1,992,2)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X=$P(DIKZ(70),U,24)
|
|
I X'="" X ^DD(45,79.24,1,992,2)
|
|
S DIKZ(71)=$G(^DGPT(DA,71))
|
|
S X=$P(DIKZ(71),U,1)
|
|
I X'="" X ^DD(45,79.241,1,1,2)
|
|
S DIKZ(71)=$G(^DGPT(DA,71))
|
|
S X=$P(DIKZ(71),U,2)
|
|
I X'="" X ^DD(45,79.242,1,1,2)
|
|
S DIKZ(71)=$G(^DGPT(DA,71))
|
|
S X=$P(DIKZ(71),U,3)
|
|
I X'="" X ^DD(45,79.243,1,1,2)
|
|
S DIKZ(71)=$G(^DGPT(DA,71))
|
|
S X=$P(DIKZ(71),U,4)
|
|
I X'="" X ^DD(45,79.244,1,1,2)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X=$P(DIKZ(70),U,11)
|
|
I X'="" X ^DD(45,80,1,992,2)
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X=$P(DIKZ(0),U,1)
|
|
I X'="" K ^DGPT("B",$E(X,1,30),DA)
|
|
CR1 S DIXR=432
|
|
K X
|
|
S X(1)=$P(DIKZ(0),U,1)
|
|
S X(2)=$P(DIKZ(0),U,2)
|
|
S X(3)=$P(DIKZ(0),U,11)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X(4)=$P(DIKZ(70),U,10)
|
|
S X(5)=$P(DIKZ(70),U,1)
|
|
S X=$G(X(1))
|
|
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|
. K X1,X2 M X1=X,X2=X
|
|
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|
. D KDGPT9D^DGPTDDCR(.X,.DA,"DXLS")
|
|
CR2 S DIXR=433
|
|
K X
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X(1)=$P(DIKZ(0),U,1)
|
|
S X(2)=$P(DIKZ(0),U,2)
|
|
S X(3)=$P(DIKZ(0),U,11)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X(4)=$P(DIKZ(70),U,11)
|
|
S X(5)=$P(DIKZ(70),U,1)
|
|
S X=$G(X(1))
|
|
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|
. K X1,X2 M X1=X,X2=X
|
|
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|
. D KDGPT9D^DGPTDDCR(.X,.DA,"PDX")
|
|
CR3 S DIXR=434
|
|
K X
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X(1)=$P(DIKZ(0),U,1)
|
|
S X(2)=$P(DIKZ(0),U,2)
|
|
S X(3)=$P(DIKZ(0),U,11)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X(4)=$P(DIKZ(70),U,16)
|
|
S X(5)=$P(DIKZ(70),U,1)
|
|
S X=$G(X(1))
|
|
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|
. K X1,X2 M X1=X,X2=X
|
|
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|
. D KDGPT9D^DGPTDDCR(.X,.DA,"D SD1")
|
|
CR4 S DIXR=435
|
|
K X
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X(1)=$P(DIKZ(0),U,1)
|
|
S X(2)=$P(DIKZ(0),U,2)
|
|
S X(3)=$P(DIKZ(0),U,11)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X(4)=$P(DIKZ(70),U,17)
|
|
S X(5)=$P(DIKZ(70),U,1)
|
|
S X=$G(X(1))
|
|
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|
. K X1,X2 M X1=X,X2=X
|
|
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|
. D KDGPT9D^DGPTDDCR(.X,.DA,"D SD2")
|
|
CR5 S DIXR=436
|
|
K X
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X(1)=$P(DIKZ(0),U,1)
|
|
S X(2)=$P(DIKZ(0),U,2)
|
|
S X(3)=$P(DIKZ(0),U,11)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X(4)=$P(DIKZ(70),U,18)
|
|
S X(5)=$P(DIKZ(70),U,1)
|
|
S X=$G(X(1))
|
|
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|
. K X1,X2 M X1=X,X2=X
|
|
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|
. D KDGPT9D^DGPTDDCR(.X,.DA,"D SD3")
|
|
CR6 S DIXR=437
|
|
K X
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X(1)=$P(DIKZ(0),U,1)
|
|
S X(2)=$P(DIKZ(0),U,2)
|
|
S X(3)=$P(DIKZ(0),U,11)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X(4)=$P(DIKZ(70),U,19)
|
|
S X(5)=$P(DIKZ(70),U,1)
|
|
S X=$G(X(1))
|
|
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|
. K X1,X2 M X1=X,X2=X
|
|
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|
. D KDGPT9D^DGPTDDCR(.X,.DA,"D SD4")
|
|
CR7 S DIXR=438
|
|
K X
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X(1)=$P(DIKZ(0),U,1)
|
|
S X(2)=$P(DIKZ(0),U,2)
|
|
S X(3)=$P(DIKZ(0),U,11)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X(4)=$P(DIKZ(70),U,20)
|
|
S X(5)=$P(DIKZ(70),U,1)
|
|
S X=$G(X(1))
|
|
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|
. K X1,X2 M X1=X,X2=X
|
|
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|
. D KDGPT9D^DGPTDDCR(.X,.DA,"D SD5")
|
|
CR8 S DIXR=439
|
|
K X
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X(1)=$P(DIKZ(0),U,1)
|
|
S X(2)=$P(DIKZ(0),U,2)
|
|
S X(3)=$P(DIKZ(0),U,11)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X(4)=$P(DIKZ(70),U,21)
|
|
S X(5)=$P(DIKZ(70),U,1)
|
|
S X=$G(X(1))
|
|
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|
. K X1,X2 M X1=X,X2=X
|
|
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|
. D KDGPT9D^DGPTDDCR(.X,.DA,"D SD6")
|
|
CR9 S DIXR=440
|
|
K X
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X(1)=$P(DIKZ(0),U,1)
|
|
S X(2)=$P(DIKZ(0),U,2)
|
|
S X(3)=$P(DIKZ(0),U,11)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X(4)=$P(DIKZ(70),U,22)
|
|
S X(5)=$P(DIKZ(70),U,1)
|
|
S X=$G(X(1))
|
|
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|
. K X1,X2 M X1=X,X2=X
|
|
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|
. D KDGPT9D^DGPTDDCR(.X,.DA,"D SD7")
|
|
CR10 S DIXR=441
|
|
K X
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X(1)=$P(DIKZ(0),U,1)
|
|
S X(2)=$P(DIKZ(0),U,2)
|
|
S X(3)=$P(DIKZ(0),U,11)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X(4)=$P(DIKZ(70),U,23)
|
|
S X(5)=$P(DIKZ(70),U,1)
|
|
S X=$G(X(1))
|
|
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|
. K X1,X2 M X1=X,X2=X
|
|
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|
. D KDGPT9D^DGPTDDCR(.X,.DA,"D SD8")
|
|
CR11 S DIXR=442
|
|
K X
|
|
S DIKZ(0)=$G(^DGPT(DA,0))
|
|
S X(1)=$P(DIKZ(0),U,1)
|
|
S X(2)=$P(DIKZ(0),U,2)
|
|
S X(3)=$P(DIKZ(0),U,11)
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
|
S X(4)=$P(DIKZ(70),U,24)
|
|
S X(5)=$P(DIKZ(70),U,1)
|
|
S X=$G(X(1))
|
|
I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|
. K X1,X2 M X1=X,X2=X
|
|
. S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|
. D KDGPT9D^DGPTDDCR(.X,.DA,"D SD9")
|
|
CR12 S DIXR=443
|
|
K X
|
|
END G ^DGPTXX2
|