ECXNURS ;ALB/JAP,BIR/DMA,PTD-Nursing Extract for DSS ;9/13/10 13:59
Source file <ECXNURS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BEG | ;entry point from option
|
|
| START | ;entry when queued
|
|
| RESOLVE | ;process ^tmp by patient
|
|
| NEWWARD(ECDNEW,OLDWARD,NEWWARD) | ;get new nursing location
; input ECDNEW = date of care ; OLDWARD = pointer to file #42, previous mas ward ; NEWWARD = null ; output NEWWARD = new nursing location^new nursing bedsection ; OR "^", if new ward same as previous ward or |
|
| FILE | ;file extract records
|
|
| SETUP | ;Set required input for ECXTRAC
|
|
| QUE | ; entry point for the background requeuing handled by ECXTAUTO
|
