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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Inpatient Medications 2 ($$LONG,RC)^PSIVORV2  ($$CODES,$$WDTE)^PSIVUTL  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSIVORA  PSIVORA1  PSIVORH  

Entry Points

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

External References

Name Field # of Occurrence
^DIR PC+4
$$LONG^PSIVORV2 WRTDRG1+3
RC^PSIVORV2 WRTDRG1+1, WRTDRG1+3, PD+2, PD+4
$$CODES^PSIVUTL ENDT+2
$$WDTE^PSIVUTL ENED+4, ENDT+5

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
Routine Call
  • DIR
  • Line Location:
    • PC+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ENED+3
^PS(52.7 - [#52.7] WRTDRG1+2
^PS(53.1 - [#53.1] PC+3, PC+4

Label References

Name Line Occurrences
ALLREN ENDT+6
CKNUM ENED+6, ENED+7, PC+1, GTDRG+2
GTDRG ENED+5, ENDT+3
ONCALL ENDT+6
PC ENDT+5
WRTDRG1 WRTDRG+1, WRTDRG+2

Naked Globals

Name Field # of Occurrence
^(0 WRTDRG1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PC+4!
DIR(0 PC+4*
>> DIRUT PC+4
>> DRG WRTDRG1+1*, WRTDRG1+2
>> DRG( GTDRG+1, GTDRG+3, WRTDRG+1, WRTDRG1+1, WRTDRG1+2
>> DRG("SOL" ENED+6
DRGT ENED+5*, GTDRG+1, GTDRG+2, GTDRG+3, WRTDRG+1, WRTDRG+3, WRTDRG+4, WRTDRG1+1, WRTDRG1+2, WRTDRG1+4!
, ENDT+3*
DRGTN GTDRG+1*, GTDRG+2, WRTDRG+1*, WRTDRG+2*, WRTDRG+3*, WRTDRG+4*, WRTDRG1+1, WRTDRG1+4!
>> EDIT CKNUM+1
>> I GTDRG+3*
IOF ENED+3, PC+4, ENDT+1
>> ON PC+3, PC+4
>> ORSTS ENED+3
>> ORVP ENED+3
>> P("CLRK" ENED+4
>> P("CUM" ENDT+5
>> P("DO" PD+4
>> P("DTYP" WRTDRG+1, WRTDRG+4, PD+1, PD+3
>> P("FRES" ENDT+6
>> P("IVRM" ENDT+1
>> P("LF" ENDT+5
>> P("LFA" ENDT+5
>> P("LOG" ENED+4
>> P("MR" ENDT+4
>> P("OPI" ENDT+4
>> P("OT" WRTDRG+3, WRTDRG+4
>> P("PD" PD+2
>> P("REM" ENDT+4
>> P("RES" ENDT+6
>> P("SYRS" ENDT+2
>> P(11 ENDT+4
>> P(17 WRTDRG+3, WRTDRG+4, ENDT+6
>> P(23 ENDT+2
>> P(4 ENDT+2
>> P(5 ENDT+2
>> P(6 ENED+7
>> P(8 ENED+6, ENDT+4
>> P(9 ENDT+4
>> PSIVAC CKNUM+1, CKNUM+2, WRTDRG+2, PD+1, PD+3
>> PSIVLN ENED+2*, CKNUM+1*
>> PSIVNUM WRTDRG+1, PD+1, PD+3
>> PSIVX PC+3*, PC+4
TAB ENED+2*, ENED+6, ENED+7!, GTDRG+3, ENDT+1*
U ENED+3, ENED+4, ENED+7, GTDRG+3, CKNUM+1, WRTDRG1+2, WRTDRG1+3, PD+2, ENDT+1, ENDT+4
>> UL80 ENED+2*, ENED+4, PC+5, ENDT+1*
>> X ENED+6*, ENED+7*, PC+1*, GTDRG+2*, CKNUM+1, WRTDRG1+2*, WRTDRG1+3, ENDT+2*
>> Y PC+4*, ENDT+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All