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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call