source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTX79.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: 2.5 KB
Line 
1DGPTX79 ; ;04/03/06
2 ;;
31 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
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.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
172 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
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.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
313 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
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.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
454 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
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.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
Note: See TracBrowser for help on using the repository browser.