Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FBNHDEC

FBNHDEC.m

Go to the documentation of this file.
  1. FBNHDEC ;AISC/GRR-DISPLAY EPISODE OF CARE ;25AUG88
  1. ;;3.5;FEE BASIS;;JAN 30, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. 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"
  1. K J,Z Q
  1. ADD S FBAT=$P(Z,"^",6) W !,FBPDT,?26,"Admission",?40,$P($T(ADDT+FBAT),";;",2) Q
  1. TRAN S FBAT=$P(Z,"^",7) W !,FBPDT,?26,"Transfer",?40,$P($T(TRANT+FBAT),";;",2) Q
  1. DIS S FBAT=$P(Z,"^",8) W !,FBPDT,?26,"Discharge",?40,$P($T(DIST+FBAT),";;",2) Q
  1. HED W @IOF,"Veteran: ",$P(^DPT(DFN,0),"^",1),?43,"SSN: ",$$SSN^FBAAUTL(DFN),!,?5,"Date/Time",?25,"Transaction",?42,"Type",!
  1. Q
  1. ADDT ;;
  1. ;;After Re-hospitalization > 15 Days
  1. ;;Transfer from Other CNH
  1. ;;From ASIH < 15 Days
  1. ;;All Other
  1. TRANT ;;
  1. ;;To Authorized Absence
  1. ;;To Un-authorized Absence
  1. ;;To ASIH
  1. ;;From Authorized Absence
  1. ;;From Un-authorized Absence
  1. ;;From ASIH
  1. DIST ;;
  1. ;;Regular
  1. ;;Death
  1. ;;Transfer to Other CNH
  1. ;;ASIH
  1. ;;Death While ASIH
  1. ;;Regular - Private Pay