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

Package: Integrated Billing

BILL/CLAIMS(#399)-->399.077

Sub-Field: 399.077


Information

Parent File Name Number Package
BILL/CLAIMS(#399) MRA REQUEST CLAIM COMMENTS 399.077 Integrated Billing

Details

Field # Name Loc Type Details
.01 COMMENT ENTERED DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  NOV 15, 2007
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    This is the date/time the comment was entered into the system. Set automatically. Don't edit through Fileman.
  • CROSS-REFERENCE:  399.077^B
    1)= S ^DGCR(399,DA(1),"TXC","B",$E(X,1,30),DA)=""
    2)= K ^DGCR(399,DA(1),"TXC","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^399.077^.02
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,"TXC",D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399.077,.01,1,2,1.4)
    1.4)= S DIH=$G(^DGCR(399,DIV(0),"TXC",DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=399.077,DIG=.02 D ^DICR
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= COMMENT ENTERED BY
.02 COMMENT ENTERED BY 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 05, 2007
  • DESCRIPTION:  
    This is the user who entered the comment. Set by the system automatically. Don't edit through Fileman.
  • NOTES:  TRIGGERED by the COMMENT ENTERED DATE field of the MRA REQUEST CLAIM COMMENTS sub-field of the BILL/CLAIMS File
.03 COMMENTS 1;0 WORD-PROCESSING #399.0771

  • LAST EDITED:  NOV 15, 2007
Info |  Details