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

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Radiology Nuclear Medicine 5 FLH^RAFLH  JAC^RAJAC  ^RAORD5  SET^RAPSET1  ^RASERV  
Kernel 2 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  
VA FileMan 2 ^%DT  $$GET1^DIQ  
Record Tracking 1 ^RTQ5  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RAREG1  RAREG2  

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

External References

Name Field # of Occurrence
^%DT DT+8
^%ZTLOAD PRNRQ+21
$$GET1^DIQ PRNRQ+9, REGQPRT+9, REGQPRT+10
FLH^RAFLH LABEL+5
JAC^RAJAC LABEL+6
^RAORD5 PRNRQ1+4
SET^RAPSET1 SL+15
^RASERV DT2+3
^RTQ5 LABEL+8
$$FMADD^XLFDT DT+7, SUB1MIN+1
$$NOW^XLFDT DT+6, DT+7

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(195.4 - [#195.4] LABEL+8
^DIC(4 - [#4] SL+18
^RA(79 - [#79] DT+2
^RA(79.1 - [#79.1] SETDISV+5, SETDISV+7
^RA(79.2 - [#79.2] RSBIT+16, SL+7, SL+8
^RADPT - [#70] DT+1, DT+6, DT1, DT2, SUB1MIN+1, LABEL+3, LABEL+4
^RADPT("AO" REGQPRT+7
^RAMIS(71 - [#71] RSBIT+13, SL+4
^RAO(75.1 - [#75.1] RSBIT+12
^SC - [#44] SETDISV+7
^XUSEC("RA SWITCHLOC" SL+7

Label References

Name Line Occurrences
DT SL+19, DT+8, DT1
DT2 DT2
LABEL SL+9
REGQPRT PRNRQ+9
SETDISV SL+13
SUB1MIN DT+6, DT2

Naked Globals

Name Field # of Occurrence
^(0 SETDISV+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DT+7*, DT+8!
%DT(0 DT+7*
>> DIC("B" SETDISV+7*
DTIME DT+3
DUZ SL+7
IO PRNRQ1+4
RAARY PRNRQ+3~, PRNRQ+12, PRNRQ+26!
RAARY( PRNRQ+13, PRNRQ+16, REGQPRT+13*
RABED DT2+3!
>> RACAT DT2+2*, DT2+3*
>> RACNI LABEL+4
RACNT SETDISV+3~, SETDISV+4*, SETDISV+5*, SETDISV+7
RADFN DT+1, DT+6, DT1, DT2, SUB1MIN+1, LABEL+2, LABEL+3, LABEL+4, LABEL+7*, PRNRQ+9
, REGQPRT~, REGQPRT+7, REGQPRT+8
>> RADTE DT1*, DT2*, SUB1MIN+1
RADTEBAD DT2!*, DT2+1!
RADTI DT+1, DT1*, DT2*, LABEL+3, LABEL+4, REGQPRT+6~*, REGQPRT+7*, REGQPRT+8
RADTICHK DT+6*!, DT2, SUB1MIN+1*
RAHRS DT+2~*, DT+7
RAIENS PRNRQ+3~, REGQPRT+8*, REGQPRT+9
RAILOC PRNRQ+3~, PRNRQ+26!, REGQPRT+9*, REGQPRT+10
>> RAIMGTY RSBIT+16, SL+7, SL+10
RAIMGTYN RSBIT+16*, RSBIT+18, RSBIT+19*, RSBIT+20!
RAIN RSBIT+13*, RSBIT+14, RSBIT+17*, RSBIT+18*, RSBIT+19*, RSBIT+20!
RAION PRNRQ+3~, PRNRQ+13*, PRNRQ+15, PRNRQ+16, PRNRQ+23, PRNRQ+26!, REGQPRT+10*, REGQPRT+13
RAITN SETDISV+5, SL+4*, SL+7, SL+8, SL+22!
RAITNHLD SETDISV+3~, SETDISV+5*, SETDISV+7
RAITNXT SETDISV+3~, SETDISV+4*, SETDISV+5*
RAJ PRNRQ+3~, PRNRQ+7*, PRNRQ+8, PRNRQ+26!
RALOOP RSBIT+9!, RSBIT+10*, RSBIT+11, RSBIT+14, RSBIT+17*, RSBIT+18*, RSBIT+19*, RSBIT+20!, SETDISV+3~, SETDISV+5*
, SUB1MIN+1*, SUB1MIN+2!
>> RAMDIV SL+8, SL+18, DT+2
RAMDIVHD SL+8*, SL+18, SL+22!
>> RAMDV LABEL+6
RAMLC SL+8, SL+14!, SL+17*
RAMLCHLD SL+8*, SL+17, SL+22!
>> RANOW DT+5*, DT2+2, DT2+3
RANUMF LABEL+5!
RAOIFN PRNRQ+3~, PRNRQ+8*, PRNRQ+9, PRNRQ+16*, PRNRQ+17, PRNRQ+26!, PRNRQ1+1~, PRNRQ1+3*, PRNRQ1+5!, REGQPRT~
, REGQPRT+7, REGQPRT+13
RAON RSBIT+11*, RSBIT+12, RSBIT+14, RSBIT+20!
RAORDS RSBIT+8, RSBIT+17!, PRNRQ+2
RAORDS( RSBIT+10, RSBIT+11, RSBIT+18*, RSBIT+19*, PRNRQ+7, PRNRQ+8
RAORDST RSBIT+9!, RSBIT+19, RSBIT+20!
RAORDST( RSBIT+14*, RSBIT+18!, RSBIT+19
RAORS PRNRQ+14~, PRNRQ+26!
RAORS( PRNRQ+17*, PRNRQ1+3
RAPAGE PRNRQ1+1~, PRNRQ1+2*, PRNRQ1+5!
RAPN RSBIT+12*, RSBIT+13, RSBIT+20!
RAPROLOC SL+8*, SL+11, SL+12, SL+22!
RAPX LABEL+1, LABEL+2*, LABEL+7, LABEL+9!
>> RAQUIT SL+7, SL+17*, SL+19, DT+4*
>> RASAV2 LABEL+3*
>> RASAV3 LABEL+4*
RASER DT2+3!
RASWLOC SL+14*, SL+16!
RAWARD DT2+2, DT2+3!
RAX PRNRQ1+1~, PRNRQ1+2*, PRNRQ1+5!
RAYHOLD SL+8*, SL+20, SL+22!
RAZIS LABEL+2*, LABEL+7!
U RSBIT+11, RSBIT+12, RSBIT+13, SL+4, SL+8, SL+18, LABEL+6, LABEL+8
>> X DT+3*, DT+4, DT+5*, DT+6, DT2, SUB1MIN+1*
>> Y SL+4, SL+8, SL+20*, DT+8, DT1
ZTDESC PRNRQ+19*, PRNRQ+22!
ZTDTH PRNRQ+20*, PRNRQ+22!
ZTIO PRNRQ+15*, PRNRQ+22!
ZTRTN PRNRQ+20*, PRNRQ+22!
ZTSAVE PRNRQ+22!
ZTSAVE("RADFN" PRNRQ+21*
ZTSAVE("RAORS(" PRNRQ+21*
>> ZTSK PRNRQ+23
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