IBDFOSG1 ;ALB/MAF/AAS - SCANNED ENCOUNTERS WITH BILLING DATA CONT. ; JUL 6 1995
Source file <IBDFOSG1.m>
Package | Total | Call Graph |
---|---|---|
Accounts Receivable | 1 | $$TPR^PRCAFN |
Integrated Billing | 1 | $$INSURED^IBCNS1 |
Registration | 1 | $$PRIM^VASITE |
VA FileMan | 1 | ^%DTC |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Automated Information Collection System | 1 | IBDFOSG |
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, |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | CK+5 |
^DGCR(399 - [#399] | CK1+12, CK1+13, CK1+14, CK1+15, CK1+24, CK1+27 |
^DPT - [#2] | CK1+4, CK1+7 |
^IBD(357.96 - [#357.96] | CK1+9, SET+11 |
^SC - [#44] | START+4, CK+1, CK+3, BLD+1, BLD+2 |
^SD(409.95 - [#409.95] | CHECK+5, CHECK+6, CHECK+7 |
^TMP("CTOT" | CK+8*, SET+13, SET+27* |
^TMP("DTOT" | CK+9*, SET+14, SET+28* |
^TMP("GTOT" | START+3*, SET+15, SET+29* |
^TMP("IBD-BILL" | CK1+22, CK1+23* |
^TMP("IBD-ENTERED" | CK1+18* |
^TMP("IBD-PRINTED" | CK1+19* |
^TMP("MCCR" | SET+11* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CLIN | CHECK~, CHECK+5, CHECK+6 |
>> DFN | BLD+2*, CK1+4, CK1+7, CK1+9, CK1+11, CK1+12, CK1+13, CK1+18, SET+11 |
HASFORM | CHECK+3~, CHECK+4*, CHECK+8 |
>> IBDFBEG | BLD+1 |
IBDFCL | CHECK+3~, CHECK+6*, CHECK+7 |
IBDFCLIN | START+1~, START+4*, BLD+1, BLD+2, SET+11 |
>> IBDFDA | BLD+2* |
>> IBDFEND | BLD+1 |
>> IBDFIFN | CK1+9*, SET+11 |
>> IBDFMUL | CK+5 |
IBDFNODE | CHECK+3~, CHECK+7*, CK+3*, CK+4, CK+5, CK+6, CK+8, CK1+6, SET+13, SET+27 |
>> IBDFNUM | CK1+13*, CK1+14, CK1+15, CK1+18, CK1+19, CK1+22, CK1+23, CK1+24, CK1+25, CK1+27 |
>> IBDFSA | BLD+2* |
>> IBDFT | BLD+1*, BLD+2, CK1+4, CK1+9, CK1+11, CK1+12, CK1+13, CK1+31, SET+11 |
>> IBDFTMP | SET+13*, SET+27, INC+2* |
>> IBDFTMP1 | SET+14*, SET+28, INC+3* |
>> IBDFTMP2 | SET+15*, SET+29, INC+4* |
IBDFXPC | CK1+5~, CK1+6*, SET+11 |
IBDFYPC | CK1+5~, CK1+7*, SET+11 |
>> IBDIVNM | CK+5*, CK+8, CK+9, CK1+18, SET+11, SET+13, SET+14, SET+27, SET+28 |
>> IBFLG1 | CK1+10*, CK1+17, CK1+18*, SET+17 |
>> IBFLG2 | CK1+10*, CK1+13, CK1+19*, CK1+22, SET+18 |
>> IBFLG3 | CK1+10*, CK1+11*, SET+19 |
>> IBFLG5 | CK1+10*, CK1+31*, SET+21 |
>> IBFLG6 | CK1+10*, CK1+24*, SET+22 |
>> IBFLG7 | CK1+10*, CK1+25*, SET+23 |
>> IBFLG8 | CK1+10*, CK1+26*, SET+24 |
>> IBFLG9 | CK1+10*, CK1+27*, SET+25 |
>> IBMCNODE | CK1+14* |
>> IBMCSND | CK1+15*, CK1+16, CK1+17, CK1+19, CK1+31 |
IBQUIT | START+1~, START+2*, START+4, CK+2*, CK+7* |
PIECE | INC~, INC+2, INC+3, INC+4 |
>> VADAT("W" | CK1+31 |
VALUE | INC~, INC+2, INC+3, INC+4 |
>> VAUTD | CK+6 |
>> VAUTD( | CK+6 |
>> X | CK1+25*, CK1+31 |
>> X1 | CK1+31* |
>> X2 | CK1+31* |
XCL | CK~, CK+1, CK+3, CK+7 |