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 |