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

Package: Radiology Nuclear Medicine

Routine: RAHLEX1


Information

RAHLEX1 ;HIRMFO/REL,CRT - RAD/NUC MED HL7 Voice Reporting Exception Protocols ; 02/02/99

Source Information

Source file <RAHLEX1.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 5 (NOW,YX)^%DTC  EN^DDIOL  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$REPEAT^XLFSTR  
Radiology Nuclear Medicine 4 (DISDATE,SETTMP)^RAHLEX  (FORMAT,HEADER,WAIT)^RAHLEX1  CLOSE^RAUTL  STOPCHK^RAUTL9  
Health Level Seven 1 ($$REPROC,$$SETPURG)^HLUTIL  
List Manager 1 CLEAR^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Radiology Nuclear Medicine 7 RA HL7 EXCEPTIONS DELETE  RA HL7 EXCEPTIONS NEXT  RA HL7 EXCEPTIONS PREVIOUS  RA HL7 EXCEPTIONS PRINT  RA HL7 EXCEPTIONS RESEND  RAHLEX  RAHLEX1  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; Print Exception List Protocol - Called from ListMan ONLY
END ;
REND
DEND
HEADER ; Report/Page Header
NEND
FORMAT ; Format of Report
NXTAPP(DIR) ; Next or Previous Exception Protocol
; VALMLST = Last ListMan Line Displayed
; VALMBG = First ListMan Line Displayed
DELETE1
PRINT ; Start printing the report to the requested device - using ^TMP
; RAPN = Page Number
; WAIT = "^" if user has requested to quit prematurely
RESH ; Extended help
DELH
DEVICE ; Select device to print report
RESEND ; Re-Submit an HL7 Message Protocol
DELETE ; Function to delete Exception Node
RESEND1
WAIT ; Prompt user to hit RETURN for next page

External References

Name Field # of Occurrence
NOW^%DTC HEADER+6
YX^%DTC HEADER+6, RESEND1+26, DELETE1+20
^%ZIS DEVICE+3
HOME^%ZIS DEVICE+20, END+6
^%ZISC DEVICE+20
^%ZTLOAD DEVICE+16
EN^DDIOL PRINT+26, PRINT+27, HEADER+21, FORMAT+15, RESEND+3, RESEND1+11, RESEND1+15, RESH+1, RESH+2, DELETE+3
, DELETE1+11, DELETE1+15, DELH, DELH+1
^DIK RESEND1+28, DELETE1+18
$$GET1^DIQ RESEND1+14, DELETE1+14
^DIR WAIT+6, RESEND1+5, DELETE1+5
$$REPROC^HLUTIL RESEND1+18
$$SETPURG^HLUTIL RESEND1+24
DISDATE^RAHLEX FORMAT+3
SETTMP^RAHLEX PRINT+10
FORMAT^RAHLEX1 PRINT+23
HEADER^RAHLEX1 PRINT+15, PRINT+20, PRINT+25
WAIT^RAHLEX1 PRINT+15, PRINT+20, PRINT+25, PRINT+28
CLOSE^RAUTL END+5
STOPCHK^RAUTL9 PRINT+22
CLEAR^VALM1 EN+2
$$REPEAT^XLFSTR HEADER+4, HEADER+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Request Queued, Task #: "_$G(ZTSK)
  • Line Location: DEVICE+17
Function Call: WRITE
  • Prompt: !?5,"Request Cancelled"
  • Line Location: DEVICE+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: RESEND1+25
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+20
    • END+6
Routine Call
  • DIR
  • Line Location:
    • WAIT+6
    • RESEND1+5
    • DELETE1+5
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RA(79.3 - [#79.3] Classic Fileman Calls,  GET1^DIQ

Label References

Name Line Occurrences
DELETE1 DELETE1+9
END DEVICE+3, DEVICE+21, PRINT+25
NEND NXTAPP+6
PRINT DEVICE+5
RESEND1 RESEND1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+3!
%H RESEND1+26*, REND!, DELETE1+20*, DEND!
%X DEVICE+20!
%XX DEVICE+20!
%Y DEVICE+20!
%YY DEVICE+20!
%ZIS DEVICE+2*, DEVICE+3!
%ZIS("A" DEVICE+2*
%ZIS("B" DEVICE+2*
DA RESEND1+28*, REND!, DELETE1+18*, DEND!
DIK RESEND1+28*, REND!, DELETE1+18*, DEND!
DIR WAIT+6!, NXTAPP~, NXTAPP+4*, NXTAPP+6, NEND!, RESEND1!, RESEND1+5!, DELETE1!, DELETE1+5!
DIR("?" WAIT+5*, RESEND1+3*, DELETE1+3*
DIR("??" WAIT+5*, RESEND1+4*, DELETE1+4*
DIR("A" RESEND1+2*, DELETE1+2*
DIR(0 WAIT+4*, RESEND1+1*, DELETE1+1*
DTOUT DEVICE+3!, END+4!, RESEND1+5, DELETE1+5
DUOUT DEVICE+3!, END+4!
HL REND+2!
>> HL7EX RESEND+4, RESEND1+1, RESEND1+2, DELETE+4, DELETE1+1, DELETE1+2
HLA REND+2!
HLARYTYP REND+2!
HLECH REND+2!
HLEID REND+2!
HLEIDS REND+3!
HLFORMAT REND+2!
HLFS REND+2!
HLHDR REND+2!
HLIEN RESEND1+14*, RESEND1+15, RESEND1+18, RESEND1+23, REND!, DELETE1+14*, DEND!
HLMTIENS RESEND1+23*, REND!
HLQ REND+2!
HLRESLTA REND+2!
IO PRINT+12
IO("Q" DEVICE+5, DEVICE+20!
IOF HEADER+3
>> IOINHI RESEND1+27, DELETE1+21
>> IOINORM RESEND1+27, DELETE1+21
IOSL PRINT+20, PRINT+25
IOST WAIT+2
NOW END+3!, HEADER+6*, HEADER+16, HEADER+17, HEADER+22!
PAGE HEADER+8*, HEADER+11, HEADER+12, HEADER+22!
POP DEVICE+3!
PURGE RESEND1+24*, RESEND1+25, REND!
RACN PRINT+18*, PRINT+19, PRINT+21, END+3!, FORMAT+10
RADATE PRINT+16*, PRINT+17, PRINT+18, PRINT+19, PRINT+21, END+3!
RADPT PRINT+17*, PRINT+18, PRINT+19, PRINT+21, END+3!, FORMAT+8
RADSP FORMAT+2!, FORMAT+15, FORMAT+16!
RADSP(1 FORMAT+4*, FORMAT+5*
RADSP(2 FORMAT+6*, FORMAT+7*
RADSP(3 FORMAT+8*, FORMAT+9*
RADSP(4 FORMAT+10*, FORMAT+11*
RADSP(5 FORMAT+12*, FORMAT+13*
RADSP(6 FORMAT+14*
RAEXCP PRINT+21*, END+3!, FORMAT+12
RAHDR HEADER+2!, HEADER+21, HEADER+22!
RAHDR(1 HEADER+4*, HEADER+5*
RAHDR(2 HEADER+9*, HEADER+10*
RAHDR(3 HEADER+11*, HEADER+12*
RAHDR(4 HEADER+14*, HEADER+15*
RAHDR(5 HEADER+16*, HEADER+17*
RAHDR(6 HEADER+18*, HEADER+19*
RAHDR(7 HEADER+20*
RAHLAPP PRINT+8*, END+2!
>> RAHLEX RESEND1+9, RESEND1+27, DELETE1+9, DELETE1+21
>> RAHLSEL NXTAPP+8, NXTAPP+9, NXTAPP+15, RESEND1+7, RESEND1+13, DELETE1+7, DELETE1+13
RAHLSRT PRINT+6*, PRINT+10, PRINT+14, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+21, END+2!
RAHLUSR PRINT+7*, END+2!
RAI RESEND1+7*, REND!, DELETE1+7*, DEND!
RALINE NXTAPP+7*, NXTAPP+8, NXTAPP+9*, NXTAPP+10*, NXTAPP+11*, NXTAPP+12*, NXTAPP+13, NXTAPP+15*, NXTAPP+16*, NXTAPP+17
, NEND!, RESEND1+8*, RESEND1+9, RESEND1+27, REND!, DELETE1+8*, DELETE1+9, DELETE1+21, DEND!
RAPL PRINT+9*, END+3!
RAPN PRINT+9*, PRINT+15*, PRINT+20*, PRINT+25*, END+3!, HEADER+3, HEADER+8
RASEND PRINT+14*, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+21, END+3!, HEADER+13
RAUSER PRINT+19*, PRINT+21, END+3!, FORMAT+6
RAXIEN RESEND1+7*, RESEND1+8, RESEND1+13*, RESEND1+14, RESEND1+28, REND!, DELETE1+7*, DELETE1+8, DELETE1+13*, DELETE1+14
, DELETE1+18, DEND!
RESEND RESEND1+18*, RESEND1+19, RESEND1+22, REND!
TITLE HEADER+7*, HEADER+9, HEADER+13*, HEADER+14, HEADER+22!
VA REND+3!
VADM REND+3!
>> VALMBCK END+7*, NXTAPP+5*, NXTAPP+13*, NXTAPP+17*, RESEND+6*, RESEND1+5*, REND+4*, DELETE+6*, DELETE1+5*, DEND+1*
>> VALMBG NXTAPP+13*, NXTAPP+15, NXTAPP+17*
>> VALMLST NXTAPP+7, NXTAPP+10
VALMSG RESEND+2!, RESEND+5*, RESEND1+21*, RESEND1+25*, DELETE+2!, DELETE+5*
WAIT PRINT+9*, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+22*, PRINT+25
, END+4!, WAIT+2*, WAIT+7*
X END+3!
XRADATE FORMAT+4, FORMAT+16!
Y END+3!, WAIT+7, HEADER+6, RESEND1+5, RESEND1+7, RESEND1+27, REND!, DELETE1+5, DELETE1+7, DELETE1+21
, DEND!
ZTDESC DEVICE+8*, END+4!
>> ZTQUEUED PRINT+4, PRINT+22, END+1, HEADER+3
>> ZTREQ PRINT+5*
ZTRTN DEVICE+7*, END+4!
ZTSAVE END+4!
ZTSAVE("RAHL7EDT" DEVICE+11*
ZTSAVE("RAHL7SDT" DEVICE+10*
ZTSAVE("^TMP($J,""RAHLAPP""," DEVICE+12*
ZTSAVE("^TMP($J,""RAHLUSR""," DEVICE+13*
ZTSK DEVICE+17, END+4!
ZTSK("D" DEVICE+17, DEVICE+18
ZTSTOP PRINT+22, END+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All