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

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^DGP(45.84

Package: Registration

Global: ^DGP(45.84

Information

FileMan FileNo	FileMan Filename	Package
45.84	PTF CLOSE OUT	Registration

Description

This file is used to record the PTF records that are closed out for release to Austin

Directly Accessed By Routines, Total: 35

Package	Total	Routines
Registration	26	DG3PR2 DGDRGENTER DGENCD ELIG CODE DGENCD ELIG HDR DGICD DGPMV21 DGPMV22 DGPMVDL DGPT CENSUS UNRELEASED DGPTAPP1 DGPTC1 DGPTF DGPTF1 DGPTF2 DGPTF4 DGPTFREL ^DGPT DGPTFEE DGPTFTR DGPTFTR3 DGPTODI2 DGPTOTRL DGPTUTL DGUNRELEASED ^DGP(45.84 PTF RECORD
Incomplete Records Tracking	3	DGJOTPUL DGJTUTL DGJTVW
Integrated Billing	3	IB20PT82 IB20PT86 IB20PT8A
Clinical Case Registries	1	RORHL08
Clinical Monitoring System	1	QAMC22
ODS	1	A1B2MAIN

Accessed By FileMan Db Calls, Total: 8

Package	Total	Routines
Registration	8	DG53P423 DGPTAPP1 DGPTC1 DGPTF099 DGPTF2 DGPTFDEL DGPTFREL DGPTRNU

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Registration	1	PTF(#45)[7.1]

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
DRG Grouper	1	DRG(#80.2)[6]
Kernel	1	NEW PERSON(#200)[3, 5]
Registration	1	PTF(#45)[.01]

Fields, Total: 15

Field #	Name	Loc	Type	Details
.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.`
.01	PTF RECORD	0;1	POINTER TO PTF FILE (#45)	**********************REQUIRED FIELD********************** PTF(#45) 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 DIH=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,DI` `G,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 DIH=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,DI` `G,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(^DD(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)=""`
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).`
2	CLOSE OUT DATE	0;2	DATE	**********************REQUIRED FIELD********************** 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)`
3	LAST CLOSED OUT BY	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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)`
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.`
5	RELEASED BY	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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)`
6	DRG	0;6	POINTER TO DRG FILE (#80.2)	DRG(#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.`
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).`
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).`
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).`
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).`
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).`
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).`
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).`

ICR, Total: 4

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #994	Integrated Billing Incomplete Records Tracking Clinical Case Registries	CLOSE OUT DATE (2). Access: Direct Global Read & w/Fileman NAME (.01). Access: Direct Global Read & w/Fileman CLOSE OUT BY (3). Access: Direct Global Read & w/Fileman
ICR #2820	Integrated Billing	RELEASE DATE (4). Access: Direct Global Read & w/Fileman	This is the main global node for the PTF CLOSE OUT file.
ICR #3428	Incomplete Records Tracking	CLOSE OUT DATE (2). Access: Direct Global Read & w/Fileman CLOSE OUT BY (3). Access: Direct Global Read & w/Fileman NAME (.01). Access: Direct Global Read & w/Fileman
ICR #4534	Fee Basis Integrated Billing Incomplete Records Tracking	PTF RECORD (.01). Access: Direct Global Read & w/Fileman	$D(^DGP(45.84,DA)) checks to determine if PTF record hasbeen closed out prior to deletion.

External References

Name	Field # of Occurrence
^%DT	2+1, 4+1
^DICR	.01(XREF 2n1.4), .01(XREF 2n2.4)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4), .01(XREF 2n2.4)
^DD(45	.01(XREF 2n9.2)
^DD(45.84	.01(XREF 2S), .01(XREF 2K), 1+1
^DGP(45.83 - [#45.83]	.01DEL1+1
^DGP(45.84 - [#45.84]	ID.01+1, ID1+1, .01(XREF 1S), .01(XREF 1K), 1OF9.2+1, 2(XREF 1S), 2(XREF 1K)
^DGPT - [#45]	ID.01+1, ID1+1, .01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 2n9.2), .01(XREF 3S), .01(XREF 3K), 1OF9.2+1, 3(XREF 1S), 3(XREF 1K) , 5(XREF 1S), 5(XREF 1K)
^DPT - [#2]	ID.01+1

Naked Globals

Name	Field # of Occurrence
^("0"	ID1+1
^(0	.01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 2n9.2), 1OF9.2+1, 3(XREF 1S), 5(XREF 1S)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ID1+1*!, .01(XREF 2n1.4), .01(XREF 2n2.4)
>> %DT	2+1, 4+1
>> D0	.01(XREF 2S), .01(XREF 2K), .01(XREF 2n9.2), 1+1, 1OF9.2+1
>> DA	.01DEL1+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S) , 3(XREF 1K), 5(XREF 1S), 5(XREF 1K)
>> DIC("S"	.01SCR+1*
>> DIG	.01(XREF 2n1.4), .01(XREF 2n2.4)
>> DIH	.01(XREF 2n1.4), .01(XREF 2n2.4)
>> DINUM	.01+1*
>> DIU	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
DIV	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
DIV(0	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 2n9.2)
U	ID.01+1, ID1+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 2n9.2), .01(XREF 3S), .01(XREF 3K), 1+1 , 1OF9.2+1
X	.001+1!, .01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 2n9.2), 1+1* , 2+1!, 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 4+1!, 5(XREF 1S), 10+1!, 11+1!, 12+1!, 13+1! , 14+1!, 15+1!, 16+1!
Y	ID.01+1, ID1+1, .01(XREF 2S), .01(XREF 2K), 2+1, 4+1
Y(	1+1, 1OF9.2+1*
Y(1	.01(XREF 2S), .01(XREF 2K), .01(XREF 2n9.2)
Y(101	.01(XREF 2S), .01(XREF 2K), .01(XREF 2n9.2)
Y(102	.01(XREF 2S), .01(XREF 2K), .01(XREF 2n9.2)

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All