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

Package: Radiology Nuclear Medicine

Routine: RADRPT1


Information

RADRPT1 ;HISC/GJC Radiation dosage report utility one ;12 Jul 2017 10:09 AM

Source Information

Source file <RADRPT1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Radiology Nuclear Medicine 4 HDR1^RADRPT1  $$SSANVAL^RAHLRU1  RT^RAPROQ  $$SSN^RAUTL  
Kernel 3 $$FMTE^XLFDT  $$CJ^XLFSTR  EN^XUTMDEVQ  
VA FileMan 3 MIX^DIC1  $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RA PROFRAD DOSE  RADRPT1  RADRPT1A  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point
PAT ;select a patient
HDR ;header - study selection process
HDR1 ;header/end of screen logic
ASK(RAHLP) ;ask the user for a response/end of screen
CTCOL ;print CT column headers
XIT ;kill variables set ZTREQ then exit
DATA ;Make sure only the records selected by the patient
CT ;----------------------- get Rad Dose (CT SCAN) -------------------

External References

Name Field # of Occurrence
MIX^DIC1 PAT+5
$$GET1^DIQ PAT+38, PAT+44, CT+22
^DIR ASK+4
HDR1^RADRPT1 CT+11, CT+20
$$SSANVAL^RAHLRU1 PAT+41
RT^RAPROQ PAT+10
$$SSN^RAUTL PAT+12
$$FMTE^XLFDT PAT+40
$$CJ^XLFSTR HDR+1, CT+2
EN^XUTMDEVQ PAT+77

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+68
Function Call: WRITE
  • Prompt: !!,"This report has been tasked: "_ZTSK
  • Line Location: PAT+78
Function Call: WRITE
  • Prompt: @IOF,!!,$$CJ^XLFSTR(RA("HDR"),80)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?62,"Primary"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?3,"Accession No.",?21,"Exam Date/Time",?37,"Procedure Name",?55,"CPT",?62,"Interpreting"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?3,"-------------",?21,"--------------",?37,"--------------",?55,"-----",?62,"------------"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,RACOL("A1"),?24,RACOL("B1"),?41,RACOL("C1")
  • Line Location: CTCOL+1
Function Call: WRITE
  • Prompt: !,RACOL("A2"),?24,RACOL("B2"),?39,RACOL("C2")
  • Line Location: CTCOL+4
Function Call: WRITE
  • Prompt: !,RACOL("A3"),?24,RACOL("B3"),?39,RACOL("C3")
  • Line Location: CTCOL+5
Function Call: WRITE
  • Prompt: @IOF,!,RATITLE
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: !,"Date: ",RANODT,?69,"Page: ",RAPG
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: !,RABORDR
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: !?RATAB(1),"Name: ",$E(RA("NAME"),1,27)_" "_RA("BID")
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: ?RATAB(4),"Exam Date: ",$E(RAY2A(70.02,RAIEN,".01","E"),1,21)
  • Line Location: HDR1+11
Function Call: WRITE
  • Prompt: !?RATAB(1),"Procedure: ",$E(RAPRC,1,30)
  • Line Location: HDR1+12
Function Call: WRITE
  • Prompt: ?RATAB(4),"Case Number: ",RA("RACN")
  • Line Location: HDR1+13
Function Call: WRITE
  • Prompt: !,RAHDR
  • Line Location: HDR1+14
Routine Call
  • DIR
  • Line Location:
    • ASK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^MAGV(2005.6361 - [#2005.6361] GET1^DIQ
^RADPT - [#70] Classic Fileman Calls
^ICPT - [#81] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PAT+11
^RAD - [#70.3] PAT+31, CT+17, CT+18, CT+19
^RAD("B" PAT+25, PAT+30
^RADPT - [#70] PAT+32, PAT+34, PAT+35
^RAMIS(71 - [#71] PAT+36
^TMP($J PAT+23!, PAT+48*, XIT+3!, DATA+4, DATA+5!

Label References

Name Line Occurrences
ASK PAT+53, PAT+68
CTCOL CT+14, HDR1+14
DATA PAT+73
HDR PAT+29, PAT+59
XIT PAT+66, PAT+70, PAT+80

Naked Globals

Name Field # of Occurrence
^(0 PAT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PAT+1!, PAT+6!, XIT+1!
%H XIT+1!
%I XIT+1!
D PAT+4*, PAT+6!
DIC PAT+1!, PAT+2*, PAT+6!
DIC("A" PAT+2*
DIC("S" PAT+3*
DIC("W" PAT+4*
DIC(0 PAT+4*
DIR ASK+1!, ASK+7!
DIR("?" ASK+3*, ASK+4*
DIR("A" ASK+2*
DIR(0 ASK+1*
DIROUT ASK+1!, ASK+7!
DIRUT PAT+1!, PAT+6!, ASK+1!, ASK+7!
DTIME HDR1+4
DTOUT PAT+1!, PAT+6!, ASK+1!, ASK+5, ASK+7!
DUOUT PAT+1!, PAT+6!, ASK+1!, ASK+5, ASK+7!
I DATA+3*, DATA+4*, DATA+5, DATA+6!
IOF HDR+1, HDR1+7
IOM CT+2
IOSL PAT+50, CT+10, CT+20
IOST HDR1+3
N XIT+1!
RA XIT+1!
RA("ACC" PAT+42*, PAT+43*, PAT+49
RA("ALPHA" PAT+25*, PAT+27
RA("BID" HDR1+10
RA("CPT" PAT+38*, PAT+49
RA("EXDT" PAT+40*, PAT+49
RA("HDR" PAT+15*, HDR+1
RA("NAME" PAT+12*, PAT+15, HDR1+10
RA("OMEGA" PAT+25*, PAT+27, PAT+51, PAT+52, PAT+57
RA("PIS" PAT+44*, PAT+49
RA("PRC" PAT+37*, PAT+49
RA("RACN" HDR1+13
RA("RAMIS" PAT+36*, PAT+37, PAT+38
RA("SSN" PAT+12*
RA("STRING" PAT+26*, PAT+27*
RAB CT+16*, CT+17*, CT+18, CT+36!
>> RABORDR HDR1+9
RAC PAT+22*, PAT+31, XIT+1!
RACC CT+18*, CT+19, CT+36!
RACN PAT+31*, PAT+32, PAT+48, XIT+1!
RACNI PAT+32*, PAT+35, PAT+41, PAT+48, XIT+1!
RACOL CT+36!
RACOL("A1" CT+3*, CT+4, CTCOL+1
RACOL("A2" CT+3*, CTCOL+4
RACOL("A3" CT+4*, CTCOL+5
RACOL("B1" CT+5*, CT+6, CTCOL+1
RACOL("B2" CT+5*, CTCOL+4
RACOL("B3" CT+6*, CTCOL+5
RACOL("C1" CT+7*, CTCOL+1
RACOL("C2" CT+7*, CT+8, CTCOL+4
RACOL("C3" CT+8*, CTCOL+5
RADFN PAT+8*, PAT+11, PAT+25, PAT+30, PAT+32, PAT+34, PAT+35, PAT+41, PAT+48, XIT+1!
RADPT XIT+1!
RADPT(0 PAT+11*, PAT+12
RADTE PAT+31*, PAT+48, XIT+1!
RADTI PAT+31*, PAT+32, PAT+34, PAT+35, PAT+41, PAT+48, XIT+1!
RAE CT+16*, CT+21*, CT+28, CT+34, CT+36!
RAGJC CT+16*, CT+23*, CT+24*, CT+32, CT+33, CT+36!
RAHD CT+36!
>> RAHDR CT+2*, CT+14, HDR1+14
RAHLP PAT+51*, PAT+52*, PAT+53, PAT+68*, XIT+1!, ASK~, ASK+4
>> RAIEN HDR1+11
RAII CT+36!
RAII(0 CT+19*, CT+22, CT+23, CT+24, CT+28
RAII(2 CT+22*
RAIRT CT+36!
>> RANODT HDR1+8
RAP PAT+22*, PAT+33*, PAT+48, PAT+49, XIT+1!, ASK+1, ASK+2
>> RAPG HDR1+7*, HDR1+8
>> RAPRC HDR1+12
RAQ PAT+22*, PAT+30, PAT+55*, PAT+57*, PAT+61*, PAT+66, XIT+1!
>> RAQUIT CT+10, CT+17, CT+18, CT+20, CT+31, HDR1+3, HDR1+5*
RAR PAT+23*, PAT+55, PAT+57, PAT+59, PAT+61, PAT+68, PAT+70, PAT+72, XIT+1!, ASK+7*
, DATA+3
>> RARAD CT+17, CT+18, CT+19
RARPT PAT+45*, PAT+48, XIT+1!
RASSN XIT+1!
>> RATAB(1 HDR1+10, HDR1+12
>> RATAB(4 HDR1+11, HDR1+13
>> RATITLE HDR1+7
RATMP CT+36!
RATR CT+36!
RAX PAT+31*, XIT+2!
RAY PAT+22*, PAT+30*, PAT+31, PAT+48, PAT+51, PAT+52, PAT+57, XIT+2!
RAY2 PAT+34*, PAT+39, PAT+43, XIT+2!
>> RAY2A( HDR1+11
RAY3 PAT+35*, PAT+36, PAT+43, PAT+44, PAT+45, XIT+2!
RTFL XIT+2!
U PAT+12, PAT+31, PAT+36, PAT+37, PAT+38, PAT+39, PAT+43, PAT+44, PAT+45, PAT+48
, CT+22, CT+23, CT+24, CT+28, CT+32, CT+33
X PAT+1!, PAT+7!, PAT+10!, PAT+39*, PAT+40, PAT+41*, PAT+42, PAT+43, XIT+2!, ASK+1!
, ASK+7!, HDR1+4*, HDR1+5!
X1 XIT+2!
XRAR DATA+3*, DATA+5, DATA+6!
Y PAT+1!, PAT+7!, PAT+8, PAT+10!, XIT+2!, ASK+1!, ASK+5*, ASK+7!
Z XIT+2!
ZTDESC PAT+76*, PAT+77, XIT+2!
ZTRTN PAT+75*, PAT+77, XIT+2!
ZTSAVE PAT+77, XIT+2!
ZTSAVE("RADFN" PAT+74*
ZTSAVE("^TMP($J,""RAEX""," PAT+75*
ZTSK PAT+78, XIT+2!
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