source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDC4.m@ 724

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

initial load of WorldVistAEHR

File size: 725 bytes
Line 
1SDC4 ;ALB/MJK - Check Range for CO'ed Appts; 28 JUN 1993
2 ;;5.3;Scheduling;;Aug 13, 1993
3 ;
4COED(SDCL,SDBEG,SDEND,SDMSG) ; -- scan appts for those co'ed
5 N SDDA,SDATE,SD0,SDC,SDESC
6 S SDESC=0,SDATE=SDBEG-.0000001
7 F S SDATE=$O(^SC(SDCL,"S",SDATE)) Q:'SDATE!(SDATE>SDEND) D
8 .S SDDA=0 F S SDDA=$O(^SC(SDCL,"S",SDATE,1,SDDA)) Q:'SDDA S SD0=^(SDDA,0),SDC=$G(^("C")) D
9 ..I $P(SD0,U,9)="C" Q
10 ..I $P(SDC,U,3) S SDESC=1
11 I SDESC,SDMSG D MES
12 Q SDESC
13 ;
14MES ; -- write warning to user
15 W *7
16 W !?5,"At least one appointment has been checked out in the time"
17 W !?5,"period selected."
18 W !!?5,"As a result, to avoid the loss of workload credit, you are"
19 W !?5,"not allowed to cancel availability for this time period."
20 W !
21 Q
Note: See TracBrowser for help on using the repository browser.