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
|