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.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($$BADDT^DGPTFM6(X):"K X",1:"S X=X")
  • LAST EDITED:  NOV 21, 2013
  • HELP-PROMPT:  Enter a date after the admission date/time and before the discharge date/time. If census is open must be before census close date.
  • DESCRIPTION:  
    This is the date of the procedure.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ACRPP1 (#1200) (WHOLE FILE #45), ACRPP10 (#1250) (WHOLE FILE #45), ACRPP11 (#1251) (WHOLE FILE #45), ACRPP12 (#1252) (WHOLE FILE #45), ACRPP13 (#1253) (WHOLE FILE #45), ACRPP14 (#1254) (WHOLE FILE #45), ACRPP15 (#1255)
    (WHOLE FILE #45), ACRPP16 (#1256) (WHOLE FILE #45), ACRPP17 (#1257) (WHOLE FILE #45), ACRPP18 (#1258) (WHOLE FILE #45), ACRPP19 (#1259) (WHOLE FILE #45), ACRPP2 (#1201) (WHOLE FILE #45), ACRPP20 (#1260) (WHOLE FILE #45),
    ACRPP21 (#1261) (WHOLE FILE #45), ACRPP22 (#1262) (WHOLE FILE #45), ACRPP23 (#1263) (WHOLE FILE #45), ACRPP24 (#1264) (WHOLE FILE #45), ACRPP25 (#1265) (WHOLE FILE #45), ACRPP3 (#1202) (WHOLE FILE #45), ACRPP4 (#1203)
    (WHOLE FILE #45), ACRPP5 (#1204) (WHOLE FILE #45), ACRPP6 (#1266) (WHOLE FILE #45), ACRPP7 (#1267) (WHOLE FILE #45), ACRPP8 (#1268) (WHOLE FILE #45), ACRPP9 (#1269) (WHOLE FILE #45), AICPP (#1692)
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.
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.
4 PROCEDURE CODE 1 0;5 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 1st procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • 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:  ACRPP1 (#1200) (WHOLE FILE #45), AICPP (#1692)
5 PROCEDURE CODE 2 0;6 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 2nd procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • 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:  ACRPP2 (#1201) (WHOLE FILE #45), AICPP (#1692)
6 PROCEDURE CODE 3 0;7 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 3rd procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • 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:  ACRPP3 (#1202) (WHOLE FILE #45), AICPP (#1692)
7 PROCEDURE CODE 4 0;8 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 4th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • 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:  ACRPP4 (#1203) (WHOLE FILE #45), AICPP (#1692)
8 PROCEDURE CODE 5 0;9 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 5th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • 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:  ACRPP5 (#1204) (WHOLE FILE #45), AICPP (#1692)
9 PROCEDURE CODE 6 0;10 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 6th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP6^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:  ACRPP6 (#1266) (WHOLE FILE #45), AICPP (#1692)
10 PROCEDURE CODE 7 0;11 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 7th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP7^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:  ACRPP7 (#1267) (WHOLE FILE #45), AICPP (#1692)
11 PROCEDURE CODE 8 0;12 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 8th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP8^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:  ACRPP8 (#1268) (WHOLE FILE #45), AICPP (#1692)
12 PROCEDURE CODE 9 0;13 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 9th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP9^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:  ACRPP9 (#1269) (WHOLE FILE #45), AICPP (#1692)
13 PROCEDURE CODE 10 0;14 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 10th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP10^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:  ACRPP10 (#1250) (WHOLE FILE #45), AICPP (#1692)
14 PROCEDURE CODE 11 0;15 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 11th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP11^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:  ACRPP11 (#1251) (WHOLE FILE #45), AICPP (#1692)
15 PROCEDURE CODE 12 0;16 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 12th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP12^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:  ACRPP12 (#1252) (WHOLE FILE #45), AICPP (#1692)
16 PROCEDURE CODE 13 0;17 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 13th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP13^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:  ACRPP13 (#1253) (WHOLE FILE #45), AICPP (#1692)
17 PROCEDURE CODE 14 0;18 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 14th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP14^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:  ACRPP14 (#1254) (WHOLE FILE #45), AICPP (#1692)
18 PROCEDURE CODE 15 0;19 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 15th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP15^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:  ACRPP15 (#1255) (WHOLE FILE #45), AICPP (#1692)
19 PROCEDURE CODE 16 0;20 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 16th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP16^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:  ACRPP16 (#1256) (WHOLE FILE #45), AICPP (#1692)
20 PROCEDURE CODE 17 0;21 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 17th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP17^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:  ACRPP17 (#1257) (WHOLE FILE #45), AICPP (#1692)
21 PROCEDURE CODE 18 0;22 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 18th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP18^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:  ACRPP18 (#1258) (WHOLE FILE #45), AICPP (#1692)
22 PROCEDURE CODE 19 0;23 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 19th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP19^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:  ACRPP19 (#1259) (WHOLE FILE #45), AICPP (#1692)
23 PROCEDURE CODE 20 0;24 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 20th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP20^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:  ACRPP20 (#1260) (WHOLE FILE #45), AICPP (#1692)
24 PROCEDURE CODE 21 1;1 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1",1)
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 21st procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP21^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:  ACRPP21 (#1261) (WHOLE FILE #45), AICPP (#1692)
25 PROCEDURE CODE 22 1;2 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1",1)
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 22nd procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP22^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:  ACRPP22 (#1262) (WHOLE FILE #45), AICPP (#1692)
26 PROCEDURE CODE 23 1;3 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1",1)
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 23rd procedure performed on this patient during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP23^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:  ACRPP23 (#1263) (WHOLE FILE #45), AICPP (#1692)
27 PROCEDURE CODE 24 1;4 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1",1)
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 24th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP24^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:  ACRPP24 (#1264) (WHOLE FILE #45), AICPP (#1692)
28 PROCEDURE CODE 25 1;5 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=5 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1",1)
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the 25th procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.05^AP25^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:  ACRPP25 (#1265) (WHOLE FILE #45), AICPP (#1692)
Info |  Details