SDESPATIENTDATA ;;ALB/TAW - VISTA Patient data getter ;May 26, 2021@15:22
;;5.3;Scheduling;**788**;Aug 13, 1993;Build 6
Q
; Documented API's and Integration Agreements
; -------------------------------------------
; Reference to ^DPT( In ICRs #7030,7029,1476,10035
;
; The intention of this rtn is to return a unique set of data from the Patient
;File (2) for a specifc IEN.
;
; It is assumed by getting here all business logic and validation has been performed.
;
; This routine should only be used for retrieving data from the Patient file.
Q
PATIENTIDADDDON(RETURN,DFN) ;
;Returns a basic set of data for a specific appointment
;
; Input
; IEN - Specific appointment IEN
; Return
; APPTDATA - Array of field names and the data for the field based on the IEN
;
N FN,IENS,PATDATA,SDMSG
K RETURN
S FN=2,IENS=DFN_","
D GETS^DIQ(FN,DFN,".01;.02;.03;.09;.361","IE","PATDATA","SDMSG")
S RETURN("DFN")=DFN
S RETURN("Name")=$G(PATDATA(FN,IENS,.01,"E"))
S RETURN("Gender")=$G(PATDATA(FN,IENS,.02,"E"))
S RETURN("DOBI")=$G(PATDATA(FN,IENS,.03,"I"))
S RETURN("DOBE")=$G(PATDATA(FN,IENS,.03,"E"))
S RETURN("SSN")=$G(PATDATA(FN,IENS,.09,"E"))
S RETURN("EligibilityE")=$G(PATDATA(FN,IENS,.361,"E"))
S RETURN("EligibilityI")=$G(PATDATA(FN,IENS,.361,"I"))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDESPATIENTDATA 1323 printed Nov 22, 2024@18:07:21 Page 2
SDESPATIENTDATA ;;ALB/TAW - VISTA Patient data getter ;May 26, 2021@15:22
+1 ;;5.3;Scheduling;**788**;Aug 13, 1993;Build 6
+2 QUIT
+3 ; Documented API's and Integration Agreements
+4 ; -------------------------------------------
+5 ; Reference to ^DPT( In ICRs #7030,7029,1476,10035
+6 ;
+7 ; The intention of this rtn is to return a unique set of data from the Patient
+8 ;File (2) for a specifc IEN.
+9 ;
+10 ; It is assumed by getting here all business logic and validation has been performed.
+11 ;
+12 ; This routine should only be used for retrieving data from the Patient file.
+13 QUIT
PATIENTIDADDDON(RETURN,DFN) ;
+1 ;Returns a basic set of data for a specific appointment
+2 ;
+3 ; Input
+4 ; IEN - Specific appointment IEN
+5 ; Return
+6 ; APPTDATA - Array of field names and the data for the field based on the IEN
+7 ;
+8 NEW FN,IENS,PATDATA,SDMSG
+9 KILL RETURN
+10 SET FN=2
SET IENS=DFN_","
+11 DO GETS^DIQ(FN,DFN,".01;.02;.03;.09;.361","IE","PATDATA","SDMSG")
+12 SET RETURN("DFN")=DFN
+13 SET RETURN("Name")=$GET(PATDATA(FN,IENS,.01,"E"))
+14 SET RETURN("Gender")=$GET(PATDATA(FN,IENS,.02,"E"))
+15 SET RETURN("DOBI")=$GET(PATDATA(FN,IENS,.03,"I"))
+16 SET RETURN("DOBE")=$GET(PATDATA(FN,IENS,.03,"E"))
+17 SET RETURN("SSN")=$GET(PATDATA(FN,IENS,.09,"E"))
+18 SET RETURN("EligibilityE")=$GET(PATDATA(FN,IENS,.361,"E"))
+19 SET RETURN("EligibilityI")=$GET(PATDATA(FN,IENS,.361,"I"))
+20 QUIT
