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

Package: Radiology Nuclear Medicine

Routine: RAEDCN


Information

RAEDCN ;HISC/CAH,FPT,GJC,SS AISC/MJK,RMO-Edit Exams by Case Number ; Feb 19, 2021@08:08:21

Source Information

Source file <RAEDCN.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(1 - [#3.5] GET1^DIQ
^RADPT - [#70] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call