Global: ^ABS(503334.1

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

Package	Total	Routines
Voluntary Timekeeping	2	ABSVIPST ABSVLBL1

Package	Total	Routines
Voluntary Timekeeping	2	ABSVLBL3 ABSVNOM

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`

Customize PDF page

Package: Voluntary Timekeeping

Global: ^ABS(503334.1

Information

Description

Directly Accessed By Routines, Total: 2

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 24