BSDNACT.m

BSDNACT ; IHS/ANMC/LJF - INACTIVATE/REACTIVATE CLINIC ;

 ;;5.3;PIMS;;APR 26, 2002

 ;

ASK ;

 NEW DIR

 S DIR(0)="SO^I:INACTIVATE CLINIC;R:REACTIVATE CLINIC"

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

 ;

I ; call inactivate

 D ^SDNACT D SDINACT^SDKILL

 Q

 ;

R ; call reactivate

 D ^SDREACT D SDREACT^SDKILL Q

BSDNACT   ; IHS/ANMC/LJF - INACTIVATE/REACTIVATE CLINIC ;

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

 +2       ;

ASK       ;

 +1        NEW DIR

 +2        SET DIR(0)="SO^I:INACTIVATE CLINIC;R:REACTIVATE CLINIC"

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

           DO ^DIR

           IF $DATA(DIRUT)

               QUIT 

           IF Y=-1

               QUIT 

           DO @Y

           GOTO ASK

 +4       ;

I         ; call inactivate

 +1        DO ^SDNACT

           DO SDINACT^SDKILL

 +2        QUIT 

 +3       ;

R         ; call reactivate

 +1        DO ^SDREACT

           DO SDREACT^SDKILL

           QUIT