©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSORENW2 ;IHS/DSD/JCM - displays renew rx information for edit ;05-Apr-2004 19:33;PLS
Source file <PSORENW2.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 4 | SIGONE^PSOHELP EN^PSOORNE4 STOP^PSORENW1 INIT^PSORENW3 |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ||
| END | ||
| EDIT | ;
|
|
| EOJ | ;
|
|
| ASKX | ||
| START | ;
|
|
| ASK | ;
|
|
| DISPLAY | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | ASK+6, ASK+7, ASK+9, ASK+10 |
| Name | Line Occurrences |
|---|---|
| ASK | START+3 |
| ASKX | ASK+3, ASK+4 |
| DISPLAY | START+2 |
| EDIT | EN |
| END | START+3 |
| EOJ | END |
| START | EN+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | ASK+1!, ASK+2! |
| DIR("A" | ASK+2* |
| DIR("B" | ASK+2* |
| DIR(0 | ASK+2* |
| DIRUT | ASK+3, ASKX! |
| DTOUT | ASKX! |
| DUOUT | ASKX! |
| >> INS1 | DISPLAY+8 |
| >> POERR | ASK+5 |
| >> PSEXDT | ASK+2, ASK+4, ASK+7, ASK+10 |
| >> PSODRUG("NAME" | DISPLAY+8 |
| >> PSODRUG("TRAD | E NAME" , DISPLAY+8 |
| PSOELSE | ASK+4!, ASK+5!*, ASK+8 |
| PSOQUIT | EOJ+1! |
| >> PSORENW | EDIT+2 |
| >> PSORENW("# OF | REFILLS" , DISPLAY+10 |
| >> PSORENW("AWP" | DISPLAY+6 |
| >> PSORENW("COST" | DISPLAY+7 |
| >> PSORENW("DFLG" | START+1*, START+3, ASK+3*, EDIT+4* |
| >> PSORENW("EDIT" | EOJ+1! |
| >> PSORENW("FILL | DATE" , DISPLAY+2, ASK+6, ASK+9 |
| >> PSORENW("NDC" | DISPLAY+5 |
| >> PSORENW("NRX | #" , DISPLAY+1 |
| >> PSORENW("PROV | IDER NAME" , DISPLAY+9 |
| >> PSORENW("QTY" | DISPLAY+3 |
| >> PSORENW("SIG" | DISPLAY+8 |
| PSORENW2 | EOJ+1! |
| PSORENW2("QFLG" | START+1*, START+3, ASK+11* |
| >> PSORX("CLERK | CODE" , DISPLAY+9 |
| >> PSORX("EDIT" | EDIT+1*, EOJ+1! |
| >> PSORX("FN" | EN+1 |
| >> PSORX("NAME" | DISPLAY+3 |
| SIG | ASKX! |
| >> VALMSG | ASK+6*, ASK+7* |
| X | DISPLAY+8*, ASK+1!, ASKX! |
| Y | ASK+1!, ASK+4, ASK+6*, ASK+7*, ASK+9*, ASK+10*, ASK+11, ASKX! |