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

Directly Accessed By Routines, Total: 35

Package Total Routines
Registration 26 DGDRGENTER    DGENCD ELIG HDR    DGPTF1    ^DGPT    DG3PR2    DGENCD ELIG CODE    DGICD    DGPMV21
DGPMV22    DGPMVDL    DGPT CENSUS UNRELEASED    DGPTAPP1    DGPTC1    DGPTF    DGPTF2    DGPTF4
DGPTFEE    DGPTFREL    DGPTODI2    DGPTOTRL    ^DGP(45.84    DGPTFTR    DGPTFTR3    DGPTUTL
DGUNRELEASED    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)[35]    
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