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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 (,IX)^DIC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSJEEU  PSJSV  PSJU INQ STD SCHD  

Entry Points

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

    External References

    Name Field # of Occurrence
    ^DIC ENSVH+6
    IX^DIC ENI+4

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Prompt: "Select STANDARD SCHEDULE: "
    • Formatting: !!
    • Timeout: DTIME
    • Variable: X
    • 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
    • Prompt: "(Press RETURN to continue.) "
    • Formatting: !
    • Timeout: DTIME
    • Variable: Q
    • 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
    Routine Call
    • DIC
    • Line Location:
      • ENSVH+6
    Routine Call
    • DIC
    • Line Location:
      • ENI+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(51.1 - [#51.1] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(42 - [#42] ENI+12
    ^PS(51.1 - [#51.1] ENI+9, ENI+10, ENI+11, ENI+12, DICW+2
    ^SC - [#44] ENI+11

    Label References

    Name Line Occurrences
    ENI ENI+4, ENI+5, ENI+13

    Naked Globals

    Name Field # of Occurrence
    ^( DICW+1
    ^(0 ENI+11, ENI+12, DICW+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> D ENI+4*
    DIC ENI+3!, ENI+4*!, ENSVH+5*, ENSVH+6!
    DIC("S" ENSVH+5*
    DIC("W" ENI+3*, ENSVH+5*
    DIC(0 ENI+4*, ENSVH+5*
    DTIME ENI+1, ENSVH+4
    PSJPP ENPSJI+1*, ENI+1!, ENI+4, ENI+9, ENI+10, ENI+11, ENI+12, ENSVH+5, DICW+1
    >> PSJW DICW+1
    Q ENI+10*, ENI+11, ENI+12, ENI+13!, ENSVH+2*, ENSVH+4*
    U ENI+6
    X ENI+1*!, ENI+2, ENI+5*, ENI+6, ENI+7, ENI+8, ENI+11, ENSVH+1, ENSVH+2, ENSVH+3
    Y ENI+4, ENI+9, ENI+10, ENI+11, ENI+12, ENI+13!, DICW+2
    Y(0 ENI+5, ENI+6, ENI+7, ENI+8
    Z ENI+11*, ENI+12*, ENI+13!, DICW+1*, DICW+2

    Marked Items

    Name Field # of Occurrence
    $T(SCHT+Q ENSVH+2
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All