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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RAORD8

Package: Radiology Nuclear Medicine

Routine: RAORD8


Information

RAORD8 ;HISC/CAH,FPT AISC/RMO-Ward/Clinic Scheduled Request Log ;9/9/94 10:05

Source Information

Source file <RAORD8.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Radiology Nuclear Medicine 3 Q^RAORD8  ($$SSN,CLOSE,D,ZIS)^RAUTL  IPOP^RAUTL13  
VA FileMan 2 ^%DT  ^DIC  
Kernel 1 $$FMTE^XLFDT  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Radiology Nuclear Medicine 2 RA ORDERLOGLOC  RAORD8  

Entry Points

Name Comments DBIA/ICR reference
DATE
START
Q
CHKORD
XFER ;Find out if patient transferred in or out of the requesting loc
CHKUTL
PRT
HD
CRCHK

External References

Name Field # of Occurrence
^%DT DATE, DATE+1, START+7
^DIC RAORD8+2
Q^RAORD8 DATE, DATE+1
$$SSN^RAUTL PRT+2
CLOSE^RAUTL Q+4
D^RAUTL START+6, START+7
ZIS^RAUTL DATE+4
IPOP^RAUTL13 XFER+1
$$SITE^VASITE START+2
$$FMTE^XLFDT PRT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RAORD8+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !?5," ?? Starting date must be before ending date. Please try again.",!
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !!?5,"There are no scheduled requests ",!?5,"for ",RALNM," from ",RALDTE1P," to ",RALDTE2P,"."
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !
  • Line Location: Q+4
Function Call: WRITE
  • Prompt: !,$E(RANME,1,19),?20,$$SSN^RAUTL(RADFN,1),?28,RATIME,?43,$E(RAPRC,1,21)
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: ?66,$E(RAILCNM,1,15)
  • Condition for execution: $D(RAILCNM)
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !?10,"Patient transferred to: ",RALOCN,!
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !?10,"Requesting Location: ",RARLOCN,!
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !?23,">>> RADIOLOGY/NUCLEAR MEDICINE <<<",!!,"Scheduled Request Log for ",RALNM
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: ?70,"Page: ",RAPGE
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !?5,"Schedule dates from ",RALDTE1P," to ",RALDTE2P
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,"Run Date: ",RARUNDTE
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!,"Patient",?20,"Pt ID",?28,"Sched. Date",?43,"Procedure"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?66,"Imaging Loc"
  • Condition for execution: $D(RALOCFLG)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,"-------------------",?20,"-----",?28,"-------------",?43,"---------------------"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?66,"Imaging Loc"
  • Condition for execution: $D(RALOCFLG)
  • Line Location: HD+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CRCHK+0
Function Call: WRITE
  • Prompt: !!,*7,"Press RETURN to continue or '^' to stop "
  • Line Location: CRCHK+0
Routine Call
  • DIC
  • Line Location:
    • RAORD8+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CHKUTL
^RA(79 - [#79] START+3, START+4
^RA(79.1 - [#79.1] PRT+1
^RAMIS(71 - [#71] PRT
^RAO(75.1 - [#75.1] START+8, CHKORD
^SC - [#44] START+1, PRT+1
^TMP($J START!, START+9, START+10, Q!, CHKORD*, XFER+4*, CHKUTL, PRT+3

Label References

Name Line Occurrences
CHKORD START+8
CHKUTL START+10
CRCHK HD
DATE DATE+2
HD PRT
PRT CHKUTL
Q RAORD8+2, DATE+4, START+9
XFER CHKORD

Naked Globals

Name Field # of Occurrence
^( START+4, CHKUTL
^(0 START+1, CHKUTL, PRT, PRT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE*!, DATE+1*!, START+7*
%DT("A" DATE*, DATE+1*
DDH Q+3!
DFN Q+3!
DIC RAORD8+2!*
DIC("A" RAORD8+2*
DIC(0 RAORD8+2*
DT START+2
DTIME CRCHK
IO START
IOF HD
IOSL PRT
IOST CRCHK
POP Q+1!
RABEGDT START*, START+8, Q+1!
RADFN START+8*, START+10*, Q+1!, CHKORD, XFER+4, CHKUTL, PRT+2, PRT+3
RADIV START+2*, START+3*, START+4, Q+1!
RADPT0 Q+1!, CHKUTL*, PRT
RAENDDT START*, START+8, Q+1!
RAILCNM Q+1!, PRT+1*, PRT+2
RAL0 START+1*, START+2, START+5, Q+1!
RALDTE1 DATE*, DATE+2, START, START+6, Q+1!
RALDTE1P START+6*, START+9, Q+1!, HD+1
RALDTE2 DATE+1*, DATE+2, DATE+3*, START, START+6, Q+1!
RALDTE2P START+6*, START+9, Q+1!, HD+1
RALIFN RAORD8+2*, START+1, Q+1!, CHKORD
RALNAME START+5*, Q+1!, XFER+2, XFER+3, PRT+5, PRT+6
RALNM RAORD8+2*, START+9, Q+1!, HD
RALOCFLG START+4*, Q+1!, PRT+1, HD+2
RALOCN Q+1!, XFER+2, XFER+3, XFER+4, PRT+4*, PRT+5, PRT+6
RAMES Q+2!
RANME Q+1!, PRT*, PRT+2
RAOIFN Q+1!, CHKORD*, XFER+4, CHKUTL*, PRT+3
RAORD0 Q+1!, CHKORD*, CHKUTL*, PRT, PRT+1
RAOSCH START+8*, START+10*, Q+1!, CHKORD, XFER+4, CHKUTL, PRT+1, PRT+3
RAPGE START*, Q+1!, PRT, HD*, CRCHK
RAPOP DATE+4, Q+1!
RAPRC Q+1!, PRT*, PRT+2
RARLOCN Q+1!, XFER+2, XFER+3, XFER+4, PRT+4*, PRT+5, PRT+6
RARUNDTE START+7*, Q+1!, HD+1
RASSN Q+1!
RATIME Q+1!, PRT+1*, PRT+2
RAX START*, START+10, Q+1!, CHKUTL, PRT, HD, CRCHK*
RAXFERIN Q+1!, CHKORD, XFER+1*, XFER+2*, XFER+4
RAXFEROU Q+1!, XFER+1*, XFER+3*, XFER+4
U START+5, XFER+4, PRT+4
VAERR Q+3!
X START+7*, Q+1!, PRT+3*, PRT+4, CRCHK*
Y RAORD8+2, DATE, DATE+1, START+6*, START+7, Q+1!
ZTDESC Q+2!
ZTRTN DATE+4*, Q+2!
ZTSAVE Q+2!
ZTSAVE("RALDTE1" DATE+4*
ZTSAVE("RALDTE2" DATE+4*
ZTSAVE("RALIFN" DATE+4*
ZTSAVE("RALNM" DATE+4*
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 |  Naked Globals |  Local Variables  | All