IBEFUTL ;ALB/AAS - INTEGRATED BILLING - FILER UTILITIES ; 26-FEB-91
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
START ; -turn IB filer on, task manually
;***
;S XRTL=$ZU(0),XRTN="START^IBEFUTL-1" D T0^%ZOSV ;start rt clock
;
W !!,"This option will start the IB Background Filer running. If one filer"
W !,"is currently running a second filer will be started. Manually starting"
W !,"the filer with this option is not ordinarily necessary, as it will start"
W !,"itself when needed. However, if the Filer job should be killed or"
W !,"your system goes down with the filer running, you may need to use this"
W !,"option."
;
I '$D(^IBE(350.9,1,0)) W !!,"You must enter/edit site parameters first" G STARTQ
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 ">>>>"
;
W !! S DIR("A")="Are you sure",DIR("B")="NO",DIR(0)="Y" D ^DIR K DIR I 'Y W !!,"Nothing queued!" G STARTQ
;
S1 N Y S DIE="^IBE(350.9,",DA=1,DR=".03////1;.04///@" D ^DIE K DIE,DA,DR
D ZTSK^IBEF
STARTQ K %H,D,DIC,X,Y,ZTSK
;***
;I $D(XRT0) S:'$D(XRTN) XRTN="START^IBEFUTL" D T1^%ZOSV ;stop rt clock
Q
;
STOP ; -stop IB filer
;***
;S XRTL=$ZU(0),XRTN="STOP^IBEFUTL-1" D T0^%ZOSV ;start rt clock
;
W !,"This option will edit the IB site parameter file and allow for the"
W !,"graceful shutdown of the IB Background filer. Use of this option"
W !,"will cause the IB Engine to file in the foreground until the site"
W !,"parameter FILE IN BACKGROUND is edited to yes."
W !!,"After using this option the filer may attempt to complete filing"
W !,"posted transactions prior to stopping. This option should be used"
W !,"prior to stopping taskmanager when doing an orderly system shutdown."
W !!,"REMEMBER: If you use this option, you must edit the site parameter"
W !,"FILE IN BACKGROUND to yes to allow the filer to restart, or use the"
W !,"Start IB filer option."
;
W !! S DIR("A")="Are you sure",DIR(0)="Y",DIR("B")="NO" D ^DIR K DIR I 'Y W !!,"Nothing stopped!" G STOPQ
S DIE="^IBE(350.9,",DA=1,DR=".03////0" D ^DIE K DA,DIE,DR,DIC
W !,"IB Background Filing stopped"
;
STOPQ K %H,D,X
;***
;I $D(XRT0) S:'$D(XRTN) XRTN="STOP^IBEFUTL" D T1^%ZOSV ;stop rt clock
Q
;
EDIT ; -edit IB site parameters
;***
;S XRTL=$ZU(0),XRTN="EDIT^IBEFUTL-1" D T0^%ZOSV ;start rt clock
;
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"
;
I '$D(^IBE(350.9,1,0)) W !!,*7,"<<<WARNING: There appears to be a problem in the parameter file.>>>" G EDITQ
;
L +^IBE(350.9,1,0):0 I '$T W !,"Site Parameteres being edited by another user!" G EDITQ
;
S DA=1,DR="[IB EDIT SITE PARAM]",DIE="^IBE(350.9," D ^DIE
L -^IBE(350.9,1,0)
;
EDITQ K %H,DA,DR,DIE,DIC,X,Y
;***
;I $D(XRT0) S:'$D(XRTN) XRTN="EDIT^IBEFUTL" D T1^%ZOSV ;stop rt clock
Q
;
CLEAR ; - clear the start date and tasked flags from file 350.9
;***
;S XRTL=$ZU(0),XRTN="CLEAR^IBEFUTL-1" D T0^%ZOSV ;start rt clock
;
S DA=1,DIE="^IBE(350.9,",DR="[IB EDIT CLEAR]" D ^DIE K DA,DIE,DR,DIC
;***
;I $D(XRT0) S:'$D(XRTN) XRTN="CLEAR^IBEFUTL" D T1^%ZOSV ;stop rt clock
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBEFUTL 3362 printed Oct 16, 2024@18:22:41 Page 2
IBEFUTL ;ALB/AAS - INTEGRATED BILLING - FILER UTILITIES ; 26-FEB-91
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
START ; -turn IB filer on, task manually
+1 ;***
+2 ;S XRTL=$ZU(0),XRTN="START^IBEFUTL-1" D T0^%ZOSV ;start rt clock
+3 ;
+4 WRITE !!,"This option will start the IB Background Filer running. If one filer"
+5 WRITE !,"is currently running a second filer will be started. Manually starting"
+6 WRITE !,"the filer with this option is not ordinarily necessary, as it will start"
+7 WRITE !,"itself when needed. However, if the Filer job should be killed or"
+8 WRITE !,"your system goes down with the filer running, you may need to use this"
+9 WRITE !,"option."
+10 ;
+11 IF '$DATA(^IBE(350.9,1,0))
WRITE !!,"You must enter/edit site parameters first"
GOTO STARTQ
+12 IF $PIECE(^IBE(350.9,1,0),"^",4)]""
WRITE !!,*7,"<<<<WARNING!!! ","Filer appears to have been started on "
SET Y=$PIECE(^(0),"^",4)
DO DT^DIQ
WRITE ">>>>"
+13 ;
+14 WRITE !!
SET DIR("A")="Are you sure"
SET DIR("B")="NO"
SET DIR(0)="Y"
DO ^DIR
KILL DIR
IF 'Y
WRITE !!,"Nothing queued!"
GOTO STARTQ
+15 ;
S1 NEW Y
SET DIE="^IBE(350.9,"
SET DA=1
SET DR=".03////1;.04///@"
DO ^DIE
KILL DIE,DA,DR
+1 DO ZTSK^IBEF
STARTQ KILL %H,D,DIC,X,Y,ZTSK
+1 ;***
+2 ;I $D(XRT0) S:'$D(XRTN) XRTN="START^IBEFUTL" D T1^%ZOSV ;stop rt clock
+3 QUIT
+4 ;
STOP ; -stop IB filer
+1 ;***
+2 ;S XRTL=$ZU(0),XRTN="STOP^IBEFUTL-1" D T0^%ZOSV ;start rt clock
+3 ;
+4 WRITE !,"This option will edit the IB site parameter file and allow for the"
+5 WRITE !,"graceful shutdown of the IB Background filer. Use of this option"
+6 WRITE !,"will cause the IB Engine to file in the foreground until the site"
+7 WRITE !,"parameter FILE IN BACKGROUND is edited to yes."
+8 WRITE !!,"After using this option the filer may attempt to complete filing"
+9 WRITE !,"posted transactions prior to stopping. This option should be used"
+10 WRITE !,"prior to stopping taskmanager when doing an orderly system shutdown."
+11 WRITE !!,"REMEMBER: If you use this option, you must edit the site parameter"
+12 WRITE !,"FILE IN BACKGROUND to yes to allow the filer to restart, or use the"
+13 WRITE !,"Start IB filer option."
+14 ;
+15 WRITE !!
SET DIR("A")="Are you sure"
SET DIR(0)="Y"
SET DIR("B")="NO"
DO ^DIR
KILL DIR
IF 'Y
WRITE !!,"Nothing stopped!"
GOTO STOPQ
+16 SET DIE="^IBE(350.9,"
SET DA=1
SET DR=".03////0"
DO ^DIE
KILL DA,DIE,DR,DIC
+17 WRITE !,"IB Background Filing stopped"
+18 ;
STOPQ KILL %H,D,X
+1 ;***
+2 ;I $D(XRT0) S:'$D(XRTN) XRTN="STOP^IBEFUTL" D T1^%ZOSV ;stop rt clock
+3 QUIT
+4 ;
EDIT ; -edit IB site parameters
+1 ;***
+2 ;S XRTL=$ZU(0),XRTN="EDIT^IBEFUTL-1" D T0^%ZOSV ;start rt clock
+3 ;
+4 IF '$DATA(^IBE(350.9,1,0))
KILL DD,DO
SET DIC="^IBE(350.9,"
SET DIC(0)="L"
SET (X,DINUM)=1
DO FILE^DICN
KILL DIC,DD,DO
WRITE !!,*7,"Creating Site Parameter Entry! You may now Edit"
+5 ;
+6 IF '$DATA(^IBE(350.9,1,0))
WRITE !!,*7,"<<<WARNING: There appears to be a problem in the parameter file.>>>"
GOTO EDITQ
+7 ;
+8 LOCK +^IBE(350.9,1,0):0
IF '$TEST
WRITE !,"Site Parameteres being edited by another user!"
GOTO EDITQ
+9 ;
+10 SET DA=1
SET DR="[IB EDIT SITE PARAM]"
SET DIE="^IBE(350.9,"
DO ^DIE
+11 LOCK -^IBE(350.9,1,0)
+12 ;
EDITQ KILL %H,DA,DR,DIE,DIC,X,Y
+1 ;***
+2 ;I $D(XRT0) S:'$D(XRTN) XRTN="EDIT^IBEFUTL" D T1^%ZOSV ;stop rt clock
+3 QUIT
+4 ;
CLEAR ; - clear the start date and tasked flags from file 350.9
+1 ;***
+2 ;S XRTL=$ZU(0),XRTN="CLEAR^IBEFUTL-1" D T0^%ZOSV ;start rt clock
+3 ;
+4 SET DA=1
SET DIE="^IBE(350.9,"
SET DR="[IB EDIT CLEAR]"
DO ^DIE
KILL DA,DIE,DR,DIC
+5 ;***
+6 ;I $D(XRT0) S:'$D(XRTN) XRTN="CLEAR^IBEFUTL" D T1^%ZOSV ;stop rt clock
+7 QUIT
