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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RATRAN

Package: Radiology Nuclear Medicine

Routine: RATRAN


Information

RATRAN ;HISC/FPT AISC/DMK-Transcriptionist Report ;8/14/97 11:08

Source Information

Source file <RATRAN.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Radiology Nuclear Medicine 8 $$ALLNOTH^RALWKL3  SETVARS^RAPSET1  EN1^RASELCT  (CLOSE,D,DATE,ZIS)^RAUTL  ACCVIO^RAUTL19  $$EOS^RAUTL5  SELDIV^RAUTL7  STOPCHK^RAUTL9  

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: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RA TRANSCRIP REPORT  

Entry Points

Name Comments DBIA/ICR reference
START ; start processing
GET ; get tmp global values
END ; kill variables, close device
SET ; set tmp global
LCNT(J) ; Count lines in report text and impression text. If the number of
; characters in either the report or impression text add up to a number
; greater than zero and less than seventy five, assume that we have
; seventy five characters.
WRT ; write out counts
HDR ; header
USER ; select transcriptionists to appear in report
NEGRPT ; negative report message

External References

Name Field # of Occurrence
$$ALLNOTH^RALWKL3 RATRAN+10
SETVARS^RAPSET1 RATRAN+5
EN1^RASELCT USER+2
CLOSE^RAUTL END+4
D^RAUTL START+3
DATE^RAUTL RATRAN+15
ZIS^RAUTL RATRAN+19
ACCVIO^RAUTL19 RATRAN+6
$$EOS^RAUTL5 WRT+1, WRT+3, NEGRPT+2
SELDIV^RAUTL7 RATRAN+7
STOPCHK^RAUTL9 SET+1, HDR+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,">>> IMAGING TRANSCRIPTIONIST WORKLOAD REPORT <<<",!
  • Line Location: RATRAN+4
Function Call: WRITE
  • Prompt: !,RANAME,?50,RACNT,?67,RATCNT
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: @IOF,!?21,">>> IMAGING TRANSCRIPTION REPORT <<<"
  • Condition for execution: $Y>0
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?70,"PAGE: ",RAPG
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?23,"Division: ",RADIV
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?21,"Date Range: ",RASTART," - ",RAFINISH
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"# of Transcriptionists selected: ",$S($G(RAFLDCNT)>0:$G(RAFLDCNT),1:"ALL"),!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"RADIOLOGY/NUCLEAR MEDICINE PERSONNEL",?44,"NUMBER OF LINES",?61,"NUMBER OF REPORTS"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,QQ,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"In this division there were no reports found for the transcriptionists selected."
  • Line Location: NEGRPT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] SET+6
^RA(79 - [#79] SET+6
^RADPT - [#70] SET+5, SET+6
^RARPT - [#74] START+8, START+17, SET+4, LCNT+5, LCNT+7
^RARPT("AD" START+6, START+7, START+8, START+15, START+16, START+17
^TMP($J RATRAN+3!, RATRAN+8, RATRAN+9*, RATRAN+12, RATRAN+13, START+14, START+15, GET+2, END+2!, SET+8
, SET+9, SET+12, SET+13, SET+16*, WRT+1, WRT+3, NEGRPT+2
^VA(200 - [#200] SET+2

Label References

Name Line Occurrences
$$LCNT SET+10
END RATRAN+8, RATRAN+11, RATRAN+12, RATRAN+15, RATRAN+19
HDR GET+2, WRT+1
NEGRPT GET+2
SET START+8, START+17
USER RATRAN+12
WRT GET+2

Naked Globals

Name Field # of Occurrence
^( GET+3, SET+12*
^("T" START+8, START+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A RATRAN+9*, END+1!, END+5!
BEGDATE RATRAN+16, END+1!
DIRUT END+5!
DUOUT END+5!
DUZ RATRAN+5, RATRAN+6
ENDDATE RATRAN+16, END+1!
I START+7*, START+8, START+16*, START+17, GET+2*, GET+3, END+1!, END+5!, WRT+1, WRT+3
IO START+1
IOF HDR+1
IOSL WRT+1
J START+8*, START+17*, END+1!, SET+4, SET+10, LCNT~, LCNT+5, LCNT+7
K LCNT+4~, LCNT+5*, LCNT+7*
LCNT START+2*, END+1!, SET+10*, SET+14, LCNT+4~*, LCNT+11*, LCNT+12*, LCNT+13
LCNT("I" LCNT+4*, LCNT+5*, LCNT+6*, LCNT+11
LCNT("R" LCNT+4*, LCNT+7*, LCNT+8*, LCNT+11
POP END+5!
QQ START+2*, END+1!, HDR+6
RABEG RATRAN+16*, START+3, START+7, START+16, END+1!
RACCESS END+3!
RACCESS( RATRAN+5, RATRAN+6
RACNT GET+3*, END+1!, WRT+2
RADFN END+1!, SET+4*, SET+5, SET+6
RADIC USER+1*, USER+2, USER+3!
RADIC("A" USER+1*
RADIC("S" USER+1*
RADIC(0 USER+1*
RADIV GET+1*, GET+2*, END+1!, SET+6*, WRT+1, WRT+3, HDR+2, NEGRPT+2
RADIVNME END+1!, SET+6*, SET+7, SET+8, SET+12, SET+13, SET+16
RADTI END+1!, SET+4*, SET+5, SET+6
RADUZ START+5*, START+6*, START+7, START+8, START+14*, START+15*, START+16, START+17, END+1!, SET+2
, SET+9, SET+11
RADUZ(0 SET+13*, SET+14*, SET+15*, SET+16, SET+17!
RADUZNME END+1!, SET+2*, SET+3, SET+9, SET+11*, SET+12, SET+13, SET+16
RAEND RATRAN+16*, START+3, START+7, START+16, END+1!
RAFINISH START+3*, END+1!, HDR+3
RAFLDCNT RATRAN+13*, END+1!, HDR+4
RAI END+1!
RALP RATRAN+13*, RATRAN+14!
RALP1 RATRAN+13*, RATRAN+14!
RAMES END+5!
RANAME GET+3*, END+2!, WRT+2
RAOUT RATRAN+3*, START+2*, START+6, START+7, START+8, START+14, START+15, START+16, START+17, GET+2
, END+2!, END+5!, SET+1*, WRT+1*, WRT+3*, HDR+7*, NEGRPT+2*
RAPG START+2*, END+2!, HDR+1*
RAPGM END+2!
RAPOP RATRAN+15, RATRAN+19, END+2!, END+5!
RAPSTX RATRAN+5*, END+3!, END+5!
RAQUIT RATRAN+8, END+2!, END+5!
RARPTNDE END+2!, SET+4*
RASKIP END+2!
RASTART START+3*, END+2!, HDR+3
RASV RATRAN+18*, END+2!
RASW RATRAN+10*, RATRAN+11, RATRAN+12, RATRAN+13, START+5, START+13, END+2!, END+5!, SET+9, USER+2
RATCNT GET+3*, END+2!, WRT+2
RATITLE RATRAN+3*, END+2!, END+5!, USER+1
RATRAN START+13*, START+14*, START+15, END+2!
RAUTIL USER+1*, USER+2, USER+3!
U SET+2, SET+4, SET+6
X END+2!
Y START+3*, END+2!
ZTDESC RATRAN+17*, END+5!
>> ZTQUEUED START+1, SET+1, HDR+7
>> ZTREQ START+1*
ZTRTN RATRAN+17*, END+5!
ZTSAVE END+5!
ZTSAVE( RATRAN+18*
ZTSAVE("^TMP($J,""RATRAN""," RATRAN+17*
ZTSAVE("^TMP($J,""RATWKL""," RATRAN+17*
>> ZTSTOP SET+1, HDR+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All