IBCD4 ;ALB/ARH - AUTOMATED BILLER (ADD NEW BILL - GATHER DX AND PROCEDURES) ;9/5/93
Source file <IBCD4.m>
| 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 |
