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.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) D DT401^DGPTUTL1
  • LAST EDITED:  NOV 01, 2021
  • HELP-PROMPT:  Enter the date / time (optional) of the surgery or procedure to enter PTF data for.
  • DESCRIPTION:  
    Date / time surgery or procedure was performed. Time is optional.
  • 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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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), AICPS (#1693)
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