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

Package: Registration

PTF(#45)-->45.05

Sub-Field: 45.05


Information

Parent File Name Number Package
PTF(#45) 601 45.05 Registration

Details

Field # Name Loc Type Details
.01 PROCEDURE DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=+Y K:+Y<1 X I $D(X) X $S(X<$P(^DGPT(DA(1),0),U,2):"W !,""Not before Admission"" K X",X>($S($D(^(70)):$S(+^(70):+^(70),1:9999999),1:9999999)):"W !,""Not after discharge"" K X",1:"S X=X")
  • LAST EDITED:  DEC 10, 1990
  • HELP-PROMPT:  Enter a date after the admission date/time and before the discharge date/time.
  • DESCRIPTION:  
    Enter the date of the procedure.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ACR0P1 (#356) (WHOLE FILE #45), ACR0P2 (#357) (WHOLE FILE #45), ACR0P3 (#358) (WHOLE FILE #45), ACR0P4 (#359) (WHOLE FILE #45), ACR0P5 (#360) (WHOLE FILE #45)
1 SPECIALTY 0;2 POINTER TO SPECIALTY FILE (#42.4) SPECIALTY(#42.4)

  • INPUT TRANSFORM:  S DIC("S")="I $$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA(1),""P"",DA,0),U))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 31, 1995
  • HELP-PROMPT:  Enter treating specialty. This must be an active treating specialty.
  • DESCRIPTION:  
    Treating specialty for which this 601 movement was associated.
  • SCREEN:  S DIC("S")="I $$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA(1),""P"",DA,0),U))"
  • EXPLANATION:  Allows only active treating specialties.
2 DIALYSIS TYPE 0;3 POINTER TO PTF DIALYSIS TYPE FILE (#45.4) PTF DIALYSIS TYPE(#45.4)

  • LAST EDITED:  OCT 19, 1990
  • DESCRIPTION:  
    If applicable, the PTF designated dialysis type of care received during this episode of care.
  • CROSS-REFERENCE:  ^^TRIGGER^45.05^3
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=$P(^DGPT(DA(1),0),U,11)=1 I X S X=DIV S Y(1)=$S($D(^DGPT(D0,"P",D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(45.05,2,1,1,1.4)
    1.4)= S DIH=$S($D(^DGPT(DIV(0),"P",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=45.05,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,"P",D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(45.05,2,1,1,2.4)
    2.4)= S DIH=$S($D(^DGPT(DIV(0),"P",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=45.05,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= S X=$P(^DGPT(DA(1),0),U,11)=1
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= NUMBER OF DIALYSIS TREATMENTS
3 NUMBER OF DIALYSIS TREATMENTS 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 15, 2007
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Total number of dialysis treatments received during this episode of care.
  • NOTES:  TRIGGERED by the DIALYSIS TYPE field of the 601 sub-field of the PTF File
4 PROCEDURE CODE 1 0;5 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="S DGI=5,DGCR=""AP6"",DGSB=""P"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 11, 1988
  • DESCRIPTION:  
    This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1) indicating a procedure was performed during this episode of care.
  • SCREEN:  S DIC("S")="S DGI=5,DGCR=""AP6"",DGSB=""P"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"
  • EXPLANATION:  first Procedure Code for this 601 transaction
  • CROSS-REFERENCE:  45.05^AP1^MUMPS
    1)= S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)
  • RECORD INDEXES:  ACR0P1 (#356) (WHOLE FILE #45)
5 PROCEDURE CODE 2 0;6 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="S DGI=6,DGCR=""AP6"",DGSB=""P"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 11, 1988
  • DESCRIPTION:  
    This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1) indicating a procedure was performed during this episode of care.
  • SCREEN:  S DIC("S")="S DGI=6,DGCR=""AP6"",DGSB=""P"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"
  • EXPLANATION:  second Procedure Code for this 601 transaction
  • CROSS-REFERENCE:  45.05^AP2^MUMPS
    1)= S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)
  • RECORD INDEXES:  ACR0P2 (#357) (WHOLE FILE #45)
6 PROCEDURE CODE 3 0;7 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="S DGI=7,DGCR=""AP6"",DGSB=""P"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 11, 1988
  • DESCRIPTION:  
    This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1) indicating a procedure was performed during this episode of care.
  • SCREEN:  S DIC("S")="S DGI=7,DGCR=""AP6"",DGSB=""P"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"
  • EXPLANATION:  third Procedure Code for this 601 transaction
  • CROSS-REFERENCE:  45.05^AP3^MUMPS
    1)= S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)
  • RECORD INDEXES:  ACR0P3 (#358) (WHOLE FILE #45)
7 PROCEDURE CODE 4 0;8 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="S DGI=8,DGCR=""AP6"",DGSB=""P"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 11, 1988
  • DESCRIPTION:  
    This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1) indicating a procedure was performed during this episode of care.
  • SCREEN:  S DIC("S")="S DGI=8,DGCR=""AP6"",DGSB=""P"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"
  • EXPLANATION:  fourth Procedure Code for this 601 transaction
  • CROSS-REFERENCE:  45.05^AP4^MUMPS
    1)= S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)
  • RECORD INDEXES:  ACR0P4 (#359) (WHOLE FILE #45)
8 PROCEDURE CODE 5 0;9 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="S DGI=9,DGCR=""AP6"",DGSB=""P"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 11, 1988
  • DESCRIPTION:  
    This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1) indicating a procedure was performed during this episode of care.
  • SCREEN:  S DIC("S")="S DGI=9,DGCR=""AP6"",DGSB=""P"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"
  • EXPLANATION:  fifth Procedure Code for this 601 transaction
  • CROSS-REFERENCE:  45.05^AP5^MUMPS
    1)= S ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"P","AP6",$E(X,1,30),DA)
  • RECORD INDEXES:  ACR0P5 (#360) (WHOLE FILE #45)
Info |  Details |  All