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

Package Total Caller Graph
Radiology Nuclear Medicine 97 RABTCH  RABTCH1  RABUL  RABUL1  RABUL2  RABUL3  RACDR  RACMP  
RACMP2  RACNLU  RACPT  RACPT1  RACTEX  RACTEX2  RACTRG8  RACTTK2  
RADEM  RADEM1  RADEM2  RADLQ1  RADLQ3  RADLY  RADLY1  RADOSTIK  
RAERRPT  RAESO  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  RAORR3  
RAOUT  RAPAST  RAPCE2  RAPERR  RAPM  RAPMW  RAPRC  RAPRC1  
RAPRINT  RAPRINT1  RAPROD1  RAPROS  RAPTLU  RAPURGE  RAPURGE1  RAREG  
RART1  RARTE6  RARTR  RARTR0  RARTR2  RARTST  RARTST1  RARTST2  
RARTST2A  RARTST3  RARTUVR  RARTUVR2  RARTUVR3  RARTVER1  RASIGU  RASTAT  
RASTRPT  RATRAN  RAUTL0  RAUTL2  RAUTL7A  RAWFR1  RAWKL  RAWKL2  
RAWORK  
IHS Mods To Radiology Nuclear Medicine 6 BRARPT1  BRARPT2  BRARPT3  BRARPT4  BRARPT5  BRARPT6  

Entry Points

Name Comments DBIA/ICR reference
DATE1
END1
END
ZIS
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)
ZIS1
VERIFY ;Ask Access Code
USER1
DEV ;EXECUTEABLE HELP FOR DEVICE FIELDS IN FILE 79.1 (IMAGING LOCATIONS)
DUZ ;Lookup and set RASIG("PER")=New Person File IFN, set signature block
A ;Create signature block name using RASIG("PER") as input IEN of file 200
USER
WARN0
USERQ
DATE
CLOSE
SSN(PID,BID,DOD) ;returns full Pt.ID (VA("PID")), BID=1 returns VA("BID")
D

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
  • Prompt: "(Type ""^"" to stop)"
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • 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+8
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+3

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