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

Package: Inpatient Medications

Routine: PSJMUTL


Information

PSJMUTL ;BIR/MV - UTLILITY USE FOR QUEUING... ;25 Nov 98 9:13 AM

Source Information

Source file <PSJMUTL.m>

Entry Points

Name Comments DBIA/ICR reference
SELDEV() ;*** Ask for device type for report to output to ***
SETSORTQ(XDESC,XSAVE,ZTRTN)
SETPRTQ(XDESC,XSAVE,ZTRTN)
EXITDEV ;
PRTCHK(PGCT) ;
EXIT ;
ATS(REG,EXP,LN) ;
  • ICR #5058
    • Status: Active
    • Usage: Private
    GETGMRA ;
    SORT ;*** Set up the allergies and adv. reactions arrays.
    CALLEN ;*** Calculate the total length for allergy and adv.reaction arrays.
    SETARRAY ;*** Concatenate allergies and adv. reaction together into display len.
    NAMENEED(DRGX,LEN,NEED)
    RAD ;
    REMOTE2 ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"** No device selected or Report printed **"
    • Line Location: SELDEV+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: EXITDEV+1
    Function Call: WRITE
    • Prompt: !!?20,"...Report stopped at user request..."
    • Line Location: PRTCHK+3
    Info |  Source |  Entry Points |  Interaction Calls