Call Graph
Call Graph Total: 2
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 1 | PTFCDS^IBCSC4F |
| Registration | 1 | (CPTINFO,ICDINFO,PTFINFOR)^DGAPI |
IBCSC4A ;ALB/MJB - MCCR PTF SCREEN ;24 FEB 89 9:49
Source file <IBCSC4A.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 1 | PTFCDS^IBCSC4F |
| Registration | 1 | (CPTINFO,ICDINFO,PTFINFOR)^DGAPI |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| 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* |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | PTFPS+38 |
| >> | 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 |
| IBINDTS | PRO+2~, PRO+3*, PRO+6 |
| 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 |
| Name | Field # of Occurrence |
|---|---|
| $T(EXEMPT+(3) | PTFPS+44 |
