source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTX78.m@ 1704

Last change on this file since 1704 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 5.7 KB
RevLine 
[613]1DGPTX78 ; ;04/03/06
2 ;;
31 N X,X1,X2 S DIXR=447 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,"DXLS")
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,"DXLS")
8 Q
9X1(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,DION),$P($G(^DGPT(DA,70)),U,10))
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
172 N X,X1,X2 S DIXR=449 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 SD1")
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 SD1")
22 Q
23X2(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.16,DION),$P($G(^DGPT(DA,70)),U,16))
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
313 N X,X1,X2 S DIXR=450 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 SD2")
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 SD2")
36 Q
37X3(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.17,DION),$P($G(^DGPT(DA,70)),U,17))
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
454 N X,X1,X2 S DIXR=451 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 SD3")
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 SD3")
50 Q
51X4(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.18,DION),$P($G(^DGPT(DA,70)),U,18))
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
595 N X,X1,X2 S DIXR=452 D X5(U) K X2 M X2=X D X5("F") K X1 M X1=X
60 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
61 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD4")
62 K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
63 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD4")
64 Q
65X5(DION) K X
66 S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
67 S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
68 S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
69 S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.19,DION),$P($G(^DGPT(DA,70)),U,19))
70 S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
71 S X=$G(X(1))
72 Q
736 N X,X1,X2 S DIXR=453 D X6(U) K X2 M X2=X D X6("F") K X1 M X1=X
74 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
75 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD5")
76 K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
77 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD5")
78 Q
79X6(DION) K X
80 S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
81 S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
82 S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
83 S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.201,DION),$P($G(^DGPT(DA,70)),U,20))
84 S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
85 S X=$G(X(1))
86 Q
877 N X,X1,X2 S DIXR=454 D X7(U) K X2 M X2=X D X7("F") K X1 M X1=X
88 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
89 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD6")
90 K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
91 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD6")
92 Q
93X7(DION) K X
94 S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
95 S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
96 S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
97 S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.21,DION),$P($G(^DGPT(DA,70)),U,21))
98 S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
99 S X=$G(X(1))
100 Q
1018 N X,X1,X2 S DIXR=455 D X8(U) K X2 M X2=X D X8("F") K X1 M X1=X
102 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
103 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD7")
104 K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
105 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD7")
106 Q
107X8(DION) K X
108 S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
109 S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
110 S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
111 S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.22,DION),$P($G(^DGPT(DA,70)),U,22))
112 S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
113 S X=$G(X(1))
114 Q
1159 N X,X1,X2 S DIXR=456 D X9(U) K X2 M X2=X D X9("F") K X1 M X1=X
116 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
117 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD8")
118 K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
119 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD8")
120 Q
121X9(DION) K X
122 S X(1)=$G(@DIEZTMP@("V",45,DIIENS,.01,DION),$P($G(^DGPT(DA,0)),U,1))
123 S X(2)=$G(@DIEZTMP@("V",45,DIIENS,2,DION),$P($G(^DGPT(DA,0)),U,2))
124 S X(3)=$G(@DIEZTMP@("V",45,DIIENS,11,DION),$P($G(^DGPT(DA,0)),U,11))
125 S X(4)=$G(@DIEZTMP@("V",45,DIIENS,79.23,DION),$P($G(^DGPT(DA,70)),U,23))
126 S X(5)=$G(@DIEZTMP@("V",45,DIIENS,70,DION),$P($G(^DGPT(DA,70)),U,1))
127 S X=$G(X(1))
128 Q
Note: See TracBrowser for help on using the repository browser.