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) ; Aug 25, 2020@14:04

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^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+55
4^RART2 5+1
MODSET^RART3 DISP1+20
OUT1^RART3 DISP1+22
PHYS^RART3 DISP1+6
QRPT^RART3 WAIT+8
$$TITLE^RARTR0 DISP1+63
$$AMENRPT^RARTR2 DISP1+28
$$PHARM1^RARTUTL DISP1+25
$$RDIO1^RARTUTL1 DISP1+23
$$SSN^RAUTL DISP1+1
MODS^RAUTL2 DISP1+22
RASET^RAUTL2 OERR1+1
$$XTERNAL^RAUTL5 DISP1+49
$$PTSEX^RAUTL8 DISP1+8
OUTTEXT^RAUTL9 DISP1+16
$$REPEAT^XLFSTR DISP1+19
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+1
Function Call: WRITE
  • Prompt: !,$E(RAPRC,1,40)
  • Line Location: DISP1+2
Function Call: WRITE
  • Prompt: ?39,"Transcriptionist",?55,": ",$E($P($G(^VA(200,+^RARPT(RARPT,"T"),0)),"^"),1,20)
  • Line Location: DISP1+2
Function Call: WRITE
  • Prompt: !,"Req. Phys : ",$E($P($G(^VA(200,+$P(R3,"^",14),0)),"^"),1,25)
  • Line Location: DISP1+4
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+5
Function Call: WRITE
  • Prompt: !,"**Prob Text: "
  • Line Location: DISP1+13
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",79)
  • Line Location: DISP1+19
Function Call: WRITE
  • Prompt: !?10,$$AMENRPT^RARTR2(),!
  • Line Location: DISP1+28
Function Call: WRITE
  • Prompt: !?3,"Clinical History:"
  • Line Location: DISP1+33
Function Call: WRITE
  • Prompt: !?3,"Additional Clinical History:"
  • Line Location: DISP1+43
Function Call: WRITE
  • Prompt: !?3,$S(RAP="R":"Report:",1:"Impression:")
  • Line Location: DISP1+49
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+49
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+49
^DPT - [#2] OERR1+2, DISP+9
^RA(79.1 - [#79.1] DISP1+55
^RADPT - [#70] 61+1, DISP1+3, DISP1+10, DISP1+23, DISP1+25, DISP1+31, DISP1+55, 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+1, DISP1+2
, DISP1+5, DISP1+14, DISP1+15, DISP1+20, DISP1+21, DISP1+28, DISP1+40, DISP1+59, 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+32!, DISP1+42!, DISP1+48!
^VA(200 - [#200] DISP+8, DISP1+2, DISP1+4, DISP1+5, DISP1+60, DISP1+61, DISP1+62

Label References

Name Line Occurrences
6 6+1, OERR+2
61 OERR+1
CHKDUPHX DISP1+41
DISP OERR+1, OERR1+3
DISP1 DISP1+27, DISP1+36, DISP1+53, DISP1+56, DISP1+66, DISP1+68
Q6 6+1, DISP+15, DISP+20, DISP1+27, DISP1+36, DISP1+53, DISP1+56, DISP1+66
SETVARS 5+1
WAIT DISP1+68, WRITE+3, WRITEHX+10, WRITEHX+16
WRITE DISP1+51
WRITEHX DISP1+34, DISP1+44

Naked Globals

Name Field # of Occurrence
^( DISP+10
^(0 OERR1+2, DISP+11, DISP1+23, CHKDUPHX+11
^(1 DISP1+32!, DISP1+42!, DISP1+48!

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+32*, DISP1+42*, DISP1+48*, Q6!
DIWL DISP1+32*, DISP1+42*, DISP1+48*, 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+58
POP Q6!
R1 Q6+3!
R3 DISP1+3~*, DISP1+4, DISP1+9, DISP1+11
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+3, DISP1+10, DISP1+23, DISP1+25, DISP1+31, Q6+4!, WRITEHX+8, WRITEHX+9, CHKDUPHX+9
, CHKDUPHX+11, CHKDUPHX+17
RADATE DISP1+1, Q6+4!
RADFN 6+1*, 61+1, OERR1+2, DISP1+3, DISP1+8, DISP1+10, DISP1+23, DISP1+25, DISP1+31, DISP1+55
, Q6+4!, WRITEHX+8, WRITEHX+9, CHKDUPHX+9, CHKDUPHX+11, CHKDUPHX+17
>> RADFT CHK+1, CHK+2, 5+1*
RADFTSBN DISP1+60*, DISP1+61*, DISP1+64, Q6+1!
RADFTSBT DISP1+62*, DISP1+63*, DISP1+65, Q6+1!
RADTE Q6+4!
RADTI 61+1, DISP1+3, DISP1+10, DISP1+23, DISP1+25, DISP1+31, DISP1+55, Q6+4!, WRITEHX+8, WRITEHX+9
, CHKDUPHX+9, CHKDUPHX+11, CHKDUPHX+17
RADUP 6+1, OERR+2!
RADUP( OERR+1
>> RADUPHX DISP1+41, CHKDUPHX+5*, CHKDUPHX+7*, CHKDUPHX+9*, CHKDUPHX+19*
RADXCODE DISP1+55!
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+1, Q6!
RAOK CHKDUPHX+3~, CHKDUPHX+16*, CHKDUPHX+17*, CHKDUPHX+18
RAP DISP1+34*, DISP1+44*, DISP1+47*, DISP1+49, DISP1+50, DISP1+68!, Q6+3!, WRITE+1, WRITE+2, WRITEHX~
, WRITEHX+7, WRITEHX+13, WAIT+9
RAPAR Q6!
>> RAPBRPT DISP, DISP1+12
RAPCOMM DISP1+10~*, DISP1+11
RAPRC OERR1+2*, DISP1+2, Q6!
RAPREVER DISP1+5*!
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+1, DISP1+2, DISP1+5, DISP1+14, DISP1+15, DISP1+20, DISP1+21, DISP1+28, DISP1+40, DISP1+59
, 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+68, Q6+4
>> RARTVERF WRITE+3, WRITEHX+10, WRITEHX+16
RASEL Q6!
RASSN Q6!
RAST DISP+19*, DISP+20, DISP1+12, DISP1+49, DISP1+50, Q6!
RAV Q6!, WRITE+1*, WRITE+2, WRITEHX+6*, WRITEHX+8*, WRITEHX+9, WRITEHX+14*, WRITEHX+15
RAVERF DISP1+59*, DISP1+60, DISP1+61, DISP1+62, DISP1+63, 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+9, DISP1+11, DISP1+49, DISP1+55
X 6+1, 6+2*, OERR+1, OERR+2!, OERR1+3, DISP+17*, DISP+22*, DISP1, DISP1+15*, DISP1+16
, DISP1+23*, DISP1+24, DISP1+25*, DISP1+27, DISP1+32*, DISP1+36, DISP1+42*, DISP1+47, DISP1+48*, DISP1+53
, DISP1+56, DISP1+66, DISP1+68, 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