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

Package: Radiology Nuclear Medicine

Routine: RAHLRS1


Information

RAHLRS1 ;HIRMFO/ROB/PAVEL/GJC - Resend HL7 messages for selected Timeframe ; 10/27/08 11:01

Source Information

Source file <RAHLRS1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 ^%DT  (C,H)^%DTC  $$GET1^DIQ  ^DIR  
Kernel 2 ^%ZISC  ^%ZTLOAD  
Radiology Nuclear Medicine 2 (1,CANCEL,REG,RPT)^RAHLRPC  SETVARS^RAPSET1  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Radiology Nuclear Medicine 7 RA HL7 RESEND BY DATE RANGE  RAHLR  RAHLRPC  RAHLRPT  RAHLRU  RAMAGHL  RARTE5  

Entry Points

Name Comments DBIA/ICR reference
CHECK ;
1
2 ;user selects the application
TM ;Taskman Entry...
RESEND(RADFN,RADTI,RACNI) ; re-send exam message(s) to HL7 subscribers
; for every 10 messages sent, make sure queue is not clogged... $$HANG
RAED(RADFN,RADTI,RACNI) ; identify correct ^RAHLRPC entry point(s)
SETVARS ; Setup key Rad/Nuc Med variables
STOP ;
GETAP(XX) ;
GETSUB(APL,SUB,LINK) ;Get all subscribers (not associated with application)... To be excluded as recipients..
; Get all logical links to be in business, so we can control flow of messages
GETHLP(RAEID,HLP,ADR) ; Get excluded subcribers set into HLP array
CHSUM ;CHECKSUM
HANG() ; scan all logical links to see if queue is bigger than 100
GETSUM(RABD,RAED) ; Get number of exams for period called from RAHLR RAHLR1 RAHLRPT RAHLRPT1

External References

Name Field # of Occurrence
^%DT 1, 1+7, 2+17, RESEND+6
C^%DTC 1+4
H^%DTC 2+19
^%ZISC STOP+1
^%ZTLOAD 2+21
$$GET1^DIQ RAED+7, RAED+8, RAED+10, RAED+11, RAED+15, RAED+21, RAED+24, GETAP+11
^DIR 2+3
1^RAHLRPC RESEND+17
CANCEL^RAHLRPC RESEND+13
REG^RAHLRPC RESEND+11
RPT^RAHLRPC RESEND+21
SETVARS^RAPSET1 SETVARS+2, SETVARS+4
^XMD 2+33, TM+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option re-sends HL7 messages for a date range and for designated Recipients.",!
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: !,"It is strongly recommended you task this to run off hours.",!!
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+7
Function Call: WRITE
  • Prompt: !!,"*** Pick the application in which to send the radiology data ***",!!
  • Line Location: 1+13
Function Call: WRITE
  • Prompt: !," #",I," ",$O(XX(I,""))
  • Line Location: 1+14
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !!,"The: ",$O(XX(+X,""))," will be the recipient"
  • Line Location: 2+4
Function Call: WRITE
  • Prompt: !!,"Reviewing exams for selected time period... (This may take a few minutes)... "
  • Line Location: 2+5
Function Call: WRITE
  • Prompt: !!,"No exams exist for selected period, change the time frame !!!"
  • Line Location: 2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+7
Function Call: WRITE
  • Prompt: !!,"During this period of time ",Y," Exams were performed and app Run time= ",Y\5000," Hours."
  • Line Location: 2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+17
Routine Call
  • DIR
  • Line Location:
    • 2+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" 1+3, 1+10, 2+20
^HLMA("AC" HANG+4
^ORD(101 - [#101] GETAP+5, GETAP+6, GETAP+8, GETSUB+16, GETSUB+17, GETSUB+18, GETSUB+19
^RA(72 - [#72] RAED+19, RAED+20
^RADPT - [#70] TM+6, RESEND+2, RESEND+16*, GETSUM+6
^RADPT("AR" TM+3, TM+4, TM+5, GETSUM+3, GETSUM+4, GETSUM+5

Label References

Name Line Occurrences
$$GETAP 1+12
$$GETSUM 2+6
$$HANG CHSUM+1
$$RAED RESEND+8
1 2+7
CHSUM RESEND+11, RESEND+13, RESEND+15, RESEND+21
GETSUB 2+10
RESEND TM+6
SETVARS CHECK+1
STOP 1+1, 1+8, 1+12, 2+18, TM+18

Naked Globals

Name Field # of Occurrence
^( GETAP+6, GETSUB+17, GETSUM+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT 1!*, 1+7!*, 2+17!*
%DT("A" 1*, 1+7*, 2+17*
%DT("B" 1+7*, 2+17*
>> %H 2+19
>> %T 2+19
AA GETHLP+1~, GETHLP+3*, GETHLP+5
ADR GETHLP~, GETHLP+3
APL GETSUB~
APL( GETSUB+18
APL(0 GETSUB+13
DA RAHLRS1+11~
DIC RAHLRS1+11~
DIERR GETAP+10~
>> DIR("?" 2+2*
>> DIR(0 2+1*
>> DIRUT 2+3
DT RESEND+6*
DTIME CHECK+4*
>> DTOUT 1+1, 1+8, 2+18
>> DUOUT 1+1, 1+8, 2+18
DUZ SETVARS+2, SETVARS+3
HLP GETHLP~
HLP("EXCLUDE SUBSCRIBER" , GETHLP+1, GETHLP+4, GETHLP+5*
I RAHLRS1+12~, 1+14*, 2+1, GETHLP+1~, GETHLP+4*, GETHLP+5*, HANG+1~, HANG+3*, HANG+4*
J GETAP+2~, GETAP+9*, GETAP+12, GETHLP+1~*, GETHLP+5*
L HANG+1~, HANG+2*, HANG+3*, HANG+4
LINK GETSUB~
LINK( GETSUB+19*
QUIT RESEND+4~, HANG+1~, HANG+2*, HANG+3, HANG+4*, HANG+5
RABD RAHLRS1+11~, 1+2*, 1+4*, 1+5*, 2+6, TM+3*, TM+4, TM+5, RESEND+4~, GETSUM~
, GETSUM+3*, GETSUM+4, GETSUM+5
>> RACCESS( SETVARS+2, SETVARS+3
RACNI RAHLRS1+11~, TM+6*, RESEND~, RESEND+2, RESEND+8, RESEND+16, RAED~, RAED+7, RAED+8, GETSUM+1~
, GETSUM+6*
RADFN RAHLRS1+11~, TM+4*, TM+5, TM+6, RESEND~, RESEND+2, RESEND+8, RESEND+16, RAED~, RAED+7
, RAED+8, GETSUM+1~, GETSUM+4*, GETSUM+5, GETSUM+6
RADTI RAHLRS1+11~, TM+5*, TM+6, RESEND~, RESEND+2, RESEND+8, RESEND+16, RAED~, RAED+7, RAED+8
, GETSUM+1~, GETSUM+5*, GETSUM+6
RAED RAHLRS1+11~, 1+9*, 1+11*, 2+6, TM+3, GETSUM~, GETSUM+3
RAEDP80 RESEND+4~, RESEND+8*, RESEND+9, RESEND+10, RESEND+12, RESEND+14, RESEND+20
RAEID GETHLP~, GETHLP+3
RAERR GETAP+10~, GETAP+12
RAEXMDUN RESEND+17~
>> RAIMGTY CHECK+1, SETVARS+4
RAIMTYP RAED+2~, RAED+10*, RAED+19, RAED+20
RALOCK RAHLRS1+12~*
RAMPG 2+24~, 2+30*, 2+31, TM+14*, TM+15
RANOSEND RESEND+21~
RAORD RAED+2~, RAED+11*, RAED+13, RAED+19*, RAED+20
>> RAPICK 2+9*, RESEND+19
RARPST RESEND+4~, RESEND+19, RAED+24*, RAED+25
RARPT RAHLRS1+11~, RESEND+21~, RAED+2~, RAED+8*, RAED+24, RAED+25
RASHBD RAHLRS1+11~, 1+3*, 2+28, TM+9
RASHED RAHLRS1+11~, 1+10*, 2+28, TM+9
RASHTD RAHLRS1+11~
RASHTM RAHLRS1+11~, 2+20*, 2+27
RASSS RAHLRS1+12~, 2+10
RASSS( 2+10*
RASSSL RAHLRS1+12~, 2+10
RASSSL( HANG+3
RASSSX RAHLRS1+12~, 2+10
RASTAT RAED+2~, RAED+3*, RAED+7*, RAED+10, RAED+11, RAED+15, RAED+20*, RAED+21
RASTIME TM+1~, TM+2*
RASUM7 TM+1~, TM+2*, TM+11, RESEND+11~, RESEND+13~, RESEND+17~, RESEND+21~, CHSUM+1*, GETSUM+1~, GETSUM+2*
, GETSUM+6*, GETSUM+7
RASUM7E TM+1~, TM+2*, TM+12, RESEND+3*, RESEND+9*, RESEND+11~, RESEND+13~, RESEND+17~, RESEND+21~
RASUM7R TM+1~, TM+2*, TM+10, RESEND+11~, RESEND+13~, RESEND+17~, RESEND+21~, RAED+25*
RAX 2+24~, TM+7!
RAX(1 2+25*, TM+7*
RAX(2 2+26*, TM+8*
RAX(3 2+27*, TM+9*
RAX(4 2+28*, TM+10*
RAX(5 TM+11*
RAXAMP80 RESEND+2~*, RESEND+3
RETURN RAED+2~, RAED+5*, RAED+13*, RAED+15*, RAED+17, RAED+19, RAED+21*, RAED+25*, RAED+27
S HANG+1~, HANG+3*, HANG+4*
SUB GETSUB~
SUB( GETSUB+18*
U CHECK+4*, RESEND+3, GETAP+8, GETSUB+18, GETSUB+19
X RAHLRS1+11~, RAHLRS1+12~, 1+4, 2+4, 2+9, 2+10, 2+19*
X(6 TM+12*
X1 1+4*, GETAP+2~, GETAP+4*, GETAP+5*, GETAP+9*, GETAP+11, GETAP+12, GETSUB+12~, GETSUB+15*, GETSUB+16*
, GETSUB+18
X11 GETAP+2~, GETAP+3*, GETAP+4, GETAP+5, GETSUB+12~, GETSUB+14*, GETSUB+15, GETSUB+16
X2 1+4*, GETAP+2~, GETAP+5*, GETAP+6, GETSUB+12~, GETSUB+16*, GETSUB+17, GETSUB+18
X3 GETAP+2~, GETAP+6*, GETAP+7*, GETAP+8, GETSUB+12~, GETSUB+17*
>> XMDUZ 2+31*, TM+15*
XMSUB 2+24~, 2+29*, TM+13*
XMTEXT 2+24~, 2+32*, TM+16*
XMY 2+24~
XMY( 2+31*, TM+15*
XQUIT SETVARS+4!
XX RAHLRS1+11~, 1+12!, GETAP~, GETSUB+12~, GETSUB+17*, GETSUB+18, GETSUB+19*, GETHLP+1~
XX( 1+14, 2+4, 2+9, 2+10, GETAP+12*, GETHLP+4*, GETHLP+5
XXX GETAP+2~, GETAP+14
XXX( GETAP+8*, GETAP+9
Y 1+1, 1+2, 1+3, 1+8, 1+9, 1+10, 2+6*, 2+7, 2+8, 2+18
, 2+19, 2+20*, RESEND+6, GETAP+10~, GETAP+11*, GETAP+12
YY RAHLRS1+11~, 2+19*, 2+20
Z GETAP+2~, GETAP+6!, GETAP+7
Z( GETAP+6*, GETAP+7
Z1 GETAP+2~, GETAP+7!, GETAP+8*
>> ZTDESC 2+16*
>> ZTDTH 2+19*
>> ZTIO 2+15*
>> ZTRTN 2+16*
ZTSAVE 2+11!
ZTSAVE("RABD" 2+14*
ZTSAVE("RACNI" 2+15*
ZTSAVE("RADFN" 2+14*
ZTSAVE("RADTI" 2+15*
ZTSAVE("RAED" 2+14*
ZTSAVE("RAOPT(" 2+12*
ZTSAVE("RAPICK" 2+13*
ZTSAVE("RASHBD" 2+15*
ZTSAVE("RASHED" 2+15*
ZTSAVE("RASSSL(" 2+14*
ZTSAVE("RASSSX(" 2+14*
>> ZTSK 2+22, 2+23, 2+25, TM+7
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