- 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 Mar 13, 2025@21:04:09 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
