Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
791 bytes
|
Line | |
---|
1 | RMPRPIXI ;HINCIO/ODJ - FILE 661.7 APIs ;3/8/01
|
---|
2 | ;;3.0;PROSTHETICS;**61**;Feb 09, 1996
|
---|
3 | Q
|
---|
4 | ;
|
---|
5 | ; Get Total Quantity On Hand at the HCPC level
|
---|
6 | QOHH(RMPRHCPC,RMPRSTN,RMPRQOH) ;
|
---|
7 | N RMPRERR,RMPR,RMPROLD,RMPREOF,RMPRIN
|
---|
8 | S RMPRERR=0
|
---|
9 | S RMPRQOH("QUANTITY")=""
|
---|
10 | S RMPRQOH("VALUE")=""
|
---|
11 | ;I RMPRSTN="*" G QOHHS ; for all stations
|
---|
12 | ;
|
---|
13 | ; Sum over all HCPCS items for single station
|
---|
14 | S RMPR("STATION")=RMPRSTN
|
---|
15 | S RMPR("HCPCS")=RMPRHCPC
|
---|
16 | QOHH1 S RMPRERR=$$NEXT^RMPRPIXE(.RMPR,"XSHIDS","",1,.RMPROLD,.RMPREOF)
|
---|
17 | I RMPRERR G QOHHX
|
---|
18 | I RMPREOF G QOHHX
|
---|
19 | I RMPROLD("HCPCS")'=RMPR("HCPCS") G QOHHX
|
---|
20 | K RMPRIN M RMPRIN=RMPR
|
---|
21 | S RMPRERR=$$GET^RMPRPIX7(.RMPRIN)
|
---|
22 | I RMPRERR G QOHHX
|
---|
23 | S RMPRQOH("QUANTITY")=RMPRIN("QUANTITY")+RMPRQOH("QUANTITY")
|
---|
24 | S RMPRQOH("VALUE")=RMPRIN("VALUE")+RMPRQOH("VALUE")
|
---|
25 | G QOHH1
|
---|
26 | QOHHX Q RMPRERR
|
---|
Note:
See
TracBrowser
for help on using the repository browser.