Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGMTEVT

DGMTEVT.m

Go to the documentation of this file.
  1. DGMTEVT ;ALB/RMO - Means Test Event Driver; 24 JAN 92
  1. ;;5.3;Registration;;Aug 13, 1993
  1. ;
  1. ;Invokes items on the means test event protocol menu
  1. ; Input -- DFN Patient IEN
  1. ; DGMTACT Means Test Action
  1. ; ADD=Add, EDT=Edit, COM=Complete, ADJ=Adjudicate
  1. ; DEL=Delete, CAT=Category change,
  1. ; STA=Status Change
  1. ; DGMTI Means Test IEN
  1. ; DGMTINF Means Test Interactive/Non-interactive flag
  1. ; 0=Interactive
  1. ; 1=Non-interactive
  1. ; DGMTP Annual Means Test 0th node PRIOR to
  1. ; Add, Edit or Delete
  1. ; DGMTA Annual Means Test 0th node AFTER
  1. ; Add, Edit or Delete
  1. ; Output -- None
  1. ;
  1. EN K DTOUT,DIROUT
  1. S X=$O(^ORD(101,"B","DG MEANS TEST EVENTS",0))_";ORD(101," D EN1^XQOR:X K X
  1. Q
  1. ;
  1. PRIOR ;Set DGMTP prior to Add, Edit or Delete
  1. ; Input -- DGMTACT Means Test Action
  1. ; DGMTI Means Test IEN
  1. ; Output -- DGMTP Means Test 0th node prior to action
  1. S DGMTP=$S(DGMTACT'="ADD":$G(^DGMT(408.31,DGMTI,0)),1:"")
  1. Q
  1. ;
  1. AFTER ;Set DGMTA after to Add, Edit or Delete
  1. ; Input -- DGMTACT Means Test Action
  1. ; DGMTI Means Test IEN
  1. ; Output -- DGMTA Means Test 0th node after action
  1. S DGMTA=$S(DGMTACT'="DEL":$G(^DGMT(408.31,DGMTI,0)),1:"")
  1. Q