source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSRSTPJ.m@ 619

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

initial load of WorldVistAEHR

File size: 519 bytes
Line 
1BPSRSTPJ ;BHAM ISC/SS - ECME RESEARCH SCREEN TPJI ;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 ;DBIA2328
6TPJI ;
7 N BPRET,BPSEL
8 I '$D(@(VALMAR)) Q
9 D FULL^VALM1
10 W !,"Please select a SINGLE Patient Line item when accessing TPJI"
11 S BPSEL=$$ASKLINE^BPSSCRU4("Select item","P","Please select SINGLE patient summary line.")
12 I BPSEL<1 S VALMBCK="R" Q
13 N BPDFN
14 S BPDFN=+$P(BPSEL,U,2)
15 I BPDFN>0 D TPJI^IBNCPDPI(BPDFN)
16 S VALMBCK="R"
17 Q
18 ;
Note: See TracBrowser for help on using the repository browser.