source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGYMODS.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 840 bytes
RevLine 
[613]1DGYMODS ;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 ;
7EN ; 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
16ENQ 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
Note: See TracBrowser for help on using the repository browser.