Routine: RARTE5

Package	Total	Call Graph
Radiology Nuclear Medicine	17	($$ASK,CKDATA,CKREQ)^RABIRAD ^RACNLU $$STUB^RAEDCN1 RPT^RAHLRPC ($$GETAP,GETSUB)^RAHLRS1 SET^RAPSET1 STD^RARTE1 (COPY,DEL17,INSERT,PTR)^RARTE2 UNLOCK2^RARTE4 ($$LOCK,DISPLAY,SETALOG,SETFF)^RARTE6 ($$ANYDX,ALERT,KILSEC)^RARTE7 Q^RARTR UP1^RAUTL1 UNLOCK^RAUTL12 $$DIVLOC^RAUTL7 (CHPRINT,UPDTPNT)^RAUTL9 ENKILL^RAXREF
VA Fileman	4	YN^DICN (,FILE)^DIE (,IX1)^DIK $$GET1^DIQ
Kernel	1	MES^XPDUTL
Uncategorized	1	CREATE^WVRALINK

Package	Total	Caller Graph
Radiology Nuclear Medicine	3	RA OUTSIDE RPTENTRY RAHLRS RARTE6

Entry Points

Name	Comments	DBIA/ICR reference
Q1
UNCASE	;
ERPT	; Edit report text, impression, and enter/edit diagnostic codes
PACS	; do not broadcast ORU message at this point
PRT
LOCK	;Try to lock next avail IEN, if locked - fail, if used - increment again
PRT1
IN0	;skip to here if rpt created in this session and already locked ; Flag first time EF report is made if piece 18 has no data yet
HLXMSG	; set up RASSSX() of VR subscribers to exclude from ORM msg broadcast
DELDXPRT	;del any Prim. and Sec. DXs from all cases in printset
CCAN(IEN74)	;Check canned report for Outside Reporting ; adapted from EN3^RAUTL15 ; outputs: 0 if report is kept ; 1 if report is deleted due to no canned text entered
START
CONTIN	; continue
INCRPT	; Kill extraneous variables to avoid collisions. ; Incomplete report information, select another case #.
DELDX	; del any Prim. and Sec. DXs from standalone case
IN	;edit existing rpt, so lock rpt fr the 1st time
NEW
NEW1	;
INTRO	;
DIAG	; Diagnostic codes ; (code taken from routine RARTE1)

External References

Name	Field # of Occurrence
YN^DICN	CONTIN+20
^DIE	LOCK+9, IN0+8, ERPT+7, DIAG+7, DIAG+13
FILE^DIE	DELDX+2, DELDXPRT+4
^DIK	CCAN+24
IX1^DIK	LOCK+5
$$GET1^DIQ	PRT+11
$$ASK^RABIRAD	PACS+3
CKDATA^RABIRAD	PACS+3
CKREQ^RABIRAD	ERPT+11
^RACNLU	START+1
$$STUB^RAEDCN1	CONTIN+9
RPT^RAHLRPC	PRT+24
$$GETAP^RAHLRS1	HLXMSG+3
GETSUB^RAHLRS1	HLXMSG+8
SET^RAPSET1	RARTE5+9
STD^RARTE1	IN0+6
COPY^RARTE2	UNCASE+4
DEL17^RARTE2	CCAN+12
INSERT^RARTE2	CONTIN+22
PTR^RARTE2	LOCK+12
UNLOCK2^RARTE4	LOCK+1, LOCK+13, IN+1, PRT
$$LOCK^RARTE6	CONTIN+6, LOCK+1, IN+1
DISPLAY^RARTE6	CONTIN+1
SETALOG^RARTE6	UNCASE+16
SETFF^RARTE6	UNCASE+11, UNCASE+14
$$ANYDX^RARTE7	IN0+4, PRT+17
ALERT^RARTE7	PRT+19
KILSEC^RARTE7	DELDX+4, DELDXPRT+6
Q^RARTR	PRT1+5
UP1^RAUTL1	PRT+13, PRT+14
UNLOCK^RAUTL12	CONTIN+9, CONTIN+23, NEW+4, LOCK+3, LOCK+13, UNCASE+1, UNCASE+7
$$DIVLOC^RAUTL7	RARTE5+13
CHPRINT^RAUTL9	IN0+12
UPDTPNT^RAUTL9	CCAN+21
ENKILL^RAXREF	CCAN+15
CREATE^WVRALINK	UNCASE+21
MES^XPDUTL	CCAN+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,$P($T(INTRO+I),";;",2) Line Location: RARTE5+8
Function Call: WRITE	Prompt: ! Line Location: RARTE5+9
Function Call: WRITE	Prompt: !,"Your user account is missing a Radiology classification.",! Line Location: RARTE5+17
Function Call: WRITE	Prompt: $C(7),!!,"The STATUS for this case is CANCELLED. You may not enter a report.",!! Line Location: START+9
Function Call: WRITE	Prompt: !?3,$C(7),"Only Electronically Filed reports can be selected!",! Line Location: CONTIN+9
Function Call: WRITE	Prompt: !!,$C(7),"Other cases of this cancelled case ",RACN,"'s print set are entered in a report already",!!,"You may NOT create a new report for this cancelled case,",!,"but you may include this cancelled case in the existing report." Line Location: CONTIN+18
Function Call: WRITE	Prompt: !!,"Do you want to include this cancelled case in the same report",!,"as the others in the print set ?" Line Location: CONTIN+19
Function Call: WRITE	Prompt: !!?10,$C(7)," This case belongs to a printset, and someone else is",?68,"",!?10," editing another case from this printset, or entering",?68,"" Line Location: NEW+2
Function Call: WRITE	Prompt: !?10," a report for this printset, so you may not enter a",?68,"",!?10," new report.",?68,"" Line Location: NEW+3
Function Call: WRITE	Prompt: !?3,"...report not entered for this exam...",!?10,"...will now initialize report entry..." Line Location: NEW1+3
Function Call: WRITE	Prompt: !,RAI Line Location: LOCK+14
Function Call: WRITE	Prompt: !!?5,"Report status is stored as ""Electronically Filed""." Line Location: UNCASE+12
Function Call: WRITE	Prompt: !!?5,"Exam status not recalculated due to missing BI-RADS code." Line Location: PRT+15
Function Call: READ	Prompt: "Do you wish to print this report? No// " Formatting: !! Timeout: DTIME Variable: X Line Location: PRT1+0
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to print this report, or 'NO' not to." Line Location: PRT1+2
Function Call: WRITE	Prompt: !!?5,RATXT,!?8,"Required: REPORT TEXT and/or IMPRESSION TEXT",!?5,RATXT Line Location: ERPT+3
Routine Call	DIE Line Location: LOCK+9 IN0+8 ERPT+7 DIAG+7 DIAG+13
Routine Call	DIE Line Location: DELDX+2 DELDXPRT+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	LOCK+4*
^RA(72 - [#72]	START+6, CONTIN+13, DIAG+3, DIAG+5
^RA(79.2 - [#79.2]	DIAG+2
^RADPT - [#70]	CONTIN+22, NEW+1, UNCASE+4, CCAN+18, DIAG+2, DIAG+8
^RARPT - [#74]	CONTIN+9, CONTIN+11, CONTIN+22, LOCK+3, LOCK+4, LOCK+5, IN0+2, IN0+14, UNCASE+11, UNCASE+21 , PRT+3, CCAN+7, CCAN+10, ERPT+9
^RARPT(0	NEW1+4, LOCK+4
^TMP($J	Q1+3!
^VA(200 - [#200]	RARTE5+16
^XUSEC("RA MGR"	START+7

Label References

Name	Line Occurrences
$$CCAN	UNCASE+6
CONTIN	START+6, START+7, START+8
DELDX	CCAN+30
DELDXPRT	CCAN+29
DIAG	PACS+3
ERPT	IN0+16, ERPT+9
HLXMSG	PRT+23
IN	CONTIN+11
IN0	LOCK+15
INCRPT	RARTE5+17, START+9, CONTIN+2, CONTIN+6, CONTIN+9, CONTIN+23, NEW+4, LOCK+1, PRT, PRT1+1 , PRT1+5, Q1+5
LOCK	LOCK+3
NEW	CONTIN+13, CONTIN+17
NEW1	NEW, NEW+1
PACS	DIAG+8
PRT	UNCASE+8
PRT1	PRT1+2
Q1	RARTE5+13, START+1, LOCK+13, IN+1
START	START+9, CONTIN+2, CONTIN+6, CONTIN+9, CONTIN+23, NEW+4, LOCK+1, PRT, PRT1+1, PRT1+5
UNCASE	IN0+6, IN0+10

Naked Globals

Name	Field # of Occurrence
^(	DIAG+5
^("T"	LOCK+4*
^(0	CONTIN+9, LOCK+4*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CONTIN+20*, CONTIN+21, CONTIN+22, LOCK+6!, LOCK+10!, Q1!, INCRPT+3!
%DT	Q1!, INCRPT+3!
%W	Q1!
%Y	Q1!
%Y1	Q1!
C	Q1!
D	LOCK+6!, LOCK+10!, Q1+2!, INCRPT+3!
D0	LOCK+6!, LOCK+10!, Q1!, INCRPT+3!
D1	Q1!, INCRPT+3!
D2	Q1+2!, INCRPT+3!
DA	LOCK+5, LOCK+6!, LOCK+7, LOCK+10!, IN0+8, Q1!, INCRPT+2!, CCAN+14, CCAN+15, CCAN+18! , CCAN+24, ERPT+5, DIAG+3, DIAG+7!, DIAG+12, DIAG+13!
DA(1	LOCK+7, CCAN+14, DIAG+3, DIAG+12
DA(2	LOCK+7, CCAN+14, DIAG+3*
DDER	Q1+2!
DE	IN0+8!, DIAG+7!, DIAG+13!
DI	LOCK+6!, LOCK+10!, Q1+2!, INCRPT+3!
DIC	LOCK+6!, LOCK+10!, Q1!, INCRPT+3!
DIE	LOCK+6!, LOCK+8, LOCK+10!, IN0+8, Q1!, INCRPT+2!, ERPT+5, DIAG+3, DIAG+7!, DIAG+12* , DIAG+13!
>> DIK	LOCK+5, CCAN+24
>> DILOCKTM	NEW+1
DIPGM	Q1+2!
DIWT	INCRPT+3!
DLAYGO	Q1+2!
DN	INCRPT+3!
DQ	LOCK+6!, LOCK+10!, IN0+8!, DIAG+7!, DIAG+13!
DR	LOCK+6!, LOCK+9, LOCK+10!, IN0+8, Q1!, INCRPT+2!, ERPT+6, DIAG+5, DIAG+7!, DIAG+9* , DIAG+13!
DR(2	DIAG+10*
DR(3	DIAG+11*
DTIME	PRT1
DUOUT	Q1+4!
DUZ	RARTE5+16, START+7, LOCK+4
I	RARTE5+8, RARTE5+16, NEW1+4, LOCK+1, LOCK+3, LOCK+4, INCRPT+3!
IEN74	CCAN~, CCAN+7, CCAN+10, CCAN+12, CCAN+15, CCAN+21, CCAN+24
ION	PRT1+3*
>> IOP	PRT1+3*
J	Q1+2!, INCRPT+3!
OREND	Q1!
POP	Q1+4!
RA	HLXMSG+1~, HLXMSG+4, HLXMSG+5
RA1	RARTE5+10~, CONTIN+15, CONTIN+16, CONTIN+22, DELDXPRT+1, DELDXPRT+2*, DELDXPRT+3, DELDXPRT+6
RA18EX	RARTE5+10~, CONTIN+2
RA2	CONTIN+15~, CONTIN+16, CONTIN+17, CONTIN+22, PRT+11*, PRT+12
RA7003	RARTE5+10~, CONTIN+5*, PRT+11
RAA1	IN0+4, INCRPT+3!
RAA2	PRT+17, INCRPT+3!
RAA2(0	PRT+22
RAAB	PRT+20!
RABIDAT	PRT+14, INCRPT+4!, PACS+3
RABIENS	INCRPT+4!
RABIREQ	PRT+13, INCRPT+4!, ERPT+12, PACS+3
RABTCH	Q1!
RABTCHN	Q1!
RACN	CONTIN+18, CONTIN+22, NEW1+2, LOCK+5, Q1!, INCRPT+4!, DIAG+9
RACNDSP	START+4~, START+5*, NEW1+1, NEW1+2
RACNI	CONTIN+5, CONTIN+6, CONTIN+9, CONTIN+22, CONTIN+23, NEW+4, LOCK+7, UNCASE+1, UNCASE+21, Q1! , INCRPT+4!, CCAN+14, CCAN+18, DIAG+3, DIAG+8, DELDX+1, DELDX+4
RACOPY	Q1!
RACS	Q1!
RACT	IN0+14, PRT+3, Q1!, INCRPT+4!
RADATE	Q1!, INCRPT+5!
RADFN	CONTIN+4, CONTIN+22, NEW+1, LOCK+5, LOCK+7, LOCK+8, UNCASE+4, UNCASE+21, Q1!, CCAN+14 , CCAN+18, DIAG+2, DIAG+3, DIAG+8, DIAG+12, DELDX+1, DELDXPRT+3
RADIR0	Q1+4!
RADRS	UNCASE+4*, INCRPT+5!
RADTE	NEW1+2, LOCK+5, Q1!, INCRPT+5!
RADTI	CONTIN+4, CONTIN+22, NEW+1, LOCK+7, LOCK+8, UNCASE+4, UNCASE+21, Q1!, INCRPT+5!, CCAN+14 , CCAN+18, DIAG+2, DIAG+3, DIAG+8, DIAG+12, DELDX+1, DELDXPRT+3
RADUZ	Q1!
RAELESIG	Q1!
RAEND	Q1+2!
RAF5	Q1+2!
RAFDA	Q1+4!, DELDX+3!, DELDXPRT+5!
RAFDA(	DELDX+1, DELDXPRT+3
RAFIN	Q1!, INCRPT+5!
RAFIRST	START, IN0+2, UNCASE+6, UNCASE+14, PRT+22, INCRPT+5!, ERPT+9
RAFL	Q1+2!
RAFST	Q1+2!
RAHEAD	Q1!
RAHLTCPB	PRT+6~*
RAI	LOCK+14, Q1!, INCRPT+5!
RAIMGTYI	DIAG+2*, DIAG+3!
RAIMGTYJ	DIAG+2*, DIAG+3!
RAIX	Q1+2!
RAJ1	Q1!
RALI	Q1+1!, INCRPT+5!
RALR	Q1+1!, INCRPT+5!
>> RAMDV	START+8, IN0+6
RAMEMARR	RARTE5+10~
RAMEMARR(	CONTIN+16, DELDXPRT+2
>> RAMES	PRT1+4*
>> RAMLC	PRT1+3
RANME	Q1+1!, INCRPT+5!
>> RANOSCRN	RARTE5+13
RANUM	Q1+1!
>> RANY1	IN0+4*
>> RANY2	PRT+17*
RAOR	Q1+1!
RAORDIFN	Q1+1!
RAPNODE	CONTIN+4*, CONTIN+5, CONTIN+6, CONTIN+9, CONTIN+23, NEW+4, UNCASE+1, Q1+1!
RAPOP	Q1+2!
RAPRC	Q1+1!, INCRPT+5!
RAPRG74	CCAN+5~
RAPRIT	Q1+1!
RAPRTSET	RARTE5+10~, CONTIN+13, NEW, LOCK+12, UNCASE+4, CCAN+29, CCAN+30
RAQUIT	Q1+1!
RAREPORT	START+1*, Q1+1!
RARES	Q1+1!
RARPDT	Q1+1!
RARPT	CONTIN+9, CONTIN+11, CONTIN+22, LOCK+4, LOCK+5, LOCK+9, LOCK+13, IN+1, IN0+2, IN0+8 , IN0+14, UNCASE+6, UNCASE+7, UNCASE+11, UNCASE+14, UNCASE+16, UNCASE+21, PRT+3, Q1+1!, INCRPT+5! , ERPT+5, ERPT+9
RARPTN	CONTIN+22, NEW1+1, NEW1+2*, LOCK+4, LOCK+5, Q1+1!, INCRPT+6!
RARPTZ	Q1+1!
RARTPN	Q1+1!
RASET	Q1+1!
RASI	Q1+1!
RASIG	Q1+1!
RASN	Q1+1!
RASSAN	START+4~*, START+5
RASSN	Q1+1!, INCRPT+6!
RASSS	RARTE5+12!, INCRPT+6!, HLXMSG+8
RASSS(	HLXMSG+5*
RASSSX	RARTE5+12!, INCRPT+6!, HLXMSG+8
RAST	START+6, CONTIN+13, Q1+1!, INCRPT+6!
RAST1	Q1+1!
RASTFF	Q1+1!
RASTI	Q1+1!
RASUBY0	RARTE5+10~, START+3*, START+4, START+5
RATEXT	Q1+4!
RATXT	INCRPT+2!, CCAN+5~, CCAN+27, ERPT+2*, ERPT+3
RATXT(1	CCAN+25*
RATXT(2	CCAN+26*
RATXT(3	CCAN+27*
RAVER	START+1!
RAVW	START+1*, Q1+1!, INCRPT+6!
RAXIT	RARTE5+10~, RARTE5+11, CONTIN+1, CONTIN+6, LOCK+1, LOCK+13, IN+1, IN0+6, UNCASE+4, UNCASE+6 , UNCASE+8, PRT, Q1+4!, ERPT+4, ERPT+12, DIAG+8, DIAG+14
RAY1	LOCK+10!, Q1+2!
U	START+4, START+5, IN0+2, IN0+14, UNCASE+11, UNCASE+21, PRT+3, PRT+11, DIAG+2, DIAG+8
W	Q1+1!
X	RARTE5+13, RARTE5+16, RARTE5+17, START+1, LOCK+6!, LOCK+10!, IN0+6, PRT1, PRT1+1, PRT1+2 , Q1+1!, INCRPT+6!, CCAN+18!, DIAG+3, DIAG+5
XQUIT	RARTE5+9!, Q1+1!
XX	HLXMSG+1~, HLXMSG+3, HLXMSG+4
Y	LOCK+6!, LOCK+10!, IN0+10!, Q1+1!, DIAG+8, DIAG+14!
Y(0	START+3

Marked Items

Name	Field # of Occurrence
$T(CREATE^WVRALINK	UNCASE+21
$T(INTRO+I	RARTE5+8

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RARTE5

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items