- 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 Jan 18, 2025@03:45:35 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