source: WorldVistAEHR/trunk/r/DSS_EXTRACTS-ECX/ECXPCT.m@ 701

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

initial load of WorldVistAEHR

File size: 607 bytes
Line 
1ECXPCT ;BIR/CML-Print List of Primary Care Teams ; [ 02/28/97 12:16 PM ]
2 ;;3.0;DSS EXTRACTS;;Dec 22, 1997
3EN ;entry point from option
4 W !!,"This option prints a list of all Primary Care Teams. The list is sorted",!,"alphabetically by TEAM name and displays the pointer to the TEAM file (#404.51)."
5 I '$O(^SCTM(404.51,0)) W !!,"The TEAM file (#404.51) does not exist on your system!" G QUIT
6 W !!,"The right margin for this report is 80.",!!
7 W ! K DIC S DIC="^SCTM(404.51,",FLDS=".01;""TEAM NAME"",NUMBER;""TEAM FILE POINTER"";C45;R9",BY=".01",(FR,TO)="",DHD="Primary Care Teams",L=0
8 D EN1^DIP
9QUIT Q
Note: See TracBrowser for help on using the repository browser.