Routine: PSOPOLY

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	3	^%DT DT^DIQ ^DIR
Outpatient Pharmacy	2	EN^PSOHLUP EN^PSOPATLK
Registration	1	(KVA,PID)^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOPOLY

Entry Points

External References

Name	Field # of Occurrence
^%DT	CON+1
^%ZIS	DEV
^%ZISC	END
^%ZTLOAD	DEV+2
DT^DIQ	PRI+8
^DIR	PSOPOLY+9, PSOPOLY+12
EN^PSOHLUP	PAT+2, ALLP+1
EN^PSOPATLK	PAT+1
KVA^VADPT	END
PID^VADPT	ENQ, ALLP+1
$$FMTE^XLFDT	NVA+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: PAT+0
Function Call: WRITE	Prompt: ! Line Location: PRI+1
Function Call: WRITE	Prompt: "-" Line Location: PRI+1
Function Call: WRITE	Prompt: ?77 Line Location: PRI+8
Function Call: WRITE	Prompt: ?92,$E(PROV,1,25),?121,$P(^PSRX(RNX,0),"^") Line Location: PRI+8
Function Call: WRITE	Prompt: !!,"Total Number of Patients: "_TOTP,?40,"Total Number of Rxs: "_TOTRX,?80,"Average Rxs per Patient: "_(TOTRX\TOTP) Line Location: PRI+10
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: ! Line Location: ALL+1
Function Call: WRITE	Prompt: !?20,">>>> No Active Prescriptions and/or Non-VA Meds found within the Range <<<<" Line Location: NRX+1
Function Call: WRITE	Prompt: @IOF Line Location: NRX+1
Function Call: WRITE	Prompt: !!,$C(7),"Enter numeric value greater than zero.",!,"The value must a whole number, no decimals or fractions.",!! Line Location: HLP+1
Function Call: WRITE	Prompt: !!,$C(7),"Enter a numeric value greater than zero.",!,"The number seven (7) is the default, no decimals or fractions.",!,"The count will include both Active Prescriptions and Non-VA Medications.",!! Line Location: HLP1+0
Function Call: WRITE	Prompt: $C(7),!!,"Printout Must be 132 Columns.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: @IOF,?55,"Poly Pharmacy Report",!?50,$E(SDT,4,5)_"-"_$E(SDT,6,7)_"-"_($E(SDT,1,3)+1700)_" to "_$E(EDT,4,5)_"-"_$E(EDT,6,7)_"-"_($E(EDT,1,3)+1700) Line Location: HDR+1
Function Call: WRITE	Prompt: !?37," for "_DAYS_" Days for "_RX_" or More Active Prescriptions and/or Non-VA Meds" Line Location: HDR+2
Function Call: WRITE	Prompt: ?122,"Page "_PG,!,"Patient",?40,"ID#",?62,"Active Rx's",!,?2,"Class",?22,"Drug",?65,"Status",?77,"Last Filled",?92,"Provider",?121,"Rx Number" Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+4
Function Call: WRITE	Prompt: "-" Line Location: HDR+4
Function Call: WRITE	Prompt: !!,TITLE Line Location: NVA+5
Function Call: WRITE	Prompt: !,DFN_" ("_VA("BID")_")",?40,"Total Outside Meds: "_$P(^TMP($J,DFN,CLASS),"^",2) Line Location: NVA+6
Function Call: WRITE	Prompt: !!,TITLE,!,$P(^DPT(PSODFN,0),"^")_" ("_VA("BID")_")" Line Location: NVA+10
Routine Call	DIR Line Location: PSOPOLY+9 PSOPOLY+12
Routine Call	%ZIS Line Location: DEV

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	A+2, A+3, NRX+1, NVA+10
^PS(50.606 - [#50.606]	NVA+11
^PS(50.7 - [#50.7]	NVA+11
^PS(55 - [#55]	PAT+2, ENQ, BEG+1, BEG+3, ALLP+1, NVA+1, NVA+7, NVA+8, NVA+9
^PSDRUG - [#50]	BEG+2, BEG+5, NVA+11
^PSRX - [#52]	BEG+1, BEG+2, BEG+4, A+1, A+2, PRI+8
^TMP($J	PSOPOLY+8!, A+2, A+3, A+5, PRI+1, PRI+2, PRI+3, PRI+4, PRI+5, PRI+9* , END!, ALLP+2, NVA+6
^VA(200 - [#200]	PRI+8

Label References

Name	Line Occurrences
ALL	PAT+1
BEG	ALLP+1
CON	ENQ, ALLP
DEV	PAT+2, ALL+1, DEV+1
END	PSOPOLY+9, PSOPOLY+12, PAT+1, PAT+2, A+6, ALL+1, ALLP+3, NRX+1
HDR	PRI, PRI+6, NRX+1, NVA+5, NVA+10
NRX	ENQ, A+5, ALLP+2
NVA	A+6, PRI+1, PRI+3
PRI	A+6, ALLP+3

Naked Globals

Name	Field # of Occurrence
^(	PRI+5
^(0	BEG+4, BEG+5, NVA+11
^(2	BEG+4
^(3	BEG+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	END!, CON+1*
%ZIS	DEV!*
%ZIS("B"	DEV*
ALL	PAT+2, A+5, A+6, PRI+1, PRI+10, END!, ALL+1, ALLP+1*, NRX+1, DEV+3
CLASS	BEG+5, A+2, A+3, A+4!, PRI+1, PRI+2, PRI+3, PRI+4, PRI+5, PRI+7 , PRI+8, END!, NVA+6
DAYS	PSOPOLY+9*, END!, CON+1, HDR+2
DFN	PAT+1, PAT+2, ENQ, BEG+1, BEG+2, BEG+3, BEG+4, BEG+5, A+2, A+3 , A+4, PRI, PRI+1, PRI+2, PRI+3, PRI+4, PRI+5, PRI+7, PRI+8, PRI+9 , END!, ALLP+1*, NRX+1, NVA+6
DIC	END!
DIC("A"	PAT*
DIC(0	PAT+1*
DIR	PSOPOLY+8!, PSOPOLY+9!, PSOPOLY+12!, END!
DIR("?"	PSOPOLY+9, PSOPOLY+12
DIR("A"	PSOPOLY+9, PSOPOLY+12
DIR("B"	PSOPOLY+9, PSOPOLY+12
DIR(0	PSOPOLY+9, PSOPOLY+12
DIROUT	END!
DIRUT	PSOPOLY+9, PSOPOLY+12, END!
DOI	NVA+11*, NVA+12, NVA+15!
DRUG	BEG+5, A+2, PRI+4, PRI+5, PRI+8, END!
DTOUT	END!
DUOUT	END!
DUPRX0	NVA+9*, NVA+11, NVA+12, NVA+13, NVA+14, NVA+15!
EDT	END!, CON+1*, HDR+1
FILLDATE	A+1, A+2, PRI+4, PRI+5, END!
G	END!, DEV+3*
I	PRI+1, END!, HDR+4, NVA+3, NVA+4
IO	PRI+10, NRX+1, HDR+1
IO("Q"	DEV+2!
IOF	NRX+1, HDR+1
IOM	DEV+1, NVA+3
ION	DEV
IOP	DEV!*
IOSL	PRI+6, NVA+5, NVA+10
J	BEG+1*, BEG+2, END!
NVA	BEG+3~*, NVA+15!
>> NVAO	NVA+7*, NVA+8, NVA+9
P	BEG+1, BEG+4, BEG+5, A+1, A+2, END!
PAT	END+1!
PG	PSOPOLY+8, PRI, END!, HDR+1*, HDR+3
POLY	PRI+5*, PRI+7, PRI+8, END!
POP	END!, DEV
PROV	PRI+8*, END!
PSDATE	ENQ, BEG, BEG+1, END!, CON+1*
PSDATEX	BEG, END!, CON+1*
PSODFN	PAT+1, ENQ, PRI+3, PRI+5*, END+1!, NVA+1, NVA+7, NVA+8, NVA+9, NVA+10
PSOION	DEV*!, DEV+2!
>> PSOPTLK	PAT+1
PSOSTA	NVA+2*, NVA+3, NVA+4, NVA+15!
PSOTRUE	A+6, PRI+1!, PRI+3*
QP	PAT+2, END!, ALL+1, DEV*
RNX	PRI+5*, PRI+8, END!
RX	PSOPOLY+12*, BEG+4, A+3, END!, HDR+2
RX(	BEG+2*, BEG+4, BEG+5, A+4!
RX0	BEG+4*, BEG+5, A+2, END!
RX2	BEG+4*, END!
RX3	BEG+4*, A+2, END!
RXS	BEG, BEG+2, BEG+3, BEG+4, A+2, A+3, A+4, END!, CON+1*
SDT	END!, CON+1*, HDR+1
STA	BEG+5*, A, END!
STAT	A*, END!
STATUS	A*, A+2, END!
STP	NVA+3*, NVA+4, NVA+15!
STR	NVA+3*, NVA+15!
TITLE	NVA+1~, NVA+3, NVA+4, NVA+5, NVA+10, NVA+15!
TOTP	PRI+9, PRI+10, END+1!, ALL+1
TOTRX	PRI+9, PRI+10, END+1!, ALL+1
>> VA("BID"	A+2, NRX+1, NVA+6, NVA+10
X	END!, CON+1*
Y	PSOPOLY+9, PSOPOLY+12, PAT+1, PRI+8, END!, CON+1
Z0	END!
Z1	END!
Z2	END!
ZCLASS	PRI+1, PRI+7, PRI+8, END!
ZDFN	PRI, PRI+7, PRI+8, END!
>> ZTDESC	DEV+3*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	DEV+3*
>> ZTSAVE(	DEV+3*
ZTSK	PAT+2, END!, ALL+1, DEV!, DEV+2

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOPOLY

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A
ALL	;print all patients
END
HDR	;report header
HLP1
PRI
BEG
DEV
HLP	;help module
ENQ
NRX	;prints no rx message
NVA	;displays non-va meds
ALLP
PAT
CON	;convert data to date