Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 6 %XY^%RCR  EN^DDIOL  ^DIK  ^DIR  ^DIWP  ^DIWW  
Kernel 1 $$S^%ZTLOAD  
Radiology Nuclear Medicine 1 ENSET^RAXREF  

Caller Graph

Caller Graph Total: 51

Package Total Caller Graph
Radiology Nuclear Medicine 51 RABAR  RABTCH  RACDR  RACDR1  RACMP2  RACTVR  RACTWR  RADLQ1  
RADLQ2  RADLY  RADLY1  RADOSTIK  RAERRPT  RAFLM1  RAFLM2  RAFLM3  
RAHLEX1  RALIST  RALIST1  RALWKL1  RALWKL3  RALWKL4  RAMIS  RAMIS1  
RAORD6  RAORDP  RAPERR  RAPINFO  RAPMW2  RAPRC1  RAPRINT  RAPRINT1  
RART1  RARTE1  RARTE5  RARTR  RARTUVR  RARTUVR2  RARTUVR3  RASTAT  
RASTRPT  RASTRPT1  RATRAN  RAUTL15  RAUTL7A  RAWFR2  RAWFR3  RAWKL1  
RAWKL2  RAWKL3  RAXSTAT  

Entry Points

Name Comments DBIA/ICR reference
IARU ; Imaging Location allows released/unverified
CHPRINT ; Prints text from the 'Clinical History' field in file 70
; from [RA REPORT EDIT] template. Added with patch RA*5*27 - bnt
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.
STOPCHK ; does user want to stop task?
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")
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
OUTTEXT(X,DIWF,DIWL,DIWR,RAFMAT,RALFF,RATFF) ; Output generic text using DIWP
EXIST ; Checks if word processing data exists called from [RA REPORT EDIT]
; and [RA PRE-VERIFY REPORT EDIT] templates.
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)

External References

Name Field # of Occurrence
%XY^%RCR CHRSTOR+5, CHSAVE+6
$$S^%ZTLOAD STOPCHK+1
EN^DDIOL CHPRINT+4
^DIK UPDTPNT+9, UPDTPNT+15
^DIR EN1+13, EN2+12, EN3+4, EN4+2
^DIWP CHPRINT+8, OUTTEXT+11
^DIWW CHPRINT+9
ENSET^RAXREF EN1+15, EN2+14

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
Routine Call
  • DIR
  • Line Location:
    • EN1+13
    • EN2+12
    • EN3+4
    • EN4+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RABTCH(74.4 - [#74.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79.1 - [#79.1] IARU+1
^RABTCH(74.2 - [#74.2] UPDTPNT+5, UPDTPNT+6, UPDTPNT+7
^RABTCH(74.4 - [#74.4] UPDTPNT+13, UPDTPNT+14
^RADPT - [#70] CHPRINT+6, CHPRINT+7, IARU+1
^RARPT - [#74] EN1+10, EN1+11, EN1+15*, EN2+9, EN2+10, EN2+14*, EXIST+6, EXIST+8, EXIST+10, EXIST+23!
^TMP($J CHRSTOR+5!, CHSAVE+4!
^UTILITY($J CHPRINT+5!, OUTTEXT+11!, OUTTEXT+12, OUTTEXT+13, OUTTEXT+14, OUTTEXT+17!
^XUSEC("RA VERIFY" EN1+20

Label References

Name Line Occurrences
CHRSTOR EXIST+3, EXIST+25
EN1 EN1+20
IARU EN1+6, EN2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X CHRSTOR+3~, CHRSTOR+4*, CHSAVE+4~, CHSAVE+5*
%Y CHRSTOR+3~, CHRSTOR+4*, CHSAVE+4~, CHSAVE+5*
A UPDTPNT+4~, UPDTPNT+6*, UPDTPNT+7, UPDTPNT+8, UPDTPNT+14*, UPDTPNT+15
B UPDTPNT+4~, UPDTPNT+7*, UPDTPNT+8
CNT EXIST+7~, EXIST+9*, EXIST+13*, EXIST+14*, EXIST+15
>> D0 EN1+10, EN1+11, EN1+15, EN2+9, EN2+10, EN2+14
DA EXIST+6, EXIST+8, EXIST+10, EXIST+23, CHRSTOR+4, CHSAVE+5, UPDTPNT+4~, UPDTPNT+8*, UPDTPNT+9!, UPDTPNT+15*!
DA(1 UPDTPNT+8*
DIK UPDTPNT+4~, UPDTPNT+8*, UPDTPNT+9!, UPDTPNT+15*!
DIR EN1+4!, EN1+13!, EN2+3!, EN2+12!, EN3+1!, EN3+4!, EN4+1!, EN4+2!, CHPRINT+3~
DIR("?" EN3+3*
DIR("A" EN1+9*, EN2+8*, EN3+2*, EN4+2*
DIR("B" EN1+11*, EN1+12*, EN2+10*, EN2+11*
DIR(0 EN1+7*, EN1+8*, EN2+6*, EN2+7*, EN3+2*, EN4+2*
DIROUT EN1+4!, EN2+3!, EN3+1!, EN4+1!
DIRUT EN1+4!, EN1+14, EN1+19, EN2+3!, EN2+13, EN2+18, EN3+1!, EN3+5, EN4+1!, EN4+3
DIW OUTTEXT+6~
DIWF CHPRINT+5*, OUTTEXT~
DIWI OUTTEXT+6~
DIWL CHPRINT+5*, OUTTEXT~, OUTTEXT+11, OUTTEXT+12, OUTTEXT+13, OUTTEXT+14
DIWR OUTTEXT~
DIWT OUTTEXT+6~
DIWTC OUTTEXT+6~
DIWX OUTTEXT+6~
DTOUT EN1+4!, EN2+3!, EN3+1!, EN4+1!, EXIST+2, EXIST+4, EXIST+5, CHPRINT+3~
DUOUT EN1+4!, EN2+3!, EN3+1!, EN4+1!, EXIST+2, EXIST+4, EXIST+5, CHPRINT+3~
DUZ EN1+20
>> RACNI CHPRINT+6, CHPRINT+7
>> RADFN CHPRINT+6, CHPRINT+7, IARU+1
>> RADTI CHPRINT+6, CHPRINT+7, IARU+1
RAFMAT OUTTEXT~, OUTTEXT+7*, OUTTEXT+10
RAIEN UPDTPNT~, UPDTPNT+5, UPDTPNT+6, UPDTPNT+7, UPDTPNT+13, UPDTPNT+14
RALFF OUTTEXT~, OUTTEXT+8*, OUTTEXT+10
RALFMAT OUTTEXT+6~, OUTTEXT+10*, OUTTEXT+13
RAMT EN1+5~*, EN1+10*, EN1+12, EN1+14, EN2+4~*, EN2+9*, EN2+11, EN2+13
>> RANODE EXIST+2, EXIST+4, EXIST+5, EXIST+6, EXIST+8, EXIST+10, EXIST+19, EXIST+21, EXIST+23, EXIST+25
>> RASTATX EN1+21*, EN2+19*
RATFF OUTTEXT~, OUTTEXT+9*, OUTTEXT+10, OUTTEXT+15
RATFMAT OUTTEXT+6~, OUTTEXT+10*, OUTTEXT+15
RATRUE EN1+7, EN1+8, EN1+13!, EN2+6, EN2+7, EN2+12!, IARU+1*
>> RAV CHPRINT+5*, CHPRINT+6*, CHPRINT+7
RAWPFLG EXIST+7~*, EXIST+8, EXIST+12, EXIST+15*, EXIST+18, EXIST+25
>> RAYN EN3+6*, EN4+4*
U IARU+1
X EXIST+7~*, EXIST+8*, EXIST+10, CHPRINT+7*, CHPRINT+9*, OUTTEXT~, OUTTEXT+7
X1 EXIST+7~, EXIST+10*, EXIST+11, EXIST+13
X2 EXIST+7~, EXIST+9*, EXIST+11*, EXIST+12
X3 EXIST+7~, EXIST+12*, EXIST+13
X4 EXIST+7~, EXIST+13*, EXIST+14
>> XQY0 STOPCHK+4, STOPCHK+5
Y EN1+4~, EN1+20, EN1+21, EN2+3~, EN2+19, EN3+1~, EN3+6, EN4+1~, EN4+4, EXIST+19*
, CHRSTOR+3~, OUTTEXT+6~, OUTTEXT+12*, OUTTEXT+13, OUTTEXT+14
Y(0 OUTTEXT+13*
Z OUTTEXT+6~, OUTTEXT+14*, OUTTEXT+15
ZTREQ STOPCHK+2!
>> ZTSK STOPCHK+6
>> ZTSTOP STOPCHK+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All