Routine: RAHLO3

Information

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

Source file <RAHLO3.m>

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

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

Name	Comments	DBIA/ICR reference
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
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.
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.
ESIG	; Added for COTS E-Sig capability
RPTSTAT	; Determine the status to set this report to.

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

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

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

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~