Routine: PSUCS3

Package	Total	Call Graph
Pharmacy Benefits Management	2	(FORMIND,GNAME,LOCTYP,NDC,NFIND,VDC,VPNAME)^PSUCS4 $$VALI^PSUTL
Registration	1	PID^VADPT

Package	Total	Caller Graph
Pharmacy Benefits Management	1	PSUCS1

Name	Comments	DBIA/ICR reference
MULTCHK	; ; store in array (quit if already administered)
DUNIT	;Dispense Unit
UNITC	;Unit Cost
QTY17	;For transactions with a dispensing type =17, total the number of doses
FACILTY	;
TYP17	; Processing the transaction for dispensing type 17
SSN	;Field # 58.81,73 [PATIENT] Points to File # 2

Name	Field # of Occurrence
FORMIND^PSUCS4	TYP17+19
GNAME^PSUCS4	TYP17+11
LOCTYP^PSUCS4	TYP17+11
NDC^PSUCS4	TYP17+19
NFIND^PSUCS4	TYP17+19
VDC^PSUCS4	TYP17+26
VPNAME^PSUCS4	TYP17+26
$$VALI^PSUTL	MULTCHK+3, FACILTY+2, FACILTY+8, FACILTY+13, FACILTY+16, DUNIT+2, UNITC+2, QTY17+8
PID^VADPT	SSN+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	FACILTY+4
^XTMP(	MULTCHK+5, MULTCHK+6, MULTCHK+11, MULTCHK+12, QTY17+9, QTY17+10*

Name	Field # of Occurrence
^("QT"	MULTCHK+7*

Name	Field # of Occurrence
>> DFN	SSN+3*
>> OLDXTMP	QTY17+9*, QTY17+10
>> PSUCSJB	MULTCHK+5, MULTCHK+6, MULTCHK+11, MULTCHK+12, QTY17+9, QTY17+10
>> PSUDIV(	FACILTY+13*, FACILTY+16
>> PSUDRG(4	MULTCHK+5, MULTCHK+6, MULTCHK+11, MULTCHK+12, DUNIT+2, UNITC+2, QTY17+9, QTY17+10
>> PSUDUN(	DUNIT+2*, DUNIT+3
>> PSUFCN(1	FACILTY+16*, FACILTY+17
>> PSUIENDA	MULTCHK+3, MULTCHK+11, QTY17+8
>> PSULOC	MULTCHK+5, MULTCHK+6, MULTCHK+11, MULTCHK+12, QTY17+9, QTY17+10
>> PSULTP(1	TYP17+13
>> PSUMCHK	MULTCHK+2*
>> PSUPDU(16	UNITC+2*
>> PSUPIEN(73	MULTCHK+5, MULTCHK+6, MULTCHK+11, MULTCHK+12, FACILTY+2, SSN+2, SSN+3, QTY17+9, QTY17+10
>> PSUQT(5	MULTCHK+3*, MULTCHK+7, MULTCHK+12
>> PSURI	FACILTY+18*
>> PSUSSN(	SSN+4*
>> PSUTQ(5	QTY17+8*, QTY17+10
>> PSUWARD(1	FACILTY+8*, FACILTY+13
>> PSUWLC(	FACILTY+2, FACILTY+3, FACILTY+4, FACILTY+5, FACILTY+8
>> SENDER	FACILTY+17*
>> UNIT	DUNIT+3*
>> VA("PID"	SSN+4
>> X	MULTCHK+6*, MULTCHK+7

Information