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 ;28-Mar-2013 16:45;DU

Source Information

Source file <PSORXL.m>

Call Graph

Call Graph Total: 21

Package Total Call Graph
Outpatient Pharmacy 10 DEVBAR^PSOBMST  (A,RXL)^PSOCMOP  H^PSOCPTRH  (DEV,RESDIR)^PSOCPTRI  ^PSODSPL  (FLD,NOOR)^PSOHLD  AL^PSOLBL  DQ^PSOPRF  
(ECME,S,SUS)^PSORXL1  (PPLADD,RESET)^PSOSUPOE  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$DT^XLFDT  
IHS Changes To Pharmacy 3 (APRTY,BPPLARY,CHKFDT)^APSPFUNC  DQ1^APSPLBL  ^APSPNE4  
VA Fileman 3 YN^DICN  $$GET1^DIQ  ^DIR  
Integrated Billing 1 ($$CHPUS,$$TRI)^IBACUS  

Caller Graph

Caller Graph Total: 25

Package Total Caller Graph
Outpatient Pharmacy 20 PSOBBC  PSOCAN2  PSOCMOPA  PSOHLD  PSON52  PSOORFIN  PSOPRF  PSOPRFSS  
PSOR52  PSORN52  PSORX1  PSORXEDT  PSORXL1  PSORXRP2  PSORXRPT  PSOSUPAT  
PSOSUPRX  PSOTPRX1  PSOVER  PSOVER1  
IHS Changes To Pharmacy 3 APSPHLD  APSPNE4  APSPRIS  
CMOP 2 PSXOPUTL  PSXRPPL  

Entry Points

Name Comments DBIA/ICR reference
Q1
QUEUP
SAVEPRI(RXS) ;EP-
SUS
RXSQ
PZ
PLBL
SUSL1
QPRF
SETP
LBL ;
TRI ;Tricare
P1 ; IHS/CIA/PLS - 12/23/03 - Call IHS Label routine
H
Q
P
S
EX
PASS ;
RXS
RREST
H1
QLBL
  • ICR #1969
    • Status: Active
    • Usage: Private
    RSAVE
    D1
  • ICR #1969
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    ^%ZIS Q1, PLBL+1, P+1, PZ, P1+3, P1+4
    ^%ZISC Q1+4, QLBL+13, QPRF+2, P1+2, P1+4
    ^%ZTLOAD QLBL+13, QPRF+2
    APRTY^APSPFUNC PSORXL+10
    BPPLARY^APSPFUNC SAVEPRI+3
    CHKFDT^APSPFUNC PSORXL+16
    DQ1^APSPLBL P1+2
    ^APSPNE4 PSORXL+15
    YN^DICN PZ+1
    $$GET1^DIQ PSORXL+15
    ^DIR PASS+2, RXS+4
    $$CHPUS^IBACUS TRI+14, SUS+8
    $$TRI^IBACUS TRI+2, SUS+1
    DEVBAR^PSOBMST Q1+2, PZ+2
    A^PSOCMOP PASS+8
    RXL^PSOCMOP QLBL
    H^PSOCPTRH SUS+12
    DEV^PSOCPTRI TRI+5, SUS+4
    RESDIR^PSOCPTRI PASS+1
    ^PSODSPL PASS+9
    FLD^PSOHLD H1+3
    NOOR^PSOHLD H1+1
    AL^PSOLBL PASS+3
    DQ^PSOPRF P1+4
    ECME^PSORXL1 LBL+1, QLBL+3
    S^PSORXL1 S
    SUS^PSORXL1 SUSL1
    PPLADD^PSOSUPOE PASS+7, 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+9
    Function Call: WRITE
    • Prompt: !
    • Line Location: Q1+0
    Function Call: WRITE
    • Prompt: !!,"No Label(s) printed.",!!
    • Line Location: QLBL+3
    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: !,"The label printer is busy, do you want to wait? "
    • Line Location: PZ+1
    Routine Call
    • DIR
    • Line Location:
      • PASS+2
      • RXS+4
    Routine Call
    • %ZIS
    • Line Location:
      • Q1
      • PLBL+1
      • P+1
      • PZ
      • P1+3
      • P1+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^APSPCTRL - [#9009033] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" TRI+1, SUS
    ^PSDRUG - [#50] RXS+3
    ^PSRX - [#52] TRI+9, TRI+10, TRI+11, Q+2, SUS+6, SUS+7, H+1, H+2, H+4, RXS+3
    , SAVEPRI+6, SAVEPRI+9*, SAVEPRI+11*
    ^TMP($J TRI+6!, TRI+13*, TRI+14*, TRI+15!, TRI+16, SETP, SETP+5!, H1+1, H1+2, H+1
    , RXS+5!

    Label References

    Name Line Occurrences
    @( PASS+6, H+1, D1
    D1 PASS+8, Q, QLBL, QUEUP, H1+3, H, P, P1+3, P1+4
    EX PASS+2
    H H1+2
    H1 TRI+16, SETP+4, PASS+9
    LBL PASS+6, PASS+9, Q1, H1+3, P+1
    P PASS+9
    PASS TRI+1, TRI+2, TRI+3, TRI+15
    PLBL PLBL+1
    PSORXL H1+1
    PZ PZ+1
    Q PASS+9, H+5, RXS
    QLBL Q+3
    QUEUP QLBL+15, PLBL+1
    RREST SETP+4
    RSAVE SETP+4
    RXS EX, RXSQ
    RXSQ Q1
    S PASS+9
    SAVEPRI PSORXL+14
    SETP SETP+4
    SUSL1 SUS, SUS+1, SUS+2, SUS+9

    Naked Globals

    Name Field # of Occurrence
    ^("STA" H+1
    ^(1 SAVEPRI+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % RXS+5!, PZ+1*!
    %DT RXS+5!
    %Y PZ+1!
    %ZIS Q1*, PLBL+1!*, P+1*, P1+3*
    %ZIS("A" Q1*!, PLBL+1*!, P+1*!, P1+3*!
    %ZIS("B" PASS+6!, Q1*
    ACT EX!, SUS+11~, RXS+5!
    APSPPRIO PSORXL+9~, SAVEPRI+9, SAVEPRI+11
    BBFLG EX!
    BBRX EX!
    BINGCRT EX!
    BINGRTE EX!
    COUNT RXS+5!
    >> DA SUS+1*, SUS+2*, SUS+9*, SUS+12*, H+1*, H+2
    >> DFN PASS+9
    DG QLBL+7, QLBL+14, H+5*!
    DIR PASS+9!, EX!, H1+3!, RXS+4!, RXS+5!
    DIR("?" LBL+4*, LBL+5*, LBL+6*, LBL+7*
    DIR("A" LBL+2*, LBL+3*, PASS+1, RXS+4*
    DIR("B" PASS+2*, RXS+4*
    DIR(0 PASS+2*, RXS+4*
    DIROUT RXS+5!
    DIRUT PASS+2, PASS+3, PASS+4, EX!, H1+1!, H1+3!, RXS+5!
    DT TRI+8*, TRI+14, SUS+5*, SUS+8
    DTOUT EX!, H, RXS+5!
    DUOUT PASS+2, PASS+3, PASS+4, EX!, H1+3!, RXS+5!
    DUZ TRI+10, QLBL+7, SUS+6, P1+2
    EXDT RXS+5!
    FDA SUS+11~
    FLD H1+3!, RXS+5!
    FLD( SUS+10*, H1+2*
    FLD(99 SUS+10*, H1+2*
    G QLBL+8*, QLBL+10*, QLBL+14!, QPRF+1*, QPRF+2!
    GGG TRI+4~, TRI+11*, SUS+3~, SUS+7*
    HOLDRPAS QLBL+15*, QUEUP!
    I SUS+11~, H+4*
    IO Q1
    IO("Q" PLBL+1!
    IO(0 Q1
    ION Q+3, Q1, PLBL, PLBL+1, P+1, P1+3
    IOP PLBL+1!, PZ*, P1+4*
    >> IOS Q1+2, PZ+2
    IOST PLBL+1
    IR SUS+11~
    L RXS+5!
    LBL TRI+16*, SETP+4*, PASS+8*, PASS+9*, D1, RXS+5!
    LFN SAVEPRI+1~, SAVEPRI+7*, SAVEPRI+8, SAVEPRI+9
    >> NOBG EX*
    >> NOPP PASS+5*
    NOW SUS+11~
    PBILL TRI+4~, TRI+14*, SUS+3~, SUS+8*, SUS+9
    PDUZ QLBL+7*, QLBL+14!, RXS+5!, P1+2*
    PI H*, H+1, RXS+5!
    PMX RSAVE~, RSAVE+1*, RSAVE+2*, RSAVE+3*
    PMXZ RREST~, RREST+1*, RREST+2*, RREST+3*
    POP Q1!, PLBL+1!, QUEUP, P+1!, PZ+1!, P1+3
    PPL PSORXL+7!, PSORXL+13*, PSORXL+14, PSORXL+16, PSORXL+17, LBL+1*, SETP!, SETP+5*, PASS+8, EX!
    , Q, QLBL, QLBL+3, H1*, H1+3, H, H+1, H+5*, D1*, RXS
    , RXS+1!, RXS+2, RXS+4!, RXS+5!, P*
    PPL1 PASS+8*, Q*, H1*, D1*, RXS+5!, P*
    PPLARY SAVEPRI+1~
    PPLARY( SAVEPRI+5
    PSDA SUS+11~
    PSDFN PASS+9*!
    PSFROM PASS+9*!
    >> PSL Q*, Q1+4*
    >> PSLION LBL+2, Q1*, QLBL+7
    >> PSMX RREST+3*
    >> PSNP Q*, Q+2*, QLBL+15, QUEUP*
    >> PSOBAR0 Q1+3, P1+2
    >> PSOBAR1 Q1+3, P1+2
    >> PSOBARS Q1+3*, P1+2*
    >> PSOBEDT PASS+5
    PSOCKDC LBL+1~*
    PSOCLBL PASS+6!*
    >> PSOEXREP TRI+3, PASS+3, PASS+8, QLBL, QLBL+13, QPRF+2
    >> PSOEXREX PASS+3*
    >> PSOFROM Q, P1+3
    PSOHSAVE SETP+4!
    PSOHSAVE( RSAVE+3*, RREST+3
    >> PSOION PLBL*, PLBL+1, P1+3*
    PSOIOS Q1+2~*, PZ+2~*
    PSOKLRXS PSORXL+8~, SETP+4*!, RXS, RXS+5
    >> PSOLAP LBL+2, TRI+14, Q+3, Q1*, QLBL+7, SUS+8, P+1*, PZ
    >> PSONOPRT Q+1, Q1, QUEUP
    >> PSOPAR LBL+3, LBL+7, PASS+2, PASS+6, Q, Q+1, Q1+3, QLBL+15, P1+2, P1+3
    >> PSOPRFLG QLBL+15
    >> PSOPROP PLBL+1*, QPRF, P1+3*, P1+4
    PSOPRPAS QLBL+15*, QUEUP*!
    PSOPSAVE SETP+4!
    PSOPSAVE( RSAVE+2*, RREST+2
    >> PSOPULL PASS+4, PASS+7, PASS+8, PASS+9
    >> PSOQFLAG PASS+4*, Q1, Q1+1*, QLBL+3*, QUEUP, QUEUP+1*
    PSORSAVE SETP+4!
    PSORSAVE( RSAVE+1*, RREST+1
    >> PSORX("PSOL" PSORXL+7*, PSORXL+13, PSORXL+16*, TRI+3, TRI+7, SETP!, SETP+1*, SETP+2*, SETP+3*, SETP+5
    , H1, D1, RXS+1!, P
    >> PSOSITE PSORXL+15, TRI+10, SUS+6
    PSOSONE PSORXL+8~, Q1, QLBL+13, RXS+1*
    >> PSOSUREP TRI+3
    >> PSOTIME QLBL+7, QPRF
    >> PSOTRVV PSORXL+7
    >> PSPARTXX Q1, QLBL+14
    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+8, QLBL
    REF RXS+5!
    REPRINT EX!, RXS+5!, P1+3
    RFDATE RXS+5!
    RFL1 RXS+5!
    RFLL RXS+5!
    RFN SUS+11~
    RSDT SUS+11~
    RX SAVEPRI+1~, SAVEPRI+4*, SAVEPRI+5*, SAVEPRI+6, SAVEPRI+9, SAVEPRI+11
    RXF SUS+11~
    RXLTOP PASS+8*, QLBL, D1!
    RXN RXS+5!
    RXPR RXS+5!
    RXPR( TRI+13, Q+2, SUS+2, RSAVE+2, RREST+2*
    RXRH RXS+5!
    RXRH( TRI+13, SUS+2, RSAVE+3, RREST+3*
    RXRP RXS+5!
    RXRP( TRI+13, SUS+2, RSAVE+1, RREST+1*
    RXRS PSORXL+17, PASS+7, EX, QLBL+13!, RXS, RXS+4!, RXS+5!, RXSQ!
    RXRS( Q+2, RXS+3
    RXS SAVEPRI~, SAVEPRI+2, SAVEPRI+3
    RXSS RXS+3*, RXS+5!
    SD RXS+5!
    SLBL PSORXL+8~, PASS+8*, PASS+9*, EX*, RXS
    >> SLPPL Q+2*
    SPPL H!*, H+2*, H+3, H+4, H+5!
    >> SUSPT LBL+2, QLBL+7, QLBL+8, QLBL+13, QLBL+14, 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
    U SAVEPRI+9, SAVEPRI+11
    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 RXS+5!
    X TRI+1*!, EX!, SUS*!, RXS+5!
    Y TRI+16*, SETP+4*, PASS+5, PASS+6, PASS+7, PASS+8, PASS+9, EX!, RXS+4, RXS+5!
    ZD RXS+5!
    >> ZTDESC QLBL+7*, QPRF*
    >> ZTDTH QLBL+7*, QPRF*
    >> ZTIO QLBL+7*, QPRF*
    >> ZTRTN QLBL+7*, QPRF*
    >> ZTSAVE( QLBL+8*, QLBL+10*, QPRF+1*
    >> ZTSAVE("P*" QLBL+11*
    >> ZTSAVE("PCOMH(" QLBL+12*
    >> ZTSAVE("PSORX(" QLBL+12*
    >> ZTSAVE("RXFL(" QLBL+12*
    >> ZTSAVE("RXPR(" QLBL+12*
    >> ZTSAVE("RXRP(" QLBL+12*
    >> ZTSAVE("RXRS(" QLBL+12*
    ZTSK QLBL+13, QLBL+14!, QPRF+2!, P+1!
    ZY RXS+5!
    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