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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSSJORDF

Package: Pharmacy Data Management

Routine: PSSJORDF


Information

PSSJORDF ;BIR/MV-RETURN MED ROUTES(MR) AND INSTRUCTIONS(INS) ;06/26/98

Source Information

Source file <PSSJORDF.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Pharmacy Data Management 2 EN^PSSGSGUI  EN^PSSOUTSC  

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

Package Total Caller Graph
Order Entry Results Reporting 10 ORBCMA32  ORCDPS  ORCDPS1  ORCDPSH  ORWDPS  ORWDPS1  ORWDPS2  ORWDPS3  
ORWDPS32  ORWDPS33  
Inpatient Medications 2 PSGOE4  PSIVEDT  
Outpatient Pharmacy 1 PSOORED5  
Pharmacy Data Management 1 PSSPOIMO  

Entry Points

Name Comments DBIA/ICR reference
START(PSJORD,PSJOPAC) ;
  • ICR #2418
    • Status: Active
    • Usage: Controlled Subscription
    SCPASS ;
    DF ;* Loop thru DF node to find all available med routes, nouns, and instructions.
    MEDROUTE ;* Return all med routes in the med routes file.
    NOD
    START1(PSJORD,PSJQOF) ;Entry point for IV dialog PSS*1*94
    ; This is the new entry point for the IV Dialog box from CPRS GUI 27. PSJORD will be an array
    ; sent by CPRS that contains all the IENS for all orderable items that are part of the order. The zero node of the array
    ; will contain the total number of orderable items in the order.
    ;
    ; PSJQOF is the quick order flag. 0=not a quick order 1=quick order
    ;
    ; If there is only one orderable item, any default defined in the Pharmacy Orderable Item file (50.7) will be
    ; marked with a D at the end of the data string.
    ;
    ; PSS*1*142
    ; If there is more than one orderable item in the order,
    ; and if all orderable items share the same default med route, the med route will be denoted
    ; with a "D" at the end of the data string, and a union (the overlapping)
    ; of the med routes will be returned. For example if Dextrose can be given IV or IM, and the Ampicillin is only
    ; given IM, IM is the only med route that will be returned because it is the only overlapping med route between
    ; the two orderable items. If there is no overlapping med route to be returned, then a NULL will be returned to CPRS.
    ;
    ; If the quick order flag PSJQOF is set to 1, then CPRS is expecting the overlapping med routes for the orderable items
    ; as well as the entire list of med routes that are flagged for IV's.
    ;
  • ICR #2418
    • Status: Active
    • Usage: Controlled Subscription
    MEDRT(PSJORD) ;All Med Routes for dosage form.
    ALLMED(MCT) ;Return all med routes with IV flag set to 1
    OVERLAP ; Only maintains any overlapping med routes between orderable items in order
    REMDUP ; Remove duplicate entries
    MULTIDEF(PSJORD,PSJORD1) ; PSS*1*142

    External References

    Name Field # of Occurrence
    EN^PSSGSGUI START+6
    EN^PSSOUTSC START+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(50.606 - [#50.606] SCPASS+1, DF+3, DF+9, DF+10, DF+15, MEDRT+9, MEDRT+10
    ^PS(50.7 - [#50.7] START+3, START+4, DF+3, DF+6, DF+7, DF+8, NOD+1, MEDRT+3, MEDRT+4, MEDRT+6
    , MEDRT+7, MEDRT+8, MEDRT+11, MULTIDEF+11
    ^PS(51.2 - [#51.2] DF+4, DF+8, DF+11, MEDROUTE+2, NOD+1, MEDRT+4, MEDRT+8, MEDRT+12, ALLMED+4, ALLMED+5
    OVERLAP+14
    ^TMP("PSJMR" SCPASS+1, SCPASS+2!, DF+4*, DF+6*, DF+8*, DF+10, DF+13*, MEDROUTE+1!, MEDROUTE+2*, NOD!
    NOD+1*, START1+22!, START1+26, START1+27, START1+31!, START1+36!, START1+39, START1+44!, MEDRT+4*, MEDRT+6*
    , MEDRT+8*, MEDRT+14*, ALLMED+8*
    ^TMP("PSJNOUN" SCPASS+2!, DF+15*
    ^TMP("PSJSCH" START+5*, START+6*

    Label References

    Name Line Occurrences
    ALLMED START1+26, START1+38
    DF SCPASS+3
    MEDROUTE START+2, SCPASS+1
    MEDRT START1+25, START1+35
    MULTIDEF START1+41
    NOD SCPASS+1
    OVERLAP START1+37
    REMDUP START1+28, START1+40
    SCPASS START+5

    Naked Globals

    Name Field # of Occurrence
    ^( DF+7, MEDRT+7
    ^("MISC" DF+15
    ^(0 DF+4, DF+8, NOD+1, MEDRT+4, MEDRT+8

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DEFAULT START1+44!, MULTIDEF+8*, MULTIDEF+10*, MULTIDEF+11
    DEFAULT( MULTIDEF+11*, MULTIDEF+13, MULTIDEF+14
    DEFAULT(1 MULTIDEF+14, MULTIDEF+15
    II DF+1~, DF+7*, MEDRT+1~, MEDRT+7*
    MCT START+1~, DF+2*, DF+4*, DF+8*, DF+13*, MEDROUTE+1*, MEDROUTE+2*, START1+26*, START1+38*, MEDRT+1~
    , MEDRT+2*, MEDRT+4*, MEDRT+8*, MEDRT+14*, ALLMED~, ALLMED+2*, ALLMED+8*
    MR START+1~, DF+1~, DF+2*, DF+3*, DF+4, DF+9*, DF+10, MEDROUTE+1*, MEDROUTE+2*, NOD+1*
    , MEDRT+1~, MEDRT+2*, MEDRT+4*, MEDRT+9*, MEDRT+10, ALLMED+1~, ALLMED+3*, ALLMED+4*, ALLMED+5, ALLMED+8
    OVERLAP+1~, OVERLAP+3*, OVERLAP+5*, OVERLAP+6, OVERLAP+8*, OVERLAP+9*, OVERLAP+10, OVERLAP+12*, OVERLAP+13*, OVERLAP+14
    OVERLAP+15, REMDUP+1~, REMDUP+2*, REMDUP+3*, REMDUP+4, REMDUP+5, REMDUP+6, REMDUP+7, REMDUP+8, REMDUP+9*
    REMDUP+10*, REMDUP+11
    MRNODE START+1~, DF+11*, DF+12, DF+13, MEDROUTE+2*, START1+44!, MEDRT+12*, MEDRT+13, MEDRT+14, ALLMED+1~
    , ALLMED+3*, ALLMED+5*, ALLMED+6, ALLMED+7, ALLMED+8, OVERLAP+1~, OVERLAP+3*, OVERLAP+6*, OVERLAP+7, OVERLAP+12*
    OVERLAP+14*, OVERLAP+15, REMDUP+1~, REMDUP+2*, REMDUP+4*, REMDUP+5, REMDUP+6
    MRNODE1 START1+44!
    MRTEMP START1+44!, OVERLAP+2!, OVERLAP+11, OVERLAP+16!, REMDUP+12, REMDUP+13!
    MRTEMP( OVERLAP+7*, OVERLAP+9, OVERLAP+10!, OVERLAP+13, REMDUP+5, REMDUP+6*, REMDUP+7*, REMDUP+8*, REMDUP+10, REMDUP+11!
    MRTEMP2 START1+44!, OVERLAP+2!, OVERLAP+17
    MRTEMP2( OVERLAP+15*
    MRTEMP2("A" START1+38
    PM DF+1~, DF+7*, DF+8, MEDRT+1~, MEDRT+7*, MEDRT+8
    PSJDFNO START+1~, START+3*, SCPASS+1, DF+3, DF+9, DF+10, DF+15, MEDRT+1~, MEDRT+2*, MEDRT+3*
    , MEDRT+9, MEDRT+10
    PSJOISC START+1~, START+4*, START+5, START+6
    PSJOPAC START~, START+5, START1+23*, START1+44!
    PSJORD START~, START+2, START+3, START+4, DF+3, DF+6, DF+7, DF+8, NOD+1, START1~
    , START1+24*, START1+25, START1+29!, START1+30*, START1+34*, START1+35, START1+41, START1+42!, START1+43*, MEDRT~
    , MEDRT+3, MEDRT+4, MEDRT+6, MEDRT+7, MEDRT+8, MEDRT+11, MULTIDEF~
    PSJORD( START1+33, START1+34, MULTIDEF+9, MULTIDEF+10
    PSJORD(0 START1+23, OVERLAP+10, REMDUP+12
    PSJORD(1 START1+24
    PSJORD1 START1+22!, START1+27*, START1+30, START1+31!, START1+39*, START1+41, START1+43, START1+44!, OVERLAP+11!*, OVERLAP+16!
    OVERLAP+17*, REMDUP+12*, MULTIDEF~
    PSJORD1( START1+36*, OVERLAP+4, OVERLAP+5, OVERLAP+6, REMDUP+3, REMDUP+4, REMDUP+5!, REMDUP+6, REMDUP+7, REMDUP+8
    , MULTIDEF+19, MULTIDEF+20*
    PSJQOF START1~, START1+21*, START1+26, START1+38
    PSSCNTR1 START1+44!, OVERLAP+1~, OVERLAP+12*, OVERLAP+15*
    SAMEDEF START1+44!, MULTIDEF+12*, MULTIDEF+13, MULTIDEF+14*, MULTIDEF+15*, MULTIDEF+16, MULTIDEF+17, MULTIDEF+20
    U START+3, DF+3, DF+4, DF+6, DF+8, DF+13, DF+15, MEDROUTE+2, NOD+1, MEDRT+3
    , MEDRT+4, MEDRT+6, MEDRT+8, MEDRT+14, ALLMED+6, ALLMED+7, ALLMED+8, OVERLAP+15
    VERB DF+1~, DF+3*
    X START+1~, DF+1~, DF+2*, DF+10*, DF+11, DF+13, DF+14*, DF+15*, START1+32*, START1+33*
    , START1+34, START1+36, MEDRT+1~, MEDRT+2*, MEDRT+10*, MEDRT+11, MEDRT+12, MEDRT+14, OVERLAP+1~, OVERLAP+3*
    OVERLAP+4*, OVERLAP+5, OVERLAP+6
    Z START+1~, DF+15*
    ZZX START1+44!, MULTIDEF+8*, MULTIDEF+9*, MULTIDEF+10, MULTIDEF+11, MULTIDEF+12*, MULTIDEF+13*, MULTIDEF+14, MULTIDEF+18*, MULTIDEF+19*
    , MULTIDEF+20
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All