Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VADPT61.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/VADPT61.m
r628 r636 1 1 VADPT61 ;ALB/MJK - Patient ID Utilities (cont.); 12 AUG 89 @1200 2 ;;5.3;Registration ,;**749**;Aug 13, 1993;Build 102 ;;5.3;Registration;;Aug 13, 1993 3 3 ; 4 4 1 ;;ID Format Enter/Edit … … 26 26 ; 27 27 BEG ; 28 S VASTART=$$NOW^XLFDT28 D NOW^%DTC S VASTART=% 29 29 Q 30 30 ; 31 31 END ; 32 S VAEND=$$NOW^XLFDT,L=032 D NOW^%DTC S VAEND=%,L=0 33 33 K XMY 34 34 S XMSUB=$P($T(OPTS+VAOPT),";",4),XMDUZ=.5,XMTEXT="VATEXT(",XMY(DUZ)=""
Note:
See TracChangeset
for help on using the changeset viewer.