IBECUS2 ;DVAMC/RLM - TRICARE PHARMACY BILL TRANSACTION ;14-AUG-96
Source file <IBECUS2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Attempt to bill a prescription directly to the FI.
; Input: IBKEY -- 1 ; 2, where ; 1 = Pointer to the prescription in file #52 ; 2 = Pointer to the refill in file #52.1, or ; 0 for the original fill ; IBKEYD -- 1 ^ 2 ^ 3 ^ 4 ^ 5, where ; 1 = Rx label printing device ; 2 = Pointer to the Pharmacy in file #59 ; 3 = Pointer to the Pharmacy user in file #200 ; 4 = Pointer to the billing transaction ; in file #351.5 (cancellations only) ; 5 = Product Selection Reason ; (Resubmissions only) ; IBCHSET -- Pointer to the Charge Set in file #363.1 ; IBPRESCR -- Facility Prescriber ID number |
|
| OUT | ; - send transaction to the commercial pos package
|
|
| ENQ | ||
| TASK(IBDESC) | ; Queue off label print, charge creation and cancellation jobs
; Input: IBDESC -- 1 ; 2 , where ; 1 = routine label to execute ; 2 = task description |
|
| DATE(X) | ; Set date in the format yyyymmdd, or 8 spaces.
|
|
| FILL(X,LEN) | ; Zero-fill, right justified.
|
|
| LJUST(X,LEN) | ; Space-fill, left justified.
|
|
| STRIPL(X) | ; Strip leading spaces.
|
|
| NDC(X) | ; Massage the NDC as it is stored in Pharmacy
; Input: X -- The NDC as it is stored in Pharmacy ; Output: X -- The NDC in the format 5N 1"-" 4N 1"-" 2N |
|
| NDCQ |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: READ |
|
