SCCVEGU1 ;ALB/TMP - UTILS FOR ENCNTR CNVRSN GLBL ESTMTR;20-JAN-1998
Source file <SCCVEGU1.m>
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INCRTOT(SCTOT,INCRWHAT,HOWMUCH) | ;Update local counters for estimate
; SCTOT -- The array containing the running estimate totals ; Subcripted by the piece it is stored on in the CST's node 2 ; INCRWHAT -- The piece of the CST 2-node that stores the correspnding count ; 1 = Add/edits (Default) ; 2 = Ancillaries ; 3 = Appointments ; 4 = Credit stops ; 5 = Dispositions ; 7 = Encounters and Visits ; 8 = Visits only ; 9 = # V-Providers ; 10 = # V-Diagnoses ; 11 = # V-Procedures ; HOWMUCH -- The amount to add to the existing total |
|
| UPDTOTL(PTRLOG,SCTOT) | ;UPDATE CST WITH ESTIMATE TOTALS
|
|
| ESTGROW(ARRAY) | ;RETURN ESTIMATED GLOBAL GROWTH FOR AFFECTED GLOBALS
|
|
| FACTOR() | ; -- determine block factor (1 := 1024/dsm 2 := 2048/openm)
|
|
| BLKSIZE() | ; -- determine block size
|
|
| PER(EST) | ; -- adjust 'per' record size for os
|
|
| SCE() | ; -- encounter
|
|
| SCEUPD() | ; -- encounter update only
|
|
| AUPNVSIT() | ; -- visit file
|
|
| AUPNVPRV() | ; -- providers
|
|
| AUPNVPOV() | ; -- dx
|
|
| AUPNVCPT() | ; -- cpts
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("OS" | FACTOR+1 |
| ^SD(404.98 - [#404.98] | UPDTOTL+8 |
| Name | Line Occurrences |
|---|---|
| $$AUPNVCPT | ESTGROW+19 |
| $$AUPNVPOV | ESTGROW+21 |
| $$AUPNVPRV | ESTGROW+20 |
| $$AUPNVSIT | ESTGROW+18 |
| $$FACTOR | BLKSIZE+1, PER+1 |
| $$PER | SCE+1, SCEUPD+1, AUPNVSIT+1, AUPNVPRV+1, AUPNVPOV+1, AUPNVCPT+1 |
| $$SCE | ESTGROW+16 |
| $$SCEUPD | ESTGROW+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | ESTGROW~, ESTGROW+11*, ESTGROW+12, ESTGROW+16, ESTGROW+17, ESTGROW+18, ESTGROW+19, ESTGROW+20, ESTGROW+21 |
| EST | PER~, PER+1 |
| HOWMUCH | INCRTOT~, INCRTOT+19~*, INCRTOT+20, INCRTOT+21 |
| INCRWHAT | INCRTOT~, INCRTOT+20, INCRTOT+21 |
| PTRLOG | UPDTOTL~, UPDTOTL+8, UPDTOTL+11 |
| SC2 | UPDTOTL+7~, UPDTOTL+9* |
| SCDATA | UPDTOTL+7~, UPDTOTL+11 |
| SCDATA( | UPDTOTL+9* |
| SCF | UPDTOTL+7~, UPDTOTL+9* |
| SCTOT | INCRTOT~, UPDTOTL~ |
| SCTOT( | INCRTOT+20*, UPDTOTL+9 |
| SCTOT(8 | INCRTOT+21* |
| X | ESTGROW+10~ |
| Y | ESTGROW+10~ |
