Routine: BMCPXSTF

Information

BMCPXSTF ; IHS/PHXAO/TMJ - Stuff CPT if Site Parameters Request stuffing ;

Source file <BMCPXSTF.m>

Package	Total	Call Graph
VA Fileman	2	^DIC ^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 PX's
PXDIE	;Prompt for CPT Type & Provider Narrative
XIT	;Exit this Loop - go back to BMCADD1
ANOTHER	;Ask if User wants to enter Another Dx
STUFFPX	;Adds PX as 00999 if Site Parameters = Yes

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Error has ocurred..Cannot Add a 00099 CPT Code to RCIS PROCEDURE File - Call Developer On This Error!!!" Line Location: STUFFPX+5
Function Call: WRITE	Prompt: !! Line Location: PXDIE+2
Function Call: WRITE	Prompt: !! Line Location: ANOTHER+2
Function Call: WRITE	Prompt: ! Line Location: ANOTHER+7
Routine Call	DIC Line Location: STUFFPX+4
Routine Call	DIR Line Location: ANOTHER+3

FileNo	Call Tags
^BMCPX - [#90001.02]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ICPT("B"	STUFFPX+2

Name	Field # of Occurrence
BMCLOOK	PXDIE+4*, PXDIE+8!
BMCPX	PXDIE+9, PXDIE+10!
>> BMCPXIEN	STUFFPX+6*, PXDIE+3, PXDIE+6
>> BMCPXT	PXDIE+5*
>> BMCQ	START+1, START+2, PXDIE+9, ANOTHER+1, ANOTHER+5, ANOTHER+6*
>> BMCRPX	STUFFPX+1, STUFFPX+2, STUFFPX+3, STUFFPX+4
>> DA	PXDIE+6*
DIADD	STUFFPX+4*, PXDIE+1!
>> DIC	STUFFPX+4*
>> DIC(0	STUFFPX+4*
>> DIE	PXDIE+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	STUFFPX+4*
>> DR	PXDIE+6*
DTOUT	ANOTHER+8!
DUOUT	ANOTHER+8!
>> X	STUFFPX+4, STUFFPX+5, ANOTHER+4, ANOTHER+6
>> Y	STUFFPX+6, ANOTHER+5