Routine: APSQFAS

Package	Total	Call Graph
Outpatient Pharmacy	7	^PSOBUILD GMRA^PSODEM ^PSODSPL EN^PSON52 ^PSONEW2 AUTO^PSONRXN NPSOSD^PSOUTIL
IHS Changes To Pharmacy	5	^APSPCCN ^APSPCCV ^APSPCVRX ^APSQFAS1 ^APSQFAS3
VA Fileman	3	^DIE GETS^DIQ ^DIR
Registration	1	EN^VALM

Package

Total

Call Graph

Outpatient Pharmacy

^PSOBUILD GMRA^PSODEM ^PSODSPL EN^PSON52 ^PSONEW2 AUTO^PSONRXN NPSOSD^PSOUTIL

IHS Changes To Pharmacy

^APSPCCN ^APSPCCV ^APSPCVRX ^APSQFAS1 ^APSQFAS3

VA Fileman

^DIE GETS^DIQ ^DIR

Registration

EN^VALM

Entry Points

Name	Comments	DBIA/ICR reference
EXD	;IHS/DSD/ENM 4/20/94 Check %APSITE P11 for Exp Date
END
EOJ	;
IHSP	;---- ---- ---- ---- ---- ----
IHSV	; hook to store data for patient in PCC parameter array for later use
ASKX	;
DISPLAY	;
START	;EP
IHSH	;
EXDT	;EXPIRATION DATE SET FOR 9999999 NODE ;IHS/DSD/ENM 4/20/94
DEL	;
ASK	;
FIN	;FINISH UP
DIQ	;S APSQHIT=0 F S APSQHIT=$O(DRUG(APSQHIT)) Q:APSQHIT="" D D ^APSQFAS3,FIN

External References

Name	Field # of Occurrence
^APSPCCN	IHSH+7
^APSPCCV	IHSV+1
^APSPCVRX	IHSP+2
^APSQFAS1	IHSV+5
^APSQFAS3	DIQ+1
^DIE	DEL+7
GETS^DIQ	DIQ+4
^DIR	ASK+6
^PSOBUILD	ASK+10
GMRA^PSODEM	ASK+12
^PSODSPL	DISPLAY+2, ASK+10
EN^PSON52	EXD+4
^PSONEW2	EXD+3
AUTO^PSONRXN	IHSP+5
NPSOSD^PSOUTIL	EXDT+3
EN^VALM	IHSV+10

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"RX DELETED",! Line Location: FIN+3
Function Call: WRITE	Prompt: !,*7,"RX DELETED",! Line Location: DEL+1
Routine Call	VALM Line Location: IHSV+10
Routine Call	DIE Line Location: DEL+7
Routine Call	DIR Line Location: ASK+6

FileNo	Call Tags
^PS(59 - [#59]	Classic Fileman Calls
^APSQFA - [#9009035.3]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSITE(1	IHSH+2
^DPT - [#2]	IHSV+2
^PS(59 - [#59]	DEL+5, DEL+7, DEL+8
^PSRX - [#52]	EXD+5, EXDT+2
^VA(200 - [#200]	IHSH+2
^XUSEC("PSORPH"	EXD+7

Name	Line Occurrences
ASK	START+6, ASK+10, ASK+12
ASKX	ASK+7, ASK+8
DEL	IHSP+6, EXD+3
DISPLAY	START+4
END	START+3, START+5, START+6, IHSV+6, FIN+2
EOJ	START+1, END
FIN	DIQ+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %APSITE	IHSV+1, IHSP+2, IHSH+7
ANQDATA	EOJ+2!
>> APCDALVR("APCDCAT"	IHSH+7*
>> APCDALVR("APCDDATE"	IHSH+7*
>> APCDALVR("APCDTPRV"	IHSH+2*
>> APSEFDT	IHSH+7
>> APSP("CM"	EXD+5
APSPCA	EOJ+4!
APSPCM	EOJ+4!
APSPDOC1	IHSH+2*, EOJ+4!
>> APSPFLG	DISPLAY+3*
APSPZRD	EOJ+2!
>> APSPZRP	EXD+7*
APSQ	DIQ+5!
APSQ(	DIQ+5
>> APSQDG	DIQ+1*, DIQ+4, DIQ+5
APSQF	DIQ+5*, DIQ+6!
>> APSQFNEW	ASK+14*, EOJ+5
APSQFOPT	EOJ+3!
>> APSRX	IHSH+7*
C	EOJ+2!
>> DA	DEL+3*
DIE	DEL+3*, DEL+7!
DIR	ASK+6!
DIR("?"	ASK+3, ASK+4, ASK+5*
DIR("A"	ASK+2*
DIR("B"	ASK+1*
DIR(0	ASK+1*
DIRUT	ASK+7, ASKX+1!
>> DR	DEL+6*
DRUGPICK	IHSV+11, DIQ+8!
DRUGPICK(	DIQ+1
DTOUT	ASKX+1!
DUOUT	ASKX+1!
DUZ	EXD+7
LSI	EOJ+2!
MAX	EOJ+2!
MIN	EOJ+2!
NDF	EOJ+2!
>> P(99	EXDT+2
>> PSODFN	START+3, IHSV+2
PSODRUG	EOJ+2!
PSOFLAG	EOJ+2!
>> PSOFROM	ASK+14*
PSOHI	EOJ+2!
PSOLO	EOJ+2!
PSONEW	EXD+4, EXDT+3, EOJ+5!
PSONEW("DFLG"	START+2*, IHSV+7, FIN+3, IHSP+6, EXD+3
PSONEW("IRXN"	EXD+5, EXDT+2, IHSH+7
PSONEW("OLD L	AST RX#" , DEL+3, DEL+4
PSONEW("PATIE	NT STATUS" , IHSH+7
PSONEW("PROVIDER"	IHSH+2
PSONEW("QFLG"	START+2, START+5, START+6, IHSV+6, IHSV+11, IHSV+12, FIN+2, IHSP+6, DISPLAY+4, ASK+7 , ASK+8, ASK+11, ASK+14*
PSONEW("RX #"	, EOJ+1
>> PSONRXN(	EOJ+1
>> PSOOPT	DISPLAY+2*
>> PSOPAR	START+4, START+6, DEL+2
PSOQFLG	DISPLAY+2*, DISPLAY+4, DISPLAY+5!
>> PSORX("DO REF	ILL" , ASK+11*
>> PSORX("NAME"	ASK+2
>> PSORX("PSOL"	EXD+7
>> PSORX("QFLG"	START+5, IHSV+6, ASK+7*
>> PSOSITE	DEL+3, DEL+5, DEL+7, DEL+8
PSOX	DEL+4*, DEL+6, DEL+7, DEL+9!
PSOY	DEL+3*, DEL+4, DEL+5, DEL+6, DEL+7, DEL+8, DEL+9!
REF	EOJ+2!
SER	EOJ+2!
SIG	EOJ+2!
U	IHSV+1, IHSP+2, IHSH+2, IHSH+7
X	ASKX+1!, DEL+7!
Y	ASK+8, ASK+10, ASK+11, ASK+12, ASK+14, ASKX+1!, DEL+7!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSQFAS

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: