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

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call