ACDCSCS.m

ACDCSCS ;IHS/ADC/EDE/KML - ADD/EDIT COPY SETS;

 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 ;

START ;

 ;//[ACD CS COPY SET ADD/EDIT]

 S ACDQ=1

 W @IOF,"Signon Program is            : ",$P(^DIC(4,DUZ(2),0),U)

 W !,"Adding/editing CS copy sets for auto cs duplication",!

 ;

 S DIE="^ACDF5PI(",DA=DUZ(2),DR="[ACD CS COPY SET ADD/EDIT]",DIE("NO^")="BACK"

 D ^DIE

 I $D(ACDCSCS) S ACDQ=0

 D K

 Q

 ;

K ;

 D ^XBFMK

 Q

ACDCSCS   ;IHS/ADC/EDE/KML - ADD/EDIT COPY SETS;

 +1       ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 +2       ;

START     ;

 +1       ;//[ACD CS COPY SET ADD/EDIT]

 +2        SET ACDQ=1

 +3        WRITE @IOF,"Signon Program is            : ",$PIECE(^DIC(4,DUZ(2),0),U)

 +4        WRITE !,"Adding/editing CS copy sets for auto cs duplication",!

 +5       ;

 +6        SET DIE="^ACDF5PI("

           SET DA=DUZ(2)

           SET DR="[ACD CS COPY SET ADD/EDIT]"

           SET DIE("NO^")="BACK"

 +7        DO ^DIE

 +8        IF $DATA(ACDCSCS)

               SET ACDQ=0

 +9        DO K

 +10       QUIT 

 +11      ;

K         ;

 +1        DO ^XBFMK

 +2        QUIT