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.01

Package: Registration

PTF(#45)-->45.01

Sub-Field: 45.01


Information

Parent File Name Number Package
PTF(#45) 401 45.01 Registration

Details

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

  • INPUT TRANSFORM:  S %DT="ETX" 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:"")
  • LAST EDITED:  AUG 12, 1985
  • HELP-PROMPT:  Enter the date of the surgery or procedure to enter PTF data for.
  • DESCRIPTION:  
    Date/time surgery or procedure was performed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ACRPS1 (#1205) (WHOLE FILE #45), ACRPS10 (#1270) (WHOLE FILE #45), ACRPS11 (#1271) (WHOLE FILE #45), ACRPS12 (#1272) (WHOLE FILE #45), ACRPS13 (#1273) (WHOLE FILE #45), ACRPS14 (#1274) (WHOLE FILE #45), ACRPS15 (#1275)
    (WHOLE FILE #45), ACRPS16 (#1276) (WHOLE FILE #45), ACRPS17 (#1277) (WHOLE FILE #45), ACRPS18 (#1278) (WHOLE FILE #45), ACRPS19 (#1279) (WHOLE FILE #45), ACRPS2 (#1206) (WHOLE FILE #45), ACRPS20 (#1280) (WHOLE FILE #45),
    ACRPS21 (#1281) (WHOLE FILE #45), ACRPS22 (#1282) (WHOLE FILE #45), ACRPS23 (#1283) (WHOLE FILE #45), ACRPS24 (#1284) (WHOLE FILE #45), ACRPS25 (#1285) (WHOLE FILE #45), ACRPS3 (#1207) (WHOLE FILE #45), ACRPS4 (#1208)
    (WHOLE FILE #45), ACRPS5 (#1209) (WHOLE FILE #45), ACRPS6 (#1286) (WHOLE FILE #45), ACRPS7 (#1287) (WHOLE FILE #45), ACRPS8 (#1288) (WHOLE FILE #45), ACRPS9 (#1289) (WHOLE FILE #45)
3 SURGICAL SPECIALTY 0;3 POINTER TO SURGICAL SPECIALTY FILE (#45.3)
************************REQUIRED FIELD************************
SURGICAL SPECIALTY(#45.3)

  • LAST EDITED:  FEB 23, 1984
  • HELP-PROMPT:  Enter the surgical specialty from the available list.
  • DESCRIPTION:  
    This field contains the surgical specialty for this espisode of care.
4 CATEGORY OF CHIEF SURG 0;4 SET
  • 'V' FOR VA TEAM;
  • 'M' FOR MIXED VA&NON-VA;
  • 'N' FOR NON VA;
  • '1' FOR STAFF,FT;
  • '2' FOR STAFF, PT;
  • '3' FOR CONSULTANT;
  • '4' FOR ATTENDING;
  • '5' FOR FEE BASIS;
  • '6' FOR RESIDENT;
  • '7' FOR OTHER(INCLUDES INTERNS);

  • LAST EDITED:  FEB 23, 1984
  • HELP-PROMPT:  Enter the category of the chief surgeon from the available list.
  • DESCRIPTION:  
    This field indicates the category of the chief surgeon. The choices are defined as a set of codes.
5 CATEGORY OF FIRST ASSISTANT 0;5 SET
  • '1' FOR STAFF, FT;
  • '2' FOR STAFF, PT;
  • '3' FOR CONSULTANT;
  • '4' FOR ATTENDING;
  • '5' FOR FEE BASIS;
  • '6' FOR RESIDENT;
  • '7' FOR OTHER (INCLUDES INTERN);
  • '8' FOR NO ASSISTANT;

  • LAST EDITED:  FEB 23, 1984
  • HELP-PROMPT:  Enter the category of the first assistant from the available list.
  • DESCRIPTION:  
    This field indicates the category of the first assistant.
6 PRINCIPAL ANESTHETIC TECHNIQUE 0;6 SET
  • '0' FOR NONE;
  • '1' FOR INHALATION(OPEN DROP);
  • '2' FOR INHALATION(CIRCLE ABSORBER);
  • '3' FOR INTRAVENOUS;
  • '4' FOR INFILTRATION;
  • '5' FOR FIELD BLOCK;
  • '6' FOR NERVE BLOCK;
  • '7' FOR SPINAL;
  • '8' FOR EPIDURAL;
  • '9' FOR TOPICAL;
  • 'R' FOR RECTAL;
  • 'X' FOR OTHER;

  • LAST EDITED:  FEB 23, 1984
  • DESCRIPTION:  
    This field indicates the principal anesthetic technique used during the operation/procedure.
7 SOURCE OF PAYMENT 0;7 SET
  • '1' FOR CONTRACT;
  • '2' FOR SHARING;

  • LAST EDITED:  FEB 23, 1984
  • HELP-PROMPT:  Enter the source of payment for patient's operated on in a non VA facility, and returned to a VA facility within a 24-hr period.
  • DESCRIPTION:  
    This field indicates the source of payment for patients operated on in a Non-VA facility and returned to a VA facility within a 24-hr period.
8 OPERATION CODE 1 0;8 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an operation or procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO1 (#1290) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 1  (45.01,8)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS1 (#1205) (WHOLE FILE #45)
9 OPERATION CODE 2 0;9 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an operation or procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO2 (#1301) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 2  (45.01,9)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS2 (#1206) (WHOLE FILE #45)
10 OPERATION CODE 3 0;10 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an operation or procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO3 (#1308) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 3  (45.01,10)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS3 (#1207) (WHOLE FILE #45)
11 OPERATION CODE 4 0;11 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is  an operation or procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO4 (#1309) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 4  (45.01,11)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS4 (#1208) (WHOLE FILE #45)
12 OPERATION CODE 5 0;12 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an operation or procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO5 (#1310) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 5  (45.01,12)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS5 (#1209) (WHOLE FILE #45)
13 OPERATION CODE 6 0;13 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO6 (#1311) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 6  (45.01,13)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS6 (#1286) (WHOLE FILE #45)
14 OPERATION CODE 7 0;14 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO7 (#1312) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 7  (45.01,14)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS7 (#1287) (WHOLE FILE #45)
15 OPERATION CODE 8 0;15 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO8 (#1313) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 8  (45.01,15)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS8 (#1288) (WHOLE FILE #45)
16 OPERATION CODE 9 0;16 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO9 (#1314) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 9  (45.01,16)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS9 (#1289) (WHOLE FILE #45)
17 OPERATION CODE 10 0;17 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO10 (#1291) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 10  (45.01,17)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS10 (#1270) (WHOLE FILE #45)
18 OPERATION CODE 11 0;18 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO11 (#1292) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 11  (45.01,18)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS11 (#1271) (WHOLE FILE #45)
19 OPERATION CODE 12 0;19 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO12 (#1293) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 12  (45.01,19)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS12 (#1272) (WHOLE FILE #45)
20 OPERATION CODE 13 0;20 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO13 (#1294) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 13  (45.01,20)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS13 (#1273) (WHOLE FILE #45)
21 OPERATION CODE 14 0;21 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO14 (#1295) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 14  (45.01,21)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS14 (#1274) (WHOLE FILE #45)
22 OPERATION CODE 15 0;22 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO15 (#1296) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 15  (45.01,22)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS15 (#1275) (WHOLE FILE #45)
23 OPERATION CODE 16 0;23 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO16 (#1297) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 16  (45.01,23)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS16 (#1276) (WHOLE FILE #45)
24 OPERATION CODE 17 0;24 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO17 (#1298) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 17  (45.01,24)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS17 (#1277) (WHOLE FILE #45)
25 OPERATION CODE 18 0;25 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO18 (#1299) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 18  (45.01,25)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS18 (#1278) (WHOLE FILE #45)
26 OPERATION CODE 19 0;26 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO19 (#1300) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 19  (45.01,26)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS19 (#1279) (WHOLE FILE #45)
27 OPERATION CODE 20 0;27 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1")
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO20 (#1302) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 20  (45.01,27)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS20 (#1280) (WHOLE FILE #45)
28 OPERATION CODE 21 1;1 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1",1)
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO21 (#1303) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 21  (45.01,28)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS21 (#1281) (WHOLE FILE #45)
29 OPERATION CODE 22 1;2 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1",1)
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO22 (#1304) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 22  (45.01,29)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS22 (#1282) (WHOLE FILE #45)
30 OPERATION CODE 23 1;3 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1",1)
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO23 (#1305) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 23  (45.01,30)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS23 (#1283) (WHOLE FILE #45)
31 OPERATION CODE 24 1;4 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1",1)
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO24 (#1306) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 24  (45.01,31)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS24 (#1284) (WHOLE FILE #45)
32 OPERATION CODE 25 1;5 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N DGIT S DGIT=8 D GETAPI^DGICDGT("DGPTF","PROC",$G(DA(1)),"EN1",1)
  • LAST EDITED:  SEP 16, 2015
  • HELP-PROMPT:  Enter the Operation or Procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is an Operation or Procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  AO25 (#1307) MUMPS IR SORTING ONLY
    Short Descr:  Index of Operation Codes
    Description:  This will allow a quick reference for sorting Operation Codes performed on a patient for an episode of care.
    Set Logic:  S ^DGPT(DA(1),"S","AO",X,DA)=""
    Kill Logic:  K ^DGPT(DA(1),"S","AO",X,DA)
    Whole Kill:  K ^DGPT(DA(1),"S","AO")
    X(1):  OPERATION CODE 25  (45.01,32)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACRPS25 (#1285) (WHOLE FILE #45)
300.01 KIDNEY SOURCE 300;1 SET
  • '1' FOR Live Donor;
  • '2' FOR Cadaver;

  • INPUT TRANSFORM:  S DGFLAG=1 D 401^DGPTSC01 K:DGER X K DGER,DGFLAG
  • LAST EDITED:  MAY 15, 1991
  • DESCRIPTION:  
    This field will indicate where the transplant organ was received from.
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE (45.89) contains all ICD's that require special processing.  If a match is made an entry is made in the DGBPC array.  3) If the DGBPC array exist then additional questions are
    required to complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Details |  All