|
Last change
on this file since 770 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.
