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: RARTE1

Package: Radiology Nuclear Medicine

Routine: RARTE1


Information

RARTE1 ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Edit/Delete a Report ; Aug 25, 2020@15:11:03

Source Information

Source file <RARTE1.m>

Entry Points

Name Comments DBIA/ICR reference
DEL
ASKDEL ; ask if deletion is appropriate
AD2
END
UNVER(RAXRPT) ; unverify a report
; Input: if RAXRPT>0 then we know the report we wish to delete
; this requires no user interaction.
; RAXRPT=0 user is prompted for the report they wish to
; delete (interactive)
Q ; Kill and quit
STD
STD1
ASKSEL
ASKADD
EDTRPT ; Called from 'RARTE4' and 'RARTVER'.
COPYDX ;if we have a printset copy over the Dx code data (both primary & secondary)
PACS
ASKBTCH
ASKPRT
DICW ; Build DIC("W") string
IMPRPT(Y) ; Does the report we are currently editing have either Report
; or Impression Text?
; Input : 'Y' - the ien of the report being edited
; Output: '1' - either impression or report text exists, '0' - neither
; report or impression text exists.
DXLOC ;lock the correct RAD/NUC MED PATIENT sub-file
DXULOC ;unlock the correct RAD/NUC MED PATIENT sub-file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Cannot delete a report that is associated with an image."
  • Line Location: DEL+8
Function Call: WRITE
  • Prompt: !?5,"Contact your Imaging Coordinator for further assistance.",!
  • Line Location: DEL+9
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to delete this report, or 'NO' not to."
  • Line Location: ASKDEL+6
Function Call: WRITE
  • Prompt: !?10,"...report deletion complete."
  • Line Location: AD2+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKSEL+1
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to select the '",$P(Y,"^",2),"' standard report, or 'NO' not to."
  • Line Location: ASKSEL+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want to add another standard to this report? No// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKADD+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to add another standard to this report, or 'NO' not to."
  • Line Location: ASKADD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKADD+1
Function Call: WRITE
  • Prompt: !,$C(7),"You must enter a verifying Interpreting Physician to 'VERIFY' a report.",!?3,"...report status will now be changed to 'DRAFT'."
  • Line Location: EDTRPT+4
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want to batch print reports? Yes// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKBTCH+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to batch print reports, or 'NO' not to."
  • Line Location: ASKBTCH+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want to print batch now? No// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASKPRT+0
Function Call: WRITE
  • Prompt: !!?3,"Enter 'YES' to print this batch, or 'NO' not to."
  • Line Location: ASKPRT+0

FileMan Files Accessed Via FileMan Db Call

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