Routine: RACPT1

Package	Total	Call Graph
Radiology Nuclear Medicine	7	$$NAMCODE^RACPTMSC SETVARS^RAPSET1 EN1^RASELCT (DATE,ZIS)^RAUTL ACCVIO^RAUTL19 $$DIVLOC^RAUTL7 ASK1^RAWKL
VA FileMan	1	^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RACPT

Entry Points

Name	Comments	DBIA/ICR reference
CHK	;
DATE
PRINT	; Output data ; 01/19/2006 KAM/BAY Changed next line to utilize $$NAMCODE^RACPTMSC
HED	; Issue header
HANG	; get to the EOP
HANG1	; Issue EOP prompt
SRTPA(RA)	; Check on the sort parameters. If inpatient and outpatient, ; issue a EOP prompt when the sort parameter changes. ; '1' implies that we are sorting by both inpatient/outpatient and ; are on the second parameter, '0' implies that we fail the above ; conditions.
PROCNUM()	; Determine the number of procedures a user has chosen.
YESNO()	; Pass back the user's response to the 'Yes/No' question ; returns: 0=user answers No, 1=user answers Yes, -1='^' or timeout

External References

Name	Field # of Occurrence
^DIR	CHK+16, DATE+4, YESNO+6
$$NAMCODE^RACPTMSC	PRINT+2, PRINT+6
SETVARS^RAPSET1	CHK+1
EN1^RASELCT	CHK+21
DATE^RAUTL	DATE
ZIS^RAUTL	DATE+9
ACCVIO^RAUTL19	CHK+2
$$DIVLOC^RAUTL7	CHK+4
ASK1^RAWKL	CHK+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"No divisions selected." Line Location: CHK+5
Function Call: WRITE	Prompt: !!?5,"No imaging types selected." Line Location: CHK+6
Function Call: WRITE	Prompt: ! Line Location: CHK+8
Function Call: WRITE	Prompt: ! Line Location: CHK+16
Function Call: WRITE	Prompt: !!?5,"No procedures selected." Line Location: CHK+22
Function Call: WRITE	Prompt: ! Line Location: DATE+9
Function Call: WRITE	Prompt: !,$P($$NAMCODE^RACPTMSC(CPT,""),U),?7,$S($D(^RAMIS(71,J,0)):$E($P(^(0),"^"),1,38),1:"UNKNOWN") Line Location: PRINT+2
Function Call: WRITE	Prompt: !,$P($$NAMCODE^RACPTMSC(CPT,""),U),?15,$S($D(^RAMIS(71,J,0)):$E($P(^(0),"^"),1,30),1:"UNKNOWN") Line Location: PRINT+4
Function Call: WRITE	Prompt: !,$S(CPT["-":$P($$NAMCODE^RACPTMSC($P(CPT,"-"),""),U)_"-"_$P(CPT,"-",2),1:$P($$NAMCODE^RACPTMSC(CPT,""),U)),?15,$S($D(^RAMIS(71,J,0)):$E($P(^(0),"^"),1,30),1:"UNKNOWN") Line Location: PRINT+6
Function Call: WRITE	Prompt: ?45,$J(RATOT,5),?52,$S(RATOT(4)=0:$J(0,3,0),1:$J(RATOT/RATOT(4)*100,3,0)) Line Location: PRINT+10
Function Call: WRITE	Prompt: ?56,$J(RATOT(1),8,2) Line Location: PRINT+11
Function Call: WRITE	Prompt: ?65,$J(RATOT(2),10,2),?77,$S(RATOT(5)=0:$J(0,3,0),1:$J(RATOT(2)/RATOT(5)*100,3,0)) Line Location: PRINT+12
Function Call: WRITE	Prompt: !?78-$L(RA)\2,RA,?70,"Page: ",PAGE Line Location: HED+4
Function Call: WRITE	Prompt: !!," Division: ",$S(RADIV="":"Unknown",$D(^DIC(4,RADIV,0)):$P(^(0),U),1:"Unknown") Line Location: HED+5
Function Call: WRITE	Prompt: !,"Imaging Type: ",RAIMAG(0) Line Location: HED+6
Function Call: WRITE	Prompt: ?52,"For period: ",BEGDATE(0)," to" Line Location: HED+7
Function Call: WRITE	Prompt: !," Run Date: ",RARUNDTE,?64,ENDDATE(0) Line Location: HED+8
Function Call: WRITE	Prompt: !," # of Procedures selected: ",$S(RAINPUT:"All",1:RANUMPRC) Line Location: HED+9
Function Call: WRITE	Prompt: ?52,"Cancelled Exams: "_$S(RACAN:"in",1:"ex")_"cluded" Line Location: HED+10
Function Call: WRITE	Prompt: ?44,"# DONE",?52,"(%)",?59,"$UNIT",?69,"$TOTAL",?77,"(%)",!,QQ Line Location: HED+13
Function Call: WRITE	Prompt: ! Line Location: HANG+2
Routine Call	DIR Line Location: CHK+16 DATE+4 YESNO+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	HED+5
^RAMIS(71 - [#71]	PRINT+2, PRINT+6
^TMP($J	CHK+5, CHK+6, CHK+22, PRINT+8, PRINT+9, PROCNUM+2

Label References

Name	Line Occurrences
$$PROCNUM	CHK+24
$$YESNO	CHK+8
HANG1	PRINT+13
HED	PRINT+13

Naked Globals

Name	Field # of Occurrence
^(0	PRINT+2, PRINT+6, HED+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BEGDATE	DATE+2
>> BEGDATE(0	HED+7
>> CPT	PRINT+2, PRINT+6
DIR	CHK+12!, CHK+16!, DATE+5!, YESNO+2~
DIR("?"	CHK+14, CHK+15, DATE+3, YESNO+4, YESNO+5, YESNO+6
DIR("A"	CHK+13, DATE+3, YESNO+3*
DIR("B"	CHK+12, DATE+3, YESNO+2*
DIR(0	CHK+12, DATE+3, YESNO+2*
DIROUT	YESNO+2~
DIRUT	CHK+16, DATE+4, YESNO+2~, YESNO+7
DTIME	HANG1+1
DTOUT	YESNO+2~
DUOUT	YESNO+2~
DUZ	CHK+1, CHK+2
>> ENDDATE	DATE+2
>> ENDDATE(0	HED+8
IOF	HED+1
IOSL	PRINT+13, HANG+2
IOST	PRINT+13, HED+1, HANG+1
>> J	PRINT+2, PRINT+6
>> PAGE	HED+1, HED+4*
>> QQ	HED+13
RA	HED+2~, HED+3, HED+4, SRTPA~, SRTPA+5
>> RABEG	DATE+2*
>> RACAN	CHK+8*, CHK+11, HED+10
>> RACCESS(	CHK+1, CHK+2
>> RACMLIST	PRINT+2, PRINT+6, HED+11, HED+12
RADIC	CHK+19!, CHK+20*, CHK+21
RADIC("A"	CHK+20*
RADIC(0	CHK+20*
>> RADIV	PRINT+8, PRINT+9, HED+5
>> RAEND	DATE+2*
>> RAEOPFLG	SRTPA+5
>> RAEXIT	PRINT+13, HANG1+2*
>> RAI	PRINT+8, PRINT+9, HED+3
>> RAIMAG(0	HED+6
>> RAIMAG(1	PRINT+8, PRINT+9
>> RAINPUT	CHK+17*, CHK+18, CHK+21, HED+9
>> RANUMPRC	CHK+24*, HED+9
>> RAPOP	DATE
>> RAPSTX	CHK+1*
>> RAQUIT	CHK+2, CHK+4, CHK+11, CHK+16, CHK+18, CHK+22, DATE+4
>> RARUNDTE	HED+8
>> RASORT	DATE+4*, SRTPA+5
>> RASV	DATE+7, DATE+8
>> RATOT	PRINT+7, PRINT+10
>> RATOT(1	PRINT+2, PRINT+6, PRINT+7, PRINT+11
>> RATOT(2	PRINT+7*, PRINT+12
>> RATOT(4	PRINT+8*, PRINT+10
>> RATOT(5	PRINT+9*, PRINT+12
>> RAUTIL	CHK+21*
U	PRINT+2, PRINT+6, HED+5, HANG1+2
X	DATE+5!, HANG1+1, HANG1+2, PROCNUM+1~, PROCNUM+2*, YESNO+2~
Y	CHK+17, DATE+4, DATE+5!, PROCNUM+1~, PROCNUM+2, PROCNUM+3, YESNO+2~, YESNO+7*, YESNO+8
>> Z	HANG+2*
>> ZTRTN	DATE+6*
>> ZTSAVE(	DATE+7*
>> ZTSAVE("^TMP(	$J, ""RA " , DATE+8*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RACPT1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: