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
|