source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTOOL.m@ 1397

Last change on this file since 1397 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 644 bytes
Line 
1DGPTOOL ;ALB/MJK - PTF Tools; 15 APR 90
2 ;;5.3;Registration;;Aug 13, 1993
3EN ;
4 D DT^DICRW S X="DGPTOOL",DIK="^DOPT("""_X_""","
5 G A:$D(^DOPT(X,10))
6 S ^DOPT(X,0)="Special PTF Tool^1N^"
7 F I=1:1 S Y=$T(@I) Q:Y="" S ^DOPT(X,I,0)=$P(Y,";",3,99)
8 D IXALL^DIK
9 ;
10A W !! S DIC="^DOPT(""DGPTOOL"",",DIC(0)="IQEAM"
11 D ^DIC Q:Y<0 D @+Y G A
12 ;
131 ;;099 Transmission
14 D ^DGPTF099
15 Q
16 ;
172 ;;Free-Form 099
18 D ^DGPTF09X
19 Q
20 ;
213 ;;RPO Request
22 D ^DGPTRPO
23 Q
24 ;
254 ;;Special Transaction Print
26 D PRN^DGPTRPP
27 Q
28 ;
295 ;;Special Transaction Purge
30 D PUR^DGPTRPP
31 Q
32 ;
336 ;;PTF Validation
34 D EN^DGPTFVC
35 Q
36 ;
377 ;;PTF Expanded Category Listing
38 D EN^DGPTEXPR
39 Q
40 ;
Note: See TracBrowser for help on using the repository browser.