Routine: RAPROD

Package	Total	Call Graph
Radiology Nuclear Medicine	11	$$BASICMOD^RACPTMSC $$PRCCPT^RADD1 $$CM^RADEM1 ($$SSANVAL,$$USESSAN)^RAHLRU1 $$RSTAT^RAO7PC1A ^RAPROD1 (PHARM,RDIO)^RAPROD2 $$DPROC^RAUTL15 MODS^RAUTL2 $$EOS^RAUTL5 $$PTSEX^RAUTL8
VA Fileman	5	UPDATE^DIE ^DIK $$GET1^DIQ ^DIR ^DIWP

Package	Total	Caller Graph
Radiology Nuclear Medicine	7	RA SET PREFERENCE LONG DISPLAY RAEDCN1 RAPROQ RAPROS RART3 RARTR3 RASTED

Entry Points

Name	Comments	DBIA/ICR reference
SETL	;Set long display preference
LIST	;
LDIS	; See if user prefers Long Display of Procedures
DEL150	;Delete user ien from 1st record in file 79's field 150 ; note: DIK utility looks for DA(1) here
PRCCPT	; display Proc's abbrv, proc type, CPT
START
STUF150	;Stuff user ien into 1st record in file 79's field 150
CDIS	; set up RACDIS array to store 1st non-duplicate proc+pmod+cptmod
VIEW

External References

Name	Field # of Occurrence
UPDATE^DIE	STUF150+5
^DIK	DEL150+7
$$GET1^DIQ	START+9, VIEW+30
^DIR	SETL+10, SETL+20
^DIWP	VIEW+47
$$BASICMOD^RACPTMSC	VIEW+37
$$PRCCPT^RADD1	PRCCPT+5
$$CM^RADEM1	VIEW+46
$$SSANVAL^RAHLRU1	VIEW+5
$$USESSAN^RAHLRU1	VIEW+7, VIEW+8
$$RSTAT^RAO7PC1A	START+3
^RAPROD1	VIEW+60
PHARM^RAPROD2	VIEW+55
RDIO^RAPROD2	VIEW+57
$$DPROC^RAUTL15	START+8
MODS^RAUTL2	VIEW+34, CDIS+7
$$EOS^RAUTL5	VIEW+37, VIEW+39
$$PTSEX^RAUTL8	VIEW+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: VIEW+0
Function Call: WRITE	Prompt: X Line Location: VIEW+0
Function Call: WRITE	Prompt: !?2,"Name : ",RANME," ",RASSN Line Location: VIEW+1
Function Call: WRITE	Prompt: !?2,"Division : ",$E(RA("DIV"),1,20),?40,"Category : ",RA("CAT") Line Location: VIEW+2
Function Call: WRITE	Prompt: !?2,"Location : ",$S($D(^SC(+RA("LOC"),0)):$P(^(0),"^"),1:"Unknown"),?40,"Ward : ",$E(RA("WRD"),1,24) Line Location: VIEW+3
Function Call: WRITE	Prompt: !?2,"Exam Date : ",RADATE,?40,"Service : ",$E(RA("SERV"),1,24) Line Location: VIEW+4
Function Call: WRITE	Prompt: !?2,"Case No. : ",RACNDSP Line Location: VIEW+7
Function Call: WRITE	Prompt: ?40,"Bedsection : ",$E(RA("BED"),1,24) Line Location: VIEW+7
Function Call: WRITE	Prompt: !?2,"Case No. : ",RACN Line Location: VIEW+8
Function Call: WRITE	Prompt: ?40,"Bedsection : ",$E(RA("BED"),1,24) Line Location: VIEW+8
Function Call: WRITE	Prompt: !?40,"Clinic : ",$E(RA("CL"),1,24) Line Location: VIEW+9
Function Call: WRITE	Prompt: !?40,$E($S("C"=Y:"Contract : "_RA("CONT"),"S"=Y:"Sharing : "_RA("CONT"),"R"=Y:"Research : "_RA("REA"),1:""),1,38) Line Location: VIEW+10
Function Call: WRITE	Prompt: ! Condition for execution: $X>1 Line Location: VIEW+11
Function Call: WRITE	Prompt: X Line Location: VIEW+11
Function Call: WRITE	Prompt: !?2,"Registered : ",$E(RAPRC,1,60) Line Location: VIEW+12
Function Call: WRITE	Prompt: !?2,"Requesting Phy: ",$E(RA("PHY"),1,20),?40,"Exam Status : ",$S($D(^RA(72,RAST,0)):$E($P(^(0),"^"),1,24),1:"") Line Location: VIEW+15
Function Call: WRITE	Prompt: !?2,"Int'g Resident: ",$E(RA("RES"),1,20),?40,"Report Status: ",$E(RA("RST"),1,21) Line Location: VIEW+16
Function Call: WRITE	Prompt: !?2,"Pre-Verified : ",$E($S($D(^VA(200,RAPREVER,0)):$P(^(0),"^",1),1:"NO"),1,20),?40,"Cam/Equip/Rm : ",$E(RA("RM"),1,20) Line Location: VIEW+18
Function Call: WRITE	Prompt: !?2,"Int'g Staff : ",$E(RA("STAFF"),1,20),?40,"Diagnosis : ",$E(RA("DIA"),1,24) Line Location: VIEW+19
Function Call: WRITE	Prompt: !?2,"Technologist : ",$E(RA("TECH"),1,20),?40,"Complication : ",$E(RA("CMP"),1,24) Line Location: VIEW+20
Function Call: WRITE	Prompt: ?18,$E(RA("COMP"),I,I+59) Line Location: VIEW+21
Function Call: WRITE	Prompt: ! Line Location: VIEW+23
Function Call: WRITE	Prompt: ?55,$S($D(^RA(78.4,+$P(X,"^"),0)):$P(^(0),"^"),1:"Unknown")," - ",+$P(X,"^",2),! Line Location: VIEW+31
Function Call: WRITE	Prompt: ! Condition for execution: $X>1 Line Location: VIEW+32
Function Call: WRITE	Prompt: X Line Location: VIEW+32
Function Call: WRITE	Prompt: "Modifiers" Line Location: VIEW+33
Function Call: WRITE	Prompt: $E(X,1,32) Line Location: VIEW+33
Function Call: WRITE	Prompt: ?18,$P(Y,", ",I),! Line Location: VIEW+34
Function Call: WRITE	Prompt: !?2,"CPT Modifiers : " Line Location: VIEW+36
Function Call: WRITE	Prompt: Y(1),! Condition for execution: Y(1)="None" Line Location: VIEW+36
Function Call: WRITE	Prompt: ?18,$P(J,"^",2)," ",$P(J,"^",3),! Line Location: VIEW+37
Function Call: WRITE	Prompt: @IOF Line Location: VIEW+37
Function Call: WRITE	Prompt: @IOF Line Location: VIEW+37
Function Call: WRITE	Prompt: @IOF Line Location: VIEW+39
Function Call: WRITE	Prompt: ! Line Location: VIEW+39
Function Call: WRITE	Prompt: ! Line Location: VIEW+55
Function Call: WRITE	Prompt: ! Line Location: VIEW+57
Function Call: WRITE	Prompt: ! Condition for execution: $X>1 Line Location: VIEW+59
Function Call: WRITE	Prompt: X Line Location: VIEW+59
Function Call: WRITE	Prompt: ?54,RADISPLY Line Location: PRCCPT+6
Function Call: WRITE	Prompt: !!,"Your preference for Long Display of Procedures has already been set." Line Location: SETL+5
Function Call: WRITE	Prompt: ! Line Location: SETL+14
Function Call: WRITE	Prompt: !!,"Your preference for Long Display of Procedures has been removed.",! Line Location: DEL150+9
Function Call: WRITE	Prompt: !!,"Your preference for Long Display of Procedures has been set.",! Line Location: STUF150+6
Routine Call	DIE Line Location: STUF150+5
Routine Call	DIR Line Location: SETL+10 SETL+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RAO(75.1 - [#75.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	VIEW+15
^RA(78.4 - [#78.4]	VIEW+31
^RA(79 - [#79]	SETL+2, SETL+3, DEL150+3, DEL150+5, STUF150+2, LDIS+2, LDIS+3
^RADPT - [#70]	START, START+1, VIEW+29, VIEW+31, VIEW+43, VIEW+55, VIEW+57, PRCCPT+4, CDIS+5
^RAMIS(71 - [#71]	PRCCPT+4
^RARPT - [#74]	VIEW+17
^SC - [#44]	VIEW+3
^UTILITY($J	VIEW+48, VIEW+49, VIEW+50, VIEW+52!
^VA(200 - [#200]	START+1, VIEW+18

Label References

Name	Line Occurrences
DEL150	SETL+12
LDIS	CDIS+3
PRCCPT	VIEW+12
STUF150	SETL+22

Naked Globals

Name	Field # of Occurrence
^(	START+1, VIEW+31, CDIS+5
^("COMP"	START
^("P"	START
^("R"	START
^(0	START+1, START+4, VIEW+3, VIEW+15, VIEW+18, VIEW+31, VIEW+57

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	DEL150+5*, DEL150+6, DEL150+8!
DA(1	DEL150+3*, DEL150+4, DEL150+5
DIK	DEL150+4*, DEL150+8!
DIR	SETL+1~
DIR("?"	SETL+7, SETL+8, SETL+9, SETL+17, SETL+18, SETL+19
DIR("A"	SETL+6, SETL+15, SETL+16*
DIR("B"	SETL+6, SETL+16
DIR(0	SETL+6, SETL+15
DIWF	VIEW+45~, VIEW+46*
DIWL	VIEW+45~, VIEW+46*, VIEW+48, VIEW+49, VIEW+50
DIWR	VIEW+45~
DIWT	VIEW+45~
DT	VIEW+37
DUZ	SETL+3, DEL150+2, DEL150+5, STUF150+1, STUF150+4, LDIS+3
>> I	START+4, VIEW+21, VIEW+31, VIEW+34, VIEW+37*
IOF	VIEW, VIEW+37, VIEW+39
IOSL	VIEW+37, VIEW+39
J	VIEW+35~, VIEW+37*
N1	CDIS+1~, CDIS+4, CDIS+5, CDIS+6, CDIS+8
N2	CDIS+1~, CDIS+9*, CDIS+10, CDIS+11
R1	CDIS+1~, CDIS+5*, CDIS+6
>> RA("BED"	VIEW+7, VIEW+8
>> RA("CAT"	START+2*, VIEW+2, VIEW+10
>> RA("CL"	VIEW+9
>> RA("CMP"	VIEW+20
>> RA("COMP"	START*, VIEW+21
>> RA("CONT"	VIEW+10
>> RA("DIA"	VIEW+19
>> RA("DIV"	VIEW+2
>> RA("LOC"	VIEW+3
>> RA("PHY"	VIEW+15
>> RA("REA"	START*, VIEW+10
>> RA("RES"	VIEW+16
>> RA("RM"	VIEW+18
>> RA("RST"	START+3*, VIEW+16
>> RA("SERV"	VIEW+4
>> RA("STAFF"	VIEW+19
>> RA("TECH"	START+1*, VIEW+20
>> RA("WRD"	VIEW+3
RA1	SETL+1~, SETL+2, SETL+3, STUF150+2, STUF150+4, LDIS+1~, LDIS+2*, LDIS+3
RA2	SETL+1~, SETL+3*, SETL+4
RA71	CDIS+1~, CDIS+6*, CDIS+8, CDIS+9
RACDIS	CDIS+2!
RACDIS(	CDIS+10*, CDIS+11
RACDIS("B"	CDIS+8*, CDIS+9
RACDIS("RAFLDUP"	CDIS+11*
>> RACM	VIEW+44*
>> RACN	VIEW+6, VIEW+8
RACNDSP	VIEW+5~, VIEW+6*, VIEW+7
>> RACNI	START, START+1, START+8, VIEW+5, VIEW+29, VIEW+31, VIEW+43, VIEW+46, VIEW+55, VIEW+57 , PRCCPT+1, PRCCPT+4, CDIS+6*
>> RADATE	VIEW+4
>> RADFN	START, START+1, START+8, VIEW+5, VIEW+27, VIEW+29, VIEW+31, VIEW+43, VIEW+46, VIEW+55 , VIEW+57, PRCCPT+4, CDIS+5
>> RADI	START*
RADISPLY	PRCCPT+3~, PRCCPT+4, PRCCPT+5, PRCCPT+6
>> RADTI	START, START+1, START+8, VIEW+5, VIEW+29, VIEW+31, VIEW+43, VIEW+46, VIEW+55, VIEW+57 , PRCCPT+1, PRCCPT+4, CDIS+5
RAFDA	STUF150+3!
RAFDA(	STUF150+4*
RAFL	VIEW+31!
RAIEN	STUF150+3!
>> RALDIS	LDIS+3*
RAMSG	STUF150+3!
>> RANME	VIEW+1
RAOPRC	START+6~, START+9*, VIEW+14
RAOR751	VIEW+29~*, VIEW+30
>> RAPRC	VIEW+12
RAPREVER	VIEW+17*, VIEW+18!
>> RARPT	VIEW+17
RASSAN	VIEW+5~*, VIEW+6
>> RASSN	VIEW+1
>> RAST	VIEW+15
RAXIT	VIEW+37, VIEW+38, VIEW+39, VIEW+40, VIEW+56!, VIEW+58!
U	START+8, VIEW+29, PRCCPT+4, CDIS+6
X	START+2, VIEW!, VIEW+11!, VIEW+31, VIEW+32, VIEW+33!, VIEW+45~, VIEW+46, VIEW+59*!
Y	START+4, VIEW+10, VIEW+34, SETL+11, SETL+21, CDIS+1~, CDIS+8, CDIS+9
Y(0	START+2, START+8, START+9
Y(1	VIEW+36, VIEW+37, CDIS+8, CDIS+9
Y(2	VIEW+37
Z	VIEW+45~, VIEW+47, VIEW+48, VIEW+49, VIEW+50

Marked Items

Name	Field # of Occurrence
$T(LIST+I	START+4

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPROD

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items