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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FBAARJP

Package: Fee Basis

Routine: FBAARJP


Information

FBAARJP ;AISC/GRR - PRINT REJECTS PENDING ACTION ;12/23/15 15:25

Source Information

Source file <FBAARJP.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 $$FIND1^DIC  DT^DICRW  ($$GET1,GETS)^DIQ  ^DIR  ^DIWP  
Fee Basis 4 (HED,SET)^FBAACCB  (ASKH,HEDP,SETT,SETV)^FBAACCB0  (CMORE,HEDC,MORE)^FBAACCB1  ($$DATX,CLOSE,ZIS)^FBAAUTL  
Kernel 2 ($$FMADD,$$FMTE)^XLFDT  $$LJ^XLFSTR  

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 FBAA REJECT PRINT  FBAARD  FBAARR  

Entry Points

Name Comments DBIA/ICR reference
START
END
MED
MORE
HEDB
WRITM
TRAV
TMORE
WRITT
PHARM
PMORE
WRITP
CHNH
CMORE
WRITC
HED ;write header for report if sent to printer
REJTXT(FBFILE,FBIENS,FBTXT) ; get reject text for line item
; input
; FBFILE - (required) Sub-File (162.03, 162.04, 162.1, or 162.5)
; FBIENS - (required) IENS of line item, FileMan DBS format
; FBTXT - array passed by reference, will be initialzed
; output
; FBTXT - array of text with format
; FBTXT(0)=count of lines
; FBTXT(#)=line of text
; where # is sequential number starting at 1
  • ICR #5829
    • Status: Retired
    • Usage: Private
    RCDES(FBRC,FBRM,FBARR) ; Reject Code Description
    ; input
    ; FBRC - reject code external value
    ; FBRM - (optional) right margin, default 60
    ; FBARR - array, passed by reference, not FBWP, will be initialized
    ; output
    ; FBARR - array contained formatted description
    ; where
    ; FBARR(0)=line count
    ; FBARR(1,0)=1st line of description
    ; FBARR(2,0)=2nd line of description
    DATEOK(FBATID,FBSTART) ;Compares batch transmission date to start date
    ; Returns 0 if transmission date earlier than start date
    ; Returns 1 if transmission date equals or is later

    External References

    Name Field # of Occurrence
    $$FIND1^DIC RCDES+20
    DT^DICRW FBAARJP+4
    $$GET1^DIQ REJTXT+33, REJTXT+35, REJTXT+42, RCDES+23
    GETS^DIQ REJTXT+47
    ^DIR FBAARJP+9, FBAARJP+15
    ^DIWP RCDES+30
    HED^FBAACCB MORE, WRITM+4, PMORE, WRITP+4
    SET^FBAACCB MORE+1
    ASKH^FBAACCB0 MORE+2, WRITM+4, TMORE+2, WRITT+4, PMORE+2, WRITP+4, CMORE+2, WRITC+4
    HEDP^FBAACCB0 TMORE, WRITT+4
    SETT^FBAACCB0 TMORE+1
    SETV^FBAACCB0 PMORE+1
    CMORE^FBAACCB1 CMORE+1
    HEDC^FBAACCB1 CMORE, WRITC+4
    MORE^FBAACCB1 PMORE+1
    $$DATX^FBAAUTL HEDB
    CLOSE^FBAAUTL END+2
    ZIS^FBAAUTL FBAARJP+18
    $$FMADD^XLFDT FBAARJP+12
    $$FMTE^XLFDT FBAARJP+12, HED+2
    $$LJ^XLFSTR REJTXT+39, REJTXT+60

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,*7,"No Rejects Pending!"
    • Line Location: START+2
    Function Call: WRITE
    • Prompt: !,UL,!
    • Line Location: MORE+2
    Function Call: WRITE
    • Prompt: !,"Batch Number: ",FBNUM,?22,"Voucher Date: ",$$DATX^FBAAUTL(FBVD),?45,"Voucherer: ",$S(FBVDUZ="":"",$D(^VA(200,FBVDUZ,0)):$P(^(0),"^",1),1:"Unknown"),!
    • Line Location: HEDB+0
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: WRITM+4
    Function Call: WRITE
    • Prompt: !,FBTXT(FBL)
    • Line Location: WRITM+5
    Function Call: WRITE
    • Prompt: !,UL,!
    • Line Location: TMORE+2
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: WRITT+4
    Function Call: WRITE
    • Prompt: !,FBTXT(FBL)
    • Line Location: WRITT+5
    Function Call: WRITE
    • Prompt: !,UL,!
    • Line Location: PMORE+2
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: WRITP+4
    Function Call: WRITE
    • Prompt: !,FBTXT(FBL)
    • Line Location: WRITP+5
    Function Call: WRITE
    • Prompt: !,UL,!
    • Line Location: CMORE+2
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: WRITC+4
    Function Call: WRITE
    • Prompt: !,FBTXT(FBL)
    • Line Location: WRITC+5
    Function Call: WRITE
    • Prompt: !?3,"REJECTS PENDING ACTION - ",$S(FBSTATL["F^V":"CF Accepted & Vouchered",FBSTATL["F":"Central Fee Accepted",FBSTATL["V":"Vouchered",1:"")," Trans Since: ",$$FMTE^XLFDT(FBSTARTD,5),!?3,$E(Q,1,74),!
    • Line Location: HED+2
    Routine Call
    • DIC
    • Line Location:
      • RCDES+20
    Routine Call
    • DIR
    • Line Location:
      • FBAARJP+9
      • FBAARJP+15

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAA(161.99 - [#161.99] FIND1^DIC,  GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^FBAA(161.7 - [#161.7] MED, TRAV, PHARM, CHNH, DATEOK+5
    ^FBAA(162.1 - [#162.1] START+1, PHARM, PMORE+1
    ^FBAAC - [#162] TMORE+1
    ^FBAAC("AG" START+1, TRAV, TMORE+1
    ^FBAAC("AH" START+1, MED, MORE+1
    ^FBAAI - [#162.5] CMORE+1
    ^FBAAI("AH" START+1, CHNH, CMORE+1
    ^UTILITY($J RCDES+28!, RCDES+33, RCDES+35!
    ^VA(200 - [#200] HEDB

    Label References

    Name Line Occurrences
    $$DATEOK MED, TRAV, PHARM, CHNH
    CHNH START+1
    CMORE CHNH
    END FBAARJP+15, FBAARJP+18, START+1
    HED MORE, TMORE, PMORE, CMORE
    HEDB MORE, TMORE, PMORE, CMORE
    MED START+1
    MORE MED
    PHARM START+1
    PMORE PHARM
    RCDES REJTXT+56
    REJTXT WRITM+2, WRITT+2, WRITP+2, WRITC+2
    TMORE TRAV
    TRAV START+1
    WRITC CMORE+1
    WRITM MORE+1
    WRITP PMORE+1
    WRITT TMORE+1

    Naked Globals

    Name Field # of Occurrence
    ^("ST" MED, TRAV, PHARM, CHNH
    ^(0 HEDB, PMORE+1, CMORE+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    A END!, PMORE+1*, WRITP+2, RCDES+13~
    A1 END!
    A2 END!
    A3 END!
    B START!, END!, MED*, MORE+1, TRAV*, TMORE+1, PHARM*, PMORE+1, CHNH*, CMORE+1
    , RCDES+13~
    B(0 MED*, TRAV*, PHARM*, CHNH*
    B2 END!, PMORE+1*, WRITP+2
    CNT START*, START+2, END!, WRITM*, WRITT*, WRITP*, WRITC*
    CPTDESC END!
    D END!
    DIR FBAARJP+9!, FBAARJP+15!
    DIR("?" FBAARJP+13*, FBAARJP+14*
    DIR("A" FBAARJP+7*, FBAARJP+11*
    DIR("B" FBAARJP+8*, FBAARJP+12*
    DIR(0 FBAARJP+6*, FBAARJP+11*
    DIRUT FBAARJP+9, FBAARJP+15, END+1!
    DIWF RCDES+13~, RCDES+29*
    DIWL RCDES+13~, RCDES+29*, RCDES+33
    DIWR RCDES+13~, RCDES+29*
    DT FBAARJP+4, FBAARJP+12
    FBAACPT END!
    FBAAOUT START*, START+1, END!, MED, MORE+1, MORE+2, WRITM, WRITM+4, TRAV, TMORE+2
    , WRITT+4, PHARM, PMORE+1, PMORE+2, WRITP+4, CHNH, CMORE+1, CMORE+2, WRITC, WRITC+4
    FBAC END+1!
    FBAP END+1!
    FBARR REJTXT+52~, REJTXT+56, RCDES~, RCDES+16!, RCDES+33*
    FBARR( REJTXT+64, REJTXT+65, REJTXT+68
    FBARR(1 REJTXT+61
    FBATID DATEOK~, DATEOK+4, DATEOK+5
    FBC REJTXT+11~, REJTXT+13*, REJTXT+38*, REJTXT+39, REJTXT+43*, REJTXT+59*, REJTXT+60, REJTXT+61, REJTXT+67*, REJTXT+68
    , REJTXT+70
    FBD REJTXT+11~
    FBD(4 REJTXT+42*, REJTXT+43
    FBD(5 REJTXT+33*, REJTXT+34, REJTXT+39
    FBD(6 REJTXT+35*, REJTXT+39
    FBDX END+1!
    FBFD END+1!
    FBFIELDS REJTXT+11~, REJTXT+28*, REJTXT+29*, REJTXT+30*, REJTXT+31*, REJTXT+33, REJTXT+35, REJTXT+42, REJTXT+47, REJTXT+51
    , REJTXT+53
    FBFILE REJTXT~, REJTXT+15, REJTXT+28, REJTXT+29, REJTXT+30, REJTXT+31, REJTXT+33, REJTXT+35, REJTXT+42, REJTXT+47
    FBI RCDES+13~, RCDES+30*
    FBIENS REJTXT~, REJTXT+16, REJTXT+33, REJTXT+35, REJTXT+42, REJTXT+47
    FBIN END!, PMORE+1*
    FBINOLD END!
    FBINTOT START*, END!
    FBK END+1!
    FBL END+1!, WRITM+1~, WRITM+3*, WRITM+5, WRITT+1~, WRITT+3*, WRITT+5, WRITP+1~, WRITP+3*, WRITP+5
    , WRITC+1~, WRITC+3*, WRITC+5
    FBLI REJTXT+52~, REJTXT+64*, REJTXT+65, REJTXT+68
    FBLST REJTXT+11~
    FBLST( REJTXT+51, REJTXT+53
    >> FBNNP MORE+2, TMORE+2, PMORE+2, CMORE+2
    FBNUM END!, MED*, HEDB, TRAV*, PHARM*, CHNH*
    FBPDT END+1!
    >> FBPOP FBAARJP+18
    FBPROC END+1!
    FBPV END!
    FBRC REJTXT+52~, REJTXT+53*, REJTXT+54, REJTXT+56, REJTXT+60, RCDES~, RCDES+17, RCDES+20
    FBRCI RCDES+13~, RCDES+20*, RCDES+23, RCDES+25
    FBRIENS REJTXT+11~, REJTXT+50*, REJTXT+51*, REJTXT+53
    FBRM RCDES~, RCDES+15*, RCDES+29
    FBRR END!
    FBSC END+1!
    FBSTART DATEOK~, DATEOK+4, DATEOK+6
    FBSTARTD FBAARJP+16*, END+1!, MED, TRAV, PHARM, CHNH, HED+2
    FBSTATL FBAARJP+10*, END+1!, MED, TRAV, PHARM, CHNH, HED+2
    FBTD END+1!
    FBTXT WRITM+1~, WRITM+2, WRITT+1~, WRITT+2, WRITP+1~, WRITP+2, WRITC+1~, WRITC+2, REJTXT~, REJTXT+12!
    FBTXT( WRITM+3, WRITM+5, WRITT+3, WRITT+5, WRITP+3, WRITP+5, WRITC+3, WRITC+5, REJTXT+39*, REJTXT+43*
    , REJTXT+60*, REJTXT+61*, REJTXT+68*
    FBTXT(0 REJTXT+13*, REJTXT+70*
    FBTYPE END!, MED*, TRAV*, PHARM*, CHNH*
    FBVD END!, MED*, HEDB, TRAV*, PHARM*, CHNH*
    FBVDUZ END!, MED*, HEDB, TRAV*, PHARM*, CHNH*
    FBVP END!
    FBWP RCDES+13~
    FBWP( RCDES+30
    FBWP(1 RCDES+25*
    FBX RCDES+13~, RCDES+23*, DATEOK+3~, DATEOK+6*, DATEOK+7
    FBY DATEOK+3~, DATEOK+5*, DATEOK+6
    I END!, CMORE+1*, WRITC+2, RCDES+13~
    IO START
    IOF START, MORE+2, WRITM+4, TMORE+2, WRITT+4, PMORE+2, WRITP+4, CMORE+2, WRITC+4
    IOSL WRITM+4, WRITT+4, WRITP+4, WRITC+4
    IOST START, MORE+2, WRITM+4, TMORE+2, WRITT+4, PMORE+2, WRITP+4, CMORE+2, WRITC+4, HED+1
    J END!, MORE+1*, WRITM+2, TMORE+1*, WRITT+2, RCDES+13~
    K END!, MORE+1*, WRITM+2, TMORE+1*, WRITT+2, RCDES+13~
    L END!, MORE+1*, WRITM+2, RCDES+13~
    M END!, MORE+1*, WRITM+2, RCDES+13~
    N END!
    PGM FBAARJP+17*, END!
    POP END!
    Q START*, END!, HED+2
    QQ START!
    S END!
    T END!
    U MED, TRAV, PHARM, CHNH, DATEOK+5
    UL START*, END!, MORE+2, TMORE+2, PMORE+2, CMORE+2
    V END!
    VAL FBAARJP+17*, END!
    VAR FBAARJP+17*, END!
    VID END!
    X END!, RCDES+30*
    XY END!
    Y FBAARJP+10, FBAARJP+16, END!
    Y(0 TMORE+1*
    Z END!
    Z(0 PMORE+1*, CMORE+1*
    ZS END!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All