source: WorldVistAEHR/trunk/r/OCCURRENCE_SCREEN-QAO/QAOEDT0M.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 843 bytes
Line 
1QAOEDT0M ;HISC/DAD-MANAGEMENT REVIEW LEVEL EDIT ;2/3/93 15:58
2 ;;3.0;Occurrence Screen;;09/14/1993
3REVLEV 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
10ACTION ;
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
18EXIT ;
19 Q
Note: See TracBrowser for help on using the repository browser.