source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTXC3.m@ 636

Last change on this file since 636 was 636, checked in by George Lilly, 14 years ago

WorldVistAEHR overlayed on FOIAVistA
File size: 3.8 KB
Line 
1DGPTXC3 ; ;04/07/05
2 ;;
31 N X,X1,X2 S DIXR=456 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 SD8")
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 SD8")
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.23,DION),$P($G(^DGPT(DA,70)),U,23))
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=457 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 SD9")
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 SD9")
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.24,DION),$P($G(^DGPT(DA,70)),U,24))
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=458 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 SD10")
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 SD10")
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.241,DION),$P($G(^DGPT(DA,71)),U,1))
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=459 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 SD11")
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 SD11")
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.242,DION),$P($G(^DGPT(DA,71)),U,2))
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=460 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 SD12")
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 SD12")
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.243,DION),$P($G(^DGPT(DA,71)),U,3))
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=461 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 SD13")
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 SD13")
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.244,DION),$P($G(^DGPT(DA,71)),U,4))
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
Note: See TracBrowser for help on using the repository browser.