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 ;4/28/97 08:00 [ 12/05/2011 10:27 AM ]

Source Information

Source file <RAESO.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Radiology Nuclear Medicine 5 ^RACNLU  ($$SSANVAL,$$USESSAN)^RAHLRU1  ^RAORDC  SET^RAPSET1  (CLOSE,ZIS)^RAUTL  
VA Fileman 5 DD^%DT  C^%DTC  ^DIC  ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RA EXAMSTATUS MASS OVERRIDE  RA OVERRIDE  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT ASK+14, SET+1, HD+1
C^%DTC ASK+14
^DIC ASK+8
^DIE SET, ASKOVR+1
^DIR RAESO+6, ASK+14
^RACNLU SINGLE+3
$$SSANVAL^RAHLRU1 SINGLE+4
$$USESSAN^RAHLRU1 SINGLE+6, SINGLE+7
^RAORDC SET+2, ASKOVR+1
SET^RAPSET1 RAESO+3, SINGLE+1
CLOSE^RAUTL EXIT
ZIS^RAUTL ASK+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Your sign-on imaging type is ",RAIMGTY,", so only exams",!,"of imaging type ",RAIMGTY," will be changed to complete.",!
  • Line Location: RAESO+5
Function Call: WRITE
  • Prompt: !!,"Enter a cutoff date that is at least sixty days prior to today."
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+18
Function Call: WRITE
  • Prompt: !!,"There were no exams with the statuses selected in the time frame specified that",!,"needed to be overridden to complete."
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(RADFN,0),"^"),1,25),?28
  • Line Location: SET+1
Function Call: WRITE
  • Prompt: Y,?49,RACN,?57,$S($D(^RA(72,RAST,0)):$E($P(^(0),"^"),1,20),1:"Unknown")
  • Line Location: SET+1
Function Call: WRITE
  • Prompt: !,?(IOM\2-22),"Cutoff Date for this Report is: ",RAECDTE,!,?(IOM\2-17),"Date Report was Run: "
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!!,"Patient Name",?28,"Exam Date",?49,"Case #",?57,"Status Before Override",!
  • Line Location: HD+2
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,*7,"...exam 'cancelled' therefore override is not allowed."
  • Line Location: SINGLE+11
Function Call: WRITE
  • Prompt: !!?3,*7,"...exam is already 'complete'."
  • Line Location: SINGLE+12
Function Call: READ
  • Prompt: "Are you sure? No// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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:
    • SET
    • ASKOVR+1
Routine Call
  • DIC
  • Line Location:
    • ASK+8
Routine Call
  • DIR
  • Line Location:
    • RAESO+6
    • ASK+14

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ASK ASK+8
ASKOVR ASKOVR
CZECH RAESO+4, SINGLE+2
EXIT RAESO+6, ASK+8, ASK+9, ASK+14, ASK+22
EXIT1 SINGLE+3
HD DQ+2, SET+1
L1 DQ+1
SET L1
SINGLE SINGLE+10, SINGLE+11, SINGLE+12, ASKOVR, ASKOVR+2

Naked Globals

Name Field # of Occurrence
^( SINGLE+8
^(0 L1, SET+1, 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!
C EXIT+3!
D EXIT1!
D0 EXIT1!
D1 EXIT1!
D2 EXIT1!
D3 EXIT1!
DA EXIT+1!, SET*, ASKOVR+1*, EXIT1!
DE SET!, ASKOVR+1!
DI EXIT1!
DIC ASK!*, ASK+9!, EXIT+1!, EXIT1!
DIC("S" ASK+5*
DIC(0 ASK*
DIE EXIT+1!, SET*!, ASKOVR+1*!
DIR RAESO+6!, RAESO+7!, EXIT+1!
DIR("A" RAESO+6*
DIR(0 RAESO+6*, ASK+14*
DIROUT EXIT+1!
DIRUT ASK+14, EXIT+1!
DISYS EXIT+3!
DQ SET!, ASKOVR+1!
DR EXIT+1!, SET*!, ASKOVR+1*!
DT ASK+14, HD+1
DTIME ASKOVR
DTOUT ASK+8, EXIT+1!
DUOUT ASK+8, EXIT+1!
I EXIT+3!, SINGLE+3*, SINGLE+9*
IO DQ
IOF HD
IOM HD, HD+1
IOP ASK+18*, ASK+21!
IOSL SET+1
J EXIT1!
PG DQ*, EXIT+1!, HD*
POP RAESO+3!, EXIT+1!, EXIT+3!, EXIT1!
RA EXIT+2!
RA(0 L1*, SET
RACN EXIT+2!, SET*, SET+1, SINGLE+5, SINGLE+7, EXIT1+1!
RACNDSP SINGLE+4~, SINGLE+5*, SINGLE+6
RACNI EXIT+2!, L1*, SINGLE+4, SINGLE+8, EXIT1!
RADATE SINGLE+8, EXIT1+1!
RADFN DQ+1*, EXIT+2!, L1, SET, SET+1, SINGLE+4, SINGLE+8, SINGLE+10, ASKOVR+1, EXIT1!
RADIV EXIT1!
RADTE EXIT+2!, SET*, SET+1, EXIT1+1!
RADTI DQ+1*, EXIT+2!, L1, SET, SINGLE+4, SINGLE+8, SINGLE+10, EXIT1!
RAECDTE ASK+14*, EXIT+2!, HD+1
RAECDTI ASK+14*, DQ+1, EXIT+2!
RAF1 EXIT+2!, SET+1, HD+2*
RAF4 DQ+2, EXIT+2!, SET+1*
RAHEAD EXIT1+1!
RAI EXIT1+1!
>> RAIMGTY RAESO+5, DQ, SINGLE+10, SINGLE+11, SINGLE+12, ASKOVR+1, CZECH+1, CZECH+4
RAIMGTYI DQ*, EXIT+2!, L1
RAMES ASK+21*, EXIT+2!
RANME SINGLE+6, SINGLE+7, EXIT1+1!
RAPIFN EXIT1+1!
RAPOP EXIT+2!
RAPRC SINGLE+6, SINGLE+7, EXIT1+1!
RARPT EXIT1+1!
RASAVDR RAESO+4~, SET*, SINGLE+2~, ASKOVR+1*
RASSAN SINGLE+4~*, SINGLE+5
RASSN SINGLE+6, SINGLE+7, EXIT1+1!
RAST DQ+1*, EXIT+2!, L1, SET+1, SINGLE+11, SINGLE+12, EXIT1+1!
RASTIEN ASK+9, EXIT+2!
RASTIEN( ASK+8*, DQ+1
RAVW SINGLE+3*, EXIT1+1!
RAXIT RAESO+4~*, SINGLE+2~*, CZECH+2*
RAZIS ASK+21*, EXIT+2!
RAZMDV EXIT+2!
U L1, SINGLE+10
W EXIT1+2!
X RAESO+7!, ASK+14, EXIT+3!, SINGLE+3, ASKOVR*, EXIT1+2!
X1 ASK+14*, EXIT+3!
X2 ASK+14*, EXIT+3!
XQUIT RAESO+3!, EXIT+3!, SINGLE+1!, EXIT1+2!
Y RAESO+6, RAESO+7!, ASK+8, ASK+14, EXIT+3!, SET+1*, HD+1*, ASKOVR+1, EXIT1+2!
Y(0 SINGLE+9
ZTDESC ASK+21*, EXIT+3!
ZTRTN ASK+18*, EXIT+3!
ZTSAVE EXIT+3!
ZTSAVE("RAE*" ASK+19*
ZTSAVE("RAI*" ASK+19*
ZTSAVE("RAM*" ASK+19*
ZTSAVE("RASTIEN(" ASK+20*
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