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 |  Marked Items |  All
Print Page as PDF
Routine: RART

Package: Radiology Nuclear Medicine

Routine: RART


Information

RART ;HISC/CAH,FPT,GJC AISC/MJK,TMP,RMO-Reporting Menu ;11/16/98 15:02

Source Information

Source file <RART.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Radiology Nuclear Medicine 12 ^RACNLU  TASK^RAHLO4  SET^RAPSET1  (OERR1,WAIT)^RART1  COPY^RARTE2  Q^RARTR  (RESTORE,RETURN,SAVE)^RARTVER2  UPSTAT^RAUTL0  
$$VERONLY^RAUTL11  ($$LOCK,UNLOCK)^RAUTL12  EN2^RAUTL20  $$DIVLOC^RAUTL7  
VA FileMan 2 ^DIE  $$GET1^DIQ  
Womens Health 1 CREATE^WVRALINK  

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

Package Total Caller Graph
Radiology Nuclear Medicine 5 RA RPTVERIFY  RABTCH1  RART1  RART3  RARTVER  

Entry Points

Name Comments DBIA/ICR reference
3 ;;Verify a Report
30
SS1
31
UNL31 ; copy then unlock
32
PACS
TIME
Q
OERR1 ; Jump to 'OERR1^RART1' This is necessary to support the reference to
; this line label in the OE/RR Notifications file.
PRTDX ; print dx codes on report display (called from RART1)
EXIT ; Kill variables created when user prints 'Abnormal Rad/Nuc Med Report
; Alert'. Variables are created when 'PRT^RARTR' is called.

External References

Name Field # of Occurrence
^DIE 31+12, 31+17, 31+24
$$GET1^DIQ PRTDX+6, PRTDX+14
^RACNLU 30
TASK^RAHLO4 PACS
SET^RAPSET1 3+2
OERR1^RART1 OERR1+2
WAIT^RART1 PRTDX+2, PRTDX+8, PRTDX+12
COPY^RARTE2 UNL31+3
Q^RARTR TIME+9
RESTORE^RARTVER2 TIME+9
RETURN^RARTVER2 32+1
SAVE^RARTVER2 TIME+3
UPSTAT^RAUTL0 TIME+1
$$VERONLY^RAUTL11 SS1
$$LOCK^RAUTL12 31+5, 31+10
UNLOCK^RAUTL12 31+12, UNL31+4
EN2^RAUTL20 UNL31+2
$$DIVLOC^RAUTL7 3+3
CREATE^WVRALINK PACS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"Interpreting Residents are not allowed to verify reports."
  • Line Location: 3+7
Function Call: WRITE
  • Prompt: !!?2,$C(7),"No report available!"
  • Line Location: 30+0
Function Call: WRITE
  • Prompt: !!?2,$C(7),"Report already ",$S(I5="V":"verified",1:"electronically filed")
  • Line Location: 30+1
Function Call: WRITE
  • Prompt: !,"Error: Cannot determine imaging type of exam.",!
  • Line Location: 31+2
Function Call: WRITE
  • Prompt: !?3,"Primary Diagnostic Code: ",!?2,$S($D(^RA(78.3,+RADXCODE,0)):$P(^(0),U,1),1:"")
  • Line Location: PRTDX+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTDX+9
Function Call: WRITE
  • Prompt: !!?3,"Secondary Diagnostic Codes: "
  • Line Location: PRTDX+10
Function Call: WRITE
  • Prompt: !?2,$P(^RA(78.3,RADXCODE,0),U,1)
  • Line Location: PRTDX+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTDX+16
Routine Call
  • DIE
  • Line Location:
    • 31+12
    • 31+17
    • 31+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RARPT - [#74] Classic Fileman Calls
^LEX(757.01 - [#757.01] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] 31+14, 31+15, 31+16
^RA(78.3 - [#78.3] PRTDX+5, PRTDX+6, PRTDX+12, PRTDX+13, PRTDX+14
^RA(79.2 - [#79.2] 31+1
^RADPT - [#70] 31+1, 31+19, PRTDX+4, PRTDX+9, PRTDX+12
^RARPT - [#74] 30, 30+1, 32+1
^TMP($J Q!
^VA(200 - [#200] 3+4, 3+6
^XUSEC("RA VERIFY" 3+4

Label References

Name Line Occurrences
30 3+4, 3+5, 3+6, 30, 30+1
@( 31+2, 31+6, 31+11, PACS+3, TIME+12
Q 3+3, 3+7, 30
UNL31 31+19

Naked Globals

Name Field # of Occurrence
^( 31+15
^(0 PRTDX+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!
%DT Q!
%W Q+1!
%X Q!, EXIT+2!
%XX EXIT+2!
%Y Q+1!, EXIT+2!
%Y1 Q+1!
%YY EXIT+2!
>> %ZIS("B" TIME+7*!, TIME+10!
A EXIT+2!
C Q!
D Q!
D0 Q!
D1 Q!
DA 31*, 31+5, 31+12, 31+14*, 31+18!, 31+23*, UNL31+6!, Q!
DA(1 31+14*, 31+23*
DA(2 31+14*
DDER Q+1!, EXIT+2!
DDH Q+1!
DE 31+12!, 31+18!, UNL31+6!
DFN EXIT+2!
DI Q+1!, EXIT+2!
DIC Q!
DIE 31*, 31+5, 31+12, 31+13!, 31+14*, 31+18!, 31+23*, UNL31+6!
DIE("NO^" 31*, 31+16*
DIR EXIT+2!
DIROUT Q+1!
DIRUT Q+1!
DIW EXIT+2!
DIWI EXIT+2!
DIWT EXIT+2!
DIWTC EXIT+2!
DIWX EXIT+2!
DLAYGO Q+1!, EXIT+2!
DN EXIT+3!
DQ 31+12!, 31+18!, UNL31+6!
DR 31*, 31+12!, 31+15*, 31+18!, 31+20*, UNL31+6!
DR(2 31+21*
DR(3 31+22*
DTOUT Q+1!
DUOUT Q+1!
DUZ 3+4, 3+6
I5 3+1~, 30+1*
IOSL PRTDX+2, PRTDX+8, PRTDX+12
POP Q+1!
RAAB TIME+1!
RACI Q+1!, EXIT+3!
RACN 31+20, Q!
RACN0 EXIT+3!
RACNI 31+7, 31+14, 31+19, PACS+1, Q!, PRTDX+4, PRTDX+9, PRTDX+12
RACPT EXIT+3!
RACPTNDE EXIT+3!
RACT 31+15, 31+16, 32+1, PACS, PACS+1, TIME, Q!
RADATE Q!
RADFN 31+1, 31+7, 31+14, 31+19, 31+23, PACS+1, Q!, PRTDX+4, PRTDX+9, PRTDX+12
>> RADRS UNL31+3*
RADTE Q!
RADTE0 EXIT+3!
RADTI 31+1, 31+7, 31+14, 31+19, 31+23, PACS+1, Q!, PRTDX+4, PRTDX+9, PRTDX+12
RADTV EXIT+3!
RADUZ Q!
>> RADXCODE PRTDX+4*, PRTDX+5, PRTDX+6, PRTDX+11*, PRTDX+12*, PRTDX+13, PRTDX+14
RAFLG PRTDX+2!, PRTDX+5!, PRTDX+12!
RAHEAD Q!
RAHLTCPB TIME+1~*
RAI Q!
RAIMGTYI 31+1*, 31+2!, Q!
RAIMGTYJ 31+1*, 31+2!, 31+14, Q!
>> RAMDV 3+5, 3+7
RAMEMARR UNL31+1~, UNL31+2
>> RAMLC TIME+7
RAN EXIT+3!
RANME Q!
>> RANOSCRN 3+3
RANUM Q!
RAOBR4 EXIT+3!
>> RAOOUT PRTDX+12
RAOR Q!
RAPGM 30*, 31+2, 31+6, 31+11, 32+1, PACS+3, TIME+4, TIME+12, Q!
RAPRC Q!
RAPRCNDE EXIT+3!
RAPROC EXIT+4!
RAPROCIT EXIT+4!
RAPRTSET UNL31+1~, UNL31+3
RAPRV EXIT+4!
RAQUIT Q!
>> RARDX TIME+2
RAREPORT 30*, Q!
RARPT 30, 30+1, 31, 32+1, Q!
RARPT0 EXIT+4!
>> RARTVERF PRTDX+2, PRTDX+8, PRTDX+12
RASAVDA 31+7*, 31+10, UNL31+4, UNL31+5!
RASAVDA(1 31+7*
RASAVDA(2 31+7*
RASAVDIE 31+7*, 31+10, UNL31+4, UNL31+5!
RASET Q!
RASN Q!
RASSN Q!
RAST Q!
RASTI Q!
RATMP PRTDX+1~, PRTDX+6*, PRTDX+7, PRTDX+14*, PRTDX+15
RAUP 30!, Q!
RAVER Q!
RAXIT 31+5*, 31+6!, 31+10*, 31+11!, 31+13!, UNL31+3*, 32!
U 31+1, 31+19, 32+1, PRTDX+4, PRTDX+5, PRTDX+6, PRTDX+13, PRTDX+14
VA EXIT+4!
VADM EXIT+4!
VAERR EXIT+4!
X 3+3*, 30, 31+14*, 31+15, 31+16, Q!, PRTDX+3, PRTDX+8, PRTDX+12
X2 EXIT+4!
XQUIT 3+2!
Y Q!
ZTSK Q+1!, EXIT+4!

Marked Items

Name Field # of Occurrence
$T(CREATE^WVRALINK PACS+1
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 |  Marked Items |  All