Routine: PSODIR2

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

Package	Total	Caller Graph
Outpatient Pharmacy	11	PSOBKDED PSODIR1 PSONEW1 PSONEW3 PSONRXN PSOORFI2 PSOORNW2 PSOREF1 PSORENW PSORENW3 PSORENW4
IHS Changes To Pharmacy	4	APSPDIR APSPHLD APSPRIS APSQFAS1

Entry Points

Name	Comments	DBIA/ICR reference
MW(PSODIR)	;
MWX
DIR	;
JUMPX
CLINICX
CLINIC(PSODIR)	;
FILLDT(PSODIR)	;
DIRS	; EP - IHS/CIA/PLS - 12/23/03 - New entry point DIRS added.
EXP(PSODIR)	;
RMK(PSODIR)	;
RMKEN
DIRX
JUMP	;
EXPX
CLERK(PSODIR)	;
FILLDTX
MW1
ISSDT(PSODIR)	;
ISSDTX
RMKX
CLERKX
RFRSET	;

External References

Name	Field # of Occurrence
C^%DTC	FILLDT+11
^DIC	JUMP+2
^DIR	CLINIC+3, 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
Function Call: WRITE	Prompt: !,"Cannot jump to another field ..",! Line Location: RMKEN+4
Function Call: WRITE	Prompt: !,VALMSG,! Line Location: RFRSET+7
Routine Call	DIC Line Location: JUMP+2
Routine Call	DIR Line Location: CLINIC+3 DIR+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EXP+2, ISSDT+3, ISSDT+7, FILLDT+11, FILLDT+15, FILLDT+21
^PSRX - [#52]	RFRSET+3
^VA(200 - [#200]	CLERK+5, CLERK+7

Label References

Name	Line Occurrences
CLERKX	CLERK+8
CLINICX	CLINIC+3
DIR	EXP+6, MW+4, MW1+3, RMKEN+3, ISSDT+5, FILLDT+19, CLERK+8
DIRX	DIR+2, DIR+3, DIRS+1, DIRS+2
EXPX	EXP+6
FILLDTX	FILLDT+19
ISSDTX	ISSDT+5
JUMP	DIRS+3
JUMPX	JUMP+3, JUMP+4, JUMP+5, JUMP+6
MW1	MW1+4
MWX	MW+4, MW+5, MW1, MW1+3
RMKEN	RMKEN+4
RMKX	RMKEN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	DIR+3!
DIC	EXP+1!, CLINIC+1!, CLINICX!, MW+1!, RMKEN!, ISSDT+1!, FILLDT+1!, CLERK+6!, DIR+3!, JUMP+2*!
DIC(0	JUMP+2*
DIE	DIR+3!
DIR	EXP+1!, CLINIC+1!, MW+1!, RMKEN!, ISSDT+1!, FILLDT+1!, CLERK+6!, DIR+3!
DIR("?"	EXP+5, FILLDT+16, FILLDT+17, FILLDT+18
DIR("A"	EXP+3, CLINIC+2, ISSDT+2, FILLDT+3, CLERK+7*
DIR("B"	EXP+3, CLINIC+2, MW+3, MW1+2, RMKEN+2, ISSDT+2, ISSDT+3, FILLDT+3, FILLDT+11, CLERK+7
DIR(0	EXP+4, CLINIC+2, MW+2, MW1+1, RMKEN+1, ISSDT+4, FILLDT+14, CLERK+7, DIR+2
DIROUT	DIRS+1, DIRX!
DIRUT	DIRX!
DT	FILLDT+5, FILLDT+11, FILLDT+14
DTOUT	DIRS+1, DIRS+2, DIRX!
DUOUT	DIRS+1, DIRS+2, DIRX!
DUZ	CLERK+5, CLERK+7
DUZ("AG"	FILLDT+14
>> OR0	MW+2, CLERK+5, JUMP+1
>> POERR	MW+2, ISSDT+2
PSODIR	EXP~, CLINIC~, MW~, RMK~, ISSDT~, FILLDT~, CLERK~
PSODIR("# OF	REFILLS" , RFRSET+5*
PSODIR("CLERK	CODE" , CLERK+5, CLERK+11
PSODIR("CLINIC"	CLINIC+4, CLINIC+5
PSODIR("CS"	FILLDT+7
PSODIR("DFLG"	EXP+6, CLINIC+3, MW+4, MW+5, MW1+3, RMKEN+3, ISSDT+5, FILLDT+19, CLERK+8, DIR+3 , DIRS+1, DIRS+2, JUMP+1*
PSODIR("EXPIR	ATION DATE" , EXP+7*
PSODIR("FIELD"	EXP+6, CLINIC+1, CLINIC+3, MW+4, ISSDT+5, FILLDT+19, CLERK+8, DIR+1, JUMP+3, RFRSET+4
PSODIR("FILL	DATE" , FILLDT+20*
PSODIR("FLD"	JUMP+3
PSODIR("IRXN"	RFRSET+3
PSODIR("ISSUE	DATE" , ISSDT+2, ISSDT+6, ISSDT+7, FILLDT+14
PSODIR("MAIL/WINDOW"	MW+6*, MW+7, MW1
PSODIR("METHO	D OF PICK-UP" , MW+7!, MW1+5*
PSODIR("QFLG"	DIR+3, DIRS+1
PSODIR("REMARKS"	RMKEN+2, RMKEN+5, RMKEN+6
>> PSODRUG("EXPI	RATION DATE" , EXP+2
>> PSOEDIT	JUMP+1
PSOFDMX	FILLDT+11*, FILLDT+14, FILLDT+15, FILLDTX!
>> PSOFDR	CLERK+5
>> PSOFROM	MW+3
>> PSOID	ISSDT+6*, FILLDT+5, FILLDT+11, FILLDT+14
>> PSONEW("# OF	REFILLS" , FILLDT+2*, FILLDT+4
>> PSONEW("DAYS	SUPPLY" , FILLDT+2*, FILLDT+4
>> PSONEW1	JUMP+4
>> PSONEW3	JUMP+5
>> PSOPAR	MW1, FILLDT+14
>> PSORENW3	JUMP+6
>> PSORX("CLERK	CODE" , CLERK+5, CLERK+7, CLERK+11
>> PSORX("CLINIC"	CLINIC+2, CLINIC+4, CLINIC+5
>> PSORX("EDIT"	MW+7
>> PSORX("EXPIRA	TION DATE" , EXP+2*, EXP+3
>> PSORX("FILL D	ATE" , FILLDT+3, FILLDT+21*
>> PSORX("ISSUE	DATE" , ISSDT+2, ISSDT+7*, FILLDT+11
>> PSORX("MAIL/WINDOW"	MW+2, MW+3, MW+6
>> PSORX("METHOD	OF PICK-UP" , MW1+2, MW1+5*
>> PSOTPBFG	MW+3
PSOX	CLINICX!, DIRX!
RFN	RFRSET+1~, RFRSET+2, RFRSET+3
RFNC	RFRSET+1~, RFRSET+2, RFRSET+3, RFRSET+5
>> SPEED	DIRS+1, DIRS+2
U	MW1+4, RMKEN+4, FILLDT+14, DIRS+3
>> VALMSG	RFRSET+6*, RFRSET+7
X	EXPX!, CLINICX!, MW1+4, MWX!, RMKEN+4, RMKEN+5, RMKEN+6, RMKX!, ISSDTX!, FILLDT+11 , FILLDTX!, DIR+3, DIRS+1, DIRS+3, JUMP+2, JUMPX
>> X1	FILLDT+5*
>> X2	FILLDT+4, FILLDT+7
Y	EXP+2, EXP+7, EXPX!, CLINIC+4, CLINICX!, MW+6, MW1+5, MWX!, RMKX!, ISSDT+3 , ISSDT+6, ISSDT+7, ISSDTX!, FILLDT+11, FILLDT+15, FILLDT+18, FILLDT+20, FILLDT+21, FILLDTX!, CLERK+11 , DIRS+1, JUMP+3
Y(0	MW+5, MW+6

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODIR2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: