STANDARD DATA DICTIONARY #45.83 -- PTF RELEASE FILE 6/27/25 PAGE 1
STORED IN ^DGP(45.83, *** 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 PTF records as they are released by MIS and their subsequent transmission to Austin.
We don't recommend re-indexing of this file.
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
CROSS
REFERENCED BY: DATE(ANT), TRANSMISSION DATE(ANT1), DATE TRANSMITTED(AP), DATE(B), RECORD(C)
45.83,.01 DATE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
LAST EDITED: JAN 08, 1986
HELP-PROMPT: Enter the date PTF records are entered into the system for transmission to Austin.
DESCRIPTION: This field contains the date the PTF records are entered into the system for transmission to
Austin.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 45.83^B
1)= S ^DGP(45.83,"B",$E(X,1,30),DA)=""
2)= K ^DGP(45.83,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 45.83^ANT
1)= S ^DGP(45.83,"ANT",$E(X,1,30),DA)=""
2)= K ^DGP(45.83,"ANT",$E(X,1,30),DA)
45.83,1 TRANSMISSION DATE 0;2 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 08, 1986
HELP-PROMPT: Enter the date and time the PTF records were transmitted to Austin.
DESCRIPTION:
This field contains the date/time the PTF records were transmitted to Austin.
CROSS-REFERENCE: 45.83^ANT1^MUMPS
1)= K ^DGP(45.83,"ANT",DA)
2)= S ^DGP(45.83,"ANT",DA,DA)=""
45.83,10 PTF RECORD P;0 POINTER Multiple #45.831
DESCRIPTION:
This multiple contains the associated PTF record with this release.
SCREEN: S DIC("S")="I 1"
EXPLANATION: TO EXECUTE INPUT SYNTAX
45.831,.01 RECORD 0;1 POINTER TO PTF FILE (#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(1
01),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 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(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(1
01),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 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)= "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)
45.831,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).
45.831,2 MESSAGE 0;3 POINTER TO MESSAGE FILE (#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.
FILES POINTED TO FIELDS
MESSAGE (#3.9) PTF RECORD:MESSAGE (#2)
PTF (#45) PTF RECORD:RECORD (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):