| 1 | QAOEDT0M ;HISC/DAD-MANAGEMENT REVIEW LEVEL EDIT ;2/3/93 15:58
|
|---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
|---|
| 3 | REVLEV S QAOSQUIT=0,QAOSREVR(0)=+^QA(741,QAOSD0,"REVR",QAOSD1,0)
|
|---|
| 4 | K DR S DIE="^QA(741,"_QAOSD0_",""REVR"",",DR=".01"
|
|---|
| 5 | S (D0,DA(1))=QAOSD0,(D1,DA)=QAOSD1 D ^DIE G:('$D(DA))!($D(Y)) EXIT
|
|---|
| 6 | S QAOSREVR(1)=+^QA(741,QAOSD0,"REVR",QAOSD1,0)
|
|---|
| 7 | I QAOSREVR(0)'=QAOSREVR(1) D RESET^QAOEDT0 G REVLEV
|
|---|
| 8 | K DR S DIE="^QA(741,"_QAOSD0_",""REVR"",",DR=".02T;.03"
|
|---|
| 9 | S (D0,DA(1))=QAOSD0,(D1,DA)=QAOSD1 D ^DIE G:$D(Y) EXIT
|
|---|
| 10 | ACTION ;
|
|---|
| 11 | S:$D(^QA(741,QAOSD0,"REVR",QAOSD1,2,0))[0 ^(0)="^741.15PA^^"
|
|---|
| 12 | K DR S DIE="^QA(741,"_QAOSD0_",""REVR"","
|
|---|
| 13 | S DR="5"_$S(QAOSQUIT:"//^S X=1",1:""),(D0,DA(1))=QAOSD0,(D1,DA)=QAOSD1
|
|---|
| 14 | D ^DIE G:$D(Y) EXIT
|
|---|
| 15 | D CHKACT^QAOEDT0
|
|---|
| 16 | K DR S DIE="^QA(741,"_QAOSD0_",""REVR"",",DR="10;1"
|
|---|
| 17 | S (D0,DA(1))=QAOSD0,(D1,DA)=QAOSD1 D ^DIE G:$D(Y) EXIT
|
|---|
| 18 | EXIT ;
|
|---|
| 19 | Q
|
|---|
