Routine: ECPCEU

Information

ECPCEU ;BIR/JPW-ECS to PCE Utilities ;7 Jan 97

Source file <ECPCEU.m>

Name	Comments	DBIA/ICR reference
CLIN	;check for active inactive clinic
NITE	;start nightly job
SET	;set variables
TMP	;set ^TMP for PCE call
ENC
PROV	;Set providers in ^TMP("ECPXAPI",$J,"PROVIDER",n,"NAME")=provider
DX
PROC
MOD	;Set modifiers in ^TMP("ECPXAPI",$J,"PROCEDURE",1,"MODIFIERS",modifier
D2PCE
PCETASK(ECPCE)	;Set up task for transfer to PCE
XFER2PCE	;Task entry point for single ECS record xfer to PCE