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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRLNCHL7

Package: Lab Service

Routine: LRLNCHL7


Information

LRLNCHL7 ;VA/DALCIOFO/RH - LEDI HL7 CODES ;1-OCT-1998 [ 12/19/2002 6:36 AM ]

Source Information

Source file <LRLNCHL7.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LR LOINC HL7 SPECIMENS  LRLNCUTL  

Entry Points

Name Comments DBIA/ICR reference
EN ;
HDR ;PRINT HEADING
START ;BEGINS PRINTING THE REPORT
EXIT ;
INI ;INITIALIZE VARIABLES
QUE

External References

Name Field # of Occurrence
^%ZIS EN+5
HOME^%ZIS QUE+3
^%ZISC EXIT+2
^%ZTLOAD QUE+1
$$FMTE^XLFDT INI+2
$$NOW^XLFDT INI+2
$$CJ^XLFSTR EN+1, EN+2, EN+3, EN+4, HDR+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,$$CJ^XLFSTR("This option prints a list of specimens from the",IOM)
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("LAB ELECTRONICS CODE file (#64.061).",IOM)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("This list may assist you when linking your",IOM)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("local TOPOGRAPHY (#61) entries with the file 64.061.",IOM)
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!?5,"Report queued!"
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: $S($P(^(0),U,5)="0070":"*",1:""),$P(^(0),U),?40
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>40
  • Line Location: START+7
Function Call: READ
  • Timeout: DTIME
  • Variable: LRN
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("LEDI HL7 ELECTRONIC SPECIMEN CODES",IOM)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?5,LRPDT,?(IOM-15)," Page ",$J(LRPAGE,3)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"* Source HL7 0070 Table"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,LRLINE,!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+1
Routine Call
  • %ZIS
  • Line Location:
    • QUE+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(64.061 - [#64.061] START+7

Label References

Name Line Occurrences
EXIT EN+5, START+8
HDR START+6
INI START+2
QUE EN+6
START EN+7

Naked Globals

Name Field # of Occurrence
^(0 START+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+5!*
DTIME HDR+1
IO EN+7
IO("Q" EN+6, QUE+3!
IOF EN+1, INI+1, HDR+2, EXIT+1
IOM EN+1, EN+2, EN+3, EN+4, INI+1, HDR+4, HDR+5
IOSL START+6
IOST INI+1, HDR+1, EXIT+1
LREND START+4, START+6, INI+1*, HDR+1*, EXIT+3!
LRI START+5*, START+7, EXIT+3!
LRLINE INI+1*, HDR+7, EXIT+3!
LRN HDR+1*, EXIT+3!
LRNODE START+3*, START+4*, START+5, EXIT+3!
LRPAGE INI+1*, HDR+1, HDR+2, HDR+3*, HDR+5, EXIT+3!
LRPDT INI+2*, HDR+5, EXIT+3!
>> POP EN+5
U START+7
ZTDESC QUE*, EXIT+3!
>> ZTQUEUED START+1
>> ZTREQ START+1*
ZTRTN QUE*, EXIT+3!
ZTSAVE EXIT+3!
>> ZTSK QUE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All