Routine: BCQMAPI

Name	Comments	DBIA/ICR reference
PRIMPOV()	;PEP - return SNOMED to use for primary pov
TESTIMM	;
MMEXAM	;test
PROCESS	;
MMMEAS	;test
HANDED(V,D,RETVAL)	;PEP = get snomed handedness
MMICD10	;test
EMERPOV()	;PEP - return SNOMED to use for V EMERGENCY VISIT (In Future, for now eCQM module will map it locally)
MMEDUC	;test
MM(BCQMF,LOOKUP,LKFORM,VALUE1,VALUE2,VALUE3,VALUE4,VALUE5,VALUE6,BCQMDATE,RETVAL)	;PEP; table oriented magic mapper

Name	Field # of Occurrence
$$MM^BCQMAPI	TESTIMM+1
^DIC	MM+47
$$GET1^DIQ	MM+51, PROCESS+5, PROCESS+7, PROCESS+8, PRIMPOV+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,X,! Line Location: MMMEAS+2
Function Call: WRITE	Prompt: !,X,! Line Location: MMEXAM+2
Function Call: WRITE	Prompt: !,X,! Line Location: MMEDUC+3
Function Call: WRITE	Prompt: !,X,! Line Location: MMICD10+3
Routine Call	DIC Line Location: MM+47

FileNo	Call Tags
^BCQM(9002022 - [#9002022]	GET1^DIQ
9002023.12	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^BCQM(9002022 - [#9002022]	HANDED+5, HANDED+7, HANDED+8
^BCQM(9002023 - [#9002023]	MM+44, MM+50, MM+53, PROCESS+1, PROCESS+2, PROCESS+4
^DD(	MM+29
^DIC - [#1]	MM+30

Name	Line Occurrences
$$MM	MMMEAS+1, MMEXAM+1, MMEDUC+2, MMICD10+2
PROCESS	MM+56

Name	Field # of Occurrence
BCQMC	MM+43, MM+57, PROCESS+9, HANDED+2~, HANDED+4, HANDED+8, HANDED+9
BCQMDATE	MM~, MM+34, MM+35, PROCESS+6
BCQMF	MM~, MM+28, MM+29, MM+30, MM+44, MM+47, MM+51
>> BCQMFIEL	MM+50*, MM+51
>> BCQMFV	MM+49, MM+51, MM+52, MM+56
>> BCQMS	PROCESS+4*, PROCESS+5, PROCESS+7, PROCESS+8
>> BCQMX	MM+44*, MM+45, MM+50, MM+53, PROCESS+1, PROCESS+2, PROCESS+4, PROCESS+5, PROCESS+7, PROCESS+8
>> BCQMY	PROCESS+1*, PROCESS+2, PROCESS+4, PROCESS+5, PROCESS+7, PROCESS+8
>> BCQMZ	MM+56*, PROCESS+1
>> C	PROCESS+8*, PROCESS+9
D	PROCESS+5*, PROCESS+6, HANDED~
>> DIC	MM+47*
>> DIC(0	MM+47*
DT	MM+35, MMMEAS+1, MMEXAM+1, MMEDUC+2, MMICD10+2, TESTIMM+1
LKFORM	MM~, MM+33*, MM+47
LOOKUP	MM~, MM+31*, MM+32, MM+47
OUT	MMEDUC+1!, MMICD10+1!
RETVAL	MM~, MM+26, PROCESS+9, HANDED~, HANDED+1, HANDED+8
>> S	PROCESS+7*, PROCESS+9
U	MM+50, HANDED+8
V	HANDED~, HANDED+3, HANDED+5
VALUE1	MM~, MM+36*
VALUE2	MM~, MM+37*
VALUE3	MM~, MM+38*
VALUE4	MM~, MM+39*
VALUE5	MM~, MM+40*
VALUE6	MM~, MM+41*
X	MM+47, PROCESS+2, MMMEAS+1, MMMEAS+2, MMEXAM+1, MMEXAM+2, MMEDUC+2, MMEDUC+3, MMICD10+2, MMICD10+3 , HANDED+2~, HANDED+5, HANDED+6, HANDED+7, HANDED+8, TESTIMM+1
Y	MM+48, MM+49, HANDED+2~, HANDED+7*, HANDED+8

Information