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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 4 NOW^%DTC  ^DIC  DT^DICRW  ^DIR  
Kernel 3 HOME^%ZIS  $$VERSION^XPDUTL  H^XUS  
Fee Basis 2 ^FBAADEM  STATION^FBAAUTL  
IFCAP 2 EN3^PRCS58  ^PRCS58CC  

Caller Graph

Caller Graph Total: 61

Package Total Caller Graph
Fee Basis 61 FBAA79  FBAAAUDR  FBAACO  FBAACO0  FBAADD  FBAAETA  FBAAMST  FBAAODP0  
FBAAPIE1  FBAAPM  FBAARD  FBAARD2  FBAARD3  FBAARR  FBAARR2  FBAAS79  
FBAASAP  FBAASDR  FBAASL  FBAASOUT  FBAAV0  FBAAVD2  FBAAVD3  FBAAVR  
FBAAVR0  FBAAVR1  FBAAVR2  FBCHACT  FBCHEP  FBCHREQ1  FBCHSTAT  FBCHVH  
FBFPAR  FBLTCAR2  FBNHAMIS  FBNHDIEP  FBNHDLAD  FBNHDLDI  FBNHDLTR  FBNHEA  
FBNHEAUT  FBNHED  FBNHEDA1  FBNHEDAD  FBNHEDAT  FBNHEDDI  FBNHEDTR  FBNHEP  
FBNHEP2  FBNHET  FBNHPC  FBNHRC  FBSHAUT  FBSHRAD  FBUCPAY  FBUCSTAT  
^FBAA(161.27  ^FBAA(161.7  PRESCRIPTION NUMBER  SERVICE PROVIDED  ^FBAACNH  

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

    External References

    Name Field # of Occurrence
    NOW^%DTC ADD+7
    HOME^%ZIS GETAUTH+5
    ^DIC GETVET, GETVEN+1, ASKVET+10
    DT^DICRW GETVET
    ^DIR RD, CHOOS, HANG+1
    ^FBAADEM GETAUTH+5
    STATION^FBAAUTL CKOB
    EN3^PRCS58 CK1358+3, ADD+5
    ^PRCS58CC ADD+9
    $$VERSION^XPDUTL VER+4
    H^XUS CHOOS

    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
    Routine Call
    • DIC
    • Line Location:
      • GETVET
      • GETVEN+1
      • ASKVET+10
    Routine Call
    • DIR
    • Line Location:
      • RD
      • CHOOS
      • HANG+1
    Routine Call
    • %ZIS
    • Line Location:
      • GETAUTH+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^FBAAA - [#161] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^FB7078 - [#162.4] 2+5
    ^FBAA(161.27 - [#161.27] XSET+1*, XKILL+1!
    ^FBAAA - [#161] GETAUTH+1, GETAUTH+3, GETAUTH+4, 2, 2+3
    ^PRC(424 - [#424] ADD+6
    ^PRC(442 - [#442] CKOB+2

    Label References

    Name Line Occurrences
    2 RD
    ADD PLUSOB+2
    HELPYN VALCK+1
    NOAUTH RD
    Q GETAUTH+6
    TRANS XSET+1, XKILL+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % ADD+8
    >> CNT GETAUTH*, GETAUTH+4*, GETAUTH+6, RD, CHOOS
    >> CNT( GETAUTH+4*, 2
    >> D0 GETVET*
    >> DA XSET+1, XKILL+1
    >> DFN GETVET*, GETAUTH+1, GETAUTH+3, GETAUTH+4, 2, 2+3
    DIC GETVET*, GETVEN+1*, ASKVET+4~, ASKVET+7*
    DIC("A" GETVET*!
    DIC("S" GETVET!, ASKVET+9*
    DIC(0 GETVET*, GETVEN+1*, ASKVET+8*
    DIR RD!, CHOOS!, HANG+1!
    DIR("A" RD*
    DIR("B" RD*
    DIR(0 RD*, CHOOS*, HANG+1*
    >> DIRUT RD
    >> DTOUT CHOOS
    >> DUOUT CHOOS
    FB GETAUTH~, 2*, 2+1, 2+2, 2+6
    FB("ERROR" CKOB!
    >> FB583 2+2*
    >> FB7078 2*, 2+1*, 2+5
    >> FBAABDT 2*, DATCK2
    >> FBAAEDT 2*, DATCK2
    >> FBAAMT PLUSOB+1*, ADD+8
    >> FBAAOB CK1358+3, ADD+5
    >> FBAAOUT HANG+1*
    >> FBAARA PLUSOB+1
    FBAASN CKOB+1!
    FBADDX ADD+6~*, ADD+8
    >> FBASSOC 2+4*
    FBCNTRA 2+6*, GETAUTHK+1!
    >> FBCOMM ADD+8
    FBDMRA 2+3*!
    >> FBERR CK1358+3*, ADD+5*, ADD+6*, ADD+9*
    FBFDT GETAUTH~, GETAUTH+3*, GETAUTH+4
    >> FBLTD DATCK2+1
    >> FBLTT DATCK3+1
    >> FBLTTYP DATCK3
    >> FBN ADD+6
    >> FBPOV 2*
    >> FBPROG GETAUTH+2*, GETAUTH+4
    >> FBPSA 2*
    >> FBPT 2*
    FBRET ASKVET+4~, ASKVET+5*, ASKVET+11*, ASKVET+12
    FBSCR ASKVET~, ASKVET+9
    FBSN CKOB+1!
    >> FBTRT DATCK2+1
    >> FBTT 2*
    >> FBTYPE 2*
    >> FBVEN 2*, 2+5*
    >> FTP GETAUTH*, 2*, NOAUTH*
    >> I GETAUTH+4*
    >> IFN GETVEN+1*
    >> PI GETAUTH+5*
    PRC CKOB+2!
    PRC("SITE" CKOB+1*, CKOB+2
    >> PRCS("TYPE" CK1358+3*, ADD+5*
    >> PRCS("X" CK1358+3*, ADD+5*
    >> PRCSX ADD+8*
    >> TA 2*
    U GETVET*, 2+5, ADD+9
    >> VAL VALCK+1*, VALCK+2*
    X VALCK+1, RD*, CHOOS*, 2*, 2+3, 2+4, DAYS+1*, DAYS+2, DAYS+5*, DATCK2!
    , DATCK2+1!, DATCK3!, DATCK3+1!, CKOB!, CKOB+2!, NOAUTH*, VER+3~, VER+4*, VER+5
    >> X1 DAYS+1*, DAYS+4
    Y GETVET, RD, CHOOS, DATCK2, DATCK2+1, GETVEN+1, HANG+1, CK1358+3, ADD+5, ADD+9
    , ASKVET+4~, ASKVET+11
    YEAR DAYS+3~, DAYS+4*, DAYS+5
    ZZ XSET+1*, XSET+2!, XKILL+1*, XKILL+2!, TRANS+1*
    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 |  Local Variables  | All