VIABMS2 ;SGU/GJW - VIA BMS RPCs ;04/15/2016
Source file <VIABMS2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HOSLOC | ;Returns a list of hospital locations from File #44;ICR-10040;ICR-4782
|
|
| HOSLOC1(J) | ;
|
|
| HOSLOC2(RESULT,IENS) | ;
|
|
| WALK(STARTI,STARTJ,MAX,START,END,ROOT) | ;
|
|
| DONE | ;
|
|
| LPATMVT2 | ;This is the original code that is not used, but left here for reference as it uses the default LDIC logic.
|
|
| LSTPAT2 | ;Returns a list of patients from File #2;ICR-10035, ICR-6607
|
|
| CONTX | ;
|
|
| SEEK(SDATE) | ;
|
|
| WALK3(ROOT,MAX,STARTI,STARTJ) | ;
|
|
| VISIT(I,J,ROOT,CNT) | ;
|
|
| ENTERED(VIAIEN) | ;
|
|
| NEXT(I,J) | ;
|
|
| NXTQ | ;
|
|
| PTR2(VIAIEN) | ;
|
|
| GPATMVT | ; Returns a patient movement records from the PATIENT MOVEMENT file #405;ICR-1865
|
| FileNo | Call Tags |
|---|---|
| ^DGPM - [#405] | GET1^DIQ |
