DGRRPSIN.m

DGRRPSIN ;ALB/SGG - rtnDGRR PatientServices DataSet=Institution ;09/30/03  ; Compiled October 2, 2003 12:40:56

 ;;5.3;Registration;**557**;Aug 13, 1993

 ;

DOC ;

 ;

GETPSARY(PSARRAY) ;

 NEW CNT

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="<Institution"

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Name^"_$$INSTNAM()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Number^"_$$INSTNUM()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^IsProductionDatabase^"_$$ISPRODDB()

 SET CNT=$G(CNT)+1,PSARRAY(CNT)="></Institution>"_"^^^1"

 QUIT

 ;

INSTNAM() ;

 QUIT $$SITENAM^DGRR557U()

INSTNUM() ;

 QUIT $$SITENO^DGRR557U()

ISPRODDB() ;

 QUIT $$PRODST1^DGRR557U()+$$PRODST2^DGRR557U()

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGRRPSIN   642     printed  Apr 09, 2024@21:56:22                                                                                                                                                                                                     Page 2

DGRRPSIN  ;ALB/SGG - rtnDGRR PatientServices DataSet=Institution ;09/30/03  ; Compiled October 2, 2003 12:40:56

 +1       ;;5.3;Registration;**557**;Aug 13, 1993

 +2       ;

DOC       ;

 +1       ;

GETPSARY(PSARRAY) ;

 +1        NEW CNT

 +2        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="<Institution"

 +3        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^Name^"_$$INSTNAM()

 +4        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^Number^"_$$INSTNUM()

 +5        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="^IsProductionDatabase^"_$$ISPRODDB()

 +6        SET CNT=$GET(CNT)+1

           SET PSARRAY(CNT)="></Institution>"_"^^^1"

 +7        QUIT 

 +8       ;

INSTNAM() ;

 +1        QUIT $$SITENAM^DGRR557U()

INSTNUM() ;

 +1        QUIT $$SITENO^DGRR557U()

ISPRODDB() ;

 +1        QUIT $$PRODST1^DGRR557U()+$$PRODST2^DGRR557U()