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 ;1/11/02 11:15

Source Information

Source file <RAEDCN.m>

Call Graph

Call Graph Total: 17

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

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
EXM ; Exam Labels
DUP1
SETVARS ; Setup key Rad/Nuc Med variables
PACS
EDIT ; Case No. Exam Edit
DIAG
START1 ;
ASKCAN
ASKIMG
WARN1
Q
START
CANCEL
SAVE
FLH ; Flash Cards
DUP ; Option: RA FLASH

External References

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: !?5
  • Timeout: ",RAXIT:DTIME
  • Variable: "Press RETURN to exit
  • 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+2
Function Call: WRITE
  • Prompt: !?3,$C(7),"This exam is in the '",$P(^(0),"^"),"' status and cannot be 'CANCELLED'."
  • Line Location: CANCEL+3
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
  • Prompt: "Do you really want to cancel this exam with images? NO//"
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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+12
Function Call: READ
  • Prompt: "Do you wish to cancel this exam now? NO// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASKCAN+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to cancel this exam, or 'NO' not to."
  • Line Location: ASKCAN+0
Function Call: WRITE
  • Prompt: !,$C(7),"Someone else is editing the patient you selected",!,"Please try later"
  • Line Location: ASKCAN+2
Function Call: WRITE
  • Prompt: !?10,"...cancellation complete."
  • Line Location: PACS+0
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
  • Prompt: "How many flash cards? 1// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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
  • Prompt: "How many exam labels? 1// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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
    • ASKCAN+3
Routine Call
  • DIR
  • Line Location:
    • 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+2, CANCEL+3
^RA(79.1 - [#79.1] DUP1+6, DUP1+8
^RADPT - [#70] START1+9, START1+26, ASKCAN+2, PACS+1, 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 Q+1!
^XUSEC("RA MGR" START1+16, ASKIMG+6

Label References

Name Line Occurrences
ASKCAN ASKIMG, ASKCAN
ASKIMG ASKIMG
DUP1 FLH+1, EXM+1, EXM+3
EXM EXM+1
FLH FLH+1
Q START1+2, START1+3, CANCEL+2, CANCEL+3, ASKIMG, ASKIMG+12, ASKCAN, ASKCAN+2, PACS+2, DUP1
, DUP1+1, DUP1+4, DUP1+18, EXM+3
START START1+18, DIAG+1, SAVE, EDIT+3
START1 START1+16, START1+17, START1+20, START1+51
WARN1 START1+14

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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