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

Package: Radiology Nuclear Medicine

Routine: RAREG3


Information

RAREG3 ;HISC/CAH,DAD,FPT,GJC-Register Rad/NM Patient (cont.) ; Sep 27, 2024@16:52:17

Source Information

Source file <RAREG3.m>

Entry Points

Name Comments DBIA/ICR reference
RSBIT ; renumber selections by imaging type
; The RAORDS array has the list of orders the user selected to register
; in the order the user entered them. This subroutine will reorganize
; the array so the orders are arranged by imaging type of their
; procedure starting with the imaging type the user is currently signed
; on with followed by the ascending internal entry number of the
; remaining imaging types.
SETDISV ; when registering procedures of different imaging types set imaging
; location default value in DIC("B") if only one location associated with
; imaging type.
SL ; switch locations
; Prompt the user to switch locations if the current sign-on imaging
; type does not match the procedure's imaging type.
; comment out 06/10/97 D EXAMSET^RAREG2 S RAPARENT=0
DT ; prompt for new imaging date/time when imaging type changes
DT1
DT2
SUB1MIN ; subtract 1 minute from NOW to get an unused date/time
LABEL ; *** Print labels
PRNRQ ;Print Request at Registration - P137/KLM
PRNRQ1 ;task entry point - P137
REGQPRT(RAOIFN,RADFN) ;return registered/request printer for each exam record

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You have switched Divisions from: ",$P(^DIC(4,+RAMDIVHD,0),U),!,?30,"to: ",$P(^DIC(4,+RAMDIV,0),U),!
  • Line Location: SL+18
Function Call: WRITE
  • Prompt: !,$C(7),"Patient already has exams entered for this date/time.",!,"....use 'Add Exams to Last Visit' option."
  • Line Location: DT1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LABEL+2
Function Call: WRITE
  • Prompt: !!,"Task "_ZTSK_": registered request(s) queued to print on device ",RAION,!
  • Line Location: PRNRQ+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
70.02 GET1^DIQ
^RAO(75.1 - [#75.1] GET1^DIQ
^RA(79.1 - [#79.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call