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 ---[H[J[2J[HDGPTCO 815 printed Oct 16, 2024@18:52:24 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
