BSDPCT.m

BSDPCT ; IHS/ANMC/LJF - SET UP PRIMARY CARE TEAM ; 

 ;;5.3;PIMS;;APR 26, 2002

 ;

 ; ask user to select team

 NEW DIC,DLAYGO,Y,DDSFILE,DA,DR

 S (DIC,DLAYGO)=9009017.5,DIC(0)="AEMQZL" D ^DIC Q:Y<1

 ;

 ; -- call ScreenMan to add/edit parameters

 S DDSFILE=9009017.5,DA=+Y,DR="[BSD PC TEAM EDIT]" D ^DDS

 Q

BSDPCT    ; IHS/ANMC/LJF - SET UP PRIMARY CARE TEAM ; 

 +1       ;;5.3;PIMS;;APR 26, 2002

 +2       ;

 +3       ; ask user to select team

 +4        NEW DIC,DLAYGO,Y,DDSFILE,DA,DR

 +5        SET (DIC,DLAYGO)=9009017.5

           SET DIC(0)="AEMQZL"

           DO ^DIC

           IF Y<1

               QUIT 

 +6       ;

 +7       ; -- call ScreenMan to add/edit parameters

 +8        SET DDSFILE=9009017.5

           SET DA=+Y

           SET DR="[BSD PC TEAM EDIT]"

           DO ^DDS

 +9        QUIT