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) ; 06 Oct 2013 11:05 AM

Source Information

Source file <RART1.m>

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

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

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+59
4^RART2 5+1
MODSET^RART3 DISP1+24
OUT1^RART3 DISP1+26
PHYS^RART3 DISP1+6
QRPT^RART3 WAIT+8
$$TITLE^RARTR0 DISP1+67
$$AMENRPT^RARTR2 DISP1+32
$$PHARM1^RARTUTL DISP1+29
$$RDIO1^RARTUTL1 DISP1+27
$$SSN^RAUTL DISP1+1
MODS^RAUTL2 DISP1+26
RASET^RAUTL2 OERR1+1
$$XTERNAL^RAUTL5 DISP1+53
$$PTSEX^RAUTL8 DISP1+11
OUTTEXT^RAUTL9 DISP1+20
$$REPEAT^XLFSTR DISP1+23
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
  • Timeout: 3
  • Variable: X
  • 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
  • Timeout: 3
  • Variable: X
  • 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+17
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",79)
  • Line Location: DISP1+23
Function Call: WRITE
  • Prompt: !?10,$$AMENRPT^RARTR2(),!
  • Line Location: DISP1+32
Function Call: WRITE
  • Prompt: !?3,"Clinical History:"
  • Line Location: DISP1+37
Function Call: WRITE
  • Prompt: !?3,"Additional Clinical History:"
  • Line Location: DISP1+47
Function Call: WRITE
  • Prompt: !?3,$S(RAP="R":"Report:",1:"Impression:")
  • Line Location: DISP1+53
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+53
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+53
^DPT - [#2] OERR1+2, DISP+9
^RA(79.1 - [#79.1] DISP1+59
^RADPT - [#70] 61+1, DISP1+3, DISP1+14, DISP1+27, DISP1+29, DISP1+35, DISP1+59, WRITEHX+8, WRITEHX+9, CHKDUPHX+9
, CHKDUPHX+15
^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+18, DISP1+19, DISP1+24, DISP1+25, DISP1+32, DISP1+44, DISP1+63, WRITE+1, WRITE+2
, WRITEHX+14, WRITEHX+15, CHKDUPHX+7, CHKDUPHX+8, CHKDUPHX+15
^TMP($J OERR+1, OERR+2!, DISP+10
^UTILITY($J DISP1+36!, DISP1+46!, DISP1+52!
^VA(200 - [#200] DISP+8, DISP1+2, DISP1+4, DISP1+5, DISP1+64, DISP1+65, DISP1+66

Label References

Name Line Occurrences
6 6+1, OERR+2
61 OERR+1
CHKDUPHX DISP1+45
DISP OERR+1, OERR1+3
DISP1 DISP1+31, DISP1+40, DISP1+57, DISP1+60, DISP1+70, DISP1+72
Q6 6+1, DISP+15, DISP+20, DISP1+31, DISP1+40, DISP1+57, DISP1+60, DISP1+70
SETVARS 5+1
WAIT DISP1+72, WRITE+3, WRITEHX+10, WRITEHX+16
WRITE DISP1+55
WRITEHX DISP1+38, DISP1+48

Naked Globals

Name Field # of Occurrence
^( DISP+10
^(0 OERR1+2, DISP+11, DISP1+27, CHKDUPHX+9
^(1 DISP1+36!, DISP1+46!, DISP1+52!

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+36*, DISP1+46*, DISP1+52*, Q6!
DIWL DISP1+36*, DISP1+46*, DISP1+52*, 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+62
POP Q6!
R1 Q6+3!
R3 DISP1+3~*, DISP1+4, DISP1+13, DISP1+15
RA70 CHKDUPHX+3~, CHKDUPHX+9*, CHKDUPHX+10, CHKDUPHX+15
>> RA701 CHKDUPHX+9*, CHKDUPHX+15
RA74 CHKDUPHX+3~, CHKDUPHX+8*, CHKDUPHX+10
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+14, DISP1+27, DISP1+29, DISP1+35, Q6+4!, WRITEHX+8, WRITEHX+9, CHKDUPHX+9
, CHKDUPHX+15
RADATE DISP1+1, Q6+4!
RADFN 6+1*, 61+1, OERR1+2, DISP1+3, DISP1+11, DISP1+14, DISP1+27, DISP1+29, DISP1+35, DISP1+59
, Q6+4!, WRITEHX+8, WRITEHX+9, CHKDUPHX+9, CHKDUPHX+15
>> RADFT CHK+1, CHK+2, 5+1*
RADFTSBN DISP1+64*, DISP1+65*, DISP1+68, Q6+1!
RADFTSBT DISP1+66*, DISP1+67*, DISP1+69, Q6+1!
RADTE Q6+4!
RADTI 61+1, DISP1+3, DISP1+14, DISP1+27, DISP1+29, DISP1+35, DISP1+59, Q6+4!, WRITEHX+8, WRITEHX+9
, CHKDUPHX+9, CHKDUPHX+15
RADUP 6+1, OERR+2!
RADUP( OERR+1
>> RADUPHX DISP1+45, CHKDUPHX+5*, CHKDUPHX+7*, CHKDUPHX+17*
RADXCODE DISP1+59!
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+14*, CHKDUPHX+15*, CHKDUPHX+16
RAP DISP1+38*, DISP1+48*, DISP1+51*, DISP1+53, DISP1+54, DISP1+72!, Q6+3!, WRITE+1, WRITE+2, WRITEHX~
, WRITEHX+7, WRITEHX+13, WAIT+9
RAPAR Q6!
>> RAPBRPT DISP, DISP1+16
RAPCOMM DISP1+14~*, DISP1+15
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+18, DISP1+19, DISP1+24, DISP1+25, DISP1+32, DISP1+44, DISP1+63
, Q6+4!, WRITE+1, WRITE+2, WRITEHX+14, WRITEHX+15, CHKDUPHX+7, CHKDUPHX+8, CHKDUPHX+15
>> RARPTX( DISP+10
>> RARTDT DISP+10
>> RARTVER DISP+20, DISP1+72, Q6+4
>> RARTVERF WRITE+3, WRITEHX+10, WRITEHX+16
RASEL Q6!
RASSN Q6!
RAST DISP+19*, DISP+20, DISP1+16, DISP1+53, DISP1+54, Q6!
RAV Q6!, WRITE+1*, WRITE+2, WRITEHX+6*, WRITEHX+8*, WRITEHX+9, WRITEHX+14*, WRITEHX+15
RAVERF DISP1+63*, DISP1+64, DISP1+65, DISP1+66, DISP1+67, Q6+1!
>> RAVFIED DISP+12*
RAX CHKDUPHX+3~, CHKDUPHX+10*
RAX1 CHKDUPHX+3~, CHKDUPHX+15*
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+13, DISP1+15, DISP1+53, DISP1+59
X 6+1, 6+2*, OERR+1, OERR+2!, OERR1+3, DISP+17*, DISP+22*, DISP1, DISP1+19*, DISP1+20
, DISP1+27*, DISP1+28, DISP1+29*, DISP1+31, DISP1+36*, DISP1+40, DISP1+46*, DISP1+51, DISP1+52*, DISP1+57
, DISP1+60, DISP1+70, DISP1+72, 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