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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RANMED1

Package: Radiology Nuclear Medicine

Routine: RANMED1


Information

RANMED1 ;HISC/SWM-Nuclear Medicine Enter/Edit Routine ;1/21/97 11:07

Source Information

Source file <RANMED1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 4 EN^DDIOL  ^DIC  ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Radiology Nuclear Medicine 5 RA NM EDIT LOT  RA NM EDIT ROUTE  RA NM EDIT SITE  RA NM EDIT SOURCE  RACTEX17  

Entry Points

Name Comments DBIA/ICR reference
ROUTE ; Enter/Edit file 71.6
SITE ; Enter/Edit file 71.7
WARN ; Warn if dose is out-of-range, called from [RA EXAM EDIT]
SOURCE ; Enter/Edit file 71.8
EXIT
LOT ; Enter/Edit file 71.9
DUPL ;check for duplicate entry into file 71.9

External References

Name Field # of Occurrence
EN^DDIOL DUPL+12
^DIC ROUTE+2, SITE+2, SOURCE+2, LOT+7
^DIE ROUTE+3, ROUTE+13, SITE+3, SOURCE+3, LOT+12
^DIR ROUTE+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ROUTE+1
Function Call: WRITE
  • Prompt: !!?5,"Current parameters for entry of sites for this route :"
  • Line Location: ROUTE+4
Function Call: WRITE
  • Prompt: !!?5,"PROMPT FOR FREE TEXT SITE? = ",$P(^RAMIS(71.6,DA,0),U,3)
  • Line Location: ROUTE+5
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: ($L(RA2)+2+$X)>80
  • Line Location: ROUTE+6
Function Call: WRITE
  • Prompt: RA2
  • Line Location: ROUTE+6
Function Call: WRITE
  • Prompt: ";"
  • Condition for execution: $O(^RAMIS(71.6,DA,"SITE",RA1))
  • Line Location: ROUTE+6
Function Call: WRITE
  • Prompt: " "
  • Line Location: ROUTE+6
Function Call: WRITE
  • Prompt: !!?21,"-- NOTE -- ",!?10,"If 'PROMPT FOR FREE TEXT SITE?' is 'Y',",!?10,"then users will not be given a selection",!?10,"of predefined 'VALID SITES'"
  • Line Location: ROUTE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SITE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SOURCE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOT+7
Function Call: WRITE
  • Prompt: !!,RADOT,!?14,"This dose level requires a written, dated and signed",!?27,"directive by a physician.",!,RADOT,!
  • Line Location: WARN+5
Function Call: WRITE
  • Prompt: !,RADOT
  • Line Location: WARN+6
Function Call: WRITE
  • Prompt: !?((80-$L(^(RA1,0)))/2),^(0)
  • Line Location: WARN+7
Function Call: WRITE
  • Prompt: !,RADOT,!
  • Line Location: WARN+8
Routine Call
  • DIE
  • Line Location:
    • ROUTE+3
    • ROUTE+13
    • SITE+3
    • SOURCE+3
    • LOT+12
Routine Call
  • DIC
  • Line Location:
    • ROUTE+2
    • SITE+2
    • SOURCE+2
    • LOT+7
Routine Call
  • DIR
  • Line Location:
    • ROUTE+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71.6 - [#71.6] Classic Fileman Calls
^RAMIS(71.7 - [#71.7] Classic Fileman Calls
^RAMIS(71.8 - [#71.8] Classic Fileman Calls
^RAMIS(71.9 - [#71.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79 - [#79] WARN+5, WARN+7
^RADPT - [#70] WARN+4
^RAMIS(71.6 - [#71.6] ROUTE+5, ROUTE+6
^RAMIS(71.7 - [#71.7] ROUTE+6
^RAMIS(71.9 - [#71.9] DUPL+1

Label References

Name Line Occurrences
EXIT ROUTE+3, SITE+3, SOURCE+3
ROUTE ROUTE+11, ROUTE+12, ROUTE+14
SITE SITE+4
SOURCE SOURCE+4

Naked Globals

Name Field # of Occurrence
^( ROUTE+6, WARN+7
^(0 ROUTE+6, WARN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C EXIT+1!
D EXIT+1!
D0 EXIT+1!
DA ROUTE+3*, ROUTE+5, ROUTE+6, SITE+3*, SOURCE+3*, LOT+2~, LOT+10*, LOT+11, EXIT!, EXIT+2!
DDH EXIT+1!
DG EXIT+1!
DI EXIT+1!
DIC ROUTE+2*, ROUTE+3, SITE+2*, SITE+3, SOURCE+2*, SOURCE+3, LOT+2~, LOT+6*, LOT+10, EXIT!
DIC(0 ROUTE+2*, SITE+2*, SOURCE+2*, LOT+6*
DIDEL LOT+2~
DIE ROUTE+3*, SITE+3*, SOURCE+3*, LOT+2~, LOT+10*, EXIT!, EXIT+2!
DINUM LOT+2~
DIR EXIT!
DIR("A" ROUTE+9*
DIR(0 ROUTE+8*
DIRUT ROUTE+11, EXIT!
DISYS EXIT+1!
DLAYGO LOT+2~
DQ EXIT+1!
DR ROUTE+3*, ROUTE+12*, SITE+3*, SOURCE+3*, LOT+2~, LOT+11*, EXIT!, EXIT+2!
DST EXIT+1!
DTOUT LOT+2~
DUOUT LOT+2~, EXIT+1!
EXIT LOT+2~, LOT+3*, LOT+4, LOT+8*
I EXIT+1!
POP EXIT+1!
RA DUPL+3~, DUPL+12
RA(1 DUPL+4*, DUPL+5*
RA(2 DUPL+6*, DUPL+7*
RA(3 DUPL+8*, DUPL+9*
RA(4 DUPL+10*, DUPL+11*
RA1 ROUTE+1~*, ROUTE+6*, WARN+2~*, WARN+7*
RA2 ROUTE+1~, ROUTE+6*
RA50IEN EXIT+2!
RA719IEN EXIT+2!
>> RADFN WARN+1, WARN+4
RADOT WARN+2~, WARN+3*, WARN+5, WARN+6, WARN+8
>> RADTI WARN+1, WARN+4
RAENTRY EXIT+2!
RAFDA EXIT+2!
RAFIN EXIT+3!
RAHLP3 EXIT+3!
RANODEL EXIT+2!
>> RAOPT("NM EDI T LOT" , DUPL+2
RASTUFF EXIT+2!
RAVACL EXIT+2!
RAXDIV WARN+2~, WARN+4*, WARN+5, WARN+7
RAYN EXIT+2!
TMP LOT+2~
U ROUTE+5, ROUTE+6, WARN+4
X ROUTE+12, LOT+2~, DUPL+1, DUPL+4, DUPL+8
Y ROUTE+3, SITE+3, SOURCE+3, LOT+2~, LOT+8, LOT+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All