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

IBTRE0.m

Go to the documentation of this file.
  1. IBTRE0 ;ALB/AAS - CLAIMS TRACKING - COMPUTE DEFAULTS, TRIGGERS ; 27-JUN-93
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. % G EN^IBTRE
  1. ;
  1. ADT(IBTRN) ; -- compute default admission type
  1. ; -- called from trigger from event type field
  1. ; returns default in internal 1 = scheduled, 2 = urgent
  1. ;
  1. N X,Y,IBX
  1. S X=""
  1. S IBX=$G(^IBE(356.6,+$P(^IBT(356,IBTRN,0),"^",18),0))
  1. I $P(IBX,"^",3)>1 G ADTQ
  1. I $P(IBX,"^")["SCHEDULED" S X=1 G ADTQ ;default = scheduled
  1. I $P(IBX,"^")["INPATIENT" S X=2 G ADTQ ;default = urgent
  1. ADTQ Q X