Sub-Field: 90001.312301

Parent File	Name	Number	Package
RCIS SITE PARAMETER(#90001.31)	COSMETIC PROCEDURE MSG	90001.312301	Referred Care Information System

Parent File

Name

Number

Package

COSMETIC PROCEDURE MSG

90001.312301

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	COSMETIC PROCEDURE MSG	0;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 12, 1996` CROSS-REFERENCE: `90001.312301^B` 1)= S ^BMCPARM(DA(1),23,"B",$E(X,1,30),DA)="" 2)= K ^BMCPARM(DA(1),23,"B",$E(X,1,30),DA)
.02	TYPES OF REFERRAL	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1)!'(X?1.4A) X` LAST EDITED: `JUN 12, 1996` HELP-PROMPT: `Enter 1-4 Alpha Characters Only - i.e., C or I or O or N (Any Combination)` EXECUTABLE HELP: `W "C=CHS I=IHS O=OTHER N=INHOUSE",!,"To receive a Bulletin for CHS & OTHER - Enter CO Only"`

COSMETIC PROCEDURE MSG

0;1

POINTER TO NEW PERSON FILE (#200)

CROSS-REFERENCE: 90001.312301^B

1)= S ^BMCPARM(DA(1),23,"B",$E(X,1,30),DA)=""

2)= K ^BMCPARM(DA(1),23,"B",$E(X,1,30),DA)

TYPES OF REFERRAL

0;2

FREE TEXT

INPUT TRANSFORM: K:$L(X)>4!($L(X)<1)!'(X?1.4A) X
LAST EDITED: JUN 12, 1996
HELP-PROMPT: Enter 1-4 Alpha Characters Only - i.e., C or I or O or N (Any Combination)
EXECUTABLE HELP: W "C=CHS I=IHS O=OTHER N=INHOUSE",!,"To receive a Bulletin for CHS & OTHER - Enter CO Only"