Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDC4

SDC4.m

Go to the documentation of this file.
  1. SDC4 ;ALB/MJK - Check Range for CO'ed Appts; 28 JUN 1993
  1. ;;5.3;Scheduling;;Aug 13, 1993
  1. ;
  1. COED(SDCL,SDBEG,SDEND,SDMSG) ; -- scan appts for those co'ed
  1. N SDDA,SDATE,SD0,SDC,SDESC
  1. S SDESC=0,SDATE=SDBEG-.0000001
  1. F S SDATE=$O(^SC(SDCL,"S",SDATE)) Q:'SDATE!(SDATE>SDEND) D
  1. .S SDDA=0 F S SDDA=$O(^SC(SDCL,"S",SDATE,1,SDDA)) Q:'SDDA S SD0=^(SDDA,0),SDC=$G(^("C")) D
  1. ..I $P(SD0,U,9)="C" Q
  1. ..I $P(SDC,U,3) S SDESC=1
  1. I SDESC,SDMSG D MES
  1. Q SDESC
  1. ;
  1. MES ; -- write warning to user
  1. W *7
  1. W !?5,"At least one appointment has been checked out in the time"
  1. W !?5,"period selected."
  1. W !!?5,"As a result, to avoid the loss of workload credit, you are"
  1. W !?5,"not allowed to cancel availability for this time period."
  1. W !
  1. Q