Routine: BLRPOC3

Information

BLRPOC3 ;IHS/MSC/MKK - EHR POC Component support, part 2 ; 13-Oct-2017 14:04 ; MKK

Source Information

Source file <BLRPOC3.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
IHS Changes To Lab	3	PRESSKEY^BLRGMENU $$CHKITOUT^BLRSGNSU $$GETACCCP^BLRUTIL3
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Laboratory Point of Care	1	($$CHKTST,$$ISPANEL,SAVE)^BLRPOC
IHS VA Utilities	1	^XBFMK
Kernel	1	($$DT,$$NOW)^XLFDT
Lab Service	1	^LRWU4

Entry Points

Name	Comments	DBIA/ICR reference
SHOWFLAG	; EP - Given Accession number, show V LAB FLAG
BADSTUFF(STR,TAB)	; EP - BADSTUFF error message
INVALENT	; EP - Invalid Entry Prompt
GETRESLT(IEN,RESULT,COMMENT)	; EP - Get Result Value
ARRYDUMP(ARRY)	; EP - "Dump" the array
GETYVAL(FNUM,YVAL,PROMPT)	; EP - MSC/MKK - Make this a function and add ability to pass a prompt string.
SHOWIT	; EP
GETCOSMC(COSMCTST,ARRAY)	; EP - Get results for ALL tests
TEST	; EP - Interactively TEST Point-Of-Care

External References

Name	Field # of Occurrence
PRESSKEY^BLRGMENU	TEST+64, INVALENT+2, BADSTUFF+3, SHOWIT+12
$$CHKTST^BLRPOC	TEST+9
$$ISPANEL^BLRPOC	TEST+14
SAVE^BLRPOC	TEST+68
$$CHKITOUT^BLRSGNSU	TEST+49
$$GETACCCP^BLRUTIL3	TEST+80
$$GET1^DIQ	TEST+10, TEST+23, TEST+24, TEST+28, TEST+73, TEST+75, GETCOSMC+7, GETCOSMC+12, GETRESLT+4, SHOWIT+2 , SHOWIT+3, SHOWIT+6, SHOWIT+8, SHOWIT+10, SHOWIT+11
^DIR	TEST+59, GETYVAL+4, GETRESLT+8, GETRESLT+15
^LRWU4	SHOWFLAG+4
^XBFMK	TEST+56, GETYVAL+1, GETRESLT+6, GETRESLT+13
$$DT^XLFDT	TEST+49
$$NOW^XLFDT	TEST+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"POC Test." Line Location: TEST+5
Function Call: WRITE	Prompt: !!,"Before SAVE call.",! Line Location: TEST+54
Function Call: WRITE	Prompt: !,"DFN:",DFN," - ",$P(Y,U,2),! Line Location: TEST+66
Function Call: WRITE	Prompt: !,"After SAVE Call.",! Line Location: TEST+70
Function Call: WRITE	Prompt: ?4,"RET:",RET,!! Line Location: TEST+71
Function Call: WRITE	Prompt: !,?4,"Latest Accession:",$$GET1^DIQ(63.04,LRIDT_","_LRDFN,.06),! Line Location: TEST+83
Function Call: WRITE	Prompt: ?10,"BLRTXLOG:",BLRTXLOG,?30,"FLAG:",$$GET1^DIQ(9009022,BLRTXLOG,2002),! Line Location: TEST+84
Function Call: WRITE	Prompt: ?9,"V LAB IEN:",VLABIEN,?30,"FLAG:",$$GET1^DIQ(9000010.09,VLABIEN,.05),! Line Location: TEST+85
Function Call: WRITE	Prompt: ?4,"Could not determine BLRTXLOG for Accession ",LRAS,! Line Location: TEST+86
Function Call: WRITE	Prompt: !,?4,"No/Quit Entry. Routine Ends." Line Location: INVALENT+1
Function Call: WRITE	Prompt: !,?5,ARRY,! Line Location: ARRYDUMP+4
Function Call: WRITE	Prompt: ?10,STR1,"=",@STR1,! Line Location: ARRYDUMP+5
Function Call: WRITE	Prompt: ?10,STR1,"=",@STR1,! Line Location: ARRYDUMP+7
Function Call: WRITE	Prompt: !!,?TAB,STR," Routine Ends." Line Location: BADSTUFF+2
Function Call: WRITE	Prompt: !! Line Location: SHOWFLAG+3
Function Call: WRITE	Prompt: !,?4,"Accession:",$$GET1^DIQ(63.04,LRIDT_","_LRDFN,.06),! Line Location: SHOWIT+8
Function Call: WRITE	Prompt: ?8, Line Location: SHOWIT+9
Function Call: WRITE	Prompt: ?15,"BLRTXLOG:",BLRTXLOG,?35,"FLAG:",$$GET1^DIQ(9009022,BLRTXLOG,2002),! Line Location: SHOWIT+10
Function Call: WRITE	Prompt: ?14,"V LAB IEN:",VLABIEN,?35,"FLAG:",$$GET1^DIQ(9000010.09,VLABIEN,.05),! Line Location: SHOWIT+11
Routine Call	DIR Line Location: TEST+59 GETYVAL+4 GETRESLT+8 GETRESLT+15

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^LAB(60 - [#60]	GET1^DIQ
60.02	GET1^DIQ
^LAB(61 - [#61]	GET1^DIQ
^LAB(62 - [#62]	GET1^DIQ
63.04	GET1^DIQ
68.02	GET1^DIQ
^AUPNVLAB - [#9000010.09]	GET1^DIQ
^BLRTXLOG - [#9009022]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BLRTXLOG("D"	TEST+78, SHOWIT+5
^LAB(60 - [#60]	TEST+21, TEST+26, TEST+27, GETCOSMC+5
^LR - [#63]	TEST+74, SHOWIT+4
^TMP("BLRDIAG"	TEST+3!, TEST+88!

Name	Line Occurrences
$$GETCOSMC	TEST+14
$$GETRESLT	TEST+17, GETCOSMC+9
$$GETYVAL	TEST+8, TEST+30, TEST+33, TEST+36, TEST+39, TEST+46
ARRYDUMP	TEST+55, TEST+62
BADSTUFF	TEST+10
INVALENT	GETYVAL+5, GETRESLT+9
SHOWIT	TEST+81

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	GETCOSMC~, GETCOSMC+1
ARRAY("CMT"	GETCOSMC+15*
ARRAY("RES"	GETCOSMC+14*
ARRAY("TST"	GETCOSMC+13*
ARRY	ARRYDUMP~, ARRYDUMP+3, ARRYDUMP+4
>> ARY	TEST+14, TEST+68
>> ARY("CD"	TEST+6, TEST+61
>> ARY("CM"	TEST+23*
>> ARY("CMT"	TEST+18, TEST+42, TEST+43, TEST+44
>> ARY("COL"	TEST+28*
>> ARY("LOC"	TEST+31*
>> ARY("NOO"	TEST+37*
>> ARY("ORDTST"	TEST+12*
>> ARY("PRV"	TEST+34*
>> ARY("RES"	TEST+18*
>> ARY("SYMP"	TEST+52*
>> ARY("TST"	TEST+16*
>> ARY("URG"	TEST+40*
>> BAILOUT	GETCOSMC+4, GETCOSMC+5, GETCOSMC+9, GETCOSMC+17
BLRLRAS	SHOWFLAG+1~, SHOWFLAG+5
BLRTXLOG	TEST+78, TEST+79, SHOWFLAG+1~, SHOWIT+5, SHOWIT+6, SHOWIT+10
>> CNT	GETCOSMC+4, GETCOSMC+11, GETCOSMC+13, GETCOSMC+14, GETCOSMC+15
>> COMMCNT	TEST+42*, TEST+43, TEST+44
COMMENT	TEST+17, TEST+18, GETCOSMC+9, GETCOSMC+15, GETRESLT~, GETRESLT+3, GETRESLT+16
>> CONTINUE	TEST+14, TEST+17, TEST+18, TEST+19
>> COSMCIEN	GETCOSMC+3*, GETCOSMC+5, GETCOSMC+6
COSMCTST	GETCOSMC~, GETCOSMC+1, GETCOSMC+3
>> CSI	TEST+24, TEST+25, TEST+26, TEST+27*, TEST+28
>> DFN	TEST+47*, TEST+49, TEST+66, TEST+68, TEST+73
>> DILOCKTM	TEST+1, GETCOSMC+1
>> DIR("A"	TEST+58, GETYVAL+3, GETRESLT+7, GETRESLT+14
>> DIR(0	TEST+57, GETYVAL+2, GETRESLT+7, GETRESLT+14
>> DIRUT	GETYVAL+5, GETRESLT+9
>> DISYS	TEST+1, GETCOSMC+1
DT	TEST+1, GETCOSMC+1
DTIME	TEST+1, GETCOSMC+1
DUZ	TEST+1, GETCOSMC+1
>> F60IEN	GETCOSMC+7*, GETCOSMC+9, GETCOSMC+12
FNUM	GETYVAL~, GETYVAL+2
IEN	GETRESLT~, GETRESLT+4
IO	TEST+1, GETCOSMC+1
>> IOBS	TEST+1, GETCOSMC+1
IOF	TEST+1, GETCOSMC+1
IOM	TEST+1, GETCOSMC+1
ION	TEST+1, GETCOSMC+1
>> IOS	TEST+1, GETCOSMC+1
IOSL	TEST+1, GETCOSMC+1
IOST	TEST+1, GETCOSMC+1
>> IOT	TEST+1, GETCOSMC+1
>> IOXY	TEST+1, GETCOSMC+1
LRAA	TEST+80, SHOWFLAG+1~, SHOWIT+1
LRAAIEN	SHOWFLAG+1~, SHOWIT+1*, SHOWIT+2, SHOWIT+3
LRAD	TEST+80, SHOWFLAG+1~, SHOWIT+1
LRAN	TEST+80, SHOWFLAG+1~, SHOWIT+1
LRAS	TEST+75, TEST+78, TEST+80, TEST+86, SHOWFLAG+1~, SHOWFLAG+5, SHOWIT+5
LRDATA	SHOWFLAG+1~, SHOWIT+4*
>> LRDFN	TEST+73, TEST+74, TEST+75, SHOWIT+2, SHOWIT+4, SHOWIT+8
>> LRIDT	TEST+74, TEST+75, SHOWIT+3, SHOWIT+4, SHOWIT+8
>> PANELIEN	GETCOSMC+6*, GETCOSMC+7
>> PANELN	GETCOSMC+4, GETCOSMC+5, GETCOSMC+6
PROMPT	GETYVAL~, GETYVAL+3
RESULT	GETRESLT~, GETRESLT+10*, GETRESLT+12
>> RESULTS	TEST+17, TEST+18, GETCOSMC+9, GETCOSMC+14, GETCOSMC+15
>> RET	TEST+68, TEST+71
>> SITESPEC	TEST+21*, TEST+23
STR	TEST+49*, TEST+50, TEST+51, TEST+52, BADSTUFF~, BADSTUFF+2
STR1	TEST+51, TEST+52, ARRYDUMP+1~, ARRYDUMP+3, ARRYDUMP+5, ARRYDUMP+6*, ARRYDUMP+7
TAB	BADSTUFF~, BADSTUFF+1*, BADSTUFF+2, BADSTUFF+3
>> TEST6	TEST+10
TESTNAME	GETRESLT+1~, GETRESLT+4*, GETRESLT+7
>> TESTSTR	GETCOSMC+12*, GETCOSMC+13
>> TESTY	TEST+8, TEST+9, TEST+10, TEST+12, TEST+14, TEST+16, TEST+17, TEST+21, TEST+24, TEST+26 , TEST+27
U	TEST+1, TEST+23, TEST+28, TEST+51, TEST+52, TEST+66, GETCOSMC+1, GETCOSMC+12
VLABIEN	SHOWFLAG+1~, SHOWIT+6*, SHOWIT+11
>> X	TEST+80*, GETRESLT+16
>> XPARSYS	TEST+1, GETCOSMC+1
>> XQXFLG	TEST+1, GETCOSMC+1
>> Y	TEST+30, TEST+31, TEST+33, TEST+34, TEST+36, TEST+37, TEST+39, TEST+40, TEST+46, TEST+47 , TEST+60, TEST+66, GETYVAL+7, GETRESLT+10
YVAL	GETYVAL~, GETYVAL+7*

Customize PDF page

Package: IHS Laboratory Point of Care

Routine: BLRPOC3

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: