Routine: RACMP1

Package	Total	Call Graph
Radiology Nuclear Medicine	3	HEADER^RACMP2 $$EOS^RAUTL5 $$PTSEX^RAUTL8
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RACMP

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	; Output subroutine part one
PRSC	;DISPLAY pregnancy screen and comment, patch 99
PRT1	; Output subroutine two
DIVCHK	; Output statistics within division, check for EOS on division
IMGCHK	; Check for EOS on I-Type

External References

Name	Field # of Occurrence
$$GET1^DIQ	PRSC+7
HEADER^RACMP2	PRT1+6, PRT1+17, DIVCHK+2, DIVCHK+8, DIVCHK+17, IMGCHK+2, IMGCHK+8, IMGCHK+16
$$EOS^RAUTL5	PRT1+6, PRT1+17, DIVCHK+2, DIVCHK+8, DIVCHK+17, IMGCHK+2, IMGCHK+8, IMGCHK+16
$$PTSEX^RAUTL8	PRSC+4
$$FMTE^XLFDT	PRT1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,RA3,?RATAB(2),RASSN,?RATAB(3),RADATE,?RATAB(4),RAPRC Line Location: PRT1+9
Function Call: WRITE	Prompt: ?RATAB(5),"Physician: ",RAPHY,!?RATAB(3),RATME,?RATAB(4),RACOMP Line Location: PRT1+10
Function Call: WRITE	Prompt: ?RATAB(5),"Interpreting Res. : ",RARES Line Location: PRT1+11
Function Call: WRITE	Prompt: !?RATAB(5),"Staff Imaging Phys. : ",RASTF Line Location: PRT1+12
Function Call: WRITE	Prompt: !,RA3,?RATAB(3),RADATE,?RATAB(4),RAPRC,!,RASSN,?RATAB(3),RATME Line Location: PRT1+25
Function Call: WRITE	Prompt: ?RATAB(4),RACOMP Line Location: PRT1+26
Function Call: WRITE	Prompt: !?RATAB(1),"Physician: ",RAPHY Line Location: PRT1+27
Function Call: WRITE	Prompt: !?RATAB(1),"Interpreting Res. : ",RARES Line Location: PRT1+28
Function Call: WRITE	Prompt: !?RATAB(1),"Staff Imaging Phys. : ",RASTF Line Location: PRT1+29
Function Call: WRITE	Prompt: !?RATAB(1),"Tech: ",RATECH Line Location: PRT1+33
Function Call: WRITE	Prompt: !,RALBL,$E(RACMPTX,1,65) Line Location: PRT1+37
Function Call: WRITE	Prompt: !?$L(RALBL),$E(RALBL,66,100) Condition for execution: $E(RALBL,66,100)]"" Line Location: PRT1+38
Function Call: WRITE	Prompt: !,RALN1 Line Location: PRT1+38
Function Call: WRITE	Prompt: !!?5,"Division: "_RADIV("X") Line Location: DIVCHK+3
Function Call: WRITE	Prompt: !,"Complications: ",+$G(^TMP($J,"RACOMP",RADIV)) Line Location: DIVCHK+4
Function Call: WRITE	Prompt: " Exams: ",+$G(^TMP($J,"RAEXAM",RADIV))," % Complications: " Line Location: DIVCHK+5
Function Call: WRITE	Prompt: "0" Line Location: DIVCHK+6
Function Call: WRITE	Prompt: $J((+$G(^TMP($J,"RACOMP",RADIV))/+$G(^TMP($J,"RAEXAM",RADIV)))*100,6,2) Line Location: DIVCHK+7
Function Call: WRITE	Prompt: !,"Contrast Media Complications: ",+$G(^TMP($J,"RACMRE",RADIV)) Line Location: DIVCHK+9
Function Call: WRITE	Prompt: " C.M. Exams: ",+$G(^TMP($J,"RACOMP",RADIV)) Line Location: DIVCHK+10
Function Call: WRITE	Prompt: " % C.M. Comp.: " Line Location: DIVCHK+11
Function Call: WRITE	Prompt: "0" Line Location: DIVCHK+12
Function Call: WRITE	Prompt: $J((+$G(^TMP($J,"RACMRE",RADIV))/+$G(^TMP($J,"RACOMP",RADIV)))*100,6,2) Line Location: DIVCHK+13
Function Call: WRITE	Prompt: !,"Complications: ",+$G(^TMP($J,"RACOMP",RADIV,RAITYPE)) Line Location: IMGCHK+3
Function Call: WRITE	Prompt: " Exams: ",+$G(^TMP($J,"RAEXAM",RADIV,RAITYPE)) Line Location: IMGCHK+4
Function Call: WRITE	Prompt: " % Complications: " Line Location: IMGCHK+5
Function Call: WRITE	Prompt: "0" Line Location: IMGCHK+6
Function Call: WRITE	Prompt: $J((+$G(^TMP($J,"RACOMP",RADIV,RAITYPE))/+$G(^TMP($J,"RAEXAM",RADIV,RAITYPE)))*100,6,2) Line Location: IMGCHK+7
Function Call: WRITE	Prompt: !,"Contrast Media Complications: ",+$G(^TMP($J,"RACMRE",RADIV,RAITYPE)) Line Location: IMGCHK+9
Function Call: WRITE	Prompt: " C.M. Exams: ",+$G(^TMP($J,"RACOMP",RADIV,RAITYPE)) Line Location: IMGCHK+10
Function Call: WRITE	Prompt: " % C.M. Comp.: " Line Location: IMGCHK+11
Function Call: WRITE	Prompt: "0" Line Location: IMGCHK+12
Function Call: WRITE	Prompt: $J((+$G(^TMP($J,"RACMRE",RADIV,RAITYPE))/+$G(^TMP($J,"RACOMP",RADIV,RAITYPE)))*100,6,2) Line Location: IMGCHK+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RAO(75.1 - [#75.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	PRINT+4, DIVCHK+15
^RADPT - [#70]	PRT1+13, PRT1+14, PRT1+15, PRT1+30, PRT1+31, PRSC+6, PRSC+8, PRSC+9
^TMP($J	PRINT+3, PRINT+5, PRINT+7, PRINT+9, PRINT+11, PRINT+12, DIVCHK+4, DIVCHK+5, DIVCHK+6, DIVCHK+7 , DIVCHK+9, DIVCHK+10, DIVCHK+12, DIVCHK+13, DIVCHK+14, DIVCHK+16, IMGCHK+3, IMGCHK+4, IMGCHK+6, IMGCHK+7 , IMGCHK+9, IMGCHK+10, IMGCHK+12, IMGCHK+13, IMGCHK+14
^VA(200 - [#200]	PRT1+16, PRT1+32

Label References

Name	Line Occurrences
DIVCHK	PRINT+19
IMGCHK	PRINT+17
PRSC	PRT1+21, PRT1+36
PRT1	PRINT+13

Naked Globals

Name	Field # of Occurrence
^(	PRT1+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
I	PRINT+1~, PRT1+1, PRT1+2, PRT1+13, PRT1+14, PRT1+15, PRT1+30, PRT1+31*
IOM	PRT1+8
IOSL	PRT1+5, PRT1+17, DIVCHK+2, DIVCHK+8, IMGCHK+2, IMGCHK+8
IOST	PRT1+6, DIVCHK+17, IMGCHK+16
J	PRINT+1~, PRT1+15, PRT1+16, PRT1+31, PRT1+32
R3	PRSC+8~*, PRSC+10, PRSC+11
>> RA0	PRINT+12*, PRINT+13, PRT1+2
>> RA1	PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+7, PRINT+9, PRINT+11, PRINT+12, DIVCHK+14, IMGCHK+14
RA10	IMGCHK+1~, IMGCHK+14*, IMGCHK+15
>> RA2	PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+9, PRINT+11, PRINT+12, IMGCHK+14
>> RA3	PRINT+6, PRINT+7, PRINT+9, PRINT+11, PRINT+12, PRT1+9, PRT1+25
>> RA4	PRINT+8, PRINT+9, PRINT+11, PRINT+12, PRT1+4
>> RA5	PRINT+10, PRINT+11, PRINT+12, PRT1+13, PRT1+14, PRT1+15, PRT1+30, PRT1+31, PRSC+6, PRSC+8 , PRSC+9
RA6	DIVCHK+1~, DIVCHK+14*, DIVCHK+15
RA7	DIVCHK+16~*
>> RACMPTX	PRT1+22, PRT1+37
>> RACOMP	PRT1+10, PRT1+26
RADATE	PRINT+1~, PRT1+4*, PRT1+9, PRT1+25
>> RADFN	PRT1+13, PRT1+14, PRT1+15, PRT1+30, PRT1+31, PRSC+4, PRSC+6, PRSC+8, PRSC+9
>> RADIV	PRINT+4, DIVCHK+4, DIVCHK+5, DIVCHK+6, DIVCHK+7, DIVCHK+9, DIVCHK+10, DIVCHK+12, DIVCHK+13, DIVCHK+15 , DIVCHK+16, IMGCHK+3, IMGCHK+4, IMGCHK+6, IMGCHK+7, IMGCHK+9, IMGCHK+10, IMGCHK+12, IMGCHK+13
>> RADIV("X"	PRINT+4, DIVCHK+3, DIVCHK+15
RAINVDT	PRINT+1~, PRT1+4*, PRT1+13, PRT1+14, PRT1+15, PRT1+30, PRT1+31, PRSC+6, PRSC+8, PRSC+9
>> RAITYPE	PRINT+6, DIVCHK+16, IMGCHK+3, IMGCHK+4, IMGCHK+6, IMGCHK+7, IMGCHK+9, IMGCHK+10, IMGCHK+12, IMGCHK+13 , IMGCHK+15*
RALBL	PRINT+1~, PRINT+2*, PRT1+22, PRT1+37, PRT1+38
>> RALN	PRINT+2
RALN1	PRINT+1~, PRINT+2*, PRT1+22, PRT1+38
RAOR751	PRSC+6~*, PRSC+7
RAPCOMM	PRSC+8~, PRSC+9*, PRSC+11
>> RAPHY	PRT1+10, PRT1+27
>> RAPRC	PRT1+9, PRT1+25
>> RARES	PRT1+11, PRT1+28
>> RASSN	PRT1+9, PRT1+25
>> RASTF	PRT1+12, PRT1+29
>> RATAB(1	PRT1+27, PRT1+28, PRT1+29, PRT1+33
>> RATAB(2	PRT1+9
>> RATAB(3	PRT1+9, PRT1+10, PRT1+25
>> RATAB(4	PRT1+9, PRT1+10, PRT1+25, PRT1+26
>> RATAB(5	PRT1+10, PRT1+11, PRT1+12, PRT1+18
RATECH	PRINT+1~, PRT1+16, PRT1+18, PRT1+32, PRT1+33
>> RATME	PRT1+10, PRT1+25
>> RAXIT	PRINT+3, PRINT+5, PRINT+7, PRINT+9, PRINT+11, PRINT+17, PRINT+19, PRT1+5, PRT1+6, PRT1+13 , PRT1+14, PRT1+17, PRT1+18, PRT1+22, DIVCHK+2, DIVCHK+8, DIVCHK+17, IMGCHK+2, IMGCHK+8, IMGCHK+16
U	PRSC+6, PRSC+10, PRSC+11

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RACMP1

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: