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

Package: Voluntary Timekeeping

VOLUNTARY MASTER(#503330)-->503330.03

Sub-Field: 503330.03


Information

Parent File Name Number Package
VOLUNTARY MASTER(#503330) COMBINATION 503330.03 Voluntary Timekeeping

Details

Field # Name Loc Type Details
.01 COMBINATION 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<5)!'(X?3N.1UN1"-"1N)!(+$P(X,"-",2)>6) X
  • LAST EDITED:  MAY 12, 1998
  • HELP-PROMPT:  Answer must be 5-6 characters in length and in the format Station Number-Combination Number
  • DESCRIPTION:  
    This field contains the combination ID number. It is in the format Station number-combination number.
    UNEDITABLE
  • CROSS-REFERENCE:  503330.03^B
    1)= S ^ABS(503330,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^ABS(503330,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  503330.03^AD^MUMPS
    1)= S ^ABS(503330,DA(1),1,"AD",$P(X,"-"),$P(X,"-",2),DA)=""
    2)= K ^ABS(503330,DA(1),1,"AD",$P(X,"-"),$P(X,"-",2),DA)
1 ORGANIZATION 0;2 POINTER TO VOLUNTEER ORGANIZATION CODES FILE (#503334)
************************REQUIRED FIELD************************
VOLUNTEER ORGANIZATION CODES(#503334)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^ABS(503334,+Y,0),U,5)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 04, 1996
  • DESCRIPTION:  
    This field contains the name of the organization associated with this combination.
  • SCREEN:  S DIC("S")="I $P(^ABS(503334,+Y,0),U,5)'=1"
  • EXPLANATION:  ALLOWS ONLY SELECTION OF ACTIVE ORGANIZATIONS
  • CROSS-REFERENCE:  ^^TRIGGER^503330.03^4
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(503330.03,1,1,1,1.1) X ^DD(503330.03,1,1,1,1.4)
    1.1)= S X=DIV X ^DD(503330.03,1,1,1,49.2) S X=X_$S('$D(^ABS(503332,+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))
    1.4)= S DIH=$S($D(^ABS(503330,DIV(0),1,DIV(1),0)):^(0),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),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=503330.03,DIG=4 D ^DICR:$O
    (^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(503330.03,1,1,1,2.4)
    2.4)= S DIH=$S($D(^ABS(503330,DIV(0),1,DIV(1),0)):^(0),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),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=503330.03,DIG=4 D ^DICR:$O
    (^DD(DIH,DIG,1,0))>0
    49.2)= S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"") S X=$S('$D(^ABS(503334,+DIV,0)):"",1:$P(^(0),U,1))_$S('$D(^ABS(503333,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1))
    CREATE VALUE)= ORGANIZATION_SCHEDULE_SERVICE
    DELETE VALUE)= @
    FIELD)= COMB
    This cross reference builds the COMB CODE field.
2 SCHEDULE 0;3 POINTER TO VOLUNTEER'S SCHEDULED WORKDAYS FILE (#503333)
************************REQUIRED FIELD************************
VOLUNTEER'S SCHEDULED WORKDAYS(#503333)

  • LAST EDITED:  MAR 04, 1996
  • DESCRIPTION:  
    This field contains the work schedule code associated with this combination.
  • CROSS-REFERENCE:  ^^TRIGGER^503330.03^4
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(503330.03,2,1,1,1.1) X ^DD(503330.03,2,1,1,1.4)
    1.1)= S X=DIV X ^DD(503330.03,2,1,1,49.2) S X=X_$S('$D(^ABS(503332,+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))
    1.4)= S DIH=$S($D(^ABS(503330,DIV(0),1,DIV(1),0)):^(0),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),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=503330.03,DIG=4 D ^DICR:$O
    (^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(503330.03,2,1,1,2.4)
    2.4)= S DIH=$S($D(^ABS(503330,DIV(0),1,DIV(1),0)):^(0),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),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=503330.03,DIG=4 D ^DICR:$O
    (^DD(DIH,DIG,1,0))>0
    49.2)= S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"") S X=$S('$D(^ABS(503334,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))_$S('$D(^ABS(503333,+DIV,0)):"",1:$P(^(0),U,1))
    CREATE VALUE)= ORGANIZATION_SCHEDULE_SERVICE
    DELETE VALUE)= @
    FIELD)= COMB
    This cross reference builds the COMB CODE field.
3 SERVICE 0;4 POINTER TO VOLUNTARY SERVICE ASSIGNMENT CODES FILE (#503332)
************************REQUIRED FIELD************************
VOLUNTARY SERVICE ASSIGNMENT CODES(#503332)

  • LAST EDITED:  MAR 04, 1996
  • DESCRIPTION:  
    This field contains the facility service associated with this combination.
  • CROSS-REFERENCE:  ^^TRIGGER^503330.03^4
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(503330.03,3,1,1,1.1) X ^DD(503330.03,3,1,1,1.4)
    1.1)= S X=DIV X ^DD(503330.03,3,1,1,49.2) S X=X_$S('$D(^ABS(503332,+DIV,0)):"",1:$P(^(0),U,1))
    1.4)= S DIH=$S($D(^ABS(503330,DIV(0),1,DIV(1),0)):^(0),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),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=503330.03,DIG=4 D ^DICR:$O
    (^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(503330.03,3,1,1,2.4)
    2.4)= S DIH=$S($D(^ABS(503330,DIV(0),1,DIV(1),0)):^(0),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),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=503330.03,DIG=4 D ^DICR:$O
    (^DD(DIH,DIG,1,0))>0
    49.2)= S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"") S X=$S('$D(^ABS(503334,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))_$S('$D(^ABS(503333,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1))
    CREATE VALUE)= ORGANIZATION_SCHEDULE_SERVICE
    DELETE VALUE)= @
    FIELD)= COMB
    This cross reference builds the COMB CODE field.
4 COMB CODE 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  JUN 29, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains the actual combination code transmitted to the Austin DPC.
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the ORGANIZATION field of the COMBINATION sub-field of the VOLUNTARY MASTER File
    TRIGGERED by the SCHEDULE field of the COMBINATION sub-field of the VOLUNTARY MASTER File
    TRIGGERED by the SERVICE field of the COMBINATION sub-field of the VOLUNTARY MASTER File
  • CROSS-REFERENCE:  503330.03^AC
    1)= S ^ABS(503330,DA(1),1,"AC",$E(X,1,30),DA)=""
    2)= K ^ABS(503330,DA(1),1,"AC",$E(X,1,30),DA)
5 ACTIVE/INACTIVE 0;6 SET
  • '0' FOR ACTIVE;
  • '1' FOR INACTIVE;

  • LAST EDITED:  DEC 22, 1997
  • DESCRIPTION:  This field contains the indicator as to the active status of a specific combination for the volunteer. If the status is marked as inactive, the combination may not be selected for posting. There is an exception when
    "Creating a TimeCard", when any existing combination can be selected.
  • TECHNICAL DESCR:  
    This field contains the status of the combination. 0=active, 1=inactive.
6 STATION NUMBER COMPUTED

  • MUMPS CODE:  X ^DD(503330.03,6,9.2) S X=$P(Y(503330.03,6,2),Y(503330.03,6,3),X)
    9.2 = S Y(503330.03,6,1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"") S X=$P(Y(503330.03,6,1),U,1),Y(503330.03,6,2)=X S X="-",Y(503330.03,6,3)=X S X=1
  • ALGORITHM:  $P(COMBINATION,"-",1)
Info |  Details