- DGPTCO ;ALB/MJK - Census Output Options; 15 APR 90
- ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- ;
- D DT^DICRW S X="DGPTCO",DIK="^DOPT("""_X_""","
- G A:$D(^DOPT(X,7))
- S ^DOPT(X,0)="Census Output Options^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(""DGPTCO"",",DIC(0)="IQEAM"
- D ^DIC Q:Y<0 D @+Y G A
- ;
- 1 ;;Census Status Report
- G ^DGPTCO1
- ;
- 2 ;;UnReleased Census Records
- Q
- ;
- 3 ;;Transmitted Census Records
- S Y=2 D RTY^DGPTUTL,^DGPTOTRL
- K DGRTY,DGRTY0 Q
- ;
- 4 ;;Record Inquiry
- D CEN^DGPTFMO1 K DG1,DGADM,DGCI,DGCN,DGCST,DGPTFMT,DGX Q
- ;
- 5 ;;Comprehensive Census Report
- Q
- ;
- 6 ;;Census Productivity Report
- S Y=2 D RTY^DGPTUTL D 2^DGPTFOU
- Q
- ;
- 7 ;;Listing of Census Records Completed
- S Y=2 D RTY^DGPTUTL D 1^DGPTFOU
- K DGSTAT Q
- DGPTCO ;ALB/MJK - Census Output Options; 15 APR 90
- +1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
- +2 ;
- +3 DO DT^DICRW
- SET X="DGPTCO"
- SET DIK="^DOPT("""_X_""","
- +4 IF $DATA(^DOPT(X,7))
- GOTO A
- +5 SET ^DOPT(X,0)="Census Output Options^1N^"
- +6 FOR I=1:1
- SET Y=$TEXT(@I)
- IF Y=""
- QUIT
- SET ^DOPT(X,I,0)=$PIECE(Y,";",3,99)
- +7 DO IXALL^DIK
- +8 ;
- A WRITE !!
- SET DIC="^DOPT(""DGPTCO"","
- SET DIC(0)="IQEAM"
- +1 DO ^DIC
- IF Y<0
- QUIT
- DO @+Y
- GOTO A
- +2 ;
- 1 ;;Census Status Report
- +1 GOTO ^DGPTCO1
- +2 ;
- 2 ;;UnReleased Census Records
- +1 QUIT
- +2 ;
- 3 ;;Transmitted Census Records
- +1 SET Y=2
- DO RTY^DGPTUTL
- DO ^DGPTOTRL
- +2 KILL DGRTY,DGRTY0
- QUIT
- +3 ;
- 4 ;;Record Inquiry
- +1 DO CEN^DGPTFMO1
- KILL DG1,DGADM,DGCI,DGCN,DGCST,DGPTFMT,DGX
- QUIT
- +2 ;
- 5 ;;Comprehensive Census Report
- +1 QUIT
- +2 ;
- 6 ;;Census Productivity Report
- +1 SET Y=2
- DO RTY^DGPTUTL
- DO 2^DGPTFOU
- +2 QUIT
- +3 ;
- 7 ;;Listing of Census Records Completed
- +1 SET Y=2
- DO RTY^DGPTUTL
- DO 1^DGPTFOU
- +2 KILL DGSTAT
- QUIT