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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^ABS(503336

Package: Voluntary Timekeeping

Global: ^ABS(503336


Information

FileMan FileNo FileMan Filename Package
503336 OCCASIONAL VOLUNTEER TIME SHEET Voluntary Timekeeping

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Voluntary Timekeeping 7 ABSVOTE    ^ABS(503339.1    ABSVMHV1    ABSVOT    ABSVOTSD    ABSVTPR2    ^ABS(503336    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Voluntary Timekeeping 4 ABSVOT    ABSVOTE    ABSVTPR1    ABSVTPR2    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Voluntary Timekeeping 2 VOLUNTARY SERVICE ASSIGNMENT CODES(#503332)[4]    VOLUNTEER ORGANIZATION CODES(#503334)[3]    
Kernel 1 NEW PERSON(#200)[1012]    

Fields, Total: 18

Field # Name Loc Type Details
.01 ID NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
  • LAST EDITED:  APR 13, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the unique identification number assigned to this time sheet.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  503336^B
    1)= S ^ABS(503336,"B",$E(X,1,30),DA)=""
    2)= K ^ABS(503336,"B",$E(X,1,30),DA)
1 TRANSACTION TYPE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2"07") X
  • HELP-PROMPT:  ANSWER MUST BE 2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains the transaction type assigned to this time sheet. It will always be '07'.
2 FACILITY 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<3)!'(X?3.4UN) X
  • LAST EDITED:  MAR 24, 1993
  • HELP-PROMPT:  Answer must be 3-4 characters in length.
  • DESCRIPTION:  
    This field contains the 3-4 character station number used by the Austin DPC to identify the specific voluntary activity.
2.5 NAME OR ORGANIZATION NAME 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  DEC 12, 1988
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field will contain the free text name of the individual or organization being represented on the time sheet.
  • CROSS-REFERENCE:  503336^C
    1)= S ^ABS(503336,"C",$E(X,1,30),DA)=""
    2)= K ^ABS(503336,"C",$E(X,1,30),DA)
3 ORGANIZATION CODE 0;4 POINTER TO VOLUNTEER ORGANIZATION CODES FILE (#503334) VOLUNTEER ORGANIZATION CODES(#503334)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 10, 1993
  • DESCRIPTION:  
    This field contains the specific organization being represented on the time sheet.
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)'=1"
  • EXPLANATION:  You may only select only organizations active at the DPC in Austin.
  • CROSS-REFERENCE:  503336^D
    1)= S ^ABS(503336,"D",$E(X,1,30),DA)=""
    2)= K ^ABS(503336,"D",$E(X,1,30),DA)
3.5 ORGANIZATION COMPUTED

  • MUMPS CODE:  X ^DD(503336,3.5,9.2) S Y(503336,3.5,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"") S X=$P(Y(503336,3.5,101),U,2) S D0=Y(503336,3.5,80)
    9.2 = S Y(503336,3.5,80)=$S($D(D0):D0,1:""),Y(503336,3.5,1)=$S($D(^ABS(503336,D0,0)):^(0),1:""),D0=$P(Y(503336,3.5,1),U,4) S:'$D(^ABS(503334,+D0,0)) D0=-1
  • ALGORITHM:  ORGANIZATION CODE:ORGANIZATION
4 SERVICE ASSIGNMENT 0;5 POINTER TO VOLUNTARY SERVICE ASSIGNMENT CODES FILE (#503332) VOLUNTARY SERVICE ASSIGNMENT CODES(#503332)

  • LAST EDITED:  AUG 09, 1990
  • DESCRIPTION:  
    This field contains the name of the Medical Center Service for which the volunteers worked.
5 NUMBER IN GROUP 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the number of volunteers in the specific group represented on this time sheet.
6 TOTAL HOURS 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the total number of hours provided by all the members of the group.
    SOURCE OF DATA: 503335,0;6
7 DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EP" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 12, 1998
  • DESCRIPTION:  
    This field contains the date the work was provided.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  503336^AC
    1)= S ^ABS(503336,"AC",$E(X,1,30),DA)=""
    2)= K ^ABS(503336,"AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  503336^E
    1)= S ^ABS(503336,"E",$E(X,1,30),DA)=""
    2)= K ^ABS(503336,"E",$E(X,1,30),DA)
    This cross reference allows the user to select an existing occasional time sheet by date.
8 TRANSMISSION STATUS 0;9 SET
  • '0' FOR SUSPENDED;
  • '1' FOR READY FOR TRANSMISSION;
  • '2' FOR ERROR - NOT TRANSMITTED;
  • '3' FOR TRANSMITTED;
  • '4' FOR RETRANSMITTED;

  • LAST EDITED:  DEC 08, 1988
  • DESCRIPTION:  
    This field contains the transmission status of this particular time sheet.
  • CROSS-REFERENCE:  503336^AF
    1)= S ^ABS(503336,"AF",$E(X,1,30),DA)=""
    2)= K ^ABS(503336,"AF",$E(X,1,30),DA)
8.5 DATE TRANSMITTED 0;15 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 09, 1989
  • DESCRIPTION:  
    This field contains the full date, in FileManager format, that the time sheet was transmitted to the Austin DPC.
  • CROSS-REFERENCE:  503336^AE^MUMPS
    1)= S $P(^ABS(503336,DA,0),"^",16)=$E(X,1,5)_"00",^ABS(503336,"AD",$E(X,1,5)_"00",DA)=""
    2)= S $P(^ABS(503336,DA,0),"^",16)="" K ^ABS(503336,"AD",$E(X,1,5)_"00",DA)
    Converts the internal value of DATE TRANSMITTED to the format for a month and enters it into the TRANSMISSION MONTH field.
9 DELAY TRANSMISSION 0;10 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • DESCRIPTION:  
    This field will contain a 'yes' when the users wish to delay the transmission of this time sheet to the Austin DPC.
10 TRANSMITTED BY 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 04, 1993
  • DESCRIPTION:  
    This field contains the name of the user who transmitted the time sheet to the Austin DPC.
11 DATE RETRANSMITTED 0;12 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 09, 1989
  • DESCRIPTION:  
    This field contains the full date, in FileManager format, that the time sheet was re-transmitted to the Austin DPC.
  • CROSS-REFERENCE:  503336^AG^MUMPS
    1)= S $P(^ABS(503336,DA,0),"^",16)=$E(X,1,5)_"00",^ABS(503336,"AD",$E(X,1,5)_"00",DA)=""
    2)= S $P(^ABS(503336,DA,0),"^",16)="" K ^ABS(503336,"AD",$E(X,1,5),DA)
    Converts the internal value of DATE RETRANSMITTED to the format for a month and enters it into the TRANSMISSION MONTH field.
12 RETRANSMITTED BY 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 04, 1993
  • DESCRIPTION:  
    This field contains the name of the user who re-transmitted the time sheet to the Austin DPC.
13 TIME CARD 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<80) X
  • LAST EDITED:  DEC 08, 1988
  • HELP-PROMPT:  ANSWER MUST BE 80 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field contains the data string for this time sheet in the format necessary to be transmitted to the Austin DPC.
14 TRANSMISSION MONTH 0;16 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 09, 1989
  • DESCRIPTION:  
    This field contains the Month/Year that the time sheet was last transmitted to the Austin DPC.
  • CROSS-REFERENCE:  503336^AD
    1)= S ^ABS(503336,"AD",$E(X,1,30),DA)=""
    2)= K ^ABS(503336,"AD",$E(X,1,30),DA)

External References

Name Field # of Occurrence
^%DT 7+1, 8.5+1, 11+1, 14+1
^DIC 3+1
Y^DIQ ID3+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABS(503334 - [#503334] ID3+1, 3.5+1, 3.5OF9.2+1
^ABS(503336 - [#503336] .01(XREF 1S), .01(XREF 1K), 2.5(XREF 1S), 2.5(XREF 1K), 3(XREF 1S), 3(XREF 1K), 3.5OF9.2+1, 7(XREF 1S), 7(XREF 1K), 7(XREF 2S)
7(XREF 2K), 8(XREF 1S), 8(XREF 1K), 8.5(XREF 1S), 8.5(XREF 1K), 11(XREF 1S), 11(XREF 1K), 14(XREF 1S), 14(XREF 1K)
^DD(503334 ID3+1
^DD(503336 3.5+1

Naked Globals

Name Field # of Occurrence
^(0 ID2.5+1, ID3+1, ID7+1, 3.5+1, 3.5OF9.2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 7+1*, 8.5+1*, 11+1*, 14+1*
%I ID3+1*!
>> C ID3+1*
>> D0 3.5+1*, 3.5OF9.2+1*
>> DA .01(XREF 1S), .01(XREF 1K), 2.5(XREF 1S), 2.5(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 7(XREF 2S), 7(XREF 2K)
8(XREF 1S), 8(XREF 1K), 8.5(XREF 1S), 8.5(XREF 1K), 11(XREF 1S), 11(XREF 1K), 14(XREF 1S), 14(XREF 1K)
DIC ID3+1, 3+1!*
DIC("S" 3+1*, 3SCR+1*
>> DIE 3+1
>> DINUM .01+1*
U ID2.5+1, ID3+1, ID7+1, 3.5+1, 3.5OF9.2+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 2+1!, 2.5+1!, 2.5(XREF 1S), 2.5(XREF 1K), 3+1*!, 3(XREF 1S)
3(XREF 1K), 3.5+1*, 5+1!, 6+1!, 7+1*!, 7(XREF 1S), 7(XREF 1K), 7(XREF 2S), 7(XREF 2K), 8(XREF 1S)
8(XREF 1K), 8.5+1*!, 8.5(XREF 1S), 8.5(XREF 1K), 11+1*!, 11(XREF 1S), 11(XREF 1K), 13+1!, 14+1*!, 14(XREF 1S)
14(XREF 1K)
>> Y ID3+1*, 3+1, 7+1, 8.5+1, 11+1, 14+1
>> Y(503336 3.5+1*, 3.5OF9.2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All