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 |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^ABS(503334.1

Package: Voluntary Timekeeping

Global: ^ABS(503334.1


Information

FileMan FileNo FileMan Filename Package
503334.1 VOLUNTARY ORGANIZATION NATIONAL OFFICIAL Voluntary Timekeeping

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Voluntary Timekeeping 2 ABSVIPST    ABSVLBL1    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Voluntary Timekeeping 2 ABSVLBL3    ABSVNOM    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Voluntary Timekeeping 2 VOLUNTEER ORGANIZATION CODES(#503334)[.5]    VOLUNTARY SERVICE SITE PARAMETER(#503338)[1]    
Kernel 1 STATE(#5)[6]    

Fields, Total: 24

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

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  FEB 07, 2000
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • CROSS-REFERENCE:  503334.1^B
    1)= S ^ABS(503334.1,"B",$E(X,1,30),DA)=""
    2)= K ^ABS(503334.1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^503334.1^2.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(503334.1,.01,1,2,1.1) X ^DD(503334.1,.01,1,2,1.4)
    1.1)= S X=DIV X ^DD(503334.1,.01,1,2,49.3) S X=X_Y_" "_$P(Y(1),U,17)
    1.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=503334.1,DIG=2.5 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(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(503334.1,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=503334.1,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S Y(1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,16)_" ",Y(2)=X S X=DIV,Y(3)=X S X=",",Y(4)=X S X=2,Y(5)=X S X=99
    49.3)= X ^DD(503334.1,.01,1,2,49.2) S X=$P(Y(3),Y(4),Y(5),X) S Y=X,X=Y(2),X=X_Y_" ",Y(6)=X S X=DIV,Y(7)=X S X=",",Y(8)=X S X=1,X=$P(Y(7),Y(8),X) S Y=X,X=Y(6),X=X
    CREATE VALUE)= NAME PREFIX_" "_$P(NAME,",",2,99)_" "_$P(NAME,",",1)_" "_NAME SUFFIX
    DELETE VALUE)= @
    FIELD)= NAME LINE 1
.05 NAME PREFIX 0;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  FEB 07, 2000
  • HELP-PROMPT:  Answer must be 2-10 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^503334.1^2.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(503334.1,.05,1,1,1.1) X ^DD(503334.1,.05,1,1,1.4)
    1.1)= S X=DIV X ^DD(503334.1,.05,1,1,49.3) S X=$P(Y(7),Y(8),X) S Y=X,X=Y(6),X=X_Y_" "_$P(Y(2),U,17)
    1.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=503334.1,DIG=2.5 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(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(503334.1,.05,1,1,2.4)
    2.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=503334.1,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S Y(2)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"") S X=DIV_" ",Y(1)=X S X=$P(Y(2),U,1),Y(3)=X S X=",",Y(4)=X S X=2,Y(5)=X S X=99
    49.3)= X ^DD(503334.1,.05,1,1,49.2) S X=$P(Y(3),Y(4),Y(5),X) S Y=X,X=Y(1),X=X_Y_" ",Y(6)=X S X=$P(Y(2),U,1),Y(7)=X S X=",",Y(8)=X S X=1
    CREATE VALUE)= NAME PREFIX_" "_$P(NAME,",",2,99)_" "_$P(NAME,",",1)_" "_NAME SUFFIX
    DELETE VALUE)= @
    FIELD)= NAME LINE 1
.07 NAME SUFFIX 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  FEB 07, 2000
  • HELP-PROMPT:  Answer must be 2-10 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^503334.1^2.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(503334.1,.07,1,1,1.1) X ^DD(503334.1,.07,1,1,1.4)
    1.1)= S X=DIV X ^DD(503334.1,.07,1,1,49.3) S X=$P(Y(7),Y(8),X) S Y=X,X=Y(6),X=X_Y_" "_DIV
    1.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=503334.1,DIG=2.5 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(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(503334.1,.07,1,1,2.4)
    2.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,1)=DIV,DIH=503334.1,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S Y(1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,16)_" ",Y(2)=X S X=$P(Y(1),U,1),Y(3)=X S X=",",Y(4)=X S X=2,Y(5)=X S X=99
    49.3)= X ^DD(503334.1,.07,1,1,49.2) S X=$P(Y(3),Y(4),Y(5),X) S Y=X,X=Y(2),X=X_Y_" ",Y(6)=X S X=$P(Y(1),U,1),Y(7)=X S X=",",Y(8)=X S X=1
    CREATE VALUE)= NAME PREFIX_" "_$P(NAME,",",2,99)_" "_$P(NAME,",",1)_" "_NAME SUFFIX
    DELETE VALUE)= @
    FIELD)= NAME LINE 1
.5 ORGANIZATION 0;11 POINTER TO VOLUNTEER ORGANIZATION CODES FILE (#503334) VOLUNTEER ORGANIZATION CODES(#503334)

  • LAST EDITED:  MAR 03, 2000
  • CROSS-REFERENCE:  503334.1^C
    1)= S ^ABS(503334.1,"C",$E(X,1,30),DA)=""
    2)= K ^ABS(503334.1,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  503334.1^F
    1)= S ^ABS(503334.1,"F",$E(X,1,30),DA)=""
    2)= K ^ABS(503334.1,"F",$E(X,1,30),DA)
    This cross reference was created to permit lookup by organization.
.6 ORGANIZATION NAME COMPUTED

  • MUMPS CODE:  X ^DD(503334.1,.6,9.2) S Y(503334.1,.6,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"") S X=$P(Y(503334.1,.6,101),U,2) S D0=Y(503334.1,.6,80)
    9.2 = S Y(503334.1,.6,80)=$S($D(D0):D0,1:""),Y(503334.1,.6,1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:""),D0=$P(Y(503334.1,.6,1),U,11) S:'$D(^ABS(503334,+D0,0)) D0=-1
  • ALGORITHM:  ORGANIZATION:#1
  • LAST EDITED:  FEB 07, 2000
1 STATION NUMBER 0;2 POINTER TO VOLUNTARY SERVICE SITE PARAMETER FILE (#503338) VOLUNTARY SERVICE SITE PARAMETER(#503338)

  • LAST EDITED:  DEC 30, 1994
2 TITLE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 16, 2000
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • CROSS-REFERENCE:  503334.1^D
    1)= S ^ABS(503334.1,"D",$E(X,1,30),DA)=""
    2)= K ^ABS(503334.1,"D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^503334.1^2.6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(503334.1,2,1,2,1.4)
    1.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,2)=DIV,DIH=503334.1,DIG=2.6 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(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(503334.1,2,1,2,2.4)
    2.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,2)=DIV,DIH=503334.1,DIG=2.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TITLE
    DELETE VALUE)= @
    FIELD)= NAME LINE 2
2.5 NAME LINE 1 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • OUTPUT TRANSFORM:  S Y=$$STRIP^ABSVU1(Y)
  • LAST EDITED:  FEB 07, 2000
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • NOTES:  TRIGGERED by the NAME field of the VOLUNTARY ORGANIZATION NATIONAL OFFICIAL File
    TRIGGERED by the NAME PREFIX field of the VOLUNTARY ORGANIZATION NATIONAL OFFICIAL File
    TRIGGERED by the NAME SUFFIX field of the VOLUNTARY ORGANIZATION NATIONAL OFFICIAL File
2.6 NAME LINE 2 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  FEB 07, 2000
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • NOTES:  TRIGGERED by the TITLE field of the VOLUNTARY ORGANIZATION NATIONAL OFFICIAL File
3 ADDRESS LINE 1 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 07, 2000
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
3.5 ADDRESS LINE 3 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 07, 2000
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
3.6 ADDRESS CITY/ZIP 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  FEB 07, 2000
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • NOTES:  TRIGGERED by the CITY field of the VOLUNTARY ORGANIZATION NATIONAL OFFICIAL File
    TRIGGERED by the STATE field of the VOLUNTARY ORGANIZATION NATIONAL OFFICIAL File
    TRIGGERED by the ZIP CODE field of the VOLUNTARY ORGANIZATION NATIONAL OFFICIAL File
4 ADDRESS LINE 2 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 07, 2000
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
5 CITY 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  FEB 07, 2000
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^503334.1^3.6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(503334.1,5,1,1,1.1) X ^DD(503334.1,5,1,1,1.4)
    1.1)= S X=DIV X $P(^DD(503334.1,7,0),U,5,99) S Y(1)=X S Y(2)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"") S X=DIV_", "_Y(1)_" "_$P(Y(2),U,8)
    1.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,4)=DIV,DIH=503334.1,DIG=3.6 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(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(503334.1,5,1,1,2.4)
    2.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,4)=DIV,DIH=503334.1,DIG=3.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #5_", "_#7_" "_#8
    DELETE VALUE)= @
    FIELD)= #3.6
6 STATE 0;7 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  FEB 07, 2000
  • CROSS-REFERENCE:  ^^TRIGGER^503334.1^3.6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(503334.1,6,1,1,1.1) X ^DD(503334.1,6,1,1,1.4)
    1.1)= S X=DIV X $P(^DD(503334.1,7,0),U,5,99) S Y(2)=X S Y(1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,6)_", "_Y(2)_" "_$P(Y(1),U,8)
    1.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,4)=DIV,DIH=503334.1,DIG=3.6 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(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(503334.1,6,1,1,2.4)
    2.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,4)=DIV,DIH=503334.1,DIG=3.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #5_", "_#7_" "_#8
    DELETE VALUE)= @
    FIELD)= #3.6
7 STATE ABBREVIATION COMPUTED

  • MUMPS CODE:  X ^DD(503334.1,7,9.2) S Y(503334.1,7,101)=$S($D(^DIC(5,D0,0)):^(0),1:"") S X=$P(Y(503334.1,7,101),U,2) S D0=Y(503334.1,7,80)
    9.2 = S Y(503334.1,7,80)=$S($D(D0):D0,1:""),Y(503334.1,7,1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:""),D0=$P(Y(503334.1,7,1),U,7) S:'$D(^DIC(5,+D0,0)) D0=-1
  • ALGORITHM:  STATE:ABBREVIATION
8 ZIP CODE 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  FEB 07, 2000
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^503334.1^3.6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(503334.1,8,1,1,1.1) X ^DD(503334.1,8,1,1,1.4)
    1.1)= S X=DIV X $P(^DD(503334.1,7,0),U,5,99) S Y(2)=X S Y(1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,6)_", "_Y(2)_" "_DIV
    1.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,4)=DIV,DIH=503334.1,DIG=3.6 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(503334.1,D0,2)):^(2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(503334.1,8,1,1,2.4)
    2.4)= S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,4)=DIV,DIH=503334.1,DIG=3.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #5_", "_#7_" "_#8
    DELETE VALUE)= @
    FIELD)= #3.6
9 NATIONAL CERTIFYING OFFICIAL? 0;9 SET
  • '0' FOR N;
  • '1' FOR Y;

  • LAST EDITED:  APR 19, 2000
  • CROSS-REFERENCE:  503334.1^AC
    1)= S ^ABS(503334.1,"AC",$E(X,1,30),DA)=""
    2)= K ^ABS(503334.1,"AC",$E(X,1,30),DA)
10 REVIEW MINUTES? 0;10 SET
  • '0' FOR N;
  • '1' FOR Y;

  • LAST EDITED:  DEC 30, 1994
  • HELP-PROMPT:  
11 NATIONAL REPRESENTATIVE? 0;12 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 19, 2000
  • CROSS-REFERENCE:  503334.1^AD
    1)= S ^ABS(503334.1,"AD",$E(X,1,30),DA)=""
    2)= K ^ABS(503334.1,"AD",$E(X,1,30),DA)
12 AREA OF JURISDICTION 1;0 Multiple #503334.112 503334.112

  • LAST EDITED:  DEC 30, 1994
  • HELP-PROMPT:  Answer must be 1-150 characters in length.
13 TELEPHONE NUMBER 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<10) X
  • LAST EDITED:  DEC 30, 1994
  • HELP-PROMPT:  Answer must be 10-18 characters in length.
14 DATE APPOINTED 0;14 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 30, 1994
15 AJR REVIEW MONTH 0;15 SET
  • '1' FOR JANUARY;
  • '2' FOR FEBRUARY;
  • '3' FOR MARCH;
  • '4' FOR APRIL;
  • '5' FOR MAY;
  • '6' FOR JUNE;
  • '7' FOR JULY;
  • '8' FOR AUGUST;
  • '9' FOR SEPTEMBER;
  • '10' FOR OCTOBER;
  • '11' FOR NOVEMBER;
  • '12' FOR DECEMBER;

  • LAST EDITED:  DEC 30, 1994
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields  | All