source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSRSEV.m@ 711

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

initial load of WorldVistAEHR

File size: 971 bytes
Line 
1BPSRSEV ;BHAM ISC/SS - ECME RESEARCH SCREEN EVENT LOG ;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 ;
6EVNT ;
7 ;entry point for VE View Eligibility menu option of the main User Screen
8 N BPRET,BPSEL,BPMODE,BPRXIEN,BPPAT
9 I '$D(@(VALMAR)) Q
10 D FULL^VALM1
11 ;
12 W !,"Please select a SINGLE Patient Line item or a SINGLE Rx Line item when accessing the IB Events Report"
13 S BPSEL=$$ASKLINE^BPSSCRU4("Select item","PC","Please select SINGLE patient summary or SINGLE RX line.")
14 I BPSEL<1 S VALMBCK="R" Q
15 S BPPAT=+$P(BPSEL,U,2)
16 I BPPAT=0 W !,"Invalid Patient Internal Number." D QUIT Q
17 ;
18 S BPMODE=$S($P(BPSEL,U,7)>0:"R",1:"P")
19 ;
20 I BPMODE="P" D D QUIT Q
21 . D USRSCREN^IBNCPDPE("P",BPPAT)
22 ;
23 S BPRXIEN=+$$RXREF^BPSSCRU2(+$P(BPSEL,U,4))
24 I BPRXIEN=0 S VALMBCK="R" Q
25 ;
26 I BPMODE="R" D D QUIT Q
27 . D USRSCREN^IBNCPDPE("R",BPRXIEN)
28 ;
29 D QUIT
30 Q
31 ;
32QUIT ;
33 D PAUSE^VALM1
34 S VALMBCK="R"
35 Q
36 ;
Note: See TracBrowser for help on using the repository browser.