source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRRPSIN.m@ 1651

Last change on this file since 1651 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 622 bytes
Line 
1DGRRPSIN ;ALB/SGG - rtnDGRR PatientServices DataSet=Institution ;09/30/03 ; Compiled October 2, 2003 12:40:56
2 ;;5.3;Registration;**557**;Aug 13, 1993
3 ;
4DOC ;
5 ;
6GETPSARY(PSARRAY) ;
7 NEW CNT
8 SET CNT=$G(CNT)+1,PSARRAY(CNT)="<Institution"
9 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Name^"_$$INSTNAM()
10 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^Number^"_$$INSTNUM()
11 SET CNT=$G(CNT)+1,PSARRAY(CNT)="^IsProductionDatabase^"_$$ISPRODDB()
12 SET CNT=$G(CNT)+1,PSARRAY(CNT)="></Institution>"_"^^^1"
13 QUIT
14 ;
15INSTNAM() ;
16 QUIT $$SITENAM^DGRR557U()
17INSTNUM() ;
18 QUIT $$SITENO^DGRR557U()
19ISPRODDB() ;
20 QUIT $$PRODST1^DGRR557U()+$$PRODST2^DGRR557U()
Note: See TracBrowser for help on using the repository browser.