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

Package: Integrated Billing

BILL/CLAIMS(#399)-->399.047

Sub-Field: 399.047


Information

Parent File Name Number Package
BILL/CLAIMS(#399) VALUE CODE 399.047 Integrated Billing

Details

Field # Name Loc Type Details
.01 VALUE CODE 0;1 POINTER TO MCCR UTILITY FILE (#399.1) MCCR UTILITY(#399.1)

  • INPUT TRANSFORM:  S DIC("S")="I +$P($G(^DGCR(399.1,+Y,0)),U,11),$$ALLOWVC^IBCVC(DA(1),+Y)",D="C^B" D MIX^DIC1 K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  JAN 21, 2014
  • HELP-PROMPT:  Enter a Value Code that applies to this bill.
  • SCREEN:  S DIC("S")="I +$P($G(^DGCR(399.1,+Y,0)),U,11),$$ALLOWVC^IBCVC(DA(1),+Y)"
  • EXPLANATION:  Value Codes Only!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  399.047^B
    1)= S ^DGCR(399,DA(1),"CV","B",$E(X,1,30),DA)=""
    2)= K ^DGCR(399,DA(1),"CV","B",$E(X,1,30),DA)
  • FIELD INDEX:  AC (#723) MUMPS ACTION
    Short Descr: VALUE field clean up
    Description: If the VALUE CODE field is modified, make sure the VALUE field associated with it is still VALID. If not, delete the VALUE.
    Set Logic: D REMOVE^IBCVC(.DA)
    Set Cond: S X=$$COND^IBCVC(.DA,X1(1),X2(1))
    Kill Logic: Q
    X(1): VALUE CODE (399.047,.01) (forwards)
.02 VALUE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:'$$FORMCHK^IBCVC(X,.DA) X
    MAXIMUM LENGTH: 10
  • LAST EDITED:  MAR 28, 2023
  • TECHNICAL DESCR:  
    The executable help includes the input constraints .
  • EXECUTABLE HELP:  D HELP^IBCVC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Details