ECFLRPC ;ALB/JAM-Event Capture Filer RPC ;10/17/16  12:56
 ;;2.0;EVENT CAPTURE;**25,101,134**;8 May 96;Build 12
 ;
FILE(RESULTS,ECARY) ;Broker entry point to file data in Event Capture files
 ;This RPC is called when filing any data for ECS.
 ;        RPC: EC FILER
 ;INPUTS  ECARY    - array with data to be filed
 ;         ECARY("ECFILE")=file #
 ;         ECARY(sub)=data ;data relevant to file
 ;
 ;OUTPUTS RESULTS  - Success or failure to file
 ;
 
SETENV^ECUMRPC
 
PARSE
 
^TMP($J,"ECMSG")
 
I $G(ECFILE)="" ^TMP($J,"ECMSG",1)="0^File Not defined" END Q
 I 
ECFILE=721 ^ECEFPAT,END Q          ; Event Capture Patient File
 ;134 added call to file users in file 722
 
ECFILE=722 ^ECPRVDR,END Q          ; Event Capture Provider File
 
ECFILE=724 ^ECMFDSSU,END Q         ; DSS Unit
 
ECFILE=720.3 ^ECMFECS,END Q        ; EC Event Code Screens
 
ECFILE=720.4 REASON^ECMFECS,END Q  ;Event Code Reasons
 
ECFILE=725 ^ECMFLPX,END Q        ; EC Local Procedure
 
ECFILE=726 ^ECMFCAT,END Q        ; Event Capture Category
 
ECFILE=4 ^ECMFLOC,END Q          ; Event Capture Locations
 
ECFILE=200 USER^ECMFDSSU,END Q   ; Allocate/Deallocate users to Unit
 
ECFILE="200A" DSSU^ECMFDSSU,END Q  ; Allocate/Deallocate Unts to usr
 ;I ECFILE=8989.5 D HFS^ECMFLOC,END Q    ; Update HFS directory
 
^TMP($J,"ECMSG",1)="0^Filer Not Available"
 ;
END ;
 
KILLVAR
 
RESULTS=$NA(^TMP($J,"ECMSG"))
 
Q
 
;
PARSE ;Parse data from array for filing
 
SUB
 
SUB="" F  S SUB=$O(ECARY(SUB)) Q:SUB=""  @SUB=ECARY(SUB)
 
Q
KILLVAR ;Kill variables
 
SUB
 
SUB="" F  S SUB=$O(ECARY(SUB)) Q:SUB=""  @SUB
 
ECARY,ECIEN
 
Q