Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTXX1.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTXX1.m
r628 r636 1 DGPTXX1 ; COMPILED XREF FOR FILE #45 ; 12/ 12/071 DGPTXX1 ; COMPILED XREF FOR FILE #45 ; 12/27/07 2 2 ; 3 3 S DIKZK=2 … … 98 98 S X=$P(DIKZ(0),U,1) 99 99 I X'="" K ^DGPT("B",$E(X,1,30),DA) 100 CR1 S DIXR=4 32100 CR1 S DIXR=447 101 101 K X 102 102 S X(1)=$P(DIKZ(0),U,1) … … 111 111 . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))="" 112 112 . D KDGPT9D^DGPTDDCR(.X,.DA,"DXLS") 113 CR2 S DIXR=4 33113 CR2 S DIXR=448 114 114 K X 115 115 S DIKZ(0)=$G(^DGPT(DA,0)) … … 125 125 . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))="" 126 126 . D KDGPT9D^DGPTDDCR(.X,.DA,"PDX") 127 CR3 S DIXR=4 34127 CR3 S DIXR=449 128 128 K X 129 129 S DIKZ(0)=$G(^DGPT(DA,0)) … … 139 139 . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))="" 140 140 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD1") 141 CR4 S DIXR=4 35141 CR4 S DIXR=450 142 142 K X 143 143 S DIKZ(0)=$G(^DGPT(DA,0)) … … 153 153 . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))="" 154 154 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD2") 155 CR5 S DIXR=4 36155 CR5 S DIXR=451 156 156 K X 157 157 S DIKZ(0)=$G(^DGPT(DA,0)) … … 167 167 . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))="" 168 168 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD3") 169 CR6 S DIXR=4 37169 CR6 S DIXR=452 170 170 K X 171 171 S DIKZ(0)=$G(^DGPT(DA,0)) … … 181 181 . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))="" 182 182 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD4") 183 CR7 S DIXR=4 38183 CR7 S DIXR=453 184 184 K X 185 185 S DIKZ(0)=$G(^DGPT(DA,0)) … … 195 195 . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))="" 196 196 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD5") 197 CR8 S DIXR=4 39197 CR8 S DIXR=454 198 198 K X 199 199 S DIKZ(0)=$G(^DGPT(DA,0)) … … 209 209 . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))="" 210 210 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD6") 211 CR9 S DIXR=4 40211 CR9 S DIXR=455 212 212 K X 213 213 S DIKZ(0)=$G(^DGPT(DA,0)) … … 223 223 . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))="" 224 224 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD7") 225 CR10 S DIXR=4 41225 CR10 S DIXR=456 226 226 K X 227 227 S DIKZ(0)=$G(^DGPT(DA,0)) … … 237 237 . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))="" 238 238 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD8") 239 CR11 S DIXR=4 42239 CR11 S DIXR=457 240 240 K X 241 241 S DIKZ(0)=$G(^DGPT(DA,0)) … … 251 251 . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4),X2(5))="" 252 252 . D KDGPT9D^DGPTDDCR(.X,.DA,"D SD9") 253 CR12 S DIXR=4 43253 CR12 S DIXR=458 254 254 K X 255 255 END G ^DGPTXX2
Note:
See TracChangeset
for help on using the changeset viewer.