Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBAMTI1

Package: Integrated Billing

Routine: IBAMTI1


Information

IBAMTI1 ;ALB/CPM - SPECIAL INPATIENT BILLING CASES (CON'T.) ; 11-AUG-93

Source Information

Source file <IBAMTI1.m>

Entry Points

Name Comments DBIA/ICR reference
DISP ; Manually disposition a case record.
SEL ; Select an inpatient billing case and enter the reason for non-billing.
SELQ
CEA(IBPM,IBEVT) ; Automatically disposition the case from Cancel/Edit/Add.
; Input: IBPM -- Pointer to the adm movement in file #405
; IBEVT -- Pointer to the billing event record in file #350
CEAQ
CHK(IBC,IBEVT) ; Review the case after adding a charge from Cancel/Edit/Add.
; Input: IBC -- Pointer to the case in file #351.2
; IBEVT -- Pointer to the billing event record in file #350
CHKQ
UPD(IND) ; Disposition the case record.
; Input: IND -- 0 = dispositioning | 1 = reviewing
; variables -- IBC => ptr to case record
; IBEVT => ptr to event record in #350
DSPL(IBC) ; Display a case record.
; Input: IBC -- Pointer to the case record in file #351.2
DSPLQ
DASH() ; Return a dashed line.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option is used to disposition case records for special inpatient"
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"episodes of care which are not to be billed. (AO/IR/SWA/SC/MST/HNC/CV/SHAD)"
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"After identifying the case, please enter the reason (up to 80 characters)"
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"for non-billing."
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !!,"You must wait until this patient has been discharged to disposition the case."
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !!,"Please note that it appears as if this case has been billed."
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: !!,"Please note that this case has already been dispositioned."
  • Line Location: SEL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+9
Function Call: WRITE
  • Prompt: !!,"No changes made to the case record!"
  • Line Location: SEL+16
Function Call: WRITE
  • Prompt: !!,"This case record will be dispositioned."
  • Line Location: SEL+17
Function Call: WRITE
  • Prompt: !,"Dispositioning the special inpatient billing case record"
  • Line Location: UPD+4
Function Call: WRITE
  • Prompt: " (as billable)"
  • Condition for execution: $G(IND)
  • Line Location: UPD+5
Function Call: WRITE
  • Prompt: "..."
  • Line Location: UPD+5
Function Call: WRITE
  • Prompt: " done."
  • Line Location: UPD+8
Function Call: WRITE
  • Prompt: !,$$DASH(),!?1,"Pt. Name: ",$E($P(IBPT,"^"),1,17)," (",$P(IBPT,"^",3),")"
  • Line Location: DSPL+6
Function Call: WRITE
  • Prompt: ?38,"Care related to ",$$PATTYAB^IBACV(IBCL),": ",$S($P(IBCD,"^",7):"YES",$P(IBCD,"^",7)=0:"NO",1:"UNANSWERED")
  • Line Location: DSPL+7
Function Call: WRITE
  • Prompt: !?5,"Type: ",$$UCCL^IBAMTI(IBCL),?39,"Case Dispositioned: ",$S($P(IBCD,"^",8):"YES",1:"NO")
  • Line Location: DSPL+8
Function Call: WRITE
  • Prompt: !?1,"Adm Date: ",$$DAT1^IBOUTL(+$G(^DGPM(+$P(IBCD,"^",2),0)),1),?41,"Date Last Edited: ",$$DAT1^IBOUTL(+$P(IBC2,"^",4),1)
  • Line Location: DSPL+9
Function Call: WRITE
  • Prompt: !,"Disc Date: ",$S(IBDIS:$$DAT1^IBOUTL(IBDIS,1),1:"Still Admitted"),?43,"Last Edited By: ",$E($P($G(^VA(200,+$P(IBC2,"^",3),0)),"^"),1,20),!,$$DASH()
  • Line Location: DSPL+11
Function Call: WRITE
  • Prompt: !?1,"Charges Billed:"
  • Line Location: DSPL+14
Function Call: WRITE
  • Prompt: !?1,"Reason for Non-Billing:",!,IBC1,!,$$DASH(),!
  • Line Location: DSPL+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(351.2 - [#351.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call