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

Package: Radiology Nuclear Medicine

Routine: RART1


Information

RART1 ;HISC/GJC,SWM - Reporting Menu (Part 2) ; Feb 27, 2025@12:27:01

Source Information

Source file <RART1.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Radiology Nuclear Medicine 16 ^RADPA  SETVARS^RAPSET1  ^RAPTLU  SET^RARD  PRTDX^RART  4^RART2  (MODSET,OUT1,PHYS,QRPT)^RART3  ($$TITLE,HDRFAC)^RARTR0  
$$AMENRPT^RARTR2  $$PHARM1^RARTUTL  $$RDIO1^RARTUTL1  $$SSN^RAUTL  (MODS,RASET)^RAUTL2  $$XTERNAL^RAUTL5  $$PTSEX^RAUTL8  OUTTEXT^RAUTL9  
Kernel 3 HOME^%ZIS  $$REPEAT^XLFSTR  DELETE^XQALERT  
VA FileMan 3 ^DIR  ^DIWP  ^DIWW  

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

Package Total Caller Graph
Radiology Nuclear Medicine 15 RA REPRINT  RA RPTDISP  RAERRPT  RAO7PC2  RAORDQ  RAORR3  RAPROD1  RART  
RART3  RARTR  RARTR3  RARTRPV  RARTUTL  RARTUTL1  RARTVER2  

Entry Points

Name Comments DBIA/ICR reference
CHK
5 ;;Draft Report (Reprint)
6 ;;Display a Report By Patient
OERR ;entry from RA OERR PROFILE protocol
61
OERR1 ;Entry Point for Alert Follow-Up Action for OE/RR
DISP
DISP1
Q6
WRITE
WRITEHX(RAP) ; Get and write the clinical history
CHKDUPHX ; Check Duplicate History in file 70 and 74.
; Returns RADUPHX 1 = Duplicate
; 0 = Different
WAIT ; user input, goto top, print, or continue
LOCK(X,Y) ; Lock an entry
SETVARS ; Setup Rad/Nuc Med required variables

External References

Name Field # of Occurrence
HOME^%ZIS DISP+14
^DIR DISP+12
^DIWP WRITE+4, WRITEHX+11, WRITEHX+17
^DIWW WRITE+6, WRITEHX+19
^RADPA 6+1
SETVARS^RAPSET1 SETVARS+1, SETVARS+3
^RAPTLU 6+1
SET^RARD WAIT+7
PRTDX^RART DISP1+61
4^RART2 5+1
MODSET^RART3 DISP1+26
OUT1^RART3 DISP1+28
PHYS^RART3 DISP1+12
QRPT^RART3 WAIT+8
$$TITLE^RARTR0 DISP1+69
HDRFAC^RARTR0 DISP1+5
$$AMENRPT^RARTR2 DISP1+34
$$PHARM1^RARTUTL DISP1+31
$$RDIO1^RARTUTL1 DISP1+29
$$SSN^RAUTL DISP1+7
MODS^RAUTL2 DISP1+28
RASET^RAUTL2 OERR1+1
$$XTERNAL^RAUTL5 DISP1+55
$$PTSEX^RAUTL8 DISP1+14
OUTTEXT^RAUTL9 DISP1+22
$$REPEAT^XLFSTR DISP1+25
DELETE^XQALERT OERR1+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,$C(7),"No report filed for case number ",RACN,"."
  • Line Location: CHK+0
Function Call: WRITE
  • Prompt: !?3,$C(7),"Report for case number ",RACN," is not in a 'draft' status."
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !?3,$C(7),"Report filed for case number ",RACN," but not available for printing."
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: !!?10,"Since the time you selected this group of reports,",!?10,$P($G(^VA(200,+$P(^RARPT(+RARPT,0),"^",9),0)),U)," has verified the report for "
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !?10,$P($G(^DPT(+$P(^RARPT(+RARPT,0),"^",2),0)),U)," case #",$P(^RARPT(+RARPT,0),"^"),".",$C(7)
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !?10,"Procedure ",$P(^(0),U)
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !?3,$C(7),"No report filed for case number",$S($D(RACN):" "_RACN,1:""),"."
  • Line Location: DISP+16
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: !?3,$C(7),"Report filed for case number ",RACN," but not available for display."
  • Line Location: DISP+21
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP1+0
Function Call: WRITE
  • Prompt: !,RANME," (",$$SSN^RAUTL,")",?39,"Case No. ",?55,": ",$P($G(^RARPT(RARPT,0)),"^")," @",$E(RADATE,$L(RADATE)-4,$L(RADATE))
  • Line Location: DISP1+7
Function Call: WRITE
  • Prompt: !,$E(RAPRC,1,40)
  • Line Location: DISP1+8
Function Call: WRITE
  • Prompt: ?39,"Transcriptionist",?55,": ",$E($P($G(^VA(200,+^RARPT(RARPT,"T"),0)),"^"),1,20)
  • Line Location: DISP1+8
Function Call: WRITE
  • Prompt: !,"Req. Phys : ",$E($P($G(^VA(200,+$P(R3,"^",14),0)),"^"),1,25)
  • Line Location: DISP1+10
Function Call: WRITE
  • Prompt: ?39,"Pre-verified",?55,": ",$S($D(^VA(200,RAPREVER,0)):$E($P($G(^VA(200,RAPREVER,0)),"^"),1,24),1:"NO")
  • Line Location: DISP1+11
Function Call: WRITE
  • Prompt: !,"**Prob Text: "
  • Line Location: DISP1+19
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",79)
  • Line Location: DISP1+25
Function Call: WRITE
  • Prompt: !?10,$$AMENRPT^RARTR2(),!
  • Line Location: DISP1+34
Function Call: WRITE
  • Prompt: !?3,"Clinical History:"
  • Line Location: DISP1+39
Function Call: WRITE
  • Prompt: !?3,"Additional Clinical History:"
  • Line Location: DISP1+49
Function Call: WRITE
  • Prompt: !?3,$S(RAP="R":"Report:",1:"Impression:")
  • Line Location: DISP1+55
Function Call: WRITE
  • Prompt: ?45,"Status: ",$$XTERNAL^RAUTL5(RAST,$P($G(^DD(74,5,0)),U,2))
  • Condition for execution: RAP="R"
  • Line Location: DISP1+55
Function Call: WRITE
  • Prompt: !!,$C(7),"Another user is editing this ",$S(X="R":"report (Case # "_Y_")",1:"exam (diagnostic code)"),". Please try again later."
  • Line Location: LOCK+1
Routine Call
  • %ZIS
  • Line Location:
    • DISP+14
Routine Call
  • DIR
  • Line Location:
    • DISP+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(74 DISP1+55
^DPT - [#2] OERR1+2, DISP+9
^RA(79.1 - [#79.1] DISP1+3, DISP1+61
^RADPT - [#70] 61+1, DISP1+2, DISP1+3, DISP1+9, DISP1+16, DISP1+29, DISP1+31, DISP1+37, DISP1+61, WRITEHX+8
, WRITEHX+9, CHKDUPHX+9, CHKDUPHX+11, CHKDUPHX+17
^RAMIS(71 - [#71] OERR1+2, DISP+11
^RARPT - [#74] CHK, CHK+1, CHK+2, DISP, DISP+8, DISP+9, DISP+15, DISP+19, DISP1+7, DISP1+8
, DISP1+11, DISP1+20, DISP1+21, DISP1+26, DISP1+27, DISP1+34, DISP1+46, DISP1+65, WRITE+1, WRITE+2
, WRITEHX+14, WRITEHX+15, CHKDUPHX+7, CHKDUPHX+10, CHKDUPHX+17
^TMP($J OERR+1, OERR+2!, DISP+10
^UTILITY($J DISP1+38!, DISP1+48!, DISP1+54!
^VA(200 - [#200] DISP+8, DISP1+8, DISP1+10, DISP1+11, DISP1+66, DISP1+67, DISP1+68

Label References

Name Line Occurrences
6 6+1, OERR+2
61 OERR+1
CHKDUPHX DISP1+47
DISP OERR+1, OERR1+3
DISP1 DISP1+33, DISP1+42, DISP1+59, DISP1+62, DISP1+72, DISP1+74
Q6 6+1, DISP+15, DISP+20, DISP1+33, DISP1+42, DISP1+59, DISP1+62, DISP1+72
SETVARS 5+1
WAIT DISP1+74, WRITE+3, WRITEHX+10, WRITEHX+16
WRITE DISP1+57
WRITEHX DISP1+40, DISP1+50

Naked Globals

Name Field # of Occurrence
^( DISP+10
^(0 OERR1+2, DISP+11, DISP1+29, CHKDUPHX+11
^(1 DISP1+38!, DISP1+48!, DISP1+54!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q6!
C Q6+3!
>> DFN OERR1+4*
DIC Q6!
DIC(0 6+1*
DIPGM Q6+3!
DIR DISP+6~, DISP+12!
DIR(0 DISP+12*
DIROUT DISP+6~
DIRUT DISP+6~
DISYS Q6+3!
DIW Q6+2!
DIWF DISP1+38*, DISP1+48*, DISP1+54*, Q6!
DIWL DISP1+38*, DISP1+48*, DISP1+54*, Q6!
DIWR Q6!
DIWT Q6+2!
DN Q6+2!
DTOUT DISP+6~
DUOUT DISP+6~
DUZ 5+1, SETVARS+1, SETVARS+2
I Q6!
IOF DISP1, WAIT+9
IOSL WRITE+3, WRITEHX+10, WRITEHX+16
J Q6!
>> ORACTION DISP1
OREND DISP+14*, Q6!
>> ORVP OERR+2, DISP1+64
POP Q6!
R1 Q6+3!
R3 DISP1+9~*, DISP1+10, DISP1+15, DISP1+17
RA70 CHKDUPHX+3~, CHKDUPHX+11*, CHKDUPHX+12, CHKDUPHX+17
>> RA701 CHKDUPHX+11*, CHKDUPHX+17
RA74 CHKDUPHX+3~, CHKDUPHX+10*, CHKDUPHX+12
RABTCH Q6!
>> RACCESS( 5+1, SETVARS+1, SETVARS+2
RACN CHK, CHK+1, CHK+2, DISP+16, DISP+21, Q6+4!
RACNI 61+1, DISP1+9, DISP1+16, DISP1+29, DISP1+31, DISP1+37, Q6+4!, WRITEHX+8, WRITEHX+9, CHKDUPHX+9
, CHKDUPHX+11, CHKDUPHX+17
RACRM DISP1+2~, DISP1+3*, DISP1+5
RADATE DISP1+7, Q6+4!
RADFN 6+1*, 61+1, OERR1+2, DISP1+2, DISP1+3, DISP1+9, DISP1+14, DISP1+16, DISP1+29, DISP1+31
, DISP1+37, DISP1+61, Q6+4!, WRITEHX+8, WRITEHX+9, CHKDUPHX+9, CHKDUPHX+11, CHKDUPHX+17
>> RADFT CHK+1, CHK+2, 5+1*
RADFTSBN DISP1+66*, DISP1+67*, DISP1+70, Q6+1!
RADFTSBT DISP1+68*, DISP1+69*, DISP1+71, Q6+1!
RADIVDA DISP1+2~*, DISP1+3, DISP1+5
RADTE Q6+4!
RADTI 61+1, DISP1+2, DISP1+3, DISP1+9, DISP1+16, DISP1+29, DISP1+31, DISP1+37, DISP1+61, Q6+4!
, WRITEHX+8, WRITEHX+9, CHKDUPHX+9, CHKDUPHX+11, CHKDUPHX+17
RADUP 6+1, OERR+2!
RADUP( OERR+1
>> RADUPHX DISP1+47, CHKDUPHX+5*, CHKDUPHX+7*, CHKDUPHX+9*, CHKDUPHX+19*
RADXCODE DISP1+61!
RAF1 6+1*, Q6!
RAHEAD 6+1*, Q6!
RAI OERR+1*, OERR+2!
>> RAIMGTY 5+1, SETVARS+3
RAIMGTYI Q6+3!
RAJ OERR+2!, 61*
RALERTS OERR1+3*, OERR1+5!, WAIT+2, WAIT+5, WAIT+6, WAIT+8
RALOC Q6!
RANME OERR1+2*, DISP1+7, Q6!
RAOK CHKDUPHX+3~, CHKDUPHX+16*, CHKDUPHX+17*, CHKDUPHX+18
RAP DISP1+40*, DISP1+50*, DISP1+53*, DISP1+55, DISP1+56, DISP1+74!, Q6+3!, WRITE+1, WRITE+2, WRITEHX~
, WRITEHX+7, WRITEHX+13, WAIT+9
RAPAR Q6!
>> RAPBRPT DISP, DISP1+18
RAPCOMM DISP1+16~*, DISP1+17
RAPRC OERR1+2*, DISP1+8, Q6!
RAPREVER DISP1+11*!
RARD WAIT+7!
RARD("A" WAIT+5*, WAIT+6*
RARD("B" WAIT+4*
RARD("DTOUT" WAIT+4*
RARD(0 WAIT+7*
RARD(1 WAIT+1*
RARD(2 WAIT+2*
RARD(3 WAIT+3*
RAREPORT 6+1*, Q6!
RARPT CHK!, CHK+1!, CHK+2!, OERR1+1*, DISP, DISP+8, DISP+9, DISP+10, DISP+15, DISP+19
, DISP1+7, DISP1+8, DISP1+11, DISP1+20, DISP1+21, DISP1+26, DISP1+27, DISP1+34, DISP1+46, DISP1+65
, Q6+4!, WRITE+1, WRITE+2, WRITEHX+14, WRITEHX+15, CHKDUPHX+7, CHKDUPHX+10, CHKDUPHX+17
>> RARPTX( DISP+10
>> RARTDT DISP+10
>> RARTVER DISP+20, DISP1+74, Q6+4
>> RARTVERF WRITE+3, WRITEHX+10, WRITEHX+16
RASEL Q6!
RASSN Q6!
RAST DISP+19*, DISP+20, DISP1+5, DISP1+18, DISP1+55, DISP1+56, Q6!
RAV Q6!, WRITE+1*, WRITE+2, WRITEHX+6*, WRITEHX+8*, WRITEHX+9, WRITEHX+14*, WRITEHX+15
RAVERF DISP1+65*, DISP1+66, DISP1+67, DISP1+68, DISP1+69, Q6+1!
>> RAVFIED DISP+12*
RAX CHKDUPHX+3~, CHKDUPHX+12*
RAX1 CHKDUPHX+3~, CHKDUPHX+17*
RAXX Q6!, WRITE!, WRITE+2*, WRITE+4, WRITE+6, WRITEHX+5!, WRITEHX+9*, WRITEHX+11, WRITEHX+15*, WRITEHX+17
, WRITEHX+19
>> RPTX DISP+10
U DISP+8, DISP+9, DISP+10, DISP+11, DISP1+2, DISP1+3, DISP1+15, DISP1+17, DISP1+55, DISP1+61
X 6+1, 6+2*, OERR+1, OERR+2!, OERR1+3, DISP+17*, DISP+22*, DISP1, DISP1+21*, DISP1+22
, DISP1+29*, DISP1+30, DISP1+31*, DISP1+33, DISP1+38*, DISP1+42, DISP1+48*, DISP1+53, DISP1+54*, DISP1+59
, DISP1+62, DISP1+72, DISP1+74, WRITE+1, WRITE+2*, WRITE+3, WRITE+4*, WRITE+6, WRITEHX+8, WRITEHX+9*
, WRITEHX+10, WRITEHX+11*, WRITEHX+14, WRITEHX+15*, WRITEHX+16, WRITEHX+17*, WRITEHX+19, WAIT+7*, WAIT+8, WAIT+9
, LOCK~, LOCK+1
X1 Q6!
>> XQADATA OERR1+1
XQAID OERR1+1, OERR1+3!, OERR1+4
XQAKILL OERR1+3!
Y 6+1, OERR+1*, 61, OERR1+1*, OERR1+2, DISP+6~, DISP+10*, DISP+11, Q6!, WRITE~
, WRITEHX+5~, LOCK~, LOCK+1
Y(0 61+1*, OERR1+2*
Z Q6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All