source: WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHQTM.m@ 702

Last change on this file since 702 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1DVBHQTM ;ISC-ALBANY/PKE-HINQ time,sat,sun,holiday check ; 8/28/87 09:45 ; 5/10/01 10:27am
2 ;;4.0;HINQ;**12,34,38**;03/25/92
3SILENT S DVBSHSS=""
4EN K DVBSTOP D:'$D(DT) DT^DICRW S DVBTIM=$P($H,",",2),U="^"
5 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
6 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
7 ;
8 ;;;I $P(^DVB(395,1,"HQ"),U,1)=DT,+$P(^("HQ"),U,4) G OK
9 ;
10ONCE 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
11OK K DVBSTOP
12EX K %Y,Y,X,D0,DA,DI,DIC,DIE,DQ,DR,DVBTIM,DVBGMT,DVBGMT2,DVBSHSS,DVBDIF,DVBZN,N QUIT
13 Q
14MESS S DVBSTOP="",DVBZN="CDT" G EX:$D(DVBSHSS)
15 ;DVB*38 HINQ UNAVAILABLE MESSAGE MLR 5.10.01
16 W !!
17 W $$CJ^XLFSTR("ATTENTION: HINQ IS CURRENTLY UNAVAILABLE!",80,".")
18 W !!,$$CJ^XLFSTR("Please enter HINQ request in Suspense File",80)
19 W !,$$CJ^XLFSTR("or try again later.",80)
20 W !!
21 D EX
22 Q ;MESS
23 ;
24UP S $P(^DVB(395,1,"HQ"),"^",4)=1 W $C(7)," Network Enabled" Q
25DOWN S $P(^DVB(395,1,"HQ"),"^",4)=0 W $C(7)," Network Disabled" Q
26BUP S $P(^DVB(395,1,"HQ"),"^",5)=1 Q ; batch processing enable
27BDOWN S $P(^DVB(395,1,"HQ"),"^",5)=0 Q ; batch processing disabled
28 ;
29EDIT S (DIC,DIE)="^DVB(395,",X=1,DIC(0)="" D ^DIC G EX:Y<1 S DA=+Y
30 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"
31 L +^DVB(395,1):3 I $T DO
32 .D ^DIE
33 E W !?3,"HINQ parameters being edited by another user" H 1
34 L -^DVB(395,1) G EX
35 Q
Note: See TracBrowser for help on using the repository browser.