Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^ABS(503330

Package: Voluntary Timekeeping

Global: ^ABS(503330


Information

FileMan FileNo FileMan Filename Package
503330 VOLUNTARY MASTER Voluntary Timekeeping

Description

Directly Accessed By Routines, Total: 49

Package Total Routines
Voluntary Timekeeping 45 ABSV88    ABSV88A    ABSV88B    ABSVBGMF    ABSVCK    ABSVCVT    ABSVE    ABSVE0
ABSVE1    ABSVE2    ABSVE3    ABSVE4    ABSVFIX    ABSVIPST    ABSVL    ABSVL1
ABSVLBL1    ABSVMHV1    ABSVMUT1    ABSVMVV1    ABSVMVV2    ABSVMVV3    ABSVNIT1    ABSVNIT2
ABSVPPP5    ABSVSCAN    ABSVSER3    ABSVTC    ^ABS(503339.1    ABSVSERV    ABSVT    ABSVTED1
ABSVTED3    ABSVTED4    ABSVTED5    ABSVTP1    ABSVTP2    ABSVTPR    ABSVU    ABSVU2
ABSVVIEW    COMBINATION    PARKING STICKER    STATION NAME    ^ABS(503330    

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Voluntary Timekeeping 9 ABSVCVT    ABSVE0    ABSVLBL    ABSVSCAN    ABSVTED1    ABSVTP2    ABSVTPR1    ABSVU
ABSVVIEW    

Pointed To By FileMan Files, Total: 4

Package Total FileMan Files
Voluntary Timekeeping 4 VOLUNTARY TEMPORARY LOG(#503330.1)[.01]    VOLUNTARY MEAL TICKET(#503330.2)[.01]    VOLUNTEER DAILY TIME(#503331)[.01]    VOLUNTARY TIME CARD(#503335)[.01]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Voluntary Timekeeping 5 VOLUNTARY SERVICE ASSIGNMENT CODES(#503332)[#503330.03(3)]    VOLUNTEER'S SCHEDULED WORKDAYS(#503333)[#503330.03(2)]    VOLUNTEER ORGANIZATION CODES(#503334)[#503330.03(1)]    VOLUNTARY AWARD CODES(#503337)[#503330.01(6)]    VOLUNTARY SERVICE SITE PARAMETER(#503338)[#503330.01(.01)]    
Kernel 1 STATE(#5)[4#503330.121(1)]    

Fields, Total: 34

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3)!(X'?1U.UP1","." "1U.UP) X I $D(X) D NAME^ABSVTIME
  • LAST EDITED:  MAR 08, 1999
  • HELP-PROMPT:  ANSWER MUST BE 3-45 CHARACTERS IN LENGTH. ENTER LAST NAME, FIRST NAME, MI IN THE FOLLOWING FORMAT: TEST,TOMMY T.
  • DESCRIPTION:  This field contains the first and last name of the volunteer in the format LASTNAME,FIRSTNAME MI.
  • TECHNICAL DESCR:  
  • DELETE TEST:  1,0)= I '$D(ABS("DELETE NAME"))
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  503330^B
    1)= S ^ABS(503330,"B",$E(X,1,30),DA)=""
    2)= K ^ABS(503330,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^503330^27
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y X ^DD(503330,.01,1,2,1.1) X ^DD(503330,.01,1,2,1.4)
    1.1)= S X=DIV X ^DD(503330,.01,1,2,49.2) S X=$E(Y(4),Y(5),X) S Y=X,X=Y(1),X=X_Y
    1.4)= S DIH=$S($D(^ABS(503330,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,22)=DIV,DIH=503330,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="" X ^DD(503330,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^ABS(503330,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,22)=DIV,DIH=503330,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S Y(3)=$S($D(^ABS(503330,D0,0)):^(0),1:"") S X=DIV,X=$E(X),Y(1)=X,Y(2)=X S X=$P(Y(3),U,2),X=X S X=X,Y(4)=X S X=6,Y(5)=X S X=9
    CREATE VALUE)= $E(VOLUNTEER)_$E(INTERNAL(SOCIAL SECURITY NUMBER),6,9)
    DELETE VALUE)= @
    FIELD)= CODE
    Generates the CODE field of the file based upon the VOLUNTEER name and SOCIAL SECURITY NUMBER.
  • CROSS-REFERENCE:  ^^TRIGGER^503330^.7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503330,D0,2)):^(2),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV,X=$E(X) X ^DD(503330,.01,1,3,1.4)
    1.4)= S DIH=$S($D(^ABS(503330,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,3)=DIV,DIH=503330,DIG=.7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503330,D0,2)):^(2),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(503330,.01,1,3,2.4)
    2.4)= S DIH=$S($D(^ABS(503330,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,3)=DIV,DIH=503330,DIG=.7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= $E(VOLUNTEER)
    DELETE VALUE)= @
    FIELD)= FIRST CHAR
    This trigger moves the first character of the last name into field .7.
.1 STATION NAME 4;0 POINTER Multiple #503330.01 503330.01

  • DESCRIPTION:  
    The fields of this multiple contains information about the volunteer which is specific to a particular station.
.5 LOWERCASE PRINTING NAME COMPUTED

  • MUMPS CODE:  X ^DD(503330,.5,9.9) S X=$S(Y(503330,.5,12):Y(503330,.5,17),Y(503330,.5,18):X) S Y=X,X=Y(503330,.5,7),X=X_Y
    9.2 = S Y(503330,.5,1)=$S($D(^ABS(503330,D0,0)):^(0),1:"") S X=$P(Y(503330,.5,1),U,1),Y(503330,.5,2)=X S X=",",Y(503330,.5,3)=X S X=2
    9.3 = X ^DD(503330,.5,9.2) S X=$P(Y(503330,.5,2),Y(503330,.5,3),X)_" ",Y(503330,.5,4)=X S X=$P(Y(503330,.5,1),U,1),Y(503330,.5,5)=X S X=",",Y(503330,.5,6)=X S X=1
    9.4 = X ^DD(503330,.5,9.3) S X=$P(Y(503330,.5,5),Y(503330,.5,6),X) S Y=X,X=Y(503330,.5,4),X=X_Y
    9.5 = X ^DD(503330,.5,9.4) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" S X=X,Y(503330,.5,7)=X,Y(503330,.5,8)=X
    9.6 = X ^DD(503330,.5,9.5) S X=$P(Y(503330,.5,1),U,1),Y(503330,.5,9)=X S X=",",Y(503330,.5,10)=X S X=3,Y(503330,.5,11)=X S X=99
    9.7 = X ^DD(503330,.5,9.6) S X=$P(Y(503330,.5,9),Y(503330,.5,10),Y(503330,.5,11),X)]"",Y(503330,.5,12)=X S X=", ",Y(503330,.5,13)=X S X=$P(Y(503330,.5,1),U,1)
    9.8 = X ^DD(503330,.5,9.7) S Y(503330,.5,14)=X S X=",",Y(503330,.5,15)=X S X=3,Y(503330,.5,16)=X S X=99
    9.9 = X ^DD(503330,.5,9.8) S X=$P(Y(503330,.5,14),Y(503330,.5,15),Y(503330,.5,16),X) S Y=X,X=Y(503330,.5,13),X=X_Y,Y(503330,.5,17)=X S X=1,Y(503330,.5,18)=X S X=""
  • ALGORITHM:  LOWERCASE($P(VOLUNTEER,",",2)_" "_$P(VOLUNTEER,",",1))_$S($P(VOLUNTEER,",",3,99)]"":", "_$P(VOLUNTEER,",",3,99),1:"")
  • LAST EDITED:  FEB 02, 1993
  • DESCRIPTION:  
    This field contains the name of the volunteer, in lowercase, in the format FirstName MI. Lastname.
  • TECHNICAL DESCR:  
    This field is computed from the .01 field.
.6 UPPERCASE PRINTING NAME COMPUTED

  • MUMPS CODE:  X ^DD(503330,.6,9.7) S Y(503330,.6,18)=X S X="",X=$S(Y(503330,.6,12):Y(503330,.6,17),Y(503330,.6,18):X) S Y=X,X=Y(503330,.6,7),X=X_Y
    9.2 = S Y(503330,.6,1)=$S($D(^ABS(503330,D0,0)):^(0),1:"") S X=$P(Y(503330,.6,1),U,1),Y(503330,.6,2)=X S X=",",Y(503330,.6,3)=X S X=2
    9.3 = X ^DD(503330,.6,9.2) S X=$P(Y(503330,.6,2),Y(503330,.6,3),X)_" ",Y(503330,.6,4)=X S X=$P(Y(503330,.6,1),U,1),Y(503330,.6,5)=X S X=",",Y(503330,.6,6)=X S X=1
    9.4 = X ^DD(503330,.6,9.3) S X=$P(Y(503330,.6,5),Y(503330,.6,6),X) S Y=X,X=Y(503330,.6,4),X=X_Y,Y(503330,.6,7)=X,Y(503330,.6,8)=X S X=$P(Y(503330,.6,1),U,1)
    9.5 = X ^DD(503330,.6,9.4) S Y(503330,.6,9)=X S X=",",Y(503330,.6,10)=X S X=3,Y(503330,.6,11)=X S X=99,X=$P(Y(503330,.6,9),Y(503330,.6,10),Y(503330,.6,11),X)
    9.6 = X ^DD(503330,.6,9.5) S X=X]"",Y(503330,.6,12)=X S X=", ",Y(503330,.6,13)=X S X=$P(Y(503330,.6,1),U,1),Y(503330,.6,14)=X S X=",",Y(503330,.6,15)=X S X=3
    9.7 = X ^DD(503330,.6,9.6) S Y(503330,.6,16)=X S X=99,X=$P(Y(503330,.6,14),Y(503330,.6,15),Y(503330,.6,16),X) S Y=X,X=Y(503330,.6,13),X=X_Y,Y(503330,.6,17)=X S X=1
  • ALGORITHM:  $P(VOLUNTEER,",",2)_" "_$P(VOLUNTEER,",",1)_$S($P(VOLUNTEER,",",3,99)]"":", "_$P(VOLUNTEER,",",3,99),1:"")
  • DESCRIPTION:  
    This field computes the name of the volunteer in the format Firstname MI. Lastname
  • TECHNICAL DESCR:  
    This field is computed from the .01 field.
.7 FIRST CHARACTER OF LAST NAME 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  MAR 08, 1999
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field stores the first character of the volunteers' last name for faster sorting during games prints.
    WRITE AUTHORITY: ^
    UNEDITABLE
  • NOTES:  TRIGGERED by the VOLUNTEER field of the VOLUNTARY MASTER File
  • CROSS-REFERENCE:  503330^AE
    1)= S ^ABS(503330,"AE",$E(X,1,30),DA)=""
    2)= K ^ABS(503330,"AE",$E(X,1,30),DA)
    This xref is used for sorting by first character of last name for games printouts.
1 SOCIAL SECURITY NUMBER 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X S:$D(X) X=$TR(X,"-") I $D(X) K:X'?9N&(X'?3N1"-"2N1"-"4N) X I $D(X) W:$D(^ABS(503330,"D",X)) !!,*7,"This SSN already exists.",*7 K:$D(^ABS(503330,"D",X)) X
  • OUTPUT TRANSFORM:  S:Y]"" Y=$E(Y,1,3)_"-"_$E(Y,4,5)_"-"_$E(Y,6,9)
  • LAST EDITED:  JUL 05, 1994
  • HELP-PROMPT:  Enter Social Security Number, With or Without the dashes.
  • DESCRIPTION:  
    This field contains the Social Security Number of the volunteer without dashes.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^503330^27
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y X ^DD(503330,1,1,1,1.1) X ^DD(503330,1,1,1,1.4)
    1.1)= S X=DIV X ^DD(503330,1,1,1,49.2) S X=$E(Y(4),Y(5),X) S Y=X,X=Y(2),X=X_Y
    1.4)= S DIH=$S($D(^ABS(503330,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,22)=DIV,DIH=503330,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="" X ^DD(503330,1,1,1,2.4)
    2.4)= S DIH=$S($D(^ABS(503330,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,22)=DIV,DIH=503330,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=$E(X),Y(2)=X,Y(3)=X S X=DIV,X=X S X=X,Y(4)=X S X=6,Y(5)=X S X=9
    CREATE VALUE)= $E(VOLUNTEER)_$E(INTERNAL(SOCIAL SECURITY NUMBER),6,9)
    DELETE VALUE)= @
    FIELD)= CODE
    Generates the CODE field of the file based upon the VOLUNTEER name and the SOCIAL SECURITY NUMBER.
  • CROSS-REFERENCE:  503330^D
    1)= S ^ABS(503330,"D",$E(X,1,30),DA)=""
    2)= K ^ABS(503330,"D",$E(X,1,30),DA)
2 STREET ADDRESS #1 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  FEB 02, 1993
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    This field contains the first line of the Volunteers address. It is the ONLY address line transmitted to the Austin DPC.
2.5 STREET ADDRESS #2 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 02, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field contains the second line of the Volunteers streed address. It is NOT transmitted to the Austin DPC.
3 CITY 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 28, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field contains the city/town of the volunteer.
4 STATE 0;5 POINTER TO STATE FILE (#5)
************************REQUIRED FIELD************************
STATE(#5)

  • DESCRIPTION:  
    This field contains the state of the volunteers address.
4.5 STATE ABBREVIATION COMPUTED

  • MUMPS CODE:  X ^DD(503330,4.5,9.2) S Y(503330,4.5,101)=$S($D(^DIC(5,D0,0)):^(0),1:"") S X=$P(Y(503330,4.5,101),U,2) S D0=Y(503330,4.5,80)
    9.2 = S Y(503330,4.5,80)=$S($D(D0):D0,1:""),Y(503330,4.5,1)=$S($D(^ABS(503330,D0,0)):^(0),1:""),D0=$P(Y(503330,4.5,1),U,5) S:'$D(^DIC(5,+D0,0)) D0=-1
  • ALGORITHM:  STATE:ABBREVIATION
  • DESCRIPTION:  
    This field computes the correct USPS abbreviation for a state from the State file. (File 5)
5 ZIP CODE 0;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1"-"4N)) X
  • LAST EDITED:  MAR 13, 1990
  • HELP-PROMPT:  Enter in the following format: 11111 or 11111-1111
  • DESCRIPTION:  
    This field contains the 5 or 9 digit Zip Code of the volunteers address.
5.5 CITY/STATE/ZIP COMPUTED

  • MUMPS CODE:  X ^DD(503330,5.5,9.2) S X=X_" "_$P(Y(503330,5.5,1),U,6)
    9.2 = X $P(^DD(503330,4.5,0),U,5,99) S Y(503330,5.5,2)=X S Y(503330,5.5,1)=$S($D(^ABS(503330,D0,0)):^(0),1:"") S X=$P(Y(503330,5.5,1),U,4)_", "_Y(503330,5.5,2)
  • ALGORITHM:  CITY_", "_STATE ABBREVIATION_" "_ZIP CODE
6 SEX 0;7 SET
************************REQUIRED FIELD************************
  • 'G' FOR Girl under 21;
  • 'F' FOR Female, 21 and over;
  • 'M' FOR Male, 21 and over;
  • 'B' FOR Boy under 21;

  • LAST EDITED:  JUL 15, 1999
  • DESCRIPTION:  
    This field contains the sex of a volunteer as required by the Volunteer Package at the Austin DPC.
  • CROSS-REFERENCE:  503330^AD
    1)= S ^ABS(503330,"AD",$E(X,1,30),DA)=""
    2)= K ^ABS(503330,"AD",$E(X,1,30),DA)
    This cross reference is in place to allow for quick updating of the SEX field when the age of the volunteer exceeds 19.
7 BIRTH DATE 0;8 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EP" D ^%DT S X=Y K:'$$BDATE^ABSVU1(X) X K:Y<1 X
  • LAST EDITED:  MAY 13, 1998
  • HELP-PROMPT:  Enter date of birth. If exact day is not known enter month and year.
  • DESCRIPTION:  
    This field contains the complete birth date of the volunteer. Although Austin does not require entry of day, this package does.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  503330^AC^MUMPS
    1)= S $P(^ABS(503330,DA,0),"^",16)=$E(X,1,5)_"00"
    2)= S $P(^ABS(503330,DA,0),"^",16)=""
    Generates the BIRTH MONTH field of the file based upon the BIRTH DATE.
7.5 BIRTH MONTH 0;16 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 18, 1988
  • DESCRIPTION:  
    This field contains the birth month of the volunteer.
  • TECHNICAL DESCR:  
    This field is populated by entry of BIRTH DATE. It is not normally edited by the user.
    WRITE AUTHORITY: ^
8 AGE COMPUTED

  • MUMPS CODE:  S X="",X1=$P($G(^ABS(503330,D0,0)),"^",8) S:X1 X=$$AGE^ABSVU2(X1)
  • ALGORITHM:  S X="",X1=$P($G(^ABS(503330,D0,0)),"^",8) S:X1 X=$$AGE^ABSVU2(X1)
  • DESCRIPTION:  
    This field dynamically computes the age of the volunteer.
  • TECHNICAL DESCR:  
    This field computes the age of the volunteer from the birthdate. It uses the extrinsic function AGE^ABSVU2.
8.5 COMBINATION 1;0 Multiple #503330.03 503330.03

  • LAST EDITED:  MAY 12, 1998
  • DESCRIPTION:  
    This multiple field contains the information necessary to calculate and store the various combinations for the volunteer.
  • TECHNICAL DESCR:  
    This multiple contains all combinations for all stations for this volunteer.
  • IDENTIFIED BY:  
    "WR": W " ",$P(^(0),U,5)
    "WRITE": W " ",$P(^(0),U,5)
16.9 TELEPHONE 3;2 FREE TEXT

  • INPUT TRANSFORM:  K:'$$VPHONE^ABSVU2(X) X
  • OUTPUT TRANSFORM:  S Y=$$PHONEOUT^ABSVU2(Y)
  • LAST EDITED:  MAY 13, 1993
  • HELP-PROMPT:  Enter phone number in the following format - 814-943-8164 or 814-943-8164 U (unlisted) or 814-943-8164 Xnnnnn
  • DESCRIPTION:  
    This field contains a telephone number for the volunteer.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
16.95 ALTERNATE TELEPHONE 3;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>19!($L(X)<1) X
  • LAST EDITED:  JUL 07, 1995
  • HELP-PROMPT:  Answer must be 1-19 characters in length.
  • DESCRIPTION:  
    This field contains an alternate telephone number for the volunteer.
17 NEXT OF KIN 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  DEC 30, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains the name of the Next of Kin of the volunteer, for use in an emergency.
18 NOK RELATIONSHIP 3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  DEC 30, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains the relationship of the person listed as next of kin to the volunteer.
19 NOK TELEPHONE 3;4 FREE TEXT

  • INPUT TRANSFORM:  K:'$$VPHONE^ABSVU2(X) X
  • OUTPUT TRANSFORM:  S Y=$$PHONEOUT^ABSVU2(Y)
  • LAST EDITED:  MAY 13, 1993
  • HELP-PROMPT:  Enter with or without area code and with or without '-'. ie. 5551212 or 555-1212 or 2025551212 or 202-555-1212
  • DESCRIPTION:  
    This field contains the primary phone number for reaching the next of kin of the volunteer in an emergency.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
20 NOK ALTERNATE PHONE 3;5 FREE TEXT

  • INPUT TRANSFORM:  K:'$$VPHONE^ABSVU2(X) X
  • OUTPUT TRANSFORM:  S Y=$$PHONEOUT^ABSVU2(Y)
  • LAST EDITED:  MAY 13, 1993
  • HELP-PROMPT:  Enter with or without area code and with or without '-'. ie. 5551212 or 555-1212 or 2025551212 or 202-555-1212
  • DESCRIPTION:  
    This field contains an alternate telephone number for reaching the next of kin of the volunteer in an emergency.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
21 TRANSACTION TYPE 3;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  DEC 31, 1986
  • HELP-PROMPT:  ANSWER MUST BE 2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains a two character transaction type code from the Austin DPC.
23 PSEUDO INDICATOR 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1"P") X
  • LAST EDITED:  MAR 13, 1990
  • HELP-PROMPT:  Enter 'P' if Pseudo indicator or leave blank.
  • DESCRIPTION:  
    This field contains a 'P' when the social security number of the volunteer is unknown and a Pseudo number has been assigned for identification purposes.
27 CODE 0;22 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?1A4N) X
  • LAST EDITED:  AUG 06, 1992
  • HELP-PROMPT:  ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains the first character of the volunteers last name followed by the last 4 numbers of the SSN.
  • TECHNICAL DESCR:  
    This field is triggered by the .01 and SSN fields of the volunteer.
    UNEDITABLE
  • NOTES:  TRIGGERED by the VOLUNTEER field of the VOLUNTARY MASTER File
    TRIGGERED by the SOCIAL SECURITY NUMBER field of the VOLUNTARY MASTER File
  • CROSS-REFERENCE:  503330^C
    1)= S ^ABS(503330,"C",$E(X,1,30),DA)=""
    2)= K ^ABS(503330,"C",$E(X,1,30),DA)
28 NICKNAME 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  APR 17, 1990
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    This field contains a nickname often used by the volunteer.
  • TECHNICAL DESCR:  
    If this field is populated, it is presented when the volunteer logs in using the Auto Log-in Feature of this program. In the event that this field is null, the first name is extracted from the .01 field and used.
29 PREFERRED LANGUAGE FOR LOG-IN 0;11 SET
  • '1' FOR ENGLISH;
  • '2' FOR SPANISH;

  • LAST EDITED:  MAR 10, 1994
  • DESCRIPTION:  
    This field contains the individual volunteers selection for display interaction in the Auto Log-in routines.
30 GAMES SHIRT SIZE 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  FEB 09, 1999
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  
    This field is intended for use for volunteer participants in veterans games events.
31 GAMES RIDE STATUS 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  FEB 09, 1999
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
32 GAMES RIDE STATION 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  FEB 09, 1999
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
33 GAMES HOUSING CODE 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • LAST EDITED:  FEB 09, 1999
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
34 5 DIGIT ZIP CODE COMPUTED

  • MUMPS CODE:  X ^DD(503330,34,9.2) S X=$E(Y(503330,34,2),Y(503330,34,3),X)
    9.2 = S Y(503330,34,1)=$S($D(^ABS(503330,D0,0)):^(0),1:"") S X=$P(Y(503330,34,1),U,6),Y(503330,34,2)=X S X=1,Y(503330,34,3)=X S X=5
  • ALGORITHM:  $E(ZIP CODE,1,5)

External References

Name Field # of Occurrence
^%DT 7+1, 7.5+1
NAME^ABSVTIME .01+1
$$BDATE^ABSVU1 7+1
$$AGE^ABSVU2 8+1
$$PHONEOUT^ABSVU2 16.9OT+1, 19OT+1, 20OT+1
$$VPHONE^ABSVU2 16.9+1, 19+1, 20+1
^DICR .01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 3n2.4), 1(XREF 1n1.4), 1(XREF 1n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABS(503330 - [#503330] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 2n49.2), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K)
.01(XREF 3n2.4), .5OF9.2+1, .6OF9.2+1, .7(XREF 1S), .7(XREF 1K), 1+1, 1(XREF 1S), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4)
1(XREF 1n49.2), 1(XREF 2S), 1(XREF 2K), 4.5OF9.2+1, 5.5OF9.2+1, 6(XREF 1S), 6(XREF 1K), 7(XREF 1S), 7(XREF 1K), 8+1
27(XREF 1S), 27(XREF 1K), 34OF9.2+1
^DD( .01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 3n2.4), 1(XREF 1n1.4), 1(XREF 1n2.4)
^DD(503330 .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .5+1, .5OF9.3+1, .5OF9.4+1, .5OF9.5+1, .5OF9.6+1
, .5OF9.7+1, .5OF9.8+1, .5OF9.9+1, .6+1, .6OF9.3+1, .6OF9.4+1, .6OF9.5+1, .6OF9.6+1, .6OF9.7+1, 1(XREF 1S)
1(XREF 1n1.1), 1(XREF 1K), 4.5+1, 5.5+1, 5.5OF9.2+1, 34+1
^DIC(5 - [#5] 4.5+1, 4.5OF9.2+1

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 2n49.2), .5OF9.2+1, .6OF9.2+1, 1(XREF 1S), 1(XREF 1n1.4), 1(XREF 1K)
1(XREF 1n2.4), 1(XREF 1n49.2), 4.5+1, 4.5OF9.2+1, 5.5OF9.2+1, 34OF9.2+1
^(2 .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 7+1*, 7.5+1*
>> ABS("DELETE N AME" , .01DEL1+1
>> D0 .01(XREF 2S), .01(XREF 2K), .01(XREF 2n49.2), .01(XREF 3S), .01(XREF 3K), .5OF9.2+1, .6OF9.2+1, 1(XREF 1S), 1(XREF 1K), 1(XREF 1n49.2)
, 4.5+1*, 4.5OF9.2+1*, 5.5OF9.2+1, 8+1, 34OF9.2+1
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .7(XREF 1S), .7(XREF 1K), 1(XREF 1S), 1(XREF 1K)
1(XREF 2S), 1(XREF 2K), 6(XREF 1S), 6(XREF 1K), 7(XREF 1S), 7(XREF 1K), 27(XREF 1S), 27(XREF 1K)
>> DIG .01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 3n2.4), 1(XREF 1n1.4), 1(XREF 1n2.4)
>> DIH .01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 3n2.4), 1(XREF 1n1.4), 1(XREF 1n2.4)
>> DIU .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K)
DIV .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 2n49.2), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4)
1(XREF 1S), 1(XREF 1n1.1), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4), 1(XREF 1n49.2)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4), 1(XREF 1S), 1(XREF 1n1.4)
1(XREF 1K), 1(XREF 1n2.4)
U .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 2n49.2), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4), .5OF9.2+1
, .5OF9.3+1, .5OF9.6+1, .5OF9.7+1, .6OF9.2+1, .6OF9.3+1, .6OF9.4+1, .6OF9.6+1, 1(XREF 1S), 1(XREF 1n1.4), 1(XREF 1K)
1(XREF 1n2.4), 1(XREF 1n49.2), 4.5+1, 4.5OF9.2+1, 5.5+1, 5.5OF9.2+1, 34OF9.2+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 2n49.2), .01(XREF 3S)
.01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4), .5+1*, .5OF9.2+1*, .5OF9.3+1*, .5OF9.4+1*, .5OF9.5+1*, .5OF9.6+1*, .5OF9.7+1*
, .5OF9.8+1*, .5OF9.9+1*, .6+1*, .6OF9.2+1*, .6OF9.3+1*, .6OF9.4+1*, .6OF9.5+1*, .6OF9.6+1*, .6OF9.7+1*, .7+1!
.7(XREF 1S), .7(XREF 1K), 1+1!*, 1(XREF 1S), 1(XREF 1n1.1), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4), 1(XREF 1n49.2), 1(XREF 2S)
1(XREF 2K), 2+1!, 2.5+1!, 3+1!, 4.5+1*, 5+1!, 5.5+1*, 5.5OF9.2+1*, 6(XREF 1S), 6(XREF 1K)
, 7+1*!, 7(XREF 1S), 7.5+1*!, 8+1*, 16.9+1!, 16.95+1!, 17+1!, 18+1!, 19+1!, 20+1!
, 21+1!, 23+1!, 27+1!, 27(XREF 1S), 27(XREF 1K), 28+1!, 30+1!, 31+1!, 32+1!, 33+1!
, 34+1*, 34OF9.2+1*
>> X1 8+1*
Y .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .5+1*, .5OF9.4+1*, .5OF9.9+1*, .6+1*, .6OF9.4+1*
, .6OF9.7+1*, 1OT+1*, 1(XREF 1S), 1(XREF 1n1.1), 1(XREF 1K), 7+1, 7.5+1, 16.9OT+1*, 19OT+1*, 20OT+1*
Y(0 1OT+1*, 16.9OT+1*, 19OT+1*, 20OT+1*
Y(1 .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2K), .01(XREF 2n49.2), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K), 1(XREF 1n49.2)
Y(2 .01(XREF 2n49.2), 1(XREF 1n1.1), 1(XREF 1n49.2)
Y(3 .01(XREF 2n49.2), 1(XREF 1n49.2)
Y(4 .01(XREF 2n1.1), .01(XREF 2n49.2), 1(XREF 1n1.1), 1(XREF 1n49.2)
Y(5 .01(XREF 2n1.1), .01(XREF 2n49.2), 1(XREF 1n1.1), 1(XREF 1n49.2)
Y(503330 .5+1, .5OF9.2+1*, .5OF9.3+1*, .5OF9.4+1, .5OF9.5+1*, .5OF9.6+1*, .5OF9.7+1*, .5OF9.8+1*, .5OF9.9+1*, .6+1*
, .6OF9.2+1*, .6OF9.3+1*, .6OF9.4+1*, .6OF9.5+1*, .6OF9.6+1*, .6OF9.7+1*, 4.5+1*, 4.5OF9.2+1*, 5.5+1, 5.5OF9.2+1*
, 34+1, 34OF9.2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All