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:  ACR0S1 (#361) (WHOLE FILE #45), ACR0S2 (#362) (WHOLE FILE #45), ACR0S3 (#363) (WHOLE FILE #45), ACR0S4 (#364) (WHOLE FILE #45), ACR0S5 (#365) (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:  S DIC("S")="S DGI=8,DGCR=""AO"",DGSB=""S"" 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 an operation or procedure performed during this episode of care.
  • SCREEN:  S DIC("S")="S DGI=8,DGCR=""AO"",DGSB=""S"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"
  • EXPLANATION:  first Operation Code for this 401 transaction
  • CROSS-REFERENCE:  45.01^AO
    1)= S ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)
  • RECORD INDEXES:  ACR0S1 (#361) (WHOLE FILE #45)
9 OPERATION CODE 2 0;9 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="S DGI=9,DGCR=""AO"",DGSB=""S"" 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 an operation of procedure performed during this episode of care.
  • SCREEN:  S DIC("S")="S DGI=9,DGCR=""AO"",DGSB=""S"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"
  • EXPLANATION:  second Operation Code for this 401 transaction
  • CROSS-REFERENCE:  45.01^AO
    1)= S ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)
  • RECORD INDEXES:  ACR0S2 (#362) (WHOLE FILE #45)
10 OPERATION CODE 3 0;10 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="S DGI=10,DGCR=""AO"",DGSB=""S"" 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 conatins a pointer to the ICD OPERATION/PROCEDURE File (#80.1) indicating an operation or procedure performed during this episode of care.
  • SCREEN:  S DIC("S")="S DGI=10,DGCR=""AO"",DGSB=""S"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"
  • EXPLANATION:  third Operation Code for this 401 transaction
  • CROSS-REFERENCE:  45.01^AO
    1)= S ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)
  • RECORD INDEXES:  ACR0S3 (#363) (WHOLE FILE #45)
11 OPERATION CODE 4 0;11 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="S DGI=11,DGCR=""AO"",DGSB=""S"" 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 conatins a pointer to the ICD OPERATION/PROCEDURE File (#80.1) indicating an operation or procedure performed during this episode of care.
  • SCREEN:  S DIC("S")="S DGI=11,DGCR=""AO"",DGSB=""S"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"
  • EXPLANATION:  fourth Operation Code for this 401 transaction
  • CROSS-REFERENCE:  45.01^AO
    1)= S ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)
  • RECORD INDEXES:  ACR0S4 (#364) (WHOLE FILE #45)
12 OPERATION CODE 5 0;12 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="S DGI=12,DGCR=""AO"",DGSB=""S"" 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 an operation or procedure performed during this episode of care.
  • SCREEN:  S DIC("S")="S DGI=12,DGCR=""AO"",DGSB=""S"" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"
  • EXPLANATION:  fifth Operation Code for this 401 transaction
  • CROSS-REFERENCE:  45.01^AO
    1)= S ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)
  • RECORD INDEXES:  ACR0S5 (#365) (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