Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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.

    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
    Info |  Source |  Entry Points |  Interaction Calls