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

Package: Radiology Nuclear Medicine

Routine: RAESO


Information

RAESO ;HISC/CAH,GJC AISC/SAW-Override Exam Status to Complete ;16 Jan 2018 9:30 AM

Source Information

Source file <RAESO.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Radiology Nuclear Medicine 4 ^RACNLU  ($$SSANVAL,$$USESSAN)^RAHLRU1  ^RAORDC  SET^RAPSET1  
VA FileMan 1 ^DIE  

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

Package Total Caller Graph
Radiology Nuclear Medicine 1 RA OVERRIDE  

Entry Points

Name Comments DBIA/ICR reference
SINGLE ;Override Single Exam Status to 'COMPLETE'
ASKOVR
EXIT1
CZECH ; Check for a 'Complete' exam status for a particular imaging type

External References

Name Field # of Occurrence
^DIE ASKOVR+1
^RACNLU SINGLE+3
$$SSANVAL^RAHLRU1 SINGLE+4
$$USESSAN^RAHLRU1 SINGLE+6, SINGLE+7
^RAORDC ASKOVR+1
SET^RAPSET1 SINGLE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SINGLE+3
Function Call: WRITE
  • Prompt: I
  • Line Location: SINGLE+3
Function Call: WRITE
  • Prompt: !?1,"Name : ",$E(RANME,1,25),?40,"Pt ID : ",RASSN,!?1,"Case No. : ",RACNDSP,?40,"Procedure : ",$E(RAPRC,1,25)
  • Line Location: SINGLE+6
Function Call: WRITE
  • Prompt: !?1,"Name : ",$E(RANME,1,25),?40,"Pt ID : ",RASSN,!?1,"Case No. : ",RACN,?40,"Procedure : ",$E(RAPRC,1,25)
  • Line Location: SINGLE+7
Function Call: WRITE
  • Prompt: !?1,"Exam Date: ",RADATE,?40,"Technologist: "
  • Line Location: SINGLE+8
Function Call: WRITE
  • Prompt: $E($P(^(0),"^"),1,25)
  • Line Location: SINGLE+8
Function Call: WRITE
  • Prompt: !?40,"Req Phys : ",$E($S($D(^VA(200,+$P(Y(0),"^",14),0)):$P(^(0),"^"),1:""),1,25),!
  • Line Location: SINGLE+9
Function Call: WRITE
  • Prompt: I
  • Line Location: SINGLE+9
Function Call: WRITE
  • Prompt: !,"Sorry, your sign-on imaging type, ",RAIMGTY,!,"doesn't match the imaging type of this exam.",!
  • Line Location: SINGLE+10
Function Call: WRITE
  • Prompt: !!?3,$C(7),"...exam 'cancelled' therefore override is not allowed."
  • Line Location: SINGLE+11
Function Call: WRITE
  • Prompt: !!?3,$C(7),"...exam is already 'complete'."
  • Line Location: SINGLE+12
Function Call: READ
  • Formatting: !!
  • Prompt: "Are you sure? No// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKOVR+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to override exam status to 'COMPLETE', or 'NO' not to."
  • Line Location: ASKOVR+0
Function Call: WRITE
  • Prompt: !?6,"...exam status is now '",$P(^RA(72,$O(^RA(72,"AA",RAIMGTY,9,0)),0),"^"),"'.",!
  • Line Location: ASKOVR+1
Function Call: WRITE
  • Prompt: !?5,"An Examination Status of 'Complete' must be defined for an"
  • Line Location: CZECH+3
Function Call: WRITE
  • Prompt: !?5,"Imaging Type of: "_RAIMGTY_". Please contact your"
  • Line Location: CZECH+4
Function Call: WRITE
  • Prompt: !?5,"Radiology/Nuclear Medicine ADPAC for further assistance.",$C(7)
  • Line Location: CZECH+5
Routine Call
  • DIE
  • Line Location:
    • ASKOVR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RADPT - [#70] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] SINGLE+11, SINGLE+12, ASKOVR+1, CZECH+1
^RA(79.2 - [#79.2] SINGLE+10
^RADPT - [#70] SINGLE+8, SINGLE+10
^TMP($J EXIT1+2!
^VA(200 - [#200] SINGLE+8, SINGLE+9

Label References

Name Line Occurrences
ASKOVR ASKOVR
CZECH SINGLE+2
EXIT1 SINGLE+3
SINGLE SINGLE+10, SINGLE+11, SINGLE+12, ASKOVR, ASKOVR+2

Naked Globals

Name Field # of Occurrence
^( SINGLE+8
^(0 SINGLE+8, SINGLE+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT1!
%DT EXIT1!
%I EXIT1!
%X EXIT1!
%Y EXIT1!
D EXIT1!
D0 EXIT1!
D1 EXIT1!
D2 EXIT1!
D3 EXIT1!
DA ASKOVR+1*, EXIT1!
DE ASKOVR+1!
DI EXIT1!
DIC EXIT1!
DIE ASKOVR+1*!
DQ ASKOVR+1!
DR ASKOVR+1*!
DTIME ASKOVR
>> I SINGLE+3*, SINGLE+9*
J EXIT1!
POP EXIT1!
RACN SINGLE+5, SINGLE+7, EXIT1+1!
RACNDSP SINGLE+4~, SINGLE+5*, SINGLE+6
RACNI SINGLE+4, SINGLE+8, EXIT1!
RADATE SINGLE+8, EXIT1+1!
RADFN SINGLE+4, SINGLE+8, SINGLE+10, ASKOVR+1, EXIT1!
RADIV EXIT1!
RADTE EXIT1+1!
RADTI SINGLE+4, SINGLE+8, SINGLE+10, EXIT1!
RAHEAD EXIT1+1!
RAI EXIT1+1!
>> RAIMGTY SINGLE+10, SINGLE+11, SINGLE+12, ASKOVR+1, CZECH+1, CZECH+4
RANME SINGLE+6, SINGLE+7, EXIT1+1!
RAPIFN EXIT1+1!
RAPRC SINGLE+6, SINGLE+7, EXIT1+1!
RARPT EXIT1+1!
RASAVDR SINGLE+2~, ASKOVR+1*
RASSAN SINGLE+4~*, SINGLE+5
RASSN SINGLE+6, SINGLE+7, EXIT1+1!
RAST SINGLE+11, SINGLE+12, EXIT1+1!
RAVW SINGLE+3*, EXIT1+1!
RAXIT SINGLE+2~*, CZECH+2*
U SINGLE+10
W EXIT1+2!
X SINGLE+3, ASKOVR*, EXIT1+2!
XQUIT SINGLE+1!, EXIT1+2!
Y ASKOVR+1, EXIT1+2!
Y(0 SINGLE+9
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