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

Caller Graph Total: 5

Package	Total	Caller Graph
Radiology Nuclear Medicine	4	RA ORDERDISPLAY RAORD3 RAORD5 RAORR
IHS View Patient Record	1	BVPRP

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

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

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

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*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAORD2

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: