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 |