Routine: RAORD6

Package	Total	Call Graph
Radiology Nuclear Medicine	10	ODX^RABWUTL EXAM^RADEM1 EN30^RAO7PC1 USERCAN^RAORD3 $$ID^RAORD6 TC^RAORD61 D^RAUTL DIWP^RAUTL5 $$PTSEX^RAUTL8 OUTTEXT^RAUTL9
VA Fileman	3	^%DT ^DIWP ^DIWW
Kernel	2	(PKILL,PSET)^%ZISP $$UP^XLFSTR

Package	Total	Caller Graph
Radiology Nuclear Medicine	6	RABTCH RAORD RAORD4 RAORD5 RAORD6 RAORD61

Entry Points

External References

Name	Field # of Occurrence
^%DT	HD+2
PKILL^%ZISP	BAR+5
PSET^%ZISP	BAR+4
^DIWP	RAORD6+67, CONT+4
^DIWW	RAORD6+70, CONT+5
ODX^RABWUTL	CONT
EXAM^RADEM1	DASHLN+3
EN30^RAO7PC1	TC
USERCAN^RAORD3	RAORD6+107
$$ID^RAORD6	RAORD6+88, RAORD6+93
TC^RAORD61	TC
D^RAUTL	HD+2, HD+6
DIWP^RAUTL5	CONT+3
$$PTSEX^RAUTL8	RAORD6+13
OUTTEXT^RAUTL9	RAORD6+54
$$UP^XLFSTR	ID+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Requested:",?18,RA("PRC INFO") Line Location: RAORD6+30
Function Call: WRITE	Prompt: !,"Registered:" Line Location: RAORD6+38
Function Call: WRITE	Prompt: ! Condition for execution: RA18NLIN Line Location: RAORD6+41
Function Call: WRITE	Prompt: ?12,RAT Line Location: RAORD6+41
Function Call: WRITE	Prompt: !?12," The requested procedure has contrast media assigned " Line Location: RAORD6+45
Function Call: WRITE	Prompt: !?12," A registered procedure uses contrast media " Line Location: RAORD6+46
Function Call: WRITE	Prompt: !,"Procedure Message: ",! Line Location: RAORD6+49
Function Call: WRITE	Prompt: !,"Request Status:",?22,$E(RA("OST"),1,24) Line Location: RAORD6+58
Function Call: WRITE	Prompt: !,"Reason ",$S($P(RAORD0,"^",5)=1:"Cancelled",1:"Held"),":" Line Location: RAORD6+60
Function Call: WRITE	Prompt: ?22,$S($D(^RA(75.2,+$P(RAORD0,"^",10),0)):$E($P(^(0),"^"),1,50),$P(RAORD0,"^",27)]"":$E($P(RAORD0,"^",27),1,50),1:"UNKNOWN") Line Location: RAORD6+61
Function Call: WRITE	Prompt: !,"Hold Description:",! Line Location: RAORD6+66
Function Call: WRITE	Prompt: !!,?(IOM-(IOM/2+15)),"********************",!,?(IOM-(IOM/2+15))," C A N C E L L E D ",!,?(IOM-(IOM/2+15)),"********************" Line Location: RAORD6+73
Function Call: WRITE	Prompt: !!,"Requester:",?22,$E(RA("PHY"),1,20) Line Location: RAORD6+77
Function Call: WRITE	Prompt: !,"Attend Phy Current:",?22,$E(RA("ATTEN"),1,20) Line Location: RAORD6+80
Function Call: WRITE	Prompt: !,"Prim Phy Current:",?22,$E(RA("PRIM"),1,20) Line Location: RAORD6+83
Function Call: WRITE	Prompt: !,"Attend Phy At Order:",?22,$E(RA("OATTEN"),1,20) Line Location: RAORD6+89
Function Call: WRITE	Prompt: !,"Prim Phy At Order:",?22,$E(RA("OPRIM"),1,20) Line Location: RAORD6+94
Function Call: WRITE	Prompt: !,"Approved by: ",?22,RAPPRAD Line Location: RAORD6+102
Function Call: WRITE	Prompt: !,"Date/Time Ordered:",?22,$S($D(RA("ODT")):RA("ODT"),1:"")," by ",$E(RA("USR"),1,20) Line Location: RAORD6+105
Function Call: WRITE	Prompt: !!!?49,@IOBARON,X3,@IOBAROFF,! Line Location: BAR+4
Function Call: WRITE	Prompt: ! Line Location: CONT+3
Function Call: WRITE	Prompt: ! Line Location: CONT+6
Function Call: WRITE	Prompt: ! Line Location: CONT+6
Function Call: WRITE	Prompt: !,RALNE,!,"Date Performed: ________________________",?46 Line Location: WORK+0
Function Call: WRITE	Prompt: "Case No.: ______________________" Line Location: WORK+1
Function Call: WRITE	Prompt: "Case No.: ______see above_______" Line Location: WORK+2
Function Call: WRITE	Prompt: !,"Technologist Initials: _________________" Line Location: WORK+4
Function Call: WRITE	Prompt: !?46,"Number/Size Films: _____________",!,"Interpreting Phys. Initials: ___________",?65,"_____________",!?65,"_____________",! Line Location: WORK+6
Function Call: WRITE	Prompt: !,"Comments:" Line Location: WORK+8
Function Call: WRITE	Prompt: ! Line Location: DASHLN+0
Function Call: WRITE	Prompt: !,RALNE Line Location: DASHLN+0
Function Call: WRITE	Prompt: !,RALNE1 Line Location: DASHLN+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HD+2
Function Call: WRITE	Prompt: !?RATAB,">>"_$S($D(RACRHD):"Discontinued ",1:"")_"Rad/NM Consultation" Line Location: HD+2
Function Call: WRITE	Prompt: " for ",$E(RA("ILC"),1,17) Condition for execution: $D(RA("ILC")) Line Location: HD+2
Function Call: WRITE	Prompt: "<<Printed:" Line Location: HD+2
Function Call: WRITE	Prompt: "<<Printed:" Line Location: HD+2
Function Call: WRITE	Prompt: ?71,"Page ",RAPGE Line Location: HD+3
Function Call: WRITE	Prompt: !,RALNE1,!,"Name : ",RA("NME"),?46,"Urgency : ",RA("OUG") Line Location: HD+4
Function Call: WRITE	Prompt: " PORTABLE" Condition for execution: $D(RA("PORTABLE")) Line Location: HD+4
Function Call: WRITE	Prompt: !,"Pt ID Num : ",RASSN,?46,"Transport : ",RA("TRAN") Line Location: HD+5
Function Call: WRITE	Prompt: !,"Date of Birth: ",Y,?46,"Patient Loc: ",$E(RA("HLC"),1,20) Line Location: HD+6
Function Call: WRITE	Prompt: !,"Age at req : ",RA("AGE"),?46,"Phone Ext : ",RA("HPH") Line Location: HD+8
Function Call: WRITE	Prompt: ?46,"Room-Bed : ",RA("ROOM-BED") Condition for execution: $D(RA("ROOM-BED")) Line Location: HD+11
Function Call: WRITE	Prompt: !,RALNE1 Line Location: HD+11
Function Call: WRITE	Prompt: !,"Sex : ",$S(RA("SEX")="M":"MALE",RA("SEX")="F":"FEMALE",1:"UNKNOWN") Line Location: HD+12
Function Call: WRITE	Prompt: ?46,"Room-Bed : ",RA("ROOM-BED") Condition for execution: $D(RA("ROOM-BED")) Line Location: HD+12
Function Call: WRITE	Prompt: !,RALNE1 Line Location: HD+12
Function Call: READ	Timeout: DTIME Variable: X Line Location: CRCHK+0
Function Call: WRITE	Prompt: !!,$C(7),"Press RETURN to continue or '^' to stop " Line Location: CRCHK+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(75.2 - [#75.2]	RAORD6+61
^RADPT - [#70]	RAORD6+23, RAORD6+24
^RADPT("AO"	RAORD6+17, RAORD6+19, RAORD6+21, WORK+1
^RAMIS(71 - [#71]	RAORD6+50, RAORD6+51
^RAMIS(71.4 - [#71.4]	RAORD6+52
^RAO(75.1 - [#75.1]	RAORD6+63, RAORD6+67, CONT+4
^TMP($J	RAORD6+32, RAORD6+39
^UTILITY($J	RAORD6+65!, CONT+4!
^VA(200 - [#200]	RAORD6+100, RAORD6+101, ID+8

Label References

Name	Line Occurrences
CONT	BAR+1
CRCHK	HD
HD	RAORD6+9, RAORD6+40, RAORD6+55, RAORD6+62, RAORD6+67, RAORD6+69, RAORD6+71, RAORD6+76, RAORD6+79, RAORD6+82 , RAORD6+87, RAORD6+104, RAORD6+108, CONT, CONT+1, CONT+4, CONT+5, WORK+3, WORK+5, WORK+7 , DASHLN, DASHLN+3
WORK	CONT+5

Naked Globals

Name	Field # of Occurrence
^(	RAORD6+67, CONT+4
^(0	RAORD6+61, CONT+4
^(1	CONT+4!
^(20	RAORD6+100

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	HD+2*!
A	RAORD6+49~, RAORD6+50, RAORD6+51, ID+8~*, ID+9
B	RAORD6+49~, RAORD6+51, RAORD6+52, ID+8~, ID+9
BOT	CONT+6*, CONT+7!
BT	CONT+6*, CONT+7!
C	RAORD6+49~, RAORD6+53, RAORD6+55
>> DDBRZIS	CONT+6
DTIME	CRCHK
I	RAORD6+64~, RAORD6+67, DASHLN
>> IOBAROFF	BAR+4
>> IOBARON	BAR+4
IOF	HD+2
IOM	RAORD6+73
IOSL	RAORD6+40, RAORD6+55, RAORD6+62, RAORD6+67, RAORD6+69, RAORD6+71, RAORD6+76, RAORD6+79, RAORD6+82, RAORD6+87 , RAORD6+104, RAORD6+108, CONT, CONT+1, CONT+4, CONT+5, CONT+6, WORK+3, WORK+5, WORK+7 , DASHLN, DASHLN+3
IOST	CONT+6, CRCHK
R3	RAORD6+23~*, RAORD6+25, RAORD6+26
>> RA("AGE"	HD+8
>> RA("APHOINFO"	RAORD6+81
>> RA("ATTEN"	RAORD6+80, RAORD6+81, RAORD6+86
>> RA("DOB"	HD+6
>> RA("HLC"	HD+6
>> RA("HPH"	HD+8
>> RA("ILC"	HD, HD+2
>> RA("MOD"	RAORD6+47
>> RA("NME"	HD+4
>> RA("OAPHOINFO"	RAORD6+90
>> RA("OATTEN"	RAORD6+86, RAORD6+89, RAORD6+90
>> RA("ODT"	RAORD6+105
>> RA("OPPHOINFO"	RAORD6+95
>> RA("OPRIM"	RAORD6+92, RAORD6+94, RAORD6+95
>> RA("OST"	RAORD6+58
>> RA("OUG"	HD+4
>> RA("PDT"	RAORD6+109
>> RA("PHY"	RAORD6+77, RAORD6+78
>> RA("PORTABLE"	HD+4
>> RA("PPHOINFO"	RAORD6+84
>> RA("PRC INFO"	, RAORD6+30
>> RA("PRC MSG"	RAORD6+48
>> RA("PRIM"	RAORD6+83, RAORD6+84, RAORD6+92
>> RA("RDT"	RAORD6+106
>> RA("ROOM-BED"	HD+12
>> RA("RPHOINFO"	RAORD6+78
>> RA("SDT"	RAORD6+75
>> RA("SEX"	HD+12
>> RA("ST"	RAORD6+74
>> RA("STY_REA"	CONT+3
>> RA("TRAN"	HD+5
>> RA("USR"	RAORD6+105
>> RA("VDT"	RAORD6+29
RA18NLIN	RAORD6+38~, RAORD6+41, RAORD6+42
RA5	RAORD6+18~, RAORD6+21*, RAORD6+22, RAORD6+23, RAORD6+24
>> RACMFLG("O"	RAORD6+45
>> RACMFLG("R"	RAORD6+46
RACONT	DASHLN+3*!
>> RACRHD	HD+2
>> RADFN	RAORD6+13, RAORD6+17, RAORD6+19, RAORD6+21, RAORD6+23, RAORD6+24
>> RAFOERR	RAORD6+32
RAINVDT	RAORD6+18~, RAORD6+19*, RAORD6+20, RAORD6+21, RAORD6+23, RAORD6+24
>> RALNE	WORK, DASHLN
>> RALNE1	DASHLN+3, HD+4, HD+12
>> RAOIFN	RAORD6+16, RAORD6+17, RAORD6+19, RAORD6+21, RAORD6+63, RAORD6+67, CONT, CONT+4, WORK+1, TC
>> RAOPT("ADDEXAM"	RAORD6+32
>> RAOPT("ORDEREXAM"	RAORD6+32
>> RAOPT("REG"	RAORD6+32
>> RAORD0	RAORD6+15, RAORD6+28, RAORD6+50, RAORD6+51, RAORD6+59, RAORD6+60, RAORD6+61, RAORD6+72, RAORD6+74, RAORD6+75 , RAORD6+98, RAORD6+99, RAORD6+107, HD+14
RAPASS1	RAORD6+85!, RAORD6+86, RAORD6+88, RAORD6+92, RAORD6+93, RAORD6+97!
RAPASS2	RAORD6+85!, RAORD6+86, RAORD6+88, RAORD6+92, RAORD6+93, RAORD6+97!
RAPCOMM	RAORD6+23~, RAORD6+24*, RAORD6+26
>> RAPGE	HD, HD+3, CRCHK
RAPPRAD	RAORD6+99~, RAORD6+100, RAORD6+101*, RAORD6+102
>> RASSN	BAR+1, BAR+2, HD+5
RAT	RAORD6+38~, RAORD6+39, RAORD6+41
>> RATAB	HD*, HD+2
>> RAV	CONT+4*
>> RAX	RAORD6+9, RAORD6+32, RAORD6+39, RAORD6+40, RAORD6+48, RAORD6+50, RAORD6+59, RAORD6+62, RAORD6+63, RAORD6+67 , RAORD6+68, RAORD6+69, RAORD6+71, RAORD6+76, RAORD6+79, RAORD6+82, RAORD6+87, RAORD6+104, RAORD6+108, CONT , CONT+1, CONT+4, CONT+5, WORK+3, WORK+5, WORK+7, TC, DASHLN, DASHLN+3, HD , CRCHK*
RAXX	RAORD6+64~, RAORD6+67, RAORD6+70, CONT+4!, CONT+5
U	RAORD6+25, RAORD6+26, HD+14
X	RAORD6+49~, RAORD6+52, RAORD6+54, RAORD6+64~, RAORD6+67, CONT+4, HD+2, CRCHK*, ID~, ID+6 , ID+7, ID+8
>> X3	BAR+2*, BAR+4
Y	HD+2, HD+6*, ID~, ID+6, ID+7, ID+8
Z	ID+8~, ID+9, ID+10, ID+11

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAORD6

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
CONT
WORK
ID(X,Y)	; Checks for the following condition: ; 1) Attending Phy. Current & Attending Phy. At Order are the same. ; 2) Primary Phy. Current & Primary Phy. At Order are the same. ; Input Variables: ; 'X'-> Attending/Primary Phy. Current ; 'Y'-> Attending/Primary Phy. At Order
CRCHK
DASHLN
BAR	;Print bar-coded SSN on request form if term type has bar code setup
TC
HD