source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFCRPC.m@ 1397

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

initial load of FOIAVistA 6/30/08 version
File size: 2.4 KB
Line 
1VAFCRPC ;BIR/DLR-RPC ENTRY POINTS ;10/24/02 13:07
2 ;;5.3;Registration;**414,440,474,477,479**;Aug 13, 1993
3 ;;Routine uses the following supported IAs #2701 and #3027.
4PDAT(RETURN,VALUE,SSN) ;remote pdat display
5 ;'value' will pass in either an icn, ssn, dfn or patient name
6 N ARRAY,DFN,ICN,NAME,SSN,VAFCSEN
7 I $O(VALUE(""))="" S VALUE("ICN")=VALUE ;backwards compatibility - sites passing in an icn
8 S ICN=$G(VALUE("ICN")) ;icn (local or national) passed in from mpi
9 S NAME=$G(VALUE("NAME")) ;patient name passed in from mpi
10 S SSN=$G(VALUE("SSN")) ;social security number passed in from mpi
11 S DFN=$G(VALUE("DFN")) ;patient file ien passed in from mpi
12 I $G(SSN)'="" S DFN=$O(^DPT("SSN",SSN,0)) I DFN="" S RETURN(1)="-1^Invalid SSN passed into RPC" Q
13 I $G(ICN)'="" S DFN=$$GETDFN^MPIF001(ICN) I +DFN<0 S RETURN(1)="-1^Invalid ICN passed into RPC" Q ;IA 2701
14 I $G(NAME)'="" S DFN=$O(^DPT("B",NAME,0)) I DFN="" S RETURN(1)="-1^Invalid NAME passed into RPC" Q
15 I $S('$G(DFN):1,'$D(^DPT(DFN,0)):1,1:0) S RETURN(1)="-1^Invalid DFN passed into RPC" Q
16 ;log patient sensitivity on receiving system and send msg bulletin
17 ;D NOTICE^DGSEC4(.VAFCSEN,DFN,"RPC - VAFC REMOTE AUDIT FROM THE MPI^Remote Audit Query",3) ;IA #3027
18 S ARRAY="^TMP(""VAFCHFS"","_$J_")"
19 D HFS^VAFCHFS("START^VAFCPDAT")
20 ;M RETURN=@ARRAY
21 D DSPPDAT^VAFCHFS(.RETURN)
22 K ^TMP("VAFCHFS",$J)
23 Q
24 ;
25AUDIT(RETURN,VALUE,SSN,SDT,EDT) ;remote audit display
26 ;'value' will pass in either an icn, ssn, dfn or patient name
27 N ARRAY,DFN,ICN,NAME,SSN,VAFCSEN
28 S ICN=$G(VALUE("ICN")) ;icn (local or national) passed in
29 S NAME=$G(VALUE("NAME")) ;patient name passed in
30 S SSN=$G(VALUE("SSN")) ;social security number passed in
31 S DFN=$G(VALUE("DFN")) ;patient file ien passed in
32 I $G(SSN)'="" S DFN=$O(^DPT("SSN",SSN,0)) I DFN="" S RETURN(1)="-1^Invalid SSN passed into RPC" Q
33 I $G(ICN)'="" S DFN=$$GETDFN^MPIF001(ICN) I +DFN<0 S RETURN(1)="-1^Invalid ICN passed into RPC" Q ;IA 2701
34 I $G(NAME)'="" S DFN=$O(^DPT("B",NAME,0)) I DFN="" S RETURN(1)="-1^Invalid NAME passed into RPC" Q
35 I $S('$G(DFN):1,'$D(^DPT(DFN,0)):1,1:0) S RETURN(1)="-1^Invalid DFN passed into RPC" Q
36 ;log patient sensitivity on receiving system and send msg bulletin
37 ;D NOTICE^DGSEC4(.VAFCSEN,DFN,"RPC - VAFC REMOTE AUDIT FROM THE MPI^Remote Audit Query",3) ;IA #3027
38 S ARRAY="^TMP(""VAFCHFS"","_$J_")"
39 D HFS^VAFCHFS("START^VAFCAUD(DFN,SDT,EDT,1)")
40 ;M RETURN=@ARRAY
41 D DSPPDAT^VAFCHFS(.RETURN)
42 K ^TMP("VAFCHFS",$J)
43 Q
Note: See TracBrowser for help on using the repository browser.