Routine: BLRMPRL2

Information

BLRMPRL2 ; IHS/MSC/MKK - BLR Map Reference Lab Codes to Lab Test File - version 2 ; 01-Jun-2016 13:35 ; MKK

Source Information

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	4	^DIC (,UPDATE)^DIE $$GET1^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC $$CJ^XLFSTR
IHS Changes To Lab	2	($$COLHEAD,ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,MENUDRVR,PRESSKEY)^BLRGMENU $$BADSTUFQ^BLRUTIL7
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
UMAPRPT	; EP - Un-Mapped Tests' Report
TFIELDS	; EP - Test asking fields
MAPTESTS	; EP - main routine driver
JUSTNEW	; EP - Generic RPMS EXCLUSIVE NEW
TESTASK	; EP - Test the ASK function
MAPRPTI()	; EP - Initialization
PEP	; PEP
EEP	; Ersatz EP
SETBLRVS(TWO)	; EP - Set the BLRVERN variable(s)
UMAPRPTI()	; EP - Initialization
UMAPRPTB()	; EP - Break out data
MAPRPT	; EP - Mapped Tests' Report
UMAPRPTL	; EP - Line of Data
ASK(BLRRL)	;-- Ask which Reference Lab to map
MAPRPTB()	; EP - Break out data
MAPRPTL	; EP - Line of Data
EP	; EP
ORR(RL)	; EP - ask and map Reference Lab test(s)

External References

Name	Field # of Occurrence
^%ZIS	MAPRPTI+13, UMAPRPTI+13
^%ZISC	MAPRPT+10, UMAPRPT+10
$$COLHEAD^BLRGMENU	MAPRPTI+18, MAPRPTI+19
ADDTMENU^BLRGMENU	PEP+5, PEP+6, PEP+7
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	MAPTESTS+13, ASK+1, ORR+3, MAPRPTI+6, MAPRPTI+11, UMAPRPTI+6, UMAPRPTI+11
HEADERPG^BLRGMENU	MAPRPTL+3, UMAPRPTL+3
HEADONE^BLRGMENU	MAPRPTI+7, UMAPRPTI+7
MENUDRVR^BLRGMENU	PEP+9
PRESSKEY^BLRGMENU	MAPTESTS+15, MAPRPT+12, UMAPRPT+12
$$BADSTUFQ^BLRUTIL7	MAPRPTI+14, UMAPRPTI+14
^DIC	ORR+8
^DIE	ORR+16, TFIELDS+17
UPDATE^DIE	TFIELDS+10
$$GET1^DIQ	MAPTESTS+10, ASK+14, MAPRPTI+9, MAPRPTB+2, MAPRPTB+5, MAPRPTB+7, MAPRPTB+8, UMAPRPTI+9, UMAPRPTB+2, UMAPRPTB+4 , UMAPRPTB+5, TESTASK+10
^DIR	ASK+23, TFIELDS+5
^XBFMK	ASK+4, ORR+4, TFIELDS+3, TFIELDS+12
$$CJ^XLFSTR	MAPTESTS+10, MAPRPTI+10, UMAPRPTI+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,MAPPED," 9009026 Test",$S(MAPPED=1:"",1:"s")," Mapped." Line Location: MAPTESTS+14
Function Call: WRITE	Prompt: ! Line Location: ORR+11
Function Call: WRITE	Prompt: !!,?4,CNT," Tests",!! Line Location: MAPRPT+9
Function Call: WRITE	Prompt: $E(TESTNAME,1,22) Line Location: MAPRPTL+5
Function Call: WRITE	Prompt: ?24,F60IEN Line Location: MAPRPTL+6
Function Call: WRITE	Prompt: ?34,F60DESC Line Location: MAPRPTL+7
Function Call: WRITE	Prompt: ?59,ORDCODE Line Location: MAPRPTL+8
Function Call: WRITE	Prompt: ?69,RESULTC Line Location: MAPRPTL+9
Function Call: WRITE	Prompt: ! Line Location: MAPRPTL+10
Function Call: WRITE	Prompt: !!,?4,CNT," Tests",!! Line Location: UMAPRPT+9
Function Call: WRITE	Prompt: $S($L($TR(TESTNAME," ")):$E(TESTNAME,1,22),1:"<"_RLD1_">") Line Location: UMAPRPTL+5
Function Call: WRITE	Prompt: ?59,ORDCODE Line Location: UMAPRPTL+6
Function Call: WRITE	Prompt: ?69,RESULTC Line Location: UMAPRPTL+7
Function Call: WRITE	Prompt: ! Line Location: UMAPRPTL+8
Function Call: WRITE	Prompt: !!,?4,"BLRRL:",BLRRL,! Line Location: TESTASK+9
Function Call: WRITE	Prompt: ?9,$$GET1^DIQ(9009026,BLRRL,.01),!! Line Location: TESTASK+10
Routine Call	DIE Line Location: TFIELDS+10
Routine Call	DIE Line Location: ORR+16 TFIELDS+17
Routine Call	DIC Line Location: ORR+8
Routine Call	DIR Line Location: ASK+23 TFIELDS+5
Routine Call	%ZIS Line Location: MAPRPTI+13 UMAPRPTI+13

FileNo	Call Tags
^BLRRL - [#9009026]	GET1^DIQ
9009026.01	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BLRRL - [#9009026]	ASK+11, MAPRPT+5, MAPRPT+7, UMAPRPT+5, UMAPRPT+7

Name	Line Occurrences
$$ASK	MAPTESTS+7, MAPRPTI+4, UMAPRPTI+4, TESTASK+7
$$MAPRPTB	MAPRPTL+1
$$MAPRPTI	MAPRPT+3
$$UMAPRPTB	UMAPRPTL+1
$$UMAPRPTI	UMAPRPT+3
MAPRPTL	MAPRPT+7
ORR	MAPTESTS+11
SETBLRVS	PEP+3, MAPTESTS+3, MAPRPTI+1, UMAPRPTI+1, TESTASK+3
UMAPRPTL	UMAPRPT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLROR	ORR+5!, ORR+13, ORR+15, TFIELDS+14, TFIELDS+16
BLRRL	MAPTESTS+7, MAPTESTS+10, MAPTESTS+11, ASK~, ASK+27, ORR+6, MAPRPT+5, MAPRPT+7, MAPRPTI+4, MAPRPTI+9 , MAPRPTB+1, UMAPRPT+5, UMAPRPT+7, UMAPRPTI+4, UMAPRPTI+9, UMAPRPTB+1, TESTASK+7, TESTASK+9, TESTASK+10, TFIELDS+14 , TFIELDS+15
BLRVERN	SETBLRVS+1!, SETBLRVS+3*
BLRVERN2	SETBLRVS+1!, SETBLRVS+4*
>> CNT	ASK+10, ASK+12, ASK+13, ASK+15, ASK+17, MAPRPT+9, MAPRPTI+29, MAPRPTL+12, UMAPRPT+9, UMAPRPTI+25* , UMAPRPTL+10*
>> DA	ORR+15, TFIELDS+16
>> DA(1	ORR+6, TFIELDS+15
>> DIC	ORR+6, ORR+15, TFIELDS+15, TFIELDS+16
>> DIC("A"	ORR+7*
>> DIC(0	ORR+6, TFIELDS+15
>> DIE	ORR+15, TFIELDS+16
>> DILOCKTM	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> DIR("A"	ASK+21*
>> DIR("L"	ASK+6, ASK+7, ASK+8, ASK+17
>> DIR(0	ASK+22, TFIELDS+4
>> DIRUT	ASK+25, TFIELDS+6
>> DISYS	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> DR	ORR+15, TFIELDS+16
DT	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
DTIME	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
DUZ	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
ERRS	TFIELDS+8!
>> F60DESC	MAPRPTL+7, MAPRPTB+5*
>> F60IEN	MAPRPTL+6, MAPRPTB+2*, MAPRPTB+3
FDA	TFIELDS+8!
FDA(	TFIELDS+9*
>> HDRONE	MAPRPTI+7, MAPRPTL+3, UMAPRPTI+7, UMAPRPTL+3
>> HEADER(1	MAPTESTS+4, MAPRPTI+2, UMAPRPTI+2, TESTASK+4
>> HEADER(2	MAPTESTS+5, MAPRPTI+9, UMAPRPTI+9, TESTASK+5
>> HEADER(3	MAPTESTS+9!, MAPTESTS+10, MAPTESTS+16!, MAPRPTI+10, UMAPRPTI+10*
>> HEADER(4	MAPRPTI+17, UMAPRPTI+17
>> HEADER(5	MAPRPTI+18, MAPRPTI+19, MAPRPTI+20, MAPRPTI+21, UMAPRPTI+18, UMAPRPTI+19
>> HEADER(6	MAPRPTI+22, MAPRPTI+23, MAPRPTI+24, MAPRPTI+25, MAPRPTI+26, UMAPRPTI+20, UMAPRPTI+21, UMAPRPTI+22
IO	PEP+1, MAPTESTS+1, MAPRPT+1, MAPRPTI+15, UMAPRPT+1, UMAPRPTI+15, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> IOBS	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
IOF	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
IOM	PEP+1, MAPTESTS+1, MAPTESTS+10, MAPRPT+1, MAPRPTI+10, UMAPRPT+1, UMAPRPTI+10, JUSTNEW+1, TESTASK+1, TFIELDS+1
ION	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> IOS	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
IOSL	PEP+1, MAPTESTS+1, MAPRPT+1, MAPRPTI+28, UMAPRPT+1, UMAPRPTI+24, JUSTNEW+1, TESTASK+1, TFIELDS+1
IOST	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> IOT	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> IOXY	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> LINE	ASK+9, ASK+16, ASK+17
>> LINES	MAPRPTI+28, MAPRPTL+3, MAPRPTL+11, UMAPRPTI+24, UMAPRPTL+3, UMAPRPTL+9
>> MAPPED	MAPTESTS+8, MAPTESTS+12, MAPTESTS+14, ORR+17, TFIELDS+18*
>> MAXLINES	MAPRPTI+28, MAPRPTL+3, UMAPRPTI+24, UMAPRPTL+3
>> ONGO	ORR+1, ORR+2, ORR+9
>> ORDCODE	MAPRPTL+8, MAPRPTB+7, UMAPRPTL+6, UMAPRPTB+4
>> PG	MAPRPTI+29, MAPRPTL+3, UMAPRPTI+25, UMAPRPTL+3
>> POP	MAPRPTI+14, UMAPRPTI+14
>> QFLG	MAPRPT+5, MAPRPT+7, MAPRPTI+30, MAPRPTL+3, UMAPRPT+5, UMAPRPT+7, UMAPRPTI+26, UMAPRPTL+3
>> REFLABN	ASK+14*, ASK+15, ASK+17
>> RESULTC	MAPRPTL+9, MAPRPTB+8, UMAPRPTL+7, UMAPRPTB+5
RL	ORR~, ORR+6, TFIELDS+14*, TFIELDS+15
>> RLD0	ASK+10, ASK+11, ASK+13, ASK+14
>> RLD1	MAPRPT+6, MAPRPT+7, MAPRPTB+1, UMAPRPT+6, UMAPRPT+7, UMAPRPTL+5, UMAPRPTB+1
>> RLD1IEN	MAPRPTB+1, MAPRPTB+2, MAPRPTB+5, MAPRPTB+7, MAPRPTB+8, UMAPRPTB+1, UMAPRPTB+2, UMAPRPTB+4, UMAPRPTB+5
>> RLIEN(	ASK+13*, ASK+27
>> SELSTR	ASK+10, ASK+15, ASK+19*, ASK+22
>> TAB	ASK+5*, ASK+7, ASK+21
>> TAB2	ASK+5*, ASK+17
>> TESTNAME	MAPRPT+5, MAPRPT+7, MAPRPTI+32, MAPRPTL+5, UMAPRPT+5, UMAPRPT+7, UMAPRPTI+28, UMAPRPTL+5
TWO	SETBLRVS~, SETBLRVS+4
U	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> XPARSYS	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> XQXFLG	PEP+1, MAPTESTS+1, MAPRPT+1, UMAPRPT+1, JUSTNEW+1, TESTASK+1, TFIELDS+1
>> Y	ASK+25, ASK+27, ORR+9, ORR+13, TFIELDS+6, TFIELDS+9

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRMPRL2

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items