| GENERAL DESCRIPTION |
We have been tasked with turning off the ODS software.
As part of that, we would like to unschedule the nightly background job. The
following code will be used in a one time clean-up routine:
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
|
