PSORREF1 ;AITC/BWF - Remote RX refill API ;12/3/2013 2:51pm
Source file <PSORREF1.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 |
|---|---|---|
| START(FDATE) | ;
|
|
| 1 | ||
| END | ;
|
|
| JUMP | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | START+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSDRUG - [#50] | START+6 |
| ^PSRX - [#52] | START+3, START+6, 1 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | 1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | START+2* |
| >> DEA | START+7* |
| DT | START+4 |
| FDATE | START~, 1+1 |
| >> PSOBBC1("FROM" | START+4 |
| >> PSODIR("FILL | DATE" , 1+1* |
| >> PSODRUG("DEA" | START+6*, START+7 |
| >> PSOID | START+3* |
| >> PSONEW("# OF | REFILLS" , 1* |
| >> PSONEW("DAYS | SUPPLY" , 1* |
| >> PSOREF("CS" | START+6*, START+7* |
| >> PSOREF("DFLG" | START+1* |
| >> PSOREF("FIELD" | START+1*, JUMP+1*, JUMP+2* |
| >> PSOREF("FLD" | JUMP+1, JUMP+2 |
| >> PSOREF("IRXN" | START+3, START+6, 1 |
| >> PSOREF("ISSUE | DATE" , START+3*, START+4* |
| PSOREF1 | START+1*, END+1! |
| >> PSORX("BAR CO | DE" , START+4 |
| X | START+2*, START+5! |
| X1 | START+5! |
| X2 | START+5! |
| >> Y | START+3, JUMP+1 |
