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

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 (,FILE)^DIE  ($$GET1,GETS)^DIQ  EN^DIQ1  ^DIR  
Kernel 1 $$DT^XLFDT  
Registration 1 $$SITE^VASITE  

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 NDS WALK ASSOCIATE  

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

External References

Name Field # of Occurrence
^DIE ENR+6, LSET+4
FILE^DIE EN+18, MSET+5
$$GET1^DIQ EN+9, EN+12, ENR, L2M+12, L2S+1, Q1A+2, Q1A+3
GETS^DIQ GET664+3
EN^DIQ1 GET60T+1
^DIR EN+16, L2+7, L2M+6, L2Q+2, LX+2, LX+5, LX+7, CHKSPEC+11
$$SITE^VASITE EN+6, GET664+1
$$DT^XLFDT EN+5

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
Routine Call
  • DIE
  • Line Location:
    • ENR+6
    • LSET+4
Routine Call
  • DIE
  • Line Location:
    • EN+18
    • MSET+5
Routine Call
  • DIR
  • Line Location:
    • EN+16
    • L2+7
    • L2M+6
    • L2Q+2
    • LX+2
    • LX+5
    • LX+7
    • CHKSPEC+11

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] ENR+3, L1, Q1A, MSET+2, MSET+8
^LAB(61 - [#61] L2M+11
^LAB(66.4 - [#66.4] EN+7, ENR+4, ENR+7, LSET+3, LSET+5, GET664+2
^LAB(95.3 - [#95.3] L2M+14

Label References

Name Line Occurrences
CHKSPEC L2M+17
ENR L1+15, L2S+3, LX+4, LX+10, LOUT+3
GET60T L1+1
GET664 ENR+2
L1 L1+5, L1+6, L1+9, L1+11
L2 L1+17, L2+10, L2+11, L2S+5, L2Q+4
L2M L2M+19
L2Q L2M+8
L2S L2M+16, L2M+17, L2M+20
LOUT L1
LSET L1+5, L1+6, L1+9, L1+11, L1+15, L2S+3, LX+4, LX+9, LOUT
LX L2+9, L2M+8, L2Q+4, L2Q+5
MSET L2S
Q1 L1+15, L2S+3, L2Q+4
Q1A Q1A+2, Q1A+5
QUIT EN+10, ENR+1, L2+8, L2M+7, L2M+18, L2Q+3, LX+3, LX+6, LOUT+1, SETER+1
SETER ENR+3, L1+5, L1+6, L1+9, L1+11, L1+15, L2S, L2S+3, LX+4, LX+6
, LOUT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EN+2~, L2+10*, L2+11, L2M+14*, L2M+16, L2S+1*, L2S+2, Q1A+3*, Q1A+4, QUIT+1!
AA EN+4~, L1+4*, L1+5, L1+6, L1+8*, L1+9, QUIT+3!
ALA EN+4~, L2+4*, QUIT+3!
ALAC EN+4~, L2+3*, L2+4*, QUIT+3!
AR EN+2~, QUIT+1!, GET664+4!
AR("66.4" GET664+4
B EN+2~, EN+6*, EN+7, L2M+14*, Q1A+2*, QUIT+1!
C EN+2~, L2M+14*, QUIT+1!
D EN+2~, QUIT+1!
DA EN+2~, ENR+5*, L2M+1!, QUIT+1!, LSET+1~, LSET+2*, LSET+3, LSET+5, MSET+1~, MSET+5*
, GET60T+1*, GET60T+2
DA(1 MSET+5*
DIC EN+4~, QUIT+3!, GET60T+1*
DIE EN+2~, ENR+5*, QUIT+1!, LSET+1~, LSET+4*, MSET+1~
DIQ EN+2~, QUIT+1!, GET60T+1*
DIQ(0 GET60T+1*
DIR EN+2~, EN+11~, L2+1!, L2M+1!, L2Q+1!, LX+1!, LX+5!, LX+6!, QUIT+1!, CHKSPEC+7!
DIR("?" CHKSPEC+9*
DIR("A" L2+2*, L2Q+1*, LX+1*, LX+5*, LX+7*, CHKSPEC+8*
DIR("B" L2Q+1*, LX+1*, LX+5*, LX+7*, CHKSPEC+10*
DIR("L" EN+14*, EN+15*
DIR("S" L2M+5*
DIR(0 EN+13*, L2+3*, L2+4*, L2M+3*, L2Q+1*, LX+1*, LX+5*, LX+7*, CHKSPEC+8*
DIRUT EN+11~, EN+17, L2+1!, L2+8, L2M+1!, L2M+7, L2M+18, L2Q+1!, L2Q+3, LX+1!
, LX+3, LX+5!, LX+6!, LX+8, CHKSPEC+7!, CHKSPEC+12
DR EN+2~, ENR+5*, QUIT+1!, LSET+1~, LSET+4*, MSET+1~, GET60T+1*
DT EN+2~, EN+5*
ER EN+3~, QUIT+2!
FDA MSET+1~, MSET+5!, MSET+6!
FDA( MSET+5*
FFF MSET+1~, MSET+5*, MSET+6!
I EN+4~, L2+4*, QUIT+3!
LASTTEST EN+2~, EN+9*, EN+10, EN+12, EN+13, EN+14, ENR*, ENR+1, ENR+3*, ENR+5*
, LOOP+1, QUIT+1!
LNAME EN+11~, EN+12*, EN+13, EN+14
LR64 EN+3~, QUIT+2!
LR64ER EN+3~, ENR+3*, ENR+4*, L1+2*, L1+5*, L1+6, L1+9, L1+11, L1+15*, L2S+3*
, LX+4*, LX+6*, QUIT+2!, LOUT, LSET+3*
LRARY EN+2~, QUIT+1!
LRCKD EN+4~, L2M+13*, L2M+14, QUIT+3!
LRELEC EN+4~, L2M+11*, QUIT+3!, CHKSPEC+2, CHKSPEC+3
LRFDA EN+11~
LRFDA( EN+18*
LRIEN EN+2~, LOOP+1*, L1*, L1+16, L2S+1, L2S+4, Q1A, Q1A+2, Q1A+3, QUIT+1!
, LOUT+1, LSET+4, MSET+2, MSET+5, MSET+8, GET60T+1
LRLEC EN+3~, QUIT+2!
LRLNC EN+4~, L2M+13*, L2M+14, QUIT+3!
LRLNC0 EN+4~, L2M+12*, L2M+13, QUIT+3!
LRMLTF EN+3~, L2M+9*, L2M+12, QUIT+2!, MSET+5
LRN EN+2~, L1+2*, L1+16, L2+5, L2M+19, L2S+4, QUIT+1!
LRNO EN+3~, L2M+19, LX+6, LX+7*, LX+8*, QUIT+2!, CHKSPEC+4*, CHKSPEC+12*, CHKSPEC+13*
LRNT EN+2~, QUIT+1!, GET664+2*, GET664+3, GET664+4
LRNTI EN+2~, QUIT+1!, GET664+4*
LROKS EN+3~, L2M+17, QUIT+2!, CHKSPEC+1*, CHKSPEC+4*
LRS EN+2~, L1+14*, L1+15, L2+4, L2M+8, L2S+3*, L2Q+4*, Q1A+4*, QUIT+1!
LRSN EN+2~, L2+11*, L2M+19, L2S+2, QUIT+1!
LRSPARY EN+2~, LOOP+1!, L2S+3!, L2Q+4!, QUIT+1!, LOUT+2!
LRSPARY( L2+4, L2+10, Q1A+4*
LRSPEC EN+2~, L2+11*, L2M+11, QUIT+1!, MSET+2, MSET+5, MSET+8
LRSPERR EN+3~, L2M+9*, L2S, QUIT+2!, MSET+2*
LRSYSTEM EN+3~, L2M+14*, QUIT+2!, CHKSPEC+2, CHKSPEC+3
LRTN EN+2~, QUIT+1!
LSITE EN+2~, QUIT+1!, GET664+1*, GET664+2
LT EN+4~, L1+14*, L2S+1, L2S+3*, L2Q+4*, Q1A*, Q1A+2, Q1A+3, Q1A+4, QUIT+3!
LXA EN+2~, QUIT+1!, GET60T+2!*
LXA( L1+2
LXA(3 L1+8
LXA(4 L1+4
LXA(5 L1+11
LXB EN+2~, QUIT+1!, GET60T+2!
LXB(60 GET60T+2
OK EN+4~, EN+10*, EN+17*, QUIT+3!
PS EN+2~, EN+7*, EN+9, EN+18, ENR, ENR+4, ENR+5, ENR+7, QUIT+1!, LSET+2
SCOUNT EN+4~, L1+16, L2S+4, Q1+1*, Q1A+1*, QUIT+3!
U EN+5*, EN+6, L2M+11, L2M+14, GET664+1
X EN+3~, L2+8, L2M+7, L2M+18, L2S+4*, L2Q+3, LX+3, QUIT+3!, SETER+1*
Y EN+3~, EN+17, EN+18, L2+9, L2+10, L2M+8, L2M+9, L2Q+4, LX+4, LX+6
, LX+9, QUIT+3!, CHKSPEC+13
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