Routine: PSONVARP

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Interaction Calls
Label References
Local Variables

Information

PSONVARP ;BHM/MFR - Non-VA Med Usage Report - Input ;04/10/03

Source Information

Source file <PSONVARP.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZTLOAD $$UP^XLFSTR
VA Fileman	3	^%DT ^DIC ^DIR
Outpatient Pharmacy	2	EN^PSONVAR1 EN^PSOPATLK
Registration	1	DEM^VADPT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO NON-VA MEDS USAGE REPORT PSONVAR1

Entry Points

Name	Comments	DBIA/ICR reference
SORT	; - Ask for SORT BY
EN
END
ENDT	; - Ask for TO DATE DOCUMENTED
SRT2	; - Selection of ORDERABLE ITEMS to print on the Report
SRT1	; - Selection of PATIENTS to print on the Report
DEV
SRT4	; - Selection of STATUS to print on the Report
HID	; - Entrhy point from the Hidden Action in the Medication Profile
SRT5	; - Selection of ORDER CHECKS to print on the Report
SORT1
TRNS(X)	; - Translates Alpha into the corresponding Sorting Code
DEAD(DFN,DSPL)	; Check if Patient has a Date Of Death on File
HL1(S)	; - Help for the SORT BY prompt

Name	Field # of Occurrence
^%DT	EN+5, ENDT+2
^%ZIS	DEV
^%ZTLOAD	DEV+7
^DIC	SRT2+5
^DIR	SORT1+2, SRT4+4, SRT5+7
EN^PSONVAR1	DEV+9
EN^PSOPATLK	SRT1+5
DEM^VADPT	DEAD+3
$$UP^XLFSTR	TRNS+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: ENDT+2
Function Call: WRITE	Prompt: ! Line Location: SORT1+2
Function Call: WRITE	Prompt: ! Line Location: SORT1+4
Function Call: WRITE	Prompt: !?(C-10),$S(I=1:"SORT BY ",1:"THEN BY ") Line Location: SORT1+7
Function Call: WRITE	Prompt: X,"???",$C(7) Line Location: SORT1+8
Function Call: WRITE	Prompt: $P("PATIENT NAME^ORDERABLE ITEM^DATE DOCUMENTED^STATUS^ORDER CHECKS","^",X) Line Location: SORT1+9
Function Call: WRITE	Prompt: ! Line Location: DEV+0
Function Call: WRITE	Prompt: !!,?5,"You may select a single or multiple PATIENTS," Line Location: SRT1+2
Function Call: WRITE	Prompt: !,?5,"or enter ^ALL to select all PATIENTS.",! Line Location: SRT1+3
Function Call: WRITE	Prompt: !!,?5,"You may select a single or multiple ORDERABLE ITEMS," Line Location: SRT2+2
Function Call: WRITE	Prompt: !,?5,"or enter ^ALL to select all ORDERABLE ITEMS.",! Line Location: SRT2+3
Function Call: WRITE	Prompt: !!,?5,"You may select (A)CTIVE, (D)ISCONTINUED or (B)OTH status.",! Line Location: SRT4+2
Function Call: WRITE	Prompt: !!,?5,"You may select 'Y' to print ",OP1,"," Line Location: SRT5+4
Function Call: WRITE	Prompt: !?5,"'N' to print ",OP2," or 'B' for BOTH.",! Line Location: SRT5+5
Function Call: WRITE	Prompt: !?10,$P($G(VADM(1)),"^")," (",$P($G(VADM(2)),"^",2),") DIED ",$P($G(VADM(6)),"^",2),$C(7) Line Location: DEAD+4
Routine Call	DIC Line Location: SRT2+5
Routine Call	DIR Line Location: SORT1+2 SRT4+4 SRT5+7
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences
$$DEAD	SRT1+5
$$TRNS	SORT1+6
@(	SORT1+16
DEV	ENDT+6
END	EN+5, ENDT+2, SORT1+2, DEV, DEV+1
HL1	SORT+1, SORT1+1
SORT1	SORT1+11, SORT1+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN+1~, EN+4*
%DT("A"	EN+4, ENDT+1
%DT(0	EN+4, ENDT+1
%ZIS	DEV!*
C	EN+1~, SORT1+4, SORT1+7
DFN	ENDT+7, DEAD~, DEAD+2
DIC	SRT1+1~, SRT2+1~, SRT2+4*
DIC("A"	SRT1+4, SRT2+4
DIC("B"	SRT1+5!, SRT2+5!
DIC(0	SRT1+4, SRT2+4
DIR	SORT+1!, SORT1+2!, SRT4+1~, SRT5+1~
DIR(	HL1+1, HL1+2, HL1+3, HL1+4, HL1+5, HL1+6, HL1+7, HL1+8, HL1+9, HL1+10 , HL1+11, HL1+12, HL1+13, HL1+14, HL1+15*
DIR("A"	SORT1+1, SRT4+4, SRT5+7*
DIR("B"	SORT+1, SORT1+11, SORT1+17, SRT4+4, SRT5+7*
DIR(0	SORT1+1, SRT4+3, SRT5+6*
>> DIRUT	SORT1+2, SRT4+5, SRT5+8
DSPL	DEAD~, DEAD+4
DT	EN+4
>> DTOUT	EN+5, ENDT+2, SRT1+7, SRT2+7
DUOUT	SRT1+6!, SRT1+7, SRT2+6!, SRT2+7
G	DEV+2~, DEV+4, DEV+5
I	EN~, SORT1+5, SORT1+6, SORT1+7, SORT1+15, SORT1+16, SRT1+1~, SRT2+1~, SRT4+1~
IO("Q"	DEV+1, DEV+2!
IOP	DEV!
L	TRNS+1~*, TRNS+2, TRNS+3, TRNS+4, TRNS+5, TRNS+6
OK	EN+1~, SORT1+4, SORT1+8, SORT1+11, SORT1+14, SORT1+15, SORT1+17, SRT1+7, SRT1+8, SRT2+7 , SRT2+8, SRT4+5, SRT5+8*
OP1	SRT5+1~, SRT5+2*, SRT5+4, SRT5+6
OP2	SRT5+1~, SRT5+3*, SRT5+5, SRT5+6
POP	DEV!
PSOAOI	EN~, ENDT+7, SORT1, SRT2+1, SRT2+6
PSOAPT	EN~, ENDT+7, SORT1, SRT1+1, SRT1+6
PSOED	EN~, ENDT+3*
PSOHDFLG	HID+1~*, ENDT+6
PSOOC	EN~, ENDT+7, SORT1, SRT5+1!, SRT5+9*
PSOOI	DEV+6, SRT2+1!, SRT2+6!, SRT2+8
PSOOI(	SRT2+5*
PSOPT	DEV+6, SRT1+1!, SRT1+6!, SRT1+8
PSOPT(	ENDT+7, SRT1+5
PSOPTLK	SRT1+5!
PSOSD	EN~, EN+6*, ENDT+1
PSOSRT	EN~, ENDT+7, SORT1, SORT1+6, SORT1+10, SORT1+12, SORT1+15, SORT1+16
PSOST	EN~, ENDT+7, SORT1, SRT4+1!, SRT4+6*
S	HL1~, HL1+1, HL1+2, HL1+3, HL1+4, HL1+5, HL1+6, HL1+7, HL1+8, HL1+9 , HL1+10, HL1+11, HL1+12, HL1+13, HL1+14, HL1+15
UPX	TRNS+1~*, TRNS+2, TRNS+3, TRNS+4, TRNS+5, TRNS+6
VADM	DEAD+1~
VADM(1	DEAD+4
VADM(2	DEAD+4
VADM(6	DEAD+3, DEAD+4
X	EN+1~, SORT1+6, SORT1+8, SORT1+9, SORT1+10, SORT1+16, SRT1+1~, SRT2+1~, SRT2+6, SRT4+1~ , SRT5+1~, TRNS~, TRNS+1, TRNS+7
Y	EN~, EN+5, EN+6, ENDT+2, ENDT+3, SORT1+5, SORT1+6, SORT1+11, SRT1+5*, SRT1+6 , SRT1+8, SRT2+5, SRT2+8, SRT4+6, SRT5+9, DEAD+1~
>> ZTDESC	DEV+3*
ZTDTH	DEV+2!
ZTIO	DEV+2!
>> ZTRTN	DEV+3*
ZTSAVE	DEV+2!
ZTSAVE(	DEV+4, DEV+5
ZTSAVE("PSOOI("	DEV+6*
ZTSAVE("PSOPT("	DEV+6*
ZTSK	DEV!, DEV+2!, DEV+7!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSONVARP

Call Graph Total: 9

Caller Graph Total: 2