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

Package: Lab Service

Routine: LRMLWT


Information

LRMLWT ;BPFO/DTG - LAB NTRT LOOP 60 FOR MLTF ;02/10/2016

Source Information

Source file <LRMLWT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; starting point for walking from newest test to oldest test in file 60
; to associate with the MLTF
ENR
LOOP ; start the process
L1
L2 ;loop through specimens
L2M ; come here to ask MLTF
L2S
L2Q ; ask to see additional specimens
LX ;
Q1 ; pick up spcimens from test
Q1A
QUIT ;
LOUT
LSET ;put the last ien in 66.4 .08
SETER ; come here if not able to open files and quit
MSET ;save the mltf to the 60 file
GET664 ; get file 66.4 info
GET60T ; get top of file 60 test info
CHKSPEC ;Check that specimen of MLTF LOINC code same as specimen of test

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"Continuation Method Not Selected. Quitting"
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !,*7,"Process Has Been Completed"
  • Line Location: ENR+1
Function Call: WRITE
  • Prompt: !!,*7," *** This Test ( ",LRN," [",LRIEN,"]) Does Not Have any Specimens",!!
  • Line Location: L1+16
Function Call: WRITE
  • Prompt: !!,"TEST: "_LRN
  • Line Location: L2+5
Function Call: WRITE
  • Prompt: !,"SPECIMEN(s)",!
  • Line Location: L2+6
Function Call: WRITE
  • Prompt: !,*7,"Number out of Range"
  • Line Location: L2+10
Function Call: WRITE
  • Prompt: !,*7,"Specimen not found"
  • Line Location: L2+11
Function Call: WRITE
  • Prompt: !,"TEST: ",LRN,!,"SPECIMEN: ",LRSN,!
  • Line Location: L2M+19
Function Call: WRITE
  • Prompt: !,LRSN,": Saved With MLTF ",A,!
  • Line Location: L2S+2
Function Call: WRITE
  • Prompt: !!,*7," *** This Test ( ",LRN," [",LRIEN,"] Does Not Have any Specimens",!!
  • Line Location: L2S+4
Function Call: READ
  • Variable: X
  • Timeout: 10
  • Line Location: SETER+1
Function Call: WRITE
  • Prompt: !,*7,"unable to open file... EXITING "
  • Line Location: SETER+1
Function Call: WRITE
  • Prompt: !!,"The MLTF LOINC code that you have selected does not have the"
  • Line Location: CHKSPEC+5
Function Call: WRITE
  • Prompt: !,"same specimen that you chose to test/specimen."
  • Line Location: CHKSPEC+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] GET1^DIQ
60.01 GET1^DIQ
^LRMLTF - [#66.3] GET1^DIQ
^LAB(66.4 - [#66.4] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call