APCPESIT.m

APCPESIT ; IHS/TUCSON/LAB - ; [ 04/03/98  08:39 AM ]

 ;;2.0;IHS PCC DATA EXTRACTION SYSTEM;;APR 03, 1998

 ;

 ;update/add to site file

 S DIC(0)="AEMQL",DIC="^APCPSITE(" D ^DIC

 I Y=-1 W !,"BYE" G XIT

 S DA=+Y

 S DDSFILE="^APCPSITE(",DR="[APCP EDIT SITE FILE]" D ^DDS

 I $D(DIMSG) W !!,"ERROR IN SCREENMAN FORM!!  ***NOTIFY PROGRAMMER***"

XIT ;

 K DDS,DDSFILE,DR,DA,DIC,X,Y,DIMSG

 Q

APCPESIT  ; IHS/TUCSON/LAB - ; [ 04/03/98  08:39 AM ]

 +1       ;;2.0;IHS PCC DATA EXTRACTION SYSTEM;;APR 03, 1998

 +2       ;

 +3       ;update/add to site file

 +4        SET DIC(0)="AEMQL"

           SET DIC="^APCPSITE("

           DO ^DIC

 +5        IF Y=-1

               WRITE !,"BYE"

               GOTO XIT

 +6        SET DA=+Y

 +7        SET DDSFILE="^APCPSITE("

           SET DR="[APCP EDIT SITE FILE]"

           DO ^DDS

 +8        IF $DATA(DIMSG)

               WRITE !!,"ERROR IN SCREENMAN FORM!!  ***NOTIFY PROGRAMMER***"

XIT       ;

 +1        KILL DDS,DDSFILE,DR,DA,DIC,X,Y,DIMSG

 +2        QUIT