Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: FBNHPAMS

Package: Fee Basis

Routine: FBNHPAMS


Information

FBNHPAMS ;AISC/GRR-PRINT AMIS ; 21JUN90

Source Information

Source file <FBNHPAMS.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Fee Basis 5 $$DATX^FBAAUTL  PRPRDT^FBAAUTL2  $$NAME^FBCHREQ2  DISCR^FBNHAMIS  HDR^FBNHPAMS  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Fee Basis 3 FBNHAMI1  FBNHAMIS  FBNHPAMS  

Entry Points

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

External References

Name Field # of Occurrence
^DIR FBNHPAMS+24, PGCK+3
$$DATX^FBAAUTL HDR+1, DV+6
PRPRDT^FBAAUTL2 HDR+1
$$NAME^FBCHREQ2 DV+5, DV+6
DISCR^FBNHAMIS FBNHPAMS+25
HDR^FBNHPAMS BAL+1

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
Routine Call
  • DIR
  • Line Location:
    • FBNHPAMS+24
    • PGCK+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FB7078 - [#162.4] DV+5
^FBAACNH - [#162.3] DV+6
^TMP($J DV+3, DV+7

Label References

Name Line Occurrences
DV FBNHPAMS+7, FBNHPAMS+9, FBNHPAMS+11, FBNHPAMS+12, FBNHPAMS+14, FBNHPAMS+16, FBNHPAMS+18, FBNHPAMS+19
HDR FBNHPAMS+4, PGCK+4
PGCK FBNHPAMS+10, FBNHPAMS+11, FBNHPAMS+12, FBNHPAMS+13, FBNHPAMS+17, FBNHPAMS+19, FBNHPAMS+20, BAL+2, DV+4, DV+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR FBNHPAMS+24!, PGCK+3!
DIR(0 FBNHPAMS+24*, PGCK+3*
>> FBASDEAD FBNHPAMS+18
>> FBASDIS FBNHPAMS+18
>> FBCHK FBNHPAMS+22*, FBNHPAMS+23, BAL
>> FBDV FBNHPAMS+3*, DV+2*, DV+3, DV+5, DV+6, DV+7
>> FBER FBNHPAMS+4, FBNHPAMS+25, BAL+1
>> FBFEM FBNHPAMS+16
>> FBG(1 FBNHPAMS+7, FBNHPAMS+20, FBNHPAMS+22
>> FBG(2 FBNHPAMS+7, FBNHPAMS+20, FBNHPAMS+22
>> FBG(3 FBNHPAMS+9, FBNHPAMS+20, FBNHPAMS+22
>> FBG(4 FBNHPAMS+9, FBNHPAMS+20, FBNHPAMS+22
>> FBIFN DV+2*, DV+3*, DV+5, DV+6, DV+7
>> FBL(1 FBNHPAMS+11, FBNHPAMS+21, FBNHPAMS+22
>> FBL(2 FBNHPAMS+11, FBNHPAMS+21, FBNHPAMS+22
>> FBL(3 FBNHPAMS+12, FBNHPAMS+21, FBNHPAMS+22
>> FBL(4 FBNHPAMS+12, FBNHPAMS+21, FBNHPAMS+22
>> FBMONTH HDR+1
>> FBMOV BAL
>> FBOUT FBNHPAMS+7, FBNHPAMS+9, FBNHPAMS+10, FBNHPAMS+11, FBNHPAMS+12, FBNHPAMS+13, FBNHPAMS+14, FBNHPAMS+15, FBNHPAMS+16, FBNHPAMS+17
, FBNHPAMS+18, FBNHPAMS+19, FBNHPAMS+20, BAL+2, DV+3, DV+4, DV+8, PGCK+3*
>> FBPG FBNHPAMS+3*, HDR*
>> FBPRIOR FBNHPAMS+20, FBNHPAMS+22
>> FBR( FBNHPAMS+14
>> FBR(1 FBNHPAMS+22, FBNHPAMS+23, BAL
>> FBR(2 FBNHPAMS+22, FBNHPAMS+23, BAL
>> FBSC FBNHPAMS+19
>> FBUL FBNHPAMS+3*, FBNHPAMS+5, FBNHPAMS+10, FBNHPAMS+13, FBNHPAMS+17, FBNHPAMS+19, FBNHPAMS+20
>> FBVAL DV+1
>> I FBNHPAMS+14*, BAL+2*
IOF FBNHPAMS+4, BAL+1, PGCK+4
IOSL PGCK+2
IOST FBNHPAMS+4, FBNHPAMS+24, PGCK+3
>> TOTDAYS FBNHPAMS+19
X PGCK~, PGCK+1*, PGCK+2
>> Y FBNHPAMS+24, PGCK+3

Marked Items

Name Field # of Occurrence
$T(PR+I FBNHPAMS+14
$T(TEXT+I BAL+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All