Sub-Field: 90002.5911

Parent File	Name	Number	Package
CHR CANNED NARRATIVES(#90002.59)	SERVICE CODES TO USE WITH	90002.5911	IHS RPMS CHR System

Parent File

Name

Number

Package

SERVICE CODES TO USE WITH

90002.5911

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SERVICE CODES TO USE WITH	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `NOV 04, 2011` HELP-PROMPT: `Answer must be 2 characters in length.` CROSS-REFERENCE: `90002.5911^B` 1)= S ^BCHTCNAR(DA(1),11,"B",$E(X,1,30),DA)="" 2)= K ^BCHTCNAR(DA(1),11,"B",$E(X,1,30),DA)
.02	ORDER	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^ASCO^MUMPS` 1)= S ^BCHTCNAR("ASCO",$P(^BCHTCNAR(DA(1),11,DA,0),U,1),X,DA(1),DA)="" 2)= K ^BCHTCNAR("ASCO",$P(^BCHTCNAR(DA(1),11,DA,0),U,1),X,DA(1),DA)

SERVICE CODES TO USE WITH

0;1

FREE TEXT

CROSS-REFERENCE: 90002.5911^B

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

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

ORDER

0;2

NUMBER

CROSS-REFERENCE: 90002.59^ASCO^MUMPS

1)= S ^BCHTCNAR("ASCO",$P(^BCHTCNAR(DA(1),11,DA,0),U,1),X,DA(1),DA)=""

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