RAHLO3 ;HIRMFO/GJC-Process data set from the bridge program ;11/18/97 12:13
Source file <RAHLO3.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 4 | RAHLO RAHLTCPB RAHLTCPX RARIC1 |
| 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
|
| 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 |
| >> | 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~ |
