source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSSCRDV.m@ 1006

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

initial load of WorldVistAEHR

File size: 521 bytes
Line 
1BPSSCRDV ;BHAM ISC/SS - ECME SCREEN DEVELOPER 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 ;
6DV ;entry point for LOG menu option of the main User Screen
7 N BPRET,BPSEL
8 I '$D(@(VALMAR)) Q
9 D FULL^VALM1
10 W !,"Enter the line number for which you wish to print claim logs."
11 S BPSEL=$$ASKLINE^BPSSCRU4("Select item","C","Please select SINGLE Rx Line.")
12 I BPSEL<1 S VALMBCK="R" Q
13 D CLAIMLOG^BPSOS6M(+$P(BPSEL,U,4))
14 S VALMBCK="R"
15 Q
16 ;
Note: See TracBrowser for help on using the repository browser.