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
Print Page as PDF
Routine: RAEDCN1

Package: Radiology Nuclear Medicine

Routine: RAEDCN1


Information

RAEDCN1 ;HISC/GJC-Utility routine for RAEDCN ; Feb 18, 2020@15:18:21

Source Information

Source file <RAEDCN1.m>

Entry Points

Name Comments DBIA/ICR reference
UNDEF ; Message for undefined imaging types
STUB(RARPT) ; Determine if this is an imaging stub report.
; Input : RARPT: IEN of the report record
; Output: 1 if an imaging stub report, else 0
PSET(RADFN,RADTI,RACNI) ; Determine if this exam is part of a printset.
; Input: RADFN-patient dfn <-> RADTI-exam timestamp <-> RACNI-exam ien
; Output: 1 if part of a printset, else 0
CKREASON(X) ;check file 75.2 ; P18 moved it from RAEDCN because the routine's length exceeded limit
; 0=OKAY, 1=BAD
; don't check for var RAOREA, because it's not set this early
DEL ; 'Exam Deletion' option (RA DELETEXAM)
DEL1
ASKDEL
VIEW ; 'View Exam by Case No.' option (RA VIEWCN)
CANCEL ;cancel exam status
ALOG ;update activity (70.03 ; 100) log
XSTIME ;update exam status times (70.03 ; 75) log
ERROR(RADESC) ;trip error trap hit primarily for CANCEL AN EXAM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Imaging Location data is not defined, "
  • Line Location: UNDEF+2
Function Call: WRITE
  • Prompt: "contact IRM.",$C(7)
  • Line Location: UNDEF+3
Function Call: WRITE
  • Prompt: !?5,"An Imaging Type was not defined for the following Imaging"
  • Line Location: UNDEF+5
Function Call: WRITE
  • Prompt: !?5,"Location: "_$P(^SC($P($G(^RA(79.1,+RAMLC,0)),U),0),U)_"."
  • Line Location: UNDEF+6
Function Call: WRITE
  • Prompt: !!?5,$S(X="C":"Cancellation",1:"Deletion")," cannot be done, because your file #75.2,"
  • Line Location: CKREASON+5
Function Call: WRITE
  • Prompt: !?5,"RAD/NUC MED REASON, does not have ""EXAM ",$S(X="C":"CANCELLED",1:"DELETED"),"""","."
  • Line Location: CKREASON+6
Function Call: WRITE
  • Prompt: !!?5,"Please notify your ADPAC.",!
  • Line Location: CKREASON+7
Function Call: WRITE
  • Prompt: !?3,$C(7),"A report has been filed for this case. Therefore deletion is not allowed!"
  • Line Location: DEL1+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to delete this exam? NO// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKDEL+0
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to delete this exam, or 'NO' not to."
  • Line Location: ASKDEL+0
Function Call: WRITE
  • Prompt: !,$C(7),"Someone else is editing an exam for this patient on the date/time",!,"you selected. Please try Later"
  • Line Location: ASKDEL+1
Function Call: WRITE
  • Prompt: !?10,"...deletion of exam complete."
  • Line Location: ASKDEL+21
Function Call: WRITE
  • Prompt: !!?3,"... exam cancellation complete."
  • Line Location: XSTIME+12
Info |  Source |  Entry Points |  Interaction Calls