PSORPC01 ;INN/AA - PAPI INTERFACE ROUTINES ;Dec 06, 2021@15:55:23
Source file <PSORPC01.m>
| 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 |
|---|---|---|
| RPC(RESULTS,OPTION,P1,P2,P3,P4,P5,P6) | ; [Procedure] Main RPC call
; based on MD* routines |
|
| ECHO | ;
|
|
| GETPARK(PSOPRK) | ; Check if parking is available for the site
|
|
| SETPARK | ;TURN PARK A PRESCRIPTION ON OR OFF
|
|
| PARK | ;
|
|
| UNPARK | ;
|
|
| PARKDRG | ; Check if drug is marked as not parkable (new CPRS order)
|
|
| PARKORD | ; Check if drug belonging to order# is marked as not parkable (CPRS renewal)
|
| RPC Name | Call Tags |
|---|---|
| PSORPC | RPC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSDRUG - [#50] | PARKDRG+3, PARKORD+6 |
| ^PSRX - [#52] | PARKORD+5 |
| ^PSRX("APL" | PARK+2, UNPARK+2, PARKORD+4 |
| ^TMP("PSORPC01" | RPC+3 |
| Name | Line Occurrences |
|---|---|
| @( | RPC+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DRUG | PARKORD+3~, PARKORD+5*, PARKORD+6 |
| ERR | RPC+2~ |
| ERRMSG | UNPARK+3, UNPARK+5! |
| ERRMSG(1 | UNPARK+4 |
| OPTION | RPC~, RPC+4, RPC+5, ECHO+2 |
| P1 | RPC~, ECHO+3, PARK+2, UNPARK+2, PARKDRG+2, PARKDRG+3, PARKORD+2, PARKORD+4 |
| P2 | RPC~, ECHO+4 |
| P3 | RPC~, ECHO+5, UNPARK+3 |
| P4 | RPC~, ECHO+6 |
| P5 | RPC~, ECHO+7 |
| P6 | RPC~, ECHO+8 |
| PSODA | PARK+2*, PARK+3, PARK+4!, UNPARK+2*, UNPARK+3, UNPARK+5!, PARKORD+4*, PARKORD+5 |
| PSOPARST | GETPARK+1~*, GETPARK+2*, GETPARK+3*, GETPARK+4 |
| >> PSOPINST | GETPARK+2 |
| PSOPRK | GETPARK~ |
| RESULTS | RPC~, RPC+3*, RPC+4, ECHO+2, ECHO+3, ECHO+4, ECHO+5, ECHO+6, ECHO+7, ECHO+8 , GETPARK+4, UNPARK+4, PARKDRG+1, PARKDRG+3, PARKORD+1, PARKORD+6 |
| Name | Field # of Occurrence |
|---|---|
| $T( | RPC+4 |
| $T(@OPTION | RPC+4 |