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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RAHLO3

Package: Radiology Nuclear Medicine

Routine: RAHLO3


Information

RAHLO3 ;HIRMFO/GJC-Process data set from the bridge program ;11/18/97 12:13

Source Information

Source file <RAHLO3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$DT^XLFDT  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
Radiology Nuclear Medicine 4 RAHLO  RAHLTCPB  RAHLTCPX  RARIC1  

Entry Points

Name Comments DBIA/ICR reference
RPTSTAT ; Determine the status to set this report to.
TEXT(X) ; Check if the Impression Text and the Report Text contain
; valid characters.
; Input : X = "I" if Impr Text is being checked, "R" if Rpt Text
; Output: 0=invalid, 1=valid
VERCHK ; Check if our provider can verify reports.
; Examine the following four (4) conditions if $D(RAESIG)
; 1) Does this person have a resident or staff classification?
; 2) If a resident, does the division parameter allow resident
; verification?
; 3) Does this person hold the "RA VERIFY" key?
; 4) Is this person an activate Rad/Nuc Med user?
; 5) Can this person verify reports without staff review?
; If 'No' to any of the above questions, kill RAESIG & set the variable
; RAERR to the appropriate error message.
VFIER ; Check if the RAVERF string is a partial match to an entry in file
; 200. If if is, check to see that is a partial match to only ONE
; active provider entry in file 200.
ESIG ; Added for COTS E-Sig capability

External References

Name Field # of Occurrence
$$GET1^DIQ ESIG+10
$$DT^XLFDT VERCHK+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79 - [#79] ESIG+9
^RA(79.1 - [#79.1] RPTSTAT+9, RPTSTAT+12
^RADPT - [#70] ESIG+5
^TMP( ESIG+2, ESIG+3, ESIG+4, ESIG+11*
^TMP("RARPT-REC" RPTSTAT+3, RPTSTAT+12, TEXT+5, TEXT+6
^VA(200 - [#200] VERCHK+10, VERCHK+14, VERCHK+22, VERCHK+26, VFIER+7, VFIER+11, VFIER+12, VFIER+23
^XUSEC("RA VERIFY" VERCHK+18

Naked Globals

Name Field # of Occurrence
^("RA" VERCHK+22, VERCHK+26
^("RAESIG" ESIG+2
^("RARESIDENT" RPTSTAT+12
^("RAVERF" ESIG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT TEXT+4~, TEXT+6*, TEXT+8*, TEXT+9*, TEXT+10
DATA TEXT+4~, TEXT+6*, TEXT+7, TEXT+8, TEXT+9
DT VFIER+13, VFIER+24
FLAG TEXT+4~*, TEXT+5, TEXT+7, TEXT+10*, TEXT+13
I TEXT+4~*, TEXT+5*, TEXT+6
I1 TEXT+4~
J TEXT+4~, TEXT+7*, TEXT+8, TEXT+9
>> RADFN ESIG+3*, ESIG+5
>> RADIV ESIG+5*, ESIG+6, ESIG+9
>> RADTI ESIG+4*, ESIG+5
>> RAERR VERCHK+12*, VERCHK+16*, VERCHK+20*, VERCHK+24*, VERCHK+27*, VFIER+3*, VFIER+27*, VFIER+28*, VFIER+30*
RAESIG RPTSTAT+1, VERCHK+12!, VERCHK+16!, VERCHK+20!, VERCHK+24!, VERCHK+27!, ESIG+10*, ESIG+11
>> RAMDV VERCHK+14
>> RAMLC RPTSTAT+9, RPTSTAT+12
RARPTSTS RPTSTAT+1!*, RPTSTAT+4*, RPTSTAT+6*, RPTSTAT+7*, RPTSTAT+9*, RPTSTAT+12*, RPTSTAT+14*
>> RARRR ESIG+2, ESIG+3, ESIG+4, ESIG+11
RASTAT RPTSTAT+3~*, RPTSTAT+4, RPTSTAT+5, RPTSTAT+6
>> RASUB RPTSTAT+3, RPTSTAT+12, TEXT+5, TEXT+6, ESIG+2, ESIG+3, ESIG+4, ESIG+11
>> RATELE RPTSTAT+7, VERCHK+10, VERCHK+14, VERCHK+18, VERCHK+22, VERCHK+26
RAVCNT VFIER+4~, VFIER+6*, VFIER+7, VFIER+11, VFIER+13*, VFIER+14, VFIER+24*, VFIER+25, VFIER+27, VFIER+28
>> RAVERF RPTSTAT+12, VERCHK+10, VERCHK+14, VERCHK+18, VERCHK+22, VERCHK+26, VFIER+3, VFIER+5, VFIER+6, VFIER+7
VFIER+22, VFIER+27, VFIER+28, VFIER+30*, ESIG+10
RAVIEN VFIER+4~, VFIER+6*, VFIER+10*, VFIER+11*, VFIER+12, VFIER+14, VFIER+20, VFIER+22*, VFIER+23, VFIER+25
RAVIEN( VFIER+14*, VFIER+25*
RAVIEN(1 VFIER+30
RAVLGTH VFIER+4~, VFIER+5*, VFIER+7
RAVPS VFIER+4~, VFIER+12*, VFIER+13, VFIER+23*, VFIER+24
>> RAVS1 VFIER+6*, VFIER+7*, VFIER+11
X TEXT~, TEXT+5, TEXT+6
Y TEXT+4~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All