Routine: RAPM3

Information

RAPM3 ;HOIFO/SM-Radiology Performance Monitors/Indicator ;3/20/09 11:11

Source Information

Source file <RAPM3.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	6	(,C)^%DTC EN^DDIOL ^DIC ^DIE $$GET1^DIQ ^DIR
Kernel	3	^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT (OPTSTAT,RESCH)^XUTMOPT
Radiology Nuclear Medicine	1	TASK^RAPM

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Radiology Nuclear Medicine	5	RA PERFORMIN MAIL GROUP ENTRY RA PERFORMIN SCHEDULE RA PERFORMIN TASKLM RAPM RAPM1

Entry Points

Name	Comments	DBIA/ICR reference
TASKLM	; task off last quarters's Perf. Indic. Summary Report [RA PERFORMIN TASKLM] ; define report type as summary
BFOOT2	; used in summary
SET15	; set some variables for scheduling task
NEXTM	; next month on the 15th
BFOOT	;footer for both
THISM	; this month on the 15th
EN1	;entry/edit OUTLOOK mail groups
RA2DT	;SET RA2 variable for task date range
SFOOT2	; store in tmp
PRESS
RADIOL	; select Radiologist for Summary Report
RESCH	; reschedule option that is in file 19.2
SFOOT	; Footer for Summary Report
TODAY	; today is the 15th

External References

Name	Field # of Occurrence
^%DTC	TASKLM+55
C^%DTC	TASKLM+56
^%ZTLOAD	TASKLM+73
EN^DDIOL	RESCH+9, RESCH+11, RESCH+12, RESCH+17, RESCH+20
^DIC	RADIOL+2
^DIE	EN1+12
$$GET1^DIQ	TASKLM+64
^DIR	TASKLM+30
TASK^RAPM	TASKLM+71
$$FMADD^XLFDT	SET15+5
$$FMTE^XLFDT	TASKLM+76
$$NOW^XLFDT	TASKLM+32, TODAY+1, THISM+1, NEXTM+1
OPTSTAT^XUTMOPT	RESCH+8, RESCH+19
RESCH^XUTMOPT	RESCH+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"OUTLOOK mail groups previously entered:",!?56,"OQP Perf. Mgmt?",!?56,"--------------" Line Location: EN1+4
Function Call: WRITE	Prompt: !?8,$P(^(RA2,0),U),?63,$P(^(0),U,2) Line Location: EN1+6
Function Call: WRITE	Prompt: !!?5,"You may add another mail group." Line Location: EN1+8
Function Call: WRITE	Prompt: !,?5,"To edit or replace a mail group, you must delete the old one first.",! Line Location: EN1+9
Function Call: WRITE	Prompt: !,$C(7),"Can't lock ^RA,",RA1,",1) now, try again later." Line Location: EN1+10
Function Call: WRITE	Prompt: !!?5," Nothing Done " Line Location: TASKLM+9
Function Call: WRITE	Prompt: !!?5,"The Summary Report of Last Quarter's data will be sent to the" Line Location: TASKLM+10
Function Call: WRITE	Prompt: !?5,"Outlook mail group(s) in File 79's PERF INDC SMTP E-MAIL ADDRESS",! Line Location: TASKLM+11
Function Call: WRITE	Prompt: !?5," There is no Outlook mail group defined in File 79's",!?8,"PERF INDC SMTP E-MAIL ADDRESS. ",! Line Location: TASKLM+13
Function Call: WRITE	Prompt: !?3,$P(^(RA2,0),U) Line Location: TASKLM+15
Function Call: WRITE	Prompt: ! Line Location: TASKLM+16
Function Call: WRITE	Prompt: !?5,$C(7),"Request queued: ",X1 Line Location: TASKLM+75
Function Call: WRITE	Prompt: !?5,"to start on: ",$$FMTE^XLFDT(X2) Line Location: TASKLM+76
Function Call: WRITE	Prompt: !?5,"Task #: "_$G(ZTSK) Line Location: TASKLM+77
Function Call: WRITE	Prompt: @IOF,!?(RAIOM-$L(RAHDR)\2),RAHDR,?(RAIOM-10),"Page: ",$G(RAPG) Line Location: SFOOT+5
Function Call: WRITE	Prompt: !!?5,"* Columns represent # of hours elapsed from exam date/time through",!?7,"date/time report entered or date/time report was verified." Line Location: SFOOT+6
Function Call: WRITE	Prompt: !?7,"e.g. "">0-24 Hrs"" column represents those exams that had a report" Line Location: SFOOT+7
Function Call: WRITE	Prompt: !?7,"transcribed and/or verified within 0-24 hours from the exam date/time." Line Location: SFOOT+8
Function Call: WRITE	Prompt: !!?5,"* Columns following the initial elapsed time column "">0-24 Hrs"" begin" Line Location: SFOOT+9
Function Call: WRITE	Prompt: !?7,"at .0001 after the starting hour (e.g. "">24-48 Hrs"" = starts at 24.001",!?7,"through the 48th hour.)",! Line Location: SFOOT+10
Function Call: WRITE	Prompt: !?5,"* PENDING means there's no data for DATE REPORT ENTERED or VERIFIED DATE." Line Location: SFOOT+11
Function Call: WRITE	Prompt: !?7,"So, if the expected report is missing one of these fields, or is missing" Line Location: SFOOT+12
Function Call: WRITE	Prompt: !?7,"data for fields .01 through 17 from file #74, RAD/NUC MED REPORTS, or" Line Location: SFOOT+13
Function Call: WRITE	Prompt: !?7,"is a Stub Report that was entered by the Imaging package when images" Line Location: SFOOT+14
Function Call: WRITE	Prompt: !?7,"were captured before a report was entered, then the expected report" Line Location: SFOOT+15
Function Call: WRITE	Prompt: !?7,"would be counted in the PENDING column." Line Location: SFOOT+16
Function Call: WRITE	Prompt: !!?5,"* A printset, i.e., a set of multiple exams that share the same report,",!?7,"will be expected to have 1 report." Line Location: BFOOT+2
Function Call: WRITE	Prompt: !!?5,"* Cancelled and ""No Credit"" cases are excluded from this report." Line Location: BFOOT+3
Function Call: WRITE	Prompt: ! Line Location: RADIOL+1
Routine Call	DIE Line Location: EN1+12
Routine Call	DIC Line Location: RADIOL+2
Routine Call	DIR Line Location: TASKLM+30

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^DIC(4 - [#4]	GET1^DIQ
^RA(79 - [#79]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(79 - [#79]	EN1+2, EN1+3, EN1+6, EN1+10, EN1+13, TASKLM+12, TASKLM+13, TASKLM+15, TASKLM+61, TASKLM+64
^RA(79.1 - [#79.1]	TASKLM+64, TASKLM+68
^RA(79.2 - [#79.2]	TASKLM+67, TASKLM+68
^TMP($J	TASKLM+42!, TASKLM+64, TASKLM+68, TASKLM+78!, SFOOT2+1, SFOOT2+3, SFOOT2+4, SFOOT2+5, SFOOT2+6, SFOOT2+7 , SFOOT2+8, SFOOT2+9, SFOOT2+10, SFOOT2+11, SFOOT2+12, SFOOT2+13, SFOOT2+14, SFOOT2+15, SFOOT2+16, SFOOT2+17 , BFOOT2+3, BFOOT2+4, BFOOT2+5, BFOOT2+6, BFOOT2+7*

Name	Line Occurrences
BFOOT	SFOOT2+18
BFOOT2	BFOOT+1
NEXTM	SET15+4
PRESS	RESCH+9, RESCH+21
RA2DT	TASKLM+18
SET15	RESCH+16
SFOOT2	SFOOT+1
THISM	SET15+4
TODAY	SET15+4

Name	Field # of Occurrence
^(	EN1+6, TASKLM+15, TASKLM+64
^(0	EN1+6, TASKLM+64, TASKLM+68

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D1	RESCH+2~, SET15+1*, SET15+4
>> DA	EN1+11*
DIC	RADIOL+2*!
DIC("A"	RADIOL+2*
DIC("S"	RADIOL+2*
DIC(0	RADIOL+2*
>> DIE	EN1+11*
DIR	TASKLM+2~
DIR("?"	TASKLM+22, TASKLM+23, TASKLM+24, TASKLM+25, TASKLM+26, TASKLM+27, TASKLM+28, TASKLM+29
DIR("A"	TASKLM+20, TASKLM+21
DIR(0	TASKLM+19*
>> DIRUT	TASKLM+31
>> DR	EN1+11*
DT	TASKLM+19, TASKLM+36, SET15+1, RA2DT+2
DTIME	PRESS, SFOOT+3
IO	SFOOT+2
IO(0	SFOOT+2
IOF	SFOOT+5
IOSL	SFOOT+2
IOST	SFOOT+3
M1	TASKLM+3~, TASKLM+46, TASKLM+50, TASKLM+53, RESCH+2~, SET15+1, SET15+2, THISM+1, RA2DT+2, RA2DT+3 , RA2DT+4, RA2DT+6, RA2DT+7, RA2DT+8, RA2DT+10, RA2DT+11, RA2DT+12, RA2DT+14, RA2DT+15, RA2DT+16 , RA2DT+18, RA2DT+19, RA2DT+20
M2	TASKLM+3~, TASKLM+47, TASKLM+51, TASKLM+54, RESCH+2~, SET15+2, SET15+3, NEXTM+1
RA1	EN1+1~, EN1+2, EN1+3, EN1+6, EN1+10, EN1+11, EN1+13, TASKLM+2~, TASKLM+12, TASKLM+13 , TASKLM+15, TASKLM+53, TASKLM+55, TASKLM+60, TASKLM+61, TASKLM+64, TASKLM+66, TASKLM+67*, TASKLM+68
RA2	EN1+1~, EN1+5, EN1+6, TASKLM+2~, TASKLM+14, TASKLM+15, TASKLM+19, TASKLM+62, TASKLM+64, TASKLM+68* , RA2DT+6, RA2DT+7, RA2DT+8, RA2DT+10, RA2DT+11, RA2DT+12, RA2DT+14, RA2DT+15, RA2DT+16, RA2DT+18 , RA2DT+19, RA2DT+20
RA3	TASKLM+2~, TASKLM+5, TASKLM+9, TASKLM+13, TASKLM+31, TASKLM+64
RAANS	TASKLM+44*, TASKLM+79!
RAANS2	TASKLM+44*, TASKLM+79!
RABDATE	TASKLM+2~, TASKLM+54*, TASKLM+55, TASKLM+56, TASKLM+58
RABDTSV	TASKLM+58*, TASKLM+79!
RABEGDT	TASKLM+2~, TASKLM+58*
RABY	RESCH+1~, RESCH+18, SET15+6*
RADAY	TASKLM+2~, TASKLM+36*, TASKLM+41, TASKLM+49
RADAYS	TASKLM+2~, TASKLM+55*, TASKLM+56
RADT	RESCH+1~, SET15+5, TODAY+1, THISM+1, NEXTM+1*
RADTNW	RA2DT+1~, RA2DT+2*, RA2DT+4, RA2DT+6, RA2DT+7, RA2DT+10, RA2DT+11, RA2DT+14, RA2DT+15, RA2DT+18 , RA2DT+19
RAEDATE	TASKLM+2~, TASKLM+56*, TASKLM+57
RAEDTSV	TASKLM+57*, TASKLM+79!
RAENDDT	TASKLM+2~, TASKLM+57*
RAERR	RESCH+1~, RESCH+18
RAFLAG	RESCH+1~, RESCH+6, RESCH+13, RESCH+18
>> RAHDR	SFOOT+4*, SFOOT+5
>> RAIO	SFOOT+1, BFOOT+1
>> RAIOM	SFOOT+5
RALASTM	TASKLM+2~, TASKLM+5*
RAM1	TASKLM+36*, TASKLM+41, TASKLM+45, TASKLM+46, TASKLM+49, TASKLM+50, TASKLM+79!
>> RAN	SFOOT2+1, SFOOT2+3, SFOOT2+4, SFOOT2+5, SFOOT2+6, SFOOT2+7, SFOOT2+8, SFOOT2+9, SFOOT2+10, SFOOT2+11 , SFOOT2+12, SFOOT2+13, SFOOT2+14, SFOOT2+15, SFOOT2+16, SFOOT2+17, BFOOT2+1, BFOOT2+2, BFOOT2+3, BFOOT2+4 , BFOOT2+5, BFOOT2+6, BFOOT2+7
RAP99	TASKLM+2~, TASKLM+5*, TASKLM+79!
>> RAPG	SFOOT+4*, SFOOT+5
RAPQTR	TASKLM+45*, TASKLM+47, TASKLM+48, TASKLM+51, TASKLM+52, TASKLM+79!
RAQTRYR	TASKLM+36*, TASKLM+79!
>> RAR	RESCH+8, RESCH+19
>> RAR(1	RESCH+9, RESCH+10, RESCH+20
RARAD	TASKLM+43, TASKLM+79!, RADIOL+2
RARPT	TASKLM+44*, TASKLM+79!
RAUTOM	TASKLM+2~, TASKLM+7*
RAWHEN	RESCH+1~, RESCH+18, SET15+5*
U	EN1+6, TASKLM+15, TASKLM+64, TASKLM+68, RESCH+9
X	TASKLM+55, TASKLM+56, RESCH+2~, PRESS, SFOOT+3
X1	TASKLM+3~, TASKLM+55, TASKLM+56, TASKLM+72*, TASKLM+75
X2	TASKLM+3~, TASKLM+55, TASKLM+56, TASKLM+72*, TASKLM+76
>> Y	TASKLM+32, RADIOL+2
Y1	TASKLM+3~, TASKLM+36, TASKLM+48, TASKLM+52, TASKLM+53, RESCH+2~, SET15+1, SET15+2, THISM+1, RA2DT+2* , RA2DT+3, RA2DT+4
Y2	TASKLM+3~, TASKLM+36, TASKLM+48, TASKLM+52, TASKLM+54, RESCH+2~, SET15+2, NEXTM+1, RA2DT+3, RA2DT+4 , RA2DT+6, RA2DT+7, RA2DT+8, RA2DT+10, RA2DT+11, RA2DT+12, RA2DT+14, RA2DT+15, RA2DT+16, RA2DT+18 , RA2DT+19, RA2DT+20
>> ZTDESC	TASKLM+72
>> ZTDTH	TASKLM+32*, TASKLM+72
>> ZTIO	TASKLM+70*
>> ZTQUEUED	TASKLM+7, TASKLM+9, TASKLM+41
>> ZTSK	TASKLM+74, TASKLM+77
>> ZTSK("D"	TASKLM+74

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPM3

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: