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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RARTUVR2

Package: Radiology Nuclear Medicine

Routine: RARTUVR2


Information

RARTUVR2 ;HISC/FPT,SWM -Unverified Reports ;11/26/97 07:57

Source Information

Source file <RARTUVR2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Radiology Nuclear Medicine 4 PHYS^RARTUVR1  $$SSN^RAUTL  $$EOS^RAUTL5  STOPCHK^RAUTL9  
Kernel 1 $$FMTE^XLFDT  
Registration 1 DEM^VADPT  

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  RARTUVR1  

Entry Points

Name Comments DBIA/ICR reference
PRINT ; print entries
HDR ; header
NEGRPT ; negative reports
PRTB
PRTD
SETX
APPEND
HOURAGE

External References

Name Field # of Occurrence
PHYS^RARTUVR1 PRTD+24
$$SSN^RAUTL PRTD+9
$$EOS^RAUTL5 PRINT+5, PRINT+8, PRINT+21, PRTB, PRTD+17
STOPCHK^RAUTL9 PRINT+3, PRINT+14, PRTB+1, PRTD+4
DEM^VADPT PRTD+8
$$FMTE^XLFDT HDR+2, HDR+3, PRTD+11, SETX+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"* ",$P(RASTRING,U),": ",^TMP($J,RADIVNME,RAITNAME,$P(RASTRING,U,2))," *"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?$S(IOM<81:20,1:IOM-90),">>>>> Unverified Reports ("_$S(RABD="B":"brief",1:"detailed")_") <<<<<"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?$S(IOM<81:70,1:IOM-10),"Page: ",RAPAGE
  • Line Location: HDR+1
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)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Imaging Type: ",RAITNAME,?$S(IOM<81:62,1:IOM-18),$$FMTE^XLFDT(ENDDATE),!,"Run Date: ",RARUNDAT,?$S(IOM<81:45,1:IOM-35),"Total Unverified Reports: ",^TMP($J,"RAUVR",RADIVNME,RAITNAME),!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!?$S(IOM<81:26,1:IOM-84),"***************************"
  • Line Location: NEGRPT+1
Function Call: WRITE
  • Prompt: !?$S(IOM<81:26,1:IOM-84),"* No Unverified Reports *"
  • Line Location: NEGRPT+2
Function Call: WRITE
  • Prompt: !?$S(IOM<81:26,1:IOM-84),"***************************",!
  • Line Location: NEGRPT+3
Function Call: WRITE
  • Prompt: !,$J(^TMP($J,RADIVNME,RAITNAME,RARS,RAIPNAME),3)," "
  • Line Location: PRTB+5
Function Call: WRITE
  • Prompt: $E(RAIPNAME,1,20)
  • Line Location: PRTB+6
Function Call: WRITE
  • Prompt: ?29,$S($G(^TMP($J,RADIVNME,RAITNAME,RARS,RAIPNAME,"H",1)):$J(^(1),$L(RACUT(3))),1:$J(0,$L(RACUT(3)))),?39,$S($G(^(2)):$J(^(2),$L(RACUT(3))),1:$J(0,$L(RACUT(3))))
  • Line Location: PRTB+7
Function Call: WRITE
  • Prompt: ?49,$S($G(^(3)):$J(^(3),$L(RACUT(3))),1:$J(0,$L(RACUT(3)))),?59,$S($G(^(4)):$J(^(4),$L(RACUT(3))+2),1:$J(0,$L(RACUT(3))+2))
  • Line Location: PRTB+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTD+16
Function Call: WRITE
  • Prompt: !,"Transcrip: ",X,?27,"ID: ",$P(^TMP($J,"RA0",RA3),U),?47
  • Line Location: PRTD+19
Function Call: WRITE
  • Prompt: $S(X="D":"DRAFT",X="PD":"PROB/DRAFT",X="R":"RELEASE",X="V":"VERIFIED",1:"")
  • Line Location: PRTD+20
Function Call: WRITE
  • Prompt: ?58,"Pre-ver: ",$P(^(RA3),U,3)
  • Line Location: PRTD+21
Function Call: WRITE
  • Prompt: !,"Exam Date: ",$P(^TMP($J,"RA0",RA3),U,4),?31,"Order Date Desired: ",$P(^(RA3),U,5)
  • Line Location: PRTD+22
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<81
  • Line Location: PRTD+23
Function Call: WRITE
  • Prompt: ?$S(IOM<81:0,1:IOM-66),"Proc: ",$E($P($G(^RAMIS(71,$P(^(RA3),U,6),0)),U),1,60)
  • Line Location: PRTD+23
Function Call: WRITE
  • Prompt: !,"Hours (age of report)",?29,$J(RACUT(1),$L(RACUT(3))),?39,$J(RACUT(2),$L(RACUT(3))),?49,$J(RACUT(3),$L(RACUT(3))),?59,">",$J(RACUT(3),$L(RACUT(3))+1)
  • Line Location: HOURAGE+0
Function Call: WRITE
  • Prompt: !?29,$E(RADASH,1,$L(RACUT(3))),?39,$E(RADASH,1,$L(RACUT(3))),?49,$E(RADASH,1,$L(RACUT(3))),?59,$E(RADASH,1,$L(RACUT(3))+2)
  • Line Location: HOURAGE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RADPT - [#70] PRTD+6
^RAMIS(71 - [#71] PRTD+23
^RAO(75.1 - [#75.1] PRTD+13
^RARPT - [#74] PRTD+6
^TMP($J PRINT+4, PRINT+11, PRINT+13, HDR+3, PRTB+5, PRTB+7, PRTD!, PRTD+1, PRTD+3, PRTD+9*
, PRTD+16, PRTD+19, PRTD+22, APPEND

Label References

Name Line Occurrences
APPEND PRTD+10, PRTD+12, PRTD+13, PRTD+14
HDR PRINT+2, PRINT+8, PRTB, PRTD+17
HOURAGE PRINT+10, PRTB+3
NEGRPT PRINT+4
PRTB PRINT+15
PRTD PRINT+16
SETX PRTD+10, PRTD+13, PRTD+18

Naked Globals

Name Field # of Occurrence
^( PRTD+3, PRTD+20, PRTD+21, PRTD+22, PRTD+23, APPEND*
^(1 PRTB+7
^(2 PRTB+7
^(3 PRTB+8
^(4 PRTB+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BEGDATE HDR+2
>> DFN PRTD+8*
>> ENDDATE HDR+3
IOF HDR+1
IOM HDR+1, HDR+2, HDR+3, NEGRPT+1, NEGRPT+2, NEGRPT+3, PRTD+23
IOSL PRINT+8, PRTB, PRTD+17
RA1 PRTB+4*, PRTD~, PRTD+6*, PRTD+7, PRTD+9, PRTD+10, PRTD+11, PRTD+12
RA2 PRTD~, PRTD+6*, PRTD+13, PRTD+14, PRTD+24
RA3 PRTD~, PRTD+7*, PRTD+9, PRTD+16*, PRTD+18, PRTD+19, PRTD+20, PRTD+21, PRTD+22, PRTD+23
, APPEND
RA4 PRTD~, SETX+1*, SETX+3
>> RABD PRINT+10, PRINT+16, HDR+1, PRTB+2, PRTB+3
RACNI PRTD~, PRTD+5*, PRTD+6
>> RACNT PRINT+5, PRINT+21
>> RACNT(0 PRINT+1*, PRINT+5, PRINT+21
>> RACUT(1 HOURAGE
>> RACUT(2 HOURAGE
>> RACUT(3 PRTB+4, PRTB+7, PRTB+8, HOURAGE, HOURAGE+1
>> RADASH HOURAGE+1
RADFN PRTD~, PRTD+5*, PRTD+6, PRTD+8
>> RADIVNME PRINT+4, PRINT+11, PRINT+13, HDR+2, HDR+3, PRTB+5, PRTB+7, PRTD+1, PRTD+3
RADTI PRTD~, PRTD+5*, PRTD+6
>> RAEQUAL PRTB+2
>> RAFL PRINT+12*
>> RAIPNAME PRINT+12*, PRINT+13*, PRTB+5, PRTB+6, PRTB+7, PRTD+1, PRTD+3
>> RAITNAME PRINT+4, PRINT+11, PRINT+13, HDR+3, PRTB+5, PRTB+7, PRTD+1, PRTD+3
>> RAOUT PRINT+3*, PRINT+5*, PRINT+7, PRINT+8*, PRINT+13, PRINT+14*, PRINT+16, PRINT+21*, PRTB*, PRTB+1*
, PRTD+3, PRTD+4*, PRTD+16, PRTD+17*
>> RAPAGE HDR+1*
RARPT PRTD~, PRTD+2*, PRTD+3*, PRTD+6
>> RARS PRINT+7*, PRINT+9, PRINT+13, PRTB+5, PRTB+7, PRTD+1, PRTD+3
>> RARUNDAT HDR+3
>> RASTRING PRINT+9*, PRINT+11
U PRINT+11, PRTD+5, PRTD+7, PRTD+9, PRTD+10, PRTD+11, PRTD+12, PRTD+13, PRTD+14, PRTD+19
, PRTD+20, PRTD+21, PRTD+22, PRTD+23, APPEND
VADM PRTD+10!
VADM(1 PRTD+9
>> X PRTD+3*, PRTD+5, PRTD+10*, PRTD+11*, PRTD+12*, PRTD+13*, PRTD+14*, PRTD+18*, PRTD+19, PRTD+20*
, SETX*, SETX+1, SETX+2*, SETX+3*, APPEND
>> Y(0 PRTD+24*
>> ZTQUEUED PRINT+3, PRINT+14, PRTB+1, PRTD+4
>> ZTSTOP PRINT+3, PRINT+14, PRTB+1, PRTD+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All