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

Package: Outpatient Pharmacy

Routine: PSOBPSUT


Information

PSOBPSUT ;BIRM/MFR - BPS (ECME) Utilities ;07 Jun 2005 8:39 PM

Source Information

Source file <PSOBPSUT.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Outpatient Pharmacy 8 ($$LSTRFL,ECMESND,RELEASE,REVERSE)^PSOBPSU1  UPDFL^PSOBPSU2  ($$RXFLDT,$$RXRLDT,$$RXSITE,$$STATUS)^PSOBPSUT  ($$CHGNDC,$$GETNDC,SAVNDC)^PSONDCUT  $$TRIC^PSOREJP1  $$PSOET^PSOREJP3  $$HDLG^PSOREJU1  $$FIND^PSOREJUT  
E Claims Management Engine 4 $$CLAIM^BPSBUTL  IBSEND^BPSECMP2  $$STATUS^BPSOSRX  $$ECMEON^BPSUTIL  
Pharmacy Data Management 1 $$NDCFMT^PSSNDCUT  
Registration 1 ADD^VADPT  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 102

Package Total Caller Graph
Outpatient Pharmacy 80 PSOASAP  PSOASAP0  PSOATRFC  PSOATRFV  PSOBING1  PSOBORP3  PSOBPSR1  PSOBPSU1  
PSOBPSU2  PSOBPSU3  PSOBPSUT  PSOCAN2  PSOCMOPB  PSOCSRL  PSODAWUT  PSODISP  
PSODISP3  PSODISPS  PSODRG  PSOERXO1  PSOERXU6  PSOEXDT  PSOHLD  PSOHLDIS  
PSOHLDS4  PSOHLSG1  PSOLBLN  PSOLLL2  PSOLLL3  PSON52  PSONDCUT  PSONDCV  
PSOORAL2  PSOORED2  PSOORED7  PSOOREDT  PSOORNE2  PSOORRL  PSOORUT1  PSOOTMRX  
PSOP  PSOP1  PSOPMP0  PSOPMP1  PSOPRK  PSOPRKA  PSOR52  PSOREJP0  
PSOREJP1  PSOREJP2  PSOREJP3  PSOREJU1  PSOREJU2  PSOREJU3  PSOREJU4  PSOREJUT  
PSORLST2  PSORN52  PSORRPA1  PSORTSUT  PSORXED  PSORXEDT  PSORXL1  PSORXPA1  
PSORXVW  PSORXVW1  PSOSPML0  PSOSPML4  PSOSPML6  PSOSPML7  PSOSPML8  PSOSPMU1  
PSOSPMU2  PSOSPMU3  PSOSPMUT  PSOSPMV  PSOSULBL  PSOSUPOE  PSOTRI  PSOVER1  
E Claims Management Engine 7 BPSNCPD1  BPSPRRX6  BPSRES  BPSSCRRJ  BPSSCRRS  BPSUTIL  BPSVRX3  
CMOP 6 PSXBPSMS  PSXBPSRP  PSXMSGS  PSXRPPL1  PSXRPPL2  PSXVND  
Integrated Billing 4 IBNCPDP2  IBNCPDP4  IBNCPDPU  IBNCPEV3  
Accounts Receivable 2 RCDPEX2  RCDPEX32  
Controlled Substances 2 PSDDSOR2  PSDOPT2  
VA FileMan 1 ITEM  

Entry Points

Name Comments DBIA/ICR reference
ECME(RX) ; Returns "e" if Rx/Refill is Electronically Billable (3rd party)
  • ICR #7084
    • Status: Active
    • Usage: Private
    STATUS(RX,RFL,COB) ; Returns the Rx's ECME Status (calls STATUS^BPSOSRX)
    ; Input: (r) RX - Rx IEN (#52)
    ; (o) RFL - Refill # (Default: most recent)
    ; (o) COB - Coordination of Benefits (1=primary, etc.)
  • ICR #4701
    • Status: Active
    • Usage: Controlled Subscription
    SUBMIT(RX,RFL,IGRL,IGCMP) ; Returns whether the Rx should be submitted to ECME at the moment or not
    ; Input: (r) RX - Rx IEN (#52)
    ; (o) RFL - Refill # (Def.: most recent)
    ; (o) IGRL - Ignore Release Date? (1-YES/0-NO) (Def.: 0 - NO)
    ; (o) IGCMP- Ignore CMOP/Suspense check? (1-YES/0-NO) (Def.: 0 - NO)
    CMOP(RX,RFL) ; Returns if the Rx will be a CMOP Rx or not
    ; Input: (r) RX - Rx IEN (#52)
    ; (o) RFL - Refill # (Default: most recent)
    ; Output: 1 - CMOP / 0 - NON-CMOP
    QCMOP
    RXRLDT(RX,RFL) ; Returns the Rx Release Date
    ; Input: (r) RX - Rx IEN (#52)
    ; (o) RFL - Refill # (Default: most recent)
    ;
    ; Output: RXRLDT - Rx Release Date
  • ICR #4701
    • Status: Active
    • Usage: Controlled Subscription
    RXFLDT(RX,RFL) ; Returns the Rx Fill Date
    ; Input: (r) RX - Rx IEN (#52)
    ; (o) RFL - Refill # (Default: most recent)
    ; Output: RXFLDT - Rx Fill Date (FM format)
  • ICR #4701
    • Status: Active
    • Usage: Controlled Subscription
    RXSUDT(RX,RFL) ; Returns the prescription/fill Suspense Date for the RX/Reject passed in
    RXSITE(RX,RFL) ; Returns the Rx DIVISION
    ; Input: (r) RX - Rx IEN (#52)
    ; (o) RFL - Refill #
    ; Output: SITE - Rx Fill Date
    ;
  • ICR #4701
    • Status: Active
    • Usage: Controlled Subscription
    RXSTATE(RX,RFL) ; Returns the Rx Division STATE
    ; Input: (r) RX - Rx IEN (#52)
    ; (o) RFL - Refill #
    ; Output: SITE - Rx Fill Date
    RXSTATEP(RX,RFL,STATE) ; Returns the Rx Export States
    ; Input: (r) RX - Rx IEN (#52)
    ; (o) RFL - Refill #
    ; STATE - Selected State
    ; Output: RSLT - Export States
    RXSTATEZ(RX,RFL,STATE) ; Returns the Rx Export States
    ; Input: (r) RX - Rx IEN (#52)
    ; (o) RFL - Refill #
    ; STATE - Selected State
    ; Output: RSLT - Export to State
    RXQTY(RXIEN,FILL) ; Returns the Quantity Dispense for the Fill
    ; Input: (r) RXIEN - Rx IEN (#52)
    ; (o) FILL - Refill # (Default: most recent)
    ; Output: RXQTY - Quantity Dispensed
    RXDAYSUP(RXIEN,FILL) ; Returns the Days Supply for the Fill
    ; Input: (r) RXIEN - Rx IEN (#52)
    ; (o) FILL - Refill # (Default: most recent)
    ; Output: RXDAYSUP - Days Supply
    RXPRV(RXIEN,FILL) ; Returns the Rx Fill Provider IEN
    ; Input: (r) RXIEN - Rx IEN (#52)
    ; (o) FILL - Refill # (Default: most recent - except Partial)
    ; Note: "P1", "P2"... represent partial fills
    ; Output: RXPRV - Rx Fill Provider IEN
    RXRPH(RXIEN,FILL) ; Returns the Pharmacist IEN for the Fill
    ; Input: (r) RXIEN - Rx IEN (#52)
    ; (o) FILL - Refill # (Default: most recent)
    ; Output: RXRPH - Pharmacist IEN (Pointer to File #200)
    VALUE(RX,FILL,ORFLD,RFFLD,PRFLD,OROK) ; Retrieve corresponding Internal value for the specific prescription fill
    ; Input: (r) RX - Rx IEN (#52)
    ; (r) FILL - Refill #
    ; (r) ORFLD - Original Fill Field #
    ; (r) RFFLD - Refill Field #
    ; (r) PRFLD - Partial Field #
    ; (o) OROK - OK to retrieve from Original Fill (1: YES/0:NO)
    ; Output: VALUE - Fill Field Value
    MANREL(RX,RFL,PID) ; ePharmacy Manual Rx Release
    TRIC ;
    AUTOREL(RX,RFL,RLDT,NDC,SRC,STS,HNG) ; Sends Rx Release information to ECME/IB and updates NDC
    ; in the DRUG/PRESCRIPTION files
  • ICR #4701
    • Status: Active
    • Usage: Controlled Subscription
    IBSEND(RX,RFL,AUTO,PSONDC) ; Rx Release
    ; Create Release Event
    ; Calls ECME, if needed
    ; If Payable or Duplicate, calls IB to create a bill
    RETRX(RX,RFL) ; - Re-transmit a claim for the prescription/fill?
  • ICR #4701
    • Status: Active
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    $$CLAIM^BPSBUTL IBSEND+29
    IBSEND^BPSECMP2 IBSEND+30
    $$STATUS^BPSOSRX ECME+1, STATUS+7
    $$ECMEON^BPSUTIL SUBMIT+17, MANREL+14, IBSEND+13
    $$GET1^DIQ SUBMIT+12, SUBMIT+21, CMOP+10, CMOP+13, CMOP+15, CMOP+17, CMOP+19, CMOP+21, CMOP+25, RXRLDT+7
    , RXRLDT+9, RXRLDT+10, RXFLDT+6, RXFLDT+8, RXFLDT+9, RXSUDT+8, RXSUDT+9, RXSUDT+10, RXSITE+8, RXSITE+9
    , RXSITE+10, RXSTATE+6, RXSTATEP+6, RXSTATEP+10, RXSTATEP+12, RXSTATEZ+6, RXSTATEZ+7, RXSTATEZ+8, RXQTY+6, RXQTY+8
    , RXQTY+9, RXDAYSUP+6, RXDAYSUP+8, RXDAYSUP+9, RXPRV+8, RXPRV+9, RXPRV+10, RXRPH+7, RXRPH+8, RXRPH+9
    , VALUE+11, VALUE+12, VALUE+13, RETRX+5, RETRX+6
    $$LSTRFL^PSOBPSU1 ECME+1, STATUS+5, SUBMIT+8, SUBMIT+10, CMOP+7, RXRLDT+8, RXFLDT+7, RXSITE+7, RXQTY+7, RXDAYSUP+7
    , RXPRV+7, RXRPH+6, MANREL+7, AUTOREL+11, IBSEND+11, RETRX+4
    ECMESND^PSOBPSU1 AUTOREL+31, AUTOREL+38, IBSEND+26
    RELEASE^PSOBPSU1 AUTOREL+22, IBSEND+21
    REVERSE^PSOBPSU1 AUTOREL+20, AUTOREL+25, AUTOREL+28
    UPDFL^PSOBPSU2 AUTOREL+31, AUTOREL+38
    $$RXFLDT^PSOBPSUT CMOP+27
    $$RXRLDT^PSOBPSUT CMOP+23, IBSEND+24
    $$RXSITE^PSOBPSUT MANREL+14, IBSEND+13
    $$STATUS^PSOBPSUT MANREL+16, MANREL+26, AUTOREL+17, AUTOREL+34, AUTOREL+42
    $$CHGNDC^PSONDCUT MANREL+19
    $$GETNDC^PSONDCUT AUTOREL+13
    SAVNDC^PSONDCUT AUTOREL+15, AUTOREL+34, AUTOREL+42
    $$TRIC^PSOREJP1 MANREL+17
    $$PSOET^PSOREJP3 MANREL+9
    $$HDLG^PSOREJU1 MANREL+12, MANREL+25
    $$FIND^PSOREJUT MANREL+11, MANREL+24
    $$NDCFMT^PSSNDCUT AUTOREL+15, AUTOREL+24, AUTOREL+27, AUTOREL+30, AUTOREL+31, AUTOREL+34, AUTOREL+36, AUTOREL+38, AUTOREL+42, IBSEND+25
    ADD^VADPT RXSTATEP+12, RXSTATEZ+8

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: MANREL+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: MANREL+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: MANREL+24
    Function Call: WRITE
    • Prompt: !!,$C(7),$S(PSOTRIC=1:"TRICARE",1:"CHAMPVA")_" Rx remains in 'IN PROGRESS' status for ECME, and cannot be released.",!
    • Line Location: TRIC+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    ^PSRX - [#52] GET1^DIQ
    52.1 GET1^DIQ
    52.2 GET1^DIQ
    ^PS(52.5 - [#52.5] GET1^DIQ
    ^PS(55 - [#55] GET1^DIQ
    ^PS(58.41 - [#58.41] GET1^DIQ
    ^PS(59 - [#59] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.5 - [#52.5] RXSUDT+7
    ^PSDRUG("AQ" CMOP+13
    ^PSRX - [#52] RXSUDT+5

    Label References

    Name Line Occurrences
    $$CMOP SUBMIT+15
    $$RXFLDT SUBMIT+21
    $$RXRLDT SUBMIT+19
    $$RXSITE SUBMIT+17, SUBMIT+21, RXSTATE+5, RXSTATEP+9, RXSTATEZ+7
    $$STATUS IBSEND+15
    IBSEND AUTOREL+44
    QCMOP CMOP+11, CMOP+13, CMOP+15, CMOP+17, CMOP+19, CMOP+21, CMOP+23, CMOP+29
    TRIC MANREL+22, MANREL+26

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    A CMOP+5~
    ACTION MANREL+6~, MANREL+11, MANREL+12*, MANREL+19*, MANREL+20, MANREL+21, MANREL+22, MANREL+24, MANREL+25*
    AUTO IBSEND~, IBSEND+20*, IBSEND+21, IBSEND+26
    CMOP CMOP+5~, CMOP+9*, CMOP+30*, QCMOP
    COB STATUS~, STATUS+6*, STATUS+7
    DFN CMOP+5~, CMOP+10*, RXSTATEP+5~, RXSTATEP+12*, RXSTATEZ+5~, RXSTATEZ+8*
    DRUG CMOP+5~, CMOP+13*, CMOP+15, CMOP+17
    DT SUBMIT+21, CMOP+11, CMOP+27
    DUZ IBSEND+21, IBSEND+30
    FILL RXQTY~, RXQTY+7*, RXQTY+8, RXQTY+9, RXDAYSUP~, RXDAYSUP+7*, RXDAYSUP+8, RXDAYSUP+9, RXPRV~, RXPRV+7
    , RXPRV+8, RXPRV+9, RXRPH~, RXRPH+6*, RXRPH+7, RXRPH+8, VALUE~, VALUE+10, VALUE+11, VALUE+12
    , VALUE+13
    HNG AUTOREL~, AUTOREL+12*, AUTOREL+32, AUTOREL+40
    IGCMP SUBMIT~, SUBMIT+15, SUBMIT+21
    IGRL SUBMIT~, SUBMIT+19
    MAIL CMOP+5~, CMOP+10*, CMOP+11
    MAILEXP CMOP+5~, CMOP+10*, CMOP+11
    MBMST RXSTATEP+5~, RXSTATEP+6*, RXSTATEP+8, RXSTATEP+11, RXSTATEZ+5~, RXSTATEZ+6*, RXSTATEZ+7, RXSTATEZ+8
    MW CMOP+5~, CMOP+25*, CMOP+27*, CMOP+29
    NDC AUTOREL~, AUTOREL+15, AUTOREL+24, AUTOREL+25, AUTOREL+27, AUTOREL+28, AUTOREL+30, AUTOREL+31, AUTOREL+34, AUTOREL+36
    , AUTOREL+38, AUTOREL+42, AUTOREL+44
    ORFLD VALUE~, VALUE+13
    OROK VALUE~, VALUE+13
    PID MANREL~, MANREL+19
    PRFLD VALUE~, VALUE+12
    PSOCLAIM IBSEND+29~*, IBSEND+30
    PSONDC IBSEND~, IBSEND+25*, IBSEND+26
    PSORELDT IBSEND+10~, IBSEND+24*, IBSEND+26
    PSOTRIC MANREL+17~*, MANREL+22, MANREL+26, TRIC+1
    RFFLD VALUE~, VALUE+11
    RFL STATUS~, STATUS+5*, STATUS+7, SUBMIT~, SUBMIT+8*, SUBMIT+10, SUBMIT+15, SUBMIT+17, SUBMIT+19, SUBMIT+21
    , CMOP~, CMOP+7*, CMOP+23, CMOP+25, CMOP+27, RXRLDT~, RXRLDT+8*, RXRLDT+9, RXRLDT+10, RXFLDT~
    , RXFLDT+7*, RXFLDT+8, RXFLDT+9, RXSUDT~, RXSUDT+9, RXSITE~, RXSITE+7*, RXSITE+8, RXSITE+9, RXSITE+10
    , RXSTATE~, RXSTATE+5, RXSTATEP~, RXSTATEP+9, RXSTATEZ~, RXSTATEZ+7, RXPRV+7*, MANREL~, MANREL+7*, MANREL+9
    , MANREL+11, MANREL+12, MANREL+14, MANREL+16, MANREL+17, MANREL+19, MANREL+24, MANREL+25, MANREL+26, AUTOREL~
    , AUTOREL+11*, AUTOREL+13, AUTOREL+15, AUTOREL+17, AUTOREL+20, AUTOREL+22, AUTOREL+25, AUTOREL+28, AUTOREL+31, AUTOREL+34
    , AUTOREL+38, AUTOREL+42, AUTOREL+44, IBSEND~, IBSEND+11*, IBSEND+13, IBSEND+15, IBSEND+21, IBSEND+24, IBSEND+26
    , IBSEND+29, RETRX~, RETRX+4*, RETRX+5
    RLDT AUTOREL~, AUTOREL+31, AUTOREL+38
    RSLT RXSTATEP+5~, RXSTATEP+7*, RXSTATEP+10*, RXSTATEP+12*, RXSTATEP+13, RXSTATEZ+5~
    RX ECME~, ECME+1, STATUS~, STATUS+5, STATUS+7, SUBMIT~, SUBMIT+8, SUBMIT+10, SUBMIT+12, SUBMIT+15
    , SUBMIT+17, SUBMIT+19, SUBMIT+21, CMOP~, CMOP+7, CMOP+10, CMOP+13, CMOP+19, CMOP+21, CMOP+23
    , CMOP+25, CMOP+27, RXRLDT~, RXRLDT+6, RXRLDT+7, RXRLDT+8, RXRLDT+9, RXRLDT+10, RXFLDT~, RXFLDT+5
    , RXFLDT+6, RXFLDT+7, RXFLDT+8, RXFLDT+9, RXSUDT~, RXSUDT+5, RXSUDT+7, RXSITE~, RXSITE+6, RXSITE+7
    , RXSITE+8, RXSITE+9, RXSITE+10, RXSTATE~, RXSTATE+5, RXSTATEP~, RXSTATEP+9, RXSTATEP+12, RXSTATEZ~, RXSTATEZ+7
    , RXSTATEZ+8, VALUE~, VALUE+10, VALUE+11, VALUE+12, VALUE+13, MANREL~, MANREL+7, MANREL+9, MANREL+11
    , MANREL+12, MANREL+14, MANREL+16, MANREL+17, MANREL+19, MANREL+24, MANREL+25, MANREL+26, AUTOREL~, AUTOREL+11
    , AUTOREL+13, AUTOREL+15, AUTOREL+17, AUTOREL+20, AUTOREL+22, AUTOREL+25, AUTOREL+28, AUTOREL+31, AUTOREL+34, AUTOREL+38
    , AUTOREL+42, AUTOREL+44, IBSEND~, IBSEND+11, IBSEND+13, IBSEND+15, IBSEND+21, IBSEND+24, IBSEND+26, IBSEND+29
    , RETRX~, RETRX+4, RETRX+5, RETRX+6
    RXDAYSUP RXDAYSUP+4~, RXDAYSUP+6*, RXDAYSUP+8*, RXDAYSUP+9*, RXDAYSUP+10
    RXFLDT RXFLDT+4~, RXFLDT+6*, RXFLDT+8*, RXFLDT+9*, RXFLDT+10
    RXIEN RXQTY~, RXQTY+5, RXQTY+6, RXQTY+7, RXQTY+8, RXQTY+9, RXDAYSUP~, RXDAYSUP+5, RXDAYSUP+6, RXDAYSUP+7
    , RXDAYSUP+8, RXDAYSUP+9, RXPRV~, RXPRV+6, RXPRV+7, RXPRV+8, RXPRV+9, RXPRV+10, RXRPH~, RXRPH+5
    , RXRPH+6, RXRPH+7, RXRPH+8, RXRPH+9
    RXNDC AUTOREL+10~, AUTOREL+13*, AUTOREL+30, AUTOREL+36
    RXPRV RXPRV+5~, RXPRV+8*, RXPRV+9*, RXPRV+10*, RXPRV+11
    RXQTY RXQTY+4~, RXQTY+6*, RXQTY+8*, RXQTY+9*, RXQTY+10
    RXRLDT RXRLDT+5~, RXRLDT+7*, RXRLDT+9*, RXRLDT+10*, RXRLDT+11
    RXRPH RXRPH+4~, RXRPH+7*, RXRPH+8*, RXRPH+9*, RXRPH+10
    SITE RXSITE+5~, RXSITE+8*, RXSITE+9*, RXSITE+10*, RXSITE+11, RXSTATE+4~, RXSTATE+5*, RXSTATE+6, RXSTATEP+5~, RXSTATEP+9*
    , RXSTATEP+10, RXSTATEZ+5~, RXSTATEZ+7*, AUTOREL+10~
    SRC AUTOREL~, AUTOREL+12*, AUTOREL+15, AUTOREL+20, AUTOREL+24, AUTOREL+27, AUTOREL+30, AUTOREL+36, AUTOREL+44
    STATE RXSTATEP~, RXSTATEP+6, RXSTATEZ~, RXSTATEZ+6
    STATUS SUBMIT+7~, SUBMIT+12*, SUBMIT+13, CMOP+5~, CMOP+21*, IBSEND+14~, IBSEND+15*, IBSEND+17, IBSEND+23, IBSEND+28
    STS AUTOREL~, AUTOREL+12*, AUTOREL+19
    SURFL RXSUDT+6~, RXSUDT+9*
    SURX RXSUDT+6~, RXSUDT+7*, RXSUDT+8, RXSUDT+9, RXSUDT+10
    VALUE VALUE+9~, VALUE+11*, VALUE+12*, VALUE+13*, VALUE+14
    >> VAPA(5 RXSTATEP+12, RXSTATEZ+8
    WARNS CMOP+5~, CMOP+17*
    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