Routine: BLRLRPT

Package	Total	Call Graph
Kernel	2	$$HTE^XLFDT $$CJ^XLFSTR
IHS VA Utilities	1	^XBCLS
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; Print appropriate header
PRNT	; Print File 60 tests mapped/not mapped to LOINC code
INIT	; Initialize variables
CR	; Prompt to continue or exit
OPT1	; Print Lab Tests Mapped to LOINC Codes
OPT2	; Print Lab Tests NOT Mapped to LOINC Codes

External References

Name	Field # of Occurrence
^DIR	OPT1+24, OPT2+29
^XBCLS	OPT1+26, OPT1+49, OPT2+31, INIT+1
$$HTE^XLFDT	INIT+5
$$CJ^XLFSTR	OPT1+31, OPT1+36, OPT1+37, OPT1+52, OPT1+57, OPT1+58, OPT2+36, OPT2+41, OPT2+42, HDR+1 , HDR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"1. Print Tests Mapped to LOINC" Line Location: PRNT+11
Function Call: WRITE	Prompt: !,"2. Print Tests NOT Mapped to LOINC" Line Location: PRNT+12
Function Call: READ	Timeout: 30 Variable: R Line Location: PRNT+13
Function Call: WRITE	Prompt: !!,"Enter selection # or '^' to quit: " Line Location: PRNT+13
Function Call: WRITE	Prompt: !!,"Invalid Entry" Line Location: PRNT+14
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(HDR,IOM) Line Location: OPT1+31
Function Call: WRITE	Prompt: !,?5,HDR1,?70,"PAGE: ",PG Line Location: OPT1+32
Function Call: WRITE	Prompt: !!,HDR2,!,HDR3 Line Location: OPT1+33
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(HDR,IOM) Line Location: OPT1+36
Function Call: WRITE	Prompt: !,?5,HDR1,?70,"PAGE: ",PG,!!,HDR2,!,HDR3 Line Location: OPT1+36
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(HDR,IOM),!,?5,HDR1,?70,"PAGE: ",PG,!!,HDR2,!,HDR3 Line Location: OPT1+37
Function Call: WRITE	Prompt: !,NAME,?70,LOINC,!,?2,$G(^LAB(95.3,LOINC,80)),! Line Location: OPT1+38
Function Call: WRITE	Prompt: !,NAME,?32,$E(SPNM,1,12),?46,UNITS,?70,LOINC Line Location: OPT1+41
Function Call: WRITE	Prompt: !,?5,HDR1,?70,"PAGE: ",PG Line Location: OPT1+53
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(HDR,IOM) Line Location: OPT1+57
Function Call: WRITE	Prompt: !,?5,HDR1,?70,"PAGE: ",PG,!!,HDR2,!,HDR3 Line Location: OPT1+57
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(HDR,IOM),!,?5,HDR1,?70,"PAGE: ",PG,!!,HDR2,!,HDR3 Line Location: OPT1+58
Function Call: WRITE	Prompt: !!,$J(CNT,6)," Total Active/Inactive Tests in File 60" Line Location: OPT1+63
Function Call: WRITE	Prompt: !,$J(ZCNT,6)," INACTIVE Tests (",$E(ZCNT/CNT*100,1,5),"%) Will NOT be Mapped" Line Location: OPT1+64
Function Call: WRITE	Prompt: !!,$J(ACNT-NSPEC,6)," Active Tests with ",SCNT," Specimens in File 60" Line Location: OPT1+66
Function Call: WRITE	Prompt: !,$J(NSPEC,6)," Active Tests w/o Specimens in File 60" Line Location: OPT1+67
Function Call: WRITE	Prompt: !,$J(SCNT+NSPEC,6)," Total Entries to Map in File 60" Line Location: OPT1+68
Function Call: WRITE	Prompt: !!,$J(LCNT,6)," Tests w/ Specimens (",$E(LCNT/SCNT*100,1,5),"%) Mapped" Line Location: OPT1+70
Function Call: WRITE	Prompt: !,$J(ICNT,6)," Tests w/o Specimens (",$E(ICNT/NSPEC*100,1,5),"%) Mapped" Line Location: OPT1+71
Function Call: WRITE	Prompt: !,$J(LCNT+ICNT,6)," Total Entries (",$E((LCNT+ICNT)/(SCNT+NSPEC)*100,1,5),"%) Mapped" Line Location: OPT1+72
Function Call: WRITE	Prompt: !!,$J(CCNT,6)," Entries (",$E(CCNT/ACNT*100,1,5),"%) Mapped to C80 LOINC Codes" Line Location: OPT1+74
Function Call: WRITE	Prompt: !,$J(GCNT,6)," C80 LOINC Codes (",$E(GCNT/290*100,1,5),"%) Mapped to File 60" Line Location: OPT1+75
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(HDR,IOM) Line Location: OPT2+36
Function Call: WRITE	Prompt: !,?5,HDR1,?70,"PAGE: ",PG Line Location: OPT2+37
Function Call: WRITE	Prompt: !!,HDR2,!,HDR3 Line Location: OPT2+38
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(HDR,IOM) Line Location: OPT2+41
Function Call: WRITE	Prompt: !,?5,HDR1,?70,"PAGE:",PG,!!,HDR2,!,HDR3 Line Location: OPT2+41
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(HDR,IOM),!,?5,HDR1,?70,"PAGE: ",PG,!!,HDR2,!,HDR3 Line Location: OPT2+42
Function Call: WRITE	Prompt: !,NAME Line Location: OPT2+43
Function Call: WRITE	Prompt: !,NAME,?46,$E(SPNM,1,12),?60,UNITS Line Location: OPT2+45
Function Call: WRITE	Prompt: !!,$J(CNT,6)," Total Active/Inactive Tests in File 60" Line Location: OPT2+49
Function Call: WRITE	Prompt: !,$J(ZCNT,6)," INACTIVE Tests (",$E(ZCNT/CNT*100,1,5),"%) Will NOT be Mapped" Line Location: OPT2+50
Function Call: WRITE	Prompt: !!,$J(ACNT-NSPEC,6)," Active Tests with ",SCNT," Specimens in File 60" Line Location: OPT2+52
Function Call: WRITE	Prompt: !,$J(NSPEC,6)," Active Tests w/o Specimens in File 60" Line Location: OPT2+53
Function Call: WRITE	Prompt: !,$J(SCNT+NSPEC,6)," Total Entries to Map in File 60" Line Location: OPT2+54
Function Call: WRITE	Prompt: !!,$J(NCNT,6)," Tests/Specimens (",$E(NCNT/SCNT*100,1,5),"%) NOT Mapped" Line Location: OPT2+56
Function Call: WRITE	Prompt: !,$J(PCNT,6)," Tests w/o Specimens (",$E(PCNT/NSPEC*100,1,5),"%) NOT Mapped" Line Location: OPT2+57
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(HDR,IOM) Line Location: HDR+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(UDL,IOM) Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Enter RETURN to continue or '^' to exit: " Line Location: CR+5
Routine Call	DIR Line Location: OPT1+24 OPT2+29

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLSLMAST - [#90220]	OPT1+42
^BLSLMAST("C"	OPT1+42
^LAB(60 - [#60]	OPT1+3, OPT1+4, OPT1+8, OPT1+9, OPT1+10, OPT1+13, OPT1+14, OPT1+16, OPT1+17, OPT2+3 , OPT2+4, OPT2+8, OPT2+9, OPT2+10, OPT2+13, OPT2+14, OPT2+18, OPT2+19, OPT2+21, OPT2+22
^LAB(61 - [#61]	OPT1+15, OPT2+20
^LAB(95.3 - [#95.3]	OPT1+11, OPT1+17, OPT1+38, OPT1+43, OPT1+59
^XTMP("BLRLRPT"	PRNT+3!, OPT1+11, OPT1+17, OPT1+35, OPT1+38, OPT1+39, OPT1+40, OPT1+41, OPT1+42, OPT1+48 , OPT1+55, OPT1+56, OPT2+11, OPT2+15, OPT2+22, OPT2+40, OPT2+43, OPT2+44, OPT2+45

Label References

Name	Line Occurrences
@(	PRNT+15
CR	OPT1+36, OPT1+57, OPT2+41, CR+8
HDR	PRNT+10
INIT	PRNT+8
PRNT	PRNT+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACNT	PRNT+6~, PRNT+17!, OPT1+7, OPT1+66, OPT1+74, OPT2+7, OPT2+52, INIT+3*
>> ANS	CR+5*, CR+6, CR+7
CCNT	PRNT+6~, PRNT+17!, OPT1+42, OPT1+74, INIT+3
>> CM	INIT+2*
CNT	PRNT+6~, PRNT+17!, OPT1+4, OPT1+63, OPT1+64, OPT2+4, OPT2+49, OPT2+50, INIT+3*
>> D0	OPT1+3, OPT1+4, OPT1+8, OPT1+9, OPT1+10, OPT1+13, OPT1+14, OPT1+16, OPT1+17, OPT2+3 , OPT2+4, OPT2+8, OPT2+9, OPT2+10, OPT2+13, OPT2+14, OPT2+18, OPT2+19, OPT2+21, OPT2+22 , INIT+2*
>> D1	OPT1+13, OPT1+14, OPT1+15, OPT1+16, OPT1+17, OPT2+18, OPT2+19, OPT2+20, OPT2+21, OPT2+22 , INIT+2*
>> D2	INIT+2*
DIR	OPT1+24!, OPT2+29!
DIR("A"	OPT1+23, OPT2+28
DIR("B"	OPT1+23, OPT2+28
DIR(0	OPT1+23, OPT2+28
GCNT	PRNT+6~, PRNT+17!, OPT1+42, OPT1+75, INIT+3
HDR	PRNT+7~, PRNT+10, PRNT+17!, OPT1+27, OPT1+31, OPT1+36, OPT1+37, OPT1+52, OPT1+57, OPT1+58 , OPT2+32, OPT2+36, OPT2+41, OPT2+42, INIT+4, HDR+1, HDR+2
HDR1	PRNT+7~, PRNT+17!, OPT1+28, OPT1+32, OPT1+36, OPT1+37, OPT1+53, OPT1+57, OPT1+58, OPT2+33 , OPT2+37, OPT2+41, OPT2+42, INIT+4*
HDR2	PRNT+7~, PRNT+17!, OPT1+29, OPT1+33, OPT1+36, OPT1+37, OPT1+50, OPT1+54, OPT1+57, OPT1+58 , OPT2+34, OPT2+38, OPT2+41, OPT2+42, INIT+4
HDR3	PRNT+7~, PRNT+17!, OPT1+30, OPT1+33, OPT1+36, OPT1+37, OPT1+51, OPT1+54, OPT1+57, OPT1+58 , OPT2+35, OPT2+38, OPT2+41, OPT2+42, INIT+4
>> I	HDR+2*
ICNT	PRNT+6~, PRNT+17!, OPT1+10, OPT1+71, OPT1+72, INIT+3
IOM	OPT1+31, OPT1+36, OPT1+37, OPT1+52, OPT1+57, OPT1+58, OPT2+36, OPT2+41, OPT2+42, HDR+1 , HDR+3
LCNT	PRNT+6~, PRNT+17!, OPT1+17, OPT1+70, OPT1+72, INIT+3
>> LNC	OPT1+41, OPT1+42, OPT1+43, OPT1+56, OPT1+59
LOINC	PRNT+7~, PRNT+17!, OPT1+10, OPT1+11, OPT1+17, OPT1+38, OPT1+41, OPT1+42, OPT1+56, OPT1+59 , INIT+4
NAME	PRNT+7~, PRNT+17!, OPT1+4, OPT1+6, OPT1+9, OPT1+11, OPT1+17, OPT1+34, OPT1+35, OPT1+38 , OPT1+39, OPT1+40, OPT1+41, OPT1+55, OPT1+56, OPT1+59, OPT2+4, OPT2+6, OPT2+10, OPT2+11 , OPT2+14, OPT2+15, OPT2+22, OPT2+39, OPT2+40, OPT2+43, OPT2+44, OPT2+45, INIT+4*
NCNT	PRNT+6~, PRNT+17!, OPT2+22, OPT2+56, INIT+3
NOW	PRNT+7~, PRNT+17!, OPT1+28, OPT2+33, INIT+5*
NSPEC	PRNT+6~, PRNT+17!, OPT1+8, OPT1+66, OPT1+67, OPT1+68, OPT1+71, OPT1+72, OPT2+8, OPT2+52 , OPT2+53, OPT2+54, OPT2+57, INIT+3*
>> OPT	PRNT+15*
PCNT	PRNT+6~, PRNT+17!, OPT2+11, OPT2+15, OPT2+57, INIT+3*
>> PG	OPT1+32, OPT1+36, OPT1+37, OPT1+53, OPT1+57, OPT1+58, OPT2+37, OPT2+41, OPT2+42, INIT+2
Q	PRNT+7~, PRNT+17!, INIT+2*
Q1	PRNT+7~, PRNT+17!, OPT1+3, OPT1+35, OPT1+36, OPT1+48, OPT1+55, OPT1+57, OPT2+3, OPT2+40 , OPT2+41, INIT+2, CR+6
R	PRNT+7~, PRNT+13, PRNT+14, PRNT+15, PRNT+17!, INIT+4
R1	PRNT+7~, PRNT+17!, OPT1+25, OPT1+36, OPT1+37, OPT1+57, OPT1+58, OPT2+30, OPT2+41, OPT2+42 , INIT+2*
>> REC	OPT1+42*
SCNT	PRNT+6~, PRNT+17!, OPT1+15, OPT1+66, OPT1+68, OPT1+70, OPT1+72, OPT2+20, OPT2+52, OPT2+54 , OPT2+56, INIT+3*
SPN	PRNT+6~, PRNT+17!, INIT+3*
SPNM	PRNT+7~, PRNT+17!, OPT1+15, OPT1+17, OPT1+39, OPT1+40, OPT1+41, OPT2+20, OPT2+22, OPT2+44 , OPT2+45, INIT+4*
>> SRC	OPT1+42*
>> TYP	OPT1+4, OPT2+4
U	OPT1+4, OPT1+8, OPT1+9, OPT1+10, OPT1+11, OPT1+15, OPT1+16, OPT1+17, OPT2+4, OPT2+10 , OPT2+13, OPT2+14, OPT2+20, OPT2+21
UDL	PRNT+7~, PRNT+17!, INIT+4, HDR+2, HDR+3
UNITS	PRNT+7~, PRNT+17!, OPT1+16, OPT1+17, OPT1+40, OPT1+41, OPT2+21, OPT2+22, OPT2+45, INIT+4*
>> Y	OPT1+25, OPT2+30
ZCNT	PRNT+6~, PRNT+17!, OPT1+6, OPT1+64, OPT2+6, OPT2+50, INIT+3*

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRLRPT

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: