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: FBAAUTL1

Package: Fee Basis

Routine: FBAAUTL1


Information

FBAAUTL1 ;AISC/GRR - Fee Basis Utility Routine ;9/12/2012

Source Information

Source file <FBAAUTL1.m>

Entry Points

Name Comments DBIA/ICR reference
PLUSOB ;ENTRY POINT TO INCREASE OBLIGATION ADJUSTMENT
  • ICR #5101
    • Status: Withdrawn
    • Usage: Controlled Subscription
    VALCK ;DETERMINE VALIDITY OF RESPONSE
    HELPYN ;DISPLAY HELP TEXT FOR YES OR NO
    GETVET
    GETAUTH
    RD
    CHOOS
    2
  • ICR #5327
    • Status: Retired
    • Usage: Private
    Q
    GETAUTHK ; kill new authorization variables output from GETAUTH
    DAYS ;CALCULATES THE NUMBER OF DAYS IN MONTH
    DATCK2
    DATCK3
    WRONGT ;WRONG TYPE OF AUTHORIZATION SELECTED
    GETVEN ;LOOKUP VENDOR
    HANG ;IF $E(IOST,1,2)["C-" ASK TO CONTINUE
    CKOB
    CK1358 ;CHECK TO SEE IF 1358 AVAILABLE
    NOAUTH
    LOCK
    XSET ;SET X-REF IN FILE 161.27 FOR LOOK-UP BY SHORT DESCRIPTION
    XKILL ;
    TRANS ;
    VER() ;no parameters passed
    ADD ;call to add money back into 1358 when version of IFCAP>3.6
    ASKVET(FBSCR) ; Prompt for patient
    ; input FBSCR - (optional) screen logic for DIC lookup
    ; e.g. I $D(^FBAAC("AH",12,+Y))
    ; returns IEN of patient in file 161 or 0 if none selected

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,*7,Y,!
    • Line Location: PLUSOB+3
    Function Call: WRITE
    • Prompt: !!,"Please enter 'Yes' or 'No'."
    • Line Location: HELPYN+1
    Function Call: WRITE
    • Prompt: !!
    • Line Location: GETVET+0
    Function Call: WRITE
    • Prompt: !!,"PATIENT HAS NO AUTHORIZATIONS "
    • Line Location: GETAUTH+1
    Function Call: WRITE
    • Prompt: !!,"Veteran does NOT have an Authorization for the Fee Program being used !!"
    • Line Location: GETAUTH+6
    Function Call: WRITE
    • Prompt: !!
    • Line Location: CHOOS+0
    Function Call: WRITE
    • Prompt: !!,*7,"Date ",$S(Y<FBAABDT:"prior to ",1:"later than "),"Authorization period",!
    • Line Location: DATCK2+0
    Function Call: WRITE
    • Prompt: !,*7,"There is already an existing admission for this authorization!",!
    • Line Location: DATCK2+1
    Function Call: WRITE
    • Prompt: !!,*7,"That transfer type NOT consistent with last transfer type!",!
    • Line Location: DATCK3+0
    Function Call: WRITE
    • Prompt: !!,*7,"A 'Transfer From' type transaction can only follow a 'Transfer To' type!",!
    • Line Location: DATCK3+1
    Function Call: WRITE
    • Prompt: !!,"Authorization type selected inconsistent with option being used"
    • Line Location: WRONGT+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: GETVEN+1
    Function Call: WRITE
    • Prompt: !,"This Obligation number does not exist in the IFCAP file!",!
    • Line Location: CKOB+2
    Function Call: WRITE
    • Prompt: !!,*7,"1358 not available for posting!",!
    • Line Location: CK1358+3
    Function Call: WRITE
    • Prompt: !!,*7,"Queueing has been initiated by another user and is now in progress!",!!
    • Line Location: LOCK+0
    Function Call: WRITE
    • Prompt: !!,*7,"1358 not available for posting!",!
    • Line Location: ADD+5
    Function Call: WRITE
    • Prompt: !!,*7,$P(Y,U,2),!
    • Line Location: ADD+9
    Function Call: WRITE
    • Prompt: !!
    • Line Location: ASKVET+6

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAAA - [#161] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call