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

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

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