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

Package: Automated Lab Instruments

Routine: LA7PCFG


Information

LA7PCFG ;DALOI/JMC - Configrure Lab Point of Care Interface; Oct 23, 2023@17:30

Source Information

Source file <LA7PCFG.m>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call