DGPTCO.m

DGPTCO ;ALB/MJK - Census Output Options; 15 APR 90

 ;;5.3;Registration;;Aug 13, 1993

 ;

 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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGPTCO   815     printed  Apr 09, 2024@21:49:44                                                                                                                                                                                                       Page 2

DGPTCO    ;ALB/MJK - Census Output Options; 15 APR 90

 +1       ;;5.3;Registration;;Aug 13, 1993

 +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