- 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 Feb 18, 2025@23:48:26 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