Routine: RMPORIP

Package	Total	Call Graph
VA FileMan	4	NOW^%DTC $$EXTERNAL^DILFD 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-HOINACTIVE

Entry Points

Name	Comments	DBIA/ICR reference
SITE	; Initialize site variables
FROM	; Ask starting date/oldest inactive date
TO	; Ask ending/newest inactivation date
LI	; List the sought patients
EXIT
DATE(FMD)	;
EDT	;*** INACTIVATION DATE
IREA	;*** INACTIVE REASON
RPTHDR	;*** REPORT HEADER
SDT	;*** GET START DATE (USE INITIAL OXYGEN RX DATE)
SSN	;*** GET SSN
DIOEND	;TOTAL PRINT

External References

Name	Field # of Occurrence
NOW^%DTC	LI+3
$$EXTERNAL^DILFD	IREA+3
EN1^DIP	LI+13
^DIR	FROM+5, TO+5, LI+14
HOSITE^RMPOUTL0	SITE+1
^VADPT	SSN+2
KILL^XUSCLEAN	EXIT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ("_Y(0)_")" Line Location: FROM+6
Function Call: WRITE	Prompt: " ("_Y(0)_")",! Line Location: TO+6
Function Call: WRITE	Prompt: !,"Ending date must NOT be earlier than "_FDT_".",! Line Location: TO+9
Function Call: WRITE	Prompt: RPTDT,?(40-($L(RA)/2)),RA,?68,"Page: "_PAGE Line Location: RPTHDR+2
Function Call: WRITE	Prompt: !?5,"Inactive Home Oxygen Patients",?50,"'*' denotes deceased patient",! Line Location: RPTHDR+3
Function Call: WRITE	Prompt: !?13,"Date Range: ",FDT," to ",TDT,! Line Location: RPTHDR+4
Function Call: WRITE	Prompt: !,"Patient",?21,"SSN",?28,"Active",?40,"Inactive",?51,"Inactive Reason" Line Location: RPTHDR+5
Function Call: WRITE	Prompt: !,"===================",?21,"====",?27,"==========",?39,"========== ========================",! Line Location: RPTHDR+6
Function Call: WRITE	Prompt: !!,?47,"Total Patients: ",COUNT Line Location: DIOEND+2
Function Call: WRITE	Prompt: !,?38,"Total Deceased Patients: ",RMPODCNT Line Location: DIOEND+4
Routine Call	DIR Line Location: FROM+5 TO+5 LI+14

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	LI+3
^DPT - [#2]	SSN+1
^RMPR(665 - [#665]	EDT+1, IREA+1, IREA+2, SDT+1
^TMP($J	EXIT!

Label References

Name	Line Occurrences
$$DATE	LI+7, EDT+1, SDT+1
EXIT	FROM+5, TO+5
FROM	TO+5
TO	TO+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LI+3
>> BY	LI+6*
>> COUNT	LI+1, SSN+4, DIOEND+1*, DIOEND+2
>> D0	EDT+1, IREA+1, IREA+2, SDT+1, SSN+1, SSN+2
DA	LI+1!
DASH	LI+1!, LI+2*
>> DFN	SSN+2*
>> DHD	LI+9*
>> DIC	LI+6*
>> DIOEND	LI+10*
DIR	FROM+1!, TO+1!, LI+14!
DIR("?"	FROM+4, TO+4
DIR("A"	FROM+2, TO+2
DIR("B"	FROM+3, TO+3
DIR(0	FROM+1, TO+1, LI+14*
>> DIS(0	LI+8*
>> DTOUT	FROM+5, TO+5
>> DUOUT	FROM+5, TO+5
>> FDT	FROM+7*, TO+9, RPTHDR+4
>> FLDS	LI+11*
>> FLDS(2	LI+12*
FMD	DATE~, DATE+1
>> FR	LI+7*
>> FRMDT	FROM+7*, TO+8, LI+7
>> L	LI+1*
>> PAGE	LI+1, RPTHDR+1, RPTHDR+2
RA	RPTHDR+1~*, RPTHDR+2
>> RMEND	LI+1*, LI+14
RMMSG	IREA+2~
>> RMPO("NAME"	RPTHDR+1
>> RMPODCNT	SITE+2, SSN+1, SSN+4, DIOEND+3, DIOEND+4
>> RMPOEXP	SSN+1*, SSN+4
>> RMPORPT	LI+1*, LI+14
>> RMPOXITE	SITE+1
RMPR	EXIT~
RMPRSITE	EXIT~
>> RPTDT	LI+4*, RPTHDR+2
>> TDT	TO+10*, RPTHDR+4
>> TO	LI+7*
>> TODT	TO+10*, LI+7
U	EDT+1, IREA+2, SDT+1
VA	SSN+1!
VA("PID"	SSN+3
VADM	SSN+1!
>> X	EDT+1, IREA+2, IREA+3, IREA+4, SDT+1, SSN+3, SSN+4*
>> Y	FROM+7, TO+8, TO+10, LI+3*, LI+4
>> Y(0	FROM+6, FROM+7, TO+6, TO+10

Customize PDF page

Package: Prosthetics

Routine: RMPORIP

Information

Source Information

Call Graph

Call Graph Total: 7

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: