ASDINACT.m

ASDINACT ; IHS/ADC/PDW/ENM - INACTIVATE/REACTIVATE CLINIC ; [ 03/25/1999  11:48 AM ]

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

 ;

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 ^SDINACT D SDINACT^SDKILL Q

 ;

R ; call reactivate

 D ^SDREACT D SDREACT^SDKILL Q

ASDINACT  ; IHS/ADC/PDW/ENM - INACTIVATE/REACTIVATE CLINIC ; [ 03/25/1999  11:48 AM ]

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

 +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 ^SDINACT

           DO SDINACT^SDKILL

           QUIT 

 +2       ;

R         ; call reactivate

 +1        DO ^SDREACT

           DO SDREACT^SDKILL

           QUIT