|
Last change
on this file since 1520 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
725 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
