Routine: BMCDXSTF

Information

BMCDXSTF ; IHS/PHXAO/TMJ - Stuff Dx & CPT if Site Parameters Request stuffing ;

Source file <BMCDXSTF.m>

Package	Total	Call Graph
VA Fileman	2	FILE^DICN ^DIR
Referred Care Information System	1	DIE^BMCFMC

Package	Total	Caller Graph
Referred Care Information System	1	BMCADD1

Name	Comments	DBIA/ICR reference
START	;Begin Looping through stuffed dx's
DXDIE	;Prompt for Diagnosis Type & Provider Narrative
XIT	;Exit this Loop - go back to BMCADD1
STUFFDX	;Adds DX as .9999 if Site Parameters = Yes
ANOTHER	;Ask if User wants to enter Another Dx

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Error has ocurred..Cannot add ICD Uncoded Diagnosis Code to RCIS DIAGNOSIS File - Call Developer On This Error!!!" Line Location: STUFFDX+13
Function Call: WRITE	Prompt: !! Line Location: DXDIE+2
Function Call: WRITE	Prompt: !! Line Location: ANOTHER+2
Function Call: WRITE	Prompt: ! Line Location: ANOTHER+7
Routine Call	DIR Line Location: ANOTHER+3

Name	Field # of Occurrence
>> BMCDOS	STUFFDX+6
BMCDX	DXDIE+9, DXDIE+10!
>> BMCDX10	STUFFDX+6
>> BMCDXIEN	STUFFDX+14*, DXDIE+3, DXDIE+6
>> BMCDXT	DXDIE+5*
BMCLOOK	DXDIE+4*, DXDIE+8!
>> BMCQ	START+1, START+2, DXDIE+9, ANOTHER+1, ANOTHER+5, ANOTHER+6*
>> BMCRDX	STUFFDX+1, STUFFDX+6, STUFFDX+7*, STUFFDX+8, STUFFDX+11
>> DA	DXDIE+6*
DIADD	DXDIE+1!
>> DIC	STUFFDX+11*
>> DIC(0	STUFFDX+11*
>> DIE	DXDIE+6*
DIR	ANOTHER+8!
DIR("A"	ANOTHER+3*
DIR("B"	ANOTHER+3*
DIR(0	ANOTHER+3*
DIROUT	ANOTHER+8!
DIRUT	ANOTHER+4, ANOTHER+8!
>> DLAYGO	STUFFDX+11*
>> DR	DXDIE+6*
DTOUT	ANOTHER+8!
DUOUT	ANOTHER+8!
>> X	STUFFDX+11, ANOTHER+4, ANOTHER+6
>> Y	STUFFDX+13, STUFFDX+14, ANOTHER+5