Last change
on this file since 1578 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
689 bytes
|
Rev | Line | |
---|
[613] | 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.