Routine: PSIVORV1

Information

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

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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Inpatient Medications	3	PSIVORA PSIVORA1 PSIVORH

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.)

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

Customize PDF page

Package: Inpatient Medications