DGMTEVT ;ALB/RMO - Means Test Event Driver; 24 JAN 92
;;5.3;Registration;;Aug 13, 1993
;
;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMTEVT 1411 printed Dec 13, 2024@02:44:54 Page 2
DGMTEVT ;ALB/RMO - Means Test Event Driver; 24 JAN 92
+1 ;;5.3;Registration;;Aug 13, 1993
+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
