FBNHRCS3 ;ACAMPUS/dmk-RCS 10-0168 (18-3) ;1/14/98
;;3.5;FEE BASIS;**12**;JAN 30, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
; print out report with data in ^TMP($J,"FBTOT",
;
Q:'$O(^TMP($J,"FBTOT",0))
N I,J,FBOUT
S I=0
D HED
F S I=$O(^TMP($J,"FBTOT",I)) Q:'I!$G(FBOUT) D Q:$G(FBOUT)
. 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))
.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
.W !!
.I ($Y+23)>IOSL,$O(^TMP($J,"FBTOT",+$G(I))) W @IOF D HED
Q
;
FIELD ;fields to be printed
;; [1] THREE DIGIT STATION NUMBER
;; [2] NAME OF COMMUNITY NURSING HOME
;; [3] NAME OF CITY WHERE NURSING HOME IS LOCATED
;; [4] STATE CODE WHERE NURSING HOME IS LOCATED
;; [5] COUNTY WHERE NURSING HOME IS LOCATED
;; [6] NUMBER OF BEDS IN NURSING HOME (Skilled)
;; [7] NURSING HOME INSPECTED OR ACCREDITED
;; [8] PER DIEM RATE (High)
;; [9] PER DIEM RATE (Low)
;;[10] CERTIFIED FOR MEDICARE/MEDICAID
;;[11] NUMBER OF VETERANS IN HOME
;;[12] DATE OF LAST ASSESSMENT
Q
;
HED I $E(IOST,1,2)="C-" W @IOF
W !!,$$CJ^XLFSTR("COMMUNITY NURSING HOME 10-0168 (18-3) REPORT",80)
W !?20,"FROM DATE: ",$$DATX^FBAAUTL(FBBEG)," TO DATE: ",$$DATX^FBAAUTL(FBEND)
W !?16,">>> NOTE: FIELDS 7, 10, 12 are current data <<<"
W !,$$CJ^XLFSTR($$REPEAT^XLFSTR("=",46),80),!!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBNHRCS3 1468 printed Oct 16, 2024@18:00:04 Page 2
FBNHRCS3 ;ACAMPUS/dmk-RCS 10-0168 (18-3) ;1/14/98
+1 ;;3.5;FEE BASIS;**12**;JAN 30, 1995
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ; print out report with data in ^TMP($J,"FBTOT",
+4 ;
+5 if '$ORDER(^TMP($JOB,"FBTOT",0))
QUIT
+6 NEW I,J,FBOUT
+7 SET I=0
+8 DO HED
+9 FOR
SET I=$ORDER(^TMP($JOB,"FBTOT",I))
if 'I!$GET(FBOUT)
QUIT
Begin DoDot:1
+10 FOR J=1:1:12
WRITE !,$PIECE($TEXT(FIELD+J),";;",2),?55,$SELECT(J=12:$EXTRACT($PIECE(^(I),U,J),4,5)_$EXTRACT($PIECE(^(I),U,J),2,3),1:$PIECE(^(I),U,J))
+11 IF $EXTRACT(IOST,1,2)="C-"
SET DIR(0)="E"
DO ^DIR
KILL DIR
if 'Y!($DATA(DIRUT))
SET FBOUT=1
if $GET(FBOUT)
QUIT
if $ORDER(^TMP($JOB,"FBTOT",+$GET(I)))
DO HED
QUIT
+12 WRITE !!
+13 IF ($Y+23)>IOSL
IF $ORDER(^TMP($JOB,"FBTOT",+$GET(I)))
WRITE @IOF
DO HED
End DoDot:1
if $GET(FBOUT)
QUIT
+14 QUIT
+15 ;
FIELD ;fields to be printed
+1 ;; [1] THREE DIGIT STATION NUMBER
+2 ;; [2] NAME OF COMMUNITY NURSING HOME
+3 ;; [3] NAME OF CITY WHERE NURSING HOME IS LOCATED
+4 ;; [4] STATE CODE WHERE NURSING HOME IS LOCATED
+5 ;; [5] COUNTY WHERE NURSING HOME IS LOCATED
+6 ;; [6] NUMBER OF BEDS IN NURSING HOME (Skilled)
+7 ;; [7] NURSING HOME INSPECTED OR ACCREDITED
+8 ;; [8] PER DIEM RATE (High)
+9 ;; [9] PER DIEM RATE (Low)
+10 ;;[10] CERTIFIED FOR MEDICARE/MEDICAID
+11 ;;[11] NUMBER OF VETERANS IN HOME
+12 ;;[12] DATE OF LAST ASSESSMENT
+13 QUIT
+14 ;
HED IF $EXTRACT(IOST,1,2)="C-"
WRITE @IOF
+1 WRITE !!,$$CJ^XLFSTR("COMMUNITY NURSING HOME 10-0168 (18-3) REPORT",80)
+2 WRITE !?20,"FROM DATE: ",$$DATX^FBAAUTL(FBBEG)," TO DATE: ",$$DATX^FBAAUTL(FBEND)
+3 WRITE !?16,">>> NOTE: FIELDS 7, 10, 12 are current data <<<"
+4 WRITE !,$$CJ^XLFSTR($$REPEAT^XLFSTR("=",46),80),!!
+5 QUIT
