Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RADPT - [#70] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call