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: 818.141

Package: PCE Patient Care Encounter

COMPACT ACT EPISODE OF CARE(#818)-->818.01-->818.141

Sub-Field: 818.141


Information

Parent File Name Number Package
818.01 VISIT 818.141 PCE Patient Care Encounter

Details

Field # Name Loc Type Details
.01 VISIT 0;1 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  SEP 20, 2023
  • HELP-PROMPT:  Enter the Visit file record that is related to acute suicidal crisis.
  • DESCRIPTION:  
    This VISIT file entry was marked as 'YES' this is for an Acute Suicidal Crisis.
  • TECHNICAL DESCR:  
    (Required) Pointer to VISIT FILE (#9000010).
  • CROSS-REFERENCE:  818.141^B
    1)= S ^PXCOMP(818,DA(2),10,DA(1),41,"B",$E(X,1,30),DA)=""
    2)= K ^PXCOMP(818,DA(2),10,DA(1),41,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  818.141^AC^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
    This cross-reference adds and subtracts from the dependent entry count in the VISIT file.
2 TREATMENT FOR FLAG 0;2 SET (BOOLEAN Data Type)
  • Set Logic: S PXVISIT=+$G(^PXCOMP(818,DA(2),10,DA(1),41,DA,0)),^PXCOMP(818,"COMPACTVISIT",PXVISIT)="" K PXVISIT
  • Set Cond: S X=+X(1)

  • LAST EDITED:  OCT 25, 2024
  • DESCRIPTION:  
    This field is a Yes/No value for the Treatment Related - Acute Suicidal Crisis. Enter the Treatment For value - Yes/No that this treatment is related to Acute Suicidal Crisis.
  • TECHNICAL DESCR:  
    This Outpatient encounter by encounter value is captured to share with Integrated Billing and automate the ability to cancel the first party copays for care furnished for Acute Suicidal Crisis.
  • FIELD INDEX:  COMPACTVISIT (#1764) MUMPS IR LOOKUP & SORTING WHOLE FILE (#818)
    Short Descr: This whole-file index will allow lookup by VISIT IEN.
    Description: This cross-reference will be used by the EXTRACTIB API that sends the specific data elements that are needed for IB to cancel first party co-pays.
    Set Logic: S PXVISIT=+$G(^PXCOMP(818,DA(2),10,DA(1),41,DA,0)),^PXCOMP(818,"COMPACTVISIT",PXVISIT)="" K PXVISIT
    Set Cond: S X=+X(1)
    Kill Logic: S PXVISIT=+$G(^PXCOMP(818,DA(2),10,DA(1),41,DA,0)) K ^PXCOMP(818,"COMPACTVISIT",PXVISIT),PXVISIT
    Kill Cond: S X='X2(1)
    Whole Kill: K ^PXCOMP(818,"COMPACTVISIT")
    X(1): TREATMENT FOR FLAG (818.141,2) (forwards)
Info |  Details