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

Package: Registration

PTF(#45)-->45.06

Sub-Field: 45.06


Information

Parent File Name Number Package
PTF(#45) CPT RECORD DATE/TIME 45.06 Registration

Details

Field # Name Loc Type Details
.01 CPT RECORD DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT D DATE^DGPTUTL1:$D(X)
  • LAST EDITED:  JUN 29, 2005
  • HELP-PROMPT:  Enter the date and time the professional service was performed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45.06^B
    1)= S ^DGPT(DA(1),"C","B",$E(X,1,30),DA)=""
    2)= K ^DGPT(DA(1),"C","B",$E(X,1,30),DA)
  • RECORD INDEXES:  AB (#624) (WHOLE FILE #45)
.02 REFERRING OR ORDERING PROVIDER 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S IENS=DA_","_DA(1)_",",CPTDT=$$GET1^DIQ(45.06,IENS,.01,"I") S DIC("S")="I $$ACTIVPRV^PXAPI(Y,CPTDT)" D ^DIC K DIC,IENS,CPTDT S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 30, 2005
  • HELP-PROMPT:  Enter the name of the provider referring or ordering the service or item
  • SCREEN:  S DIC("S")="I $$ACTIVPRV^PXAPI(Y,CPTDT)"
  • EXPLANATION:  Only Allow Active Providers
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 RENDERING PROVIDER 0;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S IENS=DA_","_DA(1)_",",CPTDT=$$GET1^DIQ(45.06,IENS,.01,"I") S DIC("S")="I $$ACTIVPRV^PXAPI(Y,CPTDT)" D ^DIC K DIC,IENS,CPTDT S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 30, 2005
  • HELP-PROMPT:  Enter the name of the provider performing the procedure.
  • SCREEN:  S DIC("S")="I $$ACTIVPRV^PXAPI(Y,CPTDT)"
  • EXPLANATION:  Only Allow Active Providers.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.04 PRIMARY DIAGNOSIS 0;4 POINTER TO ICD DIAGNOSIS FILE (#80)
************************REQUIRED FIELD************************
ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D GETAPI^DGICDGT("DG PTF","DIAG",DA(1))
  • LAST EDITED:  AUG 08, 2013
  • HELP-PROMPT:  Enter the Primary Diagnosis for this Professional Service.
  • DESCRIPTION:  
    Enter the Diagnosis that should appear first in box 21 of the HCFA 1500 insurance form.
  • TECHNICAL DESCR:  GETAPI^DGICGDT uses the 3 parameters passed to look up and execute the appropriate input transform routine. The parameters passed are 1) APP="DG PTF", 2) TYPE="DIAG" and 3) DA(1), which is the IEN of the current top
    level entry in the PTF file (#45). The resulting routine acts as a screen to allow users to enter only an input value that is a valid ICD Diagnosis.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 RENDERING LOCATION 0;5 POINTER TO HOSPITAL LOCATION FILE (#44)
************************REQUIRED FIELD************************
HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S DIC("S")="I $P($G(^SC(Y,0)),U,7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 09, 2005
  • HELP-PROMPT:  Enter the location to be used in box 32 on the HCFA 1500.
  • DESCRIPTION:  
    Enter the location in file 44 where services were furnished. The name of the facility and address must be entered in file 4 and pointed to by file 44.
  • SCREEN:  S DIC("S")="I $P($G(^SC(Y,0)),U,7)"
  • EXPLANATION:  LOCATION MUST HAVE A STOP CODE
.06 VISIT NUMBER 0;6 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  JUN 09, 2005
  • HELP-PROMPT:  The VISIT NUMBER is returned from the PXAPI.
  • DESCRIPTION:  
    This is a pointer to the Visit File (9000010) in PCE. A visit will be generated for each CPT procedure entry.
  • CROSS-REFERENCE:  45.06^AC^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
.07 DATA TO PCE FLAG 0;7 SET
  • '0' FOR NOT SENT;
  • '1' FOR SENT TO PCE;

  • LAST EDITED:  JUN 29, 2005
  • HELP-PROMPT:  Indicates that the data in PCE agrees with PTF 801 screen data.
  • DESCRIPTION:  
    Set by the PTF system to indiacte if the data in the PTF 810 screen has been sent to the PCE system. It is reset to 0 if the data is edited, after the data in PCE is deleted.
  • RECORD INDEXES:  AB (#624) (WHOLE FILE #45)
.09 DELETE FLAG 0;9 SET
  • '0' FOR Valid subfile record;
  • '1' FOR All CPT Transactions have been deleted;

  • LAST EDITED:  JUN 29, 2005
  • DESCRIPTION:  
    This field flags deleted records so they do not appear on the 801 Screens Not Sent to PCE report.
  • TECHNICAL DESCR:  
    This field is set by DGPTFM2 when all the CPT procedure records in a subfile entry have been logically deleted.
  • RECORD INDEXES:  AB (#624) (WHOLE FILE #45)
Info |  Details