DGTEMP.m

DGTEMP ;ALB/MRL - ADT TEMPLATE SELECTION ; 11 MAY 87

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

1 I '$D(^DG(43.7,"AI",+X)) S C=1 G END

 S X1=$O(^DG(43.7,"AI",+X,0)) I '$D(^DG(43.7,+X1,0)) S C=1 G END

 S DGD=^DG(43.7,+X1,0),DGTMP=$P(DGD,"^",4) I "^E^S^P^"'[("^"_DGTMP_"^") S C=2 G END

 S DGTMP1=$P(DGD,"^",$S(DGTMP="P":6,DGTMP="E":5,1:7)),DGG="^"_$S(DGTMP="P":"DIPT",DGTMP="E":"DIE",1:"DIBT")_"("_DGTMP1_",0)" I $D(@DGG) S X="["_$P(@DGG,"^",1)_"]" G Q

END S DGNO=1 W !!,*7,"Unable to run option..." I C=1 W "This option is not defined in the ADT TEMPLATE file!" G Q

 I C=2 W "Template Type not defined!" G Q

 W "Selected template doesn't exist in '",$S(DGTMP="P":"PRINT",DGTMP="E":"INPUT",1:"SORT"),"' TEMPLATE file!"

Q K DIE,C,DA,Y,DR,DGN,DGEDIT,DGG,DGD,DGSORT,DGTMP,DGTMP1,I,X1 Q

2 W !! S DGEDIT=1,DIC="^DG(43.7,",DIC(0)="AEQMZL",DIC("A")="Edit which TEMPLATE:  " D ^DIC K DIC G Q:Y'>0 S DGD=+Y

 S (DA,Y)=DGD,DIE=DIC,DR=".01;2:4;S Y=$S(X=""P"":6,X=""E"":5,1:7);5;S Y=8;6;S Y=8;7:8" D ^DIE K DR G 2

EDIT ;Enter Local Template Name

 W !! S DGEDIT=1,DIC="^DG(43.7,",DIC(0)="AEQMZ",DIC("A")="Select ADT TEMPLATE Option:  " D ^DIC K DIC("A") G Q:Y'>0 S DGD=+Y,DGN=^DG(43.7,+Y,0)

 W !,"[DISTRIBUTED '",$S($P(DGN,"^",4)="P":"PRINT",$P(DGN,"^",4)="E":"INPUT",1:"SORT"),"' TEMPLATE NAME IS '",$P(DGN,"^",8),"']"

 S (DA,Y)=DGD,DIE=DIC,DR=$S($P(DGN,"^",4)="P":6,$P(DGN,"^",4)="E":5,1:7)_";" D ^DIE K DR G EDIT

STAN ;Set Standard [distributed] Template name

 F I=0:0 S I=$O(^DG(43.7,I)) Q:'I  I $D(^(I,0)) S DGD=^(0),DGX=$P(DGD,"^",8),(DGEDIT,DGTEMPE)="" D S1

 K DA,X,Y,DIC,I,DGX,DGD,DR,DIE,DGTEMPE,DGEDIT Q

S1 I DGX']"" W !,"No '",DGX,"' template on file for '",$P(DGD,"^",1),"'." Q

 W !,"'",DGX,"' template filed for '",$P(DGD,"^",1),"'." S (DA,Y)=+I,DIE="^DG(43.7,",DIC(0)="E",DR=$S($P(DGD,"^",4)="P":6,$P(DGD,"^",4)="E":5,1:7)_"///^S X=DGX" D ^DIE Q

DGTEMP    ;ALB/MRL - ADT TEMPLATE SELECTION ; 11 MAY 87

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

1          IF '$DATA(^DG(43.7,"AI",+X))

               SET C=1

               GOTO END

 +1        SET X1=$ORDER(^DG(43.7,"AI",+X,0))

           IF '$DATA(^DG(43.7,+X1,0))

               SET C=1

               GOTO END

 +2        SET DGD=^DG(43.7,+X1,0)

           SET DGTMP=$PIECE(DGD,"^",4)

           IF "^E^S^P^"'[("^"_DGTMP_"^")

               SET C=2

               GOTO END

 +3        SET DGTMP1=$PIECE(DGD,"^",$SELECT(DGTMP="P":6,DGTMP="E":5,1:7))

           SET DGG="^"_$SELECT(DGTMP="P":"DIPT",DGTMP="E":"DIE",1:"DIBT")_"("_DGTMP1_",0)"

           IF $DATA(@DGG)

               SET X="["_$PIECE(@DGG,"^",1)_"]"

               GOTO Q

END        SET DGNO=1

           WRITE !!,*7,"Unable to run option..."

           IF C=1

               WRITE "This option is not defined in the ADT TEMPLATE file!"

               GOTO Q

 +1        IF C=2

               WRITE "Template Type not defined!"

               GOTO Q

 +2        WRITE "Selected template doesn't exist in '",$SELECT(DGTMP="P":"PRINT",DGTMP="E":"INPUT",1:"SORT"),"' TEMPLATE file!"

Q          KILL DIE,C,DA,Y,DR,DGN,DGEDIT,DGG,DGD,DGSORT,DGTMP,DGTMP1,I,X1

           QUIT 

2          WRITE !!

           SET DGEDIT=1

           SET DIC="^DG(43.7,"

           SET DIC(0)="AEQMZL"

           SET DIC("A")="Edit which TEMPLATE:  "

           DO ^DIC

           KILL DIC

           IF Y'>0

               GOTO Q

           SET DGD=+Y

 +1        SET (DA,Y)=DGD

           SET DIE=DIC

           SET DR=".01;2:4;S Y=$S(X=""P"":6,X=""E"":5,1:7);5;S Y=8;6;S Y=8;7:8"

           DO ^DIE

           KILL DR

           GOTO 2

EDIT      ;Enter Local Template Name

 +1        WRITE !!

           SET DGEDIT=1

           SET DIC="^DG(43.7,"

           SET DIC(0)="AEQMZ"

           SET DIC("A")="Select ADT TEMPLATE Option:  "

           DO ^DIC

           KILL DIC("A")

           IF Y'>0

               GOTO Q

           SET DGD=+Y

           SET DGN=^DG(43.7,+Y,0)

 +2        WRITE !,"[DISTRIBUTED '",$SELECT($PIECE(DGN,"^",4)="P":"PRINT",$PIECE(DGN,"^",4)="E":"INPUT",1:"SORT"),"' TEMPLATE NAME IS '",$PIECE(DGN,"^",8),"']"

 +3        SET (DA,Y)=DGD

           SET DIE=DIC

           SET DR=$SELECT($PIECE(DGN,"^",4)="P":6,$PIECE(DGN,"^",4)="E":5,1:7)_";"

           DO ^DIE

           KILL DR

           GOTO EDIT

STAN      ;Set Standard [distributed] Template name

 +1        FOR I=0:0

               SET I=$ORDER(^DG(43.7,I))

               IF 'I

                   QUIT 

               IF $DATA(^(I,0))

                   SET DGD=^(0)

                   SET DGX=$PIECE(DGD,"^",8)

                   SET (DGEDIT,DGTEMPE)=""

                   DO S1

 +2        KILL DA,X,Y,DIC,I,DGX,DGD,DR,DIE,DGTEMPE,DGEDIT

           QUIT 

S1         IF DGX']""

               WRITE !,"No '",DGX,"' template on file for '",$PIECE(DGD,"^",1),"'."

               QUIT 

 +1        WRITE !,"'",DGX,"' template filed for '",$PIECE(DGD,"^",1),"'."

           SET (DA,Y)=+I

           SET DIE="^DG(43.7,"

           SET DIC(0)="E"

           SET DR=$SELECT($PIECE(DGD,"^",4)="P":6,$PIECE(DGD,"^",4)="E":5,1:7)_"///^S X=DGX"

           DO ^DIE

           QUIT