IBCCPT ;ALB/LDB - MCCR OUTPATIENT VISITS LISTING CONT. ;29 MAY 90
Source file <IBCCPT.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 15 | ($$BDATE,$$ICD9)^IBACSV ($$NBOEP,ADDDX)^IBCCPT1 $$INPAT^IBCEF (Q,Q1,VFILE1)^IBCOPV1 $$PRVTYP^IBCRU6 $$CLNSCRN^IBCU $$QMED^IBCU1 ($$ADDTNL,$$DEFDIV,$$NOCPROC,$$SPCUNIT,ATTACH)^IBCU7 (DX,ORAL)^IBCU72 EN^IBCU7B EN^IBCU7C $$NBOE^IBCU81 $$GETSPEC^IBEFUNC $$BDSRC^IBEFUNC3 ($$SCE,SCAN)^IBSDU |
VA FileMan | 5 | FIND^DIC (FILE,YN)^DICN ^DIE $$GET1^DIQ ^DIR |
CPT HCPCS Codes | 2 | $$CPT^ICPTCOD $$MOD^ICPTMOD |
Kernel | 1 | $$FMTE^XLFDT |
Scheduling | 1 | GETCPT^SDOE |
Vendor - Document Storage Systems | 1 | DX^VEJDIBE1 |
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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 3 | IBCD3 IBCSCE IBCU7U |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1(IBQUERY,IBHLP) | ;
|
|
EN | ||
OK1 | ||
OK | ||
OK2 | ||
FILE | ||
FILE1 | ; file procedures, if BASC, only for 1 visit date
|
|
CPRT | ||
CHDR | ||
ADDMOD(IBIFN,IBY,IBMOD) | ; Add modifier(s) from PCE procedure to CPT code mult
|
|
DSPPRC(CPTNM,NOD,DX) | ; display summary of procedure being added
|
|
VST(IBQUERY) | ;Procedures for outpatient visits ... If IBQUERY is defined
; on entry, the QUERY OBJECT defined by this value will be used for ; loop to extract procedures for visits, otherwise, a new QUERY will be opened ; If passed by reference, IBQUERY will be ret'd as the new QUERY ref # |
|
VSTQ | ||
WRNO | ||
SCR | ||
HLP | ||
CPT | ||
PROC(IBQUERY) | ; -find outpatient procedures, flag if billable
; - ^utility($j,cpt-cnt,count)=code^date^on bill^is BASC^divis^nb^nb mess^provider^clinic^mod,mod^Opt Enc Ptr ; - ^utility($j,cpt-cnt,count,"dx")=assoc dx(1)^assoc dx(2)^assoc dx(3)^assoc dx(4) |
|
EXTPROC(IBIFN,IBOE,IBOE0,IBCNT) | ; Extract procedures for an encounter
; IBIFN = the ien of the bill ; IBOE0 = 0-node of the outpatient encounter file entry IBOE ; IBCNT extracted entry counter |
|
TOMANY(DATE) | ; - returns 1 if more than 1 visit date on bill (for basc)
|
|
TOMANYQ | ||
CHECK(IBPSCD,DGNOD) | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DGCR(399 - [#399] | Classic Fileman Calls |
399.0304 | GET1^DIQ |
^ICPT - [#81] | GET1^DIQ |
^AUPNVCPT - [#9000010.18] | FIND^DIC, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | OK+2, FILE1+10, FILE1+56, FILE1+86, FILE1+144, ADDMOD+2, ADDMOD+3, VST+4, VST+5, VST+6 , WRNO, CPT, EXTPROC+16, TOMANY+2, TOMANY+3 |
^SC - [#44] | CPRT+4, DSPPRC+9 |
^TMP("DIERR" | PROC+8! |
^TMP("IBVIS" | CHDR+1!, VST+5!, VST+7! |
^UTILITY($J | EN!, EN+3, OK1, FILE+2, WRNO, EXTPROC+24*, EXTPROC+26 |
^VA(200 - [#200] | FILE1+87, DSPPRC+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | OK2*, OK2+1, OK2+2 |
CPTNM | DSPPRC~, DSPPRC+2, DSPPRC+6 |
DA | FILE+1*!, FILE1+13*, FILE1+32!, FILE1+33*, FILE1+79*, FILE1+86, FILE1+90*, FILE1+116, FILE1+121!, FILE1+124! , FILE1+134!, FILE1+140*!, FILE1+142*, FILE1+145!, ADDMOD+1~ |
DA(1 | FILE1+13*, FILE1+33*, FILE1+79*, FILE1+86, FILE1+126*, FILE1+137*, FILE1+142*, ADDMOD+2*, ADDMOD+3, CPT* |
DA(2 | FILE1+126*, ADDMOD+2*, ADDMOD+3 |
DATE | TOMANY~, TOMANY+1, TOMANY+3 |
DD | FILE1+13!, FILE1+121!, FILE1+134!, FILE1+137!, FILE1+140!, ADDMOD+1~, ADDMOD+5! |
DFN | PROC+4, EXTPROC+4~ |
>> DGASC | EN+3* |
>> DGBIL | EN+3*, CPRT+5, CPRT+6 |
>> DGCNT | EN+3*, FILE*, CPRT+4, VST+4* |
>> DGCNT1 | EN+3*, OK, HLP |
>> DGCNT2 | FILE* |
DGCPT | EN!, EN+3*, CPRT+3 |
>> DGCPT1 | FILE*, FILE+2 |
>> DGDAT | EN+3*, CPRT+4 |
>> DGDIV | EN+3* |
DGNOADD | FILE1+4!, FILE1+6 |
DGNOD | EN+3*, FILE+2*, FILE1+4, FILE1+5, FILE1+7, FILE1+8, FILE1+13, FILE1+14, FILE1+15, FILE1+16 , FILE1+17, FILE1+18, FILE1+25, FILE1+40, FILE1+55, FILE1+64, FILE1+87, FILE1+99, FILE1+100, FILE1+101 , CPRT+4, CPRT+5, CPRT+7, CPRT+10, CHECK~, CHECK+2 |
DGNOD("DX" | FILE+2*, FILE1+8, FILE1+21 |
DGTE | CPT+1! |
>> DGU | EN*, EN+3, EN+4, CPRT, SCR, SCR+1* |
DGVCNT | TOMANY+2*, TOMANY+3! |
DIC | FILE1+13*, FILE1+23*, FILE1+24, FILE1+106*, FILE1+107, FILE1+121!, FILE1+124!, FILE1+125*, FILE1+134!, FILE1+137* , FILE1+140!, FILE1+145!, ADDMOD+1~, ADDMOD+4*, ADDMOD+5! |
DIC("DR" | FILE1+127*, FILE1+129*, FILE1+130*, FILE1+131*, FILE1+132*, FILE1+133*, ADDMOD+4* |
DIC("P" | FILE1+10*, FILE1+13!, ADDMOD+3* |
DIC(0 | FILE1+13*, FILE1+125*, FILE1+137*, ADDMOD+4* |
DIE | FILE+1*!, FILE1+24*, FILE1+107*, FILE1+121!, FILE1+140*!, FILE1+142*, FILE1+145!, ADDMOD+1~ |
DIK | CPT+1! |
DINUM | FILE1+4*!, FILE1+121!, FILE1+140! |
DIR | EN1+3!, EN, OK1, OK+1! |
DIR("?" | OK* |
DIR("A" | OK* |
DIR(0 | OK* |
DLAYGO | FILE1+13*!, FILE1+124!, FILE1+125*, FILE1+137*!, ADDMOD+4* |
DO | FILE1+13!, FILE1+121!, FILE1+134!, FILE1+137!, FILE1+140!, ADDMOD+1~, ADDMOD+5! |
DR | FILE+1*!, FILE1+14*, FILE1+15*, FILE1+16*, FILE1+17*, FILE1+18*, FILE1+21, FILE1+80*, FILE1+84!, FILE1+85* , FILE1+91!, FILE1+94*, FILE1+96!, FILE1+98*, FILE1+99*, FILE1+100*, FILE1+101*, FILE1+103*, FILE1+105*, FILE1+107 , FILE1+108*, FILE1+119!*, FILE1+120*, FILE1+121!, FILE1+124!, FILE1+134!, FILE1+139*, FILE1+140!, FILE1+145!, ADDMOD+1~ |
DTIME | SCR+1 |
DX | DSPPRC~, DSPPRC+11 |
H | HLP+1*! |
>> I | FILE1+73* |
I1 | FILE+2*, FILE1+73~*, CPT+1! |
I2 | EXTPROC+4~, EXTPROC+13*, EXTPROC+14, EXTPROC+15, EXTPROC+17, EXTPROC+24 |
I7 | EXTPROC+4~, EXTPROC+11*, EXTPROC+12, EXTPROC+16, EXTPROC+21 |
>> I9 | FILE+2* |
IBARR | EXTPROC+4~ |
IBARR("CPT" | EXTPROC+26 |
IBCBK | PROC+3~, PROC+7*, PROC+8 |
>> IBCCPTX | CPT* |
>> IBCCPTZ | CPT* |
IBCLINIC | EXTPROC+4~, EXTPROC+12*, EXTPROC+21 |
IBCNT | EXTPROC~, EXTPROC+24* |
IBCPT | EXTPROC+4~, EXTPROC+14*, EXTPROC+16, EXTPROC+20, EXTPROC+21 |
IBCPTDAT | EXTPROC+4~, EXTPROC+21*, EXTPROC+23*, EXTPROC+24 |
IBCPTNM | FILE1+5~*, FILE1+6, FILE1+7, FILE1+8, CPRT+1~, CPRT+3*, CPRT+4 |
IBCPTPRV | EXTPROC+4~, EXTPROC+15*, EXTPROC+21 |
IBCPTS | EXTPROC+4~ |
IBCPTS( | EXTPROC+13, EXTPROC+14, EXTPROC+15, EXTPROC+17, EXTPROC+24 |
IBCPTS(0 | EXTPROC+8 |
IBDATE | CPRT+1~, CPRT+2*, CPRT+3, CPRT+10, DSPPRC+1~, DSPPRC+7*, DSPPRC+8 |
IBDENH | FILE1+38~, FILE1+45*, FILE1+46, FILE1+49 |
IBDENH0 | FILE1+38~, FILE1+44*, FILE1+45 |
IBDENHD | FILE1+2~, FILE1+51*, FILE1+53, FILE1+56, FILE1+57, FILE1+58, FILE1+70, FILE1+71, FILE1+72, FILE1+75* , FILE1+133 |
IBDENHD0 | FILE1+47~*, FILE1+50*, FILE1+51 |
IBDICSAV | FILE1+3~, FILE1+13*, FILE1+23, FILE1+106 |
IBDIV | EXTPROC+4~, EXTPROC+11*, EXTPROC+21 |
IBDT | FILE1+68, FILE1+78, EXTPROC+4~ |
IBDX | EXTPROC+4~, EXTPROC+20, EXTPROC+24, EXTPROC+25! |
IBDXT | DSPPRC+1~, DSPPRC+11* |
IBEX | EXTPROC+4~ |
IBFILTER | PROC+3~, PROC+6*, PROC+8 |
>> IBFT | OK+2*, FILE1+7, FILE1+37, FILE1+93, FILE1+103, FILE1+105, FILE1+115, FILE1+116, FILE1+118 |
IBHLP | EN1~, OK1 |
IBI | DSPPRC+1~, DSPPRC+8* |
IBIFN | EN+2, OK+2, FILE+1, FILE1+10, FILE1+13, FILE1+21, FILE1+25, FILE1+33, FILE1+66, FILE1+79 , FILE1+93, FILE1+105, FILE1+108, FILE1+111, FILE1+115, FILE1+116, FILE1+125, FILE1+126, FILE1+137, FILE1+142 , FILE1+144, CPRT+2, ADDMOD~, ADDMOD+2, ADDMOD+4, DSPPRC+7, VST+4, VST+5, VST+6, WRNO , CPT, EXTPROC~, EXTPROC+16, TOMANY+2, TOMANY+3 |
IBL | DSPPRC+1~, DSPPRC+4*, DSPPRC+10 |
>> IBLNPRV("IBCCPT" | FILE1+87*, FILE1+89! |
IBM | ADDMOD+1~, ADDMOD+2*, ADDMOD+4 |
IBMOD | ADDMOD~, ADDMOD+2, DSPPRC+1~, DSPPRC+8* |
IBMODS | CPRT+1~, CPRT+10*, DSPPRC+1~, DSPPRC+3*, DSPPRC+8, EXTPROC+4~, EXTPROC+17*, EXTPROC+21 |
IBNBM | CPRT+1~, CPRT+3*, CPRT+5*, CPRT+6*, CPRT+7*, CPRT+8 |
IBOE | EXTPROC~, EXTPROC+6, EXTPROC+7, EXTPROC+10, EXTPROC+21 |
IBOE0 | EXTPROC~, EXTPROC+6*, EXTPROC+9, EXTPROC+10, EXTPROC+11, EXTPROC+12, EXTPROC+20, EXTPROC+23, EXTPROC+26 |
IBOED | EXTPROC+4~, EXTPROC+10*, EXTPROC+20 |
IBOEDP | EXTPROC+4~, EXTPROC+20*, EXTPROC+21 |
IBONBILL | EXTPROC+4~, EXTPROC+16*, EXTPROC+21 |
>> IBOPV1 | VST+4*, VST+6*, PROC+4 |
>> IBOPV2 | VST+4*, VST+6*, PROC+4 |
>> IBOUT | OK2* |
IBP | DSPPRC+1~, DSPPRC+11* |
IBPROCP | FILE1+13*, FILE1+21, FILE1+25, FILE1+33, FILE1+34, FILE1+66, FILE1+79, FILE1+90, FILE1+108, FILE1+111 , FILE1+115, FILE1+125, FILE1+126, FILE1+142, FILE1+145! |
IBPRV | DSPPRC+1~, DSPPRC+3*, DSPPRC+4*, DSPPRC+10 |
IBPRVTYP | DSPPRC+1~, DSPPRC+3*, DSPPRC+4*, DSPPRC+10 |
IBPSC | FILE1+38~, FILE1+53*, FILE1+55, FILE1+64, FILE1+66, FILE1+68, FILE1+78 |
IBPSC2 | FILE1+38~, FILE1+66*, FILE1+68, FILE1+78 |
IBPSCD | FILE1+47~, FILE1+64*, FILE1+65, CHECK~, CHECK+2 |
IBPSCD0 | FILE1+47~, FILE1+62*, FILE1+64* |
IBPSCDS | FILE1+2~, FILE1+62*, FILE1+65*, FILE1+68*, FILE1+80, FILE1+120 |
IBQUERY | EN1~, EN, VST~, VST+4, VST+7, PROC~, PROC+8 |
IBS | ADDMOD+1~, ADDMOD+2* |
IBSURF | FILE1+2~, FILE1+71*, FILE1+73 |
IBSURF( | FILE1+73* |
IBSURF(1 | FILE1+127 |
IBSURF(2 | FILE1+129 |
IBSURF(3 | FILE1+130 |
IBSURF(4 | FILE1+131 |
IBSURF(5 | FILE1+132 |
>> IBTNUM | FILE1+138*, FILE1+140 |
IBTON | FILE1+2~, FILE1+70*, FILE1+124, FILE1+127, FILE1+128, FILE1+136, FILE1+137 |
IBTSTAT | FILE1+2~, FILE1+72*, FILE1+136, FILE1+139 |
IBUSED | EN1+2~ |
IBUSED( | FILE1+64, FILE1+65* |
IBUSED("D" | FILE1+57, FILE1+58* |
IBVAL | PROC+3~, PROC+8 |
IBVAL("BDT" | PROC+4* |
IBVAL("DFN" | PROC+4* |
IBVAL("EDT" | PROC+4* |
IBVST | FILE1+38~, FILE1+40*, FILE1+43, FILE1+61 |
IBY | ADDMOD~, ADDMOD+2, ADDMOD+4 |
IBZ | CPRT+1~, CPRT+10*, EXTPROC+4~, EXTPROC+16*, EXTPROC+17* |
IBZERR | EXTPROC+4~ |
ICPTVDT | EN+2~* |
IOF | EN, CHDR |
IOSL | EN+4, CPRT, SCR |
IOST | SCR |
J | CPRT+1~, CPRT+10* |
L | CHDR+2*! |
NOD | DSPPRC~, DSPPRC+2, DSPPRC+3, DSPPRC+4, DSPPRC+9, DSPPRC+11 |
>> RET | CHECK+1*, CHECK+2*, CHECK+3 |
STOP | FILE1+38~, FILE1+44, FILE1+47*, FILE1+50, FILE1+67*, FILE1+75 |
TARGET | FILE1+47~ |
TARGET("DILIST" | FILE1+50, FILE1+51 |
TARGET0 | FILE1+38~ |
TARGET0("DILIST" | FILE1+44, FILE1+45 |
TARGET1 | FILE1+47~ |
TARGET1("DILIST" | FILE1+64 |
U | FILE1+5, FILE1+6, FILE1+7, FILE1+25, FILE1+87, CPRT+4, CPRT+5, CPRT+7, CPRT+10, DSPPRC+3 , DSPPRC+4, DSPPRC+6, DSPPRC+8, DSPPRC+9, DSPPRC+11, CPT, EXTPROC+9, EXTPROC+11, EXTPROC+12, EXTPROC+14 , EXTPROC+15, EXTPROC+16, EXTPROC+20, EXTPROC+21, EXTPROC+23, EXTPROC+24 |
>> V | VST+4* |
X | FILE1+4*!, FILE1+13*, FILE1+73*, FILE1+116*, FILE1+128*, FILE1+137*, ADDMOD+2* |
Y | EN+4*, OK1!, OK+1, OK2, OK2+1, OK2+2, FILE, FILE1+13, FILE1+113, FILE1+138 , SCR* |
Z | EXTPROC+4~, EXTPROC+24* |