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

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
Fee Basis 2 $$HDR^FBAAUTL3  $$CHKBI^FBAAUTL4  
Registration 1 PID^VADPT6  
VA FileMan 1 ^%DT  

Caller Graph

Caller Graph Total: 146

Package Total Caller Graph
Fee Basis 146 FBAA79  FBAAAUDR  FBAAAUT  FBAABPG  FBAABS  FBAABT  FBAACCB  FBAACCB1  
FBAACCB2  FBAACH  FBAACIE  FBAACO  FBAACO1  FBAACR  FBAADCB  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  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  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

    External References

    Name Field # of Occurrence
    ^%DT DATE+1, DATE+2
    ^%ZIS ZIS+2
    HOME^%ZIS ZIS+2
    ^%ZISC CLOSE
    ^%ZTLOAD ZIS+2
    $$HDR^FBAAUTL3 HD+2
    $$CHKBI^FBAAUTL4 GETNXB+9, GETNXI+5
    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
    • %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
    DFN SSN+6~, SSN+7*, SSN+8
    >> DILOCKTM GETNXB+1, GETNXI+1
    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*
    >> 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
    PGM ZIS, ZIS+1, CLOSE+1!
    PID SSN~, SSN+7
    POP ZIS+2, CLOSE+1!
    PRIORLAT DATCK+5~, DATCK+6*, DATCK+9
    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