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 |  Marked Items |  All
Print Page as PDF
Routine: PSOBPSU2

Package: Outpatient Pharmacy

Routine: PSOBPSU2


Information

PSOBPSU2 ;BIRM/MFR - BPS (ECME) Utilities 2 ;10/15/04

Source Information

Source file <PSOBPSU2.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 4 $$LSTRFL^PSOBPSU1  $$STATUS^PSOBPSUT  $$TRIC^PSOREJP1  AREC^PSOSUCH1  
VA Fileman 4 FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 1 ($$FMADD,$$FMTE,$$NOW)^XLFDT  
Pharmacy Data Management 1 ($$NCPDPQTY,NCPDPQTY)^PSSBPSUT  
Uncategorized 1 DUR1^BPSNCPD3  

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Outpatient Pharmacy 12 PSO293P1  PSO293PI  PSOBPSU1  PSOBPSUT  PSODAWUT  PSONDCUT  PSOORED2  PSOORED6  
PSOREJU3  PSORXVW  PSOSULB1  PSOSULBL  
CMOP 1 PSXRPPL2  

Entry Points

Name Comments DBIA/ICR reference
SHDTLOG(RX,RFL) ;
SHDT(RX,RFL) ;
MWC(RX,RFL) ; Returns whether a prescription is (M)ail, (W)indow or (C)MOP
  • ICR #4970
    • Status: Active
    • Usage: Controlled Subscription
    FIN ;
    ELIG(RX,RFL,PSOELIG) ;Stores eligibility flag
    DUR(RX,RFL) ;
  • ICR #4970
    • Status: Active
    • Usage: Controlled Subscription
    RXNUM(ECME) ; Returns the Rx number for a specific ECME number
  • ICR #4970
    • Status: Active
    • Usage: Controlled Subscription
    UPDFL(RXREC,SUB,INDT) ;update fill date with release date when NDC changes at CMOP and OPAI auto-release
    ECMENUM(RX) ; Returns the ECME number for a specific prescription
    ELOG(RESP) ; - due to size of PSOBPSU1 exceeding limit
    ; -Logs an ECME Activity Log if Rx Qty is different than Billing Qty
    RXACT(RX,RFL,COMM,TYPE,USR) ; - Add an Activity to the ECME Activity Log (PRESCRIPTION file)

    External References

    Name Field # of Occurrence
    DUR1^BPSNCPD3 DUR+7
    FILE^DICN RXACT+18
    ^DIE ELIG+2, ELIG+3, SHDTLOG+5, SHDTLOG+6, UPDFL+10, UPDFL+12
    $$GET1^DIQ MWC+10, MWC+11, MWC+15, MWC+17, MWC+24, RXNUM+12, SHDT+4, ELOG+4, ELOG+5, UPDFL+8
    , UPDFL+11
    ^DIR RXNUM+14
    $$LSTRFL^PSOBPSU1 MWC+7, RXACT+7, DUR+3, SHDTLOG+2, SHDT+2
    $$STATUS^PSOBPSUT ECMENUM+3, ECMENUM+6
    $$TRIC^PSOREJP1 RXACT+13
    AREC^PSOSUCH1 UPDFL+15
    $$NCPDPQTY^PSSBPSUT ELOG+6
    NCPDPQTY^PSSBPSUT ELOG+2
    $$FMADD^XLFDT DUR+6, SHDTLOG+3
    $$FMTE^XLFDT SHDTLOG+4
    $$NOW^XLFDT RXACT+18

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: RXNUM+12
    Function Call: WRITE
    • Prompt: !?5,I,". ",$$GET1^DIQ(52,FOUND(I),.01),?25,$$GET1^DIQ(52,FOUND(I),6)
    • Line Location: RXNUM+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: RXNUM+13
    Routine Call
    • DIE
    • Line Location:
      • ELIG+2
      • ELIG+3
      • SHDTLOG+5
      • SHDTLOG+6
      • UPDFL+10
      • UPDFL+12
    Routine Call
    • DIR
    • Line Location:
      • RXNUM+14

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
    52.01 GET1^DIQ
    52.1 GET1^DIQ
    ^PS(52.5 - [#52.5] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.5 - [#52.5] MWC+16
    ^PSRX - [#52] MWC+23, RXACT+11, ECMENUM+5, RXNUM+6, UPDFL+7, UPDFL+9, UPDFL+11, UPDFL+12*
    ^PSRX(999999999999 RXNUM+3
    ^VA(200 - [#200] RXACT+8

    Label References

    Name Line Occurrences
    $$ECMENUM RXNUM+6
    $$SHDT DUR+4
    RXACT SHDTLOG+7, ELOG+8
    SHDTLOG DUR+13

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    BLDU ELOG+3~, ELOG+6*, ELOG+8
    BLQTY ELOG+3~, ELOG+6*, ELOG+7, ELOG+8
    CMP MWC+22~*, MWC+23*, MWC+24
    CNT UPDFL+4~
    CODE DUR+1~, DUR+10*, DUR+12
    COM UPDFL+4~
    COMM RXACT~, RXACT+8*, RXACT+10, RXACT+14*, RXACT+17, SHDTLOG+1~, SHDTLOG+4*, SHDTLOG+7
    DA RXACT+15~, ELIG+1~, ELIG+2*, ELIG+3*, SHDTLOG+1~, SHDTLOG+5*, SHDTLOG+6*, UPDFL+4~, UPDFL+9*, UPDFL+10!
    , UPDFL+11*, UPDFL+14*
    DA(1 RXACT+16*, ELIG+3*, SHDTLOG+6*, UPDFL+11*, UPDFL+12
    DD RXACT+15~
    DEAD UPDFL+4~, UPDFL+5*
    DIC RXACT+15~, RXACT+16*
    DIC("DR" RXACT+17*
    DIC(0 RXACT+16*
    DIE ELIG+1~, ELIG+2*, ELIG+3*, SHDTLOG+1~, SHDTLOG+5*, SHDTLOG+6*, UPDFL+4~, UPDFL+9*, UPDFL+10!, UPDFL+12*!
    DINUM RXACT+15~
    DIR RXNUM+2~
    DIR("A" RXNUM+13*
    DIR("B" RXNUM+13*
    DIR(0 RXNUM+13*
    >> DIRUT RXNUM+14
    DLAYGO RXACT+15~, RXACT+16*
    DO RXACT+15~
    DR RXACT+15~, ELIG+2*, ELIG+3*, SHDTLOG+1~, SHDTLOG+5*, SHDTLOG+6*, UPDFL+4~, UPDFL+9*, UPDFL+12*
    DRUG ELOG+3~, ELOG+4*, ELOG+6
    DT DUR+6, SHDTLOG+3
    >> DTOUT UPDFL+13
    >> DUOUT UPDFL+13
    DUZ RXACT+7, RXACT+8, SHDTLOG+7, ELOG+8
    ECME RXNUM~, RXNUM+6
    ECMENUM ECMENUM+1~, ECMENUM+2*, ECMENUM+8
    EXDAT UPDFL+4~, UPDFL+6*, UPDFL+8, UPDFL+9, UPDFL+11, UPDFL+12
    FILE SHDT+1~, SHDT+3*, SHDT+4
    FOUND RXNUM+2~, RXNUM+4*, RXNUM+6*, RXNUM+8, RXNUM+9*, RXNUM+10*, RXNUM+12, RXNUM+13, RXNUM+14*, RXNUM+15*
    , RXNUM+17
    FOUND( RXNUM+6*, RXNUM+12, RXNUM+15
    FOUND(1 RXNUM+10
    I RXNUM+2~, RXNUM+12*, DUR+10*
    IDX DUR+1~, DUR+2*, DUR+8*, DUR+9
    IENS SHDT+1~, SHDT+3*, SHDT+4
    II UPDFL+4~, UPDFL+7*
    INDT UPDFL~, UPDFL+6
    LFT RXNUM+2~, RXNUM+3*, RXNUM+5
    MAX RXNUM+2~, RXNUM+3*
    MWC MWC+5~, MWC+10*, MWC+11*, MWC+12*, MWC+17*, MWC+18*, MWC+21, MWC+23, MWC+24*, MWC+26
    OFILLD UPDFL+4~, UPDFL+8*, UPDFL+11*
    OLD UPDFL+4~, UPDFL+9*, UPDFL+11*
    PSOELIG ELIG~, ELIG+2, ELIG+3
    PSOTRIC RXACT+13~*, RXACT+14, ELIG+1~
    PSOX UPDFL+4~
    RAD RXNUM+2~, RXNUM+5*, RXNUM+6
    REJ DUR+1~, DUR+7
    REJ( DUR+8, DUR+9
    RESP ELOG~, ELOG+2
    RF ECMENUM+1~, ECMENUM+5*, ECMENUM+6, UPDFL+4~
    RFCNT UPDFL+4~
    RFL MWC~, MWC+7*, MWC+10, MWC+24, RXACT~, RXACT+7*, RXACT+13, RXACT+17, ELIG~, ELIG+2
    , ELIG+3, DUR~, DUR+3*, DUR+4, DUR+7, DUR+13, SHDTLOG~, SHDTLOG+2*, SHDTLOG+5, SHDTLOG+6
    , SHDTLOG+7, SHDT~, SHDT+2*, SHDT+3, ELOG+5, ELOG+8
    RX MWC~, MWC+7, MWC+10, MWC+11, MWC+15, MWC+16, MWC+23, MWC+24, RXACT~, RXACT+7
    , RXACT+11, RXACT+13, RXACT+16, ECMENUM~, ECMENUM+2, ECMENUM+3, ECMENUM+5, ECMENUM+6, RXNUM+2~, RXNUM+6*
    , ELIG~, ELIG+2, ELIG+3, DUR~, DUR+3, DUR+4, DUR+7, DUR+13, SHDTLOG~, SHDTLOG+2
    , SHDTLOG+5, SHDTLOG+6, SHDTLOG+7, SHDT~, SHDT+2, SHDT+3, ELOG+4, ELOG+5, ELOG+8
    RXNUM RXNUM+2~
    RXQTY ELOG+3~, ELOG+5*, ELOG+6, ELOG+7
    RXREC UPDFL~, UPDFL+7, UPDFL+8, UPDFL+9, UPDFL+11, UPDFL+12, UPDFL+14
    RXS MWC+16~*, MWC+17
    SFN UPDFL+4~, UPDFL+5*
    SHCODE DUR+1~, DUR+11*, DUR+12
    SHDT DUR+1~, DUR+4*, DUR+6, DUR+13, SHDTLOG+1~, SHDTLOG+3*, SHDTLOG+4, SHDTLOG+5, SHDTLOG+6
    SHOLD DUR+1~, DUR+2*, DUR+8, DUR+10, DUR+11, DUR+13*, DUR+14
    STS ECMENUM+1~, ECMENUM+3*, ECMENUM+4, ECMENUM+5, ECMENUM+6*, ECMENUM+7
    SUB UPDFL~, UPDFL+4~, UPDFL+7*, UPDFL+8, UPDFL+11
    TXT DUR+1~, DUR+9*, DUR+10
    TYPE RXACT~, RXACT+17
    USR RXACT~, RXACT+7*, RXACT+8*, RXACT+17
    X RXACT+15~, RXACT+18*, ELIG+1~, UPDFL+4~, UPDFL+9*, UPDFL+11*
    XOK UPDFL+4~
    Y RXACT+15~, RXNUM+15, ELIG+1~
    Z ELOG+3~, ELOG+6*

    Marked Items

    Name Field # of Occurrence
    $T(NCPDPQTY^PSSBPSUT ELOG+2
    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 |  Marked Items |  All