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