RMPV0RMPRPIYE ; OIT/JDA - Adapted from RMPRPIYE; Dec 01, 2024@21:29:56
Source file <RMPV0RMPRPIYE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RMPRPIYE | ;PHX/RFM,RVD-EDIT ISSUE FROM STOCK ;3/8/05 08:04
|
|
| 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 | ;
|
| FileNo | Call Tags |
|---|---|
| ^PRC(440 - [#440] | Classic Fileman Calls |
| ^RMPR(660 - [#660] | Classic Fileman Calls |
