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* |