DVBAARP ;ALB/SJA - CAPRI Routines to update AMIE function Options; 11/22/2024 ; 9/22/25 12:54pm
;;2.7;AMIE;**255**;Oct 20, 2000;Build 21
; Per VHA Directive 6402 this routine should not be modified
; Reference to OUT^XPDMENU ICR #1157
; Reference to %ZTLOAD ICR #10063
; Reference to OPTSTAT^XUTMOPT ICR #1472
; Reference to OWNSKEY^XUSRB ICR #3277
; Reference to XLFDT ICR #10103
UOTASKS(DVBRESULTS,DVBMSG,DVBOPLIST) ;
;RPC: DVBA CAPRI ARP OPTSET
; CAPRI-12935 SJA 11/22/24
;
I DVBMSG="" S DVBRESULTS(1)="ERROR:Missing Message" Q
I DVBOPLIST="" S DVBRESULTS(1)="ERROR:Missing Option List" Q
;
N DVBRET,DVBI,DVBOPTN,DVBLIST,DVBJ,DVBSCH,DVBSUBLIST,DVBDQ,DVBTSKIEN,DVBCURRENTMSG
S (DVBRET,DVBLIST)=""
F DVBI=1:1:$L(DVBOPLIST,"^") D
. S DVBOPTN=$P(DVBOPLIST,"^",DVBI),DVBOPTIEN=""
. S DVBOPTIEN=$O(^DIC(19,"B",DVBOPTN,DVBOPTIEN))
. I DVBOPTIEN="" S DVBRESULTS(DVBI)=DVBOPTN_U_"Option not found" Q
. S DVBCURRENTMSG=$P($G(^DIC(19,DVBOPTIEN,0)),U,3)
. I DVBCURRENTMSG=DVBMSG S DVBRESULTS(DVBI)=DVBOPTN_"^already disabled" Q
. D OUT^XPDMENU(DVBOPTN,DVBMSG)
. I $P($G(^DIC(19,DVBOPTIEN,0)),U,3)'=DVBMSG S DVBRESULTS(DVBI)=DVBOPTN_U_"MESSAGE NOT SET" Q
. D OPTSTAT^XUTMOPT(DVBOPTN,.DVBLIST)
. I DVBLIST=0 S DVBRESULTS(DVBI)=DVBOPTN_U_"No tasks number" Q
. F DVBJ=1:1:$G(DVBLIST) D
. . S DVBSUBLIST=""
. . S ZTSK=$P($G(DVBLIST(DVBJ)),U,1)
. . S DVBRUNTIME=$P($G(DVBLIST(DVBJ)),U,2)
. . D ISQED^%ZTLOAD ;;Checking for Scheduling
. . S DVBSCH=$G(ZTSK(0))
. . I DVBSCH'=1 S $P(DVBSUBLIST,U,DVBJ)=$G(ZTSK)_":-1",DVBRESULTS(DVBI)=DVBOPTN_U_DVBSUBLIST Q
. . I DVBSCH=1 D
. . . D DQ^%ZTLOAD
. . . S DVBDQ=$G(ZTSK(0))
. . . I DVBDQ=0 D DQ^%ZTLOAD
. . . S DVBDQ=$G(ZTSK(0))
. . . S DVBOPT=$P(DVBOPLIST,U,DVBI)
. . . S $P(DVBSUBLIST,U,DVBJ)=$G(ZTSK)_":"_DVBRUNTIME_":"_DVBDQ,DVBRESULTS(DVBI)=DVBOPTN_U_DVBSUBLIST
. . . Q
. . I DVBDQ=1 D ;;If task was DQ then delete from scheduling File 19.2
. . . S DVBTSKIEN=""
. . . S DVBTSKIEN=$O(^DIC(19.2,"B",DVBOPTIEN,DVBTSKIEN))
. . . I $G(^DIC(19.2,DVBTSKIEN,1))=ZTSK D
. . . . K DIE,DA,DR,X,Y
. . . . S DA=DVBTSKIEN,DIE="^DIC(19.2,",DR="2///@;12///@"
. . . . D ^DIE
. . . . Q
. . . K DIE,DA,DR,X,Y
. . . Q
. .Q
. K DVBSUBLIST
. Q
K DVBRET,DVBI,DVBOPTN,DVBLIST,DVBJ,DVBSCH,DVBSUBLIST,DVBDQ,DVBTSKIEN,DVBKEY,DVBOPTIEN,DVBSUBLIST,DVBRUNTIME,ZTSK
Q
LOOKUP(DVBRTN,DVBOPTLIST) ;
;CAPRI-14987 SJA 01/16/25
;RPC: DVBA CAPRI LOOKUP OPTSET
N DVBI,DVBOPT,DVBOPTIEN,DVBIEN2,DVBSCHED,DVBTASKID,DVBTYPE,DVBFLAG,DVBQUE
S DVBRTN=""
F DVBI=1:1:$L(DVBOPTLIST,"^") D
. S (DVBTYPE,DVBFLAG,DVBQUE)=""
. S DVBOPT=$P(DVBOPTLIST,U,DVBI)
. S (DVBOPTIEN,DVBIEN2)="",DVBSCHED="NONE",DVBTASKID="NONE"
. S DVBOPTIEN=$O(^DIC(19,"B",DVBOPT,DVBOPTIEN))
. ; Check if the option exists
. I 'DVBOPTIEN S DVBRTN(DVBI)=DVBOPT_":0^" Q
. S DVBTYPE=$P($G(^DIC(19,DVBOPTIEN,0)),"^",4)
. S DVBFLAG=$P($G(^DIC(19,DVBOPTIEN,200.9)),"^",1)
. S DVBQUE=$G(^DIC(19,DVBOPTIEN,200))
. S DVBIEN2=$O(^DIC(19.2,"B",DVBOPTIEN,DVBIEN2))
. I DVBIEN2'="" S DVBSCHED=$G(^DIC(19.2,DVBIEN2,0)),DVBTASKID=$G(^DIC(19.2,DVBIEN2,1))
. S DVBMSG=$P($G(^DIC(19,DVBOPTIEN,0)),U,3)
. I DVBMSG="" S DVBRTN(DVBI)=DVBOPT_":1^^SCHEDULE:"_DVBSCHED_"^TASKID:"_DVBTASKID
. I DVBMSG'="" S DVBRTN(DVBI)=DVBOPT_":1^"_DVBMSG_"^SCHEDULE:"_DVBSCHED_"^TASKID:"_DVBTASKID
. Q
Q
COMBINE(DVBRESULTS,DVBAOPTIONS,DVBDATA) ; Combined RPC to clear option statuses and reschedule tasks
;CAPRI-15907 SJA 02/13/25
;DVBA CAPRI ARP RSKDT
; INPUT:
; DVBAOPTIONS - Option List (Options to clear or check the status)
; DVBOPTION - A string of IENs of the options to be updated
; DVBRUNTIME - A string of runtime for options to be scheduled
; OUTPUT:
; DVBRESULTS - Status for each option processing (both clearing status and rescheduling)
N DVBCOUNT,DVBOPTN,DVBMSG,DVBIEN,DVBCURRENTMSG,DVBSCHIEN,DVBOPTIEN,DVBJ,DVBCRNTMSG,DVBCOUNT2
; Initialize variables
S DVBCOUNT=""
; Step 1: Process options to clear or check the status
F DVBCOUNT=1:1:$L(DVBAOPTIONS,"^") D
. S DVBIEN=""
. S DVBOPTN=$P(DVBAOPTIONS,"^",DVBCOUNT),DVBOPTIEN="" ; Get each option from the list
. S DVBOPTIEN=$O(^DIC(19,"B",DVBOPTN,DVBOPTIEN))
. S DVBCRNTMSG=$P($G(^DIC(19,DVBOPTIEN,0)),U,3)
. I DVBCRNTMSG="" S DVBRESULTS(DVBCOUNT)=DVBOPTN_"^already enabled" Q
. S DVBMSG=""
. D OUT^XPDMENU(DVBOPTN,DVBMSG) ; Process the option
. ; Check if the option exists in the DIC(19) file
. S DVBIEN=$O(^DIC(19,"B",DVBOPTN,DVBIEN))
. I DVBIEN'="" D
. . S DVBCURRENTMSG=$P($G(^DIC(19,DVBIEN,0)),"^",3) ; Check the current message for the option
. . ; If no message exists, mark as processed (1)
. . I DVBCURRENTMSG="" S DVBRESULTS(DVBCOUNT)=DVBOPTN_"^1" Q
. . ; If a message exists, mark as not processed (0)
. . I DVBCURRENTMSG'="" S DVBRESULTS(DVBCOUNT)=DVBOPTN_":0"
. . Q
. I DVBIEN="" S DVBRESULTS(DVBCOUNT)=DVBOPTN_"^0" ;IF IEN IS "" RETURN
. Q
I ($G(DVBDATA(1))="")!($G(DVBDATA(2))="") Q
; Step 2: Reschedule tasks for the provided options and runtimes
S DVBJ=0
S DVBOPTIONS=$G(DVBDATA(1))
S DVBRUNTIMES=$G(DVBDATA(2))
S DVBCOUNT2=""
S DT=$$NOW^XLFDT
S UPDATEDT=$$FMADD^XLFDT(DT,0,0,20,0)
F DVBCOUNT2=1:1:$L(DVBOPTIONS,"^") D
. S DVBCOUNT=DVBCOUNT+1
. S (DVBOPTIEN,DVBSCHIEN)=""
. S DVBOPTION=$P(DVBOPTIONS,"^",DVBCOUNT2) ; Get the current DVBOPTION
. ; Check if the corresponding runtime exists
. ; If no runtime exists for this option, skip rescheduling for it
. ; If there is a runtime for the option, get the corresponding DVBRUNTIME
. S DVBRUNTIME=$P(DVBRUNTIMES,"^",DVBCOUNT2)
. ; Check if the option has an OOO message and return an error if true
. ; Try to find the Schedule IEN (SCHIEN) for the provided OPTION
. S DVBOPTIEN=$O(^DIC(19,"B",DVBOPTION,DVBOPTIEN)) ; Get the option IEN
. S DVBSCHIEN=$O(^DIC(19.2,"B",DVBOPTIEN,DVBSCHIEN)) ; Get the schedule IEN
. I $P($G(^DIC(19,DVBOPTIEN,0)),U,3)'="" S DVBRESULTS(DVBCOUNT)="ERROR: Option Out of Order "_DVBOPTION Q
. ; If no SCH_IEN found, return message saying no tasks to reschedule
. I DVBSCHIEN="" S DVBRESULTS(DVBCOUNT)="No Option to reschedule for "_DVBOPTION Q
. ; If task is already scheduled, no update required
. I $P($G(^DIC(19.2,DVBSCHIEN,0)),U,2)'="" S DVBRESULTS(DVBCOUNT)=DVBOPTION_"^already scheduled" Q ; No update needed
. ; If schedule entry is found, check if the task is already scheduled
. I $P($G(^DIC(19.2,DVBSCHIEN,0)),U,2)="" D
. .; If no date/time is set, update the schedule with the new runtime
. . K DIE,DA,DR,X,Y
. . S DA=DVBSCHIEN,DIE="^DIC(19.2,",DR="2///"_UPDATEDT
. . D ^DIE
. . K DIE,DA,DR,X,Y
. . Q
. I $P($G(^DIC(19.2,DVBSCHIEN,0)),U,2)=UPDATEDT S DVBRESULTS(DVBCOUNT)=DVBOPTION_"^"_UPDATEDT_"^1" ; Success: Option rescheduled
. ; Final result: Return all the status of the options
. Q
K DVBRUNTIME,DVBOPTIONS,DVBRUNTIMES,DVBCRNTMSG,DVBOPTION,UPDATEDT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBAARP 6944 printed Mar 25, 2026@15:04:38 Page 2
DVBAARP ;ALB/SJA - CAPRI Routines to update AMIE function Options; 11/22/2024 ; 9/22/25 12:54pm
+1 ;;2.7;AMIE;**255**;Oct 20, 2000;Build 21
+2 ; Per VHA Directive 6402 this routine should not be modified
+3 ; Reference to OUT^XPDMENU ICR #1157
+4 ; Reference to %ZTLOAD ICR #10063
+5 ; Reference to OPTSTAT^XUTMOPT ICR #1472
+6 ; Reference to OWNSKEY^XUSRB ICR #3277
+7 ; Reference to XLFDT ICR #10103
UOTASKS(DVBRESULTS,DVBMSG,DVBOPLIST) ;
+1 ;RPC: DVBA CAPRI ARP OPTSET
+2 ; CAPRI-12935 SJA 11/22/24
+3 ;
+4 IF DVBMSG=""
SET DVBRESULTS(1)="ERROR:Missing Message"
QUIT
+5 IF DVBOPLIST=""
SET DVBRESULTS(1)="ERROR:Missing Option List"
QUIT
+6 ;
+7 NEW DVBRET,DVBI,DVBOPTN,DVBLIST,DVBJ,DVBSCH,DVBSUBLIST,DVBDQ,DVBTSKIEN,DVBCURRENTMSG
+8 SET (DVBRET,DVBLIST)=""
+9 FOR DVBI=1:1:$LENGTH(DVBOPLIST,"^")
Begin DoDot:1
+10 SET DVBOPTN=$PIECE(DVBOPLIST,"^",DVBI)
SET DVBOPTIEN=""
+11 SET DVBOPTIEN=$ORDER(^DIC(19,"B",DVBOPTN,DVBOPTIEN))
+12 IF DVBOPTIEN=""
SET DVBRESULTS(DVBI)=DVBOPTN_U_"Option not found"
QUIT
+13 SET DVBCURRENTMSG=$PIECE($GET(^DIC(19,DVBOPTIEN,0)),U,3)
+14 IF DVBCURRENTMSG=DVBMSG
SET DVBRESULTS(DVBI)=DVBOPTN_"^already disabled"
QUIT
+15 DO OUT^XPDMENU(DVBOPTN,DVBMSG)
+16 IF $PIECE($GET(^DIC(19,DVBOPTIEN,0)),U,3)'=DVBMSG
SET DVBRESULTS(DVBI)=DVBOPTN_U_"MESSAGE NOT SET"
QUIT
+17 DO OPTSTAT^XUTMOPT(DVBOPTN,.DVBLIST)
+18 IF DVBLIST=0
SET DVBRESULTS(DVBI)=DVBOPTN_U_"No tasks number"
QUIT
+19 FOR DVBJ=1:1:$GET(DVBLIST)
Begin DoDot:2
+20 SET DVBSUBLIST=""
+21 SET ZTSK=$PIECE($GET(DVBLIST(DVBJ)),U,1)
+22 SET DVBRUNTIME=$PIECE($GET(DVBLIST(DVBJ)),U,2)
+23 ;;Checking for Scheduling
DO ISQED^%ZTLOAD
+24 SET DVBSCH=$GET(ZTSK(0))
+25 IF DVBSCH'=1
SET $PIECE(DVBSUBLIST,U,DVBJ)=$GET(ZTSK)_":-1"
SET DVBRESULTS(DVBI)=DVBOPTN_U_DVBSUBLIST
QUIT
+26 IF DVBSCH=1
Begin DoDot:3
+27 DO DQ^%ZTLOAD
+28 SET DVBDQ=$GET(ZTSK(0))
+29 IF DVBDQ=0
DO DQ^%ZTLOAD
+30 SET DVBDQ=$GET(ZTSK(0))
+31 SET DVBOPT=$PIECE(DVBOPLIST,U,DVBI)
+32 SET $PIECE(DVBSUBLIST,U,DVBJ)=$GET(ZTSK)_":"_DVBRUNTIME_":"_DVBDQ
SET DVBRESULTS(DVBI)=DVBOPTN_U_DVBSUBLIST
+33 QUIT
End DoDot:3
+34 ;;If task was DQ then delete from scheduling File 19.2
IF DVBDQ=1
Begin DoDot:3
+35 SET DVBTSKIEN=""
+36 SET DVBTSKIEN=$ORDER(^DIC(19.2,"B",DVBOPTIEN,DVBTSKIEN))
+37 IF $GET(^DIC(19.2,DVBTSKIEN,1))=ZTSK
Begin DoDot:4
+38 KILL DIE,DA,DR,X,Y
+39 SET DA=DVBTSKIEN
SET DIE="^DIC(19.2,"
SET DR="2///@;12///@"
+40 DO ^DIE
+41 QUIT
End DoDot:4
+42 KILL DIE,DA,DR,X,Y
+43 QUIT
End DoDot:3
+44 QUIT
End DoDot:2
+45 KILL DVBSUBLIST
+46 QUIT
End DoDot:1
+47 KILL DVBRET,DVBI,DVBOPTN,DVBLIST,DVBJ,DVBSCH,DVBSUBLIST,DVBDQ,DVBTSKIEN,DVBKEY,DVBOPTIEN,DVBSUBLIST,DVBRUNTIME,ZTSK
+48 QUIT
LOOKUP(DVBRTN,DVBOPTLIST) ;
+1 ;CAPRI-14987 SJA 01/16/25
+2 ;RPC: DVBA CAPRI LOOKUP OPTSET
+3 NEW DVBI,DVBOPT,DVBOPTIEN,DVBIEN2,DVBSCHED,DVBTASKID,DVBTYPE,DVBFLAG,DVBQUE
+4 SET DVBRTN=""
+5 FOR DVBI=1:1:$LENGTH(DVBOPTLIST,"^")
Begin DoDot:1
+6 SET (DVBTYPE,DVBFLAG,DVBQUE)=""
+7 SET DVBOPT=$PIECE(DVBOPTLIST,U,DVBI)
+8 SET (DVBOPTIEN,DVBIEN2)=""
SET DVBSCHED="NONE"
SET DVBTASKID="NONE"
+9 SET DVBOPTIEN=$ORDER(^DIC(19,"B",DVBOPT,DVBOPTIEN))
+10 ; Check if the option exists
+11 IF 'DVBOPTIEN
SET DVBRTN(DVBI)=DVBOPT_":0^"
QUIT
+12 SET DVBTYPE=$PIECE($GET(^DIC(19,DVBOPTIEN,0)),"^",4)
+13 SET DVBFLAG=$PIECE($GET(^DIC(19,DVBOPTIEN,200.9)),"^",1)
+14 SET DVBQUE=$GET(^DIC(19,DVBOPTIEN,200))
+15 SET DVBIEN2=$ORDER(^DIC(19.2,"B",DVBOPTIEN,DVBIEN2))
+16 IF DVBIEN2'=""
SET DVBSCHED=$GET(^DIC(19.2,DVBIEN2,0))
SET DVBTASKID=$GET(^DIC(19.2,DVBIEN2,1))
+17 SET DVBMSG=$PIECE($GET(^DIC(19,DVBOPTIEN,0)),U,3)
+18 IF DVBMSG=""
SET DVBRTN(DVBI)=DVBOPT_":1^^SCHEDULE:"_DVBSCHED_"^TASKID:"_DVBTASKID
+19 IF DVBMSG'=""
SET DVBRTN(DVBI)=DVBOPT_":1^"_DVBMSG_"^SCHEDULE:"_DVBSCHED_"^TASKID:"_DVBTASKID
+20 QUIT
End DoDot:1
+21 QUIT
COMBINE(DVBRESULTS,DVBAOPTIONS,DVBDATA) ; Combined RPC to clear option statuses and reschedule tasks
+1 ;CAPRI-15907 SJA 02/13/25
+2 ;DVBA CAPRI ARP RSKDT
+3 ; INPUT:
+4 ; DVBAOPTIONS - Option List (Options to clear or check the status)
+5 ; DVBOPTION - A string of IENs of the options to be updated
+6 ; DVBRUNTIME - A string of runtime for options to be scheduled
+7 ; OUTPUT:
+8 ; DVBRESULTS - Status for each option processing (both clearing status and rescheduling)
+9 NEW DVBCOUNT,DVBOPTN,DVBMSG,DVBIEN,DVBCURRENTMSG,DVBSCHIEN,DVBOPTIEN,DVBJ,DVBCRNTMSG,DVBCOUNT2
+10 ; Initialize variables
+11 SET DVBCOUNT=""
+12 ; Step 1: Process options to clear or check the status
+13 FOR DVBCOUNT=1:1:$LENGTH(DVBAOPTIONS,"^")
Begin DoDot:1
+14 SET DVBIEN=""
+15 ; Get each option from the list
SET DVBOPTN=$PIECE(DVBAOPTIONS,"^",DVBCOUNT)
SET DVBOPTIEN=""
+16 SET DVBOPTIEN=$ORDER(^DIC(19,"B",DVBOPTN,DVBOPTIEN))
+17 SET DVBCRNTMSG=$PIECE($GET(^DIC(19,DVBOPTIEN,0)),U,3)
+18 IF DVBCRNTMSG=""
SET DVBRESULTS(DVBCOUNT)=DVBOPTN_"^already enabled"
QUIT
+19 SET DVBMSG=""
+20 ; Process the option
DO OUT^XPDMENU(DVBOPTN,DVBMSG)
+21 ; Check if the option exists in the DIC(19) file
+22 SET DVBIEN=$ORDER(^DIC(19,"B",DVBOPTN,DVBIEN))
+23 IF DVBIEN'=""
Begin DoDot:2
+24 ; Check the current message for the option
SET DVBCURRENTMSG=$PIECE($GET(^DIC(19,DVBIEN,0)),"^",3)
+25 ; If no message exists, mark as processed (1)
+26 IF DVBCURRENTMSG=""
SET DVBRESULTS(DVBCOUNT)=DVBOPTN_"^1"
QUIT
+27 ; If a message exists, mark as not processed (0)
+28 IF DVBCURRENTMSG'=""
SET DVBRESULTS(DVBCOUNT)=DVBOPTN_":0"
+29 QUIT
End DoDot:2
+30 ;IF IEN IS "" RETURN
IF DVBIEN=""
SET DVBRESULTS(DVBCOUNT)=DVBOPTN_"^0"
+31 QUIT
End DoDot:1
+32 IF ($GET(DVBDATA(1))="")!($GET(DVBDATA(2))="")
QUIT
+33 ; Step 2: Reschedule tasks for the provided options and runtimes
+34 SET DVBJ=0
+35 SET DVBOPTIONS=$GET(DVBDATA(1))
+36 SET DVBRUNTIMES=$GET(DVBDATA(2))
+37 SET DVBCOUNT2=""
+38 SET DT=$$NOW^XLFDT
+39 SET UPDATEDT=$$FMADD^XLFDT(DT,0,0,20,0)
+40 FOR DVBCOUNT2=1:1:$LENGTH(DVBOPTIONS,"^")
Begin DoDot:1
+41 SET DVBCOUNT=DVBCOUNT+1
+42 SET (DVBOPTIEN,DVBSCHIEN)=""
+43 ; Get the current DVBOPTION
SET DVBOPTION=$PIECE(DVBOPTIONS,"^",DVBCOUNT2)
+44 ; Check if the corresponding runtime exists
+45 ; If no runtime exists for this option, skip rescheduling for it
+46 ; If there is a runtime for the option, get the corresponding DVBRUNTIME
+47 SET DVBRUNTIME=$PIECE(DVBRUNTIMES,"^",DVBCOUNT2)
+48 ; Check if the option has an OOO message and return an error if true
+49 ; Try to find the Schedule IEN (SCHIEN) for the provided OPTION
+50 ; Get the option IEN
SET DVBOPTIEN=$ORDER(^DIC(19,"B",DVBOPTION,DVBOPTIEN))
+51 ; Get the schedule IEN
SET DVBSCHIEN=$ORDER(^DIC(19.2,"B",DVBOPTIEN,DVBSCHIEN))
+52 IF $PIECE($GET(^DIC(19,DVBOPTIEN,0)),U,3)'=""
SET DVBRESULTS(DVBCOUNT)="ERROR: Option Out of Order "_DVBOPTION
QUIT
+53 ; If no SCH_IEN found, return message saying no tasks to reschedule
+54 IF DVBSCHIEN=""
SET DVBRESULTS(DVBCOUNT)="No Option to reschedule for "_DVBOPTION
QUIT
+55 ; If task is already scheduled, no update required
+56 ; No update needed
IF $PIECE($GET(^DIC(19.2,DVBSCHIEN,0)),U,2)'=""
SET DVBRESULTS(DVBCOUNT)=DVBOPTION_"^already scheduled"
QUIT
+57 ; If schedule entry is found, check if the task is already scheduled
+58 IF $PIECE($GET(^DIC(19.2,DVBSCHIEN,0)),U,2)=""
Begin DoDot:2
+59 ; If no date/time is set, update the schedule with the new runtime
+60 KILL DIE,DA,DR,X,Y
+61 SET DA=DVBSCHIEN
SET DIE="^DIC(19.2,"
SET DR="2///"_UPDATEDT
+62 DO ^DIE
+63 KILL DIE,DA,DR,X,Y
+64 QUIT
End DoDot:2
+65 ; Success: Option rescheduled
IF $PIECE($GET(^DIC(19.2,DVBSCHIEN,0)),U,2)=UPDATEDT
SET DVBRESULTS(DVBCOUNT)=DVBOPTION_"^"_UPDATEDT_"^1"
+66 ; Final result: Return all the status of the options
+67 QUIT
End DoDot:1
+68 KILL DVBRUNTIME,DVBOPTIONS,DVBRUNTIMES,DVBCRNTMSG,DVBOPTION,UPDATEDT
+69 QUIT
