DGYMODS.m

DGYMODS ;ALB/MLI - Turn off ODS software ; 3/28/95

 ;;5.3;Registration;**55,1015**;Aug 13, 1993;Build 21

 ;

 ; This routine will turn off the ODS software and unschedule

 ; the ODS Background Job option.

 ;

EN ; entry point (or call from top)

 I '$D(^A1B2(11500.5,1,0)) D  Q  ; ods software not set-up

 . W !,"The ODS PARAMETER file was not set up on your system.  No changes made."

 S DA=1,DR=".02////0",DIE="^A1B2(11500.5," D ^DIE

 S DGVER=$$VERSION^XPDUTL("XU")

 S DIC="^DIC(19,",DIC(0)="QMZ",X="A1B2 BACKGROUND JOB" D ^DIC S (DGIEN,DA)=+Y

 I DA'>0 G ENQ ; background job not in option file

 I DGVER<8 S DR="200///@;201///@;202///@;203///@",DIE=DIC D ^DIE

 I DGVER'<8 S DIK="^DIC(19.2," F DA=0:0 S DA=$O(^DIC(19.2,"B",DGIEN,DA)) Q:'DA  D ^DIK

ENQ W !,"The ODS software has now been turned off at your facility"

 K DA,DGIEN,DGVER,DIC,DIE,DIK,DR,X,Y

 Q

DGYMODS   ;ALB/MLI - Turn off ODS software ; 3/28/95

 +1       ;;5.3;Registration;**55,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ; This routine will turn off the ODS software and unschedule

 +4       ; the ODS Background Job option.

 +5       ;

EN        ; entry point (or call from top)

 +1       ; ods software not set-up

           IF '$DATA(^A1B2(11500.5,1,0))

               Begin DoDot:1

 +2                WRITE !,"The ODS PARAMETER file was not set up on your system.  No changes made."

               End DoDot:1

               QUIT 

 +3        SET DA=1

           SET DR=".02////0"

           SET DIE="^A1B2(11500.5,"

           DO ^DIE

 +4        SET DGVER=$$VERSION^XPDUTL("XU")

 +5        SET DIC="^DIC(19,"

           SET DIC(0)="QMZ"

           SET X="A1B2 BACKGROUND JOB"

           DO ^DIC

           SET (DGIEN,DA)=+Y

 +6       ; background job not in option file

           IF DA'>0

               GOTO ENQ

 +7        IF DGVER<8

               SET DR="200///@;201///@;202///@;203///@"

               SET DIE=DIC

               DO ^DIE

 +8        IF DGVER'<8

               SET DIK="^DIC(19.2,"

               FOR DA=0:0

                   SET DA=$ORDER(^DIC(19.2,"B",DGIEN,DA))

                   IF 'DA

                       QUIT 

                   DO ^DIK

ENQ        WRITE !,"The ODS software has now been turned off at your facility"

 +1        KILL DA,DGIEN,DGVER,DIC,DIE,DIK,DR,X,Y

 +2        QUIT