SDVSIT0 ;MJK/ALB,ESW,SCK - OE Processing ; 11/21/02 11:00am
Source file <SDVSIT0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ADD(SDT,SDVSIT) | ; -- add/find outpatient encounter
; input SDT = visit date internal format ; SDVSIT = <see bottom of routine> |
|
NEW(SDT,SDVSIT) | ; -- create new outpatient encounter record
; input SDT = visit date internal format ; SDVSIT = <see bottom of routine> |
|
LOCK | ||
NEWQ | ||
VISIT(SDT,SDVSIT) | ; -- add visit file entry
|
|
VISITQ | ||
STATUS(DFN,SDT,SDCL,SDORG,SDACT) | ; -- 409.68;.07 x-ref
|
FileNo | Call Tags |
---|---|
^SCE - [#409.68] | Classic Fileman Calls |