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: 45.0535

Package: Registration

PTF(#45)-->45.0535

Sub-Field: 45.0535

Information

Parent File	Name	Number	Package
PTF(#45)	535	45.0535	Registration

Details

Field #	Name	Loc	Type	Details
.01	PHYSICAL MOVEMENT	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 03, 1990` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` DESCRIPTION: `Computed generated movement number(1,2,3, etc.)`
2	LOSING WARD SPECIALTY	0;2	POINTER TO SPECIALTY FILE (#42.4)	SPECIALTY(#42.4) INPUT TRANSFORM: `S DIC("S")="I $$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA(1),535,DA,0),U,10))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 31, 1995` DESCRIPTION: `Specialty of the ward losing the patient.` SCREEN: `S DIC("S")="I $$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA(1),535,DA,0),U,10))"` EXPLANATION: `Allows only active treating specialties.` CROSS-REFERENCE: `^^TRIGGER^45.0535^16` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,535,D1,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(45.0535,2,1,1,1.1) X ^DD(45.0535,2,1,1,1.4)` `1.1)= S X=DIV S X=$S($D(^DIC(42.4,X,0)):$P(^(0),U,6),1:"")` `1.4)= S DIH=$S($D(^DGPT(DIV(0),535,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=45.0535,DIG=16 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,535,D1,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" X ^DD(45.0535,2,1,1,2.4)` `2.4)= S DIH=$S($D(^DGPT(DIV(0),535,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=45.0535,DIG=16 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= S X=$S($D(^DIC(42.4,X,0)):$P(^(0),U,6),1:"")` `DELETE VALUE)= @` `FIELD)= LOSING WARD CDR`
3	LEAVE DAYS	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 03, 1990` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` DESCRIPTION: `Number of leave days accumulated during movement.`
4	PASS DAYS	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 04, 1990` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` DESCRIPTION: `Number of pass days accumulated during movement.`
6	LOSING WARD	0;6	POINTER TO WARD LOCATION FILE (#42)	WARD LOCATION(#42) LAST EDITED: `MAY 08, 1990` DESCRIPTION: `Name of the losing ward.`
7	DISCHARGE MOVEMENT	0;7	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 16, 1990` DESCRIPTION: `This field indicates whether this movement is the final movement (ie. discharge) for the admission.` CROSS-REFERENCE: `45.0535^ADC` `1)= S ^DGPT(DA(1),535,"ADC",$E(X,1,30),DA)=""` `2)= K ^DGPT(DA(1),535,"ADC",$E(X,1,30),DA)`
10	MOVEMENT DATE	0;10	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 15, 1990` DESCRIPTION: `This field holds the date and time of the movement.` CROSS-REFERENCE: `45.0535^AM` `1)= S ^DGPT(DA(1),535,"AM",$E(X,1,30),DA)=""` `2)= K ^DGPT(DA(1),535,"AM",$E(X,1,30),DA)`
16	LOSING WARD CDR	0;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `MAY 22, 1990` HELP-PROMPT: `Type a Number between 0 and 9999, 2 Decimal Digits` DESCRIPTION: `This field contains the CDR number for the losing ward.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the LOSING WARD SPECIALTY field of the 535 sub-field of the PTF File`
17	TRANSMIT FLAG	0;17	SET	'n' FOR NO, DO NOT TRANSMIT; 'y' FOR YES, TRANSMIT; LAST EDITED: `JUN 13, 1990` DESCRIPTION: `This flag can be set to stop transmission of a 535 during PTF and census transmission. This flag is only used when there are more than 25 535 movements. Austin can only accept 25 or less.` `If no data is in this field then transmission does occur.`