DGPTOOL ;ALB/MJK - PTF Tools; 15 APR 90
;;5.3;Registration;;Aug 13, 1993
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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPTOOL 684 printed Sep 23, 2025@20:29:10 Page 2
DGPTOOL ;ALB/MJK - PTF Tools; 15 APR 90
+1 ;;5.3;Registration;;Aug 13, 1993
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 ;
