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

Package: Radiology Nuclear Medicine

Routine: RAUTL7A


Information

RAUTL7A ;HISC/CAH,FPT-Utility for RACCESS array ;9/10/01 15:13

Source Information

Source file <RAUTL7A.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 NOW^%DTC  ^DIE  EN^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  $$REPEAT^XLFSTR  
Radiology Nuclear Medicine 2 (CLOSE,ZIS)^RAUTL  STOPCHK^RAUTL9  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Radiology Nuclear Medicine 6 RADLY  RANMUTL1  RAORD2  RAPRC  RASTAT  RAUTL7  

Entry Points

Name Comments DBIA/ICR reference
LOCIMG1() ;Determines if user has access to more than one loc of
ERROR ; Display error message
IMGNUM() ; Detrmines the number of selectable imaging types based on
; division parameters. Called fron SELIMG^RAUTL7
SETUP ; Setup temp global to screen i-type by division
; Requires ^TMP($J,"RA D-TYPE",Division name), RACCESS "DIV-IMG"
; elements. Creates ^TMP($J,"DIV-IMG",Imaging Type IEN)=""
; Called fron SELIMG^RAUTL7
LOCNUM() ;Detrmines the number of selectable imaging locations based on
; division parameters. Called fron SELLOC^RAUTL7
SETUPL ; Setup temp global to screen img-loc, where
; img-loc must be within previously selected img-typ(s)
; Requires RACCESS(duz,"LOC") and ^TMP($J,"RA ITYPE")
; Creates ^TMP($J,"DIV-ITYP-ILOC",Img Loc ien)
; and eg. RACCESS(duz,"DIV-ITYP-ILOC","cgo(ws)","gen rad","x-ray")
; Called from SELLOC^RAUTL7
SETUPL1
VERIFY ; verify old reports
; back door function to "administratively verify" old reports
; that were never verified
DEVICE ;
START ;
KILL ;
HEADER ;
DISPLAY ; back door function to display all reports not verified in file 74
; prints [captioned] dump of entire record

External References

Name Field # of Occurrence
NOW^%DTC START+4
^%ZIS DISPLAY+4
^%ZISC DISPLAY+14
^DIE START+21
EN^DIQ DISPLAY+9
^DIR VERIFY+7, START+25, DISPLAY+12
CLOSE^RAUTL KILL+2
ZIS^RAUTL DEVICE+2
STOPCHK^RAUTL9 START+27
DEM^VADPT START+12
$$REPEAT^XLFSTR HEADER+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"You do not have access to any Imaging Locations."
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !?5,"Contact your ADPAC for further assistance.",$C(7)
  • Line Location: ERROR+2
Function Call: WRITE
  • Prompt: !,"This subroutine prompts you for a date and places all unverified reports"
  • Line Location: VERIFY+3
Function Call: WRITE
  • Prompt: !,"through that date into a status of Verified.",!
  • Line Location: VERIFY+4
Function Call: WRITE
  • Prompt: !!,"NO UNVERFIED REPORTS CROSS REFERENCE"
  • Line Location: VERIFY+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+22
Function Call: WRITE
  • Prompt: !!,"Total: ",RACOUNT
  • Line Location: START+29
Function Call: WRITE
  • Prompt: "Verify Reports Prior to "_$E(RAENDATE,4,5)_"/"_$E(RAENDATE,6,7)_"/"_$E(RAENDATE,2,3)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"Run Date/Time: ",RATIME,?70,"Page: ",RAPAGE
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !!,"This subroutine loops through the unverified reports cross-reference of"
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,"File 74 and displays the report entry including computed field values.",!!
  • Line Location: DISPLAY+3
Routine Call
  • DIE
  • Line Location:
    • START+21
Routine Call
  • DIR
  • Line Location:
    • VERIFY+7
    • START+25
    • DISPLAY+12
Routine Call
  • %ZIS
  • Line Location:
    • DISPLAY+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RARPT - [#74] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+4
^DIC(4 - [#4] SETUPL1+4
^RA(79.1 - [#79.1] LOCIMG1+7, SETUPL1, SETUPL1+1, SETUPL1+3, SETUPL1+13
^RA(79.2 - [#79.2] LOCIMG1+5, SETUP+8, SETUPL1+2, SETUPL1+6, SETUPL1+13
^RADPT - [#70] START+15
^RADPT("ADC" START+11
^RARPT - [#74] START+7, DISPLAY+9
^RARPT("ASTAT" VERIFY+5, START+6, DISPLAY+7, DISPLAY+8
^SC - [#44] SETUPL1+13
^TMP($J IMGNUM+3, SETUP+5, SETUP+8*, LOCNUM+3, SETUPL1+2, SETUPL1+6, SETUPL1+8, SETUPL1+9*
^VA(200 - [#200] START+16, START+17

Label References

Name Line Occurrences
HEADER START+5, START+22
KILL VERIFY+7, DEVICE+3
SETUPL1 SETUPL1+1, SETUPL1+2, SETUPL1+3, SETUPL1+4, SETUPL1+6, SETUPL1+8, SETUPL1+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KILL+1!
A DISPLAY+15!
D0 DISPLAY+15!
D1 DISPLAY+15!
DA START+21*, DISPLAY+9*, DISPLAY+15!
DFN START+12*, START+13!
DIC DISPLAY+9*, DISPLAY+15!
DIE START+21!*
DIQ DISPLAY+15!
DIQ(0 DISPLAY+9*
DIR VERIFY+6!, VERIFY+7!, START+1!, START+24!, START+25!, KILL+1!, DISPLAY+11!, DISPLAY+12!
DIR("?" VERIFY+6*
DIR("A" VERIFY+6*
DIR(0 VERIFY+6*, START+25*, DISPLAY+12*
DIROUT START+1!, START+24!, KILL+1!, DISPLAY+11!
DIRUT VERIFY+7, START+1!, START+6, START+22, START+24!, START+27*, KILL+1!, DISPLAY+7, DISPLAY+8, DISPLAY+9
, DISPLAY+11!, DISPLAY+15!
DIW DISPLAY+15!
DIWF DISPLAY+15!
DIWL DISPLAY+15!
DIWR DISPLAY+15!
DIWT DISPLAY+15!
DK DISPLAY+15!
DL DISPLAY+15!
DN DISPLAY+15!
DR START+21!*
DTOUT START+1!, START+24!, KILL+1!, DISPLAY+11!, DISPLAY+15!
DUOUT START+1!, START+24!, KILL+1!, DISPLAY+11!, DISPLAY+15!
DUZ LOCIMG1+4, LOCIMG1+6, SETUP+6, SETUP+7, SETUPL1+13
DX DISPLAY+15!
I DISPLAY+15!
IO START+1, DISPLAY+5
IOF START+22, HEADER+1, DISPLAY+5, DISPLAY+9
IOSL START+22
IOST START+23, DISPLAY+10
POP KILL+1!, DISPLAY+15!
RA4CHX DISPLAY+6*, DISPLAY+7*, DISPLAY+8, DISPLAY+15!
RA4CHX1 DISPLAY+8*, DISPLAY+9, DISPLAY+15!
>> RACCESS( LOCIMG1+4, LOCIMG1+6, SETUP+6, SETUP+7, SETUPL1+13*
RACN DISPLAY+15!
RACNI START+11*, START+15, KILL+1!
RACOUNT START+2*, START+14*, START+29, KILL+1!
RADFN START+9*, START+11, START+12, START+15, KILL+1!
RADPT0 START+15*, START+16, START+17, KILL+1!
RADTE START+8*, START+10, KILL+1!
RADTI START+10*, START+11, START+15, KILL+1!
RAENDATE VERIFY+8*, START+2*, START+8, KILL+1!, HEADER+3
>> RAIMGTY LOCIMG1+5
>> RALOCSAV LOCIMG1+7*, LOCIMG1+9
RALOCTOT LOCIMG1+4~, LOCIMG1+5*, LOCIMG1+7*, LOCIMG1+9
RANAME START+13*, START+18, KILL+1!
RAPAGE START+2*, KILL+1!, HEADER+2*, HEADER+4
RAPOP DEVICE+3, KILL+1!
RARES START+16*, START+19, KILL+1!
RARPT START+6*, START+7, START+21, KILL+1!, DISPLAY+15!
RARPT0 START+7*, START+8, START+9, START+11, START+18, KILL+1!
RASSN START+13*, START+18, KILL+1!
RASTAFF START+17*, START+20, KILL+1!
RASTATUS START+2*, START+6*, START+18, KILL+1!
RATIME START+4*, KILL+1!, HEADER+4
RAW SETUPL+6~, SETUPL1+4*, SETUPL1+8, SETUPL1+13
RAX SETUP+4~*, SETUP+5*, SETUP+6, SETUP+7, SETUPL+6~, SETUPL+7*, SETUPL1*, SETUPL1+1, SETUPL1+3, SETUPL1+9
, SETUPL1+13
RAY SETUP+4~, SETUP+7*, SETUP+8, SETUPL+6~, SETUPL1+1*, SETUPL1+2, SETUPL1+6, SETUPL1+13
RAZ SETUP+4~, SETUP+8*, SETUPL+6~, SETUPL1+3*, SETUPL1+4, SETUPL1+8
S DISPLAY+15!
U LOCIMG1+7, SETUPL1+2, SETUPL1+3, SETUPL1+4, SETUPL1+13, START+8, START+9, START+11, START+13, START+16
, START+17, START+18
VADM START+13!
VADM(1 START+13
VADM(2 START+13
X LOCIMG1+4~*, LOCIMG1+5*, LOCIMG1+6*, LOCIMG1+7, IMGNUM+2~*, IMGNUM+3*, LOCNUM+2~*, LOCNUM+3*, START+4, KILL+1!
, DISPLAY+15!
Y LOCIMG1+4~, IMGNUM+2~*, IMGNUM+3*, IMGNUM+4, LOCNUM+2~*, LOCNUM+3*, LOCNUM+4, VERIFY+8, START+4*, KILL+1!
, DISPLAY+15!
Z LOCIMG1+4~, LOCIMG1+5*, LOCIMG1+7
ZTDESC DEVICE+1*, KILL+1!
>> ZTQUEUED START+3, START+27
>> ZTREQ START+3*
ZTRTN DEVICE+1*, KILL+1!
ZTSAVE KILL+1!
ZTSAVE("RAENDATE" DEVICE+1*
>> ZTSTOP START+27
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