| 1 | DGPTX79 ; ;04/03/06
|
|---|
| 2 | ;;
|
|---|
| 3 | 1 N X,X1,X2 S DIXR=457 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X
|
|---|
| 4 | I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 5 | . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD9")
|
|---|
| 6 | K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 7 | . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD9")
|
|---|
| 8 | Q
|
|---|
| 9 | X1(DION) K X
|
|---|
| 10 | S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
|
|---|
| 11 | S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
|
|---|
| 12 | S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
|
|---|
| 13 | S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.24,DION),$P($G(^DGPT(DA,70)),U,24))
|
|---|
| 14 | S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
|
|---|
| 15 | S X=$G(X(1))
|
|---|
| 16 | Q
|
|---|
| 17 | 2 N X,X1,X2 S DIXR=458 D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X
|
|---|
| 18 | I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 19 | . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD10")
|
|---|
| 20 | K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 21 | . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD10")
|
|---|
| 22 | Q
|
|---|
| 23 | X2(DION) K X
|
|---|
| 24 | S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
|
|---|
| 25 | S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
|
|---|
| 26 | S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
|
|---|
| 27 | S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.241,DION),$P($G(^DGPT(DA,71)),U,1))
|
|---|
| 28 | S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
|
|---|
| 29 | S X=$G(X(1))
|
|---|
| 30 | Q
|
|---|
| 31 | 3 N X,X1,X2 S DIXR=459 D X3(U) K X2 M X2=X D X3("F") K X1 M X1=X
|
|---|
| 32 | I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 33 | . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD11")
|
|---|
| 34 | K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 35 | . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD11")
|
|---|
| 36 | Q
|
|---|
| 37 | X3(DION) K X
|
|---|
| 38 | S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
|
|---|
| 39 | S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
|
|---|
| 40 | S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
|
|---|
| 41 | S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.242,DION),$P($G(^DGPT(DA,71)),U,2))
|
|---|
| 42 | S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
|
|---|
| 43 | S X=$G(X(1))
|
|---|
| 44 | Q
|
|---|
| 45 | 4 N X,X1,X2 S DIXR=460 D X4(U) K X2 M X2=X D X4("F") K X1 M X1=X
|
|---|
| 46 | I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 47 | . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD12")
|
|---|
| 48 | K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 49 | . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD12")
|
|---|
| 50 | Q
|
|---|
| 51 | X4(DION) K X
|
|---|
| 52 | S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
|
|---|
| 53 | S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
|
|---|
| 54 | S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
|
|---|
| 55 | S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.243,DION),$P($G(^DGPT(DA,71)),U,3))
|
|---|
| 56 | S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
|
|---|
| 57 | S X=$G(X(1))
|
|---|
| 58 | Q
|
|---|
