Routine: RADEM2

Information

RADEM2 ;HISC/CAH,FPT,GJC-Display Patient Demographics (short) ;10/20/94 09:18

Package	Total	Call Graph
Radiology Nuclear Medicine	5	ALLERGY^RADEM ^RADEM1 ^RADPA ^RASERV ($$SSN,D)^RAUTL
General Medical Record - Vitals	1	EN6^GMRVUTL
Registration	1	ELIG^VADPT
VA FileMan	1	^%DTC

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
Radiology Nuclear Medicine	2	RADEM RAREG

Entry Points

Name	Comments	DBIA/ICR reference
PAT
DIS
ALER	;
Q
RADFN
VETELI(DFN)	; Is this patient a veteran? Does this patient have a ; primary eligibility code? ; RAELI=Primary Eligibility code <-> RAVET=Veteran (Yes/No)

External References

Name	Field # of Occurrence
^%DTC	PAT
EN6^GMRVUTL	DIS+11
ALLERGY^RADEM	DIS+19
^RADEM1	Q
^RADPA	RADFN
^RASERV	PAT+5
$$SSN^RAUTL	PAT
D^RAUTL	PAT+2, DIS+14
ELIG^VADPT	VETELI+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!," ********* Patient Demographics *********",! Line Location: DIS+0
Function Call: WRITE	Prompt: !?2,"Name : ",$E(RANME,1,20) Line Location: DIS+1
Function Call: WRITE	Prompt: ?37,"Currently is an inpatient." Condition for execution: $D(RAWARD) Line Location: DIS+1
Function Call: WRITE	Prompt: !?2,"Pt ID : ",RASSN Line Location: DIS+2
Function Call: WRITE	Prompt: ?39,"Ward/Service: ",$E(RAWARD_"/"_RASER,1,25) Condition for execution: $D(RAWARD) Line Location: DIS+2
Function Call: WRITE	Prompt: !?2,"Date of Birth: ",RADOB," (",RAGE,")" Line Location: DIS+3
Function Call: WRITE	Prompt: ?39,"Bedsection : ",RABED Condition for execution: $D(RABED) Line Location: DIS+3
Function Call: WRITE	Prompt: !?2,"Veteran : ",RAVET,?39,"Eligibility : ",$E(RAELIG,1,25) Line Location: DIS+4
Function Call: WRITE	Prompt: !?2,"Sex : ",$S(RASEX="M":"MALE",RASEX="F":"FEMALE",1:"Unknown") Line Location: DIS+5
Function Call: WRITE	Prompt: !?2,"Narrative : ",^(1) Line Location: DIS+5
Function Call: WRITE	Prompt: !?2,$E(RAHDVITL),"eight : ",$P(RAHDX,U,8) Line Location: DIS+12
Function Call: WRITE	Prompt: $S(RAHDVITL="HT":"""",RAHDVITL="WT":" lbs",1:"") Line Location: DIS+13
Function Call: WRITE	Prompt: " on ",Y Line Location: DIS+14
Function Call: WRITE	Prompt: !?2,"Other Allergies:",!?7,"'V' denotes verified allergy 'N' denotes non-verified allergy",! Line Location: DIS+18
Function Call: WRITE	Prompt: !?20," No allergies on file. " Line Location: DIS+19
Function Call: READ	Variable: X Timeout: DTIME Line Location: ALER+1
Function Call: WRITE	Prompt: !!?2,$C(7),"** Patient has died **",!!,"Do you want to continue? NO// " Line Location: ALER+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PAT, PAT+5, ALER+1, VETELI+4
^RADPT - [#70]	DIS+5

Label References

Name	Line Occurrences
$$VETELI	PAT+3
ALER	DIS+19
PAT	RADFN

Naked Globals

Name	Field # of Occurrence
^(	PAT+5, ALER+1
^(0	PAT
^(1	DIS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	DIS+8~, DIS+10, DIS+19, VETELI~, VETELI+3, VETELI+4
>> DIC(0	RADFN*
DT	PAT, PAT+1
DTIME	ALER+1
>> GMRAL	DIS+19
GMRVSTR	DIS+8~, DIS+10*
I	DIS+20*, Q!
IOF	DIS
PI	Q!
PI(	DIS+20
>> RABED	DIS+3
>> RACONT	Q*
>> RADFN	PAT, PAT+3, PAT+5, DIS+5, DIS+10, DIS+19, ALER+1, RADFN*
RADOB	PAT, PAT+1, PAT+2, DIS+3, Q!
RAELI	VETELI+3~, VETELI+4, VETELI+7, VETELI+8*, VETELI+13
RAELIG	PAT+4*, DIS+4, Q!
RAGE	PAT, PAT+1, DIS+3, Q!
RAHDVITL	DIS+8~, DIS+9*, DIS+10, DIS+12, DIS+13
RAHDX	DIS+8~, DIS+11*, DIS+12, DIS+13, DIS+14
>> RANME	PAT*, DIS+1
>> RAPOP	ALER+1*, Q
>> RASER	DIS+2
>> RASEX	PAT*, DIS+5
RASSN	PAT*, DIS+2, Q!
RAVET	PAT+4, DIS+4, Q!, VETELI+3~, VETELI+4, VETELI+9, VETELI+10, VETELI+13
RAVETELI	PAT+3~*, PAT+4
>> RAWARD	DIS+1, DIS+2
RAWD	Q!
U	DIS+12, DIS+13, DIS+14
VAEL	VETELI+6!, VETELI+11!
VAEL(1	VETELI+7
VAEL(4	VETELI+9
VAERR	Q!, VETELI+6!, VETELI+11!
VAIN	Q!
X	PAT, DIS+8~, DIS+11, ALER+1*, Q!
>> X1	PAT*
>> X2	PAT*
Y	PAT, PAT+2, DIS+8~, DIS+14*, Q!, RADFN

Customize PDF page

Package: Radiology Nuclear Medicine