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

Package: Fee Basis

Routine: FBAAUTL


Information

FBAAUTL ;AISC/GRR,SBW-Fee Basis Utility Routine ; 4/23/10 3:06pm

Source Information

Source file <FBAAUTL.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 ^%DT  EN^DDIOL  ^DIR  
Fee Basis 2 $$HDR^FBAAUTL3  $$CHKBI^FBAAUTL4  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Registration 1 PID^VADPT6  

Caller Graph

Caller Graph Total: 151

Package Total Caller Graph
Fee Basis 151 FBAA79  FBAAAUDR  FBAAAUT  FBAABPG  FBAABS  FBAABT  FBAACCB  FBAACCB0  
FBAACCB1  FBAACCB2  FBAACH  FBAACIE  FBAACO  FBAACO1  FBAACR  FBAADCB  
FBAADEM  FBAADEM1  FBAADOB  FBAAEPI1  FBAALB  FBAAMP  FBAAOB  FBAAODP0  
FBAAPAY  FBAAPCC  FBAAPCS  FBAAPH  FBAAPI  FBAAPIE  FBAAPIE1  FBAAPII  
FBAAPIN  FBAAPIP  FBAAPLU  FBAAPOC  FBAAPPH  FBAAPRC  FBAAPV  FBAARJP  
FBAAROC  FBAARR  FBAARR0  FBAAS79  FBAASCB0  FBAASL1  FBAASLP  FBAASOUT  
FBAATIC  FBAAUTL1  FBAAV0  FBAAV1  FBAAV2  FBAAV4  FBAAV5  FBAAV8  
FBAAVD  FBAAVD1  FBAAVLU  FBAAVP  FBAAVR5  FBAAVS  FBARCH0  FBARCHU  
FBBPG7Y  FBCH78  FBCHACT  FBCHC78  FBCHCR  FBCHDI  FBCHDI2  FBCHEP  
FBCHP78  FBCHPRC  FBCHPSA  FBCHPSA0  FBCHPSA1  FBCHREQ  FBCHREQ2  FBCHRJP  
FBCHSL1  FBCHSLP  FBCHSTA  FBCHSTAT  FBCHVH  FBCHVP  FBCKDIS  FBCNHCEN  
FBFPDS  FBLTCAR2  FBMRASVR  FBNHACT  FBNHAMI2  FBNHAMIE  FBNHAMIS  FBNHDEC  
FBNHEAU2  FBNHEAUT  FBNHED  FBNHEDAT  FBNHEP  FBNHEP1  FBNHEXP  FBNHPAMS  
FBNHPC  FBNHPC1  FBNHPLT  FBNHRAT1  FBNHRC  FBNHRCS  FBNHRCS1  FBNHRCS3  
FBNHROS  FBPAID  FBPAID2  FBPAY  FBPAY2  FBPAY21  FBPAY3  FBPAY67  
FBPAY671  FBPCR  FBPCR2  FBPCR3  FBPCR67  FBPHON  FBPRICE  FBPST35  
FBPST35A  FBPST35B  FBSHAUT  FBUCDD1  FBUCDE  FBUCDUP  FBUCEN  FBUCEX  
FBUCLET  FBUCLET0  FBUCLET1  FBUCLINK  FBUCOUT1  FBUCSTAT  FBUCUTL2  FBUCUTL3  
FBUCUTL4  FBUCUTL5  FBUCUTL7  FBUCUTL8  FBUTL135  INITIAL TREATMENT DATE  ^FB583  

Entry Points

Name Comments DBIA/ICR reference
DATE
ZIS
CLOSE
D
SITEP ;SET FBSITE(0),FBSITE(1) VARIABLE TO FEE SITE PARAMETERS
  • ICR #5090
    • Status: Retired
    • Usage: Controlled Subscription
    TM
    PDF
  • ICR #5090
    • Status: Retired
    • Usage: Controlled Subscription
    GETNXB ;GET NEXT AVAILABLE BATCH NUMBER
  • ICR #5090
    • Status: Retired
    • Usage: Controlled Subscription
    WARNBT
    GETNXI ;GET NEXT AVAILABLE INVOICE NUMBER
  • ICR #5090
    • Status: Retired
    • Usage: Controlled Subscription
    PDATE
    DATCK
    DATX(X) ;external output function for date format
  • ICR #5090
    • Status: Retired
    • Usage: Controlled Subscription
    STATION ;GET STATION NUMBER FROM INSTITUTION FILE
  • ICR #5090
    • Status: Retired
    • Usage: Controlled Subscription
    NOSTA
    HD ;set transmission header
    SSN(PID,BID,DOD) ;
  • ICR #5090
    • Status: Retired
    • Usage: Controlled Subscription
    SSNL4(SSN) ;Convert 1st 5 digits of SSN to X (Only print last 4 digits of SSN)
    PYMTH(CODE) ; Payment Methodology Processing (FB*3.5*158)
    ; input --> CODE: Fee Schedule/Payment Methodology code
    ; output --> Payment methodology name or '@' to delete existing value
    CRARC(FBADJ,FBRRMK,FBCRARC) ; compile CARCs and RARCs into an array for batch processing
    GETICN(DFN,DEFAULT) ;Get the ICN of the patient ;192
    WARN(PROMPTC) ;Future Deactivation messaging for a set of Options ;192

    External References

    Name Field # of Occurrence
    ^%DT DATE+1, DATE+2
    ^%ZIS ZIS+2
    HOME^%ZIS ZIS+2
    ^%ZISC CLOSE
    ^%ZTLOAD ZIS+2
    EN^DDIOL WARN+11
    ^DIR WARN+13
    $$HDR^FBAAUTL3 HD+2
    $$CHKBI^FBAAUTL4 GETNXB+9, GETNXI+5
    $$GETICN^MPIF001 GETICN+9
    PID^VADPT6 SSN+10
    $$FMTE^XLFDT DATX+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"**** Date Range Selection ****"
    • Line Location: DATE+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: DATE+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: DATE+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: DATE+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: ZIS+2
    Function Call: WRITE
    • Prompt: !,*7,"REQUEST QUEUED",!,"Task #: ",$G(ZTSK)
    • Condition for execution: $D(ZTSK)
    • Line Location: ZIS+2
    Function Call: WRITE
    • Prompt: !,*7,"There are ",9999999-FBBATLT," batches left before the BATCH PURGE routine",!,"needs to be run. Contact your IRM Service!",!!
    • Line Location: WARNBT+0
    Function Call: WRITE
    • Prompt: !!,*7,"Unable to determine Station Number. Check Fee Site Parameters or Station Number in the Institution File.",!!
    • Line Location: NOSTA+0
    Function Call: WRITE
    • Prompt: !,"Transmission header must exist in FEE BASIS SITE PARAMETER file",!,"before you can proceed.",*7,!
    • Line Location: HD+2
    Routine Call
    • DIR
    • Line Location:
      • WARN+13
    Routine Call
    • %ZIS
    • Line Location:
      • ZIS+2
    Routine Call
    • %ZIS
    • Line Location:
      • ZIS+2

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(4 - [#4] STATION+2, STATION+3
    ^FB(161.91 - [#161.91] CRARC+10
    ^FB(161.92 - [#161.92] CRARC+8
    ^FB(161.93 - [#161.93] CRARC+18, CRARC+28
    ^FBAA(161.4 - [#161.4] SITEP+1, SITEP+2, SITEP+3, GETNXB+1, GETNXB+3*, GETNXB+4, GETNXB+5, GETNXB+9*, GETNXB+10, GETNXI+1
    , GETNXI+3*, GETNXI+4, GETNXI+5, GETNXI+6, HD+1
    ^FBAA(161.7 - [#161.7] GETNXB+7
    ^FBAA(163.98 - [#163.98] PYMTH+7, PYMTH+8

    Label References

    Name Line Occurrences
    GETNXB GETNXB+1, GETNXB+9
    GETNXI GETNXI+1, GETNXI+5
    NOSTA STATION+2
    SITEP STATION+1
    WARNBT GETNXB+8

    Naked Globals

    Name Field # of Occurrence
    ^("FBNUM" GETNXB+4*, GETNXI+4*, GETNXI+5*
    ^(99 STATION+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % TM*
    %DT DATE!, DATE+1*, DATE+2*!
    %DT("A" DATE+1*, DATE+2*
    %DT(0 DATE+1*
    >> %ZIS ZIS+2*
    AUTHDAT DATCK+5~, DATCK+7*, DATCK+8
    BEGDATE DATE!, DATE+1*
    BID SSN~, SSN+9*, SSN+11
    CNT CRARC+2~, CRARC+3*, CRARC+5*, CRARC+21
    CODE PYMTH~, PYMTH+5, PYMTH+7
    DEFAULT GETICN~, GETICN+7*, GETICN+10
    DFN SSN+6~, SSN+7*, SSN+8, GETICN~, GETICN+6, GETICN+9
    >> DILOCKTM GETNXB+1, GETNXI+1
    DIR WARN+3~, WARN+13!
    DIR("A" WARN+13*
    DIR(0 WARN+13*
    DOD SSN~, SSN+9
    >> DONE CRARC+21*, CRARC+22, CRARC+24*
    ENDDATE DATE!, DATE+2*
    >> FB("ERROR" NOSTA*, HD+2*
    >> FBAABDT DATCK+4, DATCK+6, DATCK+7
    >> FBAAEDT DATCK+4, DATCK+7
    >> FBAAID DATCK+1, DATCK+2
    >> FBAAIN GETNXI+5*
    >> FBAASN STATION+3*
    FBADJ CRARC~
    FBADJ( CRARC+4, CRARC+6, CRARC+7, CRARC+9, CRARC+11
    FBADJA CRARC+2~, CRARC+11*, CRARC+12
    FBADJAE CRARC+2~, CRARC+12*, CRARC+13, CRARC+21*, CRARC+26
    FBADJGE CRARC+2~, CRARC+8*, CRARC+13, CRARC+21*, CRARC+26
    FBADJGI CRARC+2~, CRARC+7*, CRARC+8
    FBADJRE CRARC+2~, CRARC+10*, CRARC+13, CRARC+21*, CRARC+26
    FBADJRI CRARC+2~, CRARC+9*, CRARC+10, CRARC+16, CRARC+17, CRARC+21*, CRARC+25, CRARC+27
    FBBATLT GETNXB+6~, GETNXB+7*, GETNXB+8, WARNBT
    >> FBBN GETNXB+5*, GETNXB+9
    FBCRARC CRARC~
    FBCRARC( CRARC+13*, CRARC+19*, CRARC+26*, CRARC+29*
    FBDT DATE~, DATE+1*, DATE+2
    >> FBHD HD+2*
    FBICN GETICN+4~, GETICN+9*, GETICN+10*, GETICN+11
    >> FBPDT PDATE*
    FBPOP DATE*, DATE+1*, DATE+2*, ZIS*, ZIS+2*, CLOSE+1!, SITEP+1*, SITEP+2*, SITEP+3*, SITEP+4
    FBRRMK CRARC~
    FBRRMK( CRARC+16, CRARC+17, CRARC+25, CRARC+27
    FBRRMKE CRARC+2~, CRARC+18*, CRARC+19, CRARC+28*, CRARC+29
    FBRRMKI CRARC+2~, CRARC+17*, CRARC+18, CRARC+27*, CRARC+28
    >> FBSITE("FBNUM" SITEP+3*
    >> FBSITE(0 SITEP+1*
    >> FBSITE(1 SITEP+2*, STATION+1, STATION+2, STATION+3, HD+1*
    >> FBSN STATION+3*
    FBSSN SSN+6~, SSN+11*, SSN+13
    >> HOLDY DATCK*, DATCK+11
    I ZIS*, ZIS+2!, CRARC+2~, CRARC+3*, CRARC+4*, CRARC+5, CRARC+6, CRARC+7, CRARC+9, CRARC+11
    , CRARC+13, CRARC+19, CRARC+21*, CRARC+23*, CRARC+26, CRARC+29
    IEN PYMTH+6~, PYMTH+7*, PYMTH+8
    IO("Q" ZIS+2!
    IOP CLOSE+1!
    J CRARC+2~, CRARC+15*, CRARC+16*, CRARC+17, CRARC+21*, CRARC+24, CRARC+25*, CRARC+27
    K CRARC+2~, CRARC+24*, CRARC+26
    MSG WARN+3~, WARN+11
    MSG(1 WARN+5*
    MSG(2 WARN+6*
    MSG(3 WARN+7*
    MSG(5 WARN+8*
    MSG(6 WARN+9*
    PGM ZIS, ZIS+1, CLOSE+1!
    PID SSN~, SSN+7
    POP ZIS+2, CLOSE+1!
    PRIORLAT DATCK+5~, DATCK+6*, DATCK+9
    PROMPTC WARN~, WARN+13
    SHODAT DATCK+2~*, DATCK+3, DATCK+5~, DATCK+8*, DATCK+10
    SSN SSNL4~, SSNL4+9*, SSNL4+11*, SSNL4+13*, SSNL4+14
    U GETNXB+7, GETNXI+4, PYMTH+8, CRARC+6, CRARC+7, CRARC+8, CRARC+9, CRARC+10, CRARC+11, CRARC+13
    , CRARC+18, CRARC+19, CRARC+26, CRARC+28, CRARC+29
    >> VA("BID" SSN+11, SSN+12!
    >> VA("PID" SSN+11, SSN+12!
    VAERR SSN+10!, SSN+12!
    VAL CLOSE+1!
    VAPTYP SSN+9*, SSN+12!
    VAR ZIS, CLOSE+1!
    X TM*, DATCK+1!, DATCK+4!, DATX~, DATX+3, CRARC+6*
    >> Y DATE+1, DATE+2, D*, PDF*, PDATE, DATCK, DATCK+1, DATCK+4, DATCK+6, DATCK+7
    , DATCK+11*
    ZTDESC ZIS+1*, CLOSE+1!
    ZTDTH CLOSE+1!
    ZTIO ZIS+2!
    >> ZTQUEUED CLOSE, NOSTA
    ZTRTN ZIS*, ZIS+2!, CLOSE+1!
    ZTSAVE ZIS*, ZIS+2!, CLOSE+1!
    ZTSAVE( ZIS*
    ZTSK ZIS+2!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All