Routine: PSIVORA1

Package	Total	Call Graph
Inpatient Medications	10	ENGNN^PSGOETO ENIVKV^PSGSETU EDIT^PSIVEDT (PS,RUPTXT)^PSIVOREN (PUT531,UPD100)^PSIVORFA GT55^PSIVORFB (GTFLDS,NEWENT,SET,SETUP)^PSIVORFE ENED^PSIVORV1 $$GTPCI^PSIVUTL $$DATE^PSJUTL2

Package

Total

Call Graph

ENGNN^PSGOETO ENIVKV^PSGSETU EDIT^PSIVEDT (PS,RUPTXT)^PSIVOREN (PUT531,UPD100)^PSIVORFA GT55^PSIVORFB (GTFLDS,NEWENT,SET,SETUP)^PSIVORFE ENED^PSIVORV1
$$GTPCI^PSIVUTL $$DATE^PSJUTL2

Package	Total	Caller Graph
Inpatient Medications	4	PSIVORA PSIVOREN PSIVORFE PSIVORH

Package

Total

Caller Graph

Inpatient Medications

PSIVORA PSIVOREN PSIVORFE PSIVORH

Name	Comments	DBIA/ICR reference
EDIT	; Edit an existing order.
LOCKERR	; Display msg. if lock is unsuccessful.
REDIT	; Set edit string for OE/RR renew.
RENEW	;Renew order through OE/RR.
FLUIDQO	; Process IV Fluid quick order.
DONE	; Kill variables and exit

External References

Name	Field # of Occurrence
ENGNN^PSGOETO	EDIT+10, RENEW+4, FLUIDQO+11
ENIVKV^PSGSETU	DONE+1
EDIT^PSIVEDT	RENEW+4, FLUIDQO+10
PS^PSIVOREN	FLUIDQO+1
RUPTXT^PSIVOREN	RENEW+6
PUT531^PSIVORFA	EDIT+8, EDIT+10, RENEW+4, FLUIDQO+11
UPD100^PSIVORFA	EDIT+8
GT55^PSIVORFB	RENEW+2
GTFLDS^PSIVORFE	EDIT+7
NEWENT^PSIVORFE	EDIT+3, RENEW+4, FLUIDQO+11
SET^PSIVORFE	EDIT+10, RENEW+4, FLUIDQO+11
SETUP^PSIVORFE	FLUIDQO+2
ENED^PSIVORV1	EDIT+7, RENEW+4, FLUIDQO+10
$$GTPCI^PSIVUTL	FLUIDQO+7
$$DATE^PSJUTL2	EDIT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"This order is being edited by another user." Line Location: LOCKERR+1
Function Call: WRITE	Prompt: !,$C(7),"Order must be removed from HOLD before editing." Line Location: EDIT+1
Function Call: WRITE	Prompt: !,$C(7),"Expired orders cannot be edited." Line Location: EDIT+2
Function Call: WRITE	Prompt: !,"...updating order..." Line Location: EDIT+8
Function Call: WRITE	Prompt: !,"...creating new order..." Line Location: EDIT+10
Function Call: WRITE	Prompt: !,$C(7),"Only ACTIVE OR EXPIRED orders may be RENEWED." Line Location: RENEW+1
Function Call: WRITE	Prompt: !,"...creating new order..." Line Location: RENEW+4
Function Call: WRITE	Prompt: !!,"...transcribing this order..." Line Location: FLUIDQO+11
Function Call: WRITE	Prompt: ! Line Location: FLUIDQO+11

Name	Line Occurrences (* Changed, ! Killed)
^PS(	FLUIDQO+5
^PS(51.2 - [#51.2]	FLUIDQO+2
^PS(53.1 - [#53.1]	EDIT+12, FLUIDQO+11
^PS(55 - [#55]	EDIT+11, RENEW+5*
^PS(57.1 - [#57.1]	FLUIDQO+3, FLUIDQO+4, FLUIDQO+9
^VA(200 - [#200]	EDIT+9, REDIT+1

Name	Line Occurrences
@(	EDIT+3
REDIT	EDIT+6, RENEW+2

Name	Field # of Occurrence
^(0	EDIT+12*
^(2	EDIT+11, RENEW+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD	DONE+1!
C	DONE+1!
DA	EDIT+10, RENEW+4, FLUIDQO+11!
DFN	EDIT+3, EDIT+11, RENEW+5, RENEW+6, FLUIDQO+2*, DONE+1!
DIC	FLUIDQO+11!
DO	DONE+1!
DONE	EDIT+7~, FLUIDQO+10
DRG	FLUIDQO+1~, DONE+1!
DRG(	FLUIDQO+3, FLUIDQO+6
DRG("SC"	FLUIDQO+3*, FLUIDQO+4, FLUIDQO+5
DRG("TYP"	FLUIDQO+3*, FLUIDQO+6
DRG(1	FLUIDQO+4*, FLUIDQO+5, FLUIDQO+6
DRG(2	FLUIDQO+5*, FLUIDQO+6
DRG(3	FLUIDQO+4*, FLUIDQO+6
DRG(5	FLUIDQO+5*
DRG(6	FLUIDQO+5*
DT	REDIT+1
DUZ	EDIT+9, REDIT+1
EDIT	EDIT+5, REDIT+1, FLUIDQO+1~, FLUIDQO+9*, FLUIDQO+10
I	DONE+1!
ND	FLUIDQO+1~, FLUIDQO+4, FLUIDQO+5, FLUIDQO+6
NN	DONE+1!
ON	EDIT+3, EDIT+10, EDIT+11, EDIT+12, RENEW+2, RENEW+3, RENEW+4, RENEW+5, RENEW+6, FLUIDQO+11!
ON55	EDIT+3, EDIT+7!, RENEW+3!, RENEW+6
>> OREND	LOCKERR+1, EDIT+1, EDIT+2, EDIT+7, RENEW+1*
ORETURN	RENEW+6!
>> ORL	FLUIDQO+10
>> ORNP	FLUIDQO+1
>> ORPK	EDIT+3, RENEW+2
>> ORSTS	EDIT+1, EDIT+2, EDIT+4, RENEW+1, FLUIDQO+10*
>> ORVP	FLUIDQO+2
P	FLUIDQO+1~, DONE+1!
P(	EDIT+3, RENEW+3
P("CLRK"	EDIT+9*
P("FRES"	RENEW+4, RENEW+6
P("LOG"	EDIT+9*
P("MR"	FLUIDQO+2*
P("NEWON"	RENEW+6*
P("OLDON"	EDIT+10, EDIT+11, EDIT+12, RENEW+3, RENEW+5, RENEW+6, FLUIDQO+11!
P("RES"	EDIT+4, EDIT+5, RENEW+4, RENEW+6*
P(17	EDIT+10, RENEW+3
P(6	EDIT+7, REDIT+1*
P(8	FLUIDQO+9*
PSGP	DONE+1!
>> PSGPCP	FLUIDQO+9*
PSIVAC	FLUIDQO+1~*, DONE+1!
PSIVE	DONE+1!
PSIVLOG	DONE+1!
PSIVOK	EDIT+5, REDIT+1, FLUIDQO+1~, FLUIDQO+9*
PSIVREA	DONE+1!
PSIVUP	FLUIDQO+7*, DONE+1!
PSIVX	DONE+1!
PSJACNWP	DONE+1!
PSJIVORF	DONE+1!
PSJORL	FLUIDQO+1~, FLUIDQO+10*, DONE+1!
PSJORNP	EDIT+7, FLUIDQO+1~, DONE+1!
PSJORPF	FLUIDQO+1, DONE+1!
PSJORSTS	EDIT+8, EDIT+10, DONE+1!
>> PSJQO	FLUIDQO+3, FLUIDQO+4, FLUIDQO+9
PSJQOD	FLUIDQO+1~, FLUIDQO+3*, FLUIDQO+4
SOL	DONE+1!
SPSOL	DONE+1!
U	EDIT+9, EDIT+11, EDIT+12, RENEW+5, REDIT+1, FLUIDQO+2, FLUIDQO+4, FLUIDQO+5, FLUIDQO+6, FLUIDQO+9
UL80	DONE+1!
>> X	EDIT+3, RENEW+3, REDIT+1, FLUIDQO+9

Customize PDF page

Package: Inpatient Medications

Routine: PSIVORA1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: