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

Package: Lab Service

Routine: LRMLACM


Information

LRMLACM ;BPFO/DTG - LAB ASSOCIATE TEST/SPECIMEN TO MLTF ;02/10/2016

Source Information

Source file <LRMLACM.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 4 FILE^DIE  $$GET1^DIQ  EN^DIQ1  ^DIR  
Kernel 1 $$DT^XLFDT  

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 ASSOCIATE TEST TO MLTF  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point for association
ENA
ENB ; pick up specimen
ENM ; mltf lookup
ENS
OUT ; exit
GET60T ; get top of file 60 test info
CHKSPEC ;Check that specimen of MLTF LOINC code same as specimen of test
MSD ; delete the mltf from the 60 file
MSET ;save the mltf to the 60 file

External References

Name Field # of Occurrence
FILE^DIE MSET+5
$$GET1^DIQ ENM+23, ENS+1
EN^DIQ1 ENB+9, GET60T+1
^DIR ENA+2, ENB+3, ENM+7, ENM+14, CHKSPEC+11
$$DT^XLFDT EN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Subscript is "_AA_" Skipping"
  • Line Location: ENA+11
Function Call: WRITE
  • Prompt: !," Test Type is: "_AA_" Skipping"
  • Line Location: ENA+14
Function Call: WRITE
  • Prompt: !," "_LRN_" Missing LOCATION(Data Name) Skipping"
  • Line Location: ENA+16
Function Call: WRITE
  • Prompt: !," Test "_LRN_" does NOT have any Specimens associated. Skippping"
  • Line Location: ENA+17
Function Call: WRITE
  • Prompt: !,"TEST: ",LRN,!,"SPECIMEN: ",LRSN,!
  • Line Location: ENM+30
Function Call: WRITE
  • Prompt: !,"NOT able to Save"
  • Line Location: ENS+0
Function Call: WRITE
  • Prompt: !!,"Test/Specimen: ",LRN," / ",LRSN,!," Saved With MLTF: ",A,!
  • Line Location: ENS+2
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:
    • MSET+5
Routine Call
  • DIR
  • Line Location:
    • ENA+2
    • ENB+3
    • ENM+7
    • ENM+14
    • CHKSPEC+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
60.01 GET1^DIQ
^LRMLTF - [#66.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] ENA+17, MSET+2, MSET+8
^LAB(61 - [#61] ENM+22
^LAB(95.3 - [#95.3] ENM+25
^UTILITY("DIQ1" ENB+7!, ENB+9!

Label References

Name Line Occurrences
CHKSPEC ENM+28
ENA ENA+11, ENA+14, ENA+16, ENA+17, ENB+5
ENB ENM+8, ENM+19, ENS+3
ENM ENM+30, ENS
ENS ENM+27, ENM+28, ENM+31
GET60T ENA+6
MSD ENM+16
MSET ENS, MSD+1
OUT ENA+3, ENA+4, ENB+4, ENM+8, ENM+18, ENM+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EN+1~, ENM+25*, ENM+27, ENS+1*, ENS+2, OUT+1!
AA EN+1~, ENA+10*, ENA+11, ENA+13*, ENA+14, OUT+1!
B EN+1~, ENM+25*, OUT+1!
C EN+1~, ENM+25*, OUT+1!
DA EN+1~, ENB+7*, ENM+1!, OUT+1!, GET60T+1*, GET60T+2, MSET+1~, MSET+5*
DA( ENB+8*
DA(1 MSET+5*
DIC EN+1~, ENB+7*, OUT+1!, GET60T+1*
DIE MSET+1~
DIQ EN+1~, ENB+7*, OUT+1!, GET60T+1*
DIQ(0 ENB+7*, GET60T+1*
DIR EN+1~, ENA!, ENA+2!, ENB+1!, ENM+1!, ENM+10!, OUT+1!, CHKSPEC+7!
DIR("?" ENM+12*, CHKSPEC+9*
DIR("A" ENA+1*, ENB+2*, ENM+11*, CHKSPEC+8*
DIR("B" ENM+6*, ENM+13*, CHKSPEC+10*
DIR("S" ENM+5*
DIR(0 ENA+1*, ENB+2*, ENM+3*, ENM+11*, CHKSPEC+8*
DIRUT EN+1~, ENA!, ENA+3, ENB+1!, ENB+4, ENM+1!, ENM+8, ENM+10!, ENM+15, ENM+18
, ENM+29, OUT+1!, CHKSPEC+7!, CHKSPEC+12
DR ENB+7*, GET60T+1*, MSET+1~
DR( ENB+8*
DT EN+3*
FDA MSET+1~, MSET+5!, MSET+6!
FDA( MSET+5*
FFF MSET+1~, MSET+5*, MSET+6!
LR60IEN EN+1~, OUT+1!
LR64ER EN+2~, ENA+8*, OUT+2!
LRCKD EN+2~, ENM+24*, ENM+25, OUT+2!
LRELEC EN+2~, ENM+22*, OUT+2!, CHKSPEC+2, CHKSPEC+3
LRIEN EN+1~, ENA+5*, ENA+17, ENB+2, ENB+7, ENS+1, OUT+1!, GET60T+1, MSET+2, MSET+5
, MSET+8
LRLEC EN+1~, OUT+1!
LRLNC EN+2~, ENM+24*, ENM+25, OUT+2!
LRLNC0 EN+2~, ENM+23*, ENM+24, OUT+2!
LRMLTF EN+1~, ENM+20*, ENM+23, OUT+1!, MSD+1~*, MSD+2!, MSET+5
LRN EN+2~, ENA+8*, ENA+16, ENA+17, ENB+2, ENM+30, ENS+2, OUT+2!
LRNO EN+1~, ENM+30, OUT+1!, CHKSPEC+4*, CHKSPEC+12*, CHKSPEC+13*
LROKS EN+1~, ENM+28, OUT+1!, CHKSPEC+1*, CHKSPEC+4*
LRSN EN+2~, ENB+11*, ENM+30, ENS+2, OUT+2!
LRSPEC EN+1~, ENB+6*, ENB+8, ENB+10, ENM+22, ENS+1, OUT+1!, MSET+2, MSET+5, MSET+8
LRSPERR EN+1~, ENM+20*, ENS, OUT+1!, MSET+2*
LRSYSTEM EN+1~, ENM+25*, OUT+1!, CHKSPEC+2, CHKSPEC+3
LRTNAM EN+2~, ENA+5*, OUT+2!
LXA EN+1~, OUT+1!, GET60T+2!*
LXA( ENA+8
LXA(3 ENA+13
LXA(4 ENA+10
LXA(5 ENA+16
LXB EN+1~, ENB+7!, ENB+10!, OUT+1!, GET60T+2!
LXB("60.01" ENB+10
LXB(60 GET60T+2
LXC EN+1~, ENB+10!*, OUT+1!
LXC( ENB+11
LXC(30 ENM+6, ENM+19
U EN+3*, ENA+5, ENM+22, ENM+25
X EN+2~, ENB+4, ENM+9, ENM+29, OUT+2!
Y EN+2~, ENA+4, ENA+5, ENB+5, ENB+6, ENM+8, ENM+15, ENM+16, ENM+19, ENM+20
, OUT+2!, 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