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
Print Page as PDF
Routine: RAPRINT1

Package: Radiology Nuclear Medicine

Routine: RAPRINT1


Information

RAPRINT1 ;HISC/FPT-Abnormal Exam Report (cont.) ; Sep 11, 2023@14:32:32

Source Information

Source file <RAPRINT1.m>

Entry Points

Name Comments DBIA/ICR reference
DIV ; walk through tmp global, start with 'division'
IT ; imaging type
DXNUM ; diagnostic code number
PATNAME ; patient name
PATIEN ; patient internal entry number
EXAMDATE ; exam date
CASENUM ; case number
DECIDE ; decide which entries to print
PRINT ; print entries
PQ
EXPRESS ;output expression text
HDR ; header
HANG ; hold screen
SDX ; secondary dx ien and date

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?22,"Division: ",RADIVNME
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !?18,"Imaging Type: ",RAITNAME
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !!,"Diagnostic Code: ",RADIAG
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"----------------"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!,"Diagnostic Code: ",RADIAG
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"----------------"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: $S($P(RAEXAM(0),U,20):"*",1:"")
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: $S(RASDXDTE]"":"*",1:"")
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: "(+)"
  • Condition for execution: RAFIRST=1
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: "(.)"
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: ?4,"Case #",RACNDSP,?27,$E(RAPROC,1,34),?62,RAEXDT
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: ?6,"Case #",RACASE,?20,$E(RAPROC,1,39),?60,RAEXDT
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: ?32,"(",RAXPRESS,")"
  • Line Location: EXPRESS+5
Function Call: WRITE
  • Prompt: !?20,"<<<< ABNORMAL DIAGNOSTIC REPORT >>>>",?58,"Print Date: ",PDATE
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?13,"(P=Primary Dx, S=Secondary Dx / '*' represents reprint)"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?(80-$L($G(RATRPTG))\2),$G(RATRPTG)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Patient Name",?42,"Ward/Clinic",?58,"Requesting Physician"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?27,"Procedure",?60,"Exam Date",!,QQ
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?20,"Procedure",?60,"Exam Date",!,QQ
  • Line Location: HDR+7
Info |  Source |  Entry Points |  Interaction Calls