|
Last change
on this file since 949 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.
