Routine: PSIVORFE

Package	Total	Call Graph
Inpatient Medications	9	ENGNN^PSGOETO ENEFA^PSGON EDIT^PSIVEDT DONE^PSIVORA1 PS^PSIVOREN PUT531^PSIVORFA ($$CODES2,GTOT)^PSIVUTL $$ENORL^PSJUTL $$DATE^PSJUTL2

Package

Total

Call Graph

ENGNN^PSGOETO ENEFA^PSGON EDIT^PSIVEDT DONE^PSIVORA1 PS^PSIVOREN PUT531^PSIVORFA ($$CODES2,GTOT)^PSIVUTL $$ENORL^PSJUTL
$$DATE^PSJUTL2

Package	Total	Caller Graph
Inpatient Medications	10	PSIVCHK PSIVOPT1 PSIVORA PSIVORA1 PSIVORC2 PSIVORE PSIVORE2 PSIVOREN PSIVORFA PSJLIACT

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SET	; Set variables needed to create/update orders in the ORDERS file (100).
SORTX	;Set up ORTX(.
ORTXF	; Set up ORTX( for Fluids.
NEWORD	; Create new IV Fluid order.
GTFLDS	;Ask field no.s to be edited.
EN	; Entry pt. to create new IV Fluid order.
SETUP	; Initialize variables.
NEWENT	; Get login date/entry code for new order

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"...transcribing this order..." Line Location: NEWORD+4
Function Call: WRITE	Prompt: ! Line Location: NEWORD+4

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	NEWORD+4
^VA(200 - [#200]	SETUP+4, NEWENT+1

Name	Field # of Occurrence
DA	NEWORD+4!
DIC	NEWORD+4!
>> DONE	EN+1, NEWORD+1, NEWORD+3, GTFLDS+6
DRG	SETUP+3!
DRG(	ORTXF+4, ORTXF+5
DRG("SOL"	NEWORD+1, SORTX+4
>> DRGI	ORTXF+4*, ORTXF+5
>> DRGN	SETUP+3*
DRGT	SET+3~, ORTXF+4*, ORTXF+5
DUZ	NEWENT+1
>> EDIT	NEWORD+1, NEWORD+3, GTFLDS+4, GTFLDS+6, GTFLDS+7*
ON	NEWORD+4!*
ORETURN	SET+3!
OREVENT	SET+3!, SET+5*
>> ORL	SET+4*
>> ORLOG	SET+5*
>> ORNP	EN+1, SET+5*
ORSTOP	SET+3!, SET+5*
ORSTRT	SET+3!, SET+5*
ORTX	SET+3!
ORTX(	SORTX+4, SORTX+5, ORTXF+5, ORTXF+6
ORTX(1	SORTX+4, SORTX+7, SORTX+8*
ORTX(2	SORTX+7*
>> P(	SETUP+3*
>> P("CLRK"	NEWENT+1*
>> P("FRES"	SORTX+8
>> P("LOG"	SET+5, NEWENT+1*
>> P("MR"	SORTX+7
>> P("OLDON"	NEWORD+4!
>> P("OT"	SET+5, SORTX+3, SORTX+6, SORTX+7, SETUP+4
>> P("PD"	SORTX+7
>> P("RES"	SORTX+8, SETUP+4*
>> P(17	SETUP+4*
>> P(2	SET+5
>> P(3	SET+5
>> P(4	SET+5, SET+6, SETUP+4*
>> P(6	SET+5, SETUP+4*
>> P(8	SORTX+5, SORTX+7, ORTXF+6
>> P(9	SORTX+5, SORTX+7, ORTXF+6
PLN	SET+3~, SORTX+4, SORTX+5, SORTX+7, ORTXF+4, ORTXF+5, ORTXF+6
PSGEFN	GTFLDS+4~, GTFLDS+6*
PSGEFN(	GTFLDS+4*
>> PSIVAC	GTFLDS+6
>> PSIVOK	NEWORD+1, NEWORD+3
PSIVRENW	GTFLDS+8~*, GTFLDS+10!
PSJDTYP	GTFLDS+6*!
>> PSJEDFLG	GTFLDS+6*
>> PSJORNP	EN+1*, SETUP+4
>> PSJORPF	EN+1
>> PSJORSTS	SETUP+4*
SOLF	ORTXF+3~, ORTXF+5*
U	GTFLDS+4, GTFLDS+6, GTFLDS+7, SORTX+4, SORTX+7, ORTXF+5, SETUP+4, NEWENT+1
>> VAIN(4	SET+4
X	GTFLDS+4, GTFLDS+7, SET+3~, SORTX+4, SETUP+3
>> X1	GTFLDS+7*
>> XQORNOD(0	GTFLDS+5
>> Y	GTFLDS+5, GTFLDS+6, GTFLDS+7, SETUP+4

Information