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 |  Marked Items  | All
Print Page as PDF
Routine: RAPROD

Package: Radiology Nuclear Medicine

Routine: RAPROD


Information

RAPROD ;HISC/FPT,GJC AISC/MJK-Detailed Exam View ; 5/9/13 2:02pm

Source Information

Source file <RAPROD.m>

Call Graph

Call Graph

Call Graph Total: 16

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  

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

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
START
VIEW
PRCCPT ; display Proc's abbrv, proc type, CPT
SETL ;Set long display preference
DEL150 ;Delete user ien from 1st record in file 79's field 150
; note: DIK utility looks for DA(1) here
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
LDIS ; See if user prefers Long Display of Procedures
LIST ;

External References

Name Field # of Occurrence
UPDATE^DIE STUF150+5
^DIK DEL150+7
$$GET1^DIQ START+9, VIEW+25
^DIR SETL+10, SETL+20
^DIWP VIEW+42
$$BASICMOD^RACPTMSC VIEW+32
$$PRCCPT^RADD1 PRCCPT+5
$$CM^RADEM1 VIEW+41
$$SSANVAL^RAHLRU1 VIEW+5
$$USESSAN^RAHLRU1 VIEW+7, VIEW+8
$$RSTAT^RAO7PC1A START+3
^RAPROD1 VIEW+55
PHARM^RAPROD2 VIEW+50
RDIO^RAPROD2 VIEW+52
$$DPROC^RAUTL15 START+8
MODS^RAUTL2 VIEW+29, CDIS+10
$$EOS^RAUTL5 VIEW+32, VIEW+34
$$PTSEX^RAUTL8 VIEW+23

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+14
Function Call: WRITE
  • Prompt: !?2,"Int'g Resident: ",$E(RA("RES"),1,20),?40,"Report Status: ",$E(RA("RST"),1,21)
  • Line Location: VIEW+15
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+17
Function Call: WRITE
  • Prompt: !?2,"Int'g Staff : ",$E(RA("STAFF"),1,20),?40,"Diagnosis : ",$E(RA("DIA"),1,24)
  • Line Location: VIEW+18
Function Call: WRITE
  • Prompt: !?2,"Technologist : ",$E(RA("TECH"),1,20),?40,"Complication : ",$E(RA("CMP"),1,24)
  • Line Location: VIEW+19
Function Call: WRITE
  • Prompt: ?18,$E(RA("COMP"),I,I+59)
  • Line Location: VIEW+20
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+22
Function Call: WRITE
  • Prompt: ?55,$S($D(^RA(78.4,+$P(X,"^"),0)):$P(^(0),"^"),1:"Unknown")," - ",+$P(X,"^",2),!
  • Line Location: VIEW+26
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>1
  • Line Location: VIEW+27
Function Call: WRITE
  • Prompt: X
  • Line Location: VIEW+27
Function Call: WRITE
  • Prompt: "Modifiers"
  • Line Location: VIEW+28
Function Call: WRITE
  • Prompt: $E(X,1,32)
  • Line Location: VIEW+28
Function Call: WRITE
  • Prompt: ?18,$P(Y,", ",I),!
  • Line Location: VIEW+29
Function Call: WRITE
  • Prompt: !?2,"CPT Modifiers : "
  • Line Location: VIEW+31
Function Call: WRITE
  • Prompt: Y(1),!
  • Condition for execution: Y(1)="None"
  • Line Location: VIEW+31
Function Call: WRITE
  • Prompt: ?18,$P(J,"^",2)," ",$P(J,"^",3),!
  • Line Location: VIEW+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIEW+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIEW+32
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIEW+34
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+34
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+50
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+52
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>1
  • Line Location: VIEW+54
Function Call: WRITE
  • Prompt: X
  • Line Location: VIEW+54
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+14
^RA(78.4 - [#78.4] VIEW+26
^RA(79 - [#79] SETL+2, SETL+3, DEL150+3, DEL150+5, STUF150+2, LDIS+2, LDIS+3
^RADPT - [#70] START, START+1, VIEW+24, VIEW+26, VIEW+38, VIEW+50, VIEW+52, PRCCPT+4, CDIS+5
^RAMIS(71 - [#71] PRCCPT+4
^RARPT - [#74] VIEW+16
^SC - [#44] VIEW+3
^UTILITY($J VIEW+43, VIEW+44, VIEW+45, VIEW+47!
^VA(200 - [#200] START+1, VIEW+17

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+26, CDIS+5
^("COMP" START
^("P" START
^("R" START
^(0 START+1, START+4, VIEW+3, VIEW+14, VIEW+17, VIEW+26, VIEW+52

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+40~, VIEW+41*
DIWL VIEW+40~, VIEW+41*, VIEW+43, VIEW+44, VIEW+45
DIWR VIEW+40~
DIWT VIEW+40~
DT VIEW+32
DUZ SETL+3, DEL150+2, DEL150+5, STUF150+1, STUF150+4, LDIS+3
>> I START+4*, VIEW+20*, VIEW+26*, VIEW+29*, VIEW+32*
IOF VIEW, VIEW+32, VIEW+34
IOSL VIEW+32, VIEW+34
J VIEW+30~, VIEW+32*
N1 CDIS+1~, CDIS+4*, CDIS+5*, CDIS+6, CDIS+11
N2 CDIS+1~, CDIS+12*, CDIS+13, CDIS+14
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+19
>> RA("COMP" START*, VIEW+20
>> RA("CONT" VIEW+10
>> RA("DIA" VIEW+18
>> RA("DIV" VIEW+2
>> RA("LOC" VIEW+3
>> RA("PHY" VIEW+14
>> RA("REA" START*, VIEW+10
>> RA("RES" VIEW+15
>> RA("RM" VIEW+17
>> RA("RST" START+3*, VIEW+15
>> RA("SERV" VIEW+4
>> RA("STAFF" VIEW+18
>> RA("TECH" START+1*, VIEW+19
>> 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+9, CDIS+11, CDIS+12
RACDIS CDIS+2!
RACDIS( CDIS+13*, CDIS+14
RACDIS("B" CDIS+11*, CDIS+12
RACDIS("RAFLDUP" CDIS+14*
>> RACM VIEW+39*
>> RACN VIEW+6, VIEW+8
RACNDSP VIEW+5~, VIEW+6*, VIEW+7
>> RACNI START, START+1, START+8, VIEW+5, VIEW+24, VIEW+26, VIEW+38, VIEW+41, VIEW+50, VIEW+52
, PRCCPT+1, PRCCPT+4, CDIS+6*
>> RADATE VIEW+4
>> RADFN START, START+1, START+8, VIEW+5, VIEW+23, VIEW+24, VIEW+26, VIEW+38, VIEW+41, VIEW+50
, VIEW+52, PRCCPT+4, CDIS+5
>> RADI START*
RADISPLY PRCCPT+3~, PRCCPT+4*, PRCCPT+5*, PRCCPT+6
>> RADTI START, START+1, START+8, VIEW+5, VIEW+24, VIEW+26, VIEW+38, VIEW+41, VIEW+50, VIEW+52
, PRCCPT+1, PRCCPT+4, CDIS+5
RAFDA STUF150+3!
RAFDA( STUF150+4*
RAFL VIEW+26!
RAIEN STUF150+3!
>> RALDIS LDIS+3*
RAMSG STUF150+3!
>> RANME VIEW+1
RAOPRC START+6~, START+9*, VIEW+13
RAOR751 VIEW+24~*, VIEW+25
>> RAPRC VIEW+12
RAPREVER VIEW+16*, VIEW+17!
>> RARPT VIEW+16
RASSAN VIEW+5~*, VIEW+6
>> RASSN VIEW+1
>> RAST VIEW+14
RAXIT VIEW+32*, VIEW+33, VIEW+34*, VIEW+35, VIEW+51!, VIEW+53!
U START+8, VIEW+24, PRCCPT+4, CDIS+6
X START+2*, VIEW*!, VIEW+11*!, VIEW+26*, VIEW+27*, VIEW+28!, VIEW+40~, VIEW+41*, VIEW+54*!
Y START+4*, VIEW+10*, VIEW+29, SETL+11, SETL+21, CDIS+1~, CDIS+11, CDIS+12
Y(0 START+2, START+8, START+9
Y(1 VIEW+31, VIEW+32, CDIS+11, CDIS+12
Y(2 VIEW+32
Z VIEW+40~, VIEW+42*, VIEW+43*, VIEW+44, VIEW+45

Marked Items

Name Field # of Occurrence
$T(LIST+I START+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 |  Marked Items  | All