Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGVPTIB2

Package: Registration

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All