DGYMODS ;ALB/MLI - Turn off ODS software ; 3/28/95
;;5.3;Registration;**55**;Aug 13, 1993
;
; 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGYMODS 858 printed Oct 16, 2024@19:00:54 Page 2
DGYMODS ;ALB/MLI - Turn off ODS software ; 3/28/95
+1 ;;5.3;Registration;**55**;Aug 13, 1993
+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
