IBTRE0 ;ALB/AAS - CLAIMS TRACKING - COMPUTE DEFAULTS, TRIGGERS ; 27-JUN-93
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
% G EN^IBTRE
;
ADT(IBTRN) ; -- compute default admission type
; -- called from trigger from event type field
; returns default in internal 1 = scheduled, 2 = urgent
;
N X,Y,IBX
S X=""
S IBX=$G(^IBE(356.6,+$P(^IBT(356,IBTRN,0),"^",18),0))
I $P(IBX,"^",3)>1 G ADTQ
I $P(IBX,"^")["SCHEDULED" S X=1 G ADTQ ;default = scheduled
I $P(IBX,"^")["INPATIENT" S X=2 G ADTQ ;default = urgent
ADTQ Q X
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBTRE0 616 printed Dec 13, 2024@02:27:46 Page 2
IBTRE0 ;ALB/AAS - CLAIMS TRACKING - COMPUTE DEFAULTS, TRIGGERS ; 27-JUN-93
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
% GOTO EN^IBTRE
+1 ;
ADT(IBTRN) ; -- compute default admission type
+1 ; -- called from trigger from event type field
+2 ; returns default in internal 1 = scheduled, 2 = urgent
+3 ;
+4 NEW X,Y,IBX
+5 SET X=""
+6 SET IBX=$GET(^IBE(356.6,+$PIECE(^IBT(356,IBTRN,0),"^",18),0))
+7 IF $PIECE(IBX,"^",3)>1
GOTO ADTQ
+8 ;default = scheduled
IF $PIECE(IBX,"^")["SCHEDULED"
SET X=1
GOTO ADTQ
+9 ;default = urgent
IF $PIECE(IBX,"^")["INPATIENT"
SET X=2
GOTO ADTQ
ADTQ QUIT X
