Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
DISP ;Display list of common procedures - called from RAORD1
DISP1
DISPQ
LOOKUP ;Lookup procedure - called from RAORD1
Q
HELP ; Called from ADDORD1^RAORD1
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
TOTAL
GET(DA) ;Get the IEN for the procedure. Used in input transform
EOS() ; End of screen message, 'Press return to continue'
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

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
  • Variable: X
  • Timeout: 3
  • 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
  • Variable: RAJUNK
  • Timeout: DTIME
  • 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
  • Formatting: !!?5
  • Prompt: "Press return to continue "
  • Variable: X
  • Timeout: DTIME
  • Line Location: EOS+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71 - [#71] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call