source: FOIAVistA/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPIXI.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 791 bytes
Line 
1RMPRPIXI ;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
6QOHH(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
16QOHH1 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
26QOHHX Q RMPRERR
Note: See TracBrowser for help on using the repository browser.