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 | |
---|
1 | SDC4 ;ALB/MJK - Check Range for CO'ed Appts; 28 JUN 1993
|
---|
2 | ;;5.3;Scheduling;;Aug 13, 1993
|
---|
3 | ;
|
---|
4 | COED(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 | ;
|
---|
14 | MES ; -- 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.