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 | 2 | $$FMTE^XLFDT $$RJ^XLFSTR |
| 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 |
| 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+57, FILE1+87, FILE1+145, ADDMOD+2, ADDMOD+3, VST+4, VST+5, VST+6 , WRNO, CPT, EXTPROC+16, TOMANY+2, TOMANY+3 |
| ^SC - [#44] | CPRT+5, DSPPRC+9 |
| ^TMP("DIERR" | PROC+8! |
| ^TMP("IBVIS" | CHDR+1!, VST+5!, VST+7! |
| ^UTILITY($J | EN!, EN+4, OK1, FILE+2, WRNO, EXTPROC+27*, EXTPROC+29 |
| ^VA(200 - [#200] | FILE1+88, 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+33!, FILE1+34*, FILE1+80*, FILE1+87, FILE1+91*, FILE1+117, FILE1+122!, FILE1+125! , FILE1+135!, FILE1+141*!, FILE1+143*, FILE1+146!, ADDMOD+1~ |
| DA(1 | FILE1+13*, FILE1+34*, FILE1+80*, FILE1+87, FILE1+127*, FILE1+138*, FILE1+143*, ADDMOD+2*, ADDMOD+3, CPT* |
| DA(2 | FILE1+127*, ADDMOD+2*, ADDMOD+3 |
| DATE | TOMANY~, TOMANY+1, TOMANY+3 |
| DD | FILE1+13!, FILE1+122!, FILE1+135!, FILE1+138!, FILE1+141!, ADDMOD+1~, ADDMOD+5! |
| DFN | PROC+4, EXTPROC+4~ |
| >> DGASC | EN+5* |
| >> DGBIL | EN+5*, CPRT+6, CPRT+8 |
| >> DGCNT | EN+4*, EN+5, FILE*, CPRT+5, VST+4* |
| >> DGCNT1 | EN+4*, EN+5*, OK, HLP |
| >> DGCNT2 | FILE* |
| DGCPT | EN!, EN+5*, CPRT+3 |
| >> DGCPT1 | FILE*, FILE+2 |
| >> DGDAT | EN+5*, CPRT+5 |
| >> DGDIV | EN+5* |
| DGNOADD | FILE1+4!, FILE1+6 |
| DGNOD | EN+5*, FILE+2*, FILE1+4, FILE1+5, FILE1+7, FILE1+8, FILE1+13, FILE1+14, FILE1+15, FILE1+16 , FILE1+17, FILE1+18, FILE1+19, FILE1+26, FILE1+41, FILE1+56, FILE1+65, FILE1+88, FILE1+100, FILE1+101 , FILE1+102, CPRT+5, CPRT+6, CPRT+9, CPRT+12, CHECK~, CHECK+2 |
| DGNOD("DX" | FILE+2*, FILE1+8, FILE1+22 |
| DGTE | CPT+1! |
| >> DGU | EN*, EN+4, EN+7, CPRT, SCR, SCR+1* |
| >> DGUNIT | EN+5*, CPRT+5 |
| DGVCNT | TOMANY+2*, TOMANY+3! |
| DIC | FILE1+13*, FILE1+24*, FILE1+25, FILE1+107*, FILE1+108, FILE1+122!, FILE1+125!, FILE1+126*, FILE1+135!, FILE1+138* , FILE1+141!, FILE1+146!, ADDMOD+1~, ADDMOD+4*, ADDMOD+5! |
| DIC("DR" | FILE1+128*, FILE1+130*, FILE1+131*, FILE1+132*, FILE1+133*, FILE1+134*, ADDMOD+4* |
| DIC("P" | FILE1+10*, FILE1+13!, ADDMOD+3* |
| DIC(0 | FILE1+13*, FILE1+126*, FILE1+138*, ADDMOD+4* |
| DIE | FILE+1*!, FILE1+25*, FILE1+108*, FILE1+122!, FILE1+141*!, FILE1+143*, FILE1+146!, ADDMOD+1~ |
| DIK | CPT+1! |
| DINUM | FILE1+4*!, FILE1+122!, FILE1+141! |
| DIR | EN1+3!, EN, OK1, OK+1! |
| DIR("?" | OK* |
| DIR("A" | OK* |
| DIR(0 | OK* |
| DLAYGO | FILE1+13*!, FILE1+125!, FILE1+126*, FILE1+138*!, ADDMOD+4* |
| DO | FILE1+13!, FILE1+122!, FILE1+135!, FILE1+138!, FILE1+141!, ADDMOD+1~, ADDMOD+5! |
| DR | FILE+1*!, FILE1+14*, FILE1+15*, FILE1+16*, FILE1+17*, FILE1+18*, FILE1+19*, FILE1+22, FILE1+81*, FILE1+85! , FILE1+86*, FILE1+92!, FILE1+95*, FILE1+97!, FILE1+99*, FILE1+100*, FILE1+101*, FILE1+102*, FILE1+104*, FILE1+106* , FILE1+108, FILE1+109*, FILE1+120!*, FILE1+121*, FILE1+122!, FILE1+125!, FILE1+135!, FILE1+140*, FILE1+141!, FILE1+146! , ADDMOD+1~ |
| DTIME | SCR+1 |
| DX | DSPPRC~, DSPPRC+11 |
| H | HLP+1*! |
| >> I | FILE1+74* |
| I1 | FILE+2*, FILE1+74~*, CPT+1! |
| I2 | EXTPROC+4~, EXTPROC+13*, EXTPROC+14, EXTPROC+15, EXTPROC+17, EXTPROC+25 |
| I7 | EXTPROC+4~, EXTPROC+11*, EXTPROC+12, EXTPROC+16, EXTPROC+21 |
| >> I9 | FILE+2* |
| IBARR | EXTPROC+4~ |
| IBARR("CPT" | EXTPROC+29 |
| IBCBK | PROC+3~, PROC+7*, PROC+8 |
| >> IBCCPTX | CPT* |
| >> IBCCPTZ | CPT* |
| IBCLINIC | EXTPROC+4~, EXTPROC+12*, EXTPROC+21 |
| IBCNT | EXTPROC~, EXTPROC+27* |
| IBCPT | EXTPROC+4~, EXTPROC+14*, EXTPROC+16, EXTPROC+20, EXTPROC+21 |
| IBCPTDAT | EXTPROC+4~, EXTPROC+21*, EXTPROC+23*, EXTPROC+25*, EXTPROC+27 |
| IBCPTNM | FILE1+5~*, FILE1+6, FILE1+7, FILE1+8, CPRT+1~, CPRT+3*, CPRT+5 |
| IBCPTPRV | EXTPROC+4~, EXTPROC+15*, EXTPROC+21 |
| IBCPTS | EXTPROC+4~ |
| IBCPTS( | EXTPROC+13, EXTPROC+14, EXTPROC+15, EXTPROC+17, EXTPROC+25 |
| IBCPTS(0 | EXTPROC+8 |
| IBDATE | CPRT+1~, CPRT+2*, CPRT+3, CPRT+12, DSPPRC+1~, DSPPRC+7*, DSPPRC+8 |
| IBDENH | FILE1+39~, FILE1+46*, FILE1+47, FILE1+50 |
| IBDENH0 | FILE1+39~, FILE1+45*, FILE1+46 |
| IBDENHD | FILE1+2~, FILE1+52*, FILE1+54, FILE1+57, FILE1+58, FILE1+59, FILE1+71, FILE1+72, FILE1+73, FILE1+76* , FILE1+134 |
| IBDENHD0 | FILE1+48~*, FILE1+51*, FILE1+52 |
| IBDICSAV | FILE1+3~, FILE1+13*, FILE1+24, FILE1+107 |
| IBDIV | EXTPROC+4~, EXTPROC+11*, EXTPROC+21 |
| IBDT | FILE1+69, FILE1+79, EXTPROC+4~ |
| IBDX | EXTPROC+4~, EXTPROC+20, EXTPROC+27, EXTPROC+28! |
| IBDXT | DSPPRC+1~, DSPPRC+11* |
| IBEX | EXTPROC+4~ |
| IBFILTER | PROC+3~, PROC+6*, PROC+8 |
| >> IBFT | OK+2*, FILE1+7, FILE1+38, FILE1+94, FILE1+104, FILE1+106, FILE1+116, FILE1+117, FILE1+119 |
| IBHLP | EN1~, OK1 |
| IBI | DSPPRC+1~, DSPPRC+8* |
| IBIFN | EN+2, OK+2, FILE+1, FILE1+10, FILE1+13, FILE1+22, FILE1+26, FILE1+34, FILE1+67, FILE1+80 , FILE1+94, FILE1+106, FILE1+109, FILE1+112, FILE1+116, FILE1+117, FILE1+126, FILE1+127, FILE1+138, FILE1+143 , FILE1+145, 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+88*, FILE1+90! |
| IBM | ADDMOD+1~, ADDMOD+2*, ADDMOD+4 |
| IBMOD | ADDMOD~, ADDMOD+2, DSPPRC+1~, DSPPRC+8* |
| IBMODS | CPRT+1~, CPRT+12*, DSPPRC+1~, DSPPRC+3*, DSPPRC+8, EXTPROC+4~, EXTPROC+17*, EXTPROC+21 |
| IBNBM | CPRT+1~, CPRT+3*, CPRT+6*, CPRT+8*, CPRT+9*, CPRT+10 |
| 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+29 |
| 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+22, FILE1+26, FILE1+34, FILE1+35, FILE1+67, FILE1+80, FILE1+91, FILE1+109, FILE1+112 , FILE1+116, FILE1+126, FILE1+127, FILE1+143, FILE1+146! |
| IBPRV | DSPPRC+1~, DSPPRC+3*, DSPPRC+4*, DSPPRC+10 |
| IBPRVTYP | DSPPRC+1~, DSPPRC+3*, DSPPRC+4*, DSPPRC+10 |
| IBPSC | FILE1+39~, FILE1+54*, FILE1+56, FILE1+65, FILE1+67, FILE1+69, FILE1+79 |
| IBPSC2 | FILE1+39~, FILE1+67*, FILE1+69, FILE1+79 |
| IBPSCD | FILE1+48~, FILE1+65*, FILE1+66, CHECK~, CHECK+2 |
| IBPSCD0 | FILE1+48~, FILE1+63*, FILE1+65* |
| IBPSCDS | FILE1+2~, FILE1+63*, FILE1+66*, FILE1+69*, FILE1+81, FILE1+121 |
| IBQUERY | EN1~, EN, VST~, VST+4, VST+7, PROC~, PROC+8 |
| IBS | ADDMOD+1~, ADDMOD+2* |
| IBSURF | FILE1+2~, FILE1+72*, FILE1+74 |
| IBSURF( | FILE1+74* |
| IBSURF(1 | FILE1+128 |
| IBSURF(2 | FILE1+130 |
| IBSURF(3 | FILE1+131 |
| IBSURF(4 | FILE1+132 |
| IBSURF(5 | FILE1+133 |
| >> IBTNUM | FILE1+139*, FILE1+141 |
| IBTON | FILE1+2~, FILE1+71*, FILE1+125, FILE1+128, FILE1+129, FILE1+137, FILE1+138 |
| IBTSTAT | FILE1+2~, FILE1+73*, FILE1+137, FILE1+140 |
| IBUSED | EN1+2~ |
| IBUSED( | FILE1+65, FILE1+66* |
| IBUSED("D" | FILE1+58, FILE1+59* |
| IBVAL | PROC+3~, PROC+8 |
| IBVAL("BDT" | PROC+4* |
| IBVAL("DFN" | PROC+4* |
| IBVAL("EDT" | PROC+4* |
| IBVST | FILE1+39~, FILE1+41*, FILE1+44, FILE1+62 |
| IBY | ADDMOD~, ADDMOD+2, ADDMOD+4 |
| IBZ | CPRT+1~, CPRT+12*, EXTPROC+4~, EXTPROC+16*, EXTPROC+17* |
| IBZERR | EXTPROC+4~ |
| ICPTVDT | EN+2~* |
| IOF | EN, CHDR |
| IOSL | EN+7, CPRT, SCR |
| IOST | SCR |
| J | CPRT+1~, CPRT+12* |
| L | CHDR+3*! |
| NOD | DSPPRC~, DSPPRC+2, DSPPRC+3, DSPPRC+4, DSPPRC+9, DSPPRC+11 |
| >> RET | CHECK+1*, CHECK+2*, CHECK+3 |
| STOP | FILE1+39~, FILE1+45, FILE1+48*, FILE1+51, FILE1+68*, FILE1+76 |
| TARGET | FILE1+48~ |
| TARGET("DILIST" | FILE1+51, FILE1+52 |
| TARGET0 | FILE1+39~ |
| TARGET0("DILIST" | FILE1+45, FILE1+46 |
| TARGET1 | FILE1+48~ |
| TARGET1("DILIST" | FILE1+65 |
| U | FILE1+5, FILE1+6, FILE1+7, FILE1+26, FILE1+88, CPRT+5, CPRT+6, CPRT+9, CPRT+12, 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+25 |
| >> V | VST+4* |
| X | FILE1+4*!, FILE1+13*, FILE1+74*, FILE1+117*, FILE1+129*, FILE1+138*, ADDMOD+2* |
| Y | EN+7*, OK1!, OK+1, OK2, OK2+1, OK2+2, FILE, FILE1+13, FILE1+114, FILE1+139 , SCR* |
| Z | EXTPROC+4~ |