Routine: RMPORPT

Package	Total	Call Graph
VA FileMan	3	NOW^%DTC EN1^DIP ^DIR
Prosthetics	2	IT^RMPORPT HOSITE^RMPOUTL0
Kernel	1	KILL^XUSCLEAN
Registration	1	^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
Prosthetics	2	RMPO-RPT-HOPRIITM RMPORPT

Entry Points

Name	Comments	DBIA/ICR reference
SITE	;Set up site variables.
LI	;List the sought patient.
EXIT	;
CNT	;COUNT NAMES
PBREAK	;Print the break of primary items.
SSN	;GET SSN
IT	;Get the primary Item.
QTY	;Get the quntity of the primary item.
UCOST	;Get the unit cost of the primary item.
TCOST	;Calculate the total cost of the primary item.
ZPAGE(RY)
RPTHDR	;Report header.
SORT	;Sort patient by primary item and patient name.
ST

External References

Name	Field # of Occurrence
NOW^%DTC	LI+7
EN1^DIP	LI+15
^DIR	LI+16
IT^RMPORPT	PBREAK+1
HOSITE^RMPOUTL0	SITE+1
^VADPT	SSN+2, ST+3
KILL^XUSCLEAN	EXIT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Primary Item: ",PBREAK,! Line Location: PBREAK+2
Function Call: WRITE	Prompt: RPTDT,?(40-($L(RA)/2)),RA,?72,"Page: "_PAGE Line Location: RPTHDR+2
Function Call: WRITE	Prompt: !?23,"Primary Item Report",! Line Location: RPTHDR+3
Function Call: WRITE	Prompt: !?64,"Unit",?73,"Total" Line Location: RPTHDR+4
Function Call: WRITE	Prompt: !,"Patient",?20,"SSN",?26,"Primary Item",?58,"Qty" Line Location: RPTHDR+5
Function Call: WRITE	Prompt: ?64,"Cost",?74,"Cost" Line Location: RPTHDR+6
Function Call: WRITE	Prompt: !,"=================",?19,"====",?26,"==============================" Line Location: RPTHDR+7
Function Call: WRITE	Prompt: ?58,"===",?64,"======",?73,"======" Line Location: RPTHDR+8
Function Call: WRITE	Prompt: ! Line Location: RPTHDR+9
Routine Call	DIR Line Location: LI+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RMPR(665 - [#665]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	LI+8
^PRC(441 - [#441]	IT+10
^RMPR(661 - [#661]	IT+8
^RMPR(665 - [#665]	IT+2, IT+4, IT+5, IT+6, ST, ST+1, ST+2
^TMP($J	EXIT+3!, ST+4*

Label References

Name	Line Occurrences
CNT	SSN+5
IT	ST+4
SORT	LI+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LI+8
>> BY(0	LI+3*
>> COUNT	LI+6, CNT+1
D0	SSN+2, IT+2, IT+4, IT+5, IT+6, SORT+1~, ST+1*, ST+2, ST+4
>> D2	SORT+3, ST, ST+1
>> DFN	SSN+2, ST+2
>> DHD	LI+9*
>> DIC	LI+2*
>> DIOEND	LI+10*
DIR	LI+16!
DIR(0	LI+16*
>> DIS(0	LI+4*
>> FLDS	LI+12*
>> FLDS(1	LI+13*
>> FR	LI+5*
IOSL	ZPAGE+1
>> L	LI+5*
>> L(0	LI+3*
NBREAK	LI+1~, PBREAK+2
>> PAGE	LI+5, RPTHDR+1, RPTHDR+2
PBREAK	LI+1~, PBREAK+2, IT+12, SORT+1~, SORT+2*
QTY	IT+1, IT+6, QTY+2, TCOST+2, SORT+1~, SORT+2*
RA	IT+1~, IT+2, IT+4, IT+5, IT+6, RPTHDR+1~*, RPTHDR+2
RKO	ZPAGE+2*!
>> RMEND	LI+5*, LI+16
>> RMPO("NAME"	RPTHDR+1
>> RMPORPT	LI+5*, LI+16
>> RMPOXITE	SITE+1
RMPR	EXIT+3~
RMPRSITE	EXIT+3~
>> RNAM	SSN+3*
>> RPTDT	LI+8*, RPTHDR+2
RR	IT+1~, IT+4, IT+8, IT+10, IT+11
RY	ZPAGE~, ZPAGE+1
>> SPACE	LI+6*
U	IT+2, IT+4, IT+5, IT+6, IT+8, ST+2
UCOST	IT+1, IT+5, UCOST+2, TCOST+2, SORT+1~, SORT+2*
VA	SSN+2!
VA("PID"	SSN+3, SSN+4
VADM	SSN+2!, ST+3!
VADM(1	SSN+3, ST+3
X	CNT+1, SSN+1, SSN+4, IT+1, IT+11, IT+12, QTY+1, QTY+2, UCOST+1, UCOST+2 , TCOST+1, TCOST+2, SORT+1~, SORT+2*, ST+4
Y	LI+8, SORT+1~, SORT+2, ST+3*, ST+4

Customize PDF page

Package: Prosthetics

Routine: RMPORPT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

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: