Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCMSVUT2.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/SCHEDULING-SD-SC/SCMSVUT2.m
r628 r636 1 1 SCMSVUT2 ;ALB/JLU;Utility routine for AMBCARE;06/28/99 2 ;;5.3;Scheduling;**66,180,254,293,325,466 ,521**;AUG 13,1993;Build 12 ;;5.3;Scheduling;**66,180,254,293,325,466**;AUG 13,1993;Build 2 3 3 ;06/28/99 ACS Added CPT modifier validation 4 4 ; … … 195 195 I STDT="" Q 0 196 196 S STDT=$$FMDATE^HLFNC(STDT) 197 S X=STDT ,%DT="X" D ^%DT I Y=-1 Q 0 ;SD/521 added %DT197 S X=STDT D ^%DT I Y=-1 Q 0 198 198 I ENDT="" Q 1 199 199 S ENDT=$$FMDATE^HLFNC(ENDT) 200 S X=ENDT ,%DT="X" D ^%DT I Y=-1 Q 0 ;SD/521 added %DT200 S X=ENDT D ^%DT I Y=-1 Q 0 201 201 I $$FMDIFF^XLFDT(ENDT,STDT,1)<0 Q 0 202 202 Q 1
Note:
See TracChangeset
for help on using the changeset viewer.