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

Package: Radiology Nuclear Medicine

Routine: RAORD2


Information

RAORD2 ;HISC/CAH,FPT,GJC,DAD AISC/RMO-Detailed Request Display ;9/3/99 13:48

Source Information

Source file <RAORD2.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Radiology Nuclear Medicine 11 $$NAMCODE^RACPTMSC  $$CMEDIA^RAO7UTL  (,$$NOSECNDS)^RAORD3  PHONE^RAORD5  ^RAORDS  ^RAORR3  EN1^RASELCT  ($$SSN,D)^RAUTL  
$$DPROC^RAUTL15  $$XTERNAL^RAUTL5  ERROR^RAUTL7A  
Kernel 4 HOME^%ZIS  $$FMTE^XLFDT  $$LOW^XLFSTR  DELETE^XQALERT  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Registration 2 IN5^VADPT  $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Radiology Nuclear Medicine 4 RA ORDERDISPLAY  RAORD3  RAORD5  RAORR  

Entry Points

Name Comments DBIA/ICR reference
ENDIS ;OE/RR Entry Point for the PRINT ACTION Option
LOCATN ; Select or default to a Rad/Nuc Med location.
DPRC(RAOIFN,RADFN) ; If the ordered procedure has been registered check
HDR ; Header for the 'Detailed Request Display' option. Called from above
; (D HDR) and from RAORD3
OERR ; Entry Point for OE/RR Cancel/Hold Alert
DISORD
Q
LOC1() ; Checking for only one Imaging Location
; Pass back null if more that one entry exists in 79.1
; If one entry, pass back: external Hosp. Loc. file_"^"_IEN of file 79.1

External References

Name Field # of Occurrence
HOME^%ZIS RAORD2+3
^DIC RAORD2+4
$$GET1^DIQ DPRC+24
^DIR RAORD2+14
$$NAMCODE^RACPTMSC DISORD+13
$$CMEDIA^RAO7UTL DISORD+3
^RAORD3 ENDIS+15
$$NOSECNDS^RAORD3 DISORD+28, ENDIS+9, ENDIS+10, ENDIS+11, ENDIS+12
PHONE^RAORD5 DISORD+25
^RAORDS RAORD2+15
^RAORR3 ENDIS+14
EN1^RASELCT LOCATN+5
$$SSN^RAUTL DISORD
D^RAUTL HDR+2
$$DPROC^RAUTL15 DPRC+25
$$XTERNAL^RAUTL5 DISORD+9
ERROR^RAUTL7A RAORD2+9
IN5^VADPT DISORD+27
$$SITE^VASITE ENDIS+6
$$FMTE^XLFDT DISORD+28, ENDIS+9, ENDIS+10, ENDIS+11, ENDIS+12
$$LOW^XLFSTR DISORD+10
DELETE^XQALERT OERR+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RAORD2+4
Function Call: WRITE
  • Prompt: !!,"Imaging Location(s) included:"
  • Line Location: RAORD2+10
Function Call: WRITE
  • Prompt: ?($X+3),X
  • Line Location: RAORD2+12
Function Call: WRITE
  • Prompt: !
  • Line Location: RAORD2+14
Function Call: WRITE
  • Prompt: !,"Requested :",?12,RA("PROC INFO")
  • Line Location: DISORD+31
Function Call: WRITE
  • Prompt: !,"Registered:"
  • Line Location: DISORD+33
Function Call: WRITE
  • Prompt: ?12,I
  • Line Location: DISORD+35
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X
  • Line Location: DISORD+37
Function Call: WRITE
  • Prompt: ?12,"** The requested procedure has contrast media assigned **"
  • Line Location: DISORD+37
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X
  • Line Location: DISORD+38
Function Call: WRITE
  • Prompt: ?12,"** A registered procedure uses contrast media **"
  • Line Location: DISORD+38
Function Call: WRITE
  • Prompt: !!,"Current Status:",?22,$E(RA("OST"),1,24)
  • Line Location: DISORD+40
Function Call: WRITE
  • Prompt: !,"Requester:",?22,$E(RA("PHY"),1,24)
  • Line Location: DISORD+41
Function Call: WRITE
  • Prompt: !?1,"Tel/Page/Dig Page: ",RA("RPHOINFO")
  • Line Location: DISORD+42
Function Call: WRITE
  • Prompt: !,"Patient Location:",?22,$E(RA("HLC"),1,20)
  • Line Location: DISORD+43
Function Call: WRITE
  • Prompt: !,"Entered:",?22,$S($D(RA("ODT")):RA("ODT"),1:"")," by ",$E(RA("USR"),1,20)
  • Line Location: DISORD+45
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOCATN+5
Function Call: WRITE
  • Prompt: @IOF,?22,"**** Detailed Display ****",!!,"Name: ",RA("NME")," (",RASSN,")"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?45,"Date of Birth: ",Y,!,RALNE
  • Line Location: HDR+2
Routine Call
  • %ZIS
  • Line Location:
    • RAORD2+3
Routine Call
  • DIC
  • Line Location:
    • RAORD2+4
Routine Call
  • DIR
  • Line Location:
    • RAORD2+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^RA(72 - [#72] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(71 DISORD+9
^DD(75.1 DISORD+22, ENDIS+2
^DPT - [#2] RAORD2+5, DISORD
^RA(72 - [#72] ENDIS+3
^RA(79 - [#79] ENDIS+7, ENDIS+8
^RA(79.1 - [#79.1] ENDIS+13, LOC1+4, LOC1+5, LOC1+6
^RA(79.2 - [#79.2] DISORD+15
^RADPT - [#70] ENDIS+3, DPRC+21, DPRC+22
^RADPT("AO" DISORD+5, ENDIS+3, DPRC+18, DPRC+20
^RAMIS(71 - [#71] DISORD+2, DISORD+6
^RAMIS(71.2 - [#71.2] DISORD+21
^RAO(75.1 - [#75.1] DISORD, DISORD+20, DISORD+21, ENDIS+1
^SC - [#44] DISORD+26, ENDIS+5, ENDIS+13, LOC1+7
^TMP($J RAORD2+7*, RAORD2+8*, RAORD2+9, RAORD2+11, Q+4!, Q+5!, DISORD+32, DISORD+34, ENDIS+4!, DPRC+16!
, DPRC+26*
^VA(200 - [#200] DISORD+23, DISORD+29

Label References

Name Line Occurrences
$$LOC1 LOCATN+1
DISORD OERR+5
DPRC DISORD+5, ENDIS+4
HDR DISORD+30
LOCATN RAORD2+6
Q RAORD2+4, RAORD2+6, RAORD2+9, RAORD2+14, RAORD2+15

Naked Globals

Name Field # of Occurrence
^( ENDIS+3, ENDIS+8
^(0 RAORD2+5, DISORD, DISORD+21, DISORD+23, DISORD+26, DISORD+29, ENDIS+1, ENDIS+3, ENDIS+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!
CRTN DISORD+33~*, DISORD+35*
DFN OERR+7*, Q+4!, DISORD+27*
DIC RAORD2+3!*, Q!, LOCATN+5!
DIC(0 RAORD2+3*
DIPGM Q+4!
DIR RAORD2+14!
DIR(0 RAORD2+14*
DISYS Q+4!
DIW Q+4!
DIWI Q+4!
DIWT Q+4!
DIWTC Q+4!
DIWX Q+4!
DN Q+4!
DT DISORD+13, ENDIS+6
>> DTOUT RAORD2+14
>> DUOUT RAORD2+14
I Q!, DISORD+21*, DISORD+33~*, DISORD+34*, DISORD+35
IOF HDR+2
IOM RAORD2+12
OREND Q!
>> ORPK ENDIS+1
POP Q+4!
RA Q!, ENDIS+15!
RA("CNCAT" DISORD+17*, DISORD+18!
RA("CPT" DISORD+11*, DISORD+13*, DISORD+17, DISORD+19!
RA("DOB" DISORD*, HDR+2
RA("HLC" DISORD+26*, DISORD+43
RA("ILC" ENDIS+13*
RA("MOD" DISORD+21!*, DISORD+39
RA("NME" DISORD*, HDR+2
RA("ODT" DISORD+28!*, DISORD+45
RA("OST" DISORD+22*, DISORD+40
RA("PDT" ENDIS+10!*
RA("PHY" DISORD+23*, DISORD+41
RA("PRC" DISORD+7*, DISORD+16
RA("PRCIT" DISORD+14*, DISORD+15*, DISORD+17, DISORD+18!
RA("PRCTY" DISORD+8*, DISORD+9*, DISORD+10*, DISORD+13, DISORD+17, DISORD+19!
RA("PROC INFO " , DISORD+16*, DISORD+18*, DISORD+31
RA("PROC. NOD E" , DISORD+6*, DISORD+7, DISORD+8, DISORD+11, DISORD+14
RA("RDT" ENDIS+9!*
RA("ROOM-BED" DISORD+27*, DISORD+44
RA("RPHOINFO" DISORD+42
RA("SDT" ENDIS+12!*
RA("ST" ENDIS+3!*, DPRC+16!, DPRC+24*, DPRC+30!
RA("STY_REA" DISORD+20*
RA("TRAN" ENDIS+2*
RA("USR" DISORD+29*, DISORD+45
RA("VDT" ENDIS+11!*
RA(0 ENDIS+3*, ENDIS+14
RA6 Q+4!
RA7 Q+4!
RA7003 DPRC+16~, DPRC+22*, DPRC+23, DPRC+24
RACI Q!, ENDIS+15!
RACMFLG Q+3!
RACMFLG("O" DISORD+3*, DISORD+37
RACMFLG("R" DISORD+38, DPRC+23*
RACNI Q!, ENDIS+3*, ENDIS+15!, DPRC+16~, DPRC+19*, DPRC+20*, DPRC+21, DPRC+22, DPRC+25
RADFN RAORD2+5*, OERR+3*, Q!, DISORD, DISORD+5, DISORD+27, ENDIS+1*, ENDIS+3, ENDIS+4, ENDIS+15!
, DPRC~, DPRC+18, DPRC+20, DPRC+21, DPRC+22, DPRC+25
RADIC LOCATN+2*, LOCATN+5!
RADIC("A" LOCATN+3*
RADIC("B" LOCATN+4*
RADIC(0 LOCATN+2*
RADIV Q!, ENDIS+6*, ENDIS+7*, ENDIS+8, ENDIS+15!
RADIV(0 ENDIS+5*, ENDIS+6
RADIVPAR Q!, ENDIS+8*, ENDIS+15!
RADPT0 Q!, DISORD*, ENDIS+15!
RADTI Q!, ENDIS+3*, ENDIS+15!, DPRC+16~, DPRC+17*, DPRC+18*, DPRC+20, DPRC+21, DPRC+22, DPRC+25
RAFLG DPRC+16~, DPRC+17*, DPRC+22*, DPRC+30
RALNE OERR+4*, Q!, HDR+2
RANME RAORD2+5*, Q+1!
RAOFNS RAORD2+6*, Q+1!
RAOIFN OERR+5*, Q+1!, DISORD, DISORD+5, DISORD+20, DISORD+21, ENDIS+1*, ENDIS+3, ENDIS+4, ENDIS+15!
, DPRC~, DPRC+18, DPRC+20, DPRC+25
RAOLP OERR+5*, Q+1!
RAONE RAORD2+7, Q+2!, LOCATN+1*
RAORD0 Q+1!, DISORD*, DISORD+2, DISORD+3, DISORD+6, DISORD+22, DISORD+23, DISORD+25, DISORD+26, DISORD+28
, DISORD+29, ENDIS+1*, ENDIS+2, ENDIS+5, ENDIS+9, ENDIS+10, ENDIS+11, ENDIS+12, ENDIS+13, ENDIS+15!
RAORDS RAORD2+15, Q+1!
RAORDS( OERR+5
RAORDS(1 OERR+2*
RAOSTS Q+1!, ENDIS+15!
RAOSTSYM OERR+4*, Q+1!, DISORD+22
RAOVSTS RAORD2+6*, Q+1!
RAPARENT Q+3!
RAPKG OERR+4*, Q+1!, ENDIS+1, ENDIS+4, ENDIS+15
RAPRC DPRC+25~*, DPRC+26
RAQUIT RAORD2+6, Q+2!
RASSN Q+2!, DISORD*, HDR+2
RAUTIL LOCATN+4*, LOCATN+5!
RAX OERR+4*, OERR+5, OERR+7, Q+2!
RAZPRC0 DISORD+2*, DISORD+3, DISORD+4!
U OERR+5, DISORD+2, DISORD+3, DISORD+6, DISORD+7, DISORD+8, DISORD+9, DISORD+11, DISORD+13, DISORD+14
, DISORD+15, DISORD+20, DPRC+23
VA200 Q+2!, DISORD+27*
VAERR Q+2!
VAIP Q+2!
VAIP(1 DISORD+27
VAIP(6 DISORD+27
X RAORD2+10*, RAORD2+11*, RAORD2+12, Q+2!, DISORD+28*, ENDIS+15!, LOCATN+5!, LOC1+3~*, LOC1+7*, LOC1+9
XQADATA RAORD2+2!, OERR+1, OERR+2, OERR+3
XQAID OERR+7!, Q+2!
XQAKILL OERR+7!
XQALERT Q+2!
>> XQORNOD(0 ENDIS+14
Y RAORD2+4, RAORD2+5, Q+2!, ENDIS+9*, ENDIS+10*, ENDIS+11*, ENDIS+12*, ENDIS+15!, LOCATN+5!, LOC1+3~
, LOC1+5*, LOC1+6, LOC1+7, HDR+2*
Y(0 LOC1+6*
Y(1 LOC1+6*, LOC1+7
Y(44 LOC1+7*
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