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

Package: Inpatient Medications

Routine: PSJSV0


Information

PSJSV0 ;BIR/CML3-SCHEDULE VALIDATION CONT. ; 15 May 98 / 9:28 AM

Source Information

Source file <PSJSV0.m>

Entry Points

Name Comments DBIA/ICR reference
ENPSJI ; inquire for Inpatient Meds
ENI ; inquire
ENSVH ; show help
  • ICR #902
    • Status: Active
    • Usage: Controlled Subscription
    SCHT ;
    DICW ;

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Formatting: !!
    • Prompt: "Select STANDARD SCHEDULE: "
    • Variable: X
    • Timeout: DTIME
    • Line Location: ENI+1
    Function Call: WRITE
    • Prompt: !!?2,"Enter a standard schedule to view the information pertaining to that schedule."
    • Line Location: ENI+2
    Function Call: WRITE
    • Prompt: !!?2,"Schedule: ",$P(Y(0),"^"),?58,"Type: ",$S("C"[X:"CONTINUOUS",X="D":"DAY OF THE WEEK",X="O":"ONE-TIME",X="S":"SHIFT",X="R":"RANGE",1:X)
    • Line Location: ENI+5
    Function Call: WRITE
    • Prompt: !?2,"Standard Admin Times: ",$P(Y(0),"^",2)
    • Line Location: ENI+6
    Function Call: WRITE
    • Prompt: !?2,"Max Days for Orders: ",$P(Y(0),U,7)
    • Condition for execution: $P(Y(0),U,7)
    • Line Location: ENI+6
    Function Call: WRITE
    • Prompt: !?2,"Frequency (in minutes): ",$P(Y(0),"^",3)
    • Line Location: ENI+7
    Function Call: WRITE
    • Prompt: !,"Standard Shifts: ",$P(Y(0),"^",5)
    • Line Location: ENI+8
    Function Call: WRITE
    • Prompt: !?5,"Enter a schedule for this order."
    • Line Location: ENSVH+1
    Function Call: WRITE
    • Prompt: !?3,$P($T(SCHT+Q),";",3)
    • Line Location: ENSVH+2
    Function Call: READ
    • Formatting: !
    • Prompt: "(Press RETURN to continue.) "
    • Variable: Q
    • Timeout: DTIME
    • Line Location: ENSVH+4
    Function Call: WRITE
    • Prompt: " ",$S(Z>0:"SHIFT",Z=-2:"RANGE",1:"ONE-TIME")
    • Condition for execution: Z
    • Line Location: DICW+1
    Function Call: WRITE
    • Prompt: " ",$P(^(0),"^",Z+2)
    • Line Location: DICW+1
    Function Call: WRITE
    • Prompt: " ",$P(^PS(51.1,+Y,0),"^",Z*4+2)
    • Line Location: DICW+2

    FileMan Files Accessed Via FileMan Db Call

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