Sub-Field: 90002.5912

Parent File	Name	Number	Package
CHR CANNED NARRATIVES(#90002.59)	PROB CODE-SERV CODE	90002.5912	IHS RPMS CHR System

Parent File

Name

Number

Package

PROB CODE-SERV CODE

90002.5912

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PROB CODE-SERV CODE	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `NOV 04, 2011` HELP-PROMPT: `Answer must be 1-10 characters in length.` CROSS-REFERENCE: `90002.5912^B` 1)= S ^BCHTCNAR(DA(1),12,"B",$E(X,1,30),DA)="" 2)= K ^BCHTCNAR(DA(1),12,"B",$E(X,1,30),DA)
.02	ORDER TO DISPLAY	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 04, 2011` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` CROSS-REFERENCE: `90002.59^ACOMB^MUMPS` 1)= S ^BCHTCNAR("ACOMB",$P(^BCHTCNAR(DA(1),12,DA,0),U,1),X,DA(1),DA)="" 2)= K ^BCHTCNAR("ACOMB",$P(^BCHTCNAR(DA(1),12,DA,0),U,1),X,DA(1),DA)

PROB CODE-SERV CODE

0;1

FREE TEXT

CROSS-REFERENCE: 90002.5912^B

1)= S ^BCHTCNAR(DA(1),12,"B",$E(X,1,30),DA)=""

2)= K ^BCHTCNAR(DA(1),12,"B",$E(X,1,30),DA)

ORDER TO DISPLAY

0;2

NUMBER

CROSS-REFERENCE: 90002.59^ACOMB^MUMPS

1)= S ^BCHTCNAR("ACOMB",$P(^BCHTCNAR(DA(1),12,DA,0),U,1),X,DA(1),DA)=""

2)= K ^BCHTCNAR("ACOMB",$P(^BCHTCNAR(DA(1),12,DA,0),U,1),X,DA(1),DA)