Routine: RMPRPAT0

Information

RMPRPAT0 ;Hines IOFO/RFM,DDA - PATIENT INQUIRY SCREEN FROM MAS ;3/26/07 07:47

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Prosthetics	2	^RMPRFO2 ASK2^RMPRPAT
VA FileMan	2	YN^DICN ^DIR
Registration	1	(DEM,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: 2

Package	Total	Caller Graph
Prosthetics	1	RMPRPAT
Prosthetics Vision 4 Sight II	1	RMPV0RMPRPAT

Entry Points

Name	Comments	DBIA/ICR reference
CLI
WRI
APP
WRI2
APPA
EXIT
DIRT

Name	Field # of Occurrence
YN^DICN	WRI, APPA
^DIR	DIRT
^RMPRFO2	APP, APP+5
ASK2^RMPRPAT	EXIT
DEM^VADPT	RMPRPAT0+7
IN5^VADPT	RMPRPAT0+7
SDA^VADPT	RMPRPAT0+7
SDE^VADPT	RMPRPAT0+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: RMPRPAT0+7
Function Call: WRITE	Prompt: !,$E(RMPRNAM,1,20),?23,"SSN: ",$P(VADM(2),U,2),?42 Line Location: RMPRPAT0+8
Function Call: WRITE	Prompt: "DOB: ",$P(VADM(3),U,2),?61,"CLAIM# ",$G(RMPRCNUM) Line Location: RMPRPAT0+9
Function Call: WRITE	Prompt: !!?20,"Last Movement Actions",! Line Location: RMPRPAT0+10
Function Call: WRITE	Prompt: !?5,"No Movements Recorded for this Patient",!! Line Location: RMPRPAT0+10
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: RMPRPAT0+11
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: RMPRPAT0+12
Function Call: WRITE	Prompt: !,"Diagnosis: ",$E(VAIP(9),1,28),?40,"Diagnosis: ",$E(VAIP(9),1,28) Line Location: RMPRPAT0+13
Function Call: WRITE	Prompt: !!?5,"No Clinic Enrollments for this Patient" Line Location: CLI+0
Function Call: WRITE	Prompt: !,"Would you like to see more clinics" Line Location: WRI+0
Function Call: WRITE	Prompt: !,"Enter `YES` or `NO`" Line Location: WRI+1
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+2
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: !,"Would you like to see more appointments" Line Location: APPA+0
Function Call: WRITE	Prompt: !,"Answer `YES` or `NO`" Line Location: APPA+1
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: APPA+2
Function Call: WRITE	Prompt: ! Line Location: EXIT+0
Routine Call	DIR Line Location: DIRT

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
APP	CLI, CLI+2
APPA	APPA+1
CLI	RMPRPAT0+10
DIRT	APP, APP+5
EXIT	APP, APP+6, DIRT
WRI	CLI+1, WRI+1
WRI2	APP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	WRI, WRI+1, APPA, APPA+1
>> DFN	RMPRPAT0+7*
DIR	DIRT~
DIR(0	DIRT*
>> DTOUT	APPA
>> I	CLI+1, WRI, WRI+1, APP+4, APPA, APPA+1
IOF	RMPRPAT0+7
KILL	CLI+1, WRI, APP+4!, APPA, EXIT!
>> RMPRCNUM	RMPRPAT0+9
>> RMPRCOMB	APP, APP+5
>> RMPRDFN	RMPRPAT0+7
RMPRFLG	WRI+2*, EXIT!
RMPRFLL	WRI2*, EXIT!
>> RMPRNAM	RMPRPAT0+8
RMPRQUES	RMPRPAT0+7!
RMPRSDER	RMPRPAT0+7*, APP, APP+1, EXIT!
RO	CLI+1, WRI+2, APP+4, APPA+2, EXIT!
U	RMPRPAT0+8, RMPRPAT0+9, RMPRPAT0+11, RMPRPAT0+12, WRI+2, APPA+2
>> VADM(2	RMPRPAT0+8
>> VADM(3	RMPRPAT0+9
VAERR	RMPRPAT0+7!
VAHOW	RMPRPAT0+6~
VAIP	EXIT!
VAIP("D"	RMPRPAT0+7*
VAIP(1	RMPRPAT0+10
VAIP(13	RMPRPAT0+11, RMPRPAT0+12
VAIP(2	RMPRPAT0+11
VAIP(3	RMPRPAT0+11
VAIP(4	RMPRPAT0+11
VAIP(5	RMPRPAT0+12
VAIP(7	RMPRPAT0+12
VAIP(9	RMPRPAT0+13
VASD	EXIT!
>> Y	DIRT

Customize PDF page

Package: Prosthetics