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

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

initial load of FOIAVistA 6/30/08 version

File size: 780 bytes
Line 
1DGPTCO ;ALB/MJK - Census Output Options; 15 APR 90
2 ;;5.3;Registration;;Aug 13, 1993
3 ;
4 D DT^DICRW S X="DGPTCO",DIK="^DOPT("""_X_""","
5 G A:$D(^DOPT(X,7))
6 S ^DOPT(X,0)="Census Output Options^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(""DGPTCO"",",DIC(0)="IQEAM"
11 D ^DIC Q:Y<0 D @+Y G A
12 ;
131 ;;Census Status Report
14 G ^DGPTCO1
15 ;
162 ;;UnReleased Census Records
17 Q
18 ;
193 ;;Transmitted Census Records
20 S Y=2 D RTY^DGPTUTL,^DGPTOTRL
21 K DGRTY,DGRTY0 Q
22 ;
234 ;;Record Inquiry
24 D CEN^DGPTFMO1 K DG1,DGADM,DGCI,DGCN,DGCST,DGPTFMT,DGX Q
25 ;
265 ;;Comprehensive Census Report
27 Q
28 ;
296 ;;Census Productivity Report
30 S Y=2 D RTY^DGPTUTL D 2^DGPTFOU
31 Q
32 ;
337 ;;Listing of Census Records Completed
34 S Y=2 D RTY^DGPTUTL D 1^DGPTFOU
35 K DGSTAT Q
Note: See TracBrowser for help on using the repository browser.