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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IBCSC4A

Package: Integrated Billing

Routine: IBCSC4A


Information

IBCSC4A ;ALB/MJB - MCCR PTF SCREEN ;24 FEB 89 9:49

Source Information

Source file <IBCSC4A.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Integrated Billing 1 PTFCDS^IBCSC4F  
Registration 1 (CPTINFO,ICDINFO,PTFINFOR)^DGAPI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IBCD3  IBCSC4  IBCSC4B  IBCSC4C  

Entry Points

Name Comments DBIA/ICR reference
DX ;
PRO ; Get PTF Procedures for a bill in ^UTILITY($J,"IB")
; includes ICD Surgeries (401) and ICD Procedures (601) or CPT Professional Services (801) based on PCM
PTFPRDT(PTF,IBDT1,IBDT2,PCM,IBIFN) ; collect PTF Procedures within a date range
; includes ICD Surgeries (401) and ICD Procedures (601) or CPT Professional Services (801)
; the procedure coding method (PCM) determines if ICD (401/601) or CPT (801) procedures returned
PTFPR(IBPTF,IBDT1,IBDT2,IBIFN) ; collect PTF ICD Procedures, Surgeries (401) and Procedures (601), for a date range
; Output: UTILITY($J,"IB",X,1) = ICD IEN ^ Date ^ Seq Group Letter ^ Type (401="", 601="*")
; UTILITY($J,"IB",X,Y) = ICD IEN
; UTILITY($J,"IB","B", Seq Group Letter_Y ) = X ^ Y ^ on bill (Y/N)
; where X is 1:1 of the number of events found, order by: Surgeries first, then Procedures, then by reverse date
SEQGRP(ECNT) ; return sequence group alpha character (A-Z, a-z, 52 max)
BILLPRC(IBIFN,ARRAY) ; return array of ICD procedures on bill, ARRAY(PRC,DATE,X)="" pass by reference
PTFPS(DFN,IBPTF,IBFDT,IBTDT) ; this will return a list of professional
; services from the ptf records. If no date range specified, then
; it will return all services for that ptf entry.
; return: ^utility($j,"IB",count for event,count for procedures) =
; pices: 1 = procedure
; 2 = date (only if new date)
; 3 = sequentual grouping letter (only if new date)
; 4 = "+" to flag as CPT 4 procedure
; 5 = if exemption applicable, info for that
; 6-9 = assoc dx in order
; 10 = quantity
; 11-12 = modifiers
; 13 = provider
; 14 = location
PTFPSQ
EXEMPT ; exemption reasons
P
D

External References

Name Field # of Occurrence
CPTINFO^DGAPI PTFPS+37
ICDINFO^DGAPI PTFPS+32
PTFINFOR^DGAPI PTFPS+26
PTFCDS^IBCSC4F PTFPR+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] PRO+3, PRO+4, BILLPRC+2, BILLPRC+3
^DGPT - [#45] PTFPRDT+4, PTFPR+10, PTFPR+11
^TMP("CPT" PTFPSQ!
^TMP("IBPTFPS" PTFPS+20!, PTFPS+28*, PTFPS+29, PTFPS+34, PTFPSQ!
^TMP("PTF" PTFPS+20!, PTFPS+26, PTFPS+28, PTFPS+31!, PTFPS+37, PTFPS+38, PTFPS+40, PTFPS+42, PTFPS+43, PTFPS+47!
, PTFPSQ!
^UTILITY($J PRO+2!, PTFPRDT+3!, PTFPR+5!, PTFPR+19*, PTFPR+24*, PTFPR+25*, PTFPS+24, PTFPS+34, PTFPS+44*, PTFPS+45*

Label References

Name Line Occurrences
$$SEQGRP PTFPR+17, PTFPS+36
BILLPRC PTFPR+7
PTFPR PTFPRDT+9
PTFPRDT PRO+6
PTFPS PTFPRDT+7
PTFPSQ PTFPS+26, PTFPS+29

Naked Globals

Name Field # of Occurrence
^(0 PTFPS+38

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY BILLPRC~, BILLPRC+1!
ARRAY( BILLPRC+3*
BPARR PTFPR+5~, PTFPR+7, PTFPR+23*, PTFPR+25
BPARR( PTFPR+23!
DFN PTFPRDT+3~, PTFPRDT+4*, PTFPRDT+7, PTFPS~, PTFPS+26, PTFPS+32, PTFPS+37
ECNT SEQGRP~, SEQGRP+1*
IB0 PRO+2~, PRO+3*, PRO+4
IB46 PTFPS+19~, PTFPS+38*, PTFPS+44
IBARR PTFPR+5~
IBARR( PTFPR+11*, PTFPR+14, PTFPR+15
IBC PTFPS+19~, PTFPS+24*, PTFPS+34*, PTFPS+36, PTFPS+44, PTFPS+45
IBCNT PTFPR+5~, PTFPR+22*, PTFPR+24, PTFPR+25
IBD PTFPS+19~, PTFPS+36*, PTFPS+44*, PTFPS+45, PTFPS+46*
IBDT PTFPS+19~, PTFPS+34*, PTFPS+37, PTFPS+44
IBDT1 PTFPRDT~, PTFPRDT+4*, PTFPRDT+7, PTFPRDT+9, PTFPR~, PTFPR+6*, PTFPR+11
IBDT2 PTFPRDT~, PTFPRDT+4*, PTFPRDT+7, PTFPRDT+9, PTFPR~, PTFPR+6*, PTFPR+11
IBDX PTFPS+19~, PTFPS+42*
IBDXX PTFPS+19~, PTFPS+42*, PTFPS+43
IBECNT PTFPR+5~, PTFPR+14*, PTFPR+15*, PTFPR+17, PTFPR+19, PTFPR+24, PTFPR+25
IBFDT PRO+2~, PRO+4*, PRO+6, PTFPS~, PTFPS+21*, PTFPS+28
IBFIRST PTFPR+5~, PTFPR+18*, PTFPR+19, PTFPR+24*
IBI PTFPR+5~, PTFPR+22*
IBIFN PRO+2, PRO+3, PRO+4, PRO+6, PTFPRDT~, PTFPRDT+9, PTFPR~, PTFPR+7, PTFPR+23, BILLPRC~
, BILLPRC+2, BILLPRC+3
IBJ PTFPR+5~, PTFPR+14*, PTFPR+15
IBP PTFPS+19~, PTFPS+42*
IBP0 BILLPRC+1~, BILLPRC+3*
IBPB PTFPR+5~, PTFPR+23*
IBPCM PRO+2~, PRO+3*, PRO+6
IBPDT PTFPR+5~, PTFPR+11*, PTFPR+15*, PTFPR+18, PTFPR+23
IBPI PTFPR+5~, PTFPR+10*, PTFPR+11, PTFPR+15*, PTFPR+21, BILLPRC+1~, BILLPRC+2*, BILLPRC+3
IBPP PTFPS+19~, PTFPS+43*
IBPRC PTFPR+5~, PTFPR+22*, PTFPR+23, PTFPR+24
IBPTF PRO+2~, PRO+3*, PRO+6, PTFPR~, PTFPR+6, PTFPR+10, PTFPR+11, PTFPR+21, PTFPS~, PTFPS+26
, PTFPS+32
IBRMARK PTFPS+19~, PTFPS+41*, PTFPS+42, PTFPS+43*, PTFPS+44
IBSGRP PTFPR+5~, PTFPR+17*, PTFPR+18, PTFPR+25, PTFPS+19~, PTFPS+36*, PTFPS+44, PTFPS+45
IBTDT PRO+2~, PRO+4*, PRO+6, PTFPS~, PTFPS+21*, PTFPS+28
IBTYPE PTFPR+5~, PTFPR+17*, PTFPR+18, PTFPR+21
IBU PRO+2~, PRO+4*
IBX SEQGRP+1~*, SEQGRP+2, PTFPS+19~, PTFPS+28*, PTFPS+40*
IBXRF PTFPR+5~, PTFPR+10*, PTFPR+11, PTFPR+14*, PTFPR+15, PTFPR+17
IBXX PTFPS+19~
IBY PTFPS+19~, PTFPS+28*, PTFPS+40*, PTFPS+42, PTFPS+44
PCM PTFPRDT~, PTFPRDT+5*, PTFPRDT+7
PTF PTFPRDT~, PTFPRDT+3, PTFPRDT+4, PTFPRDT+7, PTFPRDT+9
PTFCOD PTFPR+5~, PTFPR+21!
PTFCOD( PTFPR+22
U PRO+3, PRO+4, PTFPR+18, PTFPR+19, PTFPR+24, PTFPR+25, BILLPRC+3

Marked Items

Name Field # of Occurrence
$T(EXEMPT+(3) PTFPS+44
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All