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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSORXL

Package: Outpatient Pharmacy

Routine: PSORXL


Information

PSORXL ;BHAM ISC/SAB - action to be taken on prescriptions ;10/15/08 2:12pm

Source Information

Source file <PSORXL.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Outpatient Pharmacy 12 DEVBAR^PSOBMST  (A,RXL)^PSOCMOP  H^PSOCPTRH  (DEV,RESDIR)^PSOCPTRI  ^PSODSPL  ($$DEFPRT,$$MGONFILE,$$SELPRT)^PSOFDAUT  (FLD,NOOR)^PSOHLD  $$ADDCHK^PSOHLDS  
(AL,DQ1)^PSOLBL  DQ^PSOPRF  (ECME,S,SUS)^PSORXL1  (PPLADD,RESET)^PSOSUPOE  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$DT^XLFDT  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Integrated Billing 1 ($$CHPUS,$$TRI)^IBACUS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
Outpatient Pharmacy 18 PSOBBC  PSOCAN2  PSOCMOPA  PSOHLD  PSON52  PSOORFIN  PSOPRF  PSOPRFSS  
PSOR52  PSORN52  PSORX1  PSORXEDT  PSORXL1  PSOSUPAT  PSOSUPRX  PSOTPRX1  
PSOVER  PSOVER1  
CMOP 2 PSXOPUTL  PSXRPPL  

Entry Points

Name Comments DBIA/ICR reference
LBL ;
TRI ;Tricare
SETP
PASS ;
EX
Q
Q1
Q2 ; Checking FDA Med Guide printer
QLBL
  • ICR #1969
    • Status: Active
    • Usage: Private
    PLBL
    QPRF
    QUEUP
    S
    SUS
    SUSL1
    H1
    H
    D1
  • ICR #1969
    • Status: Active
    • Usage: Private
    RXS
    RXSQUIT
    P
    P1
    RXSQ
    FDARX(PPL) ; Check if any Rx to be printed has an FDA Med Guide
    RSAVE
    RREST
    OPAI ;This section of code will display where an RX is routed.
    SETOP(DINF,DRX,DDRG) ; Set OPAI array
    RTE() ; get route for RX

    External References

    Name Field # of Occurrence
    ^%ZIS Q1, PLBL+1, P+1, P+2, P1+1, P1+2
    ^%ZISC Q1+6, QLBL+11, QPRF+2, P1, P1+2
    ^%ZTLOAD QLBL+11, QPRF+2
    ^DIC OPAI+13
    $$GET1^DIQ LBL+3, Q2+1, OPAI+16, OPAI+38
    ^DIR PASS+3, RXS+4
    $$CHPUS^IBACUS TRI+14, SUS+8
    $$TRI^IBACUS TRI+2, SUS+1
    DEVBAR^PSOBMST Q1+4, P+3
    A^PSOCMOP PASS+9
    RXL^PSOCMOP QLBL
    H^PSOCPTRH SUS+12
    DEV^PSOCPTRI TRI+5, SUS+4
    RESDIR^PSOCPTRI PASS+1
    ^PSODSPL PASS+10
    $$DEFPRT^PSOFDAUT LBL+4
    $$MGONFILE^PSOFDAUT FDARX+5
    $$SELPRT^PSOFDAUT Q2+5
    FLD^PSOHLD H1+3
    NOOR^PSOHLD H1+1
    $$ADDCHK^PSOHLDS OPAI+29, OPAI+39
    AL^PSOLBL PASS+4
    DQ1^PSOLBL P1
    DQ^PSOPRF P1+2
    ECME^PSORXL1 LBL+1, QLBL+3
    S^PSORXL1 S
    SUS^PSORXL1 SUSL1
    PPLADD^PSOSUPOE PASS+8, RXS+1
    RESET^PSOSUPOE RXS+4
    $$DT^XLFDT TRI+8, SUS+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: LBL+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: PASS+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: Q1+0
    Function Call: WRITE
    • Prompt: $C(7),!,"You must select a valid FDA Medication Guide printer."
    • Line Location: Q2+6
    Function Call: WRITE
    • Prompt: !!,"No Label(s) printed.",!!
    • Line Location: QLBL+3
    Function Call: WRITE
    • Prompt: !!,"LABEL(S) QUEUED TO PRINT",!!
    • Line Location: QLBL+13
    Function Call: WRITE
    • Prompt: $C(7),!,"PROFILES MUST BE SENT TO PRINTER !!",!
    • Line Location: PLBL+1
    Function Call: WRITE
    • Prompt: $P(^PSRX($P(SPPL,",",I),0),"^")_", "
    • Line Location: H+4
    Function Call: WRITE
    • Prompt: !!,"You have selected the following Rx(s) to be pulled from suspense:",!
    • Line Location: RXS+2
    Function Call: WRITE
    • Prompt: !," Rx # ",$P($G(^PSRX(+$G(RXSS),0)),"^"),?23,$P($G(^PSDRUG(+$P($G(^PSRX(+$G(RXSS),0)),"^",6),0)),"^")
    • Line Location: RXS+3
    Function Call: WRITE
    • Prompt: !!,"Rx(s) will remain in Suspense!",!
    • Line Location: RXS+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: P+1
    Function Call: WRITE
    • Prompt: !,"PRESCRIPTIONS SENT TO:"
    • Line Location: OPAI+49
    Function Call: WRITE
    • Prompt: !?3,DEV
    • Line Location: OPAI+50
    Function Call: WRITE
    • Prompt: !
    • Line Location: OPAI+50
    Function Call: WRITE
    • Prompt: !?5,RX,?20,$P(OPAI(DEV,RX),"^")
    • Line Location: OPAI+51
    Function Call: WRITE
    • Prompt: !,"STORAGE DEVICES"
    • Line Location: OPAI+52
    Function Call: WRITE
    • Prompt: !?3,II
    • Line Location: OPAI+53
    Routine Call
    • %ZIS
    • Line Location:
      • Q1
      • PLBL+1
      • P+1
      • P+2
      • P1+1
      • P1+2
    Routine Call
    • DIC
    • Line Location:
      • OPAI+13
    Routine Call
    • DIR
    • Line Location:
      • PASS+3
      • RXS+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    ^PS(59 - [#59] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" TRI+1, SUS
    ^PS(59 - [#59] OPAI+14, OPAI+27, OPAI+28
    ^PSDRUG - [#50] RXS+3, OPAI+37, OPAI+55
    ^PSRX - [#52] TRI+9, TRI+10, TRI+11, Q+2, SUS+6, SUS+7, H+1, H+2, H+4, RXS+3
    , OPAI+36, OPAI+55, RTE+3, RTE+4, RTE+6, RTE+7, RTE+8
    ^TMP($J TRI+6!, TRI+13*, TRI+14*, TRI+15!, TRI+16, SETP, SETP+5!, H1+1, H1+2, H+1
    , RXSQUIT!
    ^XUSEC("PSO TECH ADV" LBL+6, PASS+2
    ^XUSEC("PSORPH" LBL+6, PASS+2

    Label References

    Name Line Occurrences
    $$FDARX Q2+1
    $$RTE OPAI+36
    @( PASS+7, H+1, D1
    D1 PASS+9, Q, QLBL, QUEUP, H1+3, H, P, P1+1, P1+2
    EX PASS+3
    H H1+2
    H1 TRI+16, SETP+4, PASS+10
    LBL PASS+7, PASS+10, Q1+3, Q2+7, H1+3, P+1
    OPAI QLBL+14
    P PSORXL+6, PASS+10
    PASS TRI+1, TRI+2, TRI+3, TRI+15
    PLBL PLBL+1
    PSORXL H1+1
    Q PASS+10, H+5, RXS
    Q2 Q+3
    QLBL Q2+1, Q2+2
    QUEUP QLBL+17, PLBL+1
    RREST SETP+4
    RSAVE SETP+4
    RXS EX, RXSQ
    RXSQ Q1+1
    RXSQUIT LBL+1, EX, Q1+1, Q1+3, QLBL+3, QLBL+16, QUEUP
    S PASS+10
    SETOP OPAI+40, OPAI+41, OPAI+43, OPAI+44, OPAI+46
    SETP SETP+4
    SUSL1 SUS, SUS+1, SUS+2, SUS+9

    Naked Globals

    Name Field # of Occurrence
    ^( RTE+3
    ^("STA" H+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % RXSQUIT!
    %DT RXSQUIT!
    %ZIS Q1*, PLBL+1!*, P+1*, P1+1*
    %ZIS("A" Q1*!, PLBL+1*!, P+1*!, P1+1*!
    %ZIS("B" PASS+7!, Q1*
    ACT EX!, SUS+11~, RXSQUIT!
    ADD OPAI+10~
    ADD( OPAI+31*, OPAI+32*, OPAI+43, OPAI+44, OPAI+46
    ADD("A" OPAI+41
    ADD("S" OPAI+49, OPAI+52, OPAI+53
    BBFLG EX!
    BBRX EX!
    BINGCRT EX!
    BINGRTE EX!
    COUNT RXSQUIT!
    CSB OPAI+10~, OPAI+42*, OPAI+43, OPAI+44
    >> DA SUS+1*, SUS+2*, SUS+9*, SUS+12*, H+1*, H+2
    DAT OPAI+10~, OPAI+28*, OPAI+29, OPAI+31, OPAI+32
    DAT1 OPAI+10~, OPAI+29*, OPAI+30, OPAI+31, OPAI+32, OPAI+39*, OPAI+40
    DDEV OPAI+10~, OPAI+37*, OPAI+39
    DDRG SETOP~, SETOP+2
    DEV OPAI+10~, OPAI+14*, OPAI+27*, OPAI+28, OPAI+50*, OPAI+51
    >> DFN PASS+10
    DG QLBL+6, QLBL+16, H+5*!
    DIC OPAI+10~, OPAI+13*!
    DIC(0 OPAI+13*
    DINF SETOP~, SETOP+2
    DIR PASS+10!, EX!, H1+3!, RXS+4!, RXSQUIT!
    DIR("?" LBL+7*, LBL+8*, LBL+9*, LBL+10*
    DIR("A" LBL+2*, LBL+5*, LBL+6*, PASS+1, RXS+4*
    DIR("B" PASS+3*, RXS+4*
    DIR(0 PASS+2*, PASS+3*, RXS+4*
    DIROUT RXSQUIT!
    DIRUT PASS+3, PASS+4, PASS+5, EX!, H1+1!, H1+3!, RXSQUIT!
    DNAM SETOP+1~, SETOP+2*
    DRG OPAI+10~, OPAI+36*, OPAI+37, OPAI+38, OPAI+55*, OPAI+56
    DRG0 OPAI+10~, OPAI+37*, OPAI+40, OPAI+41, OPAI+42, OPAI+43, OPAI+44, OPAI+46
    DRX SETOP~, SETOP+2
    DT TRI+8*, TRI+14, SUS+5*, SUS+8
    DTOUT EX!, H, RXSQUIT!
    DUOUT PASS+3, PASS+4, PASS+5, EX!, H1+3!, RXSQUIT!
    DUZ LBL+6, TRI+10, PASS+2, QLBL+5, SUS+6, P1
    EXDT RXSQUIT!
    FDA SUS+11~
    FDAPRT Q2+3~*, Q2+4, Q2+5*, Q2+6, Q2+7, Q2+8
    FDARX FDARX+1~*, FDARX+2, FDARX+5*, FDARX+6
    FDARXIEN FDARX+1~, FDARX+3*, FDARX+4, FDARX+5
    FLD H1+3!, RXSQUIT!
    FLD( SUS+10*, H1+2*
    FLD(99 SUS+10*, H1+2*
    FLG OPAI+10~, OPAI+14*, OPAI+47*, OPAI+48, SETOP+2*
    FP RTE+1~, RTE+2*, RTE+6, RTE+7, RTE+8
    FPN RTE+1~, RTE+5*, RTE+6, RTE+7, RTE+8
    G QLBL+7*, QLBL+8*, QLBL+9*, QLBL+16!, QPRF+1*, QPRF+2!
    GGG TRI+4~, TRI+11*, SUS+3~, SUS+7*
    HOLDRPAS QLBL+17*, QUEUP!
    I SUS+11~, H+4*, FDARX+1~, FDARX+2*, FDARX+3
    II OPAI+10~, OPAI+34*, OPAI+52*, OPAI+53*, OPAI+54*
    IO Q1+3
    IO("Q" PLBL+1!
    IO(0 Q1+3
    ION Q+3, Q1, Q1+3, PLBL, PLBL+1, P+1, P1+1
    IOP PLBL+1!, P+2*, P1+2*
    >> IOS Q1+4, P+3
    IOST PLBL+1
    IR SUS+11~
    L RXSQUIT!
    LBL TRI+16*, SETP+4*, PASS+9*, PASS+10*, D1, RXSQUIT!
    LRF RTE+1~, RTE+3*, RTE+4*, RTE+5
    MTH OPAI+11~, OPAI+45*, OPAI+46
    MW RTE+1~, RTE+6*, RTE+7*, RTE+8*, RTE+9
    >> NOBG EX*
    >> NOPP PASS+6*
    NOW SUS+11~
    NPPL OPAI+11~, OPAI+33*, OPAI+39*, OPAI+54
    OPAI OPAI+10~, OPAI+49, OPAI+53
    OPAI( OPAI+50, OPAI+51, SETOP+2*
    OPAIO QLBL+5*, QLBL+15!, OPAI+12, OPAI+13
    PBILL TRI+4~, TRI+14*, SUS+3~, SUS+8*, SUS+9
    PDAT OPAI+10~, OPAI+36*, OPAI+40, OPAI+41, OPAI+43, OPAI+44, OPAI+46, OPAI+55*, OPAI+56
    PDUZ QLBL+5*, QLBL+16!, RXSQUIT!, P1*
    PI H*, H+1, RXSQUIT!
    PMX RSAVE~, RSAVE+1*, RSAVE+2*, RSAVE+3*
    PMXZ RREST~, RREST+1*, RREST+2*, RREST+3*
    PN OPAI+10~, OPAI+14*, OPAI+27, OPAI+28
    POP Q1!, Q1+1, Q1+3, PLBL+1!, QUEUP, P+1!, P1+1
    PPL PSORXL+4!, PSORXL+6*, LBL+1*, SETP!, SETP+5*, PASS+9, EX!, Q, Q2+1, QLBL
    , QLBL+3, H1*, H1+3, H, H+1, H+5*, D1*, RXS, RXS+1!, RXS+2
    , RXS+4!, RXSQUIT!, P*, FDARX~, FDARX+2, FDARX+3, OPAI+12, OPAI+34
    PPL1 PASS+9*, Q*, H1*, D1*, RXSQUIT!, P*
    PSDA SUS+11~
    PSDFN PASS+10*!
    PSFROM PASS+10*!
    >> PSL Q*, Q1+6*
    >> PSLION LBL+2, Q1*, QLBL+5
    >> PSNP Q*, Q+2*, QLBL+17, QUEUP*
    >> PSOBAR0 Q1+5, P1
    >> PSOBAR1 Q1+5, P1
    >> PSOBARS Q1+5*, P1*
    >> PSOBEDT PASS+6
    PSOCKDC LBL+1~*
    PSOCLBL PASS+7!*
    >> PSOEXREP TRI+3, PASS+4, PASS+9, Q2+1, Q2+2, QLBL, QLBL+12, QPRF+2
    >> PSOEXREX PASS+4*
    >> PSOFDAPT LBL+4*, LBL+5, Q2+1, Q2+5, Q2+8*
    >> PSOFROM Q, P1+1
    PSOHSAVE SETP+4!
    PSOHSAVE( RSAVE+3*, RREST+3
    >> PSOION PLBL*, PLBL+1, P1+1*
    PSOIOS Q1+4~*, P+3~*
    PSOKLRXS PSORXL+5~, SETP+4*!, RXS, RXSQUIT
    >> PSOLAP LBL+2, TRI+14, Q+3, Q1+3*, QLBL+5, SUS+8, P+1*, P+2
    >> PSOMGREP Q2+1, Q2+2
    >> PSONOPRT Q+1, Q1+1, QUEUP
    >> PSOPAR PSORXL+6, LBL+6, LBL+10, PASS+2, PASS+3, PASS+7, Q, Q+1, Q1+5, QLBL+17
    , P1, P1+1, OPAI+15, OPAI+38
    >> PSOPRFLG QLBL+17
    >> PSOPROP PLBL+1*, QPRF, P1+1*, P1+2
    PSOPRPAS QLBL+17*, QUEUP*!
    PSOPSAVE SETP+4!
    PSOPSAVE( RSAVE+2*, RREST+2
    >> PSOPULL PASS+5, PASS+8, PASS+9, PASS+10
    >> PSOQFLAG PASS+5*, Q1+2*, Q1+3, QLBL+3*, QUEUP, QUEUP+1*
    PSORSAVE SETP+4!
    PSORSAVE( RSAVE+1*, RREST+1
    >> PSORX("PSOL" PSORXL+4*, PSORXL+6, TRI+3, TRI+7, SETP!, SETP+1*, SETP+2*, SETP+3*, SETP+5, H1
    , D1, RXS+1!, P
    >> PSOSITE LBL+3, LBL+4, TRI+10, Q2+1, SUS+6, OPAI+14, OPAI+16, OPAI+27, OPAI+28, OPAI+37
    PSOSKIP PSORXL+5~*, Q2+1
    PSOSONE PSORXL+5~, Q1+1, QLBL+11, RXS+1*
    >> PSOSUREP TRI+3
    >> PSOTIME QLBL+5, QPRF
    >> PSOTRVV PSORXL+4
    >> PSPARTXX Q1+1, QLBL+16
    PSTRD TRI+4~, TRI+10*, TRI+14, SUS+3~, SUS+6*, SUS+8
    PSTRDZ TRI+4~, TRI+10*, TRI+14, SUS+3~, SUS+6*, SUS+8
    PSTRF TRI+4~, TRI+11*, TRI+14, SUS+3~, SUS+7*, SUS+8
    PSTRIVAR TRI+4~, SETP, SETP+4*
    PSTRP TRI+4~, TRI+10*, TRI+14, SUS+3~, SUS+6*, SUS+8
    PSUS SUS+11~
    >> PSXSYS PASS+9, QLBL
    REF RXSQUIT!
    REPRINT EX!, RXSQUIT!, P1+1
    RFDATE RXSQUIT!
    RFL1 RXSQUIT!
    RFLL RXSQUIT!
    RFN SUS+11~
    RSDT SUS+11~
    RTE OPAI+10~, OPAI+36*, OPAI+39, OPAI+44, OPAI+45
    RX OPAI+10~, OPAI+34*, OPAI+35, OPAI+36, OPAI+39, OPAI+51*, OPAI+54*, OPAI+55, RTE+2, RTE+3
    , RTE+4, RTE+5, RTE+6, RTE+7, RTE+8
    RXF SUS+11~
    >> RXFL( RTE+4
    RXLTOP PASS+9*, QLBL, D1!
    RXN RXSQUIT!
    >> RXPR( TRI+13, Q+2, SUS+2, RSAVE+2, RREST+2*, RTE+2, RTE+3, RTE+4, RTE+5
    RXRH RXSQUIT!
    RXRH( TRI+13, SUS+2, RSAVE+3, RREST+3*
    RXRP RXSQUIT!
    RXRP( TRI+13, SUS+2, FDARX+4, RSAVE+1, RREST+1*, OPAI+35, OPAI+55
    RXRS PASS+8, EX, QLBL+11!, RXS, RXS+4!, RXSQUIT!, RXSQ!
    RXRS( Q+2, RXS+3
    RXSS RXS+3*, RXSQUIT!
    SD RXSQUIT!
    SLBL PSORXL+5~, PASS+9*, PASS+10*, EX*, RXS
    >> SLPPL Q+2*
    SPPL H!*, H+2*, H+3, H+4, H+5!
    >> SUSPT LBL+2, QLBL+5, QLBL+6, QLBL+7, QLBL+12, QLBL+16, QPRF, QPRF+2
    TRIDA SUS+1~*, SUS+2, SUS+6, SUS+7, SUS+8, SUS+9, SUS+12
    TRIRX TRI+4~, SETP*, SETP+1, SETP+2, SETP+3
    TRXI TRI+4~, TRI+7*, TRI+9, TRI+10, TRI+11, TRI+13, TRI+14
    VV TRI+4~, TRI+7*, SETP*
    VVCT TRI+4~, TRI+7*, TRI+12*, TRI+13, TRI+14, SETP*, SETP+2, SETP+3*
    VVV TRI+4~, TRI+7*
    WARN RXSQUIT!
    X TRI+1*!, EX!, SUS*!, RXSQUIT!, OPAI+10~, OPAI+13*!
    XX RTE+1~, RTE+3*
    Y TRI+16*, SETP+4*, PASS+6, PASS+7, PASS+8, PASS+9, PASS+10, EX!, RXS+4, RXSQUIT!
    , OPAI+10~, OPAI+13
    ZD RXSQUIT!
    >> ZTDESC QLBL+6*, QPRF*
    >> ZTDTH QLBL+5*, QPRF*
    ZTIO QLBL+5*, QPRF*, OPAI+11~, OPAI+13*, OPAI+14
    >> ZTRTN QLBL+5*, QPRF*
    >> ZTSAVE( QLBL+7*, QLBL+8*, QLBL+9*, QPRF+1*
    >> ZTSAVE("PCOMH(" QLBL+10*
    >> ZTSAVE("PSORX(" QLBL+10*
    >> ZTSAVE("RXFL(" QLBL+10*
    >> ZTSAVE("RXPR(" QLBL+10*
    >> ZTSAVE("RXRP(" QLBL+10*
    >> ZTSAVE("RXRS(" QLBL+10*
    ZTSK QLBL+12, QLBL+16!, QPRF+2!, P+1!
    ZY RXSQUIT!
    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 |  Naked Globals |  Local Variables  | All