Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGPTCO

DGPTCO.m

Go to the documentation of this file.
  1. DGPTCO ;ALB/MJK - Census Output Options; 15 APR 90
  1. ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
  1. ;
  1. D DT^DICRW S X="DGPTCO",DIK="^DOPT("""_X_""","
  1. G A:$D(^DOPT(X,7))
  1. S ^DOPT(X,0)="Census Output Options^1N^"
  1. F I=1:1 S Y=$T(@I) Q:Y="" S ^DOPT(X,I,0)=$P(Y,";",3,99)
  1. D IXALL^DIK
  1. ;
  1. A W !! S DIC="^DOPT(""DGPTCO"",",DIC(0)="IQEAM"
  1. D ^DIC Q:Y<0 D @+Y G A
  1. ;
  1. 1 ;;Census Status Report
  1. G ^DGPTCO1
  1. ;
  1. 2 ;;UnReleased Census Records
  1. Q
  1. ;
  1. 3 ;;Transmitted Census Records
  1. S Y=2 D RTY^DGPTUTL,^DGPTOTRL
  1. K DGRTY,DGRTY0 Q
  1. ;
  1. 4 ;;Record Inquiry
  1. D CEN^DGPTFMO1 K DG1,DGADM,DGCI,DGCN,DGCST,DGPTFMT,DGX Q
  1. ;
  1. 5 ;;Comprehensive Census Report
  1. Q
  1. ;
  1. 6 ;;Census Productivity Report
  1. S Y=2 D RTY^DGPTUTL D 2^DGPTFOU
  1. Q
  1. ;
  1. 7 ;;Listing of Census Records Completed
  1. S Y=2 D RTY^DGPTUTL D 1^DGPTFOU
  1. K DGSTAT Q