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  | All
Print Page as PDF
Routine: RAEDCN

Package: Radiology Nuclear Medicine

Routine: RAEDCN


Information

RAEDCN ;HISC/CAH,FPT,GJC,SS AISC/MJK,RMO-Edit Exams by Case Number ;10 Apr 2018 2:03 PM

Source Information

Source file <RAEDCN.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Radiology Nuclear Medicine 15 ^RACNLU  $$PRCCPT^RADD1  ($$CKREASON,$$PSET,$$STUB,CANCEL)^RAEDCN1  Q^RAFLH  CANCEL^RAHLRPC  (TRK70CMA,TRK70CMB)^RAMAINU  XCMINTEG^RAMAINU1  SVBEFOR^RAO7XX  
EXMCAN^RAORDC  (KILL,SET,SETVARS)^RAPSET1  WHYMSG2^RASTED  UP1^RAUTL1  $$GETTCOM^RAUTL11  ($$LOCK,UNLOCK)^RAUTL12  (DELPNT,EN2)^RAUTL20  
VA FileMan 3 ^DIE  $$GET1^DIQ  ^DIR  

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

Package Total Caller Graph
Radiology Nuclear Medicine 6 RA CANCEL  RA DIAGCN  RA EDITCN  RA FLASH  RA NOPURGE  RAEDCN1  

Entry Points

Name Comments DBIA/ICR reference
START
START1 ;
EXIT ;clean up symbol table and exit
DIAG
SAVE
EDIT ; Case No. Exam Edit
CANCEL ;new w/RA5p124
ASKIMG
ASKCAN ;interact with the user use DIR RA5p124
PACS ;call all RA CANCEL* event drivers only if the order status
DUP ; Option: RA FLASH
DUP1
FLH ; Flash Cards
EXM ; Exam Labels
SETVARS ; Setup key Rad/Nuc Med variables
WARN1

External References

Name Field # of Occurrence
^DIE START1+36
$$GET1^DIQ DUP1+22
^DIR ASKCAN+5, ASKCAN+23, ASKCAN+28, DUP1+11
^RACNLU START1+2, CANCEL+8, DUP1
$$PRCCPT^RADD1 START1+27
$$CKREASON^RAEDCN1 CANCEL+5
$$PSET^RAEDCN1 ASKIMG
$$STUB^RAEDCN1 START1+12, ASKIMG
CANCEL^RAEDCN1 ASKCAN+48
Q^RAFLH EXM+3
CANCEL^RAHLRPC PACS+2
TRK70CMA^RAMAINU START1+47
TRK70CMB^RAMAINU START1+32
XCMINTEG^RAMAINU1 START1+46
SVBEFOR^RAO7XX START1+35
EXMCAN^RAORDC ASKCAN+41
KILL^RAPSET1 DUP1+14
SET^RAPSET1 STARTCANCEL+1, DUP+1, DUP1+14
SETVARS^RAPSET1 SETVARS+1, SETVARS+3
WHYMSG2^RASTED START1+8
UP1^RAUTL1 START1+37
$$GETTCOM^RAUTL11 ASKCAN+22
$$LOCK^RAUTL12 START1+22
UNLOCK^RAUTL12 START1+50
DELPNT^RAUTL20 ASKCAN+18
EN2^RAUTL20 START1+5

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: !?5
  • Variable: "Press RETURN to exit
  • Timeout: ",RAXIT:DTIME
  • Line Location: START1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: START1+8
Function Call: WRITE
  • Prompt: !?3,$C(7),"No report has been entered yet for this exam, therefore it cannot be edited.",!
  • Line Location: START1+12
Function Call: WRITE
  • Prompt: !!?3,$C(7),"You do not have the appropriate access privileges to edit completed exams."
  • Line Location: START1+16
Function Call: WRITE
  • Prompt: !!?3,$C(7),"Exam has been 'cancelled' therefore it cannot be edited."
  • Line Location: START1+17
Function Call: WRITE
  • Prompt: !!?3,$C(7),"A report has been verified for this exam, therefore it cannot be edited.",!
  • Line Location: START1+18
Function Call: WRITE
  • Prompt: !,?24,RADISPLY
  • Line Location: START1+28
Function Call: WRITE
  • Prompt: !?3,$C(7),"This exam has already been cancelled!"
  • Line Location: CANCEL+8
Function Call: WRITE
  • Prompt: !?3,$C(7),"This exam is in the '",$P(^(0),"^"),"' status and cannot be 'CANCELLED'."
  • Line Location: CANCEL+9
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to cancel a descendent exam with images, or 'NO' not to."
  • Line Location: ASKIMG+0
Function Call: WRITE
  • Prompt: !!?10,"----------------------------------",$C(7)
  • Line Location: ASKIMG+2
Function Call: WRITE
  • Prompt: !?10,X
  • Line Location: ASKIMG+3
Function Call: WRITE
  • Prompt: !?10,"This descendent exam has associated images.",$C(7)
  • Line Location: ASKIMG+4
Function Call: WRITE
  • Prompt: !?10,"----------------------------------",$C(7)
  • Line Location: ASKIMG+5
Function Call: WRITE
  • Prompt: !!?3,"** You do not have the RA MGR key to cancel an exam with images. **",$C(7)
  • Line Location: ASKIMG+7
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you really want to cancel this exam with images? NO//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKIMG+10
Function Call: WRITE
  • Prompt: !?3,$C(7),"A report has been filed for this case. Therefore cancellation is not allowed!"
  • Line Location: ASKIMG+13
Function Call: WRITE
  • Prompt: !,$C(7),"Someone else is editing the patient you selected",!,"Please try later"
  • Line Location: ASKIMG+16
Function Call: WRITE
  • Prompt: !!?3,"Your sign-on location is: "
  • Line Location: DUP1+5
Function Call: WRITE
  • Prompt: $P($G(^SC(+$G(^RA(79.1,+$G(RAMLC),0)),0)),"^")_". The location"
  • Line Location: DUP1+6
Function Call: WRITE
  • Prompt: !?3,"of case ",RACN," is "
  • Line Location: DUP1+7
Function Call: WRITE
  • Prompt: $P($G(^SC(+$G(^RA(79.1,RAREGX(4),0)),0)),"^"),".",!
  • Line Location: DUP1+8
Function Call: READ
  • Formatting: !
  • Prompt: "How many flash cards? 1// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: FLH+1
Function Call: WRITE
  • Prompt: !?3,$C(7),"Must be a whole number less than 21!"
  • Line Location: FLH+1
Function Call: READ
  • Formatting: !
  • Prompt: "How many exam labels? 1// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: EXM+1
Function Call: WRITE
  • Prompt: !?3,$C(7),"Must be a whole number less than 21!"
  • Line Location: EXM+1
Function Call: WRITE
  • Prompt: !?3,"An electronically filed report has already been entered for this case.",!?3,"Please use the 'Outside Report Entry/Edit' option to change or enter",!?3,"diagnostic code for this case.",!!
  • Line Location: WARN1+0
Routine Call
  • DIE
  • Line Location:
    • START1+36
Routine Call
  • DIR
  • Line Location:
    • ASKCAN+5
    • ASKCAN+23
    • ASKCAN+28
    • DUP1+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(1 - [#3.5] GET1^DIQ
^RADPT - [#70] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DUP1+21
^RA(72 - [#72] START1+16, START1+17, CANCEL+8, CANCEL+9
^RA(79.1 - [#79.1] DUP1+6, DUP1+8
^RADPT - [#70] START1+9, START1+26, ASKIMG+16, ASKCAN+9, ASKCAN+24, ASKCAN+29, ASKCAN+33, ASKCAN+34, ASKCAN+45, ASKCAN+50
DUP1+1, DUP1+2, DUP1+18
^RAMIS(71 - [#71] START1+26, DUP1+18
^RARPT - [#74] START1+14, START1+18
^SC - [#44] DUP1+6, DUP1+8
^TMP($J EXIT+2!
^XUSEC("RA MGR" START1+16, ASKIMG+6

Label References

Name Line Occurrences
ASKCAN ASKIMG
ASKIMG ASKIMG
DUP1 FLH+1, EXM+1, EXM+3
EXIT START1+2, START1+3, CANCEL+8, CANCEL+9, ASKIMGASKIMG+13, ASKIMG+16, ASKCAN+10, ASKCAN+24, ASKCAN+29
PACS+3, DUP1DUP1+1, DUP1+4, DUP1+18, EXM+3
EXM EXM+1
FLH FLH+1
START START1+18, DIAG+1, SAVEEDIT+3
START1 START1+16, START1+17, START1+20, START1+51
WARN1 START1+14

Naked Globals

Name Field # of Occurrence
^(0 START1+18, CANCEL+9, DUP1+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1!, ASKCAN+1~
%DT EXIT+1!
%H EXIT+3!
%I EXIT+3!
%W EXIT+1!
%X EXIT+1!
%Y EXIT+1!
%Y1 EXIT+1!
A EXIT+1!
C EXIT+1!
D EXIT+3!
D0 EXIT+1!
D1 EXIT+1!
D2 EXIT+1!
D3 EXIT+3!
DA START1+19*, EXIT+1!
DDER EXIT+3!
DDH EXIT+7!
DE START1+36!
DFN EXIT+6!
DI EXIT+3!
DIC EXIT+1!
DIE START1+19*, START1+36!, EXIT+1!
DIE("NO^" START1+19*, START1+36!
DIPGM EXIT+6!
DIR ASKCAN+1~, ASKCAN+21!, ASKCAN+27!, DUP1+9!, DUP1+13!
DIR("?" ASKCAN+3*, DUP1+10*
DIR("A" ASKCAN+4*, ASKCAN+23*, ASKCAN+28*, DUP1+11*
DIR("B" ASKCAN+2*, DUP1+9*
DIR(0 ASKCAN+2*, ASKCAN+23*, ASKCAN+28*, DUP1+9*
DIROUT ASKCAN+1~, ASKCAN+21!, ASKCAN+27!, DUP1+9!, DUP1+13!
DIRUT ASKCAN+1~, ASKCAN+8, ASKCAN+21!, ASKCAN+27!, DUP1+9!, DUP1+12, DUP1+13!
DISYS EXIT+6!
DIV EXIT+1!
DIW EXIT+3!
DIWF EXIT+3!
DIWI EXIT+3!
DIWL EXIT+3!
DIWR EXIT+3!
DIWT EXIT+3!
DIWTC EXIT+3!
DIWX EXIT+3!
DK EXIT+1!
DLAYGO EXIT+7!
DN EXIT+3!
DQ START1+36!, EXIT+6!
DR START1+19*, START1+36!, EXIT+6!
DTIME START1+3, ASKIMG+8, ASKIMG+10, FLH+1, EXM+1
DTOUT ASKCAN+1~, ASKCAN+21!, ASKCAN+24, ASKCAN+27!, ASKCAN+29, DUP1+9!, DUP1+13!
DUOUT ASKCAN+1~, ASKCAN+21!, ASKCAN+24, ASKCAN+27!, ASKCAN+29, DUP1+9!, DUP1+13!
DUZ START1+16, ASKIMG+6, SETVARS+1, SETVARS+2
GMRAL EXIT+3!
HLN EXIT+6!
HLRESLT EXIT+6!
HLSAN EXIT+6!
I EXIT+1!
ION DUP1+17*, DUP1+23*, EXM+2
>> IOP EXM+2*
J EXIT+4!
ORIFN EXIT+1!
ORVP EXIT+1!
POP START!, EXIT+1!, DUP+1!
R1 EXIT+4!
RA EXIT+4!
RA00 EDIT+2~
RA17 START1+4~, START1+10*, START1+12, START1+14
RA3 START1+4~, START1+6*
RA7003 START1+4~, START1+9*, START1+10
RAAFTER EXIT+6!
RAASK EDIT+2~
RABEFORE EXIT+6!
RACANC EXIT+4!
>> RACCESS( SETVARS+1, SETVARS+2
RACMDA START1+45*, START1+46, START1+48!
RACMDA(1 START1+45*
RACMDA(2 START1+45*
RACN EXIT+1!, ASKIMG+1, ASKIMG+16!, DUP1+7
RACN0 EXIT+4!
RACNI START1+9, START1+26, START1+32, START1+35, START1+45, START1+47, EXIT+1!, ASKIMGASKCAN+18, ASKCAN+22
ASKCAN+34, DUP1+18, DUP1+28
RACPT EXIT+4!
RACPTNDE EXIT+4!
RACS EXIT+1!
RACT EXIT+1!
RADA EXIT+4!
RADADA START1+21*, START1+22, START1+50, EXIT+1!
RADATE EXIT+1!
RADFLTP EXIT+7!, EXM+2*
RADFN START1+9, START1+19, START1+21, START1+26, START1+32, START1+35, START1+45, START1+47, EXIT+1!, ASKIMG
ASKIMG+16, ASKCAN+9, ASKCAN+18, ASKCAN+22, ASKCAN+24, ASKCAN+29, ASKCAN+33, ASKCAN+34, ASKCAN+45, ASKCAN+50
DUP1+1, DUP1+2, DUP1+18
RADIAG DIAG~
RADIE START1+21*, START1+22, START1+50, EXIT+1!
RADIOPH EDIT+2~
RADISPLY START1+25~, START1+26*, START1+27*, START1+28
RADIV EXIT+1!
RADOSE EDIT+2~
RADR START!, START1+3, START1+18, START1+19, START1+24, START1+35, START1+37, START1+44, EXIT+1!, DIAG+1*
, SAVE*, EDIT+3*
RADRAWN EDIT+2~
RADTE EXIT+1!, ASKIMG+1, ASKIMG+16!
RADTI START1+9, START1+21, START1+26, START1+32, START1+35, START1+45, START1+47, EXIT+1!, ASKIMGASKCAN+18
ASKCAN+22, ASKCAN+33, ASKCAN+34, DUP1+1, DUP1+2, DUP1+18
RADUZ START1+51!, ASKIMG+16!
RAEDIT EDIT+1~
RAEND EXIT+4!
RAERR START1+1~, START1+2*, START1+3, START1+8*, START1+12*, START1+14*
RAEXFM EXIT+1!, DUP1+28*
RAEXLBLS EXIT+1!, EXM+1*
RAEXOR EXIT+3!, ASKCAN+41*
RAFELIG EXIT+4!
RAFIN EXIT+1!
RAFL EXIT+1!, EXM+3!
RAFLG START!, EXIT+1!
RAFLG("DIAG" START1+20, START1+50, DIAG+1*
RAFLG("EDIT" START1+20, START1+50, EDIT+3*
RAFLH EXIT+1!, DUP1+28*
RAFLHFL EXIT+1!, DUP1+28*
RAFST EXIT+4!
RAHEAD EXIT+1!
RAHI EDIT+2~
RAI EXIT+1!
>> RAIMGTY START1+16, START1+17, CANCEL+8, SETVARS+3
RAIX EXIT+5!
RAJ EXIT+1!
RALOW EDIT+2~
RAMEMARR START1+4~, START1+5
RAMES EXIT+2!, DUP1+28*
>> RAMLC DUP1+4, DUP1+6, DUP1+17, DUP1+23, DUP1+28
RAN EXIT+5!
RANME EXIT+2!, ASKIMG+1
RANUM EXIT+2!, FLH+1*
RANUZD1 EDIT+2~
RAOBR4 EXIT+5!
RAOIFN EXIT+2!, ASKCAN+35*
RAOR EXIT+2!
RAORDIFN EXIT+2!
RAOREA EXIT+2!
RAORIFN EXIT+2!
RAOSEL EXIT+2!
RAOSTS EXIT+2!, ASKCAN+41*, ASKCAN+45
RAPOP EXIT+2!, ASKIMG+16!
RAPRC EXIT+2!
RAPRCNDE EXIT+5!
RAPRI EXIT+2!
RAPRIT EXIT+2!
RAPROC EXIT+5!
RAPROCIT EXIT+5!
RAPRTSET START1+4~, START1+8
RAPRV EXIT+5!
RAPSDRUG EDIT+2~
RAQUICK START!, EXIT+2!, EDIT+3*
>> RAREASON ASKCAN+30*
RAREGX DUP+1~
RAREGX(0 DUP1+2*, DUP1+3
RAREGX(4 DUP1+3*, DUP1+4, DUP1+8
RAREM EDIT+2~
RARPT START1+18, EXIT+2!, ASKIMGASKIMG+13
RARPTZ EXIT+2!
RASKMEDS EDIT+2~
RASN EXIT+2!
RASSN EXIT+2!
RAST START1+16, START1+17, EXIT+2!, CANCEL+8, CANCEL+9
RASTI EXIT+2!
>> RATCOM ASKCAN+22*, ASKCAN+23, ASKCAN+25*
RATRKCMB START1+32, START1+47, START1+51!
RAVW EXIT+2!
RAWHICH EDIT+2~
RAXIT START1+3*, START1+20, START1+22*, START1+51, EXIT+5!, DIAG~, DIAG+1*, EDIT+1~, EDIT+3*
RAY2 ASKCAN+1~, ASKCAN+33*
RAY3 ASKCAN+1~, ASKCAN+34*, ASKCAN+35
RAYN DUP+1~, DUP1+4, DUP1+12*, DUP1+13, DUP1+15*
RAZCM START1+36!
RAZZ START1+51!
SDCLST EXIT+4!
U START1+10, START1+14, START1+26, ASKCAN+25, ASKCAN+35
VA EXIT+5!
VADM EXIT+5!
VADMVT EXIT+2!
VAERR EXIT+5!
VAINDT EXIT+2!
X START1+2, EXIT+2!, CANCEL+8, ASKIMGASKIMG+1*, ASKIMG+3, ASKIMG+6*, ASKIMG+8*, ASKIMG+10*, ASKCAN+1~
DUP1FLH+1*, EXM+1*
X0 EXIT+6!
XQUIT START!, EXIT+2!, CANCEL+2!, DUP+1!, DUP1+15!, SETVARS+3!
Y EXIT+2!, ASKCAN+1~, ASKCAN+8, ASKCAN+25, ASKCAN+30, DUP1+12, DUP1+18*, DUP1+21, DUP1+22
Y(0 DUP1+22*, DUP1+23!
Z EXIT+5!
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  | All