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

Entry Points

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

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

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