Routine: PSIVORC

Information

PSIVORC ;BIR/MLM-COMPLETE IV ORDERS ENTERED THROUGH OE/RR ;29-May-2012 14:34;PLS

Source Information

Source file <PSIVORC.m>

Call Graph

Call Graph Total: 24

Package	Total	Call Graph
Inpatient Medications	20	ENQL^PSGLW $$ENDTC^PSGMI ($$PNDRNA,$$REQPROV)^PSGOEC RD1^PSGON ^PSGSEL ENGETP^PSIV DC^PSIVORA DONE^PSIVORC1 (EDIT,FINISH)^PSIVORC2 SITE^PSIVORE (NATURE,ORPARM)^PSIVOREN GT531^PSIVORFA ENNONUM^PSIVORV2 ($$CODES,$$GTPCI,PIV)^PSIVUTL ENBOTH^PSJAC CHK^PSJDPT ^PSJLIFN REQDT^PSJLIVMD ENHEAD^PSJO3 $$ENORL^PSJUTL
VA Fileman	3	NOW^%DTC ^DIC FIELD^DID
IHS Changes To Pharmacy	1	$$INPTCOM^APSPFUNC

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Inpatient Medications	2	PSIVOPT PSJLIACT

Entry Points

Name	Comments	DBIA/ICR reference
PROFILE	; Display profile of all incomplete orders.
GW
EN	; Set IV parameters.
PNDRN(PSJDCTYP)	; Discontinue pending renewal only or both pending and original orders
G
SHOW	; Display selected order and prompt for action
EDIT	; Edit incomplete order
D3	; called from PNDRN for original order
GP	;
SHOW1	; Entry point from backdoor.
GG	; put patient(s) with incomplete orders into array
P
DISCONT	; Cancel incomplete order
GTORDRS	;
W
ASK	; Ask which orders to view.
FINISH	; Finish incomplete order
GTYP	; Get formatted heading for type
D2	; Called from PNDRN for pending order
DISPLAY	; Display order on profile.
SELECT	;

External References

Name	Field # of Occurrence
NOW^%DTC	GTORDRS+3
$$INPTCOM^APSPFUNC	D2+1
^DIC	G, W
FIELD^DID	GTYP+1
ENQL^PSGLW	ASK+3
$$ENDTC^PSGMI	GTORDRS+3
$$PNDRNA^PSGOEC	DISCONT+1
$$REQPROV^PSGOEC	D2+3
RD1^PSGON	ASK+1
^PSGSEL	SELECT+1
ENGETP^PSIV	P
DC^PSIVORA	D3+1, D3+3
DONE^PSIVORC1	SELECT+2
EDIT^PSIVORC2	EDIT+2
FINISH^PSIVORC2	FINISH+2
SITE^PSIVORE	EN+1
NATURE^PSIVOREN	D2+1
ORPARM^PSIVOREN	D2+1
GT531^PSIVORFA	SHOW1+1
ENNONUM^PSIVORV2	SHOW1+1
$$CODES^PSIVUTL	GTYP+4
$$GTPCI^PSIVUTL	SHOW1+1
PIV^PSIVUTL	DISPLAY+2
ENBOTH^PSJAC	PROFILE+2
CHK^PSJDPT	GTORDRS+5
^PSJLIFN	SHOW1+3
REQDT^PSJLIVMD	SHOW1+2
ENHEAD^PSJO3	PROFILE+3, DISPLAY+1
$$ENORL^PSJUTL	PROFILE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"NO PENDING ORDERS FOR ",$S(PSGSS="P":"PATIENT",1:"WARD"),$S(PSGSS="G":" GROUP",1:"")," SELECTED." Line Location: GTORDRS+2
Function Call: WRITE	Prompt: !?3,PSGLMT Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,X_PSIV_X Line Location: GTYP+5
Function Call: WRITE	Prompt: ! Line Location: G+0
Function Call: WRITE	Prompt: S Line Location: W+0
Function Call: WRITE	Prompt: ! Line Location: W+0
Function Call: WRITE	Prompt: !,$C(7),"Order Unchanged." Line Location: D2+1
Function Call: WRITE	Prompt: !,$C(7),"Order Unchanged." Line Location: D2+3
Function Call: WRITE	Prompt: ! Line Location: D2+4
Function Call: WRITE	Prompt: !,"Order discontinued.",! Line Location: D3+4
Function Call: WRITE	Prompt: !,$C(7),"This order LOCKED by another user." Line Location: EDIT+1
Function Call: WRITE	Prompt: !,$C(7),"This order LOCKED by another user." Line Location: FINISH+1
Routine Call	DIC Line Location: G W

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(42 - [#42]	Classic Fileman Calls
^PS(53.1 - [#53.1]	FIELD^DID
^PS(57.5 - [#57.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	GW
^DPT - [#2]	P, GW
^DPT("CN"	GW
^PS(53.1 - [#53.1]	P, GW, GP+1, DISCONT+1, D3+1, D3+2, D3+3, EDIT+1, EDIT+2, FINISH+1 , FINISH+2, PNDRN+2
^PS(57.5 - [#57.5]	GG+1
^TMP("PSIV"	GTORDRS+1!, GTORDRS+2, GTORDRS+4, PROFILE+4, GP+1*

Label References

Name	Line Occurrences
@(	GTORDRS+1
ASK	GTORDRS+6, GTORDRS+7, DISPLAY+1
D2	PNDRN+1
D3	PNDRN+3
DISPLAY	PROFILE+4
GP	P, GW
GTORDRS	SELECT+1
GTYP	PROFILE+4, DISPLAY+1
GW	GG+1
PNDRN	DISCONT+1
PROFILE	GTORDRS+6
SHOW	ASK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GTORDRS+3
>> ACTION	ASK+1*
>> DFN	PROFILE+2, ASK+3, SHOW1+1, P, GW, GP+1
DIC	GTORDRS+1~, G, W
DIC("A"	G, W
DIC(0	G, W
>> DONE	GTORDRS+3, GTORDRS+4, ASK+1
>> DONE1	PROFILE+4, DISPLAY+1, ASK+1, ASK+2, ASK+3
>> HDT	GTORDRS+3*
INCOM	DISCONT+2~, D2+1*
IOSL	PROFILE+4, DISPLAY+1
>> LN2	PROFILE+3*
ND5310	PNDRN+2~*, PNDRN+3
O	D3+2~*, D3+3
ON	ASK+2, SHOW+1, SHOW1+1, SHOW1+3, GP+1, DISCONT+1, D3+1, D3+3, EDIT+1, EDIT+2 , FINISH+1, FINISH+2, PNDRN+2, PNDRN+3~*
>> ON1	PROFILE+4*, DISPLAY+2
>> P("NAT"	D2+1, D3+1, D3+3
>> P("PON"	SHOW+1*
>> PG	PROFILE+3*
>> PN	ASK+2*
>> PNME	GTORDRS+4, GTORDRS+5, PROFILE+2, PROFILE+4, P, GW*, GP+1
>> PSGDFN	GTORDRS+5*
>> PSGLMT	PROFILE+3, DISPLAY+2
PSGODDD	PROFILE+2!, ASK+2
PSGODDD(1	ASK+2
>> PSGOP	ASK+3*
>> PSGP	PROFILE+2*
>> PSGSS	SELECT+1, GTORDRS+1, GTORDRS+2, GTORDRS+5
>> PSGSSH	SELECT+1*
>> PSIV	GTYP+5*
>> PSIVAC	GTORDRS+3, SHOW1+1, EDIT+1, FINISH+1*
>> PSIVCV(	DISPLAY+2*, SHOW+1
>> PSIVHD	GTORDRS+6, GTORDRS+7, DISPLAY+2, ASK+1
PSIVQ	EN+1!
>> PSIVUP	SHOW1+1*
>> PSJC	DISPLAY+2*
>> PSJCOM	D3+1, D3+2
PSJD5314	GTYP+1~
PSJD5314("POINTER"	GTYP+4
PSJDCTYP	DISCONT+1~, D2+3!, PNDRN~, PNDRN+1, PNDRN+3*
>> PSJIVOF	PROFILE+3*
>> PSJIVORF	D2+1
>> PSJORD	SHOW1+2, SHOW1+3, D3+1, D3+2, D3+3*
>> PSJORIFN	D3+1, D3+3
>> PSJORL	PROFILE+3*
PSJORNAT	D3+1~, D3+3
>> PSJPRB	PROFILE+3
>> PSJSYSL	ASK+3
>> RB	PROFILE+3*
>> TYP	PROFILE+4, GTYP+4, GP+1
U	SELECT+1, ASK+3, P, GW, GP+1, D3+1, D3+3
>> VAIN(4	PROFILE+3, P
>> WD	W, GG+1, GW
>> WDN	GTORDRS+3, GTORDRS+4, PROFILE+4, P, GW, GP+1
>> WG	G*, GG+1
>> X	GTYP+4, GTYP+5, ASK+1
Y	GTORDRS+1~, GTORDRS+2, G, W, P, GW, GP+1*

Customize PDF page

Package: Inpatient Medications

Routine: PSIVORC

Call Graph Total: 24

Caller Graph Total: 2