Routine: IBCNSC3

Information

IBCNSC3 ;ALB/NLR - INACTIVATE AND REPOINT INS STUFF1 ; 20-APR-93

Source file <IBCNSC3.m>

Package	Total	Caller Graph
Integrated Billing	1	IBCNSC2

Name	Comments	DBIA/ICR reference
REPOINT	; -- get parameters for call to DIE
SET	; -- store data to be printed in temp array
RPT2	;
HDR	; -- print header
RPT1	;
VERIFY	; -- allow user to change mind about inactivating company
CALLDIE	; -- get name of active insurance co., repoint patients to same
RPTASK	; -- ask if user wishes to repoint patients to active insurance company
BUILD	; -- set list of patients in ^tmp array
CALLDIE1	; -- stuff .01 field of 355.3 with newly-assigned ins. co.
SAVE	; -- save off field repointed too
R3Q

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	HDR+4
^DPT - [#2]	BUILD+5
^DPT("AB"	REPOINT+2, RPT1+1, BUILD+4
^IBA(355.3 - [#355.3]	RPT2+1
^TMP($J	BUILD+2!, SET+9*

Name	Field # of Occurrence
DA	RPT2+1, CALLDIE+3, CALLDIE1+3, SAVE+1~, SAVE+3
DA(1	CALLDIE+3*
>> DFN	REPOINT+2, RPT1+1, BUILD+3, BUILD+4*, BUILD+5, CALLDIE+3, SET+9
DIC	RPTASK+7*!, SAVE+1~
DIC("A"	RPTASK+7*
DIC("S"	RPTASK+7*
DIC(0	RPTASK+7*
DIE	CALLDIE+3!, CALLDIE1+3!, SAVE+1~, SAVE+3*
DIR	RPTASK+5!, VERIFY+7!
DIR("?"	VERIFY+4, VERIFY+5, VERIFY+6*
DIR("A"	RPTASK+3, VERIFY+3
DIR("B"	RPTASK+3, VERIFY+3
DIR(0	RPTASK+3, VERIFY+3
>> DIRUT	RPTASK+5, RPTASK+7, VERIFY+7
DR	CALLDIE+3, CALLDIE1+3, SAVE+1~, SAVE+3*
DT	HDR+4
>> EMPLOYER	SET+8*, SET+9
>> IBC	RPTASK+3, RPTASK+7
>> IBCNS	REPOINT+2, RPT1+1, RPT2+1, HDR+4, BUILD+4, BUILD+7, SAVE+3
>> IBD	RPT1+1, BUILD+4, BUILD+5, CALLDIE+3, SET+9
>> IBIND	BUILD+5*, BUILD+7, SET+5, SET+9
>> IBN	RPT2+1*, VERIFY+3, VERIFY+4, VERIFY+6, CALLDIE1+3
>> IBNA	BUILD+4*, SET+9
>> IBNO	BUILD+4*, SET+9
>> IBPAG	HDR+2, HDR+3*, HDR+4
>> IBQUIT	VERIFY+7*
IBR	RPTASK+2~, RPTASK+9*, REPOINT+2, CALLDIE+3, CALLDIE1+3, SAVE+2, SAVE+3
>> IBV	VERIFY+8*, HDR+4
>> IBWI	SET+5*, SET+6, SET+9
IOF	HDR+2
IOM	HDR+6
IOST	HDR+2
U	HDR+4, BUILD+4, BUILD+7, SET+9
>> VAOA("A"	SET+6*
>> VAOA(9	SET+8
>> X	BUILD+4*
>> Y	RPTASK+5, RPTASK+8, RPTASK+9, VERIFY+8