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 |  All
Print Page as PDF
Routine: RAPRI

Package: Radiology Nuclear Medicine

Routine: RAPRI


Information

RAPRI ;HISC/CAH,GJC AISC/DMK-Display Common Procedures ;3/12/98 11:26

Source Information

Source file <RAPRI.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 5 ^DIC  DQ^DICQ  ^DIR  ^DIWP  ^DIWW  
Radiology Nuclear Medicine 4 $$EOS^RAPRI  EN1^RAUTL17  ORDPRC1^RAUTL2  $$DIVSION^RAUTL6  
Kernel 2 HOME^%ZIS  $$UP^XLFSTR  
Order Entry Results Reporting 1 READ^ORUTL  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Radiology Nuclear Medicine 5 RA DISPLAY COMMON PROCEDURES  RACTOE  RACTQE  RAORD1  RAPRI  

Entry Points

Name Comments DBIA/ICR reference
DISP ;Display list of common procedures - called from RAORD1
HELP ; Called from ADDORD1^RAORD1
BROAD() ; Checks if the 'Detailed Procedure Required' field on the Rad/Nuc Med
; Division file is 'yes', and the procedure type is 'Broad'.
; Variables: Y-the ien of the procedure in file 71
; RALIFN-ien of patient location in file 44 (set in RAORD1)
; Return: 0 if invalid procedure, 1 if valid procedure
Q
DISPQ
EN2 ;Rad/Nuc Med Procedure Message Display
; Quit if you've seen these messages before. Value altered in the
; following routines: ADDORD+1^RAORD1 & DISP+12^RAORDU1
LOOKUP ;Lookup procedure - called from RAORD1
DISP1
TOTAL
EOS() ; End of screen message, 'Press return to continue'
GET(DA) ;Get the IEN for the procedure. Used in input transform

External References

Name Field # of Occurrence
HOME^%ZIS DISP1+1
^DIC LOOKUP+11
DQ^DICQ HELP+7
^DIR Q+7, HELP+12
^DIWP EN2+23
^DIWW EN2+27
READ^ORUTL EOS+6
$$EOS^RAPRI EN2+12, EN2+22, EN2+26
EN1^RAUTL17 DISP+1
ORDPRC1^RAUTL2 Q+4
$$DIVSION^RAUTL6 BROAD+5
$$UP^XLFSTR EN2+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP1+1
Function Call: WRITE
  • Prompt: !?80-$L(X)\2,X,!?80-$L(X)\2,$TR($J("",$L(X))," ","-")
  • Line Location: DISP1+2
Function Call: WRITE
  • Prompt: !?1,I,") ",$P(RAPRC(I),"^")
  • Condition for execution: RAPRC(I)]""
  • Line Location: DISP1+5
Function Call: WRITE
  • Prompt: ?44,(I+RASEQ),") ",$P(RAPRC(I+RASEQ),"^")
  • Line Location: DISP1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOKUP+8
Function Call: READ
  • Timeout: 3
  • Variable: X
  • Line Location: Q+6
Function Call: WRITE
  • Prompt: !!,*7,"Unable to process this request due to an invalid procedure.",!
  • Line Location: Q+6
Function Call: WRITE
  • Prompt: !!?2,"To select a commonly ordered procedure, enter a number from the display above."
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !!?2,"To select procedures other than those listed above, enter the procedure name,",!?2,"synonym, or CPT number.",!!?2,"You may enter a single procedure or multiple procedures separated by commas."
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !?2,"To see a list of all selectable procedures, enter '??'.",!
  • Line Location: HELP+11
Function Call: WRITE
  • Prompt: !!,*7,"NOTE: The following special requirements apply to this procedure: ",RAPRI("X"),!
  • Line Location: EN2+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN2+12
Function Call: WRITE
  • Prompt: !,X
  • Line Location: EN2+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN2+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN2+26
Function Call: READ
  • Timeout: DTIME
  • Variable: RAJUNK
  • Line Location: EN2+30
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+30
Function Call: WRITE
  • Prompt: !,"Press RETURN to continue"
  • Line Location: EN2+30
Function Call: READ
  • Prompt: "Press return to continue "
  • Formatting: !!?5
  • Timeout: DTIME
  • Variable: X
  • Line Location: EOS+3
Routine Call
  • %ZIS
  • Line Location:
    • DISP1+1
Routine Call
  • DIC
  • Line Location:
    • LOOKUP+11
Routine Call
  • DIR
  • Line Location:
    • Q+7
    • HELP+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71 - [#71] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79 - [#79] BROAD+5
^RA(79.2 - [#79.2] DISP1+2
^RAMIS(71 - [#71] Q, Q+2, EN2+6, EN2+9, EN2+10, EN2+17, EN2+18, EN2+21, EN2+23, TOTAL+2
, BROAD+5
^RAMIS(71.3 - [#71.3] DISP1, TOTAL+2
^RAMIS(71.4 - [#71.4] EN2+11, EN2+13
^RAO(75.1 - [#75.1] GET+2
^UTILITY($J EN2+20!

Label References

Name Line Occurrences
$$BROAD LOOKUP+7
DISPQ DISP+1, DISP1
EN2 Q+2
Q LOOKUP+7
TOTAL DISP1+4

Naked Globals

Name Field # of Occurrence
^( TOTAL+2
^(0 TOTAL+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D HELP+3~*
DA GET~, GET+2
DIC LOOKUP+8~*, HELP+3~, HELP+6*
DIC("S" LOOKUP+9*, LOOKUP+10*, LOOKUP+11!, HELP+6*
DIC("W" HELP+7*
DIC(0 LOOKUP+8*, HELP+6*
DIR Q+7!, HELP+12!
DIR("A" Q+7*
DIR(0 Q+7*, HELP+12*
DISYS DISPQ!
DIW EN2+19~
DIWF EN2+19~, EN2+20*
DIWL EN2+19~, EN2+20*
DIWR EN2+19~, EN2+20*
>> DR EN2+30
DT BROAD+5
DTIME EN2+30, EOS+3
DZ HELP+3~, HELP+6*
I DISP1+3*, DISP1+5*, DISPQ!, EN2+7~*, EN2+9*, EN2+10, TOTAL~, TOTAL+1*, TOTAL+2*
II DISP1+3*, DISPQ!
IOF DISP1+1, EN2+5, EN2+12, EN2+22, EN2+26
IOSL EN2+12, EN2+22, EN2+26, EN2+30
J TOTAL~
K TOTAL~, TOTAL+1*, TOTAL+2*
L TOTAL~, TOTAL+1*
POP DISPQ!
>> RACNT DISP1*, LOOKUP+7, TOTAL+1*, TOTAL+2*, TOTAL+3, TOTAL+4
>> RADFN Q+3
RADIC HELP+3~
RADIC("S" HELP+4*, HELP+6
RADIC("S1" HELP+5*, HELP+6
>> RAIMGTYI DISP+1*, DISP1, DISP1+2, TOTAL+2
>> RAJ Q+6
RAJUNK EN2+30*!
>> RALIFN BROAD+5
>> RAOUT Q+7*
>> RAPKG EOS+2
>> RAPRC( DISP1+3*, DISP1+5, LOOKUP+7, TOTAL+2*
>> RAPRI Q*, Q+1, Q+2, Q+6, EN2+6, EN2+9, EN2+10, EN2+17, EN2+18, EN2+21
, EN2+23
>> RAPRI("X" Q*, EN2+8
>> RAREASK Q+6*
>> RARX Q+6, HELP+1
>> RAS3 Q+3*
RASEQ DISP1+5, DISPQ!, TOTAL+3*, TOTAL+4*
>> RASTOP EN2+4*
RAX EN2+7~, EN2+10*, EN2+11, EN2+13, EN2+19~, EN2+20*, EN2+21*, EN2+23
RAXIT EN2+5~*, EN2+9, EN2+12*, EN2+21, EN2+22*, EN2+25, EN2+26*, EN2+27, EN2+29
U DISP1+2, GET+2
X DISP1+2*, LOOKUP+7, LOOKUP+11, Q*, Q+1, Q+6*, EN2+7~, EN2+13*, EN2+19~, EN2+23*
, EOS+1~, EOS+3*, EOS+6*, EOS+8
Y DISP+1, LOOKUP+7*, LOOKUP+8~, LOOKUP+11*, Q, Q+7, BROAD+5
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 |  All