Routine: PSIVACT

Information

PSIVACT ;BIR/PR,MLM-UPDATE ORDER STATUS AFTER PATIENT SELECTION ;16 Jul 98 / 12:51 PM

Source file <PSIVACT.m>

Package	Total	Call Graph
Inpatient Medications	3	EXPIR^PSIVOE ENIV^PSJADT0 $$COMCHK^PSJO1
Kernel	1	(T0,T1)^%ZOSV
VA Fileman	1	NOW^%DTC

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

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

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

Name	Field # of Occurrence
^(	NVACT+3
^(4	NACTO+4

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