IBCD4 ;ALB/ARH - AUTOMATED BILLER (ADD NEW BILL - GATHER DX AND PROCEDURES) ;9/5/93
Source file <IBCD4.m>
| 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 |
|---|---|---|
| IDX(PTF,DT1,DT2) | ; find 501 movement Diagnosis and 701 Discharge Diagnosisfor a PTF record within bill range
; check for billable bedsection and SC treatement and duplicates ; results: IBT = number of billable movements within date range ; IBMSG(X)=" error message " if any errors found ; ^TMP("IBDX",$J) = PTF IFN ; ^TMP("IBDX",$J,"DX",DX) = MOVE DATE/TIME ^ MOVE IEN ^ POA ; ^TMP("IBDX",$J,-MOVE DATE/TIME, MOVE IEN) = Dx ^ ^ POA |
|
| IDXE | ||
| RXRF(PIFN,RIFN,IBDT) | ; returns data on fill on date for rx (RX # ^ DRUG ^ DAYS SUPPLY ^ FILL DATE ^ QTY ^ NDC #)
|
|
| CHK() | ;other checks
|
|
| CHKSYS() | ;various checks to determine if bill can be created, returns true if passes XXXXXX
|
|
| CHKSYSE |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(42.4 - [#42.4] | IDX+17 |
| ^DPT - [#2] | CHK+1 |
| ^IBE(350.9 - [#350.9] | CHKSYS+4 |
| ^TMP("IBDX" | IDX+7!, IDX+11*, IDX+23*, IDX+25, IDX+26* |
| ^TMP($J | IDX+9, IDX+12, IDX+13, IDX+21, IDX+22, IDX+27!, RXRF+8, RXRF+14! |
| Name | Line Occurrences |
|---|---|
| CHKSYSE | CHKSYS+4, CHKSYS+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT1 | IDX~, IDX+9 |
| DT2 | IDX~, IDX+9 |
| I | CHKSYS+3~ |
| IBBS | IDX+7~, IDX+11*, IDX+17*, IDX+30, IDX+31 |
| IBCNT | IDX+7~, IDX+11*, IDX+16*, IDX+17*, IDX+18*, IDX+29*, IDX+30*, IDX+31 |
| >> IBDFN | CHK+1 |
| IBDT | IDX+7~, IDX+12*, IDX+13, IDX+16, IDX+17, IDX+18, IDX+21, IDX+22, IDX+23, RXRF~ , RXRF+8 |
| IBDX | IDX+7~, IDX+22*, IDX+23, IDX+25*, IDX+26 |
| IBFILL | RXRF+1~, RXRF+9*, RXRF+10*, RXRF+11*, RXRF+12 |
| IBI | IDX+7~, IDX+21*, IDX+22, IDX+23 |
| IBMSG | IDX+7! |
| IBMSG( | IDX+16*, IDX+17*, IDX+18*, IDX+29*, IDX+30*, IDX+31* |
| IBMV | IDX+7~, IDX+13*, IDX+16, IDX+17, IDX+18 |
| IBMVT | IDX+7~, IDX+9*, IDX+19 |
| IBN | IDX+7~, IDX+12*, IDX+13, IDX+15, IDX+19, IDX+21, IDX+22 |
| IBSC | IDX+7~, IDX+11*, IDX+16*, IDX+29, IDX+31 |
| IBT | IDX+7!, IDX+11*, IDX+15*, IDX+29, IDX+30, IDX+31* |
| IBX | IDX+7~, IDX+15*, IDX+16*, IDX+17*, IDX+26* |
| LIST | RXRF+1~, RXRF+4*, RXRF+7, RXRF+8, RXRF+14 |
| NODE | RXRF+1~, RXRF+5*, RXRF+7 |
| PDFN | RXRF+1~, RXRF+3*, RXRF+6, RXRF+7, RXRF+10, RXRF+11 |
| PIFN | RXRF~, RXRF+3, RXRF+6, RXRF+7, RXRF+8, RXRF+10, RXRF+11, RXRF+12 |
| PLN | RXRF+1~, RXRF+6*, RXRF+10, RXRF+12 |
| PTF | IDX~, IDX+9, IDX+11 |
| RIFN | RXRF~, RXRF+8*, RXRF+9, RXRF+10, RXRF+11, RXRF+12 |
| RLN | RXRF+1~, RXRF+9*, RXRF+10*, RXRF+11* |
| U | IDX+9, IDX+16, IDX+17, IDX+18, IDX+23, IDX+26, RXRF+10, RXRF+11, RXRF+12, CHKSYS+4 , CHKSYS+5 |
| X | RXRF+1~, RXRF+2*, RXRF+9*, RXRF+12*, RXRF+13*, RXRF+15, CHK+1~*, CHK+2, CHKSYS+3~*, CHKSYS+4* , CHKSYS+5*, CHKSYSE |
| Y | RXRF+1~, CHKSYS+3~ |
