Routine: DGVPTIB2

Information

DGVPTIB2 ;alb/mjk - IBECEA3 for export with PIMS v5.3; 4/21/93

Source Information

Source file <DGVPTIB2.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	5	DD^%DT YN^DICN ^DIE ^DIK ^DIR
Integrated Billing	3	PAUSE^IBECEA1 CANCHG^IBECEA2 EN^IBECEA4
Scheduling	1	$$STATUS^SDAM1

Entry Points

Name	Comments	DBIA/ICR reference
CHKCNP	; skip op copay charges (if any) if a C&P appointment is found
CHKAE	; check ADD/EDIT STOP CODES for C&Ps
FEE	; charges for fee basis
LAST	;find last entry
IBECEA3	;ALB/RLW - Add/Update/Cancel Charges Part 3 ; 12-JUN-92
APPT	; see if there's already an appointment billed for the day or a C&P ; (if there's a charge, is status complete,billed,on hold,updated?) ; if $D(IBSIEN) called from ^IBACKIN; ignore that charge to account for filer delay in cancelling old charge.
BEVT	; get associated billable event
BEVTQ
CLOCK1	; update category c billing clock NUMBER INPATIENT DAYS
CLOCK2
CLOCK3	; update category c billing clock 90 DAY INPATIENT AMOUNT
CLOCK4
FEEQ
CANCP	; if check-in is for a C&P, cancel OP Copayments for day (if any).
APPTQ
GETDAT	;
CHKAEQ
DELETE	; clean up stub record if no charge created

External References

Name	Field # of Occurrence
DD^%DT	GETDAT+3
YN^DICN	CLOCK2+1, CLOCK4+3
^DIE	CLOCK2+2, CLOCK4+3
^DIK	DELETE+3
^DIR	BEVT+4, FEE+3, GETDAT+2, GETDAT+4, CHKCNP+6
PAUSE^IBECEA1	CLOCK2, CLOCK4
CANCHG^IBECEA2	CANCP+3
EN^IBECEA4	BEVT+2
$$STATUS^SDAM1	CHKCNP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Can't update clock, record is locked" Line Location: CLOCK2+0
Function Call: WRITE	Prompt: !,"Adjust CATEGORY C BILLING CLOCK NUMBER INPATIENT DAYS by "_$S(IBUNIT<0:"("_IBUNIT_")",1:IBUNIT) Line Location: CLOCK2+1
Function Call: WRITE	Prompt: !!,"Can't update clock, record is locked" Line Location: CLOCK4+0
Function Call: WRITE	Prompt: !,"Adjust CATEGORY C BILLING CLOCK "_$S(X=5:"1ST",X=6:"2ND",X=7:"3RD",1:"4TH")_" 90-DAY INPATIENT AMOUNT by $"_$S(IBCHG<0:"("_IBCHG_")",1:IBCHG) Line Location: CLOCK4+2
Function Call: WRITE	Prompt: !,"NEW CHARGE NOT ADDED..." Line Location: DELETE+2
Routine Call	DIE Line Location: CLOCK2+2 CLOCK4+3
Routine Call	DIR Line Location: BEVT+4 FEE+3 GETDAT+2 GETDAT+4 CHKCNP+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IB - [#350]	Classic Fileman Calls
^IBE(351 - [#351]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	CHKCNP+2
^IB - [#350]	LAST+2, BEVT+6, APPT+7, CANCP+3, DELETE+1
^IB("AFDT"	APPT+4, APPT+5, CANCP+1, CANCP+3
^IB("APDT"	LAST+3
^IBE(350.1 - [#350.1]	FEE+2
^IBE(351 - [#351]	CLOCK2, CLOCK2+1, CLOCK2+3, CLOCK4, CLOCK4+1, CLOCK4+5
^SDV - [#409.5]	CHKAE+2
^SDV("ADT"	CHKAE+1
^TMP("IBACMID1"	BEVT+6

Label References

Name	Line Occurrences
APPTQ	APPT+8, APPT+9
BEVT	BEVT+4
BEVTQ	BEVT+5, BEVT+8
CHKAE	APPT+10
CHKAEQ	CHKAE+1, CHKAE+2
CHKCNP	APPT+9
FEEQ	FEE+3
GETDAT	BEVT+9

Naked Globals

Name	Field # of Occurrence
^(	BEVT+6, CHKCNP+2, CHKAE+2
^(0	APPT+7, CANCP+3
^(20	FEE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CLOCK2+1, CLOCK2+2, CLOCK4+3
DA	CLOCK2+2!, CLOCK4+1, CLOCK4+4!, DELETE+3*!
>> DFN	CLOCK2, CLOCK4
DIE	CLOCK2+2!, CLOCK4+1, CLOCK4+4!
DIK	DELETE+3*!
DIR	BEVT+4!, FEEQ!, GETDAT+2!, GETDAT+4!, CHKCNP+6!
DIR("A"	BEVT+4, FEE+3, GETDAT+2, GETDAT+4, CHKCNP+6*
DIR("B"	GETDAT+4*
DIR(0	BEVT+4, FEE+3, GETDAT+2, GETDAT+4, CHKCNP+6*
DIRUT	BEVT+1!, FEE+3, GETDAT+2
DR	CLOCK2+2!, CLOCK4+1, CLOCK4+4!
DT	CLOCK4+1
I	BEVT+3, BEVT+4, BEVT+5, BEVT+6, BEVTQ!, APPT+4, APPTQ!, CHKCNP+1, CHKCNP+2, CHKCNP+4 , CHKCNP+7!, CHKAE+1, CHKAE+2, CHKAEQ!
>> IBADFN	APPT+4, APPT+5, CHKCNP+2, CHKCNP+4, CHKAE+1, CANCP+1, CANCP+3
>> IBATYP	FEE+2
>> IBCHG	FEE+4, CLOCK3+1, CLOCK4+1, CLOCK4+2
IBCHGFR	BEVT+7, BEVT+9, GETDAT+1!, GETDAT+2*, GETDAT+4
IBCHGTO	GETDAT+1!, GETDAT+2, GETDAT+4
>> IBCHGTOT	CLOCK4+1*
>> IBCHRG	CLOCK3+1
>> IBCHRGD	APPT+3, APPT+4, APPT+7*, APPT+8
IBCLDA	CLOCK2!, CLOCK2+1, CLOCK2+2, CLOCK2+3!, CLOCK4!, CLOCK4+1, CLOCK4+5!
>> IBCLDAY	CLOCK4+1*
>> IBCLDAYS	CLOCK2+1*, CLOCK2+2
>> IBCNP	APPT+3, APPT+9, CHKCNP+4, CHKCNP+5, CHKCNP+6, CHKAE+2
>> IBCRES	CANCP+3*
>> IBDESC	FEE+1*
>> IBDT	BEVT+7*, BEVT+8, APPT+4, APPT+5, CHKCNP+1, CHKCNP+2, CHKAE+1, CANCP+1, CANCP+3
IBDTTM	CHKAE+1*, CHKAE+2, CHKAEQ!
>> IBDUZ	CLOCK4+1
IBEVDATA	BEVT+6*, BEVTQ!
>> IBEVDATE	BEVT+6*, BEVT+7
>> IBEVENT	BEVT+6*
IBIEN	LAST+2, APPT+3, APPT+4, APPT+5, APPT+6, APPT+7, CANCP+2, CANCP+3, CANCP+4!
>> IBL	LAST+3*
>> IBLAST	LAST+1, LAST+3, LAST+4*
>> IBLDT	LAST+3*
>> IBN	DELETE+1, DELETE+3
>> IBPARNT	LAST+2*, LAST+3, LAST+4
IBSDATA	CHKCNP+2*, CHKCNP+3, CHKCNP+4, CHKCNP+7!
IBSIEN	APPT+3*, APPT+6, APPTQ!
>> IBUNIT	CLOCK1+1*, CLOCK2+1
>> IBWHER	CHKCNP+5
>> IBXA	GETDAT+2
J	CHKAE+1, CHKAE+2, CHKAEQ!
>> SDULY(	BEVT+3
X	FEE+1~, APPT+7~, CLOCK4+1, CLOCK4+2, CLOCK4+4!
Y	BEVT+4, BEVT+5, BEVT+8, BEVT+10, FEE+1!, FEE+3, FEE+4, GETDAT+2, GETDAT+3*, GETDAT+4! , CHKCNP+6

Customize PDF page

Package: Registration

Routine: DGVPTIB2

Call Graph Total: 9