FBNHRCS3.m

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 ---FBNHRCS3   1468     printed  Apr 09, 2024@21:04:02                                                                                                                                                                                                    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