RMPOBIL0 ;EDS/MDB/HINES CIOFO/HNC - HOME OXYGEN BILLING TRANSACTIONS ;7/24/98 07:34
Source file <RMPOBIL0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OLD | ; Enter from top (OLD code)
|
|
| MAIN | ; Proper entry point
|
|
| VENDOR(LAYGO) | ;Select Vendor
|
|
| CKSITE | ;Set up Site in Billing if it is not there
|
|
| MONTH(LAYGO) | ;Determine Billing Month
|
|
| QUIT() | ||
| BUILDM | ; BUILD MONTH
; Set up Month |
|
| GEN1 | ; ALL PATIENTS FOR A GIVEN VENDOR
|
|
| GEN2 | ;INNER LOOP
|
|
| OK2BLD(VENDOR) | ; Determine whether to include trx for RMPODFN
|
|
| VDRSTAT(VDR) | ;
|
|
| BUILDV | ; Set up the VENDOR multiple
|
|
| BUILDP | ;Now the Patient level
|
|
| BUILDI | ; BUILD ITEM (REQUIRES ZX1 = ENTIRE ITEM NODE FROM FILE #665)
|
|
| PREBILL | ; Proper entry point
|
|
| BLDSTAT(RMPODFN) | ;STATUS OF PT FOR GIVEN BUILD
|
|
| EXIT | ;Kill variables before quitting
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RMPR(665 - [#665] | Classic Fileman Calls |
| ^RMPO(665.72 - [#665.72] | Classic Fileman Calls |