RAHLO2 ;HIRMFO/GJC-File rpt (data from bridge program) ;10 Apr 2019 3:05 PM
Source file <RAHLO2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADENDUM | ; This functions store new lines of text at the end of the existing
|
|
| ERR(A) | ; Invalid impression/report text message.
; Input: 'A' - either "I" for impression, or "R" for report ; Output: the appropriate error message |
|
| DIAG | ; Check if the Diagnostic Codes passed are valid. Set RADX equal
; to primary Dx code pntr value. Set RASECDX(x) to the secondary ; Dx code(s) if any. |
|
| SECDX | ; Kill old sec. Dx nodes, and add the new ones into the 70.14 multiple
; called from RAHLO. Needs RADFN,RADTI & RACNI to function. |
|
| IMPTXT | ; Check if the impression text consists only of the string
; 'impression:". If 'impression:' is the only set of characters, ; (spaces are excluded) then delete the "RAIMP" node. |
| FileNo | Call Tags |
|---|---|
| ^RA(78.3 - [#78.3] | FIND1^DIC |
