APCLCPAG.m

APCLCPAG ; IHS/CMI/LAB - create new activity group ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

START ;

 W !,"Creating/Editing a Discipline Group for the Activity Reports",!!

 S DIC="^APCLACTG(",DIC(0)="AEMQL",DIC("DR")=1101,DIC("S")="I '$P(^APCLACTG(+Y,0),U,5)" D ^DIC K DIC

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

 Q

APCLCPAG  ; IHS/CMI/LAB - create new activity group ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

START     ;

 +1        WRITE !,"Creating/Editing a Discipline Group for the Activity Reports",!!

 +2        SET DIC="^APCLACTG("

           SET DIC(0)="AEMQL"

           SET DIC("DR")=1101

           SET DIC("S")="I '$P(^APCLACTG(+Y,0),U,5)"

           DO ^DIC

           KILL DIC

 +3        IF Y=-1

               WRITE !,"BYE!! "

 +4        QUIT