source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBEFUTL.m@ 1404

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

initial load of WorldVistAEHR
File size: 3.2 KB
RevLine 
[613]1IBEFUTL ;ALB/AAS - INTEGRATED BILLING - FILER UTILITIES ; 26-FEB-91
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5START ; -turn IB filer on, task manually
6 ;***
7 ;S XRTL=$ZU(0),XRTN="START^IBEFUTL-1" D T0^%ZOSV ;start rt clock
8 ;
9 W !!,"This option will start the IB Background Filer running. If one filer"
10 W !,"is currently running a second filer will be started. Manually starting"
11 W !,"the filer with this option is not ordinarily necessary, as it will start"
12 W !,"itself when needed. However, if the Filer job should be killed or"
13 W !,"your system goes down with the filer running, you may need to use this"
14 W !,"option."
15 ;
16 I '$D(^IBE(350.9,1,0)) W !!,"You must enter/edit site parameters first" G STARTQ
17 I $P(^IBE(350.9,1,0),"^",4)]"" W !!,*7,"<<<<WARNING!!! ","Filer appears to have been started on " S Y=$P(^(0),"^",4) D DT^DIQ W ">>>>"
18 ;
19 W !! S DIR("A")="Are you sure",DIR("B")="NO",DIR(0)="Y" D ^DIR K DIR I 'Y W !!,"Nothing queued!" G STARTQ
20 ;
21S1 N Y S DIE="^IBE(350.9,",DA=1,DR=".03////1;.04///@" D ^DIE K DIE,DA,DR
22 D ZTSK^IBEF
23STARTQ K %H,D,DIC,X,Y,ZTSK
24 ;***
25 ;I $D(XRT0) S:'$D(XRTN) XRTN="START^IBEFUTL" D T1^%ZOSV ;stop rt clock
26 Q
27 ;
28STOP ; -stop IB filer
29 ;***
30 ;S XRTL=$ZU(0),XRTN="STOP^IBEFUTL-1" D T0^%ZOSV ;start rt clock
31 ;
32 W !,"This option will edit the IB site parameter file and allow for the"
33 W !,"graceful shutdown of the IB Background filer. Use of this option"
34 W !,"will cause the IB Engine to file in the foreground until the site"
35 W !,"parameter FILE IN BACKGROUND is edited to yes."
36 W !!,"After using this option the filer may attempt to complete filing"
37 W !,"posted transactions prior to stopping. This option should be used"
38 W !,"prior to stopping taskmanager when doing an orderly system shutdown."
39 W !!,"REMEMBER: If you use this option, you must edit the site parameter"
40 W !,"FILE IN BACKGROUND to yes to allow the filer to restart, or use the"
41 W !,"Start IB filer option."
42 ;
43 W !! S DIR("A")="Are you sure",DIR(0)="Y",DIR("B")="NO" D ^DIR K DIR I 'Y W !!,"Nothing stopped!" G STOPQ
44 S DIE="^IBE(350.9,",DA=1,DR=".03////0" D ^DIE K DA,DIE,DR,DIC
45 W !,"IB Background Filing stopped"
46 ;
47STOPQ K %H,D,X
48 ;***
49 ;I $D(XRT0) S:'$D(XRTN) XRTN="STOP^IBEFUTL" D T1^%ZOSV ;stop rt clock
50 Q
51 ;
52EDIT ; -edit IB site parameters
53 ;***
54 ;S XRTL=$ZU(0),XRTN="EDIT^IBEFUTL-1" D T0^%ZOSV ;start rt clock
55 ;
56 I '$D(^IBE(350.9,1,0)) K DD,DO S DIC="^IBE(350.9,",DIC(0)="L",(X,DINUM)=1 D FILE^DICN K DIC,DD,DO W !!,*7,"Creating Site Parameter Entry! You may now Edit"
57 ;
58 I '$D(^IBE(350.9,1,0)) W !!,*7,"<<<WARNING: There appears to be a problem in the parameter file.>>>" G EDITQ
59 ;
60 L +^IBE(350.9,1,0):0 I '$T W !,"Site Parameteres being edited by another user!" G EDITQ
61 ;
62 S DA=1,DR="[IB EDIT SITE PARAM]",DIE="^IBE(350.9," D ^DIE
63 L -^IBE(350.9,1,0)
64 ;
65EDITQ K %H,DA,DR,DIE,DIC,X,Y
66 ;***
67 ;I $D(XRT0) S:'$D(XRTN) XRTN="EDIT^IBEFUTL" D T1^%ZOSV ;stop rt clock
68 Q
69 ;
70CLEAR ; - clear the start date and tasked flags from file 350.9
71 ;***
72 ;S XRTL=$ZU(0),XRTN="CLEAR^IBEFUTL-1" D T0^%ZOSV ;start rt clock
73 ;
74 S DA=1,DIE="^IBE(350.9,",DR="[IB EDIT CLEAR]" D ^DIE K DA,DIE,DR,DIC
75 ;***
76 ;I $D(XRT0) S:'$D(XRTN) XRTN="CLEAR^IBEFUTL" D T1^%ZOSV ;stop rt clock
77 Q
Note: See TracBrowser for help on using the repository browser.