Routine: IBCU71

Information

IBCU71 ;ALB/AAS - INTERCEPT SCREEN INPUT OF PROCEDURE CODES ; 29-OCT-91

Source file <IBCU71.m>

Package	Total	Caller Graph
Integrated Billing	1	IBCU7

Name	Comments	DBIA/ICR reference
SCREEN(X,Y)	; -- screen logic for active procs or surgeries
ADDCPT	; - store cpt codes in scheduling visits file
DISPDX	; - display diagnosis codes available for associated dx (HCFA 1500) NO LONGER USED?

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: ADDCPT+7
Function Call: WRITE	Prompt: "..Done.",! Line Location: ADDCPT+8
Function Call: WRITE	Prompt: !!,"Bill has no ICD DIAGNOSIS." Line Location: DISPDX+3
Function Call: WRITE	Prompt: ! Line Location: DISPDX+5
Function Call: WRITE	Prompt: ?X," ",$P(IBDX,"^",2),?(X+13),$E($P(IBDX,"^",4),1,28) Line Location: DISPDX+6
Routine Call	DIR Line Location: ADDCPT+3

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	DISPDX+2
^IBE(350.4 - [#350.4]	SCREEN+9
^ICD9 - [#80]	DISPDX+2
^SD(409.72	SCREEN+8

Name	Field # of Occurrence
^(	SCREEN+8, SCREEN+9
^(0	SCREEN+8, SCREEN+9

Name	Field # of Occurrence
>> CNT	ADDCPT+7*
DA	ADDCPT+2~
DGCPT	ADDCPT+1, ADDCPT+9!
DGCPT(	ADDCPT+7
>> DGPROCDT	ADDCPT+5
DIC	ADDCPT+2~
DIE	ADDCPT+2~
DIR	ADDCPT+3!
DIR("A"	ADDCPT+3*
DIR("B"	ADDCPT+3*
DIR(0	ADDCPT+3*
>> DIRUT	ADDCPT+3
DR	ADDCPT+2~
I	ADDCPT+7, DISPDX+1~, DISPDX+2, DISPDX+5*
IBDX	DISPDX+1~, DISPDX+2, DISPDX+5, DISPDX+6
IBDXL	DISPDX+1~, DISPDX+3
IBDXL(	DISPDX+2*, DISPDX+5
>> IBIFN	DISPDX+2
J	ADDCPT+7, DISPDX+1~, DISPDX+5
>> K	ADDCPT+7*
>> L	ADDCPT+7*
SDATE	ADDCPT+5*, ADDCPT+9!
SDC	ADDCPT+5*, ADDCPT+9!
SDCPT	ADDCPT+4!, ADDCPT+8, ADDCPT+9!
SDCPT(	ADDCPT+7*
SDCTYPE	ADDCPT+5*, ADDCPT+9!
SDIV	ADDCPT+5*, ADDCPT+9!
SDMSG	ADDCPT+5*, ADDCPT+9!
U	SCREEN+8, SCREEN+9
X	DISPDX+1~, DISPDX+2, DISPDX+5, DISPDX+6, SCREEN~, SCREEN+7, SCREEN+8, SCREEN+9
Y	ADDCPT+3, SCREEN~, SCREEN+7, SCREEN+8, SCREEN+9