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

Package: Radiology Nuclear Medicine

Routine: RAUTL9


Information

RAUTL9 ;HISC/FPT-Utility Routines ;4/9/97 10:08

Source Information

Source file <RAUTL9.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; allow lower & uppercase response to REPORT STATUS field
; called from [RA REPORT EDIT] & [RA VERIFY REPORT ONLY]
; " " routine UNVER+2^RARTE1
EN2 ; residents enter report status to pre-verify
; called from input templates [RA PRE-VERIFY REPORT EDIT] and [RA PRE-
; VERIFY REPORT ONLY]
EN3 ; residents pre-verify a report
EN4 ; re-display report text question
EXIST ; Checks if word processing data exists called from [RA REPORT EDIT]
; and [RA PRE-VERIFY REPORT EDIT] templates.
CHRSTOR ; Restores original data to the Clinical History field in the
; Rad/Nuc Med Reports File. Global: ^RARPT( File #: 74
; Set ^RARPT('DA',"H") array to value in ^TMP($J,"RA Clin Hist")
CHSAVE ; Checks if word processing data exists called from [RA REPORT EDIT]
; and [RA PRE-VERIFY REPORT EDIT] templates. For the 'Clinical History'
; field.
; Save off existing text in a ^TMP global.
CHPRINT ; Prints text from the 'Clinical History' field in file 70
; from [RA REPORT EDIT] template. Added with patch RA*5*27 - bnt
OUTTEXT(X,DIWF,DIWL,DIWR,RAFMAT,RALFF,RATFF) ; Output generic text using DIWP
STOPCHK ; does user want to stop task?
UPDTPNT(RAIEN) ; Remove the possibility of broken pointers when a report
; is deleted from the Rad/Nuc Med Reports file (74). This checks the
; following files: Report Batches file (74.2) and the
; Report Distribution file (74.4)
IARU ; Imaging Location allows released/unverified

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"You do not have the appropriate privileges to verify a report."
  • Line Location: EN1+20
Function Call: WRITE
  • Prompt: !
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN3+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN4+3
Function Call: WRITE
  • Prompt: " ?? Invalid "
  • Line Location: EXIST+20
Function Call: WRITE
  • Prompt: $S(RANODE="H":"Clinical History",RANODE="R":"Report",1:"Impression")
  • Line Location: EXIST+21
Function Call: WRITE
  • Prompt: " text.",$C(7)
  • Line Location: EXIST+22
Function Call: WRITE
  • Prompt: @RALFMAT,Y(0)
  • Line Location: OUTTEXT+13
Function Call: WRITE
  • Prompt: !?10,"*** OUTPUT STOPPED AT USER'S REQUEST ***"
  • Line Location: STOPCHK+3
Function Call: WRITE
  • Prompt: !?10,"Option Name: ",$S($P($G(XQY0),"^")]"":$P($G(XQY0),"^"),1:"Unknown")
  • Line Location: STOPCHK+4
Function Call: WRITE
  • Prompt: !?10,"Option Menu Text: ",$S($P($G(XQY0),"^",2)]"":$P($G(XQY0),"^",2),1:"Unknown")
  • Line Location: STOPCHK+5
Function Call: WRITE
  • Prompt: !?10,"Task #: ",$S(+$G(ZTSK)>0:+$G(ZTSK),1:"Unknown")
  • Line Location: STOPCHK+6

FileMan Files Accessed Via FileMan Db Call

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