source: FOIAVistA/trunk/r/FEE_BASIS-FB/FBNHPAMS.m@ 635

Last change on this file since 635 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 4.3 KB
Line 
1FBNHPAMS ;AISC/GRR-PRINT AMIS ; 21JUN90
2 ;;3.5;FEE BASIS;;JAN 30, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 S FBUL="",$P(FBUL,"-",40)="-",(FBDV,FBPG)=0
5 W:$E(IOST,1,2)["C-" @IOF D HDR I $D(FBER) W ?30,">>>NOTICE<<<",!?5,">>>Incomplete patient movements affect the AMIS totals below<<<",!,?24,">>>Refer to last page for details<<<",!
6 W "G A I N S",!,$E(FBUL,1,9)
7 W !,?4,"ADMISSIONS"
8 W !!,?10,"01 AFTER REHOSP > 15 DAYS",?40,$J(FBG(1),5) D DV Q:$G(FBOUT) W !,?10,"02 ALL OTHER",?40,$J(FBG(2),5) D DV Q:$G(FBOUT)
9 W !!,?4,"TRANSFERS IN"
10 W !!,?10,"03 FROM OTHER CNH",?40,$J(FBG(3),5) D DV Q:$G(FBOUT) W !,?10,"04 FROM ASIH",?40,$J(FBG(4),5) D DV Q:$G(FBOUT)
11 D PGCK(9) Q:$G(FBOUT) W !!,"L O S S E S",!,$E(FBUL,1,11)
12 D PGCK(6) Q:$G(FBOUT) W !?4,"DISCHARGES & DEATHS",!!,?10,"05 DISCHARGES",?40,$J(FBL(1),5) D DV Q:$G(FBOUT) W !,?10,"06 DEATHS",?40,$J(FBL(2),5) D DV Q:$G(FBOUT)
13 D PGCK(7) Q:$G(FBOUT) W !!?4,"TRANSFERS OUT",!!,?10,"07 TO OTHER CNH",?40,$J(FBL(3),5) D DV Q:$G(FBOUT) W !,?10,"08 TO ASIH",?40,$J(FBL(4),5) D DV Q:$G(FBOUT)
14 D PGCK(8) Q:$G(FBOUT) W !!,"R E M A I N I N G",!,$E(FBUL,1,17),!
15 F I=1:1:3 W !,?10,$P($T(PR+I),";;",2),?40,$J(FBR(I),5) D DV Q:$G(FBOUT)
16 Q:$G(FBOUT)
17 W !,?10,"12 FEMALE BED OCCUPANTS",?40,$J(FBFEM,5) D DV Q:$G(FBOUT)
18 D PGCK(8) Q:$G(FBOUT) W !!,"L O S S E S F R O M A S I H",!,$E(FBUL,1,33)
19 W !!,?10,"13 DISCHARGES",?40,$J(FBASDIS,5) D DV Q:$G(FBOUT) W !,?10,"14 DEATHS",?40,$J(FBASDEAD,5) D DV Q:$G(FBOUT)
20 D PGCK(8) Q:$G(FBOUT) W !!,"M I S C T O T A L S",!,$E(FBUL,1,22),!!,?10,"15 PATIENT DAYS OF CARE",?40,$J(TOTDAYS,5) D DV Q:$G(FBOUT) W !,?10,"16 SC PLACEMENTS",?40,$J(FBSC,5) D DV Q:$G(FBOUT)
21 D PGCK(12) Q:$G(FBOUT) W !!,"AMIS BALANCING SEGMENT",!,$E(FBUL,1,22),!!?5,"PRIOR MONTH FIELDS 09 AND 10",?60,$J(FBPRIOR,6),!?5,"+ CURRENT MONTH FIELDS 01, 02, 03 AND 04",?60,$J("+"_(FBG(1)+FBG(2)+FBG(3)+FBG(4)),6)
22 W !?5,"- CURRENT MONTH FIELDS 05, 06, 07 AND 08",?60,$J("-"_(FBL(1)+FBL(2)+FBL(3)+FBL(4)),6),!?60,"------"
23 W !?5,"= CURRENT MONTH FIELDS 09 AND 10",?45,$J((FBR(1)+FBR(2)),5)," <======>" S FBCHK=FBPRIOR+FBG(1)+FBG(2)+FBG(3)+FBG(4)-FBL(1)-FBL(2)-FBL(3)-FBL(4) W ?60,$J(FBCHK,6)
24 W !,"**",$S(FBCHK=(FBR(1)+FBR(2)):"BALANCING SEGMENT OK",1:"PROBLEM FOUND IN BALANCING (see last page for details)")
25 I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR Q:'Y
26 D:$D(FBER) DISCR^FBNHAMIS
27BAL I FBCHK'=(FBR(1)+FBR(2)),('$G(FBMOV)) D
28 .I '$D(FBER) W @IOF D HDR^FBNHPAMS
29 .W ! F I=1:1:22 D PGCK(3) Q:$G(FBOUT) W !,$P($T(TEXT+I),";;",2)
30 Q
31HDR S FBPG=FBPG+1 I FBPG>1 W "Page ",FBPG
32 D PRPRDT^FBAAUTL2 W !,?15,"COMMUNITY NURSING HOME CARE ACTIVITY - AMIS 349",!,?21,$$DATX^FBAAUTL(+FBMONTH)," THRU ",$$DATX^FBAAUTL($P(FBMONTH,"^",2)),!!
33 Q
34DV ;
35 I $G(FBVAL) D
36 .S FBIFN=0,FBDV=FBDV+1
37 .F S FBIFN=$O(^TMP($J,"FBAMIS",FBDV,FBIFN)) Q:'FBIFN D Q:$G(FBOUT)
38 ..D PGCK(3) Q:$G(FBOUT)
39 ..I (FBDV>8&(FBDV<13))!(FBDV=15) W !,?17,$$NAME^FBCHREQ2($P($G(^FB7078(FBIFN,0)),"^",3))
40 ..I (FBDV<9)!(FBDV=13)!(FBDV=14)!(FBDV=16) W !,?17,$$NAME^FBCHREQ2($P($G(^FBAACNH(FBIFN,0)),"^",2)),?50,$$DATX^FBAAUTL(+$G(^FBAACNH(FBIFN,0)))
41 ..I FBDV=15 W ?47,+^TMP($J,"FBAMIS",FBDV,FBIFN)
42 Q:$G(FBOUT)
43 D PGCK(3)
44 Q
45PGCK(X) ;
46 I '$G(X) S X=1
47 I ($Y+X)>IOSL D
48 .I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR I 'Y S FBOUT=1 Q
49 .W @IOF D HDR
50 Q
51PR ;;
52 ;;09 BED OCCUPANTS
53 ;;10 ABSENT BED OCCUPANTS
54 ;;11 ABSENT SICK IN HOSP.
55 Q
56TEXT ;;
57 ;; Fixing AMIS BALANCING SEGMENT problems:
58 ;;
59 ;; 1) Obtain a listing of all patients in a CNH during the month.
60 ;; Use either the Estimate Funds for Obligation option for the
61 ;; month or the CNH Census Report for each day of the month.
62 ;; 2) Verify all movements agree with those that preceed them
63 ;; by running the Display Episode of Care option for each patient.
64 ;; ***Transfers TO ASIH must be followed by one of the movement
65 ;; types listed below. Any other movement types followed
66 ;; by the types listed below will result in Segment Balancing
67 ;; problems.
68 ;; a) a transfer type of From ASIH < 15 days
69 ;; b) a discharge type of ASIH
70 ;; c) a discharge type of Death while ASIH
71 ;;
72 ;; 3) Use the Movement menu to edit the movement types for those found
73 ;; to be inappropriate.
74 ;; 4) Re-run the AMIS 349 once the movements have been updated.
Note: See TracBrowser for help on using the repository browser.