Sub-Field: 90056.0212

Parent File	Name	Number	Package
90056.0205	NCPDP REJ/PAY CODES	90056.0212	IHS Accounts Receivable

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SEQUENCE	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 04, 2004` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` CROSS-REFERENCE: `90056.0212^B` 1)= S ^BAREDI("I",DUZ(2),DA(2),30,DA(1),50,"B",$E(X,1,30),DA)="" 2)= K ^BAREDI("I",DUZ(2),DA(2),30,DA(1),50,"B",$E(X,1,30),DA)
.02	DESCRIPTION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2) X` LAST EDITED: `MAR 04, 2004` HELP-PROMPT: `Answer must be 2-80 characters in length.`
.03	CODE	0;3	POINTER TO ABSP NCPDP REJECT CODES FILE (#9002313.93)	ABSP NCPDP REJECT CODES(#9002313.93) LAST EDITED: `MAR 04, 2004` CROSS-REFERENCE: `90056.0212^C` 1)= S ^BAREDI("I",DUZ(2),DA(2),30,DA(1),50,"C",$E(X,1,30),DA)="" 2)= K ^BAREDI("I",DUZ(2),DA(2),30,DA(1),50,"C",$E(X,1,30),DA)

SEQUENCE

0;1

NUMBER

CROSS-REFERENCE: 90056.0212^B

1)= S ^BAREDI("I",DUZ(2),DA(2),30,DA(1),50,"B",$E(X,1,30),DA)=""

2)= K ^BAREDI("I",DUZ(2),DA(2),30,DA(1),50,"B",$E(X,1,30),DA)

DESCRIPTION

0;2

FREE TEXT

CODE

0;3

POINTER TO ABSP NCPDP REJECT CODES FILE (#9002313.93)

CROSS-REFERENCE: 90056.0212^C

1)= S ^BAREDI("I",DUZ(2),DA(2),30,DA(1),50,"C",$E(X,1,30),DA)=""

2)= K ^BAREDI("I",DUZ(2),DA(2),30,DA(1),50,"C",$E(X,1,30),DA)