source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSOSR2.m@ 1732

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

initial load of WorldVistAEHR

File size: 689 bytes
RevLine 
[613]1BPSOSR2 ;BHAM ISC/FCS/DRS/FLS - Show submit queue ;06/01/2004
2 ;;1.0;E CLAIMS MGMT ENGINE;**1,5**;JUN 2004;Build 45
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ;
5 Q
6 ; SHOWQ subroutine - continuation of BPSOSRX
7SHOWQ ;EP - BPSOSRX
8 N ROOT S ROOT="^XTMP(""BPS-PROC"")"
9 N COUNT S COUNT=0
10 N TYPE,RXI,RXR
11 F TYPE="CLAIM","UNCLAIM" D
12 . W TYPE
13 . I '$D(@ROOT@(TYPE)) W " - none",! Q
14 . W ":",!
15 . S RXI="" F S RXI=$O(@ROOT@(TYPE,RXI)) Q:RXI="" D
16 . . S RXR="" F S RXR=$O(@ROOT@(TYPE,RXI,RXR)) Q:RXR="" D
17 . . . W RXI,",",RXR
18 . . . ; details like patient, drug could go here
19 . . . W !
20 . . . S COUNT=COUNT+1
21 . W "Total ",COUNT," ",TYPE W:COUNT'=1 "s"
22 . W !
23 Q
Note: See TracBrowser for help on using the repository browser.