source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSRSELG.m@ 1464

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

initial load of WorldVistAEHR

File size: 642 bytes
Line 
1BPSRSELG ;BHAM ISC/SS - ECME RESEARCH SCREEN ELIGIBILITY VIEW ;05-APR-05
2 ;;1.0;E CLAIMS MGMT ENGINE;**1**;JUN 2004
3 ;; Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5 ;
6VE ;
7 ; -- main entry point for BPS LSTMN RSCH ELIGIBILITY
8 ;entry point for VE View Eligibility menu option of the main User Screen
9 N BPRET,BPSEL,BPDFN
10 I '$D(@(VALMAR)) Q
11 D FULL^VALM1
12 W !,"Please select a SINGLE Patient Line item for viewing Eligibility"
13 S BPSEL=$$ASKLINE^BPSSCRU4("Select item","P","Please select SINGLE patient summary line.")
14 I BPSEL<1 S VALMBCK="R" Q
15 S BPDFN=+$P(BPSEL,U,2)
16 D EN1^IBNCPDPL(BPDFN)
17 S VALMBCK="R"
18 Q
19 ;
20 ;
Note: See TracBrowser for help on using the repository browser.