Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTXX8.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/DGPTXX8.m
r628 r636 1 DGPTXX8 ; COMPILED XREF FOR FILE #45 ; 12/ 12/071 DGPTXX8 ; COMPILED XREF FOR FILE #45 ; 12/27/07 2 2 ; 3 3 S DIKZK=1 … … 92 92 S X=$P(DIKZ(70),U,11) 93 93 I X'="" X ^DD(45,80,1,992,1) 94 CR1 S DIXR=4 3294 CR1 S DIXR=447 95 95 K X 96 96 S DIKZ(0)=$G(^DGPT(DA,0)) … … 105 105 . K X1,X2 M X1=X,X2=X 106 106 . D SDGPT9D^DGPTDDCR(.X,.DA,"DXLS") 107 CR2 S DIXR=4 33107 CR2 S DIXR=448 108 108 K X 109 109 S DIKZ(0)=$G(^DGPT(DA,0)) … … 118 118 . K X1,X2 M X1=X,X2=X 119 119 . D SDGPT9D^DGPTDDCR(.X,.DA,"PDX") 120 CR3 S DIXR=4 34120 CR3 S DIXR=449 121 121 K X 122 122 S DIKZ(0)=$G(^DGPT(DA,0)) … … 131 131 . K X1,X2 M X1=X,X2=X 132 132 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD1") 133 CR4 S DIXR=4 35133 CR4 S DIXR=450 134 134 K X 135 135 S DIKZ(0)=$G(^DGPT(DA,0)) … … 144 144 . K X1,X2 M X1=X,X2=X 145 145 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD2") 146 CR5 S DIXR=4 36146 CR5 S DIXR=451 147 147 K X 148 148 S DIKZ(0)=$G(^DGPT(DA,0)) … … 157 157 . K X1,X2 M X1=X,X2=X 158 158 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD3") 159 CR6 S DIXR=4 37159 CR6 S DIXR=452 160 160 K X 161 161 S DIKZ(0)=$G(^DGPT(DA,0)) … … 170 170 . K X1,X2 M X1=X,X2=X 171 171 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD4") 172 CR7 S DIXR=4 38172 CR7 S DIXR=453 173 173 K X 174 174 S DIKZ(0)=$G(^DGPT(DA,0)) … … 183 183 . K X1,X2 M X1=X,X2=X 184 184 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD5") 185 CR8 S DIXR=4 39185 CR8 S DIXR=454 186 186 K X 187 187 S DIKZ(0)=$G(^DGPT(DA,0)) … … 196 196 . K X1,X2 M X1=X,X2=X 197 197 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD6") 198 CR9 S DIXR=4 40198 CR9 S DIXR=455 199 199 K X 200 200 S DIKZ(0)=$G(^DGPT(DA,0)) … … 209 209 . K X1,X2 M X1=X,X2=X 210 210 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD7") 211 CR10 S DIXR=4 41211 CR10 S DIXR=456 212 212 K X 213 213 S DIKZ(0)=$G(^DGPT(DA,0)) … … 222 222 . K X1,X2 M X1=X,X2=X 223 223 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD8") 224 CR11 S DIXR=4 42224 CR11 S DIXR=457 225 225 K X 226 226 S DIKZ(0)=$G(^DGPT(DA,0)) … … 235 235 . K X1,X2 M X1=X,X2=X 236 236 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD9") 237 CR12 S DIXR=4 43237 CR12 S DIXR=458 238 238 K X 239 239 S DIKZ(0)=$G(^DGPT(DA,0)) … … 249 249 . K X1,X2 M X1=X,X2=X 250 250 . D SDGPT9D^DGPTDDCR(.X,.DA,"D SD10") 251 CR13 S DIXR=4 44251 CR13 S DIXR=459 252 252 K X 253 253 S DIKZ(0)=$G(^DGPT(DA,0))
Note:
See TracChangeset
for help on using the changeset viewer.