source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBNHDEC.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1FBNHDEC ;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
6ADD S FBAT=$P(Z,"^",6) W !,FBPDT,?26,"Admission",?40,$P($T(ADDT+FBAT),";;",2) Q
7TRAN S FBAT=$P(Z,"^",7) W !,FBPDT,?26,"Transfer",?40,$P($T(TRANT+FBAT),";;",2) Q
8DIS S FBAT=$P(Z,"^",8) W !,FBPDT,?26,"Discharge",?40,$P($T(DIST+FBAT),";;",2) Q
9HED W @IOF,"Veteran: ",$P(^DPT(DFN,0),"^",1),?43,"SSN: ",$$SSN^FBAAUTL(DFN),!,?5,"Date/Time",?25,"Transaction",?42,"Type",!
10 Q
11ADDT ;;
12 ;;After Re-hospitalization > 15 Days
13 ;;Transfer from Other CNH
14 ;;From ASIH < 15 Days
15 ;;All Other
16TRANT ;;
17 ;;To Authorized Absence
18 ;;To Un-authorized Absence
19 ;;To ASIH
20 ;;From Authorized Absence
21 ;;From Un-authorized Absence
22 ;;From ASIH
23DIST ;;
24 ;;Regular
25 ;;Death
26 ;;Transfer to Other CNH
27 ;;ASIH
28 ;;Death While ASIH
29 ;;Regular - Private Pay
Note: See TracBrowser for help on using the repository browser.