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

Package: Radiology Nuclear Medicine

Routine: RARTR


Information

RARTR ;HISC/CAH COLUMBIA/REB AISC/MJK,RMO - Queue/print Reports ; Feb 28, 2025@09:47:59

Source Information

Source file <RARTR.m>

Entry Points

Name Comments DBIA/ICR reference
PRT ; Begin print/build of e-mail message
PRT1
PEND
END
Q ; Queue the report
DQ
INIT ; initialize exam/report variables
; main variables set:
; RAY0: zero node data from the Patient File (2)
; RAY1: zero node data from the Rad/Nuc Med Patient File (70)
; RAY2: Registered Exams (70.02) zero node data
; RAY3: Examinations (70.03) zero node data
HD
HD1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(RASTRSK,1,22)," P R O B L E M S T A T E M E N T ",$E(RASTRSK,1,22)
  • Line Location: PRT1+89
Function Call: WRITE
  • Prompt: !!,$S($D(^RARPT(RARPT,"P")):^("P"),1:"None entered.")
  • Line Location: PRT1+90
Function Call: WRITE
  • Prompt: !!,RASTRSK
  • Line Location: PRT1+90
Function Call: WRITE
  • Prompt: @RAFFLF
  • Condition for execution: $Y>0
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: !,?((80-$L(RARTMES))/2),RARTMES,!
  • Line Location: HD1+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
70.03 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call