IBDFOSG1 ;ALB/MAF/AAS - SCANNED ENCOUNTERS WITH BILLING DATA CONT. ; JUL 6 1995
Source file <IBDFOSG1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ; -- Loop thru clinics
|
|
CHECK(CLIN) | ;
; -- Check to see if clinic has a form and its one that ; is not for future use only. |
|
CK(XCL) | ; -- Check clinic, division, form
|
|
BLD | ; -- scan appts
|
|
CK1 | ; -- Check scheduling nodes, forms tracking, if scanned,
; patient insured, bill entered, bill printed, ; avg time from encounter to printed bill. |
|
SET | ; -- Set counters in temp arrays
; Piece 1 := Number bills entered ; Piece 2 := Number bills generated ; Piece 3 := Number of forms scanned for patients with INS ; Piece 4 := Number of forms scanned ; Piece 5 := Number of days from encounter date to bill printed ; Piece 6 := amount billed (for unique bill) ; Piece 7 := amount received (for unique bills) ; Piece 8 := number of unique bills ; Piece 9 := Number of visit dates on bills in 8 |
|
INC(PIECE,VALUE) | ;
; -- increment counters, |