DVB471P.m

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 ---DVB471P   1879     printed  Mar 13, 2025@21:02:26                                                                                                                                                                                                     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       ;