source: FOIAVistA/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/ECFLRPC.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1ECFLRPC ;ALB/JAM-Event Capture Filer RPC ;8 Dec 00
2 ;;2.0; EVENT CAPTURE ;**25**;8 May 96
3 ;
4FILE(RESULTS,ECARY) ;Broker entry point to file data in Event Capture files
5 ;This RPC is called when filing any data for ECS.
6 ; RPC: EC FILER
7 ;INPUTS ECARY - array with data to be filed
8 ; ECARY("ECFILE")=file #
9 ; ECARY(sub)=data ;data relevant to file
10 ;
11 ;OUTPUTS RESULTS - Success or failure to file
12 ;
13 D SETENV^ECUMRPC
14 D PARSE
15 K ^TMP($J,"ECMSG")
16 I $G(ECFILE)="" S ^TMP($J,"ECMSG",1)="0^File Not defined" D END Q
17 I ECFILE=721 D ^ECEFPAT,END Q ; Event Capture Patient File
18 I ECFILE=724 D ^ECMFDSSU,END Q ; DSS Unit
19 I ECFILE=720.3 D ^ECMFECS,END Q ; EC Event Code Screens
20 I ECFILE=720.4 D REASON^ECMFECS,END Q ;Event Code Reasons
21 I ECFILE=725 D ^ECMFLPX,END Q ; EC Local Procedure
22 I ECFILE=726 D ^ECMFCAT,END Q ; Event Capture Category
23 I ECFILE=4 D ^ECMFLOC,END Q ; Event Capture Locations
24 I ECFILE=200 D USER^ECMFDSSU,END Q ; Allocate/Deallocate users to Unit
25 I ECFILE="200A" D DSSU^ECMFDSSU,END Q ; Allocate/Deallocate Unts to usr
26 I ECFILE=8989.5 D HFS^ECMFLOC,END Q ; Update HFS directory
27 S ^TMP($J,"ECMSG",1)="0^Filer Not Available"
28 ;
29END ;
30 D KILLVAR
31 S RESULTS=$NA(^TMP($J,"ECMSG"))
32 Q
33 ;
34PARSE ;Parse data from array for filing
35 N SUB
36 S SUB="" F S SUB=$O(ECARY(SUB)) Q:SUB="" S @SUB=ECARY(SUB)
37 Q
38KILLVAR ;Kill variables
39 N SUB
40 S SUB="" F S SUB=$O(ECARY(SUB)) Q:SUB="" K @SUB
41 K ECARY,ECIEN
42 Q
Note: See TracBrowser for help on using the repository browser.