IBCEXTR.m

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 ---IBCEXTR   930     printed  Apr 09, 2024@21:31:11                                                                                                                                                                                                      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       ;