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 |  Local Variables  | All
Print Page as PDF
Routine: RAHLRS

Package: Radiology Nuclear Medicine

Routine: RAHLRS


Information

RAHLRS ;HIRMFO/CRT/PDW - Resend HL7 messages for selected cases ;11 Mar 2019 10:07 AM

Source Information

Source file <RAHLRS.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Radiology Nuclear Medicine 5 ^RACNLU  (1,CANCEL,REG,RPT)^RAHLRPC  SETVARS^RAPSET1  HLXMSG^RARTE5  EN1^RASELCT  
VA FileMan 5 ^%DT  EN^DDIOL  YN^DICN  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZTLOAD  $$PATCH^XPDUTL  $$KSP^XUPARAM  
Imaging 1 SENDA08^MAGDHLE  

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 RA ADT  RA HL7 MESSAGE RESEND  

Entry Points

Name Comments DBIA/ICR reference
RACNLU(RADFN,RADTI,RACNI) ; Select Case Number
RESEND(RADFN,RADTI,RACNI,QUIT) ; re-send exam message(s) to HL7 subscribers
RAED(RADFN,RADTI,RACNI) ; identify correct ^RAHLRPC entry point(s)
OK(RADFN,RADTI,RACNI) ; Get User to confirm continue
SETVARS ; Setup key Rad/Nuc Med variables
RAADT ;Send patient demographic update (A47/A08) to PACS - P137/KLM
TADT ;task entry or fall through
EXIT

External References

Name Field # of Occurrence
^%DT RESEND+5
^%ZTLOAD RAADT+19
EN^DDIOL RESEND+11, RESEND+14, RESEND+18, RESEND+21, OK+7
YN^DICN RAADT+15
$$GET1^DIQ RAED+8, RAED+10, RAED+11, RAED+15, RAED+22, RAED+25, OK+4, RAADT+6
^DIR OK+9
SENDA08^MAGDHLE TADT+4
^RACNLU RACNLU+4
1^RAHLRPC RESEND+19
CANCEL^RAHLRPC RESEND+15
REG^RAHLRPC RESEND+12
RPT^RAHLRPC RESEND+24
SETVARS^RAPSET1 SETVARS+2, SETVARS+4
HLXMSG^RARTE5 RESEND+23
EN1^RASELCT RAADT+12
$$PATCH^XPDUTL RAADT+2
$$KSP^XUPARAM RAADT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You need imaging patch MAG*3.0*183 installed to use this option!"
  • Line Location: RAADT+2
Function Call: WRITE
  • Prompt: !!,"IHE is not enabled!",!,"See MAG*3.0*183 patch instructions to setup/enable ADT messages to PACS."
  • Line Location: RAADT+6
Function Call: WRITE
  • Prompt: !!,"This option will send patient demographic updates for selected patients.",!
  • Line Location: RAADT+7
Function Call: WRITE
  • Prompt: !,"It is recommended that you task this if you select 'ALL' patients.",!!
  • Line Location: RAADT+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: RAADT+12
Function Call: WRITE
  • Prompt: !!?3,$C(7),"No Patient selected."
  • Line Location: RAADT+14
Function Call: WRITE
  • Prompt: !,"Would you like to task this Job"
  • Line Location: RAADT+15
Function Call: WRITE
  • Prompt: !,"Task# "_ZTSK,!!
  • Line Location: RAADT+20
Function Call: WRITE
  • Prompt: !!,"Demographic updates sent for "_RACT_" patients"
  • Line Location: TADT+8
Routine Call
  • DIR
  • Line Location:
    • OK+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MAG(2006.1 - [#2006.1] GET1^DIQ
70.03 GET1^DIQ
^RA(72 - [#72] GET1^DIQ
^RARPT - [#74] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAG(2006.1 - [#2006.1] RAADT+5
^RA(72 - [#72] RAED+20, RAED+21
^RADPT - [#70] RESEND+17*
^TMP($J RAADT+14, TADT+2, TADT+3, EXIT!

Label References

Name Line Occurrences
$$OK RESEND+8
$$RACNLU RAHLRS+17
$$RAED RESEND+7
EXIT RAADT+14, RAADT+15, RAADT+16
RESEND RAHLRS+18
SETVARS RAHLRS+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RAADT+15*, RAADT+16, EXIT!
DIC RAADT+13!
DIR RAADT+9~
DIR("A" OK+8*
DIR("B" OK+9*
DIR(0 OK+9*
DT RESEND+5*
DUZ SETVARS+2, SETVARS+3
QUIT RAHLRS+17, RAHLRS+18, RESEND~, RESEND+4*, RESEND+8*, RESEND+9
RA20061 RAADT+5~*, RAADT+6
>> RACCESS( SETVARS+2, SETVARS+3
RACNI RAHLRS+13~, RAHLRS+17, RAHLRS+18, RACNLU~, RESEND~, RESEND+7, RESEND+8, RESEND+17, RAED~, RAED+8
, OK~, OK+4
RACT TADT+1*, TADT+5*, TADT+8, EXIT!
RADFN RAHLRS+13~, RAHLRS+17, RAHLRS+18, RACNLU~, RACNLU+3*, RESEND~, RESEND+7, RESEND+8, RESEND+17, RAED~
, RAED+8, OK~, OK+4, RAADT+9~, TADT+3*, TADT+4, EXIT!
RADIC RAADT+10*, RAADT+12, RAADT+13!
RADIC("A" RAADT+11*
RADIC(0 RAADT+10*
RADTI RAHLRS+13~, RAHLRS+17, RAHLRS+18, RACNLU~, RACNLU+3*, RESEND~, RESEND+7, RESEND+8, RESEND+17, RAED~
, RAED+8, OK~, OK+4
RAED RESEND+2~, RESEND+7*, RESEND+10, RESEND+13, RESEND+16, RESEND+20
RAEXMDUN RESEND+19~
RAEXST OK+2~, OK+4*, OK+8
>> RAIMGTY RAHLRS+15, SETVARS+4
RAIMTYP RAED+3~, RAED+10*, RAED+20, RAED+21
RANOSCRN RACNLU+2~*
RAORD RAED+3~, RAED+11*, RAED+13, RAED+20*, RAED+21
RAPN TADT+2*, TADT+3, EXIT!
RARPST RESEND+2~, RESEND+23, RAED+4*, RAED+25*, RAED+26
RARPT RAHLRS+13~, RAED+24, RAED+25
RASSSX RESEND+2~
RASTAT RAED+3~, RAED+4*, RAED+8*, RAED+10, RAED+11, RAED+15, RAED+21*, RAED+22
RAUTIL RAADT+10*, RAADT+12, RAADT+13!
RETURN RAED+3~, RAED+6*, RAED+13*, RAED+16*, RAED+18, RAED+20, RAED+22*, RAED+26*, RAED+28
X RAHLRS+13~, RAHLRS+17*, RACNLU+5, OK+2~, OK+6*, OK+7
XQUIT SETVARS+4!
Y RESEND+5, OK+10, OK+11, RAADT+9~
ZTDESC RAADT+18*, EXIT!
ZTIO RAADT+17*, EXIT!
ZTQUEUED TADT+8, EXIT!
ZTRTN RAADT+18*, EXIT!
ZTSAVE EXIT!
ZTSAVE("^TMP( $J, ""RA PATA08"", " , RAADT+17*
ZTSK RAADT+20, EXIT!
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 |  Local Variables  | All