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 ; 06 Oct 2013 11:04 AM

Source Information

Source file <RAPROD.m>

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

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