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

Package: Inpatient Medications

Routine: PSIVORV1


Information

PSIVORV1 ;BIR/MLM-VIEW AN ORDER, EDIT OR DETAILED (OE/RR) ;07 OCT 97 / 9:42 AM

Source Information

Source file <PSIVORV1.m>

Entry Points

Name Comments DBIA/ICR reference
ENED ; Display order entered by MD.
PC ; Display Provider's comments.
GTDRG ; Get and print each additive and solution in the order.
CKNUM ; Display number next to field if necessary.
WRTDRG ; Print drugs for "backdoor" view.
WRTDRG1 ;
PD ; Print primary drug, dosage ordered (backdoor view).
ONCALL ; Display msg. for orders placed ONCALL by Pharmacy.
ALLREN ; Display msg. for orders that have been renewed.
ALLED ; Display msg. for orders that have been edited.
ENDT ; Display order entered by MD. (OE/RR detailed order view.)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: ENED+3
Function Call: WRITE
  • Prompt: !!,?5,"Patient: ",$P($G(^DPT(+ORVP,0)),U),?48,"Status: ",$P("DISCONTINUED^COMPLETE^HOLD^FLAGGED^PENDING^ACTIVE^EXPIRED^SCHEDULED^INCOMPLETE^^UNRELEASED",U,+ORSTS)
  • Line Location: ENED+3
Function Call: WRITE
  • Prompt: !,?4,"Entry By: ",$P(P("CLRK"),U,2),?49,"Login: ",$$WDTE^PSIVUTL(P("LOG")),!,UL80,!!!
  • Line Location: ENED+4
Function Call: WRITE
  • Prompt: "Inf Rate:",?TAB,P(8)
  • Line Location: ENED+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ENED+7
Function Call: WRITE
  • Prompt: "Provider: ",?TAB,$P(P(6),U,2)
  • Line Location: ENED+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PC+1
Function Call: WRITE
  • Prompt: "Provider Comments: "
  • Line Location: PC+1
Function Call: WRITE
  • Prompt: !?5,Y
  • Line Location: PC+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: PC+4
Function Call: WRITE
  • Prompt: !,UL80
  • Line Location: PC+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: DRGT="AD"
  • Line Location: GTDRG+2
Function Call: WRITE
  • Prompt: DRGTN,": "
  • Line Location: GTDRG+2
Function Call: WRITE
  • Prompt: ?TAB,$P(DRG(DRGT,I),U,2)," ",$P(DRG(DRGT,I),U,3),$S($P(DRG(DRGT,I),U,4):"("_$P(DRG(DRGT,I),U,4)_")",1:""),!
  • Line Location: GTDRG+3
Function Call: WRITE
  • Prompt: "*(",PSIVLN,")"
  • Line Location: CKNUM+1
Function Call: WRITE
  • Prompt: $S(PSIVAC="PN":" ",1:" *"),$S(P("DTYP")=1:"(9)",1:"(7)")
  • Line Location: PD+1
Function Call: WRITE
  • Prompt: ?7,"Primary Drug: ",$P(P("PD"),U,2)
  • Line Location: PD+2
Function Call: WRITE
  • Prompt: $S(PSIVAC="PN":" ",1:"*"),$S(P("DTYP")=1:"(10)",1:"(8)")
  • Line Location: PD+3
Function Call: WRITE
  • Prompt: ?13,"Dosage: ",P("DO")
  • Line Location: PD+4
Function Call: WRITE
  • Prompt: $C(7),!,"This order has been placed ""ON-CALL"" by pharmacy. No action may be taken on",!,"it until it has been removed from on-call status by pharmacy."
  • Line Location: ONCALL+1
Function Call: WRITE
  • Prompt: $C(7),!,"This order has been renewed and may not be edited or renewed again."
  • Line Location: ALLREN+1
Function Call: WRITE
  • Prompt: $C(7),!,"This order has been edited and may not be edited or renewed again."
  • Line Location: ALLED+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: ENDT+1
Function Call: WRITE
  • Prompt: !!,"IV Room: ",?23,$P(P("IVRM"),U,2),!,"Type:"
  • Line Location: ENDT+1
Function Call: WRITE
  • Prompt: "..."
  • Condition for execution: $L(P("SYRS"))>13
  • Line Location: ENDT+2
Function Call: WRITE
  • Prompt: !,"Infusion Rate:",?23,P(8),!,"Schedule:",?23,P(9),!,"Administration Times:",?23,P(11),!,"Med Route:",?23,$P(P("MR"),U,2),!,"Remarks:",?23,P("REM"),!,"Other Print Info:",?23,$P(P("OPI"),"^"),!,"Last Fill:"
  • Line Location: ENDT+4
Function Call: WRITE
  • Prompt: ?23,$S(Y="******":"",1:Y),!,"Quantity: "
  • Line Location: ENDT+5
Function Call: WRITE
  • Prompt: ?23,P("LFA")
  • Condition for execution: P("LFA")
  • Line Location: ENDT+5
Function Call: WRITE
  • Prompt: !,"Cumulative Doses: "
  • Line Location: ENDT+5
Function Call: WRITE
  • Prompt: ?23,P("CUM")
  • Condition for execution: P("CUM")
  • Line Location: ENDT+5
Info |  Source |  Entry Points |  Interaction Calls