source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBTRE0.m@ 1470

Last change on this file since 1470 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 599 bytes
Line 
1IBTRE0 ;ALB/AAS - CLAIMS TRACKING - COMPUTE DEFAULTS, TRIGGERS ; 27-JUN-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5% G EN^IBTRE
6 ;
7ADT(IBTRN) ; -- compute default admission type
8 ; -- called from trigger from event type field
9 ; returns default in internal 1 = scheduled, 2 = urgent
10 ;
11 N X,Y,IBX
12 S X=""
13 S IBX=$G(^IBE(356.6,+$P(^IBT(356,IBTRN,0),"^",18),0))
14 I $P(IBX,"^",3)>1 G ADTQ
15 I $P(IBX,"^")["SCHEDULED" S X=1 G ADTQ ;default = scheduled
16 I $P(IBX,"^")["INPATIENT" S X=2 G ADTQ ;default = urgent
17ADTQ Q X
Note: See TracBrowser for help on using the repository browser.