source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSRSPRS.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: 659 bytes
Line 
1BPSRSPRS ;BHAM ISC/SS - ECME RESEARCH SCREEN PRESCRIPTION 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 ;
6VP ;
7 ;entry point for VP View Prescription menu option of the main User Screen
8 N BPRET,BPSEL,BPRXIEN,DA,PSOVDA,PS
9 I '$D(@(VALMAR)) Q
10 D FULL^VALM1
11 W !,"Please select a SINGLE Rx Line item for viewing a Prescription"
12 S BPSEL=$$ASKLINE^BPSSCRU4("Select item","C","Please select SINGLE RX line.")
13 I BPSEL<1 S VALMBCK="R" Q
14 S BPRXIEN=+$$RXREF^BPSSCRU2(+$P(BPSEL,U,4))
15 I BPRXIEN=0 S VALMBCK="R" Q
16 S PS=""
17 S (DA,PSOVDA)=BPRXIEN D DP^PSORXVW
18 S VALMBCK="R"
19 Q
20 ;
Note: See TracBrowser for help on using the repository browser.