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 |  Local Variables  | All
Print Page as PDF
Routine: RAPRINT

Package: Radiology Nuclear Medicine

Routine: RAPRINT


Information

RAPRINT ;HISC/FPT AISC/DMK - Abnormal Exam Report ; Mar 13, 2024@09:00:52

Source Information

Source file <RAPRINT.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Radiology Nuclear Medicine 7 KILL^RADLY1  (DIV,HANG,HDR)^RAPRINT1  SETVARS^RAPSET1  EN1^RASELCT  (CLOSE,DATE,ZIS)^RAUTL  ($$SETUPDI,SELDIV,SELIMG)^RAUTL7  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 RA ABNORMAL  

Entry Points

Name Comments DBIA/ICR reference
START ;
END ;
PAT1
BTG ; build tmp global
NEGRPT ; negative reports
OMADX(RAAB) ; One-Many-All selector for Dx codes.
; Input : RAAB=0 - doesn't need 'Print On Abnormal Rpts' set to 'yes'
; RAAB=1 - must have 'Print On Abnormal Rpts' set to 'yes'

External References

Name Field # of Occurrence
^DIR RAPRINT+40, RAPRINT+50
KILL^RADLY1 RAPRINT+15, RAPRINT+17
DIV^RAPRINT1 START+5
HANG^RAPRINT1 NEGRPT+5
HDR^RAPRINT1 START+3, NEGRPT+6
SETVARS^RAPSET1 RAPRINT+9
EN1^RASELCT OMADX+7
CLOSE^RAUTL END+5
DATE^RAUTL RAPRINT+54
ZIS^RAUTL RAPRINT+55
$$SETUPDI^RAUTL7 RAPRINT+12
SELDIV^RAUTL7 RAPRINT+14
SELIMG^RAUTL7 RAPRINT+16
STOPCHK^RAUTL9 BTG+1, NEGRPT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?10,"ABNORMAL EXAM REPORT",!
  • Line Location: RAPRINT+10
Function Call: WRITE
  • Prompt: !!?3,"No Diagnostic Codes selected, try again later."
  • Line Location: RAPRINT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: RAPRINT+48
Function Call: WRITE
  • Prompt: !
  • Line Location: RAPRINT+55
Function Call: WRITE
  • Prompt: !
  • Line Location: OMADX+7
Routine Call
  • DIR
  • Line Location:
    • RAPRINT+40
    • RAPRINT+50

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] BTG+3
^DPT - [#2] BTG+11
^RA(78.3 - [#78.3] START+4
^RA(79.2 - [#79.2] BTG+6
^RADPT - [#70] PAT1+2, PAT1+3, BTG+2
^RADPT("AD" START+4, PAT1+1
^RARPT - [#74] PAT1+4
^TMP($J RAPRINT+13!, RAPRINT+15, RAPRINT+17, RAPRINT+19, RAPRINT+21*, RAPRINT+24!, RAPRINT+25, START+4, END+1!, BTG+4
, BTG+7, BTG+10, BTG+12*, NEGRPT+4

Label References

Name Line Occurrences
BTG PAT1+5, PAT1+8
END RAPRINT+12, RAPRINT+15, RAPRINT+17, RAPRINT+25, RAPRINT+41, RAPRINT+51, RAPRINT+54, RAPRINT+55, START+3
NEGRPT START+5
OMADX RAPRINT+24
PAT1 START+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDATE RAPRINT+54*, START+4, END+1!
CNT START+2*, END+1!, NEGRPT+5, NEGRPT+6, NEGRPT+11*
DIR RAPRINT+28!, RAPRINT+49!, RAPRINT+50!, END+1!
DIR("?" RAPRINT+32*, RAPRINT+33*, RAPRINT+34*, RAPRINT+35*, RAPRINT+36*, RAPRINT+37*, RAPRINT+38*, RAPRINT+50*
DIR("A" RAPRINT+29*, RAPRINT+50*
DIR("B" RAPRINT+31*, RAPRINT+39*, RAPRINT+50*
DIR(0 RAPRINT+30*, RAPRINT+50*
DIROUT RAPRINT+28!, RAPRINT+49!, END+1!
DIRUT RAPRINT+28!, RAPRINT+41, RAPRINT+42, RAPRINT+49!, RAPRINT+51, END+1!
DT START+2
DTOUT RAPRINT+28!, RAPRINT+49!, END+1!
DUOUT RAPRINT+28!, RAPRINT+49!, END+1!
DUZ RAPRINT+9, RAPRINT+18, RAPRINT+20
ENDDATE RAPRINT+54*, START+2, END+1!
I START+2!, START+4*, END+1!, PAT1+1, BTG+12
I1 END+1!
I1("DIV" START+2*
I1("DX" START+2*
I1("IT" START+2*
IO START+2
J START+4*, END+1!, PAT1+1, PAT1+2, PAT1+3, BTG+2, BTG+11, BTG+12
K START+4*, END+1!, PAT1+1, PAT1+2, PAT1+3, BTG+2, BTG+12
L END+1!, PAT1+1*, PAT1+2, PAT1+3, BTG+12
PDATE START+2*, END+1!
POP END+1!, END+3!
QQ START+2*, END+1!
RAAB OMADX~, OMADX+6
RACASE END+2!
RACCESS END+4!
RACCESS( RAPRINT+9, RAPRINT+18, RAPRINT+20
RADFN END+2!
RADIAG END+2!
RADIC END+2!, OMADX+3~, OMADX+4*, OMADX+7
RADIC("A" OMADX+5*
RADIC("B" OMADX+5*
RADIC("S" OMADX+6*
RADIC(0 OMADX+4*
RADIVNME END+2!, BTG+3*, BTG+4, BTG+5*, BTG+10, BTG+12, NEGRPT+3*, NEGRPT+4*, NEGRPT+7
RADIVNUM END+2!, BTG+3*
RADXCODE END+2!
RAEND START+2*, START+4, END+2!
RAEXAM END+2!
RAEXDT END+2!
RAITNAME END+2!, BTG+6*, BTG+7, BTG+8*, BTG+10, BTG+12, NEGRPT+4*, NEGRPT+7
RAITNUM END+2!, BTG+6*
RAMD END+2!
RAMES END+3!
RAOUT START+2*, START+3, START+4, END+2!, PAT1+1, BTG+1*, NEGRPT+1, NEGRPT+2*, NEGRPT+3*, NEGRPT+4
, NEGRPT+5, NEGRPT+6
RAPAT END+2!
RAPATNME END+2!, BTG+11*, BTG+12
RAPOP RAPRINT+54, RAPRINT+55, END+2!
RAPROC END+2!
RAPSTX RAPRINT+9*, END+4!
RAQUIT RAPRINT+15, RAPRINT+17, END+2!, OMADX+3~
>> RARE(0 BTG+2*, BTG+3, BTG+6, BTG+9!
RASDXDTE END+2!
RASDXIEN END+2!
RASSN END+2!
RASW RAPRINT+52*, END+2!
RATMP PAT1~, PAT1+3*, PAT1+4*, PAT1+5, PAT1+6, PAT1+7
RATRPTG RAPRINT+44*, END+2!
RATYPE RAPRINT+46*, END+2!, PAT1+6, PAT1+7
RAUTIL END+2!, OMADX+3~, OMADX+4*, OMADX+7
RAWARD END+2!
RAXIT RAPRINT+12*, END+2!
U PAT1+3, PAT1+4, BTG+3, BTG+6, BTG+11
X RAPRINT+18*, RAPRINT+19, RAPRINT+20, RAPRINT+21, END+2!
Y RAPRINT+19*, RAPRINT+20*, RAPRINT+21, RAPRINT+44, RAPRINT+46, RAPRINT+52, END+2!
ZTDESC END+3!
>> ZTQUEUED START+1, BTG+1, NEGRPT+2
>> ZTREQ START+1*
ZTRTN RAPRINT+52*, END+3!
ZTSAVE END+3!
ZTSAVE("BEGDATE" RAPRINT+52*
ZTSAVE("ENDDATE" RAPRINT+52*
ZTSAVE("RASW" RAPRINT+52*
ZTSAVE("RAT*" RAPRINT+52*
ZTSAVE("^TMP( $J, ""RA D-TYPE"", " , RAPRINT+52*, $J, ""RA DX CODES"", " , RAPRINT+53*, $J, ""RA I-TYPE""
, " , RAPRINT+52*
ZTSAVE("^TMP($J,""RADLY""," RAPRINT+52*
>> ZTSTOP BTG+1, NEGRPT+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All