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

Package: Outpatient Pharmacy

Routine: PSODDPR4


Information

PSODDPR4 ;BHAM - ISC/EJW,SAB - build local OP & RDI profiles ;07/19/07

Source Information

Source file <PSODDPR4.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Outpatient Pharmacy 7 ^PSOBUILD  HD^PSODDPR2  IMO^PSODDPR7  ($$DUPTHER,$$NVATST)^PSODDPRE  (BLD,NVA)^PSOORDRG  GETPROD^PSOORRDI  REMOTE^PSORX1  
Pharmacy Data Management 3 $$SUP^PSSDSAPI  $$DRG^PSSDSAPM  IN^PSSHRQ2  
Inpatient Medications 2 IN^PSJBLDOC  ENCHK^PSJORUT2  
National Drug File 2 DATA^PSN50P68  $$PROD0^PSNAPIS  
VA FileMan 2 ^%DT  C^%DTC  
Kernel 1 $$DT^XLFDT  
Order Entry Results Reporting 1 ($$GET,$$HAVEHDR,GET,HAVEHDR)^ORRDI1  
Toolkit 1 ($$GETVUID,GETIREF)^XTID  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Outpatient Pharmacy 2 PSOCPPRE  PSODDPR5  
Inpatient Medications 1 PSJOC  
Order Entry Results Reporting 1 ORKPS  

Entry Points

Name Comments DBIA/ICR reference
PROFILE ;build profile drug input
FILTER ; FOR SAME DRUG VUID FOR SAME SITE, KEEP 1 ENTRY - CHECK BY ACTIVE STATUS FIRST THEN BY GREATEST EXPIRATION DATE
SETRDI ;
BLD(PSODFN,LIST,PDRG,PTY) ;
  • ICR #5366
    • Status: Pending
    • Usage: Private
    CHKLOCAL ; IF SAME RX NUMBER AND ISSUE DATE - LOCAL RX
    REMO ;
    CPRS(PSODFN,LIST,PDRG,PTY) ;
  • ICR #5366
    • Status: Pending
    • Usage: Private
    ID1
    PARSE ; PULL INFORMATION FROM ^XTMP
    DRGSUP ;Create "prospective" nodes for duplicate supply entries
    RVAGEN ;va generic for remote drugs
    OIX
    REMOTE ;
    ORD
    CHKEXP ;
    ID
    DRG ;

    External References

    Name Field # of Occurrence
    ^%DT REMO+6
    C^%DTC ORD+4, REMO+7, PARSE+24, PARSE+30
    $$GET^ORRDI1 REMOTE+12
    $$HAVEHDR^ORRDI1 REMOTE+2
    GET^ORRDI1 REMOTE+12
    HAVEHDR^ORRDI1 REMOTE+1
    IN^PSJBLDOC ORD+5
    ENCHK^PSJORUT2 CPRS+9
    DATA^PSN50P68 RVAGEN+5
    $$PROD0^PSNAPIS ID+1, REMO+13, DRG+4, DRGSUP+9
    ^PSOBUILD ORD+4
    HD^PSODDPR2 REMOTE+5, REMOTE+6, REMOTE+7
    IMO^PSODDPR7 ORD+8
    $$DUPTHER^PSODDPRE PROFILE+32
    $$NVATST^PSODDPRE PROFILE+11, PROFILE+23
    BLD^PSOORDRG CPRS+9
    NVA^PSOORDRG CPRS+9
    GETPROD^PSOORRDI PARSE+9
    REMOTE^PSORX1 REMOTE+4
    $$SUP^PSSDSAPI CPRS+11, DRG+1
    $$DRG^PSSDSAPM PROFILE+11, PROFILE+23
    IN^PSSHRQ2 ORD+10, CPRS+6
    $$DT^XLFDT REMOTE+10
    $$GETVUID^XTID PROFILE+14, PROFILE+26, ID, DRG+3, DRGSUP+8
    GETIREF^XTID REMO+11, RVAGEN+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Patient UNDEFINED!",!
    • Line Location: BLD+3
    Function Call: WRITE
    • Prompt: !,"Input Base UNDEFINED!",!
    • Line Location: BLD+4
    Function Call: WRITE
    • Prompt: !,"Patient UNDEFINED!",!
    • Line Location: CPRS+3
    Function Call: WRITE
    • Prompt: !,"Dispense Drug(s) UNDEFINED!",!
    • Line Location: CPRS+4
    Function Call: WRITE
    • Prompt: !,"Input Base UNDEFINED!",!
    • Line Location: CPRS+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(50.606 - [#50.606] PROFILE+10, PROFILE+22
    ^PS(50.7 - [#50.7] PROFILE+10, PROFILE+22
    ^PS(52.41 - [#52.41] PROFILE+4, PROFILE+5, PROFILE+9
    ^PS(55 - [#55] PROFILE+17, PROFILE+21
    ^PSDRUG - [#50] PROFILE+7, PROFILE+8, PROFILE+12, PROFILE+14, PROFILE+19, PROFILE+20, PROFILE+24, PROFILE+26, PROFILE+31, PROFILE+33
    , ID, ID+1, REMO+10, CPRS+12, DRG+2, DRG+4, DRGSUP+7, DRGSUP+9
    ^PSRX - [#52] PROFILE+30, PROFILE+33, CHKLOCAL+5
    ^PSRX("B" CHKLOCAL+2, CHKLOCAL+4
    ^TMP($J BLD+5!, ORD+2, ORD+3, ORD+6*, ORD+7*, ID1*, ID1+1*, OIX*, REMOTE+15!, REMOTE+17
    , REMO+1, REMO+4, REMO+6, REMO+10*, REMO+11*, REMO+14*, PARSE+35*, PARSE+36*, FILTER+3, FILTER+4
    , FILTER+8!, FILTER+9!, CHKEXP+2!, CHKEXP+7!, CPRS+6*, CPRS+7!, CPRS+14, CPRS+15*, CPRS+16!, DRG+5*
    , DRG+6*, DRGSUP+3, DRGSUP+10*, RVAGEN+2, RVAGEN+6, RVAGEN+12!
    ^XTMP("ORRDI" REMOTE+3, REMOTE+7, REMOTE+14, PARSE+2, PARSE+3, PARSE+5, PARSE+6, PARSE+7, PARSE+11, PARSE+12
    , PARSE+15, PARSE+16, PARSE+26, PARSE+32, PARSE+33, PARSE+34

    Label References

    Name Line Occurrences
    CHKEXP FILTER+7, FILTER+10
    CHKLOCAL PARSE+25
    DRG ORD+1
    DRGSUP ORD+3, ORD+10
    FILTER REMOTE+16
    ID PROFILE+8, PROFILE+20, PROFILE+33
    ID1 PROFILE+15, PROFILE+27
    OIX PROFILE+11, PROFILE+23
    ORD CPRS+17
    PARSE REMOTE+16
    PROFILE ORD+4
    REMO REMOTE+18
    REMOTE ORD+5
    SETRDI FILTER+8, FILTER+11, CHKEXP+7

    Naked Globals

    Name Field # of Occurrence
    ^( REMO+1, PARSE+34, CPRS+15
    ^("ND" ID+1, DRG+2, DRG+4
    ^(0 PROFILE+5, PROFILE+10, PROFILE+17, PROFILE+22

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    BADEXP PARSE+1~, PARSE+17*, PARSE+20*
    CNT ORD*, ORD+9~, CPRS+11*, DRG+5*, DRG+6*
    >> CT RVAGEN+9
    DD PROFILE+1~, PROFILE+34!
    DDRG PROFILE+9~, PROFILE+11*, PROFILE+12, PROFILE+13, PROFILE+21~, PROFILE+23*, PROFILE+24, PROFILE+25, PROFILE+34!
    DIC REMOTE+18~, RVAGEN+1~
    DNM PROFILE+1*, PROFILE+2*, PROFILE+4, PROFILE+5, PROFILE+17, PROFILE+28, PROFILE+34!, CPRS+13*, CPRS+14*, CPRS+15
    , DRG+7!
    DO ORD~, PROFILE+1*, PROFILE+8*, PROFILE+20*, PROFILE+25*, PROFILE+33*, ID1, ID1+1, OIX, REMO+11*
    , REMO+14
    >> DRG RVAGEN+9
    DRNM PROFILE+8*, PROFILE+10*, PROFILE+20*, PROFILE+21~, PROFILE+22*, PROFILE+33*, PROFILE+34!, ID1, ID1+1, OIX
    , REMOTE+9~
    DT ORD+4, REMOTE+10*, REMO+7, PARSE+19, PARSE+20, PARSE+22, PARSE+24, PARSE+28, PARSE+30, CHKEXP+3
    , CHKEXP+5
    ID PROFILE+1~, PROFILE+14~*, PROFILE+26~*, PROFILE+34!, ID~*, ID1!, ID1+1!, DRG+2~, DRG+3*, DRG+5
    , DRG+6, DRG+7!
    IEN ORD~, ORD+1*, CPRS+13*, CPRS+15, DRG+1, DRG+2, DRG+4, DRG+5, DRG+6
    INDD REMO+10*, CPRS+7~*, CPRS+15*
    INDX CPRS+7~*, CPRS+9
    IOSL REMOTE+5, REMOTE+6, REMOTE+7
    IT REMOTE+9~
    LIST BLD~, BLD+4, BLD+5, ORD+2, ORD+3, ORD+5, ORD+6, ORD+7, ORD+10, ID1
    , ID1+1, OIX, REMOTE+15, REMOTE+17, REMO+1, REMO+4, REMO+6, REMO+11, REMO+14, PARSE+35
    , PARSE+36, FILTER+3, FILTER+4, FILTER+8, FILTER+9, CHKEXP+7, CPRS~, CPRS+5, CPRS+6, CPRS+7
    , DRG+5, DRG+6
    LOCAL PARSE+1~, PARSE+25*, CHKLOCAL+7*
    NAME ORD~, ORD+1*, CPRS+13*, CPRS+14, CPRS+15, DRG+5, DRG+6
    NDF REMOTE+9~
    NEWDC PARSE+1~, PARSE+29*, PARSE+30
    NEWEXP PARSE+1~, PARSE+23*, PARSE+24
    NEWISS PARSE+1~, PARSE+20*
    >> NSRT( RVAGEN+10*, RVAGEN+11*
    ODRG ORD~, PROFILE+5*, PROFILE+6!, PROFILE+7, PROFILE+8, PROFILE+9~, PROFILE+13*, PROFILE+14, PROFILE+17*, PROFILE+18!
    , PROFILE+19, PROFILE+20, PROFILE+21~, PROFILE+25*, PROFILE+26, PROFILE+30*, PROFILE+31, PROFILE+33, ID, ID+1
    , ID1, ID1+1
    OLDEXP FILTER+1~, CHKEXP+2*, CHKEXP+5, CHKEXP+6
    OLDEXP2 FILTER+1~, CHKEXP+2, CHKEXP+6*
    OLDRDI FILTER+1~, FILTER+8*, CHKEXP+7*
    OLDSTA FILTER+1~, FILTER+7*, FILTER+9*
    >> ON RVAGEN+2, RVAGEN+8, RVAGEN+9
    OR1 PROFILE+34!
    ORN ORD~, PROFILE+1~, PROFILE+5*, PROFILE+17*, PROFILE+33*, ID1, ID1+1
    ORTYP ORD~, PROFILE+1~, PROFILE+5*, PROFILE+17*, PROFILE+33*, ID1, ID1+1, OIX
    P1 PROFILE+34!, ID+1*, DRG+4*, DRG+7!
    P2 PROFILE+34!, ID+1*, DRG+4*, DRG+7!
    P3 PROFILE+34!, REMO+13*
    PDRG BLD~, ORD+5, CPRS~
    PDRG( ORD+1, REMO+10, CPRS+11, CPRS+12
    PDRG(0 REMO+10, CPRS+4
    PROF ORD~*
    >> PSGDGCKF ORD+2, DRG+6
    >> PSJDGCK ORD+2, ORD+3, ID1, ID1+1, DRG+5, DRG+6
    PSO30 PARSE+1~, PARSE+21*, PARSE+22*, PARSE+24*, PARSE+27*, PARSE+28*, PARSE+30*
    PSOCLASS REMOTE+9~, PARSE+10
    PSODC REMOTE+9~
    PSODD PROFILE+34!
    PSODFN BLD~, BLD+3, ORD+5, ORD+6, ORD+8, PROFILE+17, PROFILE+21, REMOTE+7, REMOTE+12, REMOTE+14
    , PARSE+2, PARSE+3, PARSE+5, PARSE+6, PARSE+7, PARSE+11, PARSE+12, PARSE+15, PARSE+16, PARSE+26
    , PARSE+32, PARSE+33, PARSE+34, CPRS~, CPRS+3, CPRS+9
    PSODPSC1 DRGSUP+1~, DRGSUP+3*
    PSODPSCT DRGSUP+1~, DRGSUP+2*, DRGSUP+3*, DRGSUP+10*
    PSODPSID DRGSUP+1~, DRGSUP+8*, DRGSUP+10
    PSODPSLP DRGSUP+1~, DRGSUP+4*, DRGSUP+5, DRGSUP+6, DRGSUP+7, DRGSUP+9, DRGSUP+10
    PSODPSNF DRGSUP+1~, DRGSUP+7*, DRGSUP+8
    PSODPSNM DRGSUP+1~, DRGSUP+6*, DRGSUP+10
    PSODPSOR DRGSUP+1~, DRGSUP+5*, DRGSUP+10
    PSODPSP1 DRGSUP+1~, DRGSUP+9*
    PSODPSP2 DRGSUP+1~, DRGSUP+9*
    PSODPSP3 DRGSUP+1~, DRGSUP+3*
    PSODPSQN DRGSUP+1~, DRGSUP+9*, DRGSUP+10
    PSODPSXX DRGSUP+1~, DRGSUP+9*
    PSODRUG ORD+9~, PROFILE+34!
    PSODRUG("NDF" DRG+2*, DRG+3
    PSODTCUT ORD~, ORD+4*
    PSODUPLS CPRS+7~*, DRGSUP+3, DRGSUP+10
    PSODUPSP CPRS+7~
    PSODUPSP( CPRS+15*, DRGSUP+4, DRGSUP+5, DRGSUP+6
    PSODUPSP(0 ORD+3, ORD+10
    PSODUPSY CPRS+7~*, CPRS+15, DRGSUP+10
    PSOFILE REMOTE+9~
    PSOFRMNM ORD~, ORD+1!*, DRG+5
    PSOFRMOR ORD+1, CPRS+7~*, DRG+5
    PSOI PROFILE+1~, PROFILE+9~*, PROFILE+10, PROFILE+11, PROFILE+13!, PROFILE+21~*, PROFILE+22, PROFILE+23, PROFILE+25!, PROFILE+34!
    PSOICT ORD+9~, REMOTE+9~, CPRS+11*
    PSOISS CHKLOCAL+1~, CHKLOCAL+5*, CHKLOCAL+6*, CHKLOCAL+7
    PSONDF RVAGEN+1~, RVAGEN+4*, RVAGEN+5, RVAGEN+6
    PSOON ORD~, REMO+1*, REMO+4!, REMO+7*
    PSOPRE PARSE+1~, PARSE+19*, PARSE+20, PARSE+22*, PARSE+23, PARSE+28*, PARSE+29, CHKEXP+1~, CHKEXP+3*, CHKEXP+4
    , CHKEXP+5*, CHKEXP+6
    PSOPROD REMOTE+9~
    PSOPRODA REMOTE+9~
    PSORDI REMOTE+8~, REMOTE+11*, REMOTE+12*, REMOTE+13, REMO+1*, REMO+4, REMO+6, REMO+10, REMO+11, REMO+14
    , PARSE+1~, PARSE+2*, PARSE+3, PARSE+5, PARSE+6, PARSE+7, PARSE+11, PARSE+12, PARSE+15, PARSE+16
    , PARSE+26, PARSE+32, PARSE+33, PARSE+34, PARSE+35, PARSE+36, FILTER+1~, FILTER+2*, FILTER+3*, FILTER+4
    , FILTER+9, CHKEXP+2, SETRDI+1
    PSORDIID RVAGEN+3!, RVAGEN+4!
    PSORDIID( RVAGEN+4
    PSORX CHKLOCAL+3~, CHKLOCAL+4*, CHKLOCAL+5
    PSOSD ORD+5!
    PSOSD( PROFILE+2, PROFILE+4, PROFILE+5, PROFILE+17, PROFILE+28
    PSOSEQN REMOTE+9~, REMO+1!, REMO+11
    PSOSEQN( REMO+12
    PSOSIG REMOTE+9~, PARSE+34*, PARSE+36*
    PSOSIG( PARSE+34*, PARSE+36
    PSOSUPNN CPRS+7~, CPRS+12*, CPRS+15
    PSOVAG RVAGEN+1~, RVAGEN+6*, RVAGEN+9, RVAGEN+10, RVAGEN+11
    >> PSOVAGEN RVAGEN+3*
    PSOVUID RVAGEN+1~, RVAGEN+2*, RVAGEN+3
    PSOX1 CPRS+13!
    PSOY ORD+9~, CPRS+12*, CPRS+13!
    PSOY(0 CPRS+12*
    PTY BLD~, ORD+5, ORD+7, ORD+8, PROFILE+29, CPRS~, CPRS+7, DRG+5, DRG+6
    RDI FILTER+1~
    RDI( FILTER+5, SETRDI+1*
    RDIDAYS REMOTE+8~, PARSE+13*, PARSE+14*, PARSE+30, PARSE+35
    RDIDI REMOTE+9~
    RDIDNAM REMOTE+8~, REMO+9*, REMO+10, REMO+11, REMO+14, PARSE+6*, PARSE+35
    RDIEXP REMOTE+8~, PARSE+15*, PARSE+17, PARSE+20*, PARSE+22, PARSE+23, PARSE+35, FILTER+1~, FILTER+4*, CHKEXP+3
    , CHKEXP+4, SETRDI+1
    RDIEXP2 FILTER+1~, CHKEXP+2, CHKEXP+4*
    RDIFILL REMOTE+8~, PARSE+26*, PARSE+28, PARSE+29, PARSE+35
    RDIINST REMOTE+8~, PARSE+5*, PARSE+35, FILTER+4*, FILTER+5, SETRDI+1
    RDIISS REMOTE+8~, PARSE+16*, PARSE+18, PARSE+19, PARSE+20, PARSE+35, CHKLOCAL+7
    RDIPHYS REMOTE+9~, PARSE+33*, PARSE+35
    RDIQTY REMOTE+8~, PARSE+12*, PARSE+13*, PARSE+35
    RDIREF REMOTE+9~, PARSE+32*, PARSE+35
    RDIRX REMOTE+8~, PARSE+11*, PARSE+25, PARSE+35, CHKLOCAL+2, CHKLOCAL+4
    RDISIG REMOTE+8~
    RDISTA REMOTE+8~, PARSE+3*, PARSE+4, PARSE+21, PARSE+27, PARSE+31*, PARSE+35, FILTER+1~, FILTER+4*, FILTER+6
    , SETRDI+1
    RDITMP REMOTE+9~, REMO+1*, REMO+2, REMO+9
    RDIVUID REMOTE+8~, REMO+9*, REMO+11, REMO+14, PARSE+7*, PARSE+8, PARSE+35, FILTER+4*, FILTER+5, SETRDI+1
    RECTYP PROFILE+1~
    RXREC PROFILE+5*, PROFILE+9, PROFILE+17*, PROFILE+21, PROFILE+28*, PROFILE+29, PROFILE+30, PROFILE+32, PROFILE+33, PROFILE+34!
    , ID1, ID1+1, OIX
    SEQN PROFILE+9~, PROFILE+13*, PROFILE+21~, PROFILE+25*, PROFILE+34!, ID+1*, ID1, ID1+1, REMO+12*, REMO+13*
    , REMO+14, DRG+2~, DRG+4*, DRG+5, DRG+6, DRG+7!
    STA PROFILE+1*, PROFILE+2*, PROFILE+3, PROFILE+4, PROFILE+5, PROFILE+16, PROFILE+17, PROFILE+28, PROFILE+32, PROFILE+34!
    >> SV RVAGEN+9, RVAGEN+10, RVAGEN+11
    TU OIX+1!
    U RVAGEN+6
    X ORD+4, ID+1*, REMOTE+9~, REMO+5!, REMO+6*, REMO+7!, PARSE+24, PARSE+30, DRG+4*, DRG+7!
    X1 ORD~, ORD+4*, REMO+5!, REMO+6*, REMO+7!, PARSE+24*, PARSE+30*
    X2 ORD~, ORD+4*, REMO+5!, REMO+6*, REMO+7!, PARSE+24*, PARSE+30*
    XX FILTER+1~, FILTER+4*
    Y REMO+5!, REMO+6, REMO+7!
    >> ZDGDG( RVAGEN+9*
    ZI ORD+1*, ORD+9~, REMOTE+8~, REMO+10*
    ZII CPRS+7~, CPRS+11*, CPRS+12
    ZOT RVAGEN+7~, RVAGEN+8*, RVAGEN+9
    ZZ FILTER+1~, FILTER+5*, FILTER+7, FILTER+8, FILTER+9, CHKEXP+2, CHKEXP+7
    >> ZZDGDG3( RVAGEN+9*

    Marked Items

    Name Field # of Occurrence
    $T(GET^ORRDI1 REMOTE+12
    $T(HAVEHDR^ORRDI1 REMOTE+1
    $T(REMOTE^PSORX1 REMOTE+4
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All