Routine: APSPORXF

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIR
IHS Changes To Pharmacy	1	GETPAT^APSPORXA
IHS Patient	1	KILL^AUPNPAT
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	$$START1^APCLDF

Package

Total

Call Graph

VA Fileman

DD^%DT ^DIR

IHS Changes To Pharmacy

GETPAT^APSPORXA

IHS Patient

KILL^AUPNPAT

Kernel

$$FMTE^XLFDT

Patient Care Component Reports

$$START1^APCLDF

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
HEAD	;write header
MEDS(DFN,APSPA,APSPBD,APSPED,APSPSC,APSPVT)	;EP - GET MEDS IN DATE RANGE FOR A PATIENT, SCREEN OPTIONALLY ON SERV CAT OR TYPE
HEAD1	;
ED	;get ending date
GETPAT	;
START	;EP called from option to display all outside Rx/s
GETDATES	;
EXIT	;
GETMEDS	; get vmeds to display
PAUSE	;

Name	Field # of Occurrence
DD^%DT	ED+1, HEAD1+1
$$START1^APCLDF	MEDS+15
GETPAT^APSPORXA	GETPAT+1
KILL^AUPNPAT	EXIT+3
^DIR	BD+1, ED+1, PAUSE+1, HEAD+2
$$FMTE^XLFDT	GETMEDS+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?18,"DISPLAY OUTSIDE RX's",!! Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Error occurred when attempting to find outside Rx's!! Notify supervisor" Line Location: GETMEDS+3
Function Call: WRITE	Prompt: !!,$C(7),"No Outside Rx's on file for ",$P(^DPT(DFN,0),U),!,"in that time period",! Line Location: GETMEDS+4
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HEAD1+1
Function Call: WRITE	Prompt: !,"Outside Rx's for ",$P(^DPT(DFN,0),U)," from ",! Line Location: HEAD1+1
Function Call: WRITE	Prompt: Y Line Location: HEAD1+1
Function Call: WRITE	Prompt: Y Line Location: HEAD1+1
Routine Call	DIR Line Location: BD+1 ED+1 PAUSE+1 HEAD+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVMED - [#9000010.14]	MEDS+22, MEDS+26
^AUPNVSIT - [#9000010]	MEDS+19, MEDS+25
^DPT - [#2]	MEDS+4, GETMEDS+4, HEAD1+1

Name	Line Occurrences
$$MEDS	GETMEDS+2
BD	ED+2
EXIT	GETPAT+2, GETMEDS+3, GETMEDS+16
GETPAT	BD+2, GETMEDS+4
HEAD	GETMEDS+5, GETMEDS+7
HEAD1	HEAD+1
PAUSE	GETMEDS+3, GETMEDS+4, GETMEDS+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EXIT+2!
>> A	MEDS+23*, MEDS+24, MEDS+25, MEDS+26
APSPA	MEDS~, MEDS+5, MEDS+23
APSPBD	MEDS~, MEDS+11, BD+3*, ED+1, GETMEDS+2, HEAD1+1, EXIT+1!
APSPC	MEDS+1~, MEDS+18*
APSPDAT	MEDS+1~, MEDS+17
APSPDAT(	MEDS+18, MEDS+19, MEDS+22, MEDS+23
APSPDFE	MEDS+1~, MEDS+15*, MEDS+16
APSPED	MEDS~, MEDS+10, MEDS+11, ED+3, GETMEDS+2, HEAD1+1, EXIT+1!
APSPER	MEDS+1~, MEDS+2, MEDS+3, MEDS+4, MEDS+5, MEDS+16*, MEDS+17, MEDS+28, EXIT+1!
APSPERR	GETMEDS+2*, GETMEDS+3, EXIT+1!
APSPI	MEDS+1~, MEDS+22*, MEDS+23, MEDS+26
APSPORX	GETMEDS+4, EXIT+1!
APSPORX(	GETMEDS+6
APSPPG	GETMEDS+5, HEAD+1, HEAD1+2, EXIT+1!
APSPQUIT	GETMEDS+1!, GETMEDS+6, GETMEDS+7, GETMEDS+15, HEAD+2*, EXIT+1!
APSPR	MEDS+1~, MEDS+22*, MEDS+23, MEDS+24
APSPSC	MEDS~, MEDS+6*, MEDS+20
APSPV	MEDS+1~, MEDS+19*, MEDS+23, MEDS+25
APSPVR	MEDS+1~, MEDS+19*, MEDS+20, MEDS+21
APSPVT	MEDS~, MEDS+7*, MEDS+21
APSPX	MEDS+1~, MEDS+9, MEDS+11, MEDS+15, MEDS+18*, MEDS+19, MEDS+22, MEDS+23
APSPY	GETMEDS+6*, GETMEDS+9, EXIT+1!
DFN	MEDS~, MEDS+3, MEDS+4, MEDS+9, GETPAT+2, GETMEDS+2, GETMEDS+4, HEAD1+1
DIR	BD+1!, ED+1!, PAUSE+1!, HEAD+2!, EXIT+2!
DIR("A"	BD+1, ED+1, GETMEDS+15*
DIR("B"	ED+1*
DIR(0	BD+1, ED+1, PAUSE+1, HEAD+2
>> DIRUT	BD+1, BD+2, ED+1, ED+2
DT	MEDS+10
>> DTOUT	HEAD+2
>> DUOUT	BD+1, ED+1
IO	HEAD+2
IO(0	HEAD+2
IOF	START+1, HEAD1+1
IOSL	GETMEDS+7
IOST	HEAD+2
U	MEDS+19, MEDS+20, MEDS+21, MEDS+22, MEDS+23, MEDS+24, MEDS+25, MEDS+26, GETMEDS+4, GETMEDS+9 , GETMEDS+10, GETMEDS+11, GETMEDS+12, GETMEDS+13, HEAD1+1
X	MEDS+24, MEDS+26, GETMEDS+6*, GETMEDS+9, GETMEDS+10, GETMEDS+11, GETMEDS+12, GETMEDS+13, EXIT+2!
Y	BD+3, ED+1, ED+3, HEAD+2, HEAD1+1, EXIT+2!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPORXF

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: