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

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!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RART1

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: