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

Package: Automated Lab Instruments

Routine: LA7PCFG


Information

LA7PCFG ;DALOI/JMC - Configrure Lab Point of Care Interface; Jan 12, 2004

Source Information

Source file <LA7PCFG.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 7 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTE^XLFDT  $$REPEAT^XLFSTR  $$NS^XUAF4  $$DIV4^XUSER  
VA FileMan 5 EN^DDIOL  (,$$FIND1)^DIC  ^DIE  $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Lab Instruments 1 LA7 POC SETUP  

Entry Points

Name Comments DBIA/ICR reference
E6248 ; Setup/edit file #62.48
SH1 ; Sub header #1
SH2 ; Sub head #2
EN ; Configure files #62.48, #62.4 and #68.2
DQP ; entry point from above and TaskMan
HDR ; Header for test code mapping
TERM ;
E682 ; Setup/edit file #68.2
CLEAN ; Clean up and quit
PRINT ; Print test code mappings for POC setup
E624 ; Setup/edit file #62.4

External References

Name Field # of Occurrence
^%ZIS PRINT+9
HOME^%ZIS PRINT+10
^%ZISC PRINT+13, CLEAN+2
^%ZTLOAD PRINT+13
EN^DDIOL E6248+3, E6248+9, E6248+10, E6248+18, E6248+19, E6248+20, E624+4, E624+10, E624+19, E624+25
, E682+4, E682+11, E682+22, E682+25, E682+41, E682+43, E682+49, E682+52, E682+53, E682+56
, E682+61, PRINT+3, PRINT+14
^DIC E6248+5, E624+6, E682+7, PRINT+5
$$FIND1^DIC E682+55
^DIE E6248+22, E624+14, E682+16, E682+45
$$GET1^DIQ E624+12, E624+19, E624+23, E624+24, E682+6, E682+43, DQP+24, DQP+33, DQP+56, DQP+57
, DQP+61
^DIR EN+6, E6248+14, TERM+2
$$HTE^XLFDT DQP+5
$$REPEAT^XLFSTR DQP+11, DQP+12
$$NS^XUAF4 E682+52, E682+61
$$DIV4^XUSER E682+59

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: E682+18
Function Call: WRITE
  • Prompt: !!,"VistA ADT feed enabled: ",$S(LA7INTYP=21:"YES",LA7INTYP=20:"NO",1:"UNKNOWN"),!!
  • Line Location: DQP+14
Function Call: WRITE
  • Prompt: !,$J(I,2),?3,$E($P(^LAB(60,LR60,0),"^"),1,25)
  • Line Location: DQP+25
Function Call: WRITE
  • Prompt: ?50,X
  • Line Location: DQP+32
Function Call: WRITE
  • Prompt: !,?30,$P(LR64(0),"^")
  • Line Location: DQP+35
Function Call: WRITE
  • Prompt: ?3,"Warning - test does not have NATIONAL VA LAB CODE assigned.",!
  • Line Location: DQP+39
Function Call: WRITE
  • Prompt: !,$J(I,2),?3,$E($P(^LAB(60,LR60,0),"^"),1,25)
  • Line Location: DQP+50
Function Call: WRITE
  • Prompt: ?55,X
  • Line Location: DQP+55
Function Call: WRITE
  • Prompt: !,?3,$E($$GET1^DIQ(60,LR60_",",400),1,25-$L(X))_X
  • Line Location: DQP+57
Function Call: WRITE
  • Prompt: ?30,$E($P(^LAM(Y,0),"^"),1,20)
  • Line Location: DQP+60
Function Call: WRITE
  • Prompt: ?3,"Warning - test does not have RESULT NLT CODE assigned.",!
  • Line Location: DQP+64
Function Call: WRITE
  • Prompt: ?3,"Warning - RESULT NLT CODE does not match UI TEST CODE."
  • Line Location: DQP+65
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLEAN+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Point of Care Test Code Mapping",?IOM-20," Page: ",LA7PAGE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !," for interface: ",$P(LA7624(0),"^"),?IOM-23," Printed: ",LA7NOW
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,LA7LINE,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"POC Order Test Codes using Load/Work List: ",$P(^LRO(68.2,LRLL,0),"^")
  • Line Location: SH1+1
Function Call: WRITE
  • Prompt: !,"# Lab Test",?30,"Order NLT Code",?50,"Specimen(IEN)",?70,"HL7 Spec"
  • Line Location: SH1+2
Function Call: WRITE
  • Prompt: !,?30,"Order NLT Name",?50,"Collection Sample",?70,"WKLD Code"
  • Line Location: SH1+3
Function Call: WRITE
  • Prompt: !,LA7LINE2,!
  • Line Location: SH1+4
Function Call: WRITE
  • Prompt: !,"POC Result Test Codes using Auto Instrument: ",$P(LA7624(0),"^")
  • Line Location: SH2+1
Function Call: WRITE
  • Prompt: !,"# Lab Test",?30,"Result NLT Code",?55,"Specimen(IEN)"
  • Line Location: SH2+2
Function Call: WRITE
  • Prompt: !," Dataname(IEN)",?30,"Result NLT Name",?55,"HL7 Spec"
  • Line Location: SH2+3
Function Call: WRITE
  • Prompt: !,LA7LINE2,!
  • Line Location: SH2+4
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+10
Routine Call
  • DIE
  • Line Location:
    • E6248+22
    • E624+14
    • E682+16
    • E682+45
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • E6248+14
    • TERM+2
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+9
Routine Call
  • DIC
  • Line Location:
    • E682+55
Routine Call
  • DIC
  • Line Location:
    • E6248+5
    • E624+6
    • E682+7
    • PRINT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] FIND1^DIC
^LAB(60 - [#60] GET1^DIQ
^LAB(61 - [#61] GET1^DIQ
^LAB(62.4 - [#62.4] Classic Fileman Calls,  GET1^DIQ
^LAHM(62.48 - [#62.48] Classic Fileman Calls,  GET1^DIQ
^LRO(68 - [#68] Classic Fileman Calls,  GET1^DIQ
^LRO(68.2 - [#68.2] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] E682+35, DQP+21, DQP+25, DQP+50, DQP+63
^LAB(61 - [#61] E682+40, DQP+30, DQP+53
^LAB(62 - [#62] DQP+36
^LAB(62.4 - [#62.4] E624+9, E624+17, E624+18, E624+22, E624+23, E624+27, DQP+6, DQP+46, DQP+48
^LAB(64.2 - [#64.2] DQP+37
^LAHM(62.48 - [#62.48] E6248+8, E6248+13, E6248+23, DQP+8
^LAM - [#64] DQP+21, DQP+60, DQP+63
^LAM("C" DQP+59
^LRO(68 - [#68] E682+47, E682+51
^LRO(68.2 - [#68.2] E624+19, E682+10, E682+17, E682+20, E682+24, E682+27, E682+32, E682+33, DQP+10, DQP+18
, DQP+20, SH1+1

Label References

Name Line Occurrences
CLEAN DQP+41, DQP+43, DQP+68
E624 EN+10
E6248 EN+8
E682 EN+9
HDR DQP+13, DQP+19, DQP+42, DQP+47
PRINT EN+11
SH1 DQP+15, DQP+19
SH2 DQP+44, DQP+47
TERM DQP+67, HDR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PRINT+1~, PRINT+9*
DA E6248+2~, E6248+7*, E624+2~, E624+8*, E682+1~, E682+9*, E682+44*
DIC E6248+2~, E6248+4*, E6248+21, E624+2~, E624+5*, E624+11, E682+1~, E682+5*, E682+12, PRINT+1~
, PRINT+4*
DIC("B" E682+6*
DIC("S" E6248+4*, E624+5*, PRINT+4*
DIC(0 E6248+4*, E624+5*, E682+5*, PRINT+4*
DIE E6248+2~, E6248+21*, E624+2~, E624+11*, E682+1~, E682+12*, E682+44*
DIR EN+1~, E6248+2~, E682+1~, TERM+1~
DIR("A" EN+5*, E6248+12*
DIR("B" E6248+13*
DIR(0 EN+4*, E6248+11*, TERM+2*
DIROUT EN+1~, E682+1~
DIRUT EN+1~, EN+3, EN+7, E6248+2~, E6248+15, E682+1~, TERM+1~, TERM+2
DR E6248+2~, E6248+21*, E624+2~, E624+12*, E682+1~, E682+13*, E682+44*
DR(2 E624+13*, E682+14*
DR(3 E682+15*
DTOUT E6248+2~, TERM+1~
DUOUT EN+1~, E6248+2~, E682+1~, TERM+1~
I E682+1~, E682+31*, E682+32*, E682+33, E682+38, E682+40, DQP+2~, DQP+17*, DQP+18*, DQP+20
, DQP+25, DQP+45*, DQP+46*, DQP+48, DQP+50
IO("Q" PRINT+11
IOF CLEAN+1, HDR+2
IOM DQP+11, DQP+12, HDR+4, HDR+5
IOSL DQP+19, DQP+42, DQP+47
IOST DQP+67, CLEAN+1, HDR+1
LA7624 E624+2~, E624+8*, E624+9, E624+17, E624+18, E624+22, E624+23, E624+24, E624+27, PRINT+1~
, PRINT+7*, DQP+6, DQP+46, DQP+48
LA7624(0 DQP+6*, DQP+7, DQP+9, HDR+5, SH2+1
LA76248 E6248+2~, E6248+7*, E6248+8, E6248+13, E6248+23, E624+2~, DQP+4~, DQP+7*, DQP+8
LA7CODE DQP+3~, DQP+51*, DQP+52, DQP+58, DQP+59, DQP+65
LA7ERR E624+2~, E682+2~
LA7EXIT DQP+3~, DQP+5*, DQP+18, DQP+19, DQP+41, DQP+43, DQP+46, DQP+47, DQP+67, HDR+1
, TERM+2*
LA7INTYP DQP+3~, DQP+8*, DQP+14
LA7LINE DQP+3~, DQP+11*, HDR+6
LA7LINE2 DQP+3~, DQP+12*, SH1+4, SH2+4
LA7NOW DQP+3~, DQP+5*, HDR+5
LA7PAGE DQP+3~, DQP+5*, HDR+1, HDR+3*, HDR+4
LA7QUIT EN+1~
LA7TYP E6248+2~, E6248+16*, E6248+17, E6248+21
LR60 E682+2~, E682+34*, E682+35, DQP+4~, DQP+21*, DQP+25, DQP+49*, DQP+50, DQP+56, DQP+57
, DQP+63
LR60(0 E682+35*, E682+36, E682+38, E682+40
LR61 E682+2~, E682+34*, E682+37, E682+40, DQP+4~, DQP+22*, DQP+23, DQP+24, DQP+28, DQP+29
, DQP+30, DQP+33, DQP+36, DQP+49*, DQP+53, DQP+61
LR62 DQP+4~, DQP+22*, DQP+23*, DQP+24*, DQP+36
LR64 DQP+4~, DQP+21*, DQP+39, DQP+63*, DQP+64, DQP+65
LR64(0 DQP+21*, DQP+26, DQP+35, DQP+63*, DQP+65
LR642 DQP+4~, DQP+22*, DQP+37
LRAA E682+2~, E682+27*, E682+28, E682+43, E682+44, E682+47, E682+51
LRDIV E682+2~, E682+47*, E682+48, E682+51, E682+52, E682+60, E682+61
LRLL EN+1~, EN+2*, E624+12, E624+18*, E624+19, E682+6, E682+9*, E682+10, E682+17, E682+20
, E682+24, E682+27, E682+32, E682+33, DQP+4~, DQP+9*, DQP+10, DQP+18, DQP+20, SH1+1
LRMSG E682+2~, E682+41
LRMSG( E682+38*, E682+40*
LRNLT E624+2~
LRPROF E682+2~, E682+20*, E682+21, E682+24, E682+27, E682+32, E682+33, DQP+4~, DQP+10*, DQP+18
, DQP+20
LRX E624+2~, E624+23*, E624+25, E682+2~, E682+33*, E682+34, E682+39, E682+55*, E682+56, E682+57
, E682+59
LRY E624+2~, E624+24*, E624+25, E682+2~, E682+58!, E682+59*
LRY( E682+60
>> POP PRINT+10
U E682+27
X EN+1~, E6248+2~, E624+2~, E682+2~, PRINT+1~, DQP+2~, DQP+20*, DQP+21, DQP+22, DQP+23
, DQP+26*, DQP+27, DQP+29*, DQP+30*, DQP+31*, DQP+32, DQP+33*, DQP+34, DQP+37*, DQP+38
, DQP+48*, DQP+49, DQP+51, DQP+53*, DQP+54*, DQP+55, DQP+56*, DQP+57, DQP+61*, DQP+62
, TERM+1~
X(2 DQP+48*, DQP+49
Y EN+1~, EN+8, EN+9, EN+10, EN+11, E6248+2~, E6248+6, E6248+7, E6248+16, E624+2~
, E624+7, E624+8, E682+2~, E682+8, E682+9, PRINT+1~, PRINT+6, PRINT+7, DQP+2~, DQP+59*
, DQP+60, TERM+1~
>> ZTDESC PRINT+12*
ZTDTH PRINT+1~
ZTIO PRINT+1~
>> ZTQUEUED DQP+67, CLEAN+2, HDR+1
>> ZTREQ CLEAN+3*
ZTRTN PRINT+1~, PRINT+12*
ZTSAVE PRINT+1~
ZTSAVE("LA7624" PRINT+12*
ZTSK PRINT+1~, PRINT+14
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