| [613] | 1 | ECFLRPC ;ALB/JAM-Event Capture Filer RPC ;8 Dec 00
|
|---|
| 2 | ;;2.0; EVENT CAPTURE ;**25**;8 May 96
|
|---|
| 3 | ;
|
|---|
| 4 | FILE(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 | ;
|
|---|
| 29 | END ;
|
|---|
| 30 | D KILLVAR
|
|---|
| 31 | S RESULTS=$NA(^TMP($J,"ECMSG"))
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | PARSE ;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
|
|---|
| 38 | KILLVAR ;Kill variables
|
|---|
| 39 | N SUB
|
|---|
| 40 | S SUB="" F S SUB=$O(ECARY(SUB)) Q:SUB="" K @SUB
|
|---|
| 41 | K ECARY,ECIEN
|
|---|
| 42 | Q
|
|---|
