RMPRPCE1 ;HCIOFO/RVD - Prosthetics/PCE UPDATE UTILITY ;5/7/03 09:12
Source file <RMPRPCE1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| UP60(RMIE60,RMIE68,RMSUSTAT) | ; update file #660.
|
|
| UP60X | ; exit point
|
|
| UP68(RMIE60,RMIE68,RMAMIS) | ; update file #668.
|
|
| UNL68 | ;L -^RMPR(668,RMIE68)
|
|
| UP68X | ; exit point
|
|
| ERR0 | ;error updating file #660
|
|
| ERR8 | ;error updating file #668
|
|
| LINK | ;link 2319 to suspense
|
|
| EXIT | ;quit
|
|
| SCRS | ;set consult request service.
|
|
| NEWVAR |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GETS^DIQ |
| ^RMPR(660 - [#660] | Classic Fileman Calls |