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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 8 BILL^IBCRBC  SET^IBCSC5A  (ALL,GVAR)^IBCU61  SETREV^IBCU62  (,RX)^IBCU63  ($$AD,$$LOS)^IBCU64  ($$DVTYP,$$PRCDIV)^IBCU71  CPTMOD26^IBCU73  
Registration 1 UPDT^DGPTUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Integrated Billing 7 IBCA2  IBCD3  IBCSC3  IBCSC4  IBCSC5  IBCSC6  IBCSC7  

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
END
SETU1 ;determine los - set utility=los
1 ;build array of movement dates, billable bedsections
SETU ;utility array of all movements by date, billing bedsection
3 ;find revenue codes and set up in file.
2 ;build array of billable bedsections = los in bedsection

External References

Name Field # of Occurrence
UPDT^DGPTUTL %+13
BILL^IBCRBC %+6
SET^IBCSC5A OPT+6
ALL^IBCU61 %+15
GVAR^IBCU61 %+11
SETREV^IBCU62 3+2
^IBCU63 OPT+5
RX^IBCU63 OPT+6
$$AD^IBCU64 2+6
$$LOS^IBCU64 SETU1+4
$$DVTYP^IBCU71 %+4
$$PRCDIV^IBCU71 %+3
CPTMOD26^IBCU73 %+8

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] %+2, %+11, %+12, %+13, %+15, OPT+4, OPT+5, 3+1*
^DGCR(399.1 - [#399.1] 3+2
^DGPM("AMV1" %+14
^DGPT - [#45] %+13, 1+1, SETU+2
^DIC(42.4 - [#42.4] SETU+3
^UTILITY($J %+11!, OPT+4*, 2+8, 3+2, SETU+5*, SETU1+1, SETU1+7, SETU1+8*, END+1!

Label References

Name Line Occurrences
3 OPT+3
END OPT+3, 3+3
SETU 1+1
SETU1 2+8

Naked Globals

Name Field # of Occurrence
^( 3+2
^(0 %+13, OPT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA END+1!
>> DFN %+12*, %+14
DGACTDT END+1!
DGADM %+14*, END+2!
DGAMNT END+1!
DGBDT SETU1+2*, SETU1+4, END+2!
DGBILLBS OPT+4*, SETU+3*, SETU+5, END+1!
DGBR END+1!
DGBRN END+1!
DGBS 2+2*, 3+1*, 3+2*, SETU1+1*, SETU1+5, SETU1+6, SETU1+7, SETU1+8, END+1!
DGBS1 2+2*, SETU1+1*, SETU1+5, SETU1+6, END+1!
DGBSI 3+2*, END+1!
DGBSLOS 3+2*, END+1!
DGDC END+2!
DGEDT SETU1+2*, SETU1+4, END+2!
DGFND END+2!
DGFUNC END+1!
DGIFN END+2!
DGII 1+1*, 2+6*, 2+8*, 3+2*, END+1!
DGINPAR SETU1+5, END+1!
DGJJ END+1!
DGKK END+1!
DGLL END+2!
DGMOVE 1+1*, SETU+2, END+1!
DGMVDT 2+2*, 2+4*, 2+5*, 2+6*, 2+8*, SETU1+1, SETU1+2, SETU1+3, SETU1+7, END+1!
DGMVDTP 2+2*, 2+8*, SETU1+2, END+1!
DGMVT END+2!
DGMVTP END+2!
DGNEXT END+2!
DGPMCA %+14*, 2+6, SETU1+4, END+2!
>> DGPTUPDT %+13*
DGREC END+1!
DGREV END+1!
DGREV00 END+1!
DGREVHDR END+1!
DGRVRCAL END+1!
DGVISCNT OPT+3, OPT+4*, OPT+5, END+1!
DGX END+2!
DIK END+1!
DR END+1!
DT SETU+5
IBCHK END+2!
IBCNT OPT+6*, END+2!
IBIDS END+1!
IBIDS( %+13, %+14, OPT+3, 2+2, 2+5, SETU1+3, SETU1+6, END*
IBIDS(151 2+2, 2+5, 2+6, SETU1+2
IBIDS(152 2+4, 2+5, 2+6, 2+8, SETU1+2, SETU1+3
>> IBIFN %+2, %+3, %+4, %+6, %+8, %+11, %+12, %+13, %+15, OPT+4
, OPT+5, OPT+6, 3+1
IBMVDTE 2+4*, 2+5*, 2+6*, 2+8, END+2!
IBND0 END+2!
IBNDU END+2!
IBQUIT %+11~*, OPT+3, 3+2
IBTF SETU1+3*, SETU1+4, END+2!
IBX OPT+6!
>> PTF %+13*, 1+1, SETU+2
U %+2, %+3, %+4, OPT+4, OPT+6, 2+6, SETU+3, SETU+5, SETU1+7
X %+3~*, %+4*, SETU+2*, SETU+3, SETU+5, SETU1+4*, SETU1+8, END+1!
X1 END+1!
X2 END+1!
Y END+1!
Z END+1!
>> ZTQUEUED %+3, %+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All