- 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 Jan 18, 2025@03:28:57 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