source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTX55.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: 2.0 KB
Line 
1DGPTX55 ; ;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
Note: See TracBrowser for help on using the repository browser.