BSDAVAIL.m

BSDAVAIL ; IHS/ANMC/LJF - CANCEL/RESTORE CLINIC AVAIL ;

 ;;5.3;PIMS;**1011**;APR 26, 2002

 ;

 ;cmi/flag/maw 10/17/2009 PATCH 1011 RQMT 83 changed code in C to call BSDC for multiple days

 ;

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)  K DIR Q:Y=-1  D @Y G ASK

 ;

C ; call cancel

 NEW BSDNO S BSDNO=1  ;prevents printing of appt letter on rebooks

 ;D ^SDC D SDC^SDKILL,KILL^AUPNPAT Q  ;cmi/maw 10/17/2009 PATCH 1011 orig line

 D ^BSDC D SDC^SDKILL,KILL^AUPNPAT Q  ;cmi/maw 10/17/2009 PATCH 1011 RQMT83

 ;

R ; call restore

 D ^SDUNC D SDUNC^SDKILL,KILL^AUPNPAT Q

BSDAVAIL  ; IHS/ANMC/LJF - CANCEL/RESTORE CLINIC AVAIL ;

 +1       ;;5.3;PIMS;**1011**;APR 26, 2002

 +2       ;

 +3       ;cmi/flag/maw 10/17/2009 PATCH 1011 RQMT 83 changed code in C to call BSDC for multiple days

 +4       ;

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 

           KILL DIR

           IF Y=-1

               QUIT 

           DO @Y

           GOTO ASK

 +4       ;

C         ; call cancel

 +1       ;prevents printing of appt letter on rebooks

           NEW BSDNO

           SET BSDNO=1

 +2       ;D ^SDC D SDC^SDKILL,KILL^AUPNPAT Q  ;cmi/maw 10/17/2009 PATCH 1011 orig line

 +3       ;cmi/maw 10/17/2009 PATCH 1011 RQMT83

           DO ^BSDC

           DO SDC^SDKILL

           DO KILL^AUPNPAT

           QUIT 

 +4       ;

R         ; call restore

 +1        DO ^SDUNC

           DO SDUNC^SDKILL

           DO KILL^AUPNPAT

           QUIT