MAGJRPT ;WIRMFO/JHC - Display Rad reports ; 10/17/2022
Source file <MAGJRPT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ORD(MAGRPTY,DATA) | ; Radiology Order Display
; RPC Call: MAGJ RADORDERDISP ; MAGRPTY holds indirect reference to returned data ; |
|
| ORDZ | ||
| CLEANUP(MAGRPTY) | ; strip extraneous lines of dashes ; ISI new subrtn
|
|
| COMMENTS(RADFN,RADTI,RACNI,MAGRPTY,DNODE,COMPLIC,MEDS,RDIOPHARM) | ; add Complications & Tech Comments to output report
; Add Medications and Radiopharmaceuticals information to output ; RADFN, RADTI, & RACNI identify exam ; MAGRPTY is indirect reference wher output lines are to be stored ; DNODE holds reference for starting node for lines of output ; COMPLIC passes in complications data reference ; MEDS passes in Medications indicator ; RDIOPHARM passes in Radiopharmaceuticals reference |
|
| PHARMAS(TITLE,NODE) | ; output lines of pharma data
|
|
| NOTEDISP(NOTES,MAGRPTY,DNODE) | ; output notes ; ISI new subrtn
|
|
| TIUNOTE(RARPT,MAGRPTY,DNODE) | ; FUT-70/IHS append Rad TIU Notes to report
; 1/2011--only works at IHS where TIU notes may exist for Radiology exams ; test for this by presence of DOCTEXT^BEHOTIU ; RARPT--exam pointer ; MAGRPTY--indirect reference to output file ; DNODE--starting node for lines of output |
|
| OPENDEV | ;
|
|
| RADRPT(MAGRPTY,DATA) | ; Display rad report; 1st must pass integrity checks
; Note: adds an additional line of output for the Report Window header ; RPC is MAGJ EXAM REPORT |
|
| RPTZ | ||
| CKINTEG(REPLY,RADFN,RADTI,RACNI,RARPT,RADATA) | ; check integrity between Exam, Report, and Image Group Headers
; This subroutine is used by other vrad programs |
|
| CK2 | ||
| ERR | ;
|
|
| END | ;
|
| RPC Name | Call Tags |
|---|---|
| MAGJ RADORDERDISP | ORD |
| MAGJ EXAM REPORT | RADRPT |
