| 1 | DGMTEVT ;ALB/RMO - Means Test Event Driver; 24 JAN 92
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;Invokes items on the means test event protocol menu
|
|---|
| 5 | ; Input -- DFN Patient IEN
|
|---|
| 6 | ; DGMTACT Means Test Action
|
|---|
| 7 | ; ADD=Add, EDT=Edit, COM=Complete, ADJ=Adjudicate
|
|---|
| 8 | ; DEL=Delete, CAT=Category change,
|
|---|
| 9 | ; STA=Status Change
|
|---|
| 10 | ; DGMTI Means Test IEN
|
|---|
| 11 | ; DGMTINF Means Test Interactive/Non-interactive flag
|
|---|
| 12 | ; 0=Interactive
|
|---|
| 13 | ; 1=Non-interactive
|
|---|
| 14 | ; DGMTP Annual Means Test 0th node PRIOR to
|
|---|
| 15 | ; Add, Edit or Delete
|
|---|
| 16 | ; DGMTA Annual Means Test 0th node AFTER
|
|---|
| 17 | ; Add, Edit or Delete
|
|---|
| 18 | ; Output -- None
|
|---|
| 19 | ;
|
|---|
| 20 | EN K DTOUT,DIROUT
|
|---|
| 21 | S X=$O(^ORD(101,"B","DG MEANS TEST EVENTS",0))_";ORD(101," D EN1^XQOR:X K X
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | PRIOR ;Set DGMTP prior to Add, Edit or Delete
|
|---|
| 25 | ; Input -- DGMTACT Means Test Action
|
|---|
| 26 | ; DGMTI Means Test IEN
|
|---|
| 27 | ; Output -- DGMTP Means Test 0th node prior to action
|
|---|
| 28 | S DGMTP=$S(DGMTACT'="ADD":$G(^DGMT(408.31,DGMTI,0)),1:"")
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | AFTER ;Set DGMTA after to Add, Edit or Delete
|
|---|
| 32 | ; Input -- DGMTACT Means Test Action
|
|---|
| 33 | ; DGMTI Means Test IEN
|
|---|
| 34 | ; Output -- DGMTA Means Test 0th node after action
|
|---|
| 35 | S DGMTA=$S(DGMTACT'="DEL":$G(^DGMT(408.31,DGMTI,0)),1:"")
|
|---|
| 36 | Q
|
|---|
