RMPRPIYE ;PHX/RFM,RVD-EDIT ISSUE FROM STOCK ;3/8/05 08:04
Source file <RMPRPIYE.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;EDIT STOCK ISSUES
|
|
INVSE | ||
CO | ;DISPLAYS STOCK ISSUE
|
|
EDX | ;POST
|
|
DEL | ;
|
|
EDT | ;edit patient 2319
|
|
EDU | ||
2 | ;S DIC(0)="AEQM",DIC=661 S:$P(R1(0),U,6) DIC("B")=$P(^RMPR(661,$P(R1(0),U,6),0),U) S DIC("A")="ITEM: "
|
|
HCPCS | ;scanning an item is mandatory.
|
|
CPT | ;ask for CPT Modifier
|
|
VEN0 | ;process vendor
|
|
SOURCE | ;
|
|
QTY | ||
CP | ||
SET | ;set the original variables.
|
|
SET60 | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PRC(440 - [#440] | Classic Fileman Calls |
^RMPR(660 - [#660] | Classic Fileman Calls |