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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSIV

Package: Inpatient Medications

Routine: PSIV


Information

PSIV ;BIR/PR,MLM - MISC UTILITIES ;3/19/99 9:45 AM

Source Information

Source file <PSIV.m>

Entry Points

Name Comments DBIA/ICR reference
ENGETP ;Enter here to select patient.
GETP1 ;
ENYN ;Enter here for yes/no responses. This is a general reader that I have
ENQ ;Enter here to read X. This is the general reader that I have
  • ICR #2155
    • Status: Active
    • Usage: Private
    VAR
    PAT
    KILL
    ENADM ;Edit administration schedules.
    ; reference to ^PS(51.1 is supported by DBIA #2177
    ENOW
    ENC ;Get unit of measure for drug selected.
    ENCHS ;Needs PSIVBR (Branch point)
    OE
    ENCHS1 ;
    SELSO ;SELECT ORDER USING "SO" OPTION
    SELNUM ;SELECT ORDERS WITH NUMBERS
    OV ;
    GTON(X) ;
    OV1 ;
    ENU ;Get IV additive strength. Called from templates.
    Q ;

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Variable: QUX
    • Timeout: DTIME
    • Line Location: ENQ+2
    Function Call: WRITE
    • Prompt: !!,$P(X,"^")," "
    • Line Location: ENQ+2
    Function Call: WRITE
    • Prompt: QUD,"// "
    • Condition for execution: QUD]""
    • Line Location: ENQ+2
    Function Call: WRITE
    • Prompt: QUX="^"
    • Condition for execution: '$T $C(7) S:'$T
    • Line Location: ENQ+2
    Function Call: WRITE
    • Prompt: " ??"
    • Line Location: ENQ+3
    Function Call: WRITE
    • Prompt: " ",QUX1
    • Line Location: ENQ+5
    Function Call: WRITE
    • Prompt: $S($P(X,"^",2)=QUX:" "_QUX,1:"")_$P(QUD,QUX,2,99)
    • Line Location: VAR+0
    Function Call: WRITE
    • Prompt: $C(7)," ???"
    • Line Location: PAT+1
    Function Call: WRITE
    • Prompt: !!,?30,"NO ORDERS FOUND",!
    • Line Location: ENCHS1+11
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: ENCHS1+11

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^PS(51.1 - [#51.1] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call