source: FOIAVistA/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSCT.m@ 1470

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

initial load of FOIAVistA 6/30/08 version

File size: 670 bytes
Line 
1BPSCT ;BHAM ISC/SS - ECME CT EDIT SCREEN ;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 ;USER SCREEN
5 Q
6CT ;to run from research menu
7 N BPRET,BPSEL,BP59,BPREFIL
8 I '$D(@(VALMAR)) Q
9 D FULL^VALM1
10 W !,"Please select a SINGLE Rx Line item when accessing Claims Tracking."
11 S BPSEL=$$ASKLINE^BPSSCRU4("Select item","C","Please select SINGLE RX line.")
12 I BPSEL<1 S VALMBCK="R" Q
13 N DFN,BPECMEN,IEN356
14 S DFN=+$P(BPSEL,U,2)
15 S BP59=+$P(BPSEL,U,4)
16 S BPREFIL=$P($$RXREF^BPSSCRU2(BP59),U,2)
17 S BPECMEN=$$ECMENUM^BPSSCRU2(BP59) ;ECME number
18 D CT^IBNCPDPC(DFN,BPECMEN,BPREFIL)
19 S VALMBCK="R"
20 Q
21 ;
Note: See TracBrowser for help on using the repository browser.