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

Package: Radiology Nuclear Medicine

Routine: RAPINFO


Information

RAPINFO ;HIRMFO/GJC - Display Imaging Procedure Rad/Nuc Med info ;11/5/99 12:32

Source Information

Source file <RAPINFO.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Associated option: [DISPLAY IMAGING PROCEDURE RAD/NUC MED INFORMATION]
PROC ; Procedure selection O-M-A
DEV ; Device selection
START ; Start processing data & printing to the device here.
BLD(RA1) ; Build procedure identifier string
; input: 'RA1' = ien of entry in Rad/Nuc Med Procedures file
DICS(RAY,Y) ; Display active procedures within an imaging type.
; Input : RAY - Imaging Type
; Y - ien of the procedure
; Output: 1 if a valid selection, 0 if invalid
DICW ; Display abbreviation with the I-Type
HDR ; Header for our report
KILL ; Kill and quit the application
DESC(RAPRC,RAFLG) ; display the descendants associated with the
; parent procedure
CMEDIA ; display the contrast media associated with the parent procedure

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !?5,"Request Queued, Task #: ",+$G(ZTSK)
  • Line Location: DEV+9
Function Call: WRITE
  • Prompt: !?5,"Request cancelled!"
  • Line Location: DEV+11
Function Call: WRITE
  • Prompt: !,$E(RA0,1,30),?34,RAIDFIER
  • Line Location: START+18
Function Call: WRITE
  • Prompt: !
  • Line Location: START+39
Function Call: WRITE
  • Prompt: !
  • Line Location: START+42
Function Call: WRITE
  • Prompt: !?(IOM-$L(RAHDR)\2),RAHDR
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"Run Date/Time: ",RARUNDT,?($S(IOM=132:121,1:68)),"Page: ",RAPG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,RALN
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X
  • Line Location: DESC+7
Function Call: WRITE
  • Prompt: ?2,$E($P($G(^RAMIS(71,RAPRC,0)),U),1,30),?34,RAIDFIER
  • Line Location: DESC+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
71.0125 EXTERNAL^DILFD
^RA(79.2 - [#79.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call