PSODIR3 ;ISC-BIRM/SAB - rx order entry contd ;Jul 24, 2018@22:48
Source file <PSODIR3.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 4 | JUMP^PSONEW1 JUMP^PSONEW3 JUMP^PSORENW3 $$MAXNUMRF^PSOUTIL |
| VA FileMan | 2 | ^DIC ^DIR |
| 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 |
|---|---|---|
| EXP(PSODIR) | ;
|
|
| EXPX | ||
| MW(PSODIR) | ;
|
|
| MW1 | ||
| MWX | ||
| FILLDT(PSODIR) | ;
|
|
| FILLDTX | ||
| CLERK(PSODIR) | ;
|
|
| CLERKX | ||
| DIR | ;
|
|
| DIRX | ||
| JUMP | ;
|
|
| JUMPX | ||
| REFOR | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | EXP+2, FILLDT+9 |
| ^VA(200 - [#200] | CLERK+1, CLERK+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CLOZPAT | REFOR+2, REFOR+8, REFOR+10 |
| DA | DIR+3! |
| 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+4*, FILLDT+5*, FILLDT+6*, REFOR+14* |
| DIR("A" | EXP+3*, MW+3*, FILLDT+2*, CLERK+3*, REFOR+12* |
| DIR("B" | EXP+3*, MW+3*, MW+6*, MW1+2*, FILLDT+2*, CLERK+3*, REFOR+13* |
| DIR(0 | EXP+4*, MW+3*, MW+5*, MW1+1*, FILLDT+3*, CLERK+3*, DIR+2, REFOR+12* |
| DIROUT | DIR+4, DIRX! |
| DIRUT | DIRX! |
| DT | FILLDT+3 |
| DTOUT | DIR+4, DIRX! |
| DUOUT | DIR+4, DIRX! |
| DUZ | CLERK+1, CLERK+3 |
| DUZ("AG" | FILLDT+3, CLERK+1 |
| >> OR0 | JUMP+1 |
| >> POERR | REFOR+13 |
| >> PSOBBC1("FROM" | MW+2 |
| PSODIR | EXP~, MW~, FILLDT~, CLERK~ |
| PSODIR("# OF | REFILLS" , REFOR+5*, REFOR+11*, REFOR+13, REFOR+16* |
| PSODIR("CLERK | CODE" , CLERK+1*, CLERK+5* |
| PSODIR("DAYS | SUPPLY" , REFOR+8 |
| PSODIR("DFLG" | EXP+5, MW+7, MW+8*, MW1+3, FILLDT+7, CLERK+4, DIR+4*, JUMP+1*, REFOR+15 |
| PSODIR("EXPIR | ATION DATE" , EXP+6* |
| PSODIR("FIELD" | EXP+5, MW+7, FILLDT+7, CLERK+4, DIR+1*, JUMP+3*, REFOR+5*, REFOR+15 |
| PSODIR("FILL | DATE" , FILLDT+8* |
| PSODIR("FLD" | JUMP+3 |
| PSODIR("ISSUE | DATE" , FILLDT+3 |
| PSODIR("MAIL/WINDOW" | MW+9*, MW+10, MW1 |
| PSODIR("METHO | D OF PICK-UP" , MW+10!, MW1+5* |
| PSODIR("N# RE | F" , REFOR+11*, REFOR+13, REFOR+16* |
| PSODIR("PATIE | NT STATUS" , REFOR+8 |
| >> PSODRUG("DEA" | REFOR+2, REFOR+3 |
| >> PSODRUG("EXPI | RATION DATE" , EXP+2 |
| >> PSODRUG("IEN" | REFOR+8 |
| >> PSOEDIT | JUMP+1 |
| >> PSONEW1 | JUMP+4 |
| >> PSONEW3 | JUMP+5 |
| >> PSOPAR | MW1 |
| >> PSORENW3 | JUMP+6 |
| >> PSORX("CLERK | CODE" , CLERK+1*, CLERK+3, CLERK+5* |
| >> PSORX("EDIT" | MW+10 |
| >> PSORX("EXPIRA | TION DATE" , EXP+2*, EXP+3 |
| >> PSORX("FILL D | ATE" , FILLDT+2, FILLDT+9* |
| >> PSORX("MAIL/WINDOW" | MW+6, MW+9* |
| >> PSORX("METHOD | OF PICK-UP" , MW1+2, MW1+5* |
| PSOX | DIRX!, REFOR+1~, REFOR+8*, REFOR+11, REFOR+12, REFOR+13 |
| U | MW1+4, DIR+5 |
| >> VALMSG | REFOR+3*, REFOR+4 |
| X | EXPX!, MW1+4, MWX!, FILLDTX!, DIR+4, DIR+5, JUMP+2*, JUMPX* |
| Y | EXP+2*, EXP+6, EXPX!, MW+9, MW1+5, MWX!, FILLDT+8, FILLDT+9, FILLDTX!, CLERK+5 , DIR+4, JUMP+3, REFOR+16 |
| Y(0 | MW+8, MW+9 |