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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RARTE5

Package: Radiology Nuclear Medicine

Routine: RARTE5


Information

RARTE5 ;HISC/SWM AISC/MJK,RMO - Enter/Edit Outside Reports ; Mar 01, 2023@12:04:48

Source Information

Source file <RARTE5.m>

Entry Points

Name Comments DBIA/ICR reference
START
CONTIN ; continue
P124 ;fix for RA5P124
NEW
NEW1 ;
LOCK ;Try to lock next avail IEN, if locked - fail, if used - increment again
IN ;edit existing rpt, so lock rpt fr the 1st time
IN0 ;skip to here if rpt created in this session and already locked
; Flag first time EF report is made if piece 18 has no data yet
UNCASE ;
PRT
PRT1
Q1
INCRPT ; Kill extraneous variables to avoid collisions.
; Incomplete report information, select another case #.
CCAN(IEN74) ;Check canned report for Outside Reporting
; adapted from EN3^RAUTL15
; outputs: 0 if report is kept
; 1 if report is deleted due to no canned text entered
ERPT ; Edit report text, impression, and enter/edit diagnostic codes
DIAG ; Diagnostic codes
; (code taken from routine RARTE1)
PACS ; do not broadcast ORU message at this point
HLXMSG ; set up RASSSX() of VR subscribers to exclude from ORM msg broadcast
DELDX ; del any Prim. and Sec. DXs from standalone case
DELDXPRT ;del any Prim. and Sec. DXs from all cases in printset
REGCR() ;RA184/KLM - Check credit method of exam's registered location
BROAD(RAY) ;A strict check if the procedure associated with this report
INTRO ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,$P($T(INTRO+I),";;",2)
  • Line Location: RARTE5+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RARTE5+12
Function Call: WRITE
  • Prompt: !,"Your user account is missing a Radiology classification.",!
  • Line Location: RARTE5+20
Function Call: WRITE
  • Prompt: $C(7),!!,"The STATUS for this case is CANCELLED. You may not enter a report.",!!
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !!,$C(7),"** WARNING, this case is not registered in an OUTSIDE imaging location. **",!
  • Line Location: CONTIN+4
Function Call: WRITE
  • Prompt: !?3,$C(7),"Only Electronically Filed reports can be selected!",!
  • Line Location: CONTIN+11
Function Call: WRITE
  • Prompt: !!,$C(7),"Other cases of this cancelled case ",RACN,"'s print set are entered in a report already",!!,"You may NOT create a new report for this cancelled case,",!,"but you may include this cancelled case in the existing report."
  • Line Location: CONTIN+20
Function Call: WRITE
  • Prompt: !!,"Do you want to include this cancelled case in the same report",!,"as the others in the print set ?"
  • Line Location: CONTIN+21
Function Call: WRITE
  • Prompt: !!?10,$C(7),"** This case belongs to a printset, and someone else is",?68,"**",!?10,"** editing another case from this printset, or entering",?68,"**"
  • Line Location: NEW+2
Function Call: WRITE
  • Prompt: !?10,"** a report for this printset, so you may not enter a",?68,"**",!?10,"** new report.",?68,"**"
  • Line Location: NEW+3
Function Call: WRITE
  • Prompt: !?3,"...report not entered for this exam...",!?10,"...will now initialize report entry..."
  • Line Location: NEW1+3
Function Call: WRITE
  • Prompt: !,RAI
  • Line Location: LOCK+14
Function Call: WRITE
  • Prompt: !!?5,"Report status is stored as ""Electronically Filed""."
  • Line Location: UNCASE+13
Function Call: WRITE
  • Prompt: !!?5,"Exam status not recalculated due to missing BI-RADS code."
  • Line Location: PRT+16
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to print this report? No// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: PRT1+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to print this report, or 'NO' not to."
  • Line Location: PRT1+2
Function Call: WRITE
  • Prompt: !!?5,RATXT,!?8,"Required: REPORT TEXT and/or IMPRESSION TEXT",!?5,RATXT
  • Line Location: ERPT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RA(72 - [#72] GET1^DIQ
^RARPT - [#74] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call