- 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 Feb 19, 2025@00:19:19 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 ;