| [613] | 1 | DGPTXX2 ; COMPILED XREF FOR FILE #45 ; 12/27/07
|
|---|
| 2 | ;
|
|---|
| 3 | S DIKZ(0)=$G(^DGPT(DA,0))
|
|---|
| 4 | S X(1)=$P(DIKZ(0),U,1)
|
|---|
| 5 | S X(2)=$P(DIKZ(0),U,2)
|
|---|
| 6 | S X(3)=$P(DIKZ(0),U,11)
|
|---|
| 7 | S DIKZ(71)=$G(^DGPT(DA,71))
|
|---|
| 8 | S X(4)=$P(DIKZ(71),U,1)
|
|---|
| 9 | S DIKZ(70)=$G(^DGPT(DA,70))
|
|---|
| 10 | S X(5)=$P(DIKZ(70),U,1)
|
|---|
| 11 | S X=$G(X(1))
|
|---|
| 12 | I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 13 | . K X1,X2 M X1=X,X2=X
|
|---|
| 14 | . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|---|
| 15 | . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD10")
|
|---|
| 16 | CR13 S DIXR=459
|
|---|
| 17 | K X
|
|---|
| 18 | S DIKZ(0)=$G(^DGPT(DA,0))
|
|---|
| 19 | S X(1)=$P(DIKZ(0),U,1)
|
|---|
| 20 | S X(2)=$P(DIKZ(0),U,2)
|
|---|
| 21 | S X(3)=$P(DIKZ(0),U,11)
|
|---|
| 22 | S DIKZ(71)=$G(^DGPT(DA,71))
|
|---|
| 23 | S X(4)=$P(DIKZ(71),U,2)
|
|---|
| 24 | S DIKZ(70)=$G(^DGPT(DA,70))
|
|---|
| 25 | S X(5)=$P(DIKZ(70),U,1)
|
|---|
| 26 | S X=$G(X(1))
|
|---|
| 27 | I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 28 | . K X1,X2 M X1=X,X2=X
|
|---|
| 29 | . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|---|
| 30 | . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD11")
|
|---|
| 31 | CR14 S DIXR=460
|
|---|
| 32 | K X
|
|---|
| 33 | S DIKZ(0)=$G(^DGPT(DA,0))
|
|---|
| 34 | S X(1)=$P(DIKZ(0),U,1)
|
|---|
| 35 | S X(2)=$P(DIKZ(0),U,2)
|
|---|
| 36 | S X(3)=$P(DIKZ(0),U,11)
|
|---|
| 37 | S DIKZ(71)=$G(^DGPT(DA,71))
|
|---|
| 38 | S X(4)=$P(DIKZ(71),U,3)
|
|---|
| 39 | S DIKZ(70)=$G(^DGPT(DA,70))
|
|---|
| 40 | S X(5)=$P(DIKZ(70),U,1)
|
|---|
| 41 | S X=$G(X(1))
|
|---|
| 42 | I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 43 | . K X1,X2 M X1=X,X2=X
|
|---|
| 44 | . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|---|
| 45 | . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD12")
|
|---|
| 46 | CR15 S DIXR=461
|
|---|
| 47 | K X
|
|---|
| 48 | S DIKZ(0)=$G(^DGPT(DA,0))
|
|---|
| 49 | S X(1)=$P(DIKZ(0),U,1)
|
|---|
| 50 | S X(2)=$P(DIKZ(0),U,2)
|
|---|
| 51 | S X(3)=$P(DIKZ(0),U,11)
|
|---|
| 52 | S DIKZ(71)=$G(^DGPT(DA,71))
|
|---|
| 53 | S X(4)=$P(DIKZ(71),U,4)
|
|---|
| 54 | S DIKZ(70)=$G(^DGPT(DA,70))
|
|---|
| 55 | S X(5)=$P(DIKZ(70),U,1)
|
|---|
| 56 | S X=$G(X(1))
|
|---|
| 57 | I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 58 | . K X1,X2 M X1=X,X2=X
|
|---|
| 59 | . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))=""
|
|---|
| 60 | . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD13")
|
|---|
| 61 | CR16 K X
|
|---|
| 62 | END G ^DGPTXX3
|
|---|
