Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
599 bytes
|
Rev | Line | |
---|
[613] | 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.