Routine: LA7PCFG

Information

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

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
Toolkit	2	EDITPAR^XPAREDIT ALLPAR^XPARLIST

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Automated Lab Instruments	1	LA7 POC SETUP

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	;

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, REPLAB+10, TERM+2
$$HTE^XLFDT	DQP+5
$$REPEAT^XLFSTR	DQP+11, DQP+12
EDITPAR^XPAREDIT	REPLAB+12
ALLPAR^XPARLIST	PARLIST+7
$$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+9
Routine Call	%ZIS Line Location: PRINT+10
Routine Call	DIC Line Location: E6248+5 E624+6 E682+7 PRINT+5
Routine Call	DIC Line Location: E682+55
Routine Call	DIE Line Location: E6248+22 E624+14 E682+16 E682+45
Routine Call	DIR Line Location: EN+6 E6248+14 REPLAB+10 TERM+2

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
^XTV(8989.51 - [#8989.51]	PARLIST+3

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
PARLIST	EN+13
PRINT	EN+11
REPLAB	EN+12
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~, REPLAB+3~, PARLIST+1~, TERM+1~
DIR("A"	EN+5, E6248+12, REPLAB+4, REPLAB+5, REPLAB+6, REPLAB+7, REPLAB+8*
DIR("B"	E6248+13, REPLAB+9
DIR(0	EN+4, E6248+11, REPLAB+9, 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~, REPLAB+3~, REPLAB+11, TERM+1~
DUOUT	EN+1~, E6248+2~, E682+1~, REPLAB+3~, REPLAB+11, 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
LAXPAR	PARLIST+1~, PARLIST+3*, PARLIST+4, PARLIST+5, PARLIST+7
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, EN+12, EN+13, 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, REPLAB+11, 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

Customize PDF page

Package: Automated Lab Instruments