36 lines
1.6 KiB
Mathematica
36 lines
1.6 KiB
Mathematica
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
|