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

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

initial load of WorldVistAEHR

File size: 780 bytes
RevLine 
[613]1IBNCPDPL ;DALOI/SS - for ECME RESEARCH SCREEN ELIGIBILITY VIEW ;05-APR-05
2 ;;2.0;INTEGRATED BILLING;**276**;21-MAR-94
3 ;; Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN ;
6 Q
7 ;
8 ; -- main entry point for IBNCPDP LSTMN ELIGIBILITY
9 ;entry point for ECME "VE View Eligibility" menu option
10 ;of the main ECME User Screen
11EN1(DFN) ;
12 Q:$$PFSSON^IBNCPDPI() ;quit if PFSS is ON
13 I $G(DFN)>0 D EN^VALM("IBNCPDP LSTMN ELIGIBILITY")
14 Q
15 ;
16HDR ; -- header code
17 D HDR^IBJTEA
18 Q
19 ;
20INIT ; -- init variables and list array
21 ;D INIT^IBJTEA
22 ;borrowed from INIT^IBJTEA with some changes
23 K ^TMP("IBJTEA",$J)
24 I '$G(DFN) S VALMQUIT="" Q
25 D BLD^IBJTEA
26 Q
27 ;
28HELP ; -- help code
29 D HELP^IBJTEA
30 Q
31 ;
32EXIT ; -- exit code
33 D EXIT^IBJTEA
34 Q
35 ;
36EXPND ; -- expand code
37 Q
38 ;
Note: See TracBrowser for help on using the repository browser.