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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAA(161.99 - [#161.99] FIND1^DIC,  GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call