RAHLO3 ;HIRMFO/GJC-Process data set from the bridge program ;11/18/97 12:13
Source file <RAHLO3.m>
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.
|
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 |
---|---|
^("RA" | VERCHK+22, VERCHK+26 |
^("RAESIG" | ESIG+2 |
^("RARESIDENT" | RPTSTAT+12 |
^("RAVERF" | ESIG+2 |
>> | 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~ |