Routine: PSIVORE

Information

PSIVORE ;BIR/PR,MLM - ORDER ENTRY ;Apr 07, 2020@09:19:06

Source file <PSIVORE.m>

Name	Comments	DBIA/ICR reference
BEG	;Get patient and make sure he is living.
ASK	;See if patient has been admitted.
SETN	;Set up patient 0 node if needed.
NEW	;Ask to enter new order.
INMED
Q	; Kill and exit.
ULK	;
HK	;Queue job to print MAR labels generated for this patient.
SITE	;See if site parameters are ok.
OK	;Print example label, run order through checker, ask if it is ok.
BAD	;; I X["N" D GSTRING^PSIVORE1,^PSIVORV2,GTFLDS^PSIVORFE G OK
DOA
OK1
CAL	;Calculate doses.
EN	;Update schedule interval P(15) only on continuous orders.
ENQ
SPSOL
ENIN	;Entry for Combined IV/UD order entry. Called by PSJOE0.
ENIN1	;
NONVF(PSJOC)
DEL55	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Patient has died." Line Location: ASK+1
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"You have no IV ROOM parameters ... PLEASE ... PLEASE ...",!,"Exit this package and reenter properly !!",!! Line Location: SITE+3
Function Call: WRITE	Prompt: ! Line Location: OK+4
Function Call: WRITE	Prompt: !,"Start date: " Line Location: OK+4
Function Call: WRITE	Prompt: !,"Start date: " Line Location: OK+4
Function Call: WRITE	Prompt: !,"Start date: " Line Location: OK+4
Function Call: WRITE	Prompt: ! Line Location: ENIN+2
Function Call: WRITE	Prompt: ! Line Location: ENIN1+4
Function Call: WRITE	Prompt: !,"...transcribing this non-verified order...." Line Location: NONVF+8

FileNo	Call Tags
^PS(55 - [#55]	Classic Fileman Calls