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

Package: Radiology Nuclear Medicine

Routine: RARTUVR1


Information

RARTUVR1 ;HISC/FPT,SWM AISC/RMO-Unverified Reports ;8/19/97 11:16

Source Information

Source file <RARTUVR1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Radiology Nuclear Medicine 2 HOURAGE^RARTUVR2  $$EOS^RAUTL5  
Kernel 1 ($$FMDIFF,$$FMTE)^XLFDT  
VA FileMan 1 $$GET1^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 RARTUVR  RARTUVR2  

Entry Points

Name Comments DBIA/ICR reference
BTG ; build tmp global
INC(RATYP) ; Increment count for Resident, Staff or Unknown
PHYS ;print other staff and residents
PHYS1
PHYS11
PHYS2
PHYS20
PHYS21
PHYS29
DIVSUM ;division summary -- skip if only one imaging type chosen for this div

External References

Name Field # of Occurrence
$$GET1^DIQ INC+5, PHYS+2, PHYS+3, PHYS+4, PHYS2
HOURAGE^RARTUVR2 DIVSUM+10
$$EOS^RAUTL5 DIVSUM+3, DIVSUM+20
$$FMDIFF^XLFDT INC+15
$$FMTE^XLFDT DIVSUM+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,RASTR,"; "
  • Line Location: PHYS11+2
Function Call: WRITE
  • Prompt: !,RASTR,"; "
  • Line Location: PHYS2+2
Function Call: WRITE
  • Prompt: !,RASTR
  • Line Location: PHYS20+0
Function Call: WRITE
  • Prompt: !,RASTR,"; "
  • Line Location: PHYS21+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: DIVSUM+4
Function Call: WRITE
  • Prompt: !?$S(IOM<81:20,1:IOM-90),">>>>> Unverified Reports (",$S(RABD="B":"brief",1:"detailed"),") <<<<<"
  • Line Location: DIVSUM+4
Function Call: WRITE
  • Prompt: ?$S(IOM<81:70,1:IOM-10),"Page: ",RAPAGE
  • Line Location: DIVSUM+4
Function Call: WRITE
  • Prompt: !,"Division: ",?10,RADIVNME,?$S(IOM<81:43,1:IOM-37),"Report Date Range:",?$S(IOM<81:62,1:IOM-18),$$FMTE^XLFDT(BEGDATE),!?$S(IOM<81:62,1:IOM-18),$$FMTE^XLFDT(ENDDATE)
  • Line Location: DIVSUM+5
Function Call: WRITE
  • Prompt: !,"Imaging Type(s): "
  • Line Location: DIVSUM+6
Function Call: WRITE
  • Prompt: !?17
  • Condition for execution: ($L(RA1)+3+$X)>IOM
  • Line Location: DIVSUM+7
Function Call: WRITE
  • Prompt: RA1," "
  • Line Location: DIVSUM+7
Function Call: WRITE
  • Prompt: !!,"Run Date: ",RARUNDAT
  • Line Location: DIVSUM+8
Function Call: WRITE
  • Prompt: !!!?26,"Division Summary",!?26,$E(RADASH,1,16)
  • Line Location: DIVSUM+9
Function Call: WRITE
  • Prompt: !!,"Total Unverified Reports: "
  • Line Location: DIVSUM+15
Function Call: WRITE
  • Prompt: ?29,$S($G(RA2ND(1)):$J(RA2ND(1),$L(RACUT(3))),1:$J(0,$L(RACUT(3)))),?39,$S($G(RA2ND(2)):$J(RA2ND(2),$L(RACUT(3))),1:$J(0,$L(RACUT(3))))
  • Line Location: DIVSUM+16
Function Call: WRITE
  • Prompt: ?49,$S($G(RA2ND(3)):$J(RA2ND(3),$L(RACUT(3))),1:$J(0,$L(RACUT(3)))),?59,$S($G(RA2ND(4)):$J(RA2ND(4),$L(RACUT(3))+2),1:$J(0,$L(RACUT(3))+2))
  • Line Location: DIVSUM+17
Function Call: WRITE
  • Prompt: !!,"Division Total: ",RA1,!!
  • Line Location: DIVSUM+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] BTG+3
^RA(79.2 - [#79.2] BTG+6
^RADPT - [#70] BTG+2, PHYS+2, PHYS+3
^TMP($J BTG+4, BTG+7, BTG+10, BTG+15*, INC+9, INC+10*, INC+11*, INC+13*, INC+17*, INC+18*
, DIVSUM+1, DIVSUM+7, DIVSUM+11, DIVSUM+12, DIVSUM+13

Label References

Name Line Occurrences
INC BTG+12, BTG+13, BTG+14
PHYS11 PHYS11+1, PHYS11+3
PHYS2 PHYS1, PHYS11
PHYS20 PHYS2+1
PHYS21 PHYS21+1, PHYS21+3
PHYS29 PHYS21

Naked Globals

Name Field # of Occurrence
^( PHYS+2, PHYS+3
^(0 PHYS+2, PHYS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BEGDATE DIVSUM+5
DT INC+15
>> ENDDATE DIVSUM+5
IOF DIVSUM+4
IOM PHYS11+2, PHYS2+2, PHYS21+2, DIVSUM+4, DIVSUM+5, DIVSUM+7
R1 PHYS+1~, PHYS+2*, PHYS+3*, PHYS+4*, PHYS+6, PHYS1+1*, PHYS11*, PHYS11+1, PHYS11+2, PHYS11+3
, PHYS2*, PHYS2+1, PHYS2+2, PHYS2+3, PHYS20+1*, PHYS21*, PHYS21+1, PHYS21+2, PHYS21+3
R2 PHYS+1~, PHYS+2*, PHYS+3*
RA1 INC+2~, INC+12*, INC+13, DIVSUM+7*, DIVSUM+11*, DIVSUM+12, DIVSUM+13, DIVSUM+18*, DIVSUM+19
>> RA2 DIVSUM+12*, DIVSUM+13, DIVSUM+14
RA2ND PHYS+1~, DIVSUM+2~
RA2ND( DIVSUM+14*, DIVSUM+18
RA2ND("SRR" PHYS+2*, PHYS20, PHYS21, PHYS21+1, PHYS21+2, PHYS21+3
RA2ND("SSR" PHYS+3*, PHYS1, PHYS11, PHYS11+1, PHYS11+2, PHYS11+3
RA2ND(1 DIVSUM+16
RA2ND(2 DIVSUM+16
RA2ND(3 DIVSUM+17
RA2ND(4 DIVSUM+17
>> RA3 DIVSUM+13*
>> RA4 DIVSUM+18*
>> RABD DIVSUM+4
>> RACNI INC+10, PHYS+2, PHYS+3
>> RACNT DIVSUM+3
>> RACNT(0 DIVSUM+3
>> RACUT(1 INC+16
>> RACUT(2 INC+16
>> RACUT(3 INC+16, DIVSUM+16, DIVSUM+17
>> RADASH DIVSUM+9
>> RADFN BTG+2, INC+10, PHYS+2, PHYS+3
>> RADIVNME BTG+3*, BTG+4, BTG+5*, BTG+10, BTG+15, INC+9, INC+10, INC+11, INC+13, INC+17
, INC+18, DIVSUM+1, DIVSUM+5, DIVSUM+7, DIVSUM+11, DIVSUM+12, DIVSUM+13
>> RADIVNUM BTG+3*
>> RADTI BTG+2, INC+10, PHYS+2, PHYS+3
>> RAHOURS INC+15*, INC+16*, INC+17, INC+18
>> RAIP BTG+12, BTG+13, BTG+14
>> RAIPNAME INC+4*, INC+5*, INC+6*, INC+9, INC+10, INC+11, INC+17, PHYS+6, PHYS11+1, PHYS2+1
, PHYS21+1
>> RAITNAME BTG+6*, BTG+7, BTG+8*, BTG+10, BTG+15, INC+9, INC+10, INC+11, INC+13, INC+17
, INC+18
>> RAITNUM BTG+6*
>> RAOUT DIVSUM+3*, DIVSUM+20*
>> RAPAGE DIVSUM+4*
>> RAPRES INC+4
>> RAPSTF INC+4
RAQT BTG+1~, BTG+11*, BTG+12, BTG+13, BTG+14, INC+9*
>> RARE(0 BTG+2*, BTG+3, BTG+6, BTG+9!
>> RARPT INC+9, INC+10, INC+18
>> RARPTENT INC+14, INC+15
>> RARUNDAT DIVSUM+8
RASTR PHYS+1~, PHYS+5*, PHYS+6*, PHYS11+2*, PHYS11+3*, PHYS2+2*, PHYS2+3*, PHYS20, PHYS21+2*, PHYS21+3*
, PHYS29
RATYP INC~, INC+3*, INC+4, INC+9, INC+10, INC+11, INC+12, INC+17
U BTG+3, BTG+6, INC+10
>> Y(0 PHYS+4, PHYS2
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