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

Package: Lab Service

Routine: LRLNCTOP


Information

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

Source Information

Source file <LRLNCTOP.m>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(64.061 - [#64.061] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call