RARPTUT ;HISC/GJC - rad/nuc med report utilities ;04 Dec 2017 9:26 AM
Source file <RARPTUT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REL(RARPT,RAERR) | ;NTP II - mark a report as 'X' (Deleted) or null
|
|
| CHKSTS | ;In order to 'mark as deleted', NTP reports those reports must have a
|
|
| IMG | ;Can't 'mark as deleted' a report being held if images have been
|
|
| REGEX | ;lock at the REGISTERED EXAM (#70.02) record associated with this report
|
|
| RPTXT | ;delete the REPORT TEXT (70.03; #17) field value for a exam liked to
|
|
| PIS | ;delete the PRIMARY INTERPRETING STAFF (70.03; #15) field value
|
|
| BATCH | ;if the report does not have associated images check the REPORT BATCHES
|
|
| RSTATUS | ;1) set the REPORT STATUS for reports absent of images to 'X'
; (Deleted) ; 2) set the REPORT STATUS for reports w/images present to null ; (mimics 'images collected') |
|
| IMPRPTXT | ;Delete the IMPRESSION TEXT (#300) and REPORT TEXT (#200)
|
|
| ACTIVLOG | ;update the activity log. If an error occurs here inform the mail group
|
|
| ;Whether the event was a success of failure update the users in the RAD
|
||
| RA742(RARPT) | ;delete a report (without images) from the REPORT BATCHES (#74.2)
|
|
| ACTLOG() | ;update the Activity Log (#74.01) whenever a report is
|
|
| ACTLOGX(RAIEN) | ;update the lower level sub-files...
|
|
| MM(RAY,RAX) | ;call MailMan; let the members of the mail group know
|
|
| GETEXM() | ;return primary Resident, primary Dx Code & primary Staff data (if any) #70.03
|
|
| SECRES | ;return secondary Resident data (if any) #70.09 place in #74.19
|
|
| SECDX | ;return secondary Dx Code data (if any) #70.14 place in #74.16
|
|
| SECSTF | ;return secondary Staff data (if any) #70.11 place in #74.18
|
|
| EN | ;entry point called (from RAHLO) to trigger the logic that updates the
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | FIND1^DIC |
| ^RARPT - [#74] | GET1^DIQ, WP^DIE |
