| [613] | 1 | QAPRELS ;557/THM-CHANGE A SURVEY STATUS [ 05/25/95 9:02 AM ]
|
|---|
| 2 | ;;2.0;Survey Generator;;Jun 20, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | D SCREEN^QAPUTIL
|
|---|
| 5 | EN W @IOF,! S QAPHDR="Release/Disable a Survey for Participation" X QAPBAR W !?49,BLDON,"Type RETURN or '^' to exit",BLDOFF,!!
|
|---|
| 6 | K DIC,DIE,DR S DIC="^QA(748,",DIC(0)="AEQMZ",DIC("A")="Select a survey: " D ^DIC G:X=""!(X[U) EXIT S DA=+Y
|
|---|
| 7 | S LASTDATE=$P(Y(0),U,3)
|
|---|
| 8 | I LASTDATE]"",DT>LASTDATE W !!,*7,"The LAST DATE FOR USAGE is earlier than today's date.",!,"You must change it to a future date before you may release",!,"this survey.",!!,"Press RETURN " R ANS:DTIME G:'$T EXIT G EN
|
|---|
| 9 | S X=$P(^QA(748,DA,0),U,4),CURSTAT=$S(X="r":"READY FOR USE",X="e":"ACTIVE LIFE EXPIRED",1:"UNDER DEVELOPMENT/MAINTENANCE")
|
|---|
| 10 | W !!,"Current status is ",CURSTAT,!! S QLINE=$Y
|
|---|
| 11 | K DIR S DIR(0)="S^r:Ready for use;d:Under development/maintenance;e:Active life expired" D ^DIR G:$D(DTOUT) EXIT I $D(DIRUT) G EN
|
|---|
| 12 | I Y="r" D ^QAPCHKST I '$D(X)#2 G EN
|
|---|
| 13 | S X=Y,DIE=DIC,DIC(0)="M",DR=".05///"_X
|
|---|
| 14 | D ^DIE
|
|---|
| 15 | G EN
|
|---|
| 16 | ;
|
|---|
| 17 | EXIT G EXIT^QAPUTIL
|
|---|
