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 |
Package | Total | Caller Graph |
---|---|---|
Outpatient Pharmacy | 2 | PSODIR1 PSOREF2 |
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 |