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

Package: Lab Service

Routine: LRLNCTOP


Information

LRLNCTOP ;DALOI/RH-LEDI HL7 CODES ;11-OCT-1998

Source Information

Source file <LRLNCTOP.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Lab Service 1 EQUALS^LRX  

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

Package Total Caller Graph
Lab Service 1 LR LOINC TOPOGRAPHY  

Entry Points

Name Comments DBIA/ICR reference
EN ;
WHICH ;
QUE ;
START ;BEGINS PRINTING THE REPORT
ALPHA ;PRINTS THE ALPHABETIC LISTING OF SPECIMEN THAT HAVE A LEDI HL7 CODE IN THE TOPOGRAPHY FILE
EN2 ;PRINTS THE SPECIMEN THAT DO NOT HAVE A LEDI HL7 CODE
INI ;INITIALIZE VARIABLES
HDR ;PRINT HEADING
HDR1 ;PRINT HEADING FOR SPECIMENS WITH A LEDI HL7 CODE
HDR2 ;PRINT HEADING FOR TESTS WITHOUT A LEDI HL7 CODE
EXIT ;

External References

Name Field # of Occurrence
^%ZIS WHICH+7
HOME^%ZIS QUE+5
^%ZISC WHICH+9
^%ZTLOAD QUE+3
$$GET1^DIQ ALPHA+11
^DIR WHICH+4
EQUALS^LRX ALPHA+1, ALPHA+7, EN2+1, EN2+10
$$FMTE^XLFDT HDR+3
$$NOW^XLFDT HDR+3
$$CJ^XLFSTR EN+2, EN+3, EN+4, HDR1+4, HDR1+5, HDR2+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("This option prints a list of SITE/SPECIMENS from the LABORATORY TEST FILE",IOM)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" Standard LEDI HL7 specimen codes in the Topography file.",IOM)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You will be prompted to print the specimen with or without the LEDI HL7 codes; ",IOM)
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: WHICH+1
Function Call: WRITE
  • Prompt: !,"Print Topography with or without a LEDI HL7 CODE and Time Aspect."
  • Line Location: WHICH+2
Function Call: WRITE
  • Prompt: !,"REQUEST QUEUED TO ",ION
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?3,"[",$J(LRIEN,4),"]",?11,$E($P(LRY,U),1,20)
  • Line Location: ALPHA+9
Function Call: WRITE
  • Prompt: ?33,$E($P(^LAB(64.061,LRIEN,0),U),1,20)_"|"_$$GET1^DIQ(64.061,+$P(LRY,U,10),1)
  • Line Location: ALPHA+11
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+11
Function Call: WRITE
  • Prompt: ?37,$E($P(LRY,U),1,30)
  • Line Location: EN2+13
Function Call: READ
  • Variable: LRN
  • Timeout: DTIME
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !?50,LRDT,?(IOM-10)," Page ",$J(LRPAGE,3)
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("A LISTING FROM THE TOPOGRAPHY FILE OF SPECIMENS WITH LEDI HL7 CODE",IOM)
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("AND HAVE TIME ASPECT ENTERED",IOM)
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !?3,"FILE 61"
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: !?4,"[IEN]",?11,"SITE/SPECIMEN",?32,"ELEC CODE NAME|TIME ASPECT"
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: !?50,LRDT,?(IOM-10)," Page ",$J(LRPAGE,3)
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: !!?23,"LAB SPECIMEN WITHOUT LEDI HL7 CODE"
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("THESE SPECIMENS NEED LEDI HL7 CODES DEFINED IN THE TOPOGRAPHY FILE",IOM)
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: !!?5,"LAB TEST NAME",?37,"SITE/SPECIMEN"
  • Line Location: HDR2+5
Routine Call
  • %ZIS
  • Line Location:
    • WHICH+7
Routine Call
  • %ZIS
  • Line Location:
    • QUE+5
Routine Call
  • DIR
  • Line Location:
    • WHICH+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(64.061 - [#64.061] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] EN2+6, EN2+7
^LAB(61 - [#61] ALPHA+6, ALPHA+8, EN2+8
^LAB(64.061 - [#64.061] ALPHA+10, ALPHA+11

Label References

Name Line Occurrences
ALPHA START+1
EN2 START+2
EXIT WHICH+6, WHICH+7, START+3
HDR ALPHA+7, EN2+10
HDR1 ALPHA+1, ALPHA+7
HDR2 EN2+1, EN2+10
INI ALPHA+1, EN2+1
QUE WHICH+8
START WHICH+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS WHICH+7!*
DIR WHICH+3!, WHICH+4!, EXIT+3!
DIR("?" WHICH+3*
DIR(0 WHICH+4*
DIRUT WHICH+6, EXIT+3!
DTIME HDR+1
DUOUT EXIT+3!
IO WHICH+9
IO("Q" WHICH+8, QUE+5!
IOF EN+1, INI+1, HDR1+1, HDR2+1
IOM EN+2, EN+3, EN+4, HDR1+2, HDR1+4, HDR1+5, HDR2+2, HDR2+4
ION QUE+4
IOSL ALPHA+7, EN2+10
IOST INI+1, HDR+1
LRANS WHICH+5*, START+1, START+2, EXIT+2!
LRDT HDR+3*, HDR1+2, HDR2+2, EXIT+2!
LREND ALPHA+3, ALPHA+4, ALPHA+7, EN2+3, EN2+4, EN2+7, EN2+10, INI+1*, HDR+1*, EXIT+2!
LRI EN2+5*, EN2+6, EN2+7, EXIT+2!
LRIEN ALPHA+5*, ALPHA+6, ALPHA+8, ALPHA+9, ALPHA+10*, ALPHA+11, EN2+7*, EN2+8, EXIT+2!
LRN HDR+1*, EXIT+4!
>> LRNODE EN2+2*, EN2+3*, EN2+4, EN2+5
LRPAGE INI+1*, HDR+1, HDR+2*, HDR1+2, HDR2+2, EXIT+2!
LRTEST EN2+12, EN2+14*, INI+1*, EXIT+2!
>> LRTOP ALPHA+2*, ALPHA+3*, ALPHA+4, ALPHA+5
LRX EN2+6*, EN2+12, EN2+14, EXIT+2!
LRY ALPHA+6*, ALPHA+9, ALPHA+10, ALPHA+11, EN2+8*, EN2+9, EN2+13, EXIT+2!
POP WHICH+7, EXIT+4!
U ALPHA+8, ALPHA+9, ALPHA+10, ALPHA+11, EN2+6, EN2+8, EN2+9, EN2+12, EN2+13, EN2+14
Y WHICH+5, EXIT+4!
ZTDESC QUE+1*, EXIT+3!
ZTIO EXIT+3!
ZTQUEUED EXIT+1, EXIT+4!
ZTREQ EXIT+1*, EXIT+4!
ZTRTN QUE+1*, EXIT+3!
ZTSAVE EXIT+3!
ZTSAVE("LRANS" QUE+2*
ZTSK QUE+4, EXIT+4!
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