source: FOIAVistA/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/ECUERPC2.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1ECUERPC2 ;ALB/JAM;Event Capture Data Entry Broker Utilities ;Apr 24, 2002
2 ;;2.0; EVENT CAPTURE ;**41,39,50,72**;8 May 96
3 ;
4ECDOD(RESULTS,ECARY) ;RPC Broker entry point to get a patient's date of death
5 ; RPC: EC DIEDON
6 ;INPUTS ECARY - Contains the following elements as input
7 ; ECDFN - Patient DFN
8 ;
9 ;OUTPUTS RESULTS - Fileman Internal Date of Patient date of Death^
10 ; Message with Patient External Date of Death
11 ;
12 N ECDFN,DFN,VADM
13 D SETENV^ECUMRPC
14 S ECDFN=$P(ECARY,U),RESULTS="^"
15 I ECDFN="" S RESULTS="0^Patient DFN not defined" Q
16 ;NOIS MWV-0603-21781: line below changed by VMP
17 S DFN=ECDFN D 2^VADPT I +VADM(6) S RESULTS=$P(VADM(6),U)_"^"_"[PATIENT DIED ON "_$P(VADM(6),U,2)_"]"
18 Q
19VISINFO(RESULTS,ECARY) ;
20 ;
21 ;Broker call returns the EC values based on a Visit Number
22 ; RPC: EC GETVISITINFO
23 ;INPUTS ECARY - Contains the following subscripted elements
24 ; ECVSN - Visit Number, IEN in file (#9000010)
25 ;
26 ;OUTPUTS RESULTS - Contains the following data:-
27 ; Location IEN^DSS Unit IEN^Proc Date/Time Fileman^
28 ; Procedure Date/Time Readable^Patient DFN
29 ; 0^Error Message (if error)
30 ;
31 N ECLOC,ECUNT,NODE,Y,ECPXDT,DA,ECVSN,ECDFN,DSSF,LOC,UNT
32 D SETENV^ECUMRPC
33 S ECVSN=$P(ECARY,U) I ECVSN="" S RESULTS=0_"^Visit undefined" Q
34 K ^TMP($J,"ECVISINFO")
35 S DA=$O(^ECH("C",ECVSN,0)) I 'DA D Q
36 . S RESULTS=0_"^Visit not on File"
37 S NODE=$G(^ECH(DA,0)) I NODE="" D Q
38 . S RESULTS=0_"No corresponding EC procedures found for Visit"
39 S ECLOC=$P(NODE,U,4),ECUNT=$P(NODE,U,7),ECPXDT=$P(NODE,U,3)
40 S LOC=$P($G(^DIC(4,ECLOC,0)),U),UNT=$G(^ECD(ECUNT,0)),DSSF=$P(UNT,U,14)
41 S UNT=$P(UNT,U) S:DSSF="" DSSF="N"
42 S ECDFN=$P(NODE,U,2),Y=ECPXDT X ^DD("DD")
43 S RESULTS=ECLOC_U_LOC_U_ECUNT_U_UNT_U_DSSF_U_ECPXDT_U_Y_U_ECDFN
44 Q
45PATPRV(ECIEN) ;
46 ;Returns to broker a patient providers (primary & secondary) entries
47 ;from EVENT CAPTURE PATIENT FILE #721
48 ;INPUTS ECIEN - Event Capture Patient ien
49 ;
50 ;OUTPUTS RESULTS - Array of Event Capture Patient file contains
51 ; ^ECH IEN^provider ien^provider description^Primary/Secondary
52 ; code^Primary/Secondary description
53 ;
54 N ECPRV,ECPROV
55 I '$D(^ECH(ECIEN,"PRV")) Q
56 K ^TMP($J,"ECPRV")
57 S ECPRV=$$GETPRV^ECPRVMUT(ECIEN,.ECPROV) I 'ECPRV D
58 .M ^TMP($J,"ECPRV")=ECPROV
59 S RESULTS=$NA(^TMP($J,"ECPRV"))
60 Q
Note: See TracBrowser for help on using the repository browser.