Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: FBNHPAMS

Package: Fee Basis

Routine: FBNHPAMS


Information

FBNHPAMS ;AISC/GRR-PRINT AMIS ; 21JUN90

Source Information

Source file <FBNHPAMS.m>

Entry Points

Name Comments DBIA/ICR reference
BAL
HDR
DV ;
PGCK(X) ;
PR ;;
TEXT ;;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)["C-"
  • Line Location: FBNHPAMS+4
Function Call: WRITE
  • Prompt: ?30,">>>NOTICE<<<",!?5,">>>Incomplete patient movements affect the AMIS totals below<<<",!,?24,">>>Refer to last page for details<<<",!
  • Line Location: FBNHPAMS+4
Function Call: WRITE
  • Prompt: "G A I N S",!,$E(FBUL,1,9)
  • Line Location: FBNHPAMS+5
Function Call: WRITE
  • Prompt: !,?4,"ADMISSIONS"
  • Line Location: FBNHPAMS+6
Function Call: WRITE
  • Prompt: !!,?10,"01 AFTER REHOSP > 15 DAYS",?40,$J(FBG(1),5)
  • Line Location: FBNHPAMS+7
Function Call: WRITE
  • Prompt: !,?10,"02 ALL OTHER",?40,$J(FBG(2),5)
  • Line Location: FBNHPAMS+7
Function Call: WRITE
  • Prompt: !!,?4,"TRANSFERS IN"
  • Line Location: FBNHPAMS+8
Function Call: WRITE
  • Prompt: !!,?10,"03 FROM OTHER CNH",?40,$J(FBG(3),5)
  • Line Location: FBNHPAMS+9
Function Call: WRITE
  • Prompt: !,?10,"04 FROM ASIH",?40,$J(FBG(4),5)
  • Line Location: FBNHPAMS+9
Function Call: WRITE
  • Prompt: !!,"L O S S E S",!,$E(FBUL,1,11)
  • Line Location: FBNHPAMS+10
Function Call: WRITE
  • Prompt: !?4,"DISCHARGES & DEATHS",!!,?10,"05 DISCHARGES",?40,$J(FBL(1),5)
  • Line Location: FBNHPAMS+11
Function Call: WRITE
  • Prompt: !,?10,"06 DEATHS",?40,$J(FBL(2),5)
  • Line Location: FBNHPAMS+11
Function Call: WRITE
  • Prompt: !!?4,"TRANSFERS OUT",!!,?10,"07 TO OTHER CNH",?40,$J(FBL(3),5)
  • Line Location: FBNHPAMS+12
Function Call: WRITE
  • Prompt: !,?10,"08 TO ASIH",?40,$J(FBL(4),5)
  • Line Location: FBNHPAMS+12
Function Call: WRITE
  • Prompt: !!,"R E M A I N I N G",!,$E(FBUL,1,17),!
  • Line Location: FBNHPAMS+13
Function Call: WRITE
  • Prompt: !,?10,$P($T(PR+I),";;",2),?40,$J(FBR(I),5)
  • Line Location: FBNHPAMS+14
Function Call: WRITE
  • Prompt: !,?10,"12 FEMALE BED OCCUPANTS",?40,$J(FBFEM,5)
  • Line Location: FBNHPAMS+16
Function Call: WRITE
  • Prompt: !!,"L O S S E S F R O M A S I H",!,$E(FBUL,1,33)
  • Line Location: FBNHPAMS+17
Function Call: WRITE
  • Prompt: !!,?10,"13 DISCHARGES",?40,$J(FBASDIS,5)
  • Line Location: FBNHPAMS+18
Function Call: WRITE
  • Prompt: !,?10,"14 DEATHS",?40,$J(FBASDEAD,5)
  • Line Location: FBNHPAMS+18
Function Call: WRITE
  • Prompt: !!,"M I S C T O T A L S",!,$E(FBUL,1,22),!!,?10,"15 PATIENT DAYS OF CARE",?40,$J(TOTDAYS,5)
  • Line Location: FBNHPAMS+19
Function Call: WRITE
  • Prompt: !,?10,"16 SC PLACEMENTS",?40,$J(FBSC,5)
  • Line Location: FBNHPAMS+19
Function Call: WRITE
  • Prompt: !!,"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)
  • Line Location: FBNHPAMS+20
Function Call: WRITE
  • Prompt: !?5,"- CURRENT MONTH FIELDS 05, 06, 07 AND 08",?60,$J("-"_(FBL(1)+FBL(2)+FBL(3)+FBL(4)),6),!?60,"------"
  • Line Location: FBNHPAMS+21
Function Call: WRITE
  • Prompt: !?5,"= CURRENT MONTH FIELDS 09 AND 10",?45,$J((FBR(1)+FBR(2)),5)," <======>"
  • Line Location: FBNHPAMS+22
Function Call: WRITE
  • Prompt: ?60,$J(FBCHK,6)
  • Line Location: FBNHPAMS+22
Function Call: WRITE
  • Prompt: !,"**",$S(FBCHK=(FBR(1)+FBR(2)):"BALANCING SEGMENT OK",1:"PROBLEM FOUND IN BALANCING (see last page for details)")
  • Line Location: FBNHPAMS+23
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BAL+1
Function Call: WRITE
  • Prompt: !,$P($T(TEXT+I),";;",2)
  • Line Location: BAL+2
Function Call: WRITE
  • Prompt: "Page ",FBPG
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,?15,"COMMUNITY NURSING HOME CARE ACTIVITY - AMIS 349",!,?21,$$DATX^FBAAUTL(+FBMONTH)," THRU ",$$DATX^FBAAUTL($P(FBMONTH,"^",2)),!!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?17,$$NAME^FBCHREQ2($P($G(^FB7078(FBIFN,0)),"^",3))
  • Line Location: DV+5
Function Call: WRITE
  • Prompt: !,?17,$$NAME^FBCHREQ2($P($G(^FBAACNH(FBIFN,0)),"^",2)),?50,$$DATX^FBAAUTL(+$G(^FBAACNH(FBIFN,0)))
  • Line Location: DV+6
Function Call: WRITE
  • Prompt: ?47,+^TMP($J,"FBAMIS",FBDV,FBIFN)
  • Line Location: DV+7
Info |  Source |  Entry Points |  Interaction Calls