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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 NOW^%DTC  ^DIR  
Inpatient Medications 1 $$WDTE^PSIVUTL  

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

External References

Name Field # of Occurrence
NOW^%DTC DEQ+3
^%ZIS ENQ+1
^%ZISC DEQ+7
^%ZTLOAD ENQ+2
^DIR EN+3, DEQ+6, PAUSE
$$WDTE^PSIVUTL HD+1

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
Routine Call
  • DIR
  • Line Location:
    • EN+3
    • DEQ+6
    • PAUSE
Routine Call
  • %ZIS
  • Line Location:
    • ENQ+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(101 - [#101] PRINT+1
^PS( PRINT1+3
^PS(50.3 - [#50.3] PRINT2+2
^PS(51.2 - [#51.2] PRINT2+2
^PS(57.1 - [#57.1] SORT1+1, SORT2+1, SORT3+1, SAVE+1, PRINT+1, PRINT+4, PRINT+6, PRINT+7, PRINT1+2, PRINT1+3
, PRINT1+7, PRINT2+2
^TMP("PSIV" DEQ+1!, DEQ+2, DEQ+4, SAVE+1*
^UTILITY("PSIV" DEQ+8!

Label References

Name Line Occurrences
@( DEQ+2, PRINT+3
DEQ ENQ+2
HD DEQ+3, PAUSE+1
K ENQ+1, DEQ+2
PAUSE PRINT+1, PRINT+3, PRINT+10, PRINT+11, PRINT1+1, PRINT1+4, PRINT2+1
PRINT DEQ+4
SAVE SORT1+1, SORT2+1, SORT3+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DEQ+3, DEQ+8!
%ZIS ENQ+1!*
DIR EN+3!, DEQ+6!, PAUSE!
DIR("??" EN+3*
DIR("B" EN+3*
DIR(0 EN+3*, DEQ+6*, PAUSE*
>> DIRUT EN+3
DUOUT DEQ+4, DEQ+6, DEQ+8!, PRINT+1, PRINT+3, PRINT+10, PRINT+11, PRINT1+1, PRINT1+2, PRINT1+4
, PRINT1+5, PRINT2+1, PAUSE
>> FIL PRINT1+2*, PRINT1+3, PRINT1+4
HDT DEQ+3*, DEQ+8!, HD+1
IO DEQ+2
IO("Q" ENQ+1!, ENQ+2!
IOF EN+1, DEQ+5, HD+1
ION ENQ+2
IOP ENQ+1!
IOSL PRINT+1, PRINT+3, PRINT+10, PRINT+11, PRINT1+1, PRINT1+4, PRINT2+1
IOST DEQ+5, PAUSE
>> LN PRINT+7*, PRINT+8, PRINT+9, PRINT+10
>> LNN PRINT+8*, PRINT+9, PRINT+10
ND DEQ+8!, SAVE+1*, PRINT+1*, PRINT+2, PRINT1+3*, PRINT1+4, PRINT2+2*
P K+1!, DEQ+8!
P( PRINT2+3*
P("AMT" PRINT1+3*, PRINT1+4
P("DO" PRINT2+2*, PRINT2+4
P("DRG" PRINT1+2*, PRINT1+3
P("IF" PRINT1+7*, PRINT1+8
P("MR" PRINT2+2*, PRINT2+4
P("PCP" PRINT+4*, PRINT+5
P("PD" PRINT2+2*, PRINT2+4
P("QOP" PRINT+1*, PRINT+2
P("SC" PRINT2+2*, PRINT2+4
P("SS" PRINT1+2*, PRINT1+3
P("TYP" EN+3*, DEQ+2, SORT1+1, SORT2+1
P1 DEQ+4*, DEQ+8!, SORT1+1*, SORT2+1*, SORT3+1*, SAVE+1, PRINT+2, PRINT+3
P2 DEQ+4*, DEQ+8!
P3 DEQ+4*, DEQ+8!, PRINT+1, PRINT+4, PRINT+6, PRINT+7, PRINT1+2, PRINT1+3, PRINT1+7, PRINT2+2
>> PC PRINT+6*, PRINT+7
PG DEQ+8!, HD+1*
>> POP ENQ+1
U SAVE+1, PRINT+1, PRINT+2, PRINT+4, PRINT1+3, PRINT1+4, PRINT1+7, PRINT2+2
UL80 DEQ+3*, DEQ+8!, HD+1
X K+1!, PRINT2+3*
Y EN+3, K+1!
>> ZTDESC ENQ+2*
ZTDTH ENQ+2!
>> ZTIO ENQ+2*
>> ZTQUEUED DEQ+7
>> ZTREQ DEQ+7*
>> ZTRTN ENQ+2*
ZTSAVE ENQ+2!
ZTSAVE("P(" ENQ+2*
ZTSK ENQ+2!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All