Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRPTX26.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/DGRPTX26.m
r628 r636 1 DGRPTX26 ; ;04/ 10/061 DGRPTX26 ; ;04/21/06 2 2 ;; 3 1 N X,X1,X2 S DIXR=60 5D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X3 1 N X,X1,X2 S DIXR=602 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X 4 4 D 5 5 . D PNOK^DGDDDTTM … … 20 20 S X=$G(X(1)) 21 21 Q 22 2 N X,X1,X2 S DIXR=60 7D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X22 2 N X,X1,X2 S DIXR=604 D X2(U) K X2 M X2=X D X2("F") K X1 M X1=X 23 23 D 24 24 . D ECON^DGDDDTTM
Note:
See TracChangeset
for help on using the changeset viewer.