Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call