Routine: PSUCS2

Information

PSUCS2 ;BIR/DJE,DJM - Generate CS records (TYPE2) ;25 AUG 1998

Source file <PSUCS2.m>

Package	Total	Call Graph
Pharmacy Benefits Management	2	(FORMIND,GNAME,LOCTYP,NDC,NFIND,PDT,VDC,VPNAME)^PSUCS4 ($$VALI,GETM,MOVEMI)^PSUTL

Package	Total	Caller Graph
Pharmacy Benefits Management	2	PSUCS1 PSUCS17

Name	Comments	DBIA/ICR reference
DIVISION	;
QTY2	;3.2.5.10. Functional Requirement 10
TYP2	; Processing the transaction for dispensing type 2
NAOU	;3.2.5.6. Functional Requirement 6

Name	Field # of Occurrence
FORMIND^PSUCS4	TYP2+32
GNAME^PSUCS4	TYP2+24
LOCTYP^PSUCS4	TYP2+24
NDC^PSUCS4	TYP2+32
NFIND^PSUCS4	TYP2+32
PDT^PSUCS4	TYP2+36
VDC^PSUCS4	TYP2+36
VPNAME^PSUCS4	TYP2+36
$$VALI^PSUTL	TYP2+7, TYP2+14, DIVISION+2, DIVISION+9, DIVISION+10, NAOU+3, NAOU+10, NAOU+14, QTY2+7, QTY2+8 , QTY2+9, QTY2+11
GETM^PSUTL	DIVISION+5
MOVEMI^PSUTL	DIVISION+6

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	QTY2+12*

Name	Field # of Occurrence
>> CPFLG	TYP2+29
MAPLOCI	DIVISION+4~
MAPLOCI(	DIVISION+8, DIVISION+9, DIVISION+10, DIVISION+11
>> PSUCSJB	QTY2+12
>> PSUDRG(4	TYP2+7, TYP2+14, QTY2+9, QTY2+12
>> PSUIENDA	TYP2+7, DIVISION+2, NAOU+3, NAOU+10, QTY2+7, QTY2+8, QTY2+9, QTY2+11, QTY2+12
>> PSULOC	QTY2+12
>> PSULTP(1	TYP2+26
>> PSUNAOU	NAOU+4, NAOU+9, NAOU+11, NAOU+14
>> PSUNAOU(17	NAOU+3*, NAOU+4
>> PSUNAOU(2	NAOU+10*, NAOU+11
>> PSUPDU(16	TYP2+14*
>> PSUPL(2	DIVISION+2*, DIVISION+8, DIVISION+9, DIVISION+10, DIVISION+11
>> PSUPLC(	NAOU+14*
>> PSUQED(48	QTY2+7*, QTY2+11
PSUQUIT	TYP2+6!, TYP2+11, TYP2+26, TYP2+29*
>> PSURI	DIVISION+12*
>> PSUSNDR	DIVISION+12
>> PSUTQY(5	TYP2+11, QTY2+8, QTY2+11, QTY2+12
>> SENDER	DIVISION+3, DIVISION+9, DIVISION+10, DIVISION+12
>> X	DIVISION+9, DIVISION+10