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

Package: Lab Service

Routine: LRLNCUTL


Information

LRLNCUTL ;DALOI/RH-LEDI HL7 CODES AND CALCULATE CHECKDIGIT ;11-OCT-1998

Source Information

Source file <LRLNCUTL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  DT^DICRW  ^DIE  ^DIR  
Kernel 1 $$CJ^XLFSTR  
Lab Service 1 ^LRLNCHL7  

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 LEDI HL7 CODE  

Entry Points

Name Comments DBIA/ICR reference
EN ;
START ;BEGINS PRINTING THE REPORT
ADEN ; ADD/EDIT LEDI HL7 CODE AND TIME ASPECT
MOD10 ;Instructions used to Calculate Mod 10 Check Digits
CHEKDIG(X) ;
EXIT

External References

Name Field # of Occurrence
^DIC ADEN+5
DT^DICRW START+1
^DIE ADEN+6
^DIR START+3
^LRLNCHL7 START+4
$$CJ^XLFSTR EN+2, EN+3, EN+4, EN+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("This option allows the user to add/edit",IOM)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" Lab Electronic specimen codes in the Topography file.",IOM)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("It is recommended that you print a copy of Specimen codes ",IOM)
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" to assist you in editing SITE/SPECIMENS.",IOM)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADEN+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADEN+7
Routine Call
  • DIC
  • Line Location:
    • ADEN+5
Routine Call
  • DIE
  • Line Location:
    • ADEN+6
Routine Call
  • DIR
  • Line Location:
    • START+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61 - [#61] Classic Fileman Calls

Label References

Name Line Occurrences
ADEN START+5, ADEN+7
EXIT START+6, ADEN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ADEN+6*, EXIT!
DIC ADEN+3*, EXIT!
DIC("A" ADEN+4*
DIC("S" ADEN+6*
DIC(0 ADEN+3*
DIE ADEN+6*, EXIT!
>> DIR("A" START+2*
>> DIR("B" START+3*
>> DIR(0 START+2*
>> DIRUT START+3
>> DR ADEN+6*
DTOUT EXIT!
DUOUT EXIT!
IOF EN+1, ADEN+2
IOM EN+2, EN+3, EN+4, EN+5
IOSL ADEN+2
LRCHDIG CHEKDIG+1~, CHEKDIG+9*, CHEKDIG+10
LRCHSUM CHEKDIG+1~, CHEKDIG+7*, CHEKDIG+8
LRDIG CHEKDIG+1~, CHEKDIG+8*, CHEKDIG+9
LREVEN CHEKDIG+1~, CHEKDIG+6*, CHEKDIG+7
LRI CHEKDIG+1~, CHEKDIG+3*, CHEKDIG+4*, CHEKDIG+6*, CHEKDIG+8*, CHEKDIG+9*
LRL CHEKDIG+1~, CHEKDIG+3*, CHEKDIG+4, CHEKDIG+6
>> LRL1 CHEKDIG+7*, CHEKDIG+8
LRODD CHEKDIG+1~, CHEKDIG+4*, CHEKDIG+5*, CHEKDIG+7
LRSTR CHEKDIG+1~, CHEKDIG+2*, CHEKDIG+3*, CHEKDIG+4, CHEKDIG+6
X CHEKDIG~, CHEKDIG+3, EXIT!
Y START+4, ADEN+5, ADEN+6, EXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All