| 1 | DGYMODS ;ALB/MLI - Turn off ODS software ; 3/28/95
|
|---|
| 2 | ;;5.3;Registration;**55**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine will turn off the ODS software and unschedule
|
|---|
| 5 | ; the ODS Background Job option.
|
|---|
| 6 | ;
|
|---|
| 7 | EN ; entry point (or call from top)
|
|---|
| 8 | I '$D(^A1B2(11500.5,1,0)) D Q ; ods software not set-up
|
|---|
| 9 | . W !,"The ODS PARAMETER file was not set up on your system. No changes made."
|
|---|
| 10 | S DA=1,DR=".02////0",DIE="^A1B2(11500.5," D ^DIE
|
|---|
| 11 | S DGVER=$$VERSION^XPDUTL("XU")
|
|---|
| 12 | S DIC="^DIC(19,",DIC(0)="QMZ",X="A1B2 BACKGROUND JOB" D ^DIC S (DGIEN,DA)=+Y
|
|---|
| 13 | I DA'>0 G ENQ ; background job not in option file
|
|---|
| 14 | I DGVER<8 S DR="200///@;201///@;202///@;203///@",DIE=DIC D ^DIE
|
|---|
| 15 | 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
|
|---|
| 16 | ENQ W !,"The ODS software has now been turned off at your facility"
|
|---|
| 17 | K DA,DGIEN,DGVER,DIC,DIE,DIK,DR,X,Y
|
|---|
| 18 | Q
|
|---|
