Routine: APSQFUTI

Package	Total	Call Graph
Outpatient Pharmacy	6	^PSOLSET JUMP^PSONEW1 JUMP^PSONEW3 ^PSORDAY JUMP^PSOREF1 JUMP^PSORENW3
VA Fileman	3	^DIC ^DIE ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
CMX
DIR	;
JUMPX
SET	;
DAYSX
QUIT
SIG(PSODIR)	;
COPIES(PSODIR)	;
PTSTAT(PSODIR)	;
CM(PSODIR)	;IHS/DSD/ENM CHRONIC MED ENTER/ED 10-05-94
PTSTATEN
DIRX
JUMP	;
QTYX
SIGX
REFILL	;
COPIESX
QTY(PSODIR)	;
DAYS(PSODIR)	;
PTSTATX	;K DTOUT,DUOUT,X,Y,DA,APST
DAYSEN
TEST	;FOR UTILITY

External References

Name	Field # of Occurrence
^DIC	JUMP+1
^DIE	PTSTATEN+14
^DIR	DIR+3
^PSOLSET	REFILL+2
JUMP^PSONEW1	JUMP+3
JUMP^PSONEW3	JUMP+5
^PSORDAY	DAYSEN+1
JUMP^PSOREF1	JUMP+4
JUMP^PSORENW3	JUMP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"INACTIVE" Line Location: TEST+5
Function Call: WRITE	Prompt: !,"INACTIVE" Line Location: TEST+6
Function Call: WRITE	Prompt: !,"MUST BE SAME DIVISION" Line Location: TEST+7
Function Call: WRITE	Prompt: *7," Required" Line Location: PTSTATEN+7
Function Call: WRITE	Prompt: !,*7," Greater than Maximum dose of ",PSODRUG("MAXDOSE")," per day" Line Location: DAYSEN+8
Function Call: WRITE	Prompt: !,"No refills allowed on Narcotics .." Line Location: REFILL+17
Function Call: WRITE	Prompt: !,"MAXIMUM NUMBER OF REFILLS IS ",PSOX Line Location: REFILL+19
Routine Call	DIE Line Location: PTSTATEN+14
Routine Call	DIC Line Location: JUMP+1
Routine Call	DIR Line Location: DIR+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	DAYSEN+1
^PS(53 - [#53]	PTSTATEN+11, REFILL+8, REFILL+9
^PS(55 - [#55]	PTSTATEN+12, PTSTATEN+15
^PSDRUG - [#50]	TEST+5, TEST+6, REFILL+6, SET+3, SET+5, SET+7, SET+8, SET+9, SET+10

Label References

Name	Line Occurrences
CMX	CM+4
COPIESX	COPIES+4
DAYSEN	DAYSEN+8
DAYSX	DAYSEN+7
DIR	SIG+5, QTY+4, COPIES+4, DAYSEN+7, CM+4
DIRX	DIR+2, DIR+4
JUMP	DIR+5
JUMPX	JUMP+2, JUMP+3, JUMP+4, JUMP+5, JUMP+6
PTSTATX	PTSTATEN+12
QTYX	QTY+4
QUIT	SET+9
SET	REFILL+7
SIGX	SIG+5

Naked Globals

Name	Field # of Occurrence
^(""	REFILL+8
^("I"	TEST+5
^("ND"	SET+3, SET+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APSP("CM"	CM+5*
>> APSQFDAY	REFILL+4, REFILL+15, REFILL+16
>> APSQFDRU	REFILL+4, REFILL+5
>> APSQFNOU	REFILL+9*, REFILL+10
>> APSQFOUT	REFILL+8*, REFILL+9
APSQFX	REFILL+1*, REFILL+21!, REFILL+22
>> APSQFY	REFILL+5*, REFILL+6, SET+1, SET+3, SET+5, SET+7, SET+8, SET+9, SET+10
>> APSQFY(0	REFILL+6*, SET+1, SET+2, SET+4, SET+6
>> APSQTEST	TEST+12*
>> APST	PTSTATEN+9, PTSTATEN+11, PTSTATEN+14
D0	PTSTATEN+14!
DA	TEST+12, PTSTATEN+14*!, PTSTATX+1!, DIR+3!
DIC	PTSTATEN!, SIG+1!, QTY+1!, COPIES+1!, DAYSEN!, REFILL+12!, CM+1!, DIR+3!, JUMP+1*!
DIC(0	JUMP+1*
DIE	PTSTATEN!, PTSTATEN+14*!, DIR+3!
DIR	SIG+1!, QTY+1!, COPIES+1!, DAYSEN!, REFILL+12!, CM+1!, DIR+3!
DIR("?"	DAYSEN+6*
DIR("A"	QTY+2, DAYSEN+6
DIR("B"	SIG+3, SIG+4, QTY+3, COPIES+3, DAYSEN+4, DAYSEN+5, CM+3*
DIR(0	SIG+2, QTY+2, COPIES+2, DAYSEN+2, CM+2*, DIR+2
DIROUT	DIR+4, DIRX!
DIRUT	DIRX!
DR	PTSTATEN!, PTSTATEN+14*
DT	TEST+5
DTOUT	PTSTATX+1!, DIR+4, DIRX!
DUOUT	PTSTATX+1!, DIR+4, DIRX!
PSDY	REFILL+16*, REFILL+23!
PSDY1	REFILL+16*, REFILL+23!
>> PSODFN	PTSTATEN+12, PTSTATEN+14, PTSTATEN+15
PSODIR	PTSTAT~, SIG~, QTY~, COPIES~, DAYS~, CM~
PSODIR("CM"	CM+3, CM+5*
PSODIR("COPIES"	COPIES+3, COPIES+5*
PSODIR("DAYS	SUPPLY" , DAYSEN+5, DAYSEN+9*
PSODIR("DFLG"	SIG+5, QTY+4, COPIES+4, DAYSEN+7, CM+4, DIR+4*
PSODIR("FIELD"	PTSTATEN, SIG+5, QTY+4, COPIES+4, DAYSEN+7, CM+4, DIR+1, JUMP+2*
PSODIR("FLD"	JUMP+2
PSODIR("PATIE	NT STATUS" , PTSTATEN+9*
PSODIR("PTST	NODE" , PTSTATEN+11*, DAYSEN+5
PSODIR("QTY"	QTY+3, QTY+5*, DAYSEN+8
PSODIR("SIG"	SIG+4, SIG+6*
PSODRUG	REFILL+24!
PSODRUG("CLN"	SET+5*
PSODRUG("COST"	SET+11*
PSODRUG("DEA"	REFILL+13, REFILL+14, REFILL+16, REFILL+17, REFILL+18, SET+4*
PSODRUG("IEN"	SET+1*
PSODRUG("MAXDOSE"	DAYSEN+8, SET+4*
PSODRUG("NAME"	SET+2*
PSODRUG("NDC"	SET+7*
PSODRUG("NDF"	SET+3*
PSODRUG("SIG"	SIG+3, SET+6*
PSODRUG("STKLVL"	SET+8*
PSODRUG("UNIT"	QTY+2, SET+12*
PSODRUG("VA C	LASS" , SET+1*
>> PSONEW1	JUMP+3
>> PSONEW3	JUMP+5
>> PSOPAR	REFILL+2, REFILL+4, REFILL+13, REFILL+14, REFILL+16
>> PSOREF1	JUMP+4
>> PSORENW3	JUMP+6
>> PSORX("PATIEN	T STATUS" , PTSTATEN+9*
PSOX	REFILL+12!, REFILL+13, REFILL+14, REFILL+15, REFILL+16, REFILL+17, REFILL+18, REFILL+19, REFILL+21, REFILL+23! , DIRX!
PSOX1	REFILL+10, REFILL+14, REFILL+23!, SET+10, SET+11, SET+12
PSOZDAY	DAYSEN+4!
TEST	TEST+2~, TEST+3, TEST+5, TEST+6*, TEST+9
U	REFILL+10, DIR+5
X	TEST+10!, PTSTATX+1!, SIGX!, QTYX!, COPIESX!, DAYSEN+1, DAYSX!, REFILL+1, REFILL+21!, REFILL+22 , CMX!, DIR+4, DIR+5, JUMP+1, JUMPX
Y	TEST+5, TEST+6, PTSTATX+1!, SIG+6, SIGX!, QTY+5, QTYX!, COPIES+5, COPIESX!, DAYSEN+8 , DAYSEN+9, DAYSX!, CM+5, CMX!, JUMP+2

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSQFUTI

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: