Routine: APSPORXA

Information

APSPORXA ; IHS/DSD/ENM - enter outside rx ; [ 02/20/2001 1:50 PM ]

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC ^DIE ^DIR
Outpatient Pharmacy	2	^PSOBUILD ^PSOLSET
IHS Changes To Pharmacy	1	^APSQDRG
IHS Patient	1	(,KILL)^AUPNPAT
Patient Care Component	1	^APCDALV

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Changes To Pharmacy	2	APSPORXE APSPORXF

Entry Points

Name	Comments	DBIA/ICR reference
GETOL	;
GETDRUG	;
BEGIN	;
GENVISIT	;
HDR	;write header
PROCESS	;
TEXT	;
NODRUG	;
GETPAT	;EP
START	;EP - called from option
INIT	;EP
EXIT	;cleanup and exit
GENVMED	;
GETDATE	;EP GET DATE OF ENCOUNTER

External References

Name	Field # of Occurrence
^%DT	GETDATE+3
^APCDALV	GENVISIT+10
^APSQDRG	BEGIN+7
^AUPNPAT	GENVISIT+12
KILL^AUPNPAT	EXIT+3
^DIC	GETDRUG+5, GETPAT+3
^DIE	GENVMED+4
^DIR	GETDATE+1, GETOL+2, GETDRUG+2, NODRUG+2, NODRUG+6
^PSOBUILD	GETPAT+8
^PSOLSET	INIT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(X)\2,X Line Location: HDR+2
Function Call: WRITE	Prompt: !! Line Location: HDR+4
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"OUTSIDE DRUG not defined in DRUG file, notify supervisor." Line Location: INIT+2
Function Call: WRITE	Prompt: !!,"DEFAULT OTHER LOCATION NOT DEFINED IN PHARMACY SITE FILE!! NOTIFY YOUR SUPERVISOR" Line Location: INIT+6
Function Call: WRITE	Prompt: " <Future dates not allowed>",$C(7),$C(7) Line Location: GETDATE+4
Function Call: WRITE	Prompt: !! Line Location: GETDRUG+2
Function Call: WRITE	Prompt: !,"No drug entered!!" Line Location: GETDRUG+4
Function Call: WRITE	Prompt: !,"That drug cannot be found in the Drug file." Line Location: NODRUG+1
Function Call: WRITE	Prompt: !,"Exiting..." Line Location: NODRUG+3
Function Call: WRITE	Prompt: ! Line Location: NODRUG+6
Function Call: WRITE	Prompt: !!,"Exiting..." Line Location: NODRUG+7
Function Call: WRITE	Prompt: !!,$C(7),"Creating PCC Visit Failed....Notify Supervisor" Line Location: GENVISIT+11
Function Call: WRITE	Prompt: !!,"Error.... no drug entry" Line Location: GENVMED+1
Function Call: WRITE	Prompt: !!,"Please enter all available information about this prescription.",! Line Location: GENVMED+3
Function Call: WRITE	Prompt: !!,"Creating V Medication entry failed!! Notify supervisor!" Line Location: GENVMED+5
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Routine Call	DIE Line Location: GENVMED+4
Routine Call	DIC Line Location: GETDRUG+5 GETPAT+3
Routine Call	DIR Line Location: GETDATE+1 GETOL+2 GETDRUG+2 NODRUG+2 NODRUG+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	BEGIN+7
^PSDRUG("B"	INIT+2

Label References

Name	Line Occurrences
EXIT	BEGIN+2, BEGIN+4, BEGIN+8
GENVISIT	PROCESS+5
GENVMED	PROCESS+7
GETDATE	PROCESS+1, GETDATE+3, GETDATE+4
GETDRUG	BEGIN+7, NODRUG+4
GETOL	PROCESS+3
GETPAT	BEGIN+3
INIT	BEGIN+1
NODRUG	GETDRUG+6
PROCESS	BEGIN+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	GETDATE+3*
APCDALVR	EXIT+1!, GENVISIT+1!
APCDALVR("APCDAFLG"	GENVISIT+11
APCDALVR("APCDANE"	GENVISIT+8*
APCDALVR("APCDAUTO"	GENVISIT+8*
APCDALVR("APCDCAT"	GENVISIT+7*
APCDALVR("APCDDATE"	GENVISIT+3*
APCDALVR("APCDLOC"	GENVISIT+6*
APCDALVR("APCDOLOC"	GENVISIT+9*
APCDALVR("APCDPAT"	GENVISIT+5*, GENVISIT+12
APCDALVR("APCDTYPE"	GENVISIT+4*
APCDALVR("APCDVSIT"	GENVISIT+12
APCDALVR("AUPNTALK"	GENVISIT+2*
APCDANE	EXIT+1!
APCDLOOK	EXIT+1!
APCDPAT	EXIT+1!, GENVISIT+12*
APCDVSIT	EXIT+1!, GENVISIT+12*, GENVMED+4
APSPDATE	PROCESS+2, EXIT+2!, GETDATE+1, GETDATE+5, GENVISIT+3
APSPDIEN	BEGIN+7, EXIT+2!, GETDRUG+1, GETDRUG+7, NODRUG+5*, GENVMED+1
>> APSPDOL	INIT+6, GENVISIT+6
APSPDRUG	EXIT+2!, GETDRUG+1, GETDRUG+5, GETDRUG+7, NODRUG+6, NODRUG+8, NODRUG+9*
APSPOIEN	EXIT+2!, INIT+2*, NODRUG+5
APSPOL	PROCESS+4, EXIT+2!, GETOL+1, GETOL+3, GENVISIT+9
APSPQUIT	BEGIN+2, BEGIN+7, PROCESS+6, EXIT+2!, INIT+1, INIT+2, INIT+6, NODRUG+3, NODRUG+7, GENVISIT+11*
>> AUPNLK("ALL"	EXIT+3!
AUPNTALK	EXIT+3!
D	EXIT+4!
D0	EXIT+4!
DA	EXIT+4!, GETOL+2!, GETDRUG+7!, GENVMED+4*
DD	EXIT+4!, GETDRUG+2!, NODRUG+6!
DDH	EXIT+4!
DFN	BEGIN+4, EXIT+1!, GENVISIT+5, GENVISIT+12, GETPAT+2, GETPAT+5
DI	EXIT+4!
DIC	EXIT+4!, GETDRUG+5!, GETPAT+3!
DIC("A"	GETPAT+3*
DIC(0	GETDRUG+5, GETPAT+3
DIE	EXIT+4!, GENVMED+4*
DIR	EXIT+4!, GETDATE+1!, GETOL+2!, GETDRUG+2!, GETDRUG+7!, NODRUG+2!, NODRUG+6!
DIR("A"	GETDATE+1, GETOL+2, GETDRUG+2, NODRUG+2, NODRUG+6*
DIR("B"	NODRUG+2, NODRUG+6
DIR(0	GETDATE+1, GETOL+2, GETDRUG+2, NODRUG+2, NODRUG+6*
DIRUT	EXIT+4!, GETDATE+1, GETDATE+2, GETDRUG+2, GETDRUG+4, GETDRUG+7!, NODRUG+2, NODRUG+3, NODRUG+6, NODRUG+7
DIV	EXIT+4!
DIW	EXIT+4!
DQ	EXIT+4!
DR	EXIT+4!, GENVMED+4*
DT	GETDATE+1, GETDATE+4
DTOUT	EXIT+4!, GETDRUG+2, GETDRUG+7!, NODRUG+6
DUOUT	EXIT+4!, GETDATE+1, GETDRUG+7!, NODRUG+2
I	EXIT+4!
IOF	HDR+1
J	HDR+2*, HDR+3!
>> PSODFN	GETPAT+7*
>> PSOPAR	INIT+4
>> PSORX("DFLG"	BEGIN+7!
X	HDR+2, HDR+3!, BEGIN+7, EXIT+4!, GETDATE+4!, GETDRUG+5*
Y	EXIT+4!, GETDATE+3, GETDATE+4, GETDATE+5, GETOL+3, GETDRUG+3, GETDRUG+5, GETDRUG+6, GETDRUG+7, NODRUG+4 , NODRUG+8, GENVISIT+12*, GENVMED+5, GETPAT+4, GETPAT+5, GETPAT+7

Marked Items

Name	Field # of Occurrence
$T(TEXT+J	HDR+2

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPORXA

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items