Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ECFLRPC

ECFLRPC.m

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