RMPVS633 ; OIT/JDA - SCAMP runtime support; Nov 17, 2024@23:35:37
Source file <RMPVS633.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TEST | ;test tag
|
|
| TEST2 | ;test tag
|
|
| TEST3 | ;test tag
|
|
| TEST4 | ; test tag for multiples
|
|
| RUN(REQUEST,RESPONSE) | ; set up input/output vars and run
|
|
| ETRAP | ;error trap tag
|
|
| ERROR(MSG) | ; Set error return
|
|
| ISERROR() | ; If error, simulate up-arrow and return 1
|
|
| LOADVARS(REQUEST) | ; Load input variables into globals
|
|
| SETDFLT(PROP,DFLT) | ; Set defaults
|
|
| FINDSUSP(DFN,CONSULT) | ; Find suspense record
|
|
| INIT | ; initialization
|
|
| SCREEN | ; Select a screen "ASK1+12^RMPRPAT"
|
|
| GETPAT | ; Select patient "GETPAT+2^RMPRUTIL"
|
|
| PDCA | ; Add prosthetic disability code "AMP^RMPRDIS"
; Called more than once. Only create an entry on the first call. |
|
| PDCE | ; Edit prosthetic disability code "EDIT+1^RMPRDIS"
|
|
| PDCS | ; Select prosthetic disability code "SEL+2^RMPRDIS"
|
|
| TRAN | ; Transaction type "TRAN+7^RMPRPIYI"
|
|
| PCAT | ; Patient category "PCAT+2^RMPRIYI"
|
|
| SPE | ; Special category "SPE^RMPRPIYI"
|
|
| BARC1 | ; Barcode "BARC1^RMPRPIYS"
|
|
| QTY | ; Quantity "QTY+1^RMPRPIYJ"
|
|
| DATESERV | ; Date of service "SERV+3^RMPRPIYJ"
|
|
| SER | ; Serial number "LI+1^RMPRPIYJ"
|
|
| LOT | ; Lot number "LOT+3^RMPRPIYJ"
|
|
| REMA | ; Remarks "REMA+3^RMPRPIYJ"
|
|
| PED | ; POST/EDIT/DELETE stock issue "LIST+9^RMPRPIYJ"
|
|
| XSITE | ; Site selection (669.9) "DIV+4^RMPRSIT"
|
|
| SITE | ; Site selection (669.9) "DIV+4^RMPRSIT"
|
|
| DECEASED | ; Patient deceased "GETPAT+12^RMPRUTIL"
|
|
| NOOP | ; Never called in Legacy "EN+3^RMPRDIS"
|
|
| DISCHK(REQ) | ;disability code checker
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | FIND1^DIC |
| ^RMPR(665 - [#665] | GETS^DIQ |
