DVB471P ;MNT/RFS - DVB*4.0*71 post install routine ; Sep 30, 2021@09:08
;;4.0;HINQ;**71**;03/25/92;Build 13
;
Q
EN ; Entry point for post install routine
D DEQUEUE
D DISOPT
D DISPROT
D DELPROT
Q
DEQUEUE ; Dequeuing of DVBHQDB tasks
N DVBLIST,DVBX,ZTSK
D BMES^XPDUTL("Starting dequeue of QUE^DVBHQDB tasks")
D RTN^%ZTLOAD("QUE^DVBHQDB","DVBLIST")
S DVBX=0 F S DVBX=$O(DVBLIST(DVBX)) Q:'DVBX S ZTSK=DVBX D DQ^%ZTLOAD
D BMES^XPDUTL("Dequeuing of QUE^DVBHQDB tasks complete")
Q
DELPROT ;Delete Protocol from List Protocol
N DVBOM,DVBMN,DVBPROT,DVBCHK,DVBOP,DVBTEXT
F DVBOM=1:1 S DVBMN=$P($TEXT(MENLST+DVBOM),";;",2) Q:DVBMN="$$END" D
.F DVBOP=1:1 S DVBPROT=$P($TEXT(PROLST+DVBOP),";;",2) Q:DVBPROT="$$END" D
..S DVBCHK=$$DELETE^XPDPROT(DVBMN,DVBPROT)
..I DVBCHK S DVBTEXT="The "_DVBPROT_" protocol has been deleted from the "_DVBMN_" protocol menu." D BMES^XPDUTL(DVBTEXT)
..I 'DVBCHK S DVBTEXT="The "_DVBPROT_" protocol could not be deleted from the "_DVBMN_" protocol menu." D BMES^XPDUTL(DVBTEXT)
Q
DISOPT ;Mark options out of order
N DVBLP,DVBOPT,DVBTEXT
F DVBLP=1:1 S DVBOPT=$P($TEXT(OPTLST+DVBLP),";;",2) Q:DVBOPT="$$END" D
.D OUT^XPDMENU(DVBOPT,"DO NOT USE!! - HINQ DECOM - DVB*4.0*71")
.S DVBTEXT="The "_DVBOPT_" option has been marked out of order." D BMES^XPDUTL(DVBTEXT)
Q
DISPROT ;Disable Protocols
N DVBPRTL,DVBPR,DVBTEXT
F DVBPR=1:1 S DVBPRTL=$P($TEXT(PROLST+DVBPR),";;",2) Q:DVBPRTL="$$END" D
.D OUT^XPDPROT(DVBPRTL,"DO NOT USE!! - HINQ DECOMM - DVB*4.0*71")
.S DVBTEXT="The "_DVBPRTL_" protocol has been disabled." D BMES^XPDUTL(DVBTEXT)
Q
MENLST ;Protocol list
;;DGPM MOVEMENT EVENTS
;;$$END
;
PROLST ;Protocol List
;;DVB ADMISSION HINQ
;;$$END
;
OPTLST ;OPTION LIST
;;DVB HSUSP-PROCESSFILE
;;DVB HREQ-GENERHREQ
;;DVB HREQ-INDIVHREQ
;;DVB HSUSP-ENTERREQ
;;$$END
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVB471P 1879 printed Nov 22, 2024@17:07:57 Page 2
DVB471P ;MNT/RFS - DVB*4.0*71 post install routine ; Sep 30, 2021@09:08
+1 ;;4.0;HINQ;**71**;03/25/92;Build 13
+2 ;
+3 QUIT
EN ; Entry point for post install routine
+1 DO DEQUEUE
+2 DO DISOPT
+3 DO DISPROT
+4 DO DELPROT
+5 QUIT
DEQUEUE ; Dequeuing of DVBHQDB tasks
+1 NEW DVBLIST,DVBX,ZTSK
+2 DO BMES^XPDUTL("Starting dequeue of QUE^DVBHQDB tasks")
+3 DO RTN^%ZTLOAD("QUE^DVBHQDB","DVBLIST")
+4 SET DVBX=0
FOR
SET DVBX=$ORDER(DVBLIST(DVBX))
if 'DVBX
QUIT
SET ZTSK=DVBX
DO DQ^%ZTLOAD
+5 DO BMES^XPDUTL("Dequeuing of QUE^DVBHQDB tasks complete")
+6 QUIT
DELPROT ;Delete Protocol from List Protocol
+1 NEW DVBOM,DVBMN,DVBPROT,DVBCHK,DVBOP,DVBTEXT
+2 FOR DVBOM=1:1
SET DVBMN=$PIECE($TEXT(MENLST+DVBOM),";;",2)
if DVBMN="$$END"
QUIT
Begin DoDot:1
+3 FOR DVBOP=1:1
SET DVBPROT=$PIECE($TEXT(PROLST+DVBOP),";;",2)
if DVBPROT="$$END"
QUIT
Begin DoDot:2
+4 SET DVBCHK=$$DELETE^XPDPROT(DVBMN,DVBPROT)
+5 IF DVBCHK
SET DVBTEXT="The "_DVBPROT_" protocol has been deleted from the "_DVBMN_" protocol menu."
DO BMES^XPDUTL(DVBTEXT)
+6 IF 'DVBCHK
SET DVBTEXT="The "_DVBPROT_" protocol could not be deleted from the "_DVBMN_" protocol menu."
DO BMES^XPDUTL(DVBTEXT)
End DoDot:2
End DoDot:1
+7 QUIT
DISOPT ;Mark options out of order
+1 NEW DVBLP,DVBOPT,DVBTEXT
+2 FOR DVBLP=1:1
SET DVBOPT=$PIECE($TEXT(OPTLST+DVBLP),";;",2)
if DVBOPT="$$END"
QUIT
Begin DoDot:1
+3 DO OUT^XPDMENU(DVBOPT,"DO NOT USE!! - HINQ DECOM - DVB*4.0*71")
+4 SET DVBTEXT="The "_DVBOPT_" option has been marked out of order."
DO BMES^XPDUTL(DVBTEXT)
End DoDot:1
+5 QUIT
DISPROT ;Disable Protocols
+1 NEW DVBPRTL,DVBPR,DVBTEXT
+2 FOR DVBPR=1:1
SET DVBPRTL=$PIECE($TEXT(PROLST+DVBPR),";;",2)
if DVBPRTL="$$END"
QUIT
Begin DoDot:1
+3 DO OUT^XPDPROT(DVBPRTL,"DO NOT USE!! - HINQ DECOMM - DVB*4.0*71")
+4 SET DVBTEXT="The "_DVBPRTL_" protocol has been disabled."
DO BMES^XPDUTL(DVBTEXT)
End DoDot:1
+5 QUIT
MENLST ;Protocol list
+1 ;;DGPM MOVEMENT EVENTS
+2 ;;$$END
+3 ;
PROLST ;Protocol List
+1 ;;DVB ADMISSION HINQ
+2 ;;$$END
+3 ;
OPTLST ;OPTION LIST
+1 ;;DVB HSUSP-PROCESSFILE
+2 ;;DVB HREQ-GENERHREQ
+3 ;;DVB HREQ-INDIVHREQ
+4 ;;DVB HSUSP-ENTERREQ
+5 ;;$$END
+6 ;