DGRRPSA2 ; ALB/SGG - DG R&R PatientServices GET data - return XML ; 09/30/03
 ;;5.3;Registration;**557**;Aug 13, 1993
 ;
 ;
RTNLIST ;
 ;
 ; DGRRPSAA  DGRRPSAC  DGRRPSAD  DGRRPSAM  DGRRPSAT  DGRRPSD1  DGRRPSD2  DGRRPSD3
 ; DGRRPSEE  DGRRPSGT  DGRRPSIC  DGRRPSID  DGRRPSIN  DGRRPSKN  DGRRPSXX
 ;
 ;
 ; PRIMARY PROCESS ROUTINE:
 ; DGRRPSGT  -  DGRRPSGT receives a request for patient info through vista link
 ;              This routine then call out to the individual dataset get routines
 ;              The final XML to be returned is then built in this routine
 ;              
 ; DOCUMENTATION:
 ; DGRRPSA1  -
 ; DGRRPSA2  -
 ; 
 ; INDIVIDUAL DATASET GETTERS:
 ; 
 ; DGRRPSAC  - PS Address CONFIDENTIAL DATA SET
 ; DGRRPSAM  - PS Address MAIN DATA SET
 ; DGRRPSAT  - PS Address TEMPORARY DATA SET
 ; 
 ; DGRRPSD1  - DEMOGRAPHIC DATA SET 1
 ; DGRRPSD2  - DEMOGRAPHIC DATA SET 2
 ; DGRRPSD3  - DEMOGRAPHIC DATA SET 3
 ; 
 ; DGRRPSAD  - PS ADT DATA SET
 ; DGRRPSEE  - ENROLLMENT AND ELIGABILITY DATA SET
 ; DGRRPSIC  - INCOMPETENT DATA SET
 ; DGRRPSID  - IDENTIFICATION DATA SET
 ; DGRRPSIN  - INSTITUTION DATA SET
 ; DGRRPSKN  - Next of Kin DATA SET
 ; 
 ; DEVELOPER TEST INFO:
 ; DGRRPSXX  -
 ;
 QUIT
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRRPSA2   1242     printed  Sep 23, 2025@20:33:36                                                                                                                                                                                                    Page 2
DGRRPSA2  ; ALB/SGG - DG R&R PatientServices GET data - return XML ; 09/30/03
 +1       ;;5.3;Registration;**557**;Aug 13, 1993
 +2       ;
 +3       ;
RTNLIST   ;
 +1       ;
 +2       ; DGRRPSAA  DGRRPSAC  DGRRPSAD  DGRRPSAM  DGRRPSAT  DGRRPSD1  DGRRPSD2  DGRRPSD3
 +3       ; DGRRPSEE  DGRRPSGT  DGRRPSIC  DGRRPSID  DGRRPSIN  DGRRPSKN  DGRRPSXX
 +4       ;
 +5       ;
 +6       ; PRIMARY PROCESS ROUTINE:
 +7       ; DGRRPSGT  -  DGRRPSGT receives a request for patient info through vista link
 +8       ;              This routine then call out to the individual dataset get routines
 +9       ;              The final XML to be returned is then built in this routine
 +10      ;              
 +11      ; DOCUMENTATION:
 +12      ; DGRRPSA1  -
 +13      ; DGRRPSA2  -
 +14      ; 
 +15      ; INDIVIDUAL DATASET GETTERS:
 +16      ; 
 +17      ; DGRRPSAC  - PS Address CONFIDENTIAL DATA SET
 +18      ; DGRRPSAM  - PS Address MAIN DATA SET
 +19      ; DGRRPSAT  - PS Address TEMPORARY DATA SET
 +20      ; 
 +21      ; DGRRPSD1  - DEMOGRAPHIC DATA SET 1
 +22      ; DGRRPSD2  - DEMOGRAPHIC DATA SET 2
 +23      ; DGRRPSD3  - DEMOGRAPHIC DATA SET 3
 +24      ; 
 +25      ; DGRRPSAD  - PS ADT DATA SET
 +26      ; DGRRPSEE  - ENROLLMENT AND ELIGABILITY DATA SET
 +27      ; DGRRPSIC  - INCOMPETENT DATA SET
 +28      ; DGRRPSID  - IDENTIFICATION DATA SET
 +29      ; DGRRPSIN  - INSTITUTION DATA SET
 +30      ; DGRRPSKN  - Next of Kin DATA SET
 +31      ; 
 +32      ; DEVELOPER TEST INFO:
 +33      ; DGRRPSXX  -
 +34      ;
 +35       QUIT