Routine: RMPRELG2

Information

RMPRELG2 ;Hines IOFO/RFM,DDA - DISPLAY ELIGIBILITY SECOND PAGE ;3/26/07 07:39

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Prosthetics	3	EXIT^RMPRELG1 ^RMPRFO2 DIV4^RMPRSIT
Registration	1	(IN5,SDA,SDE)^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	RMPRELG1

Entry Points

Name	Comments	DBIA/ICR reference
CLI
WRI
APP
VIEW
WRI2
EXIT

Name	Field # of Occurrence
EXIT^RMPRELG1	EXIT
^RMPRFO2	VIEW
DIV4^RMPRSIT	VIEW
IN5^VADPT	RMPRELG2+6
SDA^VADPT	RMPRELG2+6
SDE^VADPT	RMPRELG2+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: RMPRELG2+6
Function Call: WRITE	Prompt: $E(RMPRNAM,1,20),?23,"SSN: ",$P(VADM(2),U,2),?42,"DOB: ",$P(VADM(3),U,2),?61,"CLAIM# ",RMPRCNUM Line Location: RMPRELG2+7
Function Call: WRITE	Prompt: !!?20,"Last Movement Actions",! Line Location: RMPRELG2+8
Function Call: WRITE	Prompt: !?5,"No Movements Recorded for this Patient",!! Line Location: RMPRELG2+8
Function Call: WRITE	Prompt: "Trans. Type: ",$P(VAIP(2),U,2),?40,"Trans. Type: ",$P(VAIP(13,2),U,2),!,"Date: ",$P(VAIP(3),U,2),?40,"Date: ",$P(VAIP(13,1),U,2),!,"Type of Movement: ",?40,"Type of Movement: ",!,$P(VAIP(4),U,2),?40,$P(VAIP(13,3),U,2) Line Location: RMPRELG2+9
Function Call: WRITE	Prompt: !,"Ward: ",$P(VAIP(5),U,2),?40,"Ward: ",$P(VAIP(13,4),U,2),!,"Physician: ",$E($P(VAIP(7),U,2),1,25),?40,"Physician: ",$E($P(VAIP(13,5),U,2),1,25) Line Location: RMPRELG2+10
Function Call: WRITE	Prompt: !,"Diagnosis: ",$E(VAIP(9),1,28),?40,"Diagnosis: ",$E(VAIP(9),1,28) Line Location: RMPRELG2+11
Function Call: WRITE	Prompt: !!?5,"No Clinic Enrollments for this Patient" Line Location: CLI+0
Function Call: WRITE	Prompt: !,$P(^UTILITY("VAEN",$J,RO,"E"),U,1),?40,$P(^UTILITY("VAEN",$J,RO,"E"),U,2),?63,$P(^UTILITY("VAEN",$J,RO,"E"),U,3) Line Location: WRI+0
Function Call: WRITE	Prompt: !!?5,"Fatal RSA error. See SDAM RSA ERROR LOG file." Line Location: APP+1
Function Call: WRITE	Prompt: !!?5,"No Pending Appointments for this Patient" Line Location: APP+2
Function Call: WRITE	Prompt: !,$P(^UTILITY("VASD",$J,RO,"E"),U,1),?20,$E($P(^UTILITY("VASD",$J,RO,"E"),U,2),1,29),?50,$P(^UTILITY("VASD",$J,RO,"E"),U,3),?60,$P(^UTILITY("VASD",$J,RO,"E"),U,4) Line Location: WRI2+1
Function Call: WRITE	Prompt: ! Line Location: EXIT+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY("VAEN"	CLI, CLI+1, WRI, EXIT!
^UTILITY("VASD"	APP, APP+4, WRI2+1, EXIT!

Label References

Name	Line Occurrences
APP	CLI, CLI+2
CLI	RMPRELG2+8
EXIT	VIEW+1
VIEW	APP
WRI	CLI+1
WRI2	APP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	VIEW
>> FL	EXIT*
>> I	CLI+1, APP+4
IOF	RMPRELG2+6
>> RMPRCNUM	RMPRELG2+7
>> RMPRCOMB	VIEW*
RMPRFF	EXIT!
RMPRFLG	WRI*, EXIT!
RMPRFLL	WRI2*, EXIT!
RMPRIN	EXIT!
>> RMPRNAM	RMPRELG2+7
RMPRSDER	RMPRELG2+6*, APP, APP+1, EXIT!
>> RNSK	VIEW*
RO	CLI+1, WRI, APP+4, WRI2+1, EXIT!
RVA	EXIT!
U	RMPRELG2+7, RMPRELG2+9, RMPRELG2+10, WRI, WRI2+1
>> VADM(2	RMPRELG2+7
>> VADM(3	RMPRELG2+7
VAERR	RMPRELG2+6!
VAIP	EXIT!
VAIP("D"	RMPRELG2+6*
VAIP(1	RMPRELG2+8
VAIP(13	RMPRELG2+9, RMPRELG2+10
VAIP(2	RMPRELG2+9
VAIP(3	RMPRELG2+9
VAIP(4	RMPRELG2+9
VAIP(5	RMPRELG2+10
VAIP(7	RMPRELG2+10
VAIP(9	RMPRELG2+11
VASD	EXIT!

Customize PDF page

Package: Prosthetics