SDAMODO2 ;ALB/SCK - PROVIDER DIAGNOSTICS REPORT, SET-UP DATA ;05 Oct 98 8:43 PM
Source file <SDAMODO2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ;
|
|
EXIT | ;
|
|
BLD(SDPRX,SORT1,SORT2) | ;
|
|
BLDTMP | ;
|
|
PRSUB(PRX) | ;
|
|
PTSUB(PDFN) | ;
|
|
PDATA(DFN) | ;
|
|
OKDIV(OEDIV) | ||
OKDIVQ | ||
CHECK(SRT,SDOE0,OEN) | ;
|
|
CHECKQ | ||
PRV(OEN) | ; -- is there at least one provider from selected list
|
|
DX(OEN) | ; -- is there at least one dx from selected list
|
|
PRV1(OEN) | ; -- get list of providers for encounter
|
|
DX1(OEN) | ; -- get list of dxs for encounter
|