Routine: PSJCOMR

Information

PSJCOMR ;BIR/CML3-RENEW A COMPLEX ORDER SERIES ;07 MAR 96 / 1:23 PM

Source Information

Source file <PSJCOMR.m>

Call Graph

Call Graph Total: 29

Package	Total	Call Graph
Inpatient Medications	25	^PSGAL5 ($$ENMRN,$$ENPDN)^PSGMI ABORT^PSGOEE (UPDREN,UPDRENOE)^PSGOER DATE^PSGOER0 $$ENRNAT^PSGOU (ENDDC,IVSOL)^PSGSICHK ENPOS^PSGVDS ENQ^PSIV ^PSIVCHK EDIT^PSIVEDT ^PSIVHLP (ENARI,ENLBL)^PSIVOPT EN^PSIVORE (DEL55,GTPD)^PSIVORE2 (NATURE,ORPARM,RUPDATE)^PSIVOREN GT55^PSIVORFB ^PSIVORLB GTOT^PSIVUTL (CMPLX,CMPLX2)^PSJCOM1 EN1^PSJHL2 VF1^PSJLIACT ORDCHK^PSJLIFN EFDIV^PSJUTL $$DATE^PSJUTL2
VA Fileman	2	NOW^%DTC ^DIR
Pharmacy Data Management	1	($$LS,UNL)^PSSLOCK
Registration	1	PAUSE^VALM1

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Inpatient Medications	2	PSGOER PSIVOPT2

Entry Points

Name	Comments	DBIA/ICR reference
RD	; Delete for renew.
UNMARK	;
NEWIV	;Renew complex IV orders
MOVE(X,Y)	; Move comments/dispense drugs from 55 to 53.45.
RIV	; Renew order.
FILEUD	;
OC55	;* Order checks for Speed finish and regular finish
FILEIV	;
MARK	;
NEWUD
OK	;Print example label, run order through checker, ask if it is ok.
ABORT	; No changes
DONE	;
NEW	; get info, write record
TEMP(VARS)	;
RI	; Reinstate Auto-DC'ed order.
R1

External References

Name	Field # of Occurrence
NOW^%DTC	NEWUD+3, RI+3
^DIR	PSJCOMR+12, UNMARK+2, RI+2, RI+4
^PSGAL5	UNMARK+6, FILEUD+8, MARK+2
$$ENMRN^PSGMI	NEWUD+9
$$ENPDN^PSGMI	NEWUD+9
ABORT^PSGOEE	PSJCOMR+16, UNMARK+3, NEWUD+6
UPDREN^PSGOER	FILEUD+6
UPDRENOE^PSGOER	FILEUD+6
DATE^PSGOER0	NEWUD+6
$$ENRNAT^PSGOU	NEWUD+11, R1+2
ENDDC^PSGSICHK	OC55+3
IVSOL^PSGSICHK	OC55+5
ENPOS^PSGVDS	MARK+3
ENQ^PSIV	OK+6
^PSIVCHK	OK+2
EDIT^PSIVEDT	R1+1, RI+6
^PSIVHLP	OK+6
ENARI^PSIVOPT	RI+7
ENLBL^PSIVOPT	FILEIV+10
EN^PSIVORE	FILEIV+8
DEL55^PSIVORE2	RD+1
GTPD^PSIVORE2	OK+1
NATURE^PSIVOREN	R1+6
ORPARM^PSIVOREN	R1+5
RUPDATE^PSIVOREN	FILEIV+5
GT55^PSIVORFB	RD+1
^PSIVORLB	OK+4
GTOT^PSIVUTL	OK+1
CMPLX^PSJCOM1	PSJCOMR+10
CMPLX2^PSJCOM1	FILEUD+7
EN1^PSJHL2	FILEIV+7
VF1^PSJLIACT	FILEIV+9
ORDCHK^PSJLIFN	NEWIV+3
EFDIV^PSJUTL	OK+5
$$DATE^PSJUTL2	R1+1, R1+9
$$LS^PSSLOCK	FILEUD+4, FILEIV+2
UNL^PSSLOCK	FILEUD+10, FILEIV+9
PAUSE^VALM1	NEW+5, ABORT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This order is part of a complex order. If you "_$S($P(PSJSYSP0,"^",3):"RENEW",1:"MARK")_" this order the",!,"following orders will be "_$S($P(PSJSYSP0,"^",3):"RENEWED",1:"MARKED")_" too." Line Location: PSJCOMR+10
Function Call: WRITE	Prompt: !! Line Location: PSJCOMR+11
Function Call: WRITE	Prompt: !!,"THIS COMPLEX ORDER SERIES HAS BEEN 'MARKED FOR RENEWAL'.",! Line Location: UNMARK+1
Function Call: WRITE	Prompt: "...DONE!" Line Location: UNMARK+6
Function Call: WRITE	Prompt: !!,"By not verifying all the orders, none of the orders will be verified." Line Location: NEW+5
Function Call: WRITE	Prompt: !!,"...updating order..." Line Location: NEWUD+7
Function Call: WRITE	Prompt: "." Line Location: NEWUD+7
Function Call: WRITE	Prompt: !!,"...updating order..." Line Location: FILEUD+8
Function Call: WRITE	Prompt: "." Line Location: FILEUD+8
Function Call: WRITE	Prompt: ".DONE!" Line Location: FILEUD+11
Function Call: WRITE	Prompt: $C(7),!!?3,"...THIS ORDER IS ALREADY MARKED FOR RENEWAL!..." Line Location: MARK+1
Function Call: WRITE	Prompt: "." Line Location: MARK+2
Function Call: WRITE	Prompt: ! Line Location: NEWIV+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: !!,$C(7),"This order has been Auto-DC'ed." Line Location: RI+1
Function Call: WRITE	Prompt: !!,$C(7),"This order's provider is no longer valid. Please enter a valid provider." Line Location: RI+6
Function Call: WRITE	Prompt: $C(7),"Order unchanged." Line Location: RI+6
Function Call: WRITE	Prompt: !!,$C(7),"No changes made to this order." Line Location: ABORT+1
Routine Call	DIR Line Location: PSJCOMR+12 UNMARK+2 RI+2 RI+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	OK+4
^PS(53.45 - [#53.45]	NEWUD+5!, MOVE+1, MOVE+2
^PS(55 - [#55]	UNMARK+4, UNMARK+5, UNMARK+6, NEW+2, NEW+6, NEWUD, NEWUD+3, NEWUD+4, NEWUD+7, FILEUD+4 , FILEUD+9, MARK+2*, MOVE+1, OC55+3, OC55+5, RIV+1, NEWIV+4, R1+2, R1+8, RI+3
^TMP("PSJCOMR"	NEW+1!, NEW+7, NEW+10!, TEMP+1*
^TMP($J	OC55+4!
^VA(200 - [#200]	RI+5

Label References

Name	Line Occurrences
ABORT	PSJCOMR+13
DONE	PSJCOMR+13, PSJCOMR+14, PSJCOMR+15, PSJCOMR+16, UNMARK+3, NEWUD+6
FILEIV	NEW+9
FILEUD	NEW+9
MARK	NEWUD+3
MOVE	NEWUD+5
NEW	PSJCOMR+14
NEWIV	NEW+4, RIV+3
NEWUD	NEW+4, RIV+3
OC55	NEWUD+1
OK	R1+4, OK+6
R1	R1+4
RD	R1+1, R1+4, R1+6
RI	NEWIV+2
TEMP	NEWUD+14, R1+11
UNMARK	PSJCOMR+15

Name	Field # of Occurrence
^(	MOVE+1
^(2	NEWUD+5!
^(6	NEWUD+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NEWUD+3, RI+3
%DT	DONE+1!
COMQUIT	PSJCOMR+9!, NEW+2~, NEW+3, NEW+4, NEW+5, NEW+6, NEW+7, NEWUD+13, R1+6, R1+10
DA	UNMARK+6, DONE+1!, FILEUD+8!, MARK+2!*, RI+1~
DA(1	UNMARK+6, FILEUD+8, MARK+2*
>> DFN	NEWIV+4, R1+2, R1+8, R1+9, FILEIV+2, FILEIV+3, FILEIV+5, FILEIV+7, FILEIV+9, FILEIV+10 , RI+3, RI+7
DIE	DONE+1!, RI+1~
DIR	PSJCOMR+11!, PSJCOMR+12!, PSJCOMR+13~, UNMARK+1!, UNMARK+3~, DONE+1!, RI+1~, RI+2!, RI+4!
DIR("?"	PSJCOMR+12, UNMARK+2
DIR("A"	PSJCOMR+11, UNMARK+1, RI+2, RI+4
DIR("B"	PSJCOMR+11, UNMARK+1
DIR(0	PSJCOMR+11, UNMARK+1, RI+2, RI+4
>> DIRUT	PSJCOMR+14, PSJCOMR+15
DIU	RI+1~
>> DONE	RI+6
DR	DONE+1!, RI+1~
DT	RI+5
DUOUT	NEW+2~, NEW+5, NEW+6, OK+2
DUZ	NEWUD+14, MARK+2, R1+11, FILEIV+10, RI+7
>> EDIT	R1+1, RI+6
ERR	NEWIV+2~, OK+3, OK+6, RI+2, RI+4, RI+5, RI+6
FDSD	DONE+1!
>> HELP	OK+6*
>> I	FILEIV+4*
>> II	NEWUD+12, R1+9
INTERVEN	OC55+1~, OC55+2*
IVSTRING	R1~, R1+9!, R1+10, R1+11
>> OD	FILEIV+8*
ON	R1+7, FILEIV+1~, FILEIV+5, RI+7
ON55	NEWIV+4, R1+1, R1+7, R1+9, FILEIV+1~, FILEIV+5, FILEIV+7, FILEIV+9, FILEIV+10, RD+1* , RI+3
OREAS	FILEIV+1~, FILEIV+3*, FILEIV+9
P	FILEIV+1~
P(	FILEIV+4*
P("21FLG"	R1+8*
P("FRES"	R1+5*
P("NAT"	R1+5, R1+6, R1+9, FILEIV+5*
P("NEWON"	R1+1*
P("OLDON"	NEWIV+4*, R1+2, RD+1
P("PD"	OK+1
P("PON"	RD+1*
P("RES"	R1+5*
P(11	R1+2*
P(12	NEWIV+2
P(16	R1+8*
P(17	NEWIV+2, R1+5*
P(2	R1+1*, FILEIV+5, FILEIV+8, OK+4
P(3	R1+9, FILEIV+5*, OK+4
P(4	OK+1
P(6	R1+9, FILEIV+5*, RI+5
P(9	R1+2
>> P16	OK+1*
P2	R1~, R1+1*
PS55ACX	NEW+2~!, RIV+1!
PS55ACX(55	NEW+2, NEW+3, NEW+4, RIV+1, RIV+2
PSGAL	DONE+1!
PSGAL("C"	UNMARK+6, FILEUD+8, MARK+2*
PSGALO	RI+7~*
PSGALR	DONE+1!
>> PSGAT	FILEUD+5*
>> PSGCANFL	PSJCOMR+14*
>> PSGDDI	OC55+5*
PSGDL	DONE+1!
PSGDLS	DONE+1!
>> PSGDO	NEWUD+9*
PSGDRG	NEWUD~*
>> PSGDT	NEW+8, NEWUD+3, NEWUD+6, NEWUD+12, FILEUD+6, MARK+2, MARK+3
PSGFD	DONE+1!, NEW+8*, NEWUD+10, NEWUD+12, FILEUD+9, FILEIV+5
PSGFOK	DONE+1!
PSGFOK(106	NEWUD+6
>> PSGHSM	NEWUD+8*
>> PSGMR	NEWUD+8*, NEWUD+9
>> PSGMRN	NEWUD+9*
PSGND4	PSJCOMR+15, UNMARK+5, UNMARK+6, DONE+1!, NEWUD+3, MARK+1, MARK+2
>> PSGNEFD	NEWUD+10*
>> PSGNESD	NEWUD+10*
PSGOEAV	NEWUD+7~*
PSGOEE	DONE+1!, NEWUD+4*
PSGOEEF	ABORT+1!*
PSGOEOS	NEWUD+4!
>> PSGOEPR	NEW+8*, NEWUD+12, FILEUD+6, FILEIV+5
PSGOER0	DONE+1!, NEWUD+8
PSGOER1	DONE+1!, NEWUD+7*, NEWUD+9
PSGOER2	DONE+1!, NEWUD+9, NEWUD+10, NEWUD+11
PSGOERDP	DONE+1!, FILEUD+2~, FILEUD+9
>> PSGOFD	NEW+8*, NEWUD+12, FILEUD+6, FILEIV+5
>> PSGOORD	NEWUD+7*
PSGOPR	DONE+1!
PSGORD	PSJCOMR+10, UNMARK+4~, UNMARK+5, UNMARK+6, NEW+2~, NEW+4, NEW+6, NEW+7, NEW+9, NEWUD , NEWUD+3, NEWUD+6, NEWUD+7, NEWUD+12, FILEUD+2, FILEUD+4, FILEUD+6, FILEUD+7, FILEUD+8, FILEUD+10 , MARK+2, MARK+3, MOVE+1, OC55+3, OC55+5, RIV+1~, RIV+3*, NEWIV+4, R1+8, FILEIV+2 , FILEIV+3, FILEIV+5, TEMP+1
PSGORDP	NEWUD~
PSGOREAS	FILEUD+2~, FILEUD+4*, FILEUD+6
PSGORQF	NEWUD+2, OC55+3!, OC55+4!, NEWIV+3~
PSGOSD	DONE+1!
>> PSGP	PSJCOMR+10, UNMARK+5, UNMARK+6, NEW+8*, NEWUD, NEWUD+3, NEWUD+4, NEWUD+6, NEWUD+7, NEWUD+12 , FILEUD+4, FILEUD+6, FILEUD+7, FILEUD+8, FILEUD+9, FILEUD+10, MARK+2, MOVE+1, OC55+3, OC55+5
>> PSGPDRG	NEWUD+9
>> PSGPDRGN	NEWUD+9*
PSGPOSA	DONE+1!, MARK+3*
PSGPOSD	DONE+1!, MARK+3*
PSGPR	DONE+1!
PSGPX	DONE+1!
>> PSGPXN	FILEUD+7
PSGRD	DONE+1!
>> PSGRTWO	FILEUD+4*, FILEUD+5
PSGRZERO	FILEUD+2~, FILEUD+4, FILEUD+6
>> PSGS0XT	NEWUD+10*
>> PSGS0Y	NEWUD+10, NEWUD+11, FILEUD+5*
>> PSGSCH	NEWUD+9*, NEWUD+11
PSGSD	DONE+1!, NEWUD+10
>> PSGSI	NEWUD+7*
>> PSGSM	NEWUD+8*
PSGTOL	DONE+1!
PSGTOO	DONE+1!
PSGUOW	DONE+1!
PSGWLL	DONE+1!, NEWUD+4*, FILEUD+9
PSIVACT	R1+8*, RI+1~
PSIVALCK	RI+1~
PSIVALT	RI+1~
>> PSIVCHG	R1+3*
>> PSIVCT	OK+1*
PSIVEXAM	OK+1*, OK+4!
PSIVND0	R1~
PSIVND2	R1~
>> PSIVNOL	OK+1*
PSIVOFD	R1~, R1+8, R1+9, FILEIV+5
>> PSIVOK	R1+1, RI+6
PSIVREA	RI+1~
PSIVREAS	R1~
PSIVRNFG	NEWIV+3*!
PSIVTMP	FILEIV+1~
>> PSIVTMP0	FILEIV+2*, FILEIV+4
>> PSIVTMP2	FILEIV+3, FILEIV+9
PSIVZERO	FILEIV+1~, FILEIV+2*
PSJABT	NEWUD~
PSJBKDR	R1~*
>> PSJCOM	PSJCOMR+9, PSJCOMR+10, UNMARK+4, NEW+2, NEW+3, NEW+4, NEW+6, NEW+7, FILEUD+7, RIV+1 , RIV+2, TEMP+1
>> PSJDD	OC55+5*
PSJDDI	OC55+1~
PSJIREQ	OC55+1~, OC55+2*
>> PSJIVORF	R1+5, FILEIV+6
>> PSJNOO	NEW+8*, NEWUD+12, FILEUD+6, FILEIV+5
PSJORD	FILEUD+2~, FILEIV+1~, FILEIV+5
>> PSJORIFN	R1+8*
PSJPDRG	OC55+1~, OC55+5!
PSJPREX	FILEUD+2!, FILEUD+7*
>> PSJPWD	NEWUD+11
PSJREN	NEWUD~*
PSJRXREQ	OC55+1~, OC55+2*
>> PSJSYSO	MARK+3
>> PSJSYSP	NEWUD+5, MOVE+1
>> PSJSYSP0	PSJCOMR+10, PSJCOMR+11, PSJCOMR+12, NEWUD+3
>> PSJSYSU	PSJCOMR+15, UNMARK+6, NEWUD+7, FILEUD+7, FILEUD+8
>> PSJSYSW0	NEWUD+4, FILEUD+9
>> Q	MOVE+1*, MOVE+2
RF	DONE+1!
TMPDUZ	NEW+2~, NEW+8*, FILEUD+6
TMPO	NEW+2~, NEW+4, NEW+6, NEW+7, RIV+1~, RIV+2, RIV+3
TMPOE	NEW+2~, NEW+6*
TMPP	NEW+2~, NEW+3, NEW+4, RIV+1~, RIV+2
U	NEWUD+11, MOVE+2, R1+2, R1+4, RI+3, RI+5
UDSTRING	NEWUD~, NEWUD+12!, NEWUD+13, NEWUD+14
>> VAIN(4	R1+2
>> VALMBCK	NEWUD+6, FILEUD+11
VARS	TEMP~, TEMP+1
VSTRING	NEW+7!*, NEW+8, NEW+10!
X	UNMARK+4~, NEWUD~, FILEUD+2~, FILEUD+4, MOVE~, MOVE+1, OC55+2, NEWIV+1~, R1+1, R1+4 , FILEIV+1~, FILEIV+2, OK+2, OK+3, OK+6, RI+5
XX	UNMARK+4~*, NEWUD~, NEWIV+1~
Y	PSJCOMR+13, PSJCOMR+14, UNMARK+3, MOVE~, MOVE+1, MOVE+2, OC55+2, OK+4, RI+2, RI+4
>> ZZND	OK+5

Customize PDF page

Package: Inpatient Medications

Routine: PSJCOMR

Information

Source Information

Call Graph

Call Graph Total: 29

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: