ASDAVAIL.m

ASDAVAIL ; IHS/ADC/PDW/ENM - CANCEL/RESTORE CL AVAIL ; [ 03/25/1999  11:48 AM ]

 ;;5.0;IHS SCHEDULING;;MAR 25, 1999

 ;

ASK ;

 NEW DIR

 S DIR(0)="SO^C:CANCEL CLINIC AVAILABILITY;R:RESTORE CLINIC AVAILABILITY"

 S DIR("A")="Select Action" D ^DIR Q:$D(DIRUT)  Q:Y=-1  D @Y G ASK

 ;

C ; call cancel

 D ^SDC D SDC^SDKILL Q

 ;

R ; call restore

 D ^SDUNC D SDUNC^SDKILL Q

ASDAVAIL  ; IHS/ADC/PDW/ENM - CANCEL/RESTORE CL AVAIL ; [ 03/25/1999  11:48 AM ]

 +1       ;;5.0;IHS SCHEDULING;;MAR 25, 1999

 +2       ;

ASK       ;

 +1        NEW DIR

 +2        SET DIR(0)="SO^C:CANCEL CLINIC AVAILABILITY;R:RESTORE CLINIC AVAILABILITY"

 +3        SET DIR("A")="Select Action"

           DO ^DIR

           IF $DATA(DIRUT)

               QUIT 

           IF Y=-1

               QUIT 

           DO @Y

           GOTO ASK

 +4       ;

C         ; call cancel

 +1        DO ^SDC

           DO SDC^SDKILL

           QUIT 

 +2       ;

R         ; call restore

 +1        DO ^SDUNC

           DO SDUNC^SDKILL

           QUIT