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

Package: Radiology Nuclear Medicine

Routine: RADRPT2


Information

RADRPT2 ;HISC/GJC Radiation dosage report utility two ;01 Aug 2017 1:54 PM

Source Information

Source file <RADRPT2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ($$FMADD,$$FMTE,$$NOW)^XLFDT  $$KSP^XUPARAM  EN^XUTMDEVQ  
Radiology Nuclear Medicine 3 DISPLAY^RADRPT2A  EN1^RASELCT  DATE^RAUTL  
VA FileMan 2 GETS^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: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RA RAD DOSE SUMMARY  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point
PAT ;sort by patient
SCRPROC(DA) ;screen procedures by type and if inactive.
GETRDOSE ;get Rad dosage data
INT(ROOT) ;store the internal value of the patient/procedure/radiologist record
START ;start processing
INIT ;initialize some variables
XIT ;kill variables
ITYPCHK(Y) ;i-type check
PROC ;sort by procedure
STAFF ;sort by primary interpreting staff (radiologist)

External References

Name Field # of Occurrence
GETS^DIQ INIT+3
^DIR EN+27, EN+49
DISPLAY^RADRPT2A START+46
EN1^RASELCT PAT+5, PROC+5, STAFF+5
DATE^RAUTL EN+33
$$FMADD^XLFDT EN+37
$$FMTE^XLFDT EN+39, START+4
$$NOW^XLFDT START+4
$$KSP^XUPARAM INIT+2
EN^XUTMDEVQ EN+63

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+42
Function Call: WRITE
  • Prompt: !!,"Task Number: "_ZTSK,!
  • Line Location: EN+64
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: !!?3,$C(7),"Radiology patient data was not selected."
  • Line Location: PAT+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: PROC+5
Function Call: WRITE
  • Prompt: !!?3,$C(7),"Radiology procedure data was not selected."
  • Line Location: PROC+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: STAFF+5
Function Call: WRITE
  • Prompt: !!?3,$C(7),"Staff Radiologist data was not selected."
  • Line Location: STAFF+8
Routine Call
  • DIR
  • Line Location:
    • EN+27
    • EN+49

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79.2 - [#79.2] ITYPCHK+16
^RAD - [#70.3] GETRDOSE+2, GETRDOSE+10, GETRDOSE+16, GETRDOSE+17, GETRDOSE+18
^RAD("ARAD" START+6, START+7, START+19
^RADPT - [#70] START+10, START+13, START+14, START+15, START+16
^RAMIS(71 - [#71] SCRPROC+1
^TMP("RA PATI" START+23, START+24, START+47!, PAT+1!, INT+5*
^TMP("RA PROCI" START+30, START+31, START+47!, PROC+1!, INT+4*
^TMP("RA STFPHYSI" START+37, START+38, START+47!, STAFF+1!, INT+6*
^TMP($J START+1!, START+5!, START+47!, PAT+1!, PAT+7, PAT+11, PROC+1!, PROC+7, PROC+11, STAFF+1!
, STAFF+7, STAFF+11, GETRDOSE+6*, GETRDOSE+13*, GETRDOSE+20*, GETRDOSE+25*

Label References

Name Line Occurrences
$$ITYPCHK START+12
@( EN+55
GETRDOSE START+25, START+32, START+39
INIT EN+58
INT PAT+11, PROC+11, STAFF+11
XIT EN+34, EN+35, EN+50, EN+56, EN+65, START+48

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT+1!
%W PAT+5!, PROC+5!, STAFF+5!
%Y1 PAT+5!, PROC+5!, STAFF+5!
BEGDATE EN+34, EN+37, EN+39, EN+40!
DA SCRPROC~, SCRPROC+1
DF XIT+1!
DIC PAT+5!, PROC+5!, STAFF+5!
DIR EN+20!, EN+28!, EN+30!, EN+42!, EN+52!, XIT+1!
DIR("?" EN+23*, EN+24*, EN+25*, EN+26*, EN+45*, EN+46*, EN+47*, EN+48*
DIR("A" EN+22*, EN+44*
DIR(0 EN+21*, EN+43*
DIROUT EN+20!, EN+28!, EN+30!, EN+42!, EN+52!, XIT+1!
DIRUT EN+20!, EN+28!, EN+30!, EN+42!, EN+50, EN+52!, XIT+1!
DTOUT EN+20!, EN+28!, EN+30!, EN+42!, EN+52!, XIT+1!
DUOUT EN+20!, EN+28!, EN+30!, EN+42!, EN+52!, XIT+1!
ENDDATE EN+35, EN+38, EN+39, EN+40!
I GETRDOSE+11!, GETRDOSE+13*, GETRDOSE+19*, GETRDOSE+20, GETRDOSE+26!
IOF EN+42
RA EN+60*, XIT+1!
RA71 SCRPROC+1~
RA71(0 SCRPROC+1*, SCRPROC+3
RABEGDT EN+37*, START+4, XIT+1!
RAC START+5*, START+9, XIT+1!
>> RACN START+9*, START+13*, START+14, START+19
RACNI START+14*, START+15, START+16, GETRDOSE+6, GETRDOSE+13, GETRDOSE+20, GETRDOSE+25, XIT+1!
RADFN START+7*, START+10, START+13, START+14, START+15, START+16, START+19, START+23, START+24, GETRDOSE+6
, GETRDOSE+13, GETRDOSE+20, GETRDOSE+25, XIT+1!
RADIC PAT+2*, PAT+5!, PROC+2*, PROC+5!, STAFF+2*, STAFF+5!
RADIC("A" PAT+3*, PROC+3*, STAFF+3*
RADIC("B" PAT+3*, PROC+3*, STAFF+3*
RADIC("S" PAT+4*, PROC+4*, STAFF+4*
RADIC(0 PAT+2*, PROC+2*, STAFF+2*
RADIEN START+16*, START+19, GETRDOSE+2, GETRDOSE+10, GETRDOSE+16, GETRDOSE+17, GETRDOSE+18, XIT+1!
RADLP GETRDOSE+11!, GETRDOSE+13*, GETRDOSE+16*, GETRDOSE+17, GETRDOSE+26!
RADTE START+4*, START+6*, START+7, START+9, START+19, GETRDOSE+6, GETRDOSE+13, GETRDOSE+20, GETRDOSE+25, XIT+1!
RADTI START+9*, START+10, START+13, START+14, START+15, START+16, XIT+1!
RAENDDT EN+38*, START+6, XIT+1!
RAFAC INIT+4*, XIT+2!
RAFILTR EN+51*, EN+55, EN+61, START+23, START+30, START+37, INT+4, INT+5, INT+6, XIT+2!
RAFLMIN GETRDOSE+4*, GETRDOSE+6, GETRDOSE+7!
RAFLSEC GETRDOSE+4*, GETRDOSE+7!
RAII GETRDOSE+11!, GETRDOSE+26!
RAII(0 GETRDOSE+18*, GETRDOSE+20, GETRDOSE+21, GETRDOSE+22
RAK GETRDOSE+3*, GETRDOSE+6, GETRDOSE+7!
RAKAP GETRDOSE+3*, GETRDOSE+6, GETRDOSE+7!
RANGE EN+39*, XIT+2!
RAP START+5*, XIT+2!
RAPG START+5*, XIT+2!
RAPOP XIT+2!
RAQUIT EN+54*, EN+56, START+5*, START+6, START+7, START+13, PAT+8*, PROC+8*, STAFF+8*, GETRDOSE+16
, GETRDOSE+17, XIT+2!
RAR INIT+2!, INIT+6!, XIT+2!
RAR(4 INIT+4, INIT+5
RARPTYPE EN+29*, GETRDOSE+1, ITYPCHK+18, ITYPCHK+19, ITYPCHK+20, XIT+2!
RARUNDT START+4*, XIT+2!
RASORT START+24*, START+25!, START+31*, START+32!, START+38*, START+39!, GETRDOSE+6, GETRDOSE+13, GETRDOSE+20, GETRDOSE+25
, XIT+2!
RASTNUM INIT+5*, XIT+2!
RAUTIL PAT+2*, PAT+5!, PROC+2*, PROC+5!, STAFF+2*, STAFF+5!, XIT+2!
RAVAR EN+58!, EN+63, XIT+3!
RAVAR( EN+60*, EN+62*
RAX EN+61*, EN+62, XIT+3!
RAY INIT+2*, INIT+3, INIT+4, INIT+5, INIT+6!, XIT+3!
RAY2 START+10*, START+12, XIT+3!
RAY3 START+15*, START+30, START+31, START+37, START+38, XIT+3!
ROOT INT~, INT+2, INT+3, INT+8
U START+12, START+16, START+30, START+31, START+37, START+38, SCRPROC+3, GETRDOSE+3, GETRDOSE+4, GETRDOSE+6
, GETRDOSE+20, GETRDOSE+21, GETRDOSE+22, ITYPCHK+17
X EN+28!, EN+30!, EN+52!, PAT+5!, PROC+5!, STAFF+5!, INT+1~*, INT+2*, INT+3, INT+4
, INT+5, INT+6, INT+8, INIT+2!, INIT+6!, GETRDOSE+2*, GETRDOSE+3, GETRDOSE+4, GETRDOSE+7!, GETRDOSE+11!*
, GETRDOSE+21*, GETRDOSE+22*, GETRDOSE+25, GETRDOSE+26!, ITYPCHK+16~*, ITYPCHK+17, XIT+3!
X(3 ITYPCHK+17*, ITYPCHK+18, ITYPCHK+19, ITYPCHK+20
Y EN+28!, EN+29, EN+30!, EN+51, EN+52!, PAT+5!, PROC+5!, STAFF+5!, INT+1~, INT+3*
, INT+4, INT+5, INT+6, GETRDOSE+11!, GETRDOSE+17*, GETRDOSE+18, GETRDOSE+26!, ITYPCHK~, ITYPCHK+16, XIT+3!
ZTDESC XIT+3!
ZTSAVE XIT+3!
ZTSK EN+64, XIT+3!
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