- DGVPR1 ;ALB/MLI - DG PRE-INIT (SAVE AND RESTORE QUEUED JOBS) ; 6/25/89@1000
- ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- ;
- SAV(LIST) ; -- save queued values
- W !!,">>> Saving times for queued jobs...will be restored in post-init to original",!?4,"values..",!
- F DGI=1:1 S O=$P($T(@LIST+DGI),";;",2) Q:O="$END" S DGEDIT=0 D OCC
- Q
- ;
- OCC S X=$E("'"_O_"'......................................",1,35) W !?4,X S ON=$O(^DIC(19,"B",$E(O,1,30),0)) D OC I 'DGER S DGX=^DIC(19,+ON,200) D OCW
- K O,ON,I Q
- OC S DGER=0 I '$D(^DIC(19,+ON,0)) W "No such option on file..." S DGER=1 Q
- I '$D(^DIC(19,+ON,200)) W "Not a ""tasked"" job..." S DGER=1 Q
- S DGTJ(+ON)=^DIC(19,+ON,200)
- Q
- ;
- RES ; -- restore queued jobs invoked from post-init
- Q:$O(DGTJ(0))=""
- S ON=0 F I1=0:0 S ON=$O(DGTJ(ON)) Q:ON="" S X="'"_$E($P(^DIC(19,+ON,0),"^",1)_"'....................................",1,35) W !?4,X S DGX=DGTJ(ON) D OCW
- Q
- ;
- OCW W "Queued to run",?58,": " S Y=$S($P(DGX,"^",1)]"":$P(DGX,"^",1),1:"NOT QUEUED") X ^DD("DD"):Y W $J(Y,20)
- W !?39,"Device for Output",?58,": " S Y=$S($P(DGX,"^",2)]"":$P(DGX,"^",2),1:"NONE SELECTED") W $J(Y,20)
- W !?39,"Rescheduling Freq.",?58,": " S Y=$S($P(DGX,"^",3)]"":$P(DGX,"^",3),1:"NONE") W $J(Y,20)
- Q:'DGEDIT
- N DGY S DR="",DGY=$S($D(^DIC(19,ON,200)):^(200),1:"")
- I DGX D NOW^%DTC S $P(DGX,"^")=$S((%+.0003)>DGX:"",1:DGX) ; date/time in past then can't set
- F I=1:1:4 S $P(DGX,"^",I)=$S($P(DGX,"^",I)]"":$P(DGX,"^",I),$P(DGY,"^",I)="":"",1:"@") I $P(DGX,"^",I)]"" S DR=DR_(200+(I-1))_"///"_$S(I=2:$P($P(DGX,"^",I),";",1),1:$P(DGX,"^",I))_";"
- Q:DR']"" S DIE="^DIC(19,",(DA,Y)=ON,DIC(0)="L" D ^DIE K DR,DIE,DIC,DA,Y Q
- Q
- ;
- DG ;
- ;;DG G&L RECALCULATION AUTO
- ;;DG RUG BACKGROUND JOB
- ;;DG RUG SEMI ANNUAL - TASKED
- ;;DG PTF BACKGROUND JOB
- ;;DGJ IRT UPDATE (Background)
- ;;$END
- SD ;
- ;;SDAM BACKGROUND JOB
- ;;$END
- DGVPR1 ;ALB/MLI - DG PRE-INIT (SAVE AND RESTORE QUEUED JOBS) ; 6/25/89@1000
- +1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- +2 ;
- SAV(LIST) ; -- save queued values
- +1 WRITE !!,">>> Saving times for queued jobs...will be restored in post-init to original",!?4,"values..",!
- +2 FOR DGI=1:1
- SET O=$PIECE($TEXT(@LIST+DGI),";;",2)
- IF O="$END"
- QUIT
- SET DGEDIT=0
- DO OCC
- +3 QUIT
- +4 ;
- OCC SET X=$EXTRACT("'"_O_"'......................................",1,35)
- WRITE !?4,X
- SET ON=$ORDER(^DIC(19,"B",$EXTRACT(O,1,30),0))
- DO OC
- IF 'DGER
- SET DGX=^DIC(19,+ON,200)
- DO OCW
- +1 KILL O,ON,I
- QUIT
- OC SET DGER=0
- IF '$DATA(^DIC(19,+ON,0))
- WRITE "No such option on file..."
- SET DGER=1
- QUIT
- +1 IF '$DATA(^DIC(19,+ON,200))
- WRITE "Not a ""tasked"" job..."
- SET DGER=1
- QUIT
- +2 SET DGTJ(+ON)=^DIC(19,+ON,200)
- +3 QUIT
- +4 ;
- RES ; -- restore queued jobs invoked from post-init
- +1 IF $ORDER(DGTJ(0))=""
- QUIT
- +2 SET ON=0
- FOR I1=0:0
- SET ON=$ORDER(DGTJ(ON))
- IF ON=""
- QUIT
- SET X="'"_$EXTRACT($PIECE(^DIC(19,+ON,0),"^",1)_"'....................................",1,35)
- WRITE !?4,X
- SET DGX=DGTJ(ON)
- DO OCW
- +3 QUIT
- +4 ;
- OCW WRITE "Queued to run",?58,": "
- SET Y=$SELECT($PIECE(DGX,"^",1)]"":$PIECE(DGX,"^",1),1:"NOT QUEUED")
- IF Y
- XECUTE ^DD("DD")
- WRITE $JUSTIFY(Y,20)
- +1 WRITE !?39,"Device for Output",?58,": "
- SET Y=$SELECT($PIECE(DGX,"^",2)]"":$PIECE(DGX,"^",2),1:"NONE SELECTED")
- WRITE $JUSTIFY(Y,20)
- +2 WRITE !?39,"Rescheduling Freq.",?58,": "
- SET Y=$SELECT($PIECE(DGX,"^",3)]"":$PIECE(DGX,"^",3),1:"NONE")
- WRITE $JUSTIFY(Y,20)
- +3 IF 'DGEDIT
- QUIT
- +4 NEW DGY
- SET DR=""
- SET DGY=$SELECT($DATA(^DIC(19,ON,200)):^(200),1:"")
- +5 ; date/time in past then can't set
- IF DGX
- DO NOW^%DTC
- SET $PIECE(DGX,"^")=$SELECT((%+.0003)>DGX:"",1:DGX)
- +6 FOR I=1:1:4
- SET $PIECE(DGX,"^",I)=$SELECT($PIECE(DGX,"^",I)]"":$PIECE(DGX,"^",I),$PIECE(DGY,"^",I)="":"",1:"@")
- IF $PIECE(DGX,"^",I)]""
- SET DR=DR_(200+(I-1))_"///"_$SELECT(I=2:$PIECE($PIECE(DGX,"^",I),";",1),1:$PIECE(DGX,"^",I))_";"
- +7 IF DR']""
- QUIT
- SET DIE="^DIC(19,"
- SET (DA,Y)=ON
- SET DIC(0)="L"
- DO ^DIE
- KILL DR,DIE,DIC,DA,Y
- QUIT
- +8 QUIT
- +9 ;
- DG ;
- +1 ;;DG G&L RECALCULATION AUTO
- +2 ;;DG RUG BACKGROUND JOB
- +3 ;;DG RUG SEMI ANNUAL - TASKED
- +4 ;;DG PTF BACKGROUND JOB
- +5 ;;DGJ IRT UPDATE (Background)
- +6 ;;$END
- SD ;
- +1 ;;SDAM BACKGROUND JOB
- +2 ;;$END
