source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSRSRLC.m@ 724

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

initial load of WorldVistAEHR

File size: 840 bytes
Line 
1BPSRSRLC ;BHAM ISC/SS - ECME RESEARCH SCREEN RELEASE COPAY ;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 ;
6RH ;
7 N BPRET,BPSEL,DFN,BPRXRF
8 I '$D(@(VALMAR)) Q
9 D FULL^VALM1
10 W !,"Please select a SINGLE Patient Line item or a SINGLE Rx Line item when accessing Release Copay from Hold."
11 S BPSEL=$$ASKLINE^BPSSCRU4("Select item","PC","Please select a SINGLE Patient Line item or a SINGLE Rx Line item")
12 I BPSEL<1 S VALMBCK="R" Q
13 S DFN=+$P(BPSEL,U,2)
14 I DFN=0 S VALMBCK="R" Q
15 I +$P(BPSEL,U,7)>0 D
16 . ;RX was selected
17 . S BPRXRF=$$RXREF^BPSSCRU2(+$P(BPSEL,U,4))
18 . I BPRXRF'>0 Q
19 . D RELH^IBNCPDPR(DFN,+$P(BPRXRF,U),+$P(BPRXRF,U,2),"C")
20 I +$P(BPSEL,U,7)=0 D
21 . ;patient was selected
22 . D RELH^IBNCPDPR(DFN,0,0,"P")
23 D QUIT
24 Q
25 ;
26QUIT ;
27 S VALMBCK="R"
28 Q
29 ;
Note: See TracBrowser for help on using the repository browser.