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 ; 20 Apr 2011 7:26 PM

Source Information

Source file <RAEDCN1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Radiology Nuclear Medicine 6 ^RACNLU  (Q,SETVARS)^RAEDCN  $$CKREASON^RAEDCN1  CANCEL^RAHLRPC  ^RAORDC  ^RAPROD  
VA Fileman 3 FILE^DIE  ^DIK  ^DIR  

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
DEL1
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
UNDEF ; Message for undefined imaging types
ASKDEL
STUB(RARPT) ; Determine if this is an imaging stub report.
; Input: RARPT-ien of the report record
; Output: 1 if an imaging stub rpt, 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)
VIEW ; 'View Exam by Case No.' option (RA VIEWCN)

External References

Name Field # of Occurrence
FILE^DIE ASKDEL+8
^DIK ASKDEL+15, ASKDEL+23
^DIR CKREASON+8
^RACNLU DEL1, VIEW+2
Q^RAEDCN DEL1, VIEW+2
SETVARS^RAEDCN DEL+1, VIEW+1
$$CKREASON^RAEDCN1 DEL+2
CANCEL^RAHLRPC ASKDEL+8
^RAORDC ASKDEL+2
^RAPROD VIEW+2

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
  • Prompt: "Do you wish to delete this exam? NO// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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: !,"Beginning deletion - please wait "
  • Line Location: ASKDEL+11
Function Call: WRITE
  • Prompt: !?10,"...deletion of exam complete."
  • Line Location: ASKDEL+16
Routine Call
  • DIE
  • Line Location:
    • ASKDEL+8
Routine Call
  • DIR
  • Line Location:
    • CKREASON+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(72 - [#72] ASKDEL+7
^RA(75.2 - [#75.2] CKREASON+3, CKREASON+4
^RA(79.1 - [#79.1] UNDEF+6
^RADPT - [#70] PSET+3, ASKDEL+1, ASKDEL+4, ASKDEL+20, ASKDEL+25
^RARPT - [#74] STUB+3, STUB+4
^SC - [#44] UNDEF+6

Label References

Name Line Occurrences
ASKDEL ASKDEL
DEL1 DEL1+1, ASKDEL, ASKDEL+1, ASKDEL+26
VIEW VIEW+2

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASKDEL+17!
D ASKDEL+17!
D0 ASKDEL+17!
D1 ASKDEL+17!
D2 ASKDEL+17!
DA ASKDEL+13*, ASKDEL+17!, ASKDEL+21!*, ASKDEL+24!
DA(1 ASKDEL+13*, ASKDEL+15, ASKDEL+21*, ASKDEL+23
DA(2 ASKDEL+13*, ASKDEL+15
DIC ASKDEL+17!
DIK ASKDEL+15*, ASKDEL+17!, ASKDEL+21!, ASKDEL+23*, ASKDEL+24!
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
RA0 STUB+3~*, STUB+4
RA7003 ASKDEL+4*, ASKDEL+13!
RAAFTER ASKDEL+17!
RABEFORE ASKDEL+17!
RABULL ASKDEL+13*, ASKDEL+17!
>> RACCESS( DEL+1, VIEW+1
RACNI PSET~, PSET+3, ASKDEL+4, ASKDEL+8, ASKDEL+13
RADELFLG ASKDEL+2*, ASKDEL+17!
RADFN PSET~, PSET+3, ASKDEL+1, ASKDEL+4, ASKDEL+8, ASKDEL+13, ASKDEL+20, ASKDEL+21, ASKDEL+25
RADTI PSET~, PSET+3, ASKDEL+1, ASKDEL+4, ASKDEL+8, ASKDEL+13, ASKDEL+20, ASKDEL+21, ASKDEL+25
RAERR ASKDEL+8!
RAFDA ASKDEL+8!
RAFDA( ASKDEL+8*
RAFL VIEW+2!
RAIENS ASKDEL+8!*
>> RAIMGTY DEL+1, VIEW+1
>> RAMLC UNDEF+1, UNDEF+6
RAPRTZ ASKDEL+17!
RARPT STUB~, STUB+3, STUB+4, DEL1+1
>> RAVW VIEW+2*
RAXIT DEL+2*!
U UNDEF+6, STUB+4, ASKDEL+7
X CKREASON~, CKREASON+3, CKREASON+4, CKREASON+5, CKREASON+6, DEL1, ASKDEL*, ASKDEL+4*, ASKDEL+7, 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