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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FBNHEXP

Package: Fee Basis

Routine: FBNHEXP


Information

FBNHEXP ;AISC/CMR CNH WITH CONTRACT EXPIRING WITHIN DATE RANGE;10MAR93

Source Information

Source file <FBNHEXP.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Fee Basis 1 ($$DATX,CLOSE,DATE,ZIS)^FBAAUTL  
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: 12

Package Total Caller Graph
Fee Basis 12 FBAAPV  FBAAV01  FBCKDIS  FBCNH EXPIRATION REPORT  FBCNHCEN  FBNHACT  FBNHPC1  FBNHRCS1  
FBNHROS  FBPAY67  FBPHON  FBPST35B  

Entry Points

Name Comments DBIA/ICR reference
START
END
HED
VNAME(X) ;INPUT - VENDOR IEN
  • ICR #5113
    • Status: Active
    • Usage: Controlled Subscription
    VID(X) ;INPUT - VENDOR IEN
  • ICR #5113
    • Status: Active
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    ^DIR FBNHEXP+5, START+2, END
    $$DATX^FBAAUTL FBNHEXP+4, START+4, HED
    CLOSE^FBAAUTL END+2
    DATE^FBAAUTL FBNHEXP+3
    ZIS^FBAAUTL FBNHEXP+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"This option will list nursing homes with contracts expiring between",!,$$DATX^FBAAUTL(BEGDATE)," and ",$$DATX^FBAAUTL(ENDDATE),".",!
    • Line Location: FBNHEXP+4
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: START+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: END+0
    Function Call: WRITE
    • Prompt: !?12,"CNH CONTRACTS EXPIRING BETWEEN ",$$DATX^FBAAUTL(BEGDATE)," AND ",$$DATX^FBAAUTL(ENDDATE)
    • Line Location: HED+0
    Function Call: WRITE
    • Prompt: !?12,$E(Q,1,52),!!!,"Vendor Name",?47,"Vendor ID",?58,"Contract #",?72,"Exp. Dt.",!,Q
    • Line Location: HED+1
    Routine Call
    • DIR
    • Line Location:
      • FBNHEXP+5
      • START+2
      • END

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^FBAA(161.21 - [#161.21] START+1, START+4
    ^FBAAV - [#161.2] VNAME+2, VID+2

    Label References

    Name Line Occurrences
    $$VID START+4
    $$VNAME START+4
    END FBNHEXP+3, FBNHEXP+5, FBNHEXP+6
    HED STARTSTART+3

    Naked Globals

    Name Field # of Occurrence
    ^(0 START+4, VNAME+2, VID+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT FBNHEXP+3*!
    BEGDATE FBNHEXP+4, FBNHEXP+6, START+1, END+1!, HED
    DIR FBNHEXP+5!, START+2!, END!
    DIR("A" FBNHEXP+5*, END*
    DIR("B" FBNHEXP+5*
    DIR(0 FBNHEXP+5*, START+2*, END*
    >> DIRUT FBNHEXP+5
    ENDDATE FBNHEXP+4, FBNHEXP+6, START+1, END+1!, HED
    FBAAOUT START*, START+1, START+2*, ENDEND+1!
    FBDT START+1*, END+1!
    FBI START+1*, START+4, END+1!
    >> FBPOP FBNHEXP+3, FBNHEXP+6, END
    FBV START+1*, START+4, END+1!
    IO START
    IOF STARTSTART+3
    IOSL START+2, START+3
    IOST STARTSTART+2, END
    >> PGM FBNHEXP+6*
    Q START*, END+1!, HED+1
    >> VAL FBNHEXP+6*
    >> VAR FBNHEXP+6*
    X END+1!, VNAME~, VNAME+2, VID~, VID+2
    Y FBNHEXP+5, START+2, END+1!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All