Last change
on this file since 1569 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
689 bytes
|
Line | |
---|
1 | BPSOSR2 ;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
|
---|
7 | SHOWQ ;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.