Routine: PSODIR3

Package	Total	Call Graph
Outpatient Pharmacy	3	JUMP^PSONEW1 JUMP^PSONEW3 JUMP^PSORENW3
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSODIR1 PSOREF2

Entry Points

Name	Comments	DBIA/ICR reference
JUMPX
MW1
EXPX
REFOR	;
DIRX
MWX
CLERK(PSODIR)	;
EXP(PSODIR)	;
JUMP	;
CLERKX
DIR	;
MW(PSODIR)	;
FILLDT(PSODIR)	;
FILLDTX

External References

Name	Field # of Occurrence
^DIC	JUMP+2
^DIR	EXP+4, DIR+3
JUMP^PSONEW1	JUMP+4
JUMP^PSONEW3	JUMP+5
JUMP^PSORENW3	JUMP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Cannot jump to another field ..",! Line Location: MW1+4
Routine Call	DIC Line Location: JUMP+2
Routine Call	DIR Line Location: EXP+4 DIR+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EXP+2, FILLDT+11
^VA(200 - [#200]	CLERK+1, CLERK+3

Label References

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

Local Variables

Legend:

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

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODIR3

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: