Routine: IBCSC10B

Package	Total	Call Graph
VA FileMan	5	FIND^DIC ^DIE CLEAN^DILF $$GET1^DIQ ^DIR
Integrated Billing	2	($$BDATE,$$ICD9,$$ICD9ACT,$$ICD9SYS)^IBACSV $$DAT1^IBOUTL

Package	Total	Caller Graph
Integrated Billing	1	IBCSCE

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry point
EN1	;
DISP	; display PRV diagnoses
DISPEX(IBIFN)	; display existing PRV diagnoses for a bill
CHKPRV()	; check how many PRVs are not populated (out of 3)
PRVFLD(DXIEN)	; returns the field number that contains DXIEN ; if DXIEN="", returns the first empty PRV field number ; if no match found (or no empty fields), returns 0
ERR	; display error message
NEWDX(IBX)	; select PRV diagnosis to add to bill ; IBX - max. number of PRV diagnoses available
NEWDX1
NEWDXE
ADD(DXIEN)	; add single PRV diagnosis with file 80 ien DXIEN to the bill
ADDNEW	; add selected PRV diagnoses to the bill
ASKDX()	; enter extra PRV diagnosis ; returns dx ien in file 80 ^ dx code
AD	;
EDIT(DXIEN)	; edit/delete PRV diagnosis
DELALL(IBIFN)	; ask/delete all PRV diagnoses on the bill

External References

Name	Field # of Occurrence
FIND^DIC	EN+12, EN+21
^DIE	ADD+5, EDIT+2, EDIT+11, DELALL+6
CLEAN^DILF	EN+38
$$GET1^DIQ	EN+30, EN+31
^DIR	NEWDX1+2, NEWDX1+5, AD+4, DELALL+4
$$BDATE^IBACSV	DISP+5, DISPEX+4, ASKDX+3
$$ICD9^IBACSV	DISP+5, DISPEX+4
$$ICD9ACT^IBACSV	AD+5
$$ICD9SYS^IBACSV	AD+2
$$DAT1^IBOUTL	ASKDX+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"===================Pt. Reason for Visit Diagnosis Screen ====================",! Line Location: DISP+2
Function Call: WRITE	Prompt: !,?13,"No available Pt. Reason for Visit Diagnoses found." Line Location: DISP+3
Function Call: WRITE	Prompt: !!,?5,"------ Existing Pt. Reason for Visit Diagnoses for Bill -------",! Line Location: DISPEX+2
Function Call: WRITE	Prompt: ! Line Location: DISPEX+8
Function Call: WRITE	Prompt: !,?6,"You may add a maximum of 3 PRV diagnoses to a claim." Line Location: ERR+1
Function Call: WRITE	Prompt: ! Line Location: NEWDX+4
Function Call: WRITE	Prompt: !!,*7,"The Diagnosis code is inactive for the date of service ("_IBDTTX_").",! Line Location: AD+6
Function Call: WRITE	Prompt: ! Line Location: DELALL+1
Function Call: WRITE	Prompt: " .... deleted" Line Location: DELALL+7
Routine Call	DIC Line Location: EN+12 EN+21
Routine Call	DIE Line Location: ADD+5 EDIT+2 EDIT+11 DELALL+6
Routine Call	DIR Line Location: NEWDX1+2 NEWDX1+5 AD+4 DELALL+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGCR(399 - [#399]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	FIND^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	EN+5, EN+11, EN+18, EN+19, DISP+6, DISPEX+3, CHKPRV+2, PRVFLD+4, EDIT+4
^DSIPPRV	EN+4, EN+29
^DSIPPRV("B"	EN+28

Label References

Name	Line Occurrences
$$ASKDX	EN1+1
$$CHKPRV	EN+2, NEWDX+3, NEWDX1+7, ADD+4
$$PRVFLD	ADD+1, ADD+5, AD+5, EDIT+2
AD	AD+5
ADD	EN1+1, ADDNEW+3
ADDNEW	EN+36
DELALL	EN+2
DISP	EN+36
DISPEX	EN+37
EDIT	EN1+1
EN1	EN1+1
ERR	NEWDX1+7, ADD+4
NEWDX	EN+36
NEWDX1	NEWDX1+6, NEWDX1+7
NEWDXE	NEWDX1+2, NEWDX1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	DISP+1~, DISP+4, DISP+5, DISP+6, DISP+7, CHKPRV+1~, CHKPRV+2, CHKPRV+3
DA	ADD+5!, EDIT+2!, EDIT+11!, DELALL+1~, DELALL+6
DATE	EN+1~, EN+11, EN+18, EN+31*, EN+32
DATE1	EN+1~, EN+19*
DFN	EN+1~, EN+5*, EN+12, EN+21
DIE	ADD+5!, EDIT+2!, EDIT+11!, DELALL+1~, DELALL+6
DIR	NEWDX+2~, NEWDX1+2!, NEWDX1+5!, AD+4!, DELALL+1~, DELALL+4!
DIR("?"	NEWDX1, AD+1, DELALL+2*
DIR("??"	DELALL+2*
DIR("A"	NEWDX1+1, NEWDX1+4, AD+3, DELALL+3
DIR("B"	NEWDX1+4, DELALL+4
DIR("S"	AD+2*
DIR(0	NEWDX1+2, NEWDX1+5, AD+3, DELALL+4
DIRUT	NEWDX+2~, NEWDX1+2, NEWDX1+5, DELALL+1~
DR	ADD+5, EDIT+2!, EDIT+6, EDIT+8, EDIT+11!, DELALL+1~, DELALL+6*
DTOUT	DELALL+1~
DUOUT	DELALL+1~
DXCODE	DISP+1~, DISP+5, DISP+6, DISP+7
DXIEN	PRVFLD~, PRVFLD+4, ADD~, ADD+1, ADD+5, EDIT~, EDIT+2
FLD	PRVFLD+3~, PRVFLD+4, PRVFLD+5, ADD+2~, ADD+5, EDIT+1~, EDIT+2*, EDIT+4, EDIT+6, EDIT+8
I	EN+1~, EN+32, DISP+1~, DISP+6, DISPEX+1~, DISPEX+3, CHKPRV+1~, CHKPRV+2, PRVFLD+3~, PRVFLD+4* , ADDNEW+2~, ADDNEW+3*
IBDATE	ASKDX+2~, ASKDX+3*, ASKDX+4, AD+2, AD+5
IBDTTX	ASKDX+2~, ASKDX+4*, AD+1, AD+6
IBDX	EN+1~, EN1+1, DISP+1~, DISP+5, DISP+7, DISPEX+1~, DISPEX+3*, DISPEX+4
IBDXDT	DISPEX+1~, DISPEX+4*, DISPEX+5, DISPEX+7
IBIFN	EN+2, EN+5, EN+11, EN+18, EN+19, EN+37, DISP+5, DISP+6, DISPEX~, DISPEX+3 , DISPEX+4, CHKPRV+2, PRVFLD+4, ADD+5, ASKDX+3, EDIT+2, EDIT+4, EDIT+11, DELALL~, DELALL+2 , DELALL+6
IBLIST	EN+1~, EN+36, NEWDX1+3*, NEWDX1+4, NEWDX1+5!, NEWDX1+7, ADDNEW+3
IBU3	EDIT+1~, EDIT+4*, EDIT+6, EDIT+8
IBX	NEWDX~, NEWDX+3, NEWDX1+2, ADDNEW+2~, ADDNEW+3*
ICDVDT	ASKDX+2~, ASKDX+3*
IOF	DISP+2
LOC	EN+1~, EN+30*, EN+32
PRV	DISP+1~, DISP+6*
PRV0	EN+1~, EN+29*, EN+32
PRV2	EDIT+1~, EDIT+6*
PRV3	EDIT+1~, EDIT+6, EDIT+8
PRVIEN	EN+1~, EN+28*, EN+29
PRVS	EN+1~, DISP+3, ADDNEW+1
PRVS(	EN+32*, DISP+4, DISP+5, DISP+6, DISP+7, ADDNEW+3
SCREEN	EN+1~, EN+10, EN+12, EN+20, EN+21
TCNT	EN+1~, EN+13, EN+22, EN+27, EN+32, EN+36
TMP	EN+1~
TMP("DILIST"	EN+12, EN+13, EN+21, EN+22
U	EN+5, EN+12, EN+13, EN+18, EN+19, EN+21, EN+22, EN+32, EN1+1, DISP+5 , DISP+6, DISP+7, DISPEX+3, DISPEX+5, CHKPRV+2, PRVFLD+4, EDIT+4, EDIT+6, EDIT+8
VCNT	EN+1~, EN+11, EN+13, EN+22, EN+27, EN+28, EN+30, EN+31
VISITS	EN+1~, EN+15, EN+24
VISITS(	EN+13, EN+22, EN+27, EN+28, EN+30, EN+31
X	NEWDX+2~, ASKDX+2~, DELALL+1~
Y	NEWDX+2~, NEWDX1+2, NEWDX1+3, NEWDX1+6, ASKDX+2~, AD+5, AD+7, DELALL+1~, DELALL+4

Customize PDF page

Package: Integrated Billing

Routine: IBCSC10B

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: