IBTRE0.m

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 ---IBTRE0   616     printed  Apr 09, 2024@21:26:55                                                                                                                                                                                                       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