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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RARTE5

Package: Radiology Nuclear Medicine

Routine: RARTE5


Information

RARTE5 ;HISC/SWM AISC/MJK,RMO - Enter/Edit Outside Reports ; Mar 01, 2023@12:04:48

Source Information

Source file <RARTE5.m>

Call Graph

Call Graph

Call Graph Total: 24

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 5 YN^DICN  (,FILE)^DIE  (,IX1)^DIK  $$GET1^DIQ  ^DIR  
Kernel 1 MES^XPDUTL  
Womens Health 1 CREATE^WVRALINK  

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

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

Entry Points

Name Comments DBIA/ICR reference
START
CONTIN ; continue
P124 ;fix for RA5P124
NEW
NEW1 ;
LOCK ;Try to lock next avail IEN, if locked - fail, if used - increment again
IN ;edit existing rpt, so lock rpt fr the 1st time
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
UNCASE ;
PRT
PRT1
Q1
INCRPT ; Kill extraneous variables to avoid collisions.
; Incomplete report information, select another case #.
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
ERPT ; Edit report text, impression, and enter/edit diagnostic codes
DIAG ; Diagnostic codes
; (code taken from routine RARTE1)
PACS ; do not broadcast ORU message at this point
HLXMSG ; set up RASSSX() of VR subscribers to exclude from ORM msg broadcast
DELDX ; del any Prim. and Sec. DXs from standalone case
DELDXPRT ;del any Prim. and Sec. DXs from all cases in printset
REGCR() ;RA184/KLM - Check credit method of exam's registered location
BROAD(RAY) ;A strict check if the procedure associated with this report
INTRO ;

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,$P($T(INTRO+I),";;",2)
  • Line Location: RARTE5+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RARTE5+12
Function Call: WRITE
  • Prompt: !,"Your user account is missing a Radiology classification.",!
  • Line Location: RARTE5+20
Function Call: WRITE
  • Prompt: $C(7),!!,"The STATUS for this case is CANCELLED. You may not enter a report.",!!
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !!,$C(7),"** WARNING, this case is not registered in an OUTSIDE imaging location. **",!
  • Line Location: CONTIN+4
Function Call: WRITE
  • Prompt: !?3,$C(7),"Only Electronically Filed reports can be selected!",!
  • Line Location: CONTIN+11
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+20
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+21
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+13
Function Call: WRITE
  • Prompt: !!?5,"Exam status not recalculated due to missing BI-RADS code."
  • Line Location: PRT+16
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to print this report? No// "
  • Variable: X
  • Timeout: DTIME
  • 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
Routine Call
  • DIR
  • Line Location:
    • CONTIN+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+17, CONTIN+15, DIAG+3, DIAG+5
^RA(79.1 - [#79.1] REGCR+2
^RA(79.2 - [#79.2] DIAG+2
^RADPT - [#70] P124+1*, NEW+1, UNCASE+4, CCAN+18*, DIAG+2, DIAG+8, REGCR+1
^RAMIS(71 - [#71] BROAD+4
^RARPT - [#74] CONTIN+11, CONTIN+13, P124+1, LOCK+3, LOCK+4*, LOCK+5*, IN0+2, IN0+14, UNCASE+12, UNCASE+22
, PRT+3, CCAN+7, CCAN+10, ERPT+9
^RARPT("B" P124+3
^RARPT(0 NEW1+4, LOCK+4
^TMP($J Q1+3!
^VA(200 - [#200] RARTE5+19
^XUSEC("RA MGR" START+18

Label References

Name Line Occurrences
$$BROAD START+11
$$CCAN UNCASE+6
$$REGCR CONTIN+4
CONTIN START+17, START+18, START+19
DELDX CCAN+30
DELDXPRT CCAN+29
DIAG PACS+3
ERPT IN0+16, ERPT+9
HLXMSG PRT+24
IN CONTIN+13
IN0 LOCK+15
INCRPT RARTE5+20, START+20, CONTIN+2, CONTIN+4, CONTIN+8, CONTIN+11, P124+6, NEW+4, LOCK+1, PRT
, PRT1+1, PRT1+5, Q1+5
LOCK LOCK+3
NEW CONTIN+15, CONTIN+19
NEW1 NEW, NEW+1
PACS DIAG+8
PRT UNCASE+9
PRT1 PRT1+2
Q1 RARTE5+16, START+1, LOCK+13, IN+1
START START+6, START+11, START+20, CONTIN+2, CONTIN+4, CONTIN+8, CONTIN+11, P124+6, 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+11, LOCK+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CONTIN+22*, CONTIN+23, P124+1, LOCK+6!, LOCK+10!, Q1!, INCRPT+3!
%DT Q1!, INCRPT+3!
%W Q1!
%Y Q1!
%Y1 Q1!
ACCESSION START+7~*, START+8*, START+9
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!
DIR CONTIN+4!
DIR("A" CONTIN+4*
DIR("B" CONTIN+4*
DIR(0 CONTIN+4*
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+19, START+18, LOCK+4
I RARTE5+11*, RARTE5+19*, 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+13~, CONTIN+17*, CONTIN+18*, P124+1*, DELDXPRT+1*, DELDXPRT+2*, DELDXPRT+3, DELDXPRT+6
RA18EX RARTE5+13~, CONTIN+2
RA2 CONTIN+17~*, CONTIN+18*, CONTIN+19, P124+1, PRT+11*, PRT+12
RA7003 RARTE5+13~, CONTIN+7*, PRT+11
RAA1 IN0+4, INCRPT+3!
RAA2 PRT+18, INCRPT+3!
RAA2(0 PRT+23
RAAB PRT+21!
RABIDAT PRT+15, INCRPT+4!, PACS+3
RABIENS INCRPT+4!
RABIREQ PRT+13, PRT+14, INCRPT+4!, ERPT+12, PACS+3
RABTCH Q1!
RABTCHN Q1!
RACCSTR P124+2~*, P124+3
RACN CONTIN+20, P124+1, P124+2, NEW1+2, LOCK+5, Q1!, INCRPT+4!, DIAG+9
RACNDSP START+15~, START+16*, NEW1+1, NEW1+2
RACNI CONTIN+7, CONTIN+8, CONTIN+11, P124+1, P124+6, NEW+4, LOCK+7, UNCASE+1, UNCASE+22, 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+6, P124+1, NEW+1, LOCK+5, LOCK+7, LOCK+8, UNCASE+4, UNCASE+22, Q1!, CCAN+14
, CCAN+18, DIAG+2, DIAG+3, DIAG+8, DIAG+12, DELDX+1, DELDXPRT+3, REGCR+1
RADIR0 Q1+4!
RADRS UNCASE+4*, INCRPT+5!
RADTE START+8, NEW1+2, LOCK+5, Q1!, INCRPT+5!
RADTI CONTIN+6, P124+1, NEW+1, LOCK+7, LOCK+8, UNCASE+4, UNCASE+22, Q1!, INCRPT+5!, CCAN+14
, CCAN+18, DIAG+2, DIAG+3, DIAG+8, DIAG+12, DELDX+1, DELDXPRT+3, REGCR+1
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+15, PRT+23, INCRPT+5!, ERPT+9
RAFL Q1+2!
RAFST Q1+2!
RAHEAD Q1!
RAHLTCPB PRT+6~*
RAI LOCK+14, Q1!, INCRPT+5!
RAIL REGCR+1~*, REGCR+2
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+19, IN0+6
RAMEMARR RARTE5+13~
RAMEMARR( CONTIN+18, DELDXPRT+2
>> RAMES PRT1+4*
>> RAMLC PRT1+3
RANME Q1+1!, INCRPT+5!
>> RANOSCRN RARTE5+16
RANUM Q1+1!
>> RANY1 IN0+4*
>> RANY2 PRT+18*
RAOR Q1+1!
RAORDIFN Q1+1!
RAPNODE CONTIN+6*, CONTIN+7, CONTIN+8, CONTIN+11, P124+6, NEW+4, UNCASE+1, Q1+1!
RAPOP Q1+2!
RAPRC Q1+1!, INCRPT+5!
RAPRG74 CCAN+5~
RAPRIT Q1+1!
RAPRTSET RARTE5+13~, CONTIN+15, 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+11, CONTIN+13, P124+1*, P124+3, LOCK+4*, LOCK+5, LOCK+9, LOCK+13, IN+1, IN0+2
, IN0+8, IN0+14, UNCASE+6, UNCASE+8, UNCASE+12, UNCASE+15, UNCASE+17, UNCASE+22, PRT+3, Q1+1!
, INCRPT+5!, ERPT+5, ERPT+9
RARPTN P124+1*, P124+2, 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+15~*, START+16
RASSN Q1+1!, INCRPT+6!
RASSS RARTE5+15!, INCRPT+6!, HLXMSG+8
RASSS( HLXMSG+5*
RASSSX RARTE5+15!, INCRPT+6!, HLXMSG+8
RAST START+17, CONTIN+15, Q1+1!, INCRPT+6!
RAST1 Q1+1!
RASTFF Q1+1!
RASTI Q1+1!
RASUBY0 RARTE5+13~, START+3*, START+15, START+16
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!
RAX START+1!*, IN0+6*, UNCASE+7, Q1+4!
RAXIT RARTE5+13~, RARTE5+14*, CONTIN+1*, CONTIN+8*, LOCK+1*, LOCK+13, IN+1*, IN0+6*, UNCASE+6*, UNCASE+7*
, UNCASE+9, PRT*, Q1+4!, ERPT+4*, ERPT+12, DIAG+8*, DIAG+14*
RAY BROAD~, BROAD+4
RAY1 LOCK+10!, Q1+2!
U START+6, START+7, START+11, START+15, START+16, IN0+2, IN0+14, UNCASE+12, UNCASE+22, PRT+3
, PRT+11, DIAG+2, DIAG+8, REGCR+1, REGCR+2, BROAD+4
W Q1+1!
X RARTE5+16*, RARTE5+19*, RARTE5+20, 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+12!, Q1+1!
XX HLXMSG+1~, HLXMSG+3, HLXMSG+4
Y CONTIN+4, LOCK+6!, LOCK+10!, IN0+10!, Q1+1!, INCRPT+6!, DIAG+8, DIAG+14!
Y(0 START+3, START+6, START+7, START+8, START+11

Marked Items

Name Field # of Occurrence
$T(CREATE^WVRALINK UNCASE+22
$T(INTRO+I RARTE5+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All