| [613] | 1 | DGPTCO2 ;ALB/MJK - Census Status Report ; 15 APR 90
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | DIV ; -- ask for div to print
|
|---|
| 5 | K DGCHOICE("DIV")
|
|---|
| 6 | I $D(^DG(43,1,"GL")),'$P(^("GL"),U,2) S DGCHOICE("DIV")=1 G DIVQ
|
|---|
| 7 | S DIC="^DG(40.8,",VAUTNI=2,VAUTSTR="division",VAUTVB="DGCHOICE(""DIV"")"
|
|---|
| 8 | D FIRST^VAUTOMA,CHK:Y=-1
|
|---|
| 9 | DIVQ Q
|
|---|
| 10 | ;
|
|---|
| 11 | CHK ; -- ask how far to ^ out
|
|---|
| 12 | I DGCHOICE("DIV")=0,'$O(DGCHOICE("DIV",0)) G CHK1
|
|---|
| 13 | ASK W !!,"Continue using your selection(s)" S %=2 D YN^DICN G CHKQ:%=1
|
|---|
| 14 | I '% W !?5,"Answer 'YES' to use selections you made or 'NO' to stop process." G ASK
|
|---|
| 15 | CHK1 K DGCHOICE("DIV")
|
|---|
| 16 | CHKQ Q
|
|---|
| 17 | ;
|
|---|
| 18 | STATUS ; -- ask for status to print
|
|---|
| 19 | K DGCHOICE("STATUS")
|
|---|
| 20 | S DIR(0)="SA^0:Open;1:Closed;2:Released;3:Transmitted;9:All",DIR("A")="Census Status: ",DIR("B")="All"
|
|---|
| 21 | S DIR("?",1)="Select one of the following:"
|
|---|
| 22 | S DIR("?",2)=" 0 - for only 'Open' records"
|
|---|
| 23 | S DIR("?",3)=" 1 - for only 'Closed' records"
|
|---|
| 24 | S DIR("?",4)=" 2 - for only 'Released' records"
|
|---|
| 25 | S DIR("?",5)=" 3 - for only 'Transmitted' records"
|
|---|
| 26 | S DIR("?")=" OR 9 - to select ALL statuses"
|
|---|
| 27 | W ! D ^DIR G STATUSQ:$D(DTOUT)!$D(DUOUT)
|
|---|
| 28 | S DGCHOICE("STATUS")=$P($P(DIR(0),Y_":",2),";")
|
|---|
| 29 | STATUSQ K DIR Q
|
|---|
| 30 | ;
|
|---|
