ISIJNOTE ; ISI/JHC - ISIRAD Notes functions ; 10/17/2022
Source file <ISIJNOTE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ERR | ;
|
|
| NOTE(MAGGRY,PARAMS,DATA) | ;
; * this ep also called directly as subroutine by magjrpt for req/rpt display ; PARAMS: TXID ^ RADFN ^ RADTI ^ RACNI ^ RARPT ^ FLAG ; TXID: Req'd--action to take ; FLAG: Optional--use to flag RAD-Dept-only note ; DATA--(required for create note) input array containing Notes text ; Pattern for DATA input & reply is: ; *NOTES Start for NOTES ; (1:N lines of text follow) ; *NOTES_END end for note |
|
| NOTEZ | ;
|
|
| STATUS(REPLY,RADFN,RADTI,RACNI) | ; Return status information for inserting at top of Requisition
; EP called by MAGJRPT |
|
| EXAMID(RADFN,RADTI,RACNI) | ; calculate examid; printsets share a single examid
|
|
| EXAMIEN(EXAMID) | ; Return ExamIEN for input examid
|
|
| NOTEUPD(RET,EXAMIEN,DATA,RADFN,RADTI,RACNI) | ; Update Note
|
|
| CHKTXT(NOTETXT,DATA) | ; check for any notes in input data
; NOTETXT: return extracted text, if any |
|
| ADDNOTES(RET,RETNAM,EXAMIEN,NOTIEN,NOTETXT) | ; format notes text data for fileman DBS calls
; re RETNAM: the fileman update call for a WP field needs the ; name of the input array at the node defined below |
|
| NEWEXAM(EXAMID,RADFN,RADTI,RACNI) | ; Create new Exam entry in Notes file; only called if not yet defined
|
|
| ACNINDX(EXAMIEN,RADFN,RADTI,RACNI,KILL) | ; update C index by accession number
; --> if a printset, index for all pset members ; * * This also callable by fileman Index creation * * ; KILL--only set by fileman indexer code if deleting entry |
|
| DAYCASE(RADFN,RADTI,RACNI) | ; return daycase
|
|
| NEWNOTE(EXAMIEN,TIMESTMP,DUZ,FLAG) | ; Create new Note entry in file; only called if not yet defined
|
|
| NOTEGET(REPLY,RET,EXAMIEN,STATUS,RADFN,RADTI,RACNI) | ; return Notes details
; STATUS-optional; if true, return status only, no details ; package mult notes into one array, formatted per each note... ; filter for flagged RAD-Only notes--only rad personnel may view |
|
| RADATA(RADFN,RADTI,RACNI) | ; get rad data
|
|
| STRIP(X) | ; remove up-carets & leading/trailing spaces
|
|
| END |
| RPC Name | Call Tags |
|---|---|
| ISIJ NOTES | NOTE |
