SDESPATIENTDATA.m

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 ---SDESPATIENTDATA   1323     printed  Apr 09, 2024@21:46:35                                                                                                                                                                                             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