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

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

initial load of WorldVistAEHR
File size: 4.0 KB
Line 
1DGX5F7 ; ;12/27/07
2 ;;
31 N X,X1,X2 S DIXR=462 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X
4 I $G(X(1))]"",$G(X(2))]"" D
5 . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD1")
6 K X M X=X2 I $G(X(1))]"",$G(X(2))]"" D
7 . D SDGPT9M^DGPTDDCR(.X,.DA,"M ICD1")
8 Q
9X1(DION) K X
10 S X(1)=$G(@DIEZTMP@("V",45.02,DIIENS,10,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,10))
11 S X(2)=$G(@DIEZTMP@("V",45.02,DIIENS,5,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,5))
12 S X=$G(X(1))
13 Q
142 N X,X1,X2 S DIXR=463 D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X
15 I $G(X(1))]"",$G(X(2))]"" D
16 . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD2")
17 K X M X=X2 I $G(X(1))]"",$G(X(2))]"" D
18 . D SDGPT9M^DGPTDDCR(.X,.DA,"M ICD2")
19 Q
20X2(DION) K X
21 S X(1)=$G(@DIEZTMP@("V",45.02,DIIENS,10,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,10))
22 S X(2)=$G(@DIEZTMP@("V",45.02,DIIENS,6,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,6))
23 S X=$G(X(1))
24 Q
253 N X,X1,X2 S DIXR=464 D X3(U) K X2 M X2=X D X3("F") K X1 M X1=X
26 I $G(X(1))]"",$G(X(2))]"" D
27 . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD3")
28 K X M X=X2 I $G(X(1))]"",$G(X(2))]"" D
29 . D SDGPT9M^DGPTDDCR(.X,.DA,"M ICD3")
30 Q
31X3(DION) K X
32 S X(1)=$G(@DIEZTMP@("V",45.02,DIIENS,10,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,10))
33 S X(2)=$G(@DIEZTMP@("V",45.02,DIIENS,7,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,7))
34 S X=$G(X(1))
35 Q
364 N X,X1,X2 S DIXR=465 D X4(U) K X2 M X2=X D X4("F") K X1 M X1=X
37 I $G(X(1))]"",$G(X(2))]"" D
38 . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD4")
39 K X M X=X2 I $G(X(1))]"",$G(X(2))]"" D
40 . D SDGPT9M^DGPTDDCR(.X,.DA,"M ICD4")
41 Q
42X4(DION) K X
43 S X(1)=$G(@DIEZTMP@("V",45.02,DIIENS,10,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,10))
44 S X(2)=$G(@DIEZTMP@("V",45.02,DIIENS,8,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,8))
45 S X=$G(X(1))
46 Q
475 N X,X1,X2 S DIXR=466 D X5(U) K X2 M X2=X D X5("F") K X1 M X1=X
48 I $G(X(1))]"",$G(X(2))]"" D
49 . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD5")
50 K X M X=X2 I $G(X(1))]"",$G(X(2))]"" D
51 . D SDGPT9M^DGPTDDCR(.X,.DA,"M ICD5")
52 Q
53X5(DION) K X
54 S X(1)=$G(@DIEZTMP@("V",45.02,DIIENS,10,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,10))
55 S X(2)=$G(@DIEZTMP@("V",45.02,DIIENS,9,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,9))
56 S X=$G(X(1))
57 Q
586 N X,X1,X2 S DIXR=467 D X6(U) K X2 M X2=X D X6("F") K X1 M X1=X
59 I $G(X(1))]"",$G(X(2))]"" D
60 . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD6")
61 K X M X=X2 I $G(X(1))]"",$G(X(2))]"" D
62 . D SDGPT9M^DGPTDDCR(.X,.DA,"M ICD6")
63 Q
64X6(DION) K X
65 S X(1)=$G(@DIEZTMP@("V",45.02,DIIENS,10,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,10))
66 S X(2)=$G(@DIEZTMP@("V",45.02,DIIENS,11,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,11))
67 S X=$G(X(1))
68 Q
697 N X,X1,X2 S DIXR=468 D X7(U) K X2 M X2=X D X7("F") K X1 M X1=X
70 I $G(X(1))]"",$G(X(2))]"" D
71 . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD7")
72 K X M X=X2 I $G(X(1))]"",$G(X(2))]"" D
73 . D SDGPT9M^DGPTDDCR(.X,.DA,"M ICD7")
74 Q
75X7(DION) K X
76 S X(1)=$G(@DIEZTMP@("V",45.02,DIIENS,10,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,10))
77 S X(2)=$G(@DIEZTMP@("V",45.02,DIIENS,12,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,12))
78 S X=$G(X(1))
79 Q
808 N X,X1,X2 S DIXR=469 D X8(U) K X2 M X2=X D X8("F") K X1 M X1=X
81 I $G(X(1))]"",$G(X(2))]"" D
82 . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD8")
83 K X M X=X2 I $G(X(1))]"",$G(X(2))]"" D
84 . D SDGPT9M^DGPTDDCR(.X,.DA,"M ICD8")
85 Q
86X8(DION) K X
87 S X(1)=$G(@DIEZTMP@("V",45.02,DIIENS,10,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,10))
88 S X(2)=$G(@DIEZTMP@("V",45.02,DIIENS,13,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,13))
89 S X=$G(X(1))
90 Q
919 N X,X1,X2 S DIXR=470 D X9(U) K X2 M X2=X D X9("F") K X1 M X1=X
92 I $G(X(1))]"",$G(X(2))]"" D
93 . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD9")
94 K X M X=X2 I $G(X(1))]"",$G(X(2))]"" D
95 . D SDGPT9M^DGPTDDCR(.X,.DA,"M ICD9")
96 Q
97X9(DION) K X
98 S X(1)=$G(@DIEZTMP@("V",45.02,DIIENS,10,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,10))
99 S X(2)=$G(@DIEZTMP@("V",45.02,DIIENS,14,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,14))
100 S X=$G(X(1))
101 Q
10210 N X,X1,X2 S DIXR=471 D X10(U) K X2 M X2=X D X10("F") K X1 M X1=X
103 I $G(X(1))]"",$G(X(2))]"" D
104 . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD10")
105 K X M X=X2 I $G(X(1))]"",$G(X(2))]"" D
106 . D SDGPT9M^DGPTDDCR(.X,.DA,"M ICD10")
107 Q
108X10(DION) K X
109 S X(1)=$G(@DIEZTMP@("V",45.02,DIIENS,10,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,10))
110 S X(2)=$G(@DIEZTMP@("V",45.02,DIIENS,15,DION),$P($G(^DGPT(DA(1),"M",DA,0)),U,15))
111 S X=$G(X(1))
112 Q
Note: See TracBrowser for help on using the repository browser.