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
Print Page as PDF
Routine: IBCU6

Package: Integrated Billing

Routine: IBCU6


Information

IBCU6 ;ALB/AAS - UTILITY ROUTINE TO SET BEDSECTIONS/REVENUE CODES FROM PTF DATA ;25 MAY 90

Source Information

Source file <IBCU6.m>

Entry Points

Name Comments DBIA/ICR reference
OPT ;I IBIDS(.05)>2 S DGBILLBS="OUTPATIENT VISIT",DGVISCNT=$S($D(^DGCR(399,IBIFN,"OP",0)):$P(^(0),U,4),1:""),^UTILITY($J,"IB-BS",DGBILLBS)=DGVISCNT G END:DGVISCNT<1 D G END:IBQUIT,3
1 ;build array of movement dates, billable bedsections
2 ;build array of billable bedsections = los in bedsection
3 ;find revenue codes and set up in file.
SETU ;utility array of all movements by date, billing bedsection
SETU1 ;determine los - set utility=los
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(X,U,2)
  • Line Location: IBCU6+9
Function Call: WRITE
  • Prompt: !,$P(X,U,2)
  • Line Location: IBCU6+10
Info |  Source |  Entry Points |  Interaction Calls