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

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

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
Info |  Source |  Entry Points |  Interaction Calls