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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Radiology Nuclear Medicine 3 ($$SSANVAL,$$USESSAN)^RAHLRU1  $$SSN^RAUTL  STOPCHK^RAUTL9  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RAPRINT  

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

External References

Name Field # of Occurrence
^DIR HANG+2
$$SSANVAL^RAHLRU1 PRINT+14
$$USESSAN^RAHLRU1 PRINT+35, PRINT+36, HDR+6, HDR+7
$$SSN^RAUTL PRINT+10
STOPCHK^RAUTL9 HDR+9

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
Routine Call
  • DIR
  • Line Location:
    • HANG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+12
^DIC(42 - [#42] PRINT+17
^DPT - [#2] PRINT+10
^RA(78.3 - [#78.3] DECIDE+4, EXPRESS+4
^RADPT - [#70] CASENUM+4, CASENUM+5, DECIDE+1, DECIDE+9, DECIDE+10, DECIDE+11, PRINT+37, PRINT+38, SDX+1, SDX+2
, SDX+4
^RAMIS(71 - [#71] PRINT+20
^SC - [#44] PRINT+18
^TMP($J DIV+1, DIV+4, IT+2, DXNUM+3, PATNAME+2, PATIEN+2, EXAMDATE+2, CASENUM+3, CASENUM+7, PRINT+39*
^VA(200 - [#200] PRINT+22

Label References

Name Line Occurrences
CASENUM EXAMDATE+2
DECIDE CASENUM+8
DXNUM IT+2
EXAMDATE PATIEN+2
EXPRESS PRINT+8, PRINT+9
HANG PRINT+1, PRINT+4
HDR PRINT+1, PRINT+4
IT DIV+4
PATIEN PATNAME+2
PATNAME DXNUM+3
PQ PRINT+23
PRINT DECIDE+6, DECIDE+8, DECIDE+12
SDX PRINT+23

Naked Globals

Name Field # of Occurrence
^(0 PRINT+10, PRINT+17, PRINT+18, PRINT+20, PRINT+22, PRINT+37*, PRINT+38*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT PRINT+39*
DIR HANG+1!, HANG+2!
DIR(0 HANG+2*
DIROUT HANG+1!
DIRUT HANG+1!, HANG+3
DT PRINT+37, PRINT+38
DTOUT HANG+1!
DUOUT HANG+1!
>> I DXNUM+2*, DXNUM+3*, PATNAME+2, PATIEN+2, EXAMDATE+2, CASENUM+3, CASENUM+7, DECIDE+4, DECIDE+5, DECIDE+10
, PRINT+8, PRINT+9, PRINT+33, PQ, EXPRESS+4, SDX+2
>> I1("DIV" PRINT+2*, PRINT+4*, HDR+8*
>> I1("DX" PRINT+8, PRINT+9, PRINT+33, PQ*
>> I1("IT" PRINT+3*, PRINT+4*, HDR+8*
IOF HDR+1
IOSL PRINT+1
IOST HANG+2
>> J PATIEN+1*, PATIEN+2*, EXAMDATE+2, CASENUM+3, CASENUM+4, CASENUM+5, CASENUM+7, CASENUM+9, DECIDE+1, DECIDE+3
, DECIDE+9, DECIDE+10, DECIDE+11, PRINT+10, PRINT+37, PRINT+38, SDX+1, SDX+2, SDX+4
>> K EXAMDATE+1*, EXAMDATE+2*, CASENUM+3, CASENUM+4, CASENUM+5, CASENUM+7, CASENUM+9, DECIDE+1, DECIDE+3, DECIDE+9
, DECIDE+10, DECIDE+11, PRINT+12, PRINT+14, PRINT+37, PRINT+38, SDX+1, SDX+2, SDX+4
>> L CASENUM+6*, CASENUM+7*, CASENUM+9, DECIDE+1, DECIDE+3, DECIDE+9, DECIDE+10, DECIDE+11, PRINT+14, PRINT+37
, PRINT+38, SDX+1, SDX+2, SDX+4
L1 DIV+2~, CASENUM+3*, CASENUM+4, CASENUM+5
>> PDATE HDR+2
>> QQ HDR+6, HDR+7
>> RACASE PRINT+13*, PRINT+15, PRINT+36
RACNDSP PRINT+14~, PRINT+15*, PRINT+35
RACURR DIV+2~, DECIDE+3*, PRINT+25, PRINT+33
>> RADFN PRINT+10*, PRINT+14
>> RADIAG DECIDE+4*, PRINT+8, PRINT+9
>> RADIVNME DIV+3*, DIV+4*, IT+2, DXNUM+3, PATNAME+2, PATIEN+2, EXAMDATE+2, CASENUM+3, CASENUM+7, PRINT+2
, PRINT+4, PRINT+5, PRINT+39
RADXCODE DECIDE+5*, DECIDE+7, DECIDE+8, PRINT+23!, PRINT+27, PRINT+28, PRINT+29, PRINT+37, PRINT+38, PQ+1!
>> RAEXAM(0 DECIDE+1*, DECIDE+2, DECIDE+5, DECIDE+7, DECIDE+8, PRINT+13, PRINT+16, PRINT+18, PRINT+19, PRINT+21
, PRINT+27
>> RAEXDT PRINT+12*, PRINT+35, PRINT+36
RAFIRST DIV+2~, CASENUM+1*, CASENUM+4*, CASENUM+5*, CASENUM+8*, DECIDE+2, PRINT+24, PRINT+34
>> RAITNAME IT+1*, IT+2*, DXNUM+3, PATNAME+2, PATIEN+2, EXAMDATE+2, CASENUM+3, CASENUM+7, PRINT+3, PRINT+4
, PRINT+6, PRINT+39
>> RAMD PRINT+21*, PRINT+22*, PRINT+29
>> RAOUT DIV+4, IT+2, DXNUM+3, PATNAME+2, PATIEN+2, EXAMDATE+2, CASENUM+7, PRINT+1, PRINT+4, HDR+9*
, HANG+3*
>> RAPAT PRINT+10*, PRINT+11*, PRINT+29
>> RAPATNME PATNAME+1*, PATNAME+2*, PATIEN+2, EXAMDATE+2, CASENUM+3, CASENUM+7
RAPREV DIV+2~, DXNUM+1*, CASENUM+9*, PRINT+25, PRINT+33
>> RAPROC PRINT+19*, PRINT+20*, PRINT+35, PRINT+36
RAPRTSET DIV+2~, CASENUM+1*, CASENUM+8*, DECIDE+2*, PRINT+24, PRINT+33, PRINT+34
RASAME DIV+2~, CASENUM+2*
RASDXDTE DECIDE+11*, DECIDE+12, PRINT+23!, PRINT+28, PQ+1!, SDX+4*
RASDXIEN DECIDE+10*, DECIDE+11, PRINT+23!, PRINT+38, PQ+1!, SDX+2*, SDX+3, SDX+4
RASSAN PRINT+14~*, PRINT+15
>> RASSN PRINT+10*, PRINT+29
>> RASW DECIDE+6
>> RATRPTG HDR+4
>> RAWARD PRINT+16*, PRINT+17*, PRINT+18*, PRINT+29
RAXPRESS EXPRESS+1~, EXPRESS+4*, EXPRESS+5
U CASENUM+4, CASENUM+9, DECIDE+2, DECIDE+3, DECIDE+4, DECIDE+5, DECIDE+7, DECIDE+8, DECIDE+11, PRINT+11
, PRINT+13, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+27, PRINT+37
, PRINT+38, EXPRESS+4, SDX+4
>> Y PRINT+12*
>> ZTQUEUED HDR+9
>> ZTSTOP HDR+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All