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

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

WorldVistAEHR overlayed on FOIAVistA

File size: 793 bytes
Line 
1DGPTXX9 ; COMPILED XREF FOR FILE #45 ; 12/27/07
2 ;
3CR14 S DIXR=460
4 K X
5 S DIKZ(0)=$G(^DGPT(DA,0))
6 S X(1)=$P(DIKZ(0),U,1)
7 S X(2)=$P(DIKZ(0),U,2)
8 S X(3)=$P(DIKZ(0),U,11)
9 S DIKZ(71)=$G(^DGPT(DA,71))
10 S X(4)=$P(DIKZ(71),U,3)
11 S DIKZ(70)=$G(^DGPT(DA,70))
12 S X(5)=$P(DIKZ(70),U,1)
13 S X=$G(X(1))
14 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
15 . K X1,X2 M X1=X,X2=X
16 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD12")
17CR15 S DIXR=461
18 K X
19 S DIKZ(0)=$G(^DGPT(DA,0))
20 S X(1)=$P(DIKZ(0),U,1)
21 S X(2)=$P(DIKZ(0),U,2)
22 S X(3)=$P(DIKZ(0),U,11)
23 S DIKZ(71)=$G(^DGPT(DA,71))
24 S X(4)=$P(DIKZ(71),U,4)
25 S DIKZ(70)=$G(^DGPT(DA,70))
26 S X(5)=$P(DIKZ(70),U,1)
27 S X=$G(X(1))
28 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
29 . K X1,X2 M X1=X,X2=X
30 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD13")
31CR16 K X
32END G ^DGPTXX10
Note: See TracBrowser for help on using the repository browser.