Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RAPM3

Package: Radiology Nuclear Medicine

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

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

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

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
  • DIC
  • Line Location:
    • RADIOL+2
Routine Call
  • DIE
  • Line Location:
    • EN1+12
Routine Call
  • DIR
  • Line Location:
    • TASKLM+30

FileMan Files Accessed Via FileMan Db Call

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*

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All