Routine: RAPROD1

Package	Total	Call Graph
Radiology Nuclear Medicine	6	CMHIST^RAPROD2 DISP^RART1 D^RAUTL ELAPSED^RAUTL1 ($$CONTIN,$$PUTTCOM3)^RAUTL11 $$EOS^RAUTL5
Kernel	2	HOME^%ZIS $$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAPROD

Entry Points

Name	Comments	DBIA/ICR reference
PERINFO(RADFN,RADTI,RACNI)	; Personnel information ; Pass back 0 if ok, 1 if interrupt
STAT
STATHDR	; Print status tracking header
STAT1	; display status tracking info
ASKTXT
ACT1
ACT
SECSTF	; Secondary Staff data
PER	; Display personnel information.
PERHDR	; Print personnel header
Q	; kill and quit
ASKSTA
CUMUL	; calculate time frame
SECRES	; Secondary Resident data
TEXT

External References

Name	Field # of Occurrence
HOME^%ZIS	STATHDR+1, PERHDR+1
^DIR	PER+4
CMHIST^RAPROD2	PER+10
DISP^RART1	ASKTXT+1
D^RAUTL	ACT1, STAT1+2
ELAPSED^RAUTL1	STAT1+1
$$CONTIN^RAUTL11	ACT+7
$$PUTTCOM3^RAUTL11	ACT+2
$$EOS^RAUTL5	STAT1+4, PERINFO+34, PERINFO+41, PERINFO+52
$$FMTE^XLFDT	PERINFO+14, PERINFO+15

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Do you wish to display activity log? No// " Formatting: !! Timeout: DTIME Variable: X Line Location: ACT+0
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' if activity log should be displayed, or 'NO' if not." Line Location: ACT+0
Function Call: WRITE	Prompt: !!?23,"* Exam Activity Log *",!?2,"Date/Time",?25,"Action",?60,"Computer User",!?3,"Technologist comment",!?2,"---------------------",?25,"------",?60,"-------------" Line Location: ACT+1
Function Call: WRITE	Prompt: !!?22,"* Report Activity Log *",!?2,"Date/Time",?25,"Action",?60,"Computer User",!?2,"---------",?25,"------",?60,"-------------" Line Location: ACT+5
Function Call: WRITE	Prompt: ! Line Location: ACT+10
Function Call: WRITE	Prompt: X Line Location: ACT+10
Function Call: WRITE	Prompt: !?2,Y,?25,$E($P($P(^DD(RADD,2,0),$P(RAY,"^",2)_":",2),";"),1,33),?60,$E($S($D(^VA(200,+$P(RAY,"^",3),0)):$P(^(0),"^"),1:"Unknown"),1,18) Line Location: ACT1+0
Function Call: READ	Prompt: "Do you wish to display exam status tracking log? No// " Formatting: !! Timeout: DTIME Variable: X Line Location: ASKSTA+0
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' if exam status tracking log should be displayed, or 'NO' if not." Line Location: ASKSTA+1
Function Call: WRITE	Prompt: ! Line Location: ASKSTA+6
Function Call: WRITE	Prompt: X Line Location: ASKSTA+6
Function Call: READ	Prompt: "Do you wish to display exam report text? No// " Formatting: !! Timeout: DTIME Variable: X Line Location: ASKTXT+0
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' if report text should be displayed, or 'NO' if not." Line Location: ASKTXT+0
Function Call: WRITE	Prompt: !?2,$S($D(^RA(72,+$P(RA,"^",2),0)):$E($P(^(0),"^"),1,20),1:"Unknown"),?25,Y Line Location: STAT1+5
Function Call: WRITE	Prompt: @IOF Line Location: STATHDR+1
Function Call: WRITE	Prompt: !!,?23,"* Exam Status Tracking Log *",!,?47,"Elapsed Time",?61,"Cumulative Time",!,?2,"Status",?25,"Date/Time",?48,"(DD:HH:MM)",?64,"(DD:HH:MM)",!,?2,"------",?25,"---------",?47,"------------",?61,"---------------" Line Location: STATHDR+2
Function Call: WRITE	Prompt: @IOF Line Location: PERHDR+1
Function Call: WRITE	Prompt: !?(IOM-$L(X)\2),X,!,Y Line Location: PERHDR+3
Function Call: WRITE	Prompt: !,"Primary Int'g Resident: ",RAPIR Line Location: PERINFO+22
Function Call: WRITE	Prompt: !,"Primary Int'g Staff : ",RAPIS Line Location: PERINFO+23
Function Call: WRITE	Prompt: !,"Pre-Verifier: ",RAPRE," ",RAPRE("DT") Line Location: PERINFO+24
Function Call: WRITE	Prompt: !,"Verifier : ",RAVER," ",RAVER("DT"),! Line Location: PERINFO+25
Function Call: WRITE	Prompt: !,"None",?40,"None" Line Location: PERINFO+29
Function Call: WRITE	Prompt: ! Line Location: PERINFO+37
Function Call: WRITE	Prompt: ! Line Location: PERINFO+44
Function Call: WRITE	Prompt: !,"None",?40,RATRAN Line Location: PERINFO+45
Function Call: WRITE	Prompt: RATXT Line Location: SECRES+3
Function Call: WRITE	Prompt: $S($D(^VA(200,+RASIR(0),0)):$P(^(0),"^"),1:"") Line Location: SECRES+6
Function Call: WRITE	Prompt: ?40,RATXT Line Location: SECSTF+3
Function Call: WRITE	Prompt: ?40,$S($D(^VA(200,+RASIS(0),0)):$P(^(0),"^"),1:"") Line Location: SECSTF+6
Routine Call	%ZIS Line Location: STATHDR+1 PERHDR+1
Routine Call	DIR Line Location: PER+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	ACT1
^RA(72 - [#72]	STAT1+5
^RADPT - [#70]	ACT+2, STAT, ASKSTA+5, PERINFO+5, PERINFO+19, PERINFO+20, PERINFO+21, PERINFO+48, PERINFO+49, SECRES+2 , SECRES+5, SECSTF+2, SECSTF+5
^RARPT - [#74]	ACT+7, PERINFO+9, PERINFO+10
^VA(200 - [#200]	ACT1, PERINFO+11, PERINFO+12, PERINFO+13, PERINFO+17, PERINFO+18, PERINFO+50, SECRES+6, SECSTF+6

Label References

Name	Line Occurrences
$$PERINFO	PER+8
ACT	PER+6, ACT
ACT1	ACT+2, ACT+7
ASKSTA	ASKSTA
ASKTXT	ASKTXT
CUMUL	STAT1+1
PERHDR	PER+7, PERINFO+35, PERINFO+42, PERINFO+53
Q	PER+5, PER+9, PER+11, ACT, ACT+3, ACT+9, ASKSTA, TEXT, ASKTXT
SECRES	PERINFO+37
SECSTF	PERINFO+37
STAT	ACT, ACT+5, ACT+11
STAT1	ASKSTA+5
STATHDR	ASKSTA+3, STAT1+4
TEXT	STAT, ASKSTA

Naked Globals

Name	Field # of Occurrence
^(	ACT+2, ACT+7, ASKSTA+5
^(0	ACT+2, ACT+7, ACT1, ASKSTA+5, STAT1+5, PERINFO+11, PERINFO+12, PERINFO+13, PERINFO+17, PERINFO+18 , PERINFO+50, SECRES+6, SECSTF+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	PER+1!, PER+5!
DIR("A"	PER+3*
DIR("B"	PER+2*
DIR(0	PER+2*
DIROUT	PER+1!, PER+5!
DIRUT	PER+1!, PER+4, PER+5!
DTIME	ACT, ASKSTA, ASKTXT
DTOUT	PER+1!, PER+5!
DUOUT	PER+1!, PER+5!
I	ACT+2, ACT+7, ASKSTA+5*, Q+1!
IOF	STATHDR+1, PERHDR+1
IOM	PERHDR+3
IOSL	STAT1+4, PERINFO+33, PERINFO+40, PERINFO+51
J	Q+1!
POP	Q+1!
RA	ASKSTA+5, Q+1!, STAT1+5, PERINFO+47~, PERINFO+48*, PERINFO+49
RA(	CUMUL+1, CUMUL+2
RA("RST"	TEXT
RA(1	CUMUL+3!
RA(2	CUMUL+3!
RA(3	CUMUL+3!
RA18RET	ACT+2~*
RA70	PERINFO+3~, PERINFO+5*, PERINFO+6, PERINFO+17, PERINFO+18
RACI	Q+1!
RACM	PER+10, Q+2!
RACN	Q+1!
RACNI	PER+8, PER+10, ACT+2, STAT, ASKSTA+5, Q+1!, PERINFO~, PERINFO+2, PERINFO+5, PERINFO+19 , PERINFO+20, PERINFO+21, PERINFO+48, PERINFO+49, SECRES+2, SECRES+5, SECSTF+2, SECSTF+5
RACUM	ASKSTA+4, Q+1!, STAT1+3, CUMUL+1, CUMUL+3
RADATE	Q+1!
RADD	ACT+2, ACT+7, ACT1, Q+1!
RADFN	PER+8, PER+10, ACT+2, STAT, ASKSTA+5, Q+1!, PERINFO~, PERINFO+2, PERINFO+5, PERINFO+19 , PERINFO+20, PERINFO+21, PERINFO+48, PERINFO+49, SECRES+2, SECRES+5, SECSTF+2, SECSTF+5
RADI	Q+1!
RADTE	Q+1!
RADTI	PER+8, PER+10, ACT+2, STAT, ASKSTA+5, Q+1!, PERINFO~, PERINFO+2, PERINFO+5, PERINFO+19 , PERINFO+20, PERINFO+21, PERINFO+48, PERINFO+49, SECRES+2, SECRES+5, SECSTF+2, SECSTF+5
RAELAP	Q+1!, STAT1+1!*, STAT1+3
RAHD1	PERINFO+3~, PERINFO+26*, PERINFO+28, PERINFO+35
RAHD2	PERINFO+3~, PERINFO+27*, PERINFO+28, PERINFO+35
RAHD3	PERINFO+3~, PERINFO+44*, PERINFO+53
RAI	CUMUL+1, CUMUL+2, CUMUL+3!
RAMOD	Q+1!
RAMTIME	ASKSTA+5, Q+1!, STAT1+1
RANME	Q+1!
RAPIR	PERINFO+3~, PERINFO+17*, PERINFO+22
RAPIS	PERINFO+3~, PERINFO+18*, PERINFO+23
RAPRC	Q+1!
RAPRE	PERINFO+3~, PERINFO+7, PERINFO+12, PERINFO+24
RAPRE("DT"	PERINFO+7, PERINFO+14, PERINFO+24
RAPRT	Q+1!
RARP	PERINFO+3~
RARPT	ACT+5, ACT+7, Q+1!, PERINFO+3~, PERINFO+6*, PERINFO+7, PERINFO+8, PERINFO+9, PERINFO+10
RARPT("T"	PERINFO+10*, PERINFO+11
RARPT(0	PERINFO+9*, PERINFO+12, PERINFO+13, PERINFO+14, PERINFO+15
RASIR	PERINFO+3~, PERINFO+19, PERINFO+29, PERINFO+31, PERINFO+32, PERINFO+37, SECRES+1, SECRES+2*, SECRES+3, SECRES+5
RASIR(0	SECRES+5*, SECRES+6
RASIS	PERINFO+3~, PERINFO+20, PERINFO+29, PERINFO+31, PERINFO+32, PERINFO+37, SECSTF+1, SECSTF+2*, SECSTF+3, SECSTF+5
RASIS(0	SECSTF+5*, SECSTF+6
RASSN	Q+1!
RAST	Q+1!
RATECH	PERINFO+4~, PERINFO+21, PERINFO+45, PERINFO+50, PERINFO+55
RATECH(0	PERINFO+49*, PERINFO+50
RATRAN	PERINFO+4~, PERINFO+6, PERINFO+11, PERINFO+45, PERINFO+55*
RATXT	SECRES+1, SECRES+3, SECRES+8!, SECSTF+1, SECSTF+3, SECSTF+8!
RAVER	PERINFO+4~, PERINFO+7, PERINFO+13, PERINFO+25
RAVER("DT"	PERINFO+7, PERINFO+15, PERINFO+25
RAX	Q+1!
RAX1	ASKSTA+5*, Q+1!, STAT1+1, STAT1+2
RAX2	ASKSTA+4!, ASKSTA+5*, Q+1!, STAT1+1
RAXIT	PER+7, PER+8, PER+9, PER+11, ACT+2, ACT+3, ACT+7, ACT+9, ASKSTA+3, ASKSTA+5 , ASKSTA+6, Q+2!, STAT1+4, PERINFO+30, PERINFO+32, PERINFO+33, PERINFO+34, PERINFO+35, PERINFO+40, PERINFO+41 , PERINFO+42, PERINFO+46, PERINFO+48, PERINFO+51, PERINFO+52*, PERINFO+53
RAY	ACT+2, ACT+7, ACT1, Q+1!
X	PER+4, PER+5, ACT, ACT+10!, ASKSTA, ASKSTA+6!, TEXT, ASKTXT, STAT1+1, PERHDR+2~* , PERHDR+3
>> X1	STAT1+1*
Y	PER+1~, PER+6, ACT+2, ACT+7, ACT1, STAT1+1, STAT1+2, STAT1+5, CUMUL+1, PERHDR+2~ , PERHDR+3
Z	Q+1!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPROD1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: