| 1 | FBNHDEC ;AISC/GRR-DISPLAY EPISODE OF CARE ;25AUG88
|
|---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | D HED F J=0:0 S J=$O(^FBAACNH("AC",IFN,J)) Q:J'>0 I $D(^FBAACNH(J,0)) S Z=^(0) D:$Y>(IOSL+4) HED S Y=$P(Z,"^",1),FBAAAD=Y,FBTYPE=$P(Z,"^",3) D PDATE^FBAAUTL D ADD:FBTYPE="A",TRAN:FBTYPE="T",DIS:FBTYPE="D"
|
|---|
| 5 | K J,Z Q
|
|---|
| 6 | ADD S FBAT=$P(Z,"^",6) W !,FBPDT,?26,"Admission",?40,$P($T(ADDT+FBAT),";;",2) Q
|
|---|
| 7 | TRAN S FBAT=$P(Z,"^",7) W !,FBPDT,?26,"Transfer",?40,$P($T(TRANT+FBAT),";;",2) Q
|
|---|
| 8 | DIS S FBAT=$P(Z,"^",8) W !,FBPDT,?26,"Discharge",?40,$P($T(DIST+FBAT),";;",2) Q
|
|---|
| 9 | HED W @IOF,"Veteran: ",$P(^DPT(DFN,0),"^",1),?43,"SSN: ",$$SSN^FBAAUTL(DFN),!,?5,"Date/Time",?25,"Transaction",?42,"Type",!
|
|---|
| 10 | Q
|
|---|
| 11 | ADDT ;;
|
|---|
| 12 | ;;After Re-hospitalization > 15 Days
|
|---|
| 13 | ;;Transfer from Other CNH
|
|---|
| 14 | ;;From ASIH < 15 Days
|
|---|
| 15 | ;;All Other
|
|---|
| 16 | TRANT ;;
|
|---|
| 17 | ;;To Authorized Absence
|
|---|
| 18 | ;;To Un-authorized Absence
|
|---|
| 19 | ;;To ASIH
|
|---|
| 20 | ;;From Authorized Absence
|
|---|
| 21 | ;;From Un-authorized Absence
|
|---|
| 22 | ;;From ASIH
|
|---|
| 23 | DIST ;;
|
|---|
| 24 | ;;Regular
|
|---|
| 25 | ;;Death
|
|---|
| 26 | ;;Transfer to Other CNH
|
|---|
| 27 | ;;ASIH
|
|---|
| 28 | ;;Death While ASIH
|
|---|
| 29 | ;;Regular - Private Pay
|
|---|
