Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 45.831

Package: Registration

PTF RELEASE(#45.83)-->45.831

Sub-Field: 45.831


Information

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

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.
Info |  Details