Routine: PSODIR1

Package	Total	Call Graph
Outpatient Pharmacy	7	RFRSET^PSODIR2 REFOR^PSODIR3 JUMP^PSONEW1 JUMP^PSONEW3 JUMP^PSOREF1 JUMP^PSORENW3 QTY^PSOSIG
VA Fileman	4	^DIC ^DIE $$GET1^DIQ ^DIR
Kernel	1	$$UP^XLFSTR
Registration	1	ELIG^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	10	PSOBKDED PSODRG PSODRGN PSONEW1 PSONEW3 PSOORED7 PSOOREDT PSOORNW2 PSORENW3 PSORENW4
IHS Changes To Pharmacy	4	APSPDIR APSPRIS APSQFAS1 APSQFAS4

Name	Comments	DBIA/ICR reference
DIRS	; EP - IHS/CIA/PLS - 12/23/03 - New entry point DIRS added.
TPBSC	;
SIGOK	;review and decide on oerr sig
TPBB	;
DIR	;
REFOR	;
DAYSX
REFILL(PSODIR)	;
PSTPB	;
SIG(PSODIR)	;
COPIES(PSODIR)	;
PTSTAT(PSODIR)	;
QTYA
REFILLX
PTSTATEN
DIRX
JUMP	;
QTYX
SIGX
COPIESX
QTY(PSODIR)	;
DAYS(PSODIR)	;
JUMPX
PTSTATX
DAYSEN

Name	Field # of Occurrence
^DIC	TPBB+4, REFILL+5, JUMP+2
^DIE	TPBSC+3
$$GET1^DIQ	DAYSEN+4
^DIR	PTSTATEN+5, DIR+3, SIGOK+4
RFRSET^PSODIR2	REFILL+33
REFOR^PSODIR3	REFOR+1
JUMP^PSONEW1	JUMP+4
JUMP^PSONEW3	JUMP+6
JUMP^PSOREF1	JUMP+5
JUMP^PSORENW3	JUMP+7
QTY^PSOSIG	QTYA+5, DAYSEN+19, DAYSEN+30
ELIG^VADPT	TPBB+1
$$UP^XLFSTR	PTSTATEN+3, TPBB+8, TPBB+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Could not find a 'NON-VA' Patient Status in the RX PATIENT STATUS file (#53)!" Line Location: PTSTATEN+4
Function Call: WRITE	Prompt: !,"Eligibility: "_$P(VAEL(1),"^",2)_$S(+VAEL(3):" SC%: "_$P(VAEL(3),"^",2),1:"") Line Location: TPBB+1
Function Call: WRITE	Prompt: !,?10,$P(VAEL(1,N),"^",2) Line Location: TPBB+2
Function Call: WRITE	Prompt: ! Line Location: TPBB+5
Function Call: WRITE	Prompt: $C(7)," Required" Line Location: TPBB+12
Function Call: WRITE	Prompt: !!,"Cannot select 'NON-VA' Rx Patient Status!",! Line Location: TPBB+15
Function Call: WRITE	Prompt: !,$C(7)," Greater than Maximum dose of "_PSODRUG("MAXDOSE")_" per day" Line Location: DAYSEN+11
Function Call: WRITE	Prompt: !,VALMSG,! Line Location: REFILL+29
Function Call: WRITE	Prompt: !,"No refills allowed on Schedule 2 drugs...",! Line Location: REFILL+35
Function Call: WRITE	Prompt: !,"SIG: " Line Location: SIGOK+2
Function Call: WRITE	Prompt: !,"New orders entered through this option must have a Patient Status of 'NON-VA'!",! Line Location: PSTPB+1
Routine Call	DIE Line Location: TPBSC+3
Routine Call	DIC Line Location: TPBB+4 REFILL+5 JUMP+2
Routine Call	DIR Line Location: PTSTATEN+5 DIR+3 SIGOK+4

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	TPBSC+2
^PS(53 - [#53]	PTSTATEN+2, PTSTATEN+3, PTSTATEN+8, TPBB+8, TPBB+15
^PS(55 - [#55]	PTSTATEN+8, TPBSC+2, TPBSC+4
^PSDRUG - [#50]	QTYA+3
^PSRX - [#52]	QTYA+8, REFILL+28

Name	Line Occurrences
COPIESX	COPIES+4
DAYSEN	QTYA+12, DAYSEN+11
DAYSX	DAYSEN+10
DIR	SIG+6, QTYA+10, COPIES+4, DAYSEN+10, REFILL+43
DIRX	DIR+2, DIRS+1, DIRS+2
JUMP	TPBB+10, DIRS+3
JUMPX	JUMP+3, JUMP+4, JUMP+5, JUMP+6, JUMP+7
PSTPB	PTSTATEN+4, TPBB+5
PTSTATEN	TPBB+5, TPBB+12, TPBB+15
PTSTATX	PTSTATEN+4, TPBB+5, TPBB+10, TPBB+11, TPBSC+1, TPBSC+2
QTYA	QTYA+11
QTYX	QTYA+10, QTYA+11
REFILLX	REFILL+27, REFILL+35, REFILL+43, REFOR+2
REFOR	REFILL+9
SIGOK	SIG+1
SIGX	SIG+1, SIG+6
TPBB	PTSTATEN+6
TPBSC	TPBB+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CLOZPAT	QTYA+1, QTYA+2, DAYSEN+7, DAYSEN+8, DAYSEN+9, DAYSEN+22, DAYSEN+23, DAYSEN+27, REFILL+27, REFILL+36
>> COPY	REFILL+39
D0	TPBSC+3!
DA	TPBSC+3*!, PTSTATX!, DIR+3!
DEA	REFILL+11*, REFILLX+1!
DIC	PTSTATEN!, TPBB+4!, SIG+2!, QTYA!, COPIES+1!, DAYSEN!, REFILL+5!, REFILL+10!, DIR+3!, JUMP+2*!
DIC("A"	TPBB+3*
DIC("B"	PTSTATEN+3, PTSTATEN+8, PTSTATEN+9*
DIC(0	TPBB+4, REFILL+5, JUMP+2*
DIE	PTSTATEN!, TPBSC+3*!, DIR+3!
DIR	PTSTATEN+5!, SIG+2!, QTYA!, COPIES+1!, DAYSEN!, REFILL+10!, DIR+3!, SIGOK+4!
DIR("?"	DAYSEN+9, REFILL+42
DIR("A"	PTSTATEN+5, QTYA+1, QTYA+2, QTYA+3, DAYSEN+9, REFILL+38, SIGOK+4*
DIR("B"	SIG+4, SIG+5, QTYA+9, COPIES+3, DAYSEN+8, REFILL+39, REFILL+41, SIGOK+4
DIR(0	PTSTATEN+5, SIG+3, QTYA+3, COPIES+2, DAYSEN+7, REFILL+38, DIR+2, SIGOK+4*
DIROUT	DIRS+1, DIRS+2, DIRX!
DIRUT	DIRS+2, DIRX!, SIGOK+4!
DR	PTSTATEN!, TPBSC+3*
DTOUT	TPBB+6, TPBB+11, PTSTATX!, DIRS+1, DIRX!, SIGOK+4!
DUOUT	TPBB+6, TPBB+11, PTSTATX!, DIRS+1, DIRX!, SIGOK+4!
>> N	TPBB+2*
>> OR0	TPBSC+1, REFILL+9, JUMP+1
PSDY	REFILL+14, REFILL+26, REFILLX+1!
PSDY1	REFILL+14, REFILL+26, REFILLX+1!
PSOCS	REFILLX+1!
>> PSODFN	PTSTATEN+8, TPBSC+2, TPBSC+3, TPBSC+4
PSODIR	PTSTAT~, SIG~, QTY~, QTYA+5, COPIES~, DAYS~, DAYSEN+19, DAYSEN+30, REFILL~
PSODIR("# OF	REFILLS" , DAYSEN+3, DAYSEN+22, DAYSEN+24, DAYSEN+25, DAYSEN+26, DAYSEN+28, DAYSEN+29, REFILL+30, REFILL+35 , REFILL+39, REFILL+44, REFILLX
PSODIR("COPIES"	COPIES+3, COPIES+5*
PSODIR("CS"	REFILL+10, REFILL+11, REFILL+12, REFILL+35
PSODIR("DAYS	SUPPLY" , QTYA+11, DAYSEN+8, DAYSEN+12*, DAYSEN+24, DAYSEN+25, DAYSEN+26, DAYSEN+28, DAYSEN+29, REFILL+14 , REFILL+26, REFILL+36
PSODIR("DFLG"	PTSTATEN+4, TPBB+5, TPBB+11, SIG+1, SIG+6, QTYA+10, QTYA+11, COPIES+4, DAYSEN+10, REFILL+43 , DIR+1, DIRS+1, DIRS+2, JUMP+1, SIGOK+4
PSODIR("FIELD"	PTSTATEN, SIG+6, QTYA+10, COPIES+4, DAYSEN+10, REFILL+30, REFILL+35, REFILL+43, DIR+1, JUMP+3*
PSODIR("FLD"	JUMP+3
PSODIR("IRXN"	REFILL+28
PSODIR("N# RE	F" , DAYSEN+22, DAYSEN+24, DAYSEN+25, DAYSEN+26, DAYSEN+28, DAYSEN+29, REFILL+39, REFILL+44*, REFILLX
PSODIR("PATIE	NT STATUS" , PTSTATEN+1!, PTSTATEN+9, TPBB+7, TPBB+8!, TPBB+18, REFILL+4, REFILL+7*
PSODIR("PTST	NODE" , TPBB+7, TPBB+8!, TPBB+19, DAYSEN+8, REFILL+2, REFILL+6, REFILL+8, REFILL+13, REFILL+18
PSODIR("QTY"	QTYA+4!, QTYA+6, QTYA+7!, QTYA+8, QTYA+9, QTYA+13, DAYSEN+11, DAYSEN+19, DAYSEN+20, DAYSEN+21! , DAYSEN+30, DAYSEN+31*, DAYSEN+32!
PSODIR("RX0"	DAYSEN+3
PSODIR("SIG"	SIG+1, SIG+5, SIG+7*, SIGOK+5!
>> PSODRUG("DEA"	DAYSEN+4*, REFILL+11, REFILL+27, REFILL+28, REFILL+29
>> PSODRUG("IEN"	QTYA+3, DAYSEN+2, DAYSEN+4
>> PSODRUG("MAXDOSE"	QTYA+11, QTYA+12, DAYSEN+11
>> PSODRUG("SIG"	SIG+4
>> PSODRUG("UNIT"	QTYA+3
>> PSOEDIT	TPBB+10, JUMP+1
>> PSOFDR	TPBSC+1, SIG+1
PSOFNDFL	PTSTATEN+1~, PTSTATEN+2, PTSTATEN+3
PSOFNDPS	PTSTATEN+1~, PTSTATEN+2*, PTSTATEN+3
PSOFNDRX	PTSTATEN+1~, PTSTATEN+3*
PSOFNDX	TPBB+13~, TPBB+15*!, TPBB+17!
PSOFNDXX	TPBB+13~, TPBB+15*!, TPBB+17!
PSOFNDXY	TPBB+13~, TPBB+14*, TPBB+15!, TPBB+16, TPBB+17!
PSOFNDYY	TPBB+13~, TPBB+14*, TPBB+15!, TPBB+16, TPBB+17!
PSOFNDZZ	TPBB+5~, TPBB+8*
>> PSOFROM	PTSTATEN+1, PTSTATEN+4, PTSTATEN+6, TPBB+5, TPBB+9, TPBB+15, DAYSEN+18
>> PSOLOKED	REFILL+28
>> PSONEW1	JUMP+4
>> PSONEW3	JUMP+6
PSOPSDIR	TPBB+5~, TPBB+6, TPBB+8*
PSOPSUPA	TPBB+5~, TPBB+6
>> PSOQTY	QTYA+5
>> PSOREF1	JUMP+5
>> PSORENW("OIRXN"	QTYA+8
>> PSORENW3	JUMP+7
PSORFLS	DAYSEN~, DAYSEN+3*
>> PSORX("PATIEN	T STATUS" , PTSTATEN+1!, PTSTATEN+3, PTSTATEN+4, PTSTATEN+8, TPBB+7, TPBB+8!, TPBB+18
>> PSOTPBFG	PTSTATEN+1, PTSTATEN+4, PTSTATEN+6, TPBB+5, TPBB+9, TPBB+15
PSOX	PTSTATEN+7~, PTSTATEN+8, REFILL+10!, REFILL+13, REFILL+14, REFILL+18, REFILL+26, REFILL+36, REFILL+38, REFILL+39 , REFILLX, REFILLX+1!
PSOX1	REFILL+13, REFILL+18, REFILL+39, REFILLX, REFILLX+1!
QTYHLD	QTYA+4!, QTYA+6, QTYA+7!, DAYSEN+19!, DAYSEN+20, DAYSEN+21!, DAYSEN+30!*, DAYSEN+31, DAYSEN+32!
>> RFTT	REFILL+38
>> RX0	REFILL+4
SIG	SIG+7!, SIGOK+3*
SIG(	SIGOK+3
SIG(0	SIGOK+1
SIGOK	SIG+1, SIG+7, SIGOK+1, SIGOK+2!, SIGOK+5*
>> SPEED	QTYA+6, QTYA+8, DIRS+2
U	TPBB+10, DIRS+3
>> VAEL(1	TPBB+1, TPBB+2
>> VAEL(3	TPBB+1
>> VALMSG	REFILL+29*
X	TPBB+10, PTSTATX!, SIGX!, QTYX!, COPIESX!, DAYSX!, REFILL+3~, REFILL+4, REFILLX+1!, DIRS+1 , DIRS+3, JUMP+2, JUMPX*
Y	TPBB+6, TPBB+7, TPBB+8, TPBB+12, TPBB+14, TPBB+15!, TPBB+16*, TPBB+18, TPBSC+3, PTSTATX! , SIG+7, SIGX!, QTYA+11, QTYA+13, QTYX!, COPIES+5, COPIESX!, DAYSEN+11, DAYSEN+12, DAYSX! , REFILL+3~, REFILL+6, REFILL+7, REFILL+44, REFILLX+1!, DIRS+1, JUMP+3, SIGOK+5
Y(0	TPBB+7, TPBB+14, TPBB+16*, TPBB+19, REFILL+6

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODIR1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: