source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SCDD.m@ 1764

Last change on this file since 1764 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 688 bytes
Line 
1SCDD ;ALB/RMO - Data Dictionary Calls ;02 DEC 1994 9:00 am [ 12/02/94 1:39 PM ]
2 ;;5.3;Scheduling;**41**;AUG 13, 1993
3 ;
4ACTSTOP(SCSCI,SCDT) ;Determine if Stop Code is Active
5 ; Input -- SCSCI Stop Code file IEN
6 ; SCDT Date/Time (Optional- default today@2359)
7 ; Output -- 1=ACTIVE and 0=INACTIVE
8 N Y
9 S SCDT=$S($G(SCDT)>0:SCDT,1:DT) S:'$P(SCDT,".",2) SCDT=SCDT_.2359
10 I $D(^DIC(40.7,SCSCI,"E",+$O(^(+$O(^DIC(40.7,SCSCI,"E","AID",-SCDT)),0)),0)),$P($G(^(0)),U,2) S Y=1
11 Q +$G(Y)
12 ;
13VALTIME(X) ;Validate Time Format
14 ; Input -- X Time
15 ; Output -- 1=VALID and 0=INVALID
16 N Y
17 S Y=1
18 I $L(X)>4!($L(X)<4)!('X?4N&(X<1700)&(X>1700)&(X#100<60)) S Y=0
19 Q +$G(Y)
20 ;
Note: See TracBrowser for help on using the repository browser.