RMPRPIXJ ;HIN/RVD - INVENTORY UTILITY UPDATE BALANCE ;2/13/01
Source file <RMPRPIXJ.m>
Package | Total | Call Graph |
---|---|---|
Prosthetics | 1 | $$UPCR^RMPRPIXJ |
VA FileMan | 1 | (FILE,UPDATE)^DIE |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
SVAL(RX) | ;STARTING total Value.
|
|
CVAL(RX) | ;CURRENT total Value
|
|
SQTY(RX) | ;STARTING total Quantity.
|
|
CQTY(RX) | ;CURRENT total QTY
|
|
TVAQT | ;get total qty and cost from 661.7
|
|
UPCR(RX) | ;UPDATE or CREATE entry in 661.9
|
|
UPCRA | ||
UPCRN | ||
UPCRU | ||
UPCRX | ||
ALLREC(RMA) | ;reconcile all HCPCS in 661.9
|
|
NVAR | ;new all variables
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RMPR(661.11 - [#661.11] | ALLREC+7, ALLREC+8 |
^RMPR(661.7 - [#661.7] | TVAQT+3, TVAQT+4 |
^RMPR(661.9 - [#661.9] | SVAL+15, SVAL+17, SVAL+18, CVAL+16, CVAL+18, CVAL+19, CVAL+20, SQTY+15, SQTY+17, SQTY+18 , CQTY+15, CQTY+17, CQTY+18, CQTY+19, UPCR+20, UPCRA+3, UPCRA+6, UPCRN, UPCRU |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DT | ALLREC+6 |
R7CBAL | TVAQT+1~, TVAQT+6*, TVAQT+8 |
R7DAT | TVAQT+1~, TVAQT+4*, TVAQT+5, TVAQT+6 |
R7I | TVAQT+1~, TVAQT+3* |
R7J | TVAQT+1~, TVAQT+3*, TVAQT+4 |
R7QBAL | TVAQT+1~, TVAQT+5*, TVAQT+7 |
RC | SVAL+11~, CVAL+12~, SQTY+11~, CQTY+12~, UPCR+13~, UPCR+17*, NVAR+1~ |
RD | SVAL+11~, SVAL+13*, SVAL+14, SVAL+15, CVAL+12~, CVAL+14*, CVAL+15, CVAL+16, CVAL+18, SQTY+11~ , SQTY+13*, SQTY+14, SQTY+15, CQTY+12~, CQTY+13*, CQTY+14, CQTY+15, CQTY+17, UPCR+13~, UPCR+16* , UPCR+18, UPCRA+3, UPCRA+9, UPCRA+19, UPCRA+20, UPCRN*, UPCRN+1, NVAR+1~ |
RDATA | SVAL+11~, SVAL+18*, SVAL+19, CVAL+12~, CVAL+20*, CVAL+21, SQTY+11~, SQTY+18*, SQTY+19, CQTY+12~ , CQTY+19*, CQTY+20, UPCR+13~, UPCRA!, UPCRA+6*, NVAR+1~ |
RDATE | SVAL+11~, SVAL+15*, SVAL+16, SVAL+17, CVAL+12~, CVAL+18*, CVAL+19, SQTY+11~, SQTY+15*, SQTY+16 , SQTY+17, CQTY+12~, CQTY+17*, CQTY+18, UPCR+13~, NVAR+1~ |
REBAL | SVAL+11~, SVAL+12*, SVAL+14, SVAL+16, SVAL+19*, SVAL+20, CVAL+12~, CVAL+13*, CVAL+15, CVAL+17 , CVAL+21*, CVAL+22, SQTY+11~, SQTY+12*, SQTY+14, SQTY+16, SQTY+19*, SQTY+20, CQTY+12~, CQTY+14 , CQTY+16, CQTY+20*, CQTY+21, UPCR+13~, NVAR+1~ |
RH | SVAL+11~, SVAL+13*, SVAL+14, SVAL+15, SVAL+17, CVAL+12~, CVAL+14*, CVAL+15, CVAL+16, CVAL+18 , CVAL+19, SQTY+11~, SQTY+13*, SQTY+14, SQTY+15, SQTY+17, CQTY+12~, CQTY+13*, CQTY+14, CQTY+15 , CQTY+17, CQTY+18, TVAQT+3, UPCR+13~, UPCR+16*, UPCR+18, UPCR+20, UPCRA+3, UPCRA+10, UPCRA+21 , UPCRN, UPCRU, NVAR+1~ |
RI | SVAL+11~, SVAL+17*, SVAL+18, CVAL+12~, CVAL+16*, CVAL+17, CVAL+19*, CVAL+20, SQTY+11~, SQTY+17* , SQTY+18, CQTY+12~, CQTY+15*, CQTY+16, CQTY+18*, CQTY+19, UPCR+13~, UPCRA!, UPCRA+3*, UPCRA+5 , UPCRA+6, UPCRA+9, UPCRA+10, UPCRA+11, UPCRA+12, UPCRA+13, UPCRA+14, NVAR+1~ |
RM | SVAL+11~, SVAL+13*, SVAL+14, SVAL+15, SVAL+17, CVAL+12~, CVAL+14*, CVAL+15, CVAL+16, CVAL+18 , CVAL+19, SQTY+11~, SQTY+13*, SQTY+14, SQTY+15, SQTY+17, CQTY+12~, CQTY+13*, CQTY+14, CQTY+15 , CQTY+17, CQTY+18, TVAQT+3, UPCR+13~, UPCR+16*, UPCR+20, UPCRA+3, UPCRA+11, UPCRA+22, UPCRN , UPCRU, NVAR+1~ |
RM11 | ALLREC+2~, ALLREC+7*, ALLREC+8 |
RM11DAT | ALLREC+2~, ALLREC+8*, ALLREC+9, ALLREC+10, ALLREC+11 |
RMA | ALLREC~, ALLREC+1 |
RMDAT | SVAL+11~, CVAL+12~, SQTY+11~, CQTY+12~, UPCR+13~, UPCRA!, NVAR+1~ |
RMDAT( | UPCRA+9*, UPCRA+10*, UPCRA+11*, UPCRA+12*, UPCRA+13*, UPCRA+14*, UPCRA+20*, UPCRA+21*, UPCRA+22*, UPCRA+23* , UPCRA+24*, UPCRA+25* |
RMERR | SVAL+11~, CVAL+12~, SQTY+11~, CQTY+12~, UPCR+13~, UPCRA!, UPCRA+16, UPCRA+27, ALLREC+3*, ALLREC+13* , ALLREC+14, NVAR+1~ |
RMERROR | SVAL+11~, CVAL+12~, SQTY+11~, CQTY+12~, UPCR+13~, UPCR+15*, UPCR+18*, UPCRA+16*, UPCRA+27*, UPCRA+28 , UPCRX, NVAR+1~ |
RMPRCBAL | TVAQT+2*, TVAQT+8*, UPCR+14~, UPCR+19*, UPCRA+14, UPCRA+25, NVAR+2~ |
RMPRQBAL | TVAQT+2*, TVAQT+7*, UPCR+14~, UPCR+19*, UPCRA+13, UPCRA+24, NVAR+2~ |
RQ | SVAL+11~, CVAL+12~, SQTY+11~, CQTY+12~, UPCR+13~, UPCR+17*, NVAR+1~ |
RS | SVAL+11~, SVAL+13*, SVAL+14, SVAL+15, SVAL+17, CVAL+12~, CVAL+14*, CVAL+15, CVAL+16, CVAL+18 , CVAL+19, SQTY+11~, SQTY+13*, SQTY+14, SQTY+15, SQTY+17, CQTY+12~, CQTY+13*, CQTY+14, CQTY+15 , CQTY+17, CQTY+18, TVAQT+3, UPCR+13~, UPCR+16*, UPCR+18, UPCR+20, UPCRA+3, UPCRA+12, UPCRA+23 , UPCRN, UPCRU, NVAR+1~ |
RX | SVAL~, CVAL~, SQTY~, CQTY~, UPCR~, ALLREC+2~, ALLREC+13 |
RX("HCP" | SVAL+13, CVAL+14, SQTY+13, CQTY+13, UPCR+16, ALLREC+9*, ALLREC+12 |
RX("ITE" | SVAL+13, CVAL+14, SQTY+13, CQTY+13, UPCR+16, ALLREC+10*, ALLREC+12 |
RX("RDT" | SVAL+13, CVAL+14, SQTY+13, CQTY+13, UPCR+16, UPCRA+19*, ALLREC+6* |
RX("STA" | SVAL+13, CVAL+14, SQTY+13, CQTY+13, UPCR+16, ALLREC+11*, ALLREC+12 |
RX("TCST" | UPCR+17, ALLREC+5* |
RX("TQTY" | UPCR+17, ALLREC+4* |
U | SVAL+19, CVAL+21, SQTY+19, CQTY+20, TVAQT+5, TVAQT+6, ALLREC+3*, ALLREC+9, ALLREC+10, ALLREC+11 |
X | SVAL+11~, CVAL+12~, SQTY+11~, CQTY+12~, UPCR+13~, NVAR+1~ |
Y | SVAL+11~, CVAL+12~, SQTY+11~, CQTY+12~, UPCR+13~, NVAR+1~ |