STANDARD DATA DICTIONARY #45.84 -- PTF CLOSE OUT FILE 3/24/25 PAGE 1
STORED IN ^DGP(45.84, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used to record the PTF records that are closed out for release to Austin
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
IDENTIFIED BY: PTF RECORD (#.01)[R], ADMISSION DATE (#1)
POINTED TO BY: CLOSE OUT FILE field (#7.1) of the PTF File (#45)
CROSS
REFERENCED BY: CLOSE OUT DATE(AC), PTF RECORD(AD), LAST CLOSED OUT BY(AE), RELEASED BY(AF), PTF RECORD(B)
45.84,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 20, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999
DESCRIPTION:
This field contains the IFN of associated file entry.
45.84,.01 PTF RECORD 0;1 POINTER TO PTF FILE (#45) (Required)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: FEB 08, 1985
DESCRIPTION: This field contains a pointer to the PTF record that has been closed out. This entry is DINUMed
with the PTF File (#45).
SCREEN: S DIC("S")="I 1"
EXPLANATION: TO EXECUTE INPUT SYNTAX
DELETE TEST: 1,0)= I $D(^DGP(45.83,"C",DA)) W *7,!,"CANNOT REOPEN - ALREADY RELEASED"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 45.84^B
1)= S ^DGP(45.84,"B",$E(X,1,30),DA)=""
2)= K ^DGP(45.84,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^45^6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(45.84,.01,1,2,9.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,6)_"
:",2),$C(59),1) S D0=Y(1) S DIU=X K Y S X=DIV S X="1" X ^DD(45.84,.01,1,2,1.4)
1.4)= S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) X "F %=0:0 Q:$L($P(DIH,U,5,99)) S D
IH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=45,DIG
=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(45.84,.01,1,2,9.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,6)_"
:",2),$C(59),1) S D0=Y(1) S DIU=X K Y S X=DIV S X="0" X ^DD(45.84,.01,1,2,2.4)
2.4)= S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) X "F %=0:0 Q:$L($P(DIH,U,5,99)) S D
IH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=45,DIG
=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
9.2)= S Y(1)=$S($D(D0):D0,1:""),D0=X S:'$D(^DGPT(+D0,0)) D0=-1 S DIV(0)=D0 S Y(102)=$C(59)_$S($D(^D
D(45,6,0)):$P(^(0),U,3),1:""),Y(101)=$S($D(^DGPT(D0,0)):^(0),1:"")
CREATE VALUE)= "1"
DELETE VALUE)= "0"
FIELD)= PTF:STATUS
CROSS-REFERENCE: 45.84^AD^MUMPS
1)= S $P(^DGPT(DA,0),U,9)=DA
2)= S $P(^DGPT(DA,0),U,9)=""
45.84,1 ADMISSION DATE ; COMPUTED DATE
MUMPS CODE: X ^DD(45.84,1,9.2) S X=$P(Y(45.84,1,101),U,2) S D0=Y(45.84,1,2)
9.2 = S Y(45.84,1,2)=$S($D(D0):D0,1:""),Y(45.84,1,1)=$S($D(^DGP(45.84,D0,0)):^(0),1:""),D0=$P(Y(45.
84,1,1),U,1) S:'$D(^DGPT(+D0,0)) D0=-1 S Y(45.84,1,101)=$S($D(^DGPT(D0,0)):^(0),1:"")
ALGORITHM: PTF:ADMISSION DATE
DESCRIPTION:
This is the admission date as it appears in the PTF record in file (#45).
45.84,2 CLOSE OUT DATE 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 21, 1984
HELP-PROMPT: Enter the date and time this record was closed out by the coding clerks.
DESCRIPTION:
This field contains the date/time this record was closed out by the coding clerks.
CROSS-REFERENCE: 45.84^AC
1)= S ^DGP(45.84,"AC",$E(X,1,30),DA)=""
2)= K ^DGP(45.84,"AC",$E(X,1,30),DA)
45.84,3 LAST CLOSED OUT BY 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 10, 1990
HELP-PROMPT: Enter the person who closed out this PTF record.
DESCRIPTION:
This field contains a pointer to file (#200) that indicates which clerk closed out this PTF record.
CROSS-REFERENCE: 45.84^AE^MUMPS
1)= S:'$D(^DGPT(DA,1,0)) ^(0)="^45.03PA^1^1" S ^DGPT(DA,1,1,0)=X
2)= K ^DGPT(DA,1,1,0)
45.84,4 RELEASE DATE 0;4 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 21, 1984
HELP-PROMPT: Enter the date and time this record was released.
DESCRIPTION:
This field contains the date/time that the PTF record was released for transmission to Austin.
45.84,5 RELEASED BY 0;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 10, 1990
HELP-PROMPT: Enter the person who released this record for transmission to Austin.
DESCRIPTION: This field contains a pointer to file (#200) indicating which clerk released the PTF record for
transmission to Austin.
CROSS-REFERENCE: 45.84^AF^MUMPS
1)= S:'$D(^DGPT(DA,1,0)) ^(0)="^45.03^1^1" S ^DGPT(DA,1,2,0)=X
2)= K ^DGPT(DA,1,2,0)
45.84,6 DRG 0;6 POINTER TO DRG FILE (#80.2)
LAST EDITED: NOV 06, 1986
DESCRIPTION: This field contains a pointer to the DRG File (#80.2) which is the DRG at the time of close out for
this patient.
45.84,10 STORED(0) 10;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: MAR 14, 1985
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH
DESCRIPTION: This field contains the (0) node of the patient's record at the time the PTF record was closed out.
The information contained in this node is demographic information about the patient. For a complete
description of the contents of this field refer to the Patient File (#2).
45.84,11 STORED(.11) .11;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: MAR 14, 1985
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH
DESCRIPTION: This field contains the (.11) node of the patient's record at the of close out. The patients
current address is contained in this node. For a complete description of the contents of this field
refer to the Patient File (#2).
45.84,12 STORED(.52) .52;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: MAR 14, 1985
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH
DESCRIPTION: This field contains the (.52) node of the patient's record at the time of close out. The
information contained in this node includes POW information. For a complete description of the
contents of this field refer to the Patient File (#2).
45.84,13 STORED(.321) .321;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: MAR 14, 1985
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH
DESCRIPTION: This field contains the (.321) node of the patient's record at the time of close out. The following
information is contained in the (.321) node: Agent Orange, Radiation and Vietnam Service
information. For a complete description of the (.321) node refer to the Patient File (#2).
45.84,14 STORED(.32) .32;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: MAR 14, 1985
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH
DESCRIPTION: This field contains the (.32) node of the patient's record at the time of close out. Information
about the patients' military service is stored in this node. For a complete description of the
(.32) node refer to the Patient File (#2).
45.84,15 STORED(57) 57;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH
DESCRIPTION: This field contains the (.56) node of the patient's record at the time of close out. This node
contains information relating to spinal cord injury. For a complete description of the (.56) node
refer to the Patient File (#2).
45.84,16 STORED(.3) .3;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: MAY 21, 1991
HELP-PROMPT: ANSWER MUST BE 1-245 CHARACTERS IN LENGTH
DESCRIPTION: This field contains the (.3) node of the patient's record at the time of close out. This node
contains information about monetary benefits recieved by the patients. For a complete description
of the (.3) node refer to the Patient File (#2).
FILES POINTED TO FIELDS
DRG (#80.2) DRG (#6)
NEW PERSON (#200) LAST CLOSED OUT BY (#3)
RELEASED BY (#5)
PTF (#45) PTF RECORD (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
DGPT CENSUS UNRELEASED APR 24, 1990@10:24 USER #0 Unreleased closed out CENSUS records
DGUNRELEASED SEP 12, 1994@13:02 USER #0 Unreleased closed out PTF records
SORT TEMPLATE(S):
DGPT CENSUS UNRELEASED APR 24, 1990@10:21 USER #0
SORT BY: RELEASE DATE="";L1;L1// From '0' To '1'
WITHIN RELEASE DATE="", SORT BY: @CLOSE OUT DATE// (User is asked range)
DGUNRELEASED DEC 22, 1984 USER #0
SORT BY: RELEASE DATE="";L1// From '0' To '1'
WITHIN RELEASE DATE="", SORT BY: @CLOSE OUT DATE// (User is asked range)
FORM(S)/BLOCK(S):