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  | All
Print Page as PDF
Global: ^ABS(503340

Package: Voluntary Timekeeping

Global: ^ABS(503340


Information

FileMan FileNo FileMan Filename Package
503340 DONATIONS Voluntary Timekeeping

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Voluntary Timekeeping 6 ABSVDADD    ABSVDLET    ABSVDORG    ABSVDPNT    ABSVDSIN    ABSVPST    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Voluntary Timekeeping 5 ABSVDEDI    ABSVDENT    ABSVDPNT    ABSVIPST    ABSVPST    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Voluntary Timekeeping 1 FIELD SERVICE RECEIPT(#503343)[5]    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
Voluntary Timekeeping 6 VOLUNTEER ORGANIZATION CODES(#503334)[14245]
VOLUNTARY SERVICE SITE PARAMETER(#503338)[.5]    DONATIONS LETTER FORMAT(#503341)[17]    GPF/DONATIONS(#503342)[7]    INDIVIDUAL DONOR(#503346.1)[1.7]    POST/CHAPTER/UNIT(#503347)[3.5]    
Kernel 2 STATE(#5)[2134]    NEW PERSON(#200)[1012]    

Fields, Total: 55

Field # Name Loc Type Details
.01 TRACKING NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<1) X
  • LAST EDITED:  APR 19, 2002
  • HELP-PROMPT:  Answer must be 1-14 characters in length.
  • CROSS-REFERENCE:  503340^B
    1)= S ^ABS(503340,"B",$E(X,1,30),DA)=""
    2)= K ^ABS(503340,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^503340^.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$XREF^ABSVDENT(X) S DIH=$G(^ABS(503340,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=503340,DIG=.5 D ^D
    ICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^ABS(503340,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=503340,DIG=.5 D ^DICR
    CREATE VALUE)= S X=$$XREF^ABSVDENT(X)
    DELETE VALUE)= @
    FIELD)= VOLUNTARY STATION NAME
.5 VOLUNTARY STATION NAME 0;15 POINTER TO VOLUNTARY SERVICE SITE PARAMETER FILE (#503338) VOLUNTARY SERVICE SITE PARAMETER(#503338)

  • LAST EDITED:  DEC 05, 2001
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the TRACKING NUMBER field of the DONATIONS File
  • CROSS-REFERENCE:  ^^TRIGGER^503340^.6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y X ^DD(503340,.5,1,1,1.1) S DIH=$G(^ABS(503340,DIV(0),0)),DIV=X S $P(^(0),U,19)=DIV,DIH=503340,DIG=.6 D ^DICR
    1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^ABS(503338,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503338,D0,0)):^(0),1:"") S X=$P(Y(101),U,9) S D0=I(0,0)
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV X ^DD(503340,.5,1,1,59.2) S X=$P(Y(101),U,9) S D0=I(0,0) X ^DD(503340,.5,1,1,2.4)
    2.4)= S DIH=$G(^ABS(503340,DIV(0),0)),DIV=X S $P(^(0),U,19)=DIV,DIH=503340,DIG=.6 D ^DICR
    59.2)= S I(0,0)=$G(D0),Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:""),D0=$P(Y(1),U,15) S:'D0!'$D(^ABS(503338,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503338,D0,0)):^(0),1:"")
    CREATE VALUE)= VOLUNTARY STATION NAME:VOL STATION NUMBER
    DELETE VALUE)= VOLUNTARY STATION NAME:VOL STATION NUMBER
    FIELD)= STA
  • CROSS-REFERENCE:  503340^AD
    1)= S ^ABS(503340,"AD",$E(X,1,30),DA)=""
    2)= K ^ABS(503340,"AD",$E(X,1,30),DA)
.6 STATION NUMBER 0;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<3) X
  • LAST EDITED:  DEC 05, 2001
  • HELP-PROMPT:  Answer must be 3-5 characters in length.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the VOLUNTARY STATION NAME field of the DONATIONS File
  • CROSS-REFERENCE:  503340^AE
    1)= S ^ABS(503340,"AE",$E(X,1,30),DA)=""
    2)= K ^ABS(503340,"AE",$E(X,1,30),DA)
1 ORGANIZATION 0;2 POINTER TO VOLUNTEER ORGANIZATION CODES FILE (#503334)
************************REQUIRED FIELD************************
VOLUNTEER ORGANIZATION CODES(#503334)

  • LAST EDITED:  AUG 22, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^503340^1.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(503340,1,1,1,1.1) S DIH=$G(^ABS(503340,DIV(0),0)),DIV=X S $P(^(0),U,14)=DIV,DIH=503340,DIG=1.5 D ^DICR
    1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503334,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" S DIH=$G(^ABS(503340,DIV(0),0)),DIV=X S $P(^(0),U,14)=DIV,DIH=503340,DIG=1.5 D ^DICR
    CREATE VALUE)= ORGANIZATION:#1
    DELETE VALUE)= @
    FIELD)= #1.5
  • CROSS-REFERENCE:  503340^C
    1)= S ^ABS(503340,"C",$E(X,1,30),DA)=""
    2)= K ^ABS(503340,"C",$E(X,1,30),DA)
1.5 ORGANIZATION NAME 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  OCT 07, 1991
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • NOTES:  TRIGGERED by the ORGANIZATION field of the DONATIONS File
1.6 PRINTING ORG NAME COMPUTED

  • MUMPS CODE:  X ^DD(503340,1.6,9.2) S Y(503340,1.6,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"") S X=$P(Y(503340,1.6,101),U,7) S D0=Y(503340,1.6,80)
    9.2 = S Y(503340,1.6,80)=$G(D0),Y(503340,1.6,1)=$S($D(^ABS(503340,D0,0)):^(0),1:""),D0=$P(Y(503340,1.6,1),U,2) S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1
  • ALGORITHM:  ORGANIZATION:#1.5
1.7 INDIVIDUAL DONOR 5;1 POINTER TO INDIVIDUAL DONOR FILE (#503346.1) INDIVIDUAL DONOR(#503346.1)

  • LAST EDITED:  AUG 03, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^503340^30
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(503340,1.7,1,1,1.1) S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,1)=DIV,DIH=503340,DIG=30 D ^DICR
    1.1)= S X=DIV X ^DD(503340,1.7,1,1,49.5) S X=$P(Y(14),Y(15),Y(16),X) S Y=X,X=Y(13),X=X_Y,X=$S(Y(10):Y(11),Y(12):X) S Y=X,X=Y(5),X=X_Y
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,1)=DIV,DIH=503340,DIG=30 D ^DICR
    49.2)= S X=$S('$D(^ABS(503346.1,+DIV,0)):"",1:$P(^(0),U,1)),Y(1)=X S X=",",Y(2)=X S X=2,X=$P(Y(1),Y(2),X)_" ",Y(3)=X S X=$S('$D(^ABS(503346.1,+DIV,0)):"",1:$P(^(0),U,1))
    49.3)= X ^DD(503340,1.7,1,1,49.2) S Y(4)=X S X=",",X=$P(Y(4),X) S Y=X,X=Y(3),X=X_Y,Y(5)=X,Y(6)=X S X=$S('$D(^ABS(503346.1,+DIV,0)):"",1:$P(^(0),U,1)),Y(7)=X S X=","
    49.4)= X ^DD(503340,1.7,1,1,49.3) S Y(8)=X S X=3,Y(9)=X S X=99,X=$P(Y(7),Y(8),Y(9),X)="",Y(10)=X S X="",Y(11)=X S X=1,Y(12)=X S X=" ",Y(13)=X
    49.5)= X ^DD(503340,1.7,1,1,49.4) S X=$S('$D(^ABS(503346.1,+DIV,0)):"",1:$P(^(0),U,1)),Y(14)=X S X=",",Y(15)=X S X=3,Y(16)=X S X=99
    CREATE VALUE)= $P(INDIVIDUAL DONOR,",",2)_" "_$P(INDIVIDUAL DONOR,",")_$S($P(INDIVIDUAL DONOR,",",3,99)="":"",1:" "_$P(INDIVIDUAL DONOR,",",3,99))
    DELETE VALUE)= @
    FIELD)= #30
1.71 DONOR ADDRESS 1 5;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 03, 2001
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^503340^31
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,2)=DIV,DIH=503340,DIG=31 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,2)=DIV,DIH=503340,DIG=31 D ^DICR
    CREATE VALUE)= DONOR ADDRESS 1
    DELETE VALUE)= @
    FIELD)= #31
1.72 DONOR ADDRESS 2 5;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 03, 2001
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^503340^32
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,3)=DIV,DIH=503340,DIG=32 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,3)=DIV,DIH=503340,DIG=32 D ^DICR
    CREATE VALUE)= DONOR ADDRESS 2
    DELETE VALUE)= @
    FIELD)= #32
2 DATE RECEIVED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 16, 1987
  • CROSS-REFERENCE:  503340^D
    1)= S ^ABS(503340,"D",$E(X,1,30),DA)=""
    2)= K ^ABS(503340,"D",$E(X,1,30),DA)
3 DATE ACKNOWLEDGED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 11, 2001
  • HELP-PROMPT:  ENTER DATE THANK YOU LETTER WAS SENT
3.5 POST/CHAPTER/UNIT 4;8 POINTER TO POST/CHAPTER/UNIT FILE (#503347) POST/CHAPTER/UNIT(#503347)

  • LAST EDITED:  AUG 03, 2001
4 POST 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
4.5 ITEM(S) DONATED 2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  SEP 29, 2000
  • HELP-PROMPT:  Answer must be 3-60 characters in length
5 TYPE OF DONATION 0;6 SET
  • '1' FOR CASH/CHECK;
  • '2' FOR OTHER;
  • '3' FOR SERVICES;
  • '4' FOR COMFORT ARTICLES;
  • '5' FOR EQUIPMENT;
  • '6' FOR CLOTHING;
  • '7' FOR FOOD;
  • '8' FOR CANTEEN COUPON BOOKS;
  • '9' FOR MAGAZINES/BOOKS;

  • LAST EDITED:  AUG 03, 2001
  • HELP-PROMPT:  PICK ONE OF THE FOLLOWING CODES: ENTER THE APPROPRIATE CODE.
6 VALUE 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0)!(X?.E1"."3.N) X
  • LAST EDITED:  AUG 22, 2001
  • HELP-PROMPT:  Type a Dollar amount between 0 and 99999999, 2 Decimal Digits
7 FUND 0;8 POINTER TO GPF/DONATIONS FILE (#503342) GPF/DONATIONS(#503342)

  • LAST EDITED:  JUN 29, 2001
  • HELP-PROMPT:  Select the appropriate GPF entry. Points to File #503342.
8 REMARKS 1;0 WORD-PROCESSING #503340.08
9 WORKDAYS 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  ENTER NUMBER OF DAYS FROM DATE OF RECEIPT TO DATE OF ACKNOWLEDGEMENT.
10 ENTERED BY 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 17, 1996
11 DATE ENTERED 0;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 18, 1987
12 LAST EDITED BY 0;12 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 17, 1996
13 DATE LAST EDITED 0;13 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 18, 1987
14 PERMANENT RECEIPT # 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8) X
  • LAST EDITED:  JUL 11, 2001
  • HELP-PROMPT:  Answer must be 8 characters in length.
14.5 DATE OF PERMANENT RECEIPT 0;18 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 11, 2001
  • HELP-PROMPT:  ENTER DATE OF PERMANENT RECEIPT.
15 LETTER SENT? 2;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  SEP 29, 2000
16 PURPOSE OF DONATION 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUL 29, 2001
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
17 LETTER FORMAT 2;4 POINTER TO DONATIONS LETTER FORMAT FILE (#503341) DONATIONS LETTER FORMAT(#503341)

  • LAST EDITED:  SEP 29, 2000
18 NAME OF ITEM(S) 0;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  JUL 11, 2001
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
19 DATE DEPOSITED 0;17 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 11, 2001
  • HELP-PROMPT:  ENTER DATE TEMPORARY RECEIPT WAS COMPLETED.
20 DONOR CITY 5;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  AUG 03, 2001
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^503340^33
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,4)=DIV,DIH=503340,DIG=33 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,4)=DIV,DIH=503340,DIG=33 D ^DICR
    CREATE VALUE)= DONOR CITY
    DELETE VALUE)= @
    FIELD)= LETTER CITY
21 DONOR STATE 5;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  AUG 06, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^503340^34
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV,X=X S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,5)=DIV,DIH=503340,DIG=34 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,5)=DIV,DIH=503340,DIG=34 D ^DICR
    CREATE VALUE)= INTERNAL(DONOR STATE)
    DELETE VALUE)= @
    FIELD)= LETTER STATE
21.5 DONOR STATE ABBREVIATION COMPUTED

  • MUMPS CODE:  X ^DD(503340,21.5,9.2) S Y(503340,21.5,101)=$S($D(^DIC(5,D0,0)):^(0),1:"") S X=$P(Y(503340,21.5,101),U,2) S D0=Y(503340,21.5,80)
    9.2 = S Y(503340,21.5,80)=$G(D0),Y(503340,21.5,1)=$S($D(^ABS(503340,D0,5)):^(5),1:""),D0=$P(Y(503340,21.5,1),U,5) S:'D0!'$D(^DIC(5,+D0,0)) D0=-1
  • ALGORITHM:  DONOR STATE:ABBREVIATION
22 DONOR ZIP 5;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  AUG 03, 2001
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^503340^35
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIV S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,6)=DIV,DIH=503340,DIG=35 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,6)=DIV,DIH=503340,DIG=35 D ^DICR
    CREATE VALUE)= DONOR ZIP
    DELETE VALUE)= @
    FIELD)= #35
23 PRINT LETTER NOW? 5;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 06, 2001
24 NUMBER OF COPIES 2;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 2001
  • HELP-PROMPT:  Type a Number between 1 and 10, 0 Decimal Digits
  • DESCRIPTION:  
    This field stores the number of copies of the thank you letter for a specific donation.
30 LETTER RECIPIENT 4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  JUL 26, 2001
  • HELP-PROMPT:  Enter complete name of person to receive thank you letter, example: MR JOHN SMITH
  • NOTES:  TRIGGERED by the INDIVIDUAL DONOR field of the DONATIONS File
30.5 LETTER RECIPIENT TITLE 4;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  JUL 26, 2001
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
30.7 LETTER SALUTATION 4;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 03, 2001
  • HELP-PROMPT:  Answer must be 3-30 characters in length
31 LETTER ADD1 4;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  SEP 29, 2000
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • NOTES:  TRIGGERED by the DONOR ADDRESS 1 field of the DONATIONS File
32 LETTER ADD2 4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  SEP 29, 2000
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • NOTES:  TRIGGERED by the DONOR ADDRESS 2 field of the DONATIONS File
33 LETTER CITY 4;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 29, 2000
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • NOTES:  TRIGGERED by the DONOR CITY field of the DONATIONS File
34 LETTER STATE 4;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  AUG 06, 2001
  • HELP-PROMPT:  ENTER STATE OR ABBREVIATION (example: PA for Pennsylvania)
  • NOTES:  TRIGGERED by the DONOR STATE field of the DONATIONS File
  • CROSS-REFERENCE:  ^^TRIGGER^503340^34.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,5)):^(5),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(503340,34,1,1,1.1) S DIH=$G(^ABS(503340,DIV(0),5)),DIV=X S $P(^(5),U,10)=DIV,DIH=503340,DIG=34.5 D ^DICR
    1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^DIC(5,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(5,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,5)):^(5),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" S DIH=$G(^ABS(503340,DIV(0),5)),DIV=X S $P(^(5),U,10)=DIV,DIH=503340,DIG=34.5 D ^DICR
    CREATE VALUE)= LETTER STATE:ABBREVIATION
    DELETE VALUE)= @
    FIELD)= LETTER STATE ABBREVIATION
34.5 LETTER STATE ABBREVIATION 5;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  AUG 06, 2001
  • HELP-PROMPT:  Answer must be 2-4 characters in length.
  • NOTES:  TRIGGERED by the LETTER STATE field of the DONATIONS File
35 LETTER ZIP CODE 4;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5)!'((X?5N)!(X?5N1"-"4N)) X
  • LAST EDITED:  SEP 29, 2000
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
  • NOTES:  TRIGGERED by the DONOR ZIP field of the DONATIONS File
36 LETTER CC 5;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  AUG 06, 2001
  • HELP-PROMPT:  Answer must be 3 characters in length.
37 LETTER DATE 5;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 06, 2001
40 LETTER CC1 NAME 6;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 06, 2001
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
41 LETTER CC1 TITLE 6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 06, 2001
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
42 LETTER CC1 ORGANIZATION 6;3 POINTER TO VOLUNTEER ORGANIZATION CODES FILE (#503334) VOLUNTEER ORGANIZATION CODES(#503334)

  • LAST EDITED:  AUG 06, 2001
42.5 LETTER CC1 ORGANIZATION NAME COMPUTED

  • MUMPS CODE:  X ^DD(503340,42.5,9.2) S Y(503340,42.5,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"") S X=$P(Y(503340,42.5,101),U,7) S D0=Y(503340,42.5,80)
    9.2 = S Y(503340,42.5,80)=$G(D0),Y(503340,42.5,1)=$S($D(^ABS(503340,D0,6)):^(6),1:""),D0=$P(Y(503340,42.5,1),U,3) S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1
  • ALGORITHM:  #42:#1.5
43 LETTER CC2 NAME 6;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 06, 2001
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
44 LETTER CC2 TITLE 6;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 06, 2001
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
45 LETTER CC2 ORGANIZATION 6;6 POINTER TO VOLUNTEER ORGANIZATION CODES FILE (#503334) VOLUNTEER ORGANIZATION CODES(#503334)

  • LAST EDITED:  AUG 06, 2001
45.5 LETTER CC2 ORGANIZATION NAME COMPUTED

  • MUMPS CODE:  X ^DD(503340,45.5,9.2) S Y(503340,45.5,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"") S X=$P(Y(503340,45.5,101),U,7) S D0=Y(503340,45.5,80)
    9.2 = S Y(503340,45.5,80)=$G(D0),Y(503340,45.5,1)=$S($D(^ABS(503340,D0,6)):^(6),1:""),D0=$P(Y(503340,45.5,1),U,6) S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1
  • ALGORITHM:  #45:#1.5
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All