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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Radiology Nuclear Medicine 7 ^RACNLU  DEL^RADUTL  (EXIT,SETVARS)^RAEDCN  $$CKREASON^RAEDCN1  CANCEL^RAHLRPC  ^RAORDC  ^RAPROD  
VA FileMan 4 (FILE,UPDATE)^DIE  ^DIK  $$IENS^DILF  ^DIR  
Kernel 2 APPERROR^%ZTER  $$NOW^XLFDT  

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

Package Total Caller Graph
Radiology Nuclear Medicine 14 RA DELETEXAM  RA VIEWCN  RAEDCN  RAEDCN1  RAHLO1  RAPM  RAREG  RARTE5  
RARTRPV  RARTVER  RARTVER2  RASTREQ  RASTREQ1  RAUTL3  

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

External References

Name Field # of Occurrence
APPERROR^%ZTER ERROR+1
FILE^DIE ASKDEL+15, CANCEL+27
UPDATE^DIE ALOG+12, XSTIME+9
^DIK ASKDEL+20, ASKDEL+31
$$IENS^DILF CANCEL+22
^DIR CKREASON+8
^RACNLU DEL1, VIEW+2
DEL^RADUTL ASKDEL+23
EXIT^RAEDCN DEL1, VIEW+2
SETVARS^RAEDCN DEL+1, VIEW+1
$$CKREASON^RAEDCN1 DEL+2
CANCEL^RAHLRPC ASKDEL+15
^RAORDC ASKDEL+2
^RAPROD VIEW+2
$$NOW^XLFDT ALOG+4, XSTIME+4

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
Routine Call
  • DIE
  • Line Location:
    • ASKDEL+15
    • CANCEL+27
Routine Call
  • DIE
  • Line Location:
    • ALOG+12
    • XSTIME+9
Routine Call
  • DIR
  • Line Location:
    • CKREASON+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] ASKDEL+14, CANCEL+13
^RA(75.2 - [#75.2] CKREASON+3, CKREASON+4
^RA(79.1 - [#79.1] UNDEF+6
^RA(79.2 - [#79.2] CANCEL+7
^RADPT - [#70] PSET+3, ASKDEL+1, ASKDEL+11, ASKDEL+18, ASKDEL+28, ASKDEL+33
^RARPT - [#74] STUB+16, STUB+18
^SC - [#44] UNDEF+6

Label References

Name Line Occurrences
ASKDEL ASKDEL
DEL1 DEL1+1, ASKDEL, ASKDEL+1, ASKDEL+34
ERROR CANCEL+10, CANCEL+16, CANCEL+28, ALOG+13, XSTIME+10
VIEW VIEW+2

Naked Globals

Name Field # of Occurrence
^("P" STUB+18
^("R" STUB+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASKDEL+25!
D ASKDEL+25!
D0 ASKDEL+25!
D1 ASKDEL+25!
D2 ASKDEL+25!
DA ASKDEL+17*, ASKDEL+25!, ASKDEL+29!*, ASKDEL+32!, CANCEL+1~, CANCEL+21*, CANCEL+22!
DA(1 ASKDEL+17*, ASKDEL+20, ASKDEL+29*, ASKDEL+31, CANCEL+21*
DA(2 ASKDEL+17*, ASKDEL+20, CANCEL+21*
DIC ASKDEL+25!
DIERR CANCEL+1~, CANCEL+28, ALOG+1!, ALOG+13, XSTIME+1!, XSTIME+10
DIK ASKDEL+20*, ASKDEL+25!, ASKDEL+29!, ASKDEL+31*, ASKDEL+32!
DIR CKREASON+8!
DIR("A" CKREASON+8*
DIR(0 CKREASON+8*
DIROUT CKREASON+8!
DIRUT CKREASON+8!
DTIME ASKDEL
DTOUT CKREASON+8!
DUOUT CKREASON+8!
DUZ DEL+1, VIEW+1, ALOG+8, XSTIME+8
RA124EXST CANCEL+1~, CANCEL+13*, CANCEL+15, CANCEL+24, XSTIME+6
RA7003 ASKDEL+11*, ASKDEL+17!
RAAFTER ASKDEL+25!
RABEFORE ASKDEL+25!
RABULL ASKDEL+17*, ASKDEL+25!
>> RACCESS( DEL+1, VIEW+1
RACNI PSET~, PSET+3, ASKDEL+11, ASKDEL+15, ASKDEL+17, ASKDEL+18, CANCEL+21
RADELFLG ASKDEL+2*, ASKDEL+25!
RADESC CANCEL+28*, ALOG+13*, XSTIME+10*, ERROR~, ERROR+1
RADFN PSET~, PSET+3, ASKDEL+1, ASKDEL+11, ASKDEL+15, ASKDEL+17, ASKDEL+18, ASKDEL+28, ASKDEL+29, ASKDEL+33
, CANCEL+21
RADTI PSET~, PSET+3, ASKDEL+1, ASKDEL+11, ASKDEL+15, ASKDEL+17, ASKDEL+18, ASKDEL+28, ASKDEL+29, ASKDEL+33
, CANCEL+21
RAERR ASKDEL+15!, CANCEL+1~
RAERROR CANCEL+1~, ALOG+1!, XSTIME+1!
RAFDA ASKDEL+15!, CANCEL+1~, ALOG+1!, XSTIME+1!
RAFDA( ASKDEL+15*, CANCEL+24*, CANCEL+26*, ALOG+2, XSTIME+2
RAFL VIEW+2!
RAIENS ASKDEL+15!*, CANCEL+1~, CANCEL+22*, CANCEL+24, CANCEL+26, ALOG+2, XSTIME+2
RAIENS(1 XSTIME+1!
>> RAIMGTY DEL+1, VIEW+1, CANCEL+6, CANCEL+7*, CANCEL+9, CANCEL+13
>> RAMLC UNDEF+1, UNDEF+6
RAPRTZ ASKDEL+25!
RAR CANCEL+1~, ALOG+2*, ALOG+4, ALOG+6, ALOG+8, ALOG+11, XSTIME+2*, XSTIME+4, XSTIME+6, XSTIME+8
>> RAREASON CANCEL+26
RARPT STUB~, STUB+16, STUB+18, DEL1+1
>> RATCOM ALOG+11
RAUSUNXF ASKDEL+7!
>> RAVW VIEW+2*
RAXIT DEL+2*!
>> RAY2 CANCEL+7
RAYY ASKDEL+18*, ASKDEL+23, ASKDEL+25!
U UNDEF+6, STUB+18, ASKDEL+14, ASKDEL+18, CANCEL+7
X CKREASON~, CKREASON+3, CKREASON+4, CKREASON+5, CKREASON+6, DEL1, ASKDEL*, ASKDEL+11*, ASKDEL+14, VIEW+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All