DVBHQTM ;ISC-ALBANY/PKE-HINQ time,sat,sun,holiday check ; 8/28/87 09:45 ; 5/10/01 10:27am
;;4.0;HINQ;**12,34,38**;03/25/92
SILENT S DVBSHSS=""
EN K DVBSTOP D:'$D(DT) DT^DICRW S DVBTIM=$P($H,",",2),U="^"
I '$D(^DVB(395,1,"HQ"))!('$D(^("HQVD"))) W:'$D(DVBSHSS) !,$C(7),"No HINQ parameters",!,"Notify system manager" S DVBSTOP="" H 3 G EX
I '+$P(^DVB(395,1,"HQ"),U,4) W:'$D(DVBSHSS) !,$C(7),"Network is disabled Requests may be entered in the Suspense File" S DVBSTOP="" G EX
;
;;;I $P(^DVB(395,1,"HQ"),U,1)=DT,+$P(^("HQ"),U,4) G OK
;
ONCE I $D(^DVB(395,1,"HQ")),$P(^("HQ"),U,1)'=DT S $P(^DVB(395,1,"HQ"),U,2)=$S($P(^("HQ"),U,1)?7N:$P(^("HQ"),U,1),1:DT) W !!! S $P(^DVB(395,1,"HQ"),U,1)=DT,$P(^DVB(395,1,"HQ"),U,9)=0
OK K DVBSTOP
EX K %Y,Y,X,D0,DA,DI,DIC,DIE,DQ,DR,DVBTIM,DVBGMT,DVBGMT2,DVBSHSS,DVBDIF,DVBZN,N QUIT
Q
MESS S DVBSTOP="",DVBZN="CDT" G EX:$D(DVBSHSS)
;DVB*38 HINQ UNAVAILABLE MESSAGE MLR 5.10.01
W !!
W $$CJ^XLFSTR("ATTENTION: HINQ IS CURRENTLY UNAVAILABLE!",80,".")
W !!,$$CJ^XLFSTR("Please enter HINQ request in Suspense File",80)
W !,$$CJ^XLFSTR("or try again later.",80)
W !!
D EX
Q ;MESS
;
UP S $P(^DVB(395,1,"HQ"),"^",4)=1 W $C(7)," Network Enabled" Q
DOWN S $P(^DVB(395,1,"HQ"),"^",4)=0 W $C(7)," Network Disabled" Q
BUP S $P(^DVB(395,1,"HQ"),"^",5)=1 Q ; batch processing enable
BDOWN S $P(^DVB(395,1,"HQ"),"^",5)=0 Q ; batch processing disabled
;
EDIT S (DIC,DIE)="^DVB(395,",X=1,DIC(0)="" D ^DIC G EX:Y<1 S DA=+Y
S DR="1;2;4;5;6;.05;15HINQ ALERT mail group;7;8;9;10;11New IDCU Interface;12;22;13;16;17;19;20;21"
L +^DVB(395,1):3 I $T DO
.D ^DIE
E W !?3,"HINQ parameters being edited by another user" H 1
L -^DVB(395,1) G EX
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBHQTM 1720 printed Oct 16, 2024@17:59:47 Page 2
DVBHQTM ;ISC-ALBANY/PKE-HINQ time,sat,sun,holiday check ; 8/28/87 09:45 ; 5/10/01 10:27am
+1 ;;4.0;HINQ;**12,34,38**;03/25/92
SILENT SET DVBSHSS=""
EN KILL DVBSTOP
if '$DATA(DT)
DO DT^DICRW
SET DVBTIM=$PIECE($HOROLOG,",",2)
SET U="^"
+1 IF '$DATA(^DVB(395,1,"HQ"))!('$DATA(^("HQVD")))
if '$DATA(DVBSHSS)
WRITE !,$CHAR(7),"No HINQ parameters",!,"Notify system manager"
SET DVBSTOP=""
HANG 3
GOTO EX
+2 IF '+$PIECE(^DVB(395,1,"HQ"),U,4)
if '$DATA(DVBSHSS)
WRITE !,$CHAR(7),"Network is disabled Requests may be entered in the Suspense File"
SET DVBSTOP=""
GOTO EX
+3 ;
+4 ;;;I $P(^DVB(395,1,"HQ"),U,1)=DT,+$P(^("HQ"),U,4) G OK
+5 ;
ONCE IF $DATA(^DVB(395,1,"HQ"))
IF $PIECE(^("HQ"),U,1)'=DT
SET $PIECE(^DVB(395,1,"HQ"),U,2)=$SELECT($PIECE(^("HQ"),U,1)?7N:$PIECE(^("HQ"),U,1),1:DT)
WRITE !!!
SET $PIECE(^DVB(395,1,"HQ"),U,1)=DT
SET $PIECE(^DVB(395,1,"HQ"),U,9)=0
OK KILL DVBSTOP
EX KILL %Y,Y,X,D0,DA,DI,DIC,DIE,DQ,DR,DVBTIM,DVBGMT,DVBGMT2,DVBSHSS,DVBDIF,DVBZN,N
QUIT
+1 QUIT
MESS SET DVBSTOP=""
SET DVBZN="CDT"
if $DATA(DVBSHSS)
GOTO EX
+1 ;DVB*38 HINQ UNAVAILABLE MESSAGE MLR 5.10.01
+2 WRITE !!
+3 WRITE $$CJ^XLFSTR("ATTENTION: HINQ IS CURRENTLY UNAVAILABLE!",80,".")
+4 WRITE !!,$$CJ^XLFSTR("Please enter HINQ request in Suspense File",80)
+5 WRITE !,$$CJ^XLFSTR("or try again later.",80)
+6 WRITE !!
+7 DO EX
+8 ;MESS
QUIT
+9 ;
UP SET $PIECE(^DVB(395,1,"HQ"),"^",4)=1
WRITE $CHAR(7)," Network Enabled"
QUIT
DOWN SET $PIECE(^DVB(395,1,"HQ"),"^",4)=0
WRITE $CHAR(7)," Network Disabled"
QUIT
BUP ; batch processing enable
SET $PIECE(^DVB(395,1,"HQ"),"^",5)=1
QUIT
BDOWN ; batch processing disabled
SET $PIECE(^DVB(395,1,"HQ"),"^",5)=0
QUIT
+1 ;
EDIT SET (DIC,DIE)="^DVB(395,"
SET X=1
SET DIC(0)=""
DO ^DIC
if Y<1
GOTO EX
SET DA=+Y
+1 SET DR="1;2;4;5;6;.05;15HINQ ALERT mail group;7;8;9;10;11New IDCU Interface;12;22;13;16;17;19;20;21"
+2 LOCK +^DVB(395,1):3
IF $TEST
Begin DoDot:1
+3 DO ^DIE
End DoDot:1
+4 IF '$TEST
WRITE !?3,"HINQ parameters being edited by another user"
HANG 1
+5 LOCK -^DVB(395,1)
GOTO EX
+6 QUIT
