source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEXTR.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 895 bytes
Line 
1IBCEXTR ;ALB/JEH - CLAIMS READY FOR EXTRACT MANAGEMENT SCREEN ;12/10/99
2 ;;2.0;INTEGRATED BILLING;**137**;21-MAR-1994
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN ; -- main entry point for Claims Ready for Extract Management
6 D EN^VALM("IBCE EXTR STATUS MANAGEMENT")
7 Q
8 ;
9HDR ; -- header code
10 S VALMHDR(1)="Claims in need of rescue process"
11 Q
12 ;
13INIT ; -- init variables and list array
14 N DIR,DIROUT,DTOUT,DUOUT,DIRUT
15 S IBPARAM=$P($G(^IBE(350.9,1,8)),U,10) ;Get EDI Site Param Setting
16 I IBPARAM>0 D
17 .W !!,"Your site parameters are set to allow EDI transmissions."
18 .W !,"This function is not necessary."
19 .S VALMQUIT=1 D PAUSE^VALM1
20 I $G(VALMQUIT) G INITQ
21 D BLD^IBCEXTR1
22INITQ Q
23 ;
24HELP ; -- help code
25 S X="?" D DISP^XQORM1 W !!
26 Q
27 ;
28EXIT ; -- exit code
29 K ^TMP("IBCERP6",$J),^TMP("IBCERP61",$J),IBPARAM
30 D CLEAN^VALM10
31 Q
32 ;
33EXPND ; -- expand code
34 Q
35 ;
Note: See TracBrowser for help on using the repository browser.