Routine: RMPORLP

Package	Total	Call Graph
VA FileMan	3	NOW^%DTC EN1^DIP ^DIR
Kernel	1	KILL^XUSCLEAN
Prosthetics	1	HOSITE^RMPOUTL0
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: 1

Package	Total	Caller Graph
Prosthetics	1	RMPO-RPT-HOPATIENTLIST

Entry Points

Name	Comments	DBIA/ICR reference
SITE	;Set up site variables.
LI	;List the sought patient. ;DW
EXIT	;
DIOEND	;
CNT	;COUNT NAMES
GET	;Get the primary item. ;DW
SSN	;GET SSN
SDT	;GET START DATE (USE INITIAL OXYGEN RX DATE)
EDT	;Expiration Date of current Rx.
EDTX	;Rx Expiration Date.
RPTHDR	;Report header

External References

Name	Field # of Occurrence
NOW^%DTC	LI+6, EDTX+4
EN1^DIP	LI+13
^DIR	LI+14
HOSITE^RMPOUTL0	SITE+1
^VADPT	SSN+4
KILL^XUSCLEAN	EXIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?47,"Total Patients: ",COUNT Line Location: DIOEND+2
Function Call: WRITE	Prompt: !,?38,"Total Deceased Patients: ",RMPRDCNT Line Location: DIOEND+4
Function Call: WRITE	Prompt: RPTDT,?(40-($L(RA)/2)),RA,?68,"Page: "_PAGE Line Location: RPTHDR+2
Function Call: WRITE	Prompt: !," '*' denotes deceased patient by SSN" Line Location: RPTHDR+3
Function Call: WRITE	Prompt: !?22,"Alphabetical List Home Oxygen Patients",!?68,"Date Current",!?68,"Prescription" Line Location: RPTHDR+4
Function Call: WRITE	Prompt: !,"Patient",?25,"SSN",?29,"Primary Item",?61,"Active",?70,"Expires" Line Location: RPTHDR+5
Function Call: WRITE	Prompt: !,"=======================",?24,"====",?29,"==============================",?60,"======== ==========",! Line Location: RPTHDR+6
Routine Call	DIR Line Location: LI+14

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+6
^DPT - [#2]	SSN+3
^PRC(441 - [#441]	GET+8
^RMPR(661 - [#661]	GET+6
^RMPR(665 - [#665]	GET+2, GET+4, SDT+2, EDT+2, EDT+3, EDT+6, EDTX+6, EDTX+7, EDTX+8
^TMP($J	EXIT+1!

Label References

Name	Line Occurrences
CNT	SSN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LI+6
>> BY	LI+1*
C	EDTX+2~, EDTX+6, EDTX+11
>> COUNT	LI+5, DIOEND+1, DIOEND+2, CNT+1*
D	EDT+1~, EDT+2, EDT+3, EDTX+2~, EDTX+6, EDTX+7
>> D0	GET+2, GET+4, SSN+3, SSN+4, SDT+2, EDT+2, EDT+3, EDT+6, EDTX+6, EDTX+7 , EDTX+8
>> DASH	LI+5*
>> DFN	SSN+4*
>> DHD	LI+8*
>> DIC	LI+1*
>> DIOEND	LI+10*
DIR	LI+14!
DIR(0	LI+14*
>> DIS(0	LI+3*
EDT	EDTX+2~, EDTX+8, EDTX+9
>> FLDS	LI+11*
>> FLDS(2	LI+12*
>> FR	LI+1*
J	EDT+1~, EDT+3, EDTX+2~, EDTX+7, EDTX+8
>> L	LI+1*
>> PAGE	LI+2, RPTHDR+1, RPTHDR+2
RA	GET+1~, GET+2, GET+4, SDT+1~, SDT+2, SDT+3, EDT+1~, EDT+3, EDT+5, EDT+6 , RPTHDR+1~, RPTHDR+2
>> RMEND	LI+5*, LI+14
>> RMPO("NAME"	RPTHDR+1
RMPOEXP	SSN+1~, SSN+2, SSN+3, SSN+5
>> RMPORPT	LI+5*, LI+14
>> RMPOXITE	SITE+1
RMPR	EXIT+2~
>> RMPRDCNT	LI+2, DIOEND+3, DIOEND+4, SSN+3*
RMPRSITE	EXIT+2~
>> RPTDT	LI+7*, RPTHDR+2
RR	GET+1~, GET+4, GET+6, GET+8, GET+9
>> SPACE	LI+5*
TD	EDTX+2~, EDTX+4*
U	GET+2, GET+4, GET+6, SDT+2, EDT+6, EDTX+8
VA	SSN+4!
VA("PID"	SSN+5
VADM	SSN+4!
>> X	CNT+1, GET+1, GET+9, SSN+2, SSN+5, SDT+1, SDT+3, EDT+1, EDT+7, EDTX+2* , EDTX+4, EDTX+9, EDTX+11*
Y	LI+6, LI+7, EDT+1~, EDT+6*, EDT+7

Customize PDF page

Package: Prosthetics

Routine: RMPORLP

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: