Routine: BDMSDX

Information

BDMSDX ; IHS/CMI/LAB - SWITCH CMS DIAGNOSIS LIST ENTRY ;

Source file <BDMSDX.m>

Package	Total	Call Graph
Diabetes Registry	1	(DIC,DIE,DIR)^BDMFDIC

Name	Comments	DBIA/ICR reference
EN	;EP
OLD	;SELECT OLD CMS DIAGNOSES TO REPORT TO NEW DMS DIAGNOSIS
P1
LOLD	;LIST OLD DX'S
POINT	;RE-POINT OLD CMS ENTRIES TO NEW DMS DX
EN1
SURE	;LIST CHANGES TO BE MADE AND AFIRM
EXIT
NEW	;LIST NEW DMS DIAGNOSES AND SELECT DX TO UPDATE
O1

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: NEW+1
Function Call: WRITE	Prompt: !,"Select the DMS DIAGNOSIS" Line Location: NEW+2
Function Call: WRITE	Prompt: ! Line Location: O1+4
Function Call: WRITE	Prompt: !!,"Same as current Official DMS Diagnosis" Line Location: O1+7
Function Call: WRITE	Prompt: @IOF Line Location: LOLD+1
Function Call: WRITE	Prompt: !,"Current CMS DIAGNOSIS LIST ENTRIES that will be changed to:" Line Location: LOLD+2
Function Call: WRITE	Prompt: !?5,$P(BDMX,U,2) Line Location: LOLD+3
Function Call: WRITE	Prompt: !!?5,"NO.",?10,"NAME" Line Location: LOLD+4
Function Call: WRITE	Prompt: !?5,"---",?10,"------------------------------" Line Location: LOLD+5
Function Call: WRITE	Prompt: ! Line Location: SURE+4
Function Call: WRITE	Prompt: "." Line Location: P1+14

FileNo	Call Tags
^ACM(44 - [#9002244]	Classic Fileman Calls
^ACM(44.1 - [#9002244.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACM(44 - [#9002244]	P1+5
^ACM(44.1 - [#9002244.1]	NEW+7, NEW+9

Name	Field # of Occurrence
BDM	POINT+1~
>> BDMDA	P1+4, P1+5, P1+6
BDMDX	EXIT!, EN1+4
BDMDX(	O1+9*, LOLD+8, LOLD+9, POINT+3, P1+3, P1+11, P1+13
BDMJ	EXIT!, POINT+1~, POINT+2, POINT+3, P1+3, P1+11, P1+13
BDMNEW	EXIT!, P1~, P1+2*, P1+8
BDMOLD	EXIT!, P1~, P1+3*, P1+5
BDMOUT	EN+1, EXIT!, OLD+2
BDMQUIT	EN+1, EXIT!, EN1+2, EN1+4, EN1+6!, NEW+6, NEW+8, OLD+2, OLD+3!, O1+6* , SURE+6*
BDMX	EXIT!, NEW+7, NEW+8, NEW+9, O1+7, LOLD+3, P1+2
BDMY	EXIT!
>> DA	P1+6, P1+11
>> DIC	O1+1*
>> DIC("A"	O1+3*
>> DIC(0	O1+2*
>> DIE	P1+7, P1+12
>> DIR("A"	NEW+4, SURE+2
>> DIR("B"	SURE+3*
>> DIR(0	NEW+3, SURE+1
>> DR	P1+8, P1+13
IOF	NEW+1, LOLD+1
>> J	OLD+1, O1+8, O1+9
U	NEW+9, O1+9, LOLD+3, LOLD+9, P1+2, P1+13
X	LOLD+6~, LOLD+7, LOLD+8, LOLD+9
>> Y	NEW+6, O1+6, O1+7, O1+9, SURE+6
>> Y(0	NEW+7, O1+9