Routine: PSIVACT

Information

PSIVACT ;BIR/PR,MLM - UPDATE ORDER STATUS AFTER PATIENT SELECTION ;Jul 02, 2018@09:29

Package	Total	Call Graph
Inpatient Medications	4	EXPIR^PSIVOE ENIV^PSJADT0 ($$CLINIC,$$CLINSORT,$$COMCHK)^PSJO1 $$RECDCEXP^PSJP
Kernel	1	(T0,T1)^%ZOSV
VA FileMan	1	NOW^%DTC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Inpatient Medications	5	PSIV PSIVPGE PSIVPR PSJEEU0 PSJPR0
Surgery	1	SROXR1

Entry Points

Name	Comments	DBIA/ICR reference
ENNA	; Inpatient entry point.
ENNB	; Ask profile type, gather orders.
L	; Long profile
S	; Short profile.
NVACT	; Non-verified but have active status
PEND	; Get pending and non-verified orders from 53.1
QUIT	; Kill and exit.
SETP	; Get partial P array,
CHK	; Check if order is active or expired and save accordingly.
ACTO	; Active orders
NACTO	; Inactive orders
DCOR	; Auto-cancel IV orders	ICR #206 Status: Active Usage: Private ICR #900 Status: Active Usage: Controlled Subscription

External References

Name	Field # of Occurrence
NOW^%DTC	ENNA+2, ENNB+1, DCOR+4
T0^%ZOSV	ENNA+1
T1^%ZOSV	ENNA+3, ENNB+4
EXPIR^PSIVOE	NACTO+11
ENIV^PSJADT0	DCOR+5
$$CLINIC^PSJO1	NVACT+4, PEND+6, PEND+12, CHK+2, ACTO+3, NACTO+3
$$CLINSORT^PSJO1	NVACT+4, PEND+6, PEND+12, CHK+2, ACTO+3, NACTO+7, NACTO+9, NACTO+12
$$COMCHK^PSJO1	PEND+4, PEND+10
$$RECDCEXP^PSJP	S+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	PEND+2, PEND+3, PEND+4, PEND+7, PEND+8, PEND+9, PEND+10, PEND+13
^PS(55 - [#55]	L+2, S+3, NVACT+2, NVACT+5, SETP+1, CHK+6, NACTO+5, NACTO+6, NACTO+11
^TMP("PSIV"	ENNB+1!, NVACT+5, PEND+7, PEND+13, CHK+3, CHK+6, ACTO+4, ACTO+5, ACTO+6, ACTO+7* , NACTO+8, NACTO+10, NACTO+13*
^TMP("PSJPRO"	ENNB+1!

Label References

Name	Line Occurrences
@(	ENNB+3
ACTO	S+3, CHK+4
CHK	SETP+3
L	ENNA+2
NACTO	CHK+5
NVACT	S+4
PEND	ENNA+2, ENNB+3
SETP	L+2

Naked Globals

Name	Field # of Occurrence
^(	NVACT+5
^(4	NACTO+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENNA+2, ENNB+1, DCOR+4
CLIN	NVACT+3~, NVACT+4, PEND+5~, PEND+6, PEND+11~, PEND+12, CHK+1~, CHK+2, ACTO+2~, ACTO+3* , NACTO+2~, NACTO+3*, NACTO+7, NACTO+9, NACTO+12
CLINSORT	NVACT+3~, NVACT+4, PEND+5~, PEND+6, PEND+11~, PEND+12, CHK+1~, CHK+2, ACTO+2~, ACTO+3* , NACTO+2~, NACTO+7, NACTO+9, NACTO+12*
DA	DCOR+2~
>> DFN	L+2, S+3, NVACT+1, NVACT+2, NVACT+5, PEND+1, PEND+2, PEND+8, SETP+1, CHK+1 , CHK+6, ACTO+2, NACTO+2, NACTO+5, NACTO+6, NACTO+11, DCOR+3
DG	DCOR+2~
DIR	DCOR+2~
JJ	QUIT+1!
ON	L+2, S+3, NVACT+1~, NVACT+2, NVACT+4, NVACT+5, PEND+2, PEND+3, PEND+4, PEND+6 , PEND+7, PEND+8, PEND+9, PEND+10, PEND+12, PEND+13, SETP+1, CHK+2, CHK+3, CHK+6 , ACTO+3, ACTO+4, ACTO+5, ACTO+6, ACTO+7, NACTO+3, NACTO+5, NACTO+6, NACTO+8, NACTO+10 , NACTO+11, NACTO+13, DCOR+2~
ON55	DCOR+2~
P	DCOR+2~
P(	SETP+1*
P("PT"	ENNB+3, ENNB+4
P(17	S+3*, SETP+3, CHK+3, CHK+6, ACTO+4, ACTO+5, ACTO+6, ACTO+7, NACTO+4, NACTO+11 , NACTO+12
P(2	SETP+2*, SETP+3
P(3	SETP+2*, SETP+3, CHK+4
>> PS	ENNA+2, ENNB+1, CHK+3*
>> PS("A"	CHK+6*
PSDFN	QUIT+1!
PSFDT	ENNA+2, ENNB+1, S+2, QUIT+1!, CHK+4, CHK+5
PSGALO	DCOR+2~
PSGP	NVACT+1, NVACT+4, PEND+1, PEND+6, PEND+12, CHK+1, CHK+2, ACTO+2, ACTO+3, NACTO+2* , NACTO+3, DCOR+2~, DCOR+3*
PSIVAC	DCOR+2~
PSIVACT	DCOR+2~
PSIVCWD	QUIT+1!
>> PSIVDT	S+3*
PSIVFLAG	QUIT+1!
PSIVLN	DCOR+2~
PSIVNV	ENNB+2, S+4!, NVACT+2
>> PSIVRD	ENNA+2, ENNB+3
PSIVREA	CHK+6*, DCOR+2~
PSIVRES	DCOR+2~, DCOR+3*
PSIVSTAT	NVACT+3~, NVACT+4, NVACT+5, PEND+5~, PEND+6, PEND+7, PEND+11~, PEND+12, PEND+13, CHK+1~* , CHK+2, CHK+3, CHK+6, ACTO+2~, ACTO+3, ACTO+4, ACTO+5, ACTO+6, NACTO+2~, NACTO+5 , NACTO+7, NACTO+8, NACTO+9, NACTO+10, NACTO+12*, NACTO+13
PSIVWD	QUIT+1!
PSJCOM	PEND+1~, PEND+2, PEND+4, PEND+5, PEND+8, PEND+10*, PEND+11, PEND+12
PSJCOM1	PEND+1~, PEND+2, PEND+4, PEND+8*, PEND+10
PSJDCDT	DCOR+2~, DCOR+4*
>> PSJDCEXP	S+1, S+2, S+3
PSJIVDCF	DCOR+2~
PSJIVON	DCOR+2~
PSJIVORF	DCOR+2~
PSJORF	DCOR+2~
>> PSJSYSU	ENNB+2, L+1*, S+4, NACTO+6
PSON1	QUIT+1!
SORT	NVACT+3~, PEND+5~, PEND+11~, CHK+1~, ACTO+2~, NACTO+2~
U	S+2, S+3, NVACT+5, PEND+3, PEND+4, PEND+7, PEND+9, PEND+10, PEND+13, SETP+1 , CHK+6, NACTO+5, NACTO+6, NACTO+11
VA	DCOR+2~
VADM	DCOR+2~
VAERR	DCOR+2~
X	PEND+3~, PEND+7, PEND+9~, PEND+13, SETP+1*
XHOLD	QUIT+1!
>> XRT0	ENNA+3, ENNB+4
>> XRTL	ENNA+1
>> XRTN	ENNA+3, ENNB+4
Y	L+2!, SETP+1*
Y(	SETP+2*, CHK+4, CHK+5
YHOLD	QUIT+1!

Customize PDF page

Package: Inpatient Medications