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 |  Local Variables |  All
Print Page as PDF
Routine: RADRPT2A

Package: Radiology Nuclear Medicine

Routine: RADRPT2A


Information

RADRPT2A ;HISC/GJC Radiation dosage report utility two ;01 Aug 2017 1:28 PM

Source Information

Source file <RADRPT2A.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 $$S^%ZTLOAD  $$FMTE^XLFDT  $$CJ^XLFSTR  
Radiology Nuclear Medicine 1 $$NAMCODE^RACPTMSC  
VA FileMan 1 ($$GET1,GETS)^DIQ  

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

Package Total Caller Graph
Radiology Nuclear Medicine 2 RADRPT1A  RADRPT2  

Entry Points

Name Comments DBIA/ICR reference
DISPLAY ; display data
XIT ;kill variables and exit...
CTDATA ;print CT detailed series data or print summary totals
GETDEM ;get patient demographics name & SSN
GETXAM ;get exam/study based data
PRTCTS ;print CT summary data
PRTCTD ;print CT series/detailed data
PRTFL ;print fluoroscopy data
EOS ;end of screen - Note: EOS falls through to HDR!
HDR ;header
HDRCTD ;header for CT detailed
HDRCTS ;header for CT summary
HDRFL ;header for fluoroscopy
DISCLAIM ;set up the disclaimer statements in an array

External References

Name Field # of Occurrence
$$S^%ZTLOAD DISPLAY+59
$$GET1^DIQ CTDATA+11, GETXAM+1
GETS^DIQ GETDEM+1
$$NAMCODE^RACPTMSC GETXAM+5
$$FMTE^XLFDT GETXAM+6
$$CJ^XLFSTR DISPLAY+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+66
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+75
Function Call: WRITE
  • Prompt: !,$E(RANAME,1,27),?29,RASSN("BID"),?35,RADATE,?45,RACPT,?52,$E(RAPRC,1,27),?81,$E(RASTF,1,27)
  • Line Location: PRTCTS+1
Function Call: WRITE
  • Prompt: ?110,$J(RACTDI,9,2),?121,$J(RADLP,9,2)
  • Line Location: PRTCTS+2
Function Call: WRITE
  • Prompt: !,$E(RANAME,1,23),?25,RASSN("BID"),?31,RADATE,?41,RACPT,?48,$E(RAPRC,1,23),?73,$E(RASTF,1,23)
  • Line Location: PRTCTD+1
Function Call: WRITE
  • Prompt: ?98,RAHDS,?107,$J(RACTDI,9,2),?118,$J(RADLP,9,2)
  • Line Location: PRTCTD+2
Function Call: WRITE
  • Prompt: !,$E(RANAME,1,18),?25,RASSN("BID"),?31,RADATE,?41,RACPT,?48,$E(RAPRC,1,25),?75,$E(RASTF,1,23)
  • Line Location: PRTFL+3
Function Call: WRITE
  • Prompt: ?99,$J(RAK,10,2),?112,$J(RAKAP,9,2),?125,RAFLMIN
  • Line Location: PRTFL+4
Function Call: WRITE
  • Prompt: @IOF,!,"Facility",?20,": ",RAFAC,?120,"Page: ",RAPG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Station",?20,": ",RASTNUM
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Report Date Range",?20,": ",RANGE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Report Run Date/Time",?20,": ",RARUNDT
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,RAHDRTY
  • Line Location: HDRCTD+1
Function Call: WRITE
  • Prompt: !!?98,"Highest",!?98,"Dose",?107,"CTDIvol",?118,"DLP"
  • Line Location: HDRCTD+2
Function Call: WRITE
  • Prompt: !,"Patient",?25,"SSN",?31,"Date",?41,"CPT",?48,"Procedure Name",?73,"Radiologist",?98,"Series",?107,"mGy",?118,"mGy-cm"
  • Line Location: HDRCTD+3
Function Call: WRITE
  • Prompt: !,RALINE
  • Line Location: HDRCTD+4
Function Call: WRITE
  • Prompt: !,RAHDRTY
  • Line Location: HDRCTS+1
Function Call: WRITE
  • Prompt: !!?110,"Sum of",?121,"Sum of",!,?110,"all CDTI",?121,"all DLP"
  • Line Location: HDRCTS+2
Function Call: WRITE
  • Prompt: !,"Patient",?29,"SSN",?35,"Date",?45,"CPT",?52,"Procedure Name",?81,"Radiologist",?110,"vol mGy",?121,"mGy-cm"
  • Line Location: HDRCTS+3
Function Call: WRITE
  • Prompt: !,RALINE
  • Line Location: HDRCTS+4
Function Call: WRITE
  • Prompt: !,RAHDRTY
  • Line Location: HDRFL+1
Function Call: WRITE
  • Prompt: !?100,"Air",?112,"Air Kerma",?125,"Fluoro",!?100,"Kerma",?112,"Area Product",?125,"Time"
  • Line Location: HDRFL+2
Function Call: WRITE
  • Prompt: !,"Patient",?25,"SSN",?31,"Date",?41,"CPT",?48,"Procedure Name",?75,"Radiologist",?100,"mGy",?112,"Gy-cm2",?125,"min"
  • Line Location: HDRFL+3
Function Call: WRITE
  • Prompt: !,RALINE
  • Line Location: HDRFL+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
^VA(200 - [#200] GET1^DIQ
^MAGV(2005.6362 - [#2005.6362] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RADPT - [#70] DISPLAY+41, DISPLAY+42
^RAMIS(71 - [#71] GETXAM+2
^TMP($J DISPLAY+22, DISPLAY+27!, DISPLAY+29, DISPLAY+31, DISPLAY+33, DISPLAY+34, DISPLAY+35, DISPLAY+36, DISPLAY+39, DISPLAY+40
, DISPLAY+71, DISPLAY+73, XIT+1!, CTDATA+9, CTDATA+10, CTDATA+17, CTDATA+22, PRTFL+1, DISCLAIM+1*, DISCLAIM+2*
, DISCLAIM+3*, DISCLAIM+4*, DISCLAIM+6*, DISCLAIM+7*, DISCLAIM+8*, DISCLAIM+9*, DISCLAIM+10*, DISCLAIM+12*, DISCLAIM+13*, DISCLAIM+14*
, DISCLAIM+15*, DISCLAIM+16*, DISCLAIM+18*, DISCLAIM+19*, DISCLAIM+20*, DISCLAIM+21*, DISCLAIM+22*, DISCLAIM+23*, DISCLAIM+24*, DISCLAIM+26*
, DISCLAIM+27*, DISCLAIM+28*, DISCLAIM+29*, DISCLAIM+30*, DISCLAIM+31*, DISCLAIM+32*

Label References

Name Line Occurrences
@( HDR+6
CTDATA DISPLAY+48, DISPLAY+50
DISCLAIM DISPLAY+27
EOS DISPLAY+51, DISPLAY+53, DISPLAY+55, DISPLAY+60, DISPLAY+65, DISPLAY+72, CTDATA+13, CTDATA+24
GETDEM DISPLAY+38
GETXAM DISPLAY+44
HDR DISPLAY+23, DISPLAY+30
PRTCTD CTDATA+13, CTDATA+19
PRTCTS CTDATA+24
PRTFL DISPLAY+46
XIT DISPLAY+22, DISPLAY+63, DISPLAY+77

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DTIME EOS+2
IOF HDR+2
IOM DISPLAY+14, DISPLAY+19, DISPLAY+24
IOSL DISPLAY+51, DISPLAY+53, DISPLAY+55, DISPLAY+60, DISPLAY+65, DISPLAY+72, CTDATA+13, CTDATA+24
IOST EOS+1
RA71 XIT+1!
RA71(0 GETXAM+2*, GETXAM+3
RA71(9 GETXAM+3*, GETXAM+5
RABORDER DISPLAY+14*, XIT+1!, HDR+6
RAC DISPLAY+20*, DISPLAY+41, XIT+1!
RACN XIT+1!
RACNI DISPLAY+38*, DISPLAY+40*, DISPLAY+42, DISPLAY+51, XIT+1!, CTDATA+9, CTDATA+10, CTDATA+17, CTDATA+22, PRTFL+1
RACNI("X" DISPLAY+39*, DISPLAY+51
RACPT XIT+1!, GETXAM+5*, PRTCTS+1, PRTCTD+1, PRTFL+3
RACTDI XIT+1!, CTDATA+6~, CTDATA+12*, CTDATA+18*, CTDATA+23*, PRTCTS+2, PRTCTD+2
RADATE XIT+1!, GETXAM+6*, PRTCTS+1, PRTCTD+1, PRTFL+3
RADFN DISPLAY+35*, DISPLAY+36*, DISPLAY+39, DISPLAY+40, DISPLAY+41, DISPLAY+42, DISPLAY+53, XIT+2!, CTDATA+9, CTDATA+10
, CTDATA+17, CTDATA+22, GETDEM+1, GETDEM+2, GETDEM+3, PRTFL+1
RADFN("X" DISPLAY+35*, DISPLAY+53
RADIEN XIT+2!
RADISCLM DISPLAY+64*, XIT+2!, HDR+6
RADLP XIT+2!, CTDATA+6~, CTDATA+12*, CTDATA+18*, CTDATA+23*, PRTCTS+2, PRTCTD+2
RADTE DISPLAY+30*, DISPLAY+31*, DISPLAY+33, DISPLAY+34, DISPLAY+35, DISPLAY+36, DISPLAY+39, DISPLAY+40, DISPLAY+41, DISPLAY+60
, XIT+2!, CTDATA+9, CTDATA+10, CTDATA+17, CTDATA+22, GETXAM+5, GETXAM+6, PRTFL+1
RADTE("X" DISPLAY+29*, DISPLAY+60
RADTI DISPLAY+41*, DISPLAY+42, XIT+2!
RAF XIT+2!, CTDATA+6~, CTDATA+10*, CTDATA+11, CTDATA+12
RAFAC XIT+2!, HDR+2
RAFILTR DISPLAY+15, XIT+2!
RAFLMIN XIT+2!, PRTFL+2*, PRTFL+4
RAFLSEC XIT+2!
RAHDRBY DISPLAY+15*, DISPLAY+16, DISPLAY+17, DISPLAY+18, XIT+3!
RAHDRTY DISPLAY+16*, DISPLAY+17*, DISPLAY+18*, XIT+3!, HDRCTD+1, HDRCTS+1, HDRFL+1
RAHDS XIT+3!, CTDATA+6~, CTDATA+8*, CTDATA+9*, CTDATA+10, CTDATA+18*, PRTCTD+2
RAI DISPLAY+66*, DISPLAY+67, DISPLAY+68, DISPLAY+69, DISPLAY+71, DISPLAY+73, XIT+3!, CTDATA+6~
RAK XIT+3!, PRTFL+2*, PRTFL+4
RAKAP XIT+3!, PRTFL+2*, PRTFL+4
RAL XIT+3!
RALINE DISPLAY+19*, XIT+3!, HDRCTD+4, HDRCTS+4, HDRFL+4
RANAME XIT+3!, GETDEM+2*, PRTCTS+1, PRTCTD+1, PRTFL+3
RANGE XIT+3!, HDR+4
RAPG DISPLAY+20*, XIT+3!, HDR+1*, HDR+2
RAPHNTOM XIT+3!, CTDATA+6~, CTDATA+11*, CTDATA+19*
RAPRC XIT+4!, GETXAM+3*, PRTCTS+1, PRTCTD+1, PRTFL+3
RAQUIT DISPLAY+20*, DISPLAY+31, DISPLAY+34, DISPLAY+36, DISPLAY+40, DISPLAY+46, DISPLAY+48, DISPLAY+50, DISPLAY+53, DISPLAY+55
, DISPLAY+58, DISPLAY+59*, DISPLAY+63, DISPLAY+65, DISPLAY+66, DISPLAY+71, DISPLAY+72, DISPLAY+75, XIT+4!, CTDATA+7
, CTDATA+9, CTDATA+13, CTDATA+16, CTDATA+21, CTDATA+24, EOS+1, EOS+3*
RAR XIT+4!
RARPTYPE DISPLAY+16, DISPLAY+17, DISPLAY+18, DISPLAY+46, DISPLAY+48, DISPLAY+50, DISPLAY+67, DISPLAY+68, DISPLAY+69, XIT+4!
, CTDATA+7, CTDATA+21, HDR+6
RARUNDT XIT+4!, HDR+5
RASSN XIT+4!
RASSN("BID" GETDEM+4*, PRTCTS+1, PRTCTD+1, PRTFL+3
RASSN("PID" GETDEM+3*
RASTF XIT+4!, GETXAM+1*, PRTCTS+1, PRTCTD+1, PRTFL+3
RASTNUM XIT+4!, HDR+3
RATMP XIT+4!, GETDEM+1!, GETDEM+4!
RATMP(2 GETDEM+2, GETDEM+3
RAXY DISPLAY+33*, DISPLAY+34*, DISPLAY+35, DISPLAY+36, DISPLAY+39, DISPLAY+40, DISPLAY+55, XIT+4!, CTDATA+9, CTDATA+10
, CTDATA+17, CTDATA+22, PRTFL+1
RAXY("X" DISPLAY+33*, DISPLAY+55
RAY DISPLAY+70*, DISPLAY+71*, DISPLAY+73, XIT+4!
RAY2 DISPLAY+41*, XIT+4!
RAY3 DISPLAY+42*, XIT+5!, GETXAM+1, GETXAM+2
RAZTSTOP DISPLAY+20*, DISPLAY+58*, DISPLAY+59, XIT+5!
U CTDATA+11, CTDATA+12, CTDATA+18, CTDATA+23, GETXAM+1, GETXAM+2, GETXAM+3, GETXAM+5, PRTFL+2
X DISPLAY+23*, DISPLAY+24, XIT+5!, CTDATA+6~, CTDATA+17*, CTDATA+18, CTDATA+22*, CTDATA+23, GETDEM+1!, GETDEM+3*
, GETDEM+4!, PRTFL+1*, PRTFL+2, PRTFL+4!, EOS+2*, EOS+3!
Y XIT+5!
>> ZTQUEUED DISPLAY+59, XIT+5
>> ZTREQ XIT+5*
>> ZTSTOP DISPLAY+59*
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 |  Local Variables |  All