[613] | 1 | IBEFUTL ;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 | ;
|
---|
| 5 | START ; -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 | ;
|
---|
| 21 | S1 N Y S DIE="^IBE(350.9,",DA=1,DR=".03////1;.04///@" D ^DIE K DIE,DA,DR
|
---|
| 22 | D ZTSK^IBEF
|
---|
| 23 | STARTQ 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 | ;
|
---|
| 28 | STOP ; -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 | ;
|
---|
| 47 | STOPQ K %H,D,X
|
---|
| 48 | ;***
|
---|
| 49 | ;I $D(XRT0) S:'$D(XRTN) XRTN="STOP^IBEFUTL" D T1^%ZOSV ;stop rt clock
|
---|
| 50 | Q
|
---|
| 51 | ;
|
---|
| 52 | EDIT ; -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 | ;
|
---|
| 65 | EDITQ 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 | ;
|
---|
| 70 | CLEAR ; - 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
|
---|