Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 409.481

Package: Scheduling

SDSC SERVICE CONNECTED CHANGES(#409.48)-->409.481

Sub-Field: 409.481

Information

Parent File	Name	Number	Package
SDSC SERVICE CONNECTED CHANGES(#409.48)	TRACK EDITS	409.481	Scheduling

Details

Field #	Name	Loc	Type	Details
.01	EDIT NUMBER	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 07, 2006` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `This field contains a unique entry for each edit. The edits are stored in order beginning at 1. Under ordinary circumstances there will usually only be between 1 and 3 edits for any record although there is no specific` `maximum.` CROSS-REFERENCE: `409.481^B` `1)= S ^SDSC(409.48,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^SDSC(409.48,DA(1),1,"B",$E(X,1,30),DA)`
.02	DATE EDITED	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 07, 2006` DESCRIPTION: `This is the date that the user edited this encounter. A trigger on this field will also update the DATE LAST EDITED field in the main file.` CROSS-REFERENCE: `^^TRIGGER^409.48^.02` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=X S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=409.48,DIG=.02 D ^DICR` `2)= Q` `CREATE VALUE)= S X=X` `DELETE VALUE)= NO EFFECT` `FIELD)= #.02`
.03	EDITED BY	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 07, 2006` DESCRIPTION: `This is the user who edited this encounter. A trigger on this field will also update the LAST EDITED BY field in the main file.` TECHNICAL DESCR: `A pointer to the NEW PERSON file #200.` CROSS-REFERENCE: `^^TRIGGER^409.48^.03` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=X S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=409.48,DIG=.03 D ^DICR` `2)= Q` `CREATE VALUE)= S X=X` `DELETE VALUE)= NO EFFECT` `FIELD)= #.03`
.04	TYPE OF ENTRY	0;4	SET	'U' FOR USER; 'C' FOR CLINICAL; 'S' FOR SUPERVISOR; LAST EDITED: `NOV 07, 2006` DESCRIPTION: `This is the type of user who edited this encounter.` `"USER" any standard user of this package.` `"CLINICAL" a clinical reviewer with the appropriate security key.` `"SUPERVISOR" a supervisor with the appropriate security key.`
.05	SERV. CONNECT (OK BY USER?)	0;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `DEC 08, 2006` DESCRIPTION: `This field will contain 1 ('YES') or 0 ('NO') based on the user determination of the encounter's service connected value. A trigger on this field will also update the SERV. CONNECT (OK BY USER?) field in the main file.` CROSS-REFERENCE: `^^TRIGGER^409.48^.06` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=X S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=409.48,DIG=.06 D ^DICR` `2)= Q` `CREATE VALUE)= S X=X` `DELETE VALUE)= NO EFFECT` `FIELD)= #.06`
.06	REVIEW REQUIRED?	0;6	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `DEC 08, 2006` DESCRIPTION: `This field will be set to 1 ('YES') if a regular user determines that this record requires further review by a clinical reviewer. A trigger will also set the STATUS field in the main file to 'REVIEW'.` CROSS-REFERENCE: `^^TRIGGER^409.48^.05` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X="R" S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=409.48,DIG=.05 D ^DICR` `2)= Q` `CREATE VALUE)= "R"` `DELETE VALUE)= NO EFFECT` `FIELD)= #.05`