SDVSIT ;MJK/ALB - Visit Tracking Processing ; 12/19/12 10:13am
Source file <SDVSIT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AEUPD(SDVIEN,SDATYPE,SDOEP) | ; -- update one entry in multiple
; input: SDVIEN := Visit file pointer ; SDATYPE := Appointment Type [optional] ; SDOEP := ien of ^SCE that is the parent encounter [optional] |
|
| AEUPDQ | ||
| APPT(DFN,SDT,SDCL,SDVIEN) | ; -- process appt
; input DFN = ien of patient file entry ; SDT = visit date internal format ; SDCL = ien of hospital location file entry ; SDVIEN = Visit file pointer [optional] |
|
| APPTQ | ||
| CSTOP(SDOE,SDCL0,SDVSIT,SDT) | ;Process credit stop
|
|
| DISP(DFN,SDT,SDVIEN) | ; -- process disposition
; input DFN = ien of patient file entry ; SDT = visit date internal format ; SDIV = ien of med ctr file entry ; SDVIEN = Visit file pointer [optional] |
|
| DISPQ | ||
| ARRAY(DFN,SDT,SDDA,SDIS,SDVSIT) | ; -- setup sdvsit for disposition
|
|
| LOCK(SDLOCK) | ; -- lock "ADFN" node
|
|
| UNLOCK(SDLOCK) | ; -- unlock "ADFN" node
|
|
| DIV(DIV) | ; -- determine med div
|
|
| DIVQ | ||
| SDOE(SDT,SDVSIT,SDVIEN,SDOEP) | ; -- get visit & encounter
|
|
| DATECHCK(DATETIME) | ;Validate FileMan date/time
|
| FileNo | Call Tags |
|---|---|
| ^AUPNVSIT - [#9000010] | GETS^DIQ |
