Routine: PSIVRDC

Information

PSIVRDC ;BIR/MV - RECYCLE, CANCEL, DESTROY ACTIONS ;30 Aug 2001 4:21 PM

Package	Total	Call Graph
Inpatient Medications	4	ADSOL^PSIVLB ^PSIVLTR ^PSIVSTAT ^PSIVXU
VA Fileman	4	NOW^%DTC ^DIC ^DIE ^DIR
Kernel	1	$$UP^XLFSTR
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Inpatient Medications	1	PSJI RETURN BY BARCODE ID

Name	Comments	DBIA/ICR reference
TXT(X)	;Expand the set of code to text.
EN	;
UPDID(PSJID,PSJRDC)
GTID(PSJRDC)	;
DSPLY	;Display the patient name, additives/solutions.

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+4
Function Call: WRITE	Prompt: !,"...Invalid ID number. Please try again.",!! Line Location: UPDID+2
Function Call: WRITE	Prompt: !!,"...Invalid ID number. Please try again.",!! Line Location: UPDID+4
Function Call: WRITE	Prompt: ! Line Location: UPDID+5
Function Call: WRITE	Prompt: !,"...The ID entered was marked as " Line Location: UPDID+8
Function Call: WRITE	Prompt: $S(PSJLB(4)="C":"Completed.",PSJLB(4)="G":"Given.",PSJLB(4)="I":"Infusing.",PSJLB(4)="S":"Stop.",PSJLB(7)="CA":"Cancel.",PSJLB(7)="DT":"Destroy.",PSJLB(7)="RC":"Recycle.",1:""),! Line Location: UPDID+9
Function Call: WRITE	Prompt: !,"...Barcode ID did not match. No action was taken." Line Location: UPDID+14
Function Call: WRITE	Prompt: ! Line Location: UPDID+14
Function Call: WRITE	Prompt: !,"...Done!",!! Line Location: UPDID+21
Function Call: WRITE	Prompt: !,VADM(1),! Line Location: DSPLY+6
Function Call: WRITE	Prompt: !,^(X,0) Line Location: DSPLY+7
Function Call: WRITE	Prompt: ! Line Location: DSPLY+8
Routine Call	DIE Line Location: UPDID+18
Routine Call	DIC Line Location: UPDID+3
Routine Call	DIR Line Location: EN+5 GTID+2 UPDID+12

Name	Line Occurrences (* Changed, ! Killed)
^PS(55 - [#55]	UPDID+2
^TMP("PSIVLB"	DSPLY+2!, DSPLY+7, DSPLY+9!

Name	Field # of Occurrence
^(	DSPLY+7

Name	Field # of Occurrence
>> %	UPDID+18
ACTION	UPDID+1~, UPDID+20*
CHK	EN+1~
DA	EN+3~, UPDID+1~, UPDID+15!, UPDID+17*, UPDID+19!
DA(1	UPDID+3, UPDID+17
DFN	UPDID+1~, UPDID+10*, UPDID+17
DIC	EN+3~, UPDID+1~, UPDID+3*, UPDID+15!, UPDID+19!
DIC(0	UPDID+3*
DIE	UPDID+15!, UPDID+17*, UPDID+19!
DIR	EN+3~, EN+5!, GTID+1!, UPDID+12!, UPDID+15!
DIR("?"	GTID+2*
DIR("A"	EN+5, GTID+1, UPDID+12*
DIR("B"	UPDID+12*
DIR(0	EN+5, GTID+1, UPDID+12*
DIROUT	GTID+1, UPDID+13, UPDID+19!
DR	UPDID+15!, UPDID+18*, UPDID+19!
DTOUT	GTID+1, UPDID+13, UPDID+19!
DUOUT	GTID+1, UPDID+13, UPDID+19!
LABELS	UPDID+1~, UPDID+20*
ON	UPDID+1~, UPDID+10*
PSGDT	EN+1~
PSIVNOL	UPDID+1~, UPDID+20*
PSIVPL	EN+1~
PSIVPR	EN+1~
PSIVSITE	EN+1~
PSIVSN	EN+1~
PSJADSOL	DSPLY+1~
PSJAS	DSPLY+1~, DSPLY+5*
PSJID	UPDID~, UPDID+2, UPDID+3, UPDID+10, UPDID+12, UPDID+14, UPDID+17, DSPLY+4
PSJL	DSPLY+1~, DSPLY+4*
PSJLB	UPDID+1~
PSJLB(	UPDID+6*
PSJLB(2	UPDID+10
PSJLB(4	UPDID+7, UPDID+9
PSJLB(7	UPDID+7, UPDID+9
PSJLBN	DSPLY+1~, DSPLY+4*
PSJLEN	DSPLY+1~, DSPLY+4*
PSJLN	DSPLY+1~, DSPLY+4*
PSJRDC	GTID~, GTID+1, UPDID~, UPDID+12, UPDID+18, UPDID+20
PSJSYSL	EN+1~
PSJSYSP	EN+1~
PSJSYSP0	EN+1~
PSJSYSU	EN+1~
U	UPDID+6
VA	DSPLY+1~
VADM	DSPLY+1~
VADM(1	DSPLY+6
X	EN+3~, GTID+1, UPDID+1~, UPDID+3, UPDID+6, UPDID+14, DSPLY+1~, DSPLY+7*, TXT~, TXT+1
>> XQUIT	EN+2
Y	EN+3~, EN+5, UPDID+1~, UPDID+4
Y(0	UPDID+6