| 1 | FBNHRCS3 ;ACAMPUS/dmk-RCS 10-0168 (18-3) ;1/14/98
|
|---|
| 2 | ;;3.5;FEE BASIS;**12**;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ; print out report with data in ^TMP($J,"FBTOT",
|
|---|
| 5 | ;
|
|---|
| 6 | Q:'$O(^TMP($J,"FBTOT",0))
|
|---|
| 7 | N I,J,FBOUT
|
|---|
| 8 | S I=0
|
|---|
| 9 | D HED
|
|---|
| 10 | F S I=$O(^TMP($J,"FBTOT",I)) Q:'I!$G(FBOUT) D Q:$G(FBOUT)
|
|---|
| 11 | . F J=1:1:12 W !,$P($T(FIELD+J),";;",2),?55,$S(J=12:$E($P(^(I),U,J),4,5)_$E($P(^(I),U,J),2,3),1:$P(^(I),U,J))
|
|---|
| 12 | .I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR S:'Y!($D(DIRUT)) FBOUT=1 Q:$G(FBOUT) D HED:$O(^TMP($J,"FBTOT",+$G(I))) Q
|
|---|
| 13 | .W !!
|
|---|
| 14 | .I ($Y+23)>IOSL,$O(^TMP($J,"FBTOT",+$G(I))) W @IOF D HED
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | FIELD ;fields to be printed
|
|---|
| 18 | ;; [1] THREE DIGIT STATION NUMBER
|
|---|
| 19 | ;; [2] NAME OF COMMUNITY NURSING HOME
|
|---|
| 20 | ;; [3] NAME OF CITY WHERE NURSING HOME IS LOCATED
|
|---|
| 21 | ;; [4] STATE CODE WHERE NURSING HOME IS LOCATED
|
|---|
| 22 | ;; [5] COUNTY WHERE NURSING HOME IS LOCATED
|
|---|
| 23 | ;; [6] NUMBER OF BEDS IN NURSING HOME (Skilled)
|
|---|
| 24 | ;; [7] NURSING HOME INSPECTED OR ACCREDITED
|
|---|
| 25 | ;; [8] PER DIEM RATE (High)
|
|---|
| 26 | ;; [9] PER DIEM RATE (Low)
|
|---|
| 27 | ;;[10] CERTIFIED FOR MEDICARE/MEDICAID
|
|---|
| 28 | ;;[11] NUMBER OF VETERANS IN HOME
|
|---|
| 29 | ;;[12] DATE OF LAST ASSESSMENT
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | HED I $E(IOST,1,2)="C-" W @IOF
|
|---|
| 33 | W !!,$$CJ^XLFSTR("COMMUNITY NURSING HOME 10-0168 (18-3) REPORT",80)
|
|---|
| 34 | W !?20,"FROM DATE: ",$$DATX^FBAAUTL(FBBEG)," TO DATE: ",$$DATX^FBAAUTL(FBEND)
|
|---|
| 35 | W !?16,">>> NOTE: FIELDS 7, 10, 12 are current data <<<"
|
|---|
| 36 | W !,$$CJ^XLFSTR($$REPEAT^XLFSTR("=",46),80),!!
|
|---|
| 37 | Q
|
|---|
