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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RAUTL

Package: Radiology Nuclear Medicine

Routine: RAUTL


Information

RAUTL ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Utility Routine ;12/4/97 14:21

Source Information

Source file <RAUTL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ^XUVERIFY  
Registration 1 PID^VADPT6  
VA FileMan 1 ^%DT  

Caller Graph

Caller Graph Total: 114

Package Total Caller Graph
Radiology Nuclear Medicine 113 RA DAILY LOG  RA DIAGNOSTIC BY CASE  RA DIAGNOSTIC CODE PRINT  RA DISTRIBUTION  RA EXAM EDIT  RA EXAM ROOM LIST  RA FILM SIZE  RA FLASH PRINT  
RA IMAGE DIV LIST  RA IMAGE LOC LIST  RA LAST PAST VISIT  RA NO PURGE SPECIFICATION  RA OUTSIDE ADD  RA OUTSIDE EDIT  RA OUTSIDE LIST  RA OUTSIDE SUPEROK  
RA PARENT PROCEDURE LIST  RABTCH  RABTCH1  RABUL  RABUL1  RABUL2  RABUL3  RACDR  
RACMP  RACMP2  RACNLU  RACPT  RACPT1  RACTRG5  RACTRT  RADEM  
RADEM1  RADEM2  RADLQ1  RADLQ3  RADLY  RADLY1  RADOSTIK  RADRPT1  
RADRPT2  RAERRPT  RAESR  RAESR2  RAFLH  RAFLH1  RAFLM  RAFLM2  
RAHLEX  RAHLEX1  RAHLO4  RAJAC  RALIST  RALWKL  RALWKL1  RALWKL2  
RAMIS  RAMIS1  RANMUSE1  RAO7PC4  RAO7RO  RAORD  RAORD2  RAORD4  
RAORD5  RAORD6  RAORD7  RAORD7A  RAORD8  RAORDP  RAORDQ  RAORDS  
RAORR3  RAOUT  RAPAST  RAPCE2  RAPERR  RAPM  RAPMW  RAPRC  
RAPRC1  RAPRINT  RAPRINT1  RAPROD1  RAPROS  RAPTLU  RAPURGE  RAPURGE1  
RAREG  RART1  RARTE6  RARTR  RARTR2  RARTST  RARTST1  RARTST2  
RARTST2A  RARTST3  RARTUVR  RARTUVR2  RARTUVR3  RARTVER1  RASIGU  RASTAT  
RASTRPT  RATRAN  RAUTL0  RAUTL2  RAUTL7A  RAWFR1  RAWKL  RAWKL2  
RAWORK  
Imaging 1 MAGJUTL1  

Entry Points

Name Comments DBIA/ICR reference
DATE
END
DATE1
END1
ZIS
ZIS1
CLOSE
D
USER
USER1
USERQ
DEV ;EXECUTEABLE HELP FOR DEVICE FIELDS IN FILE 79.1 (IMAGING LOCATIONS)
VERIFY ;Ask Access Code
A ;Create signature block name using RASIG("PER") as input IEN of file 200
DUZ ;Lookup and set RASIG("PER")=New Person File IFN, set signature block
SSN(PID,BID,DOD) ;returns full Pt.ID (VA("PID")), BID=1 returns VA("BID")
WARNPRC ; send warning if user changes procedure within exam edit
; and the exam has either or both radiopharms and meds
; RAY (sub-rec 70.03) comes from rtns RAEDCN or RAEDPT (exam edit)
; RAPRIT (ien file 71) comes from rtn RASTED (status tracking)
WARN0

External References

Name Field # of Occurrence
^%DT DATE+1, END, DATE1+1, END1
^%ZIS ZIS+3
HOME^%ZIS ZIS+8, DEV+1
^%ZISC ZIS+3, CLOSE+1
^%ZTLOAD ZIS+6
PID^VADPT6 SSN+5
^XUVERIFY USER, VERIFY+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"**** Date Range Selection ****"
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"**** Date Range Selection ****"
  • Line Location: DATE1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ZIS+2
Function Call: WRITE
  • Prompt: RASELDEV,!
  • Line Location: ZIS+2
Function Call: WRITE
  • Prompt: *7,!?5,"You must select a printer for this output.",!
  • Line Location: ZIS+3
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: USER+0
Function Call: WRITE
  • Prompt: !!?3,*7,"Must be a user with the appropriate privileges to continue!"
  • Line Location: USER1+0
Function Call: WRITE
  • Prompt: @IOF,!,"The following is a list of possible devices. You must choose",!,"one of these by entering in the device's full name.",!!,"NOTE: This field is not a pointer field to file 3.5!",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !?3,"Device Name:",?25,"Device Location:",!?3,"------------",?25,"----------------"
  • Line Location: DEV+2
Function Call: READ
  • Formatting: !
  • Prompt: "(Type ""^"" to stop)"
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: VERIFY+1
Function Call: WRITE
  • Prompt: *7,!,"Sorry, that's not your access code. Try again."
  • Condition for execution: %=2
  • Line Location: VERIFY+1
Function Call: WRITE
  • Prompt: !,"Enter your access code or an uparrow to exit."
  • Condition for execution: %=0
  • Line Location: VERIFY+1
Function Call: WRITE
  • Prompt: !!?2,"**",?21,"Since you have changed the procedure,",?76,"**"
  • Line Location: WARNPRC+18
Function Call: WRITE
  • Prompt: !?2,"**",?RATAB,"the",$S(RAWHICH#2:" Radiopharmaceuticals",1:""),$S(RAWHICH=3:" and",1:""),$S(RAWHICH>1:" Meds",1:"")," for",?76,"**"
  • Line Location: WARNPRC+20
Function Call: WRITE
  • Prompt: !?2,"**",?RATAB,RATEXT,?76,"**"
  • Line Location: WARNPRC+22
Function Call: WRITE
  • Prompt: !?2,"**",?30,"will now be deleted.",?76,"**",!,*7
  • Line Location: WARNPRC+23
Function Call: WRITE
  • Prompt: !!?2,"**",?17,"You have changed the procedure, but there are",?76,"**"
  • Line Location: WARN0+0
Function Call: WRITE
  • Prompt: !?2,"**",?14,"no data for Radiopharmaceuticals and Meds to delete.",?76,"**",*7,!
  • Line Location: WARN0+1
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+3
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+8
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DEV+3
^RADPT - [#70] WARNPRC+10, WARNPRC+12
^RADPTN - [#70.2] WARNPRC+11
^RAMIS(71 - [#71] WARNPRC+21
^VA(200 - [#200] A+3*, DUZ+2, DUZ+4, DUZ+5, DUZ+6
^XUSEC( USER1

Label References

Name Line Occurrences
A DUZ+4
USER USER
USERQ USER
VERIFY VERIFY+1
WARN0 WARNPRC+17
ZIS ZIS+3
ZIS1 ZIS+4

Naked Globals

Name Field # of Occurrence
^( DEV+3
^(0 DEV+3
^(1 DEV+3
^(20 DUZ+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % USER*, VERIFY+1*, DUZ+2*, DUZ+3*
%DT DATE+1*, END*!, DATE1+1*, END1*!
%DT("A" DATE+1*, END*, DATE1+1*, END1*
%DT(0 DATE+1*, DATE1+1*
>> %DUZ USER*, VERIFY+1*
%INT DUZ+3!, DUZ+4!, DUZ+6!
%X A+3*!, DUZ+5*!
%ZIS ZIS+3*!
%ZIS("B" ZIS+3*
BEGDATE DATE!, DATE+1*, DATE1!, DATE1+1*
BID SSN~, SSN+4*, SSN+6
DFN SSN+2~, SSN+5*
DOD SSN~, SSN+4
DTIME DEV+3
DUZ USER, VERIFY+1, DUZ+2
ENDDATE DATE!, END*, DATE1!, END1*
>> I DEV+3*
IO("DOC" ZIS+5
IO("Q" ZIS+4, ZIS+5!
IOF DEV+1, DEV+3
IOM ZIS+5
ION ZIS+5
>> IOP ZIS+3*
IOSL ZIS+5, DEV+3
IOST ZIS+3, ZIS+5
PID SSN~
>> POP ZIS+3
>> RACNI WARNPRC+4, WARNPRC+10, WARNPRC+12
>> RADDT DATE+1, DATE1+1
>> RADFLTP ZIS+3
>> RADFN SSN+3, SSN+5, WARNPRC+4, WARNPRC+10, WARNPRC+12
RADIO WARNPRC+6~, WARNPRC+7*, WARNPRC+10*, WARNPRC+11*, WARNPRC+14, WARNPRC+15, WARNPRC+16
>> RADTI WARNPRC+4, WARNPRC+10, WARNPRC+12
>> RADUPSCN ZIS+3
RADUZ USER*, USER1, VERIFY+1!*
>> RAKEY USER1
>> RAMDV USER*
RAMEDS WARNPRC+6~, WARNPRC+7*, WARNPRC+12*, WARNPRC+14, WARNPRC+15, WARNPRC+16
RAMES ZIS+1*, ZIS+7, ZIS+8!, ZIS1!
>> RAPOP DATE*, DATE+1*, END*, DATE1*, DATE1+1*, END1*, ZIS+3*, ZIS+8*, USERQ*
>> RAPRI WARNPRC+8, WARNPRC+9
>> RAPRIT WARNPRC+5, WARNPRC+9, WARNPRC+21
RASELDEV ZIS+2!, ZIS1!
>> RASIG("NAME" DUZ+6*
>> RASIG("PER" A+3, DUZ+2*, DUZ+3, DUZ+4, DUZ+5, DUZ+6
>> RASKTIME DATE+1, END, DATE1+1, END1
>> RASSN SSN+6*, SSN+8
RASV ZIS+8!
RATAB WARNPRC+6~, WARNPRC+19*, WARNPRC+20, WARNPRC+21*, WARNPRC+22
RATEXT WARNPRC+6~, WARNPRC+21*, WARNPRC+22
>> RAWHICH WARNPRC+13*, WARNPRC+14*, WARNPRC+15*, WARNPRC+16*, WARNPRC+17, WARNPRC+19, WARNPRC+20
>> RAY WARNPRC+5, WARNPRC+8, WARNPRC+21
>> RAZIS ZIS+3
U WARNPRC+8, WARNPRC+10, WARNPRC+21
>> VA("BID" SSN+6, SSN+7!
>> VA("PID" SSN+6, SSN+7!
VAERR SSN+5!, SSN+7!
VAPTYP SSN+4*, SSN+7!
>> X DEV+3*
>> Y DATE+1, END, DATE1+1, END1, D*
ZTDESC ZIS*, ZIS+8!, ZIS1!
ZTDTH ZIS+8!
ZTIO ZIS+5*, ZIS+8!
>> ZTQUEUED CLOSE
>> ZTREQ CLOSE*
ZTRTN ZIS, ZIS+8!, ZIS1!
ZTSAVE ZIS+8!, ZIS1!
ZTSK ZIS+7, ZIS+8!
ZTSK("D" ZIS+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All