©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
PSODIR3 ;ISC-BIRM/SAB - rx order entry contd ;29-May-2012 14:44;PLS
Source file <PSODIR3.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 3 | JUMP^PSONEW1 JUMP^PSONEW3 JUMP^PSORENW3 |
| VA Fileman | 2 | ^DIC ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| JUMPX | ||
| MW1 | ||
| EXPX | ||
| REFOR | ;
|
|
| DIRX | ||
| MWX | ||
| CLERK(PSODIR) | ;
|
|
| EXP(PSODIR) | ;
|
|
| JUMP | ;
|
|
| CLERKX | ||
| DIR | ;
|
|
| MW(PSODIR) | ;
|
|
| FILLDT(PSODIR) | ;
|
|
| FILLDTX |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | EXP+2, FILLDT+11 |
| ^VA(200 - [#200] | CLERK+1, CLERK+3 |
| Name | Line Occurrences |
|---|---|
| CLERKX | CLERK+1, CLERK+4 |
| DIR | MW+4, MW1+3, FILLDT+9, CLERK+4, REFOR+22 |
| DIRX | DIR+2, DIR+4 |
| EXPX | EXP+5 |
| FILLDTX | FILLDT+9 |
| JUMP | DIR+5 |
| JUMPX | JUMP+3, JUMP+4, JUMP+5, JUMP+6 |
| MW1 | MW1+4 |
| MWX | MW+4, MW+5, MW1, MW1+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CLOZPAT | REFOR+3, REFOR+8, REFOR+12, REFOR+16, REFOR+17 |
| DA | DIR+3! |
| >> DEA | REFOR+1* |
| DIC | EXP+1!, MW+1!, FILLDT+1!, CLERK+2!, DIR+3!, JUMP+2*! |
| DIC(0 | JUMP+2* |
| DIE | DIR+3! |
| DIR | EXP+1!, MW+1!, FILLDT+1!, CLERK+2!, DIR+3! |
| DIR("?" | EXP+4*, FILLDT+6*, FILLDT+7*, FILLDT+8*, REFOR+21* |
| DIR("A" | EXP+3*, FILLDT+2*, CLERK+3*, REFOR+19* |
| DIR("B" | EXP+3*, MW+3*, MW1+2*, FILLDT+2*, CLERK+3*, REFOR+20* |
| DIR(0 | EXP+4*, MW+2*, MW1+1*, FILLDT+5*, CLERK+3*, DIR+2, REFOR+19* |
| DIROUT | DIR+4, DIRX! |
| DIRUT | DIRX! |
| DT | FILLDT+5 |
| DTOUT | DIR+4, DIRX! |
| DUOUT | DIR+4, DIRX! |
| DUZ | CLERK+1, CLERK+3 |
| DUZ("AG" | FILLDT+5, CLERK+1 |
| >> OR0 | JUMP+1 |
| >> POERR | REFOR+20 |
| >> PSDY | REFOR+4*, REFOR+11* |
| >> PSDY1 | REFOR+4*, REFOR+11* |
| >> PSOCS | REFOR+1*, REFOR+2 |
| PSODIR | EXP~, MW~, FILLDT~, CLERK~ |
| PSODIR("# OF | REFILLS" , REFOR+15*, REFOR+18*, REFOR+20, REFOR+23* |
| PSODIR("CLERK | CODE" , CLERK+1*, CLERK+5* |
| PSODIR("DAYS | SUPPLY" , REFOR+3, REFOR+4, REFOR+8, REFOR+11, REFOR+17 |
| PSODIR("DFLG" | EXP+5, MW+4, MW+5*, MW1+3, FILLDT+9, CLERK+4, DIR+4*, JUMP+1*, REFOR+22 |
| PSODIR("EXPIR | ATION DATE" , EXP+6* |
| PSODIR("FIELD" | EXP+5, MW+4, FILLDT+9, CLERK+4, DIR+1*, JUMP+3*, REFOR+15*, REFOR+22 |
| PSODIR("FILL | DATE" , FILLDT+10* |
| PSODIR("FLD" | JUMP+3 |
| PSODIR("ISSUE | DATE" , FILLDT+5 |
| PSODIR("MAIL/WINDOW" | MW+6*, MW+7, MW1 |
| PSODIR("METHO | D OF PICK-UP" , MW+7!, MW1+5* |
| PSODIR("N# RE | F" , REFOR+18*, REFOR+20, REFOR+23* |
| >> PSODRUG("DEA" | REFOR+1, REFOR+12, REFOR+13 |
| >> PSODRUG("EXPI | RATION DATE" , EXP+2 |
| >> PSOEDIT | JUMP+1 |
| PSOELSE | REFOR+12! |
| >> PSOMAX | REFOR+3*, REFOR+8* |
| >> PSONEW1 | JUMP+4 |
| >> PSONEW3 | JUMP+5 |
| >> PSOPAR | MW1, FILLDT+5 |
| >> PSORENW3 | JUMP+6 |
| >> PSORX("CLERK | CODE" , CLERK+1*, CLERK+3, CLERK+5* |
| >> PSORX("EDIT" | MW+7 |
| >> PSORX("EXPIRA | TION DATE" , EXP+2*, EXP+3 |
| >> PSORX("FILL D | ATE" , FILLDT+2, FILLDT+11* |
| >> PSORX("MAIL/WINDOW" | MW+3, MW+6* |
| >> PSORX("METHOD | OF PICK-UP" , MW1+2, MW1+5* |
| PSOX | DIRX!, REFOR+3*, REFOR+4*, REFOR+8*, REFOR+11*, REFOR+17*, REFOR+18, REFOR+19, REFOR+20 |
| >> PSOX1 | REFOR+20 |
| U | MW1+4, FILLDT+5, DIR+5 |
| >> VALMSG | REFOR+13*, REFOR+14 |
| X | EXPX!, MW1+4, MWX!, FILLDTX!, DIR+4, DIR+5, JUMP+2*, JUMPX* |
| Y | EXP+2*, EXP+6, EXPX!, MW+6, MW1+5, MWX!, FILLDT+10, FILLDT+11, FILLDTX!, CLERK+5 , DIR+4, JUMP+3, REFOR+23 |
| Y(0 | MW+5, MW+6 |