DGRRPSA1 ; ALB/SGG - DG R&R PatientServices GET data - return XML ; 09/30/03
 ;;5.3;Registration;**557**;Aug 13, 1993
 ;
DOC ;
 ; Person Service Demogr
 ;
 ;
 ;
 ; Call: DO PATIENT^DGRRPSGT(.RESULT,.PARAMS)
 ; 
 ; Input Parameters:   (Rq) Required parameter  (Op) Optional parameter
 ;   
 ; (Rq) PARAMS("PatientId_Type") =      the three letters "DFN" or "ICN"
 ; (Rq) PARAMS("PatientId") =           the actual value of the patient DFN or ICN
 ; (Op) PARAMS(REQUESTED_DATE)=         Date to be used for ADT Movement List - defaults to DT
 ; (Op) PARAMS("PrimaryDemo") =         0 or 1 to request Primary Demographic Info
 ; (Op) PARAMS("SecondaryDemo") =       0 or 1 to request Secondary Demographic Info
 ; (Op) PARAMS("TertiaryDemo") =        0 or 1 to request Tertiary Demographic Info
 ; (Op) PARAMS("MainAddress") =         0 or 1 to request Main Address Info
 ; (Op) PARAMS("TemporaryAddress") =    0 or 1 to request Temporary Address Info
 ; (Op) PARAMS("ConfidentialAddress") = 0 or 1 to request Confidential Address Info
 ; (Op) PARAMS("ContactInfo") =         0 or 1 to request Contact Information
 ; (Op) PARAMS("ADTInfo") =             0 or 1 to request ADT Information
 ; (Op) PARAMS("EnrollEligibility") =   0 or 1 to request Enrollment/Eligibility Information
 ;           
 ; -- returns result array that contains XML document containing data for 
 ;    information requested by input parameters, Plus Identifier, Institution
 ;    and any Error information.
 ;
 ;
 ; The Primary routine of DGRRPS* is DGRRPSGT (GeT)
 ;
 ;
 ;--------------------------------------------------------------------------------------
 ;
 ;note that the DGRRPS* routines have been released as a sub patch to Mark Enfinger's team
 ;this includes the routines and 'DGRR PATIENT SERVICE QUERY'
 ;
 ;
 QUIT
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRRPSA1   1839     printed  Sep 23, 2025@20:33:35                                                                                                                                                                                                    Page 2
DGRRPSA1  ; ALB/SGG - DG R&R PatientServices GET data - return XML ; 09/30/03
 +1       ;;5.3;Registration;**557**;Aug 13, 1993
 +2       ;
DOC       ;
 +1       ; Person Service Demogr
 +2       ;
 +3       ;
 +4       ;
 +5       ; Call: DO PATIENT^DGRRPSGT(.RESULT,.PARAMS)
 +6       ; 
 +7       ; Input Parameters:   (Rq) Required parameter  (Op) Optional parameter
 +8       ;   
 +9       ; (Rq) PARAMS("PatientId_Type") =      the three letters "DFN" or "ICN"
 +10      ; (Rq) PARAMS("PatientId") =           the actual value of the patient DFN or ICN
 +11      ; (Op) PARAMS(REQUESTED_DATE)=         Date to be used for ADT Movement List - defaults to DT
 +12      ; (Op) PARAMS("PrimaryDemo") =         0 or 1 to request Primary Demographic Info
 +13      ; (Op) PARAMS("SecondaryDemo") =       0 or 1 to request Secondary Demographic Info
 +14      ; (Op) PARAMS("TertiaryDemo") =        0 or 1 to request Tertiary Demographic Info
 +15      ; (Op) PARAMS("MainAddress") =         0 or 1 to request Main Address Info
 +16      ; (Op) PARAMS("TemporaryAddress") =    0 or 1 to request Temporary Address Info
 +17      ; (Op) PARAMS("ConfidentialAddress") = 0 or 1 to request Confidential Address Info
 +18      ; (Op) PARAMS("ContactInfo") =         0 or 1 to request Contact Information
 +19      ; (Op) PARAMS("ADTInfo") =             0 or 1 to request ADT Information
 +20      ; (Op) PARAMS("EnrollEligibility") =   0 or 1 to request Enrollment/Eligibility Information
 +21      ;           
 +22      ; -- returns result array that contains XML document containing data for 
 +23      ;    information requested by input parameters, Plus Identifier, Institution
 +24      ;    and any Error information.
 +25      ;
 +26      ;
 +27      ; The Primary routine of DGRRPS* is DGRRPSGT (GeT)
 +28      ;
 +29      ;
 +30      ;--------------------------------------------------------------------------------------
 +31      ;
 +32      ;note that the DGRRPS* routines have been released as a sub patch to Mark Enfinger's team
 +33      ;this includes the routines and 'DGRR PATIENT SERVICE QUERY'
 +34      ;
 +35      ;
 +36       QUIT