DGPTOOL.m

DGPTOOL ;ALB/MJK - PTF Tools; 15 APR 90

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

EN ;

 D DT^DICRW S X="DGPTOOL",DIK="^DOPT("""_X_""","

 G A:$D(^DOPT(X,10))

 S ^DOPT(X,0)="Special PTF Tool^1N^"

 F I=1:1 S Y=$T(@I) Q:Y=""  S ^DOPT(X,I,0)=$P(Y,";",3,99)

 D IXALL^DIK

 ;

A W !! S DIC="^DOPT(""DGPTOOL"",",DIC(0)="IQEAM"

 D ^DIC Q:Y<0  D @+Y G A

 ;

1 ;;099 Transmission

 D ^DGPTF099

 Q

 ;

2 ;;Free-Form 099

 D ^DGPTF09X

 Q

 ;

3 ;;RPO Request

 D ^DGPTRPO

 Q

 ;

4 ;;Special Transaction Print

 D PRN^DGPTRPP

 Q

 ;

5 ;;Special Transaction Purge

 D PUR^DGPTRPP

 Q

 ;

6 ;;PTF Validation

 D EN^DGPTFVC

 Q

 ;

7 ;;PTF Expanded Category Listing

 D EN^DGPTEXPR

 Q

 ;

DGPTOOL   ;ALB/MJK - PTF Tools; 15 APR 90

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

EN        ;

 +1        DO DT^DICRW

           SET X="DGPTOOL"

           SET DIK="^DOPT("""_X_""","

 +2        IF $DATA(^DOPT(X,10))

               GOTO A

 +3        SET ^DOPT(X,0)="Special PTF Tool^1N^"

 +4        FOR I=1:1

               SET Y=$TEXT(@I)

               IF Y=""

                   QUIT 

               SET ^DOPT(X,I,0)=$PIECE(Y,";",3,99)

 +5        DO IXALL^DIK

 +6       ;

A          WRITE !!

           SET DIC="^DOPT(""DGPTOOL"","

           SET DIC(0)="IQEAM"

 +1        DO ^DIC

           IF Y<0

               QUIT 

           DO @+Y

           GOTO A

 +2       ;

1         ;;099 Transmission

 +1        DO ^DGPTF099

 +2        QUIT 

 +3       ;

2         ;;Free-Form 099

 +1        DO ^DGPTF09X

 +2        QUIT 

 +3       ;

3         ;;RPO Request

 +1        DO ^DGPTRPO

 +2        QUIT 

 +3       ;

4         ;;Special Transaction Print

 +1        DO PRN^DGPTRPP

 +2        QUIT 

 +3       ;

5         ;;Special Transaction Purge

 +1        DO PUR^DGPTRPP

 +2        QUIT 

 +3       ;

6         ;;PTF Validation

 +1        DO EN^DGPTFVC

 +2        QUIT 

 +3       ;

7         ;;PTF Expanded Category Listing

 +1        DO EN^DGPTEXPR

 +2        QUIT 

 +3       ;