Routine: IBCSC4D

Information

IBCSC4D ;ALB/ARH - ADD/ENTER DIAGNOSIS ; 11/9/93

Source Information

Source file <IBCSC4D.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIR
Integrated Billing	1	(ADDNEW,NEWDX,PTFADD,PTFASK)^IBCSC4E

Caller Graph

Caller Graph Total: 11

Package	Total	Caller Graph
Integrated Billing	11	IBCBB2 IBCD3 IBCF10 IBCSCE ^IBA(362.3 IBCF22 IBCF32 IBCF331 IBCSC4 IBCSC4E IBCSC5

Entry Points

Name	Comments	DBIA/ICR reference
EN	;add/edit diagnosis for a bill, IBIFN required
AD
ADD(DX,IFN)	;
ADD1(IFN)	;does not work, but it should replace ask add, and edit
DISPOE(OEARR,EXARR)	;
EDIT(DIFN)	;
DISP1(IFN)	;
EXIT
SET(IFN,DXARR,POARR)	;setup arrays of all dx's for bill, array names should be passed by reference	ICR #3808 Status: Active Usage: Private
OPTDX(DFN,DT1,DT2,ARRAY,IBDXA)	;
ASKDX()	;
E1
DISP(POARR)	;screen display of existing dx's for a bill,
HELP	;called for help from dx enter to display existing dx's

External References

Name	Field # of Occurrence
FILE^DICN	ADD+1
^DIE	EDIT+1
^DIR	AD+1
ADDNEW^IBCSC4E	EN+4
NEWDX^IBCSC4E	EN+4
PTFADD^IBCSC4E	EN+2
PTFASK^IBCSC4E	EN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ... dx inactive." Line Location: AD+1
Function Call: WRITE	Prompt: !,?12,$P(IBY,U,1),?26,$P(IBY,U,3),?60,$S($P(IBZ,U,2)<1000:"("_$P(IBZ,U,2)_")",1:"") Line Location: DISP+5
Function Call: WRITE	Prompt: @IOF,!,"============================= DIAGNOSIS SCREEN ==============================",! Line Location: DISPOE+1
Function Call: WRITE	Prompt: !,$J(IBCNT,2),")",?11,IBX,?12,$P(IBDX,U,1),?26,$P(IBDX,U,3) Line Location: DISPOE+4
Routine Call	DIE Line Location: EDIT+1
Routine Call	DIR Line Location: AD+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBA(362.3 - [#362.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	EN+1, EN+3, HELP+2, HELP+3
^IBA(362.3 - [#362.3]	SET+4, SET+5
^ICD9 - [#80]	AD+1, DISP+4, DISPOE+2
^SCE("ADFN"	OPTDX+2, OPTDX+3
^SDD(409.43 - [#409.43]	OPTDX+4

Label References

Name	Line Occurrences
$$ADD	E1
$$ASKDX	E1
AD	AD+1
DISP	EN+5, DISP1+1, HELP+4
DISPOE	EN+3, HELP+3
E1	E1
EDIT	E1
OPTDX	EN+3, HELP+3
SET	EN+1, EN+5, E1, DISP1+1, HELP+2, HELP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARR	SET+3~, OPTDX+1~
ARR(	SET+7, SET+8, OPTDX+5
ARRAY	OPTDX~, OPTDX+1!, OPTDX+6*
ARRAY(	OPTDX+5*
CNT	SET+3~, SET+4, SET+6, SET+9
DA	ADD+1!, EDIT+1*!
DFN	EN+3, HELP+3, OPTDX~, OPTDX+2, OPTDX+3
DIC	ADD+1*!, EDIT+1!
DIC("DR"	ADD+1*
DIC(0	ADD+1*
DIDEL	EDIT+1*!
DIE	EDIT+1*!
DIFN	EDIT~, EDIT+1, SET+3~, SET+5*, SET+7
DIR	AD+1!
DIR("?"	AD*
DIR("??"	AD*
DIR(0	AD+1*
DO	ADD+1!
DR	EDIT+1*!
DT1	OPTDX~, OPTDX+1*, OPTDX+2
DT2	OPTDX~, OPTDX+1*, OPTDX+2
DX	ADD~, ADD+1
DXARR	SET~, SET+3!, SET+9*
DXARR(	SET+7*
EXARR	DISPOE~
EXARR(	DISPOE+3
IBC	SET+3~*, SET+4, SET+5
IBCNT	OPTDX+1~, OPTDX+5, OPTDX+6, DISPOE+1~, DISPOE+2*, DISPOE+3, DISPOE+4
IBCNT1	OPTDX+1~, OPTDX+5, OPTDX+6
IBDIFN	EN+5, E1, EXIT!
IBDT	OPTDX+1~, OPTDX+2*, OPTDX+3
IBDX	E1, EXIT!, OPTDX+1~, OPTDX+4, OPTDX+5, DISPOE+1~, DISPOE+2*, DISPOE+4
IBDXA	EN+1, EN+3, EN+5, E1, EXIT!, HELP+2, HELP+3, HELP+4, OPTDX~
IBDXA(	E1, AD+1, OPTDX+5
>> IBIFN	EN+1, EN+2, EN+3, EN+4, EN+5, E1, HELP+1, HELP+2, HELP+3, HELP+4
IBLIST	EN+2, EN+4, EXIT!
IBOE	OPTDX+1~, OPTDX+3*, OPTDX+4
IBOEDX	EN+3, EN+4, EXIT!, HELP+3
IBPOA	EN+5, E1, EXIT!, HELP+4
IBX	EN+1, EN+2, EN+3, EXIT!, SET+3~, SET+4, SET+5, SET+8, DISP+2~, DISP+4* , HELP+1~, HELP+2, HELP+3, DISPOE+1~, DISPOE+3*, DISPOE+4
IBY	SET+3~, SET+5, SET+6, SET+7, SET+8, DISP+2~, DISP+4*, DISP+5
IBZ	SET+3~, SET+6, SET+7, DISP+2~, DISP+4, DISP+5
IFN	ADD~, ADD+1, SET~, SET+3, SET+9, DISP1~, DISP1+1, ADD1~
IOF	DISPOE+1
OEARR	DISPOE~
OEARR(	DISPOE+2, DISPOE+3
POARR	SET~, SET+3!, SET+9*, DISP~, DISP1+1~
POARR(	SET+8*, DISP+4
U	EN+2, EN+3, EN+4, AD+1, SET+6, SET+7, DISP+5, HELP+3, DISPOE+4
X	ASKDX+1~, ADD+1*!
Y	ASKDX+1~, AD+1, AD+2, ADD+2

Customize PDF page

Package: Integrated Billing

Routine: IBCSC4D

Call Graph Total: 4

Caller Graph Total: 11