Sub-Field: 45.831

Parent File	Name	Number	Package
PTF RELEASE(#45.83)	PTF RECORD	45.831	Registration

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RECORD	0;1	POINTER TO PTF FILE (#45)	PTF(#45) INPUT TRANSFORM: `S DIC("S")="I $D(^DGP(45.84,+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X` LAST EDITED: `APR 25, 1985` HELP-PROMPT: `Enter the PTF records you wish to transmit to Austin for the date specified.` DESCRIPTION: `This field contains the PTF record that you wish to transmit to Austin for a specified date. This entry is DINUMed with the PTF record contained in the PTF File (#45). Only records that have been closed can be chosen for` transmission to Austin. SCREEN: `S DIC("S")="I $D(^DGP(45.84,+Y))"` EXPLANATION: `Only records that have been closed out` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `45.83^C` 1)= S ^DGP(45.83,"C",$E(X,1,30),DA(1),DA)="" 2)= K ^DGP(45.83,"C",$E(X,1,30),DA(1),DA) CROSS-REFERENCE: `^^TRIGGER^45^6` 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(45.831,.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="2" X ^DD(45.831,.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(1),DIV(0)=D0,D1=DA X ^DD(45.831,.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.831,.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)= "2" DELETE VALUE)= "1" FIELD)= PTF:STATUS CROSS-REFERENCE: `45.831^AC^MUMPS` 1)= Q 2)= S:$D(^DGP(45.84,X,0)) ^(0)=$P(^(0)_"^^^",U,1,3)_"^^"_$P(^(0),U,5,99)
1	DATE TRANSMITTED	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 24, 1998` DESCRIPTION: This field contains the date the PTF record was transmitted to Austin. CROSS-REFERENCE: `45.83^AP` 1)= S ^DGP(45.83,"AP",$E(X,1,30),DA(1),DA)="" 2)= K ^DGP(45.83,"AP",$E(X,1,30),DA(1),DA) CROSS-REFERENCE: `45.831^AEDR^MUMPS` 1)= Q 2)= Q The functionality of this cross-reference has been removed with the shutdown of EVENT DRIVEN REPORTING (EDR).
2	MESSAGE	0;3	POINTER TO MESSAGE FILE (#3.9)	MESSAGE(#3.9) LAST EDITED: `APR 29, 1985` DESCRIPTION: This field contains a pointer to the message in which this PTF record was transmitted to Austin.

.01

RECORD

0;1

POINTER TO PTF FILE (#45)

PTF(#45)

INPUT TRANSFORM: S DIC("S")="I $D(^DGP(45.84,+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: APR 25, 1985
HELP-PROMPT: Enter the PTF records you wish to transmit to Austin for the date specified.
DESCRIPTION: This field contains the PTF record that you wish to transmit to Austin for a specified date. This entry is DINUMed with the PTF record contained in the PTF File (#45). Only records that have been closed can be chosen for
```
transmission to Austin.
```
SCREEN: S DIC("S")="I $D(^DGP(45.84,+Y))"
EXPLANATION: Only records that have been closed out
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 45.83^C

1)= S ^DGP(45.83,"C",$E(X,1,30),DA(1),DA)=""

2)= K ^DGP(45.83,"C",$E(X,1,30),DA(1),DA)

CROSS-REFERENCE: ^^TRIGGER^45^6

1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(45.831,.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="2" X ^DD(45.831,.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(1),DIV(0)=D0,D1=DA X ^DD(45.831,.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.831,.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)= "2"

DELETE VALUE)= "1"

FIELD)= PTF:STATUS

CROSS-REFERENCE: 45.831^AC^MUMPS

1)= Q

2)= S:$D(^DGP(45.84,X,0)) ^(0)=$P(^(0)_"^^^",U,1,3)_"^^"_$P(^(0),U,5,99)

DATE TRANSMITTED

0;2

DATE

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 24, 1998

DESCRIPTION:

This field contains the date the PTF record was transmitted to Austin.

CROSS-REFERENCE: 45.83^AP

1)= S ^DGP(45.83,"AP",$E(X,1,30),DA(1),DA)=""

2)= K ^DGP(45.83,"AP",$E(X,1,30),DA(1),DA)

CROSS-REFERENCE: 45.831^AEDR^MUMPS

1)= Q

2)= Q

The functionality of this cross-reference has been removed with the shutdown of EVENT DRIVEN REPORTING (EDR).

MESSAGE

0;3

POINTER TO MESSAGE FILE (#3.9)

MESSAGE(#3.9)

LAST EDITED: APR 29, 1985

DESCRIPTION:

This field contains a pointer to the message in which this PTF record was transmitted to Austin.

Customize PDF page

Package: Registration

PTF RELEASE(#45.83)-->45.831

Sub-Field: 45.831

Information

Details