IBCEXTR ;ALB/JEH - CLAIMS READY FOR EXTRACT MANAGEMENT SCREEN ;12/10/99
;;2.0;INTEGRATED BILLING;**137**;21-MAR-1994
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
EN ; -- main entry point for Claims Ready for Extract Management
D EN^VALM("IBCE EXTR STATUS MANAGEMENT")
Q
;
HDR ; -- header code
S VALMHDR(1)="Claims in need of rescue process"
Q
;
INIT ; -- init variables and list array
N DIR,DIROUT,DTOUT,DUOUT,DIRUT
S IBPARAM=$P($G(^IBE(350.9,1,8)),U,10) ;Get EDI Site Param Setting
I IBPARAM>0 D
.W !!,"Your site parameters are set to allow EDI transmissions."
.W !,"This function is not necessary."
.S VALMQUIT=1 D PAUSE^VALM1
I $G(VALMQUIT) G INITQ
D BLD^IBCEXTR1
INITQ Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K ^TMP("IBCERP6",$J),^TMP("IBCERP61",$J),IBPARAM
D CLEAN^VALM10
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCEXTR 930 printed Dec 13, 2024@02:12:39 Page 2
IBCEXTR ;ALB/JEH - CLAIMS READY FOR EXTRACT MANAGEMENT SCREEN ;12/10/99
+1 ;;2.0;INTEGRATED BILLING;**137**;21-MAR-1994
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
EN ; -- main entry point for Claims Ready for Extract Management
+1 DO EN^VALM("IBCE EXTR STATUS MANAGEMENT")
+2 QUIT
+3 ;
HDR ; -- header code
+1 SET VALMHDR(1)="Claims in need of rescue process"
+2 QUIT
+3 ;
INIT ; -- init variables and list array
+1 NEW DIR,DIROUT,DTOUT,DUOUT,DIRUT
+2 ;Get EDI Site Param Setting
SET IBPARAM=$PIECE($GET(^IBE(350.9,1,8)),U,10)
+3 IF IBPARAM>0
Begin DoDot:1
+4 WRITE !!,"Your site parameters are set to allow EDI transmissions."
+5 WRITE !,"This function is not necessary."
+6 SET VALMQUIT=1
DO PAUSE^VALM1
End DoDot:1
+7 IF $GET(VALMQUIT)
GOTO INITQ
+8 DO BLD^IBCEXTR1
INITQ QUIT
+1 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("IBCERP6",$JOB),^TMP("IBCERP61",$JOB),IBPARAM
+2 DO CLEAN^VALM10
+3 QUIT
+4 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
