Routine: PSOTPRP1

Information

PSOTPRP1 ;BIR/MR - Report of Patients with TPB and Non-TBP Active Rx's ;12/03/03

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
VA FileMan	3	^DIC $$GET1^DIQ ^DIR
Outpatient Pharmacy	1	$$ACTIVE^PSOTPCUL
Registration	1	DEM^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Kernel	1	^DIC(19
Outpatient Pharmacy	1	PSO TPB PATIENT RX REPORT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
PAT	; - Selection of PATIENTS to print on the Report
DEV
END
RPT	;- Print the Report
SORT	;- Sort the Data by Institution,Patient Name
PRINT	;- Read TMP global and Print Report
STMP	;- Set Temporary Global (^TMP)
HDR	; - Prints the Header

External References

Name	Field # of Occurrence
^%ZIS	DEV
^%ZTLOAD	DEV+6
^DIC	EN+14, PAT+6
$$GET1^DIQ	PRINT+14, PRINT+15, STMP+3, STMP+5, STMP+22
^DIR	HDR+4
$$ACTIVE^PSOTPCUL	STMP+19
DEM^VADPT	STMP+8
$$FMTE^XLFDT	HDR+7
$$NOW^XLFDT	HDR+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report prints entries from the TPB ELIGIBILITY file (#52.91)." Line Location: EN+5
Function Call: WRITE	Prompt: !,"If multiple Institutions are selected, and some Institutions have data and" Line Location: EN+6
Function Call: WRITE	Prompt: !,"some don't, only those Institutions that have data will print on the report.",! Line Location: EN+7
Function Call: WRITE	Prompt: !,?5,"You may select a single or multiple INSTITUTIONS," Line Location: EN+11
Function Call: WRITE	Prompt: !,?5,"or enter ^ALL to select all INSTITUTIONS.",! Line Location: EN+12
Function Call: WRITE	Prompt: !!,?5,"You may select a single or multiple PATIENTS," Line Location: PAT+2
Function Call: WRITE	Prompt: !,?5,"or enter ^ALL to select all PATIENTS.",! Line Location: PAT+3
Function Call: WRITE	Prompt: ! Line Location: DEV+0
Function Call: WRITE	Prompt: !!?30,"* NO DATA TO PRINT *" Line Location: PRINT+3
Function Call: WRITE	Prompt: !,PAT Line Location: PRINT+10
Function Call: WRITE	Prompt: !,PAT Line Location: PRINT+13
Function Call: WRITE	Prompt: ?$S(TYPE=0:30,1:42),RXEXT,?54,$E(OINAM,1,26),! Line Location: PRINT+16
Function Call: WRITE	Prompt: !,"TOTAL ",INS,": ",PATCNT," Patient(s) ",VARXCNT," VA Prescriptions" Line Location: PRINT+20
Function Call: WRITE	Prompt: TPBRXCNT," TPB Prescriptions." Line Location: PRINT+21
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: @IOF,!,"REPORT OF PATIENTS WITH TPB AND NON-TBP RX's ON FILE",?70,"Page: ",$J(PAG,3) Line Location: HDR+6
Function Call: WRITE	Prompt: !,?48,"Run Date: "_$$FMTE^XLFDT($$NOW^XLFDT()) Line Location: HDR+7
Function Call: WRITE	Prompt: !,X Line Location: HDR+9
Function Call: WRITE	Prompt: !,"PATIENT (LAST4SSN)",?30,"VA RX#",?42,"TPB RX#",?54,"DRUG" Line Location: HDR+10
Function Call: WRITE	Prompt: !,X Line Location: HDR+11
Routine Call	%ZIS Line Location: DEV
Routine Call	DIC Line Location: EN+14 PAT+6
Routine Call	DIR Line Location: HDR+4

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
^PS(52.91 - [#52.91]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.91 - [#52.91]	SORT+5
^PS(55 - [#55]	STMP+14, STMP+16
^PSRX - [#52]	STMP+16
^TMP("PSOTPB"	END!, SORT+1!, PRINT+2, PRINT+6, PRINT+9, PRINT+11, PRINT+12, STMP+25*, STMP+28!

Label References

Name	Line Occurrences
DEV	PAT+7
END	EN+16, EN+17, PAT+8, PAT+9, DEV, DEV+1, PRINT+2
HDR	PRINT+3, PRINT+7, PRINT+13
PAT	EN+15
PRINT	SORT+4
RPT	DEV+8
STMP	SORT+5, SORT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV!*
DFN	EN+2~, SORT+1, SORT+5, SORT+8*, STMP+3, STMP+14, STMP+16
DIC	EN+10~, EN+13, PAT+1~, PAT+4
DIC("A"	EN+13, PAT+4
DIC("B"	EN+14!, PAT+6!
DIC("S"	PAT+5*
DIC(0	EN+13, PAT+4
DIR	HDR+1~
DIR("A"	HDR+4*
DIR(0	HDR+4*
>> DIRUT	PRINT+6, PRINT+7, PRINT+9, PRINT+11, PRINT+12, PRINT+13, PRINT+19, HDR+2
DRGIEN	EN+2~, PRINT+14*, PRINT+15
>> DTOUT	EN+16, PAT+8
DUOUT	EN+15!, EN+16, PAT+7!, PAT+8
I	EN+10~, PAT+1~
INS	EN+2~, PRINT+5, PRINT+6, PRINT+9, PRINT+11, PRINT+12, PRINT+20, STMP+3*, STMP+4, STMP+5 , HDR+8
INSNAM	EN+2~, STMP+5*, STMP+25, STMP+28
INST	EN+3~, HDR+8
IO("Q"	DEV+1, DEV+2!
IOF	HDR+6
IOP	DEV!
IOSL	PRINT+13, HDR+3
IOST	HDR+2
OINAM	EN+2~, PRINT+15*, PRINT+16
PAG	EN+3~, PRINT+1, HDR+1, HDR+2, HDR+6
PAT	EN+3~, PRINT+5, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13
PATCNT	EN+3~, PRINT+8, PRINT+18, PRINT+20
PATNAM	EN+3~, STMP+8, STMP+10, STMP+25, STMP+28
PATSSN	EN+3~, STMP+9*, STMP+10
POP	EN+2~, DEV!
PSOAINS	EN+3~, EN+10, EN+15, STMP+4
PSOAPT	EN+3~, PAT+1, PAT+7, SORT+4
PSOINS	EN+10!, EN+15!, EN+17, DEV+5
PSOINS(	EN+14*, STMP+4
PSOPAT	EN+3~
PSOPT	PAT+1!, PAT+7!, PAT+9, DEV+5
PSOPT(	PAT+6*, SORT+8
RX	EN+2~, PRINT+5, PRINT+12, PRINT+14, PRINT+15
RXEXT	EN+2~, PRINT+14*, PRINT+16
RXIEN	EN+2~, STMP+16*, STMP+19, STMP+22, STMP+25
SEQ	EN+2~, STMP+13, STMP+14, STMP+16
TPBRXCNT	EN+2~, PRINT+8, PRINT+17, PRINT+21, STMP+13, STMP+23, STMP+28
TYPE	EN+2~, PRINT+5, PRINT+11, PRINT+12, PRINT+16, PRINT+17, STMP+22*, STMP+23, STMP+25
U	STMP+8, STMP+9
VADM	EN+2~
VADM(1	STMP+8
VADM(2	STMP+9
VAR	DEV+2~, DEV+4*
VARXCNT	EN+3~, PRINT+8, PRINT+17, PRINT+20, STMP+13, STMP+23, STMP+28
X	EN+10~, EN+15, PAT+1~, PAT+7, HDR+1~, HDR+9*, HDR+11
Y	EN+3~, EN+14, EN+17, PAT+6, PAT+9
>> ZTDESC	DEV+3*
ZTDTH	DEV+2!
ZTIO	DEV+2!
>> ZTRTN	DEV+2*
ZTSAVE	DEV+2!
ZTSAVE(	DEV+4*
ZTSAVE("PSOINS("	DEV+5*
ZTSAVE("PSOPT("	DEV+5*
ZTSK	DEV!, DEV+2!, DEV+6!

Customize PDF page

Package: Outpatient Pharmacy