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

Package: Radiology Nuclear Medicine

Routine: RAREG4


Information

RAREG4 ;HISC/GJC-Register Patient (cont) ;11/5/97 11:38

Source Information

Source file <RAREG4.m>

Entry Points

Name Comments DBIA/ICR reference
PSETPNT ; Select an active parent printset procedure.
PROCESS ; Process orders, register exams for both parent procedures
; and non-parent procedures.
EXAM1
EXAM2
Q4 ; Unlock the record at the "DT" level, kill variables

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Current procedure for this order is ",$P($G(^RAMIS(71,$P(^RAO(75.1,+RAORDS(RA6),0),U,2),0)),U)
  • Line Location: PSETPNT+3
Function Call: WRITE
  • Prompt: !!?5,"You may replace this with a Printset Parent Procedure",!?5,"of the same imaging type.",!
  • Line Location: PSETPNT+4
Function Call: WRITE
  • Prompt: !!?5,"The selection is invalid.",!,*7
  • Line Location: PSETPNT+11
Function Call: WRITE
  • Prompt: !!?5,"Parent procedures may not be added to this visit.",$C(7)
  • Line Location: PROCESS+5
Function Call: WRITE
  • Prompt: !!?5,"Parent procedure: ",$$PROC^RAREG1(RAPROC)
  • Line Location: PROCESS+8
Function Call: WRITE
  • Prompt: !!?5,"Descendent procedure: ",RAPRC
  • Line Location: PROCESS+15
Function Call: WRITE
  • Prompt: !
  • Line Location: EXAM1+5
Function Call: WRITE
  • Prompt: !!?5,"Procedure: ",$$PROC^RAREG1(RAPROCI)
  • Line Location: EXAM1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EXAM2+5

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