Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: RARTE3

Package: Radiology Nuclear Medicine

Routine: RARTE3


Information

RARTE3 ;HISC/GJC-Create a skeletal report, store in Error Reports multiple ;2/4/97 09:39

Source Information

Source file <RARTE3.m>

Entry Points

Name Comments DBIA/ICR reference
EN1(RADA) ; Create the 'Error Reports' sub-record.
; Input: 'RADA': IEN of the report in file 74.
; Create the record, enter when the report was unverified.
ZERO ; setup the ^TMP($J,"RA AUTOE" global with a zero node
CHK17 ; called from routine RARTE1
; check 17th piece of exam with same pat/dttm/longcn
; values of RAOK:
; 1 = unknown case no. or unknown case ien, CAN'T DELETE REPORT
; 2 = exm doesn't point to this rpt, CAN DELETE BUT NOT UPGRADE EXM STAT
; 3 = all okay
WARN1
WARN2
WARNQ
PRESS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"** Cannot determine internal or external case number. **"
  • Line Location: WARN1+0
Function Call: WRITE
  • Prompt: !!?3,"** You may NOT delete this report. **"
  • Line Location: WARN1+1
Function Call: WRITE
  • Prompt: !!?3,"** This report refers to an exam that isn't pointing back to this report. **"
  • Line Location: WARN2+0
Function Call: WRITE
  • Prompt: !!?3,"** You may delete this report if it is indeed the report you don't want. **"
  • Line Location: WARNQ+0
Function Call: WRITE
  • Prompt: !?3,"** Or call IRM for help. **"
  • Line Location: WARNQ+1
Info |  Source |  Entry Points |  Interaction Calls