Routine: RADEM2

Package	Total	Call Graph
Radiology Nuclear Medicine	5	ALLERGY^RADEM ^RADEM1 ^RADPA ^RASERV ($$SSN,D)^RAUTL
Registration	1	(DEM,ELIG)^VADPT
VA Fileman	1	^%DTC

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RADEM RAREG

Entry Points

Name	Comments	DBIA/ICR reference
RADFN
ALER	;
Q
VETELI(DFN)	; Is this patient a veteran? Does this patient have a ; primary eligibility code? ; RAELI=Primary Eligibility code <-> RAVET=Veteran (Yes/No)
PAT	;Q:'$D(^DPT(RADFN,0)) S Y=^(0),RANME=$P(Y,"^"),RASEX=$P(Y,"^",2),RASSN=$$SSN^RAUTL,RADOB=$P(Y,"^",3),X1=DT,X2=RADOB D ^%DTC S RAGE=X\365.25
DIS

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,"Other Allergies:",!?7,"'V' denotes verified allergy 'N' denotes non-verified allergy",! Line Location: DIS+6
Function Call: WRITE	Prompt: !?20," No allergies on file. " Line Location: DIS+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: ALER+1
Function Call: WRITE	Prompt: !!?2,$C(7),"** Patient has died **",!!,"Do you want to continue? NO// " Line Location: ALER+1

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

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