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

Package: IFCAP

INVOICE TRACKING(#421.5)-->421.51

Sub-Field: 421.51


Information

Parent File Name Number Package
INVOICE TRACKING(#421.5) CERTIFYING SERVICE 421.51 IFCAP

Details

Field # Name Loc Type Details
.01 CERTIFYING SERVICE 0;1 POINTER TO SERVICE/SECTION FILE (#49) SERVICE/SECTION(#49)

  • LAST EDITED:  SEP 08, 1989
  • DESCRIPTION:  
    This is a pointer to the Service/Section file, #49.
  • CROSS-REFERENCE:  421.51^B
    1)= S ^PRCF(421.5,DA(1),3,"B",$E(X,1,30),DA)=""
    2)= K ^PRCF(421.5,DA(1),3,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^421.5^53
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(421.51,.01,1,2,1.1) X ^DD(421.51,.01,1,2,1.4)
    1.1)= S X=DIV S X=$S('$D(^DIC(49,+DIV,0)):"",1:$P(^(0),U,1))
    1.4)= S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(2)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=421.5,DIG=53 D ^DICR:$N(^DD(DIH,DIG
    ,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(421.51,.01,1,2,2.1) X ^DD(421.51,.01,1,2,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^PRCF(421.5,D0,3,D1,0)):^(0),1:"") S X=$S('$D(^DIC(49,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))
    2.4)= S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(2)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=421.5,DIG=53 D ^DICR:$N(^DD(DIH,DIG
    ,1,0))>0
    CREATE VALUE)= CERTIFYING SERVICE
    DELETE VALUE)= CERTIFYING SERVICE
    FIELD)= CURRENT INVOICE LOCATION
    This cross-reference is set from the Current Invoice Location field (#53).
1 DATE/TIME CHARGED OUT 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 26, 1989
  • DESCRIPTION:  
    Used when multiple services are required for certification. Indicates date changed.
  • CROSS-REFERENCE:  ^^TRIGGER^421.5^54
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(421.51,1,1,1,1.4)
    1.4)= S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99)) S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(2)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=421.5,DIG=54 D ^DICR:$N(^DD(DIH,DIG
    ,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(421.51,1,1,1,2.1) X ^DD(421.51,1,1,1,2.4)
    2.1)= S X=DIV X ^DD(421.51,1,1,1,59.2) X "F D1=0:0 S D1=$N(^PRCF(421.5,D0,3,D1)) Q:D1'>0 S Y=$S($D(^(D1,0)):$P(^(0),U,2),1:"""") S:Y'?."" "" Y(102)=Y" S D(1)=D1 S X=Y(102) S D0=I(0,0) S D1=I(1,0)
    2.4)= S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99)) S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(2)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=421.5,DIG=54 D ^DICR:$N(^DD(DIH,DIG
    ,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),I(1,0)=$S($D(D1):D1,1:""),Y(102)=""
    CREATE VALUE)= DATE/TIME CHARGED OUT
    DELETE VALUE)= LAST(BORROWER:DATE/TIME CHARGED OUT)
    FIELD)= D/T CHARGED TO CURRENT LOC
    This cross reference is set up from the Date/Time Charged to the current location.
2 CHARGED BY 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 21, 1992
  • DESCRIPTION:  
    For multiple services, indicates who charged the invoice out.
  • CROSS-REFERENCE:  ^^TRIGGER^421.5^54.5
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(421.51,2,1,1,1.4)
    1.4)= S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,16,99)) S DIH=DIH_U" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(2)=$P(DIH,U,1,16)_U_DIV_$S(%]"":U_%,1:""),DIH=421.5,DIG=54.5 D ^DICR:$N(^DD(D
    IH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" X ^DD(421.51,2,1,1,2.4)
    2.4)= S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,16,99)) S DIH=DIH_U" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(2)=$P(DIH,U,1,16)_U_DIV_$S(%]"":U_%,1:""),DIH=421.5,DIG=54.5 D ^DICR:$N(^DD(D
    IH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(CHARGED BY)
    DELETE VALUE)= @
    FIELD)= CHARGED
    This cross reference is set up from the pointer to the New Person file of the person who charged the invoice to its current location.
Info |  Details