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

Package: Pharmacy Data Management

Routine: PSSJSV0


Information

PSSJSV0 ;BIR/CML3,WRT-SCHEDULE VALIDATION CONT. ; 08/21/97 8:26

Source Information

Source file <PSSJSV0.m>

Call Graph

Call Graph Total: 1

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Data Management 2 PSSJEEU  PSSJSV  

Entry Points

Name Comments DBIA/ICR reference
ENSTH ; executable help for type of schedule
SCHT ;
ENI ; inquire
HOT
ENPSJI ; inquire for Inpatient Meds
DICW ;
; PSSJEEU CALLS THIS-IT LOOKS AT FILE 51.1
ENSVH ; show help

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+2
Function Call: WRITE
  • Prompt: " ",$P(^(0),"^",Z+2)
  • Line Location: DICW+2
Function Call: WRITE
  • Prompt: " ",$P(^PS(51.1,+Y,0),"^",Z*4+2)
  • Line Location: DICW+3
Function Call: WRITE
  • Prompt: !!?2,"The TYPE OF SCHEDULE determines how the schedule will be processed."
  • Line Location: ENSTH+1
Function Call: WRITE
  • Prompt: !!?2,"A CONTINUOUS schedule is one in which an action is to take place on a regular",!,"basis, such as 'three times a day' or 'once every two days'."
  • Line Location: ENSTH+2
Function Call: WRITE
  • Prompt: !?2,"A DAY OF THE WEEK schedule is one in which the action is to take place only",!,"on specific days of the week. This type of schedule should have admin times",!,"entered with it. If not, the start time of the order is used as the"
  • Line Location: ENSTH+3
Function Call: WRITE
  • Prompt: !?2,"A DAY OF THE WEEK-RANGE schedule is one in which the action to take place",!,"only on specific days of the week, but at no specific time of day (no admin",!,"times). Whenever this type is chosen, the name of the schedule must be in "
  • Line Location: ENSTH+5
Function Call: WRITE
  • Prompt: "the",!,"form of 'MO-WE-FR'."
  • Line Location: ENSTH+6
Function Call: WRITE
  • Prompt: !?2,"A RANGE schedule is one in which the action will take place within a given",!,"date range."
  • Line Location: HOT+1
Function Call: WRITE
  • Prompt: !?2,"A SHIFT schedule is one in which the action will take place within a given",!,"range of times of day."
  • Line Location: HOT+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)
^PS(51.1 - [#51.1] ENI+9, ENI+10, DICW+3
^SC - [#44] ENI+10

Label References

Name Line Occurrences
ENI ENI+4, ENI+5, ENI+11
HOT ENSTH+4

Naked Globals

Name Field # of Occurrence
^( ENI+10, DICW+2
^(0 ENI+10, DICW+2

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, ENSVH+5, DICW+2, ENSTH+4, HOT
>> PSJW DICW+2
Q ENI+10*, ENI+11!, ENSVH+2*, ENSVH+4*
U ENI+6
X ENI+1*!, ENI+2, ENI+5*, ENI+6, ENI+7, ENI+8, ENI+10, ENSVH+1, ENSVH+2, ENSVH+3
Y ENI+4, ENI+9, ENI+10, ENI+11!, DICW+3
Y(0 ENI+5, ENI+6, ENI+7, ENI+8
Z ENI+10*, ENI+11!, DICW+2*, DICW+3

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