Routine: RAPRINT1

Package	Total	Call Graph
Radiology Nuclear Medicine	3	($$SSANVAL,$$USESSAN)^RAHLRU1 $$SSN^RAUTL STOPCHK^RAUTL9
VA Fileman	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAPRINT

Entry Points

Name	Comments	DBIA/ICR reference
DXNUM	; diagnostic code number
PQ
HDR	; header
SDX	; secondary dx ien and date
EXPRESS	;output expression text
HANG	; hold screen
IT	; imaging type
CASENUM	; case number
EXAMDATE	; exam date
DECIDE	; decide which entries to print
PRINT	; print entries
DIV	; walk through tmp global, start with 'division'
PATIEN	; patient internal entry number
PATNAME	; patient name

External References

Name	Field # of Occurrence
$$GET1^DIQ	EXPRESS+2
^DIR	HANG+2
$$SSANVAL^RAHLRU1	PRINT+13
$$USESSAN^RAHLRU1	PRINT+34, PRINT+35, HDR+6, HDR+7
$$SSN^RAUTL	PRINT+9
STOPCHK^RAUTL9	HDR+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?22,"Division: ",RADIVNME Line Location: PRINT+2
Function Call: WRITE	Prompt: !?18,"Imaging Type: ",RAITNAME Line Location: PRINT+3
Function Call: WRITE	Prompt: !?15,"Diagnostic Code: ",RADIAG Line Location: PRINT+7
Function Call: WRITE	Prompt: !?15,"----------------" Line Location: PRINT+7
Function Call: WRITE	Prompt: !?15,"Diagnostic Code: ",RADIAG Line Location: PRINT+8
Function Call: WRITE	Prompt: !?15,"----------------" Line Location: PRINT+8
Function Call: WRITE	Prompt: $S($P(RAEXAM(0),U,20):"*",1:"") Line Location: PRINT+26
Function Call: WRITE	Prompt: $S(RASDXDTE]"":"*",1:"") Line Location: PRINT+27
Function Call: WRITE	Prompt: "(+)" Condition for execution: RAFIRST=1 Line Location: PRINT+33
Function Call: WRITE	Prompt: "(.)" Line Location: PRINT+33
Function Call: WRITE	Prompt: ?4,"Case #",RACNDSP,?27,$E(RAPROC,1,34),?62,RAEXDT Line Location: PRINT+34
Function Call: WRITE	Prompt: ?6,"Case #",RACASE,?20,$E(RAPROC,1,39),?60,RAEXDT Line Location: PRINT+35
Function Call: WRITE	Prompt: ?32,"(",RAXPRESS,")" Line Location: EXPRESS+3
Function Call: WRITE	Prompt: !?20,"<<<< ABNORMAL DIAGNOSTIC REPORT >>>>",?58,"Print Date: ",PDATE Line Location: HDR+2
Function Call: WRITE	Prompt: !?13,"(P=Primary Dx, S=Secondary Dx / '*' represents reprint)" Line Location: HDR+3
Function Call: WRITE	Prompt: !?(80-$L($G(RATRPTG))\2),$G(RATRPTG) Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Patient Name",?42,"Ward/Clinic",?58,"Requesting Physician" Line Location: HDR+5
Function Call: WRITE	Prompt: !?27,"Procedure",?60,"Exam Date",!,QQ Line Location: HDR+6
Function Call: WRITE	Prompt: !?20,"Procedure",?60,"Exam Date",!,QQ Line Location: HDR+7
Routine Call	DIR Line Location: HANG+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LEX(757.01 - [#757.01]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+11
^DIC(42 - [#42]	PRINT+16
^DPT - [#2]	PRINT+9
^RA(78.3 - [#78.3]	DECIDE+4, EXPRESS+2
^RADPT - [#70]	CASENUM+4, CASENUM+5, DECIDE+1, DECIDE+9, DECIDE+10, DECIDE+11, PRINT+36, PRINT+37, SDX+1, SDX+2 , SDX+4
^RAMIS(71 - [#71]	PRINT+19
^SC - [#44]	PRINT+17
^TMP($J	DIV+1, DIV+4, IT+2, DXNUM+3, PATNAME+2, PATIEN+2, EXAMDATE+2, CASENUM+3, CASENUM+7, PRINT+38*
^VA(200 - [#200]	PRINT+21

Label References

Name	Line Occurrences
CASENUM	EXAMDATE+2
DECIDE	CASENUM+8
DXNUM	IT+2
EXAMDATE	PATIEN+2
EXPRESS	PRINT+7, PRINT+8
HANG	PRINT+1, PRINT+4
HDR	PRINT+1, PRINT+4
IT	DIV+4
PATIEN	PATNAME+2
PATNAME	DXNUM+3
PQ	PRINT+22
PRINT	DECIDE+6, DECIDE+8, DECIDE+12
SDX	PRINT+22

Naked Globals

Name	Field # of Occurrence
^(0	PRINT+9, PRINT+16, PRINT+17, PRINT+19, PRINT+21, PRINT+36, PRINT+37

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	PRINT+38*
DIR	HANG+1!, HANG+2!
DIR(0	HANG+2*
DIROUT	HANG+1!
DIRUT	HANG+1!, HANG+3
DT	PRINT+36, PRINT+37
DTOUT	HANG+1!
DUOUT	HANG+1!
>> I	DXNUM+2, DXNUM+3, PATNAME+2, PATIEN+2, EXAMDATE+2, CASENUM+3, CASENUM+7, DECIDE+4, DECIDE+5, DECIDE+10 , PRINT+7, PRINT+8, PRINT+32, PQ, EXPRESS+2, SDX+2
>> I1("DIV"	PRINT+2, PRINT+4, HDR+8*
>> I1("DX"	PRINT+7, PRINT+8, PRINT+32, PQ*
>> I1("IT"	PRINT+3, PRINT+4, HDR+8*
IOF	HDR+1
IOSL	PRINT+1
IOST	HANG+2
>> J	PATIEN+1, PATIEN+2, EXAMDATE+2, CASENUM+3, CASENUM+4, CASENUM+5, CASENUM+7, CASENUM+9, DECIDE+1, DECIDE+3 , DECIDE+9, DECIDE+10, DECIDE+11, PRINT+9, PRINT+36, PRINT+37, SDX+1, SDX+2, SDX+4
>> K	EXAMDATE+1, EXAMDATE+2, CASENUM+3, CASENUM+4, CASENUM+5, CASENUM+7, CASENUM+9, DECIDE+1, DECIDE+3, DECIDE+9 , DECIDE+10, DECIDE+11, PRINT+11, PRINT+13, PRINT+36, PRINT+37, SDX+1, SDX+2, SDX+4
>> L	CASENUM+6, CASENUM+7, CASENUM+9, DECIDE+1, DECIDE+3, DECIDE+9, DECIDE+10, DECIDE+11, PRINT+13, PRINT+36 , PRINT+37, SDX+1, SDX+2, SDX+4
L1	DIV+2~, CASENUM+3*, CASENUM+4, CASENUM+5
>> PDATE	HDR+2
>> QQ	HDR+6, HDR+7
>> RACASE	PRINT+12*, PRINT+14, PRINT+35
RACNDSP	PRINT+13~, PRINT+14*, PRINT+34
RACURR	DIV+2~, DECIDE+3*, PRINT+24, PRINT+32
>> RADFN	PRINT+9*, PRINT+13
>> RADIAG	DECIDE+4*, PRINT+7, PRINT+8
>> RADIVNME	DIV+3, DIV+4, IT+2, DXNUM+3, PATNAME+2, PATIEN+2, EXAMDATE+2, CASENUM+3, CASENUM+7, PRINT+2 , PRINT+4, PRINT+5, PRINT+38
RADXCODE	DECIDE+5*, DECIDE+7, DECIDE+8, PRINT+22!, PRINT+26, PRINT+27, PRINT+28, PRINT+36, PRINT+37, PQ+1!
>> RAEXAM(0	DECIDE+1*, DECIDE+2, DECIDE+5, DECIDE+7, DECIDE+8, PRINT+12, PRINT+15, PRINT+17, PRINT+18, PRINT+20 , PRINT+26
>> RAEXDT	PRINT+11*, PRINT+34, PRINT+35
RAFIRST	DIV+2~, CASENUM+1, CASENUM+4, CASENUM+5, CASENUM+8, DECIDE+2, PRINT+23, PRINT+33
>> RAITNAME	IT+1, IT+2, DXNUM+3, PATNAME+2, PATIEN+2, EXAMDATE+2, CASENUM+3, CASENUM+7, PRINT+3, PRINT+4 , PRINT+6, PRINT+38
>> RAMD	PRINT+20, PRINT+21, PRINT+28
>> RAOUT	DIV+4, IT+2, DXNUM+3, PATNAME+2, PATIEN+2, EXAMDATE+2, CASENUM+7, PRINT+1, PRINT+4, HDR+9* , HANG+3*
>> RAPAT	PRINT+9, PRINT+10, PRINT+28
>> RAPATNME	PATNAME+1, PATNAME+2, PATIEN+2, EXAMDATE+2, CASENUM+3, CASENUM+7
RAPREV	DIV+2~, DXNUM+1, CASENUM+9, PRINT+24, PRINT+32
>> RAPROC	PRINT+18, PRINT+19, PRINT+34, PRINT+35
RAPRTSET	DIV+2~, CASENUM+1, CASENUM+8, DECIDE+2*, PRINT+23, PRINT+32, PRINT+33
RASAME	DIV+2~, CASENUM+2*
RASDXDTE	DECIDE+11, DECIDE+12, PRINT+22!, PRINT+27, PQ+1!, SDX+4
RASDXIEN	DECIDE+10, DECIDE+11, PRINT+22!, PRINT+37, PQ+1!, SDX+2, SDX+3, SDX+4
RASSAN	PRINT+13~*, PRINT+14
>> RASSN	PRINT+9*, PRINT+28
>> RASW	DECIDE+6
>> RATRPTG	HDR+4
>> RAWARD	PRINT+15, PRINT+16, PRINT+17*, PRINT+28
RAXPRESS	EXPRESS+1~, EXPRESS+2*, EXPRESS+3
U	CASENUM+4, CASENUM+9, DECIDE+2, DECIDE+3, DECIDE+4, DECIDE+5, DECIDE+7, DECIDE+8, DECIDE+11, PRINT+10 , PRINT+12, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+26, PRINT+36 , PRINT+37, EXPRESS+2, SDX+4
>> Y	PRINT+11*
>> ZTQUEUED	HDR+9
>> ZTSTOP	HDR+9

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPRINT1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: