BPCRXNXT ; IHS/OIT/MJL - FINDS NEXT PERSCRIPTION NUMBER FOR BPC GUI ;
Source file <BPCRXNXT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;S DEAVALUE=0
|
|
GETDEA(BGUARRAY,DEAVALUE) | ;EP CALL FROM REMOTE PROC: BPC GET RX NEXT NUMBER
|
Name | Field # of Occurrence |
---|---|
AUTO^PSONRXN | EN+7 |
RPC Name | Call Tags |
---|---|
BPC GET RX NEXT NUMBER | GETDEA |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(59 - [#59] | EN+4, EN+5 |
^TMP($J | EN+1!, EN+3*, EN+4*, EN+8*, EN+9* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BGUARRAY | GETDEA~, EN+2* |
>> BPCVAL | EN+4* |
DEAVALUE | GETDEA~, EN+6, EN+10! |
DUZ(2 | EN+3, EN+4 |
PSODRUG | EN+10! |
PSODRUG("DEA" | EN+6* |
>> PSONEW("RX #" | , EN+8, EN+9 |
PSOSITE | EN+5*, EN+10! |
>> X | EN+1* |
>> XWBWRAP | EN+2* |