|
Last change
on this file since 1572 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
895 bytes
|
| Line | |
|---|
| 1 | IBCEXTR ;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 | ;
|
|---|
| 5 | EN ; -- main entry point for Claims Ready for Extract Management
|
|---|
| 6 | D EN^VALM("IBCE EXTR STATUS MANAGEMENT")
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | HDR ; -- header code
|
|---|
| 10 | S VALMHDR(1)="Claims in need of rescue process"
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | INIT ; -- 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
|
|---|
| 22 | INITQ Q
|
|---|
| 23 | ;
|
|---|
| 24 | HELP ; -- help code
|
|---|
| 25 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | EXIT ; -- exit code
|
|---|
| 29 | K ^TMP("IBCERP6",$J),^TMP("IBCERP61",$J),IBPARAM
|
|---|
| 30 | D CLEAN^VALM10
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | EXPND ; -- expand code
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
