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 |  FileMan Files Accessed Via FileMan Db Call |  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.) ;4/5/96 10:49

Source Information

Source file <RAPRINT1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Radiology Nuclear Medicine 3 ($$SSANVAL,$$USESSAN)^RAHLRU1  $$SSN^RAUTL  STOPCHK^RAUTL9  
VA Fileman 2 $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RAPRINT  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ EXPRESS+2
^DIR HANG+2
$$SSANVAL^RAHLRU1 PRINT+13
$$USESSAN^RAHLRU1 PRINT+34, PRINT+35, HDR+6, HDR+7
$$SSN^RAUTL PRINT+9
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: !?15,"Diagnostic Code: ",RADIAG
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !?15,"----------------"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !?15,"Diagnostic Code: ",RADIAG
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !?15,"----------------"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: $S($P(RAEXAM(0),U,20):"*",1:"")
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: $S(RASDXDTE]"":"*",1:"")
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: "(+)"
  • Condition for execution: RAFIRST=1
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: "(.)"
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: ?4,"Case #",RACNDSP,?27,$E(RAPROC,1,34),?62,RAEXDT
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: ?6,"Case #",RACASE,?20,$E(RAPROC,1,39),?60,RAEXDT
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: ?32,"(",RAXPRESS,")"
  • Line Location: EXPRESS+3
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LEX(757.01 - [#757.01] GET1^DIQ

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^(0 PRINT+9, PRINT+16, PRINT+17, PRINT+19, PRINT+21, PRINT+36*, PRINT+37*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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