DGMTEVT.m

DGMTEVT ;ALB/RMO - Means Test Event Driver; 24 JAN 92

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;

 ;Invokes items on the means test event protocol menu

 ; Input  -- DFN      Patient IEN

 ;           DGMTACT  Means Test Action

 ;                     ADD=Add, EDT=Edit, COM=Complete, ADJ=Adjudicate

 ;                     DEL=Delete, CAT=Category change,

 ;                     STA=Status Change

 ;           DGMTI    Means Test IEN

 ;           DGMTINF  Means Test Interactive/Non-interactive flag

 ;                     0=Interactive

 ;                     1=Non-interactive

 ;           DGMTP    Annual Means Test 0th node PRIOR to

 ;                     Add, Edit or Delete

 ;           DGMTA    Annual Means Test 0th node AFTER

 ;                     Add, Edit or Delete

 ; Output -- None

 ;

EN K DTOUT,DIROUT

 S X=$O(^ORD(101,"B","DG MEANS TEST EVENTS",0))_";ORD(101," D EN1^XQOR:X K X

 Q

 ;

PRIOR ;Set DGMTP prior to Add, Edit or Delete

 ; Input  -- DGMTACT  Means Test Action

 ;           DGMTI    Means Test IEN

 ; Output -- DGMTP    Means Test 0th node prior to action

 S DGMTP=$S(DGMTACT'="ADD":$G(^DGMT(408.31,DGMTI,0)),1:"")

 Q

 ;

AFTER ;Set DGMTA after to Add, Edit or Delete

 ; Input  -- DGMTACT  Means Test Action

 ;           DGMTI    Means Test IEN

 ; Output -- DGMTA    Means Test 0th node after action

 S DGMTA=$S(DGMTACT'="DEL":$G(^DGMT(408.31,DGMTI,0)),1:"")

 Q

DGMTEVT   ;ALB/RMO - Means Test Event Driver; 24 JAN 92

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ;Invokes items on the means test event protocol menu

 +4       ; Input  -- DFN      Patient IEN

 +5       ;           DGMTACT  Means Test Action

 +6       ;                     ADD=Add, EDT=Edit, COM=Complete, ADJ=Adjudicate

 +7       ;                     DEL=Delete, CAT=Category change,

 +8       ;                     STA=Status Change

 +9       ;           DGMTI    Means Test IEN

 +10      ;           DGMTINF  Means Test Interactive/Non-interactive flag

 +11      ;                     0=Interactive

 +12      ;                     1=Non-interactive

 +13      ;           DGMTP    Annual Means Test 0th node PRIOR to

 +14      ;                     Add, Edit or Delete

 +15      ;           DGMTA    Annual Means Test 0th node AFTER

 +16      ;                     Add, Edit or Delete

 +17      ; Output -- None

 +18      ;

EN         KILL DTOUT,DIROUT

 +1        SET X=$ORDER(^ORD(101,"B","DG MEANS TEST EVENTS",0))_";ORD(101,"

           IF X

               DO EN1^XQOR

           KILL X

 +2        QUIT 

 +3       ;

PRIOR     ;Set DGMTP prior to Add, Edit or Delete

 +1       ; Input  -- DGMTACT  Means Test Action

 +2       ;           DGMTI    Means Test IEN

 +3       ; Output -- DGMTP    Means Test 0th node prior to action

 +4        SET DGMTP=$SELECT(DGMTACT'="ADD":$GET(^DGMT(408.31,DGMTI,0)),1:"")

 +5        QUIT 

 +6       ;

AFTER     ;Set DGMTA after to Add, Edit or Delete

 +1       ; Input  -- DGMTACT  Means Test Action

 +2       ;           DGMTI    Means Test IEN

 +3       ; Output -- DGMTA    Means Test 0th node after action

 +4        SET DGMTA=$SELECT(DGMTACT'="DEL":$GET(^DGMT(408.31,DGMTI,0)),1:"")

 +5        QUIT