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: IBCU62

Package: Integrated Billing

Routine: IBCU62


Information

IBCU62 ;ALB/AAS - UTILITY ROUTINE TO SET BEDSECTION/REVENUE CODES FROM PTF DATA ; 29-OCT-90

Source Information

Source file <IBCU62.m>

Entry Points

Name Comments DBIA/ICR reference
SETREV ;find current active revenue codes for bedsection
CHKREV ;check if billing rate (dgbr) is active, and use with payer.
STORREV ;store revenue code in revenue code file
FILE ;manually file entry, index with ix1^dik to use compiled x-ref
EDITREV ;edit revenue code data.
WRT ;S Z="00"_$P(^DGCR(399.5,DGBR,0),"^",3) W:'$G(IBAUTO) !,DGFUNC,?12,$E(Z,($L(Z)-2),$L(Z)),?24,DGBSLOS,?31,"$",$J(DGAMNT,8,2),?44,DGBS
REVHDR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?65,$P($$CPT^ICPTCOD(+DGPROC),U,2)
  • Line Location: WRT+2

FileMan Files Accessed Via FileMan Db Call

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