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

Package: Inpatient Medications

Routine: PSJQPR


Information

PSJQPR ;BIR/MLM-INPATIENT MEDS/IV FLUIDS QUICK ORDERS REPORT ;29 SEP 94 / 9:13 AM

Source Information

Source file <PSJQPR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point to enter/edit Inpatient Pharmacy quick orders/protocols.
ENQ ; Ask device and queue report.
K ; Kill and exit.
DEQ ; Queued entry point.
SORT1 ; List only IV Fluids.
SORT2 ; List only Inpatient Meds.
SORT3 ; List all.
SAVE ; Sort order data.
PRINT ; Print Quick Orders.
PRINT1 ; Print IV Fluid order.
PRINT2 ; Print Inpatient Med. order.
PAUSE
HD ; Print report header.
HLP ;DIR("??") Help

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !," This lists Inpatient Medication and/or IV Fluid Quick Orders that have been",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: "defined in the Pharmacy Quick Orders file. You may list only IV Fluid quick",!,"orders, only Inpatient Medication quick orders, or all quick orders."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ENQ+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED"
  • Line Location: ENQ+1
Function Call: WRITE
  • Prompt: !!,"NO "
  • Line Location: DEQ+2
Function Call: WRITE
  • Prompt: "IV FLUID"
  • Condition for execution: P("TYP")#2=1
  • Line Location: DEQ+2
Function Call: WRITE
  • Prompt: " OR "
  • Condition for execution: P("TYP")=3
  • Line Location: DEQ+2
Function Call: WRITE
  • Prompt: "INPATIENT MEDICATION"
  • Condition for execution: P("TYP")>1
  • Line Location: DEQ+2
Function Call: WRITE
  • Prompt: " QUICK ORDERS FOUND",!!
  • Line Location: DEQ+2
Function Call: WRITE
  • Prompt: !!?8,"QUICK ORDER NAME: ",$P(ND,U),!,?20,"TYPE: ",$S(P1=1:"IV FLUID",1:"INPATIENT MEDICATION"),!,?11,"PROTOCOL NAME: ",P("QOP"),!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: "Provider Comments Prompt: ",P("PCP"),!!,?16,"COMMENTS: "
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,?26
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?11,"Infusion Rate: ",$S(P("IF")]"":P("IF"),1:"Undefined"),!
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: !,?12,"Primary Drug: ",P("PD"),!,?10,"Dosage Ordered: ",P("DO"),!,?15,"Med Route: ",P("MR"),!,?16,"Schedule: ",P("SC"),!
  • Line Location: PRINT2+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,?71,"PAGE: ",PG,!!,?21,"INPATIENT PHARMACY QUICK ORDER REPORT",?63,"DATE: ",$$WDTE^PSIVUTL(HDT),!!,UL80,!
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !!?5,"Please make the appropriate selection for your Quick Orders Report!"
  • Line Location: HLP+1
Info |  Source |  Entry Points |  Interaction Calls