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  | All
Print Page as PDF
Routine: PSSHL1

Package: Pharmacy Data Management

Routine: PSSHL1


Information

PSSHL1 ;BIR/RLW/WRT-BUILD HL7 MESSAGE TO POPULATE ORDERABLE ITEM FILE ;09/08/97

Source Information

Source file <PSSHL1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 C^%DTC  ^DIC  FILE^DICN  ^DIE  
Pharmacy Data Management 2 EN2^PSSHL1  ($$USAGE,INIT,MF,SEGMENT)^PSSHLU  
Health Level Seven 1 $$HLDATE^HLFNC  

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

Package Total Caller Graph
Pharmacy Data Management 11 PSSADDIT  PSSDEE  PSSHL1  PSSPOIDT  PSSPOIM1  PSSPOIMO  PSSPRUTL  PSSSOLI1  
PSSSOLIT  PSSSUTIL  PSSVIDRG  
Order Entry Results Reporting 1 ORSETUP  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; start here for pre-install auto load
  • ICR #2405
    • Status: Active
    • Usage: Private
    SKIP ;
    EN2(PSJSPIEN,PSJEC) ; start here for "manual" update
    INIT ; initialize HL7 variables, set master file identification segment fields
    LOOP ; loop through PHARMACY ORDERABLE ITEM file
    MFE(PSSIVID) ; set master file entry segment fields
    ; Input: PSSIVID-IV Identifier
    ZPS ; get USAGE from dispense drug(s), set ZPS segment
    ZSY ; get SYNONYMs
    PRO ;Check for protocols
    ENIVID ; Edit IV Identifier field to be displayed with IV Orderable Items.
    GTIVID() ; Return IV Identifier. If being edited, wait until edit is done.

    External References

    Name Field # of Occurrence
    C^%DTC EN1+5, EN1+7
    ^DIC ENIVID+3
    FILE^DICN PRO+5
    ^DIE ENIVID+5
    $$HLDATE^HLFNC MFE+6
    EN2^PSSHL1 ENIVID+8
    $$USAGE^PSSHLU ZPS+3
    INIT^PSSHLU INIT+2
    MF^PSSHLU SKIP+3, EN2+7
    SEGMENT^PSSHLU INIT+7, MFE+8, ZPS+9, ZSY+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!?3,"This routine should not be accessed through programmer mode!",!
    • Line Location: PSSHL1+8
    Function Call: WRITE
    • Prompt: !!?5,"Sorry, you need the OR ITEM RECEIVE protocol to proceed,",!?5,"which is exported with Order Entry/Results Reporting V3!",!
    • Line Location: PRO+2
    Function Call: WRITE
    • Prompt: !!?5,"Sorry, unable to add OR ITEM RECEIVE protocol as an Item to the PS MFSEND",!,"protocol, cannot proceed!",!
    • Line Location: PRO+6
    Function Call: WRITE
    • Prompt: !!!,"Changing the IV Identifier will update the name of ALL Orderable Items",!,"marked as an IV!",!!
    • Line Location: ENIVID+4
    Function Call: WRITE
    • Prompt: !!,"Updating Orderable Item names in OE/RR"
    • Line Location: ENIVID+7
    Function Call: WRITE
    • Prompt: "."
    • Line Location: ENIVID+8
    Function Call: WRITE
    • Prompt: "."
    • Line Location: ENIVID+9
    Routine Call
    • DIC
    • Line Location:
      • ENIVID+3
    Routine Call
    • DIE
    • Line Location:
      • ENIVID+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^ORD(101 - [#101] PRO+1, PRO+2, PRO+3, PRO+4*
    ^PS(50.606 - [#50.606] MFE+7
    ^PS(50.7 - [#50.7] EN2+3, LOOP+2, MFE+3, MFE+6, MFE+7, ZPS+4, ZPS+6, ZPS+7, ZPS+8, ZSY+3
    , ENIVID+8
    ^PS(59.7 - [#59.7] EN1+3, EN1+8, SKIP+4*, EN2+1, ENIVID+5, ENIVID+6, GTIVID+1, GTIVID+2, GTIVID+3, GTIVID+4
    ^TMP("HLS" SKIP+6!, EN2+8!
    ^XTMP("PSO_V7 INSTALL" EN1+5*, EN1+6, EN1+7*, EN1+8!, SKIP+5!

    Label References

    Name Line Occurrences
    $$GTIVID INIT+1
    INIT SKIP+2, EN2+6
    LOOP SKIP+3
    MFE EN2+7, LOOP+2
    PRO EN1+2
    SKIP EN1+5
    ZPS MFE+9
    ZSY MFE+9

    Naked Globals

    Name Field # of Occurrence
    ^( ZSY+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    APPL EN1+4~, EN2+4~
    CODE EN1+4~, SKIP+1*, EN2+4~, EN2+5*, INIT+5
    DA PRO+5!, ENIVID+2~, ENIVID+5*
    DA(1 PRO+5*
    DD PRO+5!
    DIC PRO+5!*, PRO+6!, ENIVID+2~, ENIVID+3*
    DIC(0 PRO+5*, ENIVID+3*
    DIE ENIVID+2~, ENIVID+5*
    >> DILOCKTM EN1+5, EN1+6, EN1+7, GTIVID+2
    >> DLAYGO PRO+5*
    DO PRO+5!
    >> DR ENIVID+5*
    DRG ENIVID+2~
    DT EN1+5, EN1+7
    FIELD EN1+4~, EN2+4~
    FIELD(0 INIT+3*, MFE+4*, ZPS+2*, ZSY+2*
    FIELD(1 INIT+4*, MFE+5*, ZPS+5*, ZPS+6*, ZPS+7*, ZSY+4*
    FIELD(2 ZPS+8*, ZSY+4*
    FIELD(3 INIT+5*, MFE+6*
    FIELD(4 MFE+7*
    FIELD(6 INIT+6*
    >> HLMTN INIT+1*
    >> I ZPS+5*
    ITEM EN1+1~, PRO+1*, PRO+2
    >> J ZSY+3*
    LIMIT EN1+4~, EN2+4~, INIT+1*, INIT+7, MFE+2*, MFE+8, ZPS+1*, ZPS+9, ZSY+1*, ZSY+4
    MENU EN1+1~, PRO+1*
    MENUP EN1+1~, PRO+1*, PRO+3, PRO+4, PRO+5
    MFE EN1+4~, EN2+4~
    PSJCLEAR SKIP+6!, INIT+2, MFE+2, ZPS+1, ZSY+1
    PSJEC SKIP+1*, SKIP+6!, EN2~, EN2+3*, MFE+5
    PSJI EN1+4~, SKIP+3, EN2+4~, EN2+7, INIT+1*
    PSJSPIEN SKIP+6!, EN2~, EN2+3, LOOP+2*, MFE+3, MFE+6, MFE+7, ZPS+3, ZPS+4, ZPS+6
    , ZPS+7, ZPS+8, ZSY+3
    PSLSITE SKIP+4*!, EN2+1*!, EN2+4!
    PSSDRG ENIVID+2~
    PSSFIL ENIVID+2~
    PSSIVID EN2+7, INIT+1*, LOOP+2, MFE~, MFE+7, ENIVID+2~, ENIVID+5*, ENIVID+6
    PSSMFU EN1+3*!, EN1+8, SKIP+6!
    PSSOI ENIVID+2~, ENIVID+8*
    >> PSSSITE ENIVID+5*, ENIVID+6
    PX GTIVID+1~*, GTIVID+4
    SEGMENT EN1+4~, EN2+4~
    SPDNAME EN1+4~, EN2+4~
    SYN EN1+4~, EN2+4~
    >> SYNIEN ZSY+3*
    SYNONYM EN1+4~, EN2+4~, ZSY+3*, ZSY+4
    U ENIVID+5, ENIVID+6, GTIVID+3
    USAGE EN1+4~, EN2+4~, ZPS+3*, ZPS+4, ZPS+5
    X EN1+4~, EN1+5, EN1+7, EN2+4~, MFE+3*, MFE+7, PRO+2*, PRO+3, ENIVID+2~, GTIVID+1~*
    , GTIVID+2, GTIVID+3*, GTIVID+5
    >> X1 EN1+5*, EN1+7*
    >> X2 EN1+5*, EN1+7*
    >> XPDABORT EN1+2, PRO+2*, PRO+6*
    Y PRO+6, ENIVID+2~, ENIVID+3, ENIVID+5
    ZCOUNT EN2+4~
    ZUSAGE EN2+4~
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All