33 lines
793 B
Mathematica
33 lines
793 B
Mathematica
|
DGPTXX9 ; COMPILED XREF FOR FILE #45 ; 12/27/07
|
||
|
|
;
|
||
|
|
CR14 S DIXR=460
|
||
|
|
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(71)=$G(^DGPT(DA,71))
|
||
|
|
S X(4)=$P(DIKZ(71),U,3)
|
||
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
||
|
|
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
|
||
|
|
. D SDGPT9D^DGPTDDCR(.X,.DA,"D SD12")
|
||
|
|
CR15 S DIXR=461
|
||
|
|
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(71)=$G(^DGPT(DA,71))
|
||
|
|
S X(4)=$P(DIKZ(71),U,4)
|
||
|
|
S DIKZ(70)=$G(^DGPT(DA,70))
|
||
|
|
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
|
||
|
|
. D SDGPT9D^DGPTDDCR(.X,.DA,"D SD13")
|
||
|
|
CR16 K X
|
||
|
|
END G ^DGPTXX10
|