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

Package: Radiology Nuclear Medicine

Routine: RAREG2


Information

RAREG2 ;HISC/CAH,FPT,DAD,SS AISC/MJK,RMO-Register Patient ;04 Dec 2018 1:05 PM

Source Information

Source file <RAREG2.m>

Entry Points

Name Comments DBIA/ICR reference
ORDER ; Get data from ordered procedure for registration
EXAMLOOP ; register the exam
EXAMDEL ; Delete examset if incomplete
XTRADESC ; Ask extra descendent procedures for a parent
EXAMSET ; Set the EXAM SET field if a parent is registered
MEMSET(RAX,RAY,RAZ) ; Set 'MEMBER OF SET' field on the exam node
; if the procedure is a descendant procedure.
; Var List: RAX <-> RADFN : RAY <-> RADTI : RAZ <-> RACNI
SET17(RAX,RAY,RAZ) ; quad slash piece 17 on exam node
UOSM ; called from RAREG1
; update order status and send OE v3.0 message
; This code will $O through the ^TMP($J,"RAREG1" global and make
; just one call per order/request number to ^RAORDU to update the
; status in File 75.1. One call to ^RAORDU per order/request number
; means only one HL7 type message per order/request will be sent to
; OE v3.0.
CKDUPORD ; ck for dupl procedures in outstanding orders
CKD1
COPYFROM(RAZ) ;called by RAREG1 if add exam shd copy dx/staff/resident

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!?5,"Someone else has already started editing a record for this",!?5,"patient at this time, please try a few minutes later."
  • Line Location: ORDER+11
Function Call: WRITE
  • Prompt: !?3,$C(7),"Exam entry not complete. Must delete..."
  • Line Location: EXAMLOOP+9
Function Call: WRITE
  • Prompt: !!?3,$C(7),"Exam entry not complete. Must delete all descendent exams..."
  • Line Location: EXAMDEL+1
Function Call: WRITE
  • Prompt: !?3,"Deletion complete!",!
  • Line Location: EXAMDEL+12
Function Call: WRITE
  • Prompt: !
  • Line Location: XTRADESC+5
Function Call: WRITE
  • Prompt: !?5,$P(^RAMIS(71,RA6,0),U)
  • Line Location: CKD1+7
Function Call: WRITE
  • Prompt: ?35,"(parent=",$P(^RAMIS(71,$P($G(^RAO(75.1,RA7,0)),U,2),0),U),")"
  • Condition for execution: ^TMP($J,"PRO-ORD",RA6,RA7)="DESC"
  • Line Location: CKD1+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RADPT - [#70] Classic Fileman Calls
^RAO(75.1 - [#75.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call