Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
599 bytes
|
Line | |
---|
1 | IBTRE0 ;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 | ;
|
---|
7 | ADT(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
|
---|
17 | ADTQ Q X
|
---|
Note:
See
TracBrowser
for help on using the repository browser.