Routine: RALIST1

Package	Total	Call Graph
Radiology Nuclear Medicine	2	$$EOS^RAUTL5 STOPCHK^RAUTL9

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RALIST

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	;
NUMDIV()	; Returns boolean ; '0' if only one division selected ; '1' if more than one division selected
PROCNUM()	; Return the number of procedures selected.
HD

External References

Name	Field # of Occurrence
$$EOS^RAUTL5	PRINT+7, PRINT+14, PRINT+19, PRINT+23, PRINT+27
STOPCHK^RAUTL9	HD+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(TMP,U),?30,$P(TMP,U,2),?49,$P(TMP,U,3),?50,$P(TMP,U,4) Line Location: PRINT+8
Function Call: WRITE	Prompt: ?$S(IOM=132:90,1:90#80),$P(TMP,U,5) Line Location: PRINT+10
Function Call: WRITE	Prompt: ?$S(IOM=132:110,1:110#80),$P(TMP,U,6) Line Location: PRINT+11
Function Call: WRITE	Prompt: !!,"Total=",+$G(RACNT(RADIVN)) Line Location: PRINT+15
Function Call: WRITE	Prompt: " Inpatient=",+$G(RAIN(RADIVN)) Line Location: PRINT+16
Function Call: WRITE	Prompt: " Outpatient=",+$G(RAOUT(RADIVN)) Line Location: PRINT+17
Function Call: WRITE	Prompt: !!,"+ counts as multiple exams",!,"- counts as zero exams" Line Location: PRINT+18
Function Call: WRITE	Prompt: !!,"Divisions Included: " Line Location: PRINT+25
Function Call: WRITE	Prompt: !?($X+($L("Divisions Included: "))) Condition for execution: $X>(IOM-30) Line Location: PRINT+28
Function Call: WRITE	Prompt: X,?($X+3) Line Location: PRINT+28
Function Call: WRITE	Prompt: !!,"Grand Total=",RACNT," Inpatient=",RAIN," Outpatient=",RAOUT Line Location: PRINT+30
Function Call: WRITE	Prompt: !,">>>>> AMIS Code Dump by Patient <<<<<" Line Location: HD+2
Function Call: WRITE	Prompt: ?120,"Page: ",PAGE Line Location: HD+3
Function Call: WRITE	Prompt: !,"Patient List for AMIS Category ",RAMIS," - ",$E(RAMIS1,1,44) Line Location: HD+4
Function Call: WRITE	Prompt: !?90,"For Period: ",BEG," to",!,"Run Date: ",RANOW,?102,END Line Location: HD+5
Function Call: WRITE	Prompt: !,">>>>> AMIS Code Dump by Patient <<<<<",?64,"Page: ",PAGE Line Location: HD+8
Function Call: WRITE	Prompt: !,"Patient List for AMIS Category ",RAMIS," - ",$E(RAMIS1,1,40) Line Location: HD+9
Function Call: WRITE	Prompt: !?49,"For Period: ",BEG," to",!,"Run Date: ",RANOW,?61,END Line Location: HD+10
Function Call: WRITE	Prompt: !,"Division: ",RADIVN Line Location: HD+12
Function Call: WRITE	Prompt: !,"# of Procedures Selected: ",$S(RAINPUT:"All",1:$$PROCNUM()) Line Location: HD+13
Function Call: WRITE	Prompt: !!,"Patient Name",?30,"Pt ID",?50,"Procedure" Line Location: HD+15
Function Call: WRITE	Prompt: ! Condition for execution: IOM<132 Line Location: HD+16
Function Call: WRITE	Prompt: ?$S(IOM=132:90,1:90#80),"Exam Date" Line Location: HD+16
Function Call: WRITE	Prompt: ?$S(IOM=132:110,1:110#80),"Ward/Clinic" Line Location: HD+17
Function Call: WRITE	Prompt: !,"------------",?30,"-----",?50,"---------" Line Location: HD+18
Function Call: WRITE	Prompt: ! Condition for execution: IOM<132 Line Location: HD+19
Function Call: WRITE	Prompt: ?$S(IOM=132:90,1:90#80),"-----------" Line Location: HD+19
Function Call: WRITE	Prompt: ?$S(IOM=132:110,1:110#80),"-----------" Line Location: HD+20

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BEG	HD+5, HD+10
>> END	HD+5, HD+10
IOF	HD
IOM	PRINT+9, PRINT+10, PRINT+11, PRINT+28, HD+1, HD+16, HD+17, HD+19, HD+20
IOSL	PRINT+7, PRINT+14, PRINT+27
IOST	HD
>> PAGE	HD*, HD+3, HD+8
>> RACNT	PRINT+1, PRINT+15, PRINT+30
>> RACNT(	PRINT+15
>> RACOUNT	PRINT+4, PRINT+5, PRINT+6
>> RADIVN	PRINT+1, PRINT+2, PRINT+3, PRINT+5, PRINT+6, PRINT+15, PRINT+16, PRINT+17, PRINT+19, PRINT+24* , HD+12
>> RADIVNUM	PRINT+22
>> RAFLG	PRINT+3, PRINT+7, PRINT+14, PRINT+24, HD+14
>> RAIN	PRINT+1, PRINT+16, PRINT+30
>> RAIN(	PRINT+16
>> RAINPUT	HD+13
>> RAMIS	HD+4, HD+9
>> RAMIS1	HD+4, HD+9
>> RANOW	HD+5, HD+10
>> RAOUT	PRINT+1, PRINT+17, PRINT+30
>> RAOUT(	PRINT+17
>> RAXIT	PRINT+2, PRINT+3, PRINT+5, PRINT+7, PRINT+13, PRINT+14, PRINT+19, PRINT+21, PRINT+24, PRINT+26 , PRINT+27, HD+22*
>> TMP	PRINT+6*, PRINT+8, PRINT+10, PRINT+11
U	PRINT+8, PRINT+10, PRINT+11
X	PRINT+23, PRINT+26, PRINT+28, NUMDIV+3~, NUMDIV+4, NUMDIV+5, PROCNUM+2~, PROCNUM+3*, PROCNUM+4
Y	NUMDIV+3~, NUMDIV+4, NUMDIV+5, NUMDIV+6, PROCNUM+2~, PROCNUM+3
>> ZTQUEUED	HD+22
>> ZTSTOP	HD+22

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RALIST1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
$$PROCNUM	HD+13
HD	PRINT+3, PRINT+7, PRINT+14, PRINT+24, PRINT+27