Routine: IBCNSM

Package	Total	Call Graph
Integrated Billing	4	$$GRP^IBCNS ALL^IBCNS1 $$DAT1^IBOUTL $$EXPAND^IBTRE
Registration	4	PID^VADPT EN^VALM ($$SETFLD,FULL)^VALM1 CLEAN^VALM10
VA Fileman	3	^DIC DT^DICRW ^DIR

Package	Total	Caller Graph
Integrated Billing	20	IBCNSA1 IBCNSD IBCNSM1 IBCNSM2 IBCNSM3 IBCNSM31 IBCNSM4 IBCNSM5 IBCNSM6 IBCNSM9 IBCNSP3 IBCNSV IBTRC IBTRC1 IBTRC4 IBTRE IBTRE1 IBTRED2 IBTRV IBTRV1

Entry Points

Name	Comments	DBIA/ICR reference
FNL	; -- exit and clean up
EN	;
PAT	; -- select patient you are working with
HDR	; -- screen header for initial screen
YN(X,Y)	; -- convert 1 or 0 to yes/no/unknown
FASTEXIT	;just sets a flag signaling system should be exited
SET(X)	; -- set arrays
ENQ
INIT	; -- set up inital variables
PCI
INITQ
CPQ
BLD	; -- build list of bills
CP	; -- change patient
BLDQ	;

Name	Field # of Occurrence
^DIC	PAT+1
DT^DICRW	EN+1
^DIR	INIT+5, FASTEXIT+3
$$GRP^IBCNS	BLD+20
ALL^IBCNS1	BLD+7
$$DAT1^IBOUTL	BLD+21, BLD+22, BLD+26
$$EXPAND^IBTRE	BLD+24
PID^VADPT	HDR+1
EN^VALM	EN+3, INIT+8
$$SETFLD^VALM1	BLD+16, BLD+17, BLD+18, BLD+19, BLD+20, BLD+21, BLD+22, BLD+23, BLD+24, BLD+25 , BLD+26, BLD+27, BLD+28, BLD+29
FULL^VALM1	CP+2, FASTEXIT+2
CLEAN^VALM10	FNL+3

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	BLD+17
^DPT - [#2]	HDR+2
^IBA(355.3 - [#355.3]	BLD+14, BLD+24
^IBE(355.1 - [#355.1]	BLD+23, BLD+24
^TMP("IBNSM"	INIT+2!, BLD+1!, SET+1, SET+2, FNL+1!
^TMP("IBNSMDX"	INIT+2!, BLD+1!, SET+3*, FNL+1!
^VA(200 - [#200]	BLD+25

Name	Field # of Occurrence
^(0	BLD+17, HDR+2

Name	Field # of Occurrence
DFN	ENQ!, INIT+7, PAT+2, BLD+7, SET+3, HDR+2, CP+3, CP+4*
>> DIC	PAT+1*
>> DIC(0	PAT+1*
DIR	INIT+5!, FASTEXIT+3!, FASTEXIT+5!
DIR("A"	INIT+4, FASTEXIT+3
DIR("B"	FASTEXIT+3*
DIR(0	INIT+4, FASTEXIT+3
>> DIRUT	INIT+5, FASTEXIT+4
I	BLD+2~
IBCDFND	BLD+2~, BLD+12*, BLD+17, BLD+18, BLD+19, BLD+20, BLD+21, BLD+22, BLD+24, BLD+29 , SET+3
>> IBCDFND1	BLD+13*, BLD+25, BLD+26
>> IBCNS	INIT+8*
IBCNT	BLD+2~, BLD+3, BLD+11, BLD+16, SET+2, SET+3
IBCPOLD	BLD+2~, BLD+14*, BLD+23, BLD+27, BLD+28
IBDFN	CP+3*, CP+4, CPQ!
IBFASTXT	FNL+2!, FASTEXIT+4*
>> IBFILE	BLD+3*, SET+3
IBGRP	BLD+2~, BLD+30!
IBHOLD	BLD+2~, BLD+19*, BLD+30!
IBINS	BLD+2~, BLD+6!*
IBINS(	BLD+8, BLD+12, BLD+13, BLD+14
IBINS(0	BLD+8
>> IBN	BLD+3*
>> IBTYP	INIT+7, INIT+8
>> IBY	INIT+6*, INIT+7, INIT+8
J	BLD+2~
K	BLD+2~, BLD+8*, BLD+12, BLD+13, BLD+14, SET+3
U	INIT+1*, BLD+23, BLD+25
>> VA("BID"	HDR+2
>> VALMBCK	CP+6, PCI, FASTEXIT+1*
>> VALMBG	INIT+1*
>> VALMCNT	INIT+1, BLD+3, SET+1*, SET+2, SET+3
VALMEVL	EN+2!
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+3*
VALMQUIT	INIT+5, INIT+8, PAT+1*, CP+1~, CP+4
X	BLD+15, BLD+16, BLD+17, BLD+18, BLD+19, BLD+20, BLD+21, BLD+22, BLD+23, BLD+24 , BLD+25, BLD+26, BLD+27, BLD+28, BLD+29*, BLD+31, SET~, SET+1, YN~, YN+1
XQORS	EN+2!
Y	INIT+6, PAT+1, PAT+2, YN~, YN+1, FASTEXIT+4